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   location of decimal point?
  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   error statuses:
  19 ;         bit 0 - over current
  20 ;         bit 1 - home sensor failure
  21 ;         bit 2 - check prices
  22 ;001a   buffer for 3000 register - initialised to 7F
  23 ;001b   bit 3 - denote motor fault?
  24 ;001c   used for loop variables
  25 ;001d
  26 ;001f   display related? bit 2.  bit 4 denotes service mode
  27 ;0021   lower 3 bits taken from SCI data somewhere
  28 ;       bit 5 denotes machine out of order
  29 ;0023   buffer for 1800
  30 ;0026   used exclusively in SCI interrupt handler
  31 ;0027   price of current item
  32 ;0029   previous key state (cf 0016)
  33 ;002c   inhibits display writes?
  34 ;0032   to do with the beeper (see jump52)
  35 ;0033
  36 ;0035   only ever contains #1e
  37 ;003b   commonly contains $0233
  38 ;003d
  39 ;003e   mask for 0040? (see f996)
  40 ;003f
  41 ;0040
  42 ;0042   current key press
  43 ;0048   error status
  44 ;004a
  45 ;0052   win-a-snack odds (in ram)
  46 ;0054   0..100
  47 ;0056   last known keypad row 1 state
  48 ;005b   last known keypad row 0 state
  49 ;005a - result of number to string operations (jump55)
  50 ;    005f
  51 ;0067   working space of 0bc0
  52 ;0073
  53 ;0076-0077 word
  54 ;007f
  55 ;00c8
  56 ;0800   motor information array - each is a 16-bit value
  57 ;
  58 ;08c8   array of prices of each slot??
  59 ;0993   custom message?
  60 ;0b90 - 0b99 display buffer (backwards)
  61 ;0b9a - some sort of id? press 89 on the machine
  62 ;0baa
  63 ;0bae
  64 ;0bb5   win-a-snack odds (is this in NVRAM?)
  65 ;0bbd
  66 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
  67 ;0bd9   also related
  68 ;0bc0   machine peripheral configuration flags
  69 ;         bit0: have dumb mech
  70 ;         bit1: have a changer
  71 ;         bit2: have card reader
  72 ;         bit3: have bill validator
  73 ;         bit4: link master - price holding enabled
  74 ;         bit5: link master - price display enabled
  75 ;         bit6: have $1 changer
  76 ;         bit7: free vend
  77 ;0bc1   error status:  (from jump72)
  78 ;         bit0: changer powerup
  79 ;         bit1: card powerup
  80 ;         bit2: link powerup
  81 ;         bit3: bill error
  82 ;         bit4: coin jam
  83 ;         bit5: bad sensor
  84 ;         bit6: tube error
  85 ;
  86 ; SCI read buffer:
  87 ;
  88 ;0bc2  multiplied by 10^0bc3 and stored into 0baa
  89 ;0bc3  10 is raise to the power of this number shr 4, and multiplied by 0baa
  90 ;0bc4  index of something
  91 ;0bc5  index of something else
  92 ;0bc6  index of another thing
  93 ;0bc7 word number of something
  94 ;0bc8
  95 ;0bc9 word number of something else
  96 ;0bca
  97 ;0bcb word number of another thing
  98 ;0bcc
  99 ;0bcd word number of another else
 100 ;0bce
 101 ;
 102 ;0bc4   array index into 0bc7
 103 ;0bc5
 104 ;0bc6   another array index into 0bc7
 105 ;0bc7 word array
 106 ;
 107 ;0bdd   value of coin mech quarters
 108 ;0bdf   value of coin mech dimes
 109 ;0be1   value of coin mech nickels
 110
 111 ;
 112 ;0bd7   init'd to 0x01
 113 ;0bd8   init'd to 0x04
 114 ;0bd9   init'd to 0x02
 115 ;0bda   init'd to 0x20
 116 ;0bdb   init'd to 0x08
 117 ;0bdc   init'd to 0x10
 118 ;
 119 ;0cbc   serial number (string)
 120 ;0ccc   machine ID (string)
 121 ;0ce7   audit number (word)
 122 ;
 123 ;0cd9   counter of something - reset to 4 on some serial input
 124 ;0cda   counter of something - reset to 4 on some serial input
 125 ;0cdb   also counts something - reset to 4 on some serial input
 126
 127 ;0ce9   value or number of $1 coins
 128 ;0ceb   value or number of 20c coins
 129 ;0ced   value or number of 10c coins
 130 ;0cef   value or number of 5c coins
 131
 132 ;0cdc   number of value of $1 coins
 133 ;0cdb   number or value of 20c coin
 134 ;0cda   number or value of 10c coins
 135 ;0cd9   number or value of 5c coins
 136
 137 ;0dff - 0e04 keypad buffer - most recent in 0e04
 138 ;0e05   array index of the array to follow
 139 ;0e06 - ?? array of digits*10
 140 ;1000
 141 ;1009
 142 ;1016 - timer output compare 1 register
 143 ;1026
 144 ;1028   SPCR (Serial Peripheral Control Register)
 145 ;1030
 146 ;103c
 147
 148
 149
 150 ;0800 - 0x0fff memory bank 2k
 151 ;
 152 ;1800  Internal switches
 153 ;   7 changer INT'
 154 ;   6 Sold out.
 155 ;   5 Door open
 156 ;   4 $0.05
 157 ;   3 $0.10
 158 ;   2 $0.25
 159 ;   1 $1
 160 ;   0 Mode
 161 ;2000  Misc inputs
 162 ;   7 R2 of MAX232
 163 ;   6 Printer DSR
 164 ;   5 Win-a-snack
 165 ;   4 Multi
 166 ;   3 Promotional
 167 ;   2 Force?
 168 ;   1 Language selection
 169 ;   0 Language selection
 170 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
 171 ;2800   home sensors
 172 ;       7  row 9
 173 ;       6  row 8
 174 ;       5  row 7
 175 ;       4  row 6
 176 ;       3  row 4
 177 ;       2  row 3
 178 ;       1  row 2
 179 ;       0  row 1
 180 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
 181 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
 182 ;Motor driver column output enable is PA6
 183 ;Motor driver serial clock is PA5
 184 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
 185 ;is drawing too much current)
 186 ; the changer speaks at 600 baud, where as the coin validator speaks
 187 ; 9600 baud. and printer at 2400.
 188 ;3000   changer outputs
 189 ;       7  motor driver row output enable
 190 ;       6  /$1.00
 191 ;       5  /$.25
 192 ;       4  /$.10
 193 ;       3  /$.05
 194 ;       2  RESET
 195 ;       1  /SEND
 196 ;       0  /ACCEPT
 197 ;3800   misc outputs
 198 ;       7  not used
 199 ;       6  col 9 motor driver
 200 ;       5  col 8 motor driver
 201 ;       4  motor driver serial data
 202 ;       3  display write (clock) enable (active high)
 203 ;       2  keypad strobe
 204 ;       1  note acceptor connector
 205 ;       0  note acceptor connector
 206
 207 ;-------
 208 ; Ports
 209 ;-------
 210
 211 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
 212 ; PA7 display reset (active low)
 213 ; PA6 enables motor column drivers (when low)
 214 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
 215 ; PA4 beepy thang (active high)
 216 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
 217 ; PA2 coin dispenser pin 6 (does what???)
 218 ; PA1 bill validator 2
 219 ; PA0 bill validator 1
 220
 221 ; PortB - not used directly
 222 ; PB7 Address lines 8-15
 223 ; PB6
 224 ; PB5
 225 ; PB4
 226 ; PB3
 227 ; PB2
 228 ; PB1
 229 ; PB0
 230
 231 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
 232 ; PC7 Data Bus 0-7 / Address bus 0-7
 233 ; PC6
 234 ; PC5
 235 ; PC4
 236 ; PC3
 237 ; PC2
 238 ; PC1
 239 ; PC0
 240
 241 ; PortD - Data: 0x1008, DDR: 0x1009
 242 ; PD7 n/c
 243 ; PD6 n/c
 244 ; PD5 keypad row select (output)
 245 ; PD4 SPI - keypad & display clock signal (output)
 246 ; PD3 display data (output)
 247 ; PD2 keypad data (input)
 248 ; PD1 RX of SCI - to coin disp or printer depending on PA3
 249 ; PD0 TX of SCI - to coin disp or printer depending on PA3
 250
 251 ; PortE - Data: 0x100A
 252 ; PE7 <unused>
 253 ; PE6 <unused>
 254 ; PE5 <unused>
 255 ; PE4 <unused>
 256 ; PE3 goes high when 24VUN line is *really* low (like 20V)
 257 ; PE2 remote no-sale switch (active low)
 258 ; PE1 motor overvoltage sense (active high)
 259 ; PE0 motor overcurrent sense (active low)
 260
 261 ; Current status:
 262 ;  JSR mapped out
 263 ;  JMP mapped out
 264
 265 ; TODO:
 266
 267 8000 43              C     coma
 268 8001 20 50            P    bra 50
 269 8003 4F              O     clra
 270 8004 57              W     asrb
 271 8005 45              E     illegal
 272 8006 52              R     illegal
 273 8007 20 43            C    bra 43
 274 8009 4F              O     clra
 275 800A 4D              M     tsta
 276 800B 50              P     negb
 277 800C 41              A     illegal
 278 800D 4E              N     illegal
 279 800E 59              Y     rolb
 280 800F 00              .     test
 281 8010 43              C     coma
 282 8011 4F              O     clra
 283 8012 50              P     negb
 284 8013 59              Y     rolb
 285 8014 52              R     illegal
 286 8015 49              I     rola
 287 8016 47              G     asra
 288 8017 48              H     asla
 289 8018 54              T     lsrb
 290 8019 20 31            1    bra 31
 291 801B 39              9     rts
 292 801C 39              9     rts
 293 801D 33              3     pulb
 294 801E 20 00            .    bra 00
 295 8020 20 20                 bra 20
 296 8022 20 20                 bra 20
 297 8024 20 20                 bra 20
 298 8026 20 20                 bra 20
 299 8028 20 20                 bra 20
 300 802A 20 20                 bra 20
 301 802C 20 20                 bra 20
 302 802E 20 00            .    bra 00
 303 8030 56              V     rorb
 304 8031 45              E     illegal
 305 8032 4E              N     illegal
 306 8033 44              D     lsra
 307 8034 49              I     rola
 308 8035 4E              N     illegal
 309 8036 47              G     asra
 310 8037 20 4D            M    bra 4d
 311 8039 41              A     illegal
 312 803A 43              C     coma
 313 803B 48              H     asla
 314 803C 49              I     rola
 315 803D 4E              N     illegal
 316 803E 45              E     illegal
 317 803F 00              .     test
 318 8040 53              S     comb
 319 8041 4F              O     clra
 320 8042 46              F     rora
 321 8043 54              T     lsrb
 322 8044 57              W     asrb
 323 8045 41              A     illegal
 324 8046 52              R     illegal
 325 8047 45              E     illegal
 326 8048 20 57            W    bra 57
 327 804A 52              R     illegal
 328 804B 4F              O     clra
 329 804C 54              T     lsrb
 330 804D 45              E     illegal
 331 804E 20 00            .    bra 00
 332 8050 42              B     illegal
 333 8051 59              Y     rolb
 334 8052 20 42            B    bra 42
 335 8054 52              R     illegal
 336 8055 45              E     illegal
 337 8056 54              T     lsrb
 338 8057 20 42            B    bra 42
 339 8059 4F              O     clra
 340 805A 52              R     illegal
 341 805B 45              E     illegal
 342 805C 4E              N     illegal
 343 805D 2E 20           .     bgt 20
 344 805F 00              .     test
 345 8060 20 20                 bra 20
 346 8062 20 20                 bra 20
 347 8064 20 20                 bra 20
 348 8066 20 20                 bra 20
 349 8068 20 20                 bra 20
 350 806A 20 20                 bra 20
 351 806C 20 20                 bra 20
 352 806E 20 00            .    bra 00
 353 8070 50              P     negb
 354 8071 52              R     illegal
 355 8072 4F              O     clra
 356 8073 47              G     asra
 357 8074 52              R     illegal
 358 8075 41              A     illegal
 359 8076 4D              M     tsta
 360 8077 20 46            F    bra 46
 361 8079 4F              O     clra
 362 807A 52              R     illegal
 363 807B 20 54            T    bra 54
 364 807D 48              H     asla
 365 807E 45              E     illegal
 366 807F 00              .     test
 367 8080 35              5     txs
 368 8081 30              0     tsx
 369 8082 35              5     txs
 370 8083 20 41            A    bra 41
 371 8085 4E              N     illegal
 372 8086 44              D     lsra
 373 8087 20 35            5    bra 35
 374 8089 39              9     rts
 375 808A 30              0     tsx
 376 808B 30              0     tsx
 377 808C 2E 20           .     bgt 20
 378 808E 20 00            .    bra 00
 379 8090 20 20                 bra 20
 380 8092 20 20                 bra 20
 381 8094 20 20                 bra 20
 382 8096 20 20                 bra 20
 383 8098 20 20                 bra 20
 384 809A 20 20                 bra 20
 385 809C 20 20                 bra 20
 386 809E 20 00            .    bra 00
 387 80A0 50              P     negb
 388 80A1 41              A     illegal
 389 80A2 52              R     illegal
 390 80A3 54              T     lsrb
 391 80A4 20 4E            N    bra 4e
 392 80A6 55              U     illegal
 393 80A7 4D              M     tsta
 394 80A8 42              B     illegal
 395 80A9 45              E     illegal
 396 80AA 52              R     illegal
 397 80AB 3A              :     abx
 398 80AC 20 20                 bra 20
 399 80AE 20 00            .    bra 00
 400 80B0 39              9     rts
 401 80B1 33              3     pulb
 402 80B2 37              7     pshb
 403 80B3 2D 33           -3    blt 33
 404 80B5 30              0     tsx
 405 80B6 30              0     tsx
 406 80B7 30              0     tsx
 407 80B8 31              1     ins
 408 80B9 20 56            V    bra 56
 409 80BB 45              E     illegal
 410 80BC 52              R     illegal
 411 80BD 20 35            5    bra 35
 412 80BF 00              .     test
 413 80C0 43              C     coma
 414 80C1 48              H     asla
 415 80C2 45              E     illegal
 416 80C3 43              C     coma
 417 80C4 4B              K     illegal
 418 80C5 53              S     comb
 419 80C6 55              U     illegal
 420 80C7 4D              M     tsta
 421 80C8 20 45            E    bra 45
 422 80CA 4E              N     illegal
 423 80CB 44              D     lsra
 424 80CC 3A              :     abx
 425 80CD 30              0     tsx
 426 80CE 30              0     tsx
 427 80CF 00              .     test
 428 80D0 20 20                 bra 20
 429 80D2 20 20                 bra 20
 430 80D4 20 20                 bra 20
 431 80D6 20 20                 bra 20
 432 80D8 20 20                 bra 20
 433 80DA 20 20                 bra 20
 434 80DC 20 20                 bra 20
 435 80DE 20 00            .    bra 00
 436 80E0 20 20                 bra 20
 437 80E2 20 20                 bra 20
 438 80E4 20 20                 bra 20
 439 80E6 20 20                 bra 20
 440 80E8 20 20                 bra 20
 441 80EA 20 20                 bra 20
 442 80EC 20 20                 bra 20
 443 80EE 20 00            .    bra 00
 444 80F0 20 20                 bra 20
 445 80F2 20 20                 bra 20
 446 80F4 20 20                 bra 20
 447 80F6 20 20                 bra 20
 448 80F8 00              .     test
 449 80F9 20 0C            .    bra 0c
 450 80FB 93 73 00        .s.   subd 73
 451 80FE 01              .     nop
 452 80FF 05              .     asld
 453
 454 jump72:
 455 ; initial menu when door opens?
 456 8100 F6 00 1D        ...   ldab 001d
 457 8103 C4 10           ..    andb #10
 458 8105 27 3D           '=    beq 3d       ; to 8144
 459 8107 BD D6 52        ..R   jsr d652             ;jump5
 460 810A CE 00 1D        ...   ldx #001d
 461 810D 1D 00 10        ...   bclr 00,x, #10
 462 8110 CE 00 1D        ...   ldx #001d
 463 8113 1C 00 80        ..    bset 00,x, #80
 464 8116 7F 00 42        ..    clr 0042
 465 8119 7F 00 60        ..`   clr 0060
 466 811C 7F 00 48        ..H   clr 0048
 467 811F 7F 00 38        ..8   clr 0038
 468 8122 F6 0B A8        ...   ldab 0ba8
 469 8125 27 08           '.    beq 08
 470 8127 CE 0B A9        ...   ldx #0ba9
 471 812A 1C 00 02        ..    bset 00,x, #02
 472 812D 20 06            .    bra 06
 473 812F CE 0B A9        ...   ldx #0ba9
 474 8132 1D 00 02        ...   bclr 00,x, #02
 475 8135 7F 0E 00        ...   clr 0e00
 476 8138 7F 0E 01        ...   clr 0e01
 477 813B 7F 0E 02        ...   clr 0e02
 478 813E 7F 0E 03        ...   clr 0e03
 479 8141 7F 0E 04        ...   clr 0e04
 480 ;
 481 8144 F6 00 42        ..B   ldab 0042
 482 8147 C1 0B           ..    cmpb #0b
 483 8149 26 0F           &.    bne 0f
 484 814B BD AB 89        ...   jsr ab89             ;jump7
 485 814E 7F 00 19        ...   clr 0019
 486 8151 7F 00 60        ..`   clr 0060
 487 8154 7F 00 42        ..B   clr 0042
 488 8157 BD E6 1B        ...   jsr e61b             ;jump4
 489 815A F6 0B A8        ...   ldab 0ba8
 490 815D 26 03           &.    bne 03
 491 815F 7E 81 EF        ~..   jmp 81ef             ;goto1
 492 8162 F6 00 60        ..`   ldab 0060
 493 8165 C1 04           ..    cmpb #04
 494 8167 24 28           $(    bcc 28
 495 8169 F6 00 42        ..B   ldab 0042
 496 816C 27 21           '!    beq 21
 497 816E F6 00 42        ..B   ldab 0042
 498 8171 C1 0A           ..    cmpb #0a
 499 8173 26 03           &.    bne 03
 500 8175 7F 00 42        ..B   clr 0042
 501 8178 F6 00 42        ..B   ldab 0042
 502 817B CB 30           .0    addb #30
 503 817D 37              7     pshb
 504 817E F6 00 60        ..`   ldab 0060
 505 8181 4F              O     clra
 506 8182 C3 00 62        ..b   addd #0062
 507 8185 8F              .     xgdx
 508 8186 33              3     pulb
 509 8187 E7 00           ..    stab 00,x
 510 8189 7F 00 42        ..B   clr 0042
 511 818C 7C 00 60        |.`   inc 0060
 512 818F 20 5C            \    bra 5c
 513 8191 F6 00 62        ..b   ldab 0062
 514 8194 F1 0B A4        ...   cmpb 0ba4
 515 8197 26 3D           &=    bne 3d
 516 8199 F6 00 63        ..c   ldab 0063
 517 819C F1 0B A5        ...   cmpb 0ba5
 518 819F 26 35           &5    bne 35
 519 81A1 F6 00 64        ..d   ldab 0064
 520 81A4 F1 0B A6        ...   cmpb 0ba6
 521 81A7 26 2D           &-    bne 2d
 522 81A9 F6 00 65        ..e   ldab 0065
 523 81AC F1 0B A7        ...   cmpb 0ba7
 524 81AF 26 25           &%    bne 25
 525 81B1 CE 0B A9        ...   ldx #0ba9
 526 81B4 1D 00 02        ...   bclr 00,x, #02
 527 81B7 CE 00 1F        ...   ldx #001f
 528 81BA 1C 00 04        ..    bset 00,x, #04
 529 81BD CE 00 1F        ...   ldx #001f
 530 81C0 1C 00 80        ...   bset 00,x, #80
 531 81C3 CE 00 1D        ...   ldx #001d
 532 81C5 1C 00 10        ...   bset 00,x, #10
 533 81C9 CC 02 33        ..3   ldd #0233
 534 81CC FD 00 3B        ..;   std 003b
 535 81CF C6 05           ..    ldab #05
 536 81D1 F7 00 38        ..8   stab 0038
 537 81D4 20 17            .    bra 17
 538 81D6 7F 00 42        ..B   clr 0042
 539 81D9 7F 00 60        ..`   clr 0060
 540 81DC BD BE 69        ..i   jsr be69         ;displayreset
 541 81DF BD BE 4B        ..K   jsr be4b         ;displayblank
 542 81E2 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 543 81E5 BD C0 BA        ...   jsr c0ba         ;display:
 544 81E8 C6 0A           ..    ldab #0a
 545 81EA F7 00 38        ..8   stab 0038
 546 81ED 20 03            .    bra 03
 547 goto1:
 548 81EF 7F 00 42        ..B   clr 0042
 549 81F2 F6 00 38        ..8   ldab 0038
 550 81F5 27 03           '.    beq 03
 551 81F7 7E 84 9F        ~..   jmp 849f             ;goto2
 552 81FA BD BE 4B        ..K   jsr be4b             ;displayblank
 553 81FD F6 00 48        ..H   ldab 0048
 554 8200 26 03           &.    bne 03
 555 8202 BD AB A2        ...   jsr aba2             ;jump8
 556 8205 F6 00 48        ..H   ldab 0048
 557 8208 4F              O     clra
 558 8209 BD FE 16        ...   jsr fe16             ;jump2
 559 820C 00 00                 ; hmmm.
 560 820E 00 0D           ....  ; list len-2
 561 8210 84 9F           ..
 562 8212 82 2E           ..
 563 8214 82 50           .P
 564 8216 82 B7           ..
 565 8218 82 D9           ..
 566 821A 83 40           .@
 567 821C 83 62           ..
 568 821E 83 A5           ..
 569 8220 82 C2           ..
 570 8222 83 DF           ..
 571 8224 83 FC           ..
 572 8226 84 19           ..
 573 8228 84 35           .5
 574 822A 84 51           .Q
 575 822C 84 78           .x    ; end of jump2 data
 576 822E F6 00 19        ...   ldab 0019
 577 8231 C4 01           ..    andb #01
 578 8233 27 13           '.    beq 13
 579 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 580 8238 BD C0 BA        ...   jsr c0ba             ;display:
 581 823B C6 0A           ..    ldab #0a
 582 823D F7 00 38        ..8   stab 0038
 583 8240 7F 00 54        ..T   clr 0054
 584 8243 7C 00 48        |.H   inc 0048
 585 8246 20 05            .    bra 05
 586 8248 C6 02           ..    ldab #02
 587 824A F7 00 48        ..H   stab 0048
 588 824D 7E 84 9F        ~..   jmp 849f             ;goto2
 589 8250 F6 00 54        ..T   ldab 0054
 590 8253 4F              O     clra
 591 8254 CE 00 05        ...   ldx #0005
 592 8257 02              .     idiv
 593 8258 5D              ]     tstb
 594 8259 27 4C           'L    beq 4c
 595 825B F6 00 54        ..T   ldab 0054
 596 825E F7 00 06        ...   stab 0006
 597 8261 F6 00 06        ...   ldab 0006
 598 8264 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 599 8267 83 00 00        ...   subd #0000
 600 826A 27 15           '.    beq 15
 601 826C CC 7F FF        ...   ldd #7fff
 602 826F 37              7     pshb
 603 8270 36              6     psha
 604 8271 F6 00 06        ...   ldab 0006
 605 8274 4F              O     clra
 606 8275 05              .     asld
 607 8276 C3 08 00        ...   addd #0800
 608 8279 38              8     pulx
 609 827A 8F              .     xgdx
 610 827B A4 00           ..    anda 00,x
 611 827D E4 01           ..    andb 01,x
 612 827F ED 00           ..    std 00,x
 613 8281 F6 00 54        ..T   ldab 0054
 614 8284 4F              O     clra
 615 8285 05              .     asld
 616 8286 C3 08 00        ...   addd #0800
 617 8289 8F              .     xgdx
 618 828A EC 00           ..    ldd 00,x
 619 828C 84 80           ..    anda #80
 620 828E 27 17           '.    beq 17
 621 8290 F6 00 54        ..T   ldab 0054
 622 8293 4F              O     clra
 623 8294 05              .     asld
 624 8295 C3 08 C8        ...   addd #08c8
 625 8298 8F              .     xgdx
 626 8299 EC 00           ..    ldd 00,x
 627 829B 84 02           ..    anda #02
 628 829D 27 08           '.    beq 08
 629 829F BD 98 A5        ...   jsr 98a5             ;jump11
 630 82A2 C6 0A           ..    ldab #0a
 631 82A4 F7 00 38        ..8   stab 0038
 632 82A7 7C 00 54        |.T   inc 0054
 633 82AA F6 00 54        ..T   ldab 0054
 634 82AD C1 64           .d    cmpb #64
 635 82AF 26 03           &.    bne 03
 636 82B1 7C 00 48        |.H   inc 0048
 637 82B4 7E 84 9F        ~..   jmp 849f             ;goto2
 638 82B7 F6 00 19        ...   ldab 0019
 639 82BA C4 02           ..    andb #02
 640 82BC 27 13           '.    beq 13
 641 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 642 82C1 BD C0 BA        ...   jsr c0ba             ;display:
 643 82C4 C6 0A           ..    ldab #0a
 644 82C6 F7 00 38        ..8   stab 0038
 645 82C9 7F 00 54        ..T   clr 0054
 646 82CC 7C 00 48        |.H   inc 0048
 647 82CF 20 05            .    bra 05
 648 82D1 C6 04           ..    ldab #04
 649 82D3 F7 00 48        ..H   stab 0048
 650 82D6 7E 84 9F        ~..   jmp 849f             ;goto2
 651 82D9 F6 00 54        ..T   ldab 0054
 652 82DC 4F              O     clra
 653 82DD CE 00 05        ...   ldx #0005
 654 82E0 02              .     idiv
 655 82E1 5D              ]     tstb
 656 82E2 27 4C           'L    beq 4c
 657 82E4 F6 00 54        ..T   ldab 0054
 658 82E7 F7 00 06        ...   stab 0006
 659 82EA F6 00 06        ...   ldab 0006
 660 82ED BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 661 82F0 83 00 00        ...   subd #0000
 662 82F3 27 15           '.    beq 15
 663 82F5 CC 7F FF        ...   ldd #7fff
 664 82F8 37              7     pshb
 665 82F9 36              6     psha
 666 82FA F6 00 06        ...   ldab 0006
 667 82FD 4F              O     clra
 668 82FE 05              .     asld
 669 82FF C3 08 00        ...   addd #0800
 670 8302 38              8     pulx
 671 8303 8F              .     xgdx
 672 8304 A4 00           ..    anda 00,x
 673 8306 E4 01           ..    andb 01,x
 674 8308 ED 00           ..    std 00,x
 675 830A F6 00 54        ..T   ldab 0054
 676 830D 4F              O     clra
 677 830E 05              .     asld
 678 830F C3 08 00        ...   addd #0800
 679 8312 8F              .     xgdx
 680 8313 EC 00           ..    ldd 00,x
 681 8315 84 80           ..    anda #80
 682 8317 27 17           '.    beq 17
 683 8319 F6 00 54        ..T   ldab 0054
 684 831C 4F              O     clra
 685 831D 05              .     asld
 686 831E C3 08 C8        ...   addd #08c8
 687 8321 8F              .     xgdx
 688 8322 EC 00           ..    ldd 00,x
 689 8324 84 04           ..    anda #04
 690 8326 27 08           '.    beq 08
 691 8328 BD 98 A5        ...   jsr 98a5             ;jump11
 692 832B C6 0A           ..    ldab #0a
 693 832D F7 00 38        ..8   stab 0038
 694 8330 7C 00 54        |.T   inc 0054
 695 8333 F6 00 54        ..T   ldab 0054
 696 8336 C1 64           .d    cmpb #64
 697 8338 26 03           &.    bne 03
 698 833A 7C 00 48        |.H   inc 0048
 699 833D 7E 84 9F        ~..   jmp 849f             ;goto2
 700 8340 F6 00 19        ...   ldab 0019
 701 8343 C4 04           ..    andb #04
 702 8345 27 13           '.    beq 13
 703 8347 CC B0 08        ...   ldd #b008    ; "CHK PRICES"
 704 834A BD C0 BA        ...   jsr c0ba             ;display:
 705 834D C6 0A           ..    ldab #0a
 706 834F F7 00 38        ..8   stab 0038
 707 8352 7F 00 54        ..T   clr 0054
 708 8355 7C 00 48        |.H   inc 0048
 709 8358 20 05            .    bra 05
 710 835A C6 06           ..    ldab #06
 711 835C F7 00 48        ..H   stab 0048
 712 835F 7E 84 9F        ~..   jmp 849f             ;goto2
 713 8362 F6 00 54        ..T   ldab 0054
 714 8365 4F              O     clra
 715 8366 CE 00 05        ...   ldx #0005
 716 8369 02              .     idiv
 717 836A 5D              ]     tstb
 718 836B 27 28           '(    beq 28
 719 836D F6 00 54        ..T   ldab 0054
 720 8370 F7 00 06        ...   stab 0006
 721 8373 F6 00 06        ...   ldab 0006
 722 8376 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 723 8379 83 00 00        ...   subd #0000
 724 837C 26 17           &.    bne 17
 725 837E F6 00 54        ..T   ldab 0054
 726 8381 4F              O     clra
 727 8382 05              .     asld
 728 8383 C3 08 C8        ...   addd #08c8
 729 8386 8F              .     xgdx
 730 8387 EC 00           ..    ldd 00,x
 731 8389 84 01           ..    anda #01
 732 838B 27 08           '.    beq 08
 733 838D BD 98 A5        ...   jsr 98a5             ;jump11
 734 8390 C6 0A           ..    ldab #0a
 735 8392 F7 00 38        ..8   stab 0038
 736 8395 7C 00 54        |.T   inc 0054
 737 8398 F6 00 54        ..T   ldab 0054
 738 839B C1 64           .d    cmpb #64
 739 839D 26 03           &.    bne 03
 740 839F 7C 00 48        |.H   inc 0048
 741 83A2 7E 84 9F        ~..   jmp 849f             ;goto2
 742 ;
 743 83A5 F6 0B C1        ...   ldab 0bc1
 744 83A8 C4 01           ..    andb #01
 745 83AA 27 10           '.    beq 10
 746 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 747 83AF BD C0 BA        ...   jsr c0ba             ;display:
 748 83B2 7C 00 48        |.H   inc 0048
 749 83B5 C6 0A           ..    ldab #0a
 750 83B7 F7 00 38        ..8   stab 0038
 751 83BA 20 03            .    bra 03
 752 83BC 7C 00 48        |.H   inc 0048
 753 83BF 7E 84 9F        ~..   jmp 849f             ;goto2
 754 83C2 F6 0B C1        ...   ldab 0bc1
 755 83C5 C4 02           ..    andb #02
 756 83C7 27 10           '.    beq 10
 757 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 758 83CC BD C0 BA        ...   jsr c0ba             ;display:
 759 83CF 7C 00 48        |.H   inc 0048
 760 83D2 C6 0A           ..    ldab #0a
 761 83D4 F7 00 38        ..8   stab 0038
 762 83D7 20 03            .    bra 03
 763 83D9 7C 00 48        |.H   inc 0048
 764 83DC 7E 84 9F        ~..   jmp 849f             ;goto2
 765 83DF F6 0B C1        ...   ldab 0bc1
 766 83E2 C4 04           ..    andb #04
 767 83E4 27 10           '.    beq 10
 768 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 769 83E9 BD C0 BA        ...   jsr c0ba             ;display:
 770 83EC 7C 00 48        |.H   inc 0048
 771 83EF C6 0A           ..    ldab #0a
 772 83F1 F7 00 38        ..8   stab 0038
 773 83F4 20 03            .    bra 03
 774 83F6 7C 00 48        |.H   inc 0048
 775 83F9 7E 84 9F        ~..   jmp 849f             ;goto2
 776 83FC F6 0B C1        ...   ldab 0bc1
 777 83FF C4 10           ..    andb #10
 778 8401 27 10           '.    beq 10
 779 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 780 8406 BD C0 BA        ...   jsr c0ba             ;display:
 781 8409 7C 00 48        |.H   inc 0048
 782 840C C6 0A           ..    ldab #0a
 783 840E F7 00 38        ..8   stab 0038
 784 8411 20 03            .    bra 03
 785 8413 7C 00 48        |.H   inc 0048
 786 8416 7E 84 9F        ~..   jmp 849f             ;goto2
 787 8419 F6 0B C1        ...   ldab 0bc1
 788 841C C4 20           .     andb #20
 789 841E 27 10           '.    beq 10
 790 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 791 8423 BD C0 BA        ...   jsr c0ba             ;display:
 792 8426 7C 00 48        |.H   inc 0048
 793 8429 C6 0A           ..    ldab #0a
 794 842B F7 00 38        ..8   stab 0038
 795 842E 20 03            .    bra 03
 796 8430 7C 00 48        |.H   inc 0048
 797 8433 20 6A            j    bra 6a
 798 8435 F6 0B C1        ...   ldab 0bc1
 799 8438 C4 08           ..    andb #08
 800 843A 27 10           '.    beq 10
 801 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 802 843F BD C0 BA        ...   jsr c0ba             ;display:
 803 8442 7C 00 48        |.H   inc 0048
 804 8445 C6 0A           ..    ldab #0a
 805 8447 F7 00 38        ..8   stab 0038
 806 844A 20 03            .    bra 03
 807 844C 7C 00 48        |.H   inc 0048
 808 844F 20 4E            N    bra 4e
 809 8451 F6 0B C1        ...   ldab 0bc1
 810 8454 C4 40           .@    andb #40
 811 8456 27 10           '.    beq 10
 812 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 813 845B BD C0 BA        ...   jsr c0ba             ;display:
 814 845E 7F 00 48        ..H   clr 0048
 815 8461 C6 0A           ..    ldab #0a
 816 8463 F7 00 38        ..8   stab 0038
 817 8466 20 0E            .    bra 0e
 818 8468 7F 00 48        ..H   clr 0048
 819 846B CC B0 13        ...   ldd #b013    "HIT RESET "
 820 846E BD C0 BA        ...   jsr c0ba              ;display:
 821 8471 C6 0A           ..    ldab #0a
 822 8473 F7 00 38        ..8   stab 0038
 823 8476 20 27            '    bra 27       ; to 849f (exit)
 824 8478 F6 00 1D        ...   ldab 001d
 825 847B 2C 0E           ,.    bge 0e
 826 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 827 8480 BD C0 BA        ...   jsr c0ba             ;display:
 828 8483 CE 00 1D        ...   ldx #001d
 829 8486 1D 00 80        ..    bclr 00,x, #80
 830 8489 20 0C           .     bra 0c       ; to 8496
 831 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 832 848E BD C0 BA        ...   jsr c0ba             ;display:
 833 8491 CE 00 1D        ...   ldx #001d
 834 8494 1C 00 80        ..    bset 00,x, #80
 835 8496 C6 0F           ..    ldab #0f
 836 8499 F7 00 38        ..8   stab 0038
 837 849C 7F 00 48        ..H   clr 0048
 838 goto2:
 839 849F 39              9     rts
 840
 841 jump73:
 842 ; service mode menu?
 843 84A0 FC 00 3B        ..;   ldd 003b
 844 84A3 26 03           &.    bne 03
 845 84A5 7E 85 96        ~..   jmp 8596             ;goto3
 846 84A8 F6 00 1F        ...   ldab 001f
 847 84AB 2C 40           ,@    bge 40
 848 84AD BD D6 52        ..R   jsr d652             ;jump5
 849 84B0 7F 00 42        ..B   clr 0042
 850 84B3 7F 00 09        ...   clr 0009
 851 84B6 7F 00 0A        ...   clr 000a
 852 84B9 7F 00 06        ...   clr 0006
 853 84BC 5F              _     clrb
 854 84BD 4F              O     clra
 855 84BE FD 00 40        ..@   std 0040
 856 84C1 5F              _     clrb
 857 84C2 4F              O     clra
 858 84C3 FD 00 3E        ..>   std 003e
 859 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
 860 84C9 CE 00 1F        ...   ldx #001f
 861 84CC 1D 00 80        ..    bclr 00,x, #80
 862 84CF CE 00 1F        ..    ldx #001f
 863 84D2 1C 00 02        ....  bset 00,x, #02
 864 84D5 CE 00 1D        ...   ldx #001d
 865 84D8 1C 00 10        ..    bset 00,x, #10
 866 84DB CE 00 17        ...   ldx #0017
 867 84DE 1D 00 20        ..    bclr 00,x, #20
 868 84E0 CE 00 17         .    ldx #0017
 869 84E4 1D 00 40        ..    bclr 00,x, #40
 870 84E7 CE 00 17        ...   ldx #0017
 871 84EA 1D 00 80        ..    bclr 00,x, #80
 872 84EC F6 0B A9        ...   ldab 0ba9
 873 84F0 C4 02           ..    andb #02
 874 84F2 27 20           '     beq 20       ; to 8414
 875 84F4 F6 00 42        ..B   ldab 0042
 876 84F7 4F              O     clra
 877 84F8 C3 0B E4        ...   addd #0be4
 878 84FB 8F              .     xgdx
 879 84FC E6 00           ..    ldab 00,x
 880 84FE 27 14           '.    beq 14
 881 8500 BD BE 4B        ..K   jsr be4b             ;displayblank
 882 8503 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 883 8506 BD C0 BA        ...   jsr c0ba             ;display:
 884 8509 CC 02 58        ..X   ldd #0258    ;600
 885 850C BD E5 71        ..q   jsr e571             ;msdelay
 886 850F BD 85 AF        ...   jsr 85af             ;jump14
 887 8512 20 6C            l    bra 6c       ; to 8580
 888 ;
 889 8514 F6 00 42        ..B   ldab 0042
 890 8517 4F              O     clra
 891 8518 BD FE 16        ...   jsr fe16             ;jump2
 892 851B 00 00           .
 893 851C 00 0B           .
 894 851F 85 80           ..    ; default action - leave menu?
 895 8521 85 39           .9    ; 0 - no key pressed
 896 8523 85 4A           .J    ; key 1 - changer loading & calibration
 897 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 898 8527 85 54           .T    ; key 3 - set pricing
 899 8529 85 59           .Y    ; key 4 - smart shopping discount
 900 852B 85 5E           .^    ; key 5 - manual peripheral config
 901 852D 85 63           .c    ; key 6 - promo vend-pair programming
 902 852F 85 68           .h    ; key 7 - POS message & serial id
 903 8531 85 6D           .m    ; key 8 - print info
 904 8533 85 72           .r    ; key 9 - security code programming
 905 8535 85 77           .w    ; key 0 - motor menu
 906 8537 85 7C           .|    ; reset key -
 907 ;
 908 8539 CC AE 92        ...   ldd #ae92    "-         "
 909 853C BD C0 BA        ...   jsr c0ba         ;display:
 910 853F 7F 00 42        ..B   clr 0042
 911 8542 CE 00 1F        ...   ldx #001f
 912 8545 1C 00 02        ..    bset 00,x, #02
 913 8548 20 36            6    bra 36
 914 854A BD 86 84        ...   jsr 8684             ;jump15
 915 854D 20 31            1    bra 31
 916 854F BD 88 2E        ...   jsr 882e             ;jump16
 917 8552 20 2C            ,    bra 2c
 918 8554 BD 88 B8        ...   jsr 88b8             ;jump17
 919 8557 20 27            '    bra 27
 920 8559 BD 8C B4        ...   jsr 8cb4             ;jump18
 921 855C 20 22            "    bra 22
 922 855E BD 8E 35        ..5   jsr 8e35             ;jump19
 923 8561 20 1D            .    bra 1d
 924 8563 BD 8F 0D        ...   jsr 8f0d             ;jump20
 925 8566 20 18            .    bra 18
 926 8568 BD 90 D1        ...   jsr 90d1             ;jump21
 927 856B 20 13            .    bra 13
 928 856D BD 92 EE        ...   jsr 92ee             ;jump22
 929 8570 20 0E            .    bra 0e
 930 8572 BD 93 A5        ...   jsr 93a5             ;jump23
 931 8575 20 09            .    bra 09
 932 8577 BD 94 DD        ...   jsr 94dd             ;jump24
 933 857A 20 04            .    bra 04
 934 857C 8D 31           .1    bsr 31       ;jump14
 935 857E 20 00            .    bra 00
 936 ;
 937 8580 7F 00 0A        ...   clr 000a
 938 8583 F6 00 42        ..B   ldab 0042
 939 8586 C1 0A           ..    cmpb #0a
 940 8588 27 0A           '.    beq 0a
 941 858A F6 00 42        ..B   ldab 0042
 942 858D C1 07           ..    cmpb #07
 943 858F 27 03           '.    beq 03
 944 8591 7F 00 09        ...   clr 0009
 945 8594 20 18            .    bra 18
 946 goto3:
 947 8596 CE 00 1F        ...   ldx #001f
 948 8599 1D 00 04        ...   bclr 00,x, #04
 949 859C CE 00 1F        ...   ldx #001f
 950 859F 1C 00           ..    bset 00,x, #80
 951 85A2 CE 00 1D        ...   ldx #001d
 952 85A5 1C 00 10        ...   bset 00,x, #10
 953 85A8 BD BE 69        ..i   jsr be69             ;displayreset
 954 85AB BD E5 AA        ...   jsr e5aa             ;jump12
 955 85AE 39              9     rts
 956
 957 jump14:
 958 85AF 7F 00 42        ..B   clr 0042
 959 85B2 7F 00 06        ...   clr 0006
 960 85B5 CE 00 1F        ...   ldx #001f
 961 85B8 1C 00 02        ..    bset 00,x, #02
 962 85BB BD BE 69        ..i   jsr be69             ;displayreset
 963 85BE 39              9     rts
 964
 965 jump28:
 966 ; drop some change out of the changer?
 967 85BF F6 00 12        ...   ldab 0012
 968 85C2 C4 1E           ..    andb #1e     ; 00011110
 969 85C4 4F              O     clra
 970 85C5 BD FE 32        ..2   jsr fe32             ;jump25
 971 85C8 85 DE 00 0E     ....  ; 14  000 0111 0
 972 85CC 86 08 00 08     ....  ; 22  000 1011 0
 973 85D0 86 32 00 04     ....  ; 26  000 1101 0
 974 85D4 86 5C 00 02     ....  ; 28  000 1110 0
 975 85D8 86 83 FF E4     ....  ; 0
 976 85DC 00 00           ..    ; end of array
 977 85DE F6 0B DC        ...   ldab 0bdc
 978 85E1 F7 00 01        ...   stab 0001
 979 85E4 BD C4 30        ..0   jsr c430             ;jump26
 980 85E7 C6 01           ..    ldab #01
 981 85E9 F7 00 48        ..H   stab 0048
 982 85EC 7F 00 2C        ..,   clr 002c
 983 85EF F6 0C D9        ...   ldab 0cd9
 984 85F2 27 03           '.    beq 03
 985 85F4 7A 0C D9        z..   dec 0cd9     ; decrement number of 5c coins
 986 85F7 BD 97 F6        ...   jsr 97f6             ;jump27
 987 85FA CC 01 5E        ..^   ldd #015e
 988 85FD BD E5 71        ..q   jsr e571             ;msdelay
 989 8600 CC 02 33        ..3   ldd #0233
 990 8603 FD 00 3B        ..;   std 003b
 991 8606 20 7B            {    bra 7b
 992 8608 F6 0B DB        ...   ldab 0bdb
 993 860B F7 00 01        ...   stab 0001
 994 860E BD C4 30        ..0   jsr c430             ;jump26
 995 8611 C6 02           ..    ldab #02
 996 8613 F7 00 48        ..H   stab 0048
 997 8616 7F 00 2C        ..,   clr 002c
 998 8619 F6 0C DA        ...   ldab 0cda
 999 861C 27 03           '.    beq 03
1000 861E 7A 0C DA        z..   dec 0cda     ; decrement number of 10c coins
1001 8621 BD 97 F6        ...   jsr 97f6             ;jump27
1002 8624 CC 01 5E        ..^   ldd #015e
1003 8627 BD E5 71        ..q   jsr e571             ;msdelay
1004 862A CC 02 33        ..3   ldd #0233
1005 862D FD 00 3B        ..;   std 003b
1006 8630 20 51            Q    bra 51
1007 8632 F6 0B DA        ...   ldab 0bda
1008 8635 F7 00 01        ...   stab 0001
1009 8638 BD C4 30        ..0   jsr c430             ;jump26
1010 863B C6 03           ..    ldab #03
1011 863D F7 00 48        ..H   stab 0048
1012 8640 7F 00 2C        ..,   clr 002c
1013 8643 F6 0C DB        ...   ldab 0cdb
1014 8646 27 03           '.    beq 03
1015 8648 7A 0C DB        z..   dec 0cdb     ; decrement number of 20c coins
1016 864B BD 97 F6        ...   jsr 97f6             ;jump27
1017 864E CC 01 5E        ..^   ldd #015e
1018 8651 BD E5 71        ..q   jsr e571             ;msdelay
1019 8654 CC 02 33        ..3   ldd #0233
1020 8657 FD 00 3B        ..;   std 003b
1021 865A 20 27            '    bra 27
1022 865C C6 40           .@    ldab #40
1023 865E F7 00 01        ...   stab 0001
1024 8661 BD C4 30        ..0   jsr c430             ;jump26
1025 8664 C6 04           ..    ldab #04
1026 8666 F7 00 48        ..H   stab 0048
1027 8669 7F 00 2C        ..,   clr 002c
1028 866C F6 0C DC        ...   ldab 0cdc
1029 866F 27 03           '.    beq 03
1030 8671 7A 0C DC        z..   dec 0cdc     ; decrement number of $1 coins
1031 8674 BD 97 F6        ...   jsr 97f6             ;jump27
1032 8677 CC 01 5E        ..^   ldd #015e
1033 867A BD E5 71        ..q   jsr e571             ;msdelay
1034 867D CC 02 33        ..3   ldd #0233
1035 8680 FD 00 3B        ..;   std 003b
1036 8683 39              9     rts
1037
1038 jump15:
1039 ; changer load & calibrate menu
1040 8684 F6 00 1F        ...   ldab 001f
1041 8687 C4 02           ..    andb #02
1042 8689 27 2B           '+    beq 2b
1043 868B CE 00 1F        ...   ldx #001f
1044 868E 1D 00 02        ...   bclr 00,x, #02
1045 8691 C6 01           ..    ldab #01
1046 8693 F7 00 48        ..H   stab 0048
1047 8696 F6 0B C0        ...   ldab 0bc0
1048 8699 C4 01           ..    andb #01
1049 869B 27 16           '.    beq 16
1050 869D C6 27           .'    ldab #27
1051 869F F7 10 2D        ..-   stab 102d    ; disable SCI transmission
1052 86A2 C6 07           ..    ldab #07
1053 86A4 F7 10 2B        ..+   stab 102b    ; 600 baud
1054 86A7 CE 00 1A        ...   ldx #001a
1055 86AA 1D 00 01        ..    bclr 00,x, #01
1056 86AD F6 00 1A        ...   ldab 001a
1057 86B0 F7 30 00        .0.   stab 3000    ; changer accept on
1058 86B3 7E 87 E8        ~..   jmp 87e8             ;goto4
1059 86B6 F6 00 09        ...   ldab 0009
1060 86B9 4F              O     clra
1061 86BA BD FE 32        ..2   jsr fe32             ;jump25
1062 86BD 86 D7 00 00     ....  ; no key
1063 86C1 87 39 00 01     ....  ; key 1
1064 86C5 87 75 00 01     ....  ; key 2
1065 86C9 87 C5 00 08     ....  ; key 0
1066 86CD 87 D9 00 01     ....  ; key reset
1067 86D1 87 E8 FF F5     ....  ; no key
1068 86D5 00 00           ..    ; end of array data
1069 86D7 C6 FF           ..    ldab #ff
1070 86D9 F7 0B BC        ...   stab 0bbc
1071 86DC F6 18 00        ...   ldab 1800
1072 86DF 2D 29           -)    blt 29
1073 86E1 F6 00 07        ...   ldab 0007
1074 86E4 26 24           &$    bne 24
1075 86E6 CE 00 1A        ...   ldx #001a
1076 86E9 1D 00 02        ..    bclr 00,x, #02
1077 86EC F6 00 1A        ...   ldab 001a
1078 86EF F7 30 00        .0.   stab 3000    ; send msg to changer?
1079 86F2 CC 00 32        ..2   ldd #0032
1080 86F5 BD E5 71        ..q   jsr e571             ;msdelay
1081 86F8 CE 00 1A        ...   ldx #001a
1082 86FB 1C 00 02        ..    bset 00,x, #02
1083 86FE F6 00 1A        ...   ldab 001a
1084 8701 F7 30 00        .0.   stab 3000    ; turn changer send line off
1085 8704 CC 02 33        ..3   ldd #0233
1086 8707 FD 00 3B        ..;   std 003b
1087 870A 5F              _     clrb
1088 870B 4F              O     clra
1089 870C FD 00 40        ..@   std 0040
1090 870F 5F              _     clrb
1091 8710 4F              O     clra
1092 8711 FD 00 3E        ..>   std 003e
1093 8714 F6 0B C0        ...   ldab 0bc0
1094 8717 C4 01           ..    andb #01
1095 8719 27 03           '.    beq 03
1096 871B BD 85 BF        ...   jsr 85bf             ;jump28
1097 871E BD DC A3        ...   jsr dca3             ;jump29
1098 8721 BD 97 F6        ...   jsr 97f6             ;jump27
1099 8724 CE 00 17        ...   ldx #0017
1100 8727 1D 00           ..    bclr add,x 00,x
1101 8729 20 CE            .    bra ce
1102 872B 00              .     test
1103 872C 17              .     tba
1104 872D 1D 00 40        ...   bclr 00,x, #40
1105 8730 CE 00 17        ...   ldx #0017
1106 8733 1D 00           ..    bclr add,x 00,x
1107 8735 80 7E           .~    suba #7e
1108 8737 87              .     illegal
1109 8738 E8 F6           ..    eorb f6,x
1110 873A 00              .     test
1111 873B 36              6     psha
1112 873C 26 2F           &/    bne 2f
1113 873E F6 00 48        ..H   ldab 0048
1114 8741 4F              O     clra
1115 8742 BD FE 16        ...   jsr fe16             ;jump2
1116 8745 00 01 00 03     .     ; data for jump2
1117 8749 87 65           .
1118 874B 87 53           .
1119 874D 87 58           .
1120 874F 87 5D           .
1121 8751 87 62           .     ; end of data
1122 8753 7C 0C D9        |..   inc 0cd9
1123 8756 20 0D            .    bra 0d
1124 8758 7C 0C DA        |..   inc 0cda
1125 875B 20 08            .    bra 08
1126 875D 7C 0C DB        |..   inc 0cdb
1127 8760 20 03            .    bra 03
1128 8762 7C 0C DC        |..   inc 0cdc
1129 8765 BD 97 F6        ...   jsr 97f6             ;jump27
1130 8768 C6 02           ..    ldab #02
1131 876A F7 00 36        ..6   stab 0036
1132 876D CE 00 1B        ...   ldx #001b
1133 8770 1C 00 10        ...   bset 00,x, #10
1134 8773 20 73            s    bra 73
1135 8775 F6 00 36        ..6   ldab 0036
1136 8778 26 43           &C    bne 43
1137 877A F6 00 48        ..H   ldab 0048
1138 877D 4F              O     clra
1139 877E BD FE 16        ...   jsr fe16             ;jump2
1140 8781 00              .     test
1141 8782 01              .     nop
1142 8783 00              .     test
1143 8784 03              .     fdiv
1144 8785 87              .     illegal
1145 8786 B5 87 8F        ...   bita 878f
1146 8789 87              .     illegal
1147 878A 99 87 A3        ...   adca 87
1148 878D 87              .     illegal
1149 878E AD F6           ..    jsr f6,x
1150 8790 0C              .     clc
1151 8791 D9 27 03        .'.   adcb 27
1152 8794 7A 0C D9        z..   dec 0cd9
1153 8797 20 1C            .    bra 1c
1154 8799 F6 0C DA        ...   ldab 0cda
1155 879C 27 03           '.    beq 03
1156 879E 7A 0C DA        z..   dec 0cda
1157 87A1 20 12            .    bra 12
1158 87A3 F6 0C DB        ...   ldab 0cdb
1159 87A6 27 03           '.    beq 03
1160 87A8 7A 0C DB        z..   dec 0cdb
1161 87AB 20 08            .    bra 08
1162 87AD F6 0C DC        ...   ldab 0cdc
1163 87B0 27 03           '.    beq 03
1164 87B2 7A 0C DC        z..   dec 0cdc
1165 87B5 BD 97 F6        ...   jsr 97f6             ;jump27
1166 87B8 C6 02           ..    ldab #02
1167 87BA F7 00 36        ..6   stab 0036
1168 87BD CE 00 1B        ...   ldx #001b
1169 87C0 1C 00 10        ...   bset 00,x, #10
1170 87C3 20 23            #    bra 23
1171 87C5 7C 00 48        |.H   inc 0048
1172 87C8 F6 00 48        ..H   ldab 0048
1173 87CB C1 04           ..    cmpb #04
1174 87CD 23 05           #.    bls 05
1175 87CF C6 01           ..    ldab #01
1176 87D1 F7 00 48        ..H   stab 0048
1177 87D4 BD 97 F6        ...   jsr 97f6             ;jump27
1178 87D7 20 0F            .    bra 0f
1179 87D9 CE 00 1A        ...   ldx #001a
1180 87DC 1C 00 01        ..    bset 00,x, #01
1181 87DF F6 00 1A        ...   ldab 001a
1182 87E2 F7 30 00        .0.   stab 3000    ; turn changer accept line off
1183 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1184 goto4:
1185 87E8 39              9     rts
1186
1187 jump74:
1188 ;motor count procedure
1189 87E9 7F 00 05        ...   clr 0005
1190 87EC 7F 00 54        ..T   clr 0054
1191 87EF F6 00 54        ..T   ldab 0054
1192 87F2 C1 50           .P    cmpb #50     ; 80 entries in lookup table
1193 87F4 24 2E           $.    bcc 2e       ; to 8824
1194 87F6 F6 00 54        ..T   ldab 0054
1195 87F9 4F              O     clra
1196 87FA C3 B0 D3        ...   addd #b0d3   ; lookup table
1197 87FD 8F              .     xgdx
1198 87FE E6 00           ..    ldab 00,x
1199 8800 F7 00 06        ...   stab 0006
1200 8803 F6 00 06        ...   ldab 0006
1201 8806 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1202 8809 83 00 00        ...   subd #0000
1203 880C 26 11           &.    bne 11
1204 880E BD D3 11        ...   jsr d311             ;jump30 - test it
1205 8811 83 00 00        ...   subd #0000
1206 8814 26 03           &.    bne 03
1207 8816 7C 00 05        |..   inc 0005
1208 8819 CC 00 05        ...   ldd #0005
1209 881C BD E5 71        ..q   jsr e571             ;msdelay
1210 881F 7C 00 54        |.T   inc 0054
1211 8822 20 CB            .    bra cb
1212 8824 BD 99 81        ...   jsr 9981             ;jump144 - write "MOTORS XX" (from 0005)
1213 8827 CC 07 D0        ...   ldd #07d0
1214 882A BD E5 71        ..q   jsr e571             ;msdelay
1215 882D 39              9     rts
1216
1217 jump16:
1218 882E F6 00 1F        ...   ldab 001f
1219 8831 C4 02           ..    andb #02
1220 8833 27 12           '.    beq 12
1221 8835 FC 0B B5        ...   ldd 0bb5
1222 8838 C4 FF           ..    andb #ff
1223 883A 84 01           ..    anda #01
1224 883C FD 00 52        ..R   std 0052
1225 883F CE 00 1F        ...   ldx #001f
1226 8842 1D 00 02        ...   bclr 00,x, #02
1227 8845 20 70            p    bra 70
1228 8847 F6 00 09        ...   ldab 0009
1229 884A 4F              O     clra
1230 884B BD FE 32        ..2   jsr fe32             ;jump25
1231 884E 88 68 00 00     ....  ; cancel.
1232 8852 88 6D 00 01     ....  ; key 1 - increment
1233 8856 88 83 00 01     ....  ; key 2 - decrement
1234 885A 88 A7 00 08     ....  ; key 0 - saving
1235 885E 88 B4 00 01     ....  ; reset
1236 8862 88 B7 FF F5     ....  ; no key - return
1237 8866 00 00           ....  ; end of array data
1238 ;
1239 8868 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1240 886B 20 4A            J    bra 4a       ; to 88b7 - return
1241 ; increment 50
1242 886D FC 00 52        ..R   ldd 0052
1243 8870 83 01 F4        ...   subd #01f4   ; 500
1244 8873 24 09           $.    bcc 09       ; dont let them go above 500
1245 8875 FC 00 52        ..R   ldd 0052
1246 8878 C3 00 32        ..2   addd #0032   ; +50
1247 887B FD 00 52        ..R   std 0052
1248 887E BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1249 8881 20 34            4    bra 34
1250 ;
1251 8883 FC 00 52        ..R   ldd 0052
1252 8886 83 00 32        ..2   subd #0032   ; 50
1253 8889 23 17           #.    bls 17       ; dont let them go below 50
1254 888B FC 00 52        ..R   ldd 0052
1255 888E C3 FF CE        ...   addd #ffce   ; -50
1256 8891 FD 00 52        ..R   std 0052
1257 8894 FC 00 52        ..R   ldd 0052
1258 8897 83 00 32        ..2   subd #0032   ; 50
1259 889A 24 06           $.    bcc 06
1260 889C CC 00 32        ..2   ldd #0032   ; 100
1261 889F FD 00 52        ..R   std 0052
1262 88A2 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1263 88A5 20 10            .    bra 10
1264 ;
1265 88A7 BD A3 7C        ..|   jsr a37c             ;jump141 - save
1266 88AA 5F              _     clrb
1267 88AB 4F              O     clra
1268 88AC FD 0B B9        ...   std 0bb9
1269 88AF BD 85 AF        ...   jsr 85af             ;jump14
1270 88B2 20 03            .    bra 03
1271 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1272 88B7 39              9     rts
1273
1274 jump17:
1275 ; set pricing
1276 88B8 F6 00 1F        ...   ldab 001f
1277 88BB C4 02           ..    andb #02
1278 88BD 26 0A           &.    bne 0a
1279 88BF F6 00 3A        ..:   ldab 003a
1280 88C2 26 28           &(    bne 28
1281 88C4 F6 00 1D        ...   ldab 001d
1282 88C7 2D 23           -#    blt 23
1283 88C9 7F 00 2C        ..,   clr 002c
1284 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1285 88CF BD C0 BA        ...   jsr c0ba             ;display:
1286 88D2 CE 00 1F        ...   ldx #001f
1287 88D5 1D 00 02        ..    bclr 00,x, #02
1288 88D8 CE 00 1F        ...   ldx #001f
1289 88DB 1D 00 40        ..    bclr 00,x, #40
1290 88DE CE 00 1D        ...   ldx #001d
1291 88E1 1D 00 80        ..    bclr 00,x, #80
1292 88E4 7F 00 54        ...   clr 0054
1293 88E7 C6 32           .2    ldab #32
1294 88E9 F7 00 3A        ..:   stab 003a
1295 88EC F6 00 09        ...   ldab 0009
1296 88EF 26 03           &.    bne 03
1297 88F1 7E 89 E1        ~..   jmp 89e1             ;goto5
1298 88F4 F6 00 1D        ...   ldab 001d
1299 88F7 2C 03           ,.    bge 03
1300 88F9 7E 89 E1        ~..   jmp 89e1             ;goto5
1301 88FC F6 00 09        ...   ldab 0009
1302 88FF C1 0B           ..    cmpb #0b
1303 8901 26 06           &.    bne 06
1304 8903 BD 85 AF        ...   jsr 85af             ;jump14
1305 8906 7E 89 DE        ~..   jmp 89de             ;goto6
1306 8909 F6 00 54        ..T   ldab 0054
1307 890C 26 26           &&    bne 26
1308 890E BD BE 4B        ..K   jsr be4b             ;displayblank
1309 8911 F6 00 09        ...   ldab 0009
1310 8914 C1 0A           ..    cmpb #0a
1311 8916 26 03           &.    bne 03
1312 8918 7F 00 09        ...   clr 0009
1313 891B F6 00 09        ...   ldab 0009
1314 891E CB 30           .0    addb #30
1315 8920 37              7     pshb
1316 8921 CC 0B 95        ...   ldd #0b95
1317 8924 F0 00 54        ..T   subb 0054
1318 8927 82 00           ..    sbca #00
1319 8929 8F              .     xgdx
1320 892A 33              3     pulb
1321 892B E7 00           ..    stab 00,x
1322 892D C6 32           .2    ldab #32
1323 892F F7 00 3A        ..:   stab 003a
1324 8932 20 37            7    bra 37
1325 8934 F6 00 54        ..T   ldab 0054
1326 8937 C1 01           ..    cmpb #01
1327 8939 26 27           &'    bne 27
1328 893B F6 00 09        ...   ldab 0009
1329 893E C1 05           ..    cmpb #05
1330 8940 27 20           '     beq 20
1331 8942 F6 00 09        ...   ldab 0009
1332 8945 C1 0A           ..    cmpb #0a
1333 8947 27 19           '.    beq 19
1334 8949 F6 00 09        ...   ldab 0009
1335 894C CB 30           .0    addb #30
1336 894E 37              7     pshb
1337 894F CC 0B 95        ...   ldd #0b95
1338 8952 F0 00 54        ..T   subb 0054
1339 8955 82 00           ..    sbca #00
1340 8957 8F              .     xgdx
1341 8958 33              3     pulb
1342 8959 E7 00           ..    stab 00,x
1343 895B C6 32           .2    ldab #32
1344 895D F7 00 3A        ..:   stab 003a
1345 8960 20 09            .    bra 09
1346 8962 CE 00 1F        ...   ldx #001f
1347 8965 1C 00 02        ..    bset 00,x, #02
1348 8968 7F 00 3A        ..:   clr 003a
1349 896B BD BE 01        ...   jsr be01             ;jump70
1350 896E 7C 00 54        |.T   inc 0054
1351 8971 F6 00 54        ..T   ldab 0054
1352 8974 C1 02           ..    cmpb #02
1353 8976 26 60           &`    bne 60
1354 8978 CE 00 1D        ...   ldx #001d
1355 897B 1C 00 80        ..    bset 00,x, #80
1356 897E F6 0B 94        ..    ldab 0b94
1357 8980 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1358 8983 37              7     pshb
1359 8984 F6 0B 95        ...   ldab 0b95
1360 8987 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1361 8989 86 0A           ..    ldaa #0a
1362 898B 3D              =     mul
1363 898C 30              0     tsx
1364 898D EB 00           ..    addb 00,x
1365 898F 31              1     ins
1366 8990 F7 00 06        ...   stab 0006
1367 8993 C6 32           .2    ldab #32
1368 8995 F7 00 3A        ..:   stab 003a
1369 8998 F6 00 06        ...   ldab 0006
1370 899B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1371 899E 83 00 00        ...   subd #0000
1372 89A1 26 27           &'    bne 27       ; to 89ca
1373 89A3 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1374 89A6 83 00 00        ...   subd #0000
1375 89A9 26 0B           &.    bne 0b
1376 89AB CE 00 1F        ...   ldx #001f
1377 89AE 1C 00 40        ..    bset 00,x, #40
1378 89B1 BD 8C 73        ..s   jsr 8c73             ;jump75
1379 89B4 20 0F            .    bra 0f
1380 89B6 CE 00 1F        ...   ldx #001f
1381 89B9 1D 00 40        ..    bclr 00,x, #40
1382 89BC CC 2A FF        .*.   ldd #2aff    ; 00101010 11111111
1383 89BF FD 00 27        ..'   std 0027
1384 89C2 BD A3 85        ...   jsr a385             ;jump40
1385 89C5 BD 9A 47        ..G   jsr 9a47             ;jump39
1386 89C8 20 0C            .    bra 0c
1387 ;
1388 89CA CE 00 1D        ...   ldx #001d
1389 89CD 1D 00           ..    bclr 00,x, #80
1390 89D0 CE 00 1F        ...   ldx #001f
1391 89D3 1C 00 02        ...   bset 00,x, #02
1392 89D6 20 06            .    bra 06
1393 89D8 CE 00 1D        ...   ldx #001d
1394 89DB 1D 00 80        ...   bclr 00,x, #80
1395 ;goto6
1396 89DE 7E 8C 72        .~    jmp 8c72     ;goto7 (exit)
1397 ;goto5
1398 89E1 F6 00 1D        ...   ldab 001d
1399 89E4 2D 03           -.    blt 03
1400 89E6 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1401 89E9 F6 00 09        ...   ldab 0009
1402 89EC 4F              O     clra
1403 89ED BD FE 16        ...   jsr fe16             ;jump2
1404 89F0 00 00 00 0B     ....  ; params to jump2
1405 89F4 8C 72           ..    ; default action
1406 89F6 8A 0E           ..    ; 0 - display price on screen?
1407 89F8 8A 14           ..    ; 1 -
1408 89FA 8A AA           ..
1409 89FC 8B 5E           .^
1410 89FE 8B 9E           ..
1411 8A00 8B DB           ..
1412 8A02 8C 72           ..
1413 8A04 8C 72           ..
1414 8A06 8C 72           ..
1415 8A08 8B FC           ..
1416 8A0A 8C 67           ..
1417 8A0C 8C 6F           ..
1418 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
1419 8A11 7E 8C 72        ...   jmp 8c72    ;goto7 (exit)
1420 8A14 F6 00 36        ...   ldab 0036
1421 8A17 27 03           '.    beq 03
1422 8A19 7E 8A 9B        ~..   jmp 8a9b             ;goto8
1423 8A1C F6 00 1F        ...   ldab 001f
1424 8A1F C4 40           .@    andb #40
1425 8A21 27 78           'x    beq 78
1426 8A23 F6 0B C0        ...   ldab 0bc0
1427 8A26 C4 02           ..    andb #02
1428 8A28 27 52           'R    beq 52
1429 8A2A F6 0B AA        ...   ldab 0baa
1430 8A2D C1 32           .2    cmpb #32
1431 8A2F 24 22           $"    bcc 22
1432 8A31 F6 0B AA        ...   ldab 0baa
1433 8A34 4F              O     clra
1434 8A35 F3 00 27        ..'   addd 0027
1435 8A38 FD 00 27        ..'   std 0027
1436 8A3B F6 0B AA        ...   ldab 0baa
1437 8A3E 4F              O     clra
1438 8A3F 37              7     pshb
1439 8A40 36              6     psha
1440 8A41 CC 00 FA        ...   ldd #00fa    ; 250 or -6
1441 8A44 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
1442 8A47 B3 00 27        ..'   subd 0027
1443 8A4A 24 05           $.    bcc 05
1444 8A4C 5F              _     clrb
1445 8A4D 4F              O     clra
1446 8A4E FD 00 27        ..'   std 0027
1447 8A51 20 27            '    bra 27
1448 8A53 F6 0B AA        ...   ldab 0baa
1449 8A56 C1 32           .2    cmpb #32
1450 8A58 26 20           &     bne 20
1451 8A5A F6 0B AA        ...   ldab 0baa
1452 8A5D 4F              O     clra
1453 8A5E F3 00 27        ..'   addd 0027
1454 8A61 FD 00 27        ..'   std 0027
1455 8A64 F6 0B AA        ...   ldab 0baa
1456 8A67 4F              O     clra
1457 8A68 37              7     pshb
1458 8A69 36              6     psha
1459 8A6A CC 00 C7        ...   ldd #00c7    ; 199
1460 8A6D BD FB BA        ...   jsr fbba             ;jump38
1461 8A70 B3 00 27        ..'   subd 0027
1462 8A73 24 05           $.    bcc 05
1463 8A75 5F              _     clrb
1464 8A76 4F              O     clra
1465 8A77 FD 00 27        ..'   std 0027
1466 8A7A 20 17            .    bra 17
1467 8A7C F6 0B AA        ...   ldab 0baa
1468 8A7F 4F              O     clra
1469 8A80 F3 00 27        ..'   addd 0027
1470 8A83 FD 00 27        ..'   std 0027
1471 8A86 FC 00 27        ..'   ldd 0027
1472 8A89 83 27 0F        .'.   subd #270f
1473 8A8C 23 05           #.    bls 05
1474 8A8E 5F              _     clrb
1475 8A8F 4F              O     clra
1476 8A90 FD 00 27        ..'   std 0027
1477 8A93 BD 9A 47        ..G   jsr 9a47             ;jump39
1478 8A96 C6 02           ..    ldab #02
1479 8A98 F7 00 36        ..6   stab 0036
1480 goto8:
1481 8A9B CE 00 1B        ...   ldx #001b
1482 8A9E 1C 00 10        ...   bset 00,x, #10
1483 8AA1 CC 02 33        ..3   ldd #0233
1484 8AA4 FD 00 3B        ..;   std 003b
1485 8AA7 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1486 ;
1487 8AAA F6 00 36        ..6   ldab 0036
1488 8AAD 27 03           '.    beq 03
1489 8AAF 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1490 8AB2 F6 00 1F        ...   ldab 001f
1491 8AB5 C4 40           .@    andb #40
1492 8AB7 26 03           &.    bne 03
1493 8AB9 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1494 8ABC F6 0B C0        ...   ldab 0bc0
1495 8ABF C4 02           ..    andb #02
1496 8AC1 27 57           'W    beq 57
1497 8AC3 FC 00 27        ..'   ldd 0027
1498 8AC6 26 18           &.    bne 18
1499 8AC8 F6 0B AA        ...   ldab 0baa
1500 8ACB C1 32           .2    cmpb #32
1501 8ACD 24 11           $.    bcc 11
1502 8ACF F6 0B AA        ...   ldab 0baa
1503 8AD2 4F              O     clra
1504 8AD3 37              7     pshb
1505 8AD4 36              6     psha
1506 8AD5 CC 00 FA        ...   ldd #00fa    ; 250
1507 8AD8 BD FB BA        ...   jsr fbba             ;jump38
1508 8ADB FD 00 27        ..'   std 0027
1509 8ADE 20 38            8    bra 38
1510 8AE0 FC 00 27        ..'   ldd 0027
1511 8AE3 26 18           &.    bne 18
1512 8AE5 F6 0B AA        ...   ldab 0baa
1513 8AE8 C1 32           .2    cmpb #32
1514 8AEA 26 11           &.    bne 11
1515 8AEC F6 0B AA        ...   ldab 0baa
1516 8AEF 4F              O     clra
1517 8AF0 37              7     pshb
1518 8AF1 36              6     psha
1519 8AF2 CC 00 C7        ...   ldd #00c7    ; 199
1520 8AF5 BD FB BA        ...   jsr fbba             ;jump38
1521 8AF8 FD 00 27        ..'   std 0027
1522 8AFB 20 1B            .    bra 1b
1523 8AFD F6 0B AA        ...   ldab 0baa
1524 8B00 4F              O     clra
1525 8B01 B3 00 27        ..'   subd 0027
1526 8B04 22 0D           ".    bhi 0d
1527 8B06 FC 00 27        ..'   ldd 0027
1528 8B09 F0 0B AA        ...   subb 0baa
1529 8B0C 82 00           ..    sbca #00
1530 8B0E FD 00 27        ..'   std 0027
1531 8B11 20 05            .    bra 05
1532 8B13 5F              _     clrb
1533 8B14 4F              O     clra
1534 8B15 FD 00 27        ..'   std 0027
1535 8B18 20 2D            -    bra 2d
1536 8B1A FC 00 27        ..'   ldd 0027
1537 8B1D 26 0D           &.    bne 0d
1538 8B1F CC 27 10        .'.   ldd #2710
1539 8B22 F0 0B AA        ...   subb 0baa
1540 8B25 82 00           ..    sbca #00
1541 8B27 FD 00 27        ..'   std 0027
1542 8B2A 20 1B            .    bra 1b
1543 8B2C F6 0B AA        ...   ldab 0baa
1544 8B2F 4F              O     clra
1545 8B30 B3 00 27        ..'   subd 0027
1546 8B33 22 0D           ".    bhi 0d
1547 8B35 FC 00 27        ..'   ldd 0027
1548 8B38 F0 0B AA        ...   subb 0baa
1549 8B3B 82 00           ..    sbca #00
1550 8B3D FD 00 27        ..'   std 0027
1551 8B40 20 05            .    bra 05
1552 8B42 5F              _     clrb
1553 8B43 4F              O     clra
1554 8B44 FD 00 27        ..'   std 0027
1555 8B47 BD 9A 47        ..G   jsr 9a47             ;jump39
1556 8B4A C6 02           ..    ldab #02
1557 8B4C F7 00 36        ..6   stab 0036
1558 goto9:
1559 8B4F CE 00 1B        ...   ldx #001b
1560 8B52 1C 00 10        ..    bset 00,x, #10
1561 8B55 CC 02 33        ..3   ldd #0233
1562 8B58 FD 00 3B        ..;   std 003b
1563 8B5B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1564 8B5E F6 00 36        ..6   ldab 0036
1565 8B61 26 2C           &,    bne 2c
1566 8B63 F6 00 1F        ...   ldab 001f
1567 8B66 C4 40           .@    andb #40
1568 8B68 27 25           '%    beq 25
1569 8B6A FC 00 46        ..F   ldd 0046
1570 8B6D 83 00 64        ..d   subd #0064
1571 8B70 24 15           $.    bcc 15
1572 8B72 FE 00 46        ..F   ldx 0046
1573 8B75 08              .     inx
1574 8B76 FF 00 46        ..F   stx 0046
1575 8B79 FC 00 46        ..F   ldd 0046
1576 8B7C 83 00 64        ..d   subd #0064
1577 8B7F 25 06           %.    bcs 06
1578 8B81 CC 00 01        ...   ldd #0001
1579 8B84 FD 00 46        ..F   std 0046
1580 8B87 BD 9A 47        ..G   jsr 9a47             ;jump39
1581 8B8A C6 02           ..    ldab #02
1582 8B8C F7 00 36        ..6   stab 0036
1583 8B8F CE 00 1B        ...   ldx #001b
1584 8B92 1C 00 10        ..    bset 00,x, #10
1585 8B95 CC 02 33        ..3   ldd #0233
1586 8B98 FD 00 3B        ..;   std 003b
1587 8B9B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1588 8B9E F6 00 36        ..6   ldab 0036
1589 8BA1 26 29           &)    bne 29
1590 8BA3 F6 00 1F        ...   ldab 001f
1591 8BA6 C4 40           .@    andb #40
1592 8BA8 27 22           '"    beq 22
1593 8BAA FC 00 46        ..F   ldd 0046
1594 8BAD 83 00 00        ...   subd #0000
1595 8BB0 23 12           #.    bls 12
1596 8BB2 FE 00 46        ..F   ldx 0046
1597 8BB5 09              .     dex
1598 8BB6 FF 00 46        ..F   stx 0046
1599 8BB9 FC 00 46        ..F   ldd 0046
1600 8BBC 26 06           &.    bne 06
1601 8BBE CC 00 63        ..c   ldd #0063
1602 8BC1 FD 00 46        ..F   std 0046
1603 8BC4 BD 9A 47        ..G   jsr 9a47             ;jump39
1604 8BC7 C6 02           ..    ldab #02
1605 8BC9 F7 00 36        ..6   stab 0036
1606 8BCC CE 00 1B        ...   ldx #001b
1607 8BCF 1C 00 10        ...   bset 00,x, #10
1608 8BD2 CC 02 33        ..3   ldd #0233
1609 8BD5 FD 00 3B        ..;   std 003b
1610 8BD8 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1611 8BDB F6 00 1F        ...   ldab 001f
1612 8BDE C4 40           .@    andb #40
1613 8BE0 27 15           '.    beq 15
1614 8BE2 F6 00 19        ...   ldab 0019
1615 8BE5 C4 10           ..    andb #10
1616 8BE7 27 08           '.    beq 08
1617 8BE9 CE 00 19        ...   ldx #0019
1618 8BEC 1D 00 10        ...   bclr 00,x, #10
1619 8BEF 20 06            .    bra 06
1620 8BF1 CE 00 19        ...   ldx #0019
1621 8BF4 1C 00 10        ...   bset 00,x, #10
1622 8BF7 BD 9A 47        ..G   jsr 9a47             ;jump39
1623 8BFA 20 76            v    bra 76
1624 8BFC BD A3 85        ...   jsr a385             ;jump40
1625 8BFF F6 00 06        ...   ldab 0006
1626 8C02 C1 64           .d    cmpb #64
1627 8C04 24 24           $$    bcc 24
1628 8C06 BD 97 6F        ..o   jsr 976f             ;jump41
1629 8C09 F6 00 06        ...   ldab 0006
1630 8C0C BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1631 8C0F 83 00 00        ...   subd #0000
1632 8C12 27 16           '.    beq 16
1633 8C14 F6 00 06        ...   ldab 0006
1634 8C17 C1 09           ..    cmpb #09
1635 8C19 26 03           &.    bne 03
1636 8C1B BD 97 6F        ..o   jsr 976f             ;jump41
1637 8C1E F6 00 06        ...   ldab 0006
1638 8C21 C1 45           .E    cmpb #45
1639 8C23 26 05           &.    bne 05
1640 8C25 C6 01           ..    ldab #01
1641 8C27 F7 00 06        ...   stab 0006
1642 8C2A F6 0E 6D        ..m   ldab 0e6d
1643 8C2D C1 01           ..    cmpb #01
1644 8C2F 26 11           &.    bne 11
1645 8C31 F6 00 06        ...   ldab 0006
1646 8C34 4F              O     clra
1647 8C35 05              .     asld
1648 8C36 C3 08 C8        ...   addd #08c8
1649 8C39 8F              .     xgdx
1650 8C3A EC 00           ..    ldd 00,x
1651 8C3C C4 7F           ..    andb #7f
1652 8C3E 4F              O     clra
1653 8C3F FD 00 46        ..F   std 0046
1654 8C42 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1655 8C45 83 00 00        ...   subd #0000
1656 8C48 26 12           &.    bne 12
1657 8C4A CE 00 1F        ...   ldx #001f
1658 8C4D 1C 00 40        ...   bset 00,x, #40
1659 8C50 FC 00 27        ..'   ldd 0027
1660 8C53 83 27 0F        .'.   subd #270f
1661 8C56 23 02           #.    bls 02
1662 8C58 8D 19           ..    bsr dest 19
1663 8C5A 20 06            .    bra 06
1664 8C5C CE 00 1F        ...   ldx #001f
1665 8C5F 1D 00 40        ...   bclr 00,x, #40
1666 8C62 BD 9A 47        ..G   jsr 9a47             ;jump39
1667 8C65 20 0B            .    bra 0b
1668 8C67 BD A3 85        ...   jsr a385             ;jump40
1669 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1670 8C6D 20 03            .    bra 03
1671 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1672 goto7:
1673 8C72 39              9     rts
1674
1675 jump75:
1676 ;fetches a price & other info for the given slot?
1677 8C73 F6 00 06        ...   ldab 0006
1678 8C76 4F              O     clra
1679 8C77 05              .     asld
1680 8C78 C3 08 00        ...   addd #0800
1681 8C7B 8F              .     xgdx
1682 8C7C EC 00           ..    ldd 00,x
1683 8C7E C4 FF           ..    andb #ff
1684 8C80 84 3F           .?    anda #3f
1685 8C82 FD 00 27        ..'   std 0027
1686 8C85 F6 00 06        ...   ldab 0006
1687 8C88 4F              O     clra
1688 8C89 05              .     asld
1689 8C8A C3 08 C8        ...   addd #08c8
1690 8C8D 8F              .     xgdx
1691 8C8E EC 00           ..    ldd 00,x
1692 8C90 C4 7F           ..    andb #7f
1693 8C92 4F              O     clra
1694 8C93 FD 00 46        ..F   std 0046
1695 8C96 F6 00 06        ...   ldab 0006
1696 8C99 4F              O     clra
1697 8C9A 05              .     asld
1698 8C9B C3 08 C8        ...   addd #08c8
1699 8C9E 8F              .     xgdx
1700 8C9F EC 00           ..    ldd 00,x
1701 8CA1 84 08           ..    anda #08
1702 8CA3 27 08           '.    beq 08
1703 8CA5 CE 00 19        ...   ldx #0019
1704 8CA8 1C 00 10        ...   bset 00,x, #10 ; corresponds to whatever '*' is on price display
1705 8CAB 20 06            .    bra 06
1706 8CAD CE 00 19        ...   ldx #0019
1707 8CB0 1D 00 10        ...   bclr 00,x, #10
1708 8CB3 39              9     rts
1709
1710 jump18:
1711 ; program smart shopping discount
1712 8CB4 F6 00 1F        ...   ldab 001f
1713 8CB7 C4 02           ..    andb #02
1714 8CB9 27 12           '.    beq 12
1715 8CBB FC 0B B7        ...   ldd 0bb7
1716 8CBE FD 00 0D        ...   std 000d
1717 8CC1 CE 00 1F        ...   ldx #001f
1718 8CC4 1D 00 02        ...   bclr 00,x, #02
1719 8CC7 7F 00 36        ..6   clr 0036
1720 8CCA 7E 8E 34        ~.4   jmp 8e34             ;goto10
1721 8CCD F6 00 09        ...   ldab 0009
1722 8CD0 4F              O     clra
1723 8CD1 BD FE 32        ..2   jsr fe32             ;jump25
1724 8CD4 8C EE 00 00     ....  ; array data for jump25
1725 8CD8 8C F4 00 01     ....
1726 8CDC 8D 80 00 01     ....
1727 8CE0 8E 29 00 08     .)..
1728 8CE4 8E 31 00 01     .1..
1729 8CE8 8E 34 FF F5     .4.
1730 8CEC 00 00           ...   ; end of array data
1731 8CEE BD 9B 63        ..c   jsr 9b63             ;jump101
1732 8CF1 7E 8E 34        ~.4   jmp 8e34             ;goto10
1733 8CF4 F6 00 36        ..6   ldab 0036
1734 8CF7 26 78           &x    bne 78
1735 8CF9 F6 0B C0        ...   ldab 0bc0
1736 8CFC C4 02           ..    andb #02
1737 8CFE 27 52           'R    beq 52
1738 8D00 F6 0B AA        ...   ldab 0baa
1739 8D03 C1 32           .2    cmpb #32
1740 8D05 24 22           $"    bcc 22
1741 8D07 F6 0B AA        ...   ldab 0baa
1742 8D0A 4F              O     clra
1743 8D0B F3 00 0D        ...   addd 000d
1744 8D0E FD 00 0D        ...   std 000d
1745 8D11 F6 0B AA        ...   ldab 0baa
1746 8D14 4F              O     clra
1747 8D15 37              7     pshb
1748 8D16 36              6     psha
1749 8D17 CC 00 FA        ...   ldd #00fa    ; 250
1750 8D1A BD FB BA        ...   jsr fbba             ;jump38
1751 8D1D B3 00 0D        ...   subd 000d
1752 8D20 24 05           $.    bcc 05
1753 8D22 5F              _     clrb
1754 8D23 4F              O     clra
1755 8D24 FD 00 0D        ...   std 000d
1756 8D27 20 27            '    bra 27
1757 8D29 F6 0B AA        ...   ldab 0baa
1758 8D2C C1 32           .2    cmpb #32
1759 8D2E 26 20           &     bne 20
1760 8D30 F6 0B AA        ...   ldab 0baa
1761 8D33 4F              O     clra
1762 8D34 F3 00 0D        ...   addd 000d
1763 8D37 FD 00 0D        ...   std 000d
1764 8D3A F6 0B AA        ...   ldab 0baa
1765 8D3D 4F              O     clra
1766 8D3E 37              7     pshb
1767 8D3F 36              6     psha
1768 8D40 CC 00 C7        ...   ldd #00c7    ; 199
1769 8D43 BD FB BA        ...   jsr fbba             ;jump38
1770 8D46 B3 00 0D        ...   subd 000d
1771 8D49 24 05           $.    bcc 05
1772 8D4B 5F              _     clrb
1773 8D4C 4F              O     clra
1774 8D4D FD 00 0D        ...   std 000d
1775 8D50 20 17            .    bra 17
1776 8D52 F6 0B AA        ...   ldab 0baa
1777 8D55 4F              O     clra
1778 8D56 F3 00 0D        ...   addd 000d
1779 8D59 FD 00 0D        ...   std 000d
1780 8D5C FC 00 0D        ...   ldd 000d
1781 8D5F 83 27 0F        .'.   subd #270f
1782 8D62 23 05           #.    bls 05
1783 8D64 5F              _     clrb
1784 8D65 4F              O     clra
1785 8D66 FD 00 0D        ...   std 000d
1786 8D69 BD 9B 63        ..c   jsr 9b63             ;jump101
1787 8D6C C6 02           ..    ldab #02
1788 8D6E F7 00 36        ..6   stab 0036
1789 8D71 CE 00 1B        ...   ldx #001b
1790 8D74 1C 00 10        ..    bset 00,x, #10
1791 8D77 CC 02 33        ..3   ldd #0233
1792 8D7A FD 00 3B        ..;   std 003b
1793 8D7D 7E 8E 34        ~.4   jmp 8e34             ;goto10
1794 8D80 F6 00 36        ..6   ldab 0036
1795 8D83 27 03           '.    beq 03
1796 8D85 7E 8E 1B        ~..   jmp 8e1b             ;goto11
1797 8D88 F6 0B C0        ...   ldab 0bc0
1798 8D8B C4 02           ..    andb #02
1799 8D8D 27 57           'W    beq 57
1800 8D8F FC 00 0D        ...   ldd 000d
1801 8D92 26 18           &.    bne 18
1802 8D94 F6 0B AA        ...   ldab 0baa
1803 8D97 C1 32           .2    cmpb #32
1804 8D99 24 11           $.    bcc 11
1805 8D9B F6 0B AA        ...   ldab 0baa
1806 8D9E 4F              O     clra
1807 8D9F 37              7     pshb
1808 8DA0 36              6     psha
1809 8DA1 CC 00 FA        ...   ldd #00fa    ; 250
1810 8DA4 BD FB BA        ...   jsr fbba             ;jump38
1811 8DA7 FD 00 0D        ...   std 000d
1812 8DAA 20 38            8    bra 38
1813 8DAC FC 00 0D        ...   ldd 000d
1814 8DAF 26 18           &.    bne 18
1815 8DB1 F6 0B AA        ...   ldab 0baa
1816 8DB4 C1 32           .2    cmpb #32
1817 8DB6 26 11           &.    bne 11
1818 8DB8 F6 0B AA        ...   ldab 0baa
1819 8DBB 4F              O     clra
1820 8DBC 37              7     pshb
1821 8DBD 36              6     psha
1822 8DBE CC 00 C7        ...   ldd #00c7    ; 199
1823 8DC1 BD FB BA        ...   jsr fbba             ;jump38
1824 8DC4 FD 00 0D        ...   std 000d
1825 8DC7 20 1B            .    bra 1b
1826 8DC9 F6 0B AA        ...   ldab 0baa
1827 8DCC 4F              O     clra
1828 8DCD B3 00 0D        ...   subd 000d
1829 8DD0 22 0D           ".    bhi 0d
1830 8DD2 FC 00 0D        ...   ldd 000d
1831 8DD5 F0 0B AA        ...   subb 0baa
1832 8DD8 82 00           ..    sbca #00
1833 8DDA FD 00 0D        ...   std 000d
1834 8DDD 20 05            .    bra 05
1835 8DDF 5F              _     clrb
1836 8DE0 4F              O     clra
1837 8DE1 FD 00 0D        ...   std 000d
1838 8DE4 20 2D            -    bra 2d
1839 8DE6 FC 00 0D        ...   ldd 000d
1840 8DE9 26 0D           &.    bne 0d
1841 8DEB CC 27 10        .'.   ldd #2710
1842 8DEE F0 0B AA        ...   subb 0baa
1843 8DF1 82 00           ..    sbca #00
1844 8DF3 FD 00 0D        ...   std 000d
1845 8DF6 20 1B            .    bra 1b
1846 8DF8 F6 0B AA        ...   ldab 0baa
1847 8DFB 4F              O     clra
1848 8DFC B3 00 0D        ...   subd 000d
1849 8DFF 22 0D           ".    bhi 0d
1850 8E01 FC 00 0D        ...   ldd 000d
1851 8E04 F0 0B AA        ...   subb 0baa
1852 8E07 82 00           ..    sbca #00
1853 8E09 FD 00 0D        ...   std 000d
1854 8E0C 20 05            .    bra 05
1855 8E0E 5F              _     clrb
1856 8E0F 4F              O     clra
1857 8E10 FD 00 0D        ...   std 000d
1858 8E13 BD 9B 63        ..c   jsr 9b63             ;jump101
1859 8E16 C6 02           ..    ldab #02
1860 8E18 F7 00 36        ..6   stab 0036
1861 goto11:
1862 8E1B CE 00 1B        ...   ldx #001b
1863 8E1E 1C 00 10        ...   bset 00,x, #10
1864 8E21 CC 02 33        ..3   ldd #0233
1865 8E24 FD 00 3B        ..;   std 003b
1866 8E27 20 0B            .    bra 0b
1867 8E29 BD A4 4F        ..O   jsr a44f             ;jump140
1868 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1869 8E2F 20 03            .    bra 03
1870 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1871 goto10:
1872 8E34 39              9     rts
1873
1874 jump19:
1875 ; manual peripheral config menu
1876 8E35 F6 00 1F        ...   ldab 001f
1877 8E38 C4 02           ..    andb #02
1878 8E3A 27 1E           '.    beq 1e
1879 8E3C 7F 00 48        ..H   clr 0048
1880 8E3F F6 0B C0        ...   ldab 0bc0
1881 8E42 F7 00 67        ..g   stab 0067
1882 8E45 F6 0E 6D        ..m   ldab 0e6d
1883 8E48 F7 0E 6F        ..o   stab 0e6f
1884 8E4B F6 0E 6E        ..n   ldab 0e6e
1885 8E4E F7 0E 70        ..p   stab 0e70
1886 8E51 CE 00 1F        ...   ldx #001f
1887 8E54 1D 00 02        ...   bclr 00,x, #02
1888 8E57 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1889 8E5A F6 00 09        ...   ldab 0009
1890 8E5D 4F              O     clra
1891 8E5E BD FE 32        ..2   jsr fe32             ;jump25
1892 8E61 8E 7B 00 00     .{..  ; no key
1893 8E65 8E 81 00 01     ....  ; key 1 - toggle?
1894 8E69 8E 87 00 04     ....  ; key 5 - save and next
1895 8E6D 8F 01 00 05     ....  ; key 0 - exit
1896 8E71 8F 09 00 01     ....  ; key reset - exit
1897 8E75 8F 0C FF F5     ....  ; default
1898 8E79 00 00           ..    ; end of array data
1899 ;
1900 8E7B BD 9C 15        ...   jsr 9c15             ;jump111 - write the option name
1901 8E7E 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1902 ;
1903 8E81 BD A7 5F        .._   jsr a75f             ;jump133
1904 8E84 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1905 ;
1906 8E87 F6 00 48        ..H   ldab 0048
1907 8E8A C1 08           ..    cmpb #08
1908 8E8C 25 05           %.    bcs 05
1909 8E8E F6 00 67        ..g   ldab 0067
1910 8E91 2D 03           -.    blt 03
1911 8E93 BD A4 59        ..Y   jsr a459             ;jump110
1912 8E96 F6 00 48        ..H   ldab 0048
1913 8E99 C1 0A           ..    cmpb #0a
1914 8E9B 24 5F           $_    bcc 5f
1915 8E9D 7C 00 48        |.H   inc 0048
1916 8EA0 F6 00 48        ..H   ldab 0048
1917 8EA3 C1 01           ..    cmpb #01
1918 8EA5 26 0F           &.    bne 0f
1919 ;
1920 8EA7 F6 00 67        ..g   ldab 0067
1921 8EAA C4 02           ..    andb #02
1922 8EAC 26 08           &.    bne 08
1923 8EAE F6 00 48        ..H   ldab 0048
1924 8EB1 CB 02           ..    addb #02
1925 8EB3 F7 00 48        ..H   stab 0048
1926 ;
1927 8EB6 F6 00 48        ..H   ldab 0048
1928 8EB9 C1 02           ..    cmpb #02
1929 8EBB 26 0A           &.    bne 0a
1930 8EBD F6 00 67        ..g   ldab 0067
1931 8EC0 C4 10           ..    andb #10
1932 8EC2 26 03           &.    bne 03
1933 8EC4 7C 00 48        |.H   inc 0048
1934 8EC7 F6 00 48        ..H   ldab 0048
1935 8ECA C1 06           ..    cmpb #06
1936 8ECC 26 0F           &.    bne 0f
1937 8ECE F6 00 67        ..g   ldab 0067
1938 8ED1 C4 08           ..    andb #08
1939 8ED3 26 08           &.    bne 08
1940 8ED5 C6 02           ..    ldab #02
1941 8ED7 FB 00 48        ..H   addb 0048
1942 8EDA F7 00 48        ..H   stab 0048
1943 8EDD F6 00 48        ..H   ldab 0048
1944 8EE0 C1 0A           ..    cmpb #0a
1945 8EE2 26 08           &.    bne 08
1946 8EE4 F6 00 67        ..g   ldab 0067
1947 8EE7 2D 03           -.    blt 03
1948 8EE9 7C 00 48        |.H   inc 0048
1949 8EEC F6 00 48        ..H   ldab 0048
1950 8EEF C1 0A           ..    cmpb #0a
1951 8EF1 23 09           #.    bls 09
1952 8EF3 7F 00 48        ..H   clr 0048
1953 8EF6 F6 0B C0        ...   ldab 0bc0
1954 8EF9 F7 00 67        ..g   stab 0067
1955 8EFC BD 9C 15        ...   jsr 9c15             ;jump111 - write the next option
1956 8EFF 20 0B            .    bra 0b
1957 ;
1958 8F01 BD A4 59        ..Y   jsr a459             ;jump110
1959 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1960 8F07 20 03            .    bra 03
1961 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1962 goto12:
1963 8F0C 39              9     rts
1964
1965 jump20:
1966 ; promotional vend-pair programming (buy one thing get another free?)
1967 8F0D F6 00 1F        ...   ldab 001f
1968 8F10 C4 02           ..    andb #02
1969 8F12 27 1D           '.    beq 1d
1970 8F14 C6 01           ..    ldab #01
1971 8F16 F7 00 22        .."   stab 0022
1972 8F19 F6 0B AF        ...   ldab 0baf
1973 8F1C F7 00 24        ..$   stab 0024
1974 8F1F F6 0B B4        ...   ldab 0bb4
1975 8F22 F7 00 2A        ..*   stab 002a
1976 8F25 CE 00 1F        ...   ldx #001f
1977 8F28 1D 00 02        ..    bclr 00,x, #02
1978 8F2B 7F 00 36        ..6   clr 0036
1979 8F2E 7E 90 D0        ~..   jmp 90d0             ;goto13
1980 8F31 F6 00 09        ...   ldab 0009
1981 8F34 4F              O     clra
1982 8F35 BD FE 16        ...   jsr fe16             ;jump2
1983 8F38 00 00 00 0B     ....  ; params for jump2
1984 8F3C 90 D0           ..
1985 8F3E 8F 56           ..
1986 8F40 8F 5C           ..
1987 8F42 8F B3           ..
1988 8F44 90 0C           ..
1989 8F46 90 62           ..
1990 8F48 90 BA           ..
1991 8F4A 90 DO           ..
1992 8F4C 90 D0           ..
1993 8F4E 90 D0           ..
1994 8F50 90 DO           ..
1995 8F52 90 C5           ..
1996 8F54 90 CD           ..
1997 8F56 BD 9D 2A        ..*   jsr 9d2a             ;jump89
1998 8F59 7E 90 D0        ~..   jmp 90d0             ;goto13
1999 8F5C F6 00 36        ..6   ldab 0036
2000 8F5F 26 43           &C    bne 43
2001 8F61 F6 00 24        ..$   ldab 0024
2002 8F64 C1 64           .d    cmpb #64
2003 8F66 24 34           $4    bcc 34
2004 8F68 7C 00 24        |.$   inc 0024
2005 8F6B F6 00 24        ..$   ldab 0024
2006 8F6E F7 00 06        ...   stab 0006
2007 8F71 F6 00 06        ...   ldab 0006
2008 8F74 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2009 8F77 83 00 00        ...   subd #0000
2010 8F7A 27 03           '.    beq 03
2011 8F7C 7C 00 24        |.$   inc 0024
2012 8F7F F6 00 24        ..$   ldab 0024
2013 8F82 C1 64           .d    cmpb #64
2014 8F84 26 03           &.    bne 03
2015 8F86 7F 00 24        ..$   clr 0024
2016 8F89 F6 00 24        ..$   ldab 0024
2017 8F8C 4F              O     clra
2018 8F8D CE 00 05        ...   ldx #0005
2019 8F90 02              .     idiv
2020 8F91 5D              ]     tstb
2021 8F92 26 08           &.    bne 08
2022 8F94 F6 00 24        ..$   ldab 0024
2023 8F97 27 03           '.    beq 03
2024 8F99 7C 00 24        |.$   inc 0024
2025 8F9C BD 9D 2A        ..*   jsr 8d2a             ;jump89
2026 8F9F C6 02           ..    ldab #02
2027 8FA1 F7 00 36        ..6   stab 0036
2028 8FA4 CE 00 1B        ...   ldx #001b
2029 8FA7 1C 00 10        ...   bset 00,x, #10
2030 8FAA CC 02 33        ..3   ldd #0233
2031 8FAD FD 00 3B        ..;   std 003b
2032 8FB0 7E 90 D0        ~..   jmp 90d0             ;goto13
2033 8FB3 F6 00 36        ..6   ldab 0036
2034 8FB6 26 45           &E    bne 45
2035 8FB8 F6 00 24        ..$   ldab 0024
2036 8FBB C1 00           ..    cmpb #00
2037 8FBD 23 2C           #,    bls 2c
2038 8FBF 7A 00 24        z.$   dec 0024
2039 8FC2 F6 00 24        ..$   ldab 0024
2040 8FC5 4F              O     clra
2041 8FC6 CE 00 05        ...   ldx #0005
2042 8FC9 02              .     idiv
2043 8FCA 5D              ]     tstb
2044 8FCB 26 08           &.    bne 08
2045 8FCD F6 00 24        ..$   ldab 0024
2046 8FD0 27 03           '.    beq 03
2047 8FD2 7A 00 24        z.$   dec 0024
2048 8FD5 F6 00 24        ..$   ldab 0024
2049 8FD8 F7 00 06        ...   stab 0006
2050 8FDB F6 00 06        ...   ldab 0006
2051 8FDE BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2052 8FE1 83 00 00        ...   subd #0000
2053 8FE4 27 03           '.    beq 03
2054 8FE6 7A 00 24        z.$   dec 0024
2055 8FE9 20 0A            .    bra 0a
2056 8FEB F6 00 24        ..$   ldab 0024
2057 8FEE 26 05           &.    bne 05
2058 8FF0 C6 62           .b    ldab #62
2059 8FF2 F7 00 24        ..$   stab 0024
2060 8FF5 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2061 8FF8 C6 02           ..    ldab #02
2062 8FFA F7 00 36        ..6   stab 0036
2063 8FFD CE 00 1B        ...   ldx #001b
2064 9000 1C 00 10        ...   bset 00,x, #10
2065 9003 CC 02 33        ..3   ldd #0233
2066 9006 FD 00 3B        ..;   std 003b
2067 9009 7E 90 D0        ~..   jmp 90d0             ;goto13
2068 900C F6 00 36        ..6   ldab 0036
2069 900F 26 43           &C    bne 43
2070 9011 F6 00 2A        ..*   ldab 002a
2071 9014 C1 64           .d    cmpb #64
2072 9016 24 34           $4    bcc 34
2073 9018 7C 00 2A        |.*   inc 002a
2074 901B F6 00 2A        ..*   ldab 002a
2075 901E F7 00 06        ...   stab 0006
2076 9021 F6 00 06        ...   ldab 0006
2077 9024 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2078 9027 83 00 00        ...   subd #0000
2079 902A 27 03           '.    beq 03
2080 902C 7C 00 2A        |.*   inc 002a
2081 902F F6 00 2A        ..*   ldab 002a
2082 9032 C1 64           .d    cmpb #64
2083 9034 26 03           &.    bne 03
2084 9036 7F 00 2A        ..*   clr 002a
2085 9039 F6 00 2A        ..*   ldab 002a
2086 903C 4F              O     clra
2087 903D CE 00 05        ...   ldx #0005
2088 9040 02              .     idiv
2089 9041 5D              ]     tstb
2090 9042 26 08           &.    bne 08
2091 9044 F6 00 2A        ..*   ldab 002a
2092 9047 27 03           '.    beq 03
2093 9049 7C 00 2A        |.*   inc 002a
2094 904C BD 9D 2A        ..*   jsr 9d2a             ;jump89
2095 904F C6 02           ..    ldab #02
2096 9051 F7 00 36        ..6   stab 0036
2097 9054 CE 00 1B        ...   ldx #001b
2098 9057 1C 00 10        ...   bset 00,x, #10
2099 905A CC 02 33        ..3   ldd #0233
2100 905D FD 00 3B        ..;   std 003b
2101 9060 20 6E            n    bra 6e
2102 9062 F6 00 36        ..6   ldab 0036
2103 9065 26 45           &E    bne 45
2104 9067 F6 00 2A        ..*   ldab 002a
2105 906A C1 00           ..    cmpb #00
2106 906C 23 2C           #,    bls 2c
2107 906E 7A 00 2A        z.*   dec 002a
2108 9071 F6 00 2A        ..*   ldab 002a
2109 9074 4F              O     clra
2110 9075 CE 00 05        ...   ldx #0005
2111 9078 02              .     idiv
2112 9079 5D              ]     tstb
2113 907A 26 08           &.    bne 08
2114 907C F6 00 2A        ..*   ldab 002a
2115 907F 27 03           '.    beq 03
2116 9081 7A 00 2A        z.*   dec 002a
2117 9084 F6 00 2A        ..*   ldab 002a
2118 9087 F7 00 06        ...   stab 0006
2119 908A F6 00 06        ...   ldab 0006
2120 908D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2121 9090 83 00 00        ...   subd #0000
2122 9093 27 03           '.    beq 03
2123 9095 7A 00 2A        z.*   dec 002a
2124 9098 20 0A            .    bra 0a
2125 909A F6 00 2A        ..*   ldab 002a
2126 909D 26 05           &.    bne 05
2127 909F C6 62           .b    ldab #62
2128 90A1 F7 00 2A        ..*   stab 002a
2129 90A4 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2130 90A7 C6 02           ..    ldab #02
2131 90A9 F7 00 36        ..6   stab 0036
2132 90AC CE 00 1B        ...   ldx #001b
2133 90AF 1C 00 10        ...   bset 00,x, #10
2134 90B2 CC 02 33        ..3   ldd #0233
2135 90B5 FD 00 3B        ..;   std 003b
2136 90B8 20 16            .    bra 16
2137 90BA BD A5 1E        ...   jsr a51e             ;jump109
2138 90BD BD AA 9A        ...   jsr aa9a             ;jump127
2139 90C0 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2140 90C3 20 0B            .    bra 0b
2141 90C5 BD A5 1E        ...   jsr a51e             ;jump109
2142 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2143 90CB 20 03            .    bra 03
2144 90CD BD 85 AF        ...   jsr 85af             ;jump14
2145 goto13:
2146 90D0 39              9     rts
2147
2148 jump21:
2149 ; pos message & serial id
2150 90D1 F6 00 1F        ...   ldab 001f
2151 90D4 C4 02           ..    andb #02
2152 90D6 27 14           '.    beq 14
2153 90D8 CE 00 1F        ...   ldx #001f
2154 90DB 1D 00 02        ...   bclr 00,x, #02
2155 90DE CE 00 19        ...   ldx #0019
2156 90E1 1C 00           ..    bset add,x 00,x
2157 90E3 80 7F           ..    suba #7f
2158 90E5 00              .     test
2159 90E6 09              .     dex
2160 90E7 7F 00 0A        ...   clr 000a
2161 90EA 20 40            @    bra 40
2162 90EC F6 00 09        ...   ldab 0009
2163 90EF 4F              O     clra
2164 90F0 BD FE 32        ..2   jsr fe32             ;jump25
2165 90F3 91 0D 00 00     ....  ; array data for jump25
2166 90F7 91 15 00 01     ....
2167 90FB 91 19 00 01     ....
2168 90FF 91 1E 00 01     ....
2169 9103 91 23 00 08     .#..
2170 9107 91 26 FF F5     .&..
2171 910B 00 00           ..    ; end of array data
2172 910D CC B0 AD        ...   ldd #b0ad    ; "PROGRAM  ?"
2173 9110 BD C0 BA        ...   jsr c0ba             ;display:
2174 9113 20 17            .    bra 17
2175 9115 8D 16           ..    bsr dest 16
2176 9117 20 13            .    bra 13
2177 9119 BD 91 C6        ...   jsr 91c6             ;jump76
2178 911C 20 0E            .    bra 0e
2179 911E BD 92 5A        ..Z   jsr 925a             ;jump149
2180 9121 20 09            .    bra 09
2181 9123 BD 85 AF        ...   jsr 85af             ;jump14
2182 9126 7F 00 09        ...   clr 0009
2183 9129 7F 00 0A        ...   clr 000a
2184 912C 39              9     rts
2185 ;
2186 912D F6 00 19        ...   ldab 0019
2187 9130 2C 28           ,(    bge 28
2188 9132 BD A9 CF        ...   jsr a9cf             ;jump131
2189 9135 C6 50           .P    ldab #50
2190 9137 F7 0A 90        ...   stab 0a90
2191 913A C6 20           .     ldab #20
2192 913C F7 0B 8D        ...   stab 0b8d
2193 913F C6 20           .     ldab #20
2194 9141 F7 0B 8E        ...   stab 0b8e
2195 9144 C6 28           .(    ldab #28
2196 9146 F7 0B 8F        ...   stab 0b8f
2197 9149 7F 00 54        ..T   clr 0054
2198 914C 7F 00 60        ..`   clr 0060
2199 914F CE 00 19        ...   ldx #0019
2200 9152 1D 00           ..    bclr add,x 00,x
2201 9154 80 7F           ..    suba #7f
2202 9156 00              .     test
2203 9157 36              6     psha
2204 9158 20 6B            k    bra 6b
2205 915A F6 00 0A        ...   ldab 000a
2206 915D 4F              O     clra
2207 915E BD FE 16        ...   jsr fe16             ;jump2
2208 9161 00              .     test
2209 9162 00              .     test
2210 9163 00              .     test
2211 9164 0B              .     sev
2212 9165 91 C5 91        ...   cmpa c5
2213 9168 7F 91 84        ...   clr 9184
2214 916B 91 89 91        ...   cmpa 89
2215 916E 8E 91 9F        ...   lds #919f
2216 9171 91 B0 91        ...   cmpa b0
2217 9174 C5 91           ..    bitb #91
2218 9176 C5 91           ..    bitb #91
2219 9178 C5 91           ..    bitb #91
2220 917A B5 91 BA        ...   bita 91ba
2221 917D 91 C2 BD        ...   cmpa c2
2222 9180 9D 7E 20        .~    jsr 7e
2223 9183 41              A     illegal
2224 9184 BD A8 64        ..d   jsr a864             ;jump99
2225 9187 20 3C            <    bra 3c
2226 9189 BD A8 D5        ...   jsr a8d5             ;jump97
2227 918C 20 37            7    bra 37
2228 918E BD A8 96        ...   jsr a896             ;jump98
2229 9191 CE 00 1B        ...   ldx #001b
2230 9194 1C 00 10        ...   bset 00,x, #10
2231 9197 CC 02 33        ..3   ldd #0233
2232 919A FD 00 3B        ..;   std 003b
2233 919D 20 26            &    bra 26
2234 919F BD A8 E5        ...   jsr a8e5             ;jump96
2235 91A2 CE 00 1B        ...   ldx #001b
2236 91A5 1C 00 10        ...   bset 00,x, #10
2237 91A8 CC 02 33        ..3   ldd #0233
2238 91AB FD 00 3B        ..;   std 003b
2239 91AE 20 15            .    bra 15
2240 91B0 BD A9 21        ..!   jsr a921             ;jump95
2241 91B3 20 10            .    bra 10
2242 91B5 BD A9 7A        ..z   jsr a97a             ;jump132
2243 91B8 20 0B            .    bra 0b
2244 91BA BD A5 7D        ..}   jsr a57d             ;jump139
2245 91BD BD 85 AF        ...   jsr 85af             ;jump14
2246 91C0 20 03            .    bra 03
2247 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2248 91C5 39              9     rts
2249
2250 jump76:
2251 91C6 F6 00 19        ...   ldab 0019
2252 91C9 2C 28           ,(    bge 28
2253 91CB BD AA 0A        ...   jsr aa0a             ;jump130
2254 91CE C6 53           .S    ldab #53     ; "S"
2255 91D0 F7 0A 90        ...   stab 0a90
2256 91D3 C6 20           .     ldab #20     ; " "
2257 91D5 F7 0A 9D        ...   stab 0a9d
2258 91D8 C6 20           .     ldab #20     ; " "
2259 91DA F7 0A 9E        ...   stab 0a9e
2260 91DD C6 28           .(    ldab #28     ; "("
2261 91DF F7 0A 9F        ...   stab 0a9f
2262 91E2 7F 00 54        ..T   clr 0054
2263 91E5 7F 00 60        ..`   clr 0060
2264 91E8 CE 00 19        ...   ldx #0019
2265 91EB 1D 00 80        ..    bclr 00,x, #80
2266 91EE 7F 00 36        ..    clr 0036
2267 91F1 20 66            f    bra 66
2268 91F3 F6 00 0A        ...   ldab 000a
2269 91F6 4F              O     clra
2270 91F7 BD FE 16        ...   jsr fe16             ;jump2
2271 91FA 00 00 00 08     .
2272 91FE 92 59           ..
2273 9200 92 18           ..
2274 9202 92 1D           ..
2275 9204 92 22           ..
2276 9206 92 27           ..
2277 9208 92 38           ..
2278 920A 92 49           ..
2279 920C 92 59           ..
2280 920E 92 59           ..
2281 9210 92 59           ..
2282 9212 92 59           ..
2283 9214 92 4E           ..
2284 9216 92 56           ..
2285 9218 BD 9D 7E        ..    jsr 9d7e
2286 921B 20 3C           .~    bra 3c
2287 921D BD A8 64        ..d   jsr a864             ;jump99
2288 9220 20 37            7    bra 37
2289 9222 BD A8 D5        ...   jsr a8d5             ;jump97
2290 9225 20 32            2    bra 32
2291 9227 BD A8 96        ...   jsr a896             ;jump98
2292 922A CE 00 1B        ...   ldx #001b
2293 922D 1C 00 10        ...   bset 00,x, #10
2294 9230 CC 02 33        ..3   ldd #0233
2295 9233 FD 00 3B        ..;   std 003b
2296 9236 20 21            !    bra 21
2297 9238 BD A8 E5        ...   jsr a8e5             ;jump96
2298 923B CE 00 1B        ...   ldx #001b
2299 923E 1C 00 10        ...   bset 00,x, #10
2300 9241 CC 02 33        ..3   ldd #0233
2301 9244 FD 00 3B        ..;   std 003b
2302 9247 20 10            .    bra 10
2303 9249 BD A9 21        ..!   jsr a921             ;jump95
2304 924C 20 0B            .    bra 0b
2305 924E BD A5 AC        ...   jsr a5ac             ;jump138
2306 9251 BD 85 AF        ...   jsr 85af             ;jump14
2307 9254 20 03            .    bra 03
2308 9256 BD 85 AF        ...   jsr 85af             ;jump14
2309 9259 39              9     rts
2310
2311 jump149:
2312 925A F6 00 19        ...   ldab 0019
2313 925D 2C 28           ,(    bge 28
2314 925F BD AA 3F        ..?   jsr aa3f             ;jump129
2315 9262 C6 49           .I    ldab #49
2316 9264 F7 0A 90        ...   stab 0a90
2317 9267 C6 20           .     ldab #20
2318 9269 F7 0A 9D        ...   stab 0a9d
2319 926C C6 20           .     ldab #20
2320 926E F7 0A 9E        ...   stab 0a9e
2321 9271 C6 28           .(    ldab #28
2322 9273 F7 0A 9F        ...   stab 0a9f
2323 9276 7F 00 54        ..T   clr 0054
2324 9279 7F 00 60        ..`   clr 0060
2325 927C CE 00 19        ...   ldx #0019
2326 927F 1D 00           ..    bclr add,x 00,x
2327 9281 80 7F           ..    suba #7f
2328 9283 00              .     test
2329 9284 36              6     psha
2330 9285 20 66            f    bra 66
2331 9287 F6 00 0A        ...   ldab 000a
2332 928A 4F              O     clra
2333 928B BD FE 16        ...   jsr fe16             ;jump2
2334 928E 00              .     test
2335 928F 00              .     test
2336 9290 00              .     test
2337 9291 0B              .     sev
2338 9292 92 ED 92        ...   sbca ed
2339 9295 AC 92           ..    cpx 92,x
2340 9297 B1 92 B6        ...   cmpa 92b6
2341 929A 92 BB 92        ...   sbca bb
2342 929D CC 92 DD        ...   ldd #92dd
2343 92A0 92 ED 92        ...   sbca ed
2344 92A3 ED 92           ..    std 92,x
2345 92A5 ED 92           ..    std 92,x
2346 92A7 ED 92           ..    std 92,x
2347 92A9 E2 92           ..    sbcb 92,x
2348 92AB EA BD           ..    orb bd,x
2349 92AD 9D 7E 20        .~    jsr 7e
2350 92B0 3C              <     pshx
2351 92B1 BD A8 64        ..d   jsr a864             ;jump99
2352 92B4 20 37            7    bra 37
2353 92B6 BD A8 D5        ...   jsr a8d5             ;jump97
2354 92B9 20 32            2    bra 32
2355 92BB BD A8 96        ...   jsr a896             ;jump98
2356 92BE CE 00 1B        ...   ldx #001b
2357 92C1 1C 00 10        ...   bset 00,x, #10
2358 92C4 CC 02 33        ..3   ldd #0233
2359 92C7 FD 00 3B        ..;   std 003b
2360 92CA 20 21            !    bra 21
2361 92CC BD A8 E5        ...   jsr a8e5             ;jump96
2362 92CF CE 00 1B        ...   ldx #001b
2363 92D2 1C 00 10        ...   bset 00,x, #10
2364 92D5 CC 02 33        ..3   ldd #0233
2365 92D8 FD 00 3B        ..;   std 003b
2366 92DB 20 10            .    bra 10
2367 92DD BD A9 21        ..!   jsr a921             ;jump95
2368 92E0 20 0B            .    bra 0b
2369 92E2 BD A5 D5        ...   jsr a5d5             ;jump137
2370 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2371 92E8 20 03            .    bra 03
2372 92EA BD 85 AF        ...   jsr 85af             ;jump14
2373 92ED 39              9     rts
2374
2375 jump22:
2376 ; print info
2377 92EE F6 0C DC        ...   ldab 0cdc
2378 92F1 4F              O     clra
2379 92F2 37              7     pshb
2380 92F3 36              6     psha
2381 92F4 CC 00 64        ..d   ldd #0064    ; 100
2382 92F7 BD FB BA        ...   jsr fbba             ;jump38 - multiplication
2383 92FA FD 0C E9        ...   std 0ce9
2384 92FD BD D6 F6        ...   jsr d6f6             ;jump106
2385 9300 FC 0C E9        ...   ldd 0ce9
2386 9303 F3 0B EF        ...   addd 0bef
2387 9306 FD 0C F1        ...   std 0cf1
2388 9309 FE 0C F5        ...   ldx 0cf5
2389 930C 3C              <     pshx
2390 930D FC 0C F3        ...   ldd 0cf3
2391 9310 37              7     pshb
2392 9311 36              6     psha
2393 9312 FE 0C F9        ...   ldx 0cf9
2394 9315 3C              <     pshx
2395 9316 FC 0C F7        ...   ldd 0cf7
2396 9319 BD FC 25        ..%   jsr fc25             ;jump85
2397 931C 37              7     pshb
2398 931D 36              6     psha
2399 931E FE 0C FD        ...   ldx 0cfd
2400 9321 3C              <     pshx
2401 9322 FC 0C FB        ...   ldd 0cfb
2402 9325 BD FC 25        ..%   jsr fc25             ;jump85
2403 9328 37              7     pshb
2404 9329 36              6     psha
2405 932A FE 0D 01        ...   ldx 0d01
2406 932D 3C              <     pshx
2407 932E FC 0C FF        ...   ldd 0cff
2408 9331 BD FC 25        ..%   jsr fc25             ;jump85
2409 9334 37              7     pshb
2410 9335 36              6     psha
2411 9336 FE 0D 05        ...   ldx 0d05
2412 9339 3C              <     pshx
2413 933A FC 0D 03        ...   ldd 0d03
2414 933D BD FC 25        ..%   jsr fc25             ;jump85
2415 9340 FD 0D F3        ...   std 0df3
2416 9343 32              2     pula
2417 9344 33              3     pulb
2418 9345 FD 0D F5        ...   std 0df5
2419 9348 FE 0D F9        ...   ldx 0df9
2420 934B 3C              <     pshx
2421 934C FC 0D F7        ...   ldd 0df7
2422 934F 37              7     pshb
2423 9350 36              6     psha
2424 9351 FE 0D F5        ...   ldx 0df5
2425 9354 3C              <     pshx
2426 9355 FC 0D F3        ...   ldd 0df3
2427 9358 BD FC 25        ..%   jsr fc25             ;jump85
2428 935B FD 0D EF        ...   std 0def
2429 935E 32              2     pula
2430 935F 33              3     pulb
2431 9360 FD 0D F1        ...   std 0df1
2432 9363 F6 20 00        . .   ldab 2000
2433 9366 C4 40           .@    andb #40
2434 9368 27 37           '7    beq 37
2435 936A F6 00 1F        ...   ldab 001f
2436 936D C4 02           ..    andb #02
2437 936F 27 1F           '.    beq 1f
2438 9371 BD 97 E9        ...   jsr 97e9             ;jump147 - print the report
2439 9374 CE 00 1F        ...   ldx #001f
2440 9377 1D 00 02        ...   bclr 00,x, #02
2441 937A CE 00 1F        ...   ldx #001f
2442 937D 1D 00 10        ...   bclr 00,x, #10
2443 9380 CC 02 33        ..3   ldd #0233
2444 9383 FD 00 3B        ..;   std 003b
2445 9386 7F 00 09        ...   clr 0009
2446 9389 C6 92           ..    ldab #92
2447 938B F7 00 48        ..H   stab 0048
2448 938E 20 0F            .    bra 0f
2449 9390 F6 00 19        ...   ldab 0019
2450 9393 C4 40           .@    andb #40
2451 9395 26 05           &.    bne 05
2452 9397 BD 98 BF        ...   jsr 98bf             ;jump146
2453 939A 20 03            .    bra 03
2454 939C BD 85 AF        ...   jsr 85af             ;jump14
2455 939F 20 03            .    bra 03
2456 93A1 BD 98 FF        ...   jsr 98ff             ;jump145
2457 93A4 39              9     rts
2458
2459 jump23:
2460 ; program security code menu
2461 93A5 F6 00 1F        ...   ldab 001f
2462 93A8 C4 02           ..    andb #02
2463 93AA 26 0A           &.    bne 0a
2464 93AC F6 00 3A        ..:   ldab 003a
2465 93AF 26 2B           &+    bne 2b
2466 93B1 F6 00 1D        ...   ldab 001d
2467 93B4 2D 26           -&    blt 26
2468 93B6 CC AF BB        ...   ldd #afbb    ;"ENTER CODE"
2469 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2470 93BC CE 00 1F        ...   ldx #001f
2471 93BF 1D 00 02        ...   bclr 00,x, #02
2472 93C2 CE 00 1D        ...   ldx #001d
2473 93C5 1D 00           ..    bclr add,x 00,x
2474 93C7 80 C6           ..    suba #c6
2475 93C9 32              2     pula
2476 93CA F7 00 3A        ..:   stab 003a
2477 93CD F6 0B A8        ...   ldab 0ba8
2478 93D0 F7 00 66        ..f   stab 0066
2479 93D3 BD AA 74        ..t   jsr aa74             ;jump128
2480 93D6 7F 00 48        ..H   clr 0048
2481 93D9 7F 00 54        ..T   clr 0054
2482 93DC F6 00 09        ...   ldab 0009
2483 93DF 26 03           &.    bne 03
2484 93E1 7E 94 92        ~..   jmp 9492             ;goto14
2485 93E4 F6 00 1D        ...   ldab 001d
2486 93E7 2C 03           ,.    bge 03
2487 93E9 7E 94 92        ~..   jmp 9492             ;goto14
2488 93EC F6 00 09        ...   ldab 0009
2489 93EF C1 0B           ..    cmpb #0b
2490 93F1 26 06           &.    bne 06
2491 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2492 93F6 7E 94 90        ~..   jmp 9490             ;goto15
2493 93F9 F6 00 09        ...   ldab 0009
2494 93FC C1 0A           ..    cmpb #0a
2495 93FE 26 03           &.    bne 03
2496 9400 7F 00 09        ...   clr 0009
2497 9403 F6 00 09        ...   ldab 0009
2498 9406 CB 30           .0    addb #30
2499 9408 37              7     pshb
2500 9409 F6 00 54        ..T   ldab 0054
2501 940C 4F              O     clra
2502 940D C3 00 62        ..b   addd #0062
2503 9410 8F              .     xgdx
2504 9411 33              3     pulb
2505 9412 E7 00           ..    stab 00,x
2506 9414 BD BE 4B        ..K   jsr be4b             ;displayblank
2507 9417 F6 00 54        ..T   ldab 0054
2508 941A 26 06           &.    bne 06
2509 941C F6 00 62        ..b   ldab 0062
2510 941F F7 0B 96        ...   stab 0b96
2511 9422 F6 00 54        ..T   ldab 0054
2512 9425 C1 01           ..    cmpb #01
2513 9427 26 0C           &.    bne 0c
2514 9429 F6 00 62        ..b   ldab 0062
2515 942C F7 0B 96        ...   stab 0b96
2516 942F F6 00 63        ..c   ldab 0063
2517 9432 F7 0B 95        ...   stab 0b95
2518 9435 F6 00 54        ..T   ldab 0054
2519 9438 C1 02           ..    cmpb #02
2520 943A 26 12           &.    bne 12
2521 943C F6 00 62        ..b   ldab 0062
2522 943F F7 0B 96        ...   stab 0b96
2523 9442 F6 00 63        ..c   ldab 0063
2524 9445 F7 0B 95        ...   stab 0b95
2525 9448 F6 00 64        ..d   ldab 0064
2526 944B F7 0B 94        ...   stab 0b94
2527 944E F6 00 54        ..T   ldab 0054
2528 9451 C1 03           ..    cmpb #03
2529 9453 26 18           &.    bne 18
2530 9455 F6 00 62        ..b   ldab 0062
2531 9458 F7 0B 96        ...   stab 0b96
2532 945B F6 00 63        ..c   ldab 0063
2533 945E F7 0B 95        ...   stab 0b95
2534 9461 F6 00 64        ..d   ldab 0064
2535 9464 F7 0B 94        ...   stab 0b94
2536 9467 F6 00 65        ..e   ldab 0065
2537 946A F7 0B 93        ...   stab 0b93
2538 946D BD BE 01        ...   jsr be01             ;jump70
2539 9470 7C 00 54        |.T   inc 0054
2540 9473 F6 00 54        ..T   ldab 0054
2541 9476 C1 04           ..    cmpb #04
2542 9478 26 0B           &.    bne 0b
2543 947A CE 00 1D        ...   ldx #001d
2544 947D 1C 00           ..    bset add,x 00,x
2545 947F 80 BD           ..    suba #bd
2546 9481 A8 0F           ..    eora 0f,x
2547 9483 20 06            .    bra 06
2548 9485 CE 00 1D        ...   ldx #001d
2549 9488 1D 00           ..    bclr add,x 00,x
2550 948A 80 C6           ..    suba #c6
2551 948C 32              2     pula
2552 948D F7 00 3A        ..:   stab 003a
2553 goto15:
2554 9490 20 4A            J    bra 4a
2555 goto14:
2556 9492 F6 00 1D        ...   ldab 001d
2557 9495 2C 45           ,E    bge 45
2558 9497 F6 00 09        ...   ldab 0009
2559 949A 4F              O     clra
2560 949B BD FE 32        ..2   jsr fe32             ;jump25
2561 949E 94 B8 00 00     ....  ; array data for jump25
2562 94A2 94 BD 00 01     ....
2563 94A6 94 C2 00 04     ....
2564 94AA 94 D1 00 05     ....
2565 94AE 94 D9 00 01     ....
2566 94B2 94 DC FF F5     ....
2567 94B6 00 00           ..    ; end of array data
2568 94B8 BD 9E 0F        ...   jsr 9e0f             ;jump142
2569 94BB 20 1F            .    bra 1f
2570 94BD BD A7 1F        ...   jsr a71f             ;jump134
2571 94C0 20 1A            .    bra 1a
2572 94C2 7C 00 48        |.H   inc 0048
2573 94C5 F6 00 48        ..H   ldab 0048
2574 94C8 C1 0A           ..    cmpb #0a
2575 94CA 23 03           #.    bls 03
2576 94CC 7F 00 48        ..H   clr 0048
2577 94CF 20 0B            .    bra 0b
2578 94D1 BD A5 FE        ...   jsr a5fe             ;jump136
2579 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2580 94D7 20 03            .    bra 03
2581 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2582 94DC 39              9     rts
2583
2584 jump24:
2585 ; motor functions menu
2586 94DD F6 00 1F        ...   ldab 001f
2587 94E0 C4 02           ..    andb #02
2588 94E2 27 14           '.    beq 14
2589 94E4 CE 00 1F        ...   ldx #001f
2590 94E7 1D 00 02        ...   bclr 00,x, #02
2591 94EA CE 00 19        ...   ldx #0019
2592 94ED 1C 00 80        ..    bset 00,x, #80
2593 94EF 7F 00 09        ..    clr 0009
2594 94F3 7F 00 0A        ...   clr 000a
2595 94F6 20 46            F    bra 46
2596 94F8 F6 00 09        ...   ldab 0009
2597 94FB 4F              O     clra
2598 94FC BD FE 32        ..2   jsr fe32             ;jump25
2599 94FF 95 19 00 00     ....  ; no key
2600 9503 95 21 00 01     .!..  ; key 1 - motor count procedure
2601 9507 95 2C 00 01     .,..  ; key 2 - single test vend
2602 950B 95 30 00 01     .0..  ; key 3 - test vend everything
2603 950F 95 35 00 08     .5..  ; reset
2604 9513 95 38 FF F5     .8..
2605 9517 00 00           ..    ; end of array data
2606 9519 CC B0 A2        ...   ldd #b0a2    ; "MTR FUNCT?"
2607 951C BD C0 BA        ...   jsr c0ba             ;display:
2608 951F 20 1D            .    bra 1d
2609 9521 BD 87 E9        ...   jsr 87e9             ;jump74 - motor count procedure
2610 9524 CE 00 1F        ...   ldx #001f
2611 9527 1C 00 02        ...   bset 00,x, #02
2612 952A 20 12            .    bra 12
2613 952C 8D 11           ..    bsr dest 11  ;jump203 - test single vend
2614 952E 20 0E            .    bra 0e
2615 9530 BD 96 88        ...   jsr 9688             ;jump148 - test all vends
2616 9533 20 09            .    bra 09
2617 9535 BD 85 AF        ...   jsr 85af             ;jump14
2618 9538 7F 00 09        ...   clr 0009
2619 953B 7F 00 0A        ...   clr 000a
2620 953E 39              9     rts
2621
2622 jump203:
2623 ; test a single vend
2624 953F F6 00 19        ...   ldab 0019
2625 9542 2D 0A           -.    blt 0a
2626 9544 F6 00 3A        ..:   ldab 003a
2627 9547 26 22           &"    bne 22
2628 9549 F6 00 1D        ...   ldab 001d
2629 954C 2D 1D           -.    blt 1d
2630 954E 7F 00 2C        ..,   clr 002c
2631 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
2632 9554 BD C0 BA        ...   jsr c0ba             ;display:
2633 9557 CE 00 19        ...   ldx #0019
2634 955A 1D 00 80        ..    bclr 00,x, #80
2635 955D CE 00 1D        ..    ldx #001d
2636 9560 1D 00 80        ...   bclr 00,x, #80
2637 9562 7F 00 54        ..    clr 0054
2638 9566 C6 32           .2    ldab #32
2639 9568 F7 00 3A        ..:   stab 003a
2640 956B F6 00 0A        ...   ldab 000a
2641 956E 26 03           &.    bne 03
2642 9570 7E 96 5C        ~.\   jmp 965c             ;goto16
2643 9573 F6 00 1D        ...   ldab 001d
2644 9576 2C 03           ,.    bge 03
2645 9578 7E 96 5C        ~.\   jmp 965c             ;goto16
2646 957B F6 00 0A        ...   ldab 000a
2647 957E C1 0B           ..    cmpb #0b
2648 9580 26 09           &.    bne 09
2649 9582 CE 00 1F        ...   ldx #001f
2650 9585 1C 00 02        ...   bset 00,x, #02
2651 9588 7E 96 5A        ~.Z   jmp 965a             ;goto93
2652 958B F6 00 54        ..T   ldab 0054
2653 958E 26 26           &&    bne 26
2654 9590 BD BE 4B        ..K   jsr be4b             ;displayblank
2655 9593 F6 00 0A        ...   ldab 000a
2656 9596 C1 0A           ..    cmpb #0a
2657 9598 26 03           &.    bne 03
2658 959A 7F 00 0A        ...   clr 000a
2659 959D F6 00 0A        ...   ldab 000a
2660 95A0 CB 30           .0    addb #30
2661 95A2 37              7     pshb
2662 95A3 CC 0B 95        ...   ldd #0b95
2663 95A6 F0 00 54        ..T   subb 0054
2664 95A9 82 00           ..    sbca #00
2665 95AB 8F              .     xgdx
2666 95AC 33              3     pulb
2667 95AD E7 00           ..    stab 00,x
2668 95AF C6 32           .2    ldab #32
2669 95B1 F7 00 3A        ..:   stab 003a
2670 95B4 20 37            7    bra 37
2671 95B6 F6 00 54        ..T   ldab 0054
2672 95B9 C1 01           ..    cmpb #01
2673 95BB 26 27           &'    bne 27
2674 95BD F6 00 0A        ...   ldab 000a
2675 95C0 C1 05           ..    cmpb #05
2676 95C2 27 20           '     beq 20
2677 95C4 F6 00 0A        ...   ldab 000a
2678 95C7 C1 0A           ..    cmpb #0a
2679 95C9 27 19           '.    beq 19
2680 95CB F6 00 0A        ...   ldab 000a
2681 95CE CB 30           .0    addb #30
2682 95D0 37              7     pshb
2683 95D1 CC 0B 95        ...   ldd #0b95
2684 95D4 F0 00 54        ..T   subb 0054
2685 95D7 82 00           ..    sbca #00
2686 95D9 8F              .     xgdx
2687 95DA 33              3     pulb
2688 95DB E7 00           ..    stab 00,x
2689 95DD C6 32           .2    ldab #32
2690 95DF F7 00 3A        ..:   stab 003a
2691 95E2 20 09            .    bra 09
2692 95E4 CE 00 19        ...   ldx #0019
2693 95E7 1C 00 80        ..    bset 00,x, #80
2694 95E9 7F 00 3A        ..    clr 003a
2695 95ED BD BE 01        ...   jsr be01             ;jump70
2696 95F0 7C 00 54        |.T   inc 0054
2697 95F3 F6 00 54        ..T   ldab 0054
2698 95F6 C1 02           ..    cmpb #02
2699 95F8 26 5A           &Z    bne 5a
2700 95FA CE 00 1D        ...   ldx #001d
2701 95FD 1C 00           ..    bset add,x 00,x
2702 95FF 80 F6           ..    suba #f6
2703 9601 0B              .     sev
2704 9602 94 CB D0        ...   anda cb
2705 9605 37              7     pshb
2706 9606 F6 0B 95        ...   ldab 0b95
2707 9609 CB D0           ..    addb #d0
2708 960B 86 0A           ..    ldaa #0a
2709 960D 3D              =     mul
2710 960E 30              0     tsx
2711 960F EB 00           ..    addb 00,x
2712 9611 31              1     ins
2713 9612 F7 00 06        ...   stab 0006
2714 9615 C6 32           .2    ldab #32
2715 9617 F7 00 3A        ..:   stab 003a
2716 961A F6 00 06        ...   ldab 0006
2717 961D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2718 9620 83 00 00        ...   subd #0000
2719 9623 26 21           &!    bne 21
2720 9625 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2721 9628 83 00 00        ...   subd #0000
2722 962B 26 0B           &.    bne 0b       ; to 9638
2723 962D CE 00 1F        ...   ldx #001f
2724 9630 1C 00 40        ...   bset 00,x, #40  ; denotes an invalid slot or unmarked price? (fills display with XXX.XX)
2725 9633 BD 8C 73        ..s   jsr 8c73             ;jump75 - fetch slot info
2726 9636 20 06            .    bra 06       ; to 963e
2727 9638 CE 00 1F        ...   ldx #001f
2728 963B 1D 00 40        ...   bclr 00,x, #40
2729 963E 7F 00 2C        ..,   clr 002c
2730 9641 BD 9A 47        ..G   jsr 9a47             ;jump39 - display price on screen
2731 9644 20 0C            .    bra 0c
2732 9646 CE 00 1D        ...   ldx #001d
2733 9649 1D 00 80        ..    bclr 00,x, #80
2734 964C CE 00 19        ..    ldx #0019
2735 964F 1C 00 80        ..    bset 00,x, #80
2736 9652 20 06           .     bra 06
2737 9654 CE 00 1D        ...   ldx #001d
2738 9657 1D 00 80        ..    bclr 00,x, #80
2739 goto93:
2740 965A 20 2B           .     bra 2b
2741 goto16:
2742 965C F6 00 1D        +.    ldab 001d
2743 965F 2C 26           .,    bge 26
2744 9661 BD D2 13        &.    jsr d213     ;jump45
2745 9664 83 00 00        ...   subd #0000
2746 9667 26 0F           &.    bne 0f
2747 9669 CC 00 64        ..d   ldd #0064
2748 966C BD E5 71        ..q   jsr e571             ;msdelay
2749 966F BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
2750 9672 CC 03 84        ...   ldd #0384    ; 900
2751 9675 BD E5 71        ..q   jsr e571             ;msdelay
2752 9678 7F 00 2E        ...   clr 002e
2753 967B CE 00 1D        ...   ldx #001d
2754 967E 1D 00 80        ..    bclr 00,x, #80
2755 9680 CE 00 1F        ..    ldx #001f
2756 9683 1C 00 02        ...   bset 00,x #02
2757 9687 39              9     rts
2758
2759 jump148:
2760 ;tests all vends
2761 9688 34              4     des
2762 9689 F6 00 19        ...   ldab 0019
2763 968C 2C 19           ,.    bge 19
2764 968E CE 00 19        ...   ldx #0019
2765 9691 1D 00 80        ..    bclr 00,x, #80
2766 9694 CC B0 97        ...   ldd #b097   ; "TEST  VEND"
2767 9697 BD C0 BA        ...   jsr c0ba    ; display
2768 969A C6 0A           ..    ldab #0a
2769 969C F7 00 38        ..8   stab 0038
2770 969F 7F 00 05        ...   clr 0005
2771 96A2 C6 01           ..    ldab #01
2772 96A4 F7 00 06        ...   stab 0006
2773 96A7 F6 00 0A        ...   ldab 000a
2774 96AA C1 0B           ..    cmpb #0b
2775 96AC 26 0C           &.    bne 0c      ; to 96ba
2776 96AE CC 02 33        ..3   ldd #0233
2777 96B1 FD 00 3B        ..;   std 003b
2778 96B4 CE 00 1F        ...   ldx #001f
2779 96B7 1C 00 02        ...   bset 00,x, #02
2780 96BA F6 00 38        ..8   ldab 0038
2781 96BD 27 03           '.    beq 03
2782 96BF 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2783 96C2 F6 00 06        ...   ldab 0006
2784 96C5 C1 63           .c    cmpb #63     ; exit if >63
2785 96C7 23 03           #.    bls 03
2786 96C9 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2787 96CC F6 00 06        ...   ldab 0006
2788 96CF C1 63           .c    cmpb #63
2789 96D1 26 0F           &.    bne 0f
2790 96D3 BD 99 C3        ...   jsr 99c3             ;jump143 - write "VENDS XXX" (from 0005)
2791 96D6 CC 07 D0        ...   ldd #07d0    ; 2000
2792 96D9 BD E5 71        ..q   jsr e571             ;msdelay
2793 96DC CE 00 1F        ...   ldx #001f
2794 96DF 1C 00 02        ...   bset 00,x, #02
2795 96E2 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2796 96E5 83 00 00        ...   subd #0000
2797 96E8 26 0B           &.    bne 0b
2798 96EA CE 00 1F        ...   ldx #001f
2799 96ED 1C 00 40        ...   bset 00,x, #40
2800 96F0 BD 8C 73        ..s   jsr 8c73             ;jump75
2801 96F3 20 06            .    bra 06
2802 96F5 CE 00 1F        ...   ldx #001f
2803 96F8 1D 00 40        ...   bclr 00,x, #40
2804 96FB BD 9A 47        ..G   jsr 9a47             ;jump39
2805 96FE F6 00 06        ...   ldab 0006
2806 9701 C1 63           .c    cmpb #63
2807 9703 26 03           &.    bne 03
2808 9705 7F 00 2C        ..,   clr 002c
2809 9708 BD D2 13        ...   jsr d213             ;jump45
2810 970B 83 00 00        ...   subd #0000
2811 970E 27 03           '.    beq 03
2812 9710 7C 00 05        |..   inc 0005
2813 9713 7F 00 2E        ...   clr 002e
2814 9716 C6 05           ..    ldab #05
2815 9718 F7 00 38        ..8   stab 0038
2816 971B CC 02 33        ..3   ldd #0233
2817 971E FD 00 3B        ..;   std 003b
2818 9721 30              0     tsx
2819 9722 6F 00           o.    clr 00,x
2820 9724 F6 0E 6D        ..m   ldab 0e6d
2821 9727 27 0C           '.    beq 0c
2822 9729 F6 00 06        ...   ldab 0006
2823 972C C1 3E           .>    cmpb #3e
2824 972E 26 05           &.    bne 05
2825 9730 C6 01           ..    ldab #01
2826 9732 30              0     tsx
2827 9733 E7 00           ..    stab 00,x
2828 9735 8D 38           .8    bsr dest 38
2829 9737 F6 0E 6D        ..m   ldab 0e6d
2830 973A 27 0C           '.    beq 0c
2831 973C 30              0     tsx
2832 973D E6 00           ..    ldab 00,x
2833 973F C1 01           ..    cmpb #01
2834 9741 26 05           &.    bne 05
2835 9743 C6 45           .E    ldab #45
2836 9745 F7 00 06        ...   stab 0006
2837 9748 F6 00 06        ...   ldab 0006
2838 974B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2839 974E 83 00 00        ...   subd #0000
2840 9751 27 15           '.    beq 15
2841 9753 F6 00 06        ...   ldab 0006
2842 9756 C1 09           ..    cmpb #09
2843 9758 26 02           &.    bne 02
2844 975A 8D 13           ..    bsr dest 13
2845 975C F6 00 06        ...   ldab 0006
2846 975F C1 45           .E    cmpb #45
2847 9761 26 05           &.    bne 05
2848 9763 C6 63           .c    ldab #63
2849 9765 F7 00 06        ...   stab 0006
2850 9768 5F              _     clrb
2851 9769 4F              O     clra
2852 976A FD 00 40        ..@   std 0040
2853 goto17:
2854 976D 31              1     ins
2855 976E 39              9     rts
2856
2857 jump41:
2858 976F F6 0E 6D        ..m   ldab 0e6d
2859 9772 C1 01           ..    cmpb #01
2860 9774 26 41           &A    bne 41
2861 9776 F6 00 06        ...   ldab 0006
2862 9779 4F              O     clra
2863 977A CE 00 0A        ...   ldx #000a
2864 977D 02              .     idiv
2865 977E C1 01           ..    cmpb #01
2866 9780 26 05           &.    bne 05
2867 9782 7C 00 06        |..   inc 0006
2868 9785 20 1B            .    bra 1b
2869 9787 F6 00 06        ...   ldab 0006
2870 978A 4F              O     clra
2871 978B CE 00 0A        ...   ldx #000a
2872 978E 02              .     idiv
2873 978F C1 02           ..    cmpb #02
2874 9791 26 0A           &.    bne 0a
2875 9793 C6 09           ..    ldab #09
2876 9795 FB 00 06        ...   addb 0006
2877 9798 F7 00 06        ...   stab 0006
2878 979B 20 05            .    bra 05
2879 979D C6 0B           ..    ldab #0b
2880 979F F7 00 06        ...   stab 0006
2881 97A2 F6 00 06        ...   ldab 0006
2882 97A5 C1 3E           .>    cmpb #3e
2883 97A7 22 07           ".    bhi 07
2884 97A9 F6 00 06        ...   ldab 0006
2885 97AC C1 0B           ..    cmpb #0b
2886 97AE 24 05           $.    bcc 05
2887 97B0 C6 0B           ..    ldab #0b
2888 97B2 F7 00 06        ...   stab 0006
2889 97B5 20 31            1    bra 31
2890 97B7 F6 00 06        ...   ldab 0006
2891 97BA CB 0A           ..    addb #0a
2892 97BC F7 00 06        ...   stab 0006
2893 97BF F6 00 06        ...   ldab 0006
2894 97C2 C1 64           .d    cmpb #64
2895 97C4 23 22           #"    bls 22
2896 97C6 F6 00 06        ...   ldab 0006
2897 97C9 CB 9C           ..    addb #9c
2898 97CB CB 01           ..    addb #01
2899 97CD F7 00 06        ...   stab 0006
2900 97D0 F6 00 06        ...   ldab 0006
2901 97D3 C1 05           ..    cmpb #05
2902 97D5 26 05           &.    bne 05
2903 97D7 C6 06           ..    ldab #06
2904 97D9 F7 00 06        ...   stab 0006
2905 97DC F6 00 06        ...   ldab 0006
2906 97DF C1 0A           ..    cmpb #0a
2907 97E1 26 05           &.    bne 05
2908 97E3 C6 01           ..    ldab #01
2909 97E5 F7 00 06        ...   stab 0006
2910 97E8 39              9     rts
2911
2912 jump147:
2913 97E9 BD BE 4B        ..K   jsr be4b             ;displayblank
2914 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
2915 97EF BD C0 BA        ...   jsr c0ba             ;display:
2916 97F2 BD F4 15        ...   jsr f415             ;jump112 - print a report
2917 97F5 39              9     rts
2918
2919 jump27:
2920 97F6 BD BE 4B        ..K   jsr be4b             ;displayblank
2921 97F9 F6 00 48        ..H   ldab 0048
2922 97FC 4F              O     clra
2923 97FD BD FE 16        ...   jsr fe16             ;jump2
2924 9800 00 01 00 03     .     test
2925 9804 98 80           ..
2926 9806 98 0E           ..
2927 9808 98 2B           ..
2928 980A 98 48           ..
2929 980C 98 65           ..
2930 980E F6 0C D9        ..    ldab 0cd9
2931 9811 4F              .     clra
2932 9812 BD E7 95        ...   jsr e795      ;jump54 - number to string
2933 9815 C6 4E           .N    ldab #4e
2934 9817 F7 0B 99        ...   stab 0b99
2935 981A C6 49           .I    ldab #49
2936 981C F7 0B 98        ...   stab 0b98
2937 981F C6 4B           .K    ldab #4b
2938 9821 F7 0B 97        ...   stab 0b97
2939 9824 C6 4C           .L    ldab #4c
2940 9826 F7 0B 96        ...   stab 0b96
2941 9829 20 55            U    bra 55
2942 982B F6 0C DA        ...   ldab 0cda
2943 982E 4F              O     clra
2944 982F BD E7 95        ...   jsr e795             ;jump54 - number to string
2945 9832 C6 44           .D    ldab #44
2946 9834 F7 0B 99        ...   stab 0b99
2947 9837 C6 49           .I    ldab #49
2948 9839 F7 0B 98        ...   stab 0b98
2949 983C C6 4D           .M    ldab #4d
2950 983E F7 0B 97        ...   stab 0b97
2951 9841 C6 45           .E    ldab #45
2952 9843 F7 0B 96        ...   stab 0b96
2953 9846 20 38            8    bra 38
2954 9848 F6 0C DB        ...   ldab 0cdb
2955 984B 4F              O     clra
2956 984C BD E7 95        ...   jsr e795             ;jump54 - number to string
2957 984F C6 51           .Q    ldab #51
2958 9851 F7 0B 99        ...   stab 0b99
2959 9854 C6 55           .U    ldab #55
2960 9856 F7 0B 98        ...   stab 0b98
2961 9859 C6 54           .T    ldab #54
2962 985B F7 0B 97        ...   stab 0b97
2963 985E C6 52           .R    ldab #52
2964 9860 F7 0B 96        ...   stab 0b96
2965 9863 20 1B            .    bra 1b
2966 9865 F6 0C DC        ...   ldab 0cdc
2967 9868 4F              O     clra
2968 9869 BD E7 95        ...   jsr e795             ;jump54 - number to string
2969 986C C6 44           .D    ldab #44     ; "D"
2970 986E F7 0B 99        ...   stab 0b99
2971 9871 C6 4F           .O    ldab #4f     ; "O"
2972 9873 F7 0B 98        ...   stab 0b98
2973 9876 C6 4C           .L    ldab #4c     ; "L"
2974 9878 F7 0B 97        ...   stab 0b97
2975 987B C6 52           .R    ldab #52     ; "R"
2976 987D F7 0B 96        ...   stab 0b96
2977 9880 C6 53           .S    ldab #53     ; "S"
2978 9882 F7 0B 95        ...   stab 0b95
2979 9885 C6 20           .     ldab #20     ; " "
2980 9887 F7 0B 94        ...   stab 0b94
2981 988A C6 20           .     ldab #20     ; " "
2982 988C F7 0B 93        ...   stab 0b93
2983 988F F6 00 5D        ..]   ldab 005d
2984 9892 F7 0B 92        ...   stab 0b92
2985 9895 F6 00 5E        ..^   ldab 005e    ; row number?
2986 9898 F7 0B 91        ...   stab 0b91
2987 989B F6 00 5F        .._   ldab 005f    ; column number?
2988 989E F7 0B 90        ...   stab 0b90
2989 98A1 BD BE 01        ...   jsr be01             ;jump70 - to disp buffer
2990 98A4 39              9     rts
2991
2992 jump11:
2993 ; prints contents of 0054 to display
2994 98A5 BD BE 4B        ..K   jsr be4b             ;displayblank
2995 98A8 F6 00 54        ..T   ldab 0054
2996 98AB 4F              O     clra
2997 98AC BD E7 95        ...   jsr e795             ; slot number to digits
2998 98AF F6 00 5E        ..^   ldab 005e
2999 98B2 F7 0B 95        ...   stab 0b95
3000 98B5 F6 00 5F        .._   ldab 005f
3001 98B8 F7 0B 94        ...   stab 0b94
3002 98BB BD BE 01        ...   jsr be01             ;jump70 - write to display
3003 98BE 39              9     rts
3004
3005 jump146:
3006 98BF F6 00 09        ...   ldab 0009
3007 98C2 C1 00           ..    cmpb #00
3008 98C4 26 05           &.    bne 05
3009 98C6 BD 9E 89        ...   jsr 9e89             ;jump100
3010 98C9 20 33            3    bra 33
3011 98CB C1 01           ..    cmpb #01
3012 98CD 26 1E           &.    bne 1e
3013 98CF F6 00 48        ..H   ldab 0048
3014 98D2 C1 92           ..    cmpb #92
3015 98D4 26 15           &.    bne 15
3016 98D6 F6 00 1F        ...   ldab 001f
3017 98D9 C4 10           ..    andb #10
3018 98DB 26 08           &.    bne 08
3019 98DD CE 00 1F        ...   ldx #001f
3020 98E0 1C 00 10        ...   bset 00,x, #10
3021 98E3 20 06            .    bra 06
3022 98E5 CE 00 1F        ...   ldx #001f
3023 98E8 1D 00 10        ...   bclr 00,x, #10
3024 98EB 20 11            .    bra 11
3025 98ED C1 0B           ..    cmpb #0b
3026 98EF 26 0D           &.    bne 0d
3027 98F1 F6 00 1F        ...   ldab 001f
3028 98F4 C4 10           ..    andb #10
3029 98F6 27 03           '.    beq 03
3030 98F8 BD E9 2B        ..+   jsr e92b             ;jump103
3031 98FB BD 85 AF        ...   jsr 85af             ;jump14
3032 98FE 39              9     rts
3033
3034 jump145:
3035 98FF F6 00 1F        ...   ldab 001f
3036 9902 C4 02           ..    andb #02
3037 9904 27 13           '.    beq 13
3038 9906 C6 01           ..    ldab #01
3039 9908 F7 00 48        ..H   stab 0048
3040 990B CE 00 1F        ...   ldx #001f
3041 990E 1D 00 10        ...   bclr 00,x, #10
3042 9911 CE 00 1F        ...   ldx #001f
3043 9914 1D 00 02        ...   bclr 00,x, #02
3044 9917 20 67            g    bra 67
3045 9919 F6 00 09        ...   ldab 0009
3046 991C 4F              O     clra
3047 991D BD FE 32        ..2   jsr fe32             ;jump25
3048 9920 99 36 00 00     .6..  ; array data for jump25
3049 9924 99 3B 00 01     .;..
3050 9928 99 59 00 09     .Y..
3051 992C 99 73 00 01     .s..
3052 9930 99 80 FF F5     ....
3053 9934 00 00           ..    ; end of array data
3054 9936 BD 9E 89        ...   jsr 9e89             ;jump100
3055 9939 20 45            E    bra 45
3056 993B F6 00 48        ..H   ldab 0048
3057 993E C1 92           ..    cmpb #92
3058 9940 26 15           &.    bne 15
3059 9942 F6 00 1F        ...   ldab 001f
3060 9945 C4 10           ..    andb #10
3061 9947 26 08           &.    bne 08
3062 9949 CE 00 1F        ...   ldx #001f
3063 994C 1C 00 10        ...   bset 00,x, #10
3064 994F 20 06            .    bra 06
3065 9951 CE 00 1F        ...   ldx #001f
3066 9954 1D 00 10        ...   bclr 00,x, #10
3067 9957 20 27            '    bra 27
3068 9959 7C 00 48        |.H   inc 0048
3069 995C F6 00 48        ..H   ldab 0048
3070 995F C1 92           ..    cmpb #92
3071 9961 23 0B           #.    bls 0b
3072 9963 C6 01           ..    ldab #01
3073 9965 F7 00 48        ..H   stab 0048
3074 9968 CE 00 1F        ...   ldx #001f
3075 996B 1D 00 10        ...   bclr 00,x, #10
3076 996E BD 9E 89        ...   jsr 9e89             ;jump100
3077 9971 20 0D            .    bra 0d
3078 9973 F6 00 1F        ...   ldab 001f
3079 9976 C4 10           ..    andb #10
3080 9978 27 03           '.    beq 03
3081 997A BD E9 2B        ..+   jsr e92b             ;jump103
3082 997D BD 85 AF        ...   jsr 85af             ;jump14
3083 9980 39              9     rts
3084
3085 jump144:
3086 ; writes "MOTORS XX" where XX is the slot number in 0005
3087 9981 BD BE 4B        ..K   jsr be4b             ;displayblank
3088 9984 F6 00 05        ...   ldab 0005
3089 9987 4F              O     clra
3090 9988 BD E7 95        ...   jsr e795             ;jump54 - number to string
3091 998B C6 4D           .M    ldab #4d     ; "M"
3092 998D F7 0B 99        ...   stab 0b99
3093 9990 C6 4F           .O    ldab #4f     ; "O"
3094 9992 F7 0B 98        ...   stab 0b98
3095 9995 C6 54           .T    ldab #54     ; "T"
3096 9997 F7 0B 97        ...   stab 0b97
3097 999A C6 4F           .O    ldab #4f     ; "O"
3098 999C F7 0B 96        ...   stab 0b96
3099 999F C6 52           .R    ldab #52     ; "R"
3100 99A1 F7 0B 95        ...   stab 0b95
3101 99A4 C6 53           .S    ldab #53     ; "S"
3102 99A6 F7 0B 94        ...   stab 0b94
3103 99A9 C6 20           .     ldab #20     ; " "
3104 99AB F7 0B 93        ...   stab 0b93
3105 99AE C6 20           .     ldab #20     ; " "
3106 99B0 F7 0B 92        ...   stab 0b92
3107 99B3 F6 00 5E        ..^   ldab 005e
3108 99B6 F7 0B 91        ...   stab 0b91
3109 99B9 F6 00 5F        .._   ldab 005f
3110 99BC F7 0B 90        ...   stab 0b90
3111 99BF BD BE 01        ...   jsr be01             ;jump70 - display
3112 99C2 39              9     rts
3113
3114 jump143:
3115 ; writes VENDS XX where XX is contents of 0005
3116 99C3 BD BE 4B        ..K   jsr be4b             ;displayblank
3117 99C6 F6 00 05        ...   ldab 0005
3118 99C9 4F              O     clra
3119 99CA BD E7 95        ...   jsr e795             ;jump54 - number to string
3120 99CD C6 56           .V    ldab #56     ; "V"
3121 99CF F7 0B 99        ...   stab 0b99
3122 99D2 C6 45           .E    ldab #45     ; "E"
3123 99D4 F7 0B 98        ...   stab 0b98
3124 99D7 C6 4E           .N    ldab #4e     ; "N"
3125 99D9 F7 0B 97        ...   stab 0b97
3126 99DC C6 44           .D    ldab #44     ; "D"
3127 99DE F7 0B 96        ...   stab 0b96
3128 99E1 C6 53           .S    ldab #53     ; "S"
3129 99E3 F7 0B 95        ...   stab 0b95
3130 99E6 C6 20           .     ldab #20     ; " "
3131 99E8 F7 0B 94        ...   stab 0b94
3132 99EB C6 20           .     ldab #20     ; " "
3133 99ED F7 0B 93        ...   stab 0b93
3134 99F0 C6 20           .     ldab #20     ; " "
3135 99F2 F7 0B 92        ...   stab 0b92
3136 99F5 F6 00 5E        ..^   ldab 005e
3137 99F8 F7 0B 91        ...   stab 0b91
3138 99FB F6 00 5F        .._   ldab 005f
3139 99FE F7 0B 90        ...   stab 0b90
3140 9A01 BD BE 01        ...   jsr be01             ;jump70
3141 9A04 39              9     rts
3142
3143 jump102:
3144 9A05 BD BE 4B        ..K   jsr be4b             ;displayblank
3145 9A08 FC 00 52        ..R   ldd 0052
3146 9A0B BD E7 45        ..E   jsr e745             ;jump55 - number to string
3147 9A0E C6 4F           .O    ldab #4f     ; "O"
3148 9A10 F7 0B 99        ...   stab 0b99
3149 9A13 C6 44           .D    ldab #44     ; "D"
3150 9A15 F7 0B 98        ...   stab 0b98
3151 9A18 C6 44           .D    ldab #44     ; "D"
3152 9A1A F7 0B 97        ...   stab 0b97
3153 9A1D C6 53           .S    ldab #53     ; "S"
3154 9A1F F7 0B 96        ...   stab 0b96
3155 9A22 C6 20           .     ldab #20     ; " "
3156 9A24 F7 0B 95        ...   stab 0b95
3157 9A27 C6 31           .1    ldab #31     ; "1"
3158 9A29 F7 0B 94        ...   stab 0b94
3159 9A2C C6 2F           ./    ldab #2f     ; "/"
3160 9A2E F7 0B 93        ...   stab 0b93
3161 9A31 F6 00 5D        ..]   ldab 005d
3162 9A34 F7 0B 92        ...   stab 0b92
3163 9A37 F6 00 5E        ..^   ldab 005e
3164 9A3A F7 0B 91        ...   stab 0b91
3165 9A3D F6 00 5F        .._   ldab 005f
3166 9A40 F7 0B 90        ...   stab 0b90
3167 9A43 BD BE 01        ...   jsr be01             ;jump70
3168 9A46 39              9     rts
3169
3170 jump39:
3171 ; write a slot, price, etc to screen.
3172 9A47 BD BE 4B        ..K   jsr be4b             ;displayblank
3173 9A4A F6 00 06        ...   ldab 0006
3174 9A4D 4F              O     clra
3175 9A4E BD E7 95        ...   jsr e795             ;jump54 - number to string
3176 9A51 F6 00 5E        ..^   ldab 005e
3177 9A54 F7 0B 99        ...   stab 0b99
3178 9A57 F6 00 5F        .._   ldab 005f
3179 9A5A F7 0B 98        ...   stab 0b98
3180 9A5D C6 20           .     ldab #20
3181 9A5F F7 0B 97        ...   stab 0b97
3182 9A62 F6 00 1F        ...   ldab 001f
3183 9A65 C4 40           .@    andb #40
3184 9A67 27 45           'E    beq 45       ; to 9aae
3185 9A69 FC 00 27        ..'   ldd 0027
3186 9A6C BD E7 45        ..E   jsr e745             ;jump55 - number to string
3187 9A6F F6 00 5A        ..Z   ldab 005a
3188 9A72 F7 0B 96        ...   stab 0b96
3189 9A75 F6 00 5D        ..]   ldab 005d
3190 9A78 F7 0B 95        ...   stab 0b95
3191 9A7B F6 00 5E        ..^   ldab 005e
3192 9A7E F7 0B 94        ...   stab 0b94
3193 9A81 F6 00 5F        .._   ldab 005f
3194 9A84 F7 0B 93        ...   stab 0b93
3195 9A87 F6 00 19        ...   ldab 0019
3196 9A8A C4 10           ..    andb #10
3197 9A8C 27 07           '.    beq 07
3198 9A8E C6 2A           .*    ldab #2a     ; '*'
3199 9A90 F7 0B 92        ...   stab 0b92
3200 9A93 20 05            .    bra 05
3201 9A95 C6 20           .     ldab #20
3202 9A97 F7 0B 92        ...   stab 0b92
3203 9A9A FC 00 46        ..F   ldd 0046
3204 9A9D BD E7 45        ..E   jsr e745             ;jump55 - number to string
3205 9AA0 F6 00 5E        ..^   ldab 005e
3206 9AA3 F7 0B 91        ...   stab 0b91
3207 9AA6 F6 00 5F        .._   ldab 005f
3208 9AA9 F7 0B 90        ...   stab 0b90
3209 9AAC 20 1E            .    bra 1e       ; to 9acc
3210 ;
3211 9AAE C6 58           .X    ldab #58   ; "X"
3212 9AB0 F7 0B 96        ...   stab 0b96
3213 9AB3 C6 58           .X    ldab #58   ; "X"
3214 9AB5 F7 0B 95        ...   stab 0b95
3215 9AB8 C6 58           .X    ldab #58   ; "X"
3216 9ABA F7 0B 94        ...   stab 0b94
3217 9ABD C6 58           .X    ldab #58   ; "X"
3218 9ABF F7 0B 93        ...   stab 0b93
3219 9AC2 C6 58           .X    ldab #58   ; "X"
3220 9AC4 F7 0B 91        ...   stab 0b91
3221 9AC7 C6 58           .X    ldab #58   ; "X"
3222 9AC9 F7 0B 90        ...   stab 0b90
3223 ;
3224 9ACC F6 00 13        ...   ldab 0013
3225 9ACF C1 01           ..    cmpb #01
3226 9AD1 23 4C           #L    bls 4c     ; to 9b1f
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     ; to 9b1f
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 ;
3257 9B1F F6 00 2C        ..,   ldab 002c
3258 9B22 26 3E           &>    bne 3e
3259 9B24 BD BE 69        ..i   jsr be69             ;displayreset
3260 95EB 00              .     test
3261 95EC 3A              :     abx
3262 9B27 F6 00 13        ...   ldab 0013
3263 9B2A C1 01           ..    cmpb #01
3264 9B2C 23 2C           #,    bls 2c
3265 9B2E CE 10 28        ..(   ldx #1028
3266 9B31 1C 00 40        ...   bset 00,x, #40 ; enable SPI
3267 9B34 F6 00 1F        ...   ldab 001f
3268 9B37 C4 40           .@    andb #40
3269 9B39 27 0E           '.    beq 0e
3270 9B3B CE 00 01        ...   ldx #0001
3271 9B3E 3C              <     pshx
3272 9B3F F6 00 5F        .._   ldab 005f
3273 9B42 4F              O     clra
3274 9B43 BD BD B5        ...   jsr bdb5             ;jump78
3275 9B46 38              8     pulx
3276 9B47 20 0B            .    bra 0b
3277 9B49 CE 00 01        ...   ldx #0001
3278 9B4C 3C              <     pshx
3279 9B4D CC 00 58        ..X   ldd #0058    ; 'X'
3280 9B50 BD BD B5        ...   jsr bdb5             ;jump78
3281 9B53 38              8     pulx
3282 9B54 CE 10 28        ..(   ldx #1028
3283 9B57 1D 00 40        ...   bclr 00,x, #40
3284 9B5A BD BE 10        ...   jsr be10             ;jump88
3285 9B5D C6 03           ..    ldab #03
3286 9B5F F7 00 2C        ..,   stab 002c
3287 9B62 39              9     rts
3288
3289 jump101:
3290 9B63 BD BE 4B        ..K   jsr be4b             ;displayblank
3291 9B66 FC 00 0D        ...   ldd 000d
3292 9B69 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3293 9B6C C6 44           .D    ldab #44
3294 9B6E F7 0B 99        ...   stab 0b99
3295 9B71 C6 53           .S    ldab #53
3296 9B73 F7 0B 98        ...   stab 0b98
3297 9B76 C6 43           .C    ldab #43
3298 9B78 F7 0B 97        ...   stab 0b97
3299 9B7B C6 4E           .N    ldab #4e
3300 9B7D F7 0B 96        ...   stab 0b96
3301 9B80 C6 54           .T    ldab #54
3302 9B82 F7 0B 95        ...   stab 0b95
3303 9B85 C6 20           .     ldab #20
3304 9B87 F7 0B 94        ...   stab 0b94
3305 9B8A F6 00 5A        ..Z   ldab 005a
3306 9B8D F7 0B 93        ...   stab 0b93
3307 9B90 F6 00 5D        ..]   ldab 005d
3308 9B93 F7 0B 92        ...   stab 0b92
3309 9B96 F6 00 5E        ..^   ldab 005e
3310 9B99 F7 0B 91        ...   stab 0b91
3311 9B9C F6 00 5F        .._   ldab 005f
3312 9B9F F7 0B 90        ...   stab 0b90
3313 9BA2 F6 00 13        ...   ldab 0013
3314 9BA5 C1 01           ..    cmpb #01
3315 9BA7 23 3C           #<    bls 3c
3316 9BA9 F6 0B 91        ...   ldab 0b91
3317 9BAC F7 0B 90        ...   stab 0b90
3318 9BAF F6 00 13        ...   ldab 0013
3319 9BB2 C1 02           ..    cmpb #02
3320 9BB4 26 07           &.    bne 07
3321 9BB6 C6 2E           ..    ldab #2e
3322 9BB8 F7 0B 91        ...   stab 0b91
3323 9BBB 20 28            (    bra 28
3324 9BBD C1 04           ..    cmpb #04
3325 9BBF 26 0D           &.    bne 0d
3326 9BC1 F6 0B 92        ...   ldab 0b92
3327 9BC4 F7 0B 91        ...   stab 0b91
3328 9BC7 C6 2E           ..    ldab #2e
3329 9BC9 F7 0B 92        ...   stab 0b92
3330 9BCC 20 17            .    bra 17
3331 9BCE C1 08           ..    cmpb #08
3332 9BD0 26 13           &.    bne 13
3333 9BD2 F6 0B 92        ...   ldab 0b92
3334 9BD5 F7 0B 91        ...   stab 0b91
3335 9BD8 F6 0B 93        ...   ldab 0b93
3336 9BDB F7 0B 92        ...   stab 0b92
3337 9BDE C6 2E           ..    ldab #2e
3338 9BE0 F7 0B 93        ...   stab 0b93
3339 9BE3 20 00            .    bra 00
3340 9BE5 F6 00 2C        ..,   ldab 002c
3341 9BE8 26 2A           &*    bne 2a
3342 9BEA BD BE 69        ..i   jsr be69             ;displayreset
3343 9BED F6 00 13        ...   ldab 0013
3344 9BF0 C1 01           ..    cmpb #01
3345 9BF2 23 18           #.    bls 18
3346 9BF4 CE 10 28        ..(   ldx #1028
3347 9BF7 1C 00 40        ...   bset 00,x, #40
3348 9BFA CE 00 01        ...   ldx #0001
3349 9BFD 3C              <     pshx
3350 9BFE F6 00 5F        .._   ldab 005f
3351 9C01 4F              O     clra
3352 9C02 BD BD B5        ...   jsr bdb5             ;jump78
3353 9C05 38              8     pulx
3354 9C06 CE 10 28        ..(   ldx #1028
3355 9C09 1D 00 40        ...   bclr 00,x, #40
3356 9C0C BD BE 10        ...   jsr be10             ;jump88
3357 9C0F C6 03           ..    ldab #03
3358 9C11 F7 00 2C        ..,   stab 002c
3359 9C14 39              9     rts
3360
3361 jump111:
3362 9C15 BD BE 4B        ..K   jsr be4b             ;displayblank
3363 9C18 F6 00 48        ..H   ldab 0048
3364 9C1B 4F              O     clra
3365 9C1C BD FE 16        ...   jsr fe16             ;jump2
3366 9C1F 00 00 00 0A     .     0..10
3367 9C23 9D 29           .).   ;
3368 9C25 9C 3B           ;     ;
3369 9C27 9C 53           .S.   ;
3370 9C29 9C 6B           k     ;
3371 9C2B 9C 83           ...   ;
3372 9C2D 9C 9B           ...   ;
3373 9C2F 9C B2           ...   ;
3374 9C31 9C C9           ...   ;
3375 9C33 9C E0           ...   ;
3376 9C35 9C F7           ..    ;
3377 9C37 9D 0E           ...   ;
3378 9C39 9D 23           .#.   ;
3379 9C3B F6 00 67        .     ldab 0067
3380 9C3D C4 02           g.    andb #02
3381 9C40 27 08           '.    beq 08
3382 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
3383 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3384 9C48 20 06            .    bra 06
3385 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
3386 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3387 9C50 7E 9D 29        ~.)   jmp 9d29             ;goto18
3388 ;
3389 9C53 F6 00 67        ..g   ldab 0067
3390 9C56 C4 10           ..    andb #10
3391 9C58 27 08           '.    beq 08
3392 9C5A CC AF 42        ..B   ldd #af42    ; "PRC HOLD Y"
3393 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3394 9C60 20 06            .    bra 06
3395 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
3396 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3397 9C68 7E 9D 29        ~.)   jmp 9d29             ;goto18
3398 ;
3399 9C6B F6 00 67        ..g   ldab 0067
3400 9C6E C4 20           .     andb #20
3401 9C70 27 08           '.    beq 08
3402 9C72 CC AF 58        ..X   ldd #af58    ; "PRC DISP Y"
3403 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3404 9C78 20 06            .    bra 06
3405 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
3406 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3407 9C80 7E 9D 29        ~.)   jmp 9d29             ;goto18
3408 ;
3409 9C83 F6 00 67        ..g   ldab 0067
3410 9C86 C4 01           ..    andb #01
3411 9C88 27 08           '.    beq 08
3412 9C8A CC AE EA        ...   ldd #aeea    ; "DUMB MEC Y"
3413 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3414 9C90 20 06            .    bra 06
3415 9C92 CC AE F5        ...   ldd #aef5    ; "DUMB MEC N"
3416 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3417 9C98 7E 9D 29        ~.)   jmp 9d29             ;goto18
3418 9C9B F6 00 67        ..g   ldab 0067
3419 9C9E C4 04           ..    andb #04
3420 9CA0 27 08           '.    beq 08
3421 9CA2 CC AF 16        ...   ldd #af16    ; "CARD RDR Y"
3422 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3423 9CA8 20 06            .    bra 06
3424 9CAA CC AF 21        ..!   ldd #af21    ; "CARD RDR N"
3425 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3426 9CB0 20 77            w    bra 77
3427 9CB2 F6 00 67        ..g   ldab 0067
3428 9CB5 C4 08           ..    andb #08
3429 9CB7 27 08           '.    beq 08
3430 9CB9 CC AF 2C        ..,   ldd #af2c    ; "BILL VAL Y"
3431 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3432 9CBF 20 06            .    bra 06
3433 9CC1 CC AF 37        ..7   ldd #af37    ; "BILL VAL N"
3434 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3435 9CC7 20 60            `    bra 60
3436 9CC9 F6 00 67        ..g   ldab 0067
3437 9CCC C4 40           .@    andb #40
3438 9CCE 27 08           '.    beq 08
3439 9CD0 CC AF 84        ...   ldd #af84    ; "$1 CHNGR Y"
3440 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3441 9CD6 20 06            .    bra 06
3442 9CD8 CC AF 8F        ...   ldd #af8f    ; "$1 CHNGR N"
3443 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3444 9CDE 20 49            I    bra 49
3445 9CE0 F6 0E 70        ..p   ldab 0e70
3446 9CE3 C1 01           ..    cmpb #01
3447 9CE5 26 08           &.    bne 08
3448 9CE7 CC AE BE        ...   ldd #aebe    ; "$5 ENABLE "
3449 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3450 9CED 20 06            .    bra 06
3451 9CEF CC AE C9        ...   ldd #aec9    ; "$5 DISABLE"
3452 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3453 9CF5 20 32            2    bra 32
3454 9CF7 F6 0E 6F        ..o   ldab 0e6f
3455 9CFA C1 01           ..    cmpb #01
3456 9CFC 26 08           &.    bne 08
3457 9CFE CC AE D4        ...   ldd #aed4    ; "SODA VEND "
3458 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3459 9D04 20 06            .    bra 06
3460 9D06 CC AE DF        ...   ldd #aedf    ; "SNACK VEND"
3461 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3462 9D0C 20 1B            .    bra 1b
3463 9D0E F6 00 67        ..g   ldab 0067
3464 9D11 2C 08           ,.    bge 08
3465 9D13 CC AF 6E        ..n   ldd #af6e    ; "FREE VND Y"
3466 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3467 9D19 20 06            .    bra 06
3468 9D1B CC AF 79        ..y   ldd #af79    ; "FREE VND N"
3469 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3470 9D21 20 06            .    bra 06
3471 9D23 CC AF B0        ...   ldd #afb0    ; "HIT KEY "0""
3472 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3473 goto18:
3474 9D29 39              9     rts
3475
3476 jump89:
3477 9D2A BD BE 4B        ..K   jsr be4b             ;displayblank
3478 9D2D F6 00 22        .."   ldab 0022
3479 9D30 4F              O     clra
3480 9D31 BD E7 95        ...   jsr e795             ;jump54 - number to string
3481 9D34 F6 00 5E        ..^   ldab 005e
3482 9D37 F7 0B 99        ...   stab 0b99
3483 9D3A F6 00 5F        .._   ldab 005f
3484 9D3D F7 0B 98        ...   stab 0b98
3485 9D40 C6 20           .     ldab #20
3486 9D42 F7 0B 97        ...   stab 0b97
3487 9D45 F6 00 24        ..$   ldab 0024
3488 9D48 4F              O     clra
3489 9D49 BD E7 95        ...   jsr e795             ;jump54 - number to string
3490 9D4C C6 50           .P    ldab #50
3491 9D4E F7 0B 96        ...   stab 0b96
3492 9D51 F6 00 5E        ..^   ldab 005e
3493 9D54 F7 0B 95        ...   stab 0b95
3494 9D57 F6 00 5F        .._   ldab 005f
3495 9D5A F7 0B 94        ...   stab 0b94
3496 9D5D C6 20           .     ldab #20
3497 9D5F F7 0B 93        ...   stab 0b93
3498 9D62 F6 00 2A        ..*   ldab 002a
3499 9D65 4F              O     clra
3500 9D66 BD E7 95        ...   jsr e795             ;jump54 - number to string
3501 9D69 C6 46           .F    ldab #46
3502 9D6B F7 0B 92        ...   stab 0b92
3503 9D6E F6 00 5E        ..^   ldab 005e
3504 9D71 F7 0B 91        ...   stab 0b91
3505 9D74 F6 00 5F        .._   ldab 005f
3506 9D77 F7 0B 90        ...   stab 0b90
3507 9D7A BD BE 01        ...   jsr be01             ;jump70
3508 9D7D 39              9     rts
3509 ;
3510 9D7E BD BE 4B        ..K   jsr be4b             ;displayblank
3511 9D81 F6 00 60        ..`   ldab 0060
3512 9D84 4F              O     clra
3513 9D85 C3 0A 90        ...   addd #0a90
3514 9D88 8F              .     xgdx
3515 9D89 E6 00           ..    ldab 00,x
3516 9D8B F7 0B 99        ...   stab 0b99
3517 9D8E F6 00 60        ..`   ldab 0060
3518 9D91 4F              O     clra
3519 9D92 C3 0A 91        ...   addd #0a91
3520 9D95 8F              .     xgdx
3521 9D96 E6 00           ..    ldab 00,x
3522 9D98 F7 0B 98        ...   stab 0b98
3523 9D9B F6 00 60        ..`   ldab 0060
3524 9D9E 4F              O     clra
3525 9D9F C3 0A 92        ...   addd #0a92
3526 9DA2 8F              .     xgdx
3527 9DA3 E6 00           ..    ldab 00,x
3528 9DA5 F7 0B 97        ...   stab 0b97
3529 9DA8 F6 00 60        ..`   ldab 0060
3530 9DAB 4F              O     clra
3531 9DAC C3 0A 94        ...   addd #0a94
3532 9DAF 8F              .     xgdx
3533 9DB0 E6 00           ..    ldab 00,x
3534 9DB2 F7 0B 95        ...   stab 0b95
3535 9DB5 F6 00 60        ..`   ldab 0060
3536 9DB8 4F              O     clra
3537 9DB9 C3 0A 95        ...   addd #0a95
3538 9DBC 8F              .     xgdx
3539 9DBD E6 00           ..    ldab 00,x
3540 9DBF F7 0B 94        ...   stab 0b94
3541 9DC2 F6 00 60        ..`   ldab 0060
3542 9DC5 4F              O     clra
3543 9DC6 C3 0A 96        ...   addd #0a96
3544 9DC9 8F              .     xgdx
3545 9DCA E6 00           ..    ldab 00,x
3546 9DCC F7 0B 93        ...   stab 0b93
3547 9DCF C6 20           .     ldab #20
3548 9DD1 F7 0B 92        ...   stab 0b92
3549 9DD4 C6 20           .     ldab #20
3550 9DD6 F7 0B 91        ...   stab 0b91
3551 9DD9 F6 00 54        ..T   ldab 0054
3552 9DDC 4F              O     clra
3553 9DDD C3 B4 8F        ...   addd #b48f
3554 9DE0 8F              .     xgdx
3555 9DE1 E6 00           ..    ldab 00,x
3556 9DE3 F7 0B 90        ...   stab 0b90
3557 9DE6 F6 00 38        ..8   ldab 0038
3558 9DE9 C1 03           ..    cmpb #03
3559 9DEB 24 0F           $.    bcc 0f
3560 9DED F6 00 60        ..`   ldab 0060
3561 9DF0 4F              O     clra
3562 9DF1 C3 0A 93        ...   addd #0a93
3563 9DF4 8F              .     xgdx
3564 9DF5 E6 00           ..    ldab 00,x
3565 9DF7 F7 0B 96        ...   stab 0b96
3566 9DFA 20 05            .    bra 05
3567 9DFC C6 1F           ..    ldab #1f
3568 9DFE F7 0B 96        ...   stab 0b96
3569 9E01 BD BE 01        ...   jsr be01             ;jump70
3570 9E04 F6 00 38        ..8   ldab 0038
3571 9E07 26 05           &.    bne 05
3572 9E09 C6 05           ..    ldab #05
3573 9E0B F7 00 38        ..8   stab 0038
3574 9E0E 39              9     rts
3575
3576 jump142:
3577 9E0F BD BE 4B        ..K   jsr be4b             ;displayblank
3578 9E12 F6 00 48        ..H   ldab 0048
3579 9E15 26 15           &.    bne 15
3580 9E17 F6 00 66        ..f   ldab 0066
3581 9E1A 27 08           '.    beq 08
3582 9E1C CC AF C6        ...   ldd #afc6    ; "SECURE ON"
3583 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3584 9E22 20 06            .    bra 06
3585 9E24 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
3586 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3587 9E2A 20 5C            \    bra 5c
3588 9E2C C6 4D           .M    ldab #4d
3589 9E2E F7 0B 99        ...   stab 0b99
3590 9E31 C6 45           .E    ldab #45
3591 9E33 F7 0B 98        ...   stab 0b98
3592 9E36 C6 4E           .N    ldab #4e
3593 9E38 F7 0B 97        ...   stab 0b97
3594 9E3B C6 55           .U    ldab #55
3595 9E3D F7 0B 96        ...   stab 0b96
3596 9E40 C6 20           .     ldab #20
3597 9E42 F7 0B 95        ...   stab 0b95
3598 9E45 F6 00 48        ..H   ldab 0048
3599 9E48 CB 30           .0    addb #30
3600 9E4A F7 0B 94        ...   stab 0b94
3601 9E4D F6 00 48        ..H   ldab 0048
3602 9E50 C1 0A           ..    cmpb #0a
3603 9E52 26 05           &.    bne 05
3604 9E54 C6 30           .0    ldab #30
3605 9E56 F7 0B 94        ...   stab 0b94
3606 9E59 C6 20           .     ldab #20
3607 9E5B F7 0B 93        ...   stab 0b93
3608 9E5E C6 4F           .O    ldab #4f
3609 9E60 F7 0B 92        ...   stab 0b92
3610 9E63 F6 00 48        ..H   ldab 0048
3611 9E66 4F              O     clra
3612 9E67 C3 00 68        ..h   addd #0068
3613 9E6A 8F              .     xgdx
3614 9E6B E6 00           ..    ldab 00,x
3615 9E6D 27 0C           '.    beq 0c
3616 9E6F C6 4E           .N    ldab #4e
3617 9E71 F7 0B 91        ...   stab 0b91
3618 9E74 C6 20           .     ldab #20
3619 9E76 F7 0B 90        ...   stab 0b90
3620 9E79 20 0A            .    bra 0a
3621 9E7B C6 46           .F    ldab #46
3622 9E7D F7 0B 91        ...   stab 0b91
3623 9E80 C6 46           .F    ldab #46
3624 9E82 F7 0B 90        ...   stab 0b90
3625 9E85 BD BE 01        ...   jsr be01             ;jump70
3626 9E88 39              9     rts
3627
3628 jump100:
3629 ; print out information to display
3630 9E89 BD BE 4B        ..K   jsr be4b             ;displayblank
3631 9E8C F6 00 48        ..H   ldab 0048
3632 9E8F 4F              O     clra
3633 9E90 BD FE 16        ...   jsr fe16             ;jump2
3634 9E93 00 01 00 2D     .     ; 45 choices here
3635 9E97 A1 C4           -.    ;
3636 9E99 9E F5           ..    ;
3637 9E9B 9E FE           ..    ;
3638 9E9D 9F 07           ..    ;
3639 9E9F 9F 10           ..    ;
3640 9EA1 9F 19           ..    ;
3641 9EA3 9F 3B           ;.    ;
3642 9EA5 9F 44           .D.   ;
3643 9EA7 9F 52           R     ;
3644 9EA9 9F 5B           .[.   ;
3645 9EAB 9F 69           i     ;
3646 9EAD 9F 72           .r.   ;
3647 9EBF 9F 80           ..    ;
3648 9EB1 9F 89           ..    ;
3649 9EB3 9F 97           ..    ;
3650 9EB5 9F A0           ...   ;
3651 9EB7 9F AE           ..    ;
3652 9EB9 9F B7           ...   ;
3653 9EBB 9F C5           ...   ;
3654 9EBD 9F DD           ...   ;
3655 9EBF 9F EB           ..    ;
3656 9EC1 A0 03           .     ;
3657 9EC3 A0 11           ..    ;
3658 9EC5 A0 29           .)    ;
3659 9EC7 A0 37           .7    ;
3660 9EC9 A0 54           .T    ;
3661 9ECB A0 62           .b    ;
3662 9ECD A0 7F           ..    ;
3663 9ECF A0 8D           ..    ;
3664 9ED1 A0 96           ..    ;
3665 9ED3 A0 A4           ..    ;
3666 9ED5 A0 AD           ..    ;
3667 9ED7 A0 BC           ..    ;
3668 9ED9 A0 C5           ..    ;
3669 9EDB A0 D4           ..    ;
3670 9EDD A0 DD           ..    ;
3671 9EDF A0 EC           ..    ;
3672 9EE1 A0 F5           ..    ;
3673 9EE3 A1 04           ..    ;
3674 9EE5 A1 26           .&    ;
3675 9EE7 A1 34           .4    ;
3676 9EE9 A1 55           .U    ;
3677 9EEB A1 62           .b    ;
3678 9EED A1 83           ..    ;
3679 9EEF A1 90           ..    ;
3680 9EF1 A1 B1           ..    ;
3681 9EF3 A1 BE           ..    ;
3682 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
3683 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3684 9EFB 7E A1 C4        ~..   jmp a1c4             ;goto19
3685 9EFE CC 0C BC        ...   ldd #0cbc    ; serial number?
3686 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3687 9F04 7E A1 C4        ~..   jmp a1c4             ;goto19
3688 9F07 CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
3689 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3690 9F0D 7E A1 C4        ~..   jmp a1c4             ;goto19
3691 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
3692 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3693 9F16 7E A1 C4        ~..   jmp a1c4             ;goto19
3694 9F19 C6 41           .A    ldab #41     ; "A"
3695 9F1B F7 0B 99        ...   stab 0b99
3696 9F1E C6 55           .U    ldab #55     ; "U"
3697 9F20 F7 0B 98        ...   stab 0b98
3698 9F23 C6 44           .D    ldab #44     ; "D"
3699 9F25 F7 0B 97        ...   stab 0b97
3700 9F28 C6 54           .T    ldab #54     ; "T"
3701 9F2A F7 0B 96        ...   stab 0b96
3702 9F2D CE 00 00        ...   ldx #0000
3703 9F30 3C              <     pshx
3704 9F31 FC 0C E7        ...   ldd 0ce7
3705 9F34 BD A2 D4        ...   jsr a2d4             ;jump79
3706 9F37 38              8     pulx
3707 9F38 7E A1 C4        ~..   jmp a1c4             ;goto19
3708 9F3B CC B2 C6        ...   ldd #b2c6    ; "SALES (R)   "
3709 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3710 9F41 7E A1 C4        ~..   jmp a1c4             ;goto19
3711 9F44 FE 0D E9        ...   ldx 0de9
3712 9F47 3C              <     pshx
3713 9F48 FC 0D E7        ...   ldd 0de7
3714 9F4B BD A3 41        ..A   jsr a341             ;jump77
3715 9F4E 38              8     pulx
3716 9F4F 7E A1 C4        ~..   jmp a1c4             ;goto19
3717 9F52 CC B2 D8        ...   ldd #b2d8    ; "SALES (N)   "
3718 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3719 9F58 7E A1 C4        ~..   jmp a1c4             ;goto19
3720 9F5B FE 0D ED        ...   ldx 0ded
3721 9F5E 3C              <     pshx
3722 9F5F FC 0D EB        ...   ldd 0deb
3723 9F62 BD A3 41        ..A   jsr a341             ;jump77
3724 9F65 38              8     pulx
3725 9F66 7E A1 C4        ~..   jmp a1c4             ;goto19
3726 9F69 CC B2 EA        ...   ldd #b2ea    ; "BAG TOTAL"
3727 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3728 9F6F 7E A1 C4        ~..   jmp a1c4             ;goto19
3729 9F72 FE 0D F1        ...   ldx 0df1
3730 9F75 3C              <     pshx
3731 9F76 FC 0D EF        ...   ldd 0def
3732 9F79 BD A3 41        ..A   jsr a341             ;jump77
3733 9F7C 38              8     pulx
3734 9F7D 7E A1 C4        ~..   jmp a1c4             ;goto19
3735 9F80 CC B2 FC        ...   ldd #b2fc    ; "CASH BOX"
3736 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3737 9F86 7E A1 C4        ~..   jmp a1c4             ;goto19
3738 9F89 FE 0D F9        ...   ldx 0df9
3739 9F8C 3C              <     pshx
3740 9F8D FC 0D F7        ...   ldd 0df7
3741 9F90 BD A3 41        ..A   jsr a341             ;jump77
3742 9F93 38              8     pulx
3743 9F94 7E A1 C4        ~..   jmp a1c4             ;goto19
3744 9F97 CC B3 0E        ...   ldd #b30e    ; "CARD SALES"
3745 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3746 9F9D 7E A1 C4        ~..   jmp a1c4             ;goto19
3747 9FA0 FE 0D FD        ...   ldx 0dfd
3748 9FA3 3C              <     pshx
3749 9FA4 FC 0D FB        ...   ldd 0dfb
3750 9FA7 BD A3 41        ..A   jsr a341             ;jump77
3751 9FAA 38              8     pulx
3752 9FAB 7E A1 C4        ~..   jmp a1c4             ;goto19
3753 9FAE CC B3 35        ..5   ldd #b335    ; "BILL TOTAL"
3754 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3755 9FB4 7E A1 C4        ~..   jmp a1c4             ;goto19
3756 9FB7 FE 0D F5        ...   ldx 0df5
3757 9FBA 3C              <     pshx
3758 9FBB FC 0D F3        ...   ldd 0df3
3759 9FBE BD A3 41        ..A   jsr a341             ;jump77
3760 9FC1 38              8     pulx
3761 9FC2 7E A1 C4        ~..   jmp a1c4             ;goto19
3762 9FC5 C6 24           .$    ldab #24
3763 9FC7 F7 0B 99        ...   stab 0b99
3764 9FCA C6 31           .1    ldab #31
3765 9FCC F7 0B 98        ...   stab 0b98
3766 9FCF CE 00 00        ...   ldx #0000
3767 9FD2 3C              <     pshx
3768 9FD3 FC 0C DD        ...   ldd 0cdd
3769 9FD6 BD A2 D4        ...   jsr a2d4             ;jump79
3770 9FD9 38              8     pulx
3771 9FDA 7E A1 C4        ~..   jmp a1c4             ;goto19
3772 9FDD FE 0C F5        ...   ldx 0cf5
3773 9FE0 3C              <     pshx
3774 9FE1 FC 0C F3        ...   ldd 0cf3
3775 9FE4 BD A3 41        ..A   jsr a341             ;jump77
3776 9FE7 38              8     pulx
3777 9FE8 7E A1 C4        ~..   jmp a1c4             ;goto19
3778 9FEB C6 24           .$    ldab #24
3779 9FED F7 0B 99        ...   stab 0b99
3780 9FF0 C6 32           .2    ldab #32
3781 9FF2 F7 0B 98        ...   stab 0b98
3782 9FF5 CE 00 00        ...   ldx #0000
3783 9FF8 3C              <     pshx
3784 9FF9 FC 0C DF        ...   ldd 0cdf
3785 9FFC BD A2 D4        ...   jsr a2d4             ;jump79
3786 9FFF 38              8     pulx
3787 A000 7E A1 C4        ~..   jmp a1c4             ;goto19
3788 A003 FE 0C F9        ...   ldx 0cf9
3789 A006 3C              <     pshx
3790 A007 FC 0C F7        ...   ldd 0cf7
3791 A00A BD A3 41        ..A   jsr a341             ;jump77
3792 A00D 38              8     pulx
3793 A00E 7E A1 C4        ~..   jmp a1c4             ;goto19
3794 A011 C6 24           .$    ldab #24
3795 A013 F7 0B 99        ...   stab 0b99
3796 A016 C6 35           .5    ldab #35
3797 A018 F7 0B 98        ...   stab 0b98
3798 A01B CE 00 00        ...   ldx #0000
3799 A01E 3C              <     pshx
3800 A01F FC 0C E1        ...   ldd 0ce1
3801 A022 BD A2 D4        ...   jsr a2d4             ;jump79
3802 A025 38              8     pulx
3803 A026 7E A1 C4        ~..   jmp a1c4             ;goto19
3804 A029 FE 0C FD        ...   ldx 0cfd
3805 A02C 3C              <     pshx
3806 A02D FC 0C FB        ...   ldd 0cfb
3807 A030 BD A3 41        ..A   jsr a341             ;jump77
3808 A033 38              8     pulx
3809 A034 7E A1 C4        ~..   jmp a1c4             ;goto19
3810 A037 C6 24           .$    ldab #24
3811 A039 F7 0B 99        ...   stab 0b99
3812 A03C C6 31           .1    ldab #31
3813 A03E F7 0B 98        ...   stab 0b98
3814 A041 C6 30           .0    ldab #30
3815 A043 F7 0B 97        ...   stab 0b97
3816 A046 CE 00 00        ...   ldx #0000
3817 A049 3C              <     pshx
3818 A04A FC 0C E3        ...   ldd 0ce3
3819 A04D BD A2 D4        ...   jsr a2d4             ;jump79
3820 A050 38              8     pulx
3821 A051 7E A1 C4        ~..   jmp a1c4             ;goto19
3822 A054 FE 0D 01        ...   ldx 0d01
3823 A057 3C              <     pshx
3824 A058 FC 0C FF        ...   ldd 0cff
3825 A05B BD A3 41        ..A   jsr a341             ;jump77
3826 A05E 38              8     pulx
3827 A05F 7E A1 C4        ~..   jmp a1c4             ;goto19
3828 A062 C6 24           .$    ldab #24
3829 A064 F7 0B 99        ...   stab 0b99
3830 A067 C6 32           .2    ldab #32
3831 A069 F7 0B 98        ...   stab 0b98
3832 A06C C6 30           .0    ldab #30
3833 A06E F7 0B 97        ...   stab 0b97
3834 A071 CE 00 00        ...   ldx #0000
3835 A074 3C              <     pshx
3836 A075 FC 0C E5        ...   ldd 0ce5
3837 A078 BD A2 D4        ...   jsr a2d4             ;jump79
3838 A07B 38              8     pulx
3839 A07C 7E A1 C4        ~..   jmp a1c4             ;goto19
3840 A07F FE 0D 05        ...   ldx 0d05
3841 A082 3C              <     pshx
3842 A083 FC 0D 03        ...   ldd 0d03
3843 A086 BD A3 41        ..A   jsr a341             ;jump77
3844 A089 38              8     pulx
3845 A08A 7E A1 C4        ~..   jmp a1c4             ;goto19
3846 A08D CC B3 B7        ...   ldd #b3b7    ; "TUBE TOTAL"
3847 A090 BD C0 BA        ...   jsr c0ba             ;display:
3848 A093 7E A1 C4        ~..   jmp a1c4             ;goto19
3849 A096 CE 00 01        ...   ldx #0001
3850 A099 3C              <     pshx
3851 A09A FC 0C F1        ...   ldd 0cf1
3852 A09D BD A2 D4        ...   jsr a2d4             ;jump79
3853 A0A0 38              8     pulx
3854 A0A1 7E A1 C4        ~..   jmp a1c4             ;goto19
3855 A0A4 CC B3 CE        ...   ldd #b3ce    ; "$1 COIN"
3856 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3857 A0AA 7E A1 C4        ~..   jmp a1c4             ;goto19
3858 A0AD FE 0C E9        ...   ldx 0ce9
3859 A0B0 3C              <     pshx
3860 A0B1 F6 0C DC        ...   ldab 0cdc
3861 A0B4 4F              O     clra
3862 A0B5 BD A3 1A        ...   jsr a31a             ;jump93
3863 A0B8 38              8     pulx
3864 A0B9 7E A1 C4        ~..   jmp a1c4             ;goto19
3865 A0BC CC B3 E0        ...   ldd #b3e0    ; "QUARTERS"
3866 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3867 A0C2 7E A1 C4        ~..   jmp a1c4             ;goto19
3868 A0C5 FE 0C EB        ...   ldx 0ceb
3869 A0C8 3C              <     pshx
3870 A0C9 F6 0C DB        ...   ldab 0cdb
3871 A0CC 4F              O     clra
3872 A0CD BD A3 1A        ...   jsr a31a             ;jump93
3873 A0D0 38              8     pulx
3874 A0D1 7E A1 C4        ~..   jmp a1c4             ;goto19
3875 A0D4 CC B3 F2        ...   ldd #b3f2    ; "DIMES"
3876 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3877 A0DA 7E A1 C4        ~..   jmp a1c4             ;goto19
3878 A0DD FE 0C ED        ...   ldx 0ced
3879 A0E0 3C              <     pshx
3880 A0E1 F6 0C DA        ...   ldab 0cda
3881 A0E4 4F              O     clra
3882 A0E5 BD A3 1A        ...   jsr a31a             ;jump93
3883 A0E8 38              8     pulx
3884 A0E9 7E A1 C4        ~..   jmp a1c4             ;goto19
3885 A0EC CC B4 04        ...   ldd #b404    ; "NICKELS"
3886 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3887 A0F2 7E A1 C4        ~..   jmp a1c4             ;goto19
3888 A0F5 FE 0C EF        ...   ldx 0cef
3889 A0F8 3C              <     pshx
3890 A0F9 F6 0C D9        ...   ldab 0cd9
3891 A0FC 4F              O     clra
3892 A0FD BD A3 1A        ...   jsr a31a             ;jump93
3893 A100 38              8     pulx
3894 A101 7E A1 C4        ~..   jmp a1c4             ;goto19
3895 A104 C6 57           .W    ldab #57
3896 A106 F7 0B 99        ...   stab 0b99
3897 A109 C6 53           .S    ldab #53
3898 A10B F7 0B 98        ...   stab 0b98
3899 A10E C6 4E           .N    ldab #4e
3900 A110 F7 0B 97        ...   stab 0b97
3901 A113 C6 4B           .K    ldab #4b
3902 A115 F7 0B 96        ...   stab 0b96
3903 A118 CE 00 00        ...   ldx #0000
3904 A11B 3C              <     pshx
3905 A11C FC 0D 07        ...   ldd 0d07
3906 A11F BD A2 D4        ...   jsr a2d4             ;jump79
3907 A122 38              8     pulx
3908 A123 7E A1 C4        ~..   jmp a1c4             ;goto19
3909 A126 FE 0D 11        ...   ldx 0d11
3910 A129 3C              <     pshx
3911 A12A FC 0D 0F        ...   ldd 0d0f
3912 A12D BD A3 41        ..A   jsr a341             ;jump77
3913 A130 38              8     pulx
3914 A131 7E A1 C4        ~..   jmp a1c4             ;goto19
3915 A134 C6 53           .S    ldab #53
3916 A136 F7 0B 99        ...   stab 0b99
3917 A139 C6 48           .H    ldab #48
3918 A13B F7 0B 98        ...   stab 0b98
3919 A13E C6 50           .P    ldab #50
3920 A140 F7 0B 97        ...   stab 0b97
3921 A143 C6 52           .R    ldab #52
3922 A145 F7 0B 96        ...   stab 0b96
3923 A148 CE 00 00        ...   ldx #0000
3924 A14B 3C              <     pshx
3925 A14C FC 0D 09        ...   ldd 0d09
3926 A14F BD A2 D4        ...   jsr a2d4             ;jump79
3927 A152 38              8     pulx
3928 A153 20 6F            o    bra 6f
3929 A155 FE 0D 15        ...   ldx 0d15
3930 A158 3C              <     pshx
3931 A159 FC 0D 13        ...   ldd 0d13
3932 A15C BD A3 41        ..A   jsr a341             ;jump77
3933 A15F 38              8     pulx
3934 A160 20 62            b    bra 62
3935 A162 C6 50           .P    ldab #50
3936 A164 F7 0B 99        ...   stab 0b99
3937 A167 C6 52           .R    ldab #52
3938 A169 F7 0B 98        ...   stab 0b98
3939 A16C C6 4D           .M    ldab #4d
3940 A16E F7 0B 97        ...   stab 0b97
3941 A171 C6 4F           .O    ldab #4f
3942 A173 F7 0B 96        ...   stab 0b96
3943 A176 CE 00 00        ...   ldx #0000
3944 A179 3C              <     pshx
3945 A17A FC 0D 0B        ...   ldd 0d0b
3946 A17D BD A2 D4        ...   jsr a2d4             ;jump79
3947 A180 38              8     pulx
3948 A181 20 41            A    bra 41
3949 A183 FE 0D 19        ...   ldx 0d19
3950 A186 3C              <     pshx
3951 A187 FC 0D 17        ...   ldd 0d17
3952 A18A BD A3 41        ..A   jsr a341             ;jump77
3953 A18D 38              8     pulx
3954 A18E 20 34            4    bra 34
3955 A190 C6 46           .F    ldab #46
3956 A192 F7 0B 99        ...   stab 0b99
3957 A195 C6 52           .R    ldab #52
3958 A197 F7 0B 98        ...   stab 0b98
3959 A19A C6 45           .E    ldab #45
3960 A19C F7 0B 97        ...   stab 0b97
3961 A19F C6 45           .E    ldab #45
3962 A1A1 F7 0B 96        ...   stab 0b96
3963 A1A4 CE 00 00        ...   ldx #0000
3964 A1A7 3C              <     pshx
3965 A1A8 FC 0D 0D        ...   ldd 0d0d
3966 A1AB BD A2 D4        ...   jsr a2d4             ;jump79
3967 A1AE 38              8     pulx
3968 A1AF 20 13            .    bra 13
3969 A1B1 FE 0D 1D        ...   ldx 0d1d
3970 A1B4 3C              <     pshx
3971 A1B5 FC 0D 1B        ...   ldd 0d1b
3972 A1B8 BD A3 41        ..A   jsr a341             ;jump77
3973 A1BB 38              8     pulx
3974 A1BC 20 06            .    bra 06
3975 A1BE CC B4 84        ...   ldd #b484    ; "VENDS/CODE"
3976 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3977 goto19:
3978 A1C4 F6 00 48        ..H   ldab 0048
3979 A1C7 C1 2E           ..    cmpb #2e
3980 A1C9 23 74           #t    bls 74
3981 A1CB F6 00 48        ..H   ldab 0048
3982 A1CE C1 92           ..    cmpb #92
3983 A1D0 24 6D           $m    bcc 6d
3984 A1D2 F6 00 48        ..H   ldab 0048
3985 A1D5 4F              O     clra
3986 A1D6 05              .     asld
3987 A1D7 C3 08 6C        ..l   addd #086c
3988 A1DA 8F              .     xgdx
3989 A1DB EC 00           ..    ldd 00,x
3990 A1DD C4 80           ..    andb #80
3991 A1DF 26 0E           &.    bne 0e
3992 A1E1 7C 00 48        |.H   inc 0048
3993 A1E4 F6 00 48        ..H   ldab 0048
3994 A1E7 C1 92           ..    cmpb #92
3995 A1E9 26 02           &.    bne 02
3996 A1EB 20 02            .    bra 02
3997 A1ED 20 E3            .    bra e3
3998 A1EF F6 00 48        ..H   ldab 0048
3999 A1F2 4F              O     clra
4000 A1F3 C3 FF D2        ...   addd #ffd2
4001 A1F6 BD E7 95        ...   jsr e795             ;jump54 - number to string
4002 A1F9 F6 00 5E        ..^   ldab 005e
4003 A1FC F7 0B 99        ...   stab 0b99
4004 A1FF F6 00 5F        .._   ldab 005f
4005 A202 F7 0B 98        ...   stab 0b98
4006 A205 F6 00 48        ..H   ldab 0048
4007 A208 4F              O     clra
4008 A209 05              .     asld
4009 A20A C3 0C C3        ...   addd #0cc3
4010 A20D 8F              .     xgdx
4011 A20E EC 00           ..    ldd 00,x
4012 A210 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4013 A213 F6 00 57        ..W   ldab 0057
4014 A216 F7 0B 94        ...   stab 0b94
4015 A219 F6 00 5A        ..Z   ldab 005a
4016 A21C F7 0B 93        ...   stab 0b93
4017 A21F F6 00 5D        ..]   ldab 005d
4018 A222 F7 0B 92        ...   stab 0b92
4019 A225 F6 00 5E        ..^   ldab 005e
4020 A228 F7 0B 91        ...   stab 0b91
4021 A22B F6 00 5F        .._   ldab 005f
4022 A22E F7 0B 90        ...   stab 0b90
4023 A231 5F              _     clrb
4024 A232 4F              O     clra
4025 A233 8D 27           .'    bsr dest 27
4026 A235 F6 00 48        ..H   ldab 0048
4027 A238 C1 92           ..    cmpb #92
4028 A23A 26 03           &.    bne 03
4029 A23C 7F 00 2C        ..,   clr 002c
4030 A23F F6 00 48        ..H   ldab 0048
4031 A242 C1 92           ..    cmpb #92
4032 A244 26 15           &.    bne 15
4033 A246 F6 00 1F        ...   ldab 001f
4034 A249 C4 10           ..    andb #10
4035 A24B 27 08           '.    beq 08
4036 A24D CC AF 9A        ...   ldd #af9a    ; "CLR MIS Y"
4037 A250 BD C0 BA        ...   jsr c0ba             ;display:
4038 A253 20 06            .    bra 06
4039 A255 CC AF A5        ...   ldd #afa5    ; "CLR MIS N"
4040 A258 BD C0 BA        ...   jsr c0ba             ;display:
4041 A25B 39              9     rts
4042
4043 bigmodulus:
4044 A25C 37              7     pshb
4045 A25D 36              6     psha
4046 A25E F6 00 2C        ..,   ldab 002c
4047 A261 26 6F           &o    bne 6f
4048 A263 BD BE 69        ..i   jsr be69             ;displayreset
4049 A266 30              0     tsx
4050 A267 E6 01           ..    ldab 01,x
4051 A269 27 5F           '_    beq 5f
4052 A26B F6 00 13        ...   ldab 0013
4053 A26E C1 01           ..    cmpb #01
4054 A270 23 58           #X    bls 58
4055 A272 CE 10 28        ..(   ldx #1028
4056 A275 1C 00 40        ...   bset 00,x, #40
4057 A278 CE 00 01        ...   ldx #0001
4058 A27B 3C              <     pshx
4059 A27C F6 0B 90        ...   ldab 0b90
4060 A27F 4F              O     clra
4061 A280 BD BD B5        ...   jsr bdb5             ;jump78
4062 A283 38              8     pulx
4063 A284 CE 10 28        ..(   ldx #1028
4064 A287 1D 00 40        ...   bclr 00,x, #40
4065 A28A F6 0B 91        ...   ldab 0b91
4066 A28D F7 0B 90        ...   stab 0b90
4067 A290 F6 00 13        ...   ldab 0013
4068 A293 C1 02           ..    cmpb #02
4069 A295 26 07           &.    bne 07
4070 A297 C6 2E           ..    ldab #2e
4071 A299 F7 0B 91        ...   stab 0b91
4072 A29C 20 2C            ,    bra 2c
4073 A29E F6 00 13        ...   ldab 0013
4074 A2A1 C1 04           ..    cmpb #04
4075 A2A3 26 0D           &.    bne 0d
4076 A2A5 F6 0B 92        ...   ldab 0b92
4077 A2A8 F7 0B 91        ...   stab 0b91
4078 A2AB C6 2E           ..    ldab #2e
4079 A2AD F7 0B 92        ...   stab 0b92
4080 A2B0 20 18            .    bra 18
4081 A2B2 F6 00 13        ...   ldab 0013
4082 A2B5 C1 08           ..    cmpb #08
4083 A2B7 26 11           &.    bne 11
4084 A2B9 F6 0B 92        ...   ldab 0b92
4085 A2BC F7 0B 91        ...   stab 0b91
4086 A2BF F6 0B 93        ...   ldab 0b93
4087 A2C2 F7 0B 92        ...   stab 0b92
4088 A2C5 C6 2E           ..    ldab #2e
4089 A2C7 F7 0B 93        ...   stab 0b93
4090 A2CA BD BE 10        ...   jsr be10             ;jump88
4091 A2CD C6 03           ..    ldab #03
4092 A2CF F7 00 2C        ..,   stab 002c
4093 A2D2 38              8     pulx
4094 A2D3 39              9     rts
4095
4096 jump79:
4097 ; displays a price on screen?
4098 A2D4 37              7     pshb
4099 A2D5 36              6     psha
4100 A2D6 30              0     tsx
4101 A2D7 EC 00           ..    ldd 00,x
4102 A2D9 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4103 A2DC F6 00 57        ..W   ldab 0057
4104 A2DF F7 0B 94        ...   stab 0b94
4105 A2E2 F6 00 5A        ..Z   ldab 005a
4106 A2E5 F7 0B 93        ...   stab 0b93
4107 A2E8 F6 00 5D        ..]   ldab 005d
4108 A2EB F7 0B 92        ...   stab 0b92
4109 A2EE F6 00 5E        ..^   ldab 005e
4110 A2F1 F7 0B 91        ...   stab 0b91
4111 A2F4 F6 00 5F        .._   ldab 005f
4112 A2F7 F7 0B 90        ...   stab 0b90
4113 A2FA 30              0     tsx
4114 A2FB E6 05           ..    ldab 05,x
4115 A2FD 27 14           '.    beq 14
4116 A2FF F6 00 17        ...   ldab 0017
4117 A302 C4 08           ..    andb #08
4118 A304 26 05           &.    bne 05       ; to a30b
4119 A306 C6 24           .$    ldab #24     ; "$"
4120 A308 F7 0B 95        ...   stab 0b95
4121 A30B CC 00 01        ...   ldd #0001
4122 A30E BD A2 5C        ..\   jsr a25c             ;bigmodulus
4123 A311 20 05            .    bra 05       ; return
4124 A313 5F              _     clrb
4125 A314 4F              O     clra
4126 A315 BD A2 5C        ..\   jsr a25c             ;bigmodulus
4127 A318 38              8     pulx
4128 A319 39              9     rts
4129
4130 jump93:
4131 ; write number to display
4132 A31A 37              7     pshb
4133 A31B 36              6     psha
4134 A31C 30              0     tsx
4135 A31D E6 01           ..    ldab 01,x
4136 A31F 4F              O     clra
4137 A320 BD E7 95        ...   jsr e795             ;jump54 - number to string
4138 A323 F6 00 5D        ..]   ldab 005d
4139 A326 F7 0B 99        ...   stab 0b99
4140 A329 F6 00 5E        ..^   ldab 005e
4141 A32C F7 0B 98        ...   stab 0b98
4142 A32F F6 00 5F        .._   ldab 005f
4143 A332 F7 0B 97        ...   stab 0b97
4144 A335 CE 00 01        ...   ldx #0001
4145 A338 3C              <     pshx
4146 A339 30              0     tsx
4147 A33A EC 06           ..    ldd 06,x
4148 A33C 8D 96           ..    bsr dest 96
4149 A33E 38              8     pulx
4150 A33F 38              8     pulx
4151 A340 39              9     rts
4152
4153 jump77:
4154 A341 38              8     pulx
4155 A342 37              7     pshb
4156 A343 36              6     psha
4157 A344 3C              <     pshx
4158 A345 30              0     tsx
4159 A346 EC 04           ..    ldd 04,x
4160 A348 37              7     pshb
4161 A349 36              6     psha
4162 A34A EC 02           ..    ldd 02,x
4163 A34C BD E6 21        ..!   jsr e621             ;jump56 - write to display
4164 A34F 38              8     pulx
4165 A350 C6 20           .     ldab #20     ; " "
4166 A352 F7 0B 99        ...   stab 0b99
4167 A355 F6 00 17        ...   ldab 0017
4168 A358 C4 08           ..    andb #08
4169 A35A 26 05           &.    bne 05
4170 A35C C6 24           .$    ldab #24     ; "$"
4171 A35E F7 0B 98        ...   stab 0b98
4172 A361 CC 00 01        ...   ldd #0001
4173 A364 BD A2 5C        ..\   jsr a25c             ;bigmodulus
4174 A367 38              8     pulx
4175 A368 31              1     ins
4176 A369 31              1     ins
4177 A36A 6E 00           n.    jmp 00,x
4178
4179 jump81:
4180 A36C BD BE 4B        ..K   jsr be4b             ;displayblank
4181 A36F CC AF DC        ...   ldd #afdc    ; "- SAVING -"
4182 A372 BD C0 BA        ...   jsr c0ba             ;display:
4183 A375 CC 01 F4        ...   ldd #01f4
4184 A378 BD E5 71        ..q   jsr e571             ;msdelay
4185 A37B 39              9     rts
4186
4187 jump141:
4188 A37C FC 00 52        ..R   ldd 0052
4189 A37F FD 0B B5        ...   std 0bb5
4190 A382 8D E8           ..    bsr dest e8
4191 A384 39              9     rts
4192
4193 jump40:
4194 A385 F6 00 1F        ...   ldab 001f
4195 A388 C4 40           .@    andb #40
4196 A38A 27 73           's    beq 73
4197 A38C F6 00 06        ...   ldab 0006
4198 A38F 4F              O     clra
4199 A390 05              .     asld
4200 A391 C3 08 00        ...   addd #0800
4201 A394 8F              .     xgdx
4202 A395 EC 00           ..    ldd 00,x
4203 A397 5F              _     clrb
4204 A398 84 C0           ..    anda #c0
4205 A39A FA 00 28        ..(   orb 0028
4206 A39D BA 00 27        ..'   ora 0027
4207 A3A0 FD 00 27        ..'   std 0027
4208 A3A3 FC 00 27        ..'   ldd 0027
4209 A3A6 37              7     pshb
4210 A3A7 36              6     psha
4211 A3A8 F6 00 06        ...   ldab 0006
4212 A3AB 4F              O     clra
4213 A3AC 05              .     asld
4214 A3AD C3 08 00        ...   addd #0800
4215 A3B0 38              8     pulx
4216 A3B1 8F              .     xgdx
4217 A3B2 ED 00           ..    std 00,x
4218 A3B4 FC 00 27        ..'   ldd 0027
4219 A3B7 43              C     coma
4220 A3B8 53              S     comb
4221 A3B9 37              7     pshb
4222 A3BA 36              6     psha
4223 A3BB F6 00 06        ...   ldab 0006
4224 A3BE 4F              O     clra
4225 A3BF 05              .     asld
4226 A3C0 C3 0B F1        ...   addd #0bf1
4227 A3C3 38              8     pulx
4228 A3C4 8F              .     xgdx
4229 A3C5 ED 00           ..    std 00,x
4230 A3C7 F6 00 06        ...   ldab 0006
4231 A3CA 4F              O     clra
4232 A3CB 05              .     asld
4233 A3CC C3 08 C8        ...   addd #08c8
4234 A3CF 8F              .     xgdx
4235 A3D0 EC 00           ..    ldd 00,x
4236 A3D2 C4 80           ..    andb #80
4237 A3D4 84 F7           ..    anda #f7
4238 A3D6 FA 00 47        ..G   orb 0047
4239 A3D9 BA 00 46        ..F   ora 0046
4240 A3DC FD 00 46        ..F   std 0046
4241 A3DF F6 00 19        ...   ldab 0019
4242 A3E2 C4 10           ..    andb #10
4243 A3E4 27 06           '.    beq 06
4244 A3E6 CE 00 46        ..F   ldx #0046
4245 A3E9 1C 00 08        ...   bset 00,x, #08
4246 ; set memory location 08c8+(slotnum*2) to value of 0046
4247 A3EC FC 00 46        ..F   ldd 0046
4248 A3EF 37              7     pshb
4249 A3F0 36              6     psha
4250 A3F1 F6 00 06        ...   ldab 0006
4251 A3F4 4F              O     clra
4252 A3F5 05              .     asld
4253 A3F6 C3 08 C8        ...   addd #08c8
4254 A3F9 38              8     pulx
4255 A3FA 8F              .     xgdx
4256 A3FB ED 00           ..    std 00,x
4257 A3FD 20 22            "    bra 22
4258 A3FF CC 2A FF        .*.   ldd #2aff      ; 00101010 11111111
4259 A402 37              7     pshb
4260 A403 36              6     psha
4261 A404 F6 00 06        ...   ldab 0006
4262 A407 4F              O     clra
4263 A408 05              .     asld
4264 A409 C3 08 00        ...   addd #0800
4265 A40C 38              8     pulx
4266 A40D 8F              .     xgdx
4267 A40E ED 00           ..    std 00,x
4268 A410 CC D5 00        ...   ldd #d500
4269 A413 37              7     pshb
4270 A414 36              6     psha
4271 A415 F6 00 06        ...   ldab 0006
4272 A418 4F              O     clra
4273 A419 05              .     asld
4274 A41A C3 0B F1        ...   addd #0bf1
4275 A41D 38              8     pulx
4276 A41E 8F              .     xgdx
4277 A41F ED 00           ..    std 00,x
4278 A421 F6 00 1F        ...   ldab 001f
4279 A424 C4 40           .@    andb #40
4280 A426 27 26           '&    beq 26
4281 A428 F6 00 06        ...   ldab 0006
4282 A42B 4F              O     clra
4283 A42C 05              .     asld
4284 A42D C3 08 00        ...   addd #0800
4285 A430 8F              .     xgdx
4286 A431 EC 00           ..    ldd 00,x
4287 A433 C4 FF           ..    andb #ff
4288 A435 84 3F           .?    anda #3f
4289 A437 FD 00 27        ..'   std 0027
4290 A43A F6 00 06        ...   ldab 0006
4291 A43D 4F              O     clra
4292 A43E 05              .     asld
4293 A43F C3 08 C8        ...   addd #08c8
4294 A442 8F              .     xgdx
4295 A443 EC 00           ..    ldd 00,x
4296 A445 C4 7F           ..    andb #7f
4297 A447 4F              O     clra
4298 A448 FD 00 46        ..F   std 0046
4299 A44B BD A3 6C        ..l   jsr a36c             ;jump81
4300 A44E 39              9     rts
4301
4302 jump140:
4303 A44F FC 00 0D        ...   ldd 000d
4304 A452 FD 0B B7        ...   std 0bb7
4305 A455 BD A3 6C        ..l   jsr a36c             ;jump81
4306 A458 39              9     rts
4307
4308 jump110:
4309 ; some sort of defaults setting loading? plays with 0067 an awful lot
4310 A459 3C              <     pshx
4311 A45A F6 00 67        ..g   ldab 0067
4312 A45D C4 02           ..    andb #02
4313 A45F 27 08           '.    beq 08
4314 A461 CE 00 67        ..g   ldx #0067
4315 A464 1D 00 4D        ...   bclr 00,x, #4D
4316 A467 20 0C            .    bra 0c
4317 A469 CE 00 67        ..g   ldx #0067
4318 A46C 1D 00 10        ...   bclr 00,x, #10
4319 A46F CE 00 67        ..g   ldx #0067
4320 A472 1D 00           ..    bclr add,x 00,x
4321 A474 20 F6            .    bra f6
4322 A476 00              .     test
4323 A477 67 C4           g.    asr c4,x
4324 A479 10              .     sba
4325 A47A 26 06           &.    bne 06
4326 A47C CE 00 67        ..g   ldx #0067
4327 A47F 1D 00           ..    bclr add,x 00,x
4328 A481 20 F6            .    bra f6
4329 A483 00              .     test
4330 A484 67 C4           g.    asr c4,x
4331 A486 01              .     nop
4332 A487 27 14           '.    beq 14
4333 A489 CE 00 67        ..g   ldx #0067
4334 A48C 1D 00 02        ...   bclr 00,x, #02
4335 A48F CE 00 67        ..g   ldx #0067
4336 A492 1D 00 10        ...   bclr 00,x, #10
4337 A495 CE 00 67        ..g   ldx #0067
4338 A498 1D 00           ..    bclr add,x 00,x
4339 A49A 20 20                 bra 20
4340 A49C 06              .     tap
4341 A49D CE 00 67        ..g   ldx #0067
4342 A4A0 1D 00 08        ...   bclr 00,x, #08
4343 A4A3 F6 00 67        ..g   ldab 0067
4344 A4A6 C4 04           ..    andb #04
4345 A4A8 27 12           '.    beq 12
4346 A4AA CE 00 67        ..g   ldx #0067
4347 A4AD 1D 00 02        ...   bclr 00,x, #02
4348 A4B0 CE 00 67        ..g   ldx #0067
4349 A4B3 1D 00 10        ..    bclr 00,x, #10
4350 A4B6 CE 00 67        ..g   ldx #0067
4351 A4B9 1D 00 20        ..    bclr 00,x, #20
4352 A4BC F6 00 67        ...   ldab 0067
4353 A4BF C4 08           ..    andb #08
4354 A4C1 26 06           &.    bne 06
4355 A4C3 CE 00 67        ..g   ldx #0067
4356 A4C6 1D 00 40        ..@   bclr 00,x, #40
4357 A4C9 F6 00 67        ..g   ldab 0067
4358 A4CC F7 0B C0        ...   stab 0bc0
4359 A4CF F6 0E 70        ..p   ldab 0e70
4360 A4D2 F7 0E 6E        ..n   stab 0e6e
4361 A4D5 F6 0E 6D        ..m   ldab 0e6d
4362 A4D8 26 39           &9    bne 39
4363 A4DA F6 0E 6F        ..o   ldab 0e6f
4364 A4DD 27 34           '4    beq 34
4365 A4DF 7F 00 06        ...   clr 0006
4366 A4E2 F6 00 06        ...   ldab 0006
4367 A4E5 C1 3F           .?    cmpb #3f
4368 A4E7 24 2A           $*    bcc 2a
4369 A4E9 F6 00 06        ...   ldab 0006
4370 A4EC 4F              O     clra
4371 A4ED CE 00 05        ...   ldx #0005
4372 A4F0 02              .     idiv
4373 A4F1 5D              ]     tstb
4374 A4F2 27 1A           '.    beq 1a
4375 A4F4 F6 00 06        ...   ldab 0006
4376 A4F7 4F              O     clra
4377 A4F8 C3 08 00        ...   addd #0800
4378 A4FB 30              0     tsx
4379 A4FC ED 00           ..    std 00,x
4380 A4FE EC 00           ..    ldd 00,x
4381 A500 37              7     pshb
4382 A501 36              6     psha
4383 A502 F6 00 06        ...   ldab 0006
4384 A505 4F              O     clra
4385 A506 05              .     asld
4386 A507 C3 08 C8        ...   addd #08c8
4387 A50A 38              8     pulx
4388 A50B 8F              .     xgdx
4389 A50C ED 00           ..    std 00,x
4390 A50E 7C 00 06        |..   inc 0006
4391 A511 20 CF            .    bra cf
4392 A513 F6 0E 6F        ..o   ldab 0e6f
4393 A516 F7 0E 6D        ..m   stab 0e6d
4394 A519 BD A3 6C        ..l   jsr a36c             ;jump81
4395 A51C 38              8     pulx
4396 A51D 39              9     rts
4397
4398 jump109:
4399 A51E F6 00 22        .."   ldab 0022
4400 A521 4F              O     clra
4401 A522 BD FE 16        ...   jsr fe16             ;jump2
4402 A525 00              .     test
4403 A526 01              .     nop
4404 A527 00              .     test
4405 A528 04              .     lsrd
4406 A529 A5 79           .y    bita 79,x
4407 A52B A5 35           .5    bita 35,x
4408 A52D A5 43           .C    bita 43,x
4409 A52F A5 51           .Q    bita 51,x
4410 A531 A5 5F           ._    bita 5f,x
4411 A533 A5 6D           .m    bita 6d,x
4412 A535 F6 00 24        ..$   ldab 0024
4413 A538 F7 0B AF        ...   stab 0baf
4414 A53B F6 00 2A        ..*   ldab 002a
4415 A53E F7 0B B4        ...   stab 0bb4
4416 A541 20 36            6    bra 36
4417 A543 F6 00 24        ..$   ldab 0024
4418 A546 F7 0B AE        ...   stab 0bae
4419 A549 F6 00 2A        ..*   ldab 002a
4420 A54C F7 0B B3        ...   stab 0bb3
4421 A54F 20 28            (    bra 28
4422 A551 F6 00 24        ..$   ldab 0024
4423 A554 F7 0B AD        ...   stab 0bad
4424 A557 F6 00 2A        ..*   ldab 002a
4425 A55A F7 0B B2        ...   stab 0bb2
4426 A55D 20 1A            .    bra 1a
4427 A55F F6 00 24        ..$   ldab 0024
4428 A562 F7 0B AC        ...   stab 0bac
4429 A565 F6 00 2A        ..*   ldab 002a
4430 A568 F7 0B B1        ...   stab 0bb1
4431 A56B 20 0C            .    bra 0c
4432 A56D F6 00 24        ..$   ldab 0024
4433 A570 F7 0B AB        ...   stab 0bab
4434 A573 F6 00 2A        ..*   ldab 002a
4435 A576 F7 0B B0        ...   stab 0bb0
4436 A579 BD A3 6C        ..l   jsr a36c             ;jump81
4437 A57C 39              9     rts
4438
4439 jump139:
4440 A57D 7F 00 54        ..T   clr 0054
4441 A580 F6 00 54        ..T   ldab 0054
4442 A583 C1 FF           ..    cmpb #ff
4443 A585 24 1B           $.    bcc 1b
4444 A587 F6 00 54        ..T   ldab 0054
4445 A58A 4F              O     clra
4446 A58B C3 0A 90        ...   addd #0a90
4447 A58E 8F              .     xgdx
4448 A58F E6 00           ..    ldab 00,x
4449 A591 37              7     pshb
4450 A592 F6 00 54        ..T   ldab 0054
4451 A595 4F              O     clra
4452 A596 C3 09 90        ...   addd #0990
4453 A599 8F              .     xgdx
4454 A59A 33              3     pulb
4455 A59B E7 00           ..    stab 00,x
4456 A59D 7C 00 54        |.T   inc 0054
4457 A5A0 20 DE            .    bra de
4458 A5A2 F6 00 61        ..a   ldab 0061
4459 A5A5 F7 0B BF        ...   stab 0bbf
4460 A5A8 BD A3 6C        ..l   jsr a36c             ;jump81
4461 A5AB 39              9     rts
4462
4463 jump138:
4464 A5AC 7F 00 54        ..T   clr 0054
4465 A5AF F6 00 54        ..T   ldab 0054
4466 A5B2 C1 10           ..    cmpb #10
4467 A5B4 24 1B           $.    bcc 1b
4468 A5B6 F6 00 54        ..T   ldab 0054
4469 A5B9 4F              O     clra
4470 A5BA C3 0A 90        ...   addd #0a90
4471 A5BD 8F              .     xgdx
4472 A5BE E6 00           ..    ldab 00,x
4473 A5C0 37              7     pshb
4474 A5C1 F6 00 54        ..T   ldab 0054
4475 A5C4 4F              O     clra
4476 A5C5 C3 0C B9        ...   addd #0cb9
4477 A5C8 8F              .     xgdx
4478 A5C9 33              3     pulb
4479 A5CA E7 00           ..    stab 00,x
4480 A5CC 7C 00 54        |.T   inc 0054
4481 A5CF 20 DE            .    bra de
4482 A5D1 BD A3 6C        ..l   jsr a36c             ;jump81
4483 A5D4 39              9     rts
4484
4485 jump137:
4486 A5D5 7F 00 54        ..T   clr 0054
4487 A5D8 F6 00 54        ..T   ldab 0054
4488 A5DB C1 10           ..    cmpb #10
4489 A5DD 24 1B           $.    bcc 1b
4490 A5DF F6 00 54        ..T   ldab 0054
4491 A5E2 4F              O     clra
4492 A5E3 C3 0A 90        ...   addd #0a90
4493 A5E6 8F              .     xgdx
4494 A5E7 E6 00           ..    ldab 00,x
4495 A5E9 37              7     pshb
4496 A5EA F6 00 54        ..T   ldab 0054
4497 A5ED 4F              O     clra
4498 A5EE C3 0C C9        ...   addd #0cc9
4499 A5F1 8F              .     xgdx
4500 A5F2 33              3     pulb
4501 A5F3 E7 00           ..    stab 00,x
4502 A5F5 7C 00 54        |.T   inc 0054
4503 A5F8 20 DE            .    bra de
4504 A5FA BD A3 6C        ..l   jsr a36c             ;jump81
4505 A5FD 39              9     rts
4506
4507 jump136:
4508 A5FE 7F 00 54        ..T   clr 0054
4509 A601 F6 00 54        ..T   ldab 0054
4510 A604 C1 05           ..    cmpb #05
4511 A606 24 1B           $.    bcc 1b
4512 A608 F6 00 54        ..T   ldab 0054
4513 A60B 4F              O     clra
4514 A60C C3 00 62        ..b   addd #0062
4515 A60F 8F              .     xgdx
4516 A610 E6 00           ..    ldab 00,x
4517 A612 37              7     pshb
4518 A613 F6 00 54        ..T   ldab 0054
4519 A616 4F              O     clra
4520 A617 C3 0B A4        ...   addd #0ba4
4521 A61A 8F              .     xgdx
4522 A61B 33              3     pulb
4523 A61C E7 00           ..    stab 00,x
4524 A61E 7C 00 54        |.T   inc 0054
4525 A621 20 DE            .    bra de
4526 A623 7F 00 54        ..T   clr 0054
4527 A626 F6 00 54        ..T   ldab 0054
4528 A629 C1 0B           ..    cmpb #0b
4529 A62B 24 1B           $.    bcc 1b
4530 A62D F6 00 54        ..T   ldab 0054
4531 A630 4F              O     clra
4532 A631 C3 00 68        ..h   addd #0068
4533 A634 8F              .     xgdx
4534 A635 E6 00           ..    ldab 00,x
4535 A637 37              7     pshb
4536 A638 F6 00 54        ..T   ldab 0054
4537 A63B 4F              O     clra
4538 A63C C3 0B E4        ...   addd #0be4
4539 A63F 8F              .     xgdx
4540 A640 33              3     pulb
4541 A641 E7 00           ..    stab 00,x
4542 A643 7C 00 54        |.T   inc 0054
4543 A646 20 DE            .    bra de
4544 A648 8D 04           ..    bsr dest 04
4545 A64A BD A3 6C        ..l   jsr a36c             ;jump81
4546 A64D 39              9     rts
4547
4548 jump135:
4549 A64E BD AB 0C        ...   jsr ab0c             ;jump126
4550 A651 C6 20           .     ldab #20
4551 A653 F7 0B A3        ...   stab 0ba3
4552 A656 C6 20           .     ldab #20
4553 A658 F7 0B 9A        ...   stab 0b9a
4554 A65B C6 01           ..    ldab #01
4555 A65D F7 00 54        ..T   stab 0054
4556 goto21:
4557 A660 F6 00 54        ..T   ldab 0054
4558 A663 C1 09           ..    cmpb #09
4559 A665 25 03           %.    bcs 03
4560 A667 7E A7 1E        ~..   jmp a71e             ;goto20
4561 A66A F6 00 54        ..T   ldab 0054
4562 A66D 4F              O     clra
4563 A66E BD FE 16        ...   jsr fe16             ;jump2
4564 A671 00 01 00 07     .     test
4565 A675 A6 ED           ..
4566 A677 A6 87           ..
4567 A679 A6 95           ..
4568 A67B A6 A1           ..
4569 A67D A6 AF           ..
4570 A67F A6 BB           ..
4571 A681 A6 C9           ..
4572 A683 A6 D5           ..
4573 A685 A6 E3           ..
4574 A687 F6 00 62        ..b   ldab 0062
4575 A68A 54              T     lsrb
4576 A68B 54              T     lsrb
4577 A68C 54              T     lsrb
4578 A68D 54              T     lsrb
4579 A68E C8 04           ..    eorb #04
4580 A690 F7 00 5F        .._   stab 005f
4581 A693 20 58            X    bra 58
4582 A695 F6 00 62        ..b   ldab 0062
4583 A698 C4 0F           ..    andb #0f
4584 A69A C8 0D           ..    eorb #0d
4585 A69C F7 00 5F        .._   stab 005f
4586 A69F 20 4C            L    bra 4c
4587 A6A1 F6 00 63        ..c   ldab 0063
4588 A6A4 54              T     lsrb
4589 A6A5 54              T     lsrb
4590 A6A6 54              T     lsrb
4591 A6A7 54              T     lsrb
4592 A6A8 C8 04           ..    eorb #04
4593 A6AA F7 00 5F        .._   stab 005f
4594 A6AD 20 3E            >    bra 3e
4595 A6AF F6 00 63        ..c   ldab 0063
4596 A6B2 C4 0F           ..    andb #0f
4597 A6B4 C8 05           ..    eorb #05
4598 A6B6 F7 00 5F        .._   stab 005f
4599 A6B9 20 32            2    bra 32
4600 A6BB F6 00 64        ..d   ldab 0064
4601 A6BE 54              T     lsrb
4602 A6BF 54              T     lsrb
4603 A6C0 54              T     lsrb
4604 A6C1 54              T     lsrb
4605 A6C2 C8 05           ..    eorb #05
4606 A6C4 F7 00 5F        .._   stab 005f
4607 A6C7 20 24            $    bra 24
4608 A6C9 F6 00 64        ..d   ldab 0064
4609 A6CC C4 0F           ..    andb #0f
4610 A6CE C8 04           ..    eorb #04
4611 A6D0 F7 00 5F        .._   stab 005f
4612 A6D3 20 18            .    bra 18
4613 A6D5 F6 00 65        ..e   ldab 0065
4614 A6D8 54              T     lsrb
4615 A6D9 54              T     lsrb
4616 A6DA 54              T     lsrb
4617 A6DB 54              T     lsrb
4618 A6DC C8 05           ..    eorb #05
4619 A6DE F7 00 5F        .._   stab 005f
4620 A6E1 20 0A            .    bra 0a
4621 A6E3 F6 00 65        ..e   ldab 0065
4622 A6E6 C4 0F           ..    andb #0f
4623 A6E8 C8 03           ..    eorb #03
4624 A6EA F7 00 5F        .._   stab 005f
4625 A6ED F6 00 5F        .._   ldab 005f
4626 A6F0 C1 09           ..    cmpb #09
4627 A6F2 23 13           #.    bls 13
4628 A6F4 F6 00 5F        .._   ldab 005f
4629 A6F7 CB 37           .7    addb #37
4630 A6F9 37              7     pshb
4631 A6FA F6 00 54        ..T   ldab 0054
4632 A6FD 4F              O     clra
4633 A6FE C3 0B 9A        ...   addd #0b9a
4634 A701 8F              .     xgdx
4635 A702 33              3     pulb
4636 A703 E7 00           ..    stab 00,x
4637 A705 20 11            .    bra 11
4638 A707 F6 00 5F        .._   ldab 005f
4639 A70A CB 30           .0    addb #30
4640 A70C 37              7     pshb
4641 A70D F6 00 54        ..T   ldab 0054
4642 A710 4F              O     clra
4643 A711 C3 0B 9A        ...   addd #0b9a
4644 A714 8F              .     xgdx
4645 A715 33              3     pulb
4646 A716 E7 00           ..    stab 00,x
4647 A718 7C 00 54        |.T   inc 0054
4648 A71B 7E A6 60        ~.`   jmp a660             ;goto21
4649 goto20:
4650 A71E 39              9     rts
4651
4652 jump134:
4653 A71F F6 00 48        ..H   ldab 0048
4654 A722 26 11           &.    bne 11
4655 A724 F6 00 66        ..f   ldab 0066
4656 A727 26 07           &.    bne 07
4657 A729 C6 01           ..    ldab #01
4658 A72B F7 00 66        ..f   stab 0066
4659 A72E 20 03            .    bra 03
4660 A730 7F 00 66        ..f   clr 0066
4661 A733 20 29            )    bra 29
4662 A735 F6 00 48        ..H   ldab 0048
4663 A738 4F              O     clra
4664 A739 C3 00 68        ..h   addd #0068
4665 A73C 8F              .     xgdx
4666 A73D E6 00           ..    ldab 00,x
4667 A73F 26 10           &.    bne 10
4668 A741 C6 01           ..    ldab #01
4669 A743 37              7     pshb
4670 A744 F6 00 48        ..H   ldab 0048
4671 A747 4F              O     clra
4672 A748 C3 00 68        ..h   addd #0068
4673 A74B 8F              .     xgdx
4674 A74C 33              3     pulb
4675 A74D E7 00           ..    stab 00,x
4676 A74F 20 0D            .    bra 0d
4677 A751 5F              _     clrb
4678 A752 37              7     pshb
4679 A753 F6 00 48        ..H   ldab 0048
4680 A756 4F              O     clra
4681 A757 C3 00 68        ..h   addd #0068
4682 A75A 8F              .     xgdx
4683 A75B 33              3     pulb
4684 A75C E7 00           ..    stab 00,x
4685 A75E 39              9     rts
4686
4687 jump133:
4688 A75F F6 00 48        ..H   ldab 0048
4689 A762 4F              O     clra
4690 A763 BD FE 16        ...   jsr fe16             ;jump2
4691 A766 00 00 00 09     .     test
4692 A76A A7 DC           ..    ;
4693 A76C A7 80           ..    ;
4694 A76E A7 87           ..    ;
4695 A770 A7 8E           ..    ;
4696 A772 A7 95           ..    ;
4697 A774 A7 9C           ..    ;
4698 A776 A7 A3           ..    ;
4699 A778 A7 AA           ..    ;
4700 A77A A7 B1           ..    ;
4701 A77C A7 C4           ..    ;
4702 A77E A7 D7           ..    ;
4703 ;
4704 A780 C6 02           ..    ldab #02
4705 A782 F7 00 02        ...   stab 0002
4706 A785 20 55            U    bra 55
4707 ;
4708 A787 C6 10           ..    ldab #10
4709 A789 F7 00 02        ...   stab 0002
4710 A78C 20 4E            N    bra 4e
4711 A78E C6 20           .     ldab #20
4712 A790 F7 00 02        ...   stab 0002
4713 A793 20 47            G    bra 47
4714 A795 C6 01           ..    ldab #01
4715 A797 F7 00 02        ...   stab 0002
4716 A79A 20 40            @    bra 40
4717 A79C C6 04           ..    ldab #04
4718 A79E F7 00 02        ...   stab 0002
4719 A7A1 20 39            9    bra 39
4720 A7A3 C6 08           ..    ldab #08
4721 A7A5 F7 00 02        ...   stab 0002
4722 A7A8 20 32            2    bra 32
4723 A7AA C6 40           .@    ldab #40
4724 A7AC F7 00 02        ...   stab 0002
4725 A7AF 20 2B            +    bra 2b
4726 A7B1 F6 0E 70        ..p   ldab 0e70
4727 A7B4 C1 01           ..    cmpb #01
4728 A7B6 26 05           &.    bne 05
4729 A7B8 7F 0E 70        ..p   clr 0e70
4730 A7BB 20 05            .    bra 05
4731 A7BD C6 01           ..    ldab #01
4732 A7BF F7 0E 70        ..p   stab 0e70
4733 A7C2 20 18            .    bra 18
4734 A7C4 F6 0E 6F        ..o   ldab 0e6f
4735 A7C7 C1 01           ..    cmpb #01
4736 A7C9 26 05           &.    bne 05
4737 A7CB 7F 0E 6F        ..o   clr 0e6f
4738 A7CE 20 05            .    bra 05
4739 A7D0 C6 01           ..    ldab #01
4740 A7D2 F7 0E 6F        ..o   stab 0e6f
4741 A7D5 20 05            .    bra 05
4742 A7D7 C6 80           ..    ldab #80
4743 A7D9 F7 00 02        ...   stab 0002
4744 A7DC F6 00 48        ..H   ldab 0048
4745 A7DF C1 0A           ..    cmpb #0a
4746 A7E1 24 2B           $+    bcc 2b
4747 A7E3 F6 00 48        ..H   ldab 0048
4748 A7E6 C1 07           ..    cmpb #07
4749 A7E8 27 24           '$    beq 24
4750 A7EA F6 00 48        ..H   ldab 0048
4751 A7ED C1 08           ..    cmpb #08
4752 A7EF 27 1D           '.    beq 1d
4753 A7F1 F6 00 67        ..g   ldab 0067
4754 A7F4 F4 00 02        ...   andb 0002
4755 A7F7 26 0B           &.    bne 0b
4756 A7F9 F6 00 02        ...   ldab 0002
4757 A7FC FA 00 67        ..g   orb 0067
4758 A7FF F7 00 67        ..g   stab 0067
4759 A802 20 0A            .    bra 0a
4760 A804 F6 00 02        ...   ldab 0002
4761 A807 53              S     comb
4762 A808 F4 00 67        ..g   andb 0067
4763 A80B F7 00 67        ..g   stab 0067
4764 A80E 39              9     rts
4765
4766 A80F 7F 00 54        ..T   clr 0054
4767 A812 F6 00 54        ..T   ldab 0054
4768 A815 C1 04           ..    cmpb #04
4769 A817 24 4A           $J    bcc 4a
4770 A819 CC 01 F4        ...   ldd #01f4
4771 A81C BD E5 71        ..q   jsr e571             ;msdelay
4772 A81F F6 0B 93        ...   ldab 0b93
4773 A822 F7 00 5F        .._   stab 005f
4774 A825 F6 0B 94        ...   ldab 0b94
4775 A828 F7 00 5E        ..^   stab 005e
4776 A82B F6 0B 95        ...   ldab 0b95
4777 A82E F7 00 5D        ..]   stab 005d
4778 A831 F6 0B 96        ...   ldab 0b96
4779 A834 F7 00 5A        ..Z   stab 005a
4780 A837 BD BE 4B        ..K   jsr be4b             ;displayblank
4781 A83A BD BE 01        ...   jsr be01             ;jump70
4782 A83D CC 01 F4        ...   ldd #01f4
4783 A840 BD E5 71        ..q   jsr e571             ;msdelay
4784 A843 F6 00 5F        .._   ldab 005f
4785 A846 F7 0B 93        ...   stab 0b93
4786 A849 F6 00 5E        ..^   ldab 005e
4787 A84C F7 0B 94        ...   stab 0b94
4788 A84F F6 00 5D        ..]   ldab 005d
4789 A852 F7 0B 95        ...   stab 0b95
4790 A855 F6 00 5A        ..Z   ldab 005a
4791 A858 F7 0B 96        ...   stab 0b96
4792 A85B BD BE 01        ...   jsr be01             ;jump70
4793 A85E 7C 00 54        |.T   inc 0054
4794 A861 20 AF            .    bra af
4795 A863 39              9     rts
4796
4797 jump99:
4798 A864 F6 00 09        ...   ldab 0009
4799 A867 C1 01           ..    cmpb #01
4800 A869 26 20           &     bne 20
4801 A86B F6 00 61        ..a   ldab 0061
4802 A86E 4F              O     clra
4803 A86F C3 00 01        ...   addd #0001
4804 A872 37              7     pshb
4805 A873 36              6     psha
4806 A874 F6 00 60        ..`   ldab 0060
4807 A877 4F              O     clra
4808 A878 30              0     tsx
4809 A879 A3 00           ..    subd 00,x
4810 A87B 31              1     ins
4811 A87C 31              1     ins
4812 A87D 2C 0A           ,.    bge 0a
4813 A87F F6 00 60        ..`   ldab 0060
4814 A882 C1 F9           ..    cmpb #f9    ; -7
4815 A884 24 03           $.    bcc 03
4816 A886 7C 00 60        |.`   inc 0060
4817 A889 20 0A            .    bra 0a
4818 A88B F6 00 60        ..`   ldab 0060
4819 A88E C1 09           ..    cmpb #09
4820 A890 24 03           $.    bcc 03
4821 A892 7C 00 60        |.`   inc 0060
4822 A895 39              9     rts
4823
4824 jump98:
4825 A896 F6 00 36        ..6   ldab 0036
4826 A899 26 39           &9    bne 39
4827 A89B F6 00 54        ..T   ldab 0054
4828 A89E C1 27           .'    cmpb #27     ; 39
4829 A8A0 24 20           $     bcc 20
4830 A8A2 7C 00 54        |.T   inc 0054
4831 A8A5 F6 00 09        ...   ldab 0009
4832 A8A8 C1 01           ..    cmpb #01
4833 A8AA 26 0C           &.    bne 0c
4834 A8AC F6 00 54        ..T   ldab 0054
4835 A8AF C1 27           .'    cmpb #27     ; 39
4836 A8B1 26 03           &.    bne 03
4837 A8B3 7F 00 54        ..T   clr 0054
4838 A8B6 20 0A            .    bra 0a
4839 A8B8 F6 00 54        ..T   ldab 0054
4840 A8BB C1 24           .$    cmpb #24     ; 36
4841 A8BD 26 03           &.    bne 03
4842 A8BF 7F 00 54        ..T   clr 0054
4843 A8C2 F6 00 54        ..T   ldab 0054
4844 A8C5 4F              O     clra
4845 A8C6 C3 B4 8F        ...   addd #b48f
4846 A8C9 8F              .     xgdx
4847 A8CA E6 00           ..    ldab 00,x
4848 A8CC F7 0B 90        ...   stab 0b90
4849 A8CF C6 02           ..    ldab #02
4850 A8D1 F7 00 36        ..6   stab 0036
4851 A8D4 39              9     rts
4852
4853 jump97:
4854 A8D5 F6 00 60        ..`   ldab 0060
4855 A8D8 C1 00           ..    cmpb #00
4856 A8DA 23 05           #.    bls 05
4857 A8DC 7A 00 60        z.`   dec 0060
4858 A8DF 20 03            .    bra 03
4859 A8E1 7F 00 60        ..`   clr 0060
4860 A8E4 39              9     rts
4861
4862 jump96:
4863 A8E5 F6 00 36        ..6   ldab 0036
4864 A8E8 26 36           &6    bne 36
4865 A8EA F6 00 54        ..T   ldab 0054
4866 A8ED C1 00           ..    cmpb #00
4867 A8EF 25 1D           %.    bcs 1d
4868 A8F1 F6 00 54        ..T   ldab 0054
4869 A8F4 26 15           &.    bne 15
4870 A8F6 F6 00 09        ...   ldab 0009
4871 A8F9 C1 01           ..    cmpb #01
4872 A8FB 26 07           &.    bne 07
4873 A8FD C6 26           .&    ldab #26
4874 A8FF F7 00 54        ..T   stab 0054
4875 A902 20 05            .    bra 05
4876 A904 C6 23           .#    ldab #23
4877 A906 F7 00 54        ..T   stab 0054
4878 A909 20 03            .    bra 03
4879 A90B 7A 00 54        z.T   dec 0054
4880 A90E F6 00 54        ..T   ldab 0054
4881 A911 4F              O     clra
4882 A912 C3 B4 8F        ...   addd #b48f
4883 A915 8F              .     xgdx
4884 A916 E6 00           ..    ldab 00,x
4885 A918 F7 0B 90        ...   stab 0b90
4886 A91B C6 02           ..    ldab #02
4887 A91D F7 00 36        ..6   stab 0036
4888 A920 39              9     rts
4889
4890 jump95:
4891 A921 F6 0B 90        ...   ldab 0b90
4892 A924 F7 0B 96        ...   stab 0b96
4893 A927 F6 0B 96        ...   ldab 0b96
4894 A92A 37              7     pshb
4895 A92B F6 00 60        ..`   ldab 0060
4896 A92E 4F              O     clra
4897 A92F C3 0A 93        ...   addd #0a93
4898 A932 8F              .     xgdx
4899 A933 33              3     pulb
4900 A934 E7 00           ..    stab 00,x
4901 A936 F6 00 09        ...   ldab 0009
4902 A939 C1 01           ..    cmpb #01
4903 A93B 26 32           &2    bne 32
4904 A93D F6 00 61        ..a   ldab 0061
4905 A940 4F              O     clra
4906 A941 C3 00 01        ...   addd #0001
4907 A944 37              7     pshb
4908 A945 36              6     psha
4909 A946 F6 00 60        ..`   ldab 0060
4910 A949 4F              O     clra
4911 A94A 30              0     tsx
4912 A94B A3 00           ..    subd 00,x
4913 A94D 31              1     ins
4914 A94E 31              1     ins
4915 A94F 26 0A           &.    bne 0a
4916 A951 F6 00 60        ..`   ldab 0060
4917 A954 C1 FA           ..    cmpb #fa
4918 A956 24 03           $.    bcc 03
4919 A958 7C 00 61        |.a   inc 0061
4920 A95B F6 00 60        ..`   ldab 0060
4921 A95E F1 00 61        ..a   cmpb 0061
4922 A961 22 0A           ".    bhi 0a
4923 A963 F6 00 60        ..`   ldab 0060
4924 A966 C1 F9           ..    cmpb #f9
4925 A968 24 03           $.    bcc 03
4926 A96A 7C 00 60        |.`   inc 0060
4927 A96D 20 0A            .    bra 0a
4928 A96F F6 00 60        ..`   ldab 0060
4929 A972 C1 09           ..    cmpb #09
4930 A974 24 03           $.    bcc 03
4931 A976 7C 00 60        |.`   inc 0060
4932 A979 39              9     rts
4933
4934 jump132:
4935 A97A F6 00 60        ..`   ldab 0060
4936 A97D 26 24           &$    bne 24
4937 A97F F6 00 60        ..`   ldab 0060
4938 A982 CB 03           ..    addb #03
4939 A984 F7 00 54        ..T   stab 0054
4940 A987 F6 00 54        ..T   ldab 0054
4941 A98A C1 FF           ..    cmpb #ff
4942 A98C 24 13           $.    bcc 13
4943 A98E C6 20           .     ldab #20
4944 A990 37              7     pshb
4945 A991 F6 00 54        ..T   ldab 0054
4946 A994 4F              O     clra
4947 A995 C3 0A 90        ...   addd #0a90
4948 A998 8F              .     xgdx
4949 A999 33              3     pulb
4950 A99A E7 00           ..    stab 00,x
4951 A99C 7C 00 54        |.T   inc 0054
4952 A99F 20 E6            .    bra e6
4953 A9A1 20 22            "    bra 22
4954 A9A3 F6 00 60        ..`   ldab 0060
4955 A9A6 CB 04           ..    addb #04
4956 A9A8 F7 00 54        ..T   stab 0054
4957 A9AB F6 00 54        ..T   ldab 0054
4958 A9AE C1 FF           ..    cmpb #ff
4959 A9B0 24 13           $.    bcc 13
4960 A9B2 C6 20           .     ldab #20
4961 A9B4 37              7     pshb
4962 A9B5 F6 00 54        ..T   ldab 0054
4963 A9B8 4F              O     clra
4964 A9B9 C3 0A 90        ...   addd #0a90
4965 A9BC 8F              .     xgdx
4966 A9BD 33              3     pulb
4967 A9BE E7 00           ..    stab 00,x
4968 A9C0 7C 00 54        |.T   inc 0054
4969 A9C3 20 E6            .    bra e6
4970 A9C5 F6 00 60        ..`   ldab 0060
4971 A9C8 F7 00 61        ..a   stab 0061
4972 A9CB 7F 00 54        ..T   clr 0054
4973 A9CE 39              9     rts
4974
4975 jump131:
4976 A9CF C6 50           .P    ldab #50
4977 A9D1 F7 09 90        ...   stab 0990
4978 A9D4 C6 29           .)    ldab #29
4979 A9D6 F7 09 91        ...   stab 0991
4980 A9D9 C6 20           .     ldab #20
4981 A9DB F7 09 92        ...   stab 0992
4982 A9DE 7F 00 54        ..T   clr 0054
4983 A9E1 F6 00 54        ..T   ldab 0054
4984 A9E4 C1 FF           ..    cmpb #ff
4985 A9E6 24 1B           $.    bcc 1b
4986 A9E8 F6 00 54        ..T   ldab 0054
4987 A9EB 4F              O     clra
4988 A9EC C3 09 90        ...   addd #0990
4989 A9EF 8F              .     xgdx
4990 A9F0 E6 00           ..    ldab 00,x
4991 A9F2 37              7     pshb
4992 A9F3 F6 00 54        ..T   ldab 0054
4993 A9F6 4F              O     clra
4994 A9F7 C3 0A 90        ...   addd #0a90
4995 A9FA 8F              .     xgdx
4996 A9FB 33              3     pulb
4997 A9FC E7 00           ..    stab 00,x
4998 A9FE 7C 00 54        |.T   inc 0054
4999 AA01 20 DE            .    bra de
5000 AA03 F6 0B BF        ...   ldab 0bbf
5001 AA06 F7 00 61        ..a   stab 0061
5002 AA09 39              9     rts
5003
5004 jump130:
5005 AA0A C6 53           .S    ldab #53   ; 'S'
5006 AA0C F7 0C B9        ...   stab 0cb9
5007 AA0F C6 29           .)    ldab #29   ; ')'
5008 AA11 F7 0C BA        ...   stab 0cba
5009 AA14 C6 20           .     ldab #20   ; ' '
5010 AA16 F7 0C BB        ...   stab 0cbb
5011 AA19 7F 00 54        ..T   clr 0054
5012 AA1C F6 00 54        ..T   ldab 0054
5013 AA1F C1 10           ..    cmpb #10
5014 AA21 24 1B           $.    bcc 1b
5015 AA23 F6 00 54        ..T   ldab 0054
5016 AA26 4F              O     clra
5017 AA27 C3 0C B9        ...   addd #0cb9
5018 AA2A 8F              .     xgdx
5019 AA2B E6 00           ..    ldab 00,x
5020 AA2D 37              7     pshb
5021 AA2E F6 00 54        ..T   ldab 0054
5022 AA31 4F              O     clra
5023 AA32 C3 0A 90        ...   addd #0a90
5024 AA35 8F              .     xgdx
5025 AA36 33              3     pulb
5026 AA37 E7 00           ..    stab 00,x
5027 AA39 7C 00 54        |.T   inc 0054
5028 AA3C 20 DE            .    bra de
5029 AA3E 39              9     rts
5030
5031 jump129:
5032 AA3F C6 49           .I    ldab #49
5033 AA41 F7 0C C9        ...   stab 0cc9
5034 AA44 C6 29           .)    ldab #29
5035 AA46 F7 0C CA        ...   stab 0cca
5036 AA49 C6 20           .     ldab #20
5037 AA4B F7 0C CB        ...   stab 0ccb
5038 AA4E 7F 00 54        ..T   clr 0054
5039 AA51 F6 00 54        ..T   ldab 0054
5040 AA54 C1 10           ..    cmpb #10
5041 AA56 24 1B           $.    bcc 1b
5042 AA58 F6 00 54        ..T   ldab 0054
5043 AA5B 4F              O     clra
5044 AA5C C3 0C C9        ...   addd #0cc9
5045 AA5F 8F              .     xgdx
5046 AA60 E6 00           ..    ldab 00,x
5047 AA62 37              7     pshb
5048 AA63 F6 00 54        ..T   ldab 0054
5049 AA66 4F              O     clra
5050 AA67 C3 0A 90        ...   addd #0a90
5051 AA6A 8F              .     xgdx
5052 AA6B 33              3     pulb
5053 AA6C E7 00           ..    stab 00,x
5054 AA6E 7C 00 54        |.T   inc 0054
5055 AA71 20 DE            .    bra de
5056 AA73 39              9     rts
5057
5058 jump128:
5059 AA74 7F 00 54        ..T   clr 0054
5060 AA77 F6 00 54        ..T   ldab 0054
5061 AA7A C1 0B           ..    cmpb #0b
5062 AA7C 24 1B           $.    bcc 1b
5063 AA7E F6 00 54        ..T   ldab 0054
5064 AA81 4F              O     clra
5065 AA82 C3 0B E4        ...   addd #0be4
5066 AA85 8F              .     xgdx
5067 AA86 E6 00           ..    ldab 00,x
5068 AA88 37              7     pshb
5069 AA89 F6 00 54        ..T   ldab 0054
5070 AA8C 4F              O     clra
5071 AA8D C3 00 68        ..h   addd #0068
5072 AA90 8F              .     xgdx
5073 AA91 33              3     pulb
5074 AA92 E7 00           ..    stab 00,x
5075 AA94 7C 00 54        |.T   inc 0054
5076 AA97 20 DE            .    bra de
5077 AA99 39              9     rts
5078
5079 jump127:
5080 AA9A F6 00 22        .."   ldab 0022
5081 AA9D C1 06           ..    cmpb #06
5082 AA9F 24 0F           $.    bcc 0f
5083 AAA1 7C 00 22        |."   inc 0022
5084 AAA4 F6 00 22        .."   ldab 0022
5085 AAA7 C1 05           ..    cmpb #05
5086 AAA9 23 05           #.    bls 05
5087 AAAB C6 01           ..    ldab #01
5088 AAAD F7 00 22        .."   stab 0022
5089 AAB0 F6 00 22        .."   ldab 0022
5090 AAB3 4F              O     clra
5091 AAB4 BD FE 16        ...   jsr fe16             ;jump2
5092 AAB7 00              .     test
5093 AAB8 01              .     nop
5094 AAB9 00              .     test
5095 AABA 04              .     lsrd
5096 AABB AB 0B           ..    adda 0b,x
5097 AABD AA C7           ..    ora c7,x
5098 AABF AA D5           ..    ora d5,x
5099 AAC1 AA E3           ..    ora e3,x
5100 AAC3 AA F1           ..    ora f1,x
5101 AAC5 AA FF           ..    ora ff,x
5102 AAC7 F6 0B AF        ...   ldab 0baf
5103 AACA F7 00 24        ..$   stab 0024
5104 AACD F6 0B B4        ...   ldab 0bb4
5105 AAD0 F7 00 2A        ..*   stab 002a
5106 AAD3 20 36            6    bra 36
5107 AAD5 F6 0B AE        ...   ldab 0bae
5108 AAD8 F7 00 24        ..$   stab 0024
5109 AADB F6 0B B3        ...   ldab 0bb3
5110 AADE F7 00 2A        ..*   stab 002a
5111 AAE1 20 28            (    bra 28
5112 AAE3 F6 0B AD        ...   ldab 0bad
5113 AAE6 F7 00 24        ..$   stab 0024
5114 AAE9 F6 0B B2        ...   ldab 0bb2
5115 AAEC F7 00 2A        ..*   stab 002a
5116 AAEF 20 1A            .    bra 1a
5117 AAF1 F6 0B AC        ...   ldab 0bac
5118 AAF4 F7 00 24        ..$   stab 0024
5119 AAF7 F6 0B B1        ...   ldab 0bb1
5120 AAFA F7 00 2A        ..*   stab 002a
5121 AAFD 20 0C            .    bra 0c
5122 AAFF F6 0B AB        ...   ldab 0bab
5123 AB02 F7 00 24        ..$   stab 0024
5124 AB05 F6 0B B0        ...   ldab 0bb0
5125 AB08 F7 00 2A        ..*   stab 002a
5126 AB0B 39              9     rts
5127
5128 jump126:
5129 AB0C C6 03           ..    ldab #03
5130 AB0E F7 00 18        ...   stab 0018
5131 AB11 7F 00 1C        ...   clr 001c
5132 AB14 F6 00 1C        ...   ldab 001c
5133 AB17 C1 04           ..    cmpb #04
5134 AB19 24 6D           $m    bcc 6d
5135 AB1B C6 07           ..    ldab #07
5136 AB1D F7 00 55        ..U   stab 0055
5137 AB20 7F 00 54        ..T   clr 0054
5138 AB23 F6 00 54        ..T   ldab 0054
5139 AB26 C1 08           ..    cmpb #08
5140 AB28 24 56           $V    bcc 56
5141 AB2A F6 00 1C        ...   ldab 001c
5142 AB2D 4F              O     clra
5143 AB2E C3 0B A4        ...   addd #0ba4
5144 AB31 8F              .     xgdx
5145 AB32 E6 00           ..    ldab 00,x
5146 AB34 37              7     pshb
5147 AB35 F6 00 54        ..T   ldab 0054
5148 AB38 4F              O     clra
5149 AB39 C3 B4 B7        ...   addd #b4b7
5150 AB3C 8F              .     xgdx
5151 AB3D E6 00           ..    ldab 00,x
5152 AB3F 30              0     tsx
5153 AB40 E4 00           ..    andb 00,x
5154 AB42 31              1     ins
5155 AB43 27 1A           '.    beq 1a
5156 AB45 F6 00 55        ..U   ldab 0055
5157 AB48 4F              O     clra
5158 AB49 C3 B4 B7        ...   addd #b4b7
5159 AB4C 8F              .     xgdx
5160 AB4D E6 00           ..    ldab 00,x
5161 AB4F 37              7     pshb
5162 AB50 F6 00 18        ...   ldab 0018
5163 AB53 4F              O     clra
5164 AB54 C3 00 62        ..b   addd #0062
5165 AB57 8F              .     xgdx
5166 AB58 33              3     pulb
5167 AB59 EA 00           ..    orb 00,x
5168 AB5B E7 00           ..    stab 00,x
5169 AB5D 20 19            .    bra 19
5170 AB5F F6 00 55        ..U   ldab 0055
5171 AB62 4F              O     clra
5172 AB63 C3 B4 B7        ...   addd #b4b7
5173 AB66 8F              .     xgdx
5174 AB67 E6 00           ..    ldab 00,x
5175 AB69 53              S     comb
5176 AB6A 37              7     pshb
5177 AB6B F6 00 18        ...   ldab 0018
5178 AB6E 4F              O     clra
5179 AB6F C3 00 62        ..b   addd #0062
5180 AB72 8F              .     xgdx
5181 AB73 33              3     pulb
5182 AB74 E4 00           ..    andb 00,x
5183 AB76 E7 00           ..    stab 00,x
5184 AB78 7A 00 55        z.U   dec 0055
5185 AB7B 7C 00 54        |.T   inc 0054
5186 AB7E 20 A3            .    bra a3
5187 AB80 7A 00 18        z..   dec 0018
5188 AB83 7C 00 1C        |..   inc 001c
5189 AB86 20 8C            .    bra 8c
5190 AB88 39              9     rts
5191
5192 jump7:
5193 AB89 CC B0 8C        ...   ldd #b08c    ; "NO ERRORS"
5194 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5195 AB8F CC 01 F4        ...   ldd #01f4
5196 AB92 BD E5 71        ..q   jsr e571             ;msdelay
5197 AB95 BD D4 79        ..y   jsr d479             ;jump67
5198 AB98 BD E8 9A        ...   jsr e89a             ;jump68
5199 AB9B BD E9 EA        ...   jsr e9ea             ;jump113
5200 AB9E 7F 0B C1        ...   clr 0bc1     ; clear all errors
5201 ABA1 39              9     rts
5202
5203 jump8:
5204 ABA2 7F 00 05        ...   clr 0005
5205 goto24:
5206 ABA5 F6 00 05        ...   ldab 0005
5207 ABA8 C1 64           .d    cmpb #64
5208 ABAA 25 03           %.    bcs 03
5209 ABAC 7E AC 81        ~..   jmp ac81             ;goto22
5210 ABAF F6 00 05        ...   ldab 0005
5211 ABB2 F7 00 06        ...   stab 0006
5212 ABB5 F6 00 05        ...   ldab 0005
5213 ABB8 4F              O     clra
5214 ABB9 CE 00 05        ...   ldx #0005
5215 ABBC 02              .     idiv
5216 ABBD 5D              ]     tstb
5217 ABBE 26 03           &.    bne 03
5218 ABC0 7E AC 7B        ~.{   jmp ac7b             ;goto23
5219 ABC3 F6 00 06        ...   ldab 0006
5220 ABC6 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
5221 ABC9 83 00 00        ...   subd #0000
5222 ABCC 27 03           '.    beq 03
5223 ABCE 7E AC 7B        ~.{   jmp ac7b             ;goto23
5224 ABD1 BD D3 11        ...   jsr d311             ;jump30 - test position exists
5225 ABD4 83 00 00        ...   subd #0000
5226 ABD7 27 2B           '+    beq 2b
5227 ABD9 F6 00 05        ...   ldab 0005
5228 ABDC 4F              O     clra
5229 ABDD 05              .     asld
5230 ABDE C3 08 00        ...   addd #0800
5231 ABE1 8F              .     xgdx
5232 ABE2 EC 00           ..    ldd 00,x
5233 ABE4 C4 FF           ..    andb #ff
5234 ABE6 84 3F           .?    anda #3f
5235 ABE8 83 27 10        .'.   subd #2710   ; 10000
5236 ABEB 24 15           $.    bcc 15
5237 ABED CC 01 00        ...   ldd #0100
5238 ABF0 37              7     pshb
5239 ABF1 36              6     psha
5240 ABF2 F6 00 05        ...   ldab 0005
5241 ABF5 4F              O     clra
5242 ABF6 05              .     asld
5243 ABF7 C3 08 C8        ...   addd #08c8
5244 ABFA 38              8     pulx
5245 ABFB 8F              .     xgdx
5246 ABFC AA 00           ..    ora 00,x
5247 ABFE EA 01           ..    orb 01,x
5248 AC00 ED 00           ..    std 00,x
5249 AC02 20 29            )    bra 29
5250 AC04 F6 00 05        ...   ldab 0005
5251 AC07 4F              O     clra
5252 AC08 05              .     asld
5253 AC09 C3 08 00        ...   addd #0800
5254 AC0C 8F              .     xgdx
5255 AC0D EC 00           ..    ldd 00,x
5256 AC0F C4 FF           ..    andb #ff
5257 AC11 84 3F           .?    anda #3f
5258 AC13 83 27 0F        .'.   subd #270f
5259 AC16 23 15           #.    bls 15
5260 AC18 CC 01 00        ...   ldd #0100
5261 AC1B 37              7     pshb
5262 AC1C 36              6     psha
5263 AC1D F6 00 05        ...   ldab 0005
5264 AC20 4F              O     clra
5265 AC21 05              .     asld
5266 AC22 C3 08 C8        ...   addd #08c8
5267 AC25 38              8     pulx
5268 AC26 8F              .     xgdx
5269 AC27 AA 00           ..    ora 00,x
5270 AC29 EA 01           ..    orb 01,x
5271 AC2B ED 00           ..    std 00,x
5272 AC2D F6 00 05        ...   ldab 0005
5273 AC30 4F              O     clra
5274 AC31 05              .     asld
5275 AC32 C3 08 C8        ...   addd #08c8
5276 AC35 8F              .     xgdx
5277 AC36 EC 00           ..    ldd 00,x
5278 AC38 84 01           ..    anda #01
5279 AC3A 27 06           '.    beq 06
5280 AC3C CE 00 19        ...   ldx #0019
5281 AC3F 1C 00 04        ...   bset 00,x, #04
5282 AC42 F6 00 05        ...   ldab 0005
5283 AC45 4F              O     clra
5284 AC46 05              .     asld
5285 AC47 C3 08 00        ...   addd #0800
5286 AC4A 8F              .     xgdx
5287 AC4B EC 00           ..    ldd 00,x
5288 AC4D 84 80           ..    anda #80
5289 AC4F 27 2A           '*    beq 2a
5290 AC51 F6 00 05        ...   ldab 0005
5291 AC54 4F              O     clra
5292 AC55 05              .     asld
5293 AC56 C3 08 C8        ...   addd #08c8
5294 AC59 8F              .     xgdx
5295 AC5A EC 00           ..    ldd 00,x
5296 AC5C 84 02           ..    anda #02
5297 AC5E 27 06           '.    beq 06
5298 AC60 CE 00 19        ...   ldx #0019
5299 AC63 1C 00 01        ...   bset 00,x, #01
5300 AC66 F6 00 05        ...   ldab 0005
5301 AC69 4F              O     clra
5302 AC6A 05              .     asld
5303 AC6B C3 08 C8        ...   addd #08c8
5304 AC6E 8F              .     xgdx
5305 AC6F EC 00           ..    ldd 00,x
5306 AC71 84 04           ..    anda #04
5307 AC73 27 06           '.    beq 06
5308 AC75 CE 00 19        ...   ldx #0019
5309 AC78 1C 00 02        ...   bset 00,x, #02
5310 goto23:
5311 AC7B 7C 00 05        |..   inc 0005
5312 AC7E 7E AB A5        ~..   jmp aba5             ;goto24
5313 goto22:
5314 AC81 F6 00 19        ...   ldab 0019
5315 AC84 C4 07           ..    andb #07
5316 AC86 26 0A           &.    bne 0a
5317 AC88 F6 0B C1        ...   ldab 0bc1
5318 AC8B C4 7F           ..    andb #7f   ; have errors?
5319 AC8D 26 03           &.    bne 03
5320 AC8F 5F              _     clrb
5321 AC90 20 02            .    bra 02
5322 AC92 C6 01           ..    ldab #01
5323 AC94 5D              ]     tstb
5324 AC95 26 05           &.    bne 05
5325 AC97 C6 0D           ..    ldab #0d
5326 AC99 F7 00 48        ..H   stab 0048
5327 AC9C 39              9     rts
5328
5329 ; keypad map
5330 AC9D 08              .     inx
5331 AC9E 07              .     tpa
5332 AC9F 06              .     tap
5333 ACA0 05              .     asld
5334 ACA1 04              .     lsrd
5335 ACA2 03              .     fdiv
5336 ACA3 02              .     idiv
5337 ACA4 01              .     nop
5338 ACA5 0B              .     sev
5339 ACA6 0A              .     clv
5340 ACA7 09              .     dex
5341
5342 ACA8 20 20                 bra 20
5343 ACAA 50              P     negb
5344 ACAB 52              R     illegal
5345 ACAC 49              I     rola
5346 ACAD 43              C     coma
5347 ACAE 45              E     illegal
5348 ACAF 20 20                 bra 20
5349 ACB1 20 00            .    bra 00
5350 ACB3 20 20                 bra 20
5351 ACB5 20 50            P    bra 50
5352 ACB7 52              R     illegal
5353 ACB8 49              I     rola
5354 ACB9 58              X     aslb
5355 ACBA 20 20                 bra 20
5356 ACBC 20 00            .    bra 00
5357 ACBE 20 20                 bra 20
5358 ACC0 50              P     negb
5359 ACC1 52              R     illegal
5360 ACC2 45              E     illegal
5361 ACC3 49              I     rola
5362 ACC4 53              S     comb
5363 ACC5 20 20                 bra 20
5364 ACC7 20 00            .    bra 00
5365 ACC9 20 20                 bra 20
5366 ACCB 50              P     negb
5367 ACCC 52              R     illegal
5368 ACCD 45              E     illegal
5369 ACCE 43              C     coma
5370 ACCF 49              I     rola
5371 ACD0 4F              O     clra
5372 ACD1 20 20                 bra 20
5373 ACD3 00              .     test
5374 ACD4 20 20                 bra 20
5375 ACD6 43              C     coma
5376 ACD7 48              H     asla
5377 ACD8 41              A     illegal
5378 ACD9 4E              N     illegal
5379 ACDA 47              G     asra
5380 ACDB 45              E     illegal
5381 ACDC 20 20                 bra 20
5382 ACDE 00              .     test
5383 ACDF 20 20                 bra 20
5384 ACE1 43              C     coma
5385 ACE2 41              A     illegal
5386 ACE3 4D              M     tsta
5387 ACE4 42              B     illegal
5388 ACE5 49              I     rola
5389 ACE6 4F              O     clra
5390 ACE7 20 20                 bra 20
5391 ACE9 00              .     test
5392 ACEA 20 4D            M    bra 4d
5393 ACEC 4F              O     clra
5394 ACED 4E              N     illegal
5395 ACEE 4E              N     illegal
5396 ACEF 41              A     illegal
5397 ACF0 49              I     rola
5398 ACF1 45              E     illegal
5399 ACF2 20 20                 bra 20
5400 ACF4 00              .     test
5401 ACF5 20 20                 bra 20
5402 ACF7 54              T     lsrb
5403 ACF8 48              H     asla
5404 ACF9 41              A     illegal
5405 ACFA 4E              N     illegal
5406 ACFB 4B              K     illegal
5407 ACFC 53              S     comb
5408 ACFD 20 20                 bra 20
5409 ACFF 00              .     test
5410 AD00 20 20                 bra 20
5411 AD02 4D              M     tsta
5412 AD03 45              E     illegal
5413 AD04 52              R     illegal
5414 AD05 43              C     coma
5415 AD06 49              I     rola
5416 AD07 20 20                 bra 20
5417 AD09 20 00            .    bra 00
5418 AD0B 20 20                 bra 20
5419 AD0D 44              D     lsra
5420 AD0E 41              A     illegal
5421 AD0F 4E              N     illegal
5422 AD10 4B              K     illegal
5423 AD11 45              E     illegal
5424 AD12 20 20                 bra 20
5425 AD14 20 00            .    bra 00
5426 AD16 20 20                 bra 20
5427 AD18 47              G     asra
5428 AD19 52              R     illegal
5429 AD1A 41              A     illegal
5430 AD1B 43              C     coma
5431 AD1C 49              I     rola
5432 AD1D 41              A     illegal
5433 AD1E 53              S     comb
5434 AD1F 20 00            .    bra 00
5435 AD21 20 20                 bra 20
5436 AD23 53              S     comb
5437 AD24 45              E     illegal
5438 AD25 4C              L     inca
5439 AD26 45              E     illegal
5440 AD27 43              C     coma
5441 AD28 54              T     lsrb
5442 AD29 20 20                 bra 20
5443 AD2B 00              .     test
5444 AD2C 20 20                 bra 20
5445 AD2E 4F              O     clra
5446 AD2F 54              T     lsrb
5447 AD30 48              H     asla
5448 AD31 45              E     illegal
5449 AD32 52              R     illegal
5450 AD33 20 20                 bra 20
5451 AD35 20 00            .    bra 00
5452 AD37 20 20                 bra 20
5453 AD39 20 49            I    bra 49
5454 AD3B 54              T     lsrb
5455 AD3C 45              E     illegal
5456 AD3D 4D              M     tsta
5457 AD3E 20 20                 bra 20
5458 AD40 20 00            .    bra 00
5459 AD42 20 20                 bra 20
5460 AD44 46              F     rora
5461 AD45 41              A     illegal
5462 AD46 49              I     rola
5463 AD47 54              T     lsrb
5464 AD48 45              E     illegal
5465 AD49 53              S     comb
5466 AD4A 20 20                 bra 20
5467 AD4C 00              .     test
5468 AD4D 20 20                 bra 20
5469 AD4F 41              A     illegal
5470 AD50 55              U     illegal
5471 AD51 54              T     lsrb
5472 AD52 52              R     illegal
5473 AD53 45              E     illegal
5474 AD54 20 20                 bra 20
5475 AD56 20 00            .    bra 00
5476 AD58 20 20                 bra 20
5477 AD5A 43              C     coma
5478 AD5B 48              H     asla
5479 AD5C 4F              O     clra
5480 AD5D 49              I     rola
5481 AD5E 58              X     aslb
5482 AD5F 20 20                 bra 20
5483 AD61 20 00            .    bra 00
5484 AD63 20 20                 bra 20
5485 AD65 42              B     illegal
5486 AD66 49              I     rola
5487 AD67 54              T     lsrb
5488 AD68 54              T     lsrb
5489 AD69 45              E     illegal
5490 AD6A 20 20                 bra 20
5491 AD6C 20 00            .    bra 00
5492 AD6E 20 20                 bra 20
5493 AD70 41              A     illegal
5494 AD71 4E              N     illegal
5495 AD72 44              D     lsra
5496 AD73 45              E     illegal
5497 AD74 52              R     illegal
5498 AD75 45              E     illegal
5499 AD76 20 20                 bra 20
5500 AD78 00              .     test
5501 AD79 20 20                 bra 20
5502 AD7B 20 57            W    bra 57
5503 AD7D 41              A     illegal
5504 AD7E 48              H     asla
5505 AD7F 4C              L     inca
5506 AD80 20 20                 bra 20
5507 AD82 20 00            .    bra 00
5508 AD84 20 20                 bra 20
5509 AD86 50              P     negb
5510 AD87 55              U     illegal
5511 AD88 4C              L     inca
5512 AD89 53              S     comb
5513 AD8A 45              E     illegal
5514 AD8B 20 20                 bra 20
5515 AD8D 20 00            .    bra 00
5516 AD8F 20 20                 bra 20
5517 AD91 45              E     illegal
5518 AD92 58              X     aslb
5519 AD93 54              T     lsrb
5520 AD94 52              R     illegal
5521 AD95 41              A     illegal
5522 AD96 20 20                 bra 20
5523 AD98 20 00            .    bra 00
5524 AD9A 20 53            S    bra 53
5525 AD9C 45              E     illegal
5526 AD9D 4C              L     inca
5527 AD9E 45              E     illegal
5528 AD9F 43              C     coma
5529 ADA0 43              C     coma
5530 ADA1 49              I     rola
5531 ADA2 4F              O     clra
5532 ADA3 4E              N     illegal
5533 ADA4 00              .     test
5534 ADA5 20 45            E    bra 45
5535 ADA7 58              X     aslb
5536 ADA8 41              A     illegal
5537 ADA9 43              C     coma
5538 ADAA 54              T     lsrb
5539 ADAB 20 43            C    bra 43
5540 ADAD 4F              O     clra
5541 ADAE 49              I     rola
5542 ADAF 4E              N     illegal
5543 ADB0 53              S     comb
5544 ADB1 20 4F            O    bra 4f
5545 ADB3 4E              N     illegal
5546 ADB4 4C              L     inca
5547 ADB5 59              Y     rolb
5548 ADB6 20 00            .    bra 00
5549 ADB8 20 4D            M    bra 4d
5550 ADBA 4F              O     clra
5551 ADBB 4E              N     illegal
5552 ADBC 4E              N     illegal
5553 ADBD 41              A     illegal
5554 ADBE 49              I     rola
5555 ADBF 45              E     illegal
5556 ADC0 20 45            E    bra 45
5557 ADC2 58              X     aslb
5558 ADC3 41              A     illegal
5559 ADC4 43              C     coma
5560 ADC5 54              T     lsrb
5561 ADC6 45              E     illegal
5562 ADC7 20 53            S    bra 53
5563 ADC9 45              E     illegal
5564 ADCA 55              U     illegal
5565 ADCB 4C              L     inca
5566 ADCC 45              E     illegal
5567 ADCD 4D              M     tsta
5568 ADCE 45              E     illegal
5569 ADCF 4E              N     illegal
5570 ADD0 54              T     lsrb
5571 ADD1 20 00            .    bra 00
5572 ADD3 20 4E            N    bra 4e
5573 ADD5 49              I     rola
5574 ADD6 43              C     coma
5575 ADD7 48              H     asla
5576 ADD8 54              T     lsrb
5577 ADD9 20 55            U    bra 55
5578 ADDB 45              E     illegal
5579 ADDC 42              B     illegal
5580 ADDD 45              E     illegal
5581 ADDE 52              R     illegal
5582 ADDF 5A              Z     decb
5583 ADE0 41              A     illegal
5584 ADE1 48              H     asla
5585 ADE2 4C              L     inca
5586 ADE3 45              E     illegal
5587 ADE4 4E              N     illegal
5588 ADE5 20 00            .    bra 00
5589 ADE7 20 49            I    bra 49
5590 ADE9 4E              N     illegal
5591 ADEA 54              T     lsrb
5592 ADEB 52              R     illegal
5593 ADEC 4F              O     clra
5594 ADED 44              D     lsra
5595 ADEE 55              U     illegal
5596 ADEF 5A              Z     decb
5597 ADF0 43              C     coma
5598 ADF1 41              A     illegal
5599 ADF2 20 50            P    bra 50
5600 ADF4 52              R     illegal
5601 ADF5 45              E     illegal
5602 ADF6 43              C     coma
5603 ADF7 49              I     rola
5604 ADF8 4F              O     clra
5605 ADF9 20 45            E    bra 45
5606 ADFB 58              X     aslb
5607 ADFC 41              A     illegal
5608 ADFD 43              C     coma
5609 ADFE 54              T     lsrb
5610 ADFF 4F              O     clra
5611 AE00 20 00            .    bra 00
5612 AE02 20 43            C    bra 43
5613 AE04 4F              O     clra
5614 AE05 49              I     rola
5615 AE06 4E              N     illegal
5616 AE07 53              S     comb
5617 AE08 20 4F            O    bra 4f
5618 AE0A 4E              N     illegal
5619 AE0B 4C              L     inca
5620 AE0C 59              Y     rolb
5621 AE0D 20 00            .    bra 00
5622 AE0F 20 4D            M    bra 4d
5623 AE11 4F              O     clra
5624 AE12 4E              N     illegal
5625 AE13 4E              N     illegal
5626 AE14 41              A     illegal
5627 AE15 49              I     rola
5628 AE16 45              E     illegal
5629 AE17 20 53            S    bra 53
5630 AE19 45              E     illegal
5631 AE1A 55              U     illegal
5632 AE1B 4C              L     inca
5633 AE1C 45              E     illegal
5634 AE1D 4D              M     tsta
5635 AE1E 45              E     illegal
5636 AE1F 4E              N     illegal
5637 AE20 54              T     lsrb
5638 AE21 20 00            .    bra 00
5639 AE23 20 4E            N    bra 4e
5640 AE25 55              U     illegal
5641 AE26 52              R     illegal
5642 AE27 20 4D            M    bra 4d
5643 AE29 55              U     illegal
5644 AE2A 4E              N     illegal
5645 AE2B 5A              Z     decb
5646 AE2C 45              E     illegal
5647 AE2D 4E              N     illegal
5648 AE2E 20 00            .    bra 00
5649 AE30 20 4D            M    bra 4d
5650 AE32 4F              O     clra
5651 AE33 4E              N     illegal
5652 AE34 45              E     illegal
5653 AE35 44              D     lsra
5654 AE36 41              A     illegal
5655 AE37 20 55            U    bra 55
5656 AE39 4E              N     illegal
5657 AE3A 49              I     rola
5658 AE3B 43              C     coma
5659 AE3C 41              A     illegal
5660 AE3D 4D              M     tsta
5661 AE3E 45              E     illegal
5662 AE3F 4E              N     illegal
5663 AE40 54              T     lsrb
5664 AE41 45              E     illegal
5665 AE42 20 00            .    bra 00
5666 AE44 20 4D            M    bra 4d
5667 AE46 41              A     illegal
5668 AE47 43              C     coma
5669 AE48 48              H     asla
5670 AE49 49              I     rola
5671 AE4A 4E              N     illegal
5672 AE4B 45              E     illegal
5673 AE4C 20 4F            O    bra 4f
5674 AE4E 55              U     illegal
5675 AE4F 54              T     lsrb
5676 AE50 20 4F            O    bra 4f
5677 AE52 46              F     rora
5678 AE53 20 4F            O    bra 4f
5679 AE55 52              R     illegal
5680 AE56 44              D     lsra
5681 AE57 45              E     illegal
5682 AE58 52              R     illegal
5683 AE59 20 00            .    bra 00
5684 AE5B 20 48            H    bra 48
5685 AE5D 4F              O     clra
5686 AE5E 52              R     illegal
5687 AE5F 53              S     comb
5688 AE60 20 44            D    bra 44
5689 AE62 45              E     illegal
5690 AE63 20 53            S    bra 53
5691 AE65 45              E     illegal
5692 AE66 52              R     illegal
5693 AE67 56              V     rorb
5694 AE68 49              I     rola
5695 AE69 43              C     coma
5696 AE6A 45              E     illegal
5697 AE6B 20 00            .    bra 00
5698 AE6D 20 41            A    bra 41
5699 AE6F 55              U     illegal
5700 AE70 53              S     comb
5701 AE71 53              S     comb
5702 AE72 45              E     illegal
5703 AE73 52              R     illegal
5704 AE74 20 42            B    bra 42
5705 AE76 45              E     illegal
5706 AE77 54              T     lsrb
5707 AE78 52              R     illegal
5708 AE79 49              I     rola
5709 AE7A 45              E     illegal
5710 AE7B 42              B     illegal
5711 AE7C 20 00            .    bra 00
5712 AE7E 20 46            F    bra 46
5713 AE80 55              U     illegal
5714 AE81 45              E     illegal
5715 AE82 52              R     illegal
5716 AE83 41              A     illegal
5717 AE84 20 44            D    bra 44
5718 AE86 45              E     illegal
5719 AE87 20 53            S    bra 53
5720 AE89 45              E     illegal
5721 AE8A 52              R     illegal
5722 AE8B 56              V     rorb
5723 AE8C 49              I     rola
5724 AE8D 43              C     coma
5725 AE8E 49              I     rola
5726 AE8F 4F              O     clra
5727 AE90 20 00            .    bra 00
5728
5729 AE92 2D 20           -     blt 20
5730 AE94 20 20                 bra 20
5731 AE96 20 20                 bra 20
5732 AE98 20 20                 bra 20
5733 AE9A 20 20                 bra 20
5734 AE9C 00              .     test
5735
5736 AE9D 53              S     comb
5737 AE9E 45              E     illegal
5738 AE9F 54              T     lsrb
5739 AEA0 20 50            P    bra 50
5740 AEA2 52              R     illegal
5741 AEA3 49              I     rola
5742 AEA4 43              C     coma
5743 AEA5 45              E     illegal
5744 AEA6 3F              ?     swi
5745 AEA7 00              .     test
5746
5747 AEA8 20 20                 bra 20
5748 AEAA 53              S     comb
5749 AEAB 59              Y     rolb
5750 AEAC 53              S     comb
5751 AEAD 54              T     lsrb
5752 AEAE 45              E     illegal
5753 AEAF 4D              M     tsta
5754 AEB0 20 20                 bra 20
5755 AEB2 00              .     test
5756
5757 AEB3 20 20                 bra 20
5758 AEB5 20 20                 bra 20
5759 AEB7 4F              O     clra
5760 AEB8 4B              K     illegal
5761 AEB9 20 20                 bra 20
5762 AEBB 20 20                 bra 20
5763 AEBD 00              .     test
5764
5765 AEBE 24 35           $5    bcc 35
5766 AEC0 20 45            E    bra 45
5767 AEC2 4E              N     illegal
5768 AEC3 41              A     illegal
5769 AEC4 42              B     illegal
5770 AEC5 4C              L     inca
5771 AEC6 45              E     illegal
5772 AEC7 20 00            .    bra 00
5773
5774 AEC9 24 35           $5    bcc 35
5775 AECB 20 44            D    bra 44
5776 AECD 49              I     rola
5777 AECE 53              S     comb
5778 AECF 41              A     illegal
5779 AED0 42              B     illegal
5780 AED1 4C              L     inca
5781 AED2 45              E     illegal
5782 AED3 00              .     test
5783
5784 AED4 53              S     comb
5785 AED5 4F              O     clra
5786 AED6 44              D     lsra
5787 AED7 41              A     illegal
5788 AED8 20 56            V    bra 56
5789 AEDA 45              E     illegal
5790 AEDB 4E              N     illegal
5791 AEDC 44              D     lsra
5792 AEDD 20 00            .    bra 00
5793 AEDF 53              S     comb
5794 AEE0 4E              N     illegal
5795 AEE1 41              A     illegal
5796 AEE2 43              C     coma
5797 AEE3 4B              K     illegal
5798 AEE4 20 56            V    bra 56
5799 AEE6 45              E     illegal
5800 AEE7 4E              N     illegal
5801 AEE8 44              D     lsra
5802 AEE9 00              .     test
5803
5804 AEEA 44              D     lsra
5805 AEEB 55              U     illegal
5806 AEEC 4D              M     tsta
5807 AEED 42              B     illegal
5808 AEEE 20 4D            M    bra 4d
5809 AEF0 45              E     illegal
5810 AEF1 43              C     coma
5811 AEF2 20 59            Y    bra 59
5812 AEF4 00              .     test
5813 AEF5 44              D     lsra
5814 AEF6 55              U     illegal
5815 AEF7 4D              M     tsta
5816 AEF8 42              B     illegal
5817 AEF9 20 4D            M    bra 4d
5818 AEFB 45              E     illegal
5819 AEFC 43              C     coma
5820 AEFD 20 4E            N    bra 4e
5821 AEFF 00              .     test
5822 AF00 4C              L     inca
5823 AF01 4E              N     illegal
5824 AF02 4B              K     illegal
5825 AF03 20 4D            M    bra 4d
5826 AF05 53              S     comb
5827 AF06 54              T     lsrb
5828 AF07 52              R     illegal
5829 AF08 20 59            Y    bra 59
5830 AF0A 00              .     test
5831 AF0B 4C              L     inca
5832 AF0C 4E              N     illegal
5833 AF0D 4B              K     illegal
5834 AF0E 20 4D            M    bra 4d
5835 AF10 53              S     comb
5836 AF11 54              T     lsrb
5837 AF12 52              R     illegal
5838 AF13 20 4E            N    bra 4e
5839 AF15 00              .     test
5840 AF16 43              C     coma
5841 AF17 41              A     illegal
5842 AF18 52              R     illegal
5843 AF19 44              D     lsra
5844 AF1A 20 52            R    bra 52
5845 AF1C 44              D     lsra
5846 AF1D 52              R     illegal
5847 AF1E 20 59            Y    bra 59
5848 AF20 00              .     test
5849 AF21 43              C     coma
5850 AF22 41              A     illegal
5851 AF23 52              R     illegal
5852 AF24 44              D     lsra
5853 AF25 20 52            R    bra 52
5854 AF27 44              D     lsra
5855 AF28 52              R     illegal
5856 AF29 20 4E            N    bra 4e
5857 AF2B 00              .     test
5858 AF2C 42              B     illegal
5859 AF2D 49              I     rola
5860 AF2E 4C              L     inca
5861 AF2F 4C              L     inca
5862 AF30 20 56            V    bra 56
5863 AF32 41              A     illegal
5864 AF33 4C              L     inca
5865 AF34 20 59            Y    bra 59
5866 AF36 00              .     test
5867 AF37 42              B     illegal
5868 AF38 49              I     rola
5869 AF39 4C              L     inca
5870 AF3A 4C              L     inca
5871 AF3B 20 56            V    bra 56
5872 AF3D 41              A     illegal
5873 AF3E 4C              L     inca
5874 AF3F 20 4E            N    bra 4e
5875 AF41 00              .     test
5876 AF42 50              P     negb
5877 AF43 52              R     illegal
5878 AF44 43              C     coma
5879 AF45 20 48            H    bra 48
5880 AF47 4F              O     clra
5881 AF48 4C              L     inca
5882 AF49 44              D     lsra
5883 AF4A 20 59            Y    bra 59
5884 AF4C 00              .     test
5885 AF4D 50              P     negb
5886 AF4E 52              R     illegal
5887 AF4F 43              C     coma
5888 AF50 20 48            H    bra 48
5889 AF52 4F              O     clra
5890 AF53 4C              L     inca
5891 AF54 44              D     lsra
5892 AF55 20 4E            N    bra 4e
5893 AF57 00              .     test
5894 AF58 50              P     negb
5895 AF59 52              R     illegal
5896 AF5A 43              C     coma
5897 AF5B 20 44            D    bra 44
5898 AF5D 49              I     rola
5899 AF5E 53              S     comb
5900 AF5F 50              P     negb
5901 AF60 20 59            Y    bra 59
5902 AF62 00              .     test
5903 AF63 50              P     negb
5904 AF64 52              R     illegal
5905 AF65 43              C     coma
5906 AF66 20 44            D    bra 44
5907 AF68 49              I     rola
5908 AF69 53              S     comb
5909 AF6A 50              P     negb
5910 AF6B 20 4E            N    bra 4e
5911 AF6D 00              .     test
5912 AF6E 46              F     rora
5913 AF6F 52              R     illegal
5914 AF70 45              E     illegal
5915 AF71 45              E     illegal
5916 AF72 20 56            V    bra 56
5917 AF74 4E              N     illegal
5918 AF75 44              D     lsra
5919 AF76 20 59            Y    bra 59
5920 AF78 00              .     test
5921 AF79 46              F     rora
5922 AF7A 52              R     illegal
5923 AF7B 45              E     illegal
5924 AF7C 45              E     illegal
5925 AF7D 20 56            V    bra 56
5926 AF7F 4E              N     illegal
5927 AF80 44              D     lsra
5928 AF81 20 4E            N    bra 4e
5929 AF83 00              .     test
5930 AF84 24 31           $1    bcc 31
5931 AF86 20 43            C    bra 43
5932 AF88 48              H     asla
5933 AF89 4E              N     illegal
5934 AF8A 47              G     asra
5935 AF8B 52              R     illegal
5936 AF8C 20 59            Y    bra 59
5937 AF8E 00              .     test
5938 AF8F 24 31           $1    bcc 31
5939 AF91 20 43            C    bra 43
5940 AF93 48              H     asla
5941 AF94 4E              N     illegal
5942 AF95 47              G     asra
5943 AF96 52              R     illegal
5944 AF97 20 4E            N    bra 4e
5945 AF99 00              .     test
5946 AF9A 43              C     coma
5947 AF9B 4C              L     inca
5948 AF9C 52              R     illegal
5949 AF9D 20 4D            M    bra 4d
5950 AF9F 49              I     rola
5951 AFA0 53              S     comb
5952 AFA1 20 20                 bra 20
5953 AFA3 59              Y     rolb
5954 AFA4 00              .     test
5955 AFA5 43              C     coma
5956 AFA6 4C              L     inca
5957 AFA7 52              R     illegal
5958 AFA8 20 4D            M    bra 4d
5959 AFAA 49              I     rola
5960 AFAB 53              S     comb
5961 AFAC 20 20                 bra 20
5962 AFAE 4E              N     illegal
5963 AFAF 00              .     test
5964 AFB0 48              H     asla
5965 AFB1 49              I     rola
5966 AFB2 54              T     lsrb
5967 AFB3 20 4B            K    bra 4b
5968 AFB5 45              E     illegal
5969 AFB6 59              Y     rolb
5970 AFB7 22 30           "0    bhi 30
5971 AFB9 22 00           ".    bhi 00
5972 AFBB 45              E     illegal
5973 AFBC 4E              N     illegal
5974 AFBD 54              T     lsrb
5975 AFBE 45              E     illegal
5976 AFBF 52              R     illegal
5977 AFC0 20 43            C    bra 43
5978 AFC2 4F              O     clra
5979 AFC3 44              D     lsra
5980 AFC4 45              E     illegal
5981 AFC5 00              .     test
5982 AFC6 53              S     comb
5983 AFC7 45              E     illegal
5984 AFC8 43              C     coma
5985 AFC9 55              U     illegal
5986 AFCA 52              R     illegal
5987 AFCB 45              E     illegal
5988 AFCC 20 4F            O    bra 4f
5989 AFCE 4E              N     illegal
5990 AFCF 20 00            .    bra 00
5991 AFD1 53              S     comb
5992 AFD2 45              E     illegal
5993 AFD3 43              C     coma
5994 AFD4 55              U     illegal
5995 AFD5 52              R     illegal
5996 AFD6 45              E     illegal
5997 AFD7 20 4F            O    bra 4f
5998 AFD9 46              F     rora
5999 AFDA 46              F     rora
6000 AFDB 00              .     test
6001 AFDC 2D 20           -     blt 20
6002 AFDE 53              S     comb
6003 AFDF 41              A     illegal
6004 AFE0 56              V     rorb
6005 AFE1 49              I     rola
6006 AFE2 4E              N     illegal
6007 AFE3 47              G     asra
6008 AFE4 20 2D            -    bra 2d
6009 AFE6 00              .     test
6010 AFE7 2D 50           -P    blt 50
6011 AFE9 52              R     illegal
6012 AFEA 49              I     rola
6013 AFEB 4E              N     illegal
6014 AFEC 54              T     lsrb
6015 AFED 49              I     rola
6016 AFEE 4E              N     illegal
6017 AFEF 47              G     asra
6018 AFF0 2D 00           -.    blt 00
6019
6020 AFF2 4F              O     clra
6021 AFF3 56              V     rorb
6022 AFF4 45              E     illegal
6023 AFF5 52              R     illegal
6024 AFF6 20 43            C    bra 43
6025 AFF8 52              R     illegal
6026 AFF9 4E              N     illegal
6027 AFFA 54              T     lsrb
6028 AFFB 3D              =     mul
6029 AFFC 00              .     test
6030
6031 AFFD 48              H     asla
6032 AFFE 4F              O     clra
6033 AFFF 4D              M     tsta
6034 B000 45              E     illegal
6035 B001 20 46            F    bra 46
6036 B003 41              A     illegal
6037 B004 49              I     rola
6038 B005 4C              L     inca
6039 B006 3D              =     mul
6040 B007 00              .     test
6041 B008 43              C     coma
6042 B009 48              H     asla
6043 B00A 4B              K     illegal
6044 B00B 20 50            P    bra 50
6045 B00D 52              R     illegal
6046 B00E 49              I     rola
6047 B00F 43              C     coma
6048 B010 45              E     illegal
6049 B011 53              S     comb
6050 B012 00              .     test
6051
6052 B013 48              H     asla
6053 B014 49              I     rola
6054 B015 54              T     lsrb
6055 B016 20 52            R    bra 52
6056 B018 45              E     illegal
6057 B019 53              S     comb
6058 B01A 45              E     illegal
6059 B01B 54              T     lsrb
6060 B01C 20 00            .    bra 00
6061
6062 B01E 43              C     coma
6063 B01F 4F              O     clra
6064 B020 49              I     rola
6065 B021 4E              N     illegal
6066 B022 20 20                 bra 20
6067 B024 20 4A            J    bra 4a
6068 B026 41              A     illegal
6069 B027 4D              M     tsta
6070 B028 00              .     test
6071
6072 B029 42              B     illegal
6073 B02A 41              A     illegal
6074 B02B 44              D     lsra
6075 B02C 20 53            S    bra 53
6076 B02E 45              E     illegal
6077 B02F 4E              N     illegal
6078 B030 53              S     comb
6079 B031 4F              O     clra
6080 B032 52              R     illegal
6081 B033 00              .     test
6082
6083 B034 43              C     coma
6084 B035 48              H     asla
6085 B036 47              G     asra
6086 B037 52              R     illegal
6087 B038 20 50            P    bra 50
6088 B03A 57              W     asrb
6089 B03B 52              R     illegal
6090 B03C 55              U     illegal
6091 B03D 50              P     negb
6092 B03E 00              .     test
6093
6094 B03F 4C              L     inca
6095 B040 49              I     rola
6096 B041 4E              N     illegal
6097 B042 4B              K     illegal
6098 B043 20 50            P    bra 50
6099 B045 57              W     asrb
6100 B046 52              R     illegal
6101 B047 55              U     illegal
6102 B048 50              P     negb
6103 B049 00              .     test
6104
6105 B04A 43              C     coma
6106 B04B 41              A     illegal
6107 B04C 52              R     illegal
6108 B04D 44              D     lsra
6109 B04E 20 50            P    bra 50
6110 B050 57              W     asrb
6111 B051 52              R     illegal
6112 B052 55              U     illegal
6113 B053 50              P     negb
6114 B054 00              .     test
6115
6116 B055 42              B     illegal
6117 B056 49              I     rola
6118 B057 4C              L     inca
6119 B058 4C              L     inca
6120 B059 20 45            E    bra 45
6121 B05B 52              R     illegal
6122 B05C 52              R     illegal
6123 B05D 4F              O     clra
6124 B05E 52              R     illegal
6125 B05F 00              .     test
6126
6127 B060 54              T     lsrb
6128 B061 55              U     illegal
6129 B062 42              B     illegal
6130 B063 45              E     illegal
6131 B064 20 45            E    bra 45
6132 B066 52              R     illegal
6133 B067 52              R     illegal
6134 B068 4F              O     clra
6135 B069 52              R     illegal
6136 B06A 00              .     test
6137 B06B 4E              N     illegal
6138 B06C 4F              O     clra
6139 B06D 20 20                 bra 20
6140 B06F 43              C     coma
6141 B070 48              H     asla
6142 B071 41              A     illegal
6143 B072 4E              N     illegal
6144 B073 47              G     asra
6145 B074 45              E     illegal
6146 B075 00              .     test
6147 B076 20 4E            N    bra 4e
6148 B078 4F              O     clra
6149 B079 20 46            F    bra 46
6150 B07B 49              I     rola
6151 B07C 56              V     rorb
6152 B07D 45              E     illegal
6153 B07E 53              S     comb
6154 B07F 20 00            .    bra 00
6155
6156 B081 4E              N     illegal
6157 B082 4F              O     clra
6158 B083 20 20                 bra 20
6159 B085 41              A     illegal
6160 B086 43              C     coma
6161 B087 43              C     coma
6162 B088 45              E     illegal
6163 B089 53              S     comb
6164 B08A 53              S     comb
6165 B08B 00              .     test
6166 B08C 4E              N     illegal
6167 B08D 4F              O     clra
6168 B08E 20 20                 bra 20
6169 B090 45              E     illegal
6170 B091 52              R     illegal
6171 B092 52              R     illegal
6172 B093 4F              O     clra
6173 B094 52              R     illegal
6174 B095 53              S     comb
6175 B096 00              .     test
6176 B097 54              T     lsrb
6177 B098 45              E     illegal
6178 B099 53              S     comb
6179 B09A 54              T     lsrb
6180 B09B 20 20                 bra 20
6181 B09D 56              V     rorb
6182 B09E 45              E     illegal
6183 B09F 4E              N     illegal
6184 B0A0 44              D     lsra
6185 B0A1 00              .     test
6186 B0A2 4D              M     tsta
6187 B0A3 54              T     lsrb
6188 B0A4 52              R     illegal
6189 B0A5 20 46            F    bra 46
6190 B0A7 55              U     illegal
6191 B0A8 4E              N     illegal
6192 B0A9 43              C     coma
6193 B0AA 54              T     lsrb
6194 B0AB 3F              ?     swi
6195 B0AC 00              .     test
6196 B0AD 50              P     negb
6197 B0AE 52              R     illegal
6198 B0AF 4F              O     clra
6199 B0B0 47              G     asra
6200 B0B1 52              R     illegal
6201 B0B2 41              A     illegal
6202 B0B3 4D              M     tsta
6203 B0B4 20 20                 bra 20
6204 B0B6 3F              ?     swi
6205 B0B7 00              .     test
6206 B0B8 53              S     comb
6207 B0B9 45              E     illegal
6208 B0BA 4C              L     inca
6209 B0BB 45              E     illegal
6210 B0BC 43              C     coma
6211 B0BD 54              T     lsrb
6212 B0BE 49              I     rola
6213 B0BF 4F              O     clra
6214 B0C0 4E              N     illegal
6215 B0C1 3F              ?     swi
6216 B0C2 00              .     test
6217
6218 B0C3 14 00           .     ;20
6219 B0C5 14 C8           .     ;20 200
6220 B0C7 05 00           ..    ;05
6221 B0C9 05 00           .     ;05
6222 B0CB 02 00           .     ;02
6223 B0CD 02 00           .     ;02
6224 B0CF 01 00           .     ;01
6225 B0D1 01 00           .     ;01
6226
6227
6228
6229
6230
6231 ;
6232 ; here's a lookup table of some sort, for finding the slot
6233 ; numbers of each motor in turn
6234 ;
6235 ; 80 entries for 80 motors?
6236 ;
6237 B0D3 01              .     ;01
6238 B0D4 0C              .     ;12
6239 B0D5 17              .     ;23
6240 B0D6 22              .     ;34
6241 B0D7 2E              .     ;46
6242 B0D8 39              .     ;57
6243 B0D9 44              D     ;68
6244 B0DA 4F              O     ;79
6245 ;
6246 B0DB 0B              .     ;11
6247 B0DC 16              .     ;22
6248 B0DD 21              !     ;33
6249 B0DE 2C              .     ;44
6250 B0DF 38              8     ;56
6251 B0E0 43              C     ;67
6252 B0E1 4E              N     ;78
6253 B0E2 59              Y     ;89
6254 ;
6255 B0E3 15              .     ;21
6256 B0E4 20              .     ;32
6257 B0E5 2B              +     ;43
6258 B0E6 36              6     ;54
6259 B0E7 42              B     ;66
6260 B0E8 4D              M     ;77
6261 B0E9 58              X     ;88
6262 B0EA 63              c     ;99
6263 ;
6264 B0EB 1F              .     ;31
6265 B0EC 2A              *.    ;42
6266 B0ED 35              .     ;53
6267 B0EE 40              @     ;64
6268 B0EF 4C              L     ;76
6269 B0F0 57              W     ;87
6270 B0F1 62              b     ;98
6271 ;
6272 B0F2 09              .     ;09
6273 B0F3 29              )     ;41
6274 B0F4 34              .     ;52
6275 B0F5 3F              ?     ;63
6276 B0F6 4A              J     ;74
6277 B0F7 56              V     ;86
6278 B0F8 61              a     ;97
6279 ;
6280 B0F9 08              .     ;08
6281 B0FA 13              .     ;19
6282 B0FB 33              3     ;51
6283 B0FC 3E              >     ;62
6284 B0FD 49              I     ;73
6285 B0FE 54              T     ;84
6286 B0FF 60              `     ;96
6287 ;
6288 B000 07              .     ;07
6289 B101 12              .     ;18
6290 B102 1D              .     ;29
6291 B103 3D              .     ;61
6292 B104 48              .     ;72
6293 B105 53              S     ;83
6294 B106 5E              ^     ;94
6295 ;
6296 B107 06              .     ;06
6297 B108 11              .     ;17
6298 B109 1C              .     ;28
6299 B10A 27              .     ;39
6300 B10B 47              .     ;71
6301 B10C 52              R     ;82
6302 B10D 5D              ]     ;93
6303 ;
6304 B10E 04              .     ;04
6305 B10F 10              .     ;16
6306 B110 1B              .     ;27
6307 B111 26              &     ;38
6308 B111 31              &     ;49
6309 B113 51              Q     ;81
6310 B114 5C              \     ;92
6311 ;
6312 B115 03              .     ;03
6313 B116 0E              .     ;14
6314 B117 1A              .     ;26
6315 B118 25              %     ;37
6316 B119 30              %     ;48
6317 B11A 3B              ;     ;59
6318 B11B 5B              [     ;91
6319 ;
6320 B11C 02              .     ;02
6321 B11D 0D              .     ;13
6322 B11E 18              .     ;24
6323 B11F 24              $     ;36
6324 B120 2F              $     ;47
6325 B121 3A              :     ;58
6326 B122 45              E     ;69
6327
6328 table of powers of 2
6329
6330 B123 00 01 02 04 08
6331 B128 10 20 40 80
6332
6333 B12C 00
6334 B12D 00              .     test
6335 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6336 B130 45              E     illegal
6337 B131 52              R     illegal
6338 B132 52              R     illegal
6339 B133 4F              O     clra
6340 B134 52              R     illegal
6341 B135 2A 2A           **    bpl 2a
6342 B137 2A 00           *.    bpl 00
6343
6344 B139 2A 2A           **    bpl 2a
6345 B13B 2A 2A           **    bpl 2a
6346 B13D 2A 2A           **    bpl 2a
6347 B13F 2A 2A           **    bpl 2a
6348 B141 2A 2A           **    bpl 2a
6349 B143 00              .     test
6350 B144 4F              O     clra
6351 B145 4F              O     clra
6352 B146 4F              O     clra
6353 B147 4F              O     clra
6354 B148 4F              O     clra
6355 B149 4F              O     clra
6356 B14A 4F              O     clra
6357 B14B 4F              O     clra
6358 B14C 4F              O     clra
6359 B14D 4F              O     clra
6360 B14E 00              .     test
6361 B14F 52              R     illegal
6362 B150 41              A     illegal
6363 B151 4D              M     tsta
6364 B152 20 20                 bra 20
6365 B154 20 46            F    bra 46
6366 B156 41              A     illegal
6367 B157 49              I     rola
6368 B158 4C              L     inca
6369 B159 00              .     test
6370 B15A 50              P     negb
6371 B15B 32              2     pula
6372 B15C 20 20                 bra 20
6373 B15E 20 20                 bra 20
6374 B160 46              F     rora
6375 B161 41              A     illegal
6376 B162 49              I     rola
6377 B163 4C              L     inca
6378 B164 00              .     test
6379 B165 50              P     negb
6380 B166 32              2     pula
6381 B167 2D 50           -P    blt 50
6382 B169 33              3     pulb
6383 B16A 20 46            F    bra 46
6384 B16C 41              A     illegal
6385 B16D 49              I     rola
6386 B16E 4C              L     inca
6387 B16F 00              .     test
6388 B170 50              P     negb
6389 B171 32              2     pula
6390 B172 2D 50           -P    blt 50
6391 B174 38              8     pulx
6392 B175 20 46            F    bra 46
6393 B177 41              A     illegal
6394 B178 49              I     rola
6395 B179 4C              L     inca
6396 B17A 00              .     test
6397 B17B 50              P     negb
6398 B17C 32              2     pula
6399 B17D 2D 50           -P    blt 50
6400 B17F 39              9     rts
6401
6402 B180 20 46            F    bra 46
6403 B182 41              A     illegal
6404 B183 49              I     rola
6405 B184 4C              L     inca
6406 B185 00              .     test
6407 B186 50              P     negb
6408 B187 33              3     pulb
6409 B188 2D 50           -P    blt 50
6410 B18A 34              4     des
6411 B18B 20 46            F    bra 46
6412 B18D 41              A     illegal
6413 B18E 49              I     rola
6414 B18F 4C              L     inca
6415 B190 00              .     test
6416 B191 50              P     negb
6417 B192 35              5     txs
6418 B193 20 20                 bra 20
6419 B195 20 20                 bra 20
6420 B197 46              F     rora
6421 B198 41              A     illegal
6422 B199 49              I     rola
6423 B19A 4C              L     inca
6424 B19B 00              .     test
6425 B19C 50              P     negb
6426 B19D 35              5     txs
6427 B19E 2D 50           -P    blt 50
6428 B1A0 37              7     pshb
6429 B1A1 20 46            F    bra 46
6430 B1A3 41              A     illegal
6431 B1A4 49              I     rola
6432 B1A5 4C              L     inca
6433 B1A6 00              .     test
6434 B1A7 50              P     negb
6435 B1A8 37              7     pshb
6436 B1A9 20 20                 bra 20
6437 B1AB 20 20                 bra 20
6438 B1AD 46              F     rora
6439 B1AE 41              A     illegal
6440 B1AF 49              I     rola
6441 B1B0 4C              L     inca
6442 B1B1 00              .     test
6443 B1B2 50              P     negb
6444 B1B3 37              7     pshb
6445 B1B4 2D 50           -P    blt 50
6446 B1B6 38              8     pulx
6447 B1B7 20 46            F    bra 46
6448 B1B9 41              A     illegal
6449 B1BA 49              I     rola
6450 B1BB 4C              L     inca
6451 B1BC 00              .     test
6452 B1BD 2D 20           -     blt 20
6453 B1BF 50              P     negb
6454 B1C0 41              A     illegal
6455 B1C1 53              S     comb
6456 B1C2 53              S     comb
6457 B1C3 45              E     illegal
6458 B1C4 44              D     lsra
6459 B1C5 20 2D            -    bra 2d
6460 B1C7 00              .     test
6461 B1C8 09              .     dex
6462 B1C9 12              .     brset
6463 B1CA 1B              .     aba
6464 B1CB 24 2C           $,    bcc 2c
6465 B1CD 35              5     txs
6466 B1CE 3E              >     wai
6467 B1CF 47              G     asra
6468 B1D0 54              T     lsrb
6469 B1D1 48              H     asla
6470 B1D2 41              A     illegal
6471 B1D3 4E              N     illegal
6472 B1D4 4B              K     illegal
6473 B1D5 20 59            Y    bra 59
6474 B1D7 4F              O     clra
6475 B1D8 55              U     illegal
6476 B1D9 20 46            F    bra 46
6477 B1DB 4F              O     clra
6478 B1DC 52              R     illegal
6479 B1DD 20 59            Y    bra 59
6480 B1DF 4F              O     clra
6481 B1E0 55              U     illegal
6482 B1E1 52              R     illegal
6483 B1E2 20 50            P    bra 50
6484 B1E4 41              A     illegal
6485 B1E5 54              T     lsrb
6486 B1E6 52              R     illegal
6487 B1E7 4F              O     clra
6488 B1E8 4E              N     illegal
6489 B1E9 41              A     illegal
6490 B1EA 47              G     asra
6491 B1EB 45              E     illegal
6492 B1EC 20 20                 bra 20
6493 B1EE 00              .     test
6494
6495 B1EF 20 52            R    bra 52
6496 B1F1 4F              O     clra
6497 B1F2 57              W     asrb
6498 B1F3 45              E     illegal
6499 B1F4 20 49            I    bra 49
6500 B1F6 4E              N     illegal
6501 B1F7 54              T     lsrb
6502 B1F8 20 00            .    bra 00
6503
6504 B1FA 43              C     coma
6505 B1FB 4F              O     clra
6506 B1FC 50              P     negb
6507 B1FD 59              Y     rolb
6508 B1FE 52              R     illegal
6509 B1FF 49              I     rola
6510 B200 47              G     asra
6511 B201 48              H     asla
6512 B202 54              T     lsrb
6513 B203 20 00            .    bra 00
6514
6515 B205 20 20                 bra 20
6516 B207 20 31            1    bra 31
6517 B209 39              9     rts
6518 B20A 39              9     rts
6519 B20B 33              3     pulb
6520 B20C 20 20                 bra 20
6521 B20E 20 00            .    bra 00
6522
6523 B210 35              5     txs
6524 B211 39              9     rts
6525 B212 30              0     tsx
6526 B213 30              0     tsx
6527 B214 20 56            V    bra 56
6528 B216 45              E     illegal
6529 B217 52              R     illegal
6530 B218 20 35            5    bra 35
6531 B21A 00              .     test
6532
6533 B21B 20 20                 bra 20
6534 B21D 20 20                 bra 20
6535 B21F 20 20                 bra 20
6536 B221 20 20                 bra 20
6537 B223 20 52            R    bra 52
6538 B225 4F              O     clra
6539 B226 57              W     asrb
6540 B227 45              E     illegal
6541 B228 20 20                 bra 20
6542 B22A 49              I     rola
6543 B22B 4E              N     illegal
6544 B22C 54              T     lsrb
6545 B22D 45              E     illegal
6546 B22E 52              R     illegal
6547 B22F 4E              N     illegal
6548 B230 41              A     illegal
6549 B231 54              T     lsrb
6550 B232 49              I     rola
6551 B233 4F              O     clra
6552 B234 4E              N     illegal
6553 B235 41              A     illegal
6554 B236 4C              L     inca
6555 B237 00              .     test
6556 B238 20 20                 bra 20
6557 B23A 20 20                 bra 20
6558 B23C 20 20                 bra 20
6559 B23E 20 20                 bra 20
6560 B240 2D 2D           --    blt 2d
6561 B242 2D 2D           --    blt 2d
6562 B244 2D 2D           --    blt 2d
6563 B246 2D 2D           --    blt 2d
6564 B248 2D 2D           --    blt 2d
6565 B24A 2D 2D           --    blt 2d
6566 B24C 2D 2D           --    blt 2d
6567 B24E 2D 2D           --    blt 2d
6568 B250 2D 2D           --    blt 2d
6569 B252 2D 2D           --    blt 2d
6570 B254 2D 00           -.    blt 00
6571 B256 20 20                 bra 20
6572 B258 20 20                 bra 20
6573 B25A 20 20                 bra 20
6574 B25C 20 20                 bra 20
6575 B25E 35              5     txs
6576 B25F 39              9     rts
6577 B260 30              0     tsx
6578 B261 30              0     tsx
6579 B262 20 53            S    bra 53
6580 B264 4F              O     clra
6581 B265 46              F     rora
6582 B266 54              T     lsrb
6583 B267 57              W     asrb
6584 B268 41              A     illegal
6585 B269 52              R     illegal
6586 B26A 45              E     illegal
6587 B26B 20 56            V    bra 56
6588 B26D 45              E     illegal
6589 B26E 52              R     illegal
6590 B26F 2E 20           .     bgt 20
6591 B271 35              5     txs
6592 B272 20 20                 bra 20
6593 B274 00              .     test
6594 B275 20 20                 bra 20
6595 B277 20 20                 bra 20
6596 B279 20 20                 bra 20
6597 B27B 20 20                 bra 20
6598 B27D 20 20                 bra 20
6599 B27F 20 41            A    bra 41
6600 B281 43              C     coma
6601 B282 43              C     coma
6602 B283 4F              O     clra
6603 B284 55              U     illegal
6604 B285 4E              N     illegal
6605 B286 54              T     lsrb
6606 B287 20 20                 bra 20
6607 B289 52              R     illegal
6608 B28A 45              E     illegal
6609 B28B 43              C     coma
6610 B28C 4F              O     clra
6611 B28D 52              R     illegal
6612 B28E 44              D     lsra
6613 B28F 00              .     test
6614 B290 53              S     comb
6615 B291 45              E     illegal
6616 B292 52              R     illegal
6617 B293 49              I     rola
6618 B294 41              A     illegal
6619 B295 4C              L     inca
6620 B296 20 20                 bra 20
6621 B298 23 20           #     bls 20
6622 B29A 20 20                 bra 20
6623 B29C 20 20                 bra 20
6624 B29E 20 2D            -    bra 2d
6625 B2A0 20 00            .    bra 00
6626 B2A2 4D              M     tsta
6627 B2A3 41              A     illegal
6628 B2A4 43              C     coma
6629 B2A5 48              H     asla
6630 B2A6 49              I     rola
6631 B2A7 4E              N     illegal
6632 B2A8 45              E     illegal
6633 B2A9 20 49            I    bra 49
6634 B2AB 44              D     lsra
6635 B2AC 20 20                 bra 20
6636 B2AE 20 20                 bra 20
6637 B2B0 20 2D            -    bra 2d
6638 B2B2 20 00            .    bra 00
6639 B2B4 41              A     illegal
6640 B2B5 55              U     illegal
6641 B2B6 44              D     lsra
6642 B2B7 49              I     rola
6643 B2B8 54              T     lsrb
6644 B2B9 20 4E            N    bra 4e
6645 B2BB 55              U     illegal
6646 B2BC 4D              M     tsta
6647 B2BD 42              B     illegal
6648 B2BE 45              E     illegal
6649 B2BF 52              R     illegal
6650 B2C0 20 20                 bra 20
6651 B2C2 20 20                 bra 20
6652 B2C4 20 00            .    bra 00
6653 B2C6 53              S     comb
6654 B2C7 41              A     illegal
6655 B2C8 4C              L     inca
6656 B2C9 45              E     illegal
6657 B2CA 53              S     comb
6658 B2CB 20 20                 bra 20
6659 B2CD 28 52           (R    bvc 52
6660 B2CF 29 20           )     bvs 20
6661 B2D1 20 20                 bra 20
6662 B2D3 20 20                 bra 20
6663 B2D5 2D 20           -     blt 20
6664 B2D7 00              .     test
6665 B2D8 53              S     comb
6666 B2D9 41              A     illegal
6667 B2DA 4C              L     inca
6668 B2DB 45              E     illegal
6669 B2DC 53              S     comb
6670 B2DD 20 20                 bra 20
6671 B2DF 28 4E           (N    bvc 4e
6672 B2E1 29 20           )     bvs 20
6673 B2E3 20 20                 bra 20
6674 B2E5 20 20                 bra 20
6675 B2E7 2D 20           -     blt 20
6676 B2E9 00              .     test
6677 B2EA 42              B     illegal
6678 B2EB 41              A     illegal
6679 B2EC 47              G     asra
6680 B2ED 20 54            T    bra 54
6681 B2EF 4F              O     clra
6682 B2F0 54              T     lsrb
6683 B2F1 41              A     illegal
6684 B2F2 4C              L     inca
6685 B2F3 20 20                 bra 20
6686 B2F5 20 20                 bra 20
6687 B2F7 20 20                 bra 20
6688 B2F9 2D 20           -     blt 20
6689 B2FB 00              .     test
6690 B2FC 43              C     coma
6691 B2FD 41              A     illegal
6692 B2FE 53              S     comb
6693 B2FF 48              H     asla
6694 B300 20 42            B    bra 42
6695 B302 4F              O     clra
6696 B303 58              X     aslb
6697 B304 20 20                 bra 20
6698 B306 20 20                 bra 20
6699 B308 20 20                 bra 20
6700 B30A 20 2D            -    bra 2d
6701 B30C 20 00            .    bra 00
6702 B30E 43              C     coma
6703 B30F 41              A     illegal
6704 B310 52              R     illegal
6705 B311 44              D     lsra
6706 B312 20 53            S    bra 53
6707 B314 41              A     illegal
6708 B315 4C              L     inca
6709 B316 45              E     illegal
6710 B317 53              S     comb
6711 B318 20 20                 bra 20
6712 B31A 20 20                 bra 20
6713 B31C 20 2D            -    bra 2d
6714 B31E 20 00            .    bra 00
6715 B320 42              B     illegal
6716 B321 49              I     rola
6717 B322 4C              L     inca
6718 B323 4C              L     inca
6719 B324 53              S     comb
6720 B325 20 49            I    bra 49
6721 B327 4E              N     illegal
6722 B328 20 53            S    bra 53
6723 B32A 54              T     lsrb
6724 B32B 41              A     illegal
6725 B32C 43              C     coma
6726 B32D 4B              K     illegal
6727 B32E 45              E     illegal
6728 B32F 52              R     illegal
6729 B330 00              .     test
6730 B331 20 20                 bra 20
6731 B333 20 20                 bra 20
6732 B335 42              B     illegal
6733 B336 49              I     rola
6734 B337 4C              L     inca
6735 B338 4C              L     inca
6736 B339 20 54            T    bra 54
6737 B33B 4F              O     clra
6738 B33C 54              T     lsrb
6739 B33D 41              A     illegal
6740 B33E 4C              L     inca
6741 B33F 20 2D            -    bra 2d
6742 B341 20 20                 bra 20
6743 B343 20 20                 bra 20
6744 B345 20 20                 bra 20
6745 B347 20 20                 bra 20
6746 B349 00              .     test
6747 B34A 20 20                 bra 20
6748 B34C 20 20                 bra 20
6749 B34E 4F              O     clra
6750 B34F 4E              N     illegal
6751 B350 45              E     illegal
6752 B351 53              S     comb
6753 B352 20 20                 bra 20
6754 B354 20 20                 bra 20
6755 B356 20 20                 bra 20
6756 B358 20 2D            -    bra 2d
6757 B35A 20 00            .    bra 00
6758 B35C 20 20                 bra 20
6759 B35E 20 20                 bra 20
6760 B360 54              T     lsrb
6761 B361 57              W     asrb
6762 B362 4F              O     clra
6763 B363 53              S     comb
6764 B364 20 20                 bra 20
6765 B366 20 20                 bra 20
6766 B368 20 20                 bra 20
6767 B36A 20 2D            -    bra 2d
6768 B36C 20 00            .    bra 00
6769 B36E 20 20                 bra 20
6770 B370 20 20                 bra 20
6771 B372 46              F     rora
6772 B373 49              I     rola
6773 B374 56              V     rorb
6774 B375 45              E     illegal
6775 B376 53              S     comb
6776 B377 20 20                 bra 20
6777 B379 20 20                 bra 20
6778 B37B 20 20                 bra 20
6779 B37D 2D 20           -     blt 20
6780 B37F 00              .     test
6781 B380 20 20                 bra 20
6782 B382 20 20                 bra 20
6783 B384 54              T     lsrb
6784 B385 45              E     illegal
6785 B386 4E              N     illegal
6786 B387 53              S     comb
6787 B388 20 20                 bra 20
6788 B38A 20 20                 bra 20
6789 B38C 20 20                 bra 20
6790 B38E 20 2D            -    bra 2d
6791 B390 20 00            .    bra 00
6792 B392 20 20                 bra 20
6793 B394 20 20                 bra 20
6794 B396 54              T     lsrb
6795 B397 57              W     asrb
6796 B398 45              E     illegal
6797 B399 4E              N     illegal
6798 B39A 54              T     lsrb
6799 B39B 49              I     rola
6800 B39C 45              E     illegal
6801 B39D 53              S     comb
6802 B39E 20 20                 bra 20
6803 B3A0 20 2D            -    bra 2d
6804 B3A2 20 00            .    bra 00
6805 B3A4 43              C     coma
6806 B3A5 4F              O     clra
6807 B3A6 49              I     rola
6808 B3A7 4E              N     illegal
6809 B3A8 53              S     comb
6810 B3A9 20 49            I    bra 49
6811 B3AB 4E              N     illegal
6812 B3AC 20 54            T    bra 54
6813 B3AE 55              U     illegal
6814 B3AF 42              B     illegal
6815 B3B0 45              E     illegal
6816 B3B1 53              S     comb
6817 B3B2 00              .     test
6818 B3B3 20 20                 bra 20
6819 B3B5 20 20                 bra 20
6820 B3B7 54              T     lsrb
6821 B3B8 55              U     illegal
6822 B3B9 42              B     illegal
6823 B3BA 45              E     illegal
6824 B3BB 20 54            T    bra 54
6825 B3BD 4F              O     clra
6826 B3BE 54              T     lsrb
6827 B3BF 41              A     illegal
6828 B3C0 4C              L     inca
6829 B3C1 20 2D            -    bra 2d
6830 B3C3 20 20                 bra 20
6831 B3C5 20 20                 bra 20
6832 B3C7 20 20                 bra 20
6833 B3C9 00              .     test
6834 B3CA 20 20                 bra 20
6835 B3CC 20 20                 bra 20
6836 B3CE 24 31           $1    bcc 31
6837 B3D0 20 43            C    bra 43
6838 B3D2 4F              O     clra
6839 B3D3 49              I     rola
6840 B3D4 4E              N     illegal
6841 B3D5 20 20                 bra 20
6842 B3D7 20 20                 bra 20
6843 B3D9 2D 20           -     blt 20
6844 B3DB 00              .     test
6845 B3DC 20 20                 bra 20
6846 B3DE 20 20                 bra 20
6847 B3E0 51              Q     illegal
6848 B3E1 55              U     illegal
6849 B3E2 41              A     illegal
6850 B3E3 52              R     illegal
6851 B3E4 54              T     lsrb
6852 B3E5 45              E     illegal
6853 B3E6 52              R     illegal
6854 B3E7 53              S     comb
6855 B3E8 20 20                 bra 20
6856 B3EA 20 2D            -    bra 2d
6857 B3EC 20 00            .    bra 00
6858 B3EE 20 20                 bra 20
6859 B3F0 20 20                 bra 20
6860 B3F2 44              D     lsra
6861 B3F3 49              I     rola
6862 B3F4 4D              M     tsta
6863 B3F5 45              E     illegal
6864 B3F6 53              S     comb
6865 B3F7 20 20                 bra 20
6866 B3F9 20 20                 bra 20
6867 B3FB 20 20                 bra 20
6868 B3FD 2D 20           -     blt 20
6869 B3FF 00              .     test
6870 B400 20 20                 bra 20
6871 B402 20 20                 bra 20
6872 B404 4E              N     illegal
6873 B405 49              I     rola
6874 B406 43              C     coma
6875 B407 4B              K     illegal
6876 B408 45              E     illegal
6877 B409 4C              L     inca
6878 B40A 53              S     comb
6879 B40B 20 20                 bra 20
6880 B40D 20 20                 bra 20
6881 B40F 2D 20           -     blt 20
6882 B411 00              .     test
6883 B412 57              W     asrb
6884 B413 49              I     rola
6885 B414 4E              N     illegal
6886 B415 2D 53           -S    blt 53
6887 B417 4E              N     illegal
6888 B418 4B              K     illegal
6889 B419 20 56            V    bra 56
6890 B41B 45              E     illegal
6891 B41C 4E              N     illegal
6892 B41D 44              D     lsra
6893 B41E 53              S     comb
6894 B41F 20 20                 bra 20
6895 B421 2D 20           -     blt 20
6896 B423 00              .     test
6897 B424 53              S     comb
6898 B425 48              H     asla
6899 B426 4F              O     clra
6900 B427 50              P     negb
6901 B428 50              P     negb
6902 B429 45              E     illegal
6903 B42A 52              R     illegal
6904 B42B 20 56            V    bra 56
6905 B42D 45              E     illegal
6906 B42E 4E              N     illegal
6907 B42F 44              D     lsra
6908 B430 53              S     comb
6909 B431 20 20                 bra 20
6910 B433 2D 20           -     blt 20
6911 B435 00              .     test
6912 B436 50              P     negb
6913 B437 52              R     illegal
6914 B438 4F              O     clra
6915 B439 4D              M     tsta
6916 B43A 4F              O     clra
6917 B43B 20 56            V    bra 56
6918 B43D 45              E     illegal
6919 B43E 4E              N     illegal
6920 B43F 44              D     lsra
6921 B440 53              S     comb
6922 B441 20 20                 bra 20
6923 B443 20 20                 bra 20
6924 B445 2D 20           -     blt 20
6925 B447 00              .     test
6926 B448 46              F     rora
6927 B449 52              R     illegal
6928 B44A 45              E     illegal
6929 B44B 45              E     illegal
6930 B44C 20 20                 bra 20
6931 B44E 56              V     rorb
6932 B44F 45              E     illegal
6933 B450 4E              N     illegal
6934 B451 44              D     lsra
6935 B452 53              S     comb
6936 B453 20 20                 bra 20
6937 B455 20 20                 bra 20
6938 B457 2D 20           -     blt 20
6939 B459 00              .     test
6940 B45A 56              V     rorb
6941 B45B 45              E     illegal
6942 B45C 4E              N     illegal
6943 B45D 44              D     lsra
6944 B45E 53              S     comb
6945 B45F 20 50            P    bra 50
6946 B461 45              E     illegal
6947 B462 52              R     illegal
6948 B463 20 50            P    bra 50
6949 B465 52              R     illegal
6950 B466 4F              O     clra
6951 B467 44              D     lsra
6952 B468 55              U     illegal
6953 B469 43              C     coma
6954 B46A 54              T     lsrb
6955 B46B 20 43            C    bra 43
6956 B46D 4F              O     clra
6957 B46E 44              D     lsra
6958 B46F 45              E     illegal
6959 B470 00              .     test
6960
6961 B471 20 20                 bra 20
6962 B473 20 20                 bra 20
6963 B475 43              C     coma
6964 B476 4F              O     clra
6965 B477 44              D     lsra
6966 B478 45              E     illegal
6967 B479 20 00            .    bra 00
6968 B47B 56              V     rorb
6969 B47C 45              E     illegal
6970 B47D 4E              N     illegal
6971 B47E 44              D     lsra
6972 B47F 53              S     comb
6973 B480 20 2D            -    bra 2d
6974 B482 20 00            .    bra 00
6975 B484 56              V     rorb
6976 B485 45              E     illegal
6977 B486 4E              N     illegal
6978 B487 44              D     lsra
6979 B488 53              S     comb
6980 B489 2F 43           /C    ble 43
6981 B48B 4F              O     clra
6982 B48C 44              D     lsra
6983 B48D 45              E     illegal
6984 B48E 00              .     test
6985 B48F 41              A     illegal
6986 B490 42              B     illegal
6987 B491 43              C     coma
6988 B492 44              D     lsra
6989 B493 45              E     illegal
6990 B494 46              F     rora
6991 B495 47              G     asra
6992 B496 48              H     asla
6993 B497 49              I     rola
6994 B498 4A              J     deca
6995 B499 4B              K     illegal
6996 B49A 4C              L     inca
6997 B49B 4D              M     tsta
6998 B49C 4E              N     illegal
6999 B49D 4F              O     clra
7000 B49E 50              P     negb
7001 B49F 51              Q     illegal
7002 B4A0 52              R     illegal
7003 B4A1 53              S     comb
7004 B4A2 54              T     lsrb
7005 B4A3 55              U     illegal
7006 B4A4 56              V     rorb
7007 B4A5 57              W     asrb
7008 B4A6 58              X     aslb
7009 B4A7 59              Y     rolb
7010 B4A8 5A              Z     decb
7011 B4A9 30              0     tsx
7012 B4AA 31              1     ins
7013 B4AB 32              2     pula
7014 B4AC 33              3     pulb
7015 B4AD 34              4     des
7016 B4AE 35              5     txs
7017 B4AF 36              6     psha
7018 B4B0 37              7     pshb
7019 B4B1 38              8     pulx
7020 B4B2 39              9     rts
7021 B4B3 24 2A           $*    bcc 2a
7022 B4B5 20 00            .    bra 00
7023 B4B7 01              .     nop
7024 B4B8 02              .     idiv
7025 B4B9 04              .     lsrd
7026 B4BA 08              .     inx
7027 B4BB 10              .     sba
7028 B4BC 20 40            @    bra 40
7029 B4BE 80 FF           ..    suba #ff
7030 B4C0 FF FF FF        ...   stx ffff
7031 B4C3 FF FF FF        ...   stx ffff
7032 B4C6 FF FF FF        ...   stx ffff
7033 B4C9 FF FF FF        ...   stx ffff
7034 B4CC FF FF FF        ...   stx ffff
7035 B4CF FF FF FF        ...   stx ffff
7036 B4D2 FF FF FF        ...   stx ffff
7037 B4D5 FF FF FF        ...   stx ffff
7038 B4D8 FF FF FF        ...   stx ffff
7039 B4DB FF FF FF        ...   stx ffff
7040 B4DE FF FF FF        ...   stx ffff
7041 B4E1 FF FF FF        ...   stx ffff
7042 B4E4 FF FF FF        ...   stx ffff
7043 B4E7 FF FF FF        ...   stx ffff
7044 B4EA FF FF FF        ...   stx ffff
7045 B4ED FF FF FF        ...   stx ffff
7046 B4F0 FF FF FF        ...   stx ffff
7047 B4F3 FF FF FF        ...   stx ffff
7048 B4F6 FF FF FF        ...   stx ffff
7049 B4F9 FF FF FF        ...   stx ffff
7050 B4FC FF FF FF        ...   stx ffff
7051 B4FF FF FF FF        ...   stx ffff
7052 B502 FF FF FF        ...   stx ffff
7053 B505 FF FF FF        ...   stx ffff
7054 B508 FF FF FF        ...   stx ffff
7055 B50B FF FF FF        ...   stx ffff
7056 B50E FF FF FF        ...   stx ffff
7057 B511 FF FF FF        ...   stx ffff
7058 B514 FF FF FF        ...   stx ffff
7059 B517 FF FF FF        ...   stx ffff
7060 B51A FF FF FF        ...   stx ffff
7061 B51D FF FF FF        ...   stx ffff
7062 B520 FF FF FF        ...   stx ffff
7063 B523 FF FF FF        ...   stx ffff
7064 B526 FF FF FF        ...   stx ffff
7065 B529 FF FF FF        ...   stx ffff
7066 B52C FF FF FF        ...   stx ffff
7067 B52F FF FF FF        ...   stx ffff
7068 B532 FF FF FF        ...   stx ffff
7069 B535 FF FF FF        ...   stx ffff
7070 B538 FF FF FF        ...   stx ffff
7071 B53B FF FF FF        ...   stx ffff
7072 B53E FF FF FF        ...   stx ffff
7073 B541 FF FF FF        ...   stx ffff
7074 B544 FF FF FF        ...   stx ffff
7075 B547 FF FF FF        ...   stx ffff
7076 B54A FF FF FF        ...   stx ffff
7077 B54D FF FF FF        ...   stx ffff
7078 B550 FF FF FF        ...   stx ffff
7079 B553 FF FF FF        ...   stx ffff
7080 B556 FF FF FF        ...   stx ffff
7081 B559 FF FF FF        ...   stx ffff
7082 B55C FF FF FF        ...   stx ffff
7083 B55F FF FF FF        ...   stx ffff
7084 B562 FF FF FF        ...   stx ffff
7085 B565 FF FF FF        ...   stx ffff
7086 B568 FF FF FF        ...   stx ffff
7087 B56B FF FF FF        ...   stx ffff
7088 B56E FF FF FF        ...   stx ffff
7089 B571 FF FF FF        ...   stx ffff
7090 B574 FF FF FF        ...   stx ffff
7091 B577 FF FF FF        ...   stx ffff
7092 B57A FF FF FF        ...   stx ffff
7093 B57D FF FF FF        ...   stx ffff
7094 B580 FF FF FF        ...   stx ffff
7095 B583 FF FF FF        ...   stx ffff
7096 B586 FF FF FF        ...   stx ffff
7097 B589 FF FF FF        ...   stx ffff
7098 B58C FF FF FF        ...   stx ffff
7099 B58F FF FF FF        ...   stx ffff
7100 B592 FF FF FF        ...   stx ffff
7101 B595 FF FF FF        ...   stx ffff
7102 B598 FF FF FF        ...   stx ffff
7103 B59B FF FF FF        ...   stx ffff
7104 B59E FF FF FF        ...   stx ffff
7105 B5A1 FF FF FF        ...   stx ffff
7106 B5A4 FF FF FF        ...   stx ffff
7107 B5A7 FF FF FF        ...   stx ffff
7108 B5AA FF FF FF        ...   stx ffff
7109 B5AD FF FF FF        ...   stx ffff
7110 B5B0 FF FF FF        ...   stx ffff
7111 B5B3 FF FF FF        ...   stx ffff
7112 B5B6 FF FF FF        ...   stx ffff
7113 B5B9 FF FF FF        ...   stx ffff
7114 B5BC FF FF FF        ...   stx ffff
7115 B5BF FF FF FF        ...   stx ffff
7116 B5C2 FF FF FF        ...   stx ffff
7117 B5C5 FF FF FF        ...   stx ffff
7118 B5C8 FF FF FF        ...   stx ffff
7119 B5CB FF FF FF        ...   stx ffff
7120 B5CE FF FF FF        ...   stx ffff
7121 B5D1 FF FF FF        ...   stx ffff
7122 B5D4 FF FF FF        ...   stx ffff
7123 B5D7 FF FF FF        ...   stx ffff
7124 B5DA FF FF FF        ...   stx ffff
7125 B5DD FF FF FF        ...   stx ffff
7126 B5E0 FF FF FF        ...   stx ffff
7127 B5E3 FF FF FF        ...   stx ffff
7128 B5E6 FF FF FF        ...   stx ffff
7129 B5E9 FF FF FF        ...   stx ffff
7130 B5EC FF FF FF        ...   stx ffff
7131 B5EF FF FF FF        ...   stx ffff
7132 B5F2 FF FF FF        ...   stx ffff
7133 B5F5 FF FF FF        ...   stx ffff
7134 B5F8 FF FF FF        ...   stx ffff
7135 B5FB FF FF FF        ...   stx ffff
7136 B5FE FF FF FF        ...   stx ffff
7137 B601 FF FF FF        ...   stx ffff
7138 B604 FF FF FF        ...   stx ffff
7139 B607 FF FF FF        ...   stx ffff
7140 B60A FF FF FF        ...   stx ffff
7141 B60D FF FF FF        ...   stx ffff
7142 B610 FF FF FF        ...   stx ffff
7143 B613 FF FF FF        ...   stx ffff
7144 B616 FF FF FF        ...   stx ffff
7145 B619 FF FF FF        ...   stx ffff
7146 B61C FF FF FF        ...   stx ffff
7147 B61F FF FF FF        ...   stx ffff
7148 B622 FF FF FF        ...   stx ffff
7149 B625 FF FF FF        ...   stx ffff
7150 B628 FF FF FF        ...   stx ffff
7151 B62B FF FF FF        ...   stx ffff
7152 B62E FF FF FF        ...   stx ffff
7153 B631 FF FF FF        ...   stx ffff
7154 B634 FF FF FF        ...   stx ffff
7155 B637 FF FF FF        ...   stx ffff
7156 B63A FF FF FF        ...   stx ffff
7157 B63D FF FF FF        ...   stx ffff
7158 B640 FF FF FF        ...   stx ffff
7159 B643 FF FF FF        ...   stx ffff
7160 B646 FF FF FF        ...   stx ffff
7161 B649 FF FF FF        ...   stx ffff
7162 B64C FF FF FF        ...   stx ffff
7163 B64F FF FF FF        ...   stx ffff
7164 B652 FF FF FF        ...   stx ffff
7165 B655 FF FF FF        ...   stx ffff
7166 B658 FF FF FF        ...   stx ffff
7167 B65B FF FF FF        ...   stx ffff
7168 B65E FF FF FF        ...   stx ffff
7169 B661 FF FF FF        ...   stx ffff
7170 B664 FF FF FF        ...   stx ffff
7171 B667 FF FF FF        ...   stx ffff
7172 B66A FF FF FF        ...   stx ffff
7173 B66D FF FF FF        ...   stx ffff
7174 B670 FF FF FF        ...   stx ffff
7175 B673 FF FF FF        ...   stx ffff
7176 B676 FF FF FF        ...   stx ffff
7177 B679 FF FF FF        ...   stx ffff
7178 B67C FF FF FF        ...   stx ffff
7179 B67F FF FF FF        ...   stx ffff
7180 B682 FF FF FF        ...   stx ffff
7181 B685 FF FF FF        ...   stx ffff
7182 B688 FF FF FF        ...   stx ffff
7183 B68B FF FF FF        ...   stx ffff
7184 B68E FF FF FF        ...   stx ffff
7185 B691 FF FF FF        ...   stx ffff
7186 B694 FF FF FF        ...   stx ffff
7187 B697 FF FF FF        ...   stx ffff
7188 B69A FF FF FF        ...   stx ffff
7189 B69D FF FF FF        ...   stx ffff
7190 B6A0 FF FF FF        ...   stx ffff
7191 B6A3 FF FF FF        ...   stx ffff
7192 B6A6 FF FF FF        ...   stx ffff
7193 B6A9 FF FF FF        ...   stx ffff
7194 B6AC FF FF FF        ...   stx ffff
7195 B6AF FF FF FF        ...   stx ffff
7196 B6B2 FF FF FF        ...   stx ffff
7197 B6B5 FF FF FF        ...   stx ffff
7198 B6B8 FF FF FF        ...   stx ffff
7199 B6BB FF FF FF        ...   stx ffff
7200 B6BE FF FF FF        ...   stx ffff
7201 B6C1 FF FF FF        ...   stx ffff
7202 B6C4 FF FF FF        ...   stx ffff
7203 B6C7 FF FF FF        ...   stx ffff
7204 B6CA FF FF FF        ...   stx ffff
7205 B6CD FF FF FF        ...   stx ffff
7206 B6D0 FF FF FF        ...   stx ffff
7207 B6D3 FF FF FF        ...   stx ffff
7208 B6D6 FF FF FF        ...   stx ffff
7209 B6D9 FF FF FF        ...   stx ffff
7210 B6DC FF FF FF        ...   stx ffff
7211 B6DF FF FF FF        ...   stx ffff
7212 B6E2 FF FF FF        ...   stx ffff
7213 B6E5 FF FF FF        ...   stx ffff
7214 B6E8 FF FF FF        ...   stx ffff
7215 B6EB FF FF FF        ...   stx ffff
7216 B6EE FF FF FF        ...   stx ffff
7217 B6F1 FF FF FF        ...   stx ffff
7218 B6F4 FF FF FF        ...   stx ffff
7219 B6F7 FF FF FF        ...   stx ffff
7220 B6FA FF FF FF        ...   stx ffff
7221 B6FD FF FF FF        ...   stx ffff
7222 B700 FF FF FF        ...   stx ffff
7223 B703 FF FF FF        ...   stx ffff
7224 B706 FF FF FF        ...   stx ffff
7225 B709 FF FF FF        ...   stx ffff
7226 B70C FF FF FF        ...   stx ffff
7227 B70F FF FF FF        ...   stx ffff
7228 B712 FF FF FF        ...   stx ffff
7229 B715 FF FF FF        ...   stx ffff
7230 B718 FF FF FF        ...   stx ffff
7231 B71B FF FF FF        ...   stx ffff
7232 B71E FF FF FF        ...   stx ffff
7233 B721 FF FF FF        ...   stx ffff
7234 B724 FF FF FF        ...   stx ffff
7235 B727 FF FF FF        ...   stx ffff
7236 B72A FF FF FF        ...   stx ffff
7237 B72D FF FF FF        ...   stx ffff
7238 B730 FF FF FF        ...   stx ffff
7239 B733 FF FF FF        ...   stx ffff
7240 B736 FF FF FF        ...   stx ffff
7241 B739 FF FF FF        ...   stx ffff
7242 B73C FF FF FF        ...   stx ffff
7243 B73F FF FF FF        ...   stx ffff
7244 B742 FF FF FF        ...   stx ffff
7245 B745 FF FF FF        ...   stx ffff
7246 B748 FF FF FF        ...   stx ffff
7247 B74B FF FF FF        ...   stx ffff
7248 B74E FF FF FF        ...   stx ffff
7249 B751 FF FF FF        ...   stx ffff
7250 B754 FF FF FF        ...   stx ffff
7251 B757 FF FF FF        ...   stx ffff
7252 B75A FF FF FF        ...   stx ffff
7253 B75D FF FF FF        ...   stx ffff
7254 B760 FF FF FF        ...   stx ffff
7255 B763 FF FF FF        ...   stx ffff
7256 B766 FF FF FF        ...   stx ffff
7257 B769 FF FF FF        ...   stx ffff
7258 B76C FF FF FF        ...   stx ffff
7259 B76F FF FF FF        ...   stx ffff
7260 B772 FF FF FF        ...   stx ffff
7261 B775 FF FF FF        ...   stx ffff
7262 B778 FF FF FF        ...   stx ffff
7263 B77B FF FF FF        ...   stx ffff
7264 B77E FF FF FF        ...   stx ffff
7265 B781 FF FF FF        ...   stx ffff
7266 B784 FF FF FF        ...   stx ffff
7267 B787 FF FF FF        ...   stx ffff
7268 B78A FF FF FF        ...   stx ffff
7269 B78D FF FF FF        ...   stx ffff
7270 B790 FF FF FF        ...   stx ffff
7271 B793 FF FF FF        ...   stx ffff
7272 B796 FF FF FF        ...   stx ffff
7273 B799 FF FF FF        ...   stx ffff
7274 B79C FF FF FF        ...   stx ffff
7275 B79F FF FF FF        ...   stx ffff
7276 B7A2 FF FF FF        ...   stx ffff
7277 B7A5 FF FF FF        ...   stx ffff
7278 B7A8 FF FF FF        ...   stx ffff
7279 B7AB FF FF FF        ...   stx ffff
7280 B7AE FF FF FF        ...   stx ffff
7281 B7B1 FF FF FF        ...   stx ffff
7282 B7B4 FF FF FF        ...   stx ffff
7283 B7B7 FF FF FF        ...   stx ffff
7284 B7BA FF FF FF        ...   stx ffff
7285 B7BD FF FF FF        ...   stx ffff
7286 B7C0 FF FF FF        ...   stx ffff
7287 B7C3 FF FF FF        ...   stx ffff
7288 B7C6 FF FF FF        ...   stx ffff
7289 B7C9 FF FF FF        ...   stx ffff
7290 B7CC FF FF FF        ...   stx ffff
7291 B7CF FF FF FF        ...   stx ffff
7292 B7D2 FF FF FF        ...   stx ffff
7293 B7D5 FF FF FF        ...   stx ffff
7294 B7D8 FF FF FF        ...   stx ffff
7295 B7DB FF FF FF        ...   stx ffff
7296 B7DE FF FF FF        ...   stx ffff
7297 B7E1 FF FF FF        ...   stx ffff
7298 B7E4 FF FF FF        ...   stx ffff
7299 B7E7 FF FF FF        ...   stx ffff
7300 B7EA FF FF FF        ...   stx ffff
7301 B7ED FF FF FF        ...   stx ffff
7302 B7F0 FF FF FF        ...   stx ffff
7303 B7F3 FF FF FF        ...   stx ffff
7304 B7F6 FF FF FF        ...   stx ffff
7305 B7F9 FF FF FF        ...   stx ffff
7306 B7FC FF FF FF        ...   stx ffff
7307 B7FF FF              .
7308
7309 jump201:
7310 B800 34              .     des
7311 B801 F6 0E 6D        ...   ldab 0e6d
7312 B804 C1 01           ..    cmpb #01
7313 B806 27 03           '.    beq 03
7314 B808 7E B9 2A        ~.*   jmp b92a             ;goto25
7315 B80B F6 0E 02        ...   ldab 0e02
7316 B80E C1 05           ..    cmpb #05     ; was the 3rd last keypress a 5?
7317 B810 27 03           '.    beq 03
7318 B812 7E B9 2A        ~.*   jmp b92a             ;goto25
7319 B815 F6 0E 03        ...   ldab 0e03
7320 B818 C1 05           ..    cmpb #05     ; was the 2nd last keypress a 5?
7321 B81A 27 03           '.    beq 03
7322 B81C 7E B9 2A        ~.*   jmp b92a             ;goto25
7323 B81F F6 0E 04        ...   ldab 0e04
7324 B822 C1 05           ..    cmpb #05     ; was the last keypress a 5?
7325 B824 27 03           '.    beq 03
7326 B826 7E B9 2A        ~.*   jmp b92a             ;goto25
7327 B829 F6 00 12        ...   ldab 0012
7328 B82C C4 20           .     andb #20     ; test the door switch
7329 B82E 27 03           '.    beq 03
7330 B830 7E B9 2A        ~.*   jmp b92a             ;goto25
7331 B833 30              0     tsx
7332 B834 6F 00           o.    clr 00,x
7333 B836 F6 0E 6A        ..j   ldab 0e6a
7334 B839 C1 00           ..    cmpb #00
7335 B83B 22 33           "3    bhi 33
7336 B83D C6 64           .d    ldab #64
7337 B83F F7 0E 6A        ..j   stab 0e6a
7338 B842 7C 0E 05        |..   inc 0e05
7339 B845 F6 0E 05        ...   ldab 0e05
7340 B848 C1 64           .d    cmpb #64
7341 B84A 23 03           #.    bls 03
7342 B84C 7F 0E 05        ...   clr 0e05
7343 B84F F6 0E 05        ...   ldab 0e05
7344 B852 BD D4 68        ..h   jsr d468             ;jump51
7345 B855 83 00 00        ...   subd #0000
7346 B858 27 0B           '.    beq 0b
7347 B85A F6 0E 05        ...   ldab 0e05
7348 B85D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7349 B860 83 00 00        ...   subd #0000
7350 B863 27 09           '.    beq 09
7351 B865 30              0     tsx
7352 B866 6C 00           l.    inc 00,x
7353 B868 E6 00           ..    ldab 00,x
7354 B86A C1 6E           .n    cmpb #6e     ; 110 or 01101110
7355 B86C 2D D4           -.    blt d4
7356 B86E 20 0A            .    bra 0a
7357 B870 F6 0E 6A        ..j   ldab 0e6a
7358 B873 C1 00           ..    cmpb #00
7359 B875 23 03           #.    bls 03
7360 B877 7A 0E 6A        z.j   dec 0e6a
7361 B87A F6 0E 05        ...   ldab 0e05
7362 B87D BD D4 68        ..h   jsr d468             ;jump51
7363 B880 83 00 00        ...   subd #0000
7364 B883 26 03           &.    bne 03
7365 B885 7E B9 0A        ~..   jmp b90a             ;goto26
7366 B888 F6 0E 05        ...   ldab 0e05
7367 B88B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7368 B88E 83 00 00        ...   subd #0000
7369 B891 26 77           &w    bne 77
7370 B893 BD BE 4B        ..K   jsr be4b             ;displayblank
7371 B896 C6 20           .     ldab #20    ; " "
7372 B898 F7 0B 9A        ...   stab 0b9a
7373 B89B C6 20           .     ldab #20    ; " "
7374 B89D F7 0B 99        ...   stab 0b99
7375 B8A0 C6 20           .     ldab #20    ; " "
7376 B8A2 F7 0B 98        ...   stab 0b98
7377 B8A5 F6 0E 05        ...   ldab 0e05   ; array index/10
7378 B8A8 4F              O     clra
7379 B8A9 CE 00 0A        ...   ldx #000a
7380 B8AC 02              .     idiv
7381 B8AD 8F              .     xgdx
7382 B8AE CB 30           .0    addb #30    ; make it a digit
7383 B8B0 F7 0B 97        ...   stab 0b97
7384 B8B3 F6 0E 05        ...   ldab 0e05   ; array index%10
7385 B8B6 4F              O     clra
7386 B8B7 CE 00 0A        ...   ldx #000a
7387 B8BA 02              .     idiv
7388 B8BB CB 30           .0    addb #30     ; make it a digit
7389 B8BD F7 0B 96        ...   stab 0b96
7390 B8C0 C6 20           .     ldab #20     ; " "
7391 B8C2 F7 0B 95        ...   stab 0b95
7392 B8C5 C6 20           .     ldab #20     ; " "
7393 B8C7 F7 0B 94        ...   stab 0b94
7394 B8CA F6 0E 05        ...   ldab 0e05    ; array[index]/10
7395 B8CD 4F              O     clra
7396 B8CE C3 0E 06        ...   addd #0e06
7397 B8D1 8F              .     xgdx
7398 B8D2 E6 00           ..    ldab 00,x
7399 B8D4 4F              O     clra
7400 B8D5 CE 00 0A        ...   ldx #000a
7401 B8D8 02              .     idiv
7402 B8D9 8F              .     xgdx
7403 B8DA CB 30           .0    addb #30     ; make it a digit
7404 B8DC F7 0B 93        ...   stab 0b93
7405 B8DF F6 0E 05        ...   ldab 0e05    ; array[index]%10
7406 B8E2 4F              O     clra
7407 B8E3 C3 0E 06        ...   addd #0e06
7408 B8E6 8F              .     xgdx
7409 B8E7 E6 00           ..    ldab 00,x
7410 B8E9 4F              O     clra
7411 B8EA CE 00 0A        ...   ldx #000a
7412 B8ED 02              .     idiv
7413 B8EE CB 30           .0    addb #30     ; make it a digit
7414 B8F0 F7 0B 92        ...   stab 0b92
7415 B8F3 C6 20           .     ldab #20     ; " "
7416 B8F5 F7 0B 91        ...   stab 0b91
7417 B8F8 C6 20           .     ldab #20     ; " "
7418 B8FA F7 0B 90        ...   stab 0b90
7419 B8FD 7F 00 2C        ..,   clr 002c
7420 B900 BD BE 01        ...   jsr be01             ;jump70
7421 B903 C6 0A           ..    ldab #0a
7422 B905 F7 00 2C        ..,   stab 002c
7423 B908 20 1D            .    bra 1d
7424 goto26:
7425 B90A BD BE 4B        ..K   jsr be4b             ;displayblank
7426 B90D C6 57           .W    ldab #57     ; "W"
7427 B90F F7 0B 96        ...   stab 0b96
7428 B912 C6 42           .B    ldab #42     ; "B"
7429 B914 F7 0B 95        ...   stab 0b95
7430 B917 C6 42           .B    ldab #42     ; "B"
7431 B919 F7 0B 94        ...   stab 0b94
7432 B91C 7F 00 2C        ..,   clr 002c
7433 B91F BD BE 01        ...   jsr be01             ;jump70 write to display
7434 B922 C6 0A           ..    ldab #0a
7435 B924 F7 00 2C        ..,   stab 002c
7436 B927 7E BA 81        ~..   jmp ba81             ;goto27 - return
7437 goto25:
7438 B92A F6 0E 6D        ..m   ldab 0e6d
7439 B92D C1 01           ..    cmpb #01
7440 B92F 27 03           '.    beq 03
7441 B931 7E BA 81        ~..   jmp ba81             ;goto27 - return
7442 B934 F6 0E 00        ...   ldab 0e00
7443 B937 C1 05           ..    cmpb #05
7444 B939 27 03           '.    beq 03
7445 B93B 7E BA 81        ~..   jmp ba81             ;goto27 - return
7446 B93E F6 0E 01        ...   ldab 0e01
7447 B941 C1 05           ..    cmpb #05
7448 B943 27 03           '.    beq 03
7449 B945 7E BA 81        ~..   jmp ba81             ;goto27 - return
7450 B948 F6 0E 02        ...   ldab 0e02
7451 B94B C1 05           ..    cmpb #05
7452 B94D 27 03           '.    beq 03
7453 B94F 7E BA 81        ~..   jmp ba81             ;goto27 - return
7454 B952 F6 00 12        ...   ldab 0012
7455 B955 C4 20           .     andb #20     ; test the door switch
7456 B957 26 03           &.    bne 03
7457 B959 7E BA 81        ~..   jmp ba81             ;goto27 - return
7458 B95C F6 0E 04        ...   ldab 0e04
7459 B95F C1 05           ..    cmpb #05
7460 B961 26 79           &y    bne 79
7461 B963 F6 0E 03        ...   ldab 0e03
7462 B966 C1 05           ..    cmpb #05
7463 B968 26 72           &r    bne 72
7464 B96A 30              0     tsx
7465 B96B 6F 00           o.    clr 00,x
7466 B96D 30              0     tsx
7467 B96E E6 00           ..    ldab 00,x
7468 B970 C1 64           .d    cmpb #64
7469 B972 2C 16           ,.    bge 16
7470 B974 5F              _     clrb
7471 B975 37              7     pshb
7472 B976 30              0     tsx
7473 B977 E6 01           ..    ldab 01,x
7474 B979 4F              O     clra
7475 B97A 5D              ]     tstb
7476 B97B 2C 01           ,.    bge 01
7477 B97D 4A              J     deca
7478 B97E C3 0E 06        ...   addd #0e06
7479 B981 8F              .     xgdx
7480 B982 33              3     pulb
7481 B983 E7 00           ..    stab 00,x
7482 B985 30              0     tsx
7483 B986 6C 00           l.    inc 00,x
7484 B988 20 E3            .    bra e3
7485 B98A 7F 0D FF        ...   clr 0dff
7486 B98D 7F 0E 00        ...   clr 0e00
7487 B990 7F 0E 01        ...   clr 0e01
7488 B993 7F 0E 02        ...   clr 0e02
7489 B996 7F 0E 03        ...   clr 0e03
7490 B999 7F 0E 04        ...   clr 0e04
7491 B99C C6 41           .A    ldab #41   ; "A"
7492 B99E F7 0B 99        ...   stab 0b99
7493 B9A1 C6 4C           .L    ldab #4c   ; "L"
7494 B9A3 F7 0B 98        ...   stab 0b98
7495 B9A6 C6 4C           .L    ldab #4c   ; "L"
7496 B9A8 F7 0B 97        ...   stab 0b97
7497 B9AB C6 20           .     ldab #20   ; " "
7498 B9AD F7 0B 96        ...   stab 0b96
7499 B9B0 C6 43           .C    ldab #43   ; "C"
7500 B9B2 F7 0B 95        ...   stab 0b95
7501 B9B5 C6 4C           .L    ldab #4c   ; "L"
7502 B9B7 F7 0B 94        ...   stab 0b94
7503 B9BA C6 45           .E    ldab #45   ; "E"
7504 B9BC F7 0B 93        ...   stab 0b93
7505 B9BF C6 41           .A    ldab #41   ; "A"
7506 B9C1 F7 0B 92        ...   stab 0b92
7507 B9C4 C6 52           .R    ldab #52   ; "R"
7508 B9C6 F7 0B 91        ...   stab 0b91
7509 B9C9 C6 20           .     ldab #20   ; " "
7510 B9CB F7 0B 90        ...   stab 0b90
7511 B9CE 7F 00 2C        ..,   clr 002c
7512 B9D1 BD BE 01        ...   jsr be01             ;jump70 - display
7513 B9D4 C6 1E           ..    ldab #1e
7514 B9D6 F7 00 2C        ..,   stab 002c
7515 B9D9 7E BA 81        ~..   jmp ba81             ;goto27 - return
7516 ;
7517 B9DC F6 0E 04        ...   ldab 0e04
7518 B9DF C1 01           ..    cmpb #01
7519 B9E1 27 0A           '.    beq 0a
7520 B9E3 F6 0E 04        ...   ldab 0e04
7521 B9E6 C1 02           ..    cmpb #02
7522 B9E8 27 03           '.    beq 03
7523 B9EA 7E BA 81        ~..   jmp ba81             ;goto27 - return
7524 ;
7525 B9ED F6 0E 03        ...   ldab 0e03
7526 B9F0 C1 00           ..    cmpb #00
7527 B9F2 22 03           ".    bhi 03
7528 B9F4 7E BA 81        ~..   jmp ba81             ;goto27 - return
7529 ;
7530 B9F7 F6 0E 03        ...   ldab 0e03
7531 B9FA C1 05           ..    cmpb #05
7532 B9FC 26 03           &.    bne 03
7533 B9FE 7E BA 81        ~..   jmp ba81             ;goto27 - return
7534 ;
7535 BA01 F6 0E 03        ...   ldab 0e03
7536 BA04 C1 07           ..    cmpb #07
7537 BA06 24 79           $y    bcc 79
7538 BA08 F6 0E 03        ...   ldab 0e03  ; prevkey*10+key
7539 BA0B 86 0A           ..    ldaa #0a
7540 BA0D 3D              =     mul
7541 BA0E FB 0E 04        ...   addb 0e04
7542 BA11 30              0     tsx
7543 BA12 E7 00           ..    stab 00,x
7544 BA14 E6 00           ..    ldab 00,x
7545 BA16 C1 64           .d    cmpb #64
7546 BA18 2C 67           ,g    bge 67
7547 BA1A E6 00           ..    ldab 00,x
7548 BA1C 2D 63           -c    blt 63
7549 BA1E 5F              _     clrb
7550 BA1F 37              7     pshb
7551 BA20 30              0     tsx
7552 BA21 E6 01           ..    ldab 01,x
7553 BA23 4F              O     clra
7554 BA24 5D              ]     tstb
7555 BA25 2C 01           ,.    bge 01
7556 BA27 4A              J     deca
7557 BA28 C3 0E 06        ...   addd #0e06
7558 BA2B 8F              .     xgdx
7559 BA2C 33              3     pulb
7560 BA2D E7 00           ..    stab 00,x
7561 BA2F F6 0E 03        ...   ldab 0e03
7562 BA32 CB 30           .0    addb #30    ; +48 (make an ascii digit)
7563 BA34 F7 0B 99        ...   stab 0b99
7564 BA37 F6 0E 04        ...   ldab 0e04
7565 BA3A CB 30           .0    addb #30    ; +48 (make an ascii digit)
7566 BA3C F7 0B 98        ...   stab 0b98
7567 BA3F C6 20           .     ldab #20    ; " "
7568 BA41 F7 0B 97        ...   stab 0b97
7569 BA44 C6 43           .C    ldab #43    ; "C"
7570 BA46 F7 0B 96        ...   stab 0b96
7571 BA49 C6 4C           .L    ldab #4c    ; "L"
7572 BA4B F7 0B 95        ...   stab 0b95
7573 BA4E C6 45           .E    ldab #45    ; "E"
7574 BA50 F7 0B 94        ...   stab 0b94
7575 BA53 C6 41           .A    ldab #41    ; "A"
7576 BA55 F7 0B 93        ...   stab 0b93
7577 BA58 C6 52           .R    ldab #52    ; "R"
7578 BA5A F7 0B 92        ...   stab 0b92
7579 BA5D C6 45           .E    ldab #45    ; "E"
7580 BA5F F7 0B 91        ...   stab 0b91
7581 BA62 C6 44           .D    ldab #44    ; "D"
7582 BA64 F7 0B 90        ...   stab 0b90
7583 BA67 7F 0E 00        ...   clr 0e00
7584 BA6A 7F 0E 01        ...   clr 0e01
7585 BA6D 7F 0E 02        ...   clr 0e02
7586 BA70 7F 0E 03        ...   clr 0e03
7587 BA73 7F 0E 04        ...   clr 0e04
7588 BA76 7F 00 2C        ..,   clr 002c
7589 BA79 BD BE 01        ...   jsr be01             ;jump70 - display
7590 BA7C C6 1E           ..    ldab #1e
7591 BA7E F7 00 2C        ..,   stab 002c
7592 goto27:
7593 BA81 31              1     ins
7594 BA82 39              9     rts
7595
7596 jump125:
7597 ; reads the keypad state into 005b & 0056
7598 ; it looks like it returns without doing anything if the
7599 ; no sale switch is pressed, but I haven't looked closely
7600 BA83 F6 18 00        ...   ldab 1800
7601 BA86 C4 7F           ..    andb #7f
7602 BA88 F7 00 23        ..#   stab 0023
7603 BA8B F6 00 23        ..#   ldab 0023
7604 BA8E F1 00 12        ...   cmpb 0012   ; door buffers - debouncing it?
7605 BA91 27 06           '.    beq 06
7606 BA93 F6 00 23        ..#   ldab 0023
7607 BA96 F7 00 12        ...   stab 0012
7608 BA99 F6 20 00        . .   ldab 2000
7609 BA9C F1 00 20        ..    cmpb 0020
7610 BA9F 27 08           '.    beq 08
7611 BAA1 F6 20 00        . .   ldab 2000
7612 BAA4 F7 00 20        ..    stab 0020
7613 BAA7 20 0E            .    bra 0e
7614 BAA9 F6 00 20        ..    ldab 0020
7615 BAAC F7 00 11        ...   stab 0011
7616 BAAF F6 00 11        ...   ldab 0011
7617 BAB2 C4 03           ..    andb #03
7618 BAB4 F7 00 2B        ..+   stab 002b
7619 BAB7 F6 00 1B        ...   ldab 001b
7620 BABA C4 04           ..    andb #04
7621 BABC 37              7     pshb
7622 BABD F6 10 0A        ...   ldab 100a   ; PortE
7623 BAC0 C4 04           ..    andb #04    ; no sale switch (active low)
7624 BAC2 30              0     tsx
7625 BAC3 E0 00           ..    subb 00,x
7626 BAC5 31              1     ins
7627 BAC6 27 17           '.    beq 17
7628 BAC8 F6 10 0A        ...   ldab 100a   ; PortE
7629 BACB C4 04           ..    andb #04    : no sale switch (active low)
7630 BACD 27 08           '.    beq 08
7631 BACF CE 00 1B        ...   ldx #001b
7632 BAD2 1C 00 04        ..    bset 00,x, #04
7633 BAD5 20 06            .    bra 06
7634 BAD7 CE 00 1B        ...   ldx #001b
7635 BADA 1D 00 04        ..    bclr 00,x, #04
7636 BADD 20 15            .    bra 15
7637 BADF F6 10 0A        ...   ldab 100a   ; PortE
7638 BAE2 C4 04           ..    andb #04    ; no sale switch (active low)
7639 BAE4 27 08           '.    beq 08
7640 BAE6 CE 00 1D        ...   ldx #001d
7641 BAE9 1C 00 04        ..    bset 00,x, #04
7642 BAEC 20 06            .    bra 06
7643 BAEE CE 00 1D        ...   ldx #001d
7644 BAF1 1D 00 04        ..    bclr 00,x, #04
7645 BAF4 CE 10 08        ...   ldx #1008        : PortD
7646 BAF7 1D 00 20        ...   bclr 00,x, #20   ; select keypad row 0
7647 BAF9 CE 10 28        ...   ldx #1028
7648 BAFC 1C 00 40        ...   bset 00,x #40    ; enable SPI
7649
7650 BB00 CE 00 14        ...   ldx #0014        ; keypad strobe:
7651 BB03 1C 00 04        ..    bset 00,x, #04   ; resets the keypad
7652 BB06 F6 00 14        ...   ldab 0014        ; shift register
7653 BB09 F7 38 00        .8.   stab 3800        ; ready for a new
7654 BB0C CE 00 14        ...   ldx #0014        ; read
7655 BB0F 1D 00 04        ..    bclr 00,x, #04
7656 BB12 F6 00 14        ...   ldab 0014
7657 BB15 F7 38 00        .8.   stab 3800
7658
7659 BB18 CE 00 00        ...   ldx #0000
7660 BB1B 3C              <     pshx
7661 BB1C 5F              _     clrb
7662 BB1D 4F              O     clra
7663 BB1E BD BD B5        ...   jsr bdb5             ;jump78 - reads the keypad inputs into X
7664 BB21 38              8     pulx
7665 BB22 F7 00 5B        ..[   stab 005b
7666
7667 BB25 CE 10 28        ..(   ldx #1028
7668 BB28 1D 00 40        ..    bclr 00,x, #40  ; disable SPI
7669
7670 BB2B CE 10 08        ...   ldx #1008
7671 BB2E 1C 00 20        ..    bset 00,x, #20  ; select keypad row 1
7672
7673 BB30 CE 10 28        ...   ldx #1028
7674 BB33 1C 00 40        ...   bset 00,x, #40  ; enable the SPI
7675
7676 BB37 CE 00 14        ...   ldx #0014
7677 BB3A 1C 00 04        ..    bset 00,x, #04  ; keypad strobe
7678 BB3D F6 00 14        ...   ldab 0014
7679 BB40 F7 38 00        .8.   stab 3800
7680 BB43 CE 00 14        ...   ldx #0014
7681 BB46 1D 00 04        ..    bclr 00,x, #04
7682 BB49 F6 00 14        ...   ldab 0014
7683 BB4C F7 38 00        .8.   stab 3800
7684
7685 BB4F CE 00 00        ...   ldx #0000
7686 BB52 3C              <     pshx
7687 BB53 5F              _     clrb
7688 BB54 4F              O     clra
7689 BB55 BD BD B5        ...   jsr bdb5             ;jump78  - read the keypad
7690 BB58 38              8     pulx
7691 BB59 F7 00 56        ..V   stab 0056
7692 BB5C CE 10 28        ..(   ldx #1028
7693 BB5F 1D 00 40        ..    bclr 00,x, #40
7694 BB62 39              9     rts
7695
7696 jump200:
7697 BB63 F6 00 00        ...   ldab 0000
7698 BB66 27 03           '.    beq 03
7699 BB68 7E BD B4        ~..   jmp bdb4             ;goto28
7700 BB6B F6 00 2E        ...   ldab 002e
7701 BB6E 27 03           '.    beq 03
7702 BB70 7E BD B4        ~..   jmp bdb4             ;goto28
7703 BB73 BD BA 83        ...   jsr ba83             ;jump125 - read keypad
7704 ; has a key been pressed?
7705 BB76 F6 00 5B        ..[   ldab 005b
7706 BB79 F1 00 56        ..V   cmpb 0056
7707 BB7C 26 0B           &.    bne 0b       ; to bb89
7708 BB7E F6 00 56        ..V   ldab 0056
7709 BB81 27 06           '.    beq 06       ; to bb89
7710 BB83 7F 00 29        ..)   clr 0029     ; to key pressed
7711 BB86 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7712 ; find keypad number
7713 BB89 F6 00 5B        ..[   ldab 005b    ; is row0 = 0
7714 BB8C 27 34           '4    beq 34       ; if so, to bbc2
7715 BB8E F6 00 5B        ..[   ldab 005b
7716 BB91 F7 00 5F        .._   stab 005f
7717 BB94 7F 00 1C        ...   clr 001c     ; i=0
7718 ;
7719 BB97 F6 00 1C        ...   ldab 001c
7720 BB9A C1 08           ..    cmpb #08     ; if i >= 8
7721 BB9C 24 15           $.    bcc 15       ; to bbb3 (break)
7722 BB9E F6 00 5F        .._   ldab 005f
7723 BBA1 C4 01           ..    andb #01
7724 BBA3 27 02           '.    beq 02
7725 BBA5 20 0C            .    bra 0c       ; to bbb3
7726 BBA7 F6 00 5F        .._   ldab 005f
7727 BBAA 54              T     lsrb         ; ready to test next bit
7728 BBAB F7 00 5F        .._   stab 005f
7729 BBAE 7C 00 1C        |..   inc 001c
7730 BBB1 20 E4            .    bra e4       ; to bb97
7731 ; look up i in the keypad map
7732 BBB3 F6 00 1C        ...   ldab 001c
7733 BBB6 4F              O     clra
7734 BBB7 C3 AC 9D        ...   addd #ac9d   ; keypad mapping
7735 BBBA 8F              .     xgdx
7736 BBBB E6 00           ..    ldab 00,x
7737 BBBD F7 00 16        ...   stab 0016
7738 BBC0 20 3C            <    bra 3c       ; to bbfe
7739 ; test row 1 - ditto
7740 BBC2 F6 00 56        ..V   ldab 0056
7741 BBC5 27 34           '4    beq 34
7742 BBC7 F6 00 56        ..V   ldab 0056
7743 BBCA F7 00 5F        .._   stab 005f
7744 BBCD 7F 00 1C        ...   clr 001c
7745 BBD0 F6 00 1C        ...   ldab 001c
7746 BBD3 C1 08           ..    cmpb #08
7747 BBD5 24 15           $.    bcc 15
7748 BBD7 F6 00 5F        .._   ldab 005f
7749 BBDA C4 01           ..    andb #01
7750 BBDC 27 02           '.    beq 02
7751 BBDE 20 0C            .    bra 0c       ; to bbec
7752 BBE0 F6 00 5F        .._   ldab 005f
7753 BBE3 54              T     lsrb
7754 BBE4 F7 00 5F        .._   stab 005f
7755 BBE7 7C 00 1C        |..   inc 001c
7756 BBEA 20 E4            .    bra e4
7757 BBEC F6 00 1C        ...   ldab 001c
7758 ; look up in map
7759 BBEF 4F              O     clra
7760 BBF0 C3 AC A0        ...   addd #aca0
7761 BBF3 8F              .     xgdx
7762 BBF4 E6 00           ..    ldab 00,x
7763 BBF6 F7 00 16        ...   stab 0016
7764 BBF9 20 03            .    bra 03
7765 BBFB 7F 00 16        ...   clr 0016
7766 ;
7767 BBFE F6 00 5B        ..[   ldab 005b
7768 BC01 FA 00 56        ..V   orb 0056
7769 BC04 F7 00 5F        .._   stab 005f
7770 BC07 7F 00 5E        ..^   clr 005e
7771 BC0A 7F 00 1C        ...   clr 001c
7772 BC0D F6 00 1C        ...   ldab 001c
7773 BC10 C1 08           ..    cmpb #08
7774 BC12 24 16           $.    bcc 16
7775 BC14 F6 00 5F        .._   ldab 005f
7776 BC17 C4 01           ..    andb #01
7777 BC19 27 03           '.    beq 03
7778 BC1B 7C 00 5E        |.^   inc 005e
7779 BC1E F6 00 5F        .._   ldab 005f
7780 BC21 54              T     lsrb
7781 BC22 F7 00 5F        .._   stab 005f
7782 BC25 7C 00 1C        |..   inc 001c
7783 BC28 20 E3            .    bra e3
7784 BC2A F6 00 5E        ..^   ldab 005e
7785 BC2D C1 01           ..    cmpb #01
7786 BC2F 22 05           ".    bhi 05
7787 BC31 F6 00 16        ...   ldab 0016
7788 BC34 26 0F           &.    bne 0f
7789 BC36 7F 00 29        ..)   clr 0029
7790 BC39 CE 00 1B        ...   ldx #001b
7791 BC3C 1C 00 10        ...   bset 00,x, #10
7792 BC3F 7F 00 37        ..7   clr 0037
7793 BC42 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7794 BC45 F6 00 16        ...   ldab 0016    ; key release or debounce?
7795 BC48 F1 00 29        ..)   cmpb 0029
7796 BC4B 27 2D           '-    beq 2d
7797 BC4D F6 00 16        ...   ldab 0016
7798 BC50 F7 00 29        ..)   stab 0029
7799 BC53 F6 0E 00        ...   ldab 0e00     ; this is the key buffer?
7800 BC56 F7 0D FF        ...   stab 0dff
7801 BC59 F6 0E 01        ...   ldab 0e01
7802 BC5C F7 0E 00        ...   stab 0e00
7803 BC5F F6 0E 02        ...   ldab 0e02
7804 BC62 F7 0E 01        ...   stab 0e01
7805 BC65 F6 0E 03        ...   ldab 0e03
7806 BC68 F7 0E 02        ...   stab 0e02
7807 BC6B F6 0E 04        ...   ldab 0e04
7808 BC6E F7 0E 03        ...   stab 0e03
7809 BC71 F6 00 29        ..)   ldab 0029
7810 BC74 F7 0E 04        ...   stab 0e04
7811 BC77 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7812 BC7A F6 00 12        ...   ldab 0012
7813 BC7D C4 20           .     andb #20     ; test door switch
7814 BC7F 27 3B           ';    beq 3b       ; to bcbc
7815 BC81 F6 00 29        ..)   ldab 0029
7816 BC84 27 33           '3    beq 33
7817 BC86 F6 00 1B        ...   ldab 001b
7818 BC89 C4 10           ..    andb #10
7819 BC8B 27 2C           ',    beq 2c
7820 BC8D F6 00 42        ..B   ldab 0042
7821 BC90 27 15           '.    beq 15
7822 BC92 F6 00 09        ...   ldab 0009
7823 BC95 27 08           '.    beq 08
7824 BC97 F6 00 29        ..)   ldab 0029
7825 BC9A F7 00 0A        ...   stab 000a
7826 BC9D 20 06            .    bra 06
7827 BC9F F6 00 29        ..)   ldab 0029
7828 BCA2 F7 00 09        ...   stab 0009
7829 BCA5 20 06            .    bra 06
7830 BCA7 F6 00 29        ..)   ldab 0029
7831 BCAA F7 00 42        ..B   stab 0042
7832 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7833 BCB0 7F 00 2C        ..,   clr 002c
7834 BCB3 CE 00 1B        ...   ldx #001b
7835 BCB6 1D 00 10        ...   bclr 00,x, #10
7836 BCB9 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7837 ;
7838 BCBC F6 00 1B        ...   ldab 001b
7839 BCBF C4 10           ..    andb #10
7840 BCC1 26 03           &.    bne 03
7841 BCC3 7E BD 91        ~..   jmp bd91             ;goto30
7842 BCC6 F6 00 21        ..!   ldab 0021
7843 BCC9 C4 20           .     andb #20
7844 BCCB 27 03           '.    beq 03
7845 BCCD 7E BD 91        ~..   jmp bd91             ;goto30
7846 BCD0 F6 00 29        ..)   ldab 0029
7847 BCD3 C1 0B           ..    cmpb #0b
7848 BCD5 26 03           &.    bne 03
7849 BCD7 7E BD 5C        ~.\   jmp bd5c             ;goto31
7850 BCDA 7F 00 49        ..I   clr 0049
7851 BCDD F6 00 3A        ..:   ldab 003a
7852 BCE0 26 32           &2    bne 32
7853 BCE2 F6 00 29        ..)   ldab 0029
7854 BCE5 C1 0A           ..    cmpb #0a
7855 BCE7 26 05           &.    bne 05
7856 BCE9 7F 00 1E        ...   clr 001e
7857 BCEC 20 06            .    bra 06
7858 BCEE F6 00 29        ..)   ldab 0029
7859 BCF1 F7 00 1E        ...   stab 001e
7860 BCF4 C6 32           .2    ldab #32
7861 BCF6 F7 00 3A        ..:   stab 003a
7862 BCF9 BD BE 4B        ..K   jsr be4b             ;displayblank
7863 BCFC F6 00 1E        ...   ldab 001e
7864 BCFF CB 30           .0    addb #30
7865 BD01 F7 0B 95        ...   stab 0b95
7866 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7867 BD07 7F 00 2C        ..,   clr 002c
7868 BD0A BD BE 01        ...   jsr be01             ;jump70
7869 BD0D C6 32           .2    ldab #32
7870 BD0F F7 00 2C        ..,   stab 002c
7871 BD12 20 46            F    bra 46
7872 BD14 F6 00 29        ..)   ldab 0029
7873 BD17 C1 05           ..    cmpb #05
7874 BD19 27 07           '.    beq 07
7875 BD1B F6 00 29        ..)   ldab 0029
7876 BD1E C1 0A           ..    cmpb #0a
7877 BD20 26 05           &.    bne 05
7878 BD22 7F 00 2C        ..,   clr 002c
7879 BD25 20 2D            -    bra 2d
7880 BD27 F6 00 1E        ...   ldab 001e
7881 BD2A 58              X     aslb
7882 BD2B 58              X     aslb
7883 BD2C 58              X     aslb
7884 BD2D F7 00 06        ...   stab 0006
7885 BD30 F6 00 1E        ...   ldab 001e
7886 BD33 58              X     aslb
7887 BD34 FB 00 06        ...   addb 0006
7888 BD37 F7 00 06        ...   stab 0006
7889 BD3A F6 00 29        ..)   ldab 0029
7890 BD3D FB 00 06        ...   addb 0006
7891 BD40 F7 00 06        ...   stab 0006
7892 BD43 F6 00 29        ..)   ldab 0029
7893 BD46 CB 30           .0    addb #30
7894 BD48 F7 0B 94        ...   stab 0b94
7895 BD4B BD BE 01        ...   jsr be01             ;jump70
7896 BD4E CE 00 1B        ...   ldx #001b
7897 BD51 1D 00 40        ...   bclr 00,x, #40
7898 BD54 7F 00 3A        ..:   clr 003a
7899 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7900 BD5A 20 2D            -    bra 2d
7901 goto31:
7902 BD5C C6 19           ..    ldab #19
7903 BD5E F7 00 37        ..7   stab 0037
7904 BD61 F6 00 3A        ..:   ldab 003a
7905 BD64 27 08           '.    beq 08
7906 BD66 7F 00 3A        ..:   clr 003a
7907 BD69 7F 00 2C        ..,   clr 002c
7908 BD6C 20 18            .    bra 18
7909 BD6E 7C 00 49        |.I   inc 0049
7910 BD71 F6 00 49        ..I   ldab 0049
7911 BD74 C1 02           ..    cmpb #02
7912 BD76 25 0E           %.    bcs 0e
7913 BD78 7F 00 49        ..I   clr 0049
7914 BD7B CE 00 1B        ...   ldx #001b
7915 BD7E 1C 00 01        ...   bset 00,x, #01
7916 BD81 C6 3C           .<    ldab #3c
7917 BD83 F7 00 4F        ..O   stab 004f
7918 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7919 BD89 CE 00 1B        ...   ldx #001b
7920 BD8C 1D 00 10        ...   bclr 00,x, #10
7921 BD8F 20 1E            .    bra 1e
7922 goto30:
7923 BD91 F6 00 1B        ...   ldab 001b
7924 BD94 C4 10           ..    andb #10
7925 BD96 26 17           &.    bne 17
7926 BD98 F6 00 29        ..)   ldab 0029
7927 BD9B C1 0B           ..    cmpb #0b
7928 BD9D 26 10           &.    bne 10
7929 BD9F F6 00 37        ..7   ldab 0037
7930 BDA2 26 0B           &.    bne 0b
7931 BDA4 BD DD D5        ...   jsr ddd5             ;jump120
7932 BDA7 7F 00 49        ..I   clr 0049
7933 BDAA C6 14           ..    ldab #14
7934 BDAC F7 00 2C        ..,   stab 002c
7935 goto29:
7936 BDAF C6 01           ..    ldab #01
7937 BDB1 F7 00 00        ...   stab 0000
7938 goto28:
7939 BDB4 39              9     rts
7940
7941 jump78:
7942 ; start/finish sending a byte to the display
7943 ; stack parameter - 0 to disable display clock (for reading keypad), 1 to enable
7944 ; lower 8-bits of D - byte to write to display.
7945 ; bytes with bit 7 unset are characters (0-127)
7946 ; bytes with bit 7 set are control commands.
7947 ; this probably also reads the keypad simultaneously
7948 BDB5 37              7     pshb
7949 BDB6 36              6     psha
7950 BDB7 3C              <     pshx
7951 BDB8 5F              _     clrb
7952 BDB9 4F              O     clra
7953 BDBA 30              0     tsx
7954 BDBB ED 00           ..    std 00,x
7955 BDBD E6 07           ..    ldab 07,x
7956 BDBF 27 0E           '.    beq 0e     ; to bdcf if 0
7957 BDC1 CE 00 14        ...   ldx #0014
7958 BDC4 1C 00 08        ...   bset 00,x, #08
7959 BDC7 F6 00 14        ...   ldab 0014
7960 BDCA F7 38 00        .8.   stab 3800  ; enable display clock line
7961 BDCD 20 0C            .    bra 0c     ; to bddb
7962 BDCF CE 00 14        ...   ldx #0014
7963 BDD2 1D 00 08        ...   bclr 00,x, #08
7964 BDD5 F6 00 14        ...   ldab 0014
7965 BDD8 F7 38 00        .8.   stab 3800  ; disable display clock line
7966 BDDB 30              0     tsx
7967 BDDC E6 03           ..    ldab 03,x
7968 BDDE F7 10 2A        ..*   stab 102a  ; write to spdr
7969 BDE1 F6 10 29        ..)   ldab 1029  ; read spsr
7970 BDE4 2D 0F           -.    blt 0f     ; exit sub if SPI complete
7971 BDE6 38              8     pulx
7972 BDE7 08              .     inx
7973 BDE8 3C              <     pshx
7974 BDE9 30              0     tsx
7975 BDEA EC 00           ..    ldd 00,x
7976 BDEC 83 FF FF        ...   subd #ffff ; put a really long timeout on the action
7977 BDEF 26 02           &.    bne 02
7978 BDF1 20 02            .    bra 02
7979 BDF3 20 EC            .    bra ec     ; loop a while back to bde1
7980 BDF5 F6 10 2A        ..*   ldab 102a  ; reading SPSR (just done) & SPDR clears SPIF
7981 BDF8 30              0     tsx
7982 BDF9 E7 03           ..    stab 03,x
7983 BDFB E6 03           ..    ldab 03,x  ; return contents of spdr - keypad data!
7984 BDFD 4F              O     clra
7985 BDFE 38              8     pulx
7986 BDFF 38              8     pulx
7987 BE00 39              9     rts
7988
7989 jump70:
7990 ; Write a string in the display buffer at 0x0b90 to the display
7991 BE01 F6 00 2C        ..,   ldab 002c
7992 BE04 26 09           &.    bne 09        ; to be0f - ret if mem 0x2c != 0
7993 BE06 8D 61           .a    bsr dest 61   ; to displayreset - reset display
7994 BE08 8D 06           ..    bsr dest 06   ; to jump88 - commit to display
7995 BE0A C6 03           ..    ldab #03
7996 BE0C F7 00 2C        ..,   stab 002c
7997 BE0F 39              9     rts
7998
7999 jump88:
8000 ; writes the display buffer (at 0b90-0b99) to the display
8001 ; enable the SPI system
8002 BE10 CE 10 28        ..(   ldx #1028
8003 BE13 1C 00 40        ..@   bset 00,x, #40
8004 ; loop to 10
8005 BE16 7F 00 1C        ...   clr 001c
8006 BE19 F6 00 1C        ...   ldab 001c
8007 BE1C C1 0A           ..    cmpb #0a
8008 BE1E 24 19           $.    bcc 19        ; to be39
8009 BE20 CE 00 01        ...   ldx #0001
8010 BE23 3C              <     pshx
8011 BE24 F6 00 1C        ...   ldab 001c
8012 BE27 4F              O     clra
8013 BE28 C3 0B 90        ...   addd #0b90
8014 BE2B 8F              .     xgdx
8015 BE2C E6 00           ..    ldab 00,x
8016 BE2E C4 7F           ..    andb #7f      ; make sure we don't send a control command
8017 BE30 4F              O     clra
8018 BE31 8D 82           ..    bsr dest 82   ; to jump78
8019 BE33 38              8     pulx
8020 BE34 7C 00 1C        |..   inc 001c
8021 BE37 20 E0            .    bra e0        ; to be19
8022 BE39 CE 00 01        ...   ldx #0001
8023 BE3C 3C              <     pshx
8024 BE3D CC 00 FF        ...   ldd #00ff
8025 BE40 BD BD B5        ...   jsr bdb5             ;jump78
8026 BE43 38              8     pulx
8027 ; disable the SPI system
8028 BE44 CE 10 28        ..(   ldx #1028
8029 BE47 1D 00 40        ..@   bclr 00,x, #40
8030 BE4A 39              9     rts
8031
8032 displayblank:
8033 ; stores 0x20 into memory locations 0b90-0b99
8034 ; "blanks out" (with spaces) the display buffer
8035 BE4B 7F 00 1C        ...   clr 001c
8036 BE4E F6 00 1C        ...   ldab 001c
8037 BE51 C1 0A           ..    cmpb #0a
8038 BE53 24 13           $.    bcc 13       ; to be68 - rts
8039 BE55 C6 20           .     ldab #20
8040 BE57 37              7     pshb
8041 BE58 F6 00 1C        ...   ldab 001c
8042 BE5B 4F              O     clra
8043 BE5C C3 0B 90        ...   addd #0b90
8044 BE5F 8F              .     xgdx
8045 BE60 33              3     pulb
8046 BE61 E7 00           ..    stab 00,x
8047 BE63 7C 00 1C        |..   inc 001c
8048 BE66 20 E6            .    bra e6       ; to be4e
8049 BE68 39              9     rts
8050
8051 displayreset:
8052 ; Reset the display
8053 ; Clear bit 7 of PortA - display reset (active low)
8054 BE69 CE 10 00        ...   ldx #1000
8055 BE6C 1D 00 80        ..    bclr x,#80
8056 BE6F BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8057 ; Clear bit 7 of PortA - reset line back to high
8058 BE72 CE 10 00        ...   ldx #1000
8059 BE75 1C 00 80        ..    bset 00,x, #80
8060
8061 ; set SPI enable
8062 BE78 CE 10 28        ...   ldx #1028
8063 BE7B 1C 00 40        ...   bset 00,x, #40
8064
8065 BE7E BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8066
8067 ; tell the display controller there are 10 digits
8068 BE81 CE 00 01        ...   ldx #0001
8069 BE84 3C              <     pshx
8070 BE85 CC 00 CA        ...   ldd #00ca    ;11001010
8071 BE88 BD BD B5        ...   jsr bdb5             ;jump78
8072 BE8B 38              8     pulx
8073
8074 ; set brightness to 100%
8075 BE8C CE 00 01        ...   ldx #0001
8076 BE8F 3C              <     pshx
8077 BE90 CC 00 E0        ...   ldd #00e0    ;11100000
8078 BE93 BD BD B5        ...   jsr bdb5             ;jump78
8079 BE96 38              8     pulx
8080
8081 ; revert SPI enable
8082 BE97 CE 10 28        ..(   ldx #1028
8083 BE9A 1D 00 40        ...   bclr 00,x, #40
8084 BE9D 39              9     rts
8085
8086
8087
8088 jump50:
8089 ; writes a slot and price to the screen?
8090 BE9E 37              7     pshb
8091 BE9F 36              6     psha
8092 BEA0 8D A9           ..    bsr a9 ; to be4b - displayblank
8093 BEA2 30              0     tsx
8094 BEA3 E6 05           ..    ldab 05,x
8095 BEA5 26 1B           &.    bne 1b
8096 BEA7 F6 00 06        ...   ldab 0006
8097 BEAA 4F              O     clra
8098 BEAB CE 00 0A        ...   ldx #000a
8099 BEAE 02              .     idiv
8100 BEAF 8F              .     xgdx
8101 BEB0 CB 30           .0    addb #30
8102 BEB2 F7 0B 99        ...   stab 0b99   ; write slotnumber/10
8103 BEB5 F6 00 06        ...   ldab 0006
8104 BEB8 4F              O     clra
8105 BEB8 CE 00 0A        ...   ldx #000a
8106 BEBC 02              .     idiv
8107 BEBD CB 30           .0    addb #30
8108 BEBF F7 0B 98        ...   stab 0b98   ; write slotnumber%10
8109 BEC2 30              0     tsx
8110 BEC3 EC 00           ..    ldd 00,x
8111 BEC5 C4 FF           ..    andb #ff
8112 BEC7 84 3F           .?    anda #3f
8113 BEC9 ED 00           ..    std 00,x
8114 BECB EC 00           ..    ldd 00,x
8115 BECD CE 03 E8        ...   ldx #03e8   ; / 1000
8116 BED0 02              .     idiv
8117 BED1 8F              .     xgdx
8118 BED2 CB 30           .0    addb #30
8119 BED4 37              7     pshb
8120 BED5 30              0     tsx
8121 BED6 E6 06           ..    ldab 06,x
8122 BED8 4F              O     clra
8123 BED9 C3 0B 95        ...   addd #0b95
8124 BEDC 8F              .     xgdx
8125 BEDD 33              3     pulb
8126 BEDE E7 00           ..    stab 00,x    ; write MSB dollars
8127 BEE0 30              0     tsx
8128 BEE1 EC 00           ..    ldd 00,x
8129 BEE3 CE 03 E8        ...   ldx #03e8    ; %1000
8130 BEE6 02              .     idiv
8131 BEE7 CE 00 64        ..d   ldx #0064    ; /100
8132 BEEA 02              .     idiv
8133 BEEB 8F              .     xgdx
8134 BEEC CB 30           .0    addb #30
8135 BEEE 37              7     pshb
8136 BEEF 30              0     tsx
8137 BEF0 E6 06           ..    ldab 06,x
8138 BEF2 4F              O     clra
8139 BEF3 C3 0B 94        ...   addd #0b94   ; write LSB dollars
8140 BEF6 8F              .     xgdx
8141 BEF7 33              3     pulb
8142 BEF8 E7 00           ..    stab 00,x
8143 BEFA 30              0     tsx
8144 BEFB EC 00           ..    ldd 00,x
8145 BEFD CE 00 64        ..d   ldx #0064    ; %100
8146 BF00 02              .     idiv
8147 BF01 CE 00 0A        ...   ldx #000a    ; /10
8148 BF04 02              .     idiv
8149 BF05 8F              .     xgdx
8150 BF06 CB 30           .0    addb #30
8151 BF08 37              7     pshb
8152 BF09 30              0     tsx
8153 BF0A E6 06           ..    ldab 06,x
8154 BF0C 4F              O     clra
8155 BF0D C3 0B 93        ...   addd #0b93   ; write MSB cents
8156 BF10 8F              .     xgdx
8157 BF11 33              3     pulb
8158 BF12 E7 00           ..    stab 00,x
8159 BF14 30              0     tsx
8160 BF15 EC 00           ..    ldd 00,x
8161 BF17 CE 00 0A        ...   ldx #000a
8162 BF1A 02              .     idiv
8163 BF1B CB 30           .0    addb #30
8164 BF1D 37              7     pshb
8165 BF1E 30              0     tsx
8166 BF1F E6 06           ..    ldab 06,x
8167 BF21 4F              O     clra
8168 BF22 C3 0B 92        ...   addd #0b92    ; write LSB cents
8169 BF25 8F              .     xgdx
8170 BF26 33              3     pulb
8171 BF27 E7 00           ..    stab 00,x
8172 BF29 F6 00 13        ...   ldab 0013
8173 BF2C C1 01           ..    cmpb #01
8174 BF2E 22 03           ".    bhi 03
8175 BF30 7E BF DE        ~..   jmp bfde             ;goto32
8176 BF33 30              0     tsx
8177 BF34 E6 05           ..    ldab 05,x
8178 BF36 4F              O     clra
8179 BF37 C3 0B 92        ...   addd #0b92
8180 BF3A 8F              .     xgdx
8181 BF3B E6 00           ..    ldab 00,x
8182 BF3D 37              7     pshb
8183 BF3E 30              0     tsx
8184 BF3F E6 06           ..    ldab 06,x
8185 BF41 4F              O     clra
8186 BF42 C3 0B 91        ...   addd #0b91
8187 BF45 8F              .     xgdx
8188 BF46 33              3     pulb
8189 BF47 E7 00           ..    stab 00,x
8190 BF49 30              0     tsx
8191 BF4A E6 05           ..    ldab 05,x
8192 BF4C 4F              O     clra
8193 BF4D C3 0B 93        ...   addd #0b93
8194 BF50 8F              .     xgdx
8195 BF51 E6 00           ..    ldab 00,x
8196 BF53 37              7     pshb
8197 BF54 30              0     tsx
8198 BF55 E6 06           ..    ldab 06,x
8199 BF57 4F              O     clra
8200 BF58 C3 0B 92        ...   addd #0b92
8201 BF5B 8F              .     xgdx
8202 BF5C 33              3     pulb
8203 BF5D E7 00           ..    stab 00,x
8204 BF5F F6 00 13        ...   ldab 0013
8205 BF62 C1 02           ..    cmpb #02
8206 BF64 26 10           &.    bne 10
8207 BF66 C6 2E           ..    ldab #2e
8208 BF68 37              7     pshb
8209 BF69 30              0     tsx
8210 BF6A E6 06           ..    ldab 06,x
8211 BF6C 4F              O     clra
8212 BF6D C3 0B 93        ...   addd #0b93
8213 BF70 8F              .     xgdx
8214 BF71 33              3     pulb
8215 BF72 E7 00           ..    stab 00,x
8216 BF74 20 68            h    bra 68     ;goto32
8217 ;
8218 BF76 C1 04           ..    cmpb #04
8219 BF78 26 26           &&    bne 26
8220 BF7A 30              0     tsx
8221 BF7B E6 05           ..    ldab 05,x
8222 BF7D 4F              O     clra
8223 BF7E C3 0B 94        ...   addd #0b94
8224 BF81 8F              .     xgdx
8225 BF82 E6 00           ..    ldab 00,x
8226 BF84 37              7     pshb
8227 BF85 30              0     tsx
8228 BF86 E6 06           ..    ldab 06,x
8229 BF88 4F              O     clra
8230 BF89 C3 0B 93        ...   addd #0b93
8231 BF8C 8F              .     xgdx
8232 BF8D 33              3     pulb
8233 BF8E E7 00           ..    stab 00,x
8234 BF90 C6 2E           ..    ldab #2e   ; "."
8235 BF92 37              7     pshb
8236 BF93 30              0     tsx
8237 BF94 E6 06           ..    ldab 06,x
8238 BF96 4F              O     clra
8239 BF97 C3 0B 94        ...   addd #0b94
8240 BF9A 8F              .     xgdx
8241 BF9B 33              3     pulb
8242 BF9C E7 00           ..    stab 00,x
8243 BF9E 20 3E            >    bra 3e
8244 BFA0 C1 08           ..    cmpb #08
8245 BFA2 26 3A           &:    bne 3a
8246 BFA4 30              0     tsx
8247 BFA5 E6 05           ..    ldab 05,x
8248 BFA7 4F              O     clra
8249 BFA8 C3 0B 94        ...   addd #0b94
8250 BFAB 8F              .     xgdx
8251 BFAC E6 00           ..    ldab 00,x
8252 BFAE 37              7     pshb
8253 BFAF 30              0     tsx
8254 BFB0 E6 06           ..    ldab 06,x
8255 BFB2 4F              O     clra
8256 BFB3 C3 0B 93        ...   addd #0b93
8257 BFB6 8F              .     xgdx
8258 BFB7 33              3     pulb
8259 BFB8 E7 00           ..    stab 00,x
8260 BFBA 30              0     tsx
8261 BFBB E6 05           ..    ldab 05,x
8262 BFBD 4F              O     clra
8263 BFBE C3 0B 95        ...   addd #0b95
8264 BFC1 8F              .     xgdx
8265 BFC2 E6 00           ..    ldab 00,x
8266 BFC4 37              7     pshb
8267 BFC5 30              0     tsx
8268 BFC6 E6 06           ..    ldab 06,x
8269 BFC8 4F              O     clra
8270 BFC9 C3 0B 94        ...   addd #0b94
8271 BFCC 8F              .     xgdx
8272 BFCD 33              3     pulb
8273 BFCE E7 00           ..    stab 00,x
8274 BFD0 C6 2E           ..    ldab #2e   ; "."
8275 BFD2 37              7     pshb
8276 BFD3 30              0     tsx
8277 BFD4 E6 06           ..    ldab 06,x
8278 BFD6 4F              O     clra
8279 BFD7 C3 0B 95        ...   addd #0b95
8280 BFDA 8F              .     xgdx
8281 BFDB 33              3     pulb
8282 BFDC E7 00           ..    stab 00,x
8283 goto32:
8284 BFDE F6 0B C0        ...   ldab 0bc0
8285 BFE1 C4 01           ..    andb #01
8286 BFE3 26 0E           &.    bne 0e      ; to bff3
8287 BFE5 F6 0B C0        ...   ldab 0bc0
8288 BFE8 C4 04           ..    andb #04
8289 BFEA 26 07           &.    bne 07      ; to bff3
8290 BFEC F6 0B C0        ...   ldab 0bc0
8291 BFEF C4 08           ..    andb #08
8292 BFF1 27 15           '.    beq 15      ; to c008
8293 BFF3 F6 00 17        ...   ldab 0017
8294 BFF6 C4 08           ..    andb #08
8295 BFF8 26 0E           &.    bne 0e      ; to c008
8296 ; plonk a dollar sign somewhere
8297 BFFA C6 24           .$    ldab #24    ; "$"
8298 BFFC 37              7     pshb
8299 BFFD 30              0     tsx
8300 BFFE E6 06           ..    ldab 06,x
8301 C000 4F              O     clra
8302 C001 C3 0B 96        ...   addd #0b96
8303 C004 8F              .     xgdx
8304 C005 33              3     pulb
8305 C006 E7 00           ..    stab 00,x
8306 C008 BD BE 69        ..i   jsr be69             ;displayreset
8307 C00B F6 00 13        ...   ldab 0013
8308 C00E C1 01           ..    cmpb #01
8309 C010 23 17           #.    bls 17
8310 C012 CE 10 28        ..(   ldx #1028
8311 C015 1C 00 40        ...   bset 00,x, #40 ; enable SPI send
8312 C018 CE 00 01        ...   ldx #0001
8313 C01B 3C              <     pshx
8314 C01C CC 00 20        ..    ldd #0020
8315 C01F BD BD B5        ...   jsr bdb5             ;jump78 - send space to display
8316 C022 38              8     pulx
8317 C023 CE 10 28        ..(   ldx #1028      ; disable SPI send
8318 C026 1D 00 40        ...   bclr 00,x, #40
8319 C029 BD BE 10        ...   jsr be10             ;jump88 - write buffer to display
8320 C02C 38              8     pulx
8321 C02D 39              9     rts
8322
8323 jump71:
8324 ; part of the display: function abstraction
8325 ; D points to a string, and the stack contains the length of the message
8326 ; Also seems to handle scrolling of long strings?
8327 C02E 37              7     pshb
8328 C02F 36              6     psha
8329 C030 3C              <     pshx
8330 ; need 002c to be zero to display stuff
8331 C031 F6 00 2C        ..,   ldab 002c
8332 C034 27 03           '.    beq 03
8333 C036 7E C0 B7        ~..   jmp c0b7             ;goto33 (bail out)
8334 ; if (0003 >= D)
8335 C039 FC 00 03        ...   ldd 0003
8336 C03C 30              0     tsx
8337 C03D A3 02           ..    subd 02,x
8338 C03F 25 0A           %.    bcs 0a       ; to c04b
8339 ;
8340 C041 E6 07           ..    ldab 07,x
8341 C043 4F              O     clra
8342 C044 E3 02           ..    addd 02,x
8343 C046 B3 00 03        ...   subd 0003
8344 C049 24 06           $.    bcc 06       ; to c051
8345 ; else
8346 C04B 30              0     tsx
8347 C04C EC 02           ..    ldd 02,x
8348 C04E FD 00 03        ...   std 0003
8349 C051 FE 00 03        ...   ldx 0003
8350 C054 08              .     inx
8351 C055 FF 00 03        ...   stx 0003
8352 C058 09              .     dex
8353 C059 8F              .     xgdx
8354 C05A 30              0     tsx
8355 C05B ED 00           ..    std 00,x
8356 C05D C6 09           ..    ldab #09
8357 C05F F7 00 18        ...   stab 0018
8358 C062 F6 00 18        ...   ldab 0018
8359 C065 C1 FF           ..    cmpb #ff
8360 C067 24 46           $F    bcc 46       ; to c0af (jump 70 - write string)
8361 C069 30              0     tsx
8362 C06A E6 07           ..    ldab 07,x
8363 C06C 4F              O     clra
8364 C06D E3 02           ..    addd 02,x
8365 C06F A3 00           ..    subd 00,x
8366 C071 24 05           $.    bcc 05
8367 C073 30              0     tsx
8368 C074 EC 02           ..    ldd 02,x
8369 C076 ED 00           ..    std 00,x
8370 C078 30              0     tsx
8371 C079 EE 00           ..    ldx 00,x
8372 C07B E6 00           ..    ldab 00,x
8373 C07D C1 40           .@    cmpb #40
8374 C07F 24 13           $.    bcc 13
8375 C081 30              0     tsx
8376 C082 EE 00           ..    ldx 00,x
8377 C084 E6 00           ..    ldab 00,x
8378 C086 37              7     pshb
8379 C087 F6 00 18        ...   ldab 0018
8380 C08A 4F              O     clra
8381 C08B C3 0B 90        ...   addd #0b90
8382 C08E 8F              .     xgdx
8383 C08F 33              3     pulb
8384 C090 E7 00           ..    stab 00,x
8385 C092 20 13            .    bra 13
8386 C094 30              0     tsx
8387 C095 EE 00           ..    ldx 00,x
8388 C097 E6 00           ..    ldab 00,x
8389 C099 CB C0           ..    addb #c0
8390 C09B 37              7     pshb
8391 C09C F6 00 18        ...   ldab 0018
8392 C09F 4F              O     clra
8393 C0A0 C3 0B 90        ...   addd #0b90
8394 C0A3 8F              .     xgdx
8395 C0A4 33              3     pulb
8396 C0A5 E7 00           ..    stab 00,x
8397 C0A7 38              8     pulx
8398 C0A8 08              .     inx
8399 C0A9 3C              <     pshx
8400 C0AA 7A 00 18        z..   dec 0018
8401 C0AD 20 B3            .    bra b3
8402 C0AF BD BE 01        ...   jsr be01             ;jump70
8403 C0B2 C6 03           ..    ldab #03
8404 C0B4 F7 00 2C        ..,   stab 002c
8405 goto33:
8406 C0B7 38              8     pulx
8407 C0B8 38              8     pulx
8408 C0B9 39              9     rts
8409
8410 ;Display a string.  D points to the string, which is NULL-terminated
8411 ;
8412 display:
8413 C0BA 37              7     pshb
8414 C0BB 36              6     psha
8415 C0BC F6 00 1F        ...   ldab 001f
8416 C0BF C4 04           ..    andb #04
8417 C0C1 26 03           &.    bne 03
8418 C0C3 7F 00 2C        ..,   clr 002c
8419 C0C6 F6 00 2C        ..,   ldab 002c
8420 C0C9 26 13           &.    bne 13      ; to c0de
8421 C0CB 5F              _     clrb
8422 C0CC 4F              O     clra
8423 C0CD FD 00 03        ...   std 0003
8424 C0D0 7F 00 2C        ..,   clr 002c
8425 C0D3 CE 00 09        ...   ldx #0009
8426 C0D6 3C              <     pshx
8427 C0D7 30              0     tsx
8428 C0D8 EC 02           ..    ldd 02,x
8429 C0DA BD C0 2E        ...   jsr c02e             ;jump71
8430 C0DD 38              8     pulx
8431 C0DE 38              8     pulx
8432 C0DF 39              9     rts
8433
8434 jump94:
8435 C0E0 F6 00 15        ...   ldab 0015
8436 C0E3 2C 02           ,.    bge 02
8437 C0E5 20 F9            .    bra f9
8438 C0E7 CE 00 1D        ...   ldx #001d
8439 C0EA 1C 00 20        ..    bset 00,x, #20
8440 C0ED BD D7 30         .    jsr d730       ;jump202
8441 C0EE 83 00 00        .0.   subd #0000
8442 C0F3 27 09           '.    beq 09
8443 C0F5 CE 00 1D        ...   ldx #001d
8444 C0F8 1D 00 20        ..    bclr 00,x, #20
8445 C0FB 5F              .     clrb
8446 C0FC 4F              O     clra
8447 C0FD 39              9     rts
8448 ;
8449 C0FE CE 00 14        ...   ldx #0014
8450 C101 1C 00 01        ...   bset 00,x, #01
8451 C104 F6 00 14        ...   ldab 0014
8452 C107 F7 38 00        .8.   stab 3800    ; note acceptor business
8453 C10A F6 00 15        ...   ldab 0015
8454 C10D C4 1F           ..    andb #1f
8455 C10F 26 03           &.    bne 03
8456 C111 7E C3 1B        ~..   jmp c31b             ;goto34
8457 C114 C6 14           ..    ldab #14     ; 20
8458 C116 F7 00 31        ..1   stab 0031
8459 C119 F6 00 15        ...   ldab 0015
8460 C11C 2D 15           -.    blt 15
8461 C11E F6 00 31        ..1   ldab 0031
8462 C121 C1 0A           ..    cmpb #0a
8463 C123 22 0C           ".    bhi 0c
8464 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8465 C128 CE 00 1D        ...   ldx #001d
8466 C12B 1D 00 20        ..    bclr 00,x, #20
8467 C12D 5F              _     clrb
8468 C12F 4F              O     clra
8469 C130 39              9     rts
8470 ;
8471 C131 20 E6            .    bra e6
8472 C133 FC 00 3E        ..>   ldd 003e
8473 C136 F3 00 40        ..@   addd 0040
8474 C139 FD 00 40        ..@   std 0040
8475 C13C 5F              _     clrb
8476 C13D 4F              O     clra
8477 C13E FD 00 3E        ..>   std 003e
8478 C141 F6 00 15        ...   ldab 0015
8479 C144 C4 1F           ..    andb #1f
8480 C146 4F              O     clra
8481 C147 BD FE 32        ..2   jsr fe32             ;jump25
8482 C14A C1 64 00 01     ....  ; array data for jump25
8483 C14E C1 BA 00 01     ....
8484 C152 C2 10 00 02     ....
8485 C156 C2 66 00 04     .f..
8486 C15A C2 BB 00 08     ....
8487 C15E C3 0E FF F0     ....
8488 C162 00 00           ..    ; end of array data
8489 C164 FC 0C DD        ...   ldd 0cdd
8490 C167 83 FF FF        ...   subd #ffff
8491 C16A 26 05           &.    bne 05
8492 C16C 5F              _     clrb
8493 C16D 4F              O     clra
8494 C16E FD 0C DD        ...   std 0cdd
8495 C171 FE 0C DD        ...   ldx 0cdd
8496 C174 08              .     inx
8497 C175 FF 0C DD        ...   stx 0cdd
8498 C178 CE 00 64        ..d   ldx #0064
8499 C17B 3C              <     pshx
8500 C17C CC 00 00        ...   ldd #0000
8501 C17F 37              7     pshb
8502 C180 36              6     psha
8503 C181 CC 0C F3        ...   ldd #0cf3
8504 C184 BD FB DF        ...   jsr fbdf             ;jump46
8505 C187 31              1     ins
8506 C188 31              1     ins
8507 C189 FE 0C F5        ...   ldx 0cf5
8508 C18C 3C              <     pshx
8509 C18D FC 0C F3        ...   ldd 0cf3
8510 C190 37              7     pshb
8511 C191 36              6     psha
8512 C192 CE FF 9C        ...   ldx #ff9c
8513 C195 3C              <     pshx
8514 C196 CC 00 63        ..c   ldd #0063
8515 C199 30              0     tsx
8516 C19A A3 02           ..    subd 02,x
8517 C19C 32              2     pula
8518 C19D 33              3     pulb
8519 C19E 26 02           &.    bne 02
8520 C1A0 A3 04           ..    subd 04,x
8521 C1A2 38              8     pulx
8522 C1A3 38              8     pulx
8523 C1A4 24 11           $.    bcc 11
8524 C1A6 CE 00 64        ..d   ldx #0064
8525 C1A9 3C              <     pshx
8526 C1AA CC FF 9C        ...   ldd #ff9c
8527 C1AD 37              7     pshb
8528 C1AE 36              6     psha
8529 C1AF CC 0C F3        ...   ldd #0cf3
8530 C1B2 BD FB DF        ...   jsr fbdf             ;jump46
8531 C1B5 31              1     ins
8532 C1B6 31              1     ins
8533 C1B7 7E C3 0E        ~..   jmp c30e             ;goto35
8534 C1BA FC 0C DF        ...   ldd 0cdf
8535 C1BD 83 FF FF        ...   subd #ffff
8536 C1C0 26 05           &.    bne 05
8537 C1C2 5F              _     clrb
8538 C1C3 4F              O     clra
8539 C1C4 FD 0C DF        ...   std 0cdf
8540 C1C7 FE 0C DF        ...   ldx 0cdf
8541 C1CA 08              .     inx
8542 C1CB FF 0C DF        ...   stx 0cdf
8543 C1CE CE 00 C8        ...   ldx #00c8
8544 C1D1 3C              <     pshx
8545 C1D2 CC 00 00        ...   ldd #0000
8546 C1D5 37              7     pshb
8547 C1D6 36              6     psha
8548 C1D7 CC 0C F7        ...   ldd #0cf7
8549 C1DA BD FB DF        ...   jsr fbdf             ;jump46
8550 C1DD 31              1     ins
8551 C1DE 31              1     ins
8552 C1DF FE 0C F9        ...   ldx 0cf9
8553 C1E2 3C              <     pshx
8554 C1E3 FC 0C F7        ...   ldd 0cf7
8555 C1E6 37              7     pshb
8556 C1E7 36              6     psha
8557 C1E8 CE FF 38        ..8   ldx #ff38     ; -200
8558 C1EB 3C              <     pshx
8559 C1EC CC 00 C7        ...   ldd #00c7
8560 C1EF 30              0     tsx
8561 C1F0 A3 02           ..    subd 02,x
8562 C1F2 32              2     pula
8563 C1F3 33              3     pulb
8564 C1F4 26 02           &.    bne 02
8565 C1F6 A3 04           ..    subd 04,x
8566 C1F8 38              8     pulx
8567 C1F9 38              8     pulx
8568 C1FA 24 11           $.    bcc 11
8569 C1FC CE 00 C8        ...   ldx #00c8    ; 200
8570 C1FF 3C              <     pshx
8571 C200 CC FF 38        ..8   ldd #ff38    ; -200
8572 C203 37              7     pshb
8573 C204 36              6     psha
8574 C205 CC 0C F7        ...   ldd #0cf7
8575 C208 BD FB DF        ...   jsr fbdf             ;jump46
8576 C20B 31              1     ins
8577 C20C 31              1     ins
8578 C20D 7E C3 0E        ~..   jmp c30e             ;goto35
8579 C210 FC 0C E1        ...   ldd 0ce1
8580 C213 83 FF FF        ...   subd #ffff
8581 C216 26 05           &.    bne 05
8582 C218 5F              _     clrb
8583 C219 4F              O     clra
8584 C21A FD 0C E1        ...   std 0ce1
8585 C21D FE 0C E1        ...   ldx 0ce1
8586 C220 08              .     inx
8587 C221 FF 0C E1        ...   stx 0ce1
8588 C224 CE 01 F4        ...   ldx #01f4
8589 C227 3C              <     pshx
8590 C228 CC 00 00        ...   ldd #0000
8591 C22B 37              7     pshb
8592 C22C 36              6     psha
8593 C22D CC 0C FB        ...   ldd #0cfb
8594 C230 BD FB DF        ...   jsr fbdf             ;jump46
8595 C233 31              1     ins
8596 C234 31              1     ins
8597 C235 FE 0C FD        ...   ldx 0cfd
8598 C238 3C              <     pshx
8599 C239 FC 0C FB        ...   ldd 0cfb
8600 C23C 37              7     pshb
8601 C23D 36              6     psha
8602 C23E CE FE 0C        ...   ldx #fe0c
8603 C241 3C              <     pshx
8604 C242 CC 01 F3        ...   ldd #01f3
8605 C245 30              0     tsx
8606 C246 A3 02           ..    subd 02,x
8607 C248 32              2     pula
8608 C249 33              3     pulb
8609 C24A 26 02           &.    bne 02
8610 C24C A3 04           ..    subd 04,x
8611 C24E 38              8     pulx
8612 C24F 38              8     pulx
8613 C250 24 11           $.    bcc 11
8614 C252 CE 01 F4        ...   ldx #01f4
8615 C255 3C              <     pshx
8616 C256 CC FE 0C        ...   ldd #fe0c
8617 C259 37              7     pshb
8618 C25A 36              6     psha
8619 C25B CC 0C FB        ...   ldd #0cfb
8620 C25E BD FB DF        ...   jsr fbdf             ;jump46
8621 C261 31              1     ins
8622 C262 31              1     ins
8623 C263 7E C3 0E        ~..   jmp c30e             ;goto35
8624 C266 FC 0C E3        ...   ldd 0ce3
8625 C269 83 FF FF        ...   subd #ffff
8626 C26C 26 05           &.    bne 05
8627 C26E 5F              _     clrb
8628 C26F 4F              O     clra
8629 C270 FD 0C E3        ...   std 0ce3
8630 C273 FE 0C E3        ...   ldx 0ce3
8631 C276 08              .     inx
8632 C277 FF 0C E3        ...   stx 0ce3
8633 C27A CE 03 E8        ...   ldx #03e8
8634 C27D 3C              <     pshx
8635 C27E CC 00 00        ...   ldd #0000
8636 C281 37              7     pshb
8637 C282 36              6     psha
8638 C283 CC 0C FF        ...   ldd #0cff
8639 C286 BD FB DF        ...   jsr fbdf             ;jump46
8640 C289 31              1     ins
8641 C28A 31              1     ins
8642 C28B FE 0D 01        ...   ldx 0d01
8643 C28E 3C              <     pshx
8644 C28F FC 0C FF        ...   ldd 0cff
8645 C292 37              7     pshb
8646 C293 36              6     psha
8647 C294 CE FC 18        ...   ldx #fc18    ; -1000
8648 C297 3C              <     pshx
8649 C298 CC 03 E7        ...   ldd #03e7
8650 C29B 30              0     tsx
8651 C29C A3 02           ..    subd 02,x
8652 C29E 32              2     pula
8653 C29F 33              3     pulb
8654 C2A0 26 02           &.    bne 02
8655 C2A2 A3 04           ..    subd 04,x
8656 C2A4 38              8     pulx
8657 C2A5 38              8     pulx
8658 C2A6 24 11           $.    bcc 11
8659 C2A8 CE 03 E8        ...   ldx #03e8    ; 1000
8660 C2AB 3C              <     pshx
8661 C2AC CC FC 18        ...   ldd #fc18    ; -1000
8662 C2AF 37              7     pshb
8663 C2B0 36              6     psha
8664 C2B1 CC 0C FF        ...   ldd #0cff
8665 C2B4 BD FB DF        ...   jsr fbdf             ;jump46
8666 C2B7 31              1     ins
8667 C2B8 31              1     ins
8668 C2B9 20 53            S    bra 53
8669 C2BB FC 0C E5        ...   ldd 0ce5
8670 C2BE 83 C3 4F        ..O   subd #c34f   ; 49999
8671 C2C1 26 05           &.    bne 05
8672 C2C3 5F              _     clrb
8673 C2C4 4F              O     clra
8674 C2C5 FD 0C E5        ...   std 0ce5
8675 C2C8 FE 0C E5        ...   ldx 0ce5
8676 C2CB 08              .     inx
8677 C2CC FF 0C E5        ...   stx 0ce5
8678 C2CF CE 07 D0        ...   ldx #07d0    ; 2000
8679 C2D2 3C              <     pshx
8680 C2D3 CC 00 00        ...   ldd #0000
8681 C2D6 37              7     pshb
8682 C2D7 36              6     psha
8683 C2D8 CC 0D 03        ...   ldd #0d03    ; 3331
8684 C2DB BD FB DF        ...   jsr fbdf             ;jump46
8685 C2DE 31              1     ins
8686 C2DF 31              1     ins
8687 C2E0 FE 0D 05        ...   ldx 0d05
8688 C2E3 3C              <     pshx
8689 C2E4 FC 0D 03        ...   ldd 0d03
8690 C2E7 37              7     pshb
8691 C2E8 36              6     psha
8692 C2E9 CE D9 30        ..0   ldx #d930    ; -9936
8693 C2EC 3C              <     pshx
8694 C2ED CC 05 F5        ...   ldd #05f5    ; 1525
8695 C2F0 30              0     tsx
8696 C2F1 A3 02           ..    subd 02,x
8697 C2F3 32              2     pula
8698 C2F4 33              3     pulb
8699 C2F5 26 02           &.    bne 02
8700 C2F7 A3 04           ..    subd 04,x
8701 C2F9 38              8     pulx
8702 C2FA 38              8     pulx
8703 C2FB 24 11           $.    bcc 11
8704 C2FD CE 26 D0        .&.   ldx #26d0    ; 9936
8705 C300 3C              <     pshx
8706 C301 CC FA 0A        ...   ldd #fa0a    ; -1526
8707 C304 37              7     pshb
8708 C305 36              6     psha
8709 C306 CC 0D 03        ...   ldd #0d03    ; 3331
8710 C309 BD FB DF        ...   jsr fbdf             ;jump46
8711 C30C 31              1     ins
8712 C30D 31              1     ins
8713 goto35:
8714 C30E F6 00 15        ...   ldab 0015
8715 C311 2C 02           ,.    bge 02
8716 C313 20 F9            .    bra f9
8717 C315 CE 00 15        ...   ldx #0015
8718 C318 1D 00 1F        ..    bclr 00,x, #1f
8719 goto34:
8720 C31B CE 00 1D        ...   ldx #001d
8721 C31E 1D 00 20        ..    bclr 00,x, #20
8722 C320 CC 00 01         .    ldd #0001
8723 C324 39              9     rts
8724
8725 jump64:
8726 ; has a good long chat to the bill validator
8727 C325 F6 10 00        ...   ldab 1000
8728 C328 C4 01           ..    andb #01
8729 C32A 26 13           &.    bne 13
8730 C32C 7C 00 7D        |.}   inc 007d
8731 C32F F6 00 7D        ..}   ldab 007d
8732 C332 C1 05           ..    cmpb #05
8733 C334 23 03           #.    bls 03
8734 C336 7F 00 7D        ..}   clr 007d
8735 C339 7F 00 7E        ..~   clr 007e
8736 C33C 7E C4 2F        ~./   jmp c42f             ;goto36
8737 C33F 7C 00 7E        |.~   inc 007e
8738 C342 F6 00 7E        ..~   ldab 007e
8739 C345 C1 07           ..    cmpb #07
8740 C347 23 17           #.    bls 17
8741 C349 7F 00 7D        ..}   clr 007d
8742 C34C 7F 00 7E        ..~   clr 007e
8743 C34F 7F 00 7C        ..|   clr 007c
8744 C352 F6 00 15        ...   ldab 0015
8745 C355 2C 03           ,.    bge 03
8746 C357 7F 00 2C        ..,   clr 002c
8747 C35A CE 00 15        ...   ldx #0015
8748 C35D 1D 00 80        ..    bclr 00,x, #80
8749 C35F F6 00 7E        ...   ldab 007e
8750 C363 26 03           ..    bne 03     ; to c368
8751 C365 7E C4 2F        ~./   jmp c42f             ;goto36
8752 C368 F6 00 7D        ..}   ldab 007d
8753 C36B C1 01           ..    cmpb #01
8754 C36D 22 03           ".    bhi 03
8755 C36F 7E C4 2F        ~./   jmp c42f             ;goto36
8756 C372 CE 00 15        ...   ldx #0015
8757 C375 1C 00 80        ..    bset 00,x, #80
8758 C378 CE 0B C1        ...   ldx #0bc1
8759 C37B 1D 00 08        ..    bclr 00,x #08   ; clear bill error bit
8760 C37E F6 00 1D        ...   ldab 001d
8761 C381 C4 20           .     andb #20
8762 C383 27 03           '.    beq 03
8763 C385 7E C4 29        ~.)   jmp c429             ;goto38
8764 C388 C6 02           ..    ldab #02
8765 C38A F7 00 2C        ..,   stab 002c
8766 C38D 7F 00 3A        ..:   clr 003a
8767 C390 CE 00 1B        ...   ldx #001b
8768 C393 1D 00 40        ..    bclr 00,x, #40
8769 C396 7F 00 25        ..%   clr 0025
8770 C399 CE 00 21        ..!   ldx #0021
8771 C39C 1D 00 08        ...   bclr 00,x, #08
8772 C39F CE 00 14        ...   ldx #0014
8773 C3A2 1D 00 01        ..    bclr 00,x, #01
8774 C3A5 F6 00 14        ...   ldab 0014
8775 C3A8 F7 38 00        .8.   stab 3800        ; note acceptor business
8776 C3AB 7C 00 7C        |.|   inc 007c
8777 C3AE CE 00 15        ...   ldx #0015
8778 C3B1 1D 00 1F        ..    bclr 00,x, #1f
8779 C3B4 F6 00 7C        ..|   ldab 007c
8780 C3B7 C1 01           ..    cmpb #01
8781 C3B9 26 0E           &.    bne 0e
8782 C3BB CE 00 15        ...   ldx #0015
8783 C3BE 1C 00 01        ..    bset 00,x, #01
8784 C3C1 CC 00 64        ..d   ldd #0064
8785 C3C4 FD 00 3E        ..>   std 003e
8786 C3C7 20 60            `    bra 60
8787 C3C9 F6 00 7C        ..|   ldab 007c
8788 C3CC C1 02           ..    cmpb #02
8789 C3CE 26 0E           &.    bne 0e
8790 C3D0 CE 00 15        ...   ldx #0015
8791 C3D3 1C 00 02        ..    bset 00,x, #02
8792 C3D6 CC 00 C8        ...   ldd #00c8
8793 C3D9 FD 00 3E        ..>   std 003e
8794 C3DC 20 4B            K    bra 4b
8795 C3DE F6 00 7C        ..|   ldab 007c
8796 C3E1 C1 02           ..    cmpb #02
8797 C3E3 23 15           #.    bls 15
8798 C3E5 F6 00 7C        ..|   ldab 007c
8799 C3E8 C1 06           ..    cmpb #06
8800 C3EA 24 0E           $.    bcc 0e
8801 C3EC CE 00 15        ...   ldx #0015
8802 C3EF 1C 00           ..    bset 00,x, #04
8803 C3F2 CC 01 F4        ...   ldd #01f4
8804 C3F5 FD 00 3E        ..>   std 003e
8805 C3F8 20 2F            /    bra 2f
8806 C3FA F6 00 7C        ..|   ldab 007c
8807 C3FD C1 05           ..    cmpb #05
8808 C3FF 23 15           #.    bls 15
8809 C401 F6 00 7C        ..|   ldab 007c
8810 C404 C1 0B           ..    cmpb #0b
8811 C406 24 0E           $.    bcc 0e
8812 C408 CE 00 15        ...   ldx #0015
8813 C40B 1C 00 08        ..    bset 00,x, #08
8814 C40E CC 03 E8        ...   ldd #03e8
8815 C411 FD 00 3E        ..>   std 003e
8816 C414 20 13            .    bra 13      ; to c429
8817 C416 F6 00 7C        ..|   ldab 007c
8818 C419 C1 0B           ..    cmpb #0b
8819 C41B 23 0C           #.    bls 0c
8820 C41D CE 00 15        ...   ldx #0015
8821 C420 1C 00 10        ..    bset 00,x, #10
8822 C423 CC 07 D0        ...   ldd #07d0
8823 C426 FD 00 3E        ..>   std 003e
8824 goto38:
8825 C429 7F 00 7D        ..}   clr 007d
8826 C42C 7F 00 7E        ..~   clr 007e
8827 goto36:
8828 C42F 39              9     rts
8829
8830 jump26:
8831 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8832 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8833 C430 F6 00 01        ...   ldab 0001
8834 C433 53              S     comb
8835 C434 F4 00 1A        ...   andb 001a    ; 0x3000 buffer - changer outputs
8836 C437 F7 00 1A        ...   stab 001a
8837 C43A F6 00 1A        ...   ldab 001a
8838 C43D F7 30 00        .0.   stab 3000    ; coin mask
8839 C440 CC 00 64        ..d   ldd #0064
8840 C443 BD E5 71        ..q   jsr e571             ;msdelay
8841 C446 F6 00 01        ...   ldab 0001
8842 C449 FA 00 1A        ...   orb 001a
8843 C44C F7 00 1A        ...   stab 001a
8844 C44F F6 00 1A        ...   ldab 001a
8845 C452 F7 30 00        .0.   stab 3000    ; changer outputs again
8846 C455 39              9     rts
8847
8848 jump47:
8849 ; coin have something to do with coin counting?
8850 C456 FC 00 40        ..@   ldd 0040
8851 C459 26 03           &.    bne 03
8852 C45B 7E C5 C6        ~..   jmp c5c6             ;goto39 - unset 0x30 in 0021 & return
8853 C45E CE 00 1A        ...   ldx #001a
8854 C461 1C 00 01        ..    bset 00,x, #01
8855 C464 F6 00 1A        ...   ldab 001a
8856 C467 F7 30 00        .0.   stab 3000    ; changer accept off
8857 C46A CC 03 E8        ...   ldd #03e8    ; 1000
8858 C46D BD E5 71        ..q   jsr e571             ;msdelay
8859 goto42:
8860 C470 FC 00 40        ..@   ldd 0040
8861 C473 83 00 00        ...   subd #0000
8862 C476 22 03           ".    bhi 03
8863 C478 7E C5 B0        ~..   jmp c5b0             ;goto40
8864 C47B F6 00 1B        ...   ldab 001b
8865 C47E C4 20           .     andb #20
8866 C480 27 1B           '.    beq 1b
8867 C482 FC 00 40        ..@   ldd 0040
8868 C485 83 03 E8        ...   subd #03e8
8869 C488 25 13           %.    bcs 13
8870 C48A C6 28           .(    ldab #28
8871 C48C F7 00 01        ...   stab 0001
8872 C48F CC FC 18        ...   ldd #fc18
8873 C492 F3 00 40        ..@   addd 0040
8874 C495 FD 00 40        ..@   std 0040
8875 C498 8D 96           ..    bsr dest 96
8876 C49A 7E C5 7C        ~.|   jmp c57c             ;goto41
8877 C49D F6 00 1B        ...   ldab 001b
8878 C4A0 C4 20           .     andb #20
8879 C4A2 27 1C           '.    beq 1c
8880 C4A4 FC 00 40        ..@   ldd 0040
8881 C4A7 83 00 64        ..d   subd #0064
8882 C4AA 25 14           %.    bcs 14
8883 C4AC C6 30           .0    ldab #30
8884 C4AE F7 00 01        ...   stab 0001
8885 C4B1 CC FF 9C        ...   ldd #ff9c
8886 C4B4 F3 00 40        ..@   addd 0040
8887 C4B7 FD 00 40        ..@   std 0040
8888 C4BA BD C4 30        ..0   jsr c430             ;jump26
8889 C4BD 7E C5 7C        ~.|   jmp c57c             ;goto41
8890 C4C0 FC 0B DD        ...   ldd 0bdd
8891 C4C3 27 3C           '<    beq 3c
8892 C4C5 FC 00 40        ..@   ldd 0040
8893 C4C8 B3 0B DD        ...   subd 0bdd
8894 C4CB 25 34           %4    bcs 34
8895 C4CD F6 0C DB        ...   ldab 0cdb
8896 C4D0 26 07           &.    bne 07
8897 C4D2 F6 00 1B        ...   ldab 001b
8898 C4D5 C4 20           .     andb #20
8899 C4D7 27 28           '(    beq 28
8900 C4D9 FC 0B DD        ...   ldd 0bdd
8901 C4DC 53              S     comb
8902 C4DD 43              C     coma
8903 C4DE F9 00 41        ..A   adcb 0041
8904 C4E1 B9 00 40        ..@   adca 0040
8905 C4E4 FD 00 40        ..@   std 0040
8906 C4E7 F6 0B DA        ...   ldab 0bda
8907 C4EA F7 00 01        ...   stab 0001
8908 C4ED BD C4 30        ..0   jsr c430             ;jump26
8909 C4F0 F6 00 1B        ...   ldab 001b
8910 C4F3 C4 20           .     andb #20
8911 C4F5 26 08           &.    bne 08
8912 C4F7 F6 0C DB        ...   ldab 0cdb
8913 C4FA 27 03           '.    beq 03
8914 C4FC 7A 0C DB        z..   dec 0cdb
8915 C4FF 20 7B            {    bra 7b
8916 C501 FC 0B DF        ...   ldd 0bdf
8917 C504 27 3C           '<    beq 3c
8918 C506 FC 00 40        ..@   ldd 0040
8919 C509 B3 0B DF        ...   subd 0bdf
8920 C50C 25 34           %4    bcs 34
8921 C50E F6 0C DA        ...   ldab 0cda
8922 C511 26 07           &.    bne 07
8923 C513 F6 00 1B        ...   ldab 001b
8924 C516 C4 20           .     andb #20
8925 C518 27 28           '(    beq 28
8926 C51A FC 0B DF        ...   ldd 0bdf
8927 C51D 53              S     comb
8928 C51E 43              C     coma
8929 C51F F9 00 41        ..A   adcb 0041
8930 C522 B9 00 40        ..@   adca 0040
8931 C525 FD 00 40        ..@   std 0040
8932 C528 F6 0B DB        ...   ldab 0bdb
8933 C52B F7 00 01        ...   stab 0001
8934 C52E BD C4 30        ..0   jsr c430             ;jump26
8935 C531 F6 00 1B        ...   ldab 001b
8936 C534 C4 20           .     andb #20
8937 C536 26 08           &.    bne 08
8938 C538 F6 0C DA        ...   ldab 0cda
8939 C53B 27 03           '.    beq 03
8940 C53D 7A 0C DA        z..   dec 0cda
8941 C540 20 3A            :    bra 3a
8942 C542 FC 0B E1        ...   ldd 0be1
8943 C545 27 30           '0    beq 30
8944 C547 FC 00 40        ..@   ldd 0040
8945 C54A B3 0B E1        ...   subd 0be1
8946 C54D 25 28           %(    bcs 28
8947 C54F FC 0B E1        ...   ldd 0be1
8948 C552 53              S     comb
8949 C553 43              C     coma
8950 C554 F9 00 41        ..A   adcb 0041
8951 C557 B9 00 40        ..@   adca 0040
8952 C55A FD 00 40        ..@   std 0040
8953 C55D F6 0B DC        ...   ldab 0bdc
8954 C560 F7 00 01        ...   stab 0001
8955 C563 BD C4 30        ..0   jsr c430             ;jump26
8956 C566 F6 00 1B        ...   ldab 001b
8957 C569 C4 20           .     andb #20
8958 C56B 26 08           &.    bne 08
8959 C56D F6 0C D9        ...   ldab 0cd9
8960 C570 27 03           '.    beq 03
8961 C572 7A 0C D9        z..   dec 0cd9
8962 C575 20 05            .    bra 05
8963 C577 5F              _     clrb
8964 C578 4F              O     clra
8965 C579 FD 00 40        ..@   std 0040
8966 goto41:
8967 C57C CC 01 2C        ..,   ldd #012c    ;300 ms
8968 C57F BD E5 71        ..q   jsr e571             ;msdelay
8969 C582 F6 00 1B        ...   ldab 001b
8970 C585 C4 20           .     andb #20
8971 C587 26 24           &$    bne 24
8972 C589 CE 00 1A        ...   ldx #001a
8973 C58C 1D 00 01        ..    bclr 00,x, #01
8974 C58F F6 00 1A        ...   ldab 001a
8975 C592 F7 30 00        .0.   stab 3000    ; changer accept' low
8976 C595 CC 00 0C        ...   ldd #000c    ; 12 ms
8977 C598 BD E5 71        ..q   jsr e571             ;msdelay
8978 C59B CE 00 1A        ...   ldx #001a
8979 C59E 1C 00 01        ..    bset 00,x, #01
8980 C5A1 F6 00 1A        ...   ldab 001a
8981 C5A4 F7 30 00        .0.   stab 3000    ; changer accept' high
8982 C5A7 CC 00 23        ..#   ldd #0023
8983 C5AA BD E5 71        ..q   jsr e571             ;msdelay
8984 C5AD 7E C4 70        ~.p   jmp c470             ;goto42 - loop
8985 goto40:
8986 C5B0 F6 0B C0        ...   ldab 0bc0
8987 C5B3 C4 04           ..    andb #04
8988 C5B5 27 0F           '.    beq 0f
8989 C5B7 F6 00 1B        ...   ldab 001b
8990 C5BA C4 20           .     andb #20
8991 C5BC 27 08           '.    beq 08
8992 C5BE C6 38           .8    ldab #38
8993 C5C0 F7 00 01        ...   stab 0001
8994 C5C3 BD C4 30        ..0   jsr c430             ;jump26
8995 goto39:
8996 C5C6 CE 00 21        ..!   ldx #0021
8997 C5C9 1D 00 10        ...   bclr 00,x, #10
8998 C5CC CE 00 1B        ...   ldx #001b
8999 C5CF 1D 00           ..    bclr 00,x, #20
9000 C5D2 39              .     rts
9001
9002 jump6:
9003 C5D3 F6 00 15        ...   ldab 0015
9004 C5D6 C4 1F           ..    andb #1f
9005 C5D8 26 03           &.    bne 03
9006 C5DA 7E C6 7C        ~.|   jmp c67c             ;goto43
9007 C5DD CC 00 C8        ...   ldd #00c8
9008 C5E0 BD E5 71        ..q   jsr e571             ;msdelay
9009 C5E3 FC 00 3E        ..>   ldd 003e
9010 C5E6 27 58           'X    beq 58
9011 C5E8 F6 00 15        ...   ldab 0015
9012 C5EB C4 1F           ..    andb #1f
9013 C5ED 4F              O     clra
9014 C5EE BD FE 32        ..2   jsr fe32             ;jump25
9015 C5F1 C6 0B 00 01     ..    ; array data for jump25
9016 C5F5 C6 16 00 01     ..
9017 C5F9 C6 21 00 02     .!
9018 C5FD C6 2C 00 04     .,
9019 C601 C6 37 00 08     .7
9020 C605 C6 40 FF F0     .@
9021 C609 00 00           ..    ;end of array data
9022 C60B CC FF 9C        ...   ldd #ff9c
9023 C60E F3 00 3E        ..>   addd 003e
9024 C611 FD 00 3E        ..>   std 003e
9025 C614 20 2A            *    bra 2a
9026 C616 CC FF 38        ..8   ldd #ff38
9027 C619 F3 00 3E        ..>   addd 003e
9028 C61C FD 00 3E        ..>   std 003e
9029 C61F 20 1F            .    bra 1f
9030 C621 CC FE 0C        ...   ldd #fe0c
9031 C624 F3 00 3E        ..>   addd 003e
9032 C627 FD 00 3E        ..>   std 003e
9033 C62A 20 14            .    bra 14
9034 C62C CC FC 18        ...   ldd #fc18
9035 C62F F3 00 3E        ..>   addd 003e
9036 C632 FD 00 3E        ..>   std 003e
9037 C635 20 09            .    bra 09
9038 C637 CC F8 30        ..0   ldd #f830
9039 C63A F3 00 3E        ..>   addd 003e
9040 C63D FD 00 3E        ..>   std 003e
9041 C640 CE 00 14        ...   ldx #0014
9042 C643 1D 00 02        ...   bclr 00,x, #02
9043 C646 F6 00 14        ...   ldab 0014
9044 C649 F7 38 00        .8.   stab 3800    ; bill acceptor
9045 C64C CC 00 1E        ...   ldd #001e
9046 C64F BD E5 71        ..q   jsr e571             ;msdelay
9047 C652 CE 00 15        ...   ldx #0015
9048 C655 1D 00           ..    bclr add,x 00,x
9049 C657 1F CE 00 14     ....  brclr ce,x 00 14
9050 C65B 1C 00 02        ...   bset 00,x, #02
9051 C65E F6 00 14        ...   ldab 0014
9052 C661 F7 38 00        .8.   stab 3800    ; bill acceptor
9053 C664 CC 00 19        ...   ldd #0019
9054 C667 BD E5 71        ..q   jsr e571             ;msdelay
9055 C66A CE 00 14        ...   ldx #0014
9056 C66D 1C 00 01        ..    bset 00,x, #01
9057 C670 F6 00 14        ...   ldab 0014
9058 C673 F7 38 00        .8.   stab 3800    ; bill acceptor
9059 C676 CC 00 19        ...   ldd #0019
9060 C679 BD E5 71        ..q   jsr e571             ;msdelay
9061 goto43:
9062 C67C 39              9     rts
9063
9064 jump124:
9065 ; chat to changer
9066 C67D F6 00 30        ..0   ldab 0030
9067 C680 26 55           &U    bne 55       ; to c6d7
9068 C682 F6 0B C0        ...   ldab 0bc0
9069 C685 C4 04           ..    andb #04     ; have a card reader
9070 C687 26 4E           &N    bne 4e       ; to c6d7
9071 C689 C6 27           .'    ldab #27
9072 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
9073 C68E C6 07           ..    ldab #07
9074 C690 F7 10 2B        ..+   stab 102b    ; 600 baud
9075 C693 CE 00 1A        ...   ldx #001a
9076 C696 1C 00           ..    bset 00,x, #04
9077 C699 F6 00 1A        ...   ldab 001a
9078 C69C F7 30 00        .0.   stab 3000    ; keypad strobe
9079 C69F CC 00 14        ...   ldd #0014
9080 C6A2 BD E5 71        ..q   jsr e571             ;msdelay
9081 C6A5 F6 0B C0        ...   ldab 0bc0
9082 C6A8 C4 01           ..    andb #01     ; have a dumb mech
9083 C6AA 27 06           '.    beq 06
9084 C6AC CE 0B C1        ...   ldx #0bc1
9085 C6AF 1C 00 01        ...   bset 00,x, #01 ; set changer powerup error bit
9086 C6B2 F6 0B C0        ...   ldab 0bc0
9087 C6B5 C4 04           ..    andb #04
9088 C6B7 27 06           '.    beq 06
9089 C6B9 CE 0B C1        ...   ldx #0bc1
9090 C6BC 1C 00 02        ...   bset 00,x, #02 ; set card powerup error bit
9091 C6BF CE 00 1A        ...   ldx #001a
9092 C6C2 1D 00 04        ...   bclr 00,x, #04  ; keypad strobe finish
9093 C6C5 F6 00 1A        ...   ldab 001a
9094 C6C8 F7 30 00        .0.   stab 3000
9095 C6CB C6 96           ..    ldab #96
9096 C6CD F7 00 30        ..0   stab 0030
9097 C6D0 C6 1E           ..    ldab #1e
9098 C6D2 F7 00 35        ..5   stab 0035
9099 C6D5 20 5D            ]    bra 5d
9100 ;
9101 C6D7 F6 18 00        ...   ldab 1800
9102 C6DA 2D 2A           -*    blt 2a
9103 C6DC F6 00 07        ...   ldab 0007
9104 C6DF 26 25           &%    bne 25
9105 C6E1 CE 00 1A        ...   ldx #001a
9106 C6E4 1D 00 02        ...   bclr 00,x, #02
9107 C6E7 F6 00 1A        ...   ldab 001a
9108 C6EA F7 30 00        .0.   stab 3000       ; changer send' low
9109 C6ED C6 64           .d    ldab #64
9110 C6EF F7 00 2D        ..-   stab 002d
9111 C6F2 CC 00 32        ..2   ldd #0032
9112 C6F5 BD E5 71        ..q   jsr e571             ;msdelay
9113 C6F8 CE 00 1A        ...   ldx #001a
9114 C6FB 1C 00 02        ...   bset 00,x, #02
9115 C6FE F6 00 1A        ...   ldab 001a
9116 C701 F7 30 00        .0.   stab 3000       ; changer send' high
9117 C704 20 2E            .    bra 2e
9118 C706 F6 00 2D        ..-   ldab 002d
9119 C709 26 29           &)    bne 29
9120 C70B CE 00 1A        ...   ldx #001a
9121 C70E 1D 00 01        ...   bclr 00,x, #01
9122 C711 F6 00 1A        ...   ldab 001a
9123 C714 F7 30 00        .0.   stab 3000     ; changer accept' low
9124 C717 CC 00 0C        ...   ldd #000c
9125 C71A BD E5 71        ..q   jsr e571             ;msdelay
9126 C71D CE 00 1A        ...   ldx #001a
9127 C720 1C 00 01        ...   bset 00,x, #01
9128 C723 F6 00 1A        ...   ldab 001a
9129 C726 F7 30 00        .0.   stab 3000     ; changer accept' high
9130 C729 CC 00 23        ..#   ldd #0023
9131 C72C BD E5 71        ..q   jsr e571             ;msdelay
9132 C72F C6 64           .d    ldab #64
9133 C731 F7 00 2D        ..-   stab 002d
9134 C734 F6 00 21        ..!   ldab 0021
9135 C737 C4 10           ..    andb #10
9136 C739 27 45           'E    beq 45
9137 C73B F6 00 11        ...   ldab 0011
9138 C73E C4 04           ..    andb #04
9139 C740 26 1A           &.    bne 1a
9140 C742 FC 00 40        ..@   ldd 0040
9141 C745 F3 00 3E        ..>   addd 003e
9142 C748 B3 00 50        ..P   subd 0050
9143 C74B 25 0F           %.    bcs 0f
9144 C74D F6 0B C0        ...   ldab 0bc0
9145 C750 C4 04           ..    andb #04
9146 C752 26 08           &.    bne 08
9147 C754 CE 00 21        ..!   ldx #0021
9148 C757 1D 00 10        ...   bclr 00,x, #10
9149 C75A 20 24            $    bra 24
9150 C75C F6 0B C0        ...   ldab 0bc0
9151 C75F C4 08           ..    andb #08
9152 C761 27 03           '.    beq 03
9153 C763 BD C5 D3        ...   jsr c5d3             ;jump6
9154 C766 FC 0B DD        ...   ldd 0bdd
9155 C769 26 12           &.    bne 12
9156 C76B FC 0B DF        ...   ldd 0bdf
9157 C76E 26 0D           &.    bne 0d
9158 C770 FC 0B E1        ...   ldd 0be1
9159 C773 26 08           &.    bne 08
9160 C775 CE 00 21        ..!   ldx #0021
9161 C778 1D 00 10        ...   bclr 00,x, #10
9162 C77B 20 03            .    bra 03
9163 C77D BD C4 56        ..V   jsr c456             ;jump47
9164 C780 F6 00 15        ...   ldab 0015
9165 C783 2D 08           -.    blt 08
9166 C785 CE 00 21        ..!   ldx #0021
9167 C788 1C 00 08        ...   bset 00,x, #08
9168 C78B 20 06            .    bra 06
9169 C78D CE 00 21        ..!   ldx #0021
9170 C790 1D 00 08        ...   bclr 00,x, #08
9171 C793 39              9     rts
9172
9173 ;proc(a,b) var local
9174 ;local=0
9175 ;while b<>0
9176 ;
9177 ;endwhile
9178 ;return local
9179
9180 ; tests parity?
9181 C794 37              7     pshb
9182 C795 36              6     psha
9183 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9184 C797 30              0     tsx
9185 C798 6F 00           o.    clr 00,x
9186 loop:
9187 C79A 30              0     tsx
9188 C79B E6 02           ..    ldab 02,x
9189 C79D 27 1A           '.    beq exit     ;c7b9
9190 C79F 30              0     tsx
9191 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9192 C7A4 30              0     tsx
9193 C7A5 E6 00           ..    ldab 00,x
9194 C7A7 27 05           '.    beq else     ;c7ae
9195 C7A9 30              0     tsx
9196 C7AA 6A 00           j.    dec 00,x
9197 C7AC 20 03            .    bra skip     ;c7b1
9198 else:
9199 C7AE 30              0     tsx
9200 C7AF 6C 00           l.    inc 00,x
9201 skip:
9202 C7B1 30              0     tsx
9203 C7B2 E6 02           ..    ldab 02,x
9204 C7B4 54              T     lsrb
9205 C7B5 E7 02           ..    stab 02,x
9206 C7B7 20 E1            .    bra loop     ;c79a
9207 exit:
9208 C7B9 30              0     tsx
9209 C7BA E6 00           ..    ldab 00,x
9210 C7BC 4F              O     clra
9211 C7BD 38              8     pulx
9212 C7BE 31              1     ins
9213 C7BF 39              9     rts
9214
9215 jump49:
9216 ; parity tester. returns 0 if good
9217 C7C0 F6 10 2F        ../   ldab 102f            ; sci data
9218 C7C3 4F              O     clra
9219 C7C4 8D CE           ..    bsr c794         ; parity test?
9220 C7C6 83 00 00        ...   subd #0000
9221 C7C9 27 05           '.    beq 05
9222 C7CB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9223 C7CE 2D 10           -.    blt 10           ; to c7e0
9224 C7D0 F6 10 2F        ../   ldab 102f            ; sci data
9225 C7D3 4F              O     clra
9226 C7D4 8D BE           ..    bsr c794         ; parity test?
9227 C7D6 83 00 00        ...   subd #0000
9228 C7D9 26 09           &.    bne 09           ; to c7e4
9229 C7DB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9230 C7DE 2D 04           -.    blt 04
9231 C7E0 CC 00 01        ...   ldd #0001        ; return 1
9232 C7E3 39              9     rts
9233 ; return 0
9234 C7E4 5F              _     clrb
9235 C7E5 4F              O     clra
9236 C7E6 39              9     rts
9237
9238
9239 ;this might send a byte to the serial port
9240 jump37:
9241 C7E7 37              7     pshb
9242 C7E8 36              6     psha
9243 C7E9 C6 32           .2    ldab #32    ; 50 00110010
9244 C7EB F7 00 31        ..1   stab 0031
9245 C7EE 30              0     tsx
9246 C7EF E6 01           ..    ldab 01,x
9247 C7F1 F7 00 43        ..C   stab 0043
9248 ; poll the TD register empty flag until it's set
9249 C7F4 F6 10 2E        ...   ldab 102e
9250 C7F7 2D 02           -.    blt 02      ; transmit data register empty
9251 C7F9 20 F9            .    bra f9      ; to c7f4
9252 ;
9253 C7FB 30              0     tsx
9254 C7FC E6 01           ..    ldab 01,x
9255 C7FE 4F              O     clra
9256 C7FF 8D 93           ..    bsr 93 ; to c794 - generate parity bit?
9257 C801 83 00 00        ...   subd #0000
9258 C804 27 08           '.    beq 08
9259 C806 CE 10 2C        ..,   ldx #102c
9260 C809 1C 00 40        ...   bset 00,x, #40   ; set the 9th bit
9261 C80C 20 06            .    bra 06
9262 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9263 C811 1D 00 40        ...   bclr 00,x, #40   ; clear the 9th bit
9264 C814 30              0     tsx
9265 C815 E6 01           ..    ldab 01,x
9266 C817 F7 10 2F        ../   stab 102f     ; send to serial port
9267 C81A 38              8     pulx
9268 C81B 39              9     rts
9269
9270
9271
9272
9273 sciinterrupt:
9274 C81C 34              4     des
9275 ; make sure this interrupt is valid
9276 C81D F6 0B C0        ...   ldab 0bc0
9277 C820 C4 01           ..    andb #01     ; do we have a dumb mech?
9278 C822 26 0A           &.    bne 0a       ; if so, to c82e
9279 ;
9280 C824 F6 0B C0        ...   ldab 0bc0
9281 C827 C4 04           ..    andb #04     ; do we have a card reader?
9282 C829 26 03           &.    bne 03       ; if so, to c82e
9283 C82B 7E CB FF        ~..   jmp cbff             ; else to goto44
9284 ;
9285 C82E C6 96           ..    ldab #96     ; 150
9286 C830 F7 00 30        ..0   stab 0030    ; changer related still?
9287 C833 F6 10 2E        ...   ldab 102e    ; SCI status
9288 C836 C4 02           ..    andb #02     ; test for Framing Error
9289 C838 26 0B           &.    bne 0b       ; if so, to c845
9290 C83A F6 10 2F        ../   ldab 102f    ; read SCI data
9291 C83D F1 00 26        ..&   cmpb 0026
9292 C840 26 03           &.    bne 03
9293 C842 7E C9 1B        ~..   jmp c91b             ;goto45
9294 ;
9295 C845 F6 10 2F        ../   ldab 102f    ; read SCI data
9296 C848 C4 63           .c    andb #63     ; 01100110
9297 C84A C1 23           .#    cmpb #23     ; 00100110
9298 C84C 27 03           '.    beq 03
9299 C84E 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9300 ; doesnt return
9301 C851 F6 00 1A        ...   ldab 001a    ; register 3000 buffer
9302 C854 C4 01           ..    andb #01     ; accept' line of changer
9303 C856 26 03           &.    bne 03
9304 C858 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9305 ; doesnt return
9306 C85B F6 00 21        ..!   ldab 0021
9307 C85E C4 F8           ..    andb #f8     ; 11111000
9308 C860 37              7     pshb
9309 C861 F6 10 2F        ../   ldab 102f    ; read SCI data
9310 C864 C4 1C           ..    andb #1c     ; 00011100
9311 C866 54              T     lsrb         ;    ^^^
9312 C867 54              T     lsrb         ; get these bits out
9313 C868 30              0     tsx
9314 C869 EA 00           ..    orb 00,x     ; or it with the thing just above
9315 C86B 31              1     ins
9316 C86C F7 00 21        ..!   stab 0021
9317 C86F F6 00 21        ..!   ldab 0021
9318 C872 F4 0B D7        ...   andb 0bd7    ; if (0021 & 0bd7)
9319 C875 27 08           '.    beq 08       ; is false
9320 C877 CE 00 17        ...   ldx #0017
9321 C87A 1C 00 20        ..    bset 00,x, #20
9322 C87C 20 18                 bra 18
9323 C87F F6 00 17        ...   ldab 0017    ; if true
9324 C882 C4 20           .     andb #20
9325 C884 27 11           '.    beq 11       ; if unset to c897 (break out of if)
9326 C886 CE 00 17        ...   ldx #0017
9327 C889 1D 00           ..    bclr 00,x, #20
9328 C88C C6 04            .    andb #04
9329 C88E F7 0C DB        ...   stab 0cdb
9330 C891 CE 0B C1        ...   ldx #0bc1
9331 C894 1C 00 40        ...   bset 00,x, #40 ; set tube error
9332 ;
9333 C897 F6 00 21        ..!   ldab 0021
9334 C89A F4 0B D8        ...   andb 0bd8
9335 C89D 27 08           '.    beq 08           ; to c8a7
9336 C89F CE 00 17        ...   ldx #0017
9337 C8A2 1C 00 40        ...   bset 00,x, #40
9338 C8A5 20 18            .    bra 18           ; to c8cf
9339 ;
9340 C8A7 F6 00 17        ...   ldab 0017
9341 C8AA C4 40           .@    andb #40
9342 C8AC 27 11           '.    beq 11            ; to c8bf if unset
9343 C8AE CE 00 17        ...   ldx #0017
9344 C8B1 1D 00 40        ...   bclr 00,x, #40
9345 C8B4 C6 04           ..    ldab #04
9346 C8B6 F7 0C DA        ...   stab 0cda
9347 C8B9 CE 0B C1        ...   ldx #0bc1
9348 C8BC 1C 00 40        ...   bset 00,x, #40 ; set tube error
9349 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9350 C8BF F6 00 21        ..!   ldab 0021
9351 C8C2 F4 0B D9        ...   andb 0bd9
9352 C8C5 27 08           '.    beq 08
9353 C8C7 CE 00 17        ...   ldx #0017
9354 C8CA 1C 00 80        ..    bset 00,x, #80
9355 C8CC 20 16           .     bra 16     ; to c8e5
9356 ;
9357 C8CF F6 00 17        ...   ldab 0017
9358 C8D2 2C 11           ,.    bge 11     ; to c8e5
9359 C8D4 CE 00 17        ...   ldx #0017
9360 C8D7 1D 00           ..    bclr 00,x, #80
9361 ; set counter to 4?
9362 C8D9 C6 04           ..    ldab #04
9363 C8DC F7 0C D9        ...   stab 0cd9
9364 ; set tube error bit
9365 C8DF CE 0B C1        ...   ldx #0bc1
9366 C8E2 1C 00 40        ...   bset 00,x, #40 ; set tube error bit
9367 C8E5 20 31            1    bra 31          ; to c918
9368 ;
9369 goto46: ; pulse the send' line of the changer
9370 C8E7 F6 10 2F        ../   ldab 102f    ; read SCI data
9371 C8EA F7 00 26        ..&   stab 0026
9372 C8ED CE 00 1A        ...   ldx #001a
9373 C8F0 1C 00 02        ...   bset 00,x, #02
9374 C8F3 F6 00 1A        ...   ldab 001a
9375 C8F6 F7 30 00        .0.   stab 3000    ; changer send' high
9376 C8F9 F6 00 3D        ..=   ldab 003d
9377 C8FC C4 04           ..    andb #04
9378 C8FE 26 18           &.    bne 18       ; to c918
9379 C900 CC 00 03        ...   ldd #0003
9380 C903 BD E5 71        ..q   jsr e571             ;msdelay
9381 C906 CE 00 1A        ...   ldx #001a
9382 C909 1D 00 02        ...   bclr 00,x, #02
9383 C90C F6 00 1A        ...   ldab 001a
9384 C90F F7 30 00        .0.   stab 3000    ; changer send' low
9385 C912 7C 00 3D        |.=   inc 003d
9386 C915 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9387 C918 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9388 ;
9389 goto45:
9390 C91B F6 00 08        ...   ldab 0008
9391 C91E 26 03           &.    bne 03
9392 C920 7E CA 5F        ~._   jmp ca5f             ;goto49
9393 C923 F6 00 17        ...   ldab 0017
9394 C926 C4 04           ..    andb #04
9395 C928 26 03           &.    bne 03
9396 C92A 7E CA 5F        ~._   jmp ca5f             ;goto49
9397 C92D F6 00 17        ...   ldab 0017
9398 C930 C4 08           ..    andb #08
9399 C932 26 03           &.    bne 03
9400 C934 7E CA 5F        ~._   jmp ca5f             ;goto49
9401 C937 F6 10 2F        ../   ldab 102f    ; read SCI data
9402 C93A C1 FF           ..    cmpb #ff
9403 C93C 27 07           '.    beq 07       ; to c945
9404 C93E F6 00 08        ...   ldab 0008
9405 C941 C1 0E           ..    cmpb #0e     ; if > 14
9406 C943 25 12           %.    bcs 12       ; to c957
9407 C945 CE 00 17        ...   ldx #0017
9408 C948 1D 00 04        ...   bclr 00,x, #04
9409 C94B 7F 00 08        ...   clr 0008
9410 C94E BD CE 48        ..H   jsr ce48             ;jump48 - update values?
9411 C951 7F 00 2C        ..,   clr 002c
9412 C954 7E CA 5C        ~.\   jmp ca5c             ;goto50 - clean exit
9413 ;
9414 C957 F6 00 08        ...   ldab 0008
9415 C95A 4F              O     clra
9416 C95B BD FE 16        ...   jsr fe16             ;jump2
9417 C95E 00 01 00 0C     .
9418 C962 CA 59           .Y    ; inc 0008 and clean exit
9419 C964 C9 7E           .~    ; read byte into 0bc2
9420 C966 C9 87           ..    ; read byte into 0bc3 & ^10 and stuff
9421 C968 C9 DF           ..    ; read byte into 0bc4 & stuff
9422 C96A C9 F3           ..    ; read byte into 0bc5 & stuff
9423 C96C CA 07           ..    ; read byte into 0bc6 & stuff
9424 C96E CA 1B           ..    ; read byte into 0bc7 only
9425 C970 CA 23           .#    ; read byte into 0bc8 only
9426 C972 CA 2B           .+    ; read byte into 0bc9 only
9427 C974 CA 33           .3    ; read byte into 0bca only
9428 C976 CA 3B           .;    ; read byte into 0bcb only
9429 C978 CA 43           .C    ; read byte into 0bcc only
9430 C97A CA 4B           .K    ; read byte into 0bcd only
9431 C97C CA 53           .S    ; read byte into 0bce only
9432 C97E F6 10 2F        ../   ldab 102f    ; read SCI data
9433 C981 F7 0B C2        ...   stab 0bc2
9434 C984 7E CA 59        ~.Y   jmp ca59             ;goto51 - inc 0008 and exit
9435 ;
9436 C987 F6 10 2F        ../   ldab 102f    ; read SCI data
9437 C98A F7 0B E3        ...   stab 0be3
9438 C98D F6 10 2F        ../   ldab 102f    ; read SCI data
9439 C990 C4 0F           ..    andb #0f
9440 C992 C1 01           ..    cmpb #01
9441 C994 26 07           &.    bne 07         ; to c99d
9442 C996 C6 02           ..    ldab #02
9443 C998 F7 00 13        ...   stab 0013
9444 C99B 20 1B            .    bra 1b         ; to c9b8
9445 C99D C1 02           ..    cmpb #02
9446 C99F 26 07           &.    bne 07         ; to c9a8
9447 C9A1 C6 04           ..    ldab #04
9448 C9A3 F7 00 13        ...   stab 0013
9449 C9A6 20 10            .    bra 10         ; to c9b8
9450 C9A8 C1 03           ..    cmpb #03
9451 C9AA 26 07           &.    bne 07         ; to c9b3
9452 C9AC C6 08           ..    ldab #08
9453 C9AE F7 00 13        ...   stab 0013
9454 C9B1 20 05            .    bra 05         ; to c9b8
9455 C9B3 C6 01           ..    ldab #01
9456 C9B5 F7 00 13        ...   stab 0013
9457 C9B8 F6 10 2F        ../   ldab 102f    ; read SCI data
9458 C9BB C4 F0           ..    andb #f0
9459 C9BD 54              T     lsrb
9460 C9BE 54              T     lsrb
9461 C9BF 54              T     lsrb
9462 C9C0 54              T     lsrb
9463 C9C1 F7 0B C3        ...   stab 0bc3
9464 C9C4 F6 0B C2        ...   ldab 0bc2
9465 C9C7 F7 0B AA        ...   stab 0baa
9466 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9467 ;while 0bc3^<>0
9468 ;  obaa^:=0baa^*10
9469 ;  obc3^:=0bc3-1
9470 ;endwhile
9471 C9CA F6 0B C3        ...   ldab 0bc3
9472 C9CD 27 0E           '.    beq c9dd
9473 C9CF F6 0B AA        ...   ldab 0baa
9474 C9D2 86 0A           ..    ldaa #0a
9475 C9D4 3D              =     mul
9476 C9D5 F7 0B AA        ...   stab 0baa
9477 C9D8 7A 0B C3        z..   dec 0bc3
9478 C9DB 20 ED            .    bra c9ca
9479 ;
9480 C9DD 20 7A            z    bra 7a       ;goto51 - inc 0008 & clean exit
9481 ;
9482 C9DF F6 10 2F        ../   ldab 102f    ; read SCI data
9483 C9E2 F7 0B C4        ...   stab 0bc4
9484 C9E5 F6 0B C4        ...   ldab 0bc4
9485 C9E8 C1 80           ..    cmpb #80     ; if == 128
9486 C9EA 26 05           &.    bne 05
9487 C9EC C6 0F           ..    ldab #0f     ; put 15 => 0bc4
9488 C9EE F7 0B C4        ...   stab 0bc4
9489 C9F1 20 66            f    bra 66       ;goto51 - inc 0008 & clean exit
9490 ;
9491 C9F3 F6 10 2F        ../   ldab 102f    ; read SCI data
9492 C9F6 F7 0B C5        ...   stab 0bc5
9493 C9F9 F6 0B C5        ...   ldab 0bc5
9494 C9FC C1 80           ..    cmpb #80
9495 C9FE 26 05           &.    bne 05
9496 CA00 C6 0F           ..    ldab #0f
9497 CA02 F7 0B C5        ...   stab 0bc5
9498 CA05 20 52            R    bra 52       ;goto51 - inc 0008 & clean exit
9499 ;
9500 CA07 F6 10 2F        ../   ldab 102f    ; read SCI data
9501 CA0A F7 0B C6        ...   stab 0bc6
9502 CA0D F6 0B C6        ...   ldab 0bc6
9503 CA10 C1 80           ..    cmpb #80
9504 CA12 26 05           &.    bne ca19
9505 CA14 C6 0F           ..    ldab #0f
9506 CA16 F7 0B C6        ...   stab 0bc6
9507 CA19 20 3E            >    bra 3e       ;goto51 - inc 0008 & clean exit
9508 ;
9509 ; read byte of data into 0bc7 - 0bce
9510 CA1B F6 10 2F        ../   ldab 102f    ; read SCI data
9511 CA1E F7 0B C7        ...   stab 0bc7
9512 CA21 20 36            6    bra 36
9513 ;
9514 CA23 F6 10 2F        ../   ldab 102f    ; read SCI data
9515 CA26 F7 0B C8        ...   stab 0bc8
9516 CA29 20 2E            .    bra 2e
9517 ;
9518 CA2B F6 10 2F        ../   ldab 102f    ; read SCI data
9519 CA2E F7 0B C9        ...   stab 0bc9
9520 CA31 20 26            &    bra 26
9521 ;
9522 CA33 F6 10 2F        ../   ldab 102f    ; read SCI data
9523 CA36 F7 0B CA        ...   stab 0bca
9524 CA39 20 1E            .    bra 1e
9525 ;
9526 CA3B F6 10 2F        ../   ldab 102f    ; read SCI data
9527 CA3E F7 0B CB        ...   stab 0bcb
9528 CA41 20 16            .    bra 16
9529 ;
9530 CA43 F6 10 2F        ../   ldab 102f    ; read SCI data
9531 CA46 F7 0B CC        ...   stab 0bcc
9532 CA49 20 0E            .    bra 0e
9533 ;
9534 CA4B F6 10 2F        ../   ldab 102f    ; read SCI data
9535 CA4E F7 0B CD        ...   stab 0bcd
9536 CA51 20 06            .    bra 06
9537 ;
9538 CA53 F6 10 2F        ../   ldab 102f    ; read SCI data
9539 CA56 F7 0B CE        ...   stab 0bce
9540 goto51:
9541 CA59 7C 00 08        |..   inc 0008
9542 goto50:
9543 CA5C 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9544 ;
9545 goto49:
9546 CA5F F6 10 2F        ../   ldab 102f    ; read SCI data
9547 CA62 C4 EF           ..    andb #ef     ; 11101111
9548 CA64 C1 E2           ..    cmpb #e2     ; 11100010
9549 CA66 26 1A           &.    bne 1a       ; if no match, to ca82
9550 CA68 CE 00 17        ...   ldx #0017
9551 CA6B 1C 00 08        ...   bset 00,x, #08
9552 CA6E CE 00 17        ...   ldx #0017
9553 CA71 1C 00 04        ...   bset 00,x, #04
9554 CA74 C6 01           ..    ldab #01
9555 CA76 F7 00 08        ...   stab 0008
9556 CA79 CE 0B C1        ...   ldx #0bc1
9557 CA7C 1D 00 01        ...   bclr 00,x, #01  ; clear card powerup error bit
9558 CA7F 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9559 ;
9560 CA82 F6 10 2F        ../   ldab 102f    ; read SCI data
9561 CA85 C4 02           ..    andb #02
9562 CA87 27 03           '.    beq 03       ; if bit is set then
9563 CA89 7E CB 6C        ~.l   jmp cb6c             ; goto52
9564 CA8C F6 10 2F        ../   ldab 102f    ; read SCI data
9565 CA8F 2C 38           ,8    bge 38       ; if bit 7 unset, to cac9
9566 CA91 F6 00 17        ...   ldab 0017
9567 CA94 C4 08           ..    andb #08
9568 CA96 26 31           &1    bne 31
9569 CA98 F6 10 2F        ../   ldab 102f    ; read SCI data
9570 CA9B C4 78           .x    andb #78     ; 01111000
9571 CA9D 54              T     lsrb
9572 CA9E 54              T     lsrb
9573 CA9F 54              T     lsrb
9574 CAA0 4F              O     clra
9575 CAA1 C3 0B C7        ...   addd #0bc7
9576 CAA4 8F              .     xgdx
9577 CAA5 E6 00           ..    ldab 00,x
9578 CAA7 4F              O     clra
9579 CAA8 37              7     pshb
9580 CAA9 36              6     psha
9581 CAAA F6 0B AA        ...   ldab 0baa
9582 CAAD 4F              O     clra
9583 CAAE BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9584 CAB1 F3 00 40        ..@   addd 0040
9585 CAB4 FD 00 40        ..@   std 0040
9586 CAB7 CE 00 1B        ...   ldx #001b
9587 CABA 1C 00           ..    bset 00,x, #20
9588 CABD CE 00 1B        ...   ldx #001b
9589 CAC0 1D 00 40        ...   bclr 00,x, #40
9590 CAC3 7F 00 25        ..%   clr 0025
9591 CAC6 7E CB 64        ~.d   jmp cb64             ;goto53 - cleanup & exit
9592 ;
9593 CAC9 F6 00 17        ...   ldab 0017
9594 CACC C4 08           ..    andb #08
9595 CACE 26 4A           &J    bne 4a       ;to cb1a
9596 CAD0 F6 10 2F        ../   ldab 102f    ; read SCI data
9597 CAD3 C4 60           .`    andb #60     ; 01100000
9598 CAD5 54              T     lsrb         ;  ^^^^
9599 CAD6 54              T     lsrb
9600 CAD7 54              T     lsrb
9601 CAD8 4F              O     clra
9602 CAD9 C3 0B C7        ...   addd #0bc7
9603 CADC 8F              .     xgdx
9604 CADD E6 00           ..    ldab 00,x
9605 CADF 4F              O     clra
9606 CAE0 37              7     pshb
9607 CAE1 36              6     psha
9608 CAE2 F6 0B AA        ...   ldab 0baa
9609 CAE5 4F              O     clra
9610 CAE6 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9611 CAE9 FD 0B BD        ...   std 0bbd
9612 CAEC FC 0B BD        ...   ldd 0bbd
9613 CAEF F3 00 40        ..@   addd 0040
9614 CAF2 FD 00 40        ..@   std 0040
9615 CAF5 F6 00 21        ..!   ldab 0021
9616 CAF8 C4 F8           ..    andb #f8     ; 11111000
9617 CAFA 37              7     pshb
9618 CAFB F6 10 2F        ../   ldab 102f    ; read SCI data
9619 CAFE C4 1C           ..    andb #1c     ; 00011100
9620 CB00 54              T     lsrb
9621 CB01 54              T     lsrb
9622 CB02 30              0     tsx
9623 CB03 EA 00           ..    orb 00,x     ; or lower 3 bits with 0021
9624 CB05 31              1     ins
9625 CB06 F7 00 21        ..!   stab 0021
9626 CB09 F6 10 2F        ../   ldab 102f    ; read SCI data
9627 CB0C F7 0B BC        ...   stab 0bbc
9628 CB0F CE 00 1B        ...   ldx #001b
9629 CB12 1D 00 40        ..    bclr 00,x, #40
9630 CB15 7F 00 25        ..%   clr 0025
9631 CB18 20 4A            J    bra 4a       ;goto53 - more cleanups and exit
9632 ;
9633 CB1A F6 10 2F        ../   ldab 102f    ; read SCI data
9634 CB1D C4 E0           ..    andb #e0     ; 11100000
9635 CB1F 54              T     lsrb
9636 CB20 54              T     lsrb
9637 CB21 54              T     lsrb
9638 CB22 54              T     lsrb
9639 CB23 54              T     lsrb          ; shr5
9640 CB24 4F              O     clra
9641 CB25 C3 0B C7        ...   addd #0bc7
9642 CB28 8F              .     xgdx
9643 CB29 E6 00           ..    ldab 00,x
9644 CB2B 4F              O     clra
9645 CB2C 37              7     pshb
9646 CB2D 36              6     psha
9647 CB2E F6 0B AA        ...   ldab 0baa
9648 CB31 4F              O     clra
9649 CB32 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9650 CB35 FD 0B BD        ...   std 0bbd
9651 CB38 FC 0B BD        ...   ldd 0bbd
9652 CB3B F3 00 40        ..@   addd 0040
9653 CB3E FD 00 40        ..@   std 0040
9654 CB41 F6 00 21        ..!   ldab 0021
9655 CB44 C4 F8           ..    andb #f8
9656 CB46 37              7     pshb
9657 CB47 F6 10 2F        ../   ldab 102f    ; read SCI data
9658 CB4A C4 1C           ..    andb #1c
9659 CB4C 54              T     lsrb
9660 CB4D 54              T     lsrb
9661 CB4E 30              0     tsx
9662 CB4F EA 00           ..    orb 00,x
9663 CB51 31              1     ins
9664 CB52 F7 00 21        ..!   stab 0021
9665 CB55 F6 10 2F        ../   ldab 102f    ; read SCI data
9666 CB58 F7 0B BC        ...   stab 0bbc
9667 CB5B CE 00 1B        ...   ldx #001b
9668 CB5E 1D 00 40        ...   bclr 00,x, #40
9669 CB61 7F 00 25        ..%   clr 0025
9670 goto53: ; more cleanups and exit
9671 CB64 7F 00 2C        ..,   clr 002c
9672 CB67 7F 00 3A        ..:   clr 003a
9673 CB6A 20 6E            n    bra 6e       ; to cbda - cleanup and exit
9674 goto52:
9675 CB6C F6 10 2F        ../   ldab 102f    ; read SCI data
9676 CB6F C4 03           ..    andb #03
9677 CB71 C1 02           ..    cmpb #02
9678 CB73 26 0F           &.    bne 0f       ; to bc84
9679 CB75 F6 00 21        ..!   ldab 0021
9680 CB78 C4 08           ..    andb #08
9681 CB7A 27 08           '.    beq 08
9682 CB7C CE 00 21        ..!   ldx #0021
9683 CB7F 1C 00 10        ...   bset 00,x, #10
9684 CB82 20 56            V    bra 56       ;goto48 - cleanup and exit
9685 ;
9686 CB84 F6 10 2F        ../   ldab 102f    ; read SCI data
9687 CB87 C4 EF           ..    andb #ef     ; 11101111
9688 CB89 C1 E3           ..    cmpb #e3     ; 11100111
9689 CB8B 26 08           &.    bne 08       ; to cb95
9690 CB8D CE 0B C1        ...   ldx #0bc1
9691 CB90 1D 00 02        ...   bclr 00,x, #02  ; clear card powerup error bit
9692 CB93 20 45            E    bra 45       ;goto48 - cleanup and exit
9693 ;
9694 ; this could be the coin mech powerup message?
9695 CB95 F6 10 2F        ../   ldab 102f    ; read SCI data
9696 CB98 C4 EF           ..    andb #ef     ; 11101111
9697 CB9A C1 63           .c    cmpb #63     ; 01101110
9698 CB9C 26 1C           &.    bne 1c       ; to cbba
9699 CB9E CE 0B C1        ...   ldx #0bc1    ; clear changer powerup error bit
9700 CBA1 1D 00 01        ...   bclr 00,x, #01
9701 CBA4 F6 0B C0        ...   ldab 0bc0
9702 CBA7 C4 01           ..    andb #01     ; do we have a changer?
9703 CBA9 27 0D           '.    beq 0d       ; to cbb8 - cleanup & exit
9704 CBAB F6 0B C0        ...   ldab 0bc0
9705 CBAE C4 04           ..    andb #04     ; if we don't have a card reader, we don't have an error reading from it. duh.
9706 CBB0 27 06           '.    beq 06       ; to cbb8
9707 CBB2 CE 0B C1        ...   ldx #0bc1
9708 CBB5 1D 00 02        ...   bclr 00,x, #02  ; clear card powerup error bit
9709 CBB8 20 20                 bra 20       ;goto48 - cleanup & exit
9710 ;
9711 ; the coin mech is telling us it has a bad sensor
9712 CBBA F6 10 2F        ../   ldab 102f    ; read SCI data
9713 CBBD C4 EF           ..    andb #ef     ; 11101111
9714 CBBF C1 67           .g    cmpb #67     ; 01100111
9715 CBC1 26 08           &.    bne 08       ; to cbcb
9716 CBC3 CE 0B C1        ...   ldx #0bc1
9717 CBC6 1C 00           ..    bset 00,x, #20 ; set bad sensor error bit
9718 CBC9 20 0F                 bra 0f       ;goto48 - cleanup & exit
9719 ;
9720 CBCB F6 10 2F        ../   ldab 102f    ; read SCI data
9721 CBCE C4 EF           ..    andb #ef     ; 11101111
9722 CBD0 C1 27           .'    cmpb #27     ; 00100111
9723 CBD2 26 06           &.    bne 06       ;goto48 - cleanup & exit
9724 ;
9725 CBD4 CE 0B C1        ...   ldx #0bc1 ; set coin jam error bit
9726 CBD7 1C 00 10        ...   bset 00,x, #10
9727 goto48: ; cleanup and exit
9728 CBDA CE 00 1A        ...   ldx #001a
9729 CBDD 1C 00 02        ...   bset 00,x, #02
9730 CBE0 F6 00 1A        ...   ldab 001a
9731 CBE3 F7 30 00        .0.   stab 3000    ; changer send' high
9732 CBE6 F6 00 17        ...   ldab 0017
9733 CBE9 C4 04           ..    andb #04
9734 CBEB 26 05           &.    bne 05       ; to cbf2
9735 CBED C6 06           ..    ldab #06
9736 CBEF F7 00 07        ...   stab 0007
9737 CBF2 F6 00 26        ..&   ldab 0026    ; 0026 ~= 0026
9738 CBF5 53              S     comb
9739 CBF6 F7 00 26        ..&   stab 0026
9740 CBF9 7F 00 3D        ..=   clr 003d
9741 CBFC 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9742 ;
9743 ;
9744 ;
9745 ;
9746 ;
9747 goto44:
9748 CBFF F6 0B C0        ...   ldab 0bc0    ; do we have a changer?
9749 CC02 C4 02           ..    andb #02
9750 CC04 26 03           &.    bne 03       ; if so, swallow & exit
9751 CC06 7E CE 3B        ~.;   jmp ce3b             ; goto54  - swallow a byte & exit
9752 ;
9753 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
9754 CC0C C4 E0           ..    andb #e0     ; 11100000
9755 CC0E C1 20           .     cmpb #20     ; 00100000
9756 CC10 27 03           '.    beq 03
9757 CC12 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow a byte & exit
9758 ;
9759 CC15 C6 32           .2    ldab #32     ; 50  00110010
9760 CC17 F7 00 2F        ../   stab 002f
9761 CC1A CE 00 1B        ...   ldx #001b    ; say we have a link master?
9762 CC1D 1C 00 02        ...   bset 00,x, #02
9763 CC20 F6 10 2E        ...   ldab 102e    ; SCI status
9764 CC23 C4 02           ..    andb #02     ; test for Framing Error
9765 CC25 26 08           &.    bne 08
9766 CC27 BD C7 C0        ...   jsr c7c0             ;jump49 - parity test
9767 CC2A 83 00 00        ...   subd #0000
9768 CC2D 26 0F           &.    bne 0f       ; if failed, to cc3e
9769 CC2F F6 10 2F        ../   ldab 102f    ; read SCI data
9770 CC32 30              0     tsx
9771 CC33 E7 00           ..    stab 00,x
9772 CC35 CC 00 FF        ...   ldd #00ff
9773 CC38 BD C7 E7        ...   jsr c7e7             ;jump37 - send #FF to coin mech
9774 CC3B 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9775 ;
9776 CC3E F6 10 2F        ../   ldab 102f    ; read SCI data
9777 CC41 C1 3F           .?    cmpb #3f     ; 00111111
9778 CC43 26 0A           &.    bne 0a       ; to cc4f
9779 CC45 F6 00 43        ..C   ldab 0043
9780 CC48 4F              O     clra
9781 CC49 BD C7 E7        ...   jsr c7e7             ;jump37 - send 0043 to coin mech - retry?
9782 CC4C 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9783 ;
9784 CC4F F6 00 08        ...   ldab 0008
9785 CC52 26 03           &.    bne 03
9786 CC54 7E CD 94        ~..   jmp cd94             ;goto56
9787 ;
9788 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
9789 CC5A C4 F0           ..    andb #f0     ; 11110000
9790 CC5C C1 20           .     cmpb #20     ; 00100000
9791 CC5E 27 03           '.    beq 03
9792 CC60 7E CD 94        ~..   jmp cd94             ;goto56
9793 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
9794 CC66 C4 0F           ..    andb #0f
9795 CC68 30              0     tsx
9796 CC69 E7 00           ..    stab 00,x
9797 CC6B F6 00 08        ...   ldab 0008
9798 CC6E 4F              O     clra
9799 CC6F BD FE 16        ...   jsr fe16             ;jump2
9800 CC72 00 01 00 07     .     ; array data for jump2
9801 CC76 CD 7A           .     ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9802 CC78 CC 88           ..    ; if 0017&#1 sp=>0076, else sp=>0040, then same as above
9803 CC7A CC A2           ..    ; if 0017&#1 0076+=sp<<4, else 0040+=sp<<4, then same as above
9804 CC7C CC CA           ..    ; if 0017&#1 0076+=sp<<8, else 0040+=sp<<8, then same as above
9805 CC7E CC EE           ..    ; if 0017&#1 0076+=sp<<16, else 0040+=sp<16, then same as above
9806 CC80 CD 19           ..    ; 0baa = sp, then same as above
9807 CC82 CD 21           .     ; 0baa = sp<<4, then same as above
9808 CC83 CD 30           !.    ; 0013 = sp, then same as above
9809 CC85 CD 38           0     ; read byte & #01,
9810 ;
9811 CC88 F6 00 17        ...   ldab 0017
9812 CC8B C4 01           ..    andb #01
9813 CC8D 27 09           '.    beq 09       ; to cc98
9814 CC8F 30              0     tsx
9815 CC90 E6 00           ..    ldab 00,x
9816 CC92 4F              O     clra
9817 CC93 FD 00 76        ..v   std 0076
9818 CC96 20 07            .    bra 07       ; to cc9f
9819 CC98 30              0     tsx
9820 CC99 E6 00           ..    ldab 00,x
9821 CC9B 4F              O     clra
9822 CC9C FD 00 40        ..@   std 0040
9823 CC9F 7E CD 7A        ~.z   jmp cd7a             ;goto57
9824 ;
9825 CCA2 F6 00 17        ...   ldab 0017
9826 CCA5 C4 01           ..    andb #01
9827 CCA7 27 10           '.    beq 10       ; to ccb9
9828 CCA9 30              0     tsx
9829 CCAA E6 00           ..    ldab 00,x
9830 CCAC 4F              O     clra
9831 CCAD 05              .     asld
9832 CCAE 05              .     asld
9833 CCAF 05              .     asld
9834 CCB0 05              .     asld
9835 CCB1 F3 00 76        ..v   addd 0076
9836 CCB4 FD 00 76        ..v   std 0076
9837 CCB7 20 0E            .    bra 0e       ; to ccc7
9838 CCB9 30              0     tsx
9839 CCBA E6 00           ..    ldab 00,x
9840 CCBC 4F              O     clra
9841 CCBD 05              .     asld
9842 CCBE 05              .     asld
9843 CCBF 05              .     asld
9844 CCC0 05              .     asld
9845 CCC1 F3 00 40        ..@   addd 0040
9846 CCC4 FD 00 40        ..@   std 0040
9847 CCC7 7E CD 7A        ~.z   jmp cd7a             ;goto57
9848 ;
9849 CCCA F6 00 17        ...   ldab 0017
9850 CCCD C4 01           ..    andb #01
9851 CCCF 27 0E           '.    beq 0e       ; to ccdf
9852 CCD1 30              0     tsx
9853 CCD2 E6 00           ..    ldab 00,x
9854 CCD4 4F              O     clra
9855 CCD5 17              .     tba
9856 CCD6 5F              _     clrb
9857 CCD7 F3 00 76        ..v   addd 0076
9858 CCDA FD 00 76        ..v   std 0076
9859 CCDD 20 0C            .    bra 0c       ; to cceb
9860 CCDF 30              0     tsx
9861 CCE0 E6 00           ..    ldab 00,x
9862 CCE2 4F              O     clra
9863 CCE3 17              .     tba
9864 CCE4 5F              _     clrb
9865 CCE5 F3 00 40        ..@   addd 0040
9866 CCE8 FD 00 40        ..@   std 0040
9867 CCEB 7E CD 7A        ~.z   jmp cd7a             ;goto57
9868 ;
9869 CCEE F6 00 17        ...   ldab 0017
9870 CCF1 C4 01           ..    andb #01
9871 CCF3 27 12           '.    beq 12     ; to cd07
9872 CCF5 30              0     tsx
9873 CCF6 E6 00           ..    ldab 00,x
9874 CCF8 4F              O     clra
9875 CCF9 17              .     tba
9876 CCFA 48              H     asla
9877 CCFB 48              H     asla
9878 CCFC 48              H     asla
9879 CCFD 48              H     asla
9880 CCFE 5F              _     clrb
9881 CCFF F3 00 76        ..v   addd 0076
9882 CD02 FD 00 76        ..v   std 0076
9883 CD05 20 10            .    bra 10     ; to cd17
9884 CD07 30              0     tsx
9885 CD08 E6 00           ..    ldab 00,x
9886 CD0A 4F              O     clra
9887 CD0B 17              .     tba
9888 CD0C 48              H     asla
9889 CD0D 48              H     asla
9890 CD0E 48              H     asla
9891 CD0F 48              H     asla
9892 CD10 5F              _     clrb
9893 CD11 F3 00 40        ..@   addd 0040
9894 CD14 FD 00 40        ..@   std 0040
9895 CD17 20 61            a    bra 61
9896 ;
9897 CD19 30              0     tsx
9898 CD1A E6 00           ..    ldab 00,x
9899 CD1C F7 0B AA        ...   stab 0baa
9900 CD1F 20 59            Y    bra 59 ; to cd7a - goto57
9901 ;
9902 CD21 30              0     tsx
9903 CD22 E6 00           ..    ldab 00,x
9904 CD24 58              X     aslb
9905 CD25 58              X     aslb
9906 CD26 58              X     aslb
9907 CD27 58              X     aslb
9908 CD28 FB 0B AA        ...   addb 0baa
9909 CD2B F7 0B AA        ...   stab 0baa
9910 CD2E 20 4A            J    bra 4a ; to cd7a - goto57
9911 ;
9912 CD30 30              0     tsx
9913 CD31 E6 00           ..    ldab 00,x
9914 CD33 F7 00 13        ...   stab 0013
9915 CD36 20 42            B    bra 42 ; to cd7a - goto57
9916 ;
9917 CD38 F6 10 2F        ../   ldab 102f    ; read SCI data
9918 CD3B C4 01           ..    andb #01
9919 CD3D 27 08           '.    beq 08          ; to cd47
9920 CD3F CE 00 21        ..!   ldx #0021
9921 CD42 1C 00 40        ...   bset 00,x, #40
9922 CD45 20 06            .    bra 06          ; to cd4d
9923 CD47 CE 00 21        ..!   ldx #0021
9924 CD4A 1D 00 40        ...   bclr 00,x, #40
9925 ;
9926 CD4D F6 00 17        ...   ldab 0017
9927 CD50 C4 01           ..    andb #01
9928 CD52 27 17           '.    beq 17     ; to cd6b
9929 CD54 F6 0B AA        ...   ldab 0baa
9930 CD57 4F              O     clra
9931 CD58 37              7     pshb
9932 CD59 36              6     psha
9933 CD5A FC 00 76        ..v   ldd 0076
9934 CD5D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9935 CD60 FD 00 76        ..v   std 0076     ; 0076 *= 0baa
9936 CD63 CE 00 17        ...   ldx #0017
9937 CD66 1D 00 01        ...   bclr 00,x, #01
9938 CD69 20 0F            .    bra 0f       ;goto57 - send byte & exit
9939 CD6B F6 0B AA        ...   ldab 0baa
9940 CD6E 4F              O     clra
9941 CD6F 37              7     pshb
9942 CD70 36              6     psha
9943 CD71 FC 00 40        ..@   ldd 0040
9944 CD74 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9945 CD77 FD 00 40        ..@   std 0040     ; 0040 *= 0baa
9946 goto57:  ; sends the byte, clearing the counter if its the 8th byte
9947 CD7A F6 00 08        ...   ldab 0008
9948 CD7D C1 09           ..    cmpb #09
9949 CD7F 26 08           &.    bne 08
9950 CD81 7F 00 2C        ..,   clr 002c
9951 CD84 7F 00 08        ...   clr 0008
9952 CD87 20 03            .    bra 03
9953 CD89 7C 00 08        |..   inc 0008
9954 CD8C 5F              _     clrb
9955 CD8D 4F              O     clra
9956 CD8E BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9957 CD91 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9958 goto56:
9959 CD94 F6 10 2F        ../   ldab 102f    ; read SCI data
9960 CD97 4F              O     clra
9961 CD98 BD FE 32        ..2   jsr fe32             ;jump25
9962 CD9B CD B1 00 31     ...1  ; 49 "1"
9963 CD9F CD DB 00 01     ....  ; 50 "2"
9964 CDA3 CE 20 00 01     . ..  ; 51 "3"
9965 CDA7 CE 28 00 05     .(..  ; 56 "8"
9966 CDAB CE 34 FF C8     .4..  ; 0
9967 CDAF 00 00           ..    ; end of array data
9968 CDB1 F6 00 21        ..!   ldab 0021
9969 CDB4 2C 08           ,.    bge 08
9970 CDB6 CC 00 80        ...   ldd #0080
9971 CDB9 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9972 CDBC 20 1B            .    bra 1b
9973 CDBE 5F              _     clrb
9974 CDBF 4F              O     clra
9975 CDC0 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9976 CDC3 F6 00 1F        ...   ldab 001f
9977 CDC6 C4 08           ..    andb #08
9978 CDC8 27 0C           '.    beq 0c
9979 CDCA F6 0B C0        ...   ldab 0bc0
9980 CDCD C4 10           ..    andb #10     ; have link master price holding
9981 CDCF 27 05           '.    beq 05
9982 CDD1 7C 00 75        |.u   inc 0075
9983 CDD4 20 03            .    bra 03
9984 CDD6 7F 00 75        ..u   clr 0075
9985 CDD9 20 5E            ^    bra 5e
9986 CDDB F6 00 1D        ...   ldab 001d
9987 CDDE C4 02           ..    andb #02
9988 CDE0 27 07           '.    beq 07
9989 CDE2 F6 00 19        ...   ldab 0019
9990 CDE5 C4 08           ..    andb #08
9991 CDE7 26 19           &.    bne 19
9992 CDE9 CC 00 FE        ...   ldd #00fe
9993 CDEC BD C7 E7        ...   jsr c7e7             ;jump37 - send #fe to coin mech
9994 CDEF F6 00 1F        ...   ldab 001f
9995 CDF2 C4 08           ..    andb #08
9996 CDF4 27 0A           '.    beq 0a
9997 CDF6 F6 0B C0        ...   ldab 0bc0
9998 CDF9 C4 10           ..    andb #10     ; have link master price holding
9999 CDFB 27 03           '.    beq 03
10000 CDFD 7C 00 75        |.u   inc 0075
10001 CE00 20 1C            .    bra 1c
10002 CE02 FC 00 44        ..D   ldd 0044
10003 CE05 37              7     pshb
10004 CE06 36              6     psha
10005 CE07 F6 0B AA        ...   ldab 0baa
10006 CE0A 4F              O     clra
10007 CE0B 38              8     pulx
10008 CE0C 8F              .     xgdx
10009 CE0D 02              .     idiv
10010 CE0E 8F              .     xgdx
10011 CE0F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10012 CE12 CE 00 19        ...   ldx #0019
10013 CE15 1D 00 08        ...   bclr 00,x, #08
10014 CE18 CE 00 1F        ...   ldx #001f
10015 CE1B 1C 00 08        ...   bset 00,x, #08
10016 CE1E 20 19            .    bra 19
10017 CE20 CE 00 1D        ...   ldx #001d
10018 CE23 1D 00 02        ...   bclr 00,x, #02
10019 CE26 20 11            .    bra 11
10020 CE28 C6 01           ..    ldab #01
10021 CE2A F7 00 08        ...   stab 0008
10022 CE2D 5F              _     clrb
10023 CE2E 4F              O     clra
10024 CE2F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10025 CE32 20 05            .    bra 05
10026 CE34 5F              _     clrb
10027 CE35 4F              O     clra
10028 CE36 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10029 goto55:
10030 CE39 20 0B            .    bra 0b       ; to ce46 (exit)
10031 goto54: ; just swallow a byte?
10032 CE3B F6 10 2E        ...   ldab 102e    ; SCI Status
10033 CE3E 30              0     tsx
10034 CE3F E7 00           ..    stab 00,x    ; store into stack variable
10035 CE41 F6 10 2F        ../   ldab 102f    ; read SCI data
10036 CE44 E7 00           ..    stab 00,x
10037 goto47:
10038 CE46 31              1     ins
10039 CE47 3B              ;     rti
10040
10041 jump48:
10042 ;
10043 CE48 F6 0B C4        ...   ldab 0bc4
10044 CE4B F1 0B C5        ...   cmpb 0bc5
10045 CE4E 25 53           %S    bcs 53     ; if 0bc4 < 0bc5 to cea3
10046 CE50 F6 0B C5        ...   ldab 0bc5
10047 CE53 F1 0B C6        ...   cmpb 0bc6
10048 CE56 25 4B           %K    bcs 4b     ; if 0bc5 < 0bc6 to cea3
10049 ; so here we have 0bc6 < 0bc5 < 0bc4
10050 CE58 F6 0B C4        ...   ldab 0bc4
10051 CE5B 4F              O     clra
10052 CE5C C3 0B C7        ...   addd #0bc7
10053 CE5F 8F              .     xgdx
10054 CE60 E6 00           ..    ldab 00,x
10055 CE62 4F              O     clra
10056 CE63 FD 0B DD        ...   std 0bdd
10057 CE66 F6 0B C5        ...   ldab 0bc5
10058 CE69 4F              O     clra
10059 CE6A C3 0B C7        ...   addd #0bc7
10060 CE6D 8F              .     xgdx
10061 CE6E E6 00           ..    ldab 00,x
10062 CE70 4F              O     clra
10063 CE71 FD 0B DF        ...   std 0bdf
10064 CE74 F6 0B C6        ...   ldab 0bc6
10065 CE77 4F              O     clra
10066 CE78 C3 0B C7        ...   addd #0bc7
10067 CE7B 8F              .     xgdx
10068 CE7C E6 00           ..    ldab 00,x
10069 CE7E 4F              O     clra
10070 CE7F FD 0B E1        ...   std 0be1
10071 CE82 C6 01           ..    ldab #01
10072 CE84 F7 0B D7        ...   stab 0bd7
10073 CE87 C6 04           ..    ldab #04
10074 CE89 F7 0B D8        ...   stab 0bd8
10075 CE8C C6 02           ..    ldab #02
10076 CE8E F7 0B D9        ...   stab 0bd9
10077 CE91 C6 20           .     ldab #20
10078 CE93 F7 0B DA        ...   stab 0bda
10079 CE96 C6 08           ..    ldab #08
10080 CE98 F7 0B DB        ...   stab 0bdb
10081 CE9B C6 10           ..    ldab #10
10082 CE9D F7 0B DC        ...   stab 0bdc
10083 CEA0 7E D0 66        ~.f   jmp d066             ;goto58 - multiply & exit
10084 ;
10085 CEA3 F6 0B C4        ...   ldab 0bc4
10086 CEA6 F1 0B C6        ...   cmpb 0bc6
10087 CEA9 25 53           %S    bcs 53     ; if 0bc4 < 0bc6 to cefe
10088 CEAB F6 0B C6        ...   ldab 0bc6
10089 CEAE F1 0B C5        ...   cmpb 0bc5
10090 CEB1 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc5 to cefe
10091 ; so here we have 0bc5 < 0bc6 < 0bc4
10092 CEB3 F6 0B C4        ...   ldab 0bc4
10093 CEB6 4F              O     clra
10094 CEB7 C3 0B C7        ...   addd #0bc7
10095 CEBA 8F              .     xgdx
10096 CEBB E6 00           ..    ldab 00,x
10097 CEBD 4F              O     clra
10098 CEBE FD 0B DD        ...   std 0bdd
10099 CEC1 F6 0B C6        ...   ldab 0bc6
10100 CEC4 4F              O     clra
10101 CEC5 C3 0B C7        ...   addd #0bc7
10102 CEC8 8F              .     xgdx
10103 CEC9 E6 00           ..    ldab 00,x
10104 CECB 4F              O     clra
10105 CECC FD 0B DF        ...   std 0bdf
10106 CECF F6 0B C5        ...   ldab 0bc5
10107 CED2 4F              O     clra
10108 CED3 C3 0B C7        ...   addd #0bc7
10109 CED6 8F              .     xgdx
10110 CED7 E6 00           ..    ldab 00,x
10111 CED9 4F              O     clra
10112 CEDA FD 0B E1        ...   std 0be1
10113 CEDD C6 01           ..    ldab #01
10114 CEDF F7 0B D7        ...   stab 0bd7
10115 CEE2 C6 02           ..    ldab #02
10116 CEE4 F7 0B D8        ...   stab 0bd8
10117 CEE7 C6 04           ..    ldab #04
10118 CEE9 F7 0B D9        ...   stab 0bd9
10119 CEEC C6 20           .     ldab #20
10120 CEEE F7 0B DA        ...   stab 0bda
10121 CEF1 C6 10           ..    ldab #10
10122 CEF3 F7 0B DB        ...   stab 0bdb
10123 CEF6 C6 08           ..    ldab #08
10124 CEF8 F7 0B DC        ...   stab 0bdc
10125 CEFB 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10126 ;
10127 CEFE F6 0B C5        ...   ldab 0bc5
10128 CF01 F1 0B C4        ...   cmpb 0bc4
10129 CF04 25 53           %S    bcs 53    ; if 0bc5 < 0bc4 to cf59
10130 CF06 F6 0B C4        ...   ldab 0bc4
10131 CF09 F1 0B C6        ...   cmpb 0bc6
10132 CF0C 25 4B           %K    bcs 4b    ; if 0bc4 < 0bc6 to cf59
10133 ; so here we have 0bc6 < 0bc4 < 0bc5
10134 CF0E F6 0B C5        ...   ldab 0bc5
10135 CF11 4F              O     clra
10136 CF12 C3 0B C7        ...   addd #0bc7
10137 CF15 8F              .     xgdx
10138 CF16 E6 00           ..    ldab 00,x
10139 CF18 4F              O     clra
10140 CF19 FD 0B DD        ...   std 0bdd
10141 CF1C F6 0B C4        ...   ldab 0bc4
10142 CF1F 4F              O     clra
10143 CF20 C3 0B C7        ...   addd #0bc7
10144 CF23 8F              .     xgdx
10145 CF24 E6 00           ..    ldab 00,x
10146 CF26 4F              O     clra
10147 CF27 FD 0B DF        ...   std 0bdf
10148 CF2A F6 0B C6        ...   ldab 0bc6
10149 CF2D 4F              O     clra
10150 CF2E C3 0B C7        ...   addd #0bc7
10151 CF31 8F              .     xgdx
10152 CF32 E6 00           ..    ldab 00,x
10153 CF34 4F              O     clra
10154 CF35 FD 0B E1        ...   std 0be1
10155 CF38 C6 04           ..    ldab #04
10156 CF3A F7 0B D7        ...   stab 0bd7
10157 CF3D C6 01           ..    ldab #01
10158 CF3F F7 0B D8        ...   stab 0bd8
10159 CF42 C6 02           ..    ldab #02
10160 CF44 F7 0B D9        ...   stab 0bd9
10161 CF47 C6 08           ..    ldab #08
10162 CF49 F7 0B DA        ...   stab 0bda
10163 CF4C C6 20           .     ldab #20
10164 CF4E F7 0B DB        ...   stab 0bdb
10165 CF51 C6 10           ..    ldab #10
10166 CF53 F7 0B DC        ...   stab 0bdc
10167 CF56 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10168 ;
10169 CF59 F6 0B C5        ...   ldab 0bc5
10170 CF5C F1 0B C6        ...   cmpb 0bc6
10171 CF5F 25 53           %S    bcs 53     ; if 0bc5 < 0bc6 to cfb4
10172 CF61 F6 0B C6        ...   ldab 0bc6
10173 CF64 F1 0B C4        ...   cmpb 0bc4
10174 CF67 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc4 to cfb4
10175 ; so here we have 0bc4 < 0bc6 < 0bc5
10176 CF69 F6 0B C5        ...   ldab 0bc5
10177 CF6C 4F              O     clra
10178 CF6D C3 0B C7        ...   addd #0bc7
10179 CF70 8F              .     xgdx
10180 CF71 E6 00           ..    ldab 00,x
10181 CF73 4F              O     clra
10182 CF74 FD 0B DD        ...   std 0bdd
10183 CF77 F6 0B C6        ...   ldab 0bc6
10184 CF7A 4F              O     clra
10185 CF7B C3 0B C7        ...   addd #0bc7
10186 CF7E 8F              .     xgdx
10187 CF7F E6 00           ..    ldab 00,x
10188 CF81 4F              O     clra
10189 CF82 FD 0B DF        ...   std 0bdf
10190 CF85 F6 0B C4        ...   ldab 0bc4
10191 CF88 4F              O     clra
10192 CF89 C3 0B C7        ...   addd #0bc7
10193 CF8C 8F              .     xgdx
10194 CF8D E6 00           ..    ldab 00,x
10195 CF8F 4F              O     clra
10196 CF90 FD 0B E1        ...   std 0be1
10197 CF93 C6 04           ..    ldab #04
10198 CF95 F7 0B D7        ...   stab 0bd7
10199 CF98 C6 02           ..    ldab #02
10200 CF9A F7 0B D8        ...   stab 0bd8
10201 CF9D C6 01           ..    ldab #01
10202 CF9F F7 0B D9        ...   stab 0bd9
10203 CFA2 C6 08           ..    ldab #08
10204 CFA4 F7 0B DA        ...   stab 0bda
10205 CFA7 C6 10           ..    ldab #10
10206 CFA9 F7 0B DB        ...   stab 0bdb
10207 CFAC C6 20           .     ldab #20
10208 CFAE F7 0B DC        ...   stab 0bdc
10209 CFB1 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10210 ;
10211 CFB4 F6 0B C6        ...   ldab 0bc6
10212 CFB7 F1 0B C4        ...   cmpb 0bc4
10213 CFBA 25 52           %R    bcs 52    ; if 0bc6 < 0bc4 to d00e
10214 CFBC F6 0B C4        ...   ldab 0bc4
10215 CFBF F1 0B C5        ...   cmpb 0bc5
10216 CFC2 25 4A           %J    bcs 4a    ; if 0bc4 < 0bc5 to d00e
10217 ; so here we have 0bc5 < 0bc4 < 0bc6
10218 CFC4 F6 0B C6        ...   ldab 0bc6
10219 CFC7 4F              O     clra
10220 CFC8 C3 0B C7        ...   addd #0bc7
10221 CFCB 8F              .     xgdx
10222 CFCC E6 00           ..    ldab 00,x
10223 CFCE 4F              O     clra
10224 CFCF FD 0B DD        ...   std 0bdd
10225 CFD2 F6 0B C4        ...   ldab 0bc4
10226 CFD5 4F              O     clra
10227 CFD6 C3 0B C7        ...   addd #0bc7
10228 CFD9 8F              .     xgdx
10229 CFDA E6 00           ..    ldab 00,x
10230 CFDC 4F              O     clra
10231 CFDD FD 0B DF        ...   std 0bdf
10232 CFE0 F6 0B C5        ...   ldab 0bc5
10233 CFE3 4F              O     clra
10234 CFE4 C3 0B C7        ...   addd #0bc7
10235 CFE7 8F              .     xgdx
10236 CFE8 E6 00           ..    ldab 00,x
10237 CFEA 4F              O     clra
10238 CFEB FD 0B E1        ...   std 0be1
10239 CFEE C6 02           ..    ldab #02
10240 CFF0 F7 0B D7        ...   stab 0bd7
10241 CFF3 C6 01           ..    ldab #01
10242 CFF5 F7 0B D8        ...   stab 0bd8
10243 CFF8 C6 04           ..    ldab #04
10244 CFFA F7 0B D9        ...   stab 0bd9
10245 CFFD C6 10           ..    ldab #10
10246 CFFF F7 0B DA        ...   stab 0bda
10247 D002 C6 20           .     ldab #20
10248 D004 F7 0B DB        ...   stab 0bdb
10249 D007 C6 08           ..    ldab #08
10250 D009 F7 0B DC        ...   stab 0bdc
10251 D00C 20 58            X    bra 58      ;goto58 - multiply and exit
10252 ;
10253 ; we know that 0bc4 < 0bc5 < 0bc6
10254 D00E F6 0B C6        ...   ldab 0bc6
10255 D011 F1 0B C5        ...   cmpb 0bc5
10256 D014 25 50           %P    bcs 50
10257 D016 F6 0B C5        ...   ldab 0bc5
10258 D019 F1 0B C4        ...   cmpb 0bc4
10259 D01C 25 48           %H    bcs 48
10260 D01E F6 0B C6        ...   ldab 0bc6
10261 D021 4F              O     clra
10262 D022 C3 0B C7        ...   addd #0bc7
10263 D025 8F              .     xgdx
10264 D026 E6 00           ..    ldab 00,x
10265 D028 4F              O     clra
10266 D029 FD 0B DD        ...   std 0bdd
10267 D02C F6 0B C5        ...   ldab 0bc5
10268 D02F 4F              O     clra
10269 D030 C3 0B C7        ...   addd #0bc7
10270 D033 8F              .     xgdx
10271 D034 E6 00           ..    ldab 00,x
10272 D036 4F              O     clra
10273 D037 FD 0B DF        ...   std 0bdf
10274 D03A F6 0B C4        ...   ldab 0bc4
10275 D03D 4F              O     clra
10276 D03E C3 0B C7        ...   addd #0bc7
10277 D041 8F              .     xgdx
10278 D042 E6 00           ..    ldab 00,x
10279 D044 4F              O     clra
10280 D045 FD 0B E1        ...   std 0be1
10281 D048 C6 02           ..    ldab #02
10282 D04A F7 0B D7        ...   stab 0bd7
10283 D04D C6 04           ..    ldab #04
10284 D04F F7 0B D8        ...   stab 0bd8
10285 D052 C6 01           ..    ldab #01
10286 D054 F7 0B D9        ...   stab 0bd9
10287 D057 C6 10           ..    ldab #10
10288 D059 F7 0B DA        ...   stab 0bda
10289 D05C C6 08           ..    ldab #08
10290 D05E F7 0B DB        ...   stab 0bdb
10291 D061 C6 20           .     ldab #20
10292 D063 F7 0B DC        ...   stab 0bdc   ;goto58 - multiply and exit
10293 ;
10294 goto58:
10295 D066 F6 0B AA        ...   ldab 0baa
10296 D069 4F              O     clra
10297 D06A 37              7     pshb
10298 D06B 36              6     psha
10299 D06C FC 0B DD        ...   ldd 0bdd
10300 D06F BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10301 D072 FD 0B DD        ...   std 0bdd
10302 D075 F6 0B AA        ...   ldab 0baa
10303 D078 4F              O     clra
10304 D079 37              7     pshb
10305 D07A 36              6     psha
10306 D07B FC 0B DF        ...   ldd 0bdf
10307 D07E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10308 D081 FD 0B DF        ...   std 0bdf
10309 D084 F6 0B AA        ...   ldab 0baa
10310 D087 4F              O     clra
10311 D088 37              7     pshb
10312 D089 36              6     psha
10313 D08A FC 0B E1        ...   ldd 0be1
10314 D08D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10315 D090 FD 0B E1        ...   std 0be1
10316 D093 39              9     rts
10317
10318 jump66:
10319 ; initializes a big bunch of variables
10320 D094 34              4     des
10321 ; for i=0
10322 D095 30              0     tsx
10323 D096 6F 00           o.    clr 00,x
10324 ; while i <= 10
10325 D098 30              0     tsx
10326 D099 E6 00           ..    ldab 00,x
10327 D09B C1 10           ..    cmpb #10
10328 D09D 24 1B           $.    bcc 1b        ; to d0ba
10329 ; read memloc of b0c3+i
10330 D09F 30              0     tsx
10331 D0A0 E6 00           ..    ldab 00,x
10332 D0A2 4F              O     clra
10333 D0A3 C3 B0 C3        ...   addd #b0c3
10334 D0A6 8F              .     xgdx
10335 D0A7 E6 00           ..    ldab 00,x
10336 D0A9 37              7     pshb
10337 ; put value of that location into 0bc7+i
10338 D0AA 30              0     tsx
10339 D0AB E6 01           ..    ldab 01,x
10340 D0AD 4F              O     clra
10341 D0AE C3 0B C7        ...   addd #0bc7
10342 D0B1 8F              .     xgdx
10343 D0B2 33              3     pulb
10344 D0B3 E7 00           ..    stab 00,x
10345 ; loop
10346 D0B5 30              0     tsx
10347 D0B6 6C 00           l.    inc 00,x
10348 D0B8 20 DE            .    bra de        ; to d098
10349 ;
10350 D0BA C6 05           ..    ldab #05
10351 D0BC F7 0B AA        ...   stab 0baa
10352 D0BF C6 04           ..    ldab #04
10353 D0C1 F7 00 13        ...   stab 0013
10354 D0C4 C6 01           ..    ldab #01
10355 D0C6 F7 0B C4        ...   stab 0bc4
10356 D0C9 C6 03           ..    ldab #03
10357 D0CB F7 0B C5        ...   stab 0bc5
10358 D0CE C6 02           ..    ldab #02
10359 D0D0 F7 0B C6        ...   stab 0bc6
10360 D0D3 CC 00 19        ...   ldd #0019    ; 25
10361 D0D6 FD 0B DD        ...   std 0bdd
10362 D0D9 CC 00 0A        ...   ldd #000a    ; 10
10363 D0DC FD 0B DF        ...   std 0bdf
10364 D0DF CC 00 05        ...   ldd #0005    ; 5
10365 D0E2 FD 0B E1        ...   std 0be1
10366 D0E5 C6 01           ..    ldab #01
10367 D0E7 F7 0B D7        ...   stab 0bd7
10368 D0EA C6 02           ..    ldab #02
10369 D0EC F7 0B D8        ...   stab 0bd8
10370 D0EF C6 04           ..    ldab #04
10371 D0F1 F7 0B D9        ...   stab 0bd9
10372 D0F4 C6 20           .     ldab #20
10373 D0F6 F7 0B DA        ...   stab 0bda
10374 D0F9 C6 10           ..    ldab #10
10375 D0FB F7 0B DB        ...   stab 0bdb
10376 D0FE C6 08           ..    ldab #08
10377 D100 F7 0B DC        ...   stab 0bdc
10378 D103 31              1     ins
10379 D104 39              9     rts
10380
10381 motors_off:
10382 ; turns all motors off
10383 D105 34              4     des
10384 D106 CE 00 1A        ...   ldx #001a
10385 D109 1C 00 80        ..    bset 00,x, #80
10386 D10C F6 00 1A        ..    ldab 001a
10387 D10F F7 30 00        .0.   stab 3000       ; motor rows off
10388 D112 C6 C8           ..    ldab #c8        ; loop of 200 - short delay
10389 D114 30              0     tsx
10390 D115 E7 00           ..    stab 00,x
10391 D117 30              0     tsx
10392 D118 E6 00           ..    ldab 00,x
10393 D11A C1 00           ..    cmpb #00
10394 D11C 23 05           #.    bls 05          ; to d123
10395 D11E 30              0     tsx
10396 D11F 6A 00           j.    dec 00,x
10397 D121 20 F4            .    bra f4          ; to d117
10398
10399 D123 CE 10 00        ...   ldx #1000
10400 D126 1C 00 40        ..    bset 00,x, #40  ; motor columns off
10401 D129 CE 00 14        ...   ldx #0014
10402 D12C 1D 00 20        ..    bclr 00,x, #20  ; motors col 8 off
10403 D12F CE 00 14        .     ldx #0014
10404 D132 1D 00 40        ..    bclr 00,x, #40  ; motors col 9 off
10405 D135 F6 00 14        ...   ldab 0014
10406 D138 F7 38 00        .8.   stab 3800       ; motors off
10407 D13B 31              1     ins
10408 D13C 39              9     rts
10409
10410 jump34:
10411 ; turn on the motor of the slot given in memory location 0006
10412 D13D F6 00 06        ...   ldab 0006
10413 D140 4F              O     clra
10414 D141 CE 00 0A        ...   ldx #000a
10415 D144 02              .     idiv
10416 D145 8F              .     xgdx
10417 D146 CB 01           ..    addb #01   ; we live in an odd world?
10418 D148 F7 00 5F        .._   stab 005f  ; slot number /10
10419 D14B F6 00 06        ...   ldab 0006
10420 D14E 4F              O     clra
10421 D14F CE 00 0A        ...   ldx #000a
10422 D152 02              .     idiv
10423 D153 F7 00 5E        ..^   stab 005e   ; slot number%10
10424 D156 F6 00 5E        ..^   ldab 005e
10425 D159 C1 05           ..    cmpb #05    ; there is not row 5
10426 D15B 23 03           #.    bls 03
10427 D15D 7A 00 5E        z.^   dec 005e    ; make it row 4
10428 D160 F6 00 5E        ..^   ldab 005e
10429 D163 4F              O     clra
10430 D164 C3 B1 23        ..#   addd #b123   ; powers of 2
10431 D167 8F              .     xgdx
10432 D168 E6 00           ..    ldab 00,x
10433 D16A 4F              O     clra
10434 D16B 37              7     pshb
10435 D16C 36              6     psha
10436 D16D F6 00 5F        .._   ldab 005f
10437 D170 4F              O     clra
10438 D171 C3 B1 23        ..#   addd #b123   ; powers of 2
10439 D174 8F              .     xgdx
10440 D175 E6 00           ..    ldab 00,x
10441 D177 4F              O     clra
10442 D178 17              .     tba
10443 D179 5F              _     clrb
10444 D17A 30              0     tsx
10445 D17B E3 00           ..    addd 00,x
10446 D17D 38              8     pulx
10447 D17E FD 00 58        ..X   std 0058
10448 ;
10449 ; i=0
10450 D181 7F 00 1C        ...   clr 001c
10451 ; while i < 16, do
10452 D184 F6 00 1C        ...   ldab 001c
10453 D187 C1 10           ..    cmpb #10
10454 D189 24 37           $7    bcc 37         ; to d1c2
10455 D18B F6 00 58        ..X   ldab 0058
10456 D18E 2C 0E           ,.    bge 0e         ; to d19e
10457 ;
10458 D190 CE 00 14        ...   ldx #0014
10459 D193 1C 00 10        ...   bset 00,x, #10
10460 D196 F6 00 14        ...   ldab 0014
10461 D199 F7 38 00        .8.   stab 3800      ; set high motor serial data
10462 D19C 20 0C            .    bra 0c         ; to d1aa
10463 ;
10464 D19E CE 00 14        ...   ldx #0014
10465 D1A1 1D 00 10        ..    bclr 00,x, #10
10466 D1A4 F6 00 14        ...   ldab 0014
10467 D1A7 F7 38 00        .8.   stab 3800      ; set low motor serial data
10468 ;
10469 ; send a clock pulse
10470 D1AA CE 10 00        ...   ldx #1000
10471 D1AD 1C 00 20        ..    bset 00,x, #20
10472 D1B0 CE 10 00         .    ldx #1000
10473 D1B3 1D 00           ..    bclr 00,x, #20
10474 ;
10475 ; get the next bit ready to send
10476 D1B6 FC 00 58        .     ldd 0058
10477 D1B9 05              .     asld
10478 D1BA FD 00 58        ..X   std 0058
10479 D1BD 7C 00 1C        |..   inc 001c
10480 D1C0 20 C2            .    bra c2
10481 ; if this is column 8 (9 for pascal programmers ;)
10482 D1C2 F6 00 5F        .._   ldab 005f
10483 D1C5 C1 09           ..    cmpb #09
10484 D1C7 26 0E           &.    bne 0e         ; to d1d7
10485 D1C9 CE 00 14        ...   ldx #0014
10486 D1CC 1C 00 20        ...   bset 00,x, #20
10487 D1CF F6 00 14        .     ldab 0014
10488 D1D2 F7 38 00        .8.   stab 3800      ; say its column 8
10489 D1D5 20 13            .    bra 13         ; to d1ea
10490 ; if this is column 9 (denoted as 10)
10491 D1D7 F6 00 5F        .._   ldab 005f
10492 D1DA C1 0A           ..    cmpb #0a
10493 D1DC 26 0C           &.    bne 0c
10494 D1DE CE 00 14        ...   ldx #0014
10495 D1E1 1C 00 40        ..    bset 00,x, #40 ; say its column 9
10496 D1E4 F6 00 14        ...   ldab 0014
10497 D1E7 F7 38 00        .8.   stab 3800
10498 ; clear the motor clock
10499 D1EA CE 10 00        ...   ldx #1000
10500 D1ED 1D 00 40        ..    bclr 00,x, #40 ; motor clock line low
10501 ; clear motor row output enable
10502 D1F0 CE 00 1A        ...   ldx #001a
10503 D1F3 1D 00           ..    bclr 00,x, #80
10504 D1F6 F6 00 1A        ...   ldab 001a
10505 D1F9 F7 30 00        .0.   stab 3000      ; motor driver outputs enable
10506 D1FC 39              9     rts
10507
10508 jump90:
10509 D1FD CC 40 00        .@.   ldd #4000
10510 D200 37              7     pshb
10511 D201 36              6     psha
10512 D202 F6 00 06        ...   ldab 0006
10513 D205 4F              O     clra
10514 D206 05              .     asld
10515 D207 C3 08 00        ...   addd #0800
10516 D20A 38              8     pulx
10517 D20B 8F              .     xgdx
10518 D20C AA 00           ..    ora 00,x
10519 D20E EA 01           ..    orb 01,x
10520 D210 ED 00           ..    std 00,x
10521 D212 39              9     rts
10522
10523 jump45:
10524 ; dispense an item from slot 0006
10525 D213 F6 00 1F        ...   ldab 001f
10526 D216 C4 04           ..    andb #04
10527 D218 26 12           &.    bne 12       ; to d22c
10528 D21A F6 0B C0        ...   ldab 0bc0
10529 D21D C4 10           ..    andb #10     ; have link master price holding
10530 D21F 26 0B           &.    bne 0b       ; to d22c
10531 D221 CE 00 00        ...   ldx #0000
10532 D224 3C              <     pshx
10533 D225 FC 00 44        ..D   ldd 0044
10534 D228 BD BE 9E        ...   jsr be9e             ;jump50 - write slot & price to screen?
10535 D22B 38              8     pulx
10536 ;
10537 D22C BD D3 11        ...   jsr d311             ;jump30 - test position exists
10538 D22F 83 00 00        ...   subd #0000
10539 D232 27 13           '.    beq 13       ; to d247
10540 D234 F6 00 06        ...   ldab 0006
10541 D237 BD D4 68        ..h   jsr d468             ;jump51 - lookup in 0800 table & and with 8000
10542 D23A 83 00 00        ...   subd #0000
10543 D23D 27 05           '.    beq 05
10544 D23F 8D BC           ..    bsr bc       ;jump90 - or entry in 0800 table of slot with #4000
10545 D241 BD D6 3C        ..<   jsr d63c             ;jump33 - as above, but with #0400
10546 D244 5F              _     clrb
10547 D245 4F              O     clra
10548 D246 39              9     rts
10549 ;
10550 D247 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10551 D24A C6 3C           .<    ldab #3c     ; 60
10552 D24C F7 00 2E        ...   stab 002e
10553 D24F C6 41           .A    ldab #41     ; 65
10554 D251 F7 00 31        ..1   stab 0031
10555 D254 CE 00 1B        ...   ldx #001b
10556 D257 1D 00 08        ...   bclr 00,x #08
10557 goto59:
10558 D25A F6 00 1B        ...   ldab 001b
10559 D25D C4 08           ..    andb #08
10560 D25F 26 22           &"    bne 22       ; to d283
10561 D261 F6 00 2E        ...   ldab 002e
10562 D264 C1 35           .5    cmpb #35     ; 53
10563 D266 23 10           #.    bls 10
10564 D268 BD D5 70        ..p   jsr d570             ;jump35 - check home sensor departed
10565 D26B 83 00 00        ...   subd #0000
10566 D26E 27 06           '.    beq 06       ; to d276
10567 D270 CE 00 1B        ...   ldx #001b
10568 D273 1C 00 08        ...   bset 00,x, #08
10569 D276 20 0B            .    bra 0b       ; to d283
10570 ; something went afoul. mark the motor as bad?
10571 D278 BD D1 05        ...   jsr d105             ;motors_off
10572 D27B 8D 80           ..    bsr 80       ;jump90 - mark motor as faulty?
10573 D27D BD D6 3C        ..<   jsr d63c             ;jump33 - mark motor as faulty?
10574 D280 5F              _     clrb
10575 D281 4F              O     clra
10576 D282 39              9     rts
10577 ;
10578 D283 F6 00 2E        ...   ldab 002e
10579 D286 C1 36           .6    cmpb #36     ; 54
10580 D288 24 56           $V    bcc 56       ; to d2e0
10581 D28A BD D5 F7        ...   jsr d5f7             ;jump108 - check motor overcurrent
10582 D28D 83 00 00        ...   subd #0000
10583 D290 27 4E           'N    beq 4e       ; to d2e0
10584 D292 BD D5 B0        ...   jsr d5b0             ;jump31 - check home sensor returned
10585 D295 83 00 00        ...   subd #0000
10586 D298 27 46           'F    beq 46       ; to d2e0
10587 D29A BD D1 05        ...   jsr d105             ;motors_off
10588 D29D F6 00 2E        ...   ldab 002e
10589 D2A0 C1 32           .2    cmpb #32
10590 D2A2 22 07           ".    bhi 07       ; to d2ab
10591 D2A4 8D 6B           .k    bsr 6b       ;jump30 - test motor overvoltage?
10592 D2A6 83 00 00        ...   subd #0000
10593 D2A9 27 0C           '.    beq 0c       ; to d2b7
10594 D2AB BD D1 05        ...   jsr d105             ;motors_off
10595 D2AE BD D1 FD        ...   jsr d1fd             ;jump90 - mark motor as faulty?
10596 D2B1 BD D6 3C        ..<   jsr d63c             ;jump33 - mark motor as faulty?
10597 D2B4 5F              _     clrb
10598 D2B5 4F              O     clra
10599 D2B6 39              9     rts
10600 ;
10601 D2B7 F6 00 06        ...   ldab 0006
10602 D2BA 4F              O     clra
10603 D2BB C3 0E 06        ...   addd #0e06
10604 D2BE 8F              .     xgdx
10605 D2BF 6C 00           l.    inc 00,x
10606 D2C1 F6 00 06        ...   ldab 0006
10607 D2C4 4F              O     clra
10608 D2C5 C3 0E 06        ...   addd #0e06
10609 D2C8 8F              .     xgdx
10610 D2C9 E6 00           ..    ldab 00,x
10611 D2CB C1 64           .d    cmpb #64
10612 D2CD 23 0D           #.    bls 0d
10613 D2CF 5F              _     clrb
10614 D2D0 37              7     pshb
10615 D2D1 F6 00 06        ...   ldab 0006
10616 D2D4 4F              O     clra
10617 D2D5 C3 0E 06        ...   addd #0e06
10618 D2D8 8F              .     xgdx
10619 D2D9 33              3     pulb
10620 D2DA E7 00           ..    stab 00,x
10621 D2DC CC 00 01        ...   ldd #0001
10622 D2DF 39              9     rts
10623 ;
10624 D2E0 F6 00 2E        ...   ldab 002e
10625 D2E3 26 14           &.    bne 14
10626 D2E5 BD D5 F7        ...   jsr d5f7             ;jump108 - check motor overcurrent status
10627 D2E8 83 00 00        ...   subd #0000
10628 D2EB 26 0C           &.    bne 0c
10629 D2ED BD D1 05        ...   jsr d105             ;motors_off
10630 D2F0 BD D1 FD        ...   jsr d1fd             ;jump90
10631 D2F3 BD D6 26        ..&   jsr d626             ;jump91
10632 D2F6 5F              _     clrb
10633 D2F7 4F              O     clra
10634 D2F8 39              9     rts
10635 ;
10636 D2F9 F6 00 2E        ...   ldab 002e
10637 D2FC 26 0C           &.    bne 0c
10638 D2FE BD D1 05        ...   jsr d105             ;motors_off
10639 D301 BD D1 FD        ...   jsr d1fd             ;jump90
10640 D304 BD D6 3C        ..<   jsr d63c             ;jump33
10641 D307 5F              _     clrb
10642 D308 4F              O     clra
10643 D309 39              9     rts
10644 ;
10645 D30A 7E D2 5A        ~.Z   jmp d25a             ;goto59 - try again?
10646 D30D BD E6 1B        ...   jsr e61b             ;jump4
10647 D310 39              9     rts
10648
10649 jump30:
10650 ; tests to see if a motor exists here
10651 D311 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10652 D314 7F 00 1C        ...   clr 001c
10653 D317 7F 00 18        ...   clr 0018
10654 D31A F6 10 0A        ...   ldab 100a
10655 D31D C4 02           ..    andb #02     ; motor overvoltage sense
10656 D31F 27 13           '.    beq 13       ; to d334
10657 D321 7C 00 1C        |..   inc 001c
10658 D324 F6 00 1C        ...   ldab 001c
10659 D327 C1 FF           ..    cmpb #ff
10660 D329 26 07           &.    bne 07
10661 D32B BD D1 05        ...   jsr d105             ;motors_off
10662 D32E CC 00 01        ...   ldd #0001
10663 D331 39              9     rts
10664 ;
10665 D332 20 10            .    bra 10      ; to d344
10666 D334 7C 00 18        |..   inc 0018
10667 D337 F6 00 18        ...   ldab 0018
10668 D33A C1 08           ..    cmpb #08
10669 D33C 26 06           &.    bne 06       ; continue
10670 D33E BD D1 05        ...   jsr d105             ;motors_off
10671 D341 5F              _     clrb
10672 D342 4F              O     clra
10673 D343 39              9     rts
10674 D344 20 D4            .    bra d4        ; continue
10675
10676 jump43:
10677 D346 3C              <     pshx
10678 D347 3C              <     pshx
10679 D348 3C              <     pshx
10680 D349 34              4     des
10681 D34A F6 0E 6D        ..m   ldab 0e6d
10682 D34D C1 01           ..    cmpb #01
10683 D34F 27 03           '.    beq 03
10684 D351 7E D4 07        ~..   jmp d407             ;goto60
10685 D354 F6 00 06        ...   ldab 0006
10686 D357 4F              O     clra
10687 D358 05              .     asld
10688 D359 C3 08 C8        ...   addd #08c8
10689 D35C 8F              .     xgdx
10690 D35D EC 00           ..    ldd 00,x
10691 D35F C4 7F           ..    andb #7f
10692 D361 4F              O     clra
10693 D362 FD 0E 6B        ..k   std 0e6b
10694 D365 7F 00 06        ...   clr 0006
10695 goto62:
10696 D368 F6 00 06        ...   ldab 0006
10697 D36B C1 3E           .>    cmpb #3e
10698 D36D 26 03           &.    bne 03
10699 D36F 7E D4 02        ~..   jmp d402             ;goto61
10700 D372 BD 97 6F        ..o   jsr 976f             ;jump41
10701 D375 F6 00 06        ...   ldab 0006
10702 D378 4F              O     clra
10703 D379 05              .     asld
10704 D37A C3 08 C8        ...   addd #08c8
10705 D37D 8F              .     xgdx
10706 D37E EC 00           ..    ldd 00,x
10707 D380 C4 7F           ..    andb #7f
10708 D382 4F              O     clra
10709 D383 B3 0E 6B        ..k   subd 0e6b
10710 D386 26 77           &w    bne 77
10711 D388 F6 00 06        ...   ldab 0006
10712 D38B 4F              O     clra
10713 D38C CE 00 0A        ...   ldx #000a
10714 D38F 02              .     idiv
10715 D390 30              0     tsx
10716 D391 E7 01           ..    stab 01,x
10717 D393 E6 01           ..    ldab 01,x
10718 D395 C1 01           ..    cmpb #01
10719 D397 26 07           &.    bne 07
10720 D399 C6 40           .@    ldab #40
10721 D39B 30              0     tsx
10722 D39C E7 00           ..    stab 00,x
10723 D39E 20 0C            .    bra 0c
10724 D3A0 30              0     tsx
10725 D3A1 E6 01           ..    ldab 01,x
10726 D3A3 C1 02           ..    cmpb #02
10727 D3A5 26 05           &.    bne 05
10728 D3A7 C6 80           ..    ldab #80
10729 D3A9 30              0     tsx
10730 D3AA E7 00           ..    stab 00,x
10731 D3AC BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10732 D3AF 5F              _     clrb
10733 D3B0 4F              O     clra
10734 D3B1 30              0     tsx
10735 D3B2 ED 03           ..    std 03,x
10736 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10737 ;decrement 03/05.   Do this 10 times.
10738 D3B4 CC 00 0A        ...   ldd #000a
10739 D3B7 ED 05           ..    std 05,x
10740 loop:
10741 D3B9 30              0     tsx
10742 D3BA EC 05           ..    ldd 05,x
10743 D3BC 2F 23           /#    ble 23       ; to D3E1
10744 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10745 D3C1 30              0     tsx
10746 D3C2 E4 00           ..    andb 00,x
10747 D3C4 26 09           &.    bne d3cf
10748 D3C6 30              0     tsx
10749 D3C7 6C 04           l.    inc 04,x
10750 D3C9 26 0C           &.    bne 0c
10751 D3CB 6C 03           l.    inc 03,x
10752 D3CD 20 08            .    bra d3d7
10753 D3CF 30              0     tsx
10754 D3D0 EC 03           ..    ldd 03,x
10755 D3D2 83 00 01        ...   subd #0001
10756 D3D5 ED 03           ..    std 03,x
10757 D3D7 30              0     tsx
10758 D3D8 EC 05           ..    ldd 05,x
10759 D3DA 83 00 01        ...   subd #0001
10760 D3DD ED 05           ..    std 05,x
10761 D3DF 20 D8            .    bra loop     ;d3b9
10762 D3E1 BD D1 05        ...   jsr d105             ;motors_off - turn motors off
10763 D3E4 30              0     tsx
10764 D3E5 EC 03           ..    ldd 03,x
10765 D3E7 2C 16           ,.    bge 16
10766 D3E9 F6 00 06        ...   ldab 0006
10767 D3EC 8D 7A           .z    bsr dest 7a
10768 D3EE 83 00 00        ...   subd #0000
10769 D3F1 27 0C           '.    beq 0c
10770 D3F3 BD D5 61        ..a   jsr d561             ;jump42
10771 D3F6 83 00 00        ...   subd #0000
10772 D3F9 26 04           &.    bne 04
10773 D3FB 5F              _     clrb
10774 D3FC 4F              O     clra
10775 D3FD 20 64            d    bra 64
10776 D3FF 7E D3 68        ~.h   jmp d368             ;goto62
10777 goto61:
10778 D402 CC 00 01        ...   ldd #0001
10779 D405 20 5C            \    bra 5c
10780 goto60:
10781 D407 F6 00 06        ...   ldab 0006
10782 D40A C1 13           ..    cmpb #13
10783 D40C 27 1C           '.    beq 1c
10784 D40E F6 00 06        ...   ldab 0006
10785 D411 C1 1D           ..    cmpb #1d
10786 D413 27 15           '.    beq 15
10787 D415 F6 00 06        ...   ldab 0006
10788 D418 C1 27           .'    cmpb #27
10789 D41A 27 0E           '.    beq 0e
10790 D41C F6 00 06        ...   ldab 0006
10791 D41F C1 31           .1    cmpb #31
10792 D421 27 07           '.    beq 07
10793 D423 F6 00 06        ...   ldab 0006
10794 D426 C1 3B           .;    cmpb #3b
10795 D428 26 37           &7    bne 37
10796 D42A BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10797 D42D 7F 00 1C        ...   clr 001c
10798 D430 7F 00 18        ...   clr 0018
10799 D433 F6 18 00        ...   ldab 1800
10800 D436 C4 40           .@    andb #40
10801 D438 26 14           &.    bne 14
10802 D43A 7C 00 1C        |..   inc 001c
10803 D43D F6 00 1C        ...   ldab 001c
10804 D440 C1 FF           ..    cmpb #ff
10805 D442 26 08           &.    bne 08
10806 D444 BD D1 05        ...   jsr d105             ;motors_off
10807 D447 CC 00 01        ...   ldd #0001
10808 D44A 20 17            .    bra 17
10809 D44C 20 11            .    bra 11
10810 D44E 7C 00 18        |..   inc 0018
10811 D451 F6 00 18        ...   ldab 0018
10812 D454 C1 08           ..    cmpb #08
10813 D456 26 07           &.    bne 07
10814 D458 BD D1 05        ...   jsr d105             ;motors_off
10815 D45B 5F              _     clrb
10816 D45C 4F              O     clra
10817 D45D 20 04            .    bra 04
10818 D45F 20 D2            .    bra d2
10819 D461 5F              _     clrb
10820 D462 4F              O     clra
10821 D463 38              8     pulx
10822 D464 38              8     pulx
10823 D465 38              8     pulx
10824 D466 31              1     ins
10825 D467 39              9     rts
10826
10827 jump51:
10828 D468 37              7     pshb
10829 D469 30              0     tsx
10830 D46A E6 00           ..    ldab 00,x
10831 D46C 4F              O     clra
10832 D46D 05              .     asld
10833 D46E C3 08 00        ...   addd #0800
10834 D471 8F              .     xgdx
10835 D472 EC 00           ..    ldd 00,x
10836 D474 5F              _     clrb
10837 D475 84 80           ..    anda #80
10838 D477 31              1     ins
10839 D478 39              9     rts
10840
10841 jump67:
10842 D479 7F 00 1C        ...   clr 001c
10843 ; begin loop
10844 D47C F6 00 1C        ...   ldab 001c
10845 D47F C1 64           .d    cmpb #64   ; to 100
10846 D481 24 1A           $.    bcc 1a     ; to d49d
10847 D483 CC FF 7F        ...   ldd #ff7f
10848 D486 37              7     pshb
10849 D487 36              6     psha
10850 D488 F6 00 1C        ...   ldab 001c
10851 D48B 4F              O     clra
10852 D48C 05              .     asld
10853 D48D C3 08 C8        ...   addd #08c8
10854 D490 38              8     pulx
10855 D491 8F              .     xgdx
10856 D492 A4 00           ..    anda 00,x
10857 D494 E4 01           ..    andb 01,x
10858 D496 ED 00           ..    std 00,x
10859 D498 7C 00 1C        |..   inc 001c
10860 D49B 20 DF            .    bra df  ; to d47c
10861 D49D 7F 00 05        ...   clr 0005
10862 goto65: ; begin motor count loop
10863 D4A0 F6 00 05        ...   ldab 0005
10864 D4A3 C1 50           .P    cmpb #50     ; 80
10865 D4A5 25 03           %.    bcs 03
10866 D4A7 7E D5 60        ~.`   jmp d560             ;goto63 - exit
10867 D4AA F6 00 05        ...   ldab 0005
10868 D4AD 4F              O     clra
10869 D4AE C3 B0 D3        ...   addd #b0d3   ;motor lookup table
10870 D4B1 8F              .     xgdx
10871 D4B2 E6 00           ..    ldab 00,x
10872 D4B4 F7 00 06        ...   stab 0006
10873 D4B7 BD D3 11        ...   jsr d311             ;jump30 - test position exists
10874 D4BA 83 00 00        ...   subd #0000
10875 D4BD 27 03           '.    beq 03
10876 D4BF 7E D5 45        ~.E   jmp d545             ;goto64
10877 D4C2 F6 00 06        ...   ldab 0006
10878 D4C5 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
10879 D4C8 83 00 00        ...   subd #0000
10880 D4CB 26 78           &x    bne 78
10881 D4CD BD D5 B0        ...   jsr d5b0             ;jump31
10882 D4D0 83 00 00        ...   subd #0000
10883 D4D3 26 06           &.    bne 06
10884 D4D5 BD D1 FD        ...   jsr d1fd             ;jump90
10885 D4D8 BD D6 3C        ..<   jsr d63c             ;jump33
10886 D4DB CC 80 00        ...   ldd #8000
10887 D4DE 37              7     pshb
10888 D4DF 36              6     psha
10889 D4E0 F6 00 06        ...   ldab 0006
10890 D4E3 4F              O     clra
10891 D4E4 05              .     asld
10892 D4E5 C3 08 00        ...   addd #0800
10893 D4E8 38              8     pulx
10894 D4E9 8F              .     xgdx
10895 D4EA AA 00           ..    ora 00,x
10896 D4EC EA 01           ..    orb 01,x
10897 D4EE ED 00           ..    std 00,x
10898 D4F0 F6 00 06        ...   ldab 0006
10899 D4F3 4F              O     clra
10900 D4F4 05              .     asld
10901 D4F5 C3 08 00        ...   addd #0800
10902 D4F8 8F              .     xgdx
10903 D4F9 EC 00           ..    ldd 00,x
10904 D4FB C4 FF           ..    andb #ff
10905 D4FD 84 3F           .?    anda #3f
10906 D4FF 83 27 0F        .'.   subd #270f
10907 D502 23 1A           #.    bls 1a
10908 D504 BD D1 FD        ...   jsr d1fd             ;jump90
10909 D507 CC 01 00        ...   ldd #0100
10910 D50A 37              7     pshb
10911 D50B 36              6     psha
10912 D50C F6 00 06        ...   ldab 0006
10913 D50F 4F              O     clra
10914 D510 05              .     asld
10915 D511 C3 08 C8        ...   addd #08c8
10916 D514 38              8     pulx
10917 D515 8F              .     xgdx
10918 D516 AA 00           ..    ora 00,x
10919 D518 EA 01           ..    orb 01,x
10920 D51A ED 00           ..    std 00,x
10921 D51C 20 25            %    bra 25
10922 D51E F6 00 06        ...   ldab 0006
10923 D521 4F              O     clra
10924 D522 05              .     asld
10925 D523 C3 08 C8        ...   addd #08c8
10926 D526 8F              .     xgdx
10927 D527 EC 00           ..    ldd 00,x
10928 D529 C4 7F           ..    andb #7f
10929 D52B F7 00 06        ...   stab 0006
10930 D52E CC 00 80        ...   ldd #0080
10931 D531 37              7     pshb
10932 D532 36              6     psha
10933 D533 F6 00 06        ...   ldab 0006
10934 D536 4F              O     clra
10935 D537 05              .     asld
10936 D538 C3 08 C8        ...   addd #08c8
10937 D53B 38              8     pulx
10938 D53C 8F              .     xgdx
10939 D53D AA 00           ..    ora 00,x
10940 D53F EA 01           ..    orb 01,x
10941 D541 ED 00           ..    std 00,x
10942 D543 20 15            .    bra 15
10943 goto64: ; mark a motor position as valid?
10944 D545 CC 7F FF        ...   ldd #7fff
10945 D548 37              7     pshb
10946 D549 36              6     psha
10947 D54A F6 00 06        ...   ldab 0006
10948 D54D 4F              O     clra
10949 D54E 05              .     asld
10950 D54F C3 08 00        ...   addd #0800
10951 D552 38              8     pulx
10952 D553 8F              .     xgdx
10953 D554 A4 00           ..    anda 00,x
10954 D556 E4 01           ..    andb 01,x
10955 D558 ED 00           ..    std 00,x
10956 D55A 7C 00 05        |..   inc 0005
10957 D55D 7E D4 A0        ~..   jmp d4a0             ;goto65 - loop again
10958 goto63:
10959 D560 39              9     rts
10960
10961 jump42:
10962 D561 F6 00 06        ...   ldab 0006
10963 D564 4F              O     clra
10964 D565 05              .     asld
10965 D566 C3 08 00        ...   addd #0800
10966 D569 8F              .     xgdx
10967 D56A EC 00           ..    ldd 00,x
10968 D56C 5F              _     clrb
10969 D56D 84 40           .@    anda #40
10970 D56F 39              9     rts
10971
10972 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10973 ;loops, return 1 (fault?), else return 0 (OK?).
10974 ;005f is the row number in this routine.  scratch variable?
10975 ;looks like 0006 is the slot number.
10976 ;this is called twice
10977 jump35:
10978 D570 F6 00 06        ...   ldab 0006
10979 D573 4F              O     clra
10980 D574 CE 00 0A        ...   ldx #000a
10981 D577 02              .     idiv
10982 D578 F7 00 5F        .._   stab 005f
10983 D57B F6 00 5F        .._   ldab 005f
10984 D57E C1 05           ..    cmpb #05
10985 D580 23 03           #.    bls d585
10986 D582 7A 00 5F        z._   dec 005f
10987 D585 F6 00 5F        .._   ldab 005f    ;row number
10988 D588 4F              O     clra
10989 D589 C3 B1 23        ..#   addd #b123
10990 D58C 8F              .     xgdx
10991 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10992 D58F F7 00 5E        ..^   stab 005e
10993 D592 7F 00 1C        ...   clr 001c
10994 loop:
10995 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10996 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10997 D59B 27 10           '.    beq d5ad
10998 D59D 7C 00 1C        |..   inc 001c
10999 D5A0 F6 00 1C        ...   ldab 001c
11000 D5A3 C1 05           ..    cmpb #05
11001 D5A5 26 04           &.    bne d5ab
11002 D5A7 CC 00 01        ...   ldd #0001
11003 D5AA 39              9     rts
11004
11005 D5AB 20 E8            .    bra loop     ;d595
11006 D5AD 5F              _     clrb
11007 D5AE 4F              O     clra
11008 D5AF 39              9     rts
11009
11010 ;This does almost the same - check the home sensor for this row (slot number
11011 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
11012 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
11013 ;If it is ever 0, return 0.
11014 ;005f is the row number
11015 ;005e is the bit mask for this row
11016 jump31:
11017 D5B0 F6 00 06        ...   ldab 0006
11018 D5B3 4F              O     clra
11019 D5B4 CE 00 0A        ...   ldx #000a
11020 D5B7 02              .     idiv
11021 D5B8 F7 00 5F        .._   stab 005f
11022 D5BB F6 00 5F        .._   ldab 005f
11023 D5BE C1 05           ..    cmpb #05
11024 D5C0 23 03           #.    bls 03
11025 D5C2 7A 00 5F        z._   dec 005f
11026 D5C5 F6 00 5F        .._   ldab 005f
11027 D5C8 4F              O     clra
11028 D5C9 C3 B1 23        ..#   addd #b123
11029 D5CC 8F              .     xgdx
11030 D5CD E6 00           ..    ldab 00,x
11031 D5CF F7 00 5E        ..^   stab 005e
11032 D5D2 7F 00 1C        ...   clr 001c
11033 loop:
11034 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
11035 D5D8 F4 00 5E        ..^   andb 005e
11036 D5DB 26 17           &.    bne d5f4
11037 D5DD F6 10 0A        ...   ldab 100a
11038 D5E0 C4 01           ..    andb #01
11039 D5E2 27 10           '.    beq d5f4
11040 D5E4 7C 00 1C        |..   inc 001c
11041 D5E7 F6 00 1C        ...   ldab 001c
11042 D5EA C1 05           ..    cmpb #05
11043 D5EC 26 04           &.    bne d5f2
11044 D5EE CC 00 01        ...   ldd #0001
11045 D5F1 39              9     rts
11046
11047 D5F2 20 E1            .    bra loop     ;d5d5
11048 D5F4 5F              _     clrb
11049 D5F5 4F              O     clra
11050 D5F6 39              9     rts
11051
11052 jump108:
11053 ; check motor overcurrent status
11054 D5F7 C6 07           ..    ldab #07
11055 D5F9 F7 00 1C        ...   stab 001c
11056 D5FC 7F 00 18        ...   clr 0018
11057 ;
11058 D5FF F6 00 1C        ...   ldab 001c
11059 D602 27 1E           '.    beq 1e        ; to d622
11060 D604 7A 00 1C        z..   dec 001c
11061 D607 F6 10 0A        ...   ldab 100a
11062 D60A C4 01           ..    andb #01      ; motor overcurrent sense!
11063 D60C 26 12           &.    bne 12        ; to d620
11064 D60E C6 07           ..    ldab #07
11065 D610 F7 00 1C        ...   stab 001c
11066 D613 7C 00 18        |..   inc 0018
11067 D616 F6 00 18        ...   ldab 0018
11068 D619 C1 05           ..    cmpb #05
11069 D61B 26 03           &.    bne 03
11070 D61D 5F              _     clrb
11071 D61E 4F              O     clra
11072 D61F 39              9     rts
11073 ;
11074 D620 20 DD            .    bra dd        ; to d5ff
11075 D622 CC 00 01        ...   ldd #0001
11076 D625 39              9     rts
11077
11078 jump91:
11079 ; ORs memory location 08c8+(slotnum*2) with #0200
11080 D626 CC 02 00        ...   ldd #0200
11081 D629 37              7     pshb
11082 D62A 36              6     psha
11083 D62B F6 00 06        ...   ldab 0006
11084 D62E 4F              O     clra
11085 D62F 05              .     asld
11086 D630 C3 08 C8        ...   addd #08c8
11087 D633 38              8     pulx
11088 D634 8F              .     xgdx
11089 D635 AA 00           ..    ora 00,x
11090 D637 EA 01           ..    orb 01,x
11091 D639 ED 00           ..    std 00,x
11092 D63B 39              9     rts
11093
11094 jump33:
11095 ; ORs memory location 08c8+(slotnum*2) with #0400
11096 D63C CC 04 00        ...   ldd #0400
11097 D63F 37              7     pshb
11098 D640 36              6     psha
11099 D641 F6 00 06        ...   ldab 0006
11100 D644 4F              O     clra
11101 D645 05              .     asld
11102 D646 C3 08 C8        ...   addd #08c8
11103 D649 38              8     pulx
11104 D64A 8F              .     xgdx
11105 D64B AA 00           ..    ora 00,x
11106 D64D EA 01           ..    orb 01,x
11107 D64F ED 00           ..    std 00,x
11108 D651 39              9     rts
11109
11110 jump5:
11111 ; Sends a pulse to the bill acceptor
11112 D652 CE 00 1A        ...   ldx #001a
11113 D655 1C 00 01        ..    bset 00,x, #01
11114 D658 F6 00 1A        ...   ldab 001a
11115 D65B F7 30 00        .0.   stab 3000
11116 D65E CE 00 14        ...   ldx #0014
11117 D661 1D 00 01        ..    bclr 00,x, #01
11118 D664 F6 00 14        ...   ldab 0014
11119 D667 F7 38 00        .8.   stab 3800
11120 D66A 39              9     rts
11121
11122 jump107:
11123 D66B F6 0B C0        ...   ldab 0bc0
11124 D66E C4 08           ..    andb #08   ; we have a bill validator?
11125 D670 27 07           '.    beq 07     ; if not, to d679
11126 D672 F6 00 7D        ..}   ldab 007d
11127 D675 27 02           '.    beq 02
11128 D677 20 F9            .    bra f9     ; to d672 - wait for a bill?
11129 D679 F6 00 15        ...   ldab 0015
11130 D67C 2D 77           -w    blt 77     ; return
11131 D67E FC 00 40        ..@   ldd 0040
11132 D681 F3 00 3E        ..>   addd 003e
11133 D684 B3 00 0F        ...   subd 000f
11134 D687 24 4F           $O    bcc 4f
11135 D689 F6 0B C0        ...   ldab 0bc0
11136 D68C C4 01           ..    andb #01
11137 D68E 26 07           &.    bne 07
11138 D690 F6 0B C0        ...   ldab 0bc0
11139 D693 C4 04           ..    andb #04
11140 D695 27 0C           '.    beq 0c
11141 D697 CE 00 1A        ...   ldx #001a
11142 D69A 1D 00 01        ..    bclr 00,x, #01
11143 D69D F6 00 1A        ...   ldab 001a
11144 D6A0 F7 30 00        .0.   stab 3000    ; changer accept' line
11145 D6A3 F6 0B C0        ...   ldab 0bc0
11146 D6A6 C4 08           ..    andb #08
11147 D6A8 27 20           '     beq 20
11148 D6AA F6 0C D9        ...   ldab 0cd9
11149 D6AD C1 03           ..    cmpb #03
11150 D6AF 23 19           #.    bls 19
11151 D6B1 FC 0B EF        ...   ldd 0bef
11152 D6B4 83 00 64        ..d   subd #0064
11153 D6B7 25 11           %.    bcs 11
11154 D6B9 CE 00 14        ...   ldx #0014
11155 D6BC 1C 00 02        ..    bset 00,x, #02
11156 D6BF F6 00 14        ...   ldab 0014
11157 D6C2 F7 38 00        .8.   stab 3800    ; bill acceptor
11158 D6C5 BD C0 E0        ...   jsr c0e0             ;jump94
11159 D6C8 20 0C            .    bra 0c
11160 D6CA CE 00 14        ...   ldx #0014
11161 D6CD 1D 00 01        ..    bclr 00,x, #01
11162 D6D0 F6 00 14        ...   ldab 0014
11163 D6D3 F7 38 00        .8.   stab 3800
11164 D6D6 20 05            .    bra 05
11165 D6D8 BD D6 52        ..R   jsr d652             ;jump5
11166 D6DB 8D 53           .S    bsr dest 53
11167 D6DD F6 0B C0        ...   ldab 0bc0
11168 D6E0 C4 08           ..    andb #08
11169 D6E2 27 11           '.    beq 11
11170 D6E4 F6 0B C0        ...   ldab 0bc0
11171 D6E7 C4 40           .@    andb #40
11172 D6E9 27 0A           '.    beq 0a
11173 D6EB F6 00 15        ...   ldab 0015
11174 D6EE C4 01           ..    andb #01
11175 D6F0 27 03           '.    beq 03
11176 D6F2 BD C0 E0        ...   jsr c0e0             ;jump94
11177 D6F5 39              9     rts
11178
11179 jump106:
11180 ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
11181 ; calculates how much money we have in the coin mech!!!!
11182 D6F6 F6 0C DB        ...   ldab 0cdb
11183 D6F9 4F              O     clra
11184 D6FA 37              7     pshb
11185 D6FB 36              6     psha
11186 D6FC FC 0B DD        ...   ldd 0bdd
11187 D6FF BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11188 D702 FD 0C EB        ...   std 0ceb     ; 0cdb * 0bdd => 0ceb
11189 D705 F6 0C DA        ...   ldab 0cda
11190 D708 4F              O     clra
11191 D709 37              7     pshb
11192 D70A 36              6     psha
11193 D70B FC 0B DF        ...   ldd 0bdf
11194 D70E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11195 D711 FD 0C ED        ...   std 0ced     ; 0cda * 0bdf => 0ced
11196 D714 F6 0C D9        ...   ldab 0cd9
11197 D717 4F              O     clra
11198 D718 37              7     pshb
11199 D719 36              6     psha
11200 D71A FC 0B E1        ...   ldd 0be1
11201 D71D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11202 D720 FD 0C EF        ...   std 0cef     ; 0cd9 * 0be1 => 0cef
11203 D723 FC 0C EB        ...   ldd 0ceb
11204 D726 F3 0C ED        ...   addd 0ced
11205 D729 F3 0C EF        ...   addd 0cef
11206 D72C FD 0B EF        ...   std 0bef     ; 0ceb+0ced+0cef => 0bef
11207 D72F 39              9     rts
11208
11209 jump202:
11210 D730 F6 00 15        ...   ldab 0015
11211 D733 C4 1F           ..    andb #1f
11212 D735 27 49           'I    beq 49
11213 D737 FC 00 40        ..@   ldd 0040
11214 D73A F3 00 3E        ..>   addd 003e
11215 D73D B3 0B EF        ...   subd 0bef
11216 D740 23 19           #.    bls 19
11217 D742 CC B0 6B        ..k   ldd #b06b    ; "NO CHANGE"
11218 D745 BD C0 BA        ...   jsr c0ba             ;display:
11219 D748 CC 01 F4        ...   ldd #01f4
11220 D74B BD E5 71        ..q   jsr e571             ;msdelay
11221 D74E BD C5 D3        ...   jsr c5d3             ;jump6
11222 D751 CC 01 F4        ...   ldd #01f4
11223 D754 BD E5 71        ..q   jsr e571             ;msdelay
11224 D757 CC 00 01        ...   ldd #0001
11225 D75A 39              9     rts
11226 ;
11227 D75B F6 00 15        ...   ldab 0015
11228 D75E C4 04           ..    andb #04
11229 D760 27 1E           '.    beq 1e
11230 D762 F6 0E 6E        ..n   ldab 0e6e
11231 D765 26 19           &.    bne 19
11232 D767 CC B0 76        ..v   ldd #b076    ; "NO FIVES"
11233 D76A BD C0 BA        ...   jsr c0ba             ;display:
11234 D76D CC 01 F4        ...   ldd #01f4
11235 D770 BD E5 71        ..q   jsr e571             ;msdelay
11236 D773 BD C5 D3        ...   jsr c5d3             ;jump6
11237 D776 CC 01 F4        ...   ldd #01f4
11238 D779 BD E5 71        ..q   jsr e571             ;msdelay
11239 D77C CC 00 01        ...   ldd #0001
11240 D77F 39              9     rts
11241 ;
11242 D780 5F              _     clrb
11243 D781 4F              O     clra
11244 D782 39              9     rts
11245
11246 jump44:
11247 D783 F6 00 06        ...   ldab 0006
11248 D786 4F              O     clra
11249 D787 CE 00 0A        ...   ldx #000a
11250 D78A 02              .     idiv
11251 D78B C1 04           ..    cmpb #04
11252 D78D 26 0E           &.    bne 0e
11253 D78F F6 00 1D        ...   ldab 001d
11254 D792 C4 04           ..    andb #04
11255 D794 27 03           '.    beq 03
11256 D796 5F              _     clrb
11257 D797 4F              O     clra
11258 D798 39              9     rts
11259
11260 D799 CC 00 01        ...   ldd #0001
11261 D79C 39              9     rts
11262
11263 D79D 5F              _     clrb
11264 D79E 4F              O     clra
11265 D79F 39              9     rts
11266
11267 is_invalid_slot:
11268 ; validates a slot number? (return 1 if invalid)
11269 ; let i = number on stack
11270 ; if i in [9, 69, 79, 89, 99], return 1
11271 ; if 0e6d!=1 return 0
11272 ; if i%10 not in [1,2] return 1
11273 ; if i < 11 return 1
11274 ; if i <= 62 return 0
11275 ; return 1
11276 D7A0 37              7     pshb
11277 D7A1 30              0     tsx
11278 D7A2 E6 00           ..    ldab 00,x
11279 D7A4 C1 09           ..    cmpb #09     ; 9
11280 D7A6 27 18           '.    beq 18       ; to d7c0 (returns 1)
11281 D7A8 E6 00           ..    ldab 00,x
11282 D7AA C1 45           .E    cmpb #45     ; 69
11283 D7AC 27 12           '.    beq 12       ; to d7c0 (returns 1)
11284 D7AE E6 00           ..    ldab 00,x
11285 D7B0 C1 4F           .O    cmpb #4f     ; 79
11286 D7B2 27 0C           '.    beq 0c       ; to d7c0 (returns 1)
11287 D7B4 E6 00           ..    ldab 00,x
11288 D7B6 C1 59           .Y    cmpb #59     ; 89
11289 D7B8 27 06           '.    beq 06       ; to d7c0 (returns 1)
11290 D7BA E6 00           ..    ldab 00,x
11291 D7BC C1 63           .c    cmpb #63     ; 99 (also returns 1)
11292 D7BE 26 05           &.    bne 05       ; to d7c5 if not equal
11293 D7C0 CC 00 01        ...   ldd #0001
11294 D7C3 20 38            8    bra 38       ; to d7fd (return 1)
11295 D7C5 F6 0E 6D        ..m   ldab 0e6d
11296 D7C8 C1 01           ..    cmpb #01
11297 D7CA 26 2F           &/    bne 2f       ;to d7fb (return 0)
11298 D7CC 30              0     tsx
11299 D7CD E6 00           ..    ldab 00,x
11300 D7CF 4F              O     clra
11301 D7D0 CE 00 0A        ...   ldx #000a
11302 D7D3 02              .     idiv
11303 D7D4 C1 01           ..    cmpb #01
11304 D7D6 27 11           '.    beq 11      ;to d7e9 if num%10==1
11305 D7D8 30              0     tsx
11306 D7D9 E6 00           ..    ldab 00,x
11307 D7DB 4F              O     clra
11308 D7DC CE 00 0A        ...   ldx #000a
11309 D7DF 02              .     idiv
11310 D7E0 C1 02           ..    cmpb #02
11311 D7E2 27 05           '.    beq 05      ;to d7e9 if num%10==2
11312 D7E4 CC 00 01        ...   ldd #0001
11313 D7E7 20 14            .    bra 14      ; to d7fd (return 1)
11314 D7E9 30              0     tsx
11315 D7EA E6 00           ..    ldab 00,x
11316 D7EC C1 0B           ..    cmpb #0b    ; < 11
11317 D7EE 25 06           %.    bcs 06      ; return 1
11318 D7F0 E6 00           ..    ldab 00,x
11319 D7F2 C1 3E           .>    cmpb #3e    ; <= 62
11320 D7F4 23 05           #.    bls 05      ; return 0
11321 D7F6 CC 00 01        ...   ldd #0001
11322 D7F9 20 02            .    bra 02
11323 D7FB 5F              _     clrb
11324 D7FC 4F              O     clra
11325 D7FD 31              1     ins
11326 D7FE 39              9     rts
11327
11328 jump80:
11329 D7FF 7F 00 1C        ...   clr 001c
11330 D802 F6 00 1C        ...   ldab 001c
11331 D805 4F              O     clra
11332 D806 B3 00 4D        ..M   subd 004d
11333 D809 24 05           $.    bcc 05
11334 D80B 7C 00 1C        |..   inc 001c
11335 D80E 20 F2            .    bra f2
11336 D810 F6 00 1C        ...   ldab 001c
11337 D813 4F              O     clra
11338 D814 05              .     asld
11339 D815 C3 0D 1F        ...   addd #0d1f
11340 D818 8F              .     xgdx
11341 D819 EC 00           ..    ldd 00,x
11342 D81B 83 FF FF        ...   subd #ffff
11343 D81E 26 10           &.    bne 10
11344 D820 5F              _     clrb
11345 D821 4F              O     clra
11346 D822 37              7     pshb
11347 D823 36              6     psha
11348 D824 F6 00 1C        ...   ldab 001c
11349 D827 4F              O     clra
11350 D828 05              .     asld
11351 D829 C3 0D 1F        ...   addd #0d1f
11352 D82C 38              8     pulx
11353 D82D 8F              .     xgdx
11354 D82E ED 00           ..    std 00,x
11355 D830 F6 00 1C        ...   ldab 001c
11356 D833 4F              O     clra
11357 D834 05              .     asld
11358 D835 C3 0D 1F        ...   addd #0d1f
11359 D838 8F              .     xgdx
11360 D839 6C 01           l.    inc 01,x
11361 D83B 26 02           &.    bne 02
11362 D83D 6C 00           l.    inc 00,x
11363 D83F 39              9     rts
11364
11365 jump105:
11366 D840 FC 00 44        ..D   ldd 0044
11367 D843 26 03           &.    bne 03
11368 D845 7E D8 D2        ~..   jmp d8d2             ;goto66
11369 D848 FC 00 44        ..D   ldd 0044
11370 D84B 37              7     pshb
11371 D84C 36              6     psha
11372 D84D 4F              O     clra
11373 D84E 5F              _     clrb
11374 D84F 37              7     pshb
11375 D850 36              6     psha
11376 D851 CC 0D EB        ...   ldd #0deb
11377 D854 BD FB DF        ...   jsr fbdf             ;jump46
11378 D857 31              1     ins
11379 D858 31              1     ins
11380 D859 FE 0D ED        ...   ldx 0ded
11381 D85C 3C              <     pshx
11382 D85D FC 0D EB        ...   ldd 0deb
11383 D860 37              7     pshb
11384 D861 36              6     psha
11385 D862 CE E1 00        ...   ldx #e100
11386 D865 3C              <     pshx
11387 D866 CC 05 F5        ...   ldd #05f5
11388 D869 37              7     pshb
11389 D86A 36              6     psha
11390 D86B 30              0     tsx
11391 D86C EC 06           ..    ldd 06,x
11392 D86E A3 02           ..    subd 02,x
11393 D870 EC 04           ..    ldd 04,x
11394 D872 E2 01           ..    sbcb 01,x
11395 D874 A2 00           ..    sbca 00,x
11396 D876 38              8     pulx
11397 D877 38              8     pulx
11398 D878 38              8     pulx
11399 D879 38              8     pulx
11400 D87A 25 11           %.    bcs 11
11401 D87C CE 1F 00        ...   ldx #1f00
11402 D87F 3C              <     pshx
11403 D880 CC FA 0A        ...   ldd #fa0a
11404 D883 37              7     pshb
11405 D884 36              6     psha
11406 D885 CC 0D EB        ...   ldd #0deb
11407 D888 BD FB DF        ...   jsr fbdf             ;jump46
11408 D88B 31              1     ins
11409 D88C 31              1     ins
11410 D88D FC 00 44        ..D   ldd 0044
11411 D890 37              7     pshb
11412 D891 36              6     psha
11413 D892 4F              O     clra
11414 D893 5F              _     clrb
11415 D894 37              7     pshb
11416 D895 36              6     psha
11417 D896 CC 0D E7        ...   ldd #0de7
11418 D899 BD FB DF        ...   jsr fbdf             ;jump46
11419 D89C 31              1     ins
11420 D89D 31              1     ins
11421 D89E FE 0D E9        ...   ldx 0de9
11422 D8A1 3C              <     pshx
11423 D8A2 FC 0D E7        ...   ldd 0de7
11424 D8A5 37              7     pshb
11425 D8A6 36              6     psha
11426 D8A7 CE E1 00        ...   ldx #e100    ; 57600
11427 D8AA 3C              <     pshx
11428 D8AB CC 05 F5        ...   ldd #05f5
11429 D8AE 37              7     pshb
11430 D8AF 36              6     psha
11431 D8B0 30              0     tsx
11432 D8B1 EC 06           ..    ldd 06,x
11433 D8B3 A3 02           ..    subd 02,x
11434 D8B5 EC 04           ..    ldd 04,x
11435 D8B7 E2 01           ..    sbcb 01,x
11436 D8B9 A2 00           ..    sbca 00,x
11437 D8BB 38              8     pulx
11438 D8BC 38              8     pulx
11439 D8BD 38              8     pulx
11440 D8BE 38              8     pulx
11441 D8BF 25 11           %.    bcs 11
11442 D8C1 CE 1F 00        ...   ldx #1f00
11443 D8C4 3C              <     pshx
11444 D8C5 CC FA 0A        ...   ldd #fa0a
11445 D8C8 37              7     pshb
11446 D8C9 36              6     psha
11447 D8CA CC 0D E7        ...   ldd #0de7
11448 D8CD BD FB DF        ...   jsr fbdf             ;jump46
11449 D8D0 31              1     ins
11450 D8D1 31              1     ins
11451 goto66:
11452 D8D2 39              9     rts
11453
11454 jump84:
11455 ;500 ms delay
11456 D8D3 7F 00 18        ...   clr 0018
11457 D8D6 F6 00 18        ...   ldab 0018
11458 D8D9 C1 10           ..    cmpb #10
11459 D8DB 24 0B           $.    bcc 0b
11460 D8DD CC 00 32        ..2   ldd #0032
11461 D8E0 BD E5 71        ..q   jsr e571             ;msdelay
11462 D8E3 7C 00 18        |..   inc 0018
11463 D8E6 20 EE            .    bra ee
11464 D8E8 39              9     rts
11465
11466 jump92:
11467 ; displays select other item
11468 D8E9 F6 00 2B        ..+   ldab 002b
11469 D8EC C1 00           ..    cmpb #00
11470 D8EE 26 18           &.    bne 18
11471 D8F0 CC AD 84        ...   ldd #ad84    ; "  PULSE  "
11472 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11473 D8F6 8D DB           ..    bsr dest db
11474 D8F8 CC AD 8F        ...   ldd #ad8f    ; "  EXTRA  "
11475 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11476 D8FE 8D D3           ..    bsr dest d3
11477 D900 CC AD 9A        ...   ldd #ad9a    ; "SELECTION"
11478 D903 BD C0 BA        ...   jsr c0ba             ;display:
11479 D906 20 4E            N    bra 4e
11480 D908 C1 01           ..    cmpb #01
11481 D90A 26 18           &.    bne 18
11482 D90C CC AD 63        ..c   ldd #ad63    ; "  BITTE  "
11483 D90F BD C0 BA        ...   jsr c0ba             ;display:
11484 D912 8D BF           ..    bsr dest bf
11485 D914 CC AD 6E        ..n   ldd #ad6e    ; "  ANDERE  "
11486 D917 BD C0 BA        ...   jsr c0ba             ;display:
11487 D91A 8D B7           ..    bsr dest b7
11488 D91C CC AD 79        ..y   ldd #ad79    ; "   WAHL   "
11489 D91F BD C0 BA        ...   jsr c0ba             ;display:
11490 D922 20 32            2    bra 32
11491 D924 C1 02           ..    cmpb #02
11492 D926 26 18           &.    bne 18
11493 D928 CC AD 42        ..B   ldd #ad42    ; "FAITES"
11494 D92B BD C0 BA        ...   jsr c0ba             ;display:
11495 D92E 8D A3           ..    bsr dest a3
11496 D930 CC AD 4D        ..M   ldd #ad4d    ; "AURTE"
11497 D933 BD C0 BA        ...   jsr c0ba             ;display:
11498 D936 8D 9B           ..    bsr dest 9b
11499 D938 CC AD 58        ..X   ldd #ad58    ; "CHOIX"
11500 D92B BD C0 BA        ...   jsr c0ba             ;display:
11501 D93E 20 16            .    bra 16
11502 D940 CC AD 21        ..!   ldd #ad21    ; "SELECT "
11503 D943 BD C0 BA        ...   jsr c0ba             ;display:
11504 D946 8D 8B           ..    bsr dest 8b
11505 D948 CC AD 2C        ..,   ldd #ad2c    ; "OTHER"
11506 D94B BD C0 BA        ...   jsr c0ba             ;display:
11507 D94E 8D 83           ..    bsr dest 83
11508 D950 CC AD 37        ..7   ldd #ad37    ; "ITEM"
11509 D953 BD C0 BA        ...   jsr c0ba             ;display:
11510 D956 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11511 D959 39              9     rts
11512
11513 jump123:
11514 D95A F6 00 06        ...   ldab 0006
11515 D95D F1 0B AF        ...   cmpb 0baf
11516 D960 26 0D           &.    bne 0d       ; to d984
11517 D962 BD D7 FF        ...   jsr d7ff             ;jump80
11518 D965 F6 0B B4        ...   ldab 0bb4
11519 D968 F7 00 06        ...   stab 0006
11520 D96B 8D 55           .U    bsr 55       ;jump205
11521 D96D 20 52            R    bra 52       ; exit
11522 D96F F6 00 06        ...   ldab 0006
11523 D972 F1 0B AE        ...   cmpb 0bae
11524 D975 26 0D           &.    bne 0d       ; to d984
11525 D977 BD D7 FF        ...   jsr d7ff             ;jump80
11526 D97A F6 0B B3        ...   ldab 0bb3
11527 D97D F7 00 06        ...   stab 0006
11528 D980 8D 40           .@    bsr 40       ;jump205
11529 D982 20 3D            =    bra 3d
11530 D984 F6 00 06        ...   ldab 0006
11531 D987 F1 0B AD        ...   cmpb 0bad
11532 D98A 26 0D           &.    bne 0d
11533 D98C BD D7 FF        ...   jsr d7ff             ;jump80
11534 D98F F6 0B B2        ...   ldab 0bb2
11535 D992 F7 00 06        ...   stab 0006
11536 D995 8D 2B           .+    bsr 2b       ;jump205
11537 D997 20 28            (    bra 28
11538 D999 F6 00 06        ...   ldab 0006
11539 D99C F1 0B AC        ...   cmpb 0bac
11540 D99F 26 0D           &.    bne 0d
11541 D9A1 BD D7 FF        ...   jsr d7ff             ;jump80
11542 D9A4 F6 0B B1        ...   ldab 0bb1
11543 D9A7 F7 00 06        ...   stab 0006
11544 D9AA 8D 16           ..    bsr 16       ;jump205
11545 D9AC 20 13            .    bra 13
11546 D9AE F6 00 06        ...   ldab 0006
11547 D9B1 F1 0B AB        ...   cmpb 0bab
11548 D9B4 26 0B           &.    bne 0b
11549 D9B6 BD D7 FF        ...   jsr d7ff             ;jump80
11550 D9B9 F6 0B B0        ...   ldab 0bb0
11551 D9BC F7 00 06        ...   stab 0006
11552 D9BF 8D 01           ..    bsr 01       ;jump205
11553 D9C1 39              9     rts
11554
11555 jump205:
11556 D9C2 CC 03 E8        ...   ldd #03e8
11557 D9C5 BD E5 71        ..q   jsr e571             ;msdelay
11558 D9C8 BD D7 83        ...   jsr d783             ;jump44
11559 D9CB 83 00 00        ...   subd #0000
11560 D9CE 27 0B           '.    beq 0b
11561 D9D0 7F 00 06        ...   clr 0006
11562 D9D3 5F              _     clrb
11563 D9D4 4F              O     clra
11564 D9D5 FD 00 4D        ..M   std 004d
11565 D9D8 7E DA 63        ~.c   jmp da63             ;goto67
11566 D9DB BD D2 13        ...   jsr d213             ;jump45
11567 D9DE 83 00 00        ...   subd #0000
11568 D9E1 26 0A           &.    bne 0a
11569 D9E3 7F 00 06        ...   clr 0006
11570 D9E6 5F              _     clrb
11571 D9E7 4F              O     clra
11572 D9E8 FD 00 4D        ..M   std 004d
11573 D9EB 20 76            v    bra 76
11574 D9ED FC 0D 0B        ...   ldd 0d0b
11575 D9F0 83 FF FF        ...   subd #ffff
11576 D9F3 26 05           &.    bne 05
11577 D9F5 5F              _     clrb
11578 D9F6 4F              O     clra
11579 D9F7 FD 0D 0B        ...   std 0d0b
11580 D9FA FE 0D 0B        ...   ldx 0d0b
11581 D9FD 08              .     inx
11582 D9FE FF 0D 0B        ...   stx 0d0b
11583 DA01 F6 00 06        ...   ldab 0006
11584 DA04 4F              O     clra
11585 DA05 05              .     asld
11586 DA06 C3 08 C8        ...   addd #08c8
11587 DA09 8F              .     xgdx
11588 DA0A EC 00           ..    ldd 00,x
11589 DA0C C4 7F           ..    andb #7f
11590 DA0E 4F              O     clra
11591 DA0F FD 00 4D        ..M   std 004d
11592 DA12 F6 00 06        ...   ldab 0006
11593 DA15 4F              O     clra
11594 DA16 05              .     asld
11595 DA17 C3 08 00        ...   addd #0800
11596 DA1A 8F              .     xgdx
11597 DA1B EC 00           ..    ldd 00,x
11598 DA1D C4 FF           ..    andb #ff
11599 DA1F 84 3F           .?    anda #3f
11600 DA21 37              7     pshb
11601 DA22 36              6     psha
11602 DA23 4F              O     clra
11603 DA24 5F              _     clrb
11604 DA25 37              7     pshb
11605 DA26 36              6     psha
11606 DA27 CC 0D 17        ...   ldd #0d17
11607 DA2A BD FB DF        ...   jsr fbdf             ;jump46
11608 DA2D 31              1     ins
11609 DA2E 31              1     ins
11610 DA2F FE 0D 19        ...   ldx 0d19
11611 DA32 3C              <     pshx
11612 DA33 FC 0D 17        ...   ldd 0d17
11613 DA36 37              7     pshb
11614 DA37 36              6     psha
11615 DA38 CE E1 00        ...   ldx #e100
11616 DA3B 3C              <     pshx
11617 DA3C CC 05 F5        ...   ldd #05f5
11618 DA3F 37              7     pshb
11619 DA40 36              6     psha
11620 DA41 30              0     tsx
11621 DA42 EC 06           ..    ldd 06,x
11622 DA44 A3 02           ..    subd 02,x
11623 DA46 EC 04           ..    ldd 04,x
11624 DA48 E2 01           ..    sbcb 01,x
11625 DA4A A2 00           ..    sbca 00,x
11626 DA4C 38              8     pulx
11627 DA4D 38              8     pulx
11628 DA4E 38              8     pulx
11629 DA4F 38              8     pulx
11630 DA50 25 11           %.    bcs 11
11631 DA52 CE 1F 00        ...   ldx #1f00
11632 DA55 3C              <     pshx
11633 DA56 CC FA 0A        ...   ldd #fa0a
11634 DA59 37              7     pshb
11635 DA5A 36              6     psha
11636 DA5B CC 0D 17        ...   ldd #0d17
11637 DA5E BD FB DF        ...   jsr fbdf             ;jump46
11638 DA61 31              1     ins
11639 DA62 31              1     ins
11640 goto67:
11641 DA63 39              9     rts
11642
11643 jump122:
11644 DA64 FE 0B B9        ...   ldx 0bb9
11645 DA67 08              .     inx
11646 DA68 FF 0B B9        ...   stx 0bb9
11647 DA6B FC 0B B5        ...   ldd 0bb5
11648 DA6E CE 00 32        ..2   ldx #0032
11649 DA71 02              .     idiv
11650 DA72 8F              .     xgdx
11651 DA73 37              7     pshb
11652 DA74 36              6     psha
11653 DA75 CC 00 C3        ...   ldd #00c3    ; 195
11654 DA78 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11655 DA7B B3 0B B9        ...   subd 0bb9
11656 DA7E 24 05           $.    bcc 05
11657 DA80 5F              _     clrb
11658 DA81 4F              O     clra
11659 DA82 FD 0B B9        ...   std 0bb9
11660 DA85 FC 0B B9        ...   ldd 0bb9
11661 DA88 37              7     pshb
11662 DA89 36              6     psha
11663 DA8A CC 00 0A        ...   ldd #000a    ; 10
11664 DA8D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11665 DA90 37              7     pshb
11666 DA91 36              6     psha
11667 DA92 FC 0B B5        ...   ldd 0bb5
11668 DA95 CE 00 32        ..2   ldx #0032
11669 DA98 02              .     idiv
11670 DA99 8F              .     xgdx
11671 DA9A 38              8     pulx
11672 DA9B 8F              .     xgdx
11673 DA9C 02              .     idiv
11674 DA9D 8F              .     xgdx
11675 DA9E 37              7     pshb
11676 DA9F 36              6     psha
11677 DAA0 CC 00 0A        ...   ldd #000a    ; 10
11678 DAA3 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11679 DAA6 CE 00 0A        ...   ldx #000a
11680 DAA9 02              .     idiv
11681 DAAA 8F              .     xgdx
11682 DAAB FD 00 4A        ..J   std 004a
11683 DAAE FC 00 4A        ..J   ldd 004a
11684 DAB1 BD FE 32        ..2   jsr fe32             ;jump25
11685 DAB4 DA CA 00 6E     ...n  ; 110
11686 DAB8 DA CA 02 80     ....  ; 750
11687 DABC DA CA 01 C2     ....  ; 1200
11688 DAC0 DA CA 01 C2     ....  ; 1650
11689 DAC4 DB 43 F9 8E     ....  ; 0
11690 DAC8 00 00           ..    ; end of array data
11691 DACA FC 0D 07        ...   ldd 0d07
11692 DACD 83 FF FF        ...   subd #ffff
11693 DAD0 26 05           &.    bne 05
11694 DAD2 5F              _     clrb
11695 DAD3 4F              O     clra
11696 DAD4 FD 0D 07        ...   std 0d07
11697 DAD7 FE 0D 07        ...   ldx 0d07
11698 DADA 08              .     inx
11699 DADB FF 0D 07        ...   stx 0d07
11700 DADE F6 00 06        ...   ldab 0006
11701 DAE1 4F              O     clra
11702 DAE2 05              .     asld
11703 DAE3 C3 08 00        ...   addd #0800
11704 DAE6 8F              .     xgdx
11705 DAE7 EC 00           ..    ldd 00,x
11706 DAE9 C4 FF           ..    andb #ff
11707 DAEB 84 3F           .?    anda #3f
11708 DAED 37              7     pshb
11709 DAEE 36              6     psha
11710 DAEF 4F              O     clra
11711 DAF0 5F              _     clrb
11712 DAF1 37              7     pshb
11713 DAF2 36              6     psha
11714 DAF3 CC 0D 0F        ...   ldd #0d0f
11715 DAF6 BD FB DF        ...   jsr fbdf             ;jump46
11716 DAF9 31              1     ins
11717 DAFA 31              1     ins
11718 DAFB FE 0D 11        ...   ldx 0d11
11719 DAFE 3C              <     pshx
11720 DAFF FC 0D 0F        ...   ldd 0d0f
11721 DB02 37              7     pshb
11722 DB03 36              6     psha
11723 DB04 CE E1 00        ...   ldx #e100
11724 DB07 3C              <     pshx
11725 DB08 CC 05 F5        ...   ldd #05f5
11726 DB0B 37              7     pshb
11727 DB0C 36              6     psha
11728 DB0D 30              0     tsx
11729 DB0E EC 06           ..    ldd 06,x
11730 DB10 A3 02           ..    subd 02,x
11731 DB12 EC 04           ..    ldd 04,x
11732 DB14 E2 01           ..    sbcb 01,x
11733 DB16 A2 00           ..    sbca 00,x
11734 DB18 38              8     pulx
11735 DB19 38              8     pulx
11736 DB1A 38              8     pulx
11737 DB1B 38              8     pulx
11738 DB1C 25 11           %.    bcs 11
11739 DB1E CE 1F 00        ...   ldx #1f00
11740 DB21 3C              <     pshx
11741 DB22 CC FA 0A        ...   ldd #fa0a
11742 DB25 37              7     pshb
11743 DB26 36              6     psha
11744 DB27 CC 0D 0F        ...   ldd #0d0f
11745 DB2A BD FB DF        ...   jsr fbdf             ;jump46
11746 DB2D 31              1     ins
11747 DB2E 31              1     ins
11748 DB2F 5F              _     clrb
11749 DB30 4F              O     clra
11750 DB31 FD 00 44        ..D   std 0044
11751 DB34 CE 00 1B        ...   ldx #001b
11752 DB37 1D 00 01        ...   bclr 00,x, #01
11753 DB3A 7F 00 4F        ..O   clr 004f
11754 DB3D CE 00 11        ...   ldx #0011
11755 DB40 1C 00 10        ...   bset 00,x, #10
11756 DB43 39              9     rts
11757
11758 jump104:
11759 ; say thankyou?
11760 DB44 F6 00 2B        ..+   ldab 002b
11761 DB47 C1 00           ..    cmpb #00
11762 DB49 26 08           &.    bne 08
11763 DB4B CC AC DF        ...   ldd #acdf
11764 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11765 DB51 20 1E            .    bra 1e
11766 DB53 C1 01           ..    cmpb #01
11767 DB55 26 08           &.    bne 08
11768 DB57 CC AC D4        ...   ldd #acd4    ; "CHANGE"
11769 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11770 DB5D 20 12            .    bra 12
11771 DB5F C1 02           ..    cmpb #02
11772 DB61 26 08           &.    bne 08
11773 DB63 CC AC EA        ...   ldd #acea
11774 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11775 DB69 20 06            .    bra 06
11776 DB6B CC AC D4        ...   ldd #acd4
11777 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11778 DB71 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11779 DB74 CE 00 01        ...   ldx #0001
11780 DB77 3C              <     pshx
11781 DB78 FC 00 40        ..@   ldd 0040
11782 DB7B F3 00 3E        ..>   addd 003e
11783 DB7E BD BE 9E        ...   jsr be9e             ;jump50
11784 DB81 38              8     pulx
11785 DB82 FC 00 40        ..@   ldd 0040
11786 DB85 27 05           '.    beq 05
11787 DB87 BD C4 56        ..V   jsr c456             ;jump47
11788 DB8A 20 06            .    bra 06
11789 DB8C CC 02 58        ..X   ldd #0258
11790 DB8F BD E5 71        ..q   jsr e571             ;msdelay
11791 DB92 FC 00 3E        ..>   ldd 003e
11792 DB95 27 03           '.    beq 03
11793 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11794 DB9A F6 00 2B        ..+   ldab 002b
11795 DB9D C1 00           ..    cmpb #00
11796 DB9F 26 08           &.    bne 08
11797 DBA1 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
11798 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11799 DBA7 20 1E            .    bra 1e
11800 DBA9 C1 01           ..    cmpb #01
11801 DBAB 26 08           &.    bne 08
11802 DBAD CC AD 0B        ...   ldd #ad0b    ; "DANKE"
11803 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11804 DBB3 20 12            .    bra 12
11805 DBB5 C1 02           ..    cmpb #02
11806 DBB7 26 08           &.    bne 08
11807 DBB9 CC AD 00        ...   ldd #ad00    ; "MERCI"
11808 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11809 DBBF 20 06            .    bra 06
11810 DBC1 CC AC F5        ...   ldd #acf5    ; "THANKS"
11811 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11812 DBC7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11813 DBCA 39              9     rts
11814
11815 jump121:
11816 DBCB F6 00 1B        ...   ldab 001b
11817 DBCE C4 01           ..    andb #01
11818 DBD0 26 03           &.    bne 03
11819 DBD2 7E DC 98        ~..   jmp dc98             ;goto68
11820 DBD5 F6 00 06        ...   ldab 0006
11821 DBD8 4F              O     clra
11822 DBD9 05              .     asld
11823 DBDA C3 08 C8        ...   addd #08c8
11824 DBDD 8F              .     xgdx
11825 DBDE EC 00           ..    ldd 00,x
11826 DBE0 84 08           ..    anda #08
11827 DBE2 26 03           &.    bne 03
11828 DBE4 7E DC 98        ~..   jmp dc98             ;goto68
11829 DBE7 BD D7 FF        ...   jsr d7ff             ;jump80
11830 DBEA CC 03 E8        ...   ldd #03e8
11831 DBED BD E5 71        ..q   jsr e571             ;msdelay
11832 DBF0 BD D3 46        ..F   jsr d346             ;jump43
11833 DBF3 83 00 00        ...   subd #0000
11834 DBF6 26 08           &.    bne 08
11835 DBF8 BD D7 83        ...   jsr d783             ;jump44
11836 DBFB 83 00 00        ...   subd #0000
11837 DBFE 27 17           '.    beq 17
11838 DC00 5F              _     clrb
11839 DC01 4F              O     clra
11840 DC02 FD 00 4D        ..M   std 004d
11841 DC05 FC 00 44        ..D   ldd 0044
11842 DC08 F3 0B B7        ...   addd 0bb7
11843 DC0B 04              .     lsrd
11844 DC0C F3 00 40        ..@   addd 0040
11845 DC0F B3 0B B7        ...   subd 0bb7
11846 DC12 FD 00 40        ..@   std 0040
11847 DC15 20 78            x    bra 78
11848 DC17 BD D2 13        ...   jsr d213             ;jump45
11849 DC1A 83 00 00        ...   subd #0000
11850 DC1D 26 17           &.    bne 17
11851 DC1F 5F              _     clrb
11852 DC20 4F              O     clra
11853 DC21 FD 00 4D        ..M   std 004d
11854 DC24 FC 00 44        ..D   ldd 0044
11855 DC27 F3 0B B7        ...   addd 0bb7
11856 DC2A 04              .     lsrd
11857 DC2B F3 00 40        ..@   addd 0040
11858 DC2E B3 0B B7        ...   subd 0bb7
11859 DC31 FD 00 40        ..@   std 0040
11860 DC34 20 59            Y    bra 59
11861 DC36 FC 0D 09        ...   ldd 0d09
11862 DC39 83 FF FF        ...   subd #ffff
11863 DC3C 26 05           &.    bne 05
11864 DC3E 5F              _     clrb
11865 DC3F 4F              O     clra
11866 DC40 FD 0D 09        ...   std 0d09
11867 DC43 FE 0D 09        ...   ldx 0d09
11868 DC46 08              .     inx
11869 DC47 FF 0D 09        ...   stx 0d09
11870 DC4A FC 0B B7        ...   ldd 0bb7
11871 DC4D 37              7     pshb
11872 DC4E 36              6     psha
11873 DC4F 4F              O     clra
11874 DC50 5F              _     clrb
11875 DC51 37              7     pshb
11876 DC52 36              6     psha
11877 DC53 CC 0D 13        ...   ldd #0d13
11878 DC56 BD FB DF        ...   jsr fbdf             ;jump46
11879 DC59 31              1     ins
11880 DC5A 31              1     ins
11881 DC5B FE 0D 15        ...   ldx 0d15
11882 DC5E 3C              <     pshx
11883 DC5F FC 0D 13        ...   ldd 0d13
11884 DC62 37              7     pshb
11885 DC63 36              6     psha
11886 DC64 CE E1 00        ...   ldx #e100
11887 DC67 3C              <     pshx
11888 DC68 CC 05 F5        ...   ldd #05f5
11889 DC6B 37              7     pshb
11890 DC6C 36              6     psha
11891 DC6D 30              0     tsx
11892 DC6E EC 06           ..    ldd 06,x
11893 DC70 A3 02           ..    subd 02,x
11894 DC72 EC 04           ..    ldd 04,x
11895 DC74 E2 01           ..    sbcb 01,x
11896 DC76 A2 00           ..    sbca 00,x
11897 DC78 38              8     pulx
11898 DC79 38              8     pulx
11899 DC7A 38              8     pulx
11900 DC7B 38              8     pulx
11901 DC7C 25 11           %.    bcs 11
11902 DC7E CE 1F 00        ...   ldx #1f00
11903 DC81 3C              <     pshx
11904 DC82 CC FA 0A        ...   ldd #fa0a
11905 DC85 37              7     pshb
11906 DC86 36              6     psha
11907 DC87 CC 0D 13        ...   ldd #0d13
11908 DC8A BD FB DF        ...   jsr fbdf             ;jump46
11909 DC8D 31              1     ins
11910 DC8E 31              1     ins
11911 DC8F CE 00 1B        ...   ldx #001b
11912 DC92 1D 00 01        ...   bclr 00,x, #01
11913 DC95 7F 00 4F        ..O   clr 004f
11914 goto68:
11915 DC98 F6 00 11        ...   ldab 0011
11916 DC9B C4 08           ..    andb #08
11917 DC9D 26 03           &.    bne 03
11918 DC9F BD D9 5A        ..Z   jsr d95a             ;jump123
11919 DCA2 39              9     rts
11920
11921 jump29:
11922 DCA3 CE 0B BC        ...   ldx #0bbc
11923 DCA6 1D 00 1C        ..    bclr 00,x, #1c
11924 DCA9 F6 0B BC        ..    ldab 0bbc
11925 DCAB C4 03           ...   andb #03
11926 DCAE 26 48           &H    bne 48
11927 DCB0 FC 0B BD        ...   ldd 0bbd
11928 DCB3 37              7     pshb
11929 DCB4 36              6     psha
11930 DCB5 4F              O     clra
11931 DCB6 5F              _     clrb
11932 DCB7 37              7     pshb
11933 DCB8 36              6     psha
11934 DCB9 CC 0D F7        ...   ldd #0df7
11935 DCBC BD FB DF        ...   jsr fbdf             ;jump46
11936 DCBF 31              1     ins
11937 DCC0 31              1     ins
11938 DCC1 FE 0D F9        ...   ldx 0df9
11939 DCC4 3C              <     pshx
11940 DCC5 FC 0D F7        ...   ldd 0df7
11941 DCC8 37              7     pshb
11942 DCC9 36              6     psha
11943 DCCA CE E1 00        ...   ldx #e100
11944 DCCD 3C              <     pshx
11945 DCCE CC 05 F5        ...   ldd #05f5  ; 100000000
11946 DCD1 37              7     pshb
11947 DCD2 36              6     psha
11948 DCD3 30              0     tsx
11949 DCD4 EC 06           ..    ldd 06,x
11950 DCD6 A3 02           ..    subd 02,x
11951 DCD8 EC 04           ..    ldd 04,x
11952 DCDA E2 01           ..    sbcb 01,x
11953 DCDC A2 00           ..    sbca 00,x
11954 DCDE 38              8     pulx
11955 DCDF 38              8     pulx
11956 DCE0 38              8     pulx
11957 DCE1 38              8     pulx
11958 DCE2 25 11           %.    bcs 11
11959 DCE4 CE 1F 00        ...   ldx #1f00
11960 DCE7 3C              <     pshx
11961 DCE8 CC FA 0A        ...   ldd #fa0a
11962 DCEB 37              7     pshb
11963 DCEC 36              6     psha
11964 DCED CC 0D F7        ...   ldd #0df7
11965 DCF0 BD FB DF        ...   jsr fbdf             ;jump46
11966 DCF3 31              1     ins
11967 DCF4 31              1     ins
11968 DCF5 7E DD D4        ~..   jmp ddd4             ;goto69
11969 DCF8 F6 0B BC        ...   ldab 0bbc
11970 DCFB C4 03           ..    andb #03
11971 DCFD C1 01           ..    cmpb #01
11972 DCFF 27 03           '.    beq 03
11973 DD01 7E DD D4        ~..   jmp ddd4             ;goto69
11974 DD04 F6 0B BC        ...   ldab 0bbc
11975 DD07 C4 E0           ..    andb #e0
11976 DD09 54              T     lsrb
11977 DD0A 54              T     lsrb
11978 DD0B 54              T     lsrb
11979 DD0C 54              T     lsrb
11980 DD0D 54              T     lsrb
11981 DD0E F7 0B BC        ...   stab 0bbc
11982 DD11 F6 0B BC        ...   ldab 0bbc
11983 DD14 F1 0B C4        ...   cmpb 0bc4
11984 DD17 26 33           &3    bne 33
11985 DD19 F6 0B D7        ...   ldab 0bd7
11986 DD1C C1 01           ..    cmpb #01
11987 DD1E 26 0A           &.    bne 0a
11988 DD20 7C 0C DB        |..   inc 0cdb
11989 DD23 C6 03           ..    ldab #03
11990 DD25 F7 00 48        ..H   stab 0048
11991 DD28 20 20                 bra 20
11992 DD2A F6 0B D8        ...   ldab 0bd8
11993 DD2D C1 01           ..    cmpb #01
11994 DD2F 26 0A           &.    bne 0a
11995 DD31 7C 0C DA        |..   inc 0cda
11996 DD34 C6 02           ..    ldab #02
11997 DD36 F7 00 48        ..H   stab 0048
11998 DD39 20 0F            .    bra 0f
11999 DD3B F6 0B D9        ...   ldab 0bd9
12000 DD3E C1 01           ..    cmpb #01
12001 DD40 26 08           &.    bne 08
12002 DD42 7C 0C D9        |..   inc 0cd9
12003 DD45 C6 01           ..    ldab #01
12004 DD47 F7 00 48        ..H   stab 0048
12005 DD4A 20 74            t    bra 74
12006 DD4C F6 0B BC        ...   ldab 0bbc
12007 DD4F F1 0B C5        ...   cmpb 0bc5
12008 DD52 26 33           &3    bne 33
12009 DD54 F6 0B D7        ...   ldab 0bd7
12010 DD57 C1 04           ..    cmpb #04
12011 DD59 26 0A           &.    bne 0a
12012 DD5B 7C 0C DB        |..   inc 0cdb
12013 DD5E C6 03           ..    ldab #03
12014 DD60 F7 00 48        ..H   stab 0048
12015 DD63 20 20                 bra 20
12016 DD65 F6 0B D8        ...   ldab 0bd8
12017 DD68 C1 04           ..    cmpb #04
12018 DD6A 26 0A           &.    bne 0a
12019 DD6C 7C 0C DA        |..   inc 0cda
12020 DD6F C6 02           ..    ldab #02
12021 DD71 F7 00 48        ..H   stab 0048
12022 DD74 20 0F            .    bra 0f
12023 DD76 F6 0B D9        ...   ldab 0bd9
12024 DD79 C1 04           ..    cmpb #04
12025 DD7B 26 08           &.    bne 08
12026 DD7D 7C 0C D9        |..   inc 0cd9
12027 DD80 C6 01           ..    ldab #01
12028 DD82 F7 00 48        ..H   stab 0048
12029 DD85 20 39            9    bra 39
12030 DD87 F6 0B BC        ...   ldab 0bbc
12031 DD8A F1 0B C6        ...   cmpb 0bc6
12032 DD8D 26 31           &1    bne 31
12033 DD8F F6 0B D7        ...   ldab 0bd7
12034 DD92 C1 02           ..    cmpb #02
12035 DD94 26 0A           &.    bne 0a
12036 DD96 7C 0C DB        |..   inc 0cdb
12037 DD99 C6 03           ..    ldab #03
12038 DD9B F7 00 48        ..H   stab 0048
12039 DD9E 20 20                 bra 20
12040 DDA0 F6 0B D8        ...   ldab 0bd8
12041 DDA3 C1 02           ..    cmpb #02
12042 DDA5 26 0A           &.    bne 0a
12043 DDA7 7C 0C DA        |..   inc 0cda
12044 DDAA C6 02           ..    ldab #02
12045 DDAC F7 00 48        ..H   stab 0048
12046 DDAF 20 0F            .    bra 0f
12047 DDB1 F6 0B D9        ...   ldab 0bd9
12048 DDB4 C1 02           ..    cmpb #02
12049 DDB6 26 08           &.    bne 08
12050 DDB8 7C 0C D9        |..   inc 0cd9
12051 DDBB C6 01           ..    ldab #01
12052 DDBD F7 00 48        ..H   stab 0048
12053 DDC0 F6 00 17        ...   ldab 0017
12054 DDC3 C4 08           ..    andb #08
12055 DDC5 26 0D           &.    bne 0d
12056 DDC7 F6 0B BC        ...   ldab 0bbc
12057 DDCA 26 08           &.    bne 08
12058 DDCC 7C 0C DC        |..   inc 0cdc
12059 DDCF C6 04           ..    ldab #04
12060 DDD1 F7 00 48        ..H   stab 0048
12061 goto69:
12062 DDD4 39              9     rts
12063
12064 jump120:
12065 DDD5 BD BE 69        ..i   jsr be69             ;displayreset
12066 DDD8 C6 03           ..    ldab #03
12067 DDDA F7 00 1C        ...   stab 001c
12068 DDDD F6 00 1C        ...   ldab 001c
12069 DDE0 C1 0D           ..    cmpb #0d
12070 DDE2 24 1C           $.    bcc 1c
12071 DDE4 F6 00 1C        ...   ldab 001c
12072 DDE7 4F              O     clra
12073 DDE8 C3 0C B9        ...   addd #0cb9
12074 DDEB 8F              .     xgdx
12075 DDEC E6 00           ..    ldab 00,x
12076 DDEE 37              7     pshb
12077 DDEF CC 0B 9C        ...   ldd #0b9c
12078 DDF2 F0 00 1C        ...   subb 001c
12079 DDF5 82 00           ..    sbca #00
12080 DDF7 8F              .     xgdx
12081 DDF8 33              3     pulb
12082 DDF9 E7 00           ..    stab 00,x
12083 DDFB 7C 00 1C        |..   inc 001c
12084 DDFE 20 DD            .    bra dd
12085 DE00 BD BE 10        ...   jsr be10             ;jump88
12086 DE03 C6 14           ..    ldab #14
12087 DE05 F7 00 2C        ..,   stab 002c
12088 DE08 39              9     rts
12089
12090 jump119:
12091 DE09 CC 0B 9A        ...   ldd #0b9a    ; machine id?
12092 DE0C BD C0 BA        ...   jsr c0ba             ;display:
12093 DE0F C6 14           ..    ldab #14
12094 DE11 F7 00 2C        ..,   stab 002c
12095 DE14 39              9     rts
12096
12097 jump118:
12098 DE15 F6 00 1B        ...   ldab 001b
12099 DE18 C4 01           ..    andb #01
12100 DE1A 26 03           &.    bne 03
12101 DE1C 7E DE A4        ~..   jmp dea4             ;goto70 - return
12102 DE1F F6 00 06        ...   ldab 0006
12103 DE22 4F              O     clra
12104 DE23 05              .     asld
12105 DE24 C3 08 C8        ...   addd #08c8
12106 DE27 8F              .     xgdx
12107 DE28 EC 00           ..    ldd 00,x
12108 DE2A 84 08           ..    anda #08
12109 DE2C 27 76           'v    beq 76
12110 DE2E F6 00 11        ...   ldab 0011
12111 DE31 C4 08           ..    andb #08
12112 DE33 26 33           &3    bne 33          ; to de68
12113 DE35 F6 00 06        ...   ldab 0006
12114 DE38 F1 0B AF        ...   cmpb 0baf
12115 DE3B 27 20           '     beq 20          ; to de5d
12116 DE3D F6 00 06        ...   ldab 0006
12117 DE40 F1 0B AE        ...   cmpb 0bae
12118 DE43 27 18           '.    beq 18          ; to de5d
12119 DE45 F6 00 06        ...   ldab 0006
12120 DE48 F1 0B AD        ...   cmpb 0bad
12121 DE4B 27 10           '.    beq 10          ; to de5d
12122 DE4D F6 00 06        ...   ldab 0006
12123 DE50 F1 0B AC        ...   cmpb 0bac
12124 DE53 27 08           '.    beq 08          ; to de5d
12125 DE55 F6 00 06        ...   ldab 0006
12126 DE58 F1 0B AB        ...   cmpb 0bab
12127 DE5B 26 0B           &.    bne 0b          ; to de68
12128 ;
12129 DE5D CE 00 1B        ...   ldx #001b
12130 DE60 1D 00 01        ...   bclr 00,x, #01
12131 DE63 7F 00 4F        ..O   clr 004f
12132 DE66 20 3C            <    bra 3c          ; return
12133 ;
12134 DE68 FC 00 44        ..D   ldd 0044
12135 DE6B B3 0B B7        ...   subd 0bb7
12136 DE6E 23 2B           #+    bls 2b          ; to de99 - return
12137 DE70 FC 00 40        ..@   ldd 0040
12138 DE73 F3 00 3E        ..>   addd 003e
12139 DE76 37              7     pshb
12140 DE77 36              6     psha
12141 DE78 FC 00 44        ..D   ldd 0044
12142 DE7B B3 0B B7        ...   subd 0bb7
12143 DE7E F3 00 44        ..D   addd 0044
12144 DE81 30              0     tsx
12145 DE82 A3 00           ..    subd 00,x
12146 DE84 31              1     ins
12147 DE85 31              1     ins
12148 DE86 22 13           ".    bhi 13        ; to de9b
12149 DE88 FC 0B B7        ...   ldd 0bb7
12150 DE8B 27 0E           '.    beq 0e        ; to de9b
12151 DE8D FC 00 44        ..D   ldd 0044
12152 DE90 B3 0B B7        ...   subd 0bb7
12153 DE93 F3 00 44        ..D   addd 0044
12154 DE96 FD 00 44        ..D   std 0044
12155 DE99 20 09            .    bra 09        ; return
12156 ;
12157 DE9B CE 00 1B        ...   ldx #001b
12158 DE9E 1D 00 01        ...   bclr 00,x, #01
12159 DEA1 7F 00 4F        ..O   clr 004f
12160 goto70:
12161 DEA4 39              9     rts
12162
12163 jump117:
12164 ; machine out of order display?
12165 DEA5 F6 00 2B        ..+   ldab 002b
12166 DEA8 C1 00           ..    cmpb #00
12167 DEAA 26 0D           &.    bne 0d
12168 DEAC CE 00 12        ...   ldx #0012
12169 DEAF 3C              <     pshx
12170 DEB0 CC AE 7E        ..~   ldd #ae7e
12171 DEB3 BD C0 2E        ...   jsr c02e             ;jump71
12172 DEB6 38              8     pulx
12173 DEB7 20 2D            -    bra 2d
12174 DEB9 C1 01           ..    cmpb #01
12175 DEBB 26 0D           &.    bne 0d
12176 DEBD CE 00 0F        ...   ldx #000f
12177 DEC0 3C              <     pshx
12178 DEC1 CC AE 6D        ..m   ldd #ae6d    ; something german
12179 DEC4 BD C0 2E        ...   jsr c02e             ;jump71
12180 DEC7 38              8     pulx
12181 DEC8 20 1C            .    bra 1c
12182 DECA C1 02           ..    cmpb #02
12183 DECC 26 0D           &.    bne 0d
12184 DECE CE 00 10        ...   ldx #0010
12185 DED1 3C              <     pshx
12186 DED2 CC AE 5B        ..[   ldd #ae5b    ; more german
12187 DED5 BD C0 2E        ...   jsr c02e             ;jump71
12188 DED8 38              8     pulx
12189 DED9 20 0B            .    bra 0b
12190 DEDB CE 00 15        ...   ldx #0015
12191 DEDE 3C              <     pshx
12192 DEDF CC AE 44        ..D   ldd #ae44    ; "MACHINE OUT OF ORDER"
12193 DEE2 BD C0 2E        ...   jsr c02e             ;jump71
12194 DEE5 38              8     pulx
12195 DEE6 39              9     rts
12196
12197 jump116:
12198 ; revolves around coinage
12199 DEE7 F6 0B C0        ...   ldab 0bc0
12200 DEEA C4 01           ..    andb #01    ; have a dumb mech
12201 DEEC 26 07           &.    bne 07      ; to def5
12202 DEEE F6 0B C0        ...   ldab 0bc0
12203 DEF1 C4 04           ..    andb #04    ; have a card reader
12204 DEF3 27 15           '.    beq 15      ; if not to df0a
12205 ; have dumb mech:
12206 DEF5 C6 FF           ..    ldab #ff
12207 DEF7 F7 0B BC        ...   stab 0bbc
12208 DEFA F6 00 15        ...   ldab 0015
12209 DEFD 2D 03           -.    blt 03       ; to df02
12210 DEFF BD C6 7D        ..}   jsr c67d             ;jump124 - chat to changer
12211 DF02 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill acceptor
12212 DF05 BD DC A3        ...   jsr dca3             ;jump29
12213 DF08 20 25            %    bra 25       ; to df2f
12214 ; test the link master?
12215 DF0A F6 0B C0        ...   ldab 0bc0
12216 DF0D C4 02           ..    andb #02     ;have link master
12217 DF0F 27 1E           '.    beq 1e       ; to df2f
12218 DF11 F6 00 2F        ../   ldab 002f
12219 DF14 26 19           &.    bne 19       ; to df2f
12220 DF16 F6 00 1B        ...   ldab 001b
12221 DF19 C4 02           ..    andb #02
12222 DF1B 26 12           &.    bne 12       ; to df2f
12223 DF1D CC 00 FF        ...   ldd #00ff
12224 DF20 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12225 DF23 CE 00 1B        ...   ldx #001b
12226 DF26 1C 00 02        ..    bset 00,x, #02
12227 DF29 CE 0B C1        ...   ldx #0bc1
12228 DF2C 1C 00 04        ..    bset 00,x, #04 ; set link powerup error bit
12229 ;
12230 DF2F F6 00 21        ..!   ldab 0021
12231 DF32 C4 20           .     andb #20
12232 DF34 27 07           '.    beq 07
12233 ;
12234 DF36 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12235 DF39 BD DE A5        ...   jsr dea5             ;jump117 - machine out of order?
12236 DF3C 39              9     rts
12237 ;
12238 DF3D F6 00 4F        ..O   ldab 004f
12239 DF40 26 06           &.    bne 06
12240 DF42 CE 00 1B        ...   ldx #001b
12241 DF45 1D 00 01        ...   bclr 00,x, #01
12242 DF48 F6 00 25        ..%   ldab 0025
12243 DF4B 26 20           &     bne 20
12244 DF4D F6 00 1B        ...   ldab 001b
12245 DF50 C4 40           .@    andb #40
12246 DF52 27 19           '.    beq 19
12247 DF54 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12248 DF57 FC 00 40        ..@   ldd 0040
12249 DF5A 26 05           &.    bne 05
12250 DF5C FC 00 3E        ..>   ldd 003e
12251 DF5F 27 03           '.    beq 03
12252 DF61 BD DB 44        ..D   jsr db44             ;jump104 - say thanks
12253 DF64 BD D6 6B        ..k   jsr d66b             ;jump107
12254 DF67 CE 00 1B        ...   ldx #001b
12255 DF6A 1D 00 40        ...   bclr 00,x, #40
12256 DF6D F6 00 2C        ..,   ldab 002c
12257 DF70 27 03           '.    beq 03
12258 DF72 7E E0 66        ~.f   jmp e066             ;goto71
12259 DF75 F6 00 34        ..4   ldab 0034
12260 DF78 26 0B           &.    bne 0b
12261 DF7A BD BE 69        ..i   jsr be69             ;displayreset
12262 DF7D C6 32           .2    ldab #32
12263 DF7F F7 00 34        ..4   stab 0034
12264 DF82 7E E0 63        ~.c   jmp e063             ;goto72
12265 DF85 FC 00 40        ..@   ldd 0040
12266 DF88 26 05           &.    bne 05
12267 DF8A FC 00 3E        ..>   ldd 003e
12268 DF8D 27 16           '.    beq 16
12269 DF8F CE 00 01        ...   ldx #0001
12270 DF92 3C              <     pshx
12271 DF93 FC 00 40        ..@   ldd 0040
12272 DF96 F3 00 3E        ..>   addd 003e
12273 DF99 BD BE 9E        ...   jsr be9e             ;jump50
12274 DF9C 38              8     pulx
12275 DF9D C6 05           ..    ldab #05
12276 DF9F F7 00 2C        ..,   stab 002c
12277 DFA2 7E E0 63        ~.c   jmp e063             ;goto72
12278 DFA5 F6 0C D9        ...   ldab 0cd9
12279 DFA8 C1 04           ..    cmpb #04
12280 DFAA 24 07           $.    bcc 07
12281 DFAC F6 0B C0        ...   ldab 0bc0
12282 DFAF C4 01           ..    andb #01    ; have a dumb mech
12283 DFB1 26 07           &.    bne 07
12284 DFB3 F6 00 21        ..!   ldab 0021
12285 DFB6 C4 40           .@    andb #40
12286 DFB8 27 43           'C    beq 43
12287 DFBA F6 00 2B        ..+   ldab 002b
12288 DFBD C1 00           ..    cmpb #00
12289 DFBF 26 0D           &.    bne 0d
12290 DFC1 CE 00 19        ...   ldx #0019
12291 DFC4 3C              <     pshx
12292 DFC5 CC AD E7        ...   ldd #ade7    ; "INTRODUZCA"
12293 DFC8 BD C0 2E        ...   jsr c02e             ;jump71
12294 DFCB 38              8     pulx
12295 DFCC 20 2D            -    bra 2d
12296 DFCE C1 01           ..    cmpb #01
12297 DFD0 26 0D           &.    bne 0d
12298 DFD2 CE 00 12        ...   ldx #0012
12299 DFD5 3C              <     pshx
12300 DFD6 CC AD D3        ...   ldd #add3    ; "NICT UEBERZAHLEN"
12301 DFD9 BD C0 2E        ...   jsr c02e             ;jump71
12302 DFDC 38              8     pulx
12303 DFDD 20 1C            .    bra 1c
12304 DFDF C1 02           ..    cmpb #02
12305 DFE1 26 0D           &.    bne 0d
12306 DFE3 CE 00 19        ...   ldx #0019
12307 DFE6 3C              <     pshx
12308 DFE7 CC AD B8        ...   ldd #adb8    ; "MONNAIE EXACT"
12309 DFEA BD C0 2E        ...   jsr c02e             ;jump71
12310 DFED 38              8     pulx
12311 DFEE 20 0B            .    bra 0b
12312 DFF0 CE 00 11        ...   ldx #0011    ; length of
12313 DFF3 3C              <     pshx
12314 DFF4 CC AD A5        ...   ldd #ada5    ; " EXACT COINS ONLY "
12315 DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
12316 DFFA 38              8     pulx
12317 DFFB 20 66            f    bra 66
12318 DFFD F6 0B C0        ...   ldab 0bc0
12319 E000 C4 08           ..    andb #08     ; have link master price holding
12320 E002 27 52           'R    beq 52
12321 E004 F6 0B C1        ...   ldab 0bc1
12322 E007 C4 08           ..    andb #08    ; test bill error bit
12323 E009 26 08           &.    bne 08
12324 E00B FC 0B EF        ...   ldd 0bef
12325 E00E 83 00 64        ..d   subd #0064
12326 E011 24 43           $C    bcc 43
12327 E013 F6 00 2B        ..+   ldab 002b
12328 E016 C1 00           ..    cmpb #00
12329 E018 26 0D           &.    bne 0d
12330 E01A CE 00 12        ...   ldx #0012
12331 E01D 3C              <     pshx
12332 E01E CC AE 30        ..0   ldd #ae30    ; "MONEDA UNICAMENTE"
12333 E021 BD C0 2E        ...   jsr c02e             ;jump71
12334 E024 38              8     pulx
12335 E025 20 2D            -    bra 2d
12336 E027 C1 01           ..    cmpb #01
12337 E029 26 0D           &.    bne 0d
12338 E02B CE 00 0B        ...   ldx #000b
12339 E02E 3C              <     pshx
12340 E02F CC AE 23        ..#   ldd #ae23    ; "NUR MUNZEN"
12341 E032 BD C0 2E        ...   jsr c02e             ;jump71
12342 E035 38              8     pulx
12343 E036 20 1C            .    bra 1c
12344 E038 C1 02           ..    cmpb #02
12345 E03A 26 0D           &.    bne 0d
12346 E03C CE 00 12        ...   ldx #0012
12347 E03F 3C              <     pshx
12348 E040 CC AE 0F        ...   ldd #ae0f    ; "MONNAIES SEULEMENT"
12349 E043 BD C0 2E        ...   jsr c02e             ;jump71
12350 E046 38              8     pulx
12351 E047 20 0B            .    bra 0b
12352 E049 CE 00 0B        ...   ldx #000b
12353 E04C 3C              <     pshx
12354 E04D CC AE 02        ...   ldd #ae02    ; "COINS ONLY"
12355 E050 BD C0 2E        ...   jsr c02e             ;jump71
12356 E053 38              8     pulx
12357 E054 20 0D            .    bra 0d
12358 E056 F6 0B BF        ...   ldab 0bbf
12359 E059 4F              O     clra
12360 E05A 37              7     pshb
12361 E05B 36              6     psha
12362 E05C CC 09 93        ...   ldd #0993    ; some custom message?
12363 E05F BD C0 2E        ...   jsr c02e             ;jump71
12364 E062 38              8     pulx
12365 goto72:
12366 E063 7E E5 6A        ~.j   jmp e56a             ;goto73
12367 goto71:
12368 E066 F6 00 06        ...   ldab 0006
12369 E069 26 03           &.    bne 03
12370 E06B 7E E5 6A        ~.j   jmp e56a             ;goto73
12371 E06E CE 00 1D        ...   ldx #001d
12372 E071 1C 00 40        ...   bset 00,x, #40
12373 E074 BD E7 C7        ...   jsr e7c7             ;jump114
12374 E077 F6 00 06        ...   ldab 0006
12375 E07A C1 59           .Y    cmpb #59     ; 89
12376 E07C 26 06           &.    bne 06
12377 E07E BD DE 09        ...   jsr de09             ;jump119  - display machine id
12378 E081 7E E5 5E        ~.^   jmp e55e             ;goto74
12379 E084 F6 00 06        ...   ldab 0006
12380 E087 BD D4 68        ..h   jsr d468             ;jump51
12381 E08A 83 00 00        ...   subd #0000
12382 E08D 27 18           '.    beq 18
12383 E08F BD D5 61        ..a   jsr d561             ;jump42
12384 E092 83 00 00        ...   subd #0000
12385 E095 26 10           &.    bne 10
12386 E097 BD D3 46        ..F   jsr d346             ;jump43
12387 E09A 83 00 00        ...   subd #0000
12388 E09D 26 08           &.    bne 08
12389 E09F BD D7 83        ...   jsr d783             ;jump44
12390 E0A2 83 00 00        ...   subd #0000
12391 E0A5 27 09           '.    beq 09
12392 E0A7 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12393 E0AA BD D8 E9        ...   jsr d8e9             ;jump92
12394 E0AD 7E E5 5E        ~.^   jmp e55e             ;goto74
12395 E0B0 F6 00 06        ...   ldab 0006
12396 E0B3 4F              O     clra
12397 E0B4 05              .     asld
12398 E0B5 C3 08 00        ...   addd #0800
12399 E0B8 8F              .     xgdx
12400 E0B9 EC 00           ..    ldd 00,x
12401 E0BB C4 FF           ..    andb #ff
12402 E0BD 84 3F           .?    anda #3f
12403 E0BF FD 00 44        ..D   std 0044
12404 E0C2 F6 00 06        ...   ldab 0006
12405 E0C5 4F              O     clra
12406 E0C6 05              .     asld
12407 E0C7 C3 08 C8        ...   addd #08c8
12408 E0CA 8F              .     xgdx
12409 E0CB EC 00           ..    ldd 00,x
12410 E0CD C4 7F           ..    andb #7f
12411 E0CF 4F              O     clra
12412 E0D0 FD 00 4D        ..M   std 004d
12413 E0D3 F6 0B C0        ...   ldab 0bc0
12414 E0D6 2C 05           ,.    bge 05      ; free vend
12415 E0D8 5F              _     clrb
12416 E0D9 4F              O     clra
12417 E0DA FD 00 44        ..D   std 0044
12418 E0DD F6 0B C0        ...   ldab 0bc0
12419 E0E0 C4 02           ..    andb #02    ; have a changer
12420 E0E2 26 03           &.    bne 03
12421 E0E4 BD DE 15        ...   jsr de15             ;jump118
12422 E0E7 F6 00 11        ...   ldab 0011
12423 E0EA C4 20           .     andb #20
12424 E0EC 26 1A           &.    bne 1a
12425 E0EE F6 0B C0        ...   ldab 0bc0
12426 E0F1 C4 02           ..    andb #02    ; have a changer
12427 E0F3 26 13           &.    bne 13
12428 E0F5 FC 00 40        ..@   ldd 0040
12429 E0F8 F3 00 3E        ..>   addd 003e
12430 E0FB B3 00 44        ..D   subd 0044
12431 E0FE 25 08           %.    bcs 08
12432 E100 F6 0B C0        ...   ldab 0bc0
12433 E103 2D 03           -.    blt 03      ; no free vend
12434 E105 BD DA 64        ..d   jsr da64             ;jump122
12435 E108 FC 00 40        ..@   ldd 0040
12436 E10B F3 00 3E        ..>   addd 003e
12437 E10E B3 00 44        ..D   subd 0044
12438 E111 24 50           $P    bcc 50
12439 E113 F6 0B C0        ...   ldab 0bc0
12440 E116 C4 10           ..    andb #10     ; have link master price holding
12441 E118 26 49           &I    bne 49
12442 E11A F6 00 2B        ..+   ldab 002b
12443 E11D C1 00           ..    cmpb #00
12444 E11F 26 08           &.    bne 08
12445 E121 CC AC C9        ...   ldd #acc9    ; "PRECIO"
12446 E124 BD C0 BA        ...   jsr c0ba             ;display:
12447 E127 20 1E            .    bra 1e
12448 E129 C1 01           ..    cmpb #01
12449 E12B 26 08           &.    bne 08
12450 E12D CC AC BE        ...   ldd #acbe    ; "PREIS"
12451 E130 BD C0 BA        ...   jsr c0ba             ;display:
12452 E133 20 12            .    bra 12
12453 E135 C1 02           ..    cmpb #02
12454 E137 26 08           &.    bne 08
12455 E139 CC AC B3        ...   ldd #acb3    ; "PRIX"
12456 E13C BD C0 BA        ...   jsr c0ba             ;display:
12457 E13F 20 06            .    bra 06
12458 E141 CC AC A8        ...   ldd #aca8    ; "PRICE"
12459 E144 BD C0 BA        ...   jsr c0ba             ;display:
12460 E147 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12461 E14A CE 00 00        ...   ldx #0000
12462 E14D 3C              <     pshx
12463 E14E FC 00 44        ..D   ldd 0044
12464 E151 BD BE 9E        ...   jsr be9e             ;jump50
12465 E154 38              8     pulx
12466 E155 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12467 E158 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12468 E15B C6 0C           ..    ldab #0c
12469 E15D F7 00 2C        ..,   stab 002c
12470 E160 7E E5 5E        ~.^   jmp e55e             ;goto74
12471 E163 F6 0B C0        ...   ldab 0bc0
12472 E166 C4 01           ..    andb #01     ; have a dumb mech
12473 E168 26 11           &.    bne 11
12474 E16A F6 0B C0        ...   ldab 0bc0
12475 E16D C4 04           ..    andb #04     ; have a card reader
12476 E16F 26 0A           &.    bne 0a
12477 E171 F6 0B C0        ...   ldab 0bc0
12478 E174 C4 0F           ..    andb #0f     ; have any coin input mechanism
12479 E176 27 03           '.    beq 03
12480 E178 7E E3 35        ~.5   jmp e335             ;goto75
12481 E17B FC 00 40        ..@   ldd 0040
12482 E17E F3 00 3E        ..>   addd 003e
12483 E181 B3 00 44        ..D   subd 0044
12484 E184 FD 10 16        ...   std 1016
12485 E187 F6 00 15        ...   ldab 0015
12486 E18A C4 01           ..    andb #01
12487 E18C 27 08           '.    beq 08
12488 E18E FC 10 16        ...   ldd 1016
12489 E191 83 00 64        ..d   subd #0064  ; 100
12490 E194 25 3C           %<    bcs 3c
12491 E196 F6 00 15        ...   ldab 0015
12492 E199 C4 02           ..    andb #02
12493 E19B 27 08           '.    beq 08
12494 E19D FC 10 16        ...   ldd 1016
12495 E1A0 83 00 C8        ...   subd #00c8  ; 200
12496 E1A3 25 2D           %-    bcs 2d
12497 E1A5 F6 00 15        ...   ldab 0015
12498 E1A8 C4 04           ..    andb #04
12499 E1AA 27 08           '.    beq 08
12500 E1AC FC 10 16        ...   ldd 1016
12501 E1AF 83 01 F4        ...   subd #01f4  ; 500
12502 E1B2 25 1E           %.    bcs 1e
12503 E1B4 F6 00 15        ...   ldab 0015
12504 E1B7 C4 08           ..    andb #08
12505 E1B9 27 08           '.    beq 08
12506 E1BB FC 10 16        ...   ldd 1016
12507 E1BE 83 03 E8        ...   subd #03e8  ; 1000
12508 E1C1 25 0F           %.    bcs 0f
12509 E1C3 F6 00 15        ...   ldab 0015
12510 E1C6 C4 10           ..    andb #10
12511 E1C8 27 13           '.    beq 13
12512 E1CA FC 10 16        ...   ldd 1016
12513 E1CD 83 07 D0        ...   subd #07d0  ; 2000
12514 E1D0 24 0B           $.    bcc 0b
12515 E1D2 BD C0 E0        ...   jsr c0e0             ;jump94
12516 E1D5 83 00 00        ...   subd #0000
12517 E1D8 26 01           &.    bne 01
12518 ;
12519 E1DA 39              9     rts
12520 ;
12521 E1DB 20 03            .    bra 03
12522 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12523 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12524 E1E3 FC 00 40        ..@   ldd 0040
12525 E1E6 B3 00 44        ..D   subd 0044
12526 E1E9 F3 00 3E        ..>   addd 003e
12527 E1EC FD 00 40        ..@   std 0040
12528 E1EF 5F              _     clrb
12529 E1F0 4F              O     clra
12530 E1F1 FD 00 3E        ..>   std 003e
12531 E1F4 CE 00 1B        ...   ldx #001b
12532 E1F7 1C 00 80        ..    bset 00,x, #80
12533 E1F9 BD D2 13        ..    jsr d213     ;jump45
12534 E1FC 83 00 00        ...   subd #0000
12535 E200 26 12           &.    bne 12
12536 E202 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12537 E205 BD D8 E9        ...   jsr d8e9             ;jump92 - "SELECT OTHER ITEM"
12538 E208 FC 00 40        ..@   ldd 0040
12539 E20B F3 00 44        ..D   addd 0044
12540 E20E FD 00 40        ..@   std 0040
12541 E211 7E E3 29        ~.)   jmp e329             ;goto92
12542 E214 BD DB CB        ...   jsr dbcb             ;jump121
12543 E217 F6 00 1B        ...   ldab 001b
12544 E21A C4 20           .     andb #20
12545 E21C 27 45           'E    beq 45
12546 E21E FC 00 44        ..D   ldd 0044
12547 E221 37              7     pshb
12548 E222 36              6     psha
12549 E223 4F              O     clra
12550 E224 5F              _     clrb
12551 E225 37              7     pshb
12552 E226 36              6     psha
12553 E227 CC 0D FB        ...   ldd #0dfb
12554 E22A BD FB DF        ...   jsr fbdf             ;jump46
12555 E22D 31              1     ins
12556 E22E 31              1     ins
12557 E22F FE 0D FD        ...   ldx 0dfd
12558 E232 3C              <     pshx
12559 E233 FC 0D FB        ...   ldd 0dfb
12560 E236 37              7     pshb
12561 E237 36              6     psha
12562 E238 CE E1 00        ...   ldx #e100
12563 E23B 3C              <     pshx
12564 E23C CC 05 F5        ...   ldd #05f5
12565 E23F 37              7     pshb
12566 E240 36              6     psha
12567 E241 30              0     tsx
12568 E242 EC 06           ..    ldd 06,x
12569 E244 A3 02           ..    subd 02,x
12570 E246 EC 04           ..    ldd 04,x
12571 E248 E2 01           ..    sbcb 01,x
12572 E24A A2 00           ..    sbca 00,x
12573 E24C 38              8     pulx
12574 E24D 38              8     pulx
12575 E24E 38              8     pulx
12576 E24F 38              8     pulx
12577 E250 25 11           %.    bcs 11
12578 E252 CE 1F 00        ...   ldx #1f00
12579 E255 3C              <     pshx
12580 E256 CC FA 0A        ...   ldd #fa0a
12581 E259 37              7     pshb
12582 E25A 36              6     psha
12583 E25B CC 0D FB        ...   ldd #0dfb
12584 E25E BD FB DF        ...   jsr fbdf             ;jump46
12585 E261 31              1     ins
12586 E262 31              1     ins
12587 E263 F6 0B C0        ...   ldab 0bc0
12588 E266 2C 78           ,x    bge 78       ; free vend
12589 E268 F6 00 06        ...   ldab 0006
12590 E26B 4F              O     clra
12591 E26C 05              .     asld
12592 E26D C3 08 00        ...   addd #0800
12593 E270 8F              .     xgdx
12594 E271 EC 00           ..    ldd 00,x
12595 E273 C4 FF           ..    andb #ff
12596 E275 26 02           &.    bne 02
12597 E277 84 3F           .?    anda #3f
12598 E279 27 65           'e    beq 65
12599 E27B FC 0D 0D        ...   ldd 0d0d
12600 E27E 83 FF FF        ...   subd #ffff
12601 E281 26 05           &.    bne 05
12602 E283 5F              _     clrb
12603 E284 4F              O     clra
12604 E285 FD 0D 0D        ...   std 0d0d
12605 E288 FE 0D 0D        ...   ldx 0d0d
12606 E28B 08              .     inx
12607 E28C FF 0D 0D        ...   stx 0d0d
12608 E28F F6 00 06        ...   ldab 0006
12609 E292 4F              O     clra
12610 E293 05              .     asld
12611 E294 C3 08 00        ...   addd #0800
12612 E297 8F              .     xgdx
12613 E298 EC 00           ..    ldd 00,x
12614 E29A C4 FF           ..    andb #ff
12615 E29C 84 3F           .?    anda #3f
12616 E29E 37              7     pshb
12617 E29F 36              6     psha
12618 E2A0 4F              O     clra
12619 E2A1 5F              _     clrb
12620 E2A2 37              7     pshb
12621 E2A3 36              6     psha
12622 E2A4 CC 0D 1B        ...   ldd #0d1b
12623 E2A7 BD FB DF        ...   jsr fbdf             ;jump46
12624 E2AA 31              1     ins
12625 E2AB 31              1     ins
12626 E2AC FE 0D 1D        ...   ldx 0d1d
12627 E2AF 3C              <     pshx
12628 E2B0 FC 0D 1B        ...   ldd 0d1b
12629 E2B3 37              7     pshb
12630 E2B4 36              6     psha
12631 E2B5 CE E1 00        ...   ldx #e100
12632 E2B8 3C              <     pshx
12633 E2B9 CC 05 F5        ...   ldd #05f5
12634 E2BC 37              7     pshb
12635 E2BD 36              6     psha
12636 E2BE 30              0     tsx
12637 E2BF EC 06           ..    ldd 06,x
12638 E2C1 A3 02           ..    subd 02,x
12639 E2C3 EC 04           ..    ldd 04,x
12640 E2C5 E2 01           ..    sbcb 01,x
12641 E2C7 A2 00           ..    sbca 00,x
12642 E2C9 38              8     pulx
12643 E2CA 38              8     pulx
12644 E2CB 38              8     pulx
12645 E2CC 38              8     pulx
12646 E2CD 25 11           %.    bcs 11
12647 E2CF CE 1F 00        ...   ldx #1f00
12648 E2D2 3C              <     pshx
12649 E2D3 CC FA 0A        ...   ldd #fa0a
12650 E2D6 37              7     pshb
12651 E2D7 36              6     psha
12652 E2D8 CC 0D 1B        ...   ldd #0d1b
12653 E2DB BD FB DF        ...   jsr fbdf             ;jump46
12654 E2DE 31              1     ins
12655 E2DF 31              1     ins
12656 E2E0 F6 00 11        ...   ldab 0011
12657 E2E3 C4 10           ..    andb #10
12658 E2E5 26 14           &.    bne 14
12659 E2E7 FC 00 40        ..@   ldd 0040
12660 E2EA 27 0F           '.    beq 0f
12661 E2EC FC 00 40        ..@   ldd 0040
12662 E2EF B3 00 50        ..P   subd 0050
12663 E2F2 24 15           $.    bcc 15
12664 E2F4 F6 00 11        ...   ldab 0011
12665 E2F7 C4 10           ..    andb #10
12666 E2F9 26 0E           &.    bne 0e
12667 E2FB BD DB 44        ..D   jsr db44             ;jump104 - say thanks
12668 E2FE CE 00 1B        ...   ldx #001b
12669 E301 1D 00 40        ...   bclr 00,x, #40
12670 E304 7F 00 25        ..%   clr 0025
12671 E307 20 1A            .    bra 1a
12672 E309 7F 00 2C        ..,   clr 002c
12673 E30C CC 01 F4        ...   ldd #01f4
12674 E30F BD E5 71        ..q   jsr e571             ;msdelay
12675 E312 BD E5 AA        ...   jsr e5aa             ;jump12
12676 E315 BD D8 E9        ...   jsr d8e9             ;jump92
12677 E318 CE 00 1B        ...   ldx #001b
12678 E31B 1C 00 40        ...   bset 00,x, #40
12679 E31E C6 0A           ..    ldab #0a
12680 E320 F7 00 25        ..%   stab 0025
12681 E323 BD D7 FF        ...   jsr d7ff             ;jump80
12682 E326 BD D8 40        ..@   jsr d840             ;jump105
12683 goto92:
12684 E329 BD E8 9A        ...   jsr e89a             ;jump68
12685 E32C CE 0B C1        ...   ldx #0bc1
12686 E32F 1D 00 08        ...   bclr 00,x, #08  ; clear bill error bit
12687 E332 7E E5 5E        ~.^   jmp e55e             ;goto74
12688 goto75:
12689 E335 F6 0B C0        ...   ldab 0bc0
12690 E338 C4 02           ..    andb #02     ; have a changer
12691 E33A 26 03           &.    bne 03
12692 E33C 7E E5 5E        ~.^   jmp e55e             ;goto74
12693 E33F 5F              _     clrb
12694 E340 4F              O     clra
12695 E341 FD 00 76        ..v   std 0076
12696 E344 CE 00 17        ...   ldx #0017
12697 E347 1D 00 01        ...   bclr 00,x, #01
12698 E34A CE 00 17        ...   ldx #0017
12699 E34D 1D 00 02        ...   bclr 00,x, #02
12700 E350 FC 00 44        ..D   ldd 0044
12701 E353 26 1C           &.    bne 1c
12702 E355 F6 0B C0        ...   ldab 0bc0
12703 E358 C4 10           ..    andb #10      ; have link master price holding
12704 E35A 26 08           &.    bne 08
12705 E35C CE 00 21        ..!   ldx #0021
12706 E35F 1C 00           ..    bset add,x 00,x
12707 E361 80 20           .     suba #20
12708 E363 0B              .     sev
12709 E364 CE 00 21        ..!   ldx #0021
12710 E367 1D 00           ..    bclr add,x 00,x
12711 E369 80 C6           ..    suba #c6
12712 E36B 05              .     asld
12713 E36C F7 00 75        ..u   stab 0075
12714 E36F 20 57            W    bra 57
12715 E371 F6 0B C0        ...   ldab 0bc0
12716 E374 C4 10           ..    andb #10      ; have link master price holding
12717 E376 27 50           'P    beq 50
12718 E378 FC 00 40        ..@   ldd 0040
12719 E37B 26 4B           &K    bne 4b
12720 E37D F6 0B C0        ...   ldab 0bc0
12721 E380 C4 20           .     andb #20      ; have link master price holding - price display
12722 E382 27 3E           '>    beq 3e
12723 E384 CE 00 17        ...   ldx #0017
12724 E387 1C 00 01        ...   bset 00,x, #01
12725 E38A F6 00 2B        ..+   ldab 002b
12726 E38D C1 00           ..    cmpb #00
12727 E38F 26 08           &.    bne 08
12728 E391 CC AC C9        ...   ldd #acc9    ; "  PRECIO  "
12729 E394 BD C0 BA        ...   jsr c0ba             ;display:
12730 E397 20 1E            .    bra 1e
12731 E399 C1 01           ..    cmpb #01
12732 E39B 26 08           &.    bne 08
12733 E39D CC AC BE        ...   ldd #acbe    ; "  PRIES  "
12734 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12735 E3A3 20 12            .    bra 12
12736 E3A5 C1 02           ..    cmpb #02
12737 E3A7 26 08           &.    bne 08
12738 E3A9 CC AC B3        ...   ldd #acb3    ; "  PRIX   "
12739 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12740 E3AF 20 06            .    bra 06
12741 E3B1 CC AC A8        ...   ldd #aca8    ; "  PRICE  "
12742 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12743 E3B7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12744 E3BA CE 00 17        ...   ldx #0017
12745 E3BD 1C 00 02        ...   bset 00,x, #02
12746 E3C0 20 06            .    bra 06
12747 E3C2 CE 00 1F        ...   ldx #001f
12748 E3C5 1C 00 08        ...   bset 00,x, #08
12749 E3C8 CE 00 1D        ...   ldx #001d
12750 E3CB 1C 00 02        ...   bset 00,x, #02
12751 E3CE CE 00 19        ...   ldx #0019
12752 E3D1 1C 00 08        ...   bset 00,x, #08
12753 E3D4 C6 32           .2    ldab #32
12754 E3D6 F7 00 31        ..1   stab 0031
12755 E3D9 C6 19           ..    ldab #19
12756 E3DB F7 00 36        ..6   stab 0036
12757 goto77:
12758 E3DE F6 00 1D        ...   ldab 001d
12759 E3E1 C4 02           ..    andb #02
12760 E3E3 26 03           &.    bne 03
12761 E3E5 7E E4 6E        ~.n   jmp e46e             ;goto76
12762 E3E8 F6 00 75        ..u   ldab 0075
12763 E3EB C1 04           ..    cmpb #04
12764 E3ED 22 05           ".    bhi 05
12765 E3EF F6 00 36        ..6   ldab 0036
12766 E3F2 26 3C           &<    bne 3c
12767 E3F4 7F 00 06        ...   clr 0006
12768 E3F7 5F              _     clrb
12769 E3F8 4F              O     clra
12770 E3F9 FD 00 76        ..v   std 0076
12771 E3FC 7F 00 2E        ...   clr 002e
12772 E3FF 7F 00 2C        ..,   clr 002c
12773 E402 7F 00 75        ..u   clr 0075
12774 E405 CE 00 17        ...   ldx #0017
12775 E408 1D 00 01        ...   bclr 00,x, #01
12776 E40B CE 00 19        ...   ldx #0019
12777 E40E 1D 00 08        ...   bclr 00,x, #08
12778 E411 CE 00 1B        ...   ldx #001b
12779 E414 1D 00           ..    bclr add,x 00,x
12780 E416 80 CE           ..    suba #ce
12781 E418 00              .     test
12782 E419 1D 1D 00        ...   bclr 1d,x, #00
12783 E41C 40              @     nega
12784 E41D CE 00 1D        ...   ldx #001d
12785 E420 1D 00 02        ...   bclr 00,x, #02
12786 E423 CE 00 1F        ...   ldx #001f
12787 E426 1D 00 08        ...   bclr 00,x, #08
12788 E429 CE 00 21        ..!   ldx #0021
12789 E42C 1D 00           ..    bclr add,x 00,x
12790 E42E 80 39           .9    suba #39
12791 E430 F6 0B C0        ...   ldab 0bc0
12792 E433 C4 20           .     andb #20     ; link master - price display
12793 E435 27 34           '4    beq 34
12794 E437 F6 00 17        ...   ldab 0017
12795 E43A C4 01           ..    andb #01
12796 E43C 26 2D           &-    bne 2d
12797 E43E F6 00 17        ...   ldab 0017
12798 E441 C4 02           ..    andb #02
12799 E443 27 26           '&    beq 26
12800 E445 CE 00 00        ...   ldx #0000
12801 E448 3C              <     pshx
12802 E449 FC 00 76        ..v   ldd 0076
12803 E44C BD BE 9E        ...   jsr be9e             ;jump50
12804 E44F 38              8     pulx
12805 E450 FC 00 76        ..v   ldd 0076
12806 E453 26 06           &.    bne 06
12807 E455 CE 00 17        ...   ldx #0017
12808 E458 1D 00 02        ...   bclr 00,x, #02
12809 E45B F6 00 17        ...   ldab 0017
12810 E45E C4 02           ..    andb #02
12811 E460 27 09           '.    beq 09
12812 E462 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12813 E465 CE 00 17        ...   ldx #0017
12814 E468 1D 00 02        ...   bclr 00,x, #02
12815 E46B 7E E3 DE        ~..   jmp e3de             ;goto77
12816 goto76:
12817 E46E CE 00 21        ..!   ldx #0021
12818 E471 1D 00           ..    bclr add,x 00,x
12819 E473 80 CE           ..    suba #ce
12820 E475 00              .     test
12821 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12822 E47A BD D2 13        ...   jsr d213             ;jump45
12823 E47D 83 00 00        ...   subd #0000
12824 E480 26 0F           &.    bne 0f
12825 E482 CC 00 80        ...   ldd #0080
12826 E485 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12827 E488 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12828 E48B BD D8 E9        ...   jsr d8e9             ;jump92
12829 E48E 7E E5 5E        ~.^   jmp e55e             ;goto74
12830 E491 F6 00 2B        ..+   ldab 002b
12831 E494 C1 00           ..    cmpb #00
12832 E496 26 08           &.    bne 08
12833 E498 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
12834 E49B BD C0 BA        ...   jsr c0ba             ;display:
12835 E49E 20 1E            .    bra 1e
12836 E4A0 C1 01           ..    cmpb #01
12837 E4A2 26 08           &.    bne 08
12838 E4A4 CC AD 0B        ...   ldd #ad0b    ; "DANKE"
12839 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12840 E4AA 20 12            .    bra 12
12841 E4AC C1 02           ..    cmpb #02
12842 E4AE 26 08           &.    bne 08
12843 E4B0 CC AD 00        ...   ldd #ad00    ; "MERCI"
12844 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12845 E4B6 20 06            .    bra 06
12846 E4B8 CC AC F5        ...   ldd #acf5    ; "THANKS"
12847 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12848 E4BE BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12849 E4C1 CE 00 01        ...   ldx #0001
12850 E4C4 3C              <     pshx
12851 E4C5 FC 00 40        ..@   ldd 0040
12852 E4C8 BD BE 9E        ...   jsr be9e             ;jump50
12853 E4CB 38              8     pulx
12854 E4CC 5F              _     clrb
12855 E4CD 4F              O     clra
12856 E4CE BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12857 E4D1 F6 0B C0        ...   ldab 0bc0
12858 E4D4 2D 03           -.    blt 03       ; free vend
12859 E4D6 7E E5 58        ~.X   jmp e558             ;goto78 if not
12860 E4D9 F6 0B C0        ...   ldab 0bc0
12861 E4DC C4 10           ..    andb #10     ; link master - price holding
12862 E4DE 26 78           &x    bne 78
12863 E4E0 F6 00 06        ...   ldab 0006
12864 E4E3 4F              O     clra
12865 E4E4 05              .     asld
12866 E4E5 C3 08 00        ...   addd #0800
12867 E4E8 8F              .     xgdx
12868 E4E9 EC 00           ..    ldd 00,x
12869 E4EB C4 FF           ..    andb #ff
12870 E4ED 26 02           &.    bne 02
12871 E4EF 84 3F           .?    anda #3f
12872 E4F1 27 65           'e    beq 65
12873 E4F3 FC 0D 0D        ...   ldd 0d0d
12874 E4F6 83 FF FF        ...   subd #ffff
12875 E4F9 26 05           &.    bne 05
12876 E4FB 5F              _     clrb
12877 E4FC 4F              O     clra
12878 E4FD FD 0D 0D        ...   std 0d0d
12879 E500 FE 0D 0D        ...   ldx 0d0d
12880 E503 08              .     inx
12881 E504 FF 0D 0D        ...   stx 0d0d
12882 E507 F6 00 06        ...   ldab 0006
12883 E50A 4F              O     clra
12884 E50B 05              .     asld
12885 E50C C3 08 00        ...   addd #0800
12886 E50F 8F              .     xgdx
12887 E510 EC 00           ..    ldd 00,x
12888 E512 C4 FF           ..    andb #ff
12889 E514 84 3F           .?    anda #3f
12890 E516 37              7     pshb
12891 E517 36              6     psha
12892 E518 4F              O     clra
12893 E519 5F              _     clrb
12894 E51A 37              7     pshb
12895 E51B 36              6     psha
12896 E51C CC 0D 1B        ...   ldd #0d1b
12897 E51F BD FB DF        ...   jsr fbdf             ;jump46
12898 E522 31              1     ins
12899 E523 31              1     ins
12900 E524 FE 0D 1D        ...   ldx 0d1d
12901 E527 3C              <     pshx
12902 E528 FC 0D 1B        ...   ldd 0d1b
12903 E52B 37              7     pshb
12904 E52C 36              6     psha
12905 E52D CE E1 00        ...   ldx #e100
12906 E530 3C              <     pshx
12907 E531 CC 05 F5        ...   ldd #05f5
12908 E534 37              7     pshb
12909 E535 36              6     psha
12910 E536 30              0     tsx
12911 E537 EC 06           ..    ldd 06,x
12912 E539 A3 02           ..    subd 02,x
12913 E53B EC 04           ..    ldd 04,x
12914 E53D E2 01           ..    sbcb 01,x
12915 E53F A2 00           ..    sbca 00,x
12916 E541 38              8     pulx
12917 E542 38              8     pulx
12918 E543 38              8     pulx
12919 E544 38              8     pulx
12920 E545 25 11           %.    bcs 11
12921 E547 CE 1F 00        ...   ldx #1f00
12922 E54A 3C              <     pshx
12923 E54B CC FA 0A        ...   ldd #fa0a
12924 E54E 37              7     pshb
12925 E54F 36              6     psha
12926 E550 CC 0D 1B        ...   ldd #0d1b
12927 E553 BD FB DF        ...   jsr fbdf             ;jump46
12928 E556 31              1     ins
12929 E557 31              1     ins
12930 goto78:
12931 E558 BD D7 FF        ...   jsr d7ff             ;jump80
12932 E55B BD D8 40        ..@   jsr d840             ;jump105
12933 goto74:
12934 E55E 7F 00 06        ...   clr 0006
12935 E561 7F 00 2E        ...   clr 002e
12936 E564 CE 00 1B        ...   ldx #001b
12937 E567 1D 00 80        ..    bclr 00,x, #80
12938 ;goto73
12939 E56A CE 00 1D        ...   ldx #001d
12940 E56C 1D 00 40        ..    bclr 00,x, #40
12941 E570 39              9     rts
12942
12943 ;!!! Is this a delay routine?  It gets called between displaying strings
12944 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12945 msdelay:
12946 ; appears to delay for roughly D milliseconds.
12947 E571 37              7     pshb
12948 E572 36              6     psha
12949 E573 34              4     des
12950 E574 30              0     tsx
12951 E575 EC 01           ..    ldd 01,x
12952 E577 83 00 01        ...   subd #0001
12953 E57A ED 01           ..    std 01,x
12954 E57C 2D 15           -.    blt 15       ; to e593
12955 E57E C6 41           .A    ldab #41
12956 E580 30              0     tsx
12957 E581 E7 00           ..    stab 00,x
12958 E583 30              0     tsx
12959 E584 E6 00           ..    ldab 00,x
12960 E586 6A 00           j.    dec 00,x
12961 E588 C1 00           ..    cmpb #00
12962 E58A 23 02           #.    bls 02
12963 E58C 20 F5            .    bra f5       ; to e583
12964 E58E BD E6 1B        ...   jsr e61b             ;jump4
12965 E591 20 E1            .    bra e1       ; to e574
12966 E593 38              8     pulx         ;this must just be a standard 'pull 3
12967 E594 31              1     ins          ;bytes and I don't care where they go'
12968                                         ;to clean up the stack.
12969 E595 39              9     rts
12970
12971 jump115:
12972 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
12973 E596 34              4     des
12974 E597 C6 32           .2    ldab #32
12975 E599 30              0     tsx
12976 E59A E7 00           ..    stab 00,x
12977 E59C 30              0     tsx
12978 E59D E6 00           ..    ldab 00,x
12979 E59F C1 00           ..    cmpb #00
12980 E5A1 23 05           #.    bls e5a8
12981 E5A3 30              0     tsx
12982 E5A4 6A 00           j.    dec 00,x
12983 E5A6 20 F4            .    bra e59c
12984 E5A8 31              1     ins
12985 E5A9 39              9     rts
12986
12987 jump12:
12988 ; beep if keypressed?
12989 E5AA F6 00 33        ..3   ldab 0033
12990 E5AD 27 0C           '.    beq 0c      ; to e5bb
12991 E5AF F6 00 29        ..)   ldab 0029   ; key state
12992 E5B2 27 05           '.    beq 05      ; to e5b9 (out)
12993 E5B4 C6 02           ..    ldab #02
12994 E5B6 F7 00 33        ..3   stab 0033
12995 E5B9 20 15            .    bra 15      ; to e5d0 (out)
12996 E5BB C6 03           ..    ldab #03    ; beep
12997 E5BD F7 00 32        ..2   stab 0032
12998 E5C0 FC 00 3B        ..;   ldd 003b
12999 E5C3 27 06           '.    beq 06      ; to e5cb
13000 E5C5 CC 02 33        ..3   ldd #0233
13001 E5C8 FD 00 3B        ..;   std 003b
13002 E5CB C6 02           ..    ldab #02    ; make a beep
13003 E5CD F7 00 33        ..3   stab 0033
13004 E5D0 39              9     rts
13005
13006 jump52:
13007 ; signifies a triple beep?
13008 E5D1 C6 0B           ..    ldab #0b    ; 1011
13009 E5D3 F7 00 32        ..2   stab 0032
13010 E5D6 39              9     rts
13011
13012 jump69:
13013 ; tests an internal switch or input line
13014 ; Parameters: Port Address in D, bit mask on stack
13015 ; Return value:
13016 E5D7 37              7     pshb
13017 E5D8 36              6     psha
13018 ; make some stack space
13019 E5D9 3C              <     pshx
13020 E5DA 3C              <     pshx
13021 E5DB 5F              _     clrb
13022 E5DC 4F              O     clra
13023 E5DD 30              0     tsx
13024 ; 00,x on stack - number of hits
13025 E5DE ED 00           ..    std 00,x
13026 ; we call i = 02,x. let i = 64
13027 E5E0 CC 00 64        ..d   ldd #0064
13028 E5E3 ED 02           ..    std 02,x
13029 ; break if i <= 0
13030 E5E5 30              0     tsx
13031 E5E6 EC 02           ..    ldd 02,x
13032 E5E8 2F 21           /!    ble 21     ; to e60b
13033 ; we call j = 04,x. let j = initial value of D
13034 E5EA 30              0     tsx
13035 E5EB EE 04           ..    ldx 04,x
13036 E5ED E6 00           ..    ldab 00,x
13037 E5EF 30              0     tsx
13038 E5F0 E4 09           ..    andb 09,x
13039 E5F2 27 05           '.    beq 05     ; to e5f9 if bit cleared
13040 E5F4 38              8     pulx
13041 E5F5 08              .     inx        ; increment number of hits
13042 E5F6 3C              <     pshx
13043 E5F7 20 08            .    bra 08     ; to e601
13044 E5F9 30              0     tsx
13045 E5FA EC 00           ..    ldd 00,x
13046 E5FC 83 00 01        ...   subd #0001 ; decrement number of hits
13047 E5FF ED 00           ..    std 00,x
13048 E601 30              0     tsx
13049 E602 EC 02           ..    ldd 02,x
13050 E604 83 00 01        ...   subd #0001  ; i--
13051 E607 ED 02           ..    std 02,x
13052 E609 20 DA            .    bra da      ; to e5e5
13053 ; end of loop
13054 ; return 1 iff the key was pressed
13055 E60B 30              0     tsx
13056 E60C EC 00           ..    ldd 00,x
13057 E60E 2F 04           /.    ble 04      ; to e614 if -ve
13058 E610 5F              _     clrb
13059 E611 4F              O     clra
13060 E612 20 03            .    bra 03      ; to e617
13061 E614 CC 00 01        ...   ldd #0001
13062 E617 38              8     pulx
13063 E618 38              8     pulx
13064 E619 38              8     pulx
13065 E61A 39              9     rts
13066
13067 jump4:
13068 E61B C6 0A           ..    ldab #0a
13069 E61D F7 00 31        ..1   stab 0031
13070 E620 39              9     rts
13071
13072 jump56:
13073 ; writes a really big number to the display
13074 E621 38              8     pulx
13075 E622 37              7     pshb
13076 E623 36              6     psha
13077 E624 3C              <     pshx
13078 E625 BD BE 4B        ..K   jsr be4b             ;displayblank
13079 E628 30              0     tsx
13080 E629 EC 04           ..    ldd 04,x
13081 E62B 37              7     pshb
13082 E62C 36              6     psha
13083 E62D EC 02           ..    ldd 02,x
13084 E62F 37              7     pshb
13085 E630 36              6     psha
13086 E631 CE 96 80        ...   ldx #9680    ;38528
13087 E634 3C              <     pshx
13088 E635 CC 00 98        ...   ldd #0098    ;152
13089 E638 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13090 E63B 31              1     ins
13091 E63C 33              3     pulb
13092 E63D CB 30           .0    addb #30     ; make it a digit
13093 E63F F7 0B 97        ...   stab 0b97
13094 ;
13095 E642 30              0     tsx
13096 E643 EC 04           ..    ldd 04,x
13097 E645 37              7     pshb
13098 E646 36              6     psha
13099 E647 EC 02           ..    ldd 02,x
13100 E649 37              7     pshb
13101 E64A 36              6     psha
13102 E64B CE 96 80        ...   ldx #9680    ;38528
13103 E64E 3C              <     pshx
13104 E64F CC 00 98        ...   ldd #0098    ;152
13105 E652 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13106 E655 37              7     pshb
13107 E656 36              6     psha
13108 E657 CE 42 40        .B@   ldx #4240    ;16960
13109 E65A 3C              <     pshx
13110 E65B CC 00 0F        ...   ldd #000f    ;15
13111 E65E BD FC 4C        ..L   jsr fc4c             ;bigdivide
13112 E661 31              1     ins
13113 E662 33              3     pulb
13114 E663 CB 30           .0    addb #30
13115 E665 F7 0B 96        ...   stab 0b96
13116 ;
13117 E668 30              0     tsx
13118 E669 EC 04           ..    ldd 04,x
13119 E66B 37              7     pshb
13120 E66C 36              6     psha
13121 E66D EC 02           ..    ldd 02,x
13122 E66F 37              7     pshb
13123 E670 36              6     psha
13124 E671 CE 42 40        .B@   ldx #4240    ;16960
13125 E674 3C              <     pshx
13126 E675 CC 00 0F        ...   ldd #000f    ;15
13127 E678 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13128 E67B 37              7     pshb
13129 E67C 36              6     psha
13130 E67D CE 86 A0        ...   ldx #86a0    ;34464
13131 E680 3C              <     pshx
13132 E681 CC 00 01        ...   ldd #0001    ;1
13133 E684 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13134 E687 31              1     ins
13135 E688 33              3     pulb
13136 E689 CB 30           .0    addb #30
13137 E68B F7 0B 95        ...   stab 0b95
13138 ;
13139 E68E 30              0     tsx
13140 E68F EC 04           ..    ldd 04,x
13141 E691 37              7     pshb
13142 E692 36              6     psha
13143 E693 EC 02           ..    ldd 02,x
13144 E695 37              7     pshb
13145 E696 36              6     psha
13146 E697 CE 86 A0        ...   ldx #86a0    ;34464
13147 E69A 3C              <     pshx
13148 E69B CC 00 01        ...   ldd #0001    ;1
13149 E69E BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13150 E6A1 37              7     pshb
13151 E6A2 36              6     psha
13152 E6A3 CE 27 10        .'.   ldx #2710    ;10000
13153 E6A6 3C              <     pshx
13154 E6A7 CC 00 00        ...   ldd #0000
13155 E6AA BD FC 4C        ..L   jsr fc4c             ;bigdivide
13156 E6AD 31              1     ins
13157 E6AE 33              3     pulb
13158 E6AF CB 30           .0    addb #30
13159 E6B1 F7 0B 94        ...   stab 0b94
13160 ;
13161 E6B4 30              0     tsx
13162 E6B5 EC 04           ..    ldd 04,x
13163 E6B7 37              7     pshb
13164 E6B8 36              6     psha
13165 E6B9 EC 02           ..    ldd 02,x
13166 E6BB 37              7     pshb
13167 E6BC 36              6     psha
13168 E6BD CE 27 10        .'.   ldx #2710    ;10000
13169 E6C0 3C              <     pshx
13170 E6C1 CC 00 00        ...   ldd #0000
13171 E6C4 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13172 E6C7 37              7     pshb
13173 E6C8 36              6     psha
13174 E6C9 CE 03 E8        ...   ldx #03e8    ;1000
13175 E6CC 3C              <     pshx
13176 E6CD CC 00 00        ...   ldd #0000
13177 E6D0 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13178 E6D3 31              1     ins
13179 E6D4 33              3     pulb
13180 E6D5 CB 30           .0    addb #30
13181 E6D7 F7 0B 93        ...   stab 0b93
13182 ;
13183 ;
13184 E6DA 30              0     tsx
13185 E6DB EC 04           ..    ldd 04,x
13186 E6DD 37              7     pshb
13187 E6DE 36              6     psha
13188 E6DF EC 02           ..    ldd 02,x
13189 E6E1 37              7     pshb
13190 E6E2 36              6     psha
13191 E6E3 CE 03 E8        ...   ldx #03e8    ;1000
13192 E6E6 3C              <     pshx
13193 E6E7 CC 00 00        ...   ldd #0000
13194 E6EA BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13195 E6ED 37              7     pshb
13196 E6EE 36              6     psha
13197 E6EF CE 00 64        ..d   ldx #0064    ;100
13198 E6F2 3C              <     pshx
13199 E6F3 CC 00 00        ...   ldd #0000
13200 E6F6 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13201 E6F9 31              1     ins
13202 E6FA 33              3     pulb
13203 E6FB CB 30           .0    addb #30
13204 E6FD F7 0B 92        ...   stab 0b92
13205 ;
13206 E700 30              0     tsx
13207 E701 EC 04           ..    ldd 04,x
13208 E703 37              7     pshb
13209 E704 36              6     psha
13210 E705 EC 02           ..    ldd 02,x
13211 E707 37              7     pshb
13212 E708 36              6     psha
13213 E709 CE 00 64        ..d   ldx #0064    ;100
13214 E70C 3C              <     pshx
13215 E70D CC 00 00        ...   ldd #0000
13216 E710 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13217 E713 37              7     pshb
13218 E714 36              6     psha
13219 E715 CE 00 0A        ...   ldx #000a    ;10
13220 E718 3C              <     pshx
13221 E719 CC 00 00        ...   ldd #0000
13222 E71C BD FC 4C        ..L   jsr fc4c             ;bigdivide
13223 E71F 31              1     ins
13224 E720 33              3     pulb
13225 E721 CB 30           .0    addb #30
13226 E723 F7 0B 91        ...   stab 0b91
13227 ;
13228 E726 30              0     tsx
13229 E727 EC 04           ..    ldd 04,x
13230 E729 37              7     pshb
13231 E72A 36              6     psha
13232 E72B EC 02           ..    ldd 02,x
13233 E72D 37              7     pshb
13234 E72E 36              6     psha
13235 E72F CE 00 0A        ...   ldx #000a    ;10
13236 E732 3C              <     pshx
13237 E733 CC 00 00        ...   ldd #0000
13238 E736 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13239 E739 31              1     ins
13240 E73A 33              3     pulb
13241 E73B CB 30           .0    addb #30
13242 E73D F7 0B 90        ...   stab 0b90
13243 ;
13244 E740 38              8     pulx
13245 E741 31              1     ins
13246 E742 31              1     ins
13247 E743 6E 00           n.    jmp 00,x
13248
13249 jump55:
13250 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13251 E745 37              7     pshb
13252 E746 36              6     psha
13253 E747 30              0     tsx
13254 E748 EC 00           ..    ldd 00,x
13255 E74A CE 27 10        .'.   ldx #2710   ; 10000
13256 E74D 02              .     idiv
13257 E74E 8F              .     xgdx
13258 E74F CB 30           .0    addb #30
13259 E751 F7 00 57        ..W   stab 0057   ; num/10000 => 0057
13260 E754 30              0     tsx
13261 E755 EC 00           ..    ldd 00,x
13262 E757 CE 27 10        .'.   ldx #2710   ; 10000
13263 E75A 02              .     idiv
13264 E75B CE 03 E8        ...   ldx #03e8
13265 E75E 02              .     idiv
13266 E75F 8F              .     xgdx
13267 E760 CB 30           .0    addb #30
13268 E762 F7 00 5A        ..Z   stab 005a   ; num%10000/1000 => 005a
13269 E765 30              0     tsx
13270 E766 EC 00           ..    ldd 00,x
13271 E768 CE 03 E8        ...   ldx #03e8
13272 E76B 02              .     idiv
13273 E76C CE 00 64        ..d   ldx #0064
13274 E76F 02              .     idiv
13275 E770 8F              .     xgdx
13276 E771 CB 30           .0    addb #30
13277 E773 F7 00 5D        ..]   stab 005d  ; num%1000/100 => 005d
13278 E776 30              0     tsx
13279 E777 EC 00           ..    ldd 00,x
13280 E779 CE 00 64        ..d   ldx #0064
13281 E77C 02              .     idiv
13282 E77D CE 00 0A        ...   ldx #000a
13283 E780 02              .     idiv
13284 E781 8F              .     xgdx
13285 E782 CB 30           .0    addb #30
13286 E784 F7 00 5E        ..^   stab 005e  ; num%100/10 => 005e
13287 E787 30              0     tsx
13288 E788 EC 00           ..    ldd 00,x
13289 E78A CE 00 0A        ...   ldx #000a
13290 E78D 02              .     idiv
13291 E78E CB 30           .0    addb #30
13292 E790 F7 00 5F        .._   stab 005f ; num%10 => 005f
13293 E793 38              8     pulx
13294 E794 39              9     rts
13295
13296 jump54:
13297 ; number to string. number is <= 999. puts it into 005d-005f
13298 E795 37              7     pshb
13299 E796 36              6     psha
13300 E797 30              0     tsx
13301 E798 E6 01           ..    ldab 01,x
13302 E79A 4F              O     clra
13303 E79B CE 00 64        ..d   ldx #0064   ; /100
13304 E79E 02              .     idiv
13305 E79F 8F              .     xgdx
13306 E7A0 CB 30           .0    addb #30    ; make it a digit
13307 E7A2 F7 00 5D        ..]   stab 005d
13308 E7A5 30              0     tsx
13309 E7A6 E6 01           ..    ldab 01,x
13310 E7A8 4F              O     clra
13311 E7A9 CE 00 64        ..d   ldx #0064
13312 E7AC 02              .     idiv
13313 E7AD 4F              O     clra
13314 E7AE CE 00 0A        ...   ldx #000a
13315 E7B1 02              .     idiv
13316 E7B2 8F              .     xgdx
13317 E7B3 CB 30           .0    addb #30    ; %100 / 10 -> digit
13318 E7B5 F7 00 5E        ..^   stab 005e
13319 E7B8 30              0     tsx
13320 E7B9 E6 01           ..    ldab 01,x
13321 E7BB 4F              O     clra
13322 E7BC CE 00 0A        ...   ldx #000a
13323 E7BF 02              .     idiv
13324 E7C0 CB 30           .0    addb #30
13325 E7C2 F7 00 5F        .._   stab 005f    ; %10
13326 E7C5 38              8     pulx
13327 E7C6 39              9     rts
13328
13329 jump114:
13330 E7C7 F6 00 06        ...   ldab 0006
13331 E7CA 4F              O     clra
13332 E7CB CE 00 05        ...   ldx #0005
13333 E7CE 02              .     idiv
13334 E7CF 5D              ]     tstb
13335 E7D0 26 03           &.    bne 03
13336 E7D2 7E E8 99        ~..   jmp e899             ;goto79
13337 E7D5 F6 00 06        ...   ldab 0006
13338 E7D8 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13339 E7DB 83 00 00        ...   subd #0000
13340 E7DE 27 03           '.    beq 03
13341 E7E0 7E E8 99        ~..   jmp e899             ;goto79
13342 E7E3 F6 00 06        ...   ldab 0006
13343 E7E6 4F              O     clra
13344 E7E7 05              .     asld
13345 E7E8 C3 08 00        ...   addd #0800
13346 E7EB 8F              .     xgdx
13347 E7EC EC 00           ..    ldd 00,x
13348 E7EE C4 FF           ..    andb #ff
13349 E7F0 84 3F           .?    anda #3f
13350 E7F2 FD 10 16        ...   std 1016
13351 E7F5 F6 00 06        ...   ldab 0006
13352 E7F8 4F              O     clra
13353 E7F9 05              .     asld
13354 E7FA C3 0B F1        ...   addd #0bf1
13355 E7FD 8F              .     xgdx
13356 E7FE EC 00           ..    ldd 00,x
13357 E800 C4 FF           ..    andb #ff
13358 E802 84 3F           .?    anda #3f
13359 E804 FD 10 18        ...   std 1018
13360 E807 FC 10 16        ...   ldd 1016
13361 E80A 83 00 00        ...   subd #0000
13362 E80D 25 08           %.    bcs 08
13363 E80F FC 10 16        ...   ldd 1016
13364 E812 83 27 0F        .'.   subd #270f
13365 E815 23 35           #5    bls 35
13366 E817 F6 00 06        ...   ldab 0006
13367 E81A BD D4 68        ..h   jsr d468             ;jump51
13368 E81D 83 00 00        ...   subd #0000
13369 E820 27 2A           '*    beq 2a
13370 E822 CC 01 00        ...   ldd #0100
13371 E825 37              7     pshb
13372 E826 36              6     psha
13373 E827 F6 00 06        ...   ldab 0006
13374 E82A 4F              O     clra
13375 E82B 05              .     asld
13376 E82C C3 08 C8        ...   addd #08c8
13377 E82F 38              8     pulx
13378 E830 8F              .     xgdx
13379 E831 AA 00           ..    ora 00,x
13380 E833 EA 01           ..    orb 01,x
13381 E835 ED 00           ..    std 00,x
13382 E837 CC 40 00        .@.   ldd #4000
13383 E83A 37              7     pshb
13384 E83B 36              6     psha
13385 E83C F6 00 06        ...   ldab 0006
13386 E83F 4F              O     clra
13387 E840 05              .     asld
13388 E841 C3 08 00        ...   addd #0800
13389 E844 38              8     pulx
13390 E845 8F              .     xgdx
13391 E846 AA 00           ..    ora 00,x
13392 E848 EA 01           ..    orb 01,x
13393 E84A ED 00           ..    std 00,x
13394 E84C CE 10 16        ...   ldx #1016
13395 E84F 1D 00 C0        ..    bclr 00,x, #c0
13396 E852 FC 10 18        ..    ldd 1018
13397 E855 43              C     coma
13398 E856 53              S     comb
13399 E857 FD 10 18        ...   std 1018
13400 E85A CE 10 18        ...   ldx #1018
13401 E85D 1D 00 C0        ..    bclr 00,x, #c0
13402 E85F FC 10 16        ..    ldd 1016
13403 E863 37              7     pshb
13404 E864 36              6     psha
13405 E865 FC 10 18        ...   ldd 1018
13406 E868 30              0     tsx
13407 E869 A3 00           ..    subd 00,x
13408 E86B 31              1     ins
13409 E86C 31              1     ins
13410 E86D 27 2A           '*    beq 2a
13411 E86F CC 01 00        ...   ldd #0100
13412 E872 37              7     pshb
13413 E873 36              6     psha
13414 E874 F6 00 06        ...   ldab 0006
13415 E877 4F              O     clra
13416 E878 05              .     asld
13417 E879 C3 08 C8        ...   addd #08c8
13418 E87C 38              8     pulx
13419 E87D 8F              .     xgdx
13420 E87E AA 00           ..    ora 00,x
13421 E880 EA 01           ..    orb 01,x
13422 E882 ED 00           ..    std 00,x
13423 E884 CC 40 00        .@.   ldd #4000
13424 E887 37              7     pshb
13425 E888 36              6     psha
13426 E889 F6 00 06        ...   ldab 0006
13427 E88C 4F              O     clra
13428 E88D 05              .     asld
13429 E88E C3 08 00        ...   addd #0800
13430 E891 38              8     pulx
13431 E892 8F              .     xgdx
13432 E893 AA 00           ..    ora 00,x
13433 E895 EA 01           ..    orb 01,x
13434 E897 ED 00           ..    std 00,x
13435 goto79:
13436 E899 39              9     rts
13437
13438 jump68:
13439 E89A 5F              _     clrb
13440 E89B 4F              O     clra
13441 E89C FD 00 0F        ...   std 000f
13442 E89F CC 3F FF        .?.   ldd #3fff
13443 E8A2 FD 00 50        ..P   std 0050
13444 E8A5 7F 00 06        ...   clr 0006
13445 ;
13446 E8A8 F6 00 06        ...   ldab 0006
13447 E8AB C1 64           .d    cmpb #64    ; 100
13448 E8AD 24 64           $d    bcc 64      ; to e913 - break
13449 ;
13450 E8AF F6 00 06        ...   ldab 0006
13451 E8B2 4F              O     clra
13452 E8B3 CE 00 05        ...   ldx #0005
13453 E8B6 02              .     idiv
13454 E8B7 5D              ]     tstb
13455 E8B8 27 54           'T    beq 54       ; to e90e - continue
13456 ;
13457 E8BA F6 00 06        ...   ldab 0006
13458 E8BD BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13459 E8C0 83 00 00        ...   subd #0000
13460 E8C3 26 49           &I    bne 49       ; continue
13461 ;
13462 E8C5 F6 00 06        ...   ldab 0006
13463 E8C8 4F              O     clra
13464 E8C9 05              .     asld
13465 E8CA C3 08 00        ...   addd #0800
13466 E8CD 8F              .     xgdx
13467 E8CE EC 00           ..    ldd 00,x
13468 E8D0 C4 FF           ..    andb #ff
13469 E8D2 84 3F           .?    anda #3f
13470 E8D4 FD 10 16        ...   std 1016
13471 E8D7 FC 10 16        ...   ldd 1016
13472 E8DA 83 27 10        .'.   subd #2710   ; 10000
13473 E8DD 24 2F           $/    bcc 2f       ; to e90e - continue
13474 E8DF F6 00 06        ...   ldab 0006
13475 E8E2 BD D4 68        ..h   jsr d468             ;jump51 - test bit 6 of array[0006] at 0800
13476 E8E5 83 00 00        ...   subd #0000
13477 E8E8 27 24           '$    beq 24       ; to e90e - continue
13478 E8EA BD D5 61        ..a   jsr d561             ;jump42 - test bit 7 of array[0006] at 0800
13479 E8ED 83 00 00        ...   subd #0000
13480 E8F0 26 1C           &.    bne 1c       ; to e90e - continue
13481 E8F2 FC 10 16        ...   ldd 1016
13482 E8F5 B3 00 0F        ...   subd 000f
13483 E8F8 23 06           #.    bls 06
13484 E8FA FC 10 16        ...   ldd 1016
13485 E8FD FD 00 0F        ...   std 000f
13486 E900 FC 10 16        ...   ldd 1016
13487 E903 B3 00 50        ..P   subd 0050
13488 E906 24 06           $.    bcc 06
13489 E908 FC 10 16        ...   ldd 1016
13490 E90B FD 00 50        ..P   std 0050
13491 ;
13492 E90E 7C 00 06        |..   inc 0006
13493 E911 20 95            .    bra 95      ; to e8a8
13494 ;
13495 E913 FC 0B B7        ...   ldd 0bb7
13496 E916 27 12           '.    beq 12
13497 E918 FC 00 0F        ...   ldd 000f
13498 E91B B3 0B B7        ...   subd 0bb7
13499 E91E 23 0A           #.    bls 0a
13500 E920 FC 00 0F        ...   ldd 000f
13501 E923 05              .     asld
13502 E924 B3 0B B7        ...   subd 0bb7
13503 E927 FD 00 0F        ...   std 000f
13504 E92A 39              9     rts
13505
13506 jump103:
13507 E92B 34              4     des
13508 E92C 30              0     tsx
13509 E92D 6F 00           o.    clr 00,x
13510 E92F 30              0     tsx
13511 E930 E6 00           ..    ldab 00,x
13512 E932 C1 64           .d    cmpb #64
13513 E934 24 15           $.    bcc 15
13514 E936 5F              _     clrb
13515 E937 4F              O     clra
13516 E938 37              7     pshb
13517 E939 36              6     psha
13518 E93A 30              0     tsx
13519 E93B E6 02           ..    ldab 02,x
13520 E93D 4F              O     clra
13521 E93E 05              .     asld
13522 E93F C3 0D 1F        ...   addd #0d1f
13523 E942 38              8     pulx
13524 E943 8F              .     xgdx
13525 E944 ED 00           ..    std 00,x
13526 E946 30              0     tsx
13527 E947 6C 00           l.    inc 00,x
13528 E949 20 E4            .    bra e4
13529 E94B 4F              O     clra
13530 E94C 5F              _     clrb
13531 E94D FD 0D F9        ...   std 0df9
13532 E950 FD 0D F7        ...   std 0df7
13533 E953 4F              O     clra
13534 E954 5F              _     clrb
13535 E955 FD 0D F5        ...   std 0df5
13536 E958 FD 0D F3        ...   std 0df3
13537 E95B 4F              O     clra
13538 E95C 5F              _     clrb
13539 E95D FD 0D F1        ...   std 0df1
13540 E960 FD 0D EF        ...   std 0def
13541 E963 4F              O     clra
13542 E964 5F              _     clrb
13543 E965 FD 0D FD        ...   std 0dfd
13544 E968 FD 0D FB        ...   std 0dfb
13545 E96B 4F              O     clra
13546 E96C 5F              _     clrb
13547 E96D FD 0D E9        ...   std 0de9
13548 E970 FD 0D E7        ...   std 0de7
13549 E973 5F              _     clrb
13550 E974 4F              O     clra
13551 E975 FD 0C DD        ...   std 0cdd
13552 E978 5F              _     clrb
13553 E979 4F              O     clra
13554 E97A FD 0C DF        ...   std 0cdf
13555 E97D 5F              _     clrb
13556 E97E 4F              O     clra
13557 E97F FD 0C E1        ...   std 0ce1
13558 E982 5F              _     clrb
13559 E983 4F              O     clra
13560 E984 FD 0C E3        ...   std 0ce3
13561 E987 5F              _     clrb
13562 E988 4F              O     clra
13563 E989 FD 0C E5        ...   std 0ce5
13564 E98C 4F              O     clra
13565 E98D 5F              _     clrb
13566 E98E FD 0C F5        ...   std 0cf5
13567 E991 FD 0C F3        ...   std 0cf3
13568 E994 4F              O     clra
13569 E995 5F              _     clrb
13570 E996 FD 0C F9        ...   std 0cf9
13571 E999 FD 0C F7        ...   std 0cf7
13572 E99C 4F              O     clra
13573 E99D 5F              _     clrb
13574 E99E FD 0C FD        ...   std 0cfd
13575 E9A1 FD 0C FB        ...   std 0cfb
13576 E9A4 4F              O     clra
13577 E9A5 5F              _     clrb
13578 E9A6 FD 0D 01        ...   std 0d01
13579 E9A9 FD 0C FF        ...   std 0cff
13580 E9AC 4F              O     clra
13581 E9AD 5F              _     clrb
13582 E9AE FD 0D 05        ...   std 0d05
13583 E9B1 FD 0D 03        ...   std 0d03
13584 E9B4 5F              _     clrb
13585 E9B5 4F              O     clra
13586 E9B6 FD 0D 07        ...   std 0d07
13587 E9B9 5F              _     clrb
13588 E9BA 4F              O     clra
13589 E9BB FD 0D 09        ...   std 0d09
13590 E9BE 5F              _     clrb
13591 E9BF 4F              O     clra
13592 E9C0 FD 0D 0B        ...   std 0d0b
13593 E9C3 5F              _     clrb
13594 E9C4 4F              O     clra
13595 E9C5 FD 0D 0D        ...   std 0d0d
13596 E9C8 4F              O     clra
13597 E9C9 5F              _     clrb
13598 E9CA FD 0D 11        ...   std 0d11
13599 E9CD FD 0D 0F        ...   std 0d0f
13600 E9D0 4F              O     clra
13601 E9D1 5F              _     clrb
13602 E9D2 FD 0D 15        ...   std 0d15
13603 E9D5 FD 0D 13        ...   std 0d13
13604 E9D8 4F              O     clra
13605 E9D9 5F              _     clrb
13606 E9DA FD 0D 19        ...   std 0d19
13607 E9DD FD 0D 17        ...   std 0d17
13608 E9E0 4F              O     clra
13609 E9E1 5F              _     clrb
13610 E9E2 FD 0D 1D        ...   std 0d1d
13611 E9E5 FD 0D 1B        ...   std 0d1b
13612 E9E8 31              1     ins
13613 E9E9 39              9     rts
13614
13615 jump113:
13616 E9EA 7F 00 06        ...   clr 0006
13617 E9ED F6 00 06        ...   ldab 0006
13618 E9F0 C1 64           .d    cmpb #64
13619 E9F2 24 64           $d    bcc 64
13620 E9F4 F6 00 06        ...   ldab 0006
13621 E9F7 4F              O     clra
13622 E9F8 CE 00 05        ...   ldx #0005
13623 E9FB 02              .     idiv
13624 E9FC 5D              ]     tstb
13625 E9FD 27 54           'T    beq 54
13626 E9FF CC BF FF        ...   ldd #bfff
13627 EA02 37              7     pshb
13628 EA03 36              6     psha
13629 EA04 F6 00 06        ...   ldab 0006
13630 EA07 4F              O     clra
13631 EA08 05              .     asld
13632 EA09 C3 08 00        ...   addd #0800
13633 EA0C 38              8     pulx
13634 EA0D 8F              .     xgdx
13635 EA0E A4 00           ..    anda 00,x
13636 EA10 E4 01           ..    andb 01,x
13637 EA12 ED 00           ..    std 00,x
13638 EA14 CC FE FF        ...   ldd #feff
13639 EA17 37              7     pshb
13640 EA18 36              6     psha
13641 EA19 F6 00 06        ...   ldab 0006
13642 EA1C 4F              O     clra
13643 EA1D 05              .     asld
13644 EA1E C3 08 C8        ...   addd #08c8
13645 EA21 38              8     pulx
13646 EA22 8F              .     xgdx
13647 EA23 A4 00           ..    anda 00,x
13648 EA25 E4 01           ..    andb 01,x
13649 EA27 ED 00           ..    std 00,x
13650 EA29 CC FD FF        ...   ldd #fdff
13651 EA2C 37              7     pshb
13652 EA2D 36              6     psha
13653 EA2E F6 00 06        ...   ldab 0006
13654 EA31 4F              O     clra
13655 EA32 05              .     asld
13656 EA33 C3 08 C8        ...   addd #08c8
13657 EA36 38              8     pulx
13658 EA37 8F              .     xgdx
13659 EA38 A4 00           ..    anda 00,x
13660 EA3A E4 01           ..    andb 01,x
13661 EA3C ED 00           ..    std 00,x
13662 EA3E CC FB FF        ...   ldd #fbff
13663 EA41 37              7     pshb
13664 EA42 36              6     psha
13665 EA43 F6 00 06        ...   ldab 0006
13666 EA46 4F              O     clra
13667 EA47 05              .     asld
13668 EA48 C3 08 C8        ...   addd #08c8
13669 EA4B 38              8     pulx
13670 EA4C 8F              .     xgdx
13671 EA4D A4 00           ..    anda 00,x
13672 EA4F E4 01           ..    andb 01,x
13673 EA51 ED 00           ..    std 00,x
13674 EA53 7C 00 06        |..   inc 0006
13675 EA56 20 95            .    bra 95
13676 EA58 39              9     rts
13677
13678 jump65:
13679 EA59 34              4     des
13680 ; test PE2 - remote no-sale switch.
13681 EA5A CE 00 04        ...   ldx #0004
13682 EA5D 3C              <     pshx
13683 EA5E CC 10 0A        ...   ldd #100a
13684 EA61 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13685 EA64 38              8     pulx
13686 EA65 83 00 00        ...   subd #0000
13687 EA68 27 3F           '?    beq 3f       ; to eaa9 if off
13688 ;
13689 ; test internal mode switch (bit 1 of 1800)
13690 EA6A CE 00 01        ...   ldx #0001
13691 EA6D 3C              <     pshx
13692 EA6E CC 18 00        ...   ldd #1800
13693 EA71 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13694 EA74 38              8     pulx
13695 EA75 83 00 00        ...   subd #0000
13696 EA78 27 2F           '/    beq 2f       ; to eaa9 if off
13697 ;
13698 ; both no-sale & mode switches held.
13699 ;
13700 ; 1000-unit delay
13701 EA7A CC 03 E8        ...   ldd #03e8
13702 EA7D BD E5 71        ..q   jsr e571             ;msdelay
13703 ;
13704 EA80 7F 0B A8        ...   clr 0ba8
13705 ;
13706 ; blink "SECURE OFF" until mode switch is released
13707 EA83 F6 18 00        ...   ldab 1800
13708 EA86 C4 01           ..    andb #01
13709 EA88 26 1C           &.    bne 1c       ; to eaa4 (loop until released)
13710 ;
13711 ; blank display
13712 EA8A BD BE 4B        ..K   jsr be4b             ;displayblank (blank display buffer)
13713 EA8D 0F              .     sei
13714 EA8E BD BE 01        ...   jsr be01             ;jump70 (commit to display)
13715 EA91 0E              .     cli
13716 ;
13717 ; 500-unit delay
13718 EA92 CC 01 F4        ...   ldd #01f4
13719 EA95 BD E5 71        ..q   jsr e571             ;msdelay
13720 ;
13721 EA98 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
13722 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13723 ;
13724 ; 500-unit delay
13725 EA9E CC 01 F4        ...   ldd #01f4
13726 EAA1 BD E5 71        ..q   jsr e571             ;msdelay
13727 ; loop
13728 EAA4 20 DD            .    bra dd       ; to ea83
13729 EAA6 BD BE 69        ..i   jsr be69             ;displayreset
13730 ;
13731 ; no sale switch or internal mode switch on
13732 ;
13733 ; fiddle with the bill acceptor
13734 EAA9 C6 01           ..    ldab #01
13735 EAAB F7 00 14        ...   stab 0014
13736 EAAE F6 00 14        ...   ldab 0014
13737 EAB1 F7 38 00        .8.   stab 3800
13738 ;
13739 ; 30-unit delay
13740 EAB4 CC 00 1E        ...   ldd #001e
13741 EAB7 BD E5 71        ..q   jsr e571             ;msdelay
13742 ;
13743 ; more bill acceptor fiddling & tests
13744 EABA CE 00 01        ...   ldx #0001
13745 EABD 3C              <     pshx
13746 EABE CC 10 00        ...   ldd #1000
13747 EAC1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13748 EAC4 38              8     pulx
13749 EAC5 83 00 00        ...   subd #0000
13750 EAC8 27 10           '.    beq 10
13751 EACA CE 00 02        ...   ldx #0002
13752 EACD 3C              <     pshx
13753 EACE CC 10 00        ...   ldd #1000
13754 EAD1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13755 EAD4 38              8     pulx
13756 EAD5 83 00 00        ...   subd #0000
13757 EAD8 27 03           '.    beq 03
13758 ; we've decided if we have a bill acceptor. if not, skip this bit
13759 EADA 7E ED F8        ~..   jmp edf8             ;goto80
13760 ; we have a bill acceptor - play some more
13761 EADD C6 02           ..    ldab #02
13762 EADF F7 00 14        ...   stab 0014
13763 EAE2 F6 00 14        ...   ldab 0014
13764 EAE5 F7 38 00        .8.   stab 3800
13765 EAE8 CC 00 1E        ...   ldd #001e
13766 EAEB BD E5 71        ..q   jsr e571             ;msdelay
13767 EAEE CE 00 01        ...   ldx #0001
13768 EAF1 3C              <     pshx
13769 EAF2 CC 10 00        ...   ldd #1000
13770 EAF5 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13771 EAF8 38              8     pulx
13772 EAF9 83 00 00        ...   subd #0000
13773 EAFC 26 10           &.    bne 10
13774 EAFE CE 00 02        ...   ldx #0002
13775 EB01 3C              <     pshx
13776 EB02 CC 10 00        ...   ldd #1000
13777 EB05 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13778 EB08 38              8     pulx
13779 EB09 83 00 00        ...   subd #0000
13780 EB0C 26 03           &.    bne 03
13781 EB0E 7E ED F8        ~..   jmp edf8             ;goto80 - something about the bill validator failed. skip it.
13782 EB11 CC 5A 5A        .ZZ   ldd #5a5a    ; 23130
13783 EB14 FD 10 16        ...   std 1016
13784 EB17 CC B1 39        ..9   ldd #b139    ;"**********"
13785 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13786 EB1D CC 07 D0        ...   ldd #07d0
13787 EB20 BD E5 71        ..q   jsr e571             ;msdelay
13788 EB23 CC B1 44        ..D   ldd #b144    ;"OOOOOOOOOO"
13789 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13790 EB29 CC 07 D0        ...   ldd #07d0
13791 EB2C BD E5 71        ..q   jsr e571             ;msdelay
13792 EB2F CC 00 14        ...   ldd #0014
13793 EB32 FD 00 3B        ..;   std 003b
13794 EB35 FC 00 3B        ..;   ldd 003b
13795 EB38 27 47           'G    beq 47
13796 ; draws a sequence of 10 dots ..... along the display.
13797 EB3A 30              0     tsx
13798 EB3B 6F 00           o.    clr 00,x
13799 EB3D 30              0     tsx
13800 EB3E E6 00           ..    ldab 00,x
13801 EB40 C1 0A           ..    cmpb #0a
13802 EB42 24 3B           $;    bcc 3b
13803 EB44 BD BE 4B        ..K   jsr be4b             ;displayblank
13804 EB47 C6 2E           ..    ldab #2e
13805 EB49 37              7     pshb
13806 EB4A 30              0     tsx
13807 EB4B E6 01           ..    ldab 01,x
13808 EB4D 4F              O     clra
13809 EB4E C3 0B 90        ...   addd #0b90
13810 EB51 8F              .     xgdx
13811 EB52 33              3     pulb
13812 EB53 E7 00           ..    stab 00,x
13813 EB55 0F              .     sei
13814 EB56 BD BE 69        ..i   jsr be69             ;displayreset
13815 EB59 CE 10 28        ..(   ldx #1028
13816 EB5C 1C 00 40        ..    bset 00,x, #40  ; tweak the clock phase
13817 EB5F CE 00 01        ...   ldx #0001
13818 EB62 3C              <     pshx
13819 EB63 CC 00 20        ..    ldd #0020
13820 EB66 BD BD B5        ...   jsr bdb5             ;jump78 - send display byte
13821 EB69 38              8     pulx
13822 EB6A CE 10 28        ..(   ldx #1028
13823 EB6D 1D 00 40        ..@   bclr 00,x, #40  ; tweak the clock phase back
13824 EB70 BD BE 10        ...   jsr be10             ;jump88
13825 EB73 0E              .     cli
13826 EB74 CC 00 07        ...   ldd #0007
13827 EB77 BD E5 71        ..q   jsr e571             ;msdelay 7-unit delay
13828 EB7A 30              0     tsx
13829 EB7B 6C 00           l.    inc 00,x
13830 EB7D 20 BE            .    bra be
13831 EB7F 20 B4            .    bra b4
13832 EB81 BD BE 69        ..i   jsr be69             ;displayreset
13833 EB84 CC 08 00        ...   ldd #0800
13834 EB87 FD 00 73        ..s   std 0073
13835 EB8A FC 00 73        ..s   ldd 0073
13836 EB8D 83 0F FF        ...   subd #0fff
13837 EB90 22 10           ".    bhi 10       ; to eba2
13838 EB92 C6 AA           ..    ldab #aa
13839 EB94 FE 00 73        ..s   ldx 0073
13840 EB97 E7 00           ..    stab 00,x
13841 EB99 FE 00 73        ..s   ldx 0073
13842 EB9C 08              .     inx
13843 EB9D FF 00 73        ..s   stx 0073
13844 EBA0 20 E8            .    bra e8
13845 EBA2 CC 08 00        ...   ldd #0800
13846 EBA5 FD 00 73        ..s   std 0073
13847 EBA8 FC 00 73        ..s   ldd 0073
13848 EBAB 83 0F FF        ...   subd #0fff
13849 EBAE 22 1A           ".    bhi 1a
13850 EBB0 FE 00 73        ..s   ldx 0073
13851 EBB3 E6 00           ..    ldab 00,x
13852 EBB5 C1 AA           ..    cmpb #aa
13853 EBB7 27 08           '.    beq 08
13854 EBB9 CE 10 16        ...   ldx #1016     ; timer output compare register
13855 EBBC 1D 00 FF        ..    bclr 00,x, #FF
13856 EBBF 20 09           ..    bra 09
13857 EBC1 FE 00 73        ..s   ldx 0073
13858 EBC4 08              .     inx
13859 EBC5 FF 00 73        ..s   stx 0073
13860 EBC8 20 DE            .    bra de
13861 EBCA CC 08 00        ...   ldd #0800
13862 EBCD FD 00 73        ..s   std 0073
13863 EBD0 FC 00 73        ..s   ldd 0073
13864 EBD3 83 0F FF        ...   subd #0fff
13865 EBD6 22 10           ".    bhi 10
13866 EBD8 C6 55           .U    ldab #55
13867 EBDA FE 00 73        ..s   ldx 0073
13868 EBDD E7 00           ..    stab 00,x
13869 EBDF FE 00 73        ..s   ldx 0073
13870 EBE2 08              .     inx
13871 EBE3 FF 00 73        ..s   stx 0073
13872 EBE6 20 E8            .    bra e8
13873 EBE8 CC 08 00        ...   ldd #0800
13874 EBEB FD 00 73        ..s   std 0073
13875 EBEE FC 00 73        ..s   ldd 0073
13876 EBF1 83 0F FF        ...   subd #0fff
13877 EBF4 22 1A           ".    bhi 1a
13878 EBF6 FE 00 73        ..s   ldx 0073
13879 EBF9 E6 00           ..    ldab 00,x
13880 EBFB C1 55           .U    cmpb #55
13881 EBFD 27 08           '.    beq 08
13882 EBFF CE 10 16        ...   ldx #1016
13883 EC02 1D 00 FF        ...   bclr 00,x #ff
13884 EC05 20 09            .    bra 09
13885 EC07 FE 00 73        ..s   ldx 0073
13886 EC0A 08              .     inx
13887 EC0B FF 00 73        ..s   stx 0073
13888 EC0E 20 DE            .    bra de
13889 EC10 CC 08 00        ...   ldd #0800
13890 EC13 FD 00 73        ..s   std 0073
13891 EC16 FC 00 73        ..s   ldd 0073
13892 EC19 83 0F FF        ...   subd #0fff
13893 EC1C 22 0F           ".    bhi 0f
13894 EC1E 5F              _     clrb
13895 EC1F FE 00 73        ..s   ldx 0073
13896 EC22 E7 00           ..    stab 00,x
13897 EC24 FE 00 73        ..s   ldx 0073
13898 EC27 08              .     inx
13899 EC28 FF 00 73        ..s   stx 0073
13900 EC2B 20 E9            .    bra e9
13901 EC2D 7F 00 06        ...   clr 0006
13902 EC30 F6 00 06        ...   ldab 0006
13903 EC33 C1 64           .d    cmpb #64
13904 EC35 24 4D           $M    bcc 4d
13905 EC37 F6 00 06        ...   ldab 0006
13906 EC3A 4F              O     clra
13907 EC3B CE 00 05        ...   ldx #0005
13908 EC3E 02              .     idiv
13909 EC3F 5D              ]     tstb
13910 EC40 27 3D           '=    beq 3d
13911 EC42 CC 00 32        ..2   ldd #0032
13912 EC45 37              7     pshb
13913 EC46 36              6     psha
13914 EC47 F6 00 06        ...   ldab 0006
13915 EC4A 4F              O     clra
13916 EC4B 05              .     asld
13917 EC4C C3 08 00        ...   addd #0800
13918 EC4F 38              8     pulx
13919 EC50 8F              .     xgdx
13920 EC51 ED 00           ..    std 00,x
13921 EC53 F6 00 06        ...   ldab 0006
13922 EC56 4F              O     clra
13923 EC57 05              .     asld
13924 EC58 C3 08 00        ...   addd #0800
13925 EC5B 8F              .     xgdx
13926 EC5C EC 00           ..    ldd 00,x
13927 EC5E 43              C     coma
13928 EC5F 53              S     comb
13929 EC60 37              7     pshb
13930 EC61 36              6     psha
13931 EC62 F6 00 06        ...   ldab 0006
13932 EC65 4F              O     clra
13933 EC66 05              .     asld
13934 EC67 C3 0B F1        ...   addd #0bf1
13935 EC6A 38              8     pulx
13936 EC6B 8F              .     xgdx
13937 EC6C ED 00           ..    std 00,x
13938 EC6E CC 08 01        ...   ldd #0801
13939 EC71 37              7     pshb
13940 EC72 36              6     psha
13941 EC73 F6 00 06        ...   ldab 0006
13942 EC76 4F              O     clra
13943 EC77 05              .     asld
13944 EC78 C3 08 C8        ...   addd #08c8
13945 EC7B 38              8     pulx
13946 EC7C 8F              .     xgdx
13947 EC7D ED 00           ..    std 00,x
13948 EC7F 7C 00 06        |..   inc 0006
13949 EC82 20 AC            .    bra ac
13950 EC84 C6 1D           ..    ldab #1d
13951 EC86 F7 0B BF        ...   stab 0bbf
13952 EC89 30              0     tsx
13953 EC8A 6F 00           o.    clr 00,x
13954 EC8C F6 0B BF        ...   ldab 0bbf
13955 EC8F 4F              O     clra
13956 EC90 C3 00 02        ...   addd #0002
13957 EC93 37              7     pshb
13958 EC94 36              6     psha
13959 EC95 30              0     tsx
13960 EC96 E6 02           ..    ldab 02,x
13961 EC98 4F              O     clra
13962 EC99 A3 00           ..    subd 00,x
13963 EC9B 31              1     ins
13964 EC9C 31              1     ins
13965 EC9D 2C 1B           ,.    bge 1b
13966 EC9F 30              0     tsx
13967 ECA0 E6 00           ..    ldab 00,x
13968 ECA2 4F              O     clra
13969 ECA3 C3 B1 D0        ...   addd #b1d0   ; "THANK YOU FOR YOUR PATRONAGE"
13970 ECA6 8F              .     xgdx
13971 ECA7 E6 00           ..    ldab 00,x
13972 ECA9 37              7     pshb
13973 ECAA 30              0     tsx
13974 ECAB E6 01           ..    ldab 01,x
13975 ECAD 4F              O     clra
13976 ECAE C3 09 93        ...   addd #0993
13977 ECB1 8F              .     xgdx
13978 ECB2 33              3     pulb
13979 ECB3 E7 00           ..    stab 00,x
13980 ECB5 30              0     tsx
13981 ECB6 6C 00           l.    inc 00,x
13982 ECB8 20 D2            .    bra d2
13983 ECBA 7F 0B A8        ...   clr 0ba8
13984 ECBD CC 00 32        ..2   ldd #0032
13985 ECC0 FD 0B B5        ...   std 0bb5
13986 ECC3 5F              _     clrb
13987 ECC4 4F              O     clra
13988 ECC5 FD 0B B7        ...   std 0bb7
13989 ECC8 7F 00 06        ...   clr 0006
13990 ECCB BD A6 4E        ..N   jsr a64e             ;jump135
13991 ECCE C6 09           ..    ldab #09
13992 ECD0 F7 0B C0        ...   stab 0bc0    ; defaults to having a bill validator & dumb mech
13993 ECD3 7F 0E 6D        ..m   clr 0e6d
13994 ECD6 C6 01           ..    ldab #01
13995 ECD8 F7 0E 6E        ..n   stab 0e6e
13996 ECDB 30              0     tsx
13997 ECDC 6F 00           o.    clr 00,x
13998 ECDE 30              0     tsx
13999 ECDF E6 00           ..    ldab 00,x
14000 ECE1 C1 0F           ..    cmpb #0f
14001 ECE3 24 21           $!    bcc 21
14002 ECE5 C6 30           .0    ldab #30
14003 ECE7 37              7     pshb
14004 ECE8 30              0     tsx
14005 ECE9 E6 01           ..    ldab 01,x
14006 ECEB 4F              O     clra
14007 ECEC C3 0C B9        ...   addd #0cb9
14008 ECEF 8F              .     xgdx
14009 ECF0 33              3     pulb
14010 ECF1 E7 00           ..    stab 00,x
14011 ECF3 C6 30           .0    ldab #30
14012 ECF5 37              7     pshb
14013 ECF6 30              0     tsx
14014 ECF7 E6 01           ..    ldab 01,x
14015 ECF9 4F              O     clra
14016 ECFA C3 0C C9        ...   addd #0cc9
14017 ECFD 8F              .     xgdx
14018 ECFE 33              3     pulb
14019 ECFF E7 00           ..    stab 00,x
14020 ED01 30              0     tsx
14021 ED02 6C 00           l.    inc 00,x
14022 ED04 20 D8            .    bra d8
14023 ED06 30              0     tsx
14024 ED07 6F 00           o.    clr 00,x
14025 ;
14026 ED09 30              0     tsx
14027 ED0A E6 00           ..    ldab 00,x
14028 ED0C C1 0B           ..    cmpb #0b
14029 ED0E 24 12           $.    bcc 12 ; to ed22
14030 ED10 5F              _     clrb
14031 ED11 37              7     pshb
14032 ED12 30              0     tsx
14033 ED13 E6 01           ..    ldab 01,x
14034 ED15 4F              O     clra
14035 ED16 C3 0B E4        ...   addd #0be4
14036 ED19 8F              .     xgdx
14037 ED1A 33              3     pulb
14038 ED1B E7 00           ..    stab 00,x
14039 ED1D 30              0     tsx
14040 ED1E 6C 00           l.    inc 00,x
14041 ED20 20 E7            .    bra e7
14042 ; clear stuff ready for test harness?
14043 ED22 4F              O     clra
14044 ED23 5F              _     clrb
14045 ED24 FD 0D F9        ...   std 0df9
14046 ED27 FD 0D F7        ...   std 0df7
14047 ED2A 4F              O     clra
14048 ED2B 5F              _     clrb
14049 ED2C FD 0D F5        ...   std 0df5
14050 ED2F FD 0D F3        ...   std 0df3
14051 ED32 7F 0C D9        ...   clr 0cd9
14052 ED35 7F 0C DA        ...   clr 0cda
14053 ED38 7F 0C DB        ...   clr 0cdb
14054 ED3B 7F 0C DC        ...   clr 0cdc
14055 ED3E 4F              O     clra
14056 ED3F 5F              _     clrb
14057 ED40 FD 0D F1        ...   std 0df1
14058 ED43 FD 0D EF        ...   std 0def
14059 ED46 4F              O     clra
14060 ED47 5F              _     clrb
14061 ED48 FD 0D FD        ...   std 0dfd
14062 ED4B FD 0D FB        ...   std 0dfb
14063 ED4E 4F              O     clra
14064 ED4F 5F              _     clrb
14065 ED50 FD 0D E9        ...   std 0de9
14066 ED53 FD 0D E7        ...   std 0de7
14067 ED56 4F              O     clra
14068 ED57 5F              _     clrb
14069 ED58 FD 0D ED        ...   std 0ded
14070 ED5B FD 0D EB        ...   std 0deb
14071 ED5E 5F              _     clrb
14072 ED5F 4F              O     clra
14073 ED60 FD 0C DD        ...   std 0cdd
14074 ED63 5F              _     clrb
14075 ED64 4F              O     clra
14076 ED65 FD 0C DF        ...   std 0cdf
14077 ED68 5F              _     clrb
14078 ED69 4F              O     clra
14079 ED6A FD 0C E1        ...   std 0ce1
14080 ED6D 5F              _     clrb
14081 ED6E 4F              O     clra
14082 ED6F FD 0C E3        ...   std 0ce3
14083 ED72 5F              _     clrb
14084 ED73 4F              O     clra
14085 ED74 FD 0C E5        ...   std 0ce5
14086 ED77 4F              O     clra
14087 ED78 5F              _     clrb
14088 ED79 FD 0C F5        ...   std 0cf5
14089 ED7C FD 0C F3        ...   std 0cf3
14090 ED7F 4F              O     clra
14091 ED80 5F              _     clrb
14092 ED81 FD 0C F9        ...   std 0cf9
14093 ED84 FD 0C F7        ...   std 0cf7
14094 ED87 4F              O     clra
14095 ED88 5F              _     clrb
14096 ED89 FD 0C FD        ...   std 0cfd
14097 ED8C FD 0C FB        ...   std 0cfb
14098 ED8F 4F              O     clra
14099 ED90 5F              _     clrb
14100 ED91 FD 0D 01        ...   std 0d01
14101 ED94 FD 0C FF        ...   std 0cff
14102 ED97 4F              O     clra
14103 ED98 5F              _     clrb
14104 ED99 FD 0D 05        ...   std 0d05
14105 ED9C FD 0D 03        ...   std 0d03
14106 ED9F 5F              _     clrb
14107 EDA0 4F              O     clra
14108 EDA1 FD 0D 07        ...   std 0d07
14109 EDA4 5F              _     clrb
14110 EDA5 4F              O     clra
14111 EDA6 FD 0D 09        ...   std 0d09
14112 EDA9 5F              _     clrb
14113 EDAA 4F              O     clra
14114 EDAB FD 0D 0B        ...   std 0d0b
14115 EDAE 5F              _     clrb
14116 EDAF 4F              O     clra
14117 EDB0 FD 0D 0D        ...   std 0d0d
14118 EDB3 4F              O     clra
14119 EDB4 5F              _     clrb
14120 EDB5 FD 0D 11        ...   std 0d11
14121 EDB8 FD 0D 0F        ...   std 0d0f
14122 EDBB 4F              O     clra
14123 EDBC 5F              _     clrb
14124 EDBD FD 0D 15        ...   std 0d15
14125 EDC0 FD 0D 13        ...   std 0d13
14126 EDC3 4F              O     clra
14127 EDC4 5F              _     clrb
14128 EDC5 FD 0D 19        ...   std 0d19
14129 EDC8 FD 0D 17        ...   std 0d17
14130 EDCB 4F              O     clra
14131 EDCC 5F              _     clrb
14132 EDCD FD 0D 1D        ...   std 0d1d
14133 EDD0 FD 0D 1B        ...   std 0d1b
14134 EDD3 7F 0B AF        ...   clr 0baf
14135 EDD6 7F 0B AE        ...   clr 0bae
14136 EDD9 7F 0B AD        ...   clr 0bad
14137 EDDC 7F 0B AC        ...   clr 0bac
14138 EDDF 7F 0B AB        ...   clr 0bab
14139 EDE2 7F 0B B4        ...   clr 0bb4
14140 EDE5 7F 0B B3        ...   clr 0bb3
14141 EDE8 7F 0B B2        ...   clr 0bb2
14142 EDEB 7F 0B B1        ...   clr 0bb1
14143 EDEE 7F 0B B0        ...   clr 0bb0
14144 EDF1 C6 05           ..    ldab #05
14145 EDF3 F7 08 00        ...   stab 0800
14146 EDF6 8D 21           .!    bsr 21 ;jump204 - test harness function
14147 goto80:
14148 ; switch things off (motors, display clock, keypad strobe)
14149 EDF8 7F 00 14        ...   clr 0014
14150 EDFB F6 00 14        ...   ldab 0014
14151 EDFE F7 38 00        .8.   stab 3800
14152 EE01 31              1     ins
14153 EE02 39              9     rts
14154
14155 jump36:
14156 ; writes msg to screen for 1.5s
14157 EE03 37              7     pshb
14158 EE04 36              6     psha
14159 EE05 30              0     tsx
14160 EE06 EC 00           ..    ldd 00,x
14161 EE08 BD C0 BA        ...   jsr c0ba             ;display:
14162 EE0B CE 10 16        ...   ldx #1016
14163 EE0E 1D 01 FF        ..    bclr 01,x, #ff
14164 EE11 CC 05 DC        ...   ldd #05dc    ; 1500
14165 EE14 BD E5 71        ...   jsr e571     ;msdelay
14166 EE17 38              8     pulx
14167 EE18 39              9     rts
14168
14169 jump204:
14170 EE19 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
14171 goto81:
14172 ; this the diagnostic function activated when the "test harness"
14173 ; is connected
14174 EE1C CE 10 16        ...   ldx #1016
14175 EE1F 1D 01           ..    bclr 01,x, #ff
14176 EE21 CE 10 16        ..    ldx #1016
14177 EE25 1C 01 5A        ...   bset 01,x, #5A
14178 EE28 F6 10 16        ...   ldab 1016
14179 EE2B 26 0C           &.    bne 0c       ; to ee39
14180 EE2D CC B1 4F        ..O   ldd #b14f    ;"RAM   FAIL"
14181 EE30 BD C0 BA        ...   jsr c0ba             ;display:
14182 EE33 CC 05 DC        ...   ldd #05dc
14183 EE36 BD E5 71        ..q   jsr e571             ;msdelay
14184 ; i=4
14185 EE39 C6 04           ..    ldab #04
14186 EE3B F7 00 1C        ...   stab 001c
14187 ; i <= 7
14188 EE3E F6 00 1C        ...   ldab 001c
14189 EE41 C1 07           ..    cmpb #07
14190 EE43 24 57           $W    bcc 57       ; to ee9c (break out)
14191 EE45 F6 00 1C        ...   ldab 001c
14192 EE48 4F              O     clra
14193 EE49 C3 B1 23        ..#   addd #b123   ; power of 2
14194 EE4C 8F              .     xgdx
14195 EE4D E6 00           ..    ldab 00,x
14196 EE4F 53              S     comb
14197 EE50 F4 00 1A        ...   andb 001a
14198 EE53 F7 00 1A        ...   stab 001a
14199 EE56 F6 00 1A        ...   ldab 001a
14200 EE59 F7 30 00        .0.   stab 3000    ; set coin bit active (low)
14201 EE5C CC 00 0A        ...   ldd #000a
14202 EE5F BD E5 71        ..q   jsr e571             ;msdelay
14203 EE62 F6 18 00        ...   ldab 1800
14204 EE65 2C 07           ,.    bge 07       ; to ee6e
14205 EE67 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14206 EE6A 8D 97           ..    bsr dest 97  ; display to ee03
14207 EE6C 20 2E            .    bra 2e       ; to ee9c
14208 EE6E F6 00 1C        ...   ldab 001c
14209 EE71 4F              O     clra
14210 EE72 C3 B1 23        ..#   addd #b123   ; powers of 2
14211 EE75 8F              .     xgdx
14212 EE76 E6 00           ..    ldab 00,x
14213 EE78 FA 00 1A        ...   orb 001a
14214 EE7B F7 00 1A        ...   stab 001a
14215 EE7E F6 00 1A        ...   ldab 001a
14216 EE81 F7 30 00        .0.   stab 3000    ; set coin bit inactive (high)
14217 EE84 CC 00 0A        ...   ldd #000a
14218 EE87 BD E5 71        ..q   jsr e571             ;msdelay
14219 EE8A F6 18 00        ...   ldab 1800    ; if changer int'
14220 EE8D 2D 08           -.    blt 08       ; ee97
14221 EE8F CC B1 5A        ..Z   ldd #b15a    ; "P2 FAIL"
14222 EE92 BD EE 03        ...   jsr ee03             ;jump36
14223 EE95 20 05            .    bra 05       ; to ee9c
14224 EE97 7C 00 1C        |..   inc 001c
14225 EE9A 20 A2            .    bra a2       ; to ee3e
14226 ;
14227 EE9C CE 10 00        ...   ldx #1000
14228 EE9F 1C 00 08        ...   bset 00,x, #08 ; talk to coin mech
14229 EEA2 CE 10 08        ...   ldx #1008
14230 EEA5 1C 00 02        ...   bset 00,x, #02 ; set rx of sci
14231 EEA8 CE 00 1A        ...   ldx #001a
14232 EEAB 1C 00 40        ...   bset 00,x, #40
14233 EEAE F6 00 1A        ...   ldab 001a
14234 EEB1 F7 30 00        .0.   stab 3000    ; unset $1.00 line
14235 EEB4 CC 00 0A        ...   ldd #000a
14236 EEB7 BD E5 71        ..q   jsr e571             ;msdelay
14237 EEBA F6 10 08        ...   ldab 1008
14238 EEBD C4 01           ..    andb #01     ; tests tx of sci
14239 EEBF 26 06           &.    bne 06       ; to eec7
14240 EEC1 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14241 EEC4 BD EE 03        ...   jsr ee03             ;jump36
14242 EEC7 CE 00 1A        ...   ldx #001a
14243 EECA 1D 00 40        ...   bclr 00,x, #40
14244 EECD F6 00 1A        ...   ldab 001a
14245 EED0 F7 30 00        .0.   stab 3000    ; set $1.00 line
14246 EED3 CC 00 0A        ...   ldd #000a
14247 EED6 BD E5 71        ..q   jsr e571             ;msdelay
14248 ;
14249 EED9 F6 10 08        ...   ldab 1008
14250 EEDC C4 01           ..    andb #01     ; tests txt of sci
14251 EEDE 27 06           '.    beq 06       ; to eee6
14252 EEE0 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14253 EEE3 BD EE 03        ...   jsr ee03             ;jump36
14254 EEE6 CE 00 1A        ...   ldx #001a
14255 EEE9 1C 00 02        ...   bset 00,x, #02
14256 EEEC F6 00 1A        ...   ldab 001a
14257 EEEF F7 30 00        .0.   stab 3000    ; ditto for $0.25
14258 EEF2 CC 00 0A        ...   ldd #000a
14259 EEF5 BD E5 71        ..q   jsr e571             ;msdelay
14260 EEF8 F6 10 00        ...   ldab 1000
14261 EEFB C4 04           ..    andb #04
14262 EEFD 26 06           &.    bne 06
14263 EEFF CC B1 65        ..e   ldd #b165
14264 EF02 BD EE 03        ...   jsr ee03             ;jump36
14265 EF05 CE 00 1A        ...   ldx #001a
14266 EF08 1D 00 02        ...   bclr 00,x, #02
14267 EF0B F6 00 1A        ...   ldab 001a
14268 EF0E F7 30 00        .0.   stab 3000    ; ditto for $0.25
14269 EF11 CC 00 0A        ...   ldd #000a
14270 EF14 BD E5 71        ..q   jsr e571             ;msdelay
14271 ;
14272 EF17 F6 10 00        ...   ldab 1000
14273 EF1A C4 04           ..    andb #04     ; coin dispenser pin6
14274 EF1C 27 06           '.    beq 06
14275 EF1E CC B1 65        ..e   ldd #b165    ; "P2-P3 FAIL"
14276 EF21 BD EE 03        ...   jsr ee03             ;jump36
14277 EF24 CE 00 1A        ...   ldx #001a
14278 EF27 1C 00 01        ...   bset 00,x, #01
14279 EF2A F6 00 1A        ...   ldab 001a
14280 EF2D F7 30 00        .0.   stab 3000    ; send line of changer
14281 EF30 CC 00 0A        ...   ldd #000a
14282 EF33 BD E5 71        ..q   jsr e571             ;msdelay
14283 ;
14284 EF36 F6 18 00        ...   ldab 1800
14285 EF39 C4 20           .     andb #20     ; test door switch
14286 EF3B 26 06           &.    bne 06
14287 EF3D CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14288 EF40 BD EE 03        ...   jsr ee03             ;jump36
14289 EF43 CE 00 1A        ...   ldx #001a
14290 EF46 1D 00 01        ...   bclr 00,x, #01
14291 EF49 F6 00 1A        ...   ldab 001a
14292 EF4C F7 30 00        .0.   stab 3000    ; unset send line of changer
14293 EF4F CC 00 0A        ...   ldd #000a
14294 EF52 BD E5 71        ..q   jsr e571             ;msdelay
14295 EF55 F6 18 00        ...   ldab 1800
14296 EF58 C4 20           .     andb #20     ; test door again?
14297 EF5A 27 06           '.    beq 06
14298 EF5C CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14299 EF5F BD EE 03        ...   jsr ee03             ;jump36
14300 EF62 CE 00 1A        ...   ldx #001a
14301 EF65 1C 00 04        ...   bset 00,x, #04 ; reset changer
14302 EF68 F6 00 1A        ...   ldab 001a
14303 EF6B F7 30 00        .0.   stab 3000
14304 EF6E CC 00 0A        ...   ldd #000a
14305 EF71 BD E5 71        ..q   jsr e571             ;msdelay
14306 EF74 F6 10 0A        ...   ldab 100a
14307 EF77 C4 04           ..    andb #04     ; test no-sale switch
14308 EF79 26 06           &.    bne 06
14309 EF7B CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14310 EF7E BD EE 03        ...   jsr ee03             ;jump36
14311 EF81 CE 00 1A        ...   ldx #001a
14312 EF84 1D 00 04        ...   bclr 00,x, #04
14313 EF87 F6 00 1A        ...   ldab 001a
14314 EF8A F7 30 00        .0.   stab 3000    ;snack motor drivers serial data is bit 7
14315 EF8D CC 00 0A        ...   ldd #000a
14316 EF90 BD E5 71        ..q   jsr e571             ;msdelay
14317 EF93 F6 10 0A        ...   ldab 100a
14318 EF96 C4 04           ..    andb #04
14319 EF98 27 06           '.    beq 06
14320 EF9A CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14321 EF9D BD EE 03        ...   jsr ee03             ;jump36
14322 EFA0 CE 10 00        ...   ldx #1000
14323 EFA3 1C 00 08        ...   bset 00,x, #08
14324 EFA6 CE 00 1A        ...   ldx #001a
14325 EFA9 1C 00 40        ...   bset 00,x, #40
14326 EFAC F6 00 1A        ...   ldab 001a
14327 EFAF F7 30 00        .0.   stab 3000
14328 EFB2 CE 10 08        ...   ldx #1008
14329 EFB5 1C 00 02        ...   bset 00,x, #02 ; keypad data
14330 EFB8 CC 00 0A        ...   ldd #000a
14331 EFBB BD E5 71        ..q   jsr e571             ;msdelay
14332 EFBE F6 10 08        ...   ldab 1008
14333 EFC1 C4 01           ..    andb #01
14334 EFC3 26 06           &.    bne 06
14335 EFC5 CC B1 86        ...   ldd #b186    ; "P3-P4 FAIL"
14336 EFC8 BD EE 03        ...   jsr ee03             ;jump36
14337 EFCB CE 10 08        ...   ldx #1008
14338 EFCE 1D 00 02        ...   bclr 00,x, #02
14339 EFD1 CC 00 0A        ...   ldd #000a
14340 EFD4 BD E5 71        ..q   jsr e571             ;msdelay
14341 EFD7 F6 10 08        ...   ldab 1008
14342 EFDA C4 01           ..    andb #01
14343 EFDC 27 06           '.    beq 06
14344 EFDE CC B1 86        ...   ldd #b186     ; "P3-P4 FAIL"
14345 EFE1 BD EE 03        ...   jsr ee03             ;jump36
14346 EFE4 CE 10 00        ...   ldx #1000
14347 EFE7 1D 00 08        ...   bclr 00,x, #08
14348 EFEA CE 10 08        ...   ldx #1008
14349 EFED 1C 00 02        ...   bset 00,x, #02
14350 EFF0 CC 00 0A        ...   ldd #000a
14351 EFF3 BD E5 71        ..q   jsr e571             ;msdelay
14352 EFF6 F6 10 08        ...   ldab 1008
14353 EFF9 C4 01           ..    andb #01
14354 EFFB 26 06           &.    bne 06
14355 EFFD CC B1 91        ...   ldd #b191    ; "P5   FAIL"
14356 F000 BD EE 03        ...   jsr ee03             ;jump36
14357 F003 CE 10 08        ...   ldx #1008
14358 F006 1D 00 02        ...   bclr 00,x, #02
14359 F009 CC 00 0A        ...   ldd #000a
14360 F00C BD E5 71        ..q   jsr e571             ;msdelay
14361 F00F F6 10 08        ...   ldab 1008
14362 F012 C4 01           ..    andb #01
14363 F014 27 06           '.    beq 06
14364 F016 CC B1 91        ...   ldd #b191
14365 F019 BD EE 03        ...   jsr ee03             ;jump36
14366 F01C CE 00 14        ...   ldx #0014
14367 F01F 1C 00           ..    bset add,x 00,x
14368 F021 20 F6            .    bra f6
14369 F023 00              .     test
14370 F024 14              .     bset
14371 F025 F7 38 00        .8.   stab 3800
14372 F028 CC 00 0A        ...   ldd #000a
14373 F02B BD E5 71        ..q   jsr e571             ;msdelay
14374 F02E F6 20 00        . .   ldab 2000
14375 F031 C4 40           .@    andb #40
14376 F033 26 06           &.    bne 06
14377 F035 CC B1 9C        ...   ldd #b19c
14378 F038 BD EE 03        ...   jsr ee03             ;jump36
14379 F03B CE 00 14        ...   ldx #0014
14380 F03E 1D 00           ..    bclr add,x 00,x
14381 F040 20 F6            .    bra f6
14382 F042 00              .     test
14383 F043 14              .     bset
14384 F044 F7 38 00        .8.   stab 3800
14385 F047 CC 00 0A        ...   ldd #000a
14386 F04A BD E5 71        ..q   jsr e571             ;msdelay
14387 F04D F6 20 00        . .   ldab 2000
14388 F050 C4 40           .@    andb #40
14389 F052 27 06           '.    beq 06
14390 F054 CC B1 9C        ...   ldd #b19c
14391 F057 BD EE 03        ...   jsr ee03             ;jump36
14392 F05A CE 00 14        ...   ldx #0014
14393 F05D 1C 00 40        ...   bset 00,x, #40
14394 F060 F6 00 14        ...   ldab 0014
14395 F063 F7 38 00        .8.   stab 3800
14396 F066 CC 00 0A        ...   ldd #000a
14397 F069 BD E5 71        ..q   jsr e571             ;msdelay
14398 F06C F6 20 00        . .   ldab 2000
14399 F06F 2C 06           ,.    bge 06
14400 F071 CC B1 9C        ...   ldd #b19c
14401 F074 BD EE 03        ...   jsr ee03             ;jump36
14402 F077 CE 00 14        ...   ldx #0014
14403 F07A 1D 00 40        ...   bclr 00,x, #40
14404 F07D F6 00 14        ...   ldab 0014
14405 F080 F7 38 00        .8.   stab 3800
14406 F083 CC 00 0A        ...   ldd #000a
14407 F086 BD E5 71        ..q   jsr e571             ;msdelay
14408 F089 F6 20 00        . .   ldab 2000
14409 F08C 2D 06           -.    blt 06
14410 F08E CC B1 9C        ...   ldd #b19c
14411 F091 BD EE 03        ...   jsr ee03             ;jump36
14412 F094 7F 00 61        ..a   clr 0061
14413 F097 F6 00 61        ..a   ldab 0061
14414 F09A C1 08           ..    cmpb #08
14415 F09C 24 22           $"    bcc 22
14416 F09E F6 00 61        ..a   ldab 0061
14417 F0A1 4F              O     clra
14418 F0A2 C3 B1 C8        ...   addd #b1c8
14419 F0A5 8F              .     xgdx
14420 F0A6 E6 00           ..    ldab 00,x
14421 F0A8 F7 00 06        ...   stab 0006
14422 F0AB BD D3 11        ...   jsr d311             ;jump30 - test position exists
14423 F0AE 83 00 00        ...   subd #0000
14424 F0B1 27 08           '.    beq 08
14425 F0B3 CC B1 A7        ...   ldd #b1a7
14426 F0B6 BD EE 03        ...   jsr ee03             ;jump36
14427 F0B9 20 05            .    bra 05
14428 F0BB 7C 00 61        |.a   inc 0061
14429 F0BE 20 D7            .    bra d7
14430 F0C0 7F 00 61        ..a   clr 0061
14431 F0C3 F6 00 61        ..a   ldab 0061
14432 F0C6 C1 08           ..    cmpb #08
14433 F0C8 24 2B           $+    bcc 2b
14434 F0CA F6 00 61        ..a   ldab 0061
14435 F0CD 4F              O     clra
14436 F0CE C3 B1 C8        ...   addd #b1c8
14437 F0D1 8F              .     xgdx
14438 F0D2 E6 00           ..    ldab 00,x
14439 F0D4 F7 00 06        ...   stab 0006
14440 F0D7 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14441 F0DA BD D5 70        ..p   jsr d570             ;jump35
14442 F0DD 83 00 00        ...   subd #0000
14443 F0E0 26 0B           &.    bne 0b
14444 F0E2 BD D1 05        ...   jsr d105             ;motors_off
14445 F0E5 CC B1 B2        ...   ldd #b1b2
14446 F0E8 BD EE 03        ...   jsr ee03             ;jump36
14447 F0EB 20 08            .    bra 08
14448 F0ED BD D1 05        ...   jsr d105             ;motors_off
14449 F0F0 7C 00 61        |.a   inc 0061
14450 F0F3 20 CE            .    bra ce
14451 F0F5 7F 00 61        ..a   clr 0061
14452 F0F8 F6 00 61        ..a   ldab 0061
14453 F0FB C1 05           ..    cmpb #05
14454 F0FD 24 45           $E    bcc 45
14455 F0FF F6 00 61        ..a   ldab 0061
14456 F102 4F              O     clra
14457 F103 C3 B1 C8        ...   addd #b1c8
14458 F106 8F              .     xgdx
14459 F107 E6 00           ..    ldab 00,x
14460 F109 F7 00 06        ...   stab 0006
14461 F10C BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14462 F10F CC 00 0A        ...   ldd #000a
14463 F112 BD E5 71        ..q   jsr e571             ;msdelay
14464 F115 F6 18 00        ...   ldab 1800
14465 F118 C4 40           .@    andb #40
14466 F11A 26 0B           &.    bne 0b
14467 F11C BD D1 05        ...   jsr d105             ;motors_off
14468 F11F CC B1 B2        ...   ldd #b1b2
14469 F122 BD EE 03        ...   jsr ee03             ;jump36
14470 F125 20 1D            .    bra 1d
14471 F127 BD D1 05        ...   jsr d105             ;motors_off
14472 F12A CC 00 0A        ...   ldd #000a
14473 F12D BD E5 71        ..q   jsr e571             ;msdelay
14474 F130 F6 18 00        ...   ldab 1800
14475 F133 C4 40           .@    andb #40
14476 F135 27 08           '.    beq 08
14477 F137 CC B1 B2        ...   ldd #b1b2
14478 F13A BD EE 03        ...   jsr ee03             ;jump36
14479 F13D 20 05            .    bra 05
14480 F13F 7C 00 61        |.a   inc 0061
14481 F142 20 B4            .    bra b4
14482 F144 FC 10 16        ...   ldd 1016
14483 F147 83 5A 5A        .ZZ   subd #5a5a
14484 F14A 26 0C           &.    bne 0c
14485 F14C CC B1 BD        ...   ldd #b1bd    ; " PASSED "
14486 F14F BD C0 BA        ...   jsr c0ba             ;display:
14487 F152 CC 05 DC        ...   ldd #05dc
14488 F155 BD E5 71        ..q   jsr e571             ;msdelay
14489 F158 7E EE 1C        ~..   jmp ee1c             ;goto81
14490
14491 jump53:
14492 ;send a byte to the printer
14493 ;it calls c7e7, which does things with the serial port
14494 F15B 37              7     pshb
14495 F15C 36              6     psha
14496 F15D F6 00 19        ...   ldab 0019
14497 F160 C4 40           .@    andb #40
14498 F162 26 5B           &[    bne 5b
14499 F164 C6 FF           ..    ldab #ff
14500 F166 F7 00 39        ..9   stab 0039
14501 F169 F6 20 00        . .   ldab 2000
14502 F16C 2C 11           ,.    bge 11
14503 F16E F6 20 00        . .   ldab 2000
14504 F171 C4 40           .@    andb #40
14505 F173 27 0A           '.    beq 0a
14506 F175 F6 00 39        ..9   ldab 0039
14507 F178 27 05           '.    beq 05
14508 F17A BD E6 1B        ...   jsr e61b             ;jump4
14509 F17D 20 EA            .    bra ea
14510 F17F F6 00 39        ..9   ldab 0039
14511 F182 26 08           &.    bne 08
14512 F184 CE 00 19        ...   ldx #0019
14513 F187 1C 00 40        ...   bset 00,x, #40
14514 F18A 20 33            3    bra 33
14515 F18C F6 20 00        . .   ldab 2000
14516 F18F C4 40           .@    andb #40
14517 F191 27 2C           ',    beq 2c
14518 F193 F6 00 1D        ...   ldab 001d
14519 F196 C4 01           ..    andb #01
14520 F198 27 1E           '.    beq 1e
14521 F19A 30              0     tsx
14522 F19B E6 01           ..    ldab 01,x
14523 F19D C1 30           .0    cmpb #30
14524 F19F 26 08           &.    bne 08
14525 F1A1 CC 00 20        ..    ldd #0020
14526 F1A4 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14527 F1A7 20 0D            .    bra 0d
14528 F1A9 30              0     tsx
14529 F1AA E6 01           ..    ldab 01,x
14530 F1AC 4F              O     clra
14531 F1AD BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14532 F1B0 CE 00 1D        ...   ldx #001d
14533 F1B3 1D 00 01        ...   bclr 00,x, #01
14534 F1B6 20 07            .    bra 07
14535 F1B8 30              0     tsx
14536 F1B9 E6 01           ..    ldab 01,x
14537 F1BB 4F              O     clra
14538 F1BC BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14539 F1BF 38              8     pulx
14540 F1C0 39              9     rts
14541
14542 jump59:
14543 F1C1 37              7     pshb
14544 F1C2 36              6     psha
14545 F1C3 F6 20 00        . .   ldab 2000
14546 F1C6 C4 40           .@    andb #40
14547 F1C8 27 1C           '.    beq 1c
14548 F1CA 7F 00 18        ...   clr 0018
14549 F1CD F6 00 18        ...   ldab 0018
14550 F1D0 30              0     tsx
14551 F1D1 E1 05           ..    cmpb 05,x
14552 F1D3 24 11           $.    bcc 11
14553 F1D5 30              0     tsx
14554 F1D6 EE 00           ..    ldx 00,x
14555 F1D8 E6 00           ..    ldab 00,x
14556 F1DA 4F              O     clra
14557 F1DB BD F1 5B        ..[   jsr f15b             ;jump53
14558 F1DE 38              8     pulx
14559 F1DF 08              .     inx
14560 F1E0 3C              <     pshx
14561 F1E1 7C 00 18        |..   inc 0018
14562 F1E4 20 E7            .    bra e7
14563 F1E6 38              8     pulx
14564 F1E7 39              9     rts
14565
14566 ;send a string to the printer.  D is a pointer to a string
14567 jump57:
14568 F1E8 37              7     pshb
14569 F1E9 36              6     psha
14570 F1EA F6 20 00        . .   ldab 2000
14571 F1ED C4 40           .@    andb #40
14572 F1EF 27 1B           '.    beq 1b
14573 F1F1 CC 00 20        ..    ldd #0020
14574 F1F4 BD F1 5B        ..[   jsr f15b             ;jump53
14575 F1F7 30              0     tsx
14576 F1F8 EE 00           ..    ldx 00,x
14577 F1FA E6 00           ..    ldab 00,x
14578 F1FC 27 0E           '.    beq 0e
14579 F1FE 30              0     tsx
14580 F1FF EE 00           ..    ldx 00,x
14581 F201 E6 00           ..    ldab 00,x
14582 F203 4F              O     clra
14583 F204 BD F1 5B        ..[   jsr f15b             ;jump53
14584 F207 38              8     pulx
14585 F208 08              .     inx
14586 F209 3C              <     pshx
14587 F20A 20 EB            .    bra eb
14588 F20C 38              8     pulx
14589 F20D 39              9     rts
14590
14591 jump62:
14592 F20E 37              7     pshb
14593 F20F 36              6     psha
14594 F210 F6 20 00        . .   ldab 2000
14595 F213 C4 40           .@    andb #40
14596 F215 27 34           '4    beq 34
14597 F217 CE 00 1D        ...   ldx #001d
14598 F21A 1C 00 01        ...   bset 00,x, #01
14599 F21D 30              0     tsx
14600 F21E E6 01           ..    ldab 01,x
14601 F220 4F              O     clra
14602 F221 BD E7 95        ...   jsr e795             ;jump54 - number to string
14603 F224 F6 00 5D        ..]   ldab 005d
14604 F227 4F              O     clra
14605 F228 BD F1 5B        ..[   jsr f15b             ;jump53
14606 F22B F6 00 5E        ..^   ldab 005e
14607 F22E 4F              O     clra
14608 F22F BD F1 5B        ..[   jsr f15b             ;jump53
14609 F232 CE 00 1D        ...   ldx #001d
14610 F235 1D 00 01        ...   bclr 00,x, #01
14611 F238 F6 00 5F        .._   ldab 005f
14612 F23B 4F              O     clra
14613 F23C BD F1 5B        ..[   jsr f15b             ;jump53
14614 F23F CC 00 20        ..    ldd #0020
14615 F242 BD F1 5B        ..[   jsr f15b             ;jump53
14616 F245 CC 00 20        ..    ldd #0020
14617 F248 BD F1 5B        ..[   jsr f15b             ;jump53
14618 F24B 38              8     pulx
14619 F24C 39              9     rts
14620
14621 jump58:
14622 F24D 37              7     pshb
14623 F24E 36              6     psha
14624 F24F F6 20 00        . .   ldab 2000
14625 F252 C4 40           .@    andb #40
14626 F254 27 41           'A    beq 41
14627 F256 CE 00 1D        ...   ldx #001d
14628 F259 1C 00 01        ...   bset 00,x, #01
14629 F25C 30              0     tsx
14630 F25D EC 00           ..    ldd 00,x
14631 F25F BD E7 45        ..E   jsr e745             ;jump55 - number to string
14632 F262 F6 00 57        ..W   ldab 0057
14633 F265 4F              O     clra
14634 F266 BD F1 5B        ..[   jsr f15b             ;jump53
14635 F269 F6 00 5A        ..Z   ldab 005a
14636 F26C 4F              O     clra
14637 F26D BD F1 5B        ..[   jsr f15b             ;jump53
14638 F270 F6 00 5D        ..]   ldab 005d
14639 F273 4F              O     clra
14640 F274 BD F1 5B        ..[   jsr f15b             ;jump53
14641 F277 F6 00 5E        ..^   ldab 005e
14642 F27A 4F              O     clra
14643 F27B BD F1 5B        ..[   jsr f15b             ;jump53
14644 F27E CE 00 1D        ...   ldx #001d
14645 F281 1D 00 01        ...   bclr 00,x, #01
14646 F284 F6 00 5F        .._   ldab 005f
14647 F287 4F              O     clra
14648 F288 BD F1 5B        ..[   jsr f15b             ;jump53
14649 F28B CC 00 20        ..    ldd #0020
14650 F28E BD F1 5B        ..[   jsr f15b             ;jump53
14651 F291 CC 00 20        ..    ldd #0020
14652 F294 BD F1 5B        ..[   jsr f15b             ;jump53
14653 F297 38              8     pulx
14654 F298 39              9     rts
14655
14656 jump61:
14657 F299 37              7     pshb
14658 F29A 36              6     psha
14659 F29B F6 20 00        . .   ldab 2000
14660 F29E C4 40           .@    andb #40    ; printer DSR
14661 F2A0 27 7B           '{    beq 7b
14662 F2A2 F6 00 17        ...   ldab 0017
14663 F2A5 C4 08           ..    andb #08
14664 F2A7 26 06           &.    bne 06
14665 F2A9 CC 00 24        ..$   ldd #0024    ; "$"
14666 F2AC BD F1 5B        ..[   jsr f15b             ;jump53
14667 F2AF CE 00 1D        ...   ldx #001d
14668 F2B2 1C 00 01        ...   bset 00,x, #01
14669 F2B5 30              0     tsx
14670 F2B6 EC 00           ..    ldd 00,x
14671 F2B8 BD E7 45        ..E   jsr e745             ;jump55 - number to string
14672 F2BB F6 00 57        ..W   ldab 0057
14673 F2BE 4F              O     clra
14674 F2BF BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14675 F2C2 F6 00 5A        ..Z   ldab 005a
14676 F2C5 4F              O     clra
14677 F2C6 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14678 F2C9 F6 00 13        ...   ldab 0013
14679 F2CC C1 08           ..    cmpb #08
14680 F2CE 26 0C           &.    bne 0c
14681 F2D0 CC 00 2E        ...   ldd #002e
14682 F2D3 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14683 F2D6 CE 00 1D        ...   ldx #001d
14684 F2D9 1D 00 01        ...   bclr 00,x, #01
14685 F2DC F6 00 5D        ..]   ldab 005d
14686 F2DF 4F              O     clra
14687 F2E0 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14688 F2E3 F6 00 13        ...   ldab 0013
14689 F2E6 C1 04           ..    cmpb #04
14690 F2E8 26 0C           &.    bne 0c
14691 F2EA CC 00 2E        ...   ldd #002e
14692 F2ED BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14693 F2F0 CE 00 1D        ...   ldx #001d
14694 F2F3 1D 00 01        ...   bclr 00,x, #01
14695 F2F6 F6 00 5E        ..^   ldab 005e
14696 F2F9 4F              O     clra
14697 F2FA BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14698 F2FD F6 00 13        ...   ldab 0013
14699 F300 C1 02           ..    cmpb #02
14700 F302 26 06           &.    bne 06
14701 F304 CC 00 2E        ...   ldd #002e
14702 F307 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14703 F30A CE 00 1D        ...   ldx #001d
14704 F30D 1D 00 01        ...   bclr 00,x, #01
14705 F310 F6 00 5F        .._   ldab 005f
14706 F313 4F              O     clra
14707 F314 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14708 F317 CC 00 0A        ...   ldd #000a
14709 F31A BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14710 F31D 38              8     pulx
14711 F31E 39              9     rts
14712
14713 jump60:
14714 F31F 38              8     pulx
14715 F320 37              7     pshb
14716 F321 36              6     psha
14717 F322 3C              <     pshx
14718 F323 F6 20 00        . .   ldab 2000
14719 F326 C4 40           .@    andb #40     ; printer dsr
14720 F328 26 03           &.    bne 03
14721 F32A 7E F3 BC        ~..   jmp f3bc             ;goto82
14722 F32D F6 00 17        ...   ldab 0017
14723 F330 C4 08           ..    andb #08
14724 F332 26 06           &.    bne 06
14725 F334 CC 00 24        ..$   ldd #0024    ; "$"
14726 F337 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14727 F33A CE 00 1D        ...   ldx #001d
14728 F33D 1C 00 01        ...   bset 00,x, #01
14729 F340 30              0     tsx
14730 F341 EC 04           ..    ldd 04,x
14731 F343 37              7     pshb
14732 F344 36              6     psha
14733 F345 EC 02           ..    ldd 02,x
14734 F347 BD E6 21        ..!   jsr e621             ;jump56 - write to display
14735 F34A 38              8     pulx
14736 F34B C6 07           ..    ldab #07
14737 F34D F7 00 18        ...   stab 0018
14738 F350 F6 00 18        ...   ldab 0018
14739 F353 C1 FF           ..    cmpb #ff
14740 F355 24 5F           $_    bcc 5f
14741 F357 F6 00 18        ...   ldab 0018
14742 F35A 4F              O     clra
14743 F35B C3 0B 90        ...   addd #0b90
14744 F35E 8F              .     xgdx
14745 F35F E6 00           ..    ldab 00,x
14746 F361 4F              O     clra
14747 F362 BD F1 5B        ..[   jsr f15b             ;jump53
14748 F365 F6 00 18        ...   ldab 0018
14749 F368 C1 03           ..    cmpb #03
14750 F36A 26 15           &.    bne 15
14751 F36C F6 00 13        ...   ldab 0013
14752 F36F C1 08           ..    cmpb #08
14753 F371 26 0C           &.    bne 0c
14754 F373 CC 00 2E        ...   ldd #002e
14755 F376 BD F1 5B        ..[   jsr f15b             ;jump53
14756 F379 CE 00 1D        ...   ldx #001d
14757 F37C 1D 00 01        ...   bclr 00,x, #01
14758 F37F 20 30            0    bra 30
14759 F381 C1 02           ..    cmpb #02
14760 F383 26 15           &.    bne 15
14761 F385 F6 00 13        ...   ldab 0013
14762 F388 C1 04           ..    cmpb #04
14763 F38A 26 0C           &.    bne 0c
14764 F38C CC 00 2E        ...   ldd #002e
14765 F38F BD F1 5B        ..[   jsr f15b             ;jump53
14766 F392 CE 00 1D        ...   ldx #001d
14767 F395 1D 00 01        ...   bclr 00,x, #01
14768 F398 20 17            .    bra 17
14769 F39A C1 01           ..    cmpb #01
14770 F39C 26 13           &.    bne 13
14771 F39E F6 00 13        ...   ldab 0013
14772 F3A1 C1 02           ..    cmpb #02
14773 F3A3 26 06           &.    bne 06
14774 F3A5 CC 00 2E        ...   ldd #002e
14775 F3A8 BD F1 5B        ..[   jsr f15b             ;jump53
14776 F3AB CE 00 1D        ...   ldx #001d
14777 F3AE 1D 00 01        ...   bclr 00,x, #01
14778 F3B1 7A 00 18        z..   dec 0018
14779 F3B4 20 9A            .    bra 9a
14780 F3B6 CC 00 0A        ...   ldd #000a
14781 F3B9 BD F1 5B        ..[   jsr f15b             ;jump53
14782 goto82:
14783 F3BC 38              8     pulx
14784 F3BD 31              1     ins
14785 F3BE 31              1     ins
14786 F3BF 6E 00           n.    jmp 00,x
14787
14788 jump63:
14789 F3C1 37              7     pshb
14790 F3C2 36              6     psha
14791 F3C3 F6 20 00        . .   ldab 2000
14792 F3C6 C4 40           .@    andb #40
14793 F3C8 27 49           'I    beq 49
14794 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14795 F3CD BD F1 E8        ...   jsr f1e8             ;jump57
14796 F3D0 30              0     tsx
14797 F3D1 E6 01           ..    ldab 01,x
14798 F3D3 4F              O     clra
14799 F3D4 CE 00 0A        ...   ldx #000a
14800 F3D7 02              .     idiv
14801 F3D8 8F              .     xgdx
14802 F3D9 CB 30           .0    addb #30
14803 F3DB F7 00 5E        ..^   stab 005e
14804 F3DE 30              0     tsx
14805 F3DF E6 01           ..    ldab 01,x
14806 F3E1 4F              O     clra
14807 F3E2 CE 00 0A        ...   ldx #000a
14808 F3E5 02              .     idiv
14809 F3E6 CB 30           .0    addb #30
14810 F3E8 F7 00 5F        .._   stab 005f    ;5e and 5f now param in ascii
14811 F3EB F6 00 5E        ..^   ldab 005e
14812 F3EE 4F              O     clra
14813 F3EF BD F1 5B        ..[   jsr f15b             ;jump53
14814 F3F2 F6 00 5F        .._   ldab 005f
14815 F3F5 4F              O     clra
14816 F3F6 BD F1 5B        ..[   jsr f15b             ;jump53
14817 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14818 F3FC BD F1 E8        ...   jsr f1e8             ;jump57
14819 F3FF 30              0     tsx
14820 F400 E6 01           ..    ldab 01,x
14821 F402 4F              O     clra
14822 F403 05              .     asld
14823 F404 C3 0D 1F        ...   addd #0d1f
14824 F407 8F              .     xgdx
14825 F408 EC 00           ..    ldd 00,x
14826 F40A BD F2 4D        ..M   jsr f24d             ;jump58
14827 F40D CC 00 0A        ...   ldd #000a
14828 F410 BD F1 5B        ..[   jsr f15b             ;jump53
14829 F413 38              8     pulx
14830 F414 39              9     rts
14831
14832 jump112:
14833 ; print a report to printer
14834 F415 F6 0B C0        ...   ldab 0bc0
14835 F418 C4 02           ..    andb #02
14836 F41A 27 15           '.    beq 15
14837 F41C CE 00 21        ..!   ldx #0021
14838 F41F 1C 00           ..    bset 00,x, #80
14839 F421 F6 00 1D        ..    ldab 001d
14840 F424 C4 02           ..    andb #02
14841 F427 27 02           '.    beq 02
14842 F429 20 F7            .    bra f7
14843 F42B CE 00 21        ..!   ldx #0021
14844 F42E 1D 00           ..    bclr 00,x, #80
14845 F430 C6 10           ..    ldab #10
14846 F433 F7 10 2C        ..,   stab 102c ; set 9N1
14847 F436 C6 2E           ..    ldab #2e
14848 F438 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
14849 F43B C6 05           ..    ldab #05
14850 F43D F7 10 2B        ..+   stab 102b    ; 2400 baud
14851 F440 CC 03 E8        ...   ldd #03e8
14852 F443 BD E5 71        ..q   jsr e571             ;msdelay
14853 F446 CE 10 00        ...   ldx #1000
14854 F449 1D 00 08        ...   bclr 00,x, #08  ; talk to ze printer
14855 F44C CE 00 19        ...   ldx #0019
14856 F44F 1D 00 40        ...   bclr 00,x, #40
14857 F452 CE 00 1D        ...   ldx #001d
14858 F455 1D 00 01        ...   bclr 00,x, #01
14859 F458 CC 00 18        ...   ldd #0018
14860 F45B BD F1 5B        ..[   jsr f15b             ;jump53
14861 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14862 F461 BD F1 E8        ...   jsr f1e8             ;jump57
14863 F464 CC 00 0A        ...   ldd #000a    ; new line
14864 F467 BD F1 5B        ..[   jsr f15b             ;jump53
14865 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
14866 F46D BD F1 E8        ...   jsr f1e8             ;jump57
14867 F470 CC 00 0A        ...   ldd #000a    ; new line
14868 F473 BD F1 5B        ..[   jsr f15b             ;jump53
14869 F476 CC B2 56        ..V   ldd #b256    ; "5900 SOFTWARE VER 5"
14870 F479 BD F1 E8        ...   jsr f1e8             ;jump57
14871 F47C CC 00 0A        ...   ldd #000a    ; new line
14872 F47F BD F1 5B        ..[   jsr f15b             ;jump53
14873 F482 CC 00 0A        ...   ldd #000a    ; new line
14874 F485 BD F1 5B        ..[   jsr f15b             ;jump53
14875 F488 CC B2 75        ..u   ldd #b275    ; ACCOUNT RECORD
14876 F48B BD F1 E8        ...   jsr f1e8             ;jump57
14877 F48E CC 00 0A        ...   ldd #000a    ; new line
14878 F491 BD F1 5B        ..[   jsr f15b             ;jump53
14879 F494 CC B2 38        ..8   ldd #b238    ; --------------------
14880 F497 BD F1 E8        ...   jsr f1e8             ;jump57
14881 F49A CC 00 0A        ...   ldd #000a    ; new line
14882 F49D BD F1 5B        ..[   jsr f15b             ;jump53
14883 F4A0 CC 00 0A        ...   ldd #000a    ; new line
14884 F4A3 BD F1 5B        ..[   jsr f15b             ;jump53
14885 F4A6 CC B2 90        ...   ldd #b290    ; SERIAL #
14886 F4A9 BD F1 E8        ...   jsr f1e8             ;jump57
14887 F4AC CE 00 0A        ...   ldx #000a
14888 F4AF 3C              <     pshx
14889 F4B0 CC 0C BC        ...   ldd #0cbc    ; serial number
14890 F4B3 BD F1 C1        ...   jsr f1c1             ;jump59
14891 F4B6 38              8     pulx
14892 F4B7 CC 00 0A        ...   ldd #000a
14893 F4BA BD F1 5B        ..[   jsr f15b             ;jump53
14894 F4BD CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
14895 F4C0 BD F1 E8        ...   jsr f1e8             ;jump57
14896 F4C3 CE 00 0A        ...   ldx #000a
14897 F4C6 3C              <     pshx
14898 F4C7 CC 0C CC        ...   ldd #0ccc
14899 F4CA BD F1 C1        ...   jsr f1c1             ;jump59
14900 F4CD 38              8     pulx
14901 F4CE CC 00 0A        ...   ldd #000a
14902 F4D1 BD F1 5B        ..[   jsr f15b             ;jump53
14903 F4D4 CC B2 B4        ...   ldd #b2b4    ; "AUDIT NUMBER"
14904 F4D7 BD F1 E8        ...   jsr f1e8             ;jump57
14905 F4DA FC 0C E7        ...   ldd 0ce7
14906 F4DD BD F2 4D        ..M   jsr f24d             ;jump58 - convert to string
14907 F4E0 CC 00 0A        ...   ldd #000a
14908 F4E3 BD F1 5B        ..[   jsr f15b             ;jump53
14909 F4E6 CC 00 0A        ...   ldd #000a
14910 F4E9 BD F1 5B        ..[   jsr f15b             ;jump53
14911 F4EC CC B2 C6        ...   ldd #b2c6    ; "SALES (R)
14912 F4EF BD F1 E8        ...   jsr f1e8             ;jump57
14913 F4F2 FE 0D E9        ...   ldx 0de9
14914 F4F5 3C              <     pshx
14915 F4F6 FC 0D E7        ...   ldd 0de7
14916 F4F9 BD F3 1F        ...   jsr f31f             ;jump60
14917 F4FC 38              8     pulx
14918 F4FD CC B2 D8        ...   ldd #b2d8    ; "SALES (N)
14919 F500 BD F1 E8        ...   jsr f1e8             ;jump57
14920 F503 FE 0D ED        ...   ldx 0ded
14921 F506 3C              <     pshx
14922 F507 FC 0D EB        ...   ldd 0deb
14923 F50A BD F3 1F        ...   jsr f31f             ;jump60
14924 F50D 38              8     pulx
14925 F50E CC B2 EA        ...   ldd #b2ea
14926 F511 BD F1 E8        ...   jsr f1e8             ;jump57
14927 F514 FE 0D F1        ...   ldx 0df1
14928 F517 3C              <     pshx
14929 F518 FC 0D EF        ...   ldd 0def
14930 F51B BD F3 1F        ...   jsr f31f             ;jump60
14931 F51E 38              8     pulx
14932 F51F CC B2 FC        ...   ldd #b2fc
14933 F522 BD F1 E8        ...   jsr f1e8             ;jump57
14934 F525 FE 0D F9        ...   ldx 0df9
14935 F528 3C              <     pshx
14936 F529 FC 0D F7        ...   ldd 0df7
14937 F52C BD F3 1F        ...   jsr f31f             ;jump60
14938 F52F 38              8     pulx
14939 F530 CC B3 0E        ...   ldd #b30e
14940 F533 BD F1 E8        ...   jsr f1e8             ;jump57
14941 F536 FE 0D FD        ...   ldx 0dfd
14942 F539 3C              <     pshx
14943 F53A FC 0D FB        ...   ldd 0dfb
14944 F53D BD F3 1F        ...   jsr f31f             ;jump60
14945 F540 38              8     pulx
14946 F541 CC 00 0A        ...   ldd #000a
14947 F544 BD F1 5B        ..[   jsr f15b             ;jump53
14948 F547 CC B3 20        ..    ldd #b320
14949 F54A BD F1 E8        ...   jsr f1e8             ;jump57
14950 F54D CC 00 0A        ...   ldd #000a
14951 F550 BD F1 5B        ..[   jsr f15b             ;jump53
14952 F553 CC B3 31        ..1   ldd #b331
14953 F556 BD F1 E8        ...   jsr f1e8             ;jump57
14954 F559 FE 0D F5        ...   ldx 0df5
14955 F55C 3C              <     pshx
14956 F55D FC 0D F3        ...   ldd 0df3
14957 F560 BD F3 1F        ...   jsr f31f             ;jump60
14958 F563 38              8     pulx
14959 F564 CC B3 4A        ..J   ldd #b34a
14960 F567 BD F1 E8        ...   jsr f1e8             ;jump57
14961 F56A FC 0C DD        ...   ldd 0cdd
14962 F56D BD F2 4D        ..M   jsr f24d             ;jump58
14963 F570 FE 0C F5        ...   ldx 0cf5
14964 F573 3C              <     pshx
14965 F574 FC 0C F3        ...   ldd 0cf3
14966 F577 BD F3 1F        ...   jsr f31f             ;jump60
14967 F57A 38              8     pulx
14968 F57B CC B3 5C        ..\   ldd #b35c
14969 F57E BD F1 E8        ...   jsr f1e8             ;jump57
14970 F581 FC 0C DF        ...   ldd 0cdf
14971 F584 BD F2 4D        ..M   jsr f24d             ;jump58
14972 F587 FE 0C F9        ...   ldx 0cf9
14973 F58A 3C              <     pshx
14974 F58B FC 0C F7        ...   ldd 0cf7
14975 F58E BD F3 1F        ...   jsr f31f             ;jump60
14976 F591 38              8     pulx
14977 F592 CC B3 6E        ..n   ldd #b36e
14978 F595 BD F1 E8        ...   jsr f1e8             ;jump57
14979 F598 FC 0C E1        ...   ldd 0ce1
14980 F59B BD F2 4D        ..M   jsr f24d             ;jump58
14981 F59E FE 0C FD        ...   ldx 0cfd
14982 F5A1 3C              <     pshx
14983 F5A2 FC 0C FB        ...   ldd 0cfb
14984 F5A5 BD F3 1F        ...   jsr f31f             ;jump60
14985 F5A8 38              8     pulx
14986 F5A9 CC B3 80        ...   ldd #b380
14987 F5AC BD F1 E8        ...   jsr f1e8             ;jump57
14988 F5AF FC 0C E3        ...   ldd 0ce3
14989 F5B2 BD F2 4D        ..M   jsr f24d             ;jump58
14990 F5B5 FE 0D 01        ...   ldx 0d01
14991 F5B8 3C              <     pshx
14992 F5B9 FC 0C FF        ...   ldd 0cff
14993 F5BC BD F3 1F        ...   jsr f31f             ;jump60
14994 F5BF 38              8     pulx
14995 F5C0 CC B3 92        ...   ldd #b392
14996 F5C3 BD F1 E8        ...   jsr f1e8             ;jump57
14997 F5C6 FC 0C E5        ...   ldd 0ce5
14998 F5C9 BD F2 4D        ..M   jsr f24d             ;jump58
14999 F5CC FE 0D 05        ...   ldx 0d05
15000 F5CF 3C              <     pshx
15001 F5D0 FC 0D 03        ...   ldd 0d03
15002 F5D3 BD F3 1F        ...   jsr f31f             ;jump60
15003 F5D6 38              8     pulx
15004 F5D7 CC 00 0A        ...   ldd #000a
15005 F5DA BD F1 5B        ..[   jsr f15b             ;jump53
15006 F5DD CC B3 A4        ...   ldd #b3a4
15007 F5E0 BD F1 E8        ...   jsr f1e8             ;jump57
15008 F5E3 CC 00 0A        ...   ldd #000a
15009 F5E6 BD F1 5B        ..[   jsr f15b             ;jump53
15010 F5E9 CC B3 B3        ...   ldd #b3b3
15011 F5EC BD F1 E8        ...   jsr f1e8             ;jump57
15012 F5EF FC 0C F1        ...   ldd 0cf1
15013 F5F2 BD F2 99        ...   jsr f299             ;jump61
15014 F5F5 CC B3 CA        ...   ldd #b3ca
15015 F5F8 BD F1 E8        ...   jsr f1e8             ;jump57
15016 F5FB F6 0C DC        ...   ldab 0cdc
15017 F5FE 4F              O     clra
15018 F5FF BD F2 0E        ...   jsr f20e             ;jump62
15019 F602 FC 0C E9        ...   ldd 0ce9
15020 F605 BD F2 99        ...   jsr f299             ;jump61
15021 F608 CC B3 DC        ...   ldd #b3dc
15022 F60B BD F1 E8        ...   jsr f1e8             ;jump57
15023 F60E F6 0C DB        ...   ldab 0cdb
15024 F611 4F              O     clra
15025 F612 BD F2 0E        ...   jsr f20e             ;jump62
15026 F615 FC 0C EB        ...   ldd 0ceb
15027 F618 BD F2 99        ...   jsr f299             ;jump61
15028 F61B CC B3 EE        ...   ldd #b3ee
15029 F61E BD F1 E8        ...   jsr f1e8             ;jump57
15030 F621 F6 0C DA        ...   ldab 0cda
15031 F624 4F              O     clra
15032 F625 BD F2 0E        ...   jsr f20e             ;jump62
15033 F628 FC 0C ED        ...   ldd 0ced
15034 F62B BD F2 99        ...   jsr f299             ;jump61
15035 F62E CC B4 00        ...   ldd #b400
15036 F631 BD F1 E8        ...   jsr f1e8             ;jump57
15037 F634 F6 0C D9        ...   ldab 0cd9
15038 F637 4F              O     clra
15039 F638 BD F2 0E        ...   jsr f20e             ;jump62
15040 F63B FC 0C EF        ...   ldd 0cef
15041 F63E BD F2 99        ...   jsr f299             ;jump61
15042 F641 CC 00 0A        ...   ldd #000a
15043 F644 BD F1 5B        ..[   jsr f15b             ;jump53
15044 F647 CC B4 12        ...   ldd #b412
15045 F64A BD F1 E8        ...   jsr f1e8             ;jump57
15046 F64D FC 0D 07        ...   ldd 0d07
15047 F650 BD F2 4D        ..M   jsr f24d             ;jump58
15048 F653 FE 0D 11        ...   ldx 0d11
15049 F656 3C              <     pshx
15050 F657 FC 0D 0F        ...   ldd 0d0f
15051 F65A BD F3 1F        ...   jsr f31f             ;jump60
15052 F65D 38              8     pulx
15053 F65E CC B4 24        ..$   ldd #b424
15054 F661 BD F1 E8        ...   jsr f1e8             ;jump57
15055 F664 FC 0D 09        ...   ldd 0d09
15056 F667 BD F2 4D        ..M   jsr f24d             ;jump58
15057 F66A FE 0D 15        ...   ldx 0d15
15058 F66D 3C              <     pshx
15059 F66E FC 0D 13        ...   ldd 0d13
15060 F671 BD F3 1F        ...   jsr f31f             ;jump60
15061 F674 38              8     pulx
15062 F675 CC B4 36        ..6   ldd #b436
15063 F678 BD F1 E8        ...   jsr f1e8             ;jump57
15064 F67B FC 0D 0B        ...   ldd 0d0b
15065 F67E BD F2 4D        ..M   jsr f24d             ;jump58
15066 F681 FE 0D 19        ...   ldx 0d19
15067 F684 3C              <     pshx
15068 F685 FC 0D 17        ...   ldd 0d17
15069 F688 BD F3 1F        ...   jsr f31f             ;jump60
15070 F68B 38              8     pulx
15071 F68C CC B4 48        ..H   ldd #b448
15072 F68F BD F1 E8        ...   jsr f1e8             ;jump57
15073 F692 FC 0D 0D        ...   ldd 0d0d
15074 F695 BD F2 4D        ..M   jsr f24d             ;jump58
15075 F698 FE 0D 1D        ...   ldx 0d1d
15076 F69B 3C              <     pshx
15077 F69C FC 0D 1B        ...   ldd 0d1b
15078 F69F BD F3 1F        ...   jsr f31f             ;jump60
15079 F6A2 38              8     pulx
15080 F6A3 CC 00 0A        ...   ldd #000a
15081 F6A6 BD F1 5B        ..[   jsr f15b             ;jump53
15082 F6A9 CC B4 5A        ..Z   ldd #b45a
15083 F6AC BD F1 E8        ...   jsr f1e8             ;jump57
15084 F6AF CC 00 0A        ...   ldd #000a
15085 F6B2 BD F1 5B        ..[   jsr f15b             ;jump53
15086 F6B5 C6 01           ..    ldab #01
15087 F6B7 F7 00 54        ..T   stab 0054
15088 F6BA F6 00 54        ..T   ldab 0054
15089 F6BD C1 63           .c    cmpb #63
15090 F6BF 22 1B           ".    bhi 1b
15091 F6C1 F6 00 54        ..T   ldab 0054
15092 F6C4 4F              O     clra
15093 F6C5 05              .     asld
15094 F6C6 C3 08 C8        ...   addd #08c8
15095 F6C9 8F              .     xgdx
15096 F6CA EC 00           ..    ldd 00,x
15097 F6CC C4 80           ..    andb #80
15098 F6CE 27 07           '.    beq 07
15099 F6D0 F6 00 54        ..T   ldab 0054
15100 F6D3 4F              O     clra
15101 F6D4 BD F3 C1        ...   jsr f3c1             ;jump63
15102 F6D7 7C 00 54        |.T   inc 0054
15103 F6DA 20 DE            .    bra de
15104 F6DC CC 00 0A        ...   ldd #000a
15105 F6DF BD F1 5B        ..[   jsr f15b             ;jump53
15106 F6E2 F6 00 19        ...   ldab 0019
15107 F6E5 C4 40           .@    andb #40
15108 F6E7 26 07           &.    bne 07
15109 F6E9 FE 0C E7        ...   ldx 0ce7     ;increment the audit number?
15110 F6EC 08              .     inx
15111 F6ED FF 0C E7        ...   stx 0ce7
15112 F6F0 CE 00 1D        ...   ldx #001d
15113 F6F3 1D 00 01        ...   bclr 00,x, #01
15114 F6F6 CC 03 E8        ...   ldd #03e8
15115 F6F9 BD E5 71        ..q   jsr e571             ;msdelay
15116 F6FC C6 03           ..    ldab #03
15117 F6FE F7 10 2B        ..+   stab 102b         ; back to 9600 baud
15118 F701 CE 10 00        ...   ldx #1000
15119 F704 1C 00 08        ...   bset 00,x, #08    ; set back to coin mech
15120 F707 F6 0B C0        ...   ldab 0bc0
15121 F70A C4 02           ..    andb #02
15122 F70C 27 06           '.    beq 06
15123 F70E CC 00 80        ...   ldd #0080
15124 F711 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15125 F714 7F 00 38        ..8   clr 0038
15126 F717 39              9     rts
15127
15128 rti:
15129 F718 3C              <     pshx
15130 F719 F6 0B C0        ...   ldab 0bc0    ; if we have a bill validator
15131 F71C C4 08           ..    andb #08
15132 F71E 27 03           '.    beq 03
15133 F720 BD C3 25        ..%   jsr c325             ;jump64 - go query the bill validator
15134 F723 7C 00 0C        |..   inc 000c
15135 F726 F6 00 0C        ...   ldab 000c
15136 F729 C1 02           ..    cmpb #02
15137 F72B 26 13           &.    bne 13
15138 F72D 7F 00 0C        ...   clr 000c
15139 F730 F6 00 07        ...   ldab 0007
15140 F733 27 03           '.    beq 03
15141 F735 7A 00 07        z..   dec 0007
15142 F738 F6 00 00        ...   ldab 0000
15143 F73B 27 03           '.    beq 03
15144 F73D 7A 00 00        z..   dec 0000
15145 F740 7C 00 0B        |..   inc 000b
15146 F743 F6 00 0B        ...   ldab 000b
15147 F746 C1 08           ..    cmpb #08
15148 F748 26 37           &7    bne 37      ; to f781
15149 F74A 7F 00 0B        ...   clr 000b
15150 F74D FC 00 3B        ..;   ldd 003b
15151 F750 27 07           '.    beq 07
15152 F752 FE 00 3B        ..;   ldx 003b
15153 F755 09              .     dex
15154 F756 FF 00 3B        ..;   stx 003b
15155 F759 CC 00 2C        ..,   ldd #002c
15156 F75C 30              0     tsx
15157 F75D ED 00           ..    std 00,x
15158 F75F 30              0     tsx
15159 F760 EC 00           ..    ldd 00,x
15160 F762 37              7     pshb
15161 F763 36              6     psha
15162 F764 CC 00 3A        ..:   ldd #003a
15163 F767 30              0     tsx
15164 F768 A3 00           ..    subd 00,x
15165 F76A 31              1     ins
15166 F76B 31              1     ins
15167 F76C 25 13           %.    bcs 13
15168 F76E 30              0     tsx
15169 F76F EE 00           ..    ldx 00,x
15170 F771 E6 00           ..    ldab 00,x
15171 F773 27 07           '.    beq 07
15172 F775 30              0     tsx
15173 F776 EE 00           ..    ldx 00,x
15174 F778 6A 00           j.    dec 00,x
15175 F77A E6 00           ..    ldab 00,x
15176 F77C 38              8     pulx
15177 F77D 08              .     inx
15178 F77E 3C              <     pshx
15179 F77F 20 DE            .    bra de             ; to f75f
15180 ;
15181 F781 F6 00 32        ..2   ldab 0032
15182 F784 27 07           '.    beq 07             ; to f78d
15183 F786 F6 00 32        ..2   ldab 0032
15184 F789 C4 02           ..    andb #02
15185 F78B 26 08           &.    bne 08             ; to f795
15186 ;
15187 F78D CE 10 00        ...   ldx #1000          ; chime off
15188 F790 1D 00 10        ..    bclr 00,x, #10
15189 F793 20 0D            .    bra 0d             ; to f7a2
15190 ;
15191 F795 F6 00 32        ..2   ldab 0032
15192 F798 C4 01           ..    andb #01
15193 F79A 26 06           &.    bne 06             ; to f7a2
15194 F79C CE 10 00        ...   ldx #1000          ; chime on
15195 F79F 1C 00 10        ..    bset 00,x, #10
15196 ;
15197 F7A2 7C 00 4C        |.L   inc 004c
15198 F7A5 F6 00 4C        ..L   ldab 004c
15199 F7A8 C1 4B           .K    cmpb #4b
15200 F7AA 26 13           &.    bne 13    ; to f7bf
15201 F7AC 7F 00 4C        ..L   clr 004c
15202 F7AF F6 00 4F        ..O   ldab 004f
15203 F7B2 27 03           '.    beq 03
15204 F7B4 7A 00 4F        z.O   dec 004f
15205 ;
15206 F7B7 F6 00 25        ..%   ldab 0025
15207 F7BA 27 03           '.    beq 03
15208 F7BC 7A 00 25        z.%   dec 0025
15209 ;
15210 F7BF F6 00 31        ..1   ldab 0031
15211 F7C2 26 03           &.    bne 03
15212 F7C4 BD FE 69        ..i   jsr fe69             ;reset
15213 ;
15214 F7C7 F6 00 7F        ...   ldab 007f
15215 F7CA 27 03           '.    beq 03
15216 F7CC BD FE 69        ..i   jsr fe69             ;reset
15217 ;
15218 F7CF C6 40           .@    ldab #40
15219 F7D1 F7 10 25        ..%   stab 1025    ; notify end of RTI period
15220 F7D4 38              8     pulx
15221 F7D5 3B              ;     rti
15222
15223 main:
15224 ;
15225 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
15226 ;
15227 ; clears the bits of U14 flipflop
15228 F7D9 5F              _     clrb         ;0 -> B
15229 F7DA F7 38 00        .8.   stab 3800    ;B -> 3800
15230 ;
15231 F7DD C6 7F           ..    ldab #7f     ;7F -> B
15232 F7DF F7 00 1A        ...   stab 001a    ;B -> 001a
15233 ;
15234 ; set changer outputs all on, row motors off
15235 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
15236 F7E4 F7 30 00        .0.   stab 3000    ;
15237 ;
15238 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15239 F7E7 C6 07           ..    ldab #07     ;7 -> B
15240 F7E9 F7 10 3C        ..<   stab 103c
15241 ;
15242 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15243 F7EC C6 81           ..    ldab #81     ;81 -> B
15244 F7EE F7 10 26        ..&   stab 1026
15245 ;
15246 ; clear ADC register
15247 F7F1 5F              _     clrb         ;0 -> B
15248 F7F2 F7 10 30        ..0   stab 1030
15249 ;
15250 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15251 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B ; 11001000
15252 F7F7 F7 10 00        ...   stab 1000 ; to port A
15253 ;
15254 ; sets PortD directions. XXX: Why is PD2 an output?
15255 F7FA C6 3E           .>    ldab #3e     ;3e -> B 00111110
15256 F7FC F7 10 09        ...   stab 1009 ; port D DDR
15257 ;
15258 ; make PortD pins open-drain, set clock polarity
15259 F7FF C6 12           ..    ldab #12     ;12 -> B
15260 F801 F7 10 28        ..(   stab 1028 ; SPCR 00101000
15261 ;
15262 ; initialize the display
15263 F804 BD BE 69        ..i   jsr be69             ;displayreset
15264 ;
15265 ; initialize the bill validator & more stuff
15266 F807 BD EA 59        ..Y   jsr ea59             ;jump65
15267 ;
15268 F80A CC 00 64        ..d   ldd #0064    ; 100-unit delay
15269 F80D BD E5 71        ..q   jsr e571             ;msdelay
15270 ; lotsa text
15271 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
15272 F813 BD C0 BA        ...   jsr c0ba             ;display:
15273 F816 CC 01 F4        ...   ldd #01f4    ; 500-unit delay
15274 F819 BD E5 71        ..q   jsr e571             ;msdelay
15275 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
15276 F81F BD C0 BA        ...   jsr c0ba             ;display:
15277 F822 CC 01 F4        ...   ldd #01f4
15278 F825 BD E5 71        ..q   jsr e571             ;msdelay
15279 F828 CC B2 05        ...   ldd #b205    "   1993   "
15280 F82B BD C0 BA        ...   jsr c0ba             ;display:
15281 F82E CC 01 F4        ...   ldd #01f4
15282 F831 BD E5 71        ..q   jsr e571             ;msdelay
15283 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
15284 F837 BD C0 BA        ...   jsr c0ba             ;display:
15285 F83A CC 00 0A        ...   ldd #000a
15286 F83D BD E5 71        ..q   jsr e571             ;msdelay
15287 ;
15288 ;
15289 F840 7F 00 7F        ...   clr 007f
15290 F843 7F 00 21        ..!   clr 0021
15291 F846 7F 00 1F        ...   clr 001f
15292 F849 7F 00 1D        ...   clr 001d
15293 F84C 7F 00 1B        ...   clr 001b
15294 F84F 7F 00 19        ...   clr 0019
15295 ;
15296 F852 F6 0B C0        ...   ldab 0bc0
15297 F855 C4 01           ..    andb #01
15298 F857 27 08           '.    beq 08           ; to f861
15299 F859 CE 0B C1        ...   ldx #0bc1
15300 F85C 1C 00 01        ...   bset 00,x, #01   ; set changer powerup fail
15301 F85F 20 06            .    bra 06           ; to f867
15302 F861 CE 0B C1        ...   ldx #0bc1
15303 F864 1D 00 01        ...   bclr 00,x, #01   ; clear changer powerup fail
15304 ;
15305 F867 F6 0B C0        ...   ldab 0bc0
15306 F86A C4 04           ..    andb #04
15307 F86C 27 08           '.    beq 08           ; to f876
15308 F86E CE 0B C1        ...   ldx #0bc1
15309 F871 1C 00 02        ...   bset 00,x, #02   ; set card powerup fail
15310 F874 20 06            .    bra 06           ; to f87c
15311 F876 CE 0B C1        ...   ldx #0bc1
15312 F879 1D 00 02        ..    bclr 00,x, #02   ; clear card powerup fail
15313 F87C CE 0B C1        ...   ldx #0bc1
15314 F87F 1D 00 04        ..    bclr 00,x, #04    ; clear link powerup fail
15315 F882 F6 0B C0        ...   ldab 0bc0
15316 F885 C4 02           ..    andb #02
15317 F887 27 2D           '-    beq 2d        ; to f8b6
15318 F889 C6 3C           .<    ldab #3c
15319 F88B F7 00 31        ..1   stab 0031
15320 F88E 0E              .     cli
15321 F88F CC 00 FF        ...   ldd #00ff
15322 F892 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15323 F895 5F              _     clrb
15324 F896 4F              O     clra
15325 F897 FD 00 40        ..@   std 0040
15326 F89A C6 10           ..    ldab #10
15327 F89C F7 10 2C        ..,   stab 102c    ; set 9N1
15328 F89F C6 2E           ..    ldab #2e
15329 F8A1 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15330 F8A4 C6 03           ..    ldab #03
15331 F8A6 F7 10 2B        ..+   stab 102b    ; set 9600 baud
15332 F8A9 C6 46           .F    ldab #46     ; 70 01000110
15333 F8AB F7 00 2F        ../   stab 002f
15334 F8AE CC 07 D0        ...   ldd #07d0
15335 F8B1 BD E5 71        ..q   jsr e571             ;msdelay
15336 F8B4 20 2B            +    bra 2b       ; to f8e1
15337 F8B6 BD D0 94        ...   jsr d094             ;jump66 - init variables
15338 F8B9 C6 27           .'    ldab #27
15339 F8BB F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15340 F8BE C6 07           ..    ldab #07
15341 F8C0 F7 10 2B        ..+   stab 102b    ; set 600 baud
15342 ; reset the changer
15343 F8C3 CE 00 1A        ...   ldx #001a
15344 F8C6 1C 00 04        ..    bset 00,x, #04
15345 F8C9 F6 00 1A        ...   ldab 001a
15346 F8CC F7 30 00        .0.   stab 3000    ; reset the changer
15347 F8CF CC 07 D0        ...   ldd #07d0
15348 F8D2 BD E5 71        ..q   jsr e571             ;msdelay
15349 F8D5 CE 00 1A        ...   ldx #001a
15350 F8D8 1D 00 04        ..    bclr 00,x, #04
15351 F8DB F6 00 1A        ...   ldab 001a
15352 F8DE F7 30 00        .0.   stab 3000    ; pull reset line back
15353 ;
15354 F8E1 7F 0E 6A        ..j   clr 0e6a
15355 F8E4 BD D4 79        ..y   jsr d479             ;jump67
15356 F8E7 BD E8 9A        ...   jsr e89a             ;jump68
15357 F8EA 7F 00 06        ...   clr 0006
15358 F8ED CE 00 1D        ...   ldx #001d
15359 F8F0 1C 00 10        ..    bset 00,x, #10
15360 F8F3 CC 05 DC        ...   ldd #05dc
15361 F8F6 BD E5 71        ..q   jsr e571             ;msdelay
15362 F8F9 C6 1E           ..    ldab #1e
15363 F8FB F7 00 35        ..5   stab 0035
15364 F8FE 0E              .     cli
15365 ;
15366 ; begin of main loop
15367 goto85:
15368 ; test power lines
15369 F8FF BD E6 1B        ...   jsr e61b             ;jump4 set 0031 to 10
15370 F902 BD D1 05        ...   jsr d105             ;motors_off
15371 F905 F6 10 0A        ...   ldab 100a
15372 F908 C4 08           ..    andb #08     ; 24VUN line too low
15373 F90A 27 46           'F    beq 46       ; to f952
15374 F90C F6 10 0A        ...   ldab 100a
15375 F90F C4 08           ..    andb #08
15376 F911 27 11           '.    beq 11       ; to f924
15377 F913 CE 00 1A        ...   ldx #001a
15378 F916 1C 00 04        ..    bset 00,x, #04
15379 F919 F6 00 1A        ...   ldab 001a
15380 F91C F7 30 00        .0.   stab 3000    ; changer reset
15381 F91F BD E6 1B        ...   jsr e61b             ;jump4 put #0a => 0031
15382 F922 20 E8            .    bra e8       ; to f90c
15383 ;
15384 F924 BD D0 94        ...   jsr d094             ;jump66 - reset some variables to defaults?
15385 F927 F6 0B C0        ...   ldab 0bc0
15386 F92A C4 01           ..    andb #01
15387 F92C 27 06           '.    beq 06
15388 F92E CE 0B C1        ...   ldx #0bc1
15389 F931 1C 00 01        ..    bset 00,x, #01 ; set changer powerup fail
15390 F934 F6 0B C0        ...   ldab 0bc0
15391 F937 C4 04           ..    andb #04
15392 F939 27 06           '.    beq 06
15393 F93B CE 0B C1        ...   ldx #0bc1
15394 F93E 1C 00 02        ..    bset 00,x, #02 ; set card powerup fail
15395 F941 CE 00 1A        ...   ldx #001a
15396 F944 1D 00 04        ..    bclr 00,x, #04
15397 F947 F6 00 1A        ...   ldab 001a
15398 F94A F7 30 00        .0.   stab 3000   ; clear send & reset lines
15399 F94D C6 1E           ..    ldab #1e
15400 F94F F7 00 35        ..5   stab 0035
15401 ;
15402 ; end of power line test
15403 ;
15404 ;
15405 ; chat to the bill validator if we need to
15406 ;
15407 F952 F6 0B C0        ...   ldab 0bc0
15408 F955 C4 08           ..    andb #08
15409 F957 27 16           '.    beq 16       ; to f96f if no bill validator
15410 F959 CE 00 02        ...   ldx #0002
15411 F95C 3C              <     pshx
15412 F95D CC 10 00        ...   ldd #1000
15413 F960 BD E5 D7        ...   jsr e5d7             ;jump69 - poll bill validator
15414 F963 38              8     pulx
15415 F964 83 00 00        ...   subd #0000
15416 F967 27 06           '.    beq 06
15417 F969 CE 0B C1        ...   ldx #0bc1
15418 F96C 1C 00 08        ..    bset 00,x, #08 ; set bill error bit
15419 ;
15420 F96F F6 0B C1        ...   ldab 0bc1
15421 F972 C4 07           ..    andb #07     ; was there a power failure?
15422 F974 27 0D           '.    beq 0d       ; to f983
15423 F976 F6 00 35        ..5   ldab 0035
15424 F979 26 08           &.    bne 08
15425 F97B CE 00 21        ..!   ldx #0021
15426 F97E 1C 00 20        ..    bset 00,x, #20
15427 F981 20 06           ..    bra 06       ; to f989
15428 ;
15429 ;
15430 F983 CE 00 21        ..!   ldx #0021
15431 F986 1D 00 20        ..    bclr 00,x, #20
15432 F989 BD BB 63         .    jsr bb63     ;jump200 - read the keypad
15433 F98C BD B8 00        ...   jsr b800     ;jump201 - interpret the keys and write to the display
15434 F98F F6 0B C0        ...   ldab 0bc0
15435 F992 C4 01           ..    andb #01
15436 F994 27 0B           '.    beq 0b
15437 F996 FC 00 40        ..@   ldd 0040
15438 F999 F3 00 3E        ..>   addd 003e
15439 F99C 26 03           &.    bne 03
15440 F99E BD D6 F6        ...   jsr d6f6             ;jump106
15441 F9A1 F6 00 12        ...   ldab 0012
15442 F9A4 C4 20           .     andb #20     ; test door switch
15443 F9A6 27 08           '.    beq 08       ; to f9b0
15444 F9A8 F6 00 35        ..5   ldab 0035
15445 F9AB 26 03           &.    bne 03
15446 F9AD 7E FA 79        ~.y   jmp fa79             ;goto83
15447 ;
15448 F9B0 CE 00 1F        ...   ldx #001f
15449 F9B3 1D 00 04        ...   bclr 00,x, #04
15450 F9B6 CE 00 1D        ...   ldx #001d
15451 F9B9 1C 00 10        ...   bset 00,x, #10
15452 F9BC F6 00 1F        ...   ldab 001f
15453 F9BF C4 20           .     andb #20
15454 F9C1 26 03           &.    bne 03
15455 F9C3 7E FA 74        ~.t   jmp fa74             ;goto84 if 001f&#20 is clear
15456 F9C6 F6 0B C0        ...   ldab 0bc0
15457 F9C9 C4 01           ..    andb #01
15458 F9CB 27 08           '.    beq 08
15459 F9CD CE 0B C1        ...   ldx #0bc1
15460 F9D0 1C 00 01        ...   bset 00,x, #01   ; set changer powerup error
15461 F9D3 20 06            .    bra 06
15462 F9D5 CE 0B C1        ...   ldx #0bc1
15463 F9D8 1D 00 01        ...   bclr 00,x, #01   ; unset changer powerup error
15464 F9DB F6 0B C0        ...   ldab 0bc0
15465 F9DE C4 04           ..    andb #04
15466 F9E0 27 08           '.    beq 08
15467 F9E2 CE 0B C1        ...   ldx #0bc1
15468 F9E5 1C 00 02        ...   bset 00,x, #02   ; set card powerup error
15469 F9E8 20 06            .    bra 06
15470 F9EA CE 0B C1        ...   ldx #0bc1
15471 F9ED 1D 00 02        ...   bclr 00,x, #02   ; unset card powerup error
15472 F9F0 CE 0B C1        ...   ldx #0bc1
15473 F9F3 1D 00 04        ...   bclr 00,x, #04   ; unset link powerup error
15474 F9F6 CE 00 1B        ...   ldx #001b
15475 F9F9 1D 00 02        ...   bclr 00,x, #02
15476 F9FC F6 0B C0        ...   ldab 0bc0
15477 F9FF C4 02           ..    andb #02
15478 FA01 27 27           ''    beq 27      ; to fa2a
15479 ;
15480 FA03 C6 3C           .<    ldab #3c    ; 62 00111100
15481 FA05 F7 00 31        ..1   stab 0031
15482 FA08 0E              .     cli
15483 FA09 CC 00 FF        ...   ldd #00ff
15484 FA0C BD C7 E7        ...   jsr c7e7             ;jump37 - send #ff to coin mech
15485 FA0F 5F              _     clrb
15486 FA10 4F              O     clra
15487 FA11 FD 00 40        ..@   std 0040
15488 FA14 C6 10           ..    ldab #10
15489 FA16 F7 10 2C        ..,   stab 102c    ; set 9N1
15490 FA19 C6 2E           ..    ldab #2e
15491 FA1B F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15492 FA1E C6 03           ..    ldab #03
15493 FA20 F7 10 2B        ..+   stab 102b    ; 9600 baud
15494 FA23 C6 46           .F    ldab #46     ; 70  01000110
15495 FA25 F7 00 2F        ../   stab 002f
15496 FA28 20 31            1    bra 31       ; to  fa5b
15497 ;
15498 FA2A CE 00 21        ..!   ldx #0021
15499 FA2D 1D 00 40        ...   bclr 00,x, #40
15500 FA30 BD D0 94        ...   jsr d094             ;jump66 - init variables
15501 FA33 C6 27           .'    ldab #27
15502 FA35 F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15503 FA38 C6 07           ..    ldab #07
15504 FA3A F7 10 2B        ..+   stab 102b     ; 600 baud
15505 FA3D CE 00 1A        ...   ldx #001a
15506 FA40 1C 00 04        ...   bset 00,x, #04
15507 FA43 F6 00 1A        ...   ldab 001a
15508 FA46 F7 30 00        .0.   stab 3000    ; changer reset line high
15509 FA49 CC 00 32        ..2   ldd #0032
15510 FA4C BD E5 71        ..q   jsr e571             ;msdelay
15511 FA4F CE 00 1A        ...   ldx #001a
15512 FA52 1D 00 04        ...   bclr 00,x, #04
15513 FA55 F6 00 1A        ...   ldab 001a
15514 FA58 F7 30 00        .0.   stab 3000    ; changer reset line low
15515 ;
15516 FA5B BD D4 79        ..y   jsr d479             ;jump67 - query all motors?
15517 FA5E BD E8 9A        ...   jsr e89a             ;jump68
15518 FA61 BD BE 69        ..i   jsr be69             ;displayreset
15519 FA64 7F 00 06        ...   clr 0006
15520 FA67 CE 00 1F        ...   ldx #001f
15521 FA6A 1D 00 20        ..    bclr 00,x, #20
15522 FA6D C6 1E            .    ldab #1e
15523 FA6F F7 00 35        ...5  stab 0035
15524 FA72 20 03            .    bra 03
15525 goto84:
15526 FA74 BD DE E7        ...   jsr dee7             ;jump116
15527 FA77 20 66            f    bra 66
15528 goto83:
15529 FA79 F6 00 12        ...   ldab 0012
15530 FA7C C4 20           .     andb #20
15531 FA7E 27 5F           '_    beq 5f       ; to fadf - restart loop
15532 FA80 F6 00 1F        ...   ldab 001f
15533 FA83 C4 20           .     andb #20
15534 FA85 26 03           &.    bne 03
15535 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15536 FA8A CE 00 1F        ...   ldx #001f
15537 FA8D 1C 00           ..    bset 00,x, #20
15538 FA8F F6 00 12        ...   ldab 0012
15539 FA93 C4 01           ..    andb #01
15540 FA95 26 33           &3    bne 33        ; to faca
15541 FA97 F6 00 1D        ...   ldab 001d
15542 FA9A C4 08           ..    andb #08
15543 FA9C 27 2A           '*    beq 2a        ; to fac8, to fad0
15544 FA9E F6 00 1F        ...   ldab 001f
15545 FAA1 C4 04           ..    andb #04
15546 FAA3 26 14           &.    bne 14        ; to fab9
15547 FAA5 CE 00 1F        ...   ldx #001f
15548 FAA8 1C 00 04        ...   bset 00,x, #04
15549 FAAB CE 00 1F        ...   ldx #001f
15550 FAAE 1C 00           ..    bset 00,x, #80
15551 FAB0 CC 02 33        ..    ldd #0233
15552 FAB4 FD 00 3B        ..;   std 003b
15553 FAB7 20 09            .    bra 09       ; to fac2
15554 ;
15555 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12 - beep if key pressed?
15556 FABC CE 00 1F        ...   ldx #001f
15557 FABF 1D 00 04        ...   bclr 00,x, #04
15558 FAC2 CE 00 1D        ...   ldx #001d
15559 FAC5 1D 00 08        ...   bclr 00,x, #08
15560 FAC8 20 06            .    bra 06       ; to fad0
15561 ;
15562 FACA CE 00 1D        ...   ldx #001d
15563 FACD 1C 00 08        ...   bset 00,x, #08
15564 FAD0 F6 00 1F        ...   ldab 001f
15565 FAD3 C4 04           ..    andb #04
15566 FAD5 26 05           &.    bne 05       ; to fadc - service menu
15567 FAD7 BD 81 00        ...   jsr 8100             ;jump72 - preservice menu?
15568 FADA 20 03            .    bra 03
15569 FADC BD 84 A0        ...   jsr 84a0             ;jump73
15570 FADF 7E F8 FF        ~..   jmp f8ff             ;goto85
15571 ; main should never return in theory.
15572
15573
15574 ; error interrupts (see vectors at end)
15575 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15576 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15577 FAE8 CC 07 D0        ...   ldd #07d0
15578 FAEB BD E5 71        ..q   jsr e571             ;msdelay
15579 FAEE 3B              ;     rti
15580 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15581 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15582 FAF5 CC 07 D0        ...   ldd #07d0
15583 FAF8 BD E5 71        ..q   jsr e571             ;msdelay
15584 FAFB 3B              ;     rti
15585 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15586 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15587 FB02 CC 07 D0        ...   ldd #07d0
15588 FB05 BD E5 71        ..q   jsr e571             ;msdelay
15589 FB08 3B              ;     rti
15590 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15591 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15592 FB0F CC 07 D0        ...   ldd #07d0
15593 FB12 BD E5 71        ..q   jsr e571             ;msdelay
15594 FB15 3B              ;     rti
15595 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15596 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15597 FB1C CC 07 D0        ...   ldd #07d0
15598 FB1F BD E5 71        ..q   jsr e571             ;msdelay
15599 FB22 3B              ;     rti
15600 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15601 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15602 FB29 CC 07 D0        ...   ldd #07d0
15603 FB2C BD E5 71        ..q   jsr e571             ;msdelay
15604 FB2F 3B              ;     rti
15605 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15606 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15607 FB36 CC 07 D0        ...   ldd #07d0
15608 FB39 BD E5 71        ..q   jsr e571             ;msdelay
15609 FB3C 3B              ;     rti
15610 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15611 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15612 FB43 CC 07 D0        ...   ldd #07d0
15613 FB46 BD E5 71        ..q   jsr e571             ;msdelay
15614 FB49 3B              ;     rti
15615 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15616 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15617 FB50 CC 07 D0        ...   ldd #07d0
15618 FB53 BD E5 71        ..q   jsr e571             ;msdelay
15619 FB56 3B              ;     rti
15620 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15621 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15622 FB5D CC 07 D0        ...   ldd #07d0
15623 FB60 BD E5 71        ..q   jsr e571             ;msdelay
15624 FB63 3B              ;     rti
15625 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15626 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15627 FB6A CC 07 D0        ...   ldd #07d0
15628 FB6D BD E5 71        ..q   jsr e571             ;msdelay
15629 FB70 3B              ;     rti
15630 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15631 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15632 FB77 CC 07 D0        ...   ldd #07d0
15633 FB7A BD E5 71        ..q   jsr e571             ;msdelay
15634 FB7D 3B              ;     rti
15635 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15636 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15637 FB84 CC 07 D0        ...   ldd #07d0
15638 FB87 BD E5 71        ..q   jsr e571             ;msdelay
15639 FB8A 3B              ;     rti
15640 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15641 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15642 FB91 CC 07 D0        ...   ldd #07d0
15643 FB94 BD E5 71        ..q   jsr e571             ;msdelay
15644 FB97 3B              ;     rti
15645 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15646 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15647 FB9E CC 07 D0        ...   ldd #07d0
15648 FBA1 BD E5 71        ..q   jsr e571             ;msdelay
15649 FBA4 3B              ;     rti
15650 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15651 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15652 FBAB CC 07 D0        ...   ldd #07d0
15653 FBAE BD E5 71        ..q   jsr e571             ;msdelay
15654 FBB1 3B              ;     rti
15655 FBB2 BD FE 69        ..i   jsr fe69             ;reset
15656 FBB5 3B              ;     rti
15657 FBB6 BD FE 69        ..i   jsr fe69             ;reset
15658 FBB9 3B              ;     rti
15659
15660 jump38:
15661 ; passed a u16 on the stack, i, and a u16 in D, j
15662 ; i *think* it multiplies i*j and returns it in D.
15663 ; but the assembly seems to have several off-by-one errors
15664 FBBA 3C              <     pshx
15665 FBBB 37              7     pshb
15666 FBBC 30              0     tsx
15667 FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
15668 FBBF 3D              =     mul         ; A*B => D
15669 FBC0 A6 00           ..    ldaa 00,x
15670 FBC2 37              7     pshb
15671 FBC3 E6 05           ..    ldab 05,x   ; upper byte of return address??
15672 FBC5 3D              =     mul
15673 FBC6 32              2     pula
15674 FBC7 1B              .     aba         ; a now contains ad+bc
15675 FBC8 33              3     pulb
15676 FBC9 36              6     psha
15677 FBCA A6 06           ..    ldaa 06,x
15678 FBCC 3D              =     mul
15679 FBCD 37              7     pshb
15680 FBCE AB 00           ..    adda 00,x
15681 FBD0 36              6     psha
15682 FBD1 EC 03           ..    ldd 03,x    ; move saved value of X
15683 FBD3 ED 05           ..    std 05,x    ; into the return address???
15684 FBD5 38              8     pulx
15685 FBD6 8F              .     xgdx
15686 FBD7 83 00 00        ...   subd #0000
15687 FBDA 31              1     ins
15688 FBDB 38              8     pulx
15689 FBDC 31              1     ins
15690 FBDD 31              1     ins
15691 FBDE 39              9     rts
15692
15693 jump46:
15694 FBDF BD FB E8        ...   jsr fbe8             ;jump86
15695 FBE2 BD FC 25        ..%   jsr fc25             ;jump85
15696 FBE5 7E FC 04        ~..   jmp fc04             ;goto87
15697
15698 jump86:
15699 FBE8 3C              <     pshx
15700 FBE9 8F              .     xgdx
15701 FBEA EC 02           ..    ldd 02,x
15702 FBEC 37              7     pshb
15703 FBED 36              6     psha
15704 FBEE EC 00           ..    ldd 00,x
15705 FBF0 37              7     pshb
15706 FBF1 36              6     psha
15707 FBF2 34              4     des
15708 FBF3 34              4     des
15709 FBF4 34              4     des
15710 FBF5 34              4     des
15711 FBF6 3C              <     pshx
15712 FBF7 30              0     tsx
15713 FBF8 EC 12           ..    ldd 12,x
15714 FBFA ED 04           ..    std 04,x
15715 FBFC EC 0C           ..    ldd 0c,x
15716 FBFE ED 02           ..    std 02,x
15717 FC00 EC 10           ..    ldd 10,x
15718 FC02 38              8     pulx
15719 FC03 39              9     rts
15720
15721 goto87:
15722 FC04 ED 00           ..    std 00,x
15723 FC06 3C              <     pshx
15724 FC07 30              0     tsx
15725 FC08 EC 08           ..    ldd 08,x
15726 FC0A ED 0A           ..    std 0a,x
15727 FC0C EC 02           ..    ldd 02,x
15728 FC0E ED 0C           ..    std 0c,x
15729 FC10 38              8     pulx
15730 FC11 ED 02           ..    std 02,x
15731 FC13 EC 00           ..    ldd 00,x
15732 FC15 26 06           &.    bne 06
15733 FC17 6D 02           m.    tst 02,x
15734 FC19 26 02           &.    bne 02
15735 FC1B 6D 03           m.    tst 03,x
15736 FC1D 31              1     ins
15737 FC1E 31              1     ins
15738 FC1F 38              8     pulx
15739 FC20 31              1     ins
15740 FC21 31              1     ins
15741 FC22 31              1     ins
15742 FC23 31              1     ins
15743 FC24 39              9     rts
15744
15745 jump85:
15746 ; long addition function?
15747 FC25 3C              <     pshx
15748 FC26 30              0     tsx
15749 FC27 E3 06           ..    addd 06,x
15750 FC29 37              7     pshb
15751 FC2A 36              6     psha
15752 FC2B EC 02           ..    ldd 02,x
15753 FC2D ED 06           ..    std 06,x
15754 FC2F EC 04           ..    ldd 04,x
15755 FC31 E3 08           ..    addd 08,x
15756 FC33 ED 08           ..    std 08,x
15757 FC35 32              2     pula
15758 FC36 33              3     pulb
15759 FC37 C9 00           ..    adcb #00
15760 FC39 89 00           ..    adca #00
15761 FC3B 83 00 00        ...   subd #0000
15762 FC3E 26 06           &.    bne 06
15763 FC40 6D 08           m.    tst 08,x
15764 FC42 26 02           &.    bne 02
15765 FC44 6D 09           m.    tst 09,x
15766 FC46 38              8     pulx
15767 FC47 31              1     ins
15768 FC48 31              1     ins
15769 FC49 31              1     ins
15770 FC4A 31              1     ins
15771 FC4B 39              9     rts
15772
15773
15774
15775 ; bigdivide: and bigmodulus: are a division function and a remainder function
15776 ; for stupidly huge numbers.
15777 ;
15778 ;
15779 ; the number in D is prepended to the number at the top of the stack
15780 ; eg, 0x0f in D and 0x4240 on stack => 0x0f4240 = 1000000
15781 ;
15782 bigdivide:
15783 FC4C 3C              <     pshx
15784 FC4D 3C              <     pshx
15785 FC4E 37              7     pshb
15786 FC4F 36              6     psha
15787 FC50 3C              <     pshx
15788 FC51 3C              <     pshx
15789 FC52 3C              <     pshx
15790 FC53 18 3C           .<    pshy
15791 FC55 30              0     tsx
15792 FC56 4F              O     clra
15793 FC57 A7 04           ..    staa 04,x
15794 FC59 7E FC 6D        ~.m   jmp fc6d             ;goto88
15795
15796 bigmodulus:
15797 FC5C 3C              <     pshx
15798 FC5D 3C              <     pshx
15799 FC5E 37              7     pshb
15800 FC5F 36              6     psha
15801 FC60 3C              <     pshx
15802 FC61 3C              <     pshx
15803 FC62 3C              <     pshx
15804 FC63 18 3C           .<    pshy
15805 FC65 30              0     tsx
15806 FC66 86 01           ..    ldaa #01
15807 FC68 A7 04           ..    staa 04,x
15808 FC6A 7E FC 6D        ~.m   jmp fc6d             ;goto88
15809 ;
15810 goto88:
15811 FC6D 1A EE 0E        ...   ldy 0e,x
15812 FC70 EC 08           ..    ldd 08,x
15813 FC72 ED 0E           ..    std 0e,x
15814 FC74 EC 14           ..    ldd 14,x
15815 FC76 ED 0C           ..    std 0c,x
15816 FC78 EC 12           ..    ldd 12,x
15817 FC7A ED 0A           ..    std 0a,x
15818 FC7C 1A EF 12        ...   sty 12,x
15819 FC7F 4F              O     clra
15820 FC80 5F              _     clrb
15821 FC81 ED 08           ..    std 08,x
15822 FC83 ED 06           ..    std 06,x
15823 FC85 EC 0A           ..    ldd 0a,x
15824 FC87 1A A3 0E        ...   cmpd 0e,x
15825 FC8A 22 23           "#    bhi 23       ; to fcaf
15826 FC8C 27 15           '.    beq 15       ; to fca3
15827 ;
15828 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15829 FC92 CC 00 00        ...   ldd #0000
15830 FC95 ED 14           ..    std 14,x
15831 FC97 7E FE 04        ~..   jmp fe04             ;goto89 - return
15832 FC9A EC 0C           ..    ldd 0c,x
15833 FC9C ED 14           ..    std 14,x
15834 FC9E EC 0A           ..    ldd 0a,x
15835 FCA0 7E FD E3        ~..   jmp fde3             ;goto90
15836 ;
15837 FCA3 83 00 00        ...   subd #0000
15838 FCA6 27 12           '.    beq 12       ; to fcba
15839 FCA8 EC 0C           ..    ldd 0c,x
15840 FCAA 1A A3 10        ...   cmpd 10,x
15841 FCAD 25 DF           %.    bcs df       ; to fc8e
15842 ;
15843 FCAF 6D 0E           m.    tst 0e,x
15844 FCB1 26 70           &p    bne 70       ; to fd23
15845 FCB3 6D 0F           m.    tst 0f,x
15846 FCB5 27 1A           '.    beq 1a       ; to fcd1
15847 FCB7 7E FD A4        ~..   jmp fda4             ;goto91
15848 ;
15849 FCBA 3C              <     pshx
15850 FCBB 3C              <     pshx
15851 FCBC 18 38           .8    puly
15852 FCBE EC 0C           ..    ldd 0c,x
15853 FCC0 EE 10           ..    ldx 10,x
15854 FCC2 02              .     idiv
15855 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15856 FCC8 8F              .     xgdx
15857 FCC9 38              8     pulx
15858 FCCA ED 14           ..    std 14,x
15859 FCCC 4F              O     clra
15860 FCCD 5F              _     clrb
15861 FCCE 7E FD E3        ~..   jmp fde3             ;goto90
15862 ;
15863 FCD1 3C              <     pshx
15864 FCD2 3C              <     pshx
15865 FCD3 18 38           .8    puly
15866 FCD5 EC 0A           ..    ldd 0a,x
15867 FCD7 EE 10           ..    ldx 10,x
15868 FCD9 3C              <     pshx
15869 FCDA 02              .     idiv
15870 FCDB CD EF 0A        ...   stx 02x,y
15871 FCDE 38              8     pulx
15872 FCDF 3C              <     pshx
15873 FCE0 03              .     fdiv
15874 FCE1 CD EF 0E        ...   stx 02x,y
15875 FCE4 38              8     pulx
15876 FCE5 18 E3 0C        ...   addd 0c,y
15877 FCE8 24 1B           $.    bcc 1b      ; to fd05
15878 ;
15879 FCEA 18 ED 0C        ...   std 0c,y
15880 FCED 4F              O     clra
15881 FCEE C6 01           ..    ldab #01
15882 FCF0 3C              <     pshx
15883 FCF1 03              .     fdiv
15884 FCF2 8F              .     xgdx
15885 FCF3 18 E3 0E        ...   addd 0e,y
15886 FCF6 24 03           $.    bcc 03
15887 FCF8 18 6C 0A        .l.   inc 0a,y
15888 FCFB 18 ED 0E        ...   std 0e,y
15889 FCFE 8F              .     xgdx
15890 FCFF 38              8     pulx
15891 FD00 18 E3 0C        ...   addd 0c,y
15892 FD03 25 E5           %.    bcs e5      ; to fcea
15893 FD05 02              .     idiv
15894 ;
15895 FD06 8F              .     xgdx
15896 FD07 18 E3 0E        ...   addd 0e,y
15897 FD0A 24 03           $.    bcc 03
15898 FD0C 18 6C 0A        .l.   inc 0a,y
15899 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15900 FD14 8F              .     xgdx
15901 FD15 18 6F 0A        .o.   clr 0a,y
15902 FD18 18 6F 0B        .o.   clr 0b,y
15903 FD1B 38              8     pulx
15904 FD1C ED 14           ..    std 14,x
15905 FD1E EC 0A           ..    ldd 0a,x
15906 FD20 7E FD E3        ~..   jmp fde3             ;goto90
15907 ;
15908 FD23 86 08           ..    ldaa #08     ; for i = 8
15909 FD25 A7 05           ..    staa 05,x    ; do
15910 FD27 69 0D           i.    rol 0d,x
15911 FD29 69 0C           i.    rol 0c,x
15912 FD2B 69 0B           i.    rol 0b,x
15913 FD2D 69 0A           i.    rol 0a,x
15914 FD2F 69 09           i.    rol 09,x
15915 FD31 EC 0B           ..    ldd 0b,x
15916 FD33 A3 10           ..    subd 10,x
15917 FD35 ED 14           ..    std 14,x
15918 FD37 EC 09           ..    ldd 09,x
15919 FD39 E2 0F           ..    sbcb 0f,x
15920 FD3B A2 0E           ..    sbca 0e,x
15921 FD3D 25 06           %.    bcs 06       ; to fd45
15922 FD3F ED 09           ..    std 09,x
15923 FD41 EC 14           ..    ldd 14,x
15924 FD43 ED 0B           ..    std 0b,x
15925 FD45 6A 05           j.    dec 05,x     ; i--
15926 FD47 26 DE           &.    bne de       ; to fd27
15927 ;
15928 FD49 69 0D           i.    rol 0d,x
15929 FD4B 1F 04 01 09     ....  brclr 04,x 01 09  ; to fd58
15930 FD4F EC 0B           ..    ldd 0b,x
15931 FD51 ED 14           ..    std 14,x
15932 FD53 EC 09           ..    ldd 09,x
15933 FD55 7E FD E3        ~..   jmp fde3             ;goto90
15934 ;
15935 FD58 4F              O     clra
15936 FD59 E6 0D           ..    ldab 0d,x
15937 FD5B 53              S     comb
15938 FD5C ED 14           ..    std 14,x
15939 FD5E 5F              _     clrb
15940 FD5F 7E FD E3        ~..   jmp fde3             ;goto90
15941 ;
15942 FD62 86 10           ..    ldaa #10     ; for i = 16
15943 FD64 A7 05           ..    staa 05,x    ; do
15944 FD66 69 0D           i.    rol 0d,x
15945 FD68 69 0C           i.    rol 0c,x
15946 FD6A 69 0B           i.    rol 0b,x
15947 FD6C 69 0A           i.    rol 0a,x
15948 FD6E 69 09           i.    rol 09,x
15949 FD70 69 08           i.    rol 08,x
15950 FD72 EC 0A           ..    ldd 0a,x
15951 FD74 A3 10           ..    subd 10,x
15952 FD76 ED 14           ..    std 14,x
15953 FD78 EC 08           ..    ldd 08,x
15954 FD7A E2 0F           ..    sbcb 0f,x
15955 FD7C 82 00           ..    sbca #00
15956 FD7E 25 06           %.    bcs 06      ; continue
15957 FD80 ED 08           ..    std 08,x
15958 FD82 EC 14           ..    ldd 14,x
15959 FD84 ED 0A           ..    std 0a,x
15960 FD86 6A 05           j.    dec 05,x    ; i--
15961 FD88 26 DC           &.    bne dc      ; to fd66
15962 ;
15963 FD8A 69 0D           i.    rol 0d,x
15964 FD8C 69 0C           i.    rol 0c,x
15965 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15966 FD92 EC 0A           ..    ldd 0a,x
15967 FD94 ED 14           ..    std 14,x
15968 FD96 EC 08           ..    ldd 08,x
15969 FD98 20 49            I    bra 49      ;goto90
15970 FD9A EC 0C           ..    ldd 0c,x
15971 FD9C 43              C     coma
15972 FD9D 53              S     comb
15973 FD9E ED 14           ..    std 14,x
15974 FDA0 4F              O     clra
15975 FDA1 5F              _     clrb
15976 FDA2 20 3F            ?    bra 3f      ;goto90
15977 goto91:
15978 FDA4 2B BC           +.    bmi bc      ; to fd62 if minus
15979 FDA6 86 10           ..    ldaa #10    ; for i = 16
15980 FDA8 A7 05           ..    staa 05,x   ; do
15981 FDAA 69 0D           i     rol 0d,x
15982 FDAC 69 0C           i     rol 0c,x
15983 FDAE 69 0B           i     rol 08,x
15984 FDB0 69 0A           i     rol 0a,x
15985 FDB2 69 07           i     rol 07,x
15986 FDB4 EC 0A           ..    ldd 0a,x
15987 FDB6 A3 10           ..    subd 10,x
15988 FDB8 ED 14           ..    std 14,x
15989 FDBA A6 07           ..    ldaa 07,x
15990 FDBC A2 0F           ..    sbca 0f,x
15991 FDBE 25 06           %.    bcs 06     ;continue
15992 FDC0 A7 07           ..    staa 07,x
15993 FDC2 EC 14           ..    ldd 14,x
15994 FDC4 ED 0A           ..    std 0a,x
15995 FDC6 6A 05           j.    dec 05,x
15996 FDC8 26 E0           &.    bne e0     ;reloop
15997 ;
15998 FDCA 69 0D           i.    rol 0d,x
15999 FDCC 69 0C           i.    rol 0c,x
16000 FDCE 1F 04 01 09     ....  brclr 04,x 01 09 ;to fddb
16001 FDD2 EC 0A           ..    ldd 0a,x
16002 FDD4 ED 14           ..    std 14,x
16003 FDD6 4F              O     clra
16004 FDD7 E6 07           ..    ldab 07,x
16005 FDD9 20 08            .    bra 08     ;goto90
16006 ;
16007 FDDB EC 0C           ..    ldd 0c,x
16008 FDDD 43              C     coma
16009 FDDE 53              S     comb
16010 FDDF ED 14           ..    std 14,x
16011 FDE1 4F              O     clra
16012 FDE2 5F              _     clrb
16013 goto90:
16014 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
16015 FDE7 43              C     coma
16016 FDE8 53              S     comb
16017 FDE9 63 14           c.    com 14,x
16018 FDEB 63 15           c.    com 15,x
16019 FDED 6C 15           l.    inc 15,x
16020 FDEF 26 08           &.    bne 08
16021 FDF1 6C 14           l.    inc 14,x
16022 FDF3 26 04           &.    bne 04
16023 FDF5 5C              \     incb
16024 FDF6 26 01           &.    bne 01
16025 FDF8 4C              L     inca
16026 FDF9 83 00 00        ...   subd #0000
16027 FDFC 26 06           &.    bne 06
16028 FDFE 6D 14           m.    tst 14,x
16029 FE00 26 02           &.    bne 02
16030 FE02 6D 15           m.    tst 15,x
16031 goto89:
16032 FE04 18 38           .8    puly
16033 FE06 38              8     pulx
16034 FE07 31              1     ins
16035 FE08 31              1     ins
16036 FE09 31              1     ins
16037 FE0A 31              1     ins
16038 FE0B 31              1     ins
16039 FE0C 31              1     ins
16040 FE0D 31              1     ins
16041 FE0E 31              1     ins
16042 FE0F 31              1     ins
16043 FE10 31              1     ins
16044 FE11 31              1     ins
16045 FE12 31              1     ins
16046 FE13 31              1     ins
16047 FE14 31              1     ins
16048 FE15 39              9     rts
16049
16050 jump2:
16051 ; passed a structure (in code following the call to jump2) and a number D
16052 ; popular D candidates come from $48, $42, $9, $a, etc...
16053 ; D must be between 0 and len, inclusive.
16054 ; structure {
16055 ;    u16 var1, len;
16056 ;    u16 jmplocs[len+2];
16057 ; }
16058 FE16 38              8     pulx
16059 FE17 A3 00           ..    subd 00,x     ; D -= var1
16060 FE19 2D 05           -.    blt 05        ; if D<0, to fe20, where D=-1
16061 FE1B 1A A3 02        ...   cmpd 02,x     ;
16062 FE1E 2F 03           /.    ble 03        ; if D > len, D=-1, else to fe23
16063 FE20 CC FF FF        ...   ldd #ffff
16064 FE23 3C              <     pshx          ; push return ptr back onto stack
16065 FE24 05              .     asld          ; D *= 2
16066 FE25 30              0     tsx
16067 FE26 E3 00           ..    addd 00,x     ; D += return-ptr
16068 FE28 C3 00 06        ...   addd #0006    ;        + 6
16069 FE2B 8F              .     xgdx
16070 FE2C EC 00           ..    ldd 00,x      ; return ptr = jmplocs[orig D]
16071 FE2E 30              0     tsx
16072 FE2F ED 00           ..    std 00,x
16073 FE31 39              9     rts
16074
16075 jump25:
16076 ; this looks like a switch statement
16077 ; we're passed an array of 4-byte items... this is passed in the code segment
16078 ; we take the return address and start counting until we hit a double zero.
16079 ; hence much of the code following this call in a standard disassembly is garbage
16080 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
16081 FE32 38              8     pulx
16082 FE33 6D 04           m.    tst 04,x
16083 FE35 26 04           &.    bne 04     ; to fe3b if this is not the last one
16084 FE37 6D 05           m.    tst 05,x   ; double check it really is last one.
16085 FE39 27 0A           '.    beq 0a     ; to fe45
16086 FE3B A3 02           ..    subd 02,x  ; subtract lower order bits from D
16087 FE3D 27 06           '.    beq 06     ; to fe45
16088 FE3F 08              .     inx        ; move the array index up one
16089 FE40 08              .     inx
16090 FE41 08              .     inx
16091 FE42 08              .     inx
16092 FE43 20 EE            .    bra ee     ; to fe33
16093 FE45 EE 00           ..    ldx 00,x   ; return to our destination address
16094 FE47 6E 00           n.    jmp 00,x
16095
16096         reset:
16097
16098 ; Enable the Real-time Interrupt (periodic hw interrupt)
16099 FE49 86 40           .@    ldaa #40     ;40 -> A
16100 FE4B B7 10 24        ..$   staa 1024    ;A -> 1024
16101 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
16102 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
16103 FE50 B7 10 39        ..9   staa 1039    ;A -> 1039
16104 ; Set a stack pointer?
16105 FE53 8E 00 EF        ...   lds #00ef
16106 ; Zero out the first 128 bytes of ram.
16107 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
16108 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
16109 FE5C 24 05           $.    bcc fe63     ;        finished
16110 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
16111 FE60 08              .     inx          ;        increment X
16112 FE61 20 F6            .    bra fe59     ;repeat
16113
16114 ; Jump to main procedure
16115 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
16116 FE66 7E FE 6D        ~.m   jmp fe6d     ; goto91
16117
16118 ; Reboot function for when things go astray?
16119 FE69 0F              .     sei          ;inhibit interrupts
16120 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
16121
16122 ; loop forever - called after main is exited.
16123 goto91:
16124 FE6D 20 FE            .    bra fe6d     ;loop forever
16125                                         ;[SAF] - wait for interrupts?
16126
16127 FE6F FF FF FF        ...   stx ffff
16128 FE72 FF FF FF        ...   stx ffff
16129 FE75 FF FF FF        ...   stx ffff
16130 FE78 FF FF FF        ...   stx ffff
16131 FE7B FF FF FF        ...   stx ffff
16132 FE7E FF FF FF        ...   stx ffff
16133 FE81 FF FF FF        ...   stx ffff
16134 FE84 FF FF FF        ...   stx ffff
16135 FE87 FF FF FF        ...   stx ffff
16136 FE8A FF FF FF        ...   stx ffff
16137 FE8D FF FF FF        ...   stx ffff
16138 FE90 FF FF FF        ...   stx ffff
16139 FE93 FF FF FF        ...   stx ffff
16140 FE96 FF FF FF        ...   stx ffff
16141 FE99 FF FF FF        ...   stx ffff
16142 FE9C FF FF FF        ...   stx ffff
16143 FE9F FF FF FF        ...   stx ffff
16144 FEA2 FF FF FF        ...   stx ffff
16145 FEA5 FF FF FF        ...   stx ffff
16146 FEA8 FF FF FF        ...   stx ffff
16147 FEAB FF FF FF        ...   stx ffff
16148 FEAE FF FF FF        ...   stx ffff
16149 FEB1 FF FF FF        ...   stx ffff
16150 FEB4 FF FF FF        ...   stx ffff
16151 FEB7 FF FF FF        ...   stx ffff
16152 FEBA FF FF FF        ...   stx ffff
16153 FEBD FF FF FF        ...   stx ffff
16154 FEC0 FF FF FF        ...   stx ffff
16155 FEC3 FF FF FF        ...   stx ffff
16156 FEC6 FF FF FF        ...   stx ffff
16157 FEC9 FF FF FF        ...   stx ffff
16158 FECC FF FF FF        ...   stx ffff
16159 FECF FF FF FF        ...   stx ffff
16160 FED2 FF FF FF        ...   stx ffff
16161 FED5 FF FF FF        ...   stx ffff
16162 FED8 FF FF FF        ...   stx ffff
16163 FEDB FF FF FF        ...   stx ffff
16164 FEDE FF FF FF        ...   stx ffff
16165 FEE1 FF FF FF        ...   stx ffff
16166 FEE4 FF FF FF        ...   stx ffff
16167 FEE7 FF FF FF        ...   stx ffff
16168 FEEA FF FF FF        ...   stx ffff
16169 FEED FF FF FF        ...   stx ffff
16170 FEF0 FF FF FF        ...   stx ffff
16171 FEF3 FF FF FF        ...   stx ffff
16172 FEF6 FF FF FF        ...   stx ffff
16173 FEF9 FF FF FF        ...   stx ffff
16174 FEFC FF FF FF        ...   stx ffff
16175 FEFF FF FF FF        ...   stx ffff
16176 FF02 FF FF FF        ...   stx ffff
16177 FF05 FF FF FF        ...   stx ffff
16178 FF08 FF FF FF        ...   stx ffff
16179 FF0B FF FF FF        ...   stx ffff
16180 FF0E FF FF FF        ...   stx ffff
16181 FF11 FF FF FF        ...   stx ffff
16182 FF14 FF FF FF        ...   stx ffff
16183 FF17 FF FF FF        ...   stx ffff
16184 FF1A FF FF FF        ...   stx ffff
16185 FF1D FF FF FF        ...   stx ffff
16186 FF20 FF FF FF        ...   stx ffff
16187 FF23 FF FF FF        ...   stx ffff
16188 FF26 FF FF FF        ...   stx ffff
16189 FF29 FF FF FF        ...   stx ffff
16190 FF2C FF FF FF        ...   stx ffff
16191 FF2F FF FF FF        ...   stx ffff
16192 FF32 FF FF FF        ...   stx ffff
16193 FF35 FF FF FF        ...   stx ffff
16194 FF38 FF FF FF        ...   stx ffff
16195 FF3B FF FF FF        ...   stx ffff
16196 FF3E FF FF FF        ...   stx ffff
16197 FF41 FF FF FF        ...   stx ffff
16198 FF44 FF FF FF        ...   stx ffff
16199 FF47 FF FF FF        ...   stx ffff
16200 FF4A FF FF FF        ...   stx ffff
16201 FF4D FF FF FF        ...   stx ffff
16202 FF50 FF FF FF        ...   stx ffff
16203 FF53 FF FF FF        ...   stx ffff
16204 FF56 FF FF FF        ...   stx ffff
16205 FF59 FF FF FF        ...   stx ffff
16206 FF5C FF FF FF        ...   stx ffff
16207 FF5F FF FF FF        ...   stx ffff
16208 FF62 FF FF FF        ...   stx ffff
16209 FF65 FF FF FF        ...   stx ffff
16210 FF68 FF FF FF        ...   stx ffff
16211 FF6B FF FF FF        ...   stx ffff
16212 FF6E FF FF FF        ...   stx ffff
16213 FF71 FF FF FF        ...   stx ffff
16214 FF74 FF FF FF        ...   stx ffff
16215 FF77 FF FF FF        ...   stx ffff
16216 FF7A FF FF FF        ...   stx ffff
16217 FF7D FF FF FF        ...   stx ffff
16218 FF80 FF FF FF        ...   stx ffff
16219 FF83 FF FF FF        ...   stx ffff
16220 FF86 FF FF FF        ...   stx ffff
16221 FF89 FF FF FF        ...   stx ffff
16222 FF8C FF FF FF        ...   stx ffff
16223 FF8F FF FF FF        ...   stx ffff
16224 FF92 FF FF FF        ...   stx ffff
16225 FF95 FF FF FF        ...   stx ffff
16226 FF98 FF FF FF        ...   stx ffff
16227 FF9B FF FF FF        ...   stx ffff
16228 FF9E FF FF FF        ...   stx ffff
16229 FFA1 FF FF FF        ...   stx ffff
16230 FFA4 FF FF FF        ...   stx ffff
16231 FFA7 FF FF FF        ...   stx ffff
16232 FFAA FF FF FF        ...   stx ffff
16233 FFAD FF FF FF        ...   stx ffff
16234 FFB0 FF FF FF        ...   stx ffff
16235 FFB3 FF FF FF        ...   stx ffff
16236 FFB6 FF FF FF        ...   stx ffff
16237 FFB9 FF FF FF        ...   stx ffff
16238 FFBC FF FF FF        ...   stx ffff
16239 FFBF FF FF FF        ...   stx ffff
16240 FFC2 FF FF FF        ...   stx ffff
16241 FFC5 FF FF FF        ...   stx ffff
16242 FFC8 FF FF FF        ...   stx ffff
16243 FFCB FF FF FF        ...   stx ffff
16244 FFCE FF FF FF        ...   stx ffff
16245 FFD1 FF FF FF        ...   stx ffff
16246 FFD4 FF FF
16247
16248 FFD6    ;vectors
16249         .word   c81c    ; SCI serial system (generic)  - goes to sciinterrupt
16250         .word   fae2    ; SPI serial transfer complete - flashes *** ERROR *** for a second
16251         .word   faef    ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16252         .word   fafc    ; Pulse accumulator overflow   - flashes *** ERROR *** for a second
16253         .word   fb09    ; Timer overflow               - flashes *** ERROR *** for a second
16254         .word   fb16    ; Timer input capture 4        - flashes *** ERROR *** for a second
16255         .word   fb23    ; Timer output compare 4       - flashes *** ERROR *** for a second
16256         .word   fb30    ; Timer output compare 3       - flashes *** ERROR *** for a second
16257         .word   fb3d    ; Timer output compare 2       - flashes *** ERROR *** for a second
16258         .word   fb4a    ; Timer output compare 1       - flashes *** ERROR *** for a second
16259         .word   fb57    ; Timer input capture 3        - flashes *** ERROR *** for a second
16260         .word   fb64    ; Timer input capture 2        - flashes *** ERROR *** for a second
16261         .word   fb71    ; Timer input capture 1        - flashes *** ERROR *** for a second
16262         .word   f718    ; RT interrupt                 - does something useful :) (goto rti)
16263         .word   fb7e    ; IRQ pin                      - flashes *** ERROR *** for a second
16264         .word   fb8b    ; XIRQ pin                     - flashes *** ERROR *** for a second
16265         .word   fb98    ; software interrupt           - flashes *** ERROR *** for a second
16266         .word   fba5    ; illegal opcode trap          - flashes *** ERROR *** for a second
16267         .word   fbb2    ; watchdog reset               - reboot
16268         .word   fbb6    ; clock monitor reset          - reboot
16269         .word   fe49    ; reset                        - reboot
16270 \1a