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 ;0011   another reflection of 2000
  12 ;0012   another buffer for 1800 - what change to give?
  13 ;0013   location of decimal point?
  14 ;0014   buffer for 3800 register
  15 ;0015
  16 ;0016   new key state (cf 0029)
  17 ;0017   bits 5-7 used mostly
  18 ;0018
  19 ;0019   error statuses:
  20 ;         bit 0 - over current
  21 ;         bit 1 - home sensor failure
  22 ;         bit 2 - check prices
  23 ;001a   buffer for 3000 register - initialised to 7F
  24 ;001b   bit 3 - denote motor fault?
  25 ;001c   used for loop variables
  26 ;001d
  27 ;001f   display related? bit 2.  bit 4 denotes service mode
  28 ;0020   reflection of 2000
  29 ;0021   lower 3 bits taken from SCI data somewhere
  30 ;       bit 5 denotes machine out of order
  31 ;0023   buffer for 1800
  32 ;0025   timer of some sort? - set to #0a and decremented by RTI
  33 ;0026   used exclusively in SCI interrupt handler
  34 ;0027   price of current item
  35 ;0029   previous key state (cf 0016)
  36 ;002b   machine language. 3 = english. 0,1,2 = german, spanish, french or something
  37 ;002c   inhibits display writes?
  38 ;0032   to do with the beeper (see jump52)
  39 ;0033
  40 ;0035   only ever contains #1e
  41 ;003b   commonly contains $0233
  42 ;003d
  43 ;003e   cash in bill acceptor?
  44 ;003f    word from above
  45 ;0040   cash in european coin mech?
  46 ;0041    word from above
  47 ;0042   current key press
  48 ;0043   current byte being sent out serial port
  49 ;0048   error status
  50 ;004a
  51 ;0052   win-a-snack odds (in ram)
  52 ;0054   0..100
  53 ;0056   last known keypad row 1 state
  54 ;005b   last known keypad row 0 state
  55 ;005a - result of number to string operations (jump55)
  56 ;    005f
  57 ;0067   working space of 0bc0
  58 ;0073
  59 ;0076-0077 word
  60 ;007f
  61 ;00c8
  62 ;0800   motor information array - each is a 16-bit value
  63 ;
  64 ;08c8   array of prices of each slot??
  65 ;0993   custom message?
  66 ;0b90 - 0b99 display buffer (backwards)
  67 ;0b9a - some sort of id? press 89 on the machine
  68 ;0baa
  69 ;0bae
  70 ;0bb5   win-a-snack odds (is this in NVRAM?)
  71 ;0bbd
  72 ;0bd8   related to 0017 and 0021 (only lower 3 bits used)
  73 ;0bd9   also related
  74 ;0bc0   machine peripheral configuration flags
  75 ;         bit0: have dumb mech
  76 ;         bit1: have a changer
  77 ;         bit2: have card reader
  78 ;         bit3: have bill validator
  79 ;         bit4: link master - price holding enabled
  80 ;         bit5: link master - price display enabled
  81 ;         bit6: have $1 changer
  82 ;         bit7: free vend
  83 ;0bc1   error status:  (from jump72)
  84 ;         bit0: changer powerup
  85 ;         bit1: card powerup
  86 ;         bit2: link powerup
  87 ;         bit3: bill error
  88 ;         bit4: coin jam
  89 ;         bit5: bad sensor
  90 ;         bit6: tube error
  91 ;
  92 ; SCI read buffer:
  93 ;
  94 ;0bc2  multiplied by 10^0bc3 and stored into 0baa
  95 ;0bc3  10 is raise to the power of this number shr 4, and multiplied by 0baa
  96 ;0bc4  index of something
  97 ;0bc5  index of something else
  98 ;0bc6  index of another thing
  99 ;0bc7 word number of something
 100 ;0bc8
 101 ;0bc9 word number of something else
 102 ;0bca
 103 ;0bcb word number of another thing
 104 ;0bcc
 105 ;0bcd word number of another else
 106 ;0bce
 107 ;
 108 ;0bc4   array index into 0bc7
 109 ;0bc5
 110 ;0bc6   another array index into 0bc7
 111 ;0bc7 word array
 112 ;
 113 ;0bdd   value of coin mech quarters
 114 ;0bdf   value of coin mech dimes
 115 ;0be1   value of coin mech nickels
 116
 117 ;
 118 ;0bd7   init'd to 0x01
 119 ;0bd8   init'd to 0x04
 120 ;0bd9   init'd to 0x02
 121 ;0bda   init'd to 0x20
 122 ;0bdb   init'd to 0x08
 123 ;0bdc   init'd to 0x10
 124 ;
 125 ;0cbc   serial number (string)
 126 ;0ccc   machine ID (string)
 127 ;0ce7   audit number (word)
 128 ;
 129 ;0cd9   counter of something - reset to 4 on some serial input
 130 ;0cda   counter of something - reset to 4 on some serial input
 131 ;0cdb   also counts something - reset to 4 on some serial input
 132
 133 ;0ce9   value or number of $1 coins
 134 ;0ceb   value or number of 20c coins
 135 ;0ced   value or number of 10c coins
 136 ;0cef   value or number of 5c coins
 137
 138 ;0cdc   number of value of $1 coins
 139 ;0cdb   number or value of 20c coin
 140 ;0cda   number or value of 10c coins
 141 ;0cd9   number or value of 5c coins
 142
 143 ;0dff - 0e04 keypad buffer - most recent in 0e04
 144 ;0e05   array index of the array to follow
 145 ;0e06 - ?? array of digits*10
 146 ;1000
 147 ;1009
 148 ;1016 - timer output compare 1 register
 149 ;1026
 150 ;1028   SPCR (Serial Peripheral Control Register)
 151 ;1030
 152 ;103c
 153
 154
 155
 156 ;0800 - 0x0fff memory bank 2k
 157 ;
 158 ;1800  Internal switches
 159 ;   7 changer INT'
 160 ;   6 Sold out.
 161 ;   5 Door open
 162 ;   4 $0.05
 163 ;   3 $0.10
 164 ;   2 $0.25
 165 ;   1 $1
 166 ;   0 Mode
 167 ;2000  Misc inputs
 168 ;   7 R2 of MAX232
 169 ;   6 Printer DSR
 170 ;   5 Win-a-snack
 171 ;   4 Multi
 172 ;   3 Promotional
 173 ;   2 Force?
 174 ;   1 Language selection
 175 ;   0 Language selection
 176 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
 177 ;2800   home sensors
 178 ;       7  row 9
 179 ;       6  row 8
 180 ;       5  row 7
 181 ;       4  row 6
 182 ;       3  row 4
 183 ;       2  row 3
 184 ;       1  row 2
 185 ;       0  row 1
 186 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
 187 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
 188 ;Motor driver column output enable is PA6
 189 ;Motor driver serial clock is PA5
 190 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
 191 ;is drawing too much current)
 192 ; the changer speaks at 600 baud, where as the coin validator speaks
 193 ; 9600 baud. and printer at 2400.
 194 ;3000   changer outputs
 195 ;       7  motor driver row output enable
 196 ;       6  /$1.00
 197 ;       5  /$.25
 198 ;       4  /$.10
 199 ;       3  /$.05
 200 ;       2  RESET
 201 ;       1  /SEND
 202 ;       0  /ACCEPT
 203 ;3800   misc outputs
 204 ;       7  not used
 205 ;       6  col 9 motor driver
 206 ;       5  col 8 motor driver
 207 ;       4  motor driver serial data
 208 ;       3  display write (clock) enable (active high)
 209 ;       2  keypad strobe
 210 ;       1  note acceptor connector
 211 ;       0  note acceptor connector
 212
 213 ;-------
 214 ; Ports
 215 ;-------
 216
 217 ; PortA - Data: 0x1000, DDR for PA7 & PA3 in 0x1026
 218 ; PA7 display reset (active low)
 219 ; PA6 enables motor column drivers (when low)
 220 ; PA5 clocks snack motor drivers (U16 5890 = serial-input latched source drivers (latch unused))
 221 ; PA4 beepy thang (active high)
 222 ; PA3 high - talking to coin vendie, low - talking to printer. (through PD1)
 223 ; PA2 coin dispenser pin 6 (does what???)
 224 ; PA1 bill validator 2
 225 ; PA0 bill validator 1
 226
 227 ; PortB - not used directly
 228 ; PB7 Address lines 8-15
 229 ; PB6
 230 ; PB5
 231 ; PB4
 232 ; PB3
 233 ; PB2
 234 ; PB1
 235 ; PB0
 236
 237 ; PortC - Data: 0x1003, Latch: 0x1005, DDR: 0x1007
 238 ; PC7 Data Bus 0-7 / Address bus 0-7
 239 ; PC6
 240 ; PC5
 241 ; PC4
 242 ; PC3
 243 ; PC2
 244 ; PC1
 245 ; PC0
 246
 247 ; PortD - Data: 0x1008, DDR: 0x1009
 248 ; PD7 n/c
 249 ; PD6 n/c
 250 ; PD5 keypad row select (output)
 251 ; PD4 SPI - keypad & display clock signal (output)
 252 ; PD3 display data (output)
 253 ; PD2 keypad data (input)
 254 ; PD1 RX of SCI - to coin disp or printer depending on PA3
 255 ; PD0 TX of SCI - to coin disp or printer depending on PA3
 256
 257 ; PortE - Data: 0x100A
 258 ; PE7 <unused>
 259 ; PE6 <unused>
 260 ; PE5 <unused>
 261 ; PE4 <unused>
 262 ; PE3 goes high when 24VUN line is *really* low (like 20V)
 263 ; PE2 remote no-sale switch (active low)
 264 ; PE1 motor overvoltage sense (active high)
 265 ; PE0 motor overcurrent sense (active low)
 266
 267 ; Current status:
 268 ;  JSR mapped out
 269 ;  JMP mapped out
 270
 271 ; TODO:
 272
 273 8000 43              C     coma
 274 8001 20 50            P    bra 50
 275 8003 4F              O     clra
 276 8004 57              W     asrb
 277 8005 45              E     illegal
 278 8006 52              R     illegal
 279 8007 20 43            C    bra 43
 280 8009 4F              O     clra
 281 800A 4D              M     tsta
 282 800B 50              P     negb
 283 800C 41              A     illegal
 284 800D 4E              N     illegal
 285 800E 59              Y     rolb
 286 800F 00              .     test
 287 8010 43              C     coma
 288 8011 4F              O     clra
 289 8012 50              P     negb
 290 8013 59              Y     rolb
 291 8014 52              R     illegal
 292 8015 49              I     rola
 293 8016 47              G     asra
 294 8017 48              H     asla
 295 8018 54              T     lsrb
 296 8019 20 31            1    bra 31
 297 801B 39              9     rts
 298 801C 39              9     rts
 299 801D 33              3     pulb
 300 801E 20 00            .    bra 00
 301 8020 20 20                 bra 20
 302 8022 20 20                 bra 20
 303 8024 20 20                 bra 20
 304 8026 20 20                 bra 20
 305 8028 20 20                 bra 20
 306 802A 20 20                 bra 20
 307 802C 20 20                 bra 20
 308 802E 20 00            .    bra 00
 309 8030 56              V     rorb
 310 8031 45              E     illegal
 311 8032 4E              N     illegal
 312 8033 44              D     lsra
 313 8034 49              I     rola
 314 8035 4E              N     illegal
 315 8036 47              G     asra
 316 8037 20 4D            M    bra 4d
 317 8039 41              A     illegal
 318 803A 43              C     coma
 319 803B 48              H     asla
 320 803C 49              I     rola
 321 803D 4E              N     illegal
 322 803E 45              E     illegal
 323 803F 00              .     test
 324 8040 53              S     comb
 325 8041 4F              O     clra
 326 8042 46              F     rora
 327 8043 54              T     lsrb
 328 8044 57              W     asrb
 329 8045 41              A     illegal
 330 8046 52              R     illegal
 331 8047 45              E     illegal
 332 8048 20 57            W    bra 57
 333 804A 52              R     illegal
 334 804B 4F              O     clra
 335 804C 54              T     lsrb
 336 804D 45              E     illegal
 337 804E 20 00            .    bra 00
 338 8050 42              B     illegal
 339 8051 59              Y     rolb
 340 8052 20 42            B    bra 42
 341 8054 52              R     illegal
 342 8055 45              E     illegal
 343 8056 54              T     lsrb
 344 8057 20 42            B    bra 42
 345 8059 4F              O     clra
 346 805A 52              R     illegal
 347 805B 45              E     illegal
 348 805C 4E              N     illegal
 349 805D 2E 20           .     bgt 20
 350 805F 00              .     test
 351 8060 20 20                 bra 20
 352 8062 20 20                 bra 20
 353 8064 20 20                 bra 20
 354 8066 20 20                 bra 20
 355 8068 20 20                 bra 20
 356 806A 20 20                 bra 20
 357 806C 20 20                 bra 20
 358 806E 20 00            .    bra 00
 359 8070 50              P     negb
 360 8071 52              R     illegal
 361 8072 4F              O     clra
 362 8073 47              G     asra
 363 8074 52              R     illegal
 364 8075 41              A     illegal
 365 8076 4D              M     tsta
 366 8077 20 46            F    bra 46
 367 8079 4F              O     clra
 368 807A 52              R     illegal
 369 807B 20 54            T    bra 54
 370 807D 48              H     asla
 371 807E 45              E     illegal
 372 807F 00              .     test
 373 8080 35              5     txs
 374 8081 30              0     tsx
 375 8082 35              5     txs
 376 8083 20 41            A    bra 41
 377 8085 4E              N     illegal
 378 8086 44              D     lsra
 379 8087 20 35            5    bra 35
 380 8089 39              9     rts
 381 808A 30              0     tsx
 382 808B 30              0     tsx
 383 808C 2E 20           .     bgt 20
 384 808E 20 00            .    bra 00
 385 8090 20 20                 bra 20
 386 8092 20 20                 bra 20
 387 8094 20 20                 bra 20
 388 8096 20 20                 bra 20
 389 8098 20 20                 bra 20
 390 809A 20 20                 bra 20
 391 809C 20 20                 bra 20
 392 809E 20 00            .    bra 00
 393 80A0 50              P     negb
 394 80A1 41              A     illegal
 395 80A2 52              R     illegal
 396 80A3 54              T     lsrb
 397 80A4 20 4E            N    bra 4e
 398 80A6 55              U     illegal
 399 80A7 4D              M     tsta
 400 80A8 42              B     illegal
 401 80A9 45              E     illegal
 402 80AA 52              R     illegal
 403 80AB 3A              :     abx
 404 80AC 20 20                 bra 20
 405 80AE 20 00            .    bra 00
 406 80B0 39              9     rts
 407 80B1 33              3     pulb
 408 80B2 37              7     pshb
 409 80B3 2D 33           -3    blt 33
 410 80B5 30              0     tsx
 411 80B6 30              0     tsx
 412 80B7 30              0     tsx
 413 80B8 31              1     ins
 414 80B9 20 56            V    bra 56
 415 80BB 45              E     illegal
 416 80BC 52              R     illegal
 417 80BD 20 35            5    bra 35
 418 80BF 00              .     test
 419 80C0 43              C     coma
 420 80C1 48              H     asla
 421 80C2 45              E     illegal
 422 80C3 43              C     coma
 423 80C4 4B              K     illegal
 424 80C5 53              S     comb
 425 80C6 55              U     illegal
 426 80C7 4D              M     tsta
 427 80C8 20 45            E    bra 45
 428 80CA 4E              N     illegal
 429 80CB 44              D     lsra
 430 80CC 3A              :     abx
 431 80CD 30              0     tsx
 432 80CE 30              0     tsx
 433 80CF 00              .     test
 434 80D0 20 20                 bra 20
 435 80D2 20 20                 bra 20
 436 80D4 20 20                 bra 20
 437 80D6 20 20                 bra 20
 438 80D8 20 20                 bra 20
 439 80DA 20 20                 bra 20
 440 80DC 20 20                 bra 20
 441 80DE 20 00            .    bra 00
 442 80E0 20 20                 bra 20
 443 80E2 20 20                 bra 20
 444 80E4 20 20                 bra 20
 445 80E6 20 20                 bra 20
 446 80E8 20 20                 bra 20
 447 80EA 20 20                 bra 20
 448 80EC 20 20                 bra 20
 449 80EE 20 00            .    bra 00
 450 80F0 20 20                 bra 20
 451 80F2 20 20                 bra 20
 452 80F4 20 20                 bra 20
 453 80F6 20 20                 bra 20
 454 80F8 00              .     test
 455 80F9 20 0C            .    bra 0c
 456 80FB 93 73 00        .s.   subd 73
 457 80FE 01              .     nop
 458 80FF 05              .     asld
 459
 460 jump72:
 461 ; initial menu when door opens?
 462 8100 F6 00 1D        ...   ldab 001d
 463 8103 C4 10           ..    andb #10
 464 8105 27 3D           '=    beq 3d       ; to 8144
 465 8107 BD D6 52        ..R   jsr d652             ;jump5
 466 810A CE 00 1D        ...   ldx #001d
 467 810D 1D 00 10        ...   bclr 00,x, #10
 468 8110 CE 00 1D        ...   ldx #001d
 469 8113 1C 00 80        ..    bset 00,x, #80
 470 8116 7F 00 42        ..    clr 0042
 471 8119 7F 00 60        ..`   clr 0060
 472 811C 7F 00 48        ..H   clr 0048
 473 811F 7F 00 38        ..8   clr 0038
 474 8122 F6 0B A8        ...   ldab 0ba8
 475 8125 27 08           '.    beq 08
 476 8127 CE 0B A9        ...   ldx #0ba9
 477 812A 1C 00 02        ..    bset 00,x, #02
 478 812D 20 06            .    bra 06
 479 812F CE 0B A9        ...   ldx #0ba9
 480 8132 1D 00 02        ...   bclr 00,x, #02
 481 8135 7F 0E 00        ...   clr 0e00
 482 8138 7F 0E 01        ...   clr 0e01
 483 813B 7F 0E 02        ...   clr 0e02
 484 813E 7F 0E 03        ...   clr 0e03
 485 8141 7F 0E 04        ...   clr 0e04
 486 ;
 487 8144 F6 00 42        ..B   ldab 0042
 488 8147 C1 0B           ..    cmpb #0b
 489 8149 26 0F           &.    bne 0f
 490 814B BD AB 89        ...   jsr ab89             ;jump7
 491 814E 7F 00 19        ...   clr 0019
 492 8151 7F 00 60        ..`   clr 0060
 493 8154 7F 00 42        ..B   clr 0042
 494 8157 BD E6 1B        ...   jsr e61b             ;jump4
 495 815A F6 0B A8        ...   ldab 0ba8
 496 815D 26 03           &.    bne 03
 497 815F 7E 81 EF        ~..   jmp 81ef             ;goto1
 498 8162 F6 00 60        ..`   ldab 0060
 499 8165 C1 04           ..    cmpb #04
 500 8167 24 28           $(    bcc 28
 501 8169 F6 00 42        ..B   ldab 0042
 502 816C 27 21           '!    beq 21
 503 816E F6 00 42        ..B   ldab 0042
 504 8171 C1 0A           ..    cmpb #0a
 505 8173 26 03           &.    bne 03
 506 8175 7F 00 42        ..B   clr 0042
 507 8178 F6 00 42        ..B   ldab 0042
 508 817B CB 30           .0    addb #30
 509 817D 37              7     pshb
 510 817E F6 00 60        ..`   ldab 0060
 511 8181 4F              O     clra
 512 8182 C3 00 62        ..b   addd #0062
 513 8185 8F              .     xgdx
 514 8186 33              3     pulb
 515 8187 E7 00           ..    stab 00,x
 516 8189 7F 00 42        ..B   clr 0042
 517 818C 7C 00 60        |.`   inc 0060
 518 818F 20 5C            \    bra 5c
 519 8191 F6 00 62        ..b   ldab 0062
 520 8194 F1 0B A4        ...   cmpb 0ba4
 521 8197 26 3D           &=    bne 3d
 522 8199 F6 00 63        ..c   ldab 0063
 523 819C F1 0B A5        ...   cmpb 0ba5
 524 819F 26 35           &5    bne 35
 525 81A1 F6 00 64        ..d   ldab 0064
 526 81A4 F1 0B A6        ...   cmpb 0ba6
 527 81A7 26 2D           &-    bne 2d
 528 81A9 F6 00 65        ..e   ldab 0065
 529 81AC F1 0B A7        ...   cmpb 0ba7
 530 81AF 26 25           &%    bne 25
 531 81B1 CE 0B A9        ...   ldx #0ba9
 532 81B4 1D 00 02        ...   bclr 00,x, #02
 533 81B7 CE 00 1F        ...   ldx #001f
 534 81BA 1C 00 04        ..    bset 00,x, #04
 535 81BD CE 00 1F        ...   ldx #001f
 536 81C0 1C 00 80        ...   bset 00,x, #80
 537 81C3 CE 00 1D        ...   ldx #001d
 538 81C5 1C 00 10        ...   bset 00,x, #10
 539 81C9 CC 02 33        ..3   ldd #0233
 540 81CC FD 00 3B        ..;   std 003b
 541 81CF C6 05           ..    ldab #05
 542 81D1 F7 00 38        ..8   stab 0038
 543 81D4 20 17            .    bra 17
 544 81D6 7F 00 42        ..B   clr 0042
 545 81D9 7F 00 60        ..`   clr 0060
 546 81DC BD BE 69        ..i   jsr be69         ;displayreset
 547 81DF BD BE 4B        ..K   jsr be4b         ;displayblank
 548 81E2 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 549 81E5 BD C0 BA        ...   jsr c0ba         ;display:
 550 81E8 C6 0A           ..    ldab #0a
 551 81EA F7 00 38        ..8   stab 0038
 552 81ED 20 03            .    bra 03
 553 goto1:
 554 81EF 7F 00 42        ..B   clr 0042
 555 81F2 F6 00 38        ..8   ldab 0038
 556 81F5 27 03           '.    beq 03
 557 81F7 7E 84 9F        ~..   jmp 849f             ;goto2
 558 81FA BD BE 4B        ..K   jsr be4b             ;displayblank
 559 81FD F6 00 48        ..H   ldab 0048
 560 8200 26 03           &.    bne 03
 561 8202 BD AB A2        ...   jsr aba2             ;jump8
 562 8205 F6 00 48        ..H   ldab 0048
 563 8208 4F              O     clra
 564 8209 BD FE 16        ...   jsr fe16             ;jump2
 565 820C 00 00                 ; hmmm.
 566 820E 00 0D           ....  ; list len-2
 567 8210 84 9F           ..
 568 8212 82 2E           ..
 569 8214 82 50           .P
 570 8216 82 B7           ..
 571 8218 82 D9           ..
 572 821A 83 40           .@
 573 821C 83 62           ..
 574 821E 83 A5           ..
 575 8220 82 C2           ..
 576 8222 83 DF           ..
 577 8224 83 FC           ..
 578 8226 84 19           ..
 579 8228 84 35           .5
 580 822A 84 51           .Q
 581 822C 84 78           .x    ; end of jump2 data
 582 822E F6 00 19        ...   ldab 0019
 583 8231 C4 01           ..    andb #01
 584 8233 27 13           '.    beq 13
 585 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 586 8238 BD C0 BA        ...   jsr c0ba             ;display:
 587 823B C6 0A           ..    ldab #0a
 588 823D F7 00 38        ..8   stab 0038
 589 8240 7F 00 54        ..T   clr 0054
 590 8243 7C 00 48        |.H   inc 0048
 591 8246 20 05            .    bra 05
 592 8248 C6 02           ..    ldab #02
 593 824A F7 00 48        ..H   stab 0048
 594 824D 7E 84 9F        ~..   jmp 849f             ;goto2
 595 8250 F6 00 54        ..T   ldab 0054
 596 8253 4F              O     clra
 597 8254 CE 00 05        ...   ldx #0005
 598 8257 02              .     idiv
 599 8258 5D              ]     tstb
 600 8259 27 4C           'L    beq 4c
 601 825B F6 00 54        ..T   ldab 0054
 602 825E F7 00 06        ...   stab 0006
 603 8261 F6 00 06        ...   ldab 0006
 604 8264 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 605 8267 83 00 00        ...   subd #0000
 606 826A 27 15           '.    beq 15
 607 826C CC 7F FF        ...   ldd #7fff
 608 826F 37              7     pshb
 609 8270 36              6     psha
 610 8271 F6 00 06        ...   ldab 0006
 611 8274 4F              O     clra
 612 8275 05              .     asld
 613 8276 C3 08 00        ...   addd #0800
 614 8279 38              8     pulx
 615 827A 8F              .     xgdx
 616 827B A4 00           ..    anda 00,x
 617 827D E4 01           ..    andb 01,x
 618 827F ED 00           ..    std 00,x
 619 8281 F6 00 54        ..T   ldab 0054
 620 8284 4F              O     clra
 621 8285 05              .     asld
 622 8286 C3 08 00        ...   addd #0800
 623 8289 8F              .     xgdx
 624 828A EC 00           ..    ldd 00,x
 625 828C 84 80           ..    anda #80
 626 828E 27 17           '.    beq 17
 627 8290 F6 00 54        ..T   ldab 0054
 628 8293 4F              O     clra
 629 8294 05              .     asld
 630 8295 C3 08 C8        ...   addd #08c8
 631 8298 8F              .     xgdx
 632 8299 EC 00           ..    ldd 00,x
 633 829B 84 02           ..    anda #02
 634 829D 27 08           '.    beq 08
 635 829F BD 98 A5        ...   jsr 98a5             ;jump11
 636 82A2 C6 0A           ..    ldab #0a
 637 82A4 F7 00 38        ..8   stab 0038
 638 82A7 7C 00 54        |.T   inc 0054
 639 82AA F6 00 54        ..T   ldab 0054
 640 82AD C1 64           .d    cmpb #64
 641 82AF 26 03           &.    bne 03
 642 82B1 7C 00 48        |.H   inc 0048
 643 82B4 7E 84 9F        ~..   jmp 849f             ;goto2
 644 82B7 F6 00 19        ...   ldab 0019
 645 82BA C4 02           ..    andb #02
 646 82BC 27 13           '.    beq 13
 647 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 648 82C1 BD C0 BA        ...   jsr c0ba             ;display:
 649 82C4 C6 0A           ..    ldab #0a
 650 82C6 F7 00 38        ..8   stab 0038
 651 82C9 7F 00 54        ..T   clr 0054
 652 82CC 7C 00 48        |.H   inc 0048
 653 82CF 20 05            .    bra 05
 654 82D1 C6 04           ..    ldab #04
 655 82D3 F7 00 48        ..H   stab 0048
 656 82D6 7E 84 9F        ~..   jmp 849f             ;goto2
 657 82D9 F6 00 54        ..T   ldab 0054
 658 82DC 4F              O     clra
 659 82DD CE 00 05        ...   ldx #0005
 660 82E0 02              .     idiv
 661 82E1 5D              ]     tstb
 662 82E2 27 4C           'L    beq 4c
 663 82E4 F6 00 54        ..T   ldab 0054
 664 82E7 F7 00 06        ...   stab 0006
 665 82EA F6 00 06        ...   ldab 0006
 666 82ED BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 667 82F0 83 00 00        ...   subd #0000
 668 82F3 27 15           '.    beq 15
 669 82F5 CC 7F FF        ...   ldd #7fff
 670 82F8 37              7     pshb
 671 82F9 36              6     psha
 672 82FA F6 00 06        ...   ldab 0006
 673 82FD 4F              O     clra
 674 82FE 05              .     asld
 675 82FF C3 08 00        ...   addd #0800
 676 8302 38              8     pulx
 677 8303 8F              .     xgdx
 678 8304 A4 00           ..    anda 00,x
 679 8306 E4 01           ..    andb 01,x
 680 8308 ED 00           ..    std 00,x
 681 830A F6 00 54        ..T   ldab 0054
 682 830D 4F              O     clra
 683 830E 05              .     asld
 684 830F C3 08 00        ...   addd #0800
 685 8312 8F              .     xgdx
 686 8313 EC 00           ..    ldd 00,x
 687 8315 84 80           ..    anda #80
 688 8317 27 17           '.    beq 17
 689 8319 F6 00 54        ..T   ldab 0054
 690 831C 4F              O     clra
 691 831D 05              .     asld
 692 831E C3 08 C8        ...   addd #08c8
 693 8321 8F              .     xgdx
 694 8322 EC 00           ..    ldd 00,x
 695 8324 84 04           ..    anda #04
 696 8326 27 08           '.    beq 08
 697 8328 BD 98 A5        ...   jsr 98a5             ;jump11
 698 832B C6 0A           ..    ldab #0a
 699 832D F7 00 38        ..8   stab 0038
 700 8330 7C 00 54        |.T   inc 0054
 701 8333 F6 00 54        ..T   ldab 0054
 702 8336 C1 64           .d    cmpb #64
 703 8338 26 03           &.    bne 03
 704 833A 7C 00 48        |.H   inc 0048
 705 833D 7E 84 9F        ~..   jmp 849f             ;goto2
 706 8340 F6 00 19        ...   ldab 0019
 707 8343 C4 04           ..    andb #04
 708 8345 27 13           '.    beq 13
 709 8347 CC B0 08        ...   ldd #b008    ; "CHK PRICES"
 710 834A BD C0 BA        ...   jsr c0ba             ;display:
 711 834D C6 0A           ..    ldab #0a
 712 834F F7 00 38        ..8   stab 0038
 713 8352 7F 00 54        ..T   clr 0054
 714 8355 7C 00 48        |.H   inc 0048
 715 8358 20 05            .    bra 05
 716 835A C6 06           ..    ldab #06
 717 835C F7 00 48        ..H   stab 0048
 718 835F 7E 84 9F        ~..   jmp 849f             ;goto2
 719 8362 F6 00 54        ..T   ldab 0054
 720 8365 4F              O     clra
 721 8366 CE 00 05        ...   ldx #0005
 722 8369 02              .     idiv
 723 836A 5D              ]     tstb
 724 836B 27 28           '(    beq 28
 725 836D F6 00 54        ..T   ldab 0054
 726 8370 F7 00 06        ...   stab 0006
 727 8373 F6 00 06        ...   ldab 0006
 728 8376 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
 729 8379 83 00 00        ...   subd #0000
 730 837C 26 17           &.    bne 17
 731 837E F6 00 54        ..T   ldab 0054
 732 8381 4F              O     clra
 733 8382 05              .     asld
 734 8383 C3 08 C8        ...   addd #08c8
 735 8386 8F              .     xgdx
 736 8387 EC 00           ..    ldd 00,x
 737 8389 84 01           ..    anda #01
 738 838B 27 08           '.    beq 08
 739 838D BD 98 A5        ...   jsr 98a5             ;jump11
 740 8390 C6 0A           ..    ldab #0a
 741 8392 F7 00 38        ..8   stab 0038
 742 8395 7C 00 54        |.T   inc 0054
 743 8398 F6 00 54        ..T   ldab 0054
 744 839B C1 64           .d    cmpb #64
 745 839D 26 03           &.    bne 03
 746 839F 7C 00 48        |.H   inc 0048
 747 83A2 7E 84 9F        ~..   jmp 849f             ;goto2
 748 ;
 749 83A5 F6 0B C1        ...   ldab 0bc1
 750 83A8 C4 01           ..    andb #01
 751 83AA 27 10           '.    beq 10
 752 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 753 83AF BD C0 BA        ...   jsr c0ba             ;display:
 754 83B2 7C 00 48        |.H   inc 0048
 755 83B5 C6 0A           ..    ldab #0a
 756 83B7 F7 00 38        ..8   stab 0038
 757 83BA 20 03            .    bra 03
 758 83BC 7C 00 48        |.H   inc 0048
 759 83BF 7E 84 9F        ~..   jmp 849f             ;goto2
 760 83C2 F6 0B C1        ...   ldab 0bc1
 761 83C5 C4 02           ..    andb #02
 762 83C7 27 10           '.    beq 10
 763 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 764 83CC BD C0 BA        ...   jsr c0ba             ;display:
 765 83CF 7C 00 48        |.H   inc 0048
 766 83D2 C6 0A           ..    ldab #0a
 767 83D4 F7 00 38        ..8   stab 0038
 768 83D7 20 03            .    bra 03
 769 83D9 7C 00 48        |.H   inc 0048
 770 83DC 7E 84 9F        ~..   jmp 849f             ;goto2
 771 83DF F6 0B C1        ...   ldab 0bc1
 772 83E2 C4 04           ..    andb #04
 773 83E4 27 10           '.    beq 10
 774 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 775 83E9 BD C0 BA        ...   jsr c0ba             ;display:
 776 83EC 7C 00 48        |.H   inc 0048
 777 83EF C6 0A           ..    ldab #0a
 778 83F1 F7 00 38        ..8   stab 0038
 779 83F4 20 03            .    bra 03
 780 83F6 7C 00 48        |.H   inc 0048
 781 83F9 7E 84 9F        ~..   jmp 849f             ;goto2
 782 83FC F6 0B C1        ...   ldab 0bc1
 783 83FF C4 10           ..    andb #10
 784 8401 27 10           '.    beq 10
 785 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 786 8406 BD C0 BA        ...   jsr c0ba             ;display:
 787 8409 7C 00 48        |.H   inc 0048
 788 840C C6 0A           ..    ldab #0a
 789 840E F7 00 38        ..8   stab 0038
 790 8411 20 03            .    bra 03
 791 8413 7C 00 48        |.H   inc 0048
 792 8416 7E 84 9F        ~..   jmp 849f             ;goto2
 793 8419 F6 0B C1        ...   ldab 0bc1
 794 841C C4 20           .     andb #20
 795 841E 27 10           '.    beq 10
 796 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 797 8423 BD C0 BA        ...   jsr c0ba             ;display:
 798 8426 7C 00 48        |.H   inc 0048
 799 8429 C6 0A           ..    ldab #0a
 800 842B F7 00 38        ..8   stab 0038
 801 842E 20 03            .    bra 03
 802 8430 7C 00 48        |.H   inc 0048
 803 8433 20 6A            j    bra 6a
 804 8435 F6 0B C1        ...   ldab 0bc1
 805 8438 C4 08           ..    andb #08
 806 843A 27 10           '.    beq 10
 807 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 808 843F BD C0 BA        ...   jsr c0ba             ;display:
 809 8442 7C 00 48        |.H   inc 0048
 810 8445 C6 0A           ..    ldab #0a
 811 8447 F7 00 38        ..8   stab 0038
 812 844A 20 03            .    bra 03
 813 844C 7C 00 48        |.H   inc 0048
 814 844F 20 4E            N    bra 4e
 815 8451 F6 0B C1        ...   ldab 0bc1
 816 8454 C4 40           .@    andb #40
 817 8456 27 10           '.    beq 10
 818 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 819 845B BD C0 BA        ...   jsr c0ba             ;display:
 820 845E 7F 00 48        ..H   clr 0048
 821 8461 C6 0A           ..    ldab #0a
 822 8463 F7 00 38        ..8   stab 0038
 823 8466 20 0E            .    bra 0e
 824 8468 7F 00 48        ..H   clr 0048
 825 846B CC B0 13        ...   ldd #b013    "HIT RESET "
 826 846E BD C0 BA        ...   jsr c0ba              ;display:
 827 8471 C6 0A           ..    ldab #0a
 828 8473 F7 00 38        ..8   stab 0038
 829 8476 20 27            '    bra 27       ; to 849f (exit)
 830 8478 F6 00 1D        ...   ldab 001d
 831 847B 2C 0E           ,.    bge 0e
 832 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 833 8480 BD C0 BA        ...   jsr c0ba             ;display:
 834 8483 CE 00 1D        ...   ldx #001d
 835 8486 1D 00 80        ..    bclr 00,x, #80
 836 8489 20 0C           .     bra 0c       ; to 8496
 837 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 838 848E BD C0 BA        ...   jsr c0ba             ;display:
 839 8491 CE 00 1D        ...   ldx #001d
 840 8494 1C 00 80        ..    bset 00,x, #80
 841 8496 C6 0F           ..    ldab #0f
 842 8499 F7 00 38        ..8   stab 0038
 843 849C 7F 00 48        ..H   clr 0048
 844 goto2:
 845 849F 39              9     rts
 846
 847 jump73:
 848 ; service mode menu?
 849 84A0 FC 00 3B        ..;   ldd 003b
 850 84A3 26 03           &.    bne 03
 851 84A5 7E 85 96        ~..   jmp 8596             ;goto3
 852 84A8 F6 00 1F        ...   ldab 001f
 853 84AB 2C 40           ,@    bge 40
 854 84AD BD D6 52        ..R   jsr d652             ;jump5
 855 84B0 7F 00 42        ..B   clr 0042
 856 84B3 7F 00 09        ...   clr 0009
 857 84B6 7F 00 0A        ...   clr 000a
 858 84B9 7F 00 06        ...   clr 0006
 859 84BC 5F              _     clrb
 860 84BD 4F              O     clra
 861 84BE FD 00 40        ..@   std 0040
 862 84C1 5F              _     clrb
 863 84C2 4F              O     clra
 864 84C3 FD 00 3E        ..>   std 003e
 865 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
 866 84C9 CE 00 1F        ...   ldx #001f
 867 84CC 1D 00 80        ..    bclr 00,x, #80
 868 84CF CE 00 1F        ..    ldx #001f
 869 84D2 1C 00 02        ....  bset 00,x, #02
 870 84D5 CE 00 1D        ...   ldx #001d
 871 84D8 1C 00 10        ..    bset 00,x, #10
 872 84DB CE 00 17        ...   ldx #0017
 873 84DE 1D 00 20        ..    bclr 00,x, #20
 874 84E0 CE 00 17         .    ldx #0017
 875 84E4 1D 00 40        ..    bclr 00,x, #40
 876 84E7 CE 00 17        ...   ldx #0017
 877 84EA 1D 00 80        ..    bclr 00,x, #80
 878 84EC F6 0B A9        ...   ldab 0ba9
 879 84F0 C4 02           ..    andb #02
 880 84F2 27 20           '     beq 20       ; to 8414
 881 84F4 F6 00 42        ..B   ldab 0042
 882 84F7 4F              O     clra
 883 84F8 C3 0B E4        ...   addd #0be4
 884 84FB 8F              .     xgdx
 885 84FC E6 00           ..    ldab 00,x
 886 84FE 27 14           '.    beq 14
 887 8500 BD BE 4B        ..K   jsr be4b             ;displayblank
 888 8503 CC B0 81        ...   ldd #b081    ;"NO  ACCESS"
 889 8506 BD C0 BA        ...   jsr c0ba             ;display:
 890 8509 CC 02 58        ..X   ldd #0258    ;600
 891 850C BD E5 71        ..q   jsr e571             ;msdelay
 892 850F BD 85 AF        ...   jsr 85af             ;jump14
 893 8512 20 6C            l    bra 6c       ; to 8580
 894 ;
 895 8514 F6 00 42        ..B   ldab 0042
 896 8517 4F              O     clra
 897 8518 BD FE 16        ...   jsr fe16             ;jump2
 898 851B 00 00           .
 899 851C 00 0B           .
 900 851F 85 80           ..    ; default action - leave menu?
 901 8521 85 39           .9    ; 0 - no key pressed
 902 8523 85 4A           .J    ; key 1 - changer loading & calibration
 903 8525 85 4F           .O    ; key 2 - win-a-snack odds programming
 904 8527 85 54           .T    ; key 3 - set pricing
 905 8529 85 59           .Y    ; key 4 - smart shopping discount
 906 852B 85 5E           .^    ; key 5 - manual peripheral config
 907 852D 85 63           .c    ; key 6 - promo vend-pair programming
 908 852F 85 68           .h    ; key 7 - POS message & serial id
 909 8531 85 6D           .m    ; key 8 - print info
 910 8533 85 72           .r    ; key 9 - security code programming
 911 8535 85 77           .w    ; key 0 - motor menu
 912 8537 85 7C           .|    ; reset key -
 913 ;
 914 8539 CC AE 92        ...   ldd #ae92    "-         "
 915 853C BD C0 BA        ...   jsr c0ba         ;display:
 916 853F 7F 00 42        ..B   clr 0042
 917 8542 CE 00 1F        ...   ldx #001f
 918 8545 1C 00 02        ..    bset 00,x, #02
 919 8548 20 36            6    bra 36
 920 854A BD 86 84        ...   jsr 8684             ;jump15
 921 854D 20 31            1    bra 31
 922 854F BD 88 2E        ...   jsr 882e             ;jump16
 923 8552 20 2C            ,    bra 2c
 924 8554 BD 88 B8        ...   jsr 88b8             ;jump17
 925 8557 20 27            '    bra 27
 926 8559 BD 8C B4        ...   jsr 8cb4             ;jump18
 927 855C 20 22            "    bra 22
 928 855E BD 8E 35        ..5   jsr 8e35             ;jump19
 929 8561 20 1D            .    bra 1d
 930 8563 BD 8F 0D        ...   jsr 8f0d             ;jump20
 931 8566 20 18            .    bra 18
 932 8568 BD 90 D1        ...   jsr 90d1             ;jump21
 933 856B 20 13            .    bra 13
 934 856D BD 92 EE        ...   jsr 92ee             ;jump22
 935 8570 20 0E            .    bra 0e
 936 8572 BD 93 A5        ...   jsr 93a5             ;jump23
 937 8575 20 09            .    bra 09
 938 8577 BD 94 DD        ...   jsr 94dd             ;jump24
 939 857A 20 04            .    bra 04
 940 857C 8D 31           .1    bsr 31       ;jump14
 941 857E 20 00            .    bra 00
 942 ;
 943 8580 7F 00 0A        ...   clr 000a
 944 8583 F6 00 42        ..B   ldab 0042
 945 8586 C1 0A           ..    cmpb #0a
 946 8588 27 0A           '.    beq 0a
 947 858A F6 00 42        ..B   ldab 0042
 948 858D C1 07           ..    cmpb #07
 949 858F 27 03           '.    beq 03
 950 8591 7F 00 09        ...   clr 0009
 951 8594 20 18            .    bra 18
 952 goto3:
 953 8596 CE 00 1F        ...   ldx #001f
 954 8599 1D 00 04        ...   bclr 00,x, #04
 955 859C CE 00 1F        ...   ldx #001f
 956 859F 1C 00           ..    bset 00,x, #80
 957 85A2 CE 00 1D        ...   ldx #001d
 958 85A5 1C 00 10        ...   bset 00,x, #10
 959 85A8 BD BE 69        ..i   jsr be69             ;displayreset
 960 85AB BD E5 AA        ...   jsr e5aa             ;jump12
 961 85AE 39              9     rts
 962
 963 jump14:
 964 85AF 7F 00 42        ..B   clr 0042
 965 85B2 7F 00 06        ...   clr 0006
 966 85B5 CE 00 1F        ...   ldx #001f
 967 85B8 1C 00 02        ..    bset 00,x, #02
 968 85BB BD BE 69        ..i   jsr be69             ;displayreset
 969 85BE 39              9     rts
 970
 971 jump28:
 972 ; drop some change out of the changer?
 973 85BF F6 00 12        ...   ldab 0012
 974 85C2 C4 1E           ..    andb #1e     ; 00011110
 975 85C4 4F              O     clra
 976 85C5 BD FE 32        ..2   jsr fe32             ;jump25
 977 85C8 85 DE 00 0E     ....  ; 14  000 0111 0
 978 85CC 86 08 00 08     ....  ; 22  000 1011 0
 979 85D0 86 32 00 04     ....  ; 26  000 1101 0
 980 85D4 86 5C 00 02     ....  ; 28  000 1110 0
 981 85D8 86 83 FF E4     ....  ; 0
 982 85DC 00 00           ..    ; end of array
 983 85DE F6 0B DC        ...   ldab 0bdc
 984 85E1 F7 00 01        ...   stab 0001
 985 85E4 BD C4 30        ..0   jsr c430             ;jump26
 986 85E7 C6 01           ..    ldab #01
 987 85E9 F7 00 48        ..H   stab 0048
 988 85EC 7F 00 2C        ..,   clr 002c
 989 85EF F6 0C D9        ...   ldab 0cd9
 990 85F2 27 03           '.    beq 03
 991 85F4 7A 0C D9        z..   dec 0cd9     ; decrement number of 5c coins
 992 85F7 BD 97 F6        ...   jsr 97f6             ;jump27
 993 85FA CC 01 5E        ..^   ldd #015e
 994 85FD BD E5 71        ..q   jsr e571             ;msdelay
 995 8600 CC 02 33        ..3   ldd #0233
 996 8603 FD 00 3B        ..;   std 003b
 997 8606 20 7B            {    bra 7b
 998 8608 F6 0B DB        ...   ldab 0bdb
 999 860B F7 00 01        ...   stab 0001
1000 860E BD C4 30        ..0   jsr c430             ;jump26
1001 8611 C6 02           ..    ldab #02
1002 8613 F7 00 48        ..H   stab 0048
1003 8616 7F 00 2C        ..,   clr 002c
1004 8619 F6 0C DA        ...   ldab 0cda
1005 861C 27 03           '.    beq 03
1006 861E 7A 0C DA        z..   dec 0cda     ; decrement number of 10c coins
1007 8621 BD 97 F6        ...   jsr 97f6             ;jump27
1008 8624 CC 01 5E        ..^   ldd #015e
1009 8627 BD E5 71        ..q   jsr e571             ;msdelay
1010 862A CC 02 33        ..3   ldd #0233
1011 862D FD 00 3B        ..;   std 003b
1012 8630 20 51            Q    bra 51
1013 8632 F6 0B DA        ...   ldab 0bda
1014 8635 F7 00 01        ...   stab 0001
1015 8638 BD C4 30        ..0   jsr c430             ;jump26
1016 863B C6 03           ..    ldab #03
1017 863D F7 00 48        ..H   stab 0048
1018 8640 7F 00 2C        ..,   clr 002c
1019 8643 F6 0C DB        ...   ldab 0cdb
1020 8646 27 03           '.    beq 03
1021 8648 7A 0C DB        z..   dec 0cdb     ; decrement number of 20c coins
1022 864B BD 97 F6        ...   jsr 97f6             ;jump27
1023 864E CC 01 5E        ..^   ldd #015e
1024 8651 BD E5 71        ..q   jsr e571             ;msdelay
1025 8654 CC 02 33        ..3   ldd #0233
1026 8657 FD 00 3B        ..;   std 003b
1027 865A 20 27            '    bra 27
1028 865C C6 40           .@    ldab #40
1029 865E F7 00 01        ...   stab 0001
1030 8661 BD C4 30        ..0   jsr c430             ;jump26
1031 8664 C6 04           ..    ldab #04
1032 8666 F7 00 48        ..H   stab 0048
1033 8669 7F 00 2C        ..,   clr 002c
1034 866C F6 0C DC        ...   ldab 0cdc
1035 866F 27 03           '.    beq 03
1036 8671 7A 0C DC        z..   dec 0cdc     ; decrement number of $1 coins
1037 8674 BD 97 F6        ...   jsr 97f6             ;jump27
1038 8677 CC 01 5E        ..^   ldd #015e
1039 867A BD E5 71        ..q   jsr e571             ;msdelay
1040 867D CC 02 33        ..3   ldd #0233
1041 8680 FD 00 3B        ..;   std 003b
1042 8683 39              9     rts
1043
1044 jump15:
1045 ; changer load & calibrate menu
1046 8684 F6 00 1F        ...   ldab 001f
1047 8687 C4 02           ..    andb #02
1048 8689 27 2B           '+    beq 2b
1049 868B CE 00 1F        ...   ldx #001f
1050 868E 1D 00 02        ...   bclr 00,x, #02
1051 8691 C6 01           ..    ldab #01
1052 8693 F7 00 48        ..H   stab 0048
1053 8696 F6 0B C0        ...   ldab 0bc0
1054 8699 C4 01           ..    andb #01
1055 869B 27 16           '.    beq 16
1056 869D C6 27           .'    ldab #27
1057 869F F7 10 2D        ..-   stab 102d    ; disable SCI transmission
1058 86A2 C6 07           ..    ldab #07
1059 86A4 F7 10 2B        ..+   stab 102b    ; 600 baud
1060 86A7 CE 00 1A        ...   ldx #001a
1061 86AA 1D 00 01        ..    bclr 00,x, #01
1062 86AD F6 00 1A        ...   ldab 001a
1063 86B0 F7 30 00        .0.   stab 3000    ; changer accept on
1064 86B3 7E 87 E8        ~..   jmp 87e8             ;goto4
1065 86B6 F6 00 09        ...   ldab 0009
1066 86B9 4F              O     clra
1067 86BA BD FE 32        ..2   jsr fe32             ;jump25
1068 86BD 86 D7 00 00     ....  ; no key
1069 86C1 87 39 00 01     ....  ; key 1
1070 86C5 87 75 00 01     ....  ; key 2
1071 86C9 87 C5 00 08     ....  ; key 0
1072 86CD 87 D9 00 01     ....  ; key reset
1073 86D1 87 E8 FF F5     ....  ; no key
1074 86D5 00 00           ..    ; end of array data
1075 86D7 C6 FF           ..    ldab #ff
1076 86D9 F7 0B BC        ...   stab 0bbc
1077 86DC F6 18 00        ...   ldab 1800
1078 86DF 2D 29           -)    blt 29
1079 86E1 F6 00 07        ...   ldab 0007
1080 86E4 26 24           &$    bne 24
1081 86E6 CE 00 1A        ...   ldx #001a
1082 86E9 1D 00 02        ..    bclr 00,x, #02
1083 86EC F6 00 1A        ...   ldab 001a
1084 86EF F7 30 00        .0.   stab 3000    ; send msg to changer?
1085 86F2 CC 00 32        ..2   ldd #0032
1086 86F5 BD E5 71        ..q   jsr e571             ;msdelay
1087 86F8 CE 00 1A        ...   ldx #001a
1088 86FB 1C 00 02        ..    bset 00,x, #02
1089 86FE F6 00 1A        ...   ldab 001a
1090 8701 F7 30 00        .0.   stab 3000    ; turn changer send line off
1091 8704 CC 02 33        ..3   ldd #0233
1092 8707 FD 00 3B        ..;   std 003b
1093 870A 5F              _     clrb
1094 870B 4F              O     clra
1095 870C FD 00 40        ..@   std 0040
1096 870F 5F              _     clrb
1097 8710 4F              O     clra
1098 8711 FD 00 3E        ..>   std 003e
1099 8714 F6 0B C0        ...   ldab 0bc0
1100 8717 C4 01           ..    andb #01
1101 8719 27 03           '.    beq 03
1102 871B BD 85 BF        ...   jsr 85bf             ;jump28
1103 871E BD DC A3        ...   jsr dca3             ;jump29
1104 8721 BD 97 F6        ...   jsr 97f6             ;jump27
1105 8724 CE 00 17        ...   ldx #0017
1106 8727 1D 00           ..    bclr add,x 00,x
1107 8729 20 CE            .    bra ce
1108 872B 00              .     test
1109 872C 17              .     tba
1110 872D 1D 00 40        ...   bclr 00,x, #40
1111 8730 CE 00 17        ...   ldx #0017
1112 8733 1D 00           ..    bclr add,x 00,x
1113 8735 80 7E           .~    suba #7e
1114 8737 87              .     illegal
1115 8738 E8 F6           ..    eorb f6,x
1116 873A 00              .     test
1117 873B 36              6     psha
1118 873C 26 2F           &/    bne 2f
1119 873E F6 00 48        ..H   ldab 0048
1120 8741 4F              O     clra
1121 8742 BD FE 16        ...   jsr fe16             ;jump2
1122 8745 00 01 00 03     .     ; data for jump2
1123 8749 87 65           .
1124 874B 87 53           .
1125 874D 87 58           .
1126 874F 87 5D           .
1127 8751 87 62           .     ; end of data
1128 8753 7C 0C D9        |..   inc 0cd9
1129 8756 20 0D            .    bra 0d
1130 8758 7C 0C DA        |..   inc 0cda
1131 875B 20 08            .    bra 08
1132 875D 7C 0C DB        |..   inc 0cdb
1133 8760 20 03            .    bra 03
1134 8762 7C 0C DC        |..   inc 0cdc
1135 8765 BD 97 F6        ...   jsr 97f6             ;jump27
1136 8768 C6 02           ..    ldab #02
1137 876A F7 00 36        ..6   stab 0036
1138 876D CE 00 1B        ...   ldx #001b
1139 8770 1C 00 10        ...   bset 00,x, #10
1140 8773 20 73            s    bra 73
1141 8775 F6 00 36        ..6   ldab 0036
1142 8778 26 43           &C    bne 43
1143 877A F6 00 48        ..H   ldab 0048
1144 877D 4F              O     clra
1145 877E BD FE 16        ...   jsr fe16             ;jump2
1146 8781 00              .     test
1147 8782 01              .     nop
1148 8783 00              .     test
1149 8784 03              .     fdiv
1150 8785 87              .     illegal
1151 8786 B5 87 8F        ...   bita 878f
1152 8789 87              .     illegal
1153 878A 99 87 A3        ...   adca 87
1154 878D 87              .     illegal
1155 878E AD F6           ..    jsr f6,x
1156 8790 0C              .     clc
1157 8791 D9 27 03        .'.   adcb 27
1158 8794 7A 0C D9        z..   dec 0cd9
1159 8797 20 1C            .    bra 1c
1160 8799 F6 0C DA        ...   ldab 0cda
1161 879C 27 03           '.    beq 03
1162 879E 7A 0C DA        z..   dec 0cda
1163 87A1 20 12            .    bra 12
1164 87A3 F6 0C DB        ...   ldab 0cdb
1165 87A6 27 03           '.    beq 03
1166 87A8 7A 0C DB        z..   dec 0cdb
1167 87AB 20 08            .    bra 08
1168 87AD F6 0C DC        ...   ldab 0cdc
1169 87B0 27 03           '.    beq 03
1170 87B2 7A 0C DC        z..   dec 0cdc
1171 87B5 BD 97 F6        ...   jsr 97f6             ;jump27
1172 87B8 C6 02           ..    ldab #02
1173 87BA F7 00 36        ..6   stab 0036
1174 87BD CE 00 1B        ...   ldx #001b
1175 87C0 1C 00 10        ...   bset 00,x, #10
1176 87C3 20 23            #    bra 23
1177 87C5 7C 00 48        |.H   inc 0048
1178 87C8 F6 00 48        ..H   ldab 0048
1179 87CB C1 04           ..    cmpb #04
1180 87CD 23 05           #.    bls 05
1181 87CF C6 01           ..    ldab #01
1182 87D1 F7 00 48        ..H   stab 0048
1183 87D4 BD 97 F6        ...   jsr 97f6             ;jump27
1184 87D7 20 0F            .    bra 0f
1185 87D9 CE 00 1A        ...   ldx #001a
1186 87DC 1C 00 01        ..    bset 00,x, #01
1187 87DF F6 00 1A        ...   ldab 001a
1188 87E2 F7 30 00        .0.   stab 3000    ; turn changer accept line off
1189 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1190 goto4:
1191 87E8 39              9     rts
1192
1193 jump74:
1194 ;motor count procedure
1195 87E9 7F 00 05        ...   clr 0005
1196 87EC 7F 00 54        ..T   clr 0054
1197 87EF F6 00 54        ..T   ldab 0054
1198 87F2 C1 50           .P    cmpb #50     ; 80 entries in lookup table
1199 87F4 24 2E           $.    bcc 2e       ; to 8824
1200 87F6 F6 00 54        ..T   ldab 0054
1201 87F9 4F              O     clra
1202 87FA C3 B0 D3        ...   addd #b0d3   ; lookup table
1203 87FD 8F              .     xgdx
1204 87FE E6 00           ..    ldab 00,x
1205 8800 F7 00 06        ...   stab 0006
1206 8803 F6 00 06        ...   ldab 0006
1207 8806 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1208 8809 83 00 00        ...   subd #0000
1209 880C 26 11           &.    bne 11
1210 880E BD D3 11        ...   jsr d311             ;jump30 - test it
1211 8811 83 00 00        ...   subd #0000
1212 8814 26 03           &.    bne 03
1213 8816 7C 00 05        |..   inc 0005
1214 8819 CC 00 05        ...   ldd #0005
1215 881C BD E5 71        ..q   jsr e571             ;msdelay
1216 881F 7C 00 54        |.T   inc 0054
1217 8822 20 CB            .    bra cb
1218 8824 BD 99 81        ...   jsr 9981             ;jump144 - write "MOTORS XX" (from 0005)
1219 8827 CC 07 D0        ...   ldd #07d0
1220 882A BD E5 71        ..q   jsr e571             ;msdelay
1221 882D 39              9     rts
1222
1223 jump16:
1224 882E F6 00 1F        ...   ldab 001f
1225 8831 C4 02           ..    andb #02
1226 8833 27 12           '.    beq 12
1227 8835 FC 0B B5        ...   ldd 0bb5
1228 8838 C4 FF           ..    andb #ff
1229 883A 84 01           ..    anda #01
1230 883C FD 00 52        ..R   std 0052
1231 883F CE 00 1F        ...   ldx #001f
1232 8842 1D 00 02        ...   bclr 00,x, #02
1233 8845 20 70            p    bra 70
1234 8847 F6 00 09        ...   ldab 0009
1235 884A 4F              O     clra
1236 884B BD FE 32        ..2   jsr fe32             ;jump25
1237 884E 88 68 00 00     ....  ; cancel.
1238 8852 88 6D 00 01     ....  ; key 1 - increment
1239 8856 88 83 00 01     ....  ; key 2 - decrement
1240 885A 88 A7 00 08     ....  ; key 0 - saving
1241 885E 88 B4 00 01     ....  ; reset
1242 8862 88 B7 FF F5     ....  ; no key - return
1243 8866 00 00           ....  ; end of array data
1244 ;
1245 8868 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1246 886B 20 4A            J    bra 4a       ; to 88b7 - return
1247 ; increment 50
1248 886D FC 00 52        ..R   ldd 0052
1249 8870 83 01 F4        ...   subd #01f4   ; 500
1250 8873 24 09           $.    bcc 09       ; dont let them go above 500
1251 8875 FC 00 52        ..R   ldd 0052
1252 8878 C3 00 32        ..2   addd #0032   ; +50
1253 887B FD 00 52        ..R   std 0052
1254 887E BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1255 8881 20 34            4    bra 34
1256 ;
1257 8883 FC 00 52        ..R   ldd 0052
1258 8886 83 00 32        ..2   subd #0032   ; 50
1259 8889 23 17           #.    bls 17       ; dont let them go below 50
1260 888B FC 00 52        ..R   ldd 0052
1261 888E C3 FF CE        ...   addd #ffce   ; -50
1262 8891 FD 00 52        ..R   std 0052
1263 8894 FC 00 52        ..R   ldd 0052
1264 8897 83 00 32        ..2   subd #0032   ; 50
1265 889A 24 06           $.    bcc 06
1266 889C CC 00 32        ..2   ldd #0032   ; 100
1267 889F FD 00 52        ..R   std 0052
1268 88A2 BD 9A 05        ...   jsr 9a05             ;jump102 - write ODDS 1/
1269 88A5 20 10            .    bra 10
1270 ;
1271 88A7 BD A3 7C        ..|   jsr a37c             ;jump141 - save
1272 88AA 5F              _     clrb
1273 88AB 4F              O     clra
1274 88AC FD 0B B9        ...   std 0bb9
1275 88AF BD 85 AF        ...   jsr 85af             ;jump14
1276 88B2 20 03            .    bra 03
1277 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1278 88B7 39              9     rts
1279
1280 jump17:
1281 ; set pricing
1282 88B8 F6 00 1F        ...   ldab 001f
1283 88BB C4 02           ..    andb #02
1284 88BD 26 0A           &.    bne 0a
1285 88BF F6 00 3A        ..:   ldab 003a
1286 88C2 26 28           &(    bne 28
1287 88C4 F6 00 1D        ...   ldab 001d
1288 88C7 2D 23           -#    blt 23
1289 88C9 7F 00 2C        ..,   clr 002c
1290 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1291 88CF BD C0 BA        ...   jsr c0ba             ;display:
1292 88D2 CE 00 1F        ...   ldx #001f
1293 88D5 1D 00 02        ..    bclr 00,x, #02
1294 88D8 CE 00 1F        ...   ldx #001f
1295 88DB 1D 00 40        ..    bclr 00,x, #40
1296 88DE CE 00 1D        ...   ldx #001d
1297 88E1 1D 00 80        ..    bclr 00,x, #80
1298 88E4 7F 00 54        ...   clr 0054
1299 88E7 C6 32           .2    ldab #32
1300 88E9 F7 00 3A        ..:   stab 003a
1301 88EC F6 00 09        ...   ldab 0009
1302 88EF 26 03           &.    bne 03
1303 88F1 7E 89 E1        ~..   jmp 89e1             ;goto5
1304 88F4 F6 00 1D        ...   ldab 001d
1305 88F7 2C 03           ,.    bge 03
1306 88F9 7E 89 E1        ~..   jmp 89e1             ;goto5
1307 88FC F6 00 09        ...   ldab 0009
1308 88FF C1 0B           ..    cmpb #0b
1309 8901 26 06           &.    bne 06
1310 8903 BD 85 AF        ...   jsr 85af             ;jump14
1311 8906 7E 89 DE        ~..   jmp 89de             ;goto6
1312 8909 F6 00 54        ..T   ldab 0054
1313 890C 26 26           &&    bne 26
1314 890E BD BE 4B        ..K   jsr be4b             ;displayblank
1315 8911 F6 00 09        ...   ldab 0009
1316 8914 C1 0A           ..    cmpb #0a
1317 8916 26 03           &.    bne 03
1318 8918 7F 00 09        ...   clr 0009
1319 891B F6 00 09        ...   ldab 0009
1320 891E CB 30           .0    addb #30
1321 8920 37              7     pshb
1322 8921 CC 0B 95        ...   ldd #0b95
1323 8924 F0 00 54        ..T   subb 0054
1324 8927 82 00           ..    sbca #00
1325 8929 8F              .     xgdx
1326 892A 33              3     pulb
1327 892B E7 00           ..    stab 00,x
1328 892D C6 32           .2    ldab #32
1329 892F F7 00 3A        ..:   stab 003a
1330 8932 20 37            7    bra 37
1331 8934 F6 00 54        ..T   ldab 0054
1332 8937 C1 01           ..    cmpb #01
1333 8939 26 27           &'    bne 27
1334 893B F6 00 09        ...   ldab 0009
1335 893E C1 05           ..    cmpb #05
1336 8940 27 20           '     beq 20
1337 8942 F6 00 09        ...   ldab 0009
1338 8945 C1 0A           ..    cmpb #0a
1339 8947 27 19           '.    beq 19
1340 8949 F6 00 09        ...   ldab 0009
1341 894C CB 30           .0    addb #30
1342 894E 37              7     pshb
1343 894F CC 0B 95        ...   ldd #0b95
1344 8952 F0 00 54        ..T   subb 0054
1345 8955 82 00           ..    sbca #00
1346 8957 8F              .     xgdx
1347 8958 33              3     pulb
1348 8959 E7 00           ..    stab 00,x
1349 895B C6 32           .2    ldab #32
1350 895D F7 00 3A        ..:   stab 003a
1351 8960 20 09            .    bra 09
1352 8962 CE 00 1F        ...   ldx #001f
1353 8965 1C 00 02        ..    bset 00,x, #02
1354 8968 7F 00 3A        ..:   clr 003a
1355 896B BD BE 01        ...   jsr be01             ;jump70
1356 896E 7C 00 54        |.T   inc 0054
1357 8971 F6 00 54        ..T   ldab 0054
1358 8974 C1 02           ..    cmpb #02
1359 8976 26 60           &`    bne 60
1360 8978 CE 00 1D        ...   ldx #001d
1361 897B 1C 00 80        ..    bset 00,x, #80
1362 897E F6 0B 94        ..    ldab 0b94
1363 8980 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1364 8983 37              7     pshb
1365 8984 F6 0B 95        ...   ldab 0b95
1366 8987 CB D0           ..    addb #d0     ; -48 (unmake it a digit)
1367 8989 86 0A           ..    ldaa #0a
1368 898B 3D              =     mul
1369 898C 30              0     tsx
1370 898D EB 00           ..    addb 00,x
1371 898F 31              1     ins
1372 8990 F7 00 06        ...   stab 0006
1373 8993 C6 32           .2    ldab #32
1374 8995 F7 00 3A        ..:   stab 003a
1375 8998 F6 00 06        ...   ldab 0006
1376 899B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1377 899E 83 00 00        ...   subd #0000
1378 89A1 26 27           &'    bne 27       ; to 89ca
1379 89A3 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1380 89A6 83 00 00        ...   subd #0000
1381 89A9 26 0B           &.    bne 0b
1382 89AB CE 00 1F        ...   ldx #001f
1383 89AE 1C 00 40        ..    bset 00,x, #40
1384 89B1 BD 8C 73        ..s   jsr 8c73             ;jump75
1385 89B4 20 0F            .    bra 0f
1386 89B6 CE 00 1F        ...   ldx #001f
1387 89B9 1D 00 40        ..    bclr 00,x, #40
1388 89BC CC 2A FF        .*.   ldd #2aff    ; 00101010 11111111
1389 89BF FD 00 27        ..'   std 0027
1390 89C2 BD A3 85        ...   jsr a385             ;jump40
1391 89C5 BD 9A 47        ..G   jsr 9a47             ;jump39
1392 89C8 20 0C            .    bra 0c
1393 ;
1394 89CA CE 00 1D        ...   ldx #001d
1395 89CD 1D 00           ..    bclr 00,x, #80
1396 89D0 CE 00 1F        ...   ldx #001f
1397 89D3 1C 00 02        ...   bset 00,x, #02
1398 89D6 20 06            .    bra 06
1399 89D8 CE 00 1D        ...   ldx #001d
1400 89DB 1D 00 80        ...   bclr 00,x, #80
1401 ;goto6
1402 89DE 7E 8C 72        .~    jmp 8c72     ;goto7 (exit)
1403 ;goto5
1404 89E1 F6 00 1D        ...   ldab 001d
1405 89E4 2D 03           -.    blt 03
1406 89E6 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1407 89E9 F6 00 09        ...   ldab 0009
1408 89EC 4F              O     clra
1409 89ED BD FE 16        ...   jsr fe16             ;jump2
1410 89F0 00 00 00 0B     ....  ; params to jump2
1411 89F4 8C 72           ..    ; default action
1412 89F6 8A 0E           ..    ; 0 - display price on screen?
1413 89F8 8A 14           ..    ; 1 -
1414 89FA 8A AA           ..
1415 89FC 8B 5E           .^
1416 89FE 8B 9E           ..
1417 8A00 8B DB           ..
1418 8A02 8C 72           ..
1419 8A04 8C 72           ..
1420 8A06 8C 72           ..
1421 8A08 8B FC           ..
1422 8A0A 8C 67           ..
1423 8A0C 8C 6F           ..
1424 8A0E BD 9A 47        ..    jsr 9a47    ;jump39
1425 8A11 7E 8C 72        ...   jmp 8c72    ;goto7 (exit)
1426 8A14 F6 00 36        ...   ldab 0036
1427 8A17 27 03           '.    beq 03
1428 8A19 7E 8A 9B        ~..   jmp 8a9b             ;goto8
1429 8A1C F6 00 1F        ...   ldab 001f
1430 8A1F C4 40           .@    andb #40
1431 8A21 27 78           'x    beq 78
1432 8A23 F6 0B C0        ...   ldab 0bc0
1433 8A26 C4 02           ..    andb #02
1434 8A28 27 52           'R    beq 52
1435 8A2A F6 0B AA        ...   ldab 0baa
1436 8A2D C1 32           .2    cmpb #32
1437 8A2F 24 22           $"    bcc 22
1438 8A31 F6 0B AA        ...   ldab 0baa
1439 8A34 4F              O     clra
1440 8A35 F3 00 27        ..'   addd 0027
1441 8A38 FD 00 27        ..'   std 0027
1442 8A3B F6 0B AA        ...   ldab 0baa
1443 8A3E 4F              O     clra
1444 8A3F 37              7     pshb
1445 8A40 36              6     psha
1446 8A41 CC 00 FA        ...   ldd #00fa    ; 250 or -6
1447 8A44 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
1448 8A47 B3 00 27        ..'   subd 0027
1449 8A4A 24 05           $.    bcc 05
1450 8A4C 5F              _     clrb
1451 8A4D 4F              O     clra
1452 8A4E FD 00 27        ..'   std 0027
1453 8A51 20 27            '    bra 27
1454 8A53 F6 0B AA        ...   ldab 0baa
1455 8A56 C1 32           .2    cmpb #32
1456 8A58 26 20           &     bne 20
1457 8A5A F6 0B AA        ...   ldab 0baa
1458 8A5D 4F              O     clra
1459 8A5E F3 00 27        ..'   addd 0027
1460 8A61 FD 00 27        ..'   std 0027
1461 8A64 F6 0B AA        ...   ldab 0baa
1462 8A67 4F              O     clra
1463 8A68 37              7     pshb
1464 8A69 36              6     psha
1465 8A6A CC 00 C7        ...   ldd #00c7    ; 199
1466 8A6D BD FB BA        ...   jsr fbba             ;jump38
1467 8A70 B3 00 27        ..'   subd 0027
1468 8A73 24 05           $.    bcc 05
1469 8A75 5F              _     clrb
1470 8A76 4F              O     clra
1471 8A77 FD 00 27        ..'   std 0027
1472 8A7A 20 17            .    bra 17
1473 8A7C F6 0B AA        ...   ldab 0baa
1474 8A7F 4F              O     clra
1475 8A80 F3 00 27        ..'   addd 0027
1476 8A83 FD 00 27        ..'   std 0027
1477 8A86 FC 00 27        ..'   ldd 0027
1478 8A89 83 27 0F        .'.   subd #270f
1479 8A8C 23 05           #.    bls 05
1480 8A8E 5F              _     clrb
1481 8A8F 4F              O     clra
1482 8A90 FD 00 27        ..'   std 0027
1483 8A93 BD 9A 47        ..G   jsr 9a47             ;jump39
1484 8A96 C6 02           ..    ldab #02
1485 8A98 F7 00 36        ..6   stab 0036
1486 goto8:
1487 8A9B CE 00 1B        ...   ldx #001b
1488 8A9E 1C 00 10        ...   bset 00,x, #10
1489 8AA1 CC 02 33        ..3   ldd #0233
1490 8AA4 FD 00 3B        ..;   std 003b
1491 8AA7 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1492 ;
1493 8AAA F6 00 36        ..6   ldab 0036
1494 8AAD 27 03           '.    beq 03
1495 8AAF 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1496 8AB2 F6 00 1F        ...   ldab 001f
1497 8AB5 C4 40           .@    andb #40
1498 8AB7 26 03           &.    bne 03
1499 8AB9 7E 8B 4F        ~.O   jmp 8b4f             ;goto9
1500 8ABC F6 0B C0        ...   ldab 0bc0
1501 8ABF C4 02           ..    andb #02
1502 8AC1 27 57           'W    beq 57
1503 8AC3 FC 00 27        ..'   ldd 0027
1504 8AC6 26 18           &.    bne 18
1505 8AC8 F6 0B AA        ...   ldab 0baa
1506 8ACB C1 32           .2    cmpb #32
1507 8ACD 24 11           $.    bcc 11
1508 8ACF F6 0B AA        ...   ldab 0baa
1509 8AD2 4F              O     clra
1510 8AD3 37              7     pshb
1511 8AD4 36              6     psha
1512 8AD5 CC 00 FA        ...   ldd #00fa    ; 250
1513 8AD8 BD FB BA        ...   jsr fbba             ;jump38
1514 8ADB FD 00 27        ..'   std 0027
1515 8ADE 20 38            8    bra 38
1516 8AE0 FC 00 27        ..'   ldd 0027
1517 8AE3 26 18           &.    bne 18
1518 8AE5 F6 0B AA        ...   ldab 0baa
1519 8AE8 C1 32           .2    cmpb #32
1520 8AEA 26 11           &.    bne 11
1521 8AEC F6 0B AA        ...   ldab 0baa
1522 8AEF 4F              O     clra
1523 8AF0 37              7     pshb
1524 8AF1 36              6     psha
1525 8AF2 CC 00 C7        ...   ldd #00c7    ; 199
1526 8AF5 BD FB BA        ...   jsr fbba             ;jump38
1527 8AF8 FD 00 27        ..'   std 0027
1528 8AFB 20 1B            .    bra 1b
1529 8AFD F6 0B AA        ...   ldab 0baa
1530 8B00 4F              O     clra
1531 8B01 B3 00 27        ..'   subd 0027
1532 8B04 22 0D           ".    bhi 0d
1533 8B06 FC 00 27        ..'   ldd 0027
1534 8B09 F0 0B AA        ...   subb 0baa
1535 8B0C 82 00           ..    sbca #00
1536 8B0E FD 00 27        ..'   std 0027
1537 8B11 20 05            .    bra 05
1538 8B13 5F              _     clrb
1539 8B14 4F              O     clra
1540 8B15 FD 00 27        ..'   std 0027
1541 8B18 20 2D            -    bra 2d
1542 8B1A FC 00 27        ..'   ldd 0027
1543 8B1D 26 0D           &.    bne 0d
1544 8B1F CC 27 10        .'.   ldd #2710    ;10000
1545 8B22 F0 0B AA        ...   subb 0baa
1546 8B25 82 00           ..    sbca #00
1547 8B27 FD 00 27        ..'   std 0027
1548 8B2A 20 1B            .    bra 1b
1549 8B2C F6 0B AA        ...   ldab 0baa
1550 8B2F 4F              O     clra
1551 8B30 B3 00 27        ..'   subd 0027
1552 8B33 22 0D           ".    bhi 0d
1553 8B35 FC 00 27        ..'   ldd 0027
1554 8B38 F0 0B AA        ...   subb 0baa
1555 8B3B 82 00           ..    sbca #00
1556 8B3D FD 00 27        ..'   std 0027
1557 8B40 20 05            .    bra 05
1558 8B42 5F              _     clrb
1559 8B43 4F              O     clra
1560 8B44 FD 00 27        ..'   std 0027
1561 8B47 BD 9A 47        ..G   jsr 9a47             ;jump39
1562 8B4A C6 02           ..    ldab #02
1563 8B4C F7 00 36        ..6   stab 0036
1564 goto9:
1565 8B4F CE 00 1B        ...   ldx #001b
1566 8B52 1C 00 10        ..    bset 00,x, #10
1567 8B55 CC 02 33        ..3   ldd #0233
1568 8B58 FD 00 3B        ..;   std 003b
1569 8B5B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1570 8B5E F6 00 36        ..6   ldab 0036
1571 8B61 26 2C           &,    bne 2c
1572 8B63 F6 00 1F        ...   ldab 001f
1573 8B66 C4 40           .@    andb #40
1574 8B68 27 25           '%    beq 25
1575 8B6A FC 00 46        ..F   ldd 0046
1576 8B6D 83 00 64        ..d   subd #0064
1577 8B70 24 15           $.    bcc 15
1578 8B72 FE 00 46        ..F   ldx 0046
1579 8B75 08              .     inx
1580 8B76 FF 00 46        ..F   stx 0046
1581 8B79 FC 00 46        ..F   ldd 0046
1582 8B7C 83 00 64        ..d   subd #0064
1583 8B7F 25 06           %.    bcs 06
1584 8B81 CC 00 01        ...   ldd #0001
1585 8B84 FD 00 46        ..F   std 0046
1586 8B87 BD 9A 47        ..G   jsr 9a47             ;jump39
1587 8B8A C6 02           ..    ldab #02
1588 8B8C F7 00 36        ..6   stab 0036
1589 8B8F CE 00 1B        ...   ldx #001b
1590 8B92 1C 00 10        ..    bset 00,x, #10
1591 8B95 CC 02 33        ..3   ldd #0233
1592 8B98 FD 00 3B        ..;   std 003b
1593 8B9B 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1594 8B9E F6 00 36        ..6   ldab 0036
1595 8BA1 26 29           &)    bne 29
1596 8BA3 F6 00 1F        ...   ldab 001f
1597 8BA6 C4 40           .@    andb #40
1598 8BA8 27 22           '"    beq 22
1599 8BAA FC 00 46        ..F   ldd 0046
1600 8BAD 83 00 00        ...   subd #0000
1601 8BB0 23 12           #.    bls 12
1602 8BB2 FE 00 46        ..F   ldx 0046
1603 8BB5 09              .     dex
1604 8BB6 FF 00 46        ..F   stx 0046
1605 8BB9 FC 00 46        ..F   ldd 0046
1606 8BBC 26 06           &.    bne 06
1607 8BBE CC 00 63        ..c   ldd #0063
1608 8BC1 FD 00 46        ..F   std 0046
1609 8BC4 BD 9A 47        ..G   jsr 9a47             ;jump39
1610 8BC7 C6 02           ..    ldab #02
1611 8BC9 F7 00 36        ..6   stab 0036
1612 8BCC CE 00 1B        ...   ldx #001b
1613 8BCF 1C 00 10        ...   bset 00,x, #10
1614 8BD2 CC 02 33        ..3   ldd #0233
1615 8BD5 FD 00 3B        ..;   std 003b
1616 8BD8 7E 8C 72        ~.r   jmp 8c72             ;goto7 (exit)
1617 8BDB F6 00 1F        ...   ldab 001f
1618 8BDE C4 40           .@    andb #40
1619 8BE0 27 15           '.    beq 15
1620 8BE2 F6 00 19        ...   ldab 0019
1621 8BE5 C4 10           ..    andb #10
1622 8BE7 27 08           '.    beq 08
1623 8BE9 CE 00 19        ...   ldx #0019
1624 8BEC 1D 00 10        ...   bclr 00,x, #10
1625 8BEF 20 06            .    bra 06
1626 8BF1 CE 00 19        ...   ldx #0019
1627 8BF4 1C 00 10        ...   bset 00,x, #10
1628 8BF7 BD 9A 47        ..G   jsr 9a47             ;jump39
1629 8BFA 20 76            v    bra 76
1630 8BFC BD A3 85        ...   jsr a385             ;jump40
1631 8BFF F6 00 06        ...   ldab 0006
1632 8C02 C1 64           .d    cmpb #64
1633 8C04 24 24           $$    bcc 24
1634 8C06 BD 97 6F        ..o   jsr 976f             ;jump41
1635 8C09 F6 00 06        ...   ldab 0006
1636 8C0C BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
1637 8C0F 83 00 00        ...   subd #0000
1638 8C12 27 16           '.    beq 16
1639 8C14 F6 00 06        ...   ldab 0006
1640 8C17 C1 09           ..    cmpb #09
1641 8C19 26 03           &.    bne 03
1642 8C1B BD 97 6F        ..o   jsr 976f             ;jump41
1643 8C1E F6 00 06        ...   ldab 0006
1644 8C21 C1 45           .E    cmpb #45
1645 8C23 26 05           &.    bne 05
1646 8C25 C6 01           ..    ldab #01
1647 8C27 F7 00 06        ...   stab 0006
1648 8C2A F6 0E 6D        ..m   ldab 0e6d
1649 8C2D C1 01           ..    cmpb #01
1650 8C2F 26 11           &.    bne 11
1651 8C31 F6 00 06        ...   ldab 0006
1652 8C34 4F              O     clra
1653 8C35 05              .     asld
1654 8C36 C3 08 C8        ...   addd #08c8
1655 8C39 8F              .     xgdx
1656 8C3A EC 00           ..    ldd 00,x
1657 8C3C C4 7F           ..    andb #7f
1658 8C3E 4F              O     clra
1659 8C3F FD 00 46        ..F   std 0046
1660 8C42 BD D3 11        ...   jsr d311             ;jump30 - test position exists
1661 8C45 83 00 00        ...   subd #0000
1662 8C48 26 12           &.    bne 12
1663 8C4A CE 00 1F        ...   ldx #001f
1664 8C4D 1C 00 40        ...   bset 00,x, #40
1665 8C50 FC 00 27        ..'   ldd 0027
1666 8C53 83 27 0F        .'.   subd #270f
1667 8C56 23 02           #.    bls 02
1668 8C58 8D 19           ..    bsr dest 19
1669 8C5A 20 06            .    bra 06
1670 8C5C CE 00 1F        ...   ldx #001f
1671 8C5F 1D 00 40        ...   bclr 00,x, #40
1672 8C62 BD 9A 47        ..G   jsr 9a47             ;jump39
1673 8C65 20 0B            .    bra 0b
1674 8C67 BD A3 85        ...   jsr a385             ;jump40
1675 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1676 8C6D 20 03            .    bra 03
1677 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1678 goto7:
1679 8C72 39              9     rts
1680
1681 jump75:
1682 ;fetches a price & other info for the given slot?
1683 8C73 F6 00 06        ...   ldab 0006
1684 8C76 4F              O     clra
1685 8C77 05              .     asld
1686 8C78 C3 08 00        ...   addd #0800
1687 8C7B 8F              .     xgdx
1688 8C7C EC 00           ..    ldd 00,x
1689 8C7E C4 FF           ..    andb #ff
1690 8C80 84 3F           .?    anda #3f
1691 8C82 FD 00 27        ..'   std 0027
1692 8C85 F6 00 06        ...   ldab 0006
1693 8C88 4F              O     clra
1694 8C89 05              .     asld
1695 8C8A C3 08 C8        ...   addd #08c8
1696 8C8D 8F              .     xgdx
1697 8C8E EC 00           ..    ldd 00,x
1698 8C90 C4 7F           ..    andb #7f
1699 8C92 4F              O     clra
1700 8C93 FD 00 46        ..F   std 0046
1701 8C96 F6 00 06        ...   ldab 0006
1702 8C99 4F              O     clra
1703 8C9A 05              .     asld
1704 8C9B C3 08 C8        ...   addd #08c8
1705 8C9E 8F              .     xgdx
1706 8C9F EC 00           ..    ldd 00,x
1707 8CA1 84 08           ..    anda #08
1708 8CA3 27 08           '.    beq 08
1709 8CA5 CE 00 19        ...   ldx #0019
1710 8CA8 1C 00 10        ...   bset 00,x, #10 ; corresponds to whatever '*' is on price display
1711 8CAB 20 06            .    bra 06
1712 8CAD CE 00 19        ...   ldx #0019
1713 8CB0 1D 00 10        ...   bclr 00,x, #10
1714 8CB3 39              9     rts
1715
1716 jump18:
1717 ; program smart shopping discount
1718 8CB4 F6 00 1F        ...   ldab 001f
1719 8CB7 C4 02           ..    andb #02
1720 8CB9 27 12           '.    beq 12
1721 8CBB FC 0B B7        ...   ldd 0bb7
1722 8CBE FD 00 0D        ...   std 000d
1723 8CC1 CE 00 1F        ...   ldx #001f
1724 8CC4 1D 00 02        ...   bclr 00,x, #02
1725 8CC7 7F 00 36        ..6   clr 0036
1726 8CCA 7E 8E 34        ~.4   jmp 8e34             ;goto10
1727 8CCD F6 00 09        ...   ldab 0009
1728 8CD0 4F              O     clra
1729 8CD1 BD FE 32        ..2   jsr fe32             ;jump25
1730 8CD4 8C EE 00 00     ....  ; array data for jump25
1731 8CD8 8C F4 00 01     ....
1732 8CDC 8D 80 00 01     ....
1733 8CE0 8E 29 00 08     .)..
1734 8CE4 8E 31 00 01     .1..
1735 8CE8 8E 34 FF F5     .4.
1736 8CEC 00 00           ...   ; end of array data
1737 8CEE BD 9B 63        ..c   jsr 9b63             ;jump101
1738 8CF1 7E 8E 34        ~.4   jmp 8e34             ;goto10
1739 8CF4 F6 00 36        ..6   ldab 0036
1740 8CF7 26 78           &x    bne 78
1741 8CF9 F6 0B C0        ...   ldab 0bc0
1742 8CFC C4 02           ..    andb #02
1743 8CFE 27 52           'R    beq 52
1744 8D00 F6 0B AA        ...   ldab 0baa
1745 8D03 C1 32           .2    cmpb #32
1746 8D05 24 22           $"    bcc 22
1747 8D07 F6 0B AA        ...   ldab 0baa
1748 8D0A 4F              O     clra
1749 8D0B F3 00 0D        ...   addd 000d
1750 8D0E FD 00 0D        ...   std 000d
1751 8D11 F6 0B AA        ...   ldab 0baa
1752 8D14 4F              O     clra
1753 8D15 37              7     pshb
1754 8D16 36              6     psha
1755 8D17 CC 00 FA        ...   ldd #00fa    ; 250
1756 8D1A BD FB BA        ...   jsr fbba             ;jump38
1757 8D1D B3 00 0D        ...   subd 000d
1758 8D20 24 05           $.    bcc 05
1759 8D22 5F              _     clrb
1760 8D23 4F              O     clra
1761 8D24 FD 00 0D        ...   std 000d
1762 8D27 20 27            '    bra 27
1763 8D29 F6 0B AA        ...   ldab 0baa
1764 8D2C C1 32           .2    cmpb #32
1765 8D2E 26 20           &     bne 20
1766 8D30 F6 0B AA        ...   ldab 0baa
1767 8D33 4F              O     clra
1768 8D34 F3 00 0D        ...   addd 000d
1769 8D37 FD 00 0D        ...   std 000d
1770 8D3A F6 0B AA        ...   ldab 0baa
1771 8D3D 4F              O     clra
1772 8D3E 37              7     pshb
1773 8D3F 36              6     psha
1774 8D40 CC 00 C7        ...   ldd #00c7    ; 199
1775 8D43 BD FB BA        ...   jsr fbba             ;jump38
1776 8D46 B3 00 0D        ...   subd 000d
1777 8D49 24 05           $.    bcc 05
1778 8D4B 5F              _     clrb
1779 8D4C 4F              O     clra
1780 8D4D FD 00 0D        ...   std 000d
1781 8D50 20 17            .    bra 17
1782 8D52 F6 0B AA        ...   ldab 0baa
1783 8D55 4F              O     clra
1784 8D56 F3 00 0D        ...   addd 000d
1785 8D59 FD 00 0D        ...   std 000d
1786 8D5C FC 00 0D        ...   ldd 000d
1787 8D5F 83 27 0F        .'.   subd #270f
1788 8D62 23 05           #.    bls 05
1789 8D64 5F              _     clrb
1790 8D65 4F              O     clra
1791 8D66 FD 00 0D        ...   std 000d
1792 8D69 BD 9B 63        ..c   jsr 9b63             ;jump101
1793 8D6C C6 02           ..    ldab #02
1794 8D6E F7 00 36        ..6   stab 0036
1795 8D71 CE 00 1B        ...   ldx #001b
1796 8D74 1C 00 10        ..    bset 00,x, #10
1797 8D77 CC 02 33        ..3   ldd #0233
1798 8D7A FD 00 3B        ..;   std 003b
1799 8D7D 7E 8E 34        ~.4   jmp 8e34             ;goto10
1800 8D80 F6 00 36        ..6   ldab 0036
1801 8D83 27 03           '.    beq 03
1802 8D85 7E 8E 1B        ~..   jmp 8e1b             ;goto11
1803 8D88 F6 0B C0        ...   ldab 0bc0
1804 8D8B C4 02           ..    andb #02
1805 8D8D 27 57           'W    beq 57
1806 8D8F FC 00 0D        ...   ldd 000d
1807 8D92 26 18           &.    bne 18
1808 8D94 F6 0B AA        ...   ldab 0baa
1809 8D97 C1 32           .2    cmpb #32
1810 8D99 24 11           $.    bcc 11
1811 8D9B F6 0B AA        ...   ldab 0baa
1812 8D9E 4F              O     clra
1813 8D9F 37              7     pshb
1814 8DA0 36              6     psha
1815 8DA1 CC 00 FA        ...   ldd #00fa    ; 250
1816 8DA4 BD FB BA        ...   jsr fbba             ;jump38
1817 8DA7 FD 00 0D        ...   std 000d
1818 8DAA 20 38            8    bra 38
1819 8DAC FC 00 0D        ...   ldd 000d
1820 8DAF 26 18           &.    bne 18
1821 8DB1 F6 0B AA        ...   ldab 0baa
1822 8DB4 C1 32           .2    cmpb #32
1823 8DB6 26 11           &.    bne 11
1824 8DB8 F6 0B AA        ...   ldab 0baa
1825 8DBB 4F              O     clra
1826 8DBC 37              7     pshb
1827 8DBD 36              6     psha
1828 8DBE CC 00 C7        ...   ldd #00c7    ; 199
1829 8DC1 BD FB BA        ...   jsr fbba             ;jump38
1830 8DC4 FD 00 0D        ...   std 000d
1831 8DC7 20 1B            .    bra 1b
1832 8DC9 F6 0B AA        ...   ldab 0baa
1833 8DCC 4F              O     clra
1834 8DCD B3 00 0D        ...   subd 000d
1835 8DD0 22 0D           ".    bhi 0d
1836 8DD2 FC 00 0D        ...   ldd 000d
1837 8DD5 F0 0B AA        ...   subb 0baa
1838 8DD8 82 00           ..    sbca #00
1839 8DDA FD 00 0D        ...   std 000d
1840 8DDD 20 05            .    bra 05
1841 8DDF 5F              _     clrb
1842 8DE0 4F              O     clra
1843 8DE1 FD 00 0D        ...   std 000d
1844 8DE4 20 2D            -    bra 2d
1845 8DE6 FC 00 0D        ...   ldd 000d
1846 8DE9 26 0D           &.    bne 0d
1847 8DEB CC 27 10        .'.   ldd #2710
1848 8DEE F0 0B AA        ...   subb 0baa
1849 8DF1 82 00           ..    sbca #00
1850 8DF3 FD 00 0D        ...   std 000d
1851 8DF6 20 1B            .    bra 1b
1852 8DF8 F6 0B AA        ...   ldab 0baa
1853 8DFB 4F              O     clra
1854 8DFC B3 00 0D        ...   subd 000d
1855 8DFF 22 0D           ".    bhi 0d
1856 8E01 FC 00 0D        ...   ldd 000d
1857 8E04 F0 0B AA        ...   subb 0baa
1858 8E07 82 00           ..    sbca #00
1859 8E09 FD 00 0D        ...   std 000d
1860 8E0C 20 05            .    bra 05
1861 8E0E 5F              _     clrb
1862 8E0F 4F              O     clra
1863 8E10 FD 00 0D        ...   std 000d
1864 8E13 BD 9B 63        ..c   jsr 9b63             ;jump101
1865 8E16 C6 02           ..    ldab #02
1866 8E18 F7 00 36        ..6   stab 0036
1867 goto11:
1868 8E1B CE 00 1B        ...   ldx #001b
1869 8E1E 1C 00 10        ...   bset 00,x, #10
1870 8E21 CC 02 33        ..3   ldd #0233
1871 8E24 FD 00 3B        ..;   std 003b
1872 8E27 20 0B            .    bra 0b
1873 8E29 BD A4 4F        ..O   jsr a44f             ;jump140
1874 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1875 8E2F 20 03            .    bra 03
1876 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1877 goto10:
1878 8E34 39              9     rts
1879
1880 jump19:
1881 ; manual peripheral config menu
1882 8E35 F6 00 1F        ...   ldab 001f
1883 8E38 C4 02           ..    andb #02
1884 8E3A 27 1E           '.    beq 1e
1885 8E3C 7F 00 48        ..H   clr 0048
1886 8E3F F6 0B C0        ...   ldab 0bc0
1887 8E42 F7 00 67        ..g   stab 0067
1888 8E45 F6 0E 6D        ..m   ldab 0e6d
1889 8E48 F7 0E 6F        ..o   stab 0e6f
1890 8E4B F6 0E 6E        ..n   ldab 0e6e
1891 8E4E F7 0E 70        ..p   stab 0e70
1892 8E51 CE 00 1F        ...   ldx #001f
1893 8E54 1D 00 02        ...   bclr 00,x, #02
1894 8E57 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1895 8E5A F6 00 09        ...   ldab 0009
1896 8E5D 4F              O     clra
1897 8E5E BD FE 32        ..2   jsr fe32             ;jump25
1898 8E61 8E 7B 00 00     .{..  ; no key
1899 8E65 8E 81 00 01     ....  ; key 1 - toggle?
1900 8E69 8E 87 00 04     ....  ; key 5 - save and next
1901 8E6D 8F 01 00 05     ....  ; key 0 - exit
1902 8E71 8F 09 00 01     ....  ; key reset - exit
1903 8E75 8F 0C FF F5     ....  ; default
1904 8E79 00 00           ..    ; end of array data
1905 ;
1906 8E7B BD 9C 15        ...   jsr 9c15             ;jump111 - write the option name
1907 8E7E 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1908 ;
1909 8E81 BD A7 5F        .._   jsr a75f             ;jump133
1910 8E84 7E 8F 0C        ~..   jmp 8f0c             ;goto12
1911 ;
1912 8E87 F6 00 48        ..H   ldab 0048
1913 8E8A C1 08           ..    cmpb #08
1914 8E8C 25 05           %.    bcs 05
1915 8E8E F6 00 67        ..g   ldab 0067
1916 8E91 2D 03           -.    blt 03
1917 8E93 BD A4 59        ..Y   jsr a459             ;jump110
1918 8E96 F6 00 48        ..H   ldab 0048
1919 8E99 C1 0A           ..    cmpb #0a
1920 8E9B 24 5F           $_    bcc 5f
1921 8E9D 7C 00 48        |.H   inc 0048
1922 8EA0 F6 00 48        ..H   ldab 0048
1923 8EA3 C1 01           ..    cmpb #01
1924 8EA5 26 0F           &.    bne 0f
1925 ;
1926 8EA7 F6 00 67        ..g   ldab 0067
1927 8EAA C4 02           ..    andb #02
1928 8EAC 26 08           &.    bne 08
1929 8EAE F6 00 48        ..H   ldab 0048
1930 8EB1 CB 02           ..    addb #02
1931 8EB3 F7 00 48        ..H   stab 0048
1932 ;
1933 8EB6 F6 00 48        ..H   ldab 0048
1934 8EB9 C1 02           ..    cmpb #02
1935 8EBB 26 0A           &.    bne 0a
1936 8EBD F6 00 67        ..g   ldab 0067
1937 8EC0 C4 10           ..    andb #10
1938 8EC2 26 03           &.    bne 03
1939 8EC4 7C 00 48        |.H   inc 0048
1940 8EC7 F6 00 48        ..H   ldab 0048
1941 8ECA C1 06           ..    cmpb #06
1942 8ECC 26 0F           &.    bne 0f
1943 8ECE F6 00 67        ..g   ldab 0067
1944 8ED1 C4 08           ..    andb #08
1945 8ED3 26 08           &.    bne 08
1946 8ED5 C6 02           ..    ldab #02
1947 8ED7 FB 00 48        ..H   addb 0048
1948 8EDA F7 00 48        ..H   stab 0048
1949 8EDD F6 00 48        ..H   ldab 0048
1950 8EE0 C1 0A           ..    cmpb #0a
1951 8EE2 26 08           &.    bne 08
1952 8EE4 F6 00 67        ..g   ldab 0067
1953 8EE7 2D 03           -.    blt 03
1954 8EE9 7C 00 48        |.H   inc 0048
1955 8EEC F6 00 48        ..H   ldab 0048
1956 8EEF C1 0A           ..    cmpb #0a
1957 8EF1 23 09           #.    bls 09
1958 8EF3 7F 00 48        ..H   clr 0048
1959 8EF6 F6 0B C0        ...   ldab 0bc0
1960 8EF9 F7 00 67        ..g   stab 0067
1961 8EFC BD 9C 15        ...   jsr 9c15             ;jump111 - write the next option
1962 8EFF 20 0B            .    bra 0b
1963 ;
1964 8F01 BD A4 59        ..Y   jsr a459             ;jump110
1965 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1966 8F07 20 03            .    bra 03
1967 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1968 goto12:
1969 8F0C 39              9     rts
1970
1971 jump20:
1972 ; promotional vend-pair programming (buy one thing get another free?)
1973 8F0D F6 00 1F        ...   ldab 001f
1974 8F10 C4 02           ..    andb #02
1975 8F12 27 1D           '.    beq 1d
1976 8F14 C6 01           ..    ldab #01
1977 8F16 F7 00 22        .."   stab 0022
1978 8F19 F6 0B AF        ...   ldab 0baf
1979 8F1C F7 00 24        ..$   stab 0024
1980 8F1F F6 0B B4        ...   ldab 0bb4
1981 8F22 F7 00 2A        ..*   stab 002a
1982 8F25 CE 00 1F        ...   ldx #001f
1983 8F28 1D 00 02        ..    bclr 00,x, #02
1984 8F2B 7F 00 36        ..6   clr 0036
1985 8F2E 7E 90 D0        ~..   jmp 90d0             ;goto13
1986 8F31 F6 00 09        ...   ldab 0009
1987 8F34 4F              O     clra
1988 8F35 BD FE 16        ...   jsr fe16             ;jump2
1989 8F38 00 00 00 0B     ....  ; params for jump2
1990 8F3C 90 D0           ..
1991 8F3E 8F 56           ..
1992 8F40 8F 5C           ..
1993 8F42 8F B3           ..
1994 8F44 90 0C           ..
1995 8F46 90 62           ..
1996 8F48 90 BA           ..
1997 8F4A 90 DO           ..
1998 8F4C 90 D0           ..
1999 8F4E 90 D0           ..
2000 8F50 90 DO           ..
2001 8F52 90 C5           ..
2002 8F54 90 CD           ..
2003 8F56 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2004 8F59 7E 90 D0        ~..   jmp 90d0             ;goto13
2005 8F5C F6 00 36        ..6   ldab 0036
2006 8F5F 26 43           &C    bne 43
2007 8F61 F6 00 24        ..$   ldab 0024
2008 8F64 C1 64           .d    cmpb #64
2009 8F66 24 34           $4    bcc 34
2010 8F68 7C 00 24        |.$   inc 0024
2011 8F6B F6 00 24        ..$   ldab 0024
2012 8F6E F7 00 06        ...   stab 0006
2013 8F71 F6 00 06        ...   ldab 0006
2014 8F74 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2015 8F77 83 00 00        ...   subd #0000
2016 8F7A 27 03           '.    beq 03
2017 8F7C 7C 00 24        |.$   inc 0024
2018 8F7F F6 00 24        ..$   ldab 0024
2019 8F82 C1 64           .d    cmpb #64
2020 8F84 26 03           &.    bne 03
2021 8F86 7F 00 24        ..$   clr 0024
2022 8F89 F6 00 24        ..$   ldab 0024
2023 8F8C 4F              O     clra
2024 8F8D CE 00 05        ...   ldx #0005
2025 8F90 02              .     idiv
2026 8F91 5D              ]     tstb
2027 8F92 26 08           &.    bne 08
2028 8F94 F6 00 24        ..$   ldab 0024
2029 8F97 27 03           '.    beq 03
2030 8F99 7C 00 24        |.$   inc 0024
2031 8F9C BD 9D 2A        ..*   jsr 8d2a             ;jump89
2032 8F9F C6 02           ..    ldab #02
2033 8FA1 F7 00 36        ..6   stab 0036
2034 8FA4 CE 00 1B        ...   ldx #001b
2035 8FA7 1C 00 10        ...   bset 00,x, #10
2036 8FAA CC 02 33        ..3   ldd #0233
2037 8FAD FD 00 3B        ..;   std 003b
2038 8FB0 7E 90 D0        ~..   jmp 90d0             ;goto13
2039 8FB3 F6 00 36        ..6   ldab 0036
2040 8FB6 26 45           &E    bne 45
2041 8FB8 F6 00 24        ..$   ldab 0024
2042 8FBB C1 00           ..    cmpb #00
2043 8FBD 23 2C           #,    bls 2c
2044 8FBF 7A 00 24        z.$   dec 0024
2045 8FC2 F6 00 24        ..$   ldab 0024
2046 8FC5 4F              O     clra
2047 8FC6 CE 00 05        ...   ldx #0005
2048 8FC9 02              .     idiv
2049 8FCA 5D              ]     tstb
2050 8FCB 26 08           &.    bne 08
2051 8FCD F6 00 24        ..$   ldab 0024
2052 8FD0 27 03           '.    beq 03
2053 8FD2 7A 00 24        z.$   dec 0024
2054 8FD5 F6 00 24        ..$   ldab 0024
2055 8FD8 F7 00 06        ...   stab 0006
2056 8FDB F6 00 06        ...   ldab 0006
2057 8FDE BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2058 8FE1 83 00 00        ...   subd #0000
2059 8FE4 27 03           '.    beq 03
2060 8FE6 7A 00 24        z.$   dec 0024
2061 8FE9 20 0A            .    bra 0a
2062 8FEB F6 00 24        ..$   ldab 0024
2063 8FEE 26 05           &.    bne 05
2064 8FF0 C6 62           .b    ldab #62
2065 8FF2 F7 00 24        ..$   stab 0024
2066 8FF5 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2067 8FF8 C6 02           ..    ldab #02
2068 8FFA F7 00 36        ..6   stab 0036
2069 8FFD CE 00 1B        ...   ldx #001b
2070 9000 1C 00 10        ...   bset 00,x, #10
2071 9003 CC 02 33        ..3   ldd #0233
2072 9006 FD 00 3B        ..;   std 003b
2073 9009 7E 90 D0        ~..   jmp 90d0             ;goto13
2074 900C F6 00 36        ..6   ldab 0036
2075 900F 26 43           &C    bne 43
2076 9011 F6 00 2A        ..*   ldab 002a
2077 9014 C1 64           .d    cmpb #64
2078 9016 24 34           $4    bcc 34
2079 9018 7C 00 2A        |.*   inc 002a
2080 901B F6 00 2A        ..*   ldab 002a
2081 901E F7 00 06        ...   stab 0006
2082 9021 F6 00 06        ...   ldab 0006
2083 9024 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2084 9027 83 00 00        ...   subd #0000
2085 902A 27 03           '.    beq 03
2086 902C 7C 00 2A        |.*   inc 002a
2087 902F F6 00 2A        ..*   ldab 002a
2088 9032 C1 64           .d    cmpb #64
2089 9034 26 03           &.    bne 03
2090 9036 7F 00 2A        ..*   clr 002a
2091 9039 F6 00 2A        ..*   ldab 002a
2092 903C 4F              O     clra
2093 903D CE 00 05        ...   ldx #0005
2094 9040 02              .     idiv
2095 9041 5D              ]     tstb
2096 9042 26 08           &.    bne 08
2097 9044 F6 00 2A        ..*   ldab 002a
2098 9047 27 03           '.    beq 03
2099 9049 7C 00 2A        |.*   inc 002a
2100 904C BD 9D 2A        ..*   jsr 9d2a             ;jump89
2101 904F C6 02           ..    ldab #02
2102 9051 F7 00 36        ..6   stab 0036
2103 9054 CE 00 1B        ...   ldx #001b
2104 9057 1C 00 10        ...   bset 00,x, #10
2105 905A CC 02 33        ..3   ldd #0233
2106 905D FD 00 3B        ..;   std 003b
2107 9060 20 6E            n    bra 6e
2108 9062 F6 00 36        ..6   ldab 0036
2109 9065 26 45           &E    bne 45
2110 9067 F6 00 2A        ..*   ldab 002a
2111 906A C1 00           ..    cmpb #00
2112 906C 23 2C           #,    bls 2c
2113 906E 7A 00 2A        z.*   dec 002a
2114 9071 F6 00 2A        ..*   ldab 002a
2115 9074 4F              O     clra
2116 9075 CE 00 05        ...   ldx #0005
2117 9078 02              .     idiv
2118 9079 5D              ]     tstb
2119 907A 26 08           &.    bne 08
2120 907C F6 00 2A        ..*   ldab 002a
2121 907F 27 03           '.    beq 03
2122 9081 7A 00 2A        z.*   dec 002a
2123 9084 F6 00 2A        ..*   ldab 002a
2124 9087 F7 00 06        ...   stab 0006
2125 908A F6 00 06        ...   ldab 0006
2126 908D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2127 9090 83 00 00        ...   subd #0000
2128 9093 27 03           '.    beq 03
2129 9095 7A 00 2A        z.*   dec 002a
2130 9098 20 0A            .    bra 0a
2131 909A F6 00 2A        ..*   ldab 002a
2132 909D 26 05           &.    bne 05
2133 909F C6 62           .b    ldab #62
2134 90A1 F7 00 2A        ..*   stab 002a
2135 90A4 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2136 90A7 C6 02           ..    ldab #02
2137 90A9 F7 00 36        ..6   stab 0036
2138 90AC CE 00 1B        ...   ldx #001b
2139 90AF 1C 00 10        ...   bset 00,x, #10
2140 90B2 CC 02 33        ..3   ldd #0233
2141 90B5 FD 00 3B        ..;   std 003b
2142 90B8 20 16            .    bra 16
2143 90BA BD A5 1E        ...   jsr a51e             ;jump109
2144 90BD BD AA 9A        ...   jsr aa9a             ;jump127
2145 90C0 BD 9D 2A        ..*   jsr 9d2a             ;jump89
2146 90C3 20 0B            .    bra 0b
2147 90C5 BD A5 1E        ...   jsr a51e             ;jump109
2148 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2149 90CB 20 03            .    bra 03
2150 90CD BD 85 AF        ...   jsr 85af             ;jump14
2151 goto13:
2152 90D0 39              9     rts
2153
2154 jump21:
2155 ; pos message & serial id
2156 90D1 F6 00 1F        ...   ldab 001f
2157 90D4 C4 02           ..    andb #02
2158 90D6 27 14           '.    beq 14
2159 90D8 CE 00 1F        ...   ldx #001f
2160 90DB 1D 00 02        ...   bclr 00,x, #02
2161 90DE CE 00 19        ...   ldx #0019
2162 90E1 1C 00           ..    bset add,x 00,x
2163 90E3 80 7F           ..    suba #7f
2164 90E5 00              .     test
2165 90E6 09              .     dex
2166 90E7 7F 00 0A        ...   clr 000a
2167 90EA 20 40            @    bra 40
2168 90EC F6 00 09        ...   ldab 0009
2169 90EF 4F              O     clra
2170 90F0 BD FE 32        ..2   jsr fe32             ;jump25
2171 90F3 91 0D 00 00     ....  ; array data for jump25
2172 90F7 91 15 00 01     ....
2173 90FB 91 19 00 01     ....
2174 90FF 91 1E 00 01     ....
2175 9103 91 23 00 08     .#..
2176 9107 91 26 FF F5     .&..
2177 910B 00 00           ..    ; end of array data
2178 910D CC B0 AD        ...   ldd #b0ad    ; "PROGRAM  ?"
2179 9110 BD C0 BA        ...   jsr c0ba             ;display:
2180 9113 20 17            .    bra 17
2181 9115 8D 16           ..    bsr dest 16
2182 9117 20 13            .    bra 13
2183 9119 BD 91 C6        ...   jsr 91c6             ;jump76
2184 911C 20 0E            .    bra 0e
2185 911E BD 92 5A        ..Z   jsr 925a             ;jump149
2186 9121 20 09            .    bra 09
2187 9123 BD 85 AF        ...   jsr 85af             ;jump14
2188 9126 7F 00 09        ...   clr 0009
2189 9129 7F 00 0A        ...   clr 000a
2190 912C 39              9     rts
2191 ;
2192 912D F6 00 19        ...   ldab 0019
2193 9130 2C 28           ,(    bge 28
2194 9132 BD A9 CF        ...   jsr a9cf             ;jump131
2195 9135 C6 50           .P    ldab #50
2196 9137 F7 0A 90        ...   stab 0a90
2197 913A C6 20           .     ldab #20
2198 913C F7 0B 8D        ...   stab 0b8d
2199 913F C6 20           .     ldab #20
2200 9141 F7 0B 8E        ...   stab 0b8e
2201 9144 C6 28           .(    ldab #28
2202 9146 F7 0B 8F        ...   stab 0b8f
2203 9149 7F 00 54        ..T   clr 0054
2204 914C 7F 00 60        ..`   clr 0060
2205 914F CE 00 19        ...   ldx #0019
2206 9152 1D 00           ..    bclr add,x 00,x
2207 9154 80 7F           ..    suba #7f
2208 9156 00              .     test
2209 9157 36              6     psha
2210 9158 20 6B            k    bra 6b
2211 915A F6 00 0A        ...   ldab 000a
2212 915D 4F              O     clra
2213 915E BD FE 16        ...   jsr fe16             ;jump2
2214 9161 00              .     test
2215 9162 00              .     test
2216 9163 00              .     test
2217 9164 0B              .     sev
2218 9165 91 C5 91        ...   cmpa c5
2219 9168 7F 91 84        ...   clr 9184
2220 916B 91 89 91        ...   cmpa 89
2221 916E 8E 91 9F        ...   lds #919f
2222 9171 91 B0 91        ...   cmpa b0
2223 9174 C5 91           ..    bitb #91
2224 9176 C5 91           ..    bitb #91
2225 9178 C5 91           ..    bitb #91
2226 917A B5 91 BA        ...   bita 91ba
2227 917D 91 C2 BD        ...   cmpa c2
2228 9180 9D 7E 20        .~    jsr 7e
2229 9183 41              A     illegal
2230 9184 BD A8 64        ..d   jsr a864             ;jump99
2231 9187 20 3C            <    bra 3c
2232 9189 BD A8 D5        ...   jsr a8d5             ;jump97
2233 918C 20 37            7    bra 37
2234 918E BD A8 96        ...   jsr a896             ;jump98
2235 9191 CE 00 1B        ...   ldx #001b
2236 9194 1C 00 10        ...   bset 00,x, #10
2237 9197 CC 02 33        ..3   ldd #0233
2238 919A FD 00 3B        ..;   std 003b
2239 919D 20 26            &    bra 26
2240 919F BD A8 E5        ...   jsr a8e5             ;jump96
2241 91A2 CE 00 1B        ...   ldx #001b
2242 91A5 1C 00 10        ...   bset 00,x, #10
2243 91A8 CC 02 33        ..3   ldd #0233
2244 91AB FD 00 3B        ..;   std 003b
2245 91AE 20 15            .    bra 15
2246 91B0 BD A9 21        ..!   jsr a921             ;jump95
2247 91B3 20 10            .    bra 10
2248 91B5 BD A9 7A        ..z   jsr a97a             ;jump132
2249 91B8 20 0B            .    bra 0b
2250 91BA BD A5 7D        ..}   jsr a57d             ;jump139
2251 91BD BD 85 AF        ...   jsr 85af             ;jump14
2252 91C0 20 03            .    bra 03
2253 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2254 91C5 39              9     rts
2255
2256 jump76:
2257 91C6 F6 00 19        ...   ldab 0019
2258 91C9 2C 28           ,(    bge 28
2259 91CB BD AA 0A        ...   jsr aa0a             ;jump130
2260 91CE C6 53           .S    ldab #53     ; "S"
2261 91D0 F7 0A 90        ...   stab 0a90
2262 91D3 C6 20           .     ldab #20     ; " "
2263 91D5 F7 0A 9D        ...   stab 0a9d
2264 91D8 C6 20           .     ldab #20     ; " "
2265 91DA F7 0A 9E        ...   stab 0a9e
2266 91DD C6 28           .(    ldab #28     ; "("
2267 91DF F7 0A 9F        ...   stab 0a9f
2268 91E2 7F 00 54        ..T   clr 0054
2269 91E5 7F 00 60        ..`   clr 0060
2270 91E8 CE 00 19        ...   ldx #0019
2271 91EB 1D 00 80        ..    bclr 00,x, #80
2272 91EE 7F 00 36        ..    clr 0036
2273 91F1 20 66            f    bra 66
2274 91F3 F6 00 0A        ...   ldab 000a
2275 91F6 4F              O     clra
2276 91F7 BD FE 16        ...   jsr fe16             ;jump2
2277 91FA 00 00 00 08     .
2278 91FE 92 59           ..
2279 9200 92 18           ..
2280 9202 92 1D           ..
2281 9204 92 22           ..
2282 9206 92 27           ..
2283 9208 92 38           ..
2284 920A 92 49           ..
2285 920C 92 59           ..
2286 920E 92 59           ..
2287 9210 92 59           ..
2288 9212 92 59           ..
2289 9214 92 4E           ..
2290 9216 92 56           ..
2291 9218 BD 9D 7E        ..    jsr 9d7e
2292 921B 20 3C           .~    bra 3c
2293 921D BD A8 64        ..d   jsr a864             ;jump99
2294 9220 20 37            7    bra 37
2295 9222 BD A8 D5        ...   jsr a8d5             ;jump97
2296 9225 20 32            2    bra 32
2297 9227 BD A8 96        ...   jsr a896             ;jump98
2298 922A CE 00 1B        ...   ldx #001b
2299 922D 1C 00 10        ...   bset 00,x, #10
2300 9230 CC 02 33        ..3   ldd #0233
2301 9233 FD 00 3B        ..;   std 003b
2302 9236 20 21            !    bra 21
2303 9238 BD A8 E5        ...   jsr a8e5             ;jump96
2304 923B CE 00 1B        ...   ldx #001b
2305 923E 1C 00 10        ...   bset 00,x, #10
2306 9241 CC 02 33        ..3   ldd #0233
2307 9244 FD 00 3B        ..;   std 003b
2308 9247 20 10            .    bra 10
2309 9249 BD A9 21        ..!   jsr a921             ;jump95
2310 924C 20 0B            .    bra 0b
2311 924E BD A5 AC        ...   jsr a5ac             ;jump138
2312 9251 BD 85 AF        ...   jsr 85af             ;jump14
2313 9254 20 03            .    bra 03
2314 9256 BD 85 AF        ...   jsr 85af             ;jump14
2315 9259 39              9     rts
2316
2317 jump149:
2318 925A F6 00 19        ...   ldab 0019
2319 925D 2C 28           ,(    bge 28
2320 925F BD AA 3F        ..?   jsr aa3f             ;jump129
2321 9262 C6 49           .I    ldab #49
2322 9264 F7 0A 90        ...   stab 0a90
2323 9267 C6 20           .     ldab #20
2324 9269 F7 0A 9D        ...   stab 0a9d
2325 926C C6 20           .     ldab #20
2326 926E F7 0A 9E        ...   stab 0a9e
2327 9271 C6 28           .(    ldab #28
2328 9273 F7 0A 9F        ...   stab 0a9f
2329 9276 7F 00 54        ..T   clr 0054
2330 9279 7F 00 60        ..`   clr 0060
2331 927C CE 00 19        ...   ldx #0019
2332 927F 1D 00           ..    bclr add,x 00,x
2333 9281 80 7F           ..    suba #7f
2334 9283 00              .     test
2335 9284 36              6     psha
2336 9285 20 66            f    bra 66
2337 9287 F6 00 0A        ...   ldab 000a
2338 928A 4F              O     clra
2339 928B BD FE 16        ...   jsr fe16             ;jump2
2340 928E 00              .     test
2341 928F 00              .     test
2342 9290 00              .     test
2343 9291 0B              .     sev
2344 9292 92 ED 92        ...   sbca ed
2345 9295 AC 92           ..    cpx 92,x
2346 9297 B1 92 B6        ...   cmpa 92b6
2347 929A 92 BB 92        ...   sbca bb
2348 929D CC 92 DD        ...   ldd #92dd
2349 92A0 92 ED 92        ...   sbca ed
2350 92A3 ED 92           ..    std 92,x
2351 92A5 ED 92           ..    std 92,x
2352 92A7 ED 92           ..    std 92,x
2353 92A9 E2 92           ..    sbcb 92,x
2354 92AB EA BD           ..    orb bd,x
2355 92AD 9D 7E 20        .~    jsr 7e
2356 92B0 3C              <     pshx
2357 92B1 BD A8 64        ..d   jsr a864             ;jump99
2358 92B4 20 37            7    bra 37
2359 92B6 BD A8 D5        ...   jsr a8d5             ;jump97
2360 92B9 20 32            2    bra 32
2361 92BB BD A8 96        ...   jsr a896             ;jump98
2362 92BE CE 00 1B        ...   ldx #001b
2363 92C1 1C 00 10        ...   bset 00,x, #10
2364 92C4 CC 02 33        ..3   ldd #0233
2365 92C7 FD 00 3B        ..;   std 003b
2366 92CA 20 21            !    bra 21
2367 92CC BD A8 E5        ...   jsr a8e5             ;jump96
2368 92CF CE 00 1B        ...   ldx #001b
2369 92D2 1C 00 10        ...   bset 00,x, #10
2370 92D5 CC 02 33        ..3   ldd #0233
2371 92D8 FD 00 3B        ..;   std 003b
2372 92DB 20 10            .    bra 10
2373 92DD BD A9 21        ..!   jsr a921             ;jump95
2374 92E0 20 0B            .    bra 0b
2375 92E2 BD A5 D5        ...   jsr a5d5             ;jump137
2376 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2377 92E8 20 03            .    bra 03
2378 92EA BD 85 AF        ...   jsr 85af             ;jump14
2379 92ED 39              9     rts
2380
2381 jump22:
2382 ; print info
2383 92EE F6 0C DC        ...   ldab 0cdc
2384 92F1 4F              O     clra
2385 92F2 37              7     pshb
2386 92F3 36              6     psha
2387 92F4 CC 00 64        ..d   ldd #0064    ; 100
2388 92F7 BD FB BA        ...   jsr fbba             ;jump38 - multiplication
2389 92FA FD 0C E9        ...   std 0ce9
2390 92FD BD D6 F6        ...   jsr d6f6             ;jump106
2391 9300 FC 0C E9        ...   ldd 0ce9
2392 9303 F3 0B EF        ...   addd 0bef
2393 9306 FD 0C F1        ...   std 0cf1
2394 9309 FE 0C F5        ...   ldx 0cf5
2395 930C 3C              <     pshx
2396 930D FC 0C F3        ...   ldd 0cf3
2397 9310 37              7     pshb
2398 9311 36              6     psha
2399 9312 FE 0C F9        ...   ldx 0cf9
2400 9315 3C              <     pshx
2401 9316 FC 0C F7        ...   ldd 0cf7
2402 9319 BD FC 25        ..%   jsr fc25             ;jump85
2403 931C 37              7     pshb
2404 931D 36              6     psha
2405 931E FE 0C FD        ...   ldx 0cfd
2406 9321 3C              <     pshx
2407 9322 FC 0C FB        ...   ldd 0cfb
2408 9325 BD FC 25        ..%   jsr fc25             ;jump85
2409 9328 37              7     pshb
2410 9329 36              6     psha
2411 932A FE 0D 01        ...   ldx 0d01
2412 932D 3C              <     pshx
2413 932E FC 0C FF        ...   ldd 0cff
2414 9331 BD FC 25        ..%   jsr fc25             ;jump85
2415 9334 37              7     pshb
2416 9335 36              6     psha
2417 9336 FE 0D 05        ...   ldx 0d05
2418 9339 3C              <     pshx
2419 933A FC 0D 03        ...   ldd 0d03
2420 933D BD FC 25        ..%   jsr fc25             ;jump85
2421 9340 FD 0D F3        ...   std 0df3
2422 9343 32              2     pula
2423 9344 33              3     pulb
2424 9345 FD 0D F5        ...   std 0df5
2425 9348 FE 0D F9        ...   ldx 0df9
2426 934B 3C              <     pshx
2427 934C FC 0D F7        ...   ldd 0df7
2428 934F 37              7     pshb
2429 9350 36              6     psha
2430 9351 FE 0D F5        ...   ldx 0df5
2431 9354 3C              <     pshx
2432 9355 FC 0D F3        ...   ldd 0df3
2433 9358 BD FC 25        ..%   jsr fc25             ;jump85
2434 935B FD 0D EF        ...   std 0def
2435 935E 32              2     pula
2436 935F 33              3     pulb
2437 9360 FD 0D F1        ...   std 0df1
2438 9363 F6 20 00        . .   ldab 2000
2439 9366 C4 40           .@    andb #40
2440 9368 27 37           '7    beq 37
2441 936A F6 00 1F        ...   ldab 001f
2442 936D C4 02           ..    andb #02
2443 936F 27 1F           '.    beq 1f
2444 9371 BD 97 E9        ...   jsr 97e9             ;jump147 - print the report
2445 9374 CE 00 1F        ...   ldx #001f
2446 9377 1D 00 02        ...   bclr 00,x, #02
2447 937A CE 00 1F        ...   ldx #001f
2448 937D 1D 00 10        ...   bclr 00,x, #10
2449 9380 CC 02 33        ..3   ldd #0233
2450 9383 FD 00 3B        ..;   std 003b
2451 9386 7F 00 09        ...   clr 0009
2452 9389 C6 92           ..    ldab #92
2453 938B F7 00 48        ..H   stab 0048
2454 938E 20 0F            .    bra 0f
2455 9390 F6 00 19        ...   ldab 0019
2456 9393 C4 40           .@    andb #40
2457 9395 26 05           &.    bne 05
2458 9397 BD 98 BF        ...   jsr 98bf             ;jump146
2459 939A 20 03            .    bra 03
2460 939C BD 85 AF        ...   jsr 85af             ;jump14
2461 939F 20 03            .    bra 03
2462 93A1 BD 98 FF        ...   jsr 98ff             ;jump145
2463 93A4 39              9     rts
2464
2465 jump23:
2466 ; program security code menu
2467 93A5 F6 00 1F        ...   ldab 001f
2468 93A8 C4 02           ..    andb #02
2469 93AA 26 0A           &.    bne 0a
2470 93AC F6 00 3A        ..:   ldab 003a
2471 93AF 26 2B           &+    bne 2b
2472 93B1 F6 00 1D        ...   ldab 001d
2473 93B4 2D 26           -&    blt 26
2474 93B6 CC AF BB        ...   ldd #afbb    ;"ENTER CODE"
2475 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2476 93BC CE 00 1F        ...   ldx #001f
2477 93BF 1D 00 02        ...   bclr 00,x, #02
2478 93C2 CE 00 1D        ...   ldx #001d
2479 93C5 1D 00           ..    bclr add,x 00,x
2480 93C7 80 C6           ..    suba #c6
2481 93C9 32              2     pula
2482 93CA F7 00 3A        ..:   stab 003a
2483 93CD F6 0B A8        ...   ldab 0ba8
2484 93D0 F7 00 66        ..f   stab 0066
2485 93D3 BD AA 74        ..t   jsr aa74             ;jump128
2486 93D6 7F 00 48        ..H   clr 0048
2487 93D9 7F 00 54        ..T   clr 0054
2488 93DC F6 00 09        ...   ldab 0009
2489 93DF 26 03           &.    bne 03
2490 93E1 7E 94 92        ~..   jmp 9492             ;goto14
2491 93E4 F6 00 1D        ...   ldab 001d
2492 93E7 2C 03           ,.    bge 03
2493 93E9 7E 94 92        ~..   jmp 9492             ;goto14
2494 93EC F6 00 09        ...   ldab 0009
2495 93EF C1 0B           ..    cmpb #0b
2496 93F1 26 06           &.    bne 06
2497 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2498 93F6 7E 94 90        ~..   jmp 9490             ;goto15
2499 93F9 F6 00 09        ...   ldab 0009
2500 93FC C1 0A           ..    cmpb #0a
2501 93FE 26 03           &.    bne 03
2502 9400 7F 00 09        ...   clr 0009
2503 9403 F6 00 09        ...   ldab 0009
2504 9406 CB 30           .0    addb #30
2505 9408 37              7     pshb
2506 9409 F6 00 54        ..T   ldab 0054
2507 940C 4F              O     clra
2508 940D C3 00 62        ..b   addd #0062
2509 9410 8F              .     xgdx
2510 9411 33              3     pulb
2511 9412 E7 00           ..    stab 00,x
2512 9414 BD BE 4B        ..K   jsr be4b             ;displayblank
2513 9417 F6 00 54        ..T   ldab 0054
2514 941A 26 06           &.    bne 06
2515 941C F6 00 62        ..b   ldab 0062
2516 941F F7 0B 96        ...   stab 0b96
2517 9422 F6 00 54        ..T   ldab 0054
2518 9425 C1 01           ..    cmpb #01
2519 9427 26 0C           &.    bne 0c
2520 9429 F6 00 62        ..b   ldab 0062
2521 942C F7 0B 96        ...   stab 0b96
2522 942F F6 00 63        ..c   ldab 0063
2523 9432 F7 0B 95        ...   stab 0b95
2524 9435 F6 00 54        ..T   ldab 0054
2525 9438 C1 02           ..    cmpb #02
2526 943A 26 12           &.    bne 12
2527 943C F6 00 62        ..b   ldab 0062
2528 943F F7 0B 96        ...   stab 0b96
2529 9442 F6 00 63        ..c   ldab 0063
2530 9445 F7 0B 95        ...   stab 0b95
2531 9448 F6 00 64        ..d   ldab 0064
2532 944B F7 0B 94        ...   stab 0b94
2533 944E F6 00 54        ..T   ldab 0054
2534 9451 C1 03           ..    cmpb #03
2535 9453 26 18           &.    bne 18
2536 9455 F6 00 62        ..b   ldab 0062
2537 9458 F7 0B 96        ...   stab 0b96
2538 945B F6 00 63        ..c   ldab 0063
2539 945E F7 0B 95        ...   stab 0b95
2540 9461 F6 00 64        ..d   ldab 0064
2541 9464 F7 0B 94        ...   stab 0b94
2542 9467 F6 00 65        ..e   ldab 0065
2543 946A F7 0B 93        ...   stab 0b93
2544 946D BD BE 01        ...   jsr be01             ;jump70
2545 9470 7C 00 54        |.T   inc 0054
2546 9473 F6 00 54        ..T   ldab 0054
2547 9476 C1 04           ..    cmpb #04
2548 9478 26 0B           &.    bne 0b
2549 947A CE 00 1D        ...   ldx #001d
2550 947D 1C 00           ..    bset add,x 00,x
2551 947F 80 BD           ..    suba #bd
2552 9481 A8 0F           ..    eora 0f,x
2553 9483 20 06            .    bra 06
2554 9485 CE 00 1D        ...   ldx #001d
2555 9488 1D 00           ..    bclr add,x 00,x
2556 948A 80 C6           ..    suba #c6
2557 948C 32              2     pula
2558 948D F7 00 3A        ..:   stab 003a
2559 goto15:
2560 9490 20 4A            J    bra 4a
2561 goto14:
2562 9492 F6 00 1D        ...   ldab 001d
2563 9495 2C 45           ,E    bge 45
2564 9497 F6 00 09        ...   ldab 0009
2565 949A 4F              O     clra
2566 949B BD FE 32        ..2   jsr fe32             ;jump25
2567 949E 94 B8 00 00     ....  ; array data for jump25
2568 94A2 94 BD 00 01     ....
2569 94A6 94 C2 00 04     ....
2570 94AA 94 D1 00 05     ....
2571 94AE 94 D9 00 01     ....
2572 94B2 94 DC FF F5     ....
2573 94B6 00 00           ..    ; end of array data
2574 94B8 BD 9E 0F        ...   jsr 9e0f             ;jump142
2575 94BB 20 1F            .    bra 1f
2576 94BD BD A7 1F        ...   jsr a71f             ;jump134
2577 94C0 20 1A            .    bra 1a
2578 94C2 7C 00 48        |.H   inc 0048
2579 94C5 F6 00 48        ..H   ldab 0048
2580 94C8 C1 0A           ..    cmpb #0a
2581 94CA 23 03           #.    bls 03
2582 94CC 7F 00 48        ..H   clr 0048
2583 94CF 20 0B            .    bra 0b
2584 94D1 BD A5 FE        ...   jsr a5fe             ;jump136
2585 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2586 94D7 20 03            .    bra 03
2587 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2588 94DC 39              9     rts
2589
2590 jump24:
2591 ; motor functions menu
2592 94DD F6 00 1F        ...   ldab 001f
2593 94E0 C4 02           ..    andb #02
2594 94E2 27 14           '.    beq 14
2595 94E4 CE 00 1F        ...   ldx #001f
2596 94E7 1D 00 02        ...   bclr 00,x, #02
2597 94EA CE 00 19        ...   ldx #0019
2598 94ED 1C 00 80        ..    bset 00,x, #80
2599 94EF 7F 00 09        ..    clr 0009
2600 94F3 7F 00 0A        ...   clr 000a
2601 94F6 20 46            F    bra 46
2602 94F8 F6 00 09        ...   ldab 0009
2603 94FB 4F              O     clra
2604 94FC BD FE 32        ..2   jsr fe32             ;jump25
2605 94FF 95 19 00 00     ....  ; no key
2606 9503 95 21 00 01     .!..  ; key 1 - motor count procedure
2607 9507 95 2C 00 01     .,..  ; key 2 - single test vend
2608 950B 95 30 00 01     .0..  ; key 3 - test vend everything
2609 950F 95 35 00 08     .5..  ; reset
2610 9513 95 38 FF F5     .8..
2611 9517 00 00           ..    ; end of array data
2612 9519 CC B0 A2        ...   ldd #b0a2    ; "MTR FUNCT?"
2613 951C BD C0 BA        ...   jsr c0ba             ;display:
2614 951F 20 1D            .    bra 1d
2615 9521 BD 87 E9        ...   jsr 87e9             ;jump74 - motor count procedure
2616 9524 CE 00 1F        ...   ldx #001f
2617 9527 1C 00 02        ...   bset 00,x, #02
2618 952A 20 12            .    bra 12
2619 952C 8D 11           ..    bsr dest 11  ;jump203 - test single vend
2620 952E 20 0E            .    bra 0e
2621 9530 BD 96 88        ...   jsr 9688             ;jump148 - test all vends
2622 9533 20 09            .    bra 09
2623 9535 BD 85 AF        ...   jsr 85af             ;jump14
2624 9538 7F 00 09        ...   clr 0009
2625 953B 7F 00 0A        ...   clr 000a
2626 953E 39              9     rts
2627
2628 jump203:
2629 ; test a single vend
2630 953F F6 00 19        ...   ldab 0019
2631 9542 2D 0A           -.    blt 0a
2632 9544 F6 00 3A        ..:   ldab 003a
2633 9547 26 22           &"    bne 22
2634 9549 F6 00 1D        ...   ldab 001d
2635 954C 2D 1D           -.    blt 1d
2636 954E 7F 00 2C        ..,   clr 002c
2637 9551 CC B0 B8        ...   ldd #b0b8    ; "SELECTION?"
2638 9554 BD C0 BA        ...   jsr c0ba             ;display:
2639 9557 CE 00 19        ...   ldx #0019
2640 955A 1D 00 80        ..    bclr 00,x, #80
2641 955D CE 00 1D        ..    ldx #001d
2642 9560 1D 00 80        ...   bclr 00,x, #80
2643 9562 7F 00 54        ..    clr 0054
2644 9566 C6 32           .2    ldab #32
2645 9568 F7 00 3A        ..:   stab 003a
2646 956B F6 00 0A        ...   ldab 000a
2647 956E 26 03           &.    bne 03
2648 9570 7E 96 5C        ~.\   jmp 965c             ;goto16
2649 9573 F6 00 1D        ...   ldab 001d
2650 9576 2C 03           ,.    bge 03
2651 9578 7E 96 5C        ~.\   jmp 965c             ;goto16
2652 957B F6 00 0A        ...   ldab 000a
2653 957E C1 0B           ..    cmpb #0b
2654 9580 26 09           &.    bne 09
2655 9582 CE 00 1F        ...   ldx #001f
2656 9585 1C 00 02        ...   bset 00,x, #02
2657 9588 7E 96 5A        ~.Z   jmp 965a             ;goto93
2658 958B F6 00 54        ..T   ldab 0054
2659 958E 26 26           &&    bne 26
2660 9590 BD BE 4B        ..K   jsr be4b             ;displayblank
2661 9593 F6 00 0A        ...   ldab 000a
2662 9596 C1 0A           ..    cmpb #0a
2663 9598 26 03           &.    bne 03
2664 959A 7F 00 0A        ...   clr 000a
2665 959D F6 00 0A        ...   ldab 000a
2666 95A0 CB 30           .0    addb #30
2667 95A2 37              7     pshb
2668 95A3 CC 0B 95        ...   ldd #0b95
2669 95A6 F0 00 54        ..T   subb 0054
2670 95A9 82 00           ..    sbca #00
2671 95AB 8F              .     xgdx
2672 95AC 33              3     pulb
2673 95AD E7 00           ..    stab 00,x
2674 95AF C6 32           .2    ldab #32
2675 95B1 F7 00 3A        ..:   stab 003a
2676 95B4 20 37            7    bra 37
2677 95B6 F6 00 54        ..T   ldab 0054
2678 95B9 C1 01           ..    cmpb #01
2679 95BB 26 27           &'    bne 27
2680 95BD F6 00 0A        ...   ldab 000a
2681 95C0 C1 05           ..    cmpb #05
2682 95C2 27 20           '     beq 20
2683 95C4 F6 00 0A        ...   ldab 000a
2684 95C7 C1 0A           ..    cmpb #0a
2685 95C9 27 19           '.    beq 19
2686 95CB F6 00 0A        ...   ldab 000a
2687 95CE CB 30           .0    addb #30
2688 95D0 37              7     pshb
2689 95D1 CC 0B 95        ...   ldd #0b95
2690 95D4 F0 00 54        ..T   subb 0054
2691 95D7 82 00           ..    sbca #00
2692 95D9 8F              .     xgdx
2693 95DA 33              3     pulb
2694 95DB E7 00           ..    stab 00,x
2695 95DD C6 32           .2    ldab #32
2696 95DF F7 00 3A        ..:   stab 003a
2697 95E2 20 09            .    bra 09
2698 95E4 CE 00 19        ...   ldx #0019
2699 95E7 1C 00 80        ..    bset 00,x, #80
2700 95E9 7F 00 3A        ..    clr 003a
2701 95ED BD BE 01        ...   jsr be01             ;jump70
2702 95F0 7C 00 54        |.T   inc 0054
2703 95F3 F6 00 54        ..T   ldab 0054
2704 95F6 C1 02           ..    cmpb #02
2705 95F8 26 5A           &Z    bne 5a
2706 95FA CE 00 1D        ...   ldx #001d
2707 95FD 1C 00           ..    bset add,x 00,x
2708 95FF 80 F6           ..    suba #f6
2709 9601 0B              .     sev
2710 9602 94 CB D0        ...   anda cb
2711 9605 37              7     pshb
2712 9606 F6 0B 95        ...   ldab 0b95
2713 9609 CB D0           ..    addb #d0
2714 960B 86 0A           ..    ldaa #0a
2715 960D 3D              =     mul
2716 960E 30              0     tsx
2717 960F EB 00           ..    addb 00,x
2718 9611 31              1     ins
2719 9612 F7 00 06        ...   stab 0006
2720 9615 C6 32           .2    ldab #32
2721 9617 F7 00 3A        ..:   stab 003a
2722 961A F6 00 06        ...   ldab 0006
2723 961D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2724 9620 83 00 00        ...   subd #0000
2725 9623 26 21           &!    bne 21
2726 9625 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2727 9628 83 00 00        ...   subd #0000
2728 962B 26 0B           &.    bne 0b       ; to 9638
2729 962D CE 00 1F        ...   ldx #001f
2730 9630 1C 00 40        ...   bset 00,x, #40  ; denotes an invalid slot or unmarked price? (fills display with XXX.XX)
2731 9633 BD 8C 73        ..s   jsr 8c73             ;jump75 - fetch slot info
2732 9636 20 06            .    bra 06       ; to 963e
2733 9638 CE 00 1F        ...   ldx #001f
2734 963B 1D 00 40        ...   bclr 00,x, #40
2735 963E 7F 00 2C        ..,   clr 002c
2736 9641 BD 9A 47        ..G   jsr 9a47             ;jump39 - display price on screen
2737 9644 20 0C            .    bra 0c
2738 9646 CE 00 1D        ...   ldx #001d
2739 9649 1D 00 80        ..    bclr 00,x, #80
2740 964C CE 00 19        ..    ldx #0019
2741 964F 1C 00 80        ..    bset 00,x, #80
2742 9652 20 06           .     bra 06
2743 9654 CE 00 1D        ...   ldx #001d
2744 9657 1D 00 80        ..    bclr 00,x, #80
2745 goto93:
2746 965A 20 2B           .     bra 2b
2747 goto16:
2748 965C F6 00 1D        +.    ldab 001d
2749 965F 2C 26           .,    bge 26
2750 9661 BD D2 13        &.    jsr d213     ;jump45 - vend it!
2751 9664 83 00 00        ...   subd #0000
2752 9667 26 0F           &.    bne 0f
2753 9669 CC 00 64        ..d   ldd #0064
2754 966C BD E5 71        ..q   jsr e571             ;msdelay
2755 966F BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
2756 9672 CC 03 84        ...   ldd #0384    ; 900
2757 9675 BD E5 71        ..q   jsr e571             ;msdelay
2758 9678 7F 00 2E        ...   clr 002e
2759 967B CE 00 1D        ...   ldx #001d
2760 967E 1D 00 80        ..    bclr 00,x, #80
2761 9680 CE 00 1F        ..    ldx #001f
2762 9683 1C 00 02        ...   bset 00,x #02
2763 9687 39              9     rts
2764
2765 jump148:
2766 ;tests all vends
2767 9688 34              4     des
2768 9689 F6 00 19        ...   ldab 0019
2769 968C 2C 19           ,.    bge 19
2770 968E CE 00 19        ...   ldx #0019
2771 9691 1D 00 80        ..    bclr 00,x, #80
2772 9694 CC B0 97        ...   ldd #b097   ; "TEST  VEND"
2773 9697 BD C0 BA        ...   jsr c0ba    ; display
2774 969A C6 0A           ..    ldab #0a
2775 969C F7 00 38        ..8   stab 0038
2776 969F 7F 00 05        ...   clr 0005
2777 96A2 C6 01           ..    ldab #01
2778 96A4 F7 00 06        ...   stab 0006
2779 96A7 F6 00 0A        ...   ldab 000a
2780 96AA C1 0B           ..    cmpb #0b
2781 96AC 26 0C           &.    bne 0c      ; to 96ba
2782 96AE CC 02 33        ..3   ldd #0233
2783 96B1 FD 00 3B        ..;   std 003b
2784 96B4 CE 00 1F        ...   ldx #001f
2785 96B7 1C 00 02        ...   bset 00,x, #02
2786 96BA F6 00 38        ..8   ldab 0038
2787 96BD 27 03           '.    beq 03
2788 96BF 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2789 96C2 F6 00 06        ...   ldab 0006
2790 96C5 C1 63           .c    cmpb #63     ; exit if >63
2791 96C7 23 03           #.    bls 03
2792 96C9 7E 97 6D        ~.m   jmp 976d             ;goto17 - return
2793 96CC F6 00 06        ...   ldab 0006
2794 96CF C1 63           .c    cmpb #63
2795 96D1 26 0F           &.    bne 0f
2796 96D3 BD 99 C3        ...   jsr 99c3             ;jump143 - write "VENDS XXX" (from 0005)
2797 96D6 CC 07 D0        ...   ldd #07d0    ; 2000
2798 96D9 BD E5 71        ..q   jsr e571             ;msdelay
2799 96DC CE 00 1F        ...   ldx #001f
2800 96DF 1C 00 02        ...   bset 00,x, #02
2801 96E2 BD D3 11        ...   jsr d311             ;jump30 - test position exists
2802 96E5 83 00 00        ...   subd #0000
2803 96E8 26 0B           &.    bne 0b
2804 96EA CE 00 1F        ...   ldx #001f
2805 96ED 1C 00 40        ...   bset 00,x, #40
2806 96F0 BD 8C 73        ..s   jsr 8c73             ;jump75
2807 96F3 20 06            .    bra 06
2808 96F5 CE 00 1F        ...   ldx #001f
2809 96F8 1D 00 40        ...   bclr 00,x, #40
2810 96FB BD 9A 47        ..G   jsr 9a47             ;jump39
2811 96FE F6 00 06        ...   ldab 0006
2812 9701 C1 63           .c    cmpb #63
2813 9703 26 03           &.    bne 03
2814 9705 7F 00 2C        ..,   clr 002c
2815 9708 BD D2 13        ...   jsr d213             ;jump45 - vend it!
2816 970B 83 00 00        ...   subd #0000
2817 970E 27 03           '.    beq 03
2818 9710 7C 00 05        |..   inc 0005
2819 9713 7F 00 2E        ...   clr 002e
2820 9716 C6 05           ..    ldab #05
2821 9718 F7 00 38        ..8   stab 0038
2822 971B CC 02 33        ..3   ldd #0233
2823 971E FD 00 3B        ..;   std 003b
2824 9721 30              0     tsx
2825 9722 6F 00           o.    clr 00,x
2826 9724 F6 0E 6D        ..m   ldab 0e6d
2827 9727 27 0C           '.    beq 0c
2828 9729 F6 00 06        ...   ldab 0006
2829 972C C1 3E           .>    cmpb #3e
2830 972E 26 05           &.    bne 05
2831 9730 C6 01           ..    ldab #01
2832 9732 30              0     tsx
2833 9733 E7 00           ..    stab 00,x
2834 9735 8D 38           .8    bsr dest 38
2835 9737 F6 0E 6D        ..m   ldab 0e6d
2836 973A 27 0C           '.    beq 0c
2837 973C 30              0     tsx
2838 973D E6 00           ..    ldab 00,x
2839 973F C1 01           ..    cmpb #01
2840 9741 26 05           &.    bne 05
2841 9743 C6 45           .E    ldab #45
2842 9745 F7 00 06        ...   stab 0006
2843 9748 F6 00 06        ...   ldab 0006
2844 974B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
2845 974E 83 00 00        ...   subd #0000
2846 9751 27 15           '.    beq 15
2847 9753 F6 00 06        ...   ldab 0006
2848 9756 C1 09           ..    cmpb #09
2849 9758 26 02           &.    bne 02
2850 975A 8D 13           ..    bsr dest 13
2851 975C F6 00 06        ...   ldab 0006
2852 975F C1 45           .E    cmpb #45
2853 9761 26 05           &.    bne 05
2854 9763 C6 63           .c    ldab #63
2855 9765 F7 00 06        ...   stab 0006
2856 9768 5F              _     clrb
2857 9769 4F              O     clra
2858 976A FD 00 40        ..@   std 0040
2859 goto17:
2860 976D 31              1     ins
2861 976E 39              9     rts
2862
2863 jump41:
2864 976F F6 0E 6D        ..m   ldab 0e6d
2865 9772 C1 01           ..    cmpb #01
2866 9774 26 41           &A    bne 41
2867 9776 F6 00 06        ...   ldab 0006
2868 9779 4F              O     clra
2869 977A CE 00 0A        ...   ldx #000a
2870 977D 02              .     idiv
2871 977E C1 01           ..    cmpb #01
2872 9780 26 05           &.    bne 05
2873 9782 7C 00 06        |..   inc 0006
2874 9785 20 1B            .    bra 1b
2875 9787 F6 00 06        ...   ldab 0006
2876 978A 4F              O     clra
2877 978B CE 00 0A        ...   ldx #000a
2878 978E 02              .     idiv
2879 978F C1 02           ..    cmpb #02
2880 9791 26 0A           &.    bne 0a
2881 9793 C6 09           ..    ldab #09
2882 9795 FB 00 06        ...   addb 0006
2883 9798 F7 00 06        ...   stab 0006
2884 979B 20 05            .    bra 05
2885 979D C6 0B           ..    ldab #0b
2886 979F F7 00 06        ...   stab 0006
2887 97A2 F6 00 06        ...   ldab 0006
2888 97A5 C1 3E           .>    cmpb #3e
2889 97A7 22 07           ".    bhi 07
2890 97A9 F6 00 06        ...   ldab 0006
2891 97AC C1 0B           ..    cmpb #0b
2892 97AE 24 05           $.    bcc 05
2893 97B0 C6 0B           ..    ldab #0b
2894 97B2 F7 00 06        ...   stab 0006
2895 97B5 20 31            1    bra 31
2896 97B7 F6 00 06        ...   ldab 0006
2897 97BA CB 0A           ..    addb #0a
2898 97BC F7 00 06        ...   stab 0006
2899 97BF F6 00 06        ...   ldab 0006
2900 97C2 C1 64           .d    cmpb #64
2901 97C4 23 22           #"    bls 22
2902 97C6 F6 00 06        ...   ldab 0006
2903 97C9 CB 9C           ..    addb #9c
2904 97CB CB 01           ..    addb #01
2905 97CD F7 00 06        ...   stab 0006
2906 97D0 F6 00 06        ...   ldab 0006
2907 97D3 C1 05           ..    cmpb #05
2908 97D5 26 05           &.    bne 05
2909 97D7 C6 06           ..    ldab #06
2910 97D9 F7 00 06        ...   stab 0006
2911 97DC F6 00 06        ...   ldab 0006
2912 97DF C1 0A           ..    cmpb #0a
2913 97E1 26 05           &.    bne 05
2914 97E3 C6 01           ..    ldab #01
2915 97E5 F7 00 06        ...   stab 0006
2916 97E8 39              9     rts
2917
2918 jump147:
2919 97E9 BD BE 4B        ..K   jsr be4b             ;displayblank
2920 97EC CC AF E7        ...   ldd #afe7    ; "-PRINTING-"
2921 97EF BD C0 BA        ...   jsr c0ba             ;display:
2922 97F2 BD F4 15        ...   jsr f415             ;jump112 - print a report
2923 97F5 39              9     rts
2924
2925 jump27:
2926 97F6 BD BE 4B        ..K   jsr be4b             ;displayblank
2927 97F9 F6 00 48        ..H   ldab 0048
2928 97FC 4F              O     clra
2929 97FD BD FE 16        ...   jsr fe16             ;jump2
2930 9800 00 01 00 03     .     test
2931 9804 98 80           ..
2932 9806 98 0E           ..
2933 9808 98 2B           ..
2934 980A 98 48           ..
2935 980C 98 65           ..
2936 980E F6 0C D9        ..    ldab 0cd9
2937 9811 4F              .     clra
2938 9812 BD E7 95        ...   jsr e795      ;jump54 - number to string
2939 9815 C6 4E           .N    ldab #4e
2940 9817 F7 0B 99        ...   stab 0b99
2941 981A C6 49           .I    ldab #49
2942 981C F7 0B 98        ...   stab 0b98
2943 981F C6 4B           .K    ldab #4b
2944 9821 F7 0B 97        ...   stab 0b97
2945 9824 C6 4C           .L    ldab #4c
2946 9826 F7 0B 96        ...   stab 0b96
2947 9829 20 55            U    bra 55
2948 982B F6 0C DA        ...   ldab 0cda
2949 982E 4F              O     clra
2950 982F BD E7 95        ...   jsr e795             ;jump54 - number to string
2951 9832 C6 44           .D    ldab #44
2952 9834 F7 0B 99        ...   stab 0b99
2953 9837 C6 49           .I    ldab #49
2954 9839 F7 0B 98        ...   stab 0b98
2955 983C C6 4D           .M    ldab #4d
2956 983E F7 0B 97        ...   stab 0b97
2957 9841 C6 45           .E    ldab #45
2958 9843 F7 0B 96        ...   stab 0b96
2959 9846 20 38            8    bra 38
2960 9848 F6 0C DB        ...   ldab 0cdb
2961 984B 4F              O     clra
2962 984C BD E7 95        ...   jsr e795             ;jump54 - number to string
2963 984F C6 51           .Q    ldab #51
2964 9851 F7 0B 99        ...   stab 0b99
2965 9854 C6 55           .U    ldab #55
2966 9856 F7 0B 98        ...   stab 0b98
2967 9859 C6 54           .T    ldab #54
2968 985B F7 0B 97        ...   stab 0b97
2969 985E C6 52           .R    ldab #52
2970 9860 F7 0B 96        ...   stab 0b96
2971 9863 20 1B            .    bra 1b
2972 9865 F6 0C DC        ...   ldab 0cdc
2973 9868 4F              O     clra
2974 9869 BD E7 95        ...   jsr e795             ;jump54 - number to string
2975 986C C6 44           .D    ldab #44     ; "D"
2976 986E F7 0B 99        ...   stab 0b99
2977 9871 C6 4F           .O    ldab #4f     ; "O"
2978 9873 F7 0B 98        ...   stab 0b98
2979 9876 C6 4C           .L    ldab #4c     ; "L"
2980 9878 F7 0B 97        ...   stab 0b97
2981 987B C6 52           .R    ldab #52     ; "R"
2982 987D F7 0B 96        ...   stab 0b96
2983 9880 C6 53           .S    ldab #53     ; "S"
2984 9882 F7 0B 95        ...   stab 0b95
2985 9885 C6 20           .     ldab #20     ; " "
2986 9887 F7 0B 94        ...   stab 0b94
2987 988A C6 20           .     ldab #20     ; " "
2988 988C F7 0B 93        ...   stab 0b93
2989 988F F6 00 5D        ..]   ldab 005d
2990 9892 F7 0B 92        ...   stab 0b92
2991 9895 F6 00 5E        ..^   ldab 005e    ; row number?
2992 9898 F7 0B 91        ...   stab 0b91
2993 989B F6 00 5F        .._   ldab 005f    ; column number?
2994 989E F7 0B 90        ...   stab 0b90
2995 98A1 BD BE 01        ...   jsr be01             ;jump70 - to disp buffer
2996 98A4 39              9     rts
2997
2998 jump11:
2999 ; prints contents of 0054 to display
3000 98A5 BD BE 4B        ..K   jsr be4b             ;displayblank
3001 98A8 F6 00 54        ..T   ldab 0054
3002 98AB 4F              O     clra
3003 98AC BD E7 95        ...   jsr e795             ; slot number to digits
3004 98AF F6 00 5E        ..^   ldab 005e
3005 98B2 F7 0B 95        ...   stab 0b95
3006 98B5 F6 00 5F        .._   ldab 005f
3007 98B8 F7 0B 94        ...   stab 0b94
3008 98BB BD BE 01        ...   jsr be01             ;jump70 - write to display
3009 98BE 39              9     rts
3010
3011 jump146:
3012 98BF F6 00 09        ...   ldab 0009
3013 98C2 C1 00           ..    cmpb #00
3014 98C4 26 05           &.    bne 05
3015 98C6 BD 9E 89        ...   jsr 9e89             ;jump100
3016 98C9 20 33            3    bra 33
3017 98CB C1 01           ..    cmpb #01
3018 98CD 26 1E           &.    bne 1e
3019 98CF F6 00 48        ..H   ldab 0048
3020 98D2 C1 92           ..    cmpb #92
3021 98D4 26 15           &.    bne 15
3022 98D6 F6 00 1F        ...   ldab 001f
3023 98D9 C4 10           ..    andb #10
3024 98DB 26 08           &.    bne 08
3025 98DD CE 00 1F        ...   ldx #001f
3026 98E0 1C 00 10        ...   bset 00,x, #10
3027 98E3 20 06            .    bra 06
3028 98E5 CE 00 1F        ...   ldx #001f
3029 98E8 1D 00 10        ...   bclr 00,x, #10
3030 98EB 20 11            .    bra 11
3031 98ED C1 0B           ..    cmpb #0b
3032 98EF 26 0D           &.    bne 0d
3033 98F1 F6 00 1F        ...   ldab 001f
3034 98F4 C4 10           ..    andb #10
3035 98F6 27 03           '.    beq 03
3036 98F8 BD E9 2B        ..+   jsr e92b             ;jump103
3037 98FB BD 85 AF        ...   jsr 85af             ;jump14
3038 98FE 39              9     rts
3039
3040 jump145:
3041 98FF F6 00 1F        ...   ldab 001f
3042 9902 C4 02           ..    andb #02
3043 9904 27 13           '.    beq 13
3044 9906 C6 01           ..    ldab #01
3045 9908 F7 00 48        ..H   stab 0048
3046 990B CE 00 1F        ...   ldx #001f
3047 990E 1D 00 10        ...   bclr 00,x, #10
3048 9911 CE 00 1F        ...   ldx #001f
3049 9914 1D 00 02        ...   bclr 00,x, #02
3050 9917 20 67            g    bra 67
3051 9919 F6 00 09        ...   ldab 0009
3052 991C 4F              O     clra
3053 991D BD FE 32        ..2   jsr fe32             ;jump25
3054 9920 99 36 00 00     .6..  ; array data for jump25
3055 9924 99 3B 00 01     .;..
3056 9928 99 59 00 09     .Y..
3057 992C 99 73 00 01     .s..
3058 9930 99 80 FF F5     ....
3059 9934 00 00           ..    ; end of array data
3060 9936 BD 9E 89        ...   jsr 9e89             ;jump100
3061 9939 20 45            E    bra 45
3062 993B F6 00 48        ..H   ldab 0048
3063 993E C1 92           ..    cmpb #92
3064 9940 26 15           &.    bne 15
3065 9942 F6 00 1F        ...   ldab 001f
3066 9945 C4 10           ..    andb #10
3067 9947 26 08           &.    bne 08
3068 9949 CE 00 1F        ...   ldx #001f
3069 994C 1C 00 10        ...   bset 00,x, #10
3070 994F 20 06            .    bra 06
3071 9951 CE 00 1F        ...   ldx #001f
3072 9954 1D 00 10        ...   bclr 00,x, #10
3073 9957 20 27            '    bra 27
3074 9959 7C 00 48        |.H   inc 0048
3075 995C F6 00 48        ..H   ldab 0048
3076 995F C1 92           ..    cmpb #92
3077 9961 23 0B           #.    bls 0b
3078 9963 C6 01           ..    ldab #01
3079 9965 F7 00 48        ..H   stab 0048
3080 9968 CE 00 1F        ...   ldx #001f
3081 996B 1D 00 10        ...   bclr 00,x, #10
3082 996E BD 9E 89        ...   jsr 9e89             ;jump100
3083 9971 20 0D            .    bra 0d
3084 9973 F6 00 1F        ...   ldab 001f
3085 9976 C4 10           ..    andb #10
3086 9978 27 03           '.    beq 03
3087 997A BD E9 2B        ..+   jsr e92b             ;jump103
3088 997D BD 85 AF        ...   jsr 85af             ;jump14
3089 9980 39              9     rts
3090
3091 jump144:
3092 ; writes "MOTORS XX" where XX is the slot number in 0005
3093 9981 BD BE 4B        ..K   jsr be4b             ;displayblank
3094 9984 F6 00 05        ...   ldab 0005
3095 9987 4F              O     clra
3096 9988 BD E7 95        ...   jsr e795             ;jump54 - number to string
3097 998B C6 4D           .M    ldab #4d     ; "M"
3098 998D F7 0B 99        ...   stab 0b99
3099 9990 C6 4F           .O    ldab #4f     ; "O"
3100 9992 F7 0B 98        ...   stab 0b98
3101 9995 C6 54           .T    ldab #54     ; "T"
3102 9997 F7 0B 97        ...   stab 0b97
3103 999A C6 4F           .O    ldab #4f     ; "O"
3104 999C F7 0B 96        ...   stab 0b96
3105 999F C6 52           .R    ldab #52     ; "R"
3106 99A1 F7 0B 95        ...   stab 0b95
3107 99A4 C6 53           .S    ldab #53     ; "S"
3108 99A6 F7 0B 94        ...   stab 0b94
3109 99A9 C6 20           .     ldab #20     ; " "
3110 99AB F7 0B 93        ...   stab 0b93
3111 99AE C6 20           .     ldab #20     ; " "
3112 99B0 F7 0B 92        ...   stab 0b92
3113 99B3 F6 00 5E        ..^   ldab 005e
3114 99B6 F7 0B 91        ...   stab 0b91
3115 99B9 F6 00 5F        .._   ldab 005f
3116 99BC F7 0B 90        ...   stab 0b90
3117 99BF BD BE 01        ...   jsr be01             ;jump70 - display
3118 99C2 39              9     rts
3119
3120 jump143:
3121 ; writes VENDS XX where XX is contents of 0005
3122 99C3 BD BE 4B        ..K   jsr be4b             ;displayblank
3123 99C6 F6 00 05        ...   ldab 0005
3124 99C9 4F              O     clra
3125 99CA BD E7 95        ...   jsr e795             ;jump54 - number to string
3126 99CD C6 56           .V    ldab #56     ; "V"
3127 99CF F7 0B 99        ...   stab 0b99
3128 99D2 C6 45           .E    ldab #45     ; "E"
3129 99D4 F7 0B 98        ...   stab 0b98
3130 99D7 C6 4E           .N    ldab #4e     ; "N"
3131 99D9 F7 0B 97        ...   stab 0b97
3132 99DC C6 44           .D    ldab #44     ; "D"
3133 99DE F7 0B 96        ...   stab 0b96
3134 99E1 C6 53           .S    ldab #53     ; "S"
3135 99E3 F7 0B 95        ...   stab 0b95
3136 99E6 C6 20           .     ldab #20     ; " "
3137 99E8 F7 0B 94        ...   stab 0b94
3138 99EB C6 20           .     ldab #20     ; " "
3139 99ED F7 0B 93        ...   stab 0b93
3140 99F0 C6 20           .     ldab #20     ; " "
3141 99F2 F7 0B 92        ...   stab 0b92
3142 99F5 F6 00 5E        ..^   ldab 005e
3143 99F8 F7 0B 91        ...   stab 0b91
3144 99FB F6 00 5F        .._   ldab 005f
3145 99FE F7 0B 90        ...   stab 0b90
3146 9A01 BD BE 01        ...   jsr be01             ;jump70
3147 9A04 39              9     rts
3148
3149 jump102:
3150 9A05 BD BE 4B        ..K   jsr be4b             ;displayblank
3151 9A08 FC 00 52        ..R   ldd 0052
3152 9A0B BD E7 45        ..E   jsr e745             ;jump55 - number to string
3153 9A0E C6 4F           .O    ldab #4f     ; "O"
3154 9A10 F7 0B 99        ...   stab 0b99
3155 9A13 C6 44           .D    ldab #44     ; "D"
3156 9A15 F7 0B 98        ...   stab 0b98
3157 9A18 C6 44           .D    ldab #44     ; "D"
3158 9A1A F7 0B 97        ...   stab 0b97
3159 9A1D C6 53           .S    ldab #53     ; "S"
3160 9A1F F7 0B 96        ...   stab 0b96
3161 9A22 C6 20           .     ldab #20     ; " "
3162 9A24 F7 0B 95        ...   stab 0b95
3163 9A27 C6 31           .1    ldab #31     ; "1"
3164 9A29 F7 0B 94        ...   stab 0b94
3165 9A2C C6 2F           ./    ldab #2f     ; "/"
3166 9A2E F7 0B 93        ...   stab 0b93
3167 9A31 F6 00 5D        ..]   ldab 005d
3168 9A34 F7 0B 92        ...   stab 0b92
3169 9A37 F6 00 5E        ..^   ldab 005e
3170 9A3A F7 0B 91        ...   stab 0b91
3171 9A3D F6 00 5F        .._   ldab 005f
3172 9A40 F7 0B 90        ...   stab 0b90
3173 9A43 BD BE 01        ...   jsr be01             ;jump70
3174 9A46 39              9     rts
3175
3176 jump39:
3177 ; write a slot, price, etc to screen.
3178 9A47 BD BE 4B        ..K   jsr be4b             ;displayblank
3179 9A4A F6 00 06        ...   ldab 0006
3180 9A4D 4F              O     clra
3181 9A4E BD E7 95        ...   jsr e795             ;jump54 - number to string
3182 9A51 F6 00 5E        ..^   ldab 005e
3183 9A54 F7 0B 99        ...   stab 0b99
3184 9A57 F6 00 5F        .._   ldab 005f
3185 9A5A F7 0B 98        ...   stab 0b98
3186 9A5D C6 20           .     ldab #20
3187 9A5F F7 0B 97        ...   stab 0b97
3188 9A62 F6 00 1F        ...   ldab 001f
3189 9A65 C4 40           .@    andb #40
3190 9A67 27 45           'E    beq 45       ; to 9aae
3191 9A69 FC 00 27        ..'   ldd 0027
3192 9A6C BD E7 45        ..E   jsr e745             ;jump55 - number to string
3193 9A6F F6 00 5A        ..Z   ldab 005a
3194 9A72 F7 0B 96        ...   stab 0b96
3195 9A75 F6 00 5D        ..]   ldab 005d
3196 9A78 F7 0B 95        ...   stab 0b95
3197 9A7B F6 00 5E        ..^   ldab 005e
3198 9A7E F7 0B 94        ...   stab 0b94
3199 9A81 F6 00 5F        .._   ldab 005f
3200 9A84 F7 0B 93        ...   stab 0b93
3201 9A87 F6 00 19        ...   ldab 0019
3202 9A8A C4 10           ..    andb #10
3203 9A8C 27 07           '.    beq 07
3204 9A8E C6 2A           .*    ldab #2a     ; '*'
3205 9A90 F7 0B 92        ...   stab 0b92
3206 9A93 20 05            .    bra 05
3207 9A95 C6 20           .     ldab #20
3208 9A97 F7 0B 92        ...   stab 0b92
3209 9A9A FC 00 46        ..F   ldd 0046
3210 9A9D BD E7 45        ..E   jsr e745             ;jump55 - number to string
3211 9AA0 F6 00 5E        ..^   ldab 005e
3212 9AA3 F7 0B 91        ...   stab 0b91
3213 9AA6 F6 00 5F        .._   ldab 005f
3214 9AA9 F7 0B 90        ...   stab 0b90
3215 9AAC 20 1E            .    bra 1e       ; to 9acc
3216 ;
3217 9AAE C6 58           .X    ldab #58   ; "X"
3218 9AB0 F7 0B 96        ...   stab 0b96
3219 9AB3 C6 58           .X    ldab #58   ; "X"
3220 9AB5 F7 0B 95        ...   stab 0b95
3221 9AB8 C6 58           .X    ldab #58   ; "X"
3222 9ABA F7 0B 94        ...   stab 0b94
3223 9ABD C6 58           .X    ldab #58   ; "X"
3224 9ABF F7 0B 93        ...   stab 0b93
3225 9AC2 C6 58           .X    ldab #58   ; "X"
3226 9AC4 F7 0B 91        ...   stab 0b91
3227 9AC7 C6 58           .X    ldab #58   ; "X"
3228 9AC9 F7 0B 90        ...   stab 0b90
3229 ;
3230 9ACC F6 00 13        ...   ldab 0013
3231 9ACF C1 01           ..    cmpb #01
3232 9AD1 23 4C           #L    bls 4c     ; to 9b1f
3233 9AD3 F6 0B 91        ...   ldab 0b91
3234 9AD6 F7 0B 90        ...   stab 0b90
3235 9AD9 F6 0B 92        ...   ldab 0b92
3236 9ADC F7 0B 91        ...   stab 0b91
3237 9ADF F6 0B 93        ...   ldab 0b93
3238 9AE2 F7 0B 92        ...   stab 0b92
3239 9AE5 F6 0B 94        ...   ldab 0b94
3240 9AE8 F7 0B 93        ...   stab 0b93
3241 9AEB F6 00 13        ...   ldab 0013
3242 9AEE C1 02           ..    cmpb #02
3243 9AF0 26 07           &.    bne 07
3244 9AF2 C6 2E           ..    ldab #2e   ; "."
3245 9AF4 F7 0B 94        ...   stab 0b94
3246 9AF7 20 26            &    bra 26     ; to 9b1f
3247 9AF9 C1 04           ..    cmpb #04
3248 9AFB 26 0D           &.    bne 0d
3249 9AFD F6 0B 95        ...   ldab 0b95
3250 9B00 F7 0B 94        ...   stab 0b94
3251 9B03 C6 2E           ..    ldab #2e   ; "."
3252 9B05 F7 0B 95        ...   stab 0b95
3253 9B08 20 15            .    bra 15
3254 9B0A C1 08           ..    cmpb #08
3255 9B0C 26 11           &.    bne 11
3256 9B0E F6 0B 95        ...   ldab 0b95
3257 9B11 F7 0B 94        ...   stab 0b94
3258 9B14 F6 0B 96        ...   ldab 0b96
3259 9B17 F7 0B 95        ...   stab 0b95
3260 9B1A C6 2E           ..    ldab #2e
3261 9B1C F7 0B 96        ...   stab 0b96
3262 ;
3263 9B1F F6 00 2C        ..,   ldab 002c
3264 9B22 26 3E           &>    bne 3e
3265 9B24 BD BE 69        ..i   jsr be69             ;displayreset
3266 95EB 00              .     test
3267 95EC 3A              :     abx
3268 9B27 F6 00 13        ...   ldab 0013
3269 9B2A C1 01           ..    cmpb #01
3270 9B2C 23 2C           #,    bls 2c
3271 9B2E CE 10 28        ..(   ldx #1028
3272 9B31 1C 00 40        ...   bset 00,x, #40 ; enable SPI
3273 9B34 F6 00 1F        ...   ldab 001f
3274 9B37 C4 40           .@    andb #40
3275 9B39 27 0E           '.    beq 0e
3276 9B3B CE 00 01        ...   ldx #0001
3277 9B3E 3C              <     pshx
3278 9B3F F6 00 5F        .._   ldab 005f
3279 9B42 4F              O     clra
3280 9B43 BD BD B5        ...   jsr bdb5             ;jump78
3281 9B46 38              8     pulx
3282 9B47 20 0B            .    bra 0b
3283 9B49 CE 00 01        ...   ldx #0001
3284 9B4C 3C              <     pshx
3285 9B4D CC 00 58        ..X   ldd #0058    ; 'X'
3286 9B50 BD BD B5        ...   jsr bdb5             ;jump78
3287 9B53 38              8     pulx
3288 9B54 CE 10 28        ..(   ldx #1028
3289 9B57 1D 00 40        ...   bclr 00,x, #40
3290 9B5A BD BE 10        ...   jsr be10             ;jump88
3291 9B5D C6 03           ..    ldab #03
3292 9B5F F7 00 2C        ..,   stab 002c
3293 9B62 39              9     rts
3294
3295 jump101:
3296 9B63 BD BE 4B        ..K   jsr be4b             ;displayblank
3297 9B66 FC 00 0D        ...   ldd 000d
3298 9B69 BD E7 45        ..E   jsr e745             ;jump55 - number to string
3299 9B6C C6 44           .D    ldab #44
3300 9B6E F7 0B 99        ...   stab 0b99
3301 9B71 C6 53           .S    ldab #53
3302 9B73 F7 0B 98        ...   stab 0b98
3303 9B76 C6 43           .C    ldab #43
3304 9B78 F7 0B 97        ...   stab 0b97
3305 9B7B C6 4E           .N    ldab #4e
3306 9B7D F7 0B 96        ...   stab 0b96
3307 9B80 C6 54           .T    ldab #54
3308 9B82 F7 0B 95        ...   stab 0b95
3309 9B85 C6 20           .     ldab #20
3310 9B87 F7 0B 94        ...   stab 0b94
3311 9B8A F6 00 5A        ..Z   ldab 005a
3312 9B8D F7 0B 93        ...   stab 0b93
3313 9B90 F6 00 5D        ..]   ldab 005d
3314 9B93 F7 0B 92        ...   stab 0b92
3315 9B96 F6 00 5E        ..^   ldab 005e
3316 9B99 F7 0B 91        ...   stab 0b91
3317 9B9C F6 00 5F        .._   ldab 005f
3318 9B9F F7 0B 90        ...   stab 0b90
3319 9BA2 F6 00 13        ...   ldab 0013
3320 9BA5 C1 01           ..    cmpb #01
3321 9BA7 23 3C           #<    bls 3c
3322 9BA9 F6 0B 91        ...   ldab 0b91
3323 9BAC F7 0B 90        ...   stab 0b90
3324 9BAF F6 00 13        ...   ldab 0013
3325 9BB2 C1 02           ..    cmpb #02
3326 9BB4 26 07           &.    bne 07
3327 9BB6 C6 2E           ..    ldab #2e
3328 9BB8 F7 0B 91        ...   stab 0b91
3329 9BBB 20 28            (    bra 28
3330 9BBD C1 04           ..    cmpb #04
3331 9BBF 26 0D           &.    bne 0d
3332 9BC1 F6 0B 92        ...   ldab 0b92
3333 9BC4 F7 0B 91        ...   stab 0b91
3334 9BC7 C6 2E           ..    ldab #2e
3335 9BC9 F7 0B 92        ...   stab 0b92
3336 9BCC 20 17            .    bra 17
3337 9BCE C1 08           ..    cmpb #08
3338 9BD0 26 13           &.    bne 13
3339 9BD2 F6 0B 92        ...   ldab 0b92
3340 9BD5 F7 0B 91        ...   stab 0b91
3341 9BD8 F6 0B 93        ...   ldab 0b93
3342 9BDB F7 0B 92        ...   stab 0b92
3343 9BDE C6 2E           ..    ldab #2e
3344 9BE0 F7 0B 93        ...   stab 0b93
3345 9BE3 20 00            .    bra 00
3346 9BE5 F6 00 2C        ..,   ldab 002c
3347 9BE8 26 2A           &*    bne 2a
3348 9BEA BD BE 69        ..i   jsr be69             ;displayreset
3349 9BED F6 00 13        ...   ldab 0013
3350 9BF0 C1 01           ..    cmpb #01
3351 9BF2 23 18           #.    bls 18
3352 9BF4 CE 10 28        ..(   ldx #1028
3353 9BF7 1C 00 40        ...   bset 00,x, #40
3354 9BFA CE 00 01        ...   ldx #0001
3355 9BFD 3C              <     pshx
3356 9BFE F6 00 5F        .._   ldab 005f
3357 9C01 4F              O     clra
3358 9C02 BD BD B5        ...   jsr bdb5             ;jump78
3359 9C05 38              8     pulx
3360 9C06 CE 10 28        ..(   ldx #1028
3361 9C09 1D 00 40        ...   bclr 00,x, #40
3362 9C0C BD BE 10        ...   jsr be10             ;jump88
3363 9C0F C6 03           ..    ldab #03
3364 9C11 F7 00 2C        ..,   stab 002c
3365 9C14 39              9     rts
3366
3367 jump111:
3368 9C15 BD BE 4B        ..K   jsr be4b             ;displayblank
3369 9C18 F6 00 48        ..H   ldab 0048
3370 9C1B 4F              O     clra
3371 9C1C BD FE 16        ...   jsr fe16             ;jump2
3372 9C1F 00 00 00 0A     .     0..10
3373 9C23 9D 29           .).   ;
3374 9C25 9C 3B           ;     ;
3375 9C27 9C 53           .S.   ;
3376 9C29 9C 6B           k     ;
3377 9C2B 9C 83           ...   ;
3378 9C2D 9C 9B           ...   ;
3379 9C2F 9C B2           ...   ;
3380 9C31 9C C9           ...   ;
3381 9C33 9C E0           ...   ;
3382 9C35 9C F7           ..    ;
3383 9C37 9D 0E           ...   ;
3384 9C39 9D 23           .#.   ;
3385 9C3B F6 00 67        .     ldab 0067
3386 9C3D C4 02           g.    andb #02
3387 9C40 27 08           '.    beq 08
3388 9C42 CC AF 00        ...   ldd #af00    ; "LNK MSTR Y"
3389 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3390 9C48 20 06            .    bra 06
3391 9C4A CC AF 0B        ...   ldd #af0b    ; "LNK MSTR N"
3392 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3393 9C50 7E 9D 29        ~.)   jmp 9d29             ;goto18
3394 ;
3395 9C53 F6 00 67        ..g   ldab 0067
3396 9C56 C4 10           ..    andb #10
3397 9C58 27 08           '.    beq 08
3398 9C5A CC AF 42        ..B   ldd #af42    ; "PRC HOLD Y"
3399 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3400 9C60 20 06            .    bra 06
3401 9C62 CC AF 4D        ..M   ldd #af4d    ; "PRC HOLD N"
3402 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3403 9C68 7E 9D 29        ~.)   jmp 9d29             ;goto18
3404 ;
3405 9C6B F6 00 67        ..g   ldab 0067
3406 9C6E C4 20           .     andb #20
3407 9C70 27 08           '.    beq 08
3408 9C72 CC AF 58        ..X   ldd #af58    ; "PRC DISP Y"
3409 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3410 9C78 20 06            .    bra 06
3411 9C7A CC AF 63        ..c   ldd #af63    ; "PRC DISP N"
3412 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3413 9C80 7E 9D 29        ~.)   jmp 9d29             ;goto18
3414 ;
3415 9C83 F6 00 67        ..g   ldab 0067
3416 9C86 C4 01           ..    andb #01
3417 9C88 27 08           '.    beq 08
3418 9C8A CC AE EA        ...   ldd #aeea    ; "DUMB MEC Y"
3419 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3420 9C90 20 06            .    bra 06
3421 9C92 CC AE F5        ...   ldd #aef5    ; "DUMB MEC N"
3422 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3423 9C98 7E 9D 29        ~.)   jmp 9d29             ;goto18
3424 9C9B F6 00 67        ..g   ldab 0067
3425 9C9E C4 04           ..    andb #04
3426 9CA0 27 08           '.    beq 08
3427 9CA2 CC AF 16        ...   ldd #af16    ; "CARD RDR Y"
3428 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3429 9CA8 20 06            .    bra 06
3430 9CAA CC AF 21        ..!   ldd #af21    ; "CARD RDR N"
3431 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3432 9CB0 20 77            w    bra 77
3433 9CB2 F6 00 67        ..g   ldab 0067
3434 9CB5 C4 08           ..    andb #08
3435 9CB7 27 08           '.    beq 08
3436 9CB9 CC AF 2C        ..,   ldd #af2c    ; "BILL VAL Y"
3437 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3438 9CBF 20 06            .    bra 06
3439 9CC1 CC AF 37        ..7   ldd #af37    ; "BILL VAL N"
3440 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3441 9CC7 20 60            `    bra 60
3442 9CC9 F6 00 67        ..g   ldab 0067
3443 9CCC C4 40           .@    andb #40
3444 9CCE 27 08           '.    beq 08
3445 9CD0 CC AF 84        ...   ldd #af84    ; "$1 CHNGR Y"
3446 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3447 9CD6 20 06            .    bra 06
3448 9CD8 CC AF 8F        ...   ldd #af8f    ; "$1 CHNGR N"
3449 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3450 9CDE 20 49            I    bra 49
3451 9CE0 F6 0E 70        ..p   ldab 0e70
3452 9CE3 C1 01           ..    cmpb #01
3453 9CE5 26 08           &.    bne 08
3454 9CE7 CC AE BE        ...   ldd #aebe    ; "$5 ENABLE "
3455 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3456 9CED 20 06            .    bra 06
3457 9CEF CC AE C9        ...   ldd #aec9    ; "$5 DISABLE"
3458 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3459 9CF5 20 32            2    bra 32
3460 9CF7 F6 0E 6F        ..o   ldab 0e6f
3461 9CFA C1 01           ..    cmpb #01
3462 9CFC 26 08           &.    bne 08
3463 9CFE CC AE D4        ...   ldd #aed4    ; "SODA VEND "
3464 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3465 9D04 20 06            .    bra 06
3466 9D06 CC AE DF        ...   ldd #aedf    ; "SNACK VEND"
3467 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3468 9D0C 20 1B            .    bra 1b
3469 9D0E F6 00 67        ..g   ldab 0067
3470 9D11 2C 08           ,.    bge 08
3471 9D13 CC AF 6E        ..n   ldd #af6e    ; "FREE VND Y"
3472 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3473 9D19 20 06            .    bra 06
3474 9D1B CC AF 79        ..y   ldd #af79    ; "FREE VND N"
3475 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3476 9D21 20 06            .    bra 06
3477 9D23 CC AF B0        ...   ldd #afb0    ; "HIT KEY "0""
3478 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3479 goto18:
3480 9D29 39              9     rts
3481
3482 jump89:
3483 9D2A BD BE 4B        ..K   jsr be4b             ;displayblank
3484 9D2D F6 00 22        .."   ldab 0022
3485 9D30 4F              O     clra
3486 9D31 BD E7 95        ...   jsr e795             ;jump54 - number to string
3487 9D34 F6 00 5E        ..^   ldab 005e
3488 9D37 F7 0B 99        ...   stab 0b99
3489 9D3A F6 00 5F        .._   ldab 005f
3490 9D3D F7 0B 98        ...   stab 0b98
3491 9D40 C6 20           .     ldab #20
3492 9D42 F7 0B 97        ...   stab 0b97
3493 9D45 F6 00 24        ..$   ldab 0024
3494 9D48 4F              O     clra
3495 9D49 BD E7 95        ...   jsr e795             ;jump54 - number to string
3496 9D4C C6 50           .P    ldab #50
3497 9D4E F7 0B 96        ...   stab 0b96
3498 9D51 F6 00 5E        ..^   ldab 005e
3499 9D54 F7 0B 95        ...   stab 0b95
3500 9D57 F6 00 5F        .._   ldab 005f
3501 9D5A F7 0B 94        ...   stab 0b94
3502 9D5D C6 20           .     ldab #20
3503 9D5F F7 0B 93        ...   stab 0b93
3504 9D62 F6 00 2A        ..*   ldab 002a
3505 9D65 4F              O     clra
3506 9D66 BD E7 95        ...   jsr e795             ;jump54 - number to string
3507 9D69 C6 46           .F    ldab #46
3508 9D6B F7 0B 92        ...   stab 0b92
3509 9D6E F6 00 5E        ..^   ldab 005e
3510 9D71 F7 0B 91        ...   stab 0b91
3511 9D74 F6 00 5F        .._   ldab 005f
3512 9D77 F7 0B 90        ...   stab 0b90
3513 9D7A BD BE 01        ...   jsr be01             ;jump70
3514 9D7D 39              9     rts
3515 ;
3516 9D7E BD BE 4B        ..K   jsr be4b             ;displayblank
3517 9D81 F6 00 60        ..`   ldab 0060
3518 9D84 4F              O     clra
3519 9D85 C3 0A 90        ...   addd #0a90
3520 9D88 8F              .     xgdx
3521 9D89 E6 00           ..    ldab 00,x
3522 9D8B F7 0B 99        ...   stab 0b99
3523 9D8E F6 00 60        ..`   ldab 0060
3524 9D91 4F              O     clra
3525 9D92 C3 0A 91        ...   addd #0a91
3526 9D95 8F              .     xgdx
3527 9D96 E6 00           ..    ldab 00,x
3528 9D98 F7 0B 98        ...   stab 0b98
3529 9D9B F6 00 60        ..`   ldab 0060
3530 9D9E 4F              O     clra
3531 9D9F C3 0A 92        ...   addd #0a92
3532 9DA2 8F              .     xgdx
3533 9DA3 E6 00           ..    ldab 00,x
3534 9DA5 F7 0B 97        ...   stab 0b97
3535 9DA8 F6 00 60        ..`   ldab 0060
3536 9DAB 4F              O     clra
3537 9DAC C3 0A 94        ...   addd #0a94
3538 9DAF 8F              .     xgdx
3539 9DB0 E6 00           ..    ldab 00,x
3540 9DB2 F7 0B 95        ...   stab 0b95
3541 9DB5 F6 00 60        ..`   ldab 0060
3542 9DB8 4F              O     clra
3543 9DB9 C3 0A 95        ...   addd #0a95
3544 9DBC 8F              .     xgdx
3545 9DBD E6 00           ..    ldab 00,x
3546 9DBF F7 0B 94        ...   stab 0b94
3547 9DC2 F6 00 60        ..`   ldab 0060
3548 9DC5 4F              O     clra
3549 9DC6 C3 0A 96        ...   addd #0a96
3550 9DC9 8F              .     xgdx
3551 9DCA E6 00           ..    ldab 00,x
3552 9DCC F7 0B 93        ...   stab 0b93
3553 9DCF C6 20           .     ldab #20
3554 9DD1 F7 0B 92        ...   stab 0b92
3555 9DD4 C6 20           .     ldab #20
3556 9DD6 F7 0B 91        ...   stab 0b91
3557 9DD9 F6 00 54        ..T   ldab 0054
3558 9DDC 4F              O     clra
3559 9DDD C3 B4 8F        ...   addd #b48f
3560 9DE0 8F              .     xgdx
3561 9DE1 E6 00           ..    ldab 00,x
3562 9DE3 F7 0B 90        ...   stab 0b90
3563 9DE6 F6 00 38        ..8   ldab 0038
3564 9DE9 C1 03           ..    cmpb #03
3565 9DEB 24 0F           $.    bcc 0f
3566 9DED F6 00 60        ..`   ldab 0060
3567 9DF0 4F              O     clra
3568 9DF1 C3 0A 93        ...   addd #0a93
3569 9DF4 8F              .     xgdx
3570 9DF5 E6 00           ..    ldab 00,x
3571 9DF7 F7 0B 96        ...   stab 0b96
3572 9DFA 20 05            .    bra 05
3573 9DFC C6 1F           ..    ldab #1f
3574 9DFE F7 0B 96        ...   stab 0b96
3575 9E01 BD BE 01        ...   jsr be01             ;jump70
3576 9E04 F6 00 38        ..8   ldab 0038
3577 9E07 26 05           &.    bne 05
3578 9E09 C6 05           ..    ldab #05
3579 9E0B F7 00 38        ..8   stab 0038
3580 9E0E 39              9     rts
3581
3582 jump142:
3583 9E0F BD BE 4B        ..K   jsr be4b             ;displayblank
3584 9E12 F6 00 48        ..H   ldab 0048
3585 9E15 26 15           &.    bne 15
3586 9E17 F6 00 66        ..f   ldab 0066
3587 9E1A 27 08           '.    beq 08
3588 9E1C CC AF C6        ...   ldd #afc6    ; "SECURE ON"
3589 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3590 9E22 20 06            .    bra 06
3591 9E24 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
3592 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3593 9E2A 20 5C            \    bra 5c
3594 9E2C C6 4D           .M    ldab #4d
3595 9E2E F7 0B 99        ...   stab 0b99
3596 9E31 C6 45           .E    ldab #45
3597 9E33 F7 0B 98        ...   stab 0b98
3598 9E36 C6 4E           .N    ldab #4e
3599 9E38 F7 0B 97        ...   stab 0b97
3600 9E3B C6 55           .U    ldab #55
3601 9E3D F7 0B 96        ...   stab 0b96
3602 9E40 C6 20           .     ldab #20
3603 9E42 F7 0B 95        ...   stab 0b95
3604 9E45 F6 00 48        ..H   ldab 0048
3605 9E48 CB 30           .0    addb #30
3606 9E4A F7 0B 94        ...   stab 0b94
3607 9E4D F6 00 48        ..H   ldab 0048
3608 9E50 C1 0A           ..    cmpb #0a
3609 9E52 26 05           &.    bne 05
3610 9E54 C6 30           .0    ldab #30
3611 9E56 F7 0B 94        ...   stab 0b94
3612 9E59 C6 20           .     ldab #20
3613 9E5B F7 0B 93        ...   stab 0b93
3614 9E5E C6 4F           .O    ldab #4f
3615 9E60 F7 0B 92        ...   stab 0b92
3616 9E63 F6 00 48        ..H   ldab 0048
3617 9E66 4F              O     clra
3618 9E67 C3 00 68        ..h   addd #0068
3619 9E6A 8F              .     xgdx
3620 9E6B E6 00           ..    ldab 00,x
3621 9E6D 27 0C           '.    beq 0c
3622 9E6F C6 4E           .N    ldab #4e
3623 9E71 F7 0B 91        ...   stab 0b91
3624 9E74 C6 20           .     ldab #20
3625 9E76 F7 0B 90        ...   stab 0b90
3626 9E79 20 0A            .    bra 0a
3627 9E7B C6 46           .F    ldab #46
3628 9E7D F7 0B 91        ...   stab 0b91
3629 9E80 C6 46           .F    ldab #46
3630 9E82 F7 0B 90        ...   stab 0b90
3631 9E85 BD BE 01        ...   jsr be01             ;jump70
3632 9E88 39              9     rts
3633
3634 jump100:
3635 ; print out information to display
3636 9E89 BD BE 4B        ..K   jsr be4b             ;displayblank
3637 9E8C F6 00 48        ..H   ldab 0048
3638 9E8F 4F              O     clra
3639 9E90 BD FE 16        ...   jsr fe16             ;jump2
3640 9E93 00 01 00 2D     .     ; 45 choices here
3641 9E97 A1 C4           -.    ;
3642 9E99 9E F5           ..    ;
3643 9E9B 9E FE           ..    ;
3644 9E9D 9F 07           ..    ;
3645 9E9F 9F 10           ..    ;
3646 9EA1 9F 19           ..    ;
3647 9EA3 9F 3B           ;.    ;
3648 9EA5 9F 44           .D.   ;
3649 9EA7 9F 52           R     ;
3650 9EA9 9F 5B           .[.   ;
3651 9EAB 9F 69           i     ;
3652 9EAD 9F 72           .r.   ;
3653 9EBF 9F 80           ..    ;
3654 9EB1 9F 89           ..    ;
3655 9EB3 9F 97           ..    ;
3656 9EB5 9F A0           ...   ;
3657 9EB7 9F AE           ..    ;
3658 9EB9 9F B7           ...   ;
3659 9EBB 9F C5           ...   ;
3660 9EBD 9F DD           ...   ;
3661 9EBF 9F EB           ..    ;
3662 9EC1 A0 03           .     ;
3663 9EC3 A0 11           ..    ;
3664 9EC5 A0 29           .)    ;
3665 9EC7 A0 37           .7    ;
3666 9EC9 A0 54           .T    ;
3667 9ECB A0 62           .b    ;
3668 9ECD A0 7F           ..    ;
3669 9ECF A0 8D           ..    ;
3670 9ED1 A0 96           ..    ;
3671 9ED3 A0 A4           ..    ;
3672 9ED5 A0 AD           ..    ;
3673 9ED7 A0 BC           ..    ;
3674 9ED9 A0 C5           ..    ;
3675 9EDB A0 D4           ..    ;
3676 9EDD A0 DD           ..    ;
3677 9EDF A0 EC           ..    ;
3678 9EE1 A0 F5           ..    ;
3679 9EE3 A1 04           ..    ;
3680 9EE5 A1 26           .&    ;
3681 9EE7 A1 34           .4    ;
3682 9EE9 A1 55           .U    ;
3683 9EEB A1 62           .b    ;
3684 9EED A1 83           ..    ;
3685 9EEF A1 90           ..    ;
3686 9EF1 A1 B1           ..    ;
3687 9EF3 A1 BE           ..    ;
3688 9EF5 CC B2 90        ...   ldd #b290    ; "SERIAL #"
3689 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3690 9EFB 7E A1 C4        ~..   jmp a1c4             ;goto19
3691 9EFE CC 0C BC        ...   ldd #0cbc    ; serial number?
3692 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3693 9F04 7E A1 C4        ~..   jmp a1c4             ;goto19
3694 9F07 CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
3695 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3696 9F0D 7E A1 C4        ~..   jmp a1c4             ;goto19
3697 9F10 CC 0C CC        ...   ldd #0ccc    ; machine id?
3698 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3699 9F16 7E A1 C4        ~..   jmp a1c4             ;goto19
3700 9F19 C6 41           .A    ldab #41     ; "A"
3701 9F1B F7 0B 99        ...   stab 0b99
3702 9F1E C6 55           .U    ldab #55     ; "U"
3703 9F20 F7 0B 98        ...   stab 0b98
3704 9F23 C6 44           .D    ldab #44     ; "D"
3705 9F25 F7 0B 97        ...   stab 0b97
3706 9F28 C6 54           .T    ldab #54     ; "T"
3707 9F2A F7 0B 96        ...   stab 0b96
3708 9F2D CE 00 00        ...   ldx #0000
3709 9F30 3C              <     pshx
3710 9F31 FC 0C E7        ...   ldd 0ce7
3711 9F34 BD A2 D4        ...   jsr a2d4             ;jump79
3712 9F37 38              8     pulx
3713 9F38 7E A1 C4        ~..   jmp a1c4             ;goto19
3714 9F3B CC B2 C6        ...   ldd #b2c6    ; "SALES (R)   "
3715 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3716 9F41 7E A1 C4        ~..   jmp a1c4             ;goto19
3717 9F44 FE 0D E9        ...   ldx 0de9
3718 9F47 3C              <     pshx
3719 9F48 FC 0D E7        ...   ldd 0de7
3720 9F4B BD A3 41        ..A   jsr a341             ;jump77
3721 9F4E 38              8     pulx
3722 9F4F 7E A1 C4        ~..   jmp a1c4             ;goto19
3723 9F52 CC B2 D8        ...   ldd #b2d8    ; "SALES (N)   "
3724 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3725 9F58 7E A1 C4        ~..   jmp a1c4             ;goto19
3726 9F5B FE 0D ED        ...   ldx 0ded
3727 9F5E 3C              <     pshx
3728 9F5F FC 0D EB        ...   ldd 0deb
3729 9F62 BD A3 41        ..A   jsr a341             ;jump77
3730 9F65 38              8     pulx
3731 9F66 7E A1 C4        ~..   jmp a1c4             ;goto19
3732 9F69 CC B2 EA        ...   ldd #b2ea    ; "BAG TOTAL"
3733 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3734 9F6F 7E A1 C4        ~..   jmp a1c4             ;goto19
3735 9F72 FE 0D F1        ...   ldx 0df1
3736 9F75 3C              <     pshx
3737 9F76 FC 0D EF        ...   ldd 0def
3738 9F79 BD A3 41        ..A   jsr a341             ;jump77
3739 9F7C 38              8     pulx
3740 9F7D 7E A1 C4        ~..   jmp a1c4             ;goto19
3741 9F80 CC B2 FC        ...   ldd #b2fc    ; "CASH BOX"
3742 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3743 9F86 7E A1 C4        ~..   jmp a1c4             ;goto19
3744 9F89 FE 0D F9        ...   ldx 0df9
3745 9F8C 3C              <     pshx
3746 9F8D FC 0D F7        ...   ldd 0df7
3747 9F90 BD A3 41        ..A   jsr a341             ;jump77
3748 9F93 38              8     pulx
3749 9F94 7E A1 C4        ~..   jmp a1c4             ;goto19
3750 9F97 CC B3 0E        ...   ldd #b30e    ; "CARD SALES"
3751 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3752 9F9D 7E A1 C4        ~..   jmp a1c4             ;goto19
3753 9FA0 FE 0D FD        ...   ldx 0dfd
3754 9FA3 3C              <     pshx
3755 9FA4 FC 0D FB        ...   ldd 0dfb
3756 9FA7 BD A3 41        ..A   jsr a341             ;jump77
3757 9FAA 38              8     pulx
3758 9FAB 7E A1 C4        ~..   jmp a1c4             ;goto19
3759 9FAE CC B3 35        ..5   ldd #b335    ; "BILL TOTAL"
3760 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3761 9FB4 7E A1 C4        ~..   jmp a1c4             ;goto19
3762 9FB7 FE 0D F5        ...   ldx 0df5
3763 9FBA 3C              <     pshx
3764 9FBB FC 0D F3        ...   ldd 0df3
3765 9FBE BD A3 41        ..A   jsr a341             ;jump77
3766 9FC1 38              8     pulx
3767 9FC2 7E A1 C4        ~..   jmp a1c4             ;goto19
3768 9FC5 C6 24           .$    ldab #24
3769 9FC7 F7 0B 99        ...   stab 0b99
3770 9FCA C6 31           .1    ldab #31
3771 9FCC F7 0B 98        ...   stab 0b98
3772 9FCF CE 00 00        ...   ldx #0000
3773 9FD2 3C              <     pshx
3774 9FD3 FC 0C DD        ...   ldd 0cdd
3775 9FD6 BD A2 D4        ...   jsr a2d4             ;jump79
3776 9FD9 38              8     pulx
3777 9FDA 7E A1 C4        ~..   jmp a1c4             ;goto19
3778 9FDD FE 0C F5        ...   ldx 0cf5
3779 9FE0 3C              <     pshx
3780 9FE1 FC 0C F3        ...   ldd 0cf3
3781 9FE4 BD A3 41        ..A   jsr a341             ;jump77
3782 9FE7 38              8     pulx
3783 9FE8 7E A1 C4        ~..   jmp a1c4             ;goto19
3784 9FEB C6 24           .$    ldab #24
3785 9FED F7 0B 99        ...   stab 0b99
3786 9FF0 C6 32           .2    ldab #32
3787 9FF2 F7 0B 98        ...   stab 0b98
3788 9FF5 CE 00 00        ...   ldx #0000
3789 9FF8 3C              <     pshx
3790 9FF9 FC 0C DF        ...   ldd 0cdf
3791 9FFC BD A2 D4        ...   jsr a2d4             ;jump79
3792 9FFF 38              8     pulx
3793 A000 7E A1 C4        ~..   jmp a1c4             ;goto19
3794 A003 FE 0C F9        ...   ldx 0cf9
3795 A006 3C              <     pshx
3796 A007 FC 0C F7        ...   ldd 0cf7
3797 A00A BD A3 41        ..A   jsr a341             ;jump77
3798 A00D 38              8     pulx
3799 A00E 7E A1 C4        ~..   jmp a1c4             ;goto19
3800 A011 C6 24           .$    ldab #24
3801 A013 F7 0B 99        ...   stab 0b99
3802 A016 C6 35           .5    ldab #35
3803 A018 F7 0B 98        ...   stab 0b98
3804 A01B CE 00 00        ...   ldx #0000
3805 A01E 3C              <     pshx
3806 A01F FC 0C E1        ...   ldd 0ce1
3807 A022 BD A2 D4        ...   jsr a2d4             ;jump79
3808 A025 38              8     pulx
3809 A026 7E A1 C4        ~..   jmp a1c4             ;goto19
3810 A029 FE 0C FD        ...   ldx 0cfd
3811 A02C 3C              <     pshx
3812 A02D FC 0C FB        ...   ldd 0cfb
3813 A030 BD A3 41        ..A   jsr a341             ;jump77
3814 A033 38              8     pulx
3815 A034 7E A1 C4        ~..   jmp a1c4             ;goto19
3816 A037 C6 24           .$    ldab #24
3817 A039 F7 0B 99        ...   stab 0b99
3818 A03C C6 31           .1    ldab #31
3819 A03E F7 0B 98        ...   stab 0b98
3820 A041 C6 30           .0    ldab #30
3821 A043 F7 0B 97        ...   stab 0b97
3822 A046 CE 00 00        ...   ldx #0000
3823 A049 3C              <     pshx
3824 A04A FC 0C E3        ...   ldd 0ce3
3825 A04D BD A2 D4        ...   jsr a2d4             ;jump79
3826 A050 38              8     pulx
3827 A051 7E A1 C4        ~..   jmp a1c4             ;goto19
3828 A054 FE 0D 01        ...   ldx 0d01
3829 A057 3C              <     pshx
3830 A058 FC 0C FF        ...   ldd 0cff
3831 A05B BD A3 41        ..A   jsr a341             ;jump77
3832 A05E 38              8     pulx
3833 A05F 7E A1 C4        ~..   jmp a1c4             ;goto19
3834 A062 C6 24           .$    ldab #24
3835 A064 F7 0B 99        ...   stab 0b99
3836 A067 C6 32           .2    ldab #32
3837 A069 F7 0B 98        ...   stab 0b98
3838 A06C C6 30           .0    ldab #30
3839 A06E F7 0B 97        ...   stab 0b97
3840 A071 CE 00 00        ...   ldx #0000
3841 A074 3C              <     pshx
3842 A075 FC 0C E5        ...   ldd 0ce5
3843 A078 BD A2 D4        ...   jsr a2d4             ;jump79
3844 A07B 38              8     pulx
3845 A07C 7E A1 C4        ~..   jmp a1c4             ;goto19
3846 A07F FE 0D 05        ...   ldx 0d05
3847 A082 3C              <     pshx
3848 A083 FC 0D 03        ...   ldd 0d03
3849 A086 BD A3 41        ..A   jsr a341             ;jump77
3850 A089 38              8     pulx
3851 A08A 7E A1 C4        ~..   jmp a1c4             ;goto19
3852 A08D CC B3 B7        ...   ldd #b3b7    ; "TUBE TOTAL"
3853 A090 BD C0 BA        ...   jsr c0ba             ;display:
3854 A093 7E A1 C4        ~..   jmp a1c4             ;goto19
3855 A096 CE 00 01        ...   ldx #0001
3856 A099 3C              <     pshx
3857 A09A FC 0C F1        ...   ldd 0cf1
3858 A09D BD A2 D4        ...   jsr a2d4             ;jump79
3859 A0A0 38              8     pulx
3860 A0A1 7E A1 C4        ~..   jmp a1c4             ;goto19
3861 A0A4 CC B3 CE        ...   ldd #b3ce    ; "$1 COIN"
3862 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3863 A0AA 7E A1 C4        ~..   jmp a1c4             ;goto19
3864 A0AD FE 0C E9        ...   ldx 0ce9
3865 A0B0 3C              <     pshx
3866 A0B1 F6 0C DC        ...   ldab 0cdc
3867 A0B4 4F              O     clra
3868 A0B5 BD A3 1A        ...   jsr a31a             ;jump93
3869 A0B8 38              8     pulx
3870 A0B9 7E A1 C4        ~..   jmp a1c4             ;goto19
3871 A0BC CC B3 E0        ...   ldd #b3e0    ; "QUARTERS"
3872 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3873 A0C2 7E A1 C4        ~..   jmp a1c4             ;goto19
3874 A0C5 FE 0C EB        ...   ldx 0ceb
3875 A0C8 3C              <     pshx
3876 A0C9 F6 0C DB        ...   ldab 0cdb
3877 A0CC 4F              O     clra
3878 A0CD BD A3 1A        ...   jsr a31a             ;jump93
3879 A0D0 38              8     pulx
3880 A0D1 7E A1 C4        ~..   jmp a1c4             ;goto19
3881 A0D4 CC B3 F2        ...   ldd #b3f2    ; "DIMES"
3882 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3883 A0DA 7E A1 C4        ~..   jmp a1c4             ;goto19
3884 A0DD FE 0C ED        ...   ldx 0ced
3885 A0E0 3C              <     pshx
3886 A0E1 F6 0C DA        ...   ldab 0cda
3887 A0E4 4F              O     clra
3888 A0E5 BD A3 1A        ...   jsr a31a             ;jump93
3889 A0E8 38              8     pulx
3890 A0E9 7E A1 C4        ~..   jmp a1c4             ;goto19
3891 A0EC CC B4 04        ...   ldd #b404    ; "NICKELS"
3892 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3893 A0F2 7E A1 C4        ~..   jmp a1c4             ;goto19
3894 A0F5 FE 0C EF        ...   ldx 0cef
3895 A0F8 3C              <     pshx
3896 A0F9 F6 0C D9        ...   ldab 0cd9
3897 A0FC 4F              O     clra
3898 A0FD BD A3 1A        ...   jsr a31a             ;jump93
3899 A100 38              8     pulx
3900 A101 7E A1 C4        ~..   jmp a1c4             ;goto19
3901 A104 C6 57           .W    ldab #57
3902 A106 F7 0B 99        ...   stab 0b99
3903 A109 C6 53           .S    ldab #53
3904 A10B F7 0B 98        ...   stab 0b98
3905 A10E C6 4E           .N    ldab #4e
3906 A110 F7 0B 97        ...   stab 0b97
3907 A113 C6 4B           .K    ldab #4b
3908 A115 F7 0B 96        ...   stab 0b96
3909 A118 CE 00 00        ...   ldx #0000
3910 A11B 3C              <     pshx
3911 A11C FC 0D 07        ...   ldd 0d07
3912 A11F BD A2 D4        ...   jsr a2d4             ;jump79
3913 A122 38              8     pulx
3914 A123 7E A1 C4        ~..   jmp a1c4             ;goto19
3915 A126 FE 0D 11        ...   ldx 0d11
3916 A129 3C              <     pshx
3917 A12A FC 0D 0F        ...   ldd 0d0f
3918 A12D BD A3 41        ..A   jsr a341             ;jump77
3919 A130 38              8     pulx
3920 A131 7E A1 C4        ~..   jmp a1c4             ;goto19
3921 A134 C6 53           .S    ldab #53
3922 A136 F7 0B 99        ...   stab 0b99
3923 A139 C6 48           .H    ldab #48
3924 A13B F7 0B 98        ...   stab 0b98
3925 A13E C6 50           .P    ldab #50
3926 A140 F7 0B 97        ...   stab 0b97
3927 A143 C6 52           .R    ldab #52
3928 A145 F7 0B 96        ...   stab 0b96
3929 A148 CE 00 00        ...   ldx #0000
3930 A14B 3C              <     pshx
3931 A14C FC 0D 09        ...   ldd 0d09
3932 A14F BD A2 D4        ...   jsr a2d4             ;jump79
3933 A152 38              8     pulx
3934 A153 20 6F            o    bra 6f
3935 A155 FE 0D 15        ...   ldx 0d15
3936 A158 3C              <     pshx
3937 A159 FC 0D 13        ...   ldd 0d13
3938 A15C BD A3 41        ..A   jsr a341             ;jump77
3939 A15F 38              8     pulx
3940 A160 20 62            b    bra 62
3941 A162 C6 50           .P    ldab #50
3942 A164 F7 0B 99        ...   stab 0b99
3943 A167 C6 52           .R    ldab #52
3944 A169 F7 0B 98        ...   stab 0b98
3945 A16C C6 4D           .M    ldab #4d
3946 A16E F7 0B 97        ...   stab 0b97
3947 A171 C6 4F           .O    ldab #4f
3948 A173 F7 0B 96        ...   stab 0b96
3949 A176 CE 00 00        ...   ldx #0000
3950 A179 3C              <     pshx
3951 A17A FC 0D 0B        ...   ldd 0d0b
3952 A17D BD A2 D4        ...   jsr a2d4             ;jump79
3953 A180 38              8     pulx
3954 A181 20 41            A    bra 41
3955 A183 FE 0D 19        ...   ldx 0d19
3956 A186 3C              <     pshx
3957 A187 FC 0D 17        ...   ldd 0d17
3958 A18A BD A3 41        ..A   jsr a341             ;jump77
3959 A18D 38              8     pulx
3960 A18E 20 34            4    bra 34
3961 A190 C6 46           .F    ldab #46
3962 A192 F7 0B 99        ...   stab 0b99
3963 A195 C6 52           .R    ldab #52
3964 A197 F7 0B 98        ...   stab 0b98
3965 A19A C6 45           .E    ldab #45
3966 A19C F7 0B 97        ...   stab 0b97
3967 A19F C6 45           .E    ldab #45
3968 A1A1 F7 0B 96        ...   stab 0b96
3969 A1A4 CE 00 00        ...   ldx #0000
3970 A1A7 3C              <     pshx
3971 A1A8 FC 0D 0D        ...   ldd 0d0d
3972 A1AB BD A2 D4        ...   jsr a2d4             ;jump79
3973 A1AE 38              8     pulx
3974 A1AF 20 13            .    bra 13
3975 A1B1 FE 0D 1D        ...   ldx 0d1d
3976 A1B4 3C              <     pshx
3977 A1B5 FC 0D 1B        ...   ldd 0d1b
3978 A1B8 BD A3 41        ..A   jsr a341             ;jump77
3979 A1BB 38              8     pulx
3980 A1BC 20 06            .    bra 06
3981 A1BE CC B4 84        ...   ldd #b484    ; "VENDS/CODE"
3982 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3983 goto19:
3984 A1C4 F6 00 48        ..H   ldab 0048
3985 A1C7 C1 2E           ..    cmpb #2e
3986 A1C9 23 74           #t    bls 74
3987 A1CB F6 00 48        ..H   ldab 0048
3988 A1CE C1 92           ..    cmpb #92
3989 A1D0 24 6D           $m    bcc 6d
3990 A1D2 F6 00 48        ..H   ldab 0048
3991 A1D5 4F              O     clra
3992 A1D6 05              .     asld
3993 A1D7 C3 08 6C        ..l   addd #086c
3994 A1DA 8F              .     xgdx
3995 A1DB EC 00           ..    ldd 00,x
3996 A1DD C4 80           ..    andb #80
3997 A1DF 26 0E           &.    bne 0e
3998 A1E1 7C 00 48        |.H   inc 0048
3999 A1E4 F6 00 48        ..H   ldab 0048
4000 A1E7 C1 92           ..    cmpb #92
4001 A1E9 26 02           &.    bne 02
4002 A1EB 20 02            .    bra 02
4003 A1ED 20 E3            .    bra e3
4004 A1EF F6 00 48        ..H   ldab 0048
4005 A1F2 4F              O     clra
4006 A1F3 C3 FF D2        ...   addd #ffd2
4007 A1F6 BD E7 95        ...   jsr e795             ;jump54 - number to string
4008 A1F9 F6 00 5E        ..^   ldab 005e
4009 A1FC F7 0B 99        ...   stab 0b99
4010 A1FF F6 00 5F        .._   ldab 005f
4011 A202 F7 0B 98        ...   stab 0b98
4012 A205 F6 00 48        ..H   ldab 0048
4013 A208 4F              O     clra
4014 A209 05              .     asld
4015 A20A C3 0C C3        ...   addd #0cc3
4016 A20D 8F              .     xgdx
4017 A20E EC 00           ..    ldd 00,x
4018 A210 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4019 A213 F6 00 57        ..W   ldab 0057
4020 A216 F7 0B 94        ...   stab 0b94
4021 A219 F6 00 5A        ..Z   ldab 005a
4022 A21C F7 0B 93        ...   stab 0b93
4023 A21F F6 00 5D        ..]   ldab 005d
4024 A222 F7 0B 92        ...   stab 0b92
4025 A225 F6 00 5E        ..^   ldab 005e
4026 A228 F7 0B 91        ...   stab 0b91
4027 A22B F6 00 5F        .._   ldab 005f
4028 A22E F7 0B 90        ...   stab 0b90
4029 A231 5F              _     clrb
4030 A232 4F              O     clra
4031 A233 8D 27           .'    bsr dest 27
4032 A235 F6 00 48        ..H   ldab 0048
4033 A238 C1 92           ..    cmpb #92
4034 A23A 26 03           &.    bne 03
4035 A23C 7F 00 2C        ..,   clr 002c
4036 A23F F6 00 48        ..H   ldab 0048
4037 A242 C1 92           ..    cmpb #92
4038 A244 26 15           &.    bne 15
4039 A246 F6 00 1F        ...   ldab 001f
4040 A249 C4 10           ..    andb #10
4041 A24B 27 08           '.    beq 08
4042 A24D CC AF 9A        ...   ldd #af9a    ; "CLR MIS Y"
4043 A250 BD C0 BA        ...   jsr c0ba             ;display:
4044 A253 20 06            .    bra 06
4045 A255 CC AF A5        ...   ldd #afa5    ; "CLR MIS N"
4046 A258 BD C0 BA        ...   jsr c0ba             ;display:
4047 A25B 39              9     rts
4048
4049 bigmodulus:
4050 A25C 37              7     pshb
4051 A25D 36              6     psha
4052 A25E F6 00 2C        ..,   ldab 002c
4053 A261 26 6F           &o    bne 6f
4054 A263 BD BE 69        ..i   jsr be69             ;displayreset
4055 A266 30              0     tsx
4056 A267 E6 01           ..    ldab 01,x
4057 A269 27 5F           '_    beq 5f
4058 A26B F6 00 13        ...   ldab 0013
4059 A26E C1 01           ..    cmpb #01
4060 A270 23 58           #X    bls 58
4061 A272 CE 10 28        ..(   ldx #1028
4062 A275 1C 00 40        ...   bset 00,x, #40
4063 A278 CE 00 01        ...   ldx #0001
4064 A27B 3C              <     pshx
4065 A27C F6 0B 90        ...   ldab 0b90
4066 A27F 4F              O     clra
4067 A280 BD BD B5        ...   jsr bdb5             ;jump78
4068 A283 38              8     pulx
4069 A284 CE 10 28        ..(   ldx #1028
4070 A287 1D 00 40        ...   bclr 00,x, #40
4071 A28A F6 0B 91        ...   ldab 0b91
4072 A28D F7 0B 90        ...   stab 0b90
4073 A290 F6 00 13        ...   ldab 0013
4074 A293 C1 02           ..    cmpb #02
4075 A295 26 07           &.    bne 07
4076 A297 C6 2E           ..    ldab #2e
4077 A299 F7 0B 91        ...   stab 0b91
4078 A29C 20 2C            ,    bra 2c
4079 A29E F6 00 13        ...   ldab 0013
4080 A2A1 C1 04           ..    cmpb #04
4081 A2A3 26 0D           &.    bne 0d
4082 A2A5 F6 0B 92        ...   ldab 0b92
4083 A2A8 F7 0B 91        ...   stab 0b91
4084 A2AB C6 2E           ..    ldab #2e
4085 A2AD F7 0B 92        ...   stab 0b92
4086 A2B0 20 18            .    bra 18
4087 A2B2 F6 00 13        ...   ldab 0013
4088 A2B5 C1 08           ..    cmpb #08
4089 A2B7 26 11           &.    bne 11
4090 A2B9 F6 0B 92        ...   ldab 0b92
4091 A2BC F7 0B 91        ...   stab 0b91
4092 A2BF F6 0B 93        ...   ldab 0b93
4093 A2C2 F7 0B 92        ...   stab 0b92
4094 A2C5 C6 2E           ..    ldab #2e
4095 A2C7 F7 0B 93        ...   stab 0b93
4096 A2CA BD BE 10        ...   jsr be10             ;jump88
4097 A2CD C6 03           ..    ldab #03
4098 A2CF F7 00 2C        ..,   stab 002c
4099 A2D2 38              8     pulx
4100 A2D3 39              9     rts
4101
4102 jump79:
4103 ; displays a price on screen?
4104 A2D4 37              7     pshb
4105 A2D5 36              6     psha
4106 A2D6 30              0     tsx
4107 A2D7 EC 00           ..    ldd 00,x
4108 A2D9 BD E7 45        ..E   jsr e745             ;jump55 - number to string
4109 A2DC F6 00 57        ..W   ldab 0057
4110 A2DF F7 0B 94        ...   stab 0b94
4111 A2E2 F6 00 5A        ..Z   ldab 005a
4112 A2E5 F7 0B 93        ...   stab 0b93
4113 A2E8 F6 00 5D        ..]   ldab 005d
4114 A2EB F7 0B 92        ...   stab 0b92
4115 A2EE F6 00 5E        ..^   ldab 005e
4116 A2F1 F7 0B 91        ...   stab 0b91
4117 A2F4 F6 00 5F        .._   ldab 005f
4118 A2F7 F7 0B 90        ...   stab 0b90
4119 A2FA 30              0     tsx
4120 A2FB E6 05           ..    ldab 05,x
4121 A2FD 27 14           '.    beq 14
4122 A2FF F6 00 17        ...   ldab 0017
4123 A302 C4 08           ..    andb #08
4124 A304 26 05           &.    bne 05       ; to a30b
4125 A306 C6 24           .$    ldab #24     ; "$"
4126 A308 F7 0B 95        ...   stab 0b95
4127 A30B CC 00 01        ...   ldd #0001
4128 A30E BD A2 5C        ..\   jsr a25c             ;bigmodulus
4129 A311 20 05            .    bra 05       ; return
4130 A313 5F              _     clrb
4131 A314 4F              O     clra
4132 A315 BD A2 5C        ..\   jsr a25c             ;bigmodulus
4133 A318 38              8     pulx
4134 A319 39              9     rts
4135
4136 jump93:
4137 ; write number to display
4138 A31A 37              7     pshb
4139 A31B 36              6     psha
4140 A31C 30              0     tsx
4141 A31D E6 01           ..    ldab 01,x
4142 A31F 4F              O     clra
4143 A320 BD E7 95        ...   jsr e795             ;jump54 - number to string
4144 A323 F6 00 5D        ..]   ldab 005d
4145 A326 F7 0B 99        ...   stab 0b99
4146 A329 F6 00 5E        ..^   ldab 005e
4147 A32C F7 0B 98        ...   stab 0b98
4148 A32F F6 00 5F        .._   ldab 005f
4149 A332 F7 0B 97        ...   stab 0b97
4150 A335 CE 00 01        ...   ldx #0001
4151 A338 3C              <     pshx
4152 A339 30              0     tsx
4153 A33A EC 06           ..    ldd 06,x
4154 A33C 8D 96           ..    bsr dest 96
4155 A33E 38              8     pulx
4156 A33F 38              8     pulx
4157 A340 39              9     rts
4158
4159 jump77:
4160 A341 38              8     pulx
4161 A342 37              7     pshb
4162 A343 36              6     psha
4163 A344 3C              <     pshx
4164 A345 30              0     tsx
4165 A346 EC 04           ..    ldd 04,x
4166 A348 37              7     pshb
4167 A349 36              6     psha
4168 A34A EC 02           ..    ldd 02,x
4169 A34C BD E6 21        ..!   jsr e621             ;jump56 - write to display
4170 A34F 38              8     pulx
4171 A350 C6 20           .     ldab #20     ; " "
4172 A352 F7 0B 99        ...   stab 0b99
4173 A355 F6 00 17        ...   ldab 0017
4174 A358 C4 08           ..    andb #08
4175 A35A 26 05           &.    bne 05
4176 A35C C6 24           .$    ldab #24     ; "$"
4177 A35E F7 0B 98        ...   stab 0b98
4178 A361 CC 00 01        ...   ldd #0001
4179 A364 BD A2 5C        ..\   jsr a25c             ;bigmodulus
4180 A367 38              8     pulx
4181 A368 31              1     ins
4182 A369 31              1     ins
4183 A36A 6E 00           n.    jmp 00,x
4184
4185 jump81:
4186 A36C BD BE 4B        ..K   jsr be4b             ;displayblank
4187 A36F CC AF DC        ...   ldd #afdc    ; "- SAVING -"
4188 A372 BD C0 BA        ...   jsr c0ba             ;display:
4189 A375 CC 01 F4        ...   ldd #01f4
4190 A378 BD E5 71        ..q   jsr e571             ;msdelay
4191 A37B 39              9     rts
4192
4193 jump141:
4194 A37C FC 00 52        ..R   ldd 0052
4195 A37F FD 0B B5        ...   std 0bb5
4196 A382 8D E8           ..    bsr dest e8
4197 A384 39              9     rts
4198
4199 jump40:
4200 A385 F6 00 1F        ...   ldab 001f
4201 A388 C4 40           .@    andb #40
4202 A38A 27 73           's    beq 73
4203 A38C F6 00 06        ...   ldab 0006
4204 A38F 4F              O     clra
4205 A390 05              .     asld
4206 A391 C3 08 00        ...   addd #0800
4207 A394 8F              .     xgdx
4208 A395 EC 00           ..    ldd 00,x
4209 A397 5F              _     clrb
4210 A398 84 C0           ..    anda #c0
4211 A39A FA 00 28        ..(   orb 0028
4212 A39D BA 00 27        ..'   ora 0027
4213 A3A0 FD 00 27        ..'   std 0027
4214 A3A3 FC 00 27        ..'   ldd 0027
4215 A3A6 37              7     pshb
4216 A3A7 36              6     psha
4217 A3A8 F6 00 06        ...   ldab 0006
4218 A3AB 4F              O     clra
4219 A3AC 05              .     asld
4220 A3AD C3 08 00        ...   addd #0800
4221 A3B0 38              8     pulx
4222 A3B1 8F              .     xgdx
4223 A3B2 ED 00           ..    std 00,x
4224 A3B4 FC 00 27        ..'   ldd 0027
4225 A3B7 43              C     coma
4226 A3B8 53              S     comb
4227 A3B9 37              7     pshb
4228 A3BA 36              6     psha
4229 A3BB F6 00 06        ...   ldab 0006
4230 A3BE 4F              O     clra
4231 A3BF 05              .     asld
4232 A3C0 C3 0B F1        ...   addd #0bf1
4233 A3C3 38              8     pulx
4234 A3C4 8F              .     xgdx
4235 A3C5 ED 00           ..    std 00,x
4236 A3C7 F6 00 06        ...   ldab 0006
4237 A3CA 4F              O     clra
4238 A3CB 05              .     asld
4239 A3CC C3 08 C8        ...   addd #08c8
4240 A3CF 8F              .     xgdx
4241 A3D0 EC 00           ..    ldd 00,x
4242 A3D2 C4 80           ..    andb #80
4243 A3D4 84 F7           ..    anda #f7
4244 A3D6 FA 00 47        ..G   orb 0047
4245 A3D9 BA 00 46        ..F   ora 0046
4246 A3DC FD 00 46        ..F   std 0046
4247 A3DF F6 00 19        ...   ldab 0019
4248 A3E2 C4 10           ..    andb #10
4249 A3E4 27 06           '.    beq 06
4250 A3E6 CE 00 46        ..F   ldx #0046
4251 A3E9 1C 00 08        ...   bset 00,x, #08
4252 ; set memory location 08c8+(slotnum*2) to value of 0046
4253 A3EC FC 00 46        ..F   ldd 0046
4254 A3EF 37              7     pshb
4255 A3F0 36              6     psha
4256 A3F1 F6 00 06        ...   ldab 0006
4257 A3F4 4F              O     clra
4258 A3F5 05              .     asld
4259 A3F6 C3 08 C8        ...   addd #08c8
4260 A3F9 38              8     pulx
4261 A3FA 8F              .     xgdx
4262 A3FB ED 00           ..    std 00,x
4263 A3FD 20 22            "    bra 22
4264 A3FF CC 2A FF        .*.   ldd #2aff      ; 00101010 11111111
4265 A402 37              7     pshb
4266 A403 36              6     psha
4267 A404 F6 00 06        ...   ldab 0006
4268 A407 4F              O     clra
4269 A408 05              .     asld
4270 A409 C3 08 00        ...   addd #0800
4271 A40C 38              8     pulx
4272 A40D 8F              .     xgdx
4273 A40E ED 00           ..    std 00,x
4274 A410 CC D5 00        ...   ldd #d500
4275 A413 37              7     pshb
4276 A414 36              6     psha
4277 A415 F6 00 06        ...   ldab 0006
4278 A418 4F              O     clra
4279 A419 05              .     asld
4280 A41A C3 0B F1        ...   addd #0bf1
4281 A41D 38              8     pulx
4282 A41E 8F              .     xgdx
4283 A41F ED 00           ..    std 00,x
4284 A421 F6 00 1F        ...   ldab 001f
4285 A424 C4 40           .@    andb #40
4286 A426 27 26           '&    beq 26
4287 A428 F6 00 06        ...   ldab 0006
4288 A42B 4F              O     clra
4289 A42C 05              .     asld
4290 A42D C3 08 00        ...   addd #0800
4291 A430 8F              .     xgdx
4292 A431 EC 00           ..    ldd 00,x
4293 A433 C4 FF           ..    andb #ff
4294 A435 84 3F           .?    anda #3f
4295 A437 FD 00 27        ..'   std 0027
4296 A43A F6 00 06        ...   ldab 0006
4297 A43D 4F              O     clra
4298 A43E 05              .     asld
4299 A43F C3 08 C8        ...   addd #08c8
4300 A442 8F              .     xgdx
4301 A443 EC 00           ..    ldd 00,x
4302 A445 C4 7F           ..    andb #7f
4303 A447 4F              O     clra
4304 A448 FD 00 46        ..F   std 0046
4305 A44B BD A3 6C        ..l   jsr a36c             ;jump81
4306 A44E 39              9     rts
4307
4308 jump140:
4309 A44F FC 00 0D        ...   ldd 000d
4310 A452 FD 0B B7        ...   std 0bb7
4311 A455 BD A3 6C        ..l   jsr a36c             ;jump81
4312 A458 39              9     rts
4313
4314 jump110:
4315 ; some sort of defaults setting loading? plays with 0067 an awful lot
4316 A459 3C              <     pshx
4317 A45A F6 00 67        ..g   ldab 0067
4318 A45D C4 02           ..    andb #02
4319 A45F 27 08           '.    beq 08
4320 A461 CE 00 67        ..g   ldx #0067
4321 A464 1D 00 4D        ...   bclr 00,x, #4D
4322 A467 20 0C            .    bra 0c
4323 A469 CE 00 67        ..g   ldx #0067
4324 A46C 1D 00 10        ...   bclr 00,x, #10
4325 A46F CE 00 67        ..g   ldx #0067
4326 A472 1D 00           ..    bclr add,x 00,x
4327 A474 20 F6            .    bra f6
4328 A476 00              .     test
4329 A477 67 C4           g.    asr c4,x
4330 A479 10              .     sba
4331 A47A 26 06           &.    bne 06
4332 A47C CE 00 67        ..g   ldx #0067
4333 A47F 1D 00           ..    bclr add,x 00,x
4334 A481 20 F6            .    bra f6
4335 A483 00              .     test
4336 A484 67 C4           g.    asr c4,x
4337 A486 01              .     nop
4338 A487 27 14           '.    beq 14
4339 A489 CE 00 67        ..g   ldx #0067
4340 A48C 1D 00 02        ...   bclr 00,x, #02
4341 A48F CE 00 67        ..g   ldx #0067
4342 A492 1D 00 10        ...   bclr 00,x, #10
4343 A495 CE 00 67        ..g   ldx #0067
4344 A498 1D 00           ..    bclr add,x 00,x
4345 A49A 20 20                 bra 20
4346 A49C 06              .     tap
4347 A49D CE 00 67        ..g   ldx #0067
4348 A4A0 1D 00 08        ...   bclr 00,x, #08
4349 A4A3 F6 00 67        ..g   ldab 0067
4350 A4A6 C4 04           ..    andb #04
4351 A4A8 27 12           '.    beq 12
4352 A4AA CE 00 67        ..g   ldx #0067
4353 A4AD 1D 00 02        ...   bclr 00,x, #02
4354 A4B0 CE 00 67        ..g   ldx #0067
4355 A4B3 1D 00 10        ..    bclr 00,x, #10
4356 A4B6 CE 00 67        ..g   ldx #0067
4357 A4B9 1D 00 20        ..    bclr 00,x, #20
4358 A4BC F6 00 67        ...   ldab 0067
4359 A4BF C4 08           ..    andb #08
4360 A4C1 26 06           &.    bne 06
4361 A4C3 CE 00 67        ..g   ldx #0067
4362 A4C6 1D 00 40        ..@   bclr 00,x, #40
4363 A4C9 F6 00 67        ..g   ldab 0067
4364 A4CC F7 0B C0        ...   stab 0bc0
4365 A4CF F6 0E 70        ..p   ldab 0e70
4366 A4D2 F7 0E 6E        ..n   stab 0e6e
4367 A4D5 F6 0E 6D        ..m   ldab 0e6d
4368 A4D8 26 39           &9    bne 39
4369 A4DA F6 0E 6F        ..o   ldab 0e6f
4370 A4DD 27 34           '4    beq 34
4371 A4DF 7F 00 06        ...   clr 0006
4372 A4E2 F6 00 06        ...   ldab 0006
4373 A4E5 C1 3F           .?    cmpb #3f
4374 A4E7 24 2A           $*    bcc 2a
4375 A4E9 F6 00 06        ...   ldab 0006
4376 A4EC 4F              O     clra
4377 A4ED CE 00 05        ...   ldx #0005
4378 A4F0 02              .     idiv
4379 A4F1 5D              ]     tstb
4380 A4F2 27 1A           '.    beq 1a
4381 A4F4 F6 00 06        ...   ldab 0006
4382 A4F7 4F              O     clra
4383 A4F8 C3 08 00        ...   addd #0800
4384 A4FB 30              0     tsx
4385 A4FC ED 00           ..    std 00,x
4386 A4FE EC 00           ..    ldd 00,x
4387 A500 37              7     pshb
4388 A501 36              6     psha
4389 A502 F6 00 06        ...   ldab 0006
4390 A505 4F              O     clra
4391 A506 05              .     asld
4392 A507 C3 08 C8        ...   addd #08c8
4393 A50A 38              8     pulx
4394 A50B 8F              .     xgdx
4395 A50C ED 00           ..    std 00,x
4396 A50E 7C 00 06        |..   inc 0006
4397 A511 20 CF            .    bra cf
4398 A513 F6 0E 6F        ..o   ldab 0e6f
4399 A516 F7 0E 6D        ..m   stab 0e6d
4400 A519 BD A3 6C        ..l   jsr a36c             ;jump81
4401 A51C 38              8     pulx
4402 A51D 39              9     rts
4403
4404 jump109:
4405 A51E F6 00 22        .."   ldab 0022
4406 A521 4F              O     clra
4407 A522 BD FE 16        ...   jsr fe16             ;jump2
4408 A525 00              .     test
4409 A526 01              .     nop
4410 A527 00              .     test
4411 A528 04              .     lsrd
4412 A529 A5 79           .y    bita 79,x
4413 A52B A5 35           .5    bita 35,x
4414 A52D A5 43           .C    bita 43,x
4415 A52F A5 51           .Q    bita 51,x
4416 A531 A5 5F           ._    bita 5f,x
4417 A533 A5 6D           .m    bita 6d,x
4418 A535 F6 00 24        ..$   ldab 0024
4419 A538 F7 0B AF        ...   stab 0baf
4420 A53B F6 00 2A        ..*   ldab 002a
4421 A53E F7 0B B4        ...   stab 0bb4
4422 A541 20 36            6    bra 36
4423 A543 F6 00 24        ..$   ldab 0024
4424 A546 F7 0B AE        ...   stab 0bae
4425 A549 F6 00 2A        ..*   ldab 002a
4426 A54C F7 0B B3        ...   stab 0bb3
4427 A54F 20 28            (    bra 28
4428 A551 F6 00 24        ..$   ldab 0024
4429 A554 F7 0B AD        ...   stab 0bad
4430 A557 F6 00 2A        ..*   ldab 002a
4431 A55A F7 0B B2        ...   stab 0bb2
4432 A55D 20 1A            .    bra 1a
4433 A55F F6 00 24        ..$   ldab 0024
4434 A562 F7 0B AC        ...   stab 0bac
4435 A565 F6 00 2A        ..*   ldab 002a
4436 A568 F7 0B B1        ...   stab 0bb1
4437 A56B 20 0C            .    bra 0c
4438 A56D F6 00 24        ..$   ldab 0024
4439 A570 F7 0B AB        ...   stab 0bab
4440 A573 F6 00 2A        ..*   ldab 002a
4441 A576 F7 0B B0        ...   stab 0bb0
4442 A579 BD A3 6C        ..l   jsr a36c             ;jump81
4443 A57C 39              9     rts
4444
4445 jump139:
4446 A57D 7F 00 54        ..T   clr 0054
4447 A580 F6 00 54        ..T   ldab 0054
4448 A583 C1 FF           ..    cmpb #ff
4449 A585 24 1B           $.    bcc 1b
4450 A587 F6 00 54        ..T   ldab 0054
4451 A58A 4F              O     clra
4452 A58B C3 0A 90        ...   addd #0a90
4453 A58E 8F              .     xgdx
4454 A58F E6 00           ..    ldab 00,x
4455 A591 37              7     pshb
4456 A592 F6 00 54        ..T   ldab 0054
4457 A595 4F              O     clra
4458 A596 C3 09 90        ...   addd #0990
4459 A599 8F              .     xgdx
4460 A59A 33              3     pulb
4461 A59B E7 00           ..    stab 00,x
4462 A59D 7C 00 54        |.T   inc 0054
4463 A5A0 20 DE            .    bra de
4464 A5A2 F6 00 61        ..a   ldab 0061
4465 A5A5 F7 0B BF        ...   stab 0bbf
4466 A5A8 BD A3 6C        ..l   jsr a36c             ;jump81
4467 A5AB 39              9     rts
4468
4469 jump138:
4470 A5AC 7F 00 54        ..T   clr 0054
4471 A5AF F6 00 54        ..T   ldab 0054
4472 A5B2 C1 10           ..    cmpb #10
4473 A5B4 24 1B           $.    bcc 1b
4474 A5B6 F6 00 54        ..T   ldab 0054
4475 A5B9 4F              O     clra
4476 A5BA C3 0A 90        ...   addd #0a90
4477 A5BD 8F              .     xgdx
4478 A5BE E6 00           ..    ldab 00,x
4479 A5C0 37              7     pshb
4480 A5C1 F6 00 54        ..T   ldab 0054
4481 A5C4 4F              O     clra
4482 A5C5 C3 0C B9        ...   addd #0cb9
4483 A5C8 8F              .     xgdx
4484 A5C9 33              3     pulb
4485 A5CA E7 00           ..    stab 00,x
4486 A5CC 7C 00 54        |.T   inc 0054
4487 A5CF 20 DE            .    bra de
4488 A5D1 BD A3 6C        ..l   jsr a36c             ;jump81
4489 A5D4 39              9     rts
4490
4491 jump137:
4492 A5D5 7F 00 54        ..T   clr 0054
4493 A5D8 F6 00 54        ..T   ldab 0054
4494 A5DB C1 10           ..    cmpb #10
4495 A5DD 24 1B           $.    bcc 1b
4496 A5DF F6 00 54        ..T   ldab 0054
4497 A5E2 4F              O     clra
4498 A5E3 C3 0A 90        ...   addd #0a90
4499 A5E6 8F              .     xgdx
4500 A5E7 E6 00           ..    ldab 00,x
4501 A5E9 37              7     pshb
4502 A5EA F6 00 54        ..T   ldab 0054
4503 A5ED 4F              O     clra
4504 A5EE C3 0C C9        ...   addd #0cc9
4505 A5F1 8F              .     xgdx
4506 A5F2 33              3     pulb
4507 A5F3 E7 00           ..    stab 00,x
4508 A5F5 7C 00 54        |.T   inc 0054
4509 A5F8 20 DE            .    bra de
4510 A5FA BD A3 6C        ..l   jsr a36c             ;jump81
4511 A5FD 39              9     rts
4512
4513 jump136:
4514 A5FE 7F 00 54        ..T   clr 0054
4515 A601 F6 00 54        ..T   ldab 0054
4516 A604 C1 05           ..    cmpb #05
4517 A606 24 1B           $.    bcc 1b
4518 A608 F6 00 54        ..T   ldab 0054
4519 A60B 4F              O     clra
4520 A60C C3 00 62        ..b   addd #0062
4521 A60F 8F              .     xgdx
4522 A610 E6 00           ..    ldab 00,x
4523 A612 37              7     pshb
4524 A613 F6 00 54        ..T   ldab 0054
4525 A616 4F              O     clra
4526 A617 C3 0B A4        ...   addd #0ba4
4527 A61A 8F              .     xgdx
4528 A61B 33              3     pulb
4529 A61C E7 00           ..    stab 00,x
4530 A61E 7C 00 54        |.T   inc 0054
4531 A621 20 DE            .    bra de
4532 A623 7F 00 54        ..T   clr 0054
4533 A626 F6 00 54        ..T   ldab 0054
4534 A629 C1 0B           ..    cmpb #0b
4535 A62B 24 1B           $.    bcc 1b
4536 A62D F6 00 54        ..T   ldab 0054
4537 A630 4F              O     clra
4538 A631 C3 00 68        ..h   addd #0068
4539 A634 8F              .     xgdx
4540 A635 E6 00           ..    ldab 00,x
4541 A637 37              7     pshb
4542 A638 F6 00 54        ..T   ldab 0054
4543 A63B 4F              O     clra
4544 A63C C3 0B E4        ...   addd #0be4
4545 A63F 8F              .     xgdx
4546 A640 33              3     pulb
4547 A641 E7 00           ..    stab 00,x
4548 A643 7C 00 54        |.T   inc 0054
4549 A646 20 DE            .    bra de
4550 A648 8D 04           ..    bsr dest 04
4551 A64A BD A3 6C        ..l   jsr a36c             ;jump81
4552 A64D 39              9     rts
4553
4554 jump135:
4555 A64E BD AB 0C        ...   jsr ab0c             ;jump126
4556 A651 C6 20           .     ldab #20
4557 A653 F7 0B A3        ...   stab 0ba3
4558 A656 C6 20           .     ldab #20
4559 A658 F7 0B 9A        ...   stab 0b9a
4560 A65B C6 01           ..    ldab #01
4561 A65D F7 00 54        ..T   stab 0054
4562 goto21:
4563 A660 F6 00 54        ..T   ldab 0054
4564 A663 C1 09           ..    cmpb #09
4565 A665 25 03           %.    bcs 03
4566 A667 7E A7 1E        ~..   jmp a71e             ;goto20
4567 A66A F6 00 54        ..T   ldab 0054
4568 A66D 4F              O     clra
4569 A66E BD FE 16        ...   jsr fe16             ;jump2
4570 A671 00 01 00 07     .     test
4571 A675 A6 ED           ..
4572 A677 A6 87           ..
4573 A679 A6 95           ..
4574 A67B A6 A1           ..
4575 A67D A6 AF           ..
4576 A67F A6 BB           ..
4577 A681 A6 C9           ..
4578 A683 A6 D5           ..
4579 A685 A6 E3           ..
4580 A687 F6 00 62        ..b   ldab 0062
4581 A68A 54              T     lsrb
4582 A68B 54              T     lsrb
4583 A68C 54              T     lsrb
4584 A68D 54              T     lsrb
4585 A68E C8 04           ..    eorb #04
4586 A690 F7 00 5F        .._   stab 005f
4587 A693 20 58            X    bra 58
4588 A695 F6 00 62        ..b   ldab 0062
4589 A698 C4 0F           ..    andb #0f
4590 A69A C8 0D           ..    eorb #0d
4591 A69C F7 00 5F        .._   stab 005f
4592 A69F 20 4C            L    bra 4c
4593 A6A1 F6 00 63        ..c   ldab 0063
4594 A6A4 54              T     lsrb
4595 A6A5 54              T     lsrb
4596 A6A6 54              T     lsrb
4597 A6A7 54              T     lsrb
4598 A6A8 C8 04           ..    eorb #04
4599 A6AA F7 00 5F        .._   stab 005f
4600 A6AD 20 3E            >    bra 3e
4601 A6AF F6 00 63        ..c   ldab 0063
4602 A6B2 C4 0F           ..    andb #0f
4603 A6B4 C8 05           ..    eorb #05
4604 A6B6 F7 00 5F        .._   stab 005f
4605 A6B9 20 32            2    bra 32
4606 A6BB F6 00 64        ..d   ldab 0064
4607 A6BE 54              T     lsrb
4608 A6BF 54              T     lsrb
4609 A6C0 54              T     lsrb
4610 A6C1 54              T     lsrb
4611 A6C2 C8 05           ..    eorb #05
4612 A6C4 F7 00 5F        .._   stab 005f
4613 A6C7 20 24            $    bra 24
4614 A6C9 F6 00 64        ..d   ldab 0064
4615 A6CC C4 0F           ..    andb #0f
4616 A6CE C8 04           ..    eorb #04
4617 A6D0 F7 00 5F        .._   stab 005f
4618 A6D3 20 18            .    bra 18
4619 A6D5 F6 00 65        ..e   ldab 0065
4620 A6D8 54              T     lsrb
4621 A6D9 54              T     lsrb
4622 A6DA 54              T     lsrb
4623 A6DB 54              T     lsrb
4624 A6DC C8 05           ..    eorb #05
4625 A6DE F7 00 5F        .._   stab 005f
4626 A6E1 20 0A            .    bra 0a
4627 A6E3 F6 00 65        ..e   ldab 0065
4628 A6E6 C4 0F           ..    andb #0f
4629 A6E8 C8 03           ..    eorb #03
4630 A6EA F7 00 5F        .._   stab 005f
4631 A6ED F6 00 5F        .._   ldab 005f
4632 A6F0 C1 09           ..    cmpb #09
4633 A6F2 23 13           #.    bls 13
4634 A6F4 F6 00 5F        .._   ldab 005f
4635 A6F7 CB 37           .7    addb #37
4636 A6F9 37              7     pshb
4637 A6FA F6 00 54        ..T   ldab 0054
4638 A6FD 4F              O     clra
4639 A6FE C3 0B 9A        ...   addd #0b9a
4640 A701 8F              .     xgdx
4641 A702 33              3     pulb
4642 A703 E7 00           ..    stab 00,x
4643 A705 20 11            .    bra 11
4644 A707 F6 00 5F        .._   ldab 005f
4645 A70A CB 30           .0    addb #30
4646 A70C 37              7     pshb
4647 A70D F6 00 54        ..T   ldab 0054
4648 A710 4F              O     clra
4649 A711 C3 0B 9A        ...   addd #0b9a
4650 A714 8F              .     xgdx
4651 A715 33              3     pulb
4652 A716 E7 00           ..    stab 00,x
4653 A718 7C 00 54        |.T   inc 0054
4654 A71B 7E A6 60        ~.`   jmp a660             ;goto21
4655 goto20:
4656 A71E 39              9     rts
4657
4658 jump134:
4659 A71F F6 00 48        ..H   ldab 0048
4660 A722 26 11           &.    bne 11
4661 A724 F6 00 66        ..f   ldab 0066
4662 A727 26 07           &.    bne 07
4663 A729 C6 01           ..    ldab #01
4664 A72B F7 00 66        ..f   stab 0066
4665 A72E 20 03            .    bra 03
4666 A730 7F 00 66        ..f   clr 0066
4667 A733 20 29            )    bra 29
4668 A735 F6 00 48        ..H   ldab 0048
4669 A738 4F              O     clra
4670 A739 C3 00 68        ..h   addd #0068
4671 A73C 8F              .     xgdx
4672 A73D E6 00           ..    ldab 00,x
4673 A73F 26 10           &.    bne 10
4674 A741 C6 01           ..    ldab #01
4675 A743 37              7     pshb
4676 A744 F6 00 48        ..H   ldab 0048
4677 A747 4F              O     clra
4678 A748 C3 00 68        ..h   addd #0068
4679 A74B 8F              .     xgdx
4680 A74C 33              3     pulb
4681 A74D E7 00           ..    stab 00,x
4682 A74F 20 0D            .    bra 0d
4683 A751 5F              _     clrb
4684 A752 37              7     pshb
4685 A753 F6 00 48        ..H   ldab 0048
4686 A756 4F              O     clra
4687 A757 C3 00 68        ..h   addd #0068
4688 A75A 8F              .     xgdx
4689 A75B 33              3     pulb
4690 A75C E7 00           ..    stab 00,x
4691 A75E 39              9     rts
4692
4693 jump133:
4694 A75F F6 00 48        ..H   ldab 0048
4695 A762 4F              O     clra
4696 A763 BD FE 16        ...   jsr fe16             ;jump2
4697 A766 00 00 00 09     .     test
4698 A76A A7 DC           ..    ;
4699 A76C A7 80           ..    ;
4700 A76E A7 87           ..    ;
4701 A770 A7 8E           ..    ;
4702 A772 A7 95           ..    ;
4703 A774 A7 9C           ..    ;
4704 A776 A7 A3           ..    ;
4705 A778 A7 AA           ..    ;
4706 A77A A7 B1           ..    ;
4707 A77C A7 C4           ..    ;
4708 A77E A7 D7           ..    ;
4709 ;
4710 A780 C6 02           ..    ldab #02
4711 A782 F7 00 02        ...   stab 0002
4712 A785 20 55            U    bra 55
4713 ;
4714 A787 C6 10           ..    ldab #10
4715 A789 F7 00 02        ...   stab 0002
4716 A78C 20 4E            N    bra 4e
4717 A78E C6 20           .     ldab #20
4718 A790 F7 00 02        ...   stab 0002
4719 A793 20 47            G    bra 47
4720 A795 C6 01           ..    ldab #01
4721 A797 F7 00 02        ...   stab 0002
4722 A79A 20 40            @    bra 40
4723 A79C C6 04           ..    ldab #04
4724 A79E F7 00 02        ...   stab 0002
4725 A7A1 20 39            9    bra 39
4726 A7A3 C6 08           ..    ldab #08
4727 A7A5 F7 00 02        ...   stab 0002
4728 A7A8 20 32            2    bra 32
4729 A7AA C6 40           .@    ldab #40
4730 A7AC F7 00 02        ...   stab 0002
4731 A7AF 20 2B            +    bra 2b
4732 A7B1 F6 0E 70        ..p   ldab 0e70
4733 A7B4 C1 01           ..    cmpb #01
4734 A7B6 26 05           &.    bne 05
4735 A7B8 7F 0E 70        ..p   clr 0e70
4736 A7BB 20 05            .    bra 05
4737 A7BD C6 01           ..    ldab #01
4738 A7BF F7 0E 70        ..p   stab 0e70
4739 A7C2 20 18            .    bra 18
4740 A7C4 F6 0E 6F        ..o   ldab 0e6f
4741 A7C7 C1 01           ..    cmpb #01
4742 A7C9 26 05           &.    bne 05
4743 A7CB 7F 0E 6F        ..o   clr 0e6f
4744 A7CE 20 05            .    bra 05
4745 A7D0 C6 01           ..    ldab #01
4746 A7D2 F7 0E 6F        ..o   stab 0e6f
4747 A7D5 20 05            .    bra 05
4748 A7D7 C6 80           ..    ldab #80
4749 A7D9 F7 00 02        ...   stab 0002
4750 A7DC F6 00 48        ..H   ldab 0048
4751 A7DF C1 0A           ..    cmpb #0a
4752 A7E1 24 2B           $+    bcc 2b
4753 A7E3 F6 00 48        ..H   ldab 0048
4754 A7E6 C1 07           ..    cmpb #07
4755 A7E8 27 24           '$    beq 24
4756 A7EA F6 00 48        ..H   ldab 0048
4757 A7ED C1 08           ..    cmpb #08
4758 A7EF 27 1D           '.    beq 1d
4759 A7F1 F6 00 67        ..g   ldab 0067
4760 A7F4 F4 00 02        ...   andb 0002
4761 A7F7 26 0B           &.    bne 0b
4762 A7F9 F6 00 02        ...   ldab 0002
4763 A7FC FA 00 67        ..g   orb 0067
4764 A7FF F7 00 67        ..g   stab 0067
4765 A802 20 0A            .    bra 0a
4766 A804 F6 00 02        ...   ldab 0002
4767 A807 53              S     comb
4768 A808 F4 00 67        ..g   andb 0067
4769 A80B F7 00 67        ..g   stab 0067
4770 A80E 39              9     rts
4771
4772 A80F 7F 00 54        ..T   clr 0054
4773 A812 F6 00 54        ..T   ldab 0054
4774 A815 C1 04           ..    cmpb #04
4775 A817 24 4A           $J    bcc 4a
4776 A819 CC 01 F4        ...   ldd #01f4
4777 A81C BD E5 71        ..q   jsr e571             ;msdelay
4778 A81F F6 0B 93        ...   ldab 0b93
4779 A822 F7 00 5F        .._   stab 005f
4780 A825 F6 0B 94        ...   ldab 0b94
4781 A828 F7 00 5E        ..^   stab 005e
4782 A82B F6 0B 95        ...   ldab 0b95
4783 A82E F7 00 5D        ..]   stab 005d
4784 A831 F6 0B 96        ...   ldab 0b96
4785 A834 F7 00 5A        ..Z   stab 005a
4786 A837 BD BE 4B        ..K   jsr be4b             ;displayblank
4787 A83A BD BE 01        ...   jsr be01             ;jump70
4788 A83D CC 01 F4        ...   ldd #01f4
4789 A840 BD E5 71        ..q   jsr e571             ;msdelay
4790 A843 F6 00 5F        .._   ldab 005f
4791 A846 F7 0B 93        ...   stab 0b93
4792 A849 F6 00 5E        ..^   ldab 005e
4793 A84C F7 0B 94        ...   stab 0b94
4794 A84F F6 00 5D        ..]   ldab 005d
4795 A852 F7 0B 95        ...   stab 0b95
4796 A855 F6 00 5A        ..Z   ldab 005a
4797 A858 F7 0B 96        ...   stab 0b96
4798 A85B BD BE 01        ...   jsr be01             ;jump70
4799 A85E 7C 00 54        |.T   inc 0054
4800 A861 20 AF            .    bra af
4801 A863 39              9     rts
4802
4803 jump99:
4804 A864 F6 00 09        ...   ldab 0009
4805 A867 C1 01           ..    cmpb #01
4806 A869 26 20           &     bne 20
4807 A86B F6 00 61        ..a   ldab 0061
4808 A86E 4F              O     clra
4809 A86F C3 00 01        ...   addd #0001
4810 A872 37              7     pshb
4811 A873 36              6     psha
4812 A874 F6 00 60        ..`   ldab 0060
4813 A877 4F              O     clra
4814 A878 30              0     tsx
4815 A879 A3 00           ..    subd 00,x
4816 A87B 31              1     ins
4817 A87C 31              1     ins
4818 A87D 2C 0A           ,.    bge 0a
4819 A87F F6 00 60        ..`   ldab 0060
4820 A882 C1 F9           ..    cmpb #f9    ; -7
4821 A884 24 03           $.    bcc 03
4822 A886 7C 00 60        |.`   inc 0060
4823 A889 20 0A            .    bra 0a
4824 A88B F6 00 60        ..`   ldab 0060
4825 A88E C1 09           ..    cmpb #09
4826 A890 24 03           $.    bcc 03
4827 A892 7C 00 60        |.`   inc 0060
4828 A895 39              9     rts
4829
4830 jump98:
4831 A896 F6 00 36        ..6   ldab 0036
4832 A899 26 39           &9    bne 39
4833 A89B F6 00 54        ..T   ldab 0054
4834 A89E C1 27           .'    cmpb #27     ; 39
4835 A8A0 24 20           $     bcc 20
4836 A8A2 7C 00 54        |.T   inc 0054
4837 A8A5 F6 00 09        ...   ldab 0009
4838 A8A8 C1 01           ..    cmpb #01
4839 A8AA 26 0C           &.    bne 0c
4840 A8AC F6 00 54        ..T   ldab 0054
4841 A8AF C1 27           .'    cmpb #27     ; 39
4842 A8B1 26 03           &.    bne 03
4843 A8B3 7F 00 54        ..T   clr 0054
4844 A8B6 20 0A            .    bra 0a
4845 A8B8 F6 00 54        ..T   ldab 0054
4846 A8BB C1 24           .$    cmpb #24     ; 36
4847 A8BD 26 03           &.    bne 03
4848 A8BF 7F 00 54        ..T   clr 0054
4849 A8C2 F6 00 54        ..T   ldab 0054
4850 A8C5 4F              O     clra
4851 A8C6 C3 B4 8F        ...   addd #b48f
4852 A8C9 8F              .     xgdx
4853 A8CA E6 00           ..    ldab 00,x
4854 A8CC F7 0B 90        ...   stab 0b90
4855 A8CF C6 02           ..    ldab #02
4856 A8D1 F7 00 36        ..6   stab 0036
4857 A8D4 39              9     rts
4858
4859 jump97:
4860 A8D5 F6 00 60        ..`   ldab 0060
4861 A8D8 C1 00           ..    cmpb #00
4862 A8DA 23 05           #.    bls 05
4863 A8DC 7A 00 60        z.`   dec 0060
4864 A8DF 20 03            .    bra 03
4865 A8E1 7F 00 60        ..`   clr 0060
4866 A8E4 39              9     rts
4867
4868 jump96:
4869 A8E5 F6 00 36        ..6   ldab 0036
4870 A8E8 26 36           &6    bne 36
4871 A8EA F6 00 54        ..T   ldab 0054
4872 A8ED C1 00           ..    cmpb #00
4873 A8EF 25 1D           %.    bcs 1d
4874 A8F1 F6 00 54        ..T   ldab 0054
4875 A8F4 26 15           &.    bne 15
4876 A8F6 F6 00 09        ...   ldab 0009
4877 A8F9 C1 01           ..    cmpb #01
4878 A8FB 26 07           &.    bne 07
4879 A8FD C6 26           .&    ldab #26
4880 A8FF F7 00 54        ..T   stab 0054
4881 A902 20 05            .    bra 05
4882 A904 C6 23           .#    ldab #23
4883 A906 F7 00 54        ..T   stab 0054
4884 A909 20 03            .    bra 03
4885 A90B 7A 00 54        z.T   dec 0054
4886 A90E F6 00 54        ..T   ldab 0054
4887 A911 4F              O     clra
4888 A912 C3 B4 8F        ...   addd #b48f
4889 A915 8F              .     xgdx
4890 A916 E6 00           ..    ldab 00,x
4891 A918 F7 0B 90        ...   stab 0b90
4892 A91B C6 02           ..    ldab #02
4893 A91D F7 00 36        ..6   stab 0036
4894 A920 39              9     rts
4895
4896 jump95:
4897 A921 F6 0B 90        ...   ldab 0b90
4898 A924 F7 0B 96        ...   stab 0b96
4899 A927 F6 0B 96        ...   ldab 0b96
4900 A92A 37              7     pshb
4901 A92B F6 00 60        ..`   ldab 0060
4902 A92E 4F              O     clra
4903 A92F C3 0A 93        ...   addd #0a93
4904 A932 8F              .     xgdx
4905 A933 33              3     pulb
4906 A934 E7 00           ..    stab 00,x
4907 A936 F6 00 09        ...   ldab 0009
4908 A939 C1 01           ..    cmpb #01
4909 A93B 26 32           &2    bne 32
4910 A93D F6 00 61        ..a   ldab 0061
4911 A940 4F              O     clra
4912 A941 C3 00 01        ...   addd #0001
4913 A944 37              7     pshb
4914 A945 36              6     psha
4915 A946 F6 00 60        ..`   ldab 0060
4916 A949 4F              O     clra
4917 A94A 30              0     tsx
4918 A94B A3 00           ..    subd 00,x
4919 A94D 31              1     ins
4920 A94E 31              1     ins
4921 A94F 26 0A           &.    bne 0a
4922 A951 F6 00 60        ..`   ldab 0060
4923 A954 C1 FA           ..    cmpb #fa
4924 A956 24 03           $.    bcc 03
4925 A958 7C 00 61        |.a   inc 0061
4926 A95B F6 00 60        ..`   ldab 0060
4927 A95E F1 00 61        ..a   cmpb 0061
4928 A961 22 0A           ".    bhi 0a
4929 A963 F6 00 60        ..`   ldab 0060
4930 A966 C1 F9           ..    cmpb #f9
4931 A968 24 03           $.    bcc 03
4932 A96A 7C 00 60        |.`   inc 0060
4933 A96D 20 0A            .    bra 0a
4934 A96F F6 00 60        ..`   ldab 0060
4935 A972 C1 09           ..    cmpb #09
4936 A974 24 03           $.    bcc 03
4937 A976 7C 00 60        |.`   inc 0060
4938 A979 39              9     rts
4939
4940 jump132:
4941 A97A F6 00 60        ..`   ldab 0060
4942 A97D 26 24           &$    bne 24
4943 A97F F6 00 60        ..`   ldab 0060
4944 A982 CB 03           ..    addb #03
4945 A984 F7 00 54        ..T   stab 0054
4946 A987 F6 00 54        ..T   ldab 0054
4947 A98A C1 FF           ..    cmpb #ff
4948 A98C 24 13           $.    bcc 13
4949 A98E C6 20           .     ldab #20
4950 A990 37              7     pshb
4951 A991 F6 00 54        ..T   ldab 0054
4952 A994 4F              O     clra
4953 A995 C3 0A 90        ...   addd #0a90
4954 A998 8F              .     xgdx
4955 A999 33              3     pulb
4956 A99A E7 00           ..    stab 00,x
4957 A99C 7C 00 54        |.T   inc 0054
4958 A99F 20 E6            .    bra e6
4959 A9A1 20 22            "    bra 22
4960 A9A3 F6 00 60        ..`   ldab 0060
4961 A9A6 CB 04           ..    addb #04
4962 A9A8 F7 00 54        ..T   stab 0054
4963 A9AB F6 00 54        ..T   ldab 0054
4964 A9AE C1 FF           ..    cmpb #ff
4965 A9B0 24 13           $.    bcc 13
4966 A9B2 C6 20           .     ldab #20
4967 A9B4 37              7     pshb
4968 A9B5 F6 00 54        ..T   ldab 0054
4969 A9B8 4F              O     clra
4970 A9B9 C3 0A 90        ...   addd #0a90
4971 A9BC 8F              .     xgdx
4972 A9BD 33              3     pulb
4973 A9BE E7 00           ..    stab 00,x
4974 A9C0 7C 00 54        |.T   inc 0054
4975 A9C3 20 E6            .    bra e6
4976 A9C5 F6 00 60        ..`   ldab 0060
4977 A9C8 F7 00 61        ..a   stab 0061
4978 A9CB 7F 00 54        ..T   clr 0054
4979 A9CE 39              9     rts
4980
4981 jump131:
4982 A9CF C6 50           .P    ldab #50
4983 A9D1 F7 09 90        ...   stab 0990
4984 A9D4 C6 29           .)    ldab #29
4985 A9D6 F7 09 91        ...   stab 0991
4986 A9D9 C6 20           .     ldab #20
4987 A9DB F7 09 92        ...   stab 0992
4988 A9DE 7F 00 54        ..T   clr 0054
4989 A9E1 F6 00 54        ..T   ldab 0054
4990 A9E4 C1 FF           ..    cmpb #ff
4991 A9E6 24 1B           $.    bcc 1b
4992 A9E8 F6 00 54        ..T   ldab 0054
4993 A9EB 4F              O     clra
4994 A9EC C3 09 90        ...   addd #0990
4995 A9EF 8F              .     xgdx
4996 A9F0 E6 00           ..    ldab 00,x
4997 A9F2 37              7     pshb
4998 A9F3 F6 00 54        ..T   ldab 0054
4999 A9F6 4F              O     clra
5000 A9F7 C3 0A 90        ...   addd #0a90
5001 A9FA 8F              .     xgdx
5002 A9FB 33              3     pulb
5003 A9FC E7 00           ..    stab 00,x
5004 A9FE 7C 00 54        |.T   inc 0054
5005 AA01 20 DE            .    bra de
5006 AA03 F6 0B BF        ...   ldab 0bbf
5007 AA06 F7 00 61        ..a   stab 0061
5008 AA09 39              9     rts
5009
5010 jump130:
5011 AA0A C6 53           .S    ldab #53   ; 'S'
5012 AA0C F7 0C B9        ...   stab 0cb9
5013 AA0F C6 29           .)    ldab #29   ; ')'
5014 AA11 F7 0C BA        ...   stab 0cba
5015 AA14 C6 20           .     ldab #20   ; ' '
5016 AA16 F7 0C BB        ...   stab 0cbb
5017 AA19 7F 00 54        ..T   clr 0054
5018 AA1C F6 00 54        ..T   ldab 0054
5019 AA1F C1 10           ..    cmpb #10
5020 AA21 24 1B           $.    bcc 1b
5021 AA23 F6 00 54        ..T   ldab 0054
5022 AA26 4F              O     clra
5023 AA27 C3 0C B9        ...   addd #0cb9
5024 AA2A 8F              .     xgdx
5025 AA2B E6 00           ..    ldab 00,x
5026 AA2D 37              7     pshb
5027 AA2E F6 00 54        ..T   ldab 0054
5028 AA31 4F              O     clra
5029 AA32 C3 0A 90        ...   addd #0a90
5030 AA35 8F              .     xgdx
5031 AA36 33              3     pulb
5032 AA37 E7 00           ..    stab 00,x
5033 AA39 7C 00 54        |.T   inc 0054
5034 AA3C 20 DE            .    bra de
5035 AA3E 39              9     rts
5036
5037 jump129:
5038 AA3F C6 49           .I    ldab #49
5039 AA41 F7 0C C9        ...   stab 0cc9
5040 AA44 C6 29           .)    ldab #29
5041 AA46 F7 0C CA        ...   stab 0cca
5042 AA49 C6 20           .     ldab #20
5043 AA4B F7 0C CB        ...   stab 0ccb
5044 AA4E 7F 00 54        ..T   clr 0054
5045 AA51 F6 00 54        ..T   ldab 0054
5046 AA54 C1 10           ..    cmpb #10
5047 AA56 24 1B           $.    bcc 1b
5048 AA58 F6 00 54        ..T   ldab 0054
5049 AA5B 4F              O     clra
5050 AA5C C3 0C C9        ...   addd #0cc9
5051 AA5F 8F              .     xgdx
5052 AA60 E6 00           ..    ldab 00,x
5053 AA62 37              7     pshb
5054 AA63 F6 00 54        ..T   ldab 0054
5055 AA66 4F              O     clra
5056 AA67 C3 0A 90        ...   addd #0a90
5057 AA6A 8F              .     xgdx
5058 AA6B 33              3     pulb
5059 AA6C E7 00           ..    stab 00,x
5060 AA6E 7C 00 54        |.T   inc 0054
5061 AA71 20 DE            .    bra de
5062 AA73 39              9     rts
5063
5064 jump128:
5065 AA74 7F 00 54        ..T   clr 0054
5066 AA77 F6 00 54        ..T   ldab 0054
5067 AA7A C1 0B           ..    cmpb #0b
5068 AA7C 24 1B           $.    bcc 1b
5069 AA7E F6 00 54        ..T   ldab 0054
5070 AA81 4F              O     clra
5071 AA82 C3 0B E4        ...   addd #0be4
5072 AA85 8F              .     xgdx
5073 AA86 E6 00           ..    ldab 00,x
5074 AA88 37              7     pshb
5075 AA89 F6 00 54        ..T   ldab 0054
5076 AA8C 4F              O     clra
5077 AA8D C3 00 68        ..h   addd #0068
5078 AA90 8F              .     xgdx
5079 AA91 33              3     pulb
5080 AA92 E7 00           ..    stab 00,x
5081 AA94 7C 00 54        |.T   inc 0054
5082 AA97 20 DE            .    bra de
5083 AA99 39              9     rts
5084
5085 jump127:
5086 AA9A F6 00 22        .."   ldab 0022
5087 AA9D C1 06           ..    cmpb #06
5088 AA9F 24 0F           $.    bcc 0f
5089 AAA1 7C 00 22        |."   inc 0022
5090 AAA4 F6 00 22        .."   ldab 0022
5091 AAA7 C1 05           ..    cmpb #05
5092 AAA9 23 05           #.    bls 05
5093 AAAB C6 01           ..    ldab #01
5094 AAAD F7 00 22        .."   stab 0022
5095 AAB0 F6 00 22        .."   ldab 0022
5096 AAB3 4F              O     clra
5097 AAB4 BD FE 16        ...   jsr fe16             ;jump2
5098 AAB7 00              .     test
5099 AAB8 01              .     nop
5100 AAB9 00              .     test
5101 AABA 04              .     lsrd
5102 AABB AB 0B           ..    adda 0b,x
5103 AABD AA C7           ..    ora c7,x
5104 AABF AA D5           ..    ora d5,x
5105 AAC1 AA E3           ..    ora e3,x
5106 AAC3 AA F1           ..    ora f1,x
5107 AAC5 AA FF           ..    ora ff,x
5108 AAC7 F6 0B AF        ...   ldab 0baf
5109 AACA F7 00 24        ..$   stab 0024
5110 AACD F6 0B B4        ...   ldab 0bb4
5111 AAD0 F7 00 2A        ..*   stab 002a
5112 AAD3 20 36            6    bra 36
5113 AAD5 F6 0B AE        ...   ldab 0bae
5114 AAD8 F7 00 24        ..$   stab 0024
5115 AADB F6 0B B3        ...   ldab 0bb3
5116 AADE F7 00 2A        ..*   stab 002a
5117 AAE1 20 28            (    bra 28
5118 AAE3 F6 0B AD        ...   ldab 0bad
5119 AAE6 F7 00 24        ..$   stab 0024
5120 AAE9 F6 0B B2        ...   ldab 0bb2
5121 AAEC F7 00 2A        ..*   stab 002a
5122 AAEF 20 1A            .    bra 1a
5123 AAF1 F6 0B AC        ...   ldab 0bac
5124 AAF4 F7 00 24        ..$   stab 0024
5125 AAF7 F6 0B B1        ...   ldab 0bb1
5126 AAFA F7 00 2A        ..*   stab 002a
5127 AAFD 20 0C            .    bra 0c
5128 AAFF F6 0B AB        ...   ldab 0bab
5129 AB02 F7 00 24        ..$   stab 0024
5130 AB05 F6 0B B0        ...   ldab 0bb0
5131 AB08 F7 00 2A        ..*   stab 002a
5132 AB0B 39              9     rts
5133
5134 jump126:
5135 AB0C C6 03           ..    ldab #03
5136 AB0E F7 00 18        ...   stab 0018
5137 AB11 7F 00 1C        ...   clr 001c
5138 AB14 F6 00 1C        ...   ldab 001c
5139 AB17 C1 04           ..    cmpb #04
5140 AB19 24 6D           $m    bcc 6d
5141 AB1B C6 07           ..    ldab #07
5142 AB1D F7 00 55        ..U   stab 0055
5143 AB20 7F 00 54        ..T   clr 0054
5144 AB23 F6 00 54        ..T   ldab 0054
5145 AB26 C1 08           ..    cmpb #08
5146 AB28 24 56           $V    bcc 56
5147 AB2A F6 00 1C        ...   ldab 001c
5148 AB2D 4F              O     clra
5149 AB2E C3 0B A4        ...   addd #0ba4
5150 AB31 8F              .     xgdx
5151 AB32 E6 00           ..    ldab 00,x
5152 AB34 37              7     pshb
5153 AB35 F6 00 54        ..T   ldab 0054
5154 AB38 4F              O     clra
5155 AB39 C3 B4 B7        ...   addd #b4b7
5156 AB3C 8F              .     xgdx
5157 AB3D E6 00           ..    ldab 00,x
5158 AB3F 30              0     tsx
5159 AB40 E4 00           ..    andb 00,x
5160 AB42 31              1     ins
5161 AB43 27 1A           '.    beq 1a
5162 AB45 F6 00 55        ..U   ldab 0055
5163 AB48 4F              O     clra
5164 AB49 C3 B4 B7        ...   addd #b4b7
5165 AB4C 8F              .     xgdx
5166 AB4D E6 00           ..    ldab 00,x
5167 AB4F 37              7     pshb
5168 AB50 F6 00 18        ...   ldab 0018
5169 AB53 4F              O     clra
5170 AB54 C3 00 62        ..b   addd #0062
5171 AB57 8F              .     xgdx
5172 AB58 33              3     pulb
5173 AB59 EA 00           ..    orb 00,x
5174 AB5B E7 00           ..    stab 00,x
5175 AB5D 20 19            .    bra 19
5176 AB5F F6 00 55        ..U   ldab 0055
5177 AB62 4F              O     clra
5178 AB63 C3 B4 B7        ...   addd #b4b7
5179 AB66 8F              .     xgdx
5180 AB67 E6 00           ..    ldab 00,x
5181 AB69 53              S     comb
5182 AB6A 37              7     pshb
5183 AB6B F6 00 18        ...   ldab 0018
5184 AB6E 4F              O     clra
5185 AB6F C3 00 62        ..b   addd #0062
5186 AB72 8F              .     xgdx
5187 AB73 33              3     pulb
5188 AB74 E4 00           ..    andb 00,x
5189 AB76 E7 00           ..    stab 00,x
5190 AB78 7A 00 55        z.U   dec 0055
5191 AB7B 7C 00 54        |.T   inc 0054
5192 AB7E 20 A3            .    bra a3
5193 AB80 7A 00 18        z..   dec 0018
5194 AB83 7C 00 1C        |..   inc 001c
5195 AB86 20 8C            .    bra 8c
5196 AB88 39              9     rts
5197
5198 jump7:
5199 AB89 CC B0 8C        ...   ldd #b08c    ; "NO ERRORS"
5200 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5201 AB8F CC 01 F4        ...   ldd #01f4
5202 AB92 BD E5 71        ..q   jsr e571             ;msdelay
5203 AB95 BD D4 79        ..y   jsr d479             ;jump67
5204 AB98 BD E8 9A        ...   jsr e89a             ;jump68
5205 AB9B BD E9 EA        ...   jsr e9ea             ;jump113
5206 AB9E 7F 0B C1        ...   clr 0bc1     ; clear all errors
5207 ABA1 39              9     rts
5208
5209 jump8:
5210 ABA2 7F 00 05        ...   clr 0005
5211 goto24:
5212 ABA5 F6 00 05        ...   ldab 0005
5213 ABA8 C1 64           .d    cmpb #64
5214 ABAA 25 03           %.    bcs 03
5215 ABAC 7E AC 81        ~..   jmp ac81             ;goto22
5216 ABAF F6 00 05        ...   ldab 0005
5217 ABB2 F7 00 06        ...   stab 0006
5218 ABB5 F6 00 05        ...   ldab 0005
5219 ABB8 4F              O     clra
5220 ABB9 CE 00 05        ...   ldx #0005
5221 ABBC 02              .     idiv
5222 ABBD 5D              ]     tstb
5223 ABBE 26 03           &.    bne 03
5224 ABC0 7E AC 7B        ~.{   jmp ac7b             ;goto23
5225 ABC3 F6 00 06        ...   ldab 0006
5226 ABC6 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
5227 ABC9 83 00 00        ...   subd #0000
5228 ABCC 27 03           '.    beq 03
5229 ABCE 7E AC 7B        ~.{   jmp ac7b             ;goto23
5230 ABD1 BD D3 11        ...   jsr d311             ;jump30 - test position exists
5231 ABD4 83 00 00        ...   subd #0000
5232 ABD7 27 2B           '+    beq 2b
5233 ABD9 F6 00 05        ...   ldab 0005
5234 ABDC 4F              O     clra
5235 ABDD 05              .     asld
5236 ABDE C3 08 00        ...   addd #0800
5237 ABE1 8F              .     xgdx
5238 ABE2 EC 00           ..    ldd 00,x
5239 ABE4 C4 FF           ..    andb #ff
5240 ABE6 84 3F           .?    anda #3f
5241 ABE8 83 27 10        .'.   subd #2710   ; 10000
5242 ABEB 24 15           $.    bcc 15
5243 ABED CC 01 00        ...   ldd #0100
5244 ABF0 37              7     pshb
5245 ABF1 36              6     psha
5246 ABF2 F6 00 05        ...   ldab 0005
5247 ABF5 4F              O     clra
5248 ABF6 05              .     asld
5249 ABF7 C3 08 C8        ...   addd #08c8
5250 ABFA 38              8     pulx
5251 ABFB 8F              .     xgdx
5252 ABFC AA 00           ..    ora 00,x
5253 ABFE EA 01           ..    orb 01,x
5254 AC00 ED 00           ..    std 00,x
5255 AC02 20 29            )    bra 29
5256 AC04 F6 00 05        ...   ldab 0005
5257 AC07 4F              O     clra
5258 AC08 05              .     asld
5259 AC09 C3 08 00        ...   addd #0800
5260 AC0C 8F              .     xgdx
5261 AC0D EC 00           ..    ldd 00,x
5262 AC0F C4 FF           ..    andb #ff
5263 AC11 84 3F           .?    anda #3f
5264 AC13 83 27 0F        .'.   subd #270f
5265 AC16 23 15           #.    bls 15
5266 AC18 CC 01 00        ...   ldd #0100
5267 AC1B 37              7     pshb
5268 AC1C 36              6     psha
5269 AC1D F6 00 05        ...   ldab 0005
5270 AC20 4F              O     clra
5271 AC21 05              .     asld
5272 AC22 C3 08 C8        ...   addd #08c8
5273 AC25 38              8     pulx
5274 AC26 8F              .     xgdx
5275 AC27 AA 00           ..    ora 00,x
5276 AC29 EA 01           ..    orb 01,x
5277 AC2B ED 00           ..    std 00,x
5278 AC2D F6 00 05        ...   ldab 0005
5279 AC30 4F              O     clra
5280 AC31 05              .     asld
5281 AC32 C3 08 C8        ...   addd #08c8
5282 AC35 8F              .     xgdx
5283 AC36 EC 00           ..    ldd 00,x
5284 AC38 84 01           ..    anda #01
5285 AC3A 27 06           '.    beq 06
5286 AC3C CE 00 19        ...   ldx #0019
5287 AC3F 1C 00 04        ...   bset 00,x, #04
5288 AC42 F6 00 05        ...   ldab 0005
5289 AC45 4F              O     clra
5290 AC46 05              .     asld
5291 AC47 C3 08 00        ...   addd #0800
5292 AC4A 8F              .     xgdx
5293 AC4B EC 00           ..    ldd 00,x
5294 AC4D 84 80           ..    anda #80
5295 AC4F 27 2A           '*    beq 2a
5296 AC51 F6 00 05        ...   ldab 0005
5297 AC54 4F              O     clra
5298 AC55 05              .     asld
5299 AC56 C3 08 C8        ...   addd #08c8
5300 AC59 8F              .     xgdx
5301 AC5A EC 00           ..    ldd 00,x
5302 AC5C 84 02           ..    anda #02
5303 AC5E 27 06           '.    beq 06
5304 AC60 CE 00 19        ...   ldx #0019
5305 AC63 1C 00 01        ...   bset 00,x, #01
5306 AC66 F6 00 05        ...   ldab 0005
5307 AC69 4F              O     clra
5308 AC6A 05              .     asld
5309 AC6B C3 08 C8        ...   addd #08c8
5310 AC6E 8F              .     xgdx
5311 AC6F EC 00           ..    ldd 00,x
5312 AC71 84 04           ..    anda #04
5313 AC73 27 06           '.    beq 06
5314 AC75 CE 00 19        ...   ldx #0019
5315 AC78 1C 00 02        ...   bset 00,x, #02
5316 goto23:
5317 AC7B 7C 00 05        |..   inc 0005
5318 AC7E 7E AB A5        ~..   jmp aba5             ;goto24
5319 goto22:
5320 AC81 F6 00 19        ...   ldab 0019
5321 AC84 C4 07           ..    andb #07
5322 AC86 26 0A           &.    bne 0a
5323 AC88 F6 0B C1        ...   ldab 0bc1
5324 AC8B C4 7F           ..    andb #7f   ; have errors?
5325 AC8D 26 03           &.    bne 03
5326 AC8F 5F              _     clrb
5327 AC90 20 02            .    bra 02
5328 AC92 C6 01           ..    ldab #01
5329 AC94 5D              ]     tstb
5330 AC95 26 05           &.    bne 05
5331 AC97 C6 0D           ..    ldab #0d
5332 AC99 F7 00 48        ..H   stab 0048
5333 AC9C 39              9     rts
5334
5335 ; keypad map
5336 AC9D 08              .     inx
5337 AC9E 07              .     tpa
5338 AC9F 06              .     tap
5339 ACA0 05              .     asld
5340 ACA1 04              .     lsrd
5341 ACA2 03              .     fdiv
5342 ACA3 02              .     idiv
5343 ACA4 01              .     nop
5344 ACA5 0B              .     sev
5345 ACA6 0A              .     clv
5346 ACA7 09              .     dex
5347
5348 ACA8 20 20                 bra 20
5349 ACAA 50              P     negb
5350 ACAB 52              R     illegal
5351 ACAC 49              I     rola
5352 ACAD 43              C     coma
5353 ACAE 45              E     illegal
5354 ACAF 20 20                 bra 20
5355 ACB1 20 00            .    bra 00
5356 ACB3 20 20                 bra 20
5357 ACB5 20 50            P    bra 50
5358 ACB7 52              R     illegal
5359 ACB8 49              I     rola
5360 ACB9 58              X     aslb
5361 ACBA 20 20                 bra 20
5362 ACBC 20 00            .    bra 00
5363 ACBE 20 20                 bra 20
5364 ACC0 50              P     negb
5365 ACC1 52              R     illegal
5366 ACC2 45              E     illegal
5367 ACC3 49              I     rola
5368 ACC4 53              S     comb
5369 ACC5 20 20                 bra 20
5370 ACC7 20 00            .    bra 00
5371 ACC9 20 20                 bra 20
5372 ACCB 50              P     negb
5373 ACCC 52              R     illegal
5374 ACCD 45              E     illegal
5375 ACCE 43              C     coma
5376 ACCF 49              I     rola
5377 ACD0 4F              O     clra
5378 ACD1 20 20                 bra 20
5379 ACD3 00              .     test
5380 ACD4 20 20                 bra 20
5381 ACD6 43              C     coma
5382 ACD7 48              H     asla
5383 ACD8 41              A     illegal
5384 ACD9 4E              N     illegal
5385 ACDA 47              G     asra
5386 ACDB 45              E     illegal
5387 ACDC 20 20                 bra 20
5388 ACDE 00              .     test
5389 ACDF 20 20                 bra 20
5390 ACE1 43              C     coma
5391 ACE2 41              A     illegal
5392 ACE3 4D              M     tsta
5393 ACE4 42              B     illegal
5394 ACE5 49              I     rola
5395 ACE6 4F              O     clra
5396 ACE7 20 20                 bra 20
5397 ACE9 00              .     test
5398 ACEA 20 4D            M    bra 4d
5399 ACEC 4F              O     clra
5400 ACED 4E              N     illegal
5401 ACEE 4E              N     illegal
5402 ACEF 41              A     illegal
5403 ACF0 49              I     rola
5404 ACF1 45              E     illegal
5405 ACF2 20 20                 bra 20
5406 ACF4 00              .     test
5407 ACF5 20 20                 bra 20
5408 ACF7 54              T     lsrb
5409 ACF8 48              H     asla
5410 ACF9 41              A     illegal
5411 ACFA 4E              N     illegal
5412 ACFB 4B              K     illegal
5413 ACFC 53              S     comb
5414 ACFD 20 20                 bra 20
5415 ACFF 00              .     test
5416 AD00 20 20                 bra 20
5417 AD02 4D              M     tsta
5418 AD03 45              E     illegal
5419 AD04 52              R     illegal
5420 AD05 43              C     coma
5421 AD06 49              I     rola
5422 AD07 20 20                 bra 20
5423 AD09 20 00            .    bra 00
5424 AD0B 20 20                 bra 20
5425 AD0D 44              D     lsra
5426 AD0E 41              A     illegal
5427 AD0F 4E              N     illegal
5428 AD10 4B              K     illegal
5429 AD11 45              E     illegal
5430 AD12 20 20                 bra 20
5431 AD14 20 00            .    bra 00
5432 AD16 20 20                 bra 20
5433 AD18 47              G     asra
5434 AD19 52              R     illegal
5435 AD1A 41              A     illegal
5436 AD1B 43              C     coma
5437 AD1C 49              I     rola
5438 AD1D 41              A     illegal
5439 AD1E 53              S     comb
5440 AD1F 20 00            .    bra 00
5441 AD21 20 20                 bra 20
5442 AD23 53              S     comb
5443 AD24 45              E     illegal
5444 AD25 4C              L     inca
5445 AD26 45              E     illegal
5446 AD27 43              C     coma
5447 AD28 54              T     lsrb
5448 AD29 20 20                 bra 20
5449 AD2B 00              .     test
5450 AD2C 20 20                 bra 20
5451 AD2E 4F              O     clra
5452 AD2F 54              T     lsrb
5453 AD30 48              H     asla
5454 AD31 45              E     illegal
5455 AD32 52              R     illegal
5456 AD33 20 20                 bra 20
5457 AD35 20 00            .    bra 00
5458 AD37 20 20                 bra 20
5459 AD39 20 49            I    bra 49
5460 AD3B 54              T     lsrb
5461 AD3C 45              E     illegal
5462 AD3D 4D              M     tsta
5463 AD3E 20 20                 bra 20
5464 AD40 20 00            .    bra 00
5465 AD42 20 20                 bra 20
5466 AD44 46              F     rora
5467 AD45 41              A     illegal
5468 AD46 49              I     rola
5469 AD47 54              T     lsrb
5470 AD48 45              E     illegal
5471 AD49 53              S     comb
5472 AD4A 20 20                 bra 20
5473 AD4C 00              .     test
5474 AD4D 20 20                 bra 20
5475 AD4F 41              A     illegal
5476 AD50 55              U     illegal
5477 AD51 54              T     lsrb
5478 AD52 52              R     illegal
5479 AD53 45              E     illegal
5480 AD54 20 20                 bra 20
5481 AD56 20 00            .    bra 00
5482 AD58 20 20                 bra 20
5483 AD5A 43              C     coma
5484 AD5B 48              H     asla
5485 AD5C 4F              O     clra
5486 AD5D 49              I     rola
5487 AD5E 58              X     aslb
5488 AD5F 20 20                 bra 20
5489 AD61 20 00            .    bra 00
5490 AD63 20 20                 bra 20
5491 AD65 42              B     illegal
5492 AD66 49              I     rola
5493 AD67 54              T     lsrb
5494 AD68 54              T     lsrb
5495 AD69 45              E     illegal
5496 AD6A 20 20                 bra 20
5497 AD6C 20 00            .    bra 00
5498 AD6E 20 20                 bra 20
5499 AD70 41              A     illegal
5500 AD71 4E              N     illegal
5501 AD72 44              D     lsra
5502 AD73 45              E     illegal
5503 AD74 52              R     illegal
5504 AD75 45              E     illegal
5505 AD76 20 20                 bra 20
5506 AD78 00              .     test
5507 AD79 20 20                 bra 20
5508 AD7B 20 57            W    bra 57
5509 AD7D 41              A     illegal
5510 AD7E 48              H     asla
5511 AD7F 4C              L     inca
5512 AD80 20 20                 bra 20
5513 AD82 20 00            .    bra 00
5514 AD84 20 20                 bra 20
5515 AD86 50              P     negb
5516 AD87 55              U     illegal
5517 AD88 4C              L     inca
5518 AD89 53              S     comb
5519 AD8A 45              E     illegal
5520 AD8B 20 20                 bra 20
5521 AD8D 20 00            .    bra 00
5522 AD8F 20 20                 bra 20
5523 AD91 45              E     illegal
5524 AD92 58              X     aslb
5525 AD93 54              T     lsrb
5526 AD94 52              R     illegal
5527 AD95 41              A     illegal
5528 AD96 20 20                 bra 20
5529 AD98 20 00            .    bra 00
5530 AD9A 20 53            S    bra 53
5531 AD9C 45              E     illegal
5532 AD9D 4C              L     inca
5533 AD9E 45              E     illegal
5534 AD9F 43              C     coma
5535 ADA0 43              C     coma
5536 ADA1 49              I     rola
5537 ADA2 4F              O     clra
5538 ADA3 4E              N     illegal
5539 ADA4 00              .     test
5540 ADA5 20 45            E    bra 45
5541 ADA7 58              X     aslb
5542 ADA8 41              A     illegal
5543 ADA9 43              C     coma
5544 ADAA 54              T     lsrb
5545 ADAB 20 43            C    bra 43
5546 ADAD 4F              O     clra
5547 ADAE 49              I     rola
5548 ADAF 4E              N     illegal
5549 ADB0 53              S     comb
5550 ADB1 20 4F            O    bra 4f
5551 ADB3 4E              N     illegal
5552 ADB4 4C              L     inca
5553 ADB5 59              Y     rolb
5554 ADB6 20 00            .    bra 00
5555 ADB8 20 4D            M    bra 4d
5556 ADBA 4F              O     clra
5557 ADBB 4E              N     illegal
5558 ADBC 4E              N     illegal
5559 ADBD 41              A     illegal
5560 ADBE 49              I     rola
5561 ADBF 45              E     illegal
5562 ADC0 20 45            E    bra 45
5563 ADC2 58              X     aslb
5564 ADC3 41              A     illegal
5565 ADC4 43              C     coma
5566 ADC5 54              T     lsrb
5567 ADC6 45              E     illegal
5568 ADC7 20 53            S    bra 53
5569 ADC9 45              E     illegal
5570 ADCA 55              U     illegal
5571 ADCB 4C              L     inca
5572 ADCC 45              E     illegal
5573 ADCD 4D              M     tsta
5574 ADCE 45              E     illegal
5575 ADCF 4E              N     illegal
5576 ADD0 54              T     lsrb
5577 ADD1 20 00            .    bra 00
5578 ADD3 20 4E            N    bra 4e
5579 ADD5 49              I     rola
5580 ADD6 43              C     coma
5581 ADD7 48              H     asla
5582 ADD8 54              T     lsrb
5583 ADD9 20 55            U    bra 55
5584 ADDB 45              E     illegal
5585 ADDC 42              B     illegal
5586 ADDD 45              E     illegal
5587 ADDE 52              R     illegal
5588 ADDF 5A              Z     decb
5589 ADE0 41              A     illegal
5590 ADE1 48              H     asla
5591 ADE2 4C              L     inca
5592 ADE3 45              E     illegal
5593 ADE4 4E              N     illegal
5594 ADE5 20 00            .    bra 00
5595 ADE7 20 49            I    bra 49
5596 ADE9 4E              N     illegal
5597 ADEA 54              T     lsrb
5598 ADEB 52              R     illegal
5599 ADEC 4F              O     clra
5600 ADED 44              D     lsra
5601 ADEE 55              U     illegal
5602 ADEF 5A              Z     decb
5603 ADF0 43              C     coma
5604 ADF1 41              A     illegal
5605 ADF2 20 50            P    bra 50
5606 ADF4 52              R     illegal
5607 ADF5 45              E     illegal
5608 ADF6 43              C     coma
5609 ADF7 49              I     rola
5610 ADF8 4F              O     clra
5611 ADF9 20 45            E    bra 45
5612 ADFB 58              X     aslb
5613 ADFC 41              A     illegal
5614 ADFD 43              C     coma
5615 ADFE 54              T     lsrb
5616 ADFF 4F              O     clra
5617 AE00 20 00            .    bra 00
5618 AE02 20 43            C    bra 43
5619 AE04 4F              O     clra
5620 AE05 49              I     rola
5621 AE06 4E              N     illegal
5622 AE07 53              S     comb
5623 AE08 20 4F            O    bra 4f
5624 AE0A 4E              N     illegal
5625 AE0B 4C              L     inca
5626 AE0C 59              Y     rolb
5627 AE0D 20 00            .    bra 00
5628 AE0F 20 4D            M    bra 4d
5629 AE11 4F              O     clra
5630 AE12 4E              N     illegal
5631 AE13 4E              N     illegal
5632 AE14 41              A     illegal
5633 AE15 49              I     rola
5634 AE16 45              E     illegal
5635 AE17 20 53            S    bra 53
5636 AE19 45              E     illegal
5637 AE1A 55              U     illegal
5638 AE1B 4C              L     inca
5639 AE1C 45              E     illegal
5640 AE1D 4D              M     tsta
5641 AE1E 45              E     illegal
5642 AE1F 4E              N     illegal
5643 AE20 54              T     lsrb
5644 AE21 20 00            .    bra 00
5645 AE23 20 4E            N    bra 4e
5646 AE25 55              U     illegal
5647 AE26 52              R     illegal
5648 AE27 20 4D            M    bra 4d
5649 AE29 55              U     illegal
5650 AE2A 4E              N     illegal
5651 AE2B 5A              Z     decb
5652 AE2C 45              E     illegal
5653 AE2D 4E              N     illegal
5654 AE2E 20 00            .    bra 00
5655 AE30 20 4D            M    bra 4d
5656 AE32 4F              O     clra
5657 AE33 4E              N     illegal
5658 AE34 45              E     illegal
5659 AE35 44              D     lsra
5660 AE36 41              A     illegal
5661 AE37 20 55            U    bra 55
5662 AE39 4E              N     illegal
5663 AE3A 49              I     rola
5664 AE3B 43              C     coma
5665 AE3C 41              A     illegal
5666 AE3D 4D              M     tsta
5667 AE3E 45              E     illegal
5668 AE3F 4E              N     illegal
5669 AE40 54              T     lsrb
5670 AE41 45              E     illegal
5671 AE42 20 00            .    bra 00
5672 AE44 20 4D            M    bra 4d
5673 AE46 41              A     illegal
5674 AE47 43              C     coma
5675 AE48 48              H     asla
5676 AE49 49              I     rola
5677 AE4A 4E              N     illegal
5678 AE4B 45              E     illegal
5679 AE4C 20 4F            O    bra 4f
5680 AE4E 55              U     illegal
5681 AE4F 54              T     lsrb
5682 AE50 20 4F            O    bra 4f
5683 AE52 46              F     rora
5684 AE53 20 4F            O    bra 4f
5685 AE55 52              R     illegal
5686 AE56 44              D     lsra
5687 AE57 45              E     illegal
5688 AE58 52              R     illegal
5689 AE59 20 00            .    bra 00
5690 AE5B 20 48            H    bra 48
5691 AE5D 4F              O     clra
5692 AE5E 52              R     illegal
5693 AE5F 53              S     comb
5694 AE60 20 44            D    bra 44
5695 AE62 45              E     illegal
5696 AE63 20 53            S    bra 53
5697 AE65 45              E     illegal
5698 AE66 52              R     illegal
5699 AE67 56              V     rorb
5700 AE68 49              I     rola
5701 AE69 43              C     coma
5702 AE6A 45              E     illegal
5703 AE6B 20 00            .    bra 00
5704 AE6D 20 41            A    bra 41
5705 AE6F 55              U     illegal
5706 AE70 53              S     comb
5707 AE71 53              S     comb
5708 AE72 45              E     illegal
5709 AE73 52              R     illegal
5710 AE74 20 42            B    bra 42
5711 AE76 45              E     illegal
5712 AE77 54              T     lsrb
5713 AE78 52              R     illegal
5714 AE79 49              I     rola
5715 AE7A 45              E     illegal
5716 AE7B 42              B     illegal
5717 AE7C 20 00            .    bra 00
5718 AE7E 20 46            F    bra 46
5719 AE80 55              U     illegal
5720 AE81 45              E     illegal
5721 AE82 52              R     illegal
5722 AE83 41              A     illegal
5723 AE84 20 44            D    bra 44
5724 AE86 45              E     illegal
5725 AE87 20 53            S    bra 53
5726 AE89 45              E     illegal
5727 AE8A 52              R     illegal
5728 AE8B 56              V     rorb
5729 AE8C 49              I     rola
5730 AE8D 43              C     coma
5731 AE8E 49              I     rola
5732 AE8F 4F              O     clra
5733 AE90 20 00            .    bra 00
5734
5735 AE92 2D 20           -     blt 20
5736 AE94 20 20                 bra 20
5737 AE96 20 20                 bra 20
5738 AE98 20 20                 bra 20
5739 AE9A 20 20                 bra 20
5740 AE9C 00              .     test
5741
5742 AE9D 53              S     comb
5743 AE9E 45              E     illegal
5744 AE9F 54              T     lsrb
5745 AEA0 20 50            P    bra 50
5746 AEA2 52              R     illegal
5747 AEA3 49              I     rola
5748 AEA4 43              C     coma
5749 AEA5 45              E     illegal
5750 AEA6 3F              ?     swi
5751 AEA7 00              .     test
5752
5753 AEA8 20 20                 bra 20
5754 AEAA 53              S     comb
5755 AEAB 59              Y     rolb
5756 AEAC 53              S     comb
5757 AEAD 54              T     lsrb
5758 AEAE 45              E     illegal
5759 AEAF 4D              M     tsta
5760 AEB0 20 20                 bra 20
5761 AEB2 00              .     test
5762
5763 AEB3 20 20                 bra 20
5764 AEB5 20 20                 bra 20
5765 AEB7 4F              O     clra
5766 AEB8 4B              K     illegal
5767 AEB9 20 20                 bra 20
5768 AEBB 20 20                 bra 20
5769 AEBD 00              .     test
5770
5771 AEBE 24 35           $5    bcc 35
5772 AEC0 20 45            E    bra 45
5773 AEC2 4E              N     illegal
5774 AEC3 41              A     illegal
5775 AEC4 42              B     illegal
5776 AEC5 4C              L     inca
5777 AEC6 45              E     illegal
5778 AEC7 20 00            .    bra 00
5779
5780 AEC9 24 35           $5    bcc 35
5781 AECB 20 44            D    bra 44
5782 AECD 49              I     rola
5783 AECE 53              S     comb
5784 AECF 41              A     illegal
5785 AED0 42              B     illegal
5786 AED1 4C              L     inca
5787 AED2 45              E     illegal
5788 AED3 00              .     test
5789
5790 AED4 53              S     comb
5791 AED5 4F              O     clra
5792 AED6 44              D     lsra
5793 AED7 41              A     illegal
5794 AED8 20 56            V    bra 56
5795 AEDA 45              E     illegal
5796 AEDB 4E              N     illegal
5797 AEDC 44              D     lsra
5798 AEDD 20 00            .    bra 00
5799 AEDF 53              S     comb
5800 AEE0 4E              N     illegal
5801 AEE1 41              A     illegal
5802 AEE2 43              C     coma
5803 AEE3 4B              K     illegal
5804 AEE4 20 56            V    bra 56
5805 AEE6 45              E     illegal
5806 AEE7 4E              N     illegal
5807 AEE8 44              D     lsra
5808 AEE9 00              .     test
5809
5810 AEEA 44              D     lsra
5811 AEEB 55              U     illegal
5812 AEEC 4D              M     tsta
5813 AEED 42              B     illegal
5814 AEEE 20 4D            M    bra 4d
5815 AEF0 45              E     illegal
5816 AEF1 43              C     coma
5817 AEF2 20 59            Y    bra 59
5818 AEF4 00              .     test
5819 AEF5 44              D     lsra
5820 AEF6 55              U     illegal
5821 AEF7 4D              M     tsta
5822 AEF8 42              B     illegal
5823 AEF9 20 4D            M    bra 4d
5824 AEFB 45              E     illegal
5825 AEFC 43              C     coma
5826 AEFD 20 4E            N    bra 4e
5827 AEFF 00              .     test
5828 AF00 4C              L     inca
5829 AF01 4E              N     illegal
5830 AF02 4B              K     illegal
5831 AF03 20 4D            M    bra 4d
5832 AF05 53              S     comb
5833 AF06 54              T     lsrb
5834 AF07 52              R     illegal
5835 AF08 20 59            Y    bra 59
5836 AF0A 00              .     test
5837 AF0B 4C              L     inca
5838 AF0C 4E              N     illegal
5839 AF0D 4B              K     illegal
5840 AF0E 20 4D            M    bra 4d
5841 AF10 53              S     comb
5842 AF11 54              T     lsrb
5843 AF12 52              R     illegal
5844 AF13 20 4E            N    bra 4e
5845 AF15 00              .     test
5846 AF16 43              C     coma
5847 AF17 41              A     illegal
5848 AF18 52              R     illegal
5849 AF19 44              D     lsra
5850 AF1A 20 52            R    bra 52
5851 AF1C 44              D     lsra
5852 AF1D 52              R     illegal
5853 AF1E 20 59            Y    bra 59
5854 AF20 00              .     test
5855 AF21 43              C     coma
5856 AF22 41              A     illegal
5857 AF23 52              R     illegal
5858 AF24 44              D     lsra
5859 AF25 20 52            R    bra 52
5860 AF27 44              D     lsra
5861 AF28 52              R     illegal
5862 AF29 20 4E            N    bra 4e
5863 AF2B 00              .     test
5864 AF2C 42              B     illegal
5865 AF2D 49              I     rola
5866 AF2E 4C              L     inca
5867 AF2F 4C              L     inca
5868 AF30 20 56            V    bra 56
5869 AF32 41              A     illegal
5870 AF33 4C              L     inca
5871 AF34 20 59            Y    bra 59
5872 AF36 00              .     test
5873 AF37 42              B     illegal
5874 AF38 49              I     rola
5875 AF39 4C              L     inca
5876 AF3A 4C              L     inca
5877 AF3B 20 56            V    bra 56
5878 AF3D 41              A     illegal
5879 AF3E 4C              L     inca
5880 AF3F 20 4E            N    bra 4e
5881 AF41 00              .     test
5882 AF42 50              P     negb
5883 AF43 52              R     illegal
5884 AF44 43              C     coma
5885 AF45 20 48            H    bra 48
5886 AF47 4F              O     clra
5887 AF48 4C              L     inca
5888 AF49 44              D     lsra
5889 AF4A 20 59            Y    bra 59
5890 AF4C 00              .     test
5891 AF4D 50              P     negb
5892 AF4E 52              R     illegal
5893 AF4F 43              C     coma
5894 AF50 20 48            H    bra 48
5895 AF52 4F              O     clra
5896 AF53 4C              L     inca
5897 AF54 44              D     lsra
5898 AF55 20 4E            N    bra 4e
5899 AF57 00              .     test
5900 AF58 50              P     negb
5901 AF59 52              R     illegal
5902 AF5A 43              C     coma
5903 AF5B 20 44            D    bra 44
5904 AF5D 49              I     rola
5905 AF5E 53              S     comb
5906 AF5F 50              P     negb
5907 AF60 20 59            Y    bra 59
5908 AF62 00              .     test
5909 AF63 50              P     negb
5910 AF64 52              R     illegal
5911 AF65 43              C     coma
5912 AF66 20 44            D    bra 44
5913 AF68 49              I     rola
5914 AF69 53              S     comb
5915 AF6A 50              P     negb
5916 AF6B 20 4E            N    bra 4e
5917 AF6D 00              .     test
5918 AF6E 46              F     rora
5919 AF6F 52              R     illegal
5920 AF70 45              E     illegal
5921 AF71 45              E     illegal
5922 AF72 20 56            V    bra 56
5923 AF74 4E              N     illegal
5924 AF75 44              D     lsra
5925 AF76 20 59            Y    bra 59
5926 AF78 00              .     test
5927 AF79 46              F     rora
5928 AF7A 52              R     illegal
5929 AF7B 45              E     illegal
5930 AF7C 45              E     illegal
5931 AF7D 20 56            V    bra 56
5932 AF7F 4E              N     illegal
5933 AF80 44              D     lsra
5934 AF81 20 4E            N    bra 4e
5935 AF83 00              .     test
5936 AF84 24 31           $1    bcc 31
5937 AF86 20 43            C    bra 43
5938 AF88 48              H     asla
5939 AF89 4E              N     illegal
5940 AF8A 47              G     asra
5941 AF8B 52              R     illegal
5942 AF8C 20 59            Y    bra 59
5943 AF8E 00              .     test
5944 AF8F 24 31           $1    bcc 31
5945 AF91 20 43            C    bra 43
5946 AF93 48              H     asla
5947 AF94 4E              N     illegal
5948 AF95 47              G     asra
5949 AF96 52              R     illegal
5950 AF97 20 4E            N    bra 4e
5951 AF99 00              .     test
5952 AF9A 43              C     coma
5953 AF9B 4C              L     inca
5954 AF9C 52              R     illegal
5955 AF9D 20 4D            M    bra 4d
5956 AF9F 49              I     rola
5957 AFA0 53              S     comb
5958 AFA1 20 20                 bra 20
5959 AFA3 59              Y     rolb
5960 AFA4 00              .     test
5961 AFA5 43              C     coma
5962 AFA6 4C              L     inca
5963 AFA7 52              R     illegal
5964 AFA8 20 4D            M    bra 4d
5965 AFAA 49              I     rola
5966 AFAB 53              S     comb
5967 AFAC 20 20                 bra 20
5968 AFAE 4E              N     illegal
5969 AFAF 00              .     test
5970 AFB0 48              H     asla
5971 AFB1 49              I     rola
5972 AFB2 54              T     lsrb
5973 AFB3 20 4B            K    bra 4b
5974 AFB5 45              E     illegal
5975 AFB6 59              Y     rolb
5976 AFB7 22 30           "0    bhi 30
5977 AFB9 22 00           ".    bhi 00
5978 AFBB 45              E     illegal
5979 AFBC 4E              N     illegal
5980 AFBD 54              T     lsrb
5981 AFBE 45              E     illegal
5982 AFBF 52              R     illegal
5983 AFC0 20 43            C    bra 43
5984 AFC2 4F              O     clra
5985 AFC3 44              D     lsra
5986 AFC4 45              E     illegal
5987 AFC5 00              .     test
5988 AFC6 53              S     comb
5989 AFC7 45              E     illegal
5990 AFC8 43              C     coma
5991 AFC9 55              U     illegal
5992 AFCA 52              R     illegal
5993 AFCB 45              E     illegal
5994 AFCC 20 4F            O    bra 4f
5995 AFCE 4E              N     illegal
5996 AFCF 20 00            .    bra 00
5997 AFD1 53              S     comb
5998 AFD2 45              E     illegal
5999 AFD3 43              C     coma
6000 AFD4 55              U     illegal
6001 AFD5 52              R     illegal
6002 AFD6 45              E     illegal
6003 AFD7 20 4F            O    bra 4f
6004 AFD9 46              F     rora
6005 AFDA 46              F     rora
6006 AFDB 00              .     test
6007 AFDC 2D 20           -     blt 20
6008 AFDE 53              S     comb
6009 AFDF 41              A     illegal
6010 AFE0 56              V     rorb
6011 AFE1 49              I     rola
6012 AFE2 4E              N     illegal
6013 AFE3 47              G     asra
6014 AFE4 20 2D            -    bra 2d
6015 AFE6 00              .     test
6016 AFE7 2D 50           -P    blt 50
6017 AFE9 52              R     illegal
6018 AFEA 49              I     rola
6019 AFEB 4E              N     illegal
6020 AFEC 54              T     lsrb
6021 AFED 49              I     rola
6022 AFEE 4E              N     illegal
6023 AFEF 47              G     asra
6024 AFF0 2D 00           -.    blt 00
6025
6026 AFF2 4F              O     clra
6027 AFF3 56              V     rorb
6028 AFF4 45              E     illegal
6029 AFF5 52              R     illegal
6030 AFF6 20 43            C    bra 43
6031 AFF8 52              R     illegal
6032 AFF9 4E              N     illegal
6033 AFFA 54              T     lsrb
6034 AFFB 3D              =     mul
6035 AFFC 00              .     test
6036
6037 AFFD 48              H     asla
6038 AFFE 4F              O     clra
6039 AFFF 4D              M     tsta
6040 B000 45              E     illegal
6041 B001 20 46            F    bra 46
6042 B003 41              A     illegal
6043 B004 49              I     rola
6044 B005 4C              L     inca
6045 B006 3D              =     mul
6046 B007 00              .     test
6047 B008 43              C     coma
6048 B009 48              H     asla
6049 B00A 4B              K     illegal
6050 B00B 20 50            P    bra 50
6051 B00D 52              R     illegal
6052 B00E 49              I     rola
6053 B00F 43              C     coma
6054 B010 45              E     illegal
6055 B011 53              S     comb
6056 B012 00              .     test
6057
6058 B013 48              H     asla
6059 B014 49              I     rola
6060 B015 54              T     lsrb
6061 B016 20 52            R    bra 52
6062 B018 45              E     illegal
6063 B019 53              S     comb
6064 B01A 45              E     illegal
6065 B01B 54              T     lsrb
6066 B01C 20 00            .    bra 00
6067
6068 B01E 43              C     coma
6069 B01F 4F              O     clra
6070 B020 49              I     rola
6071 B021 4E              N     illegal
6072 B022 20 20                 bra 20
6073 B024 20 4A            J    bra 4a
6074 B026 41              A     illegal
6075 B027 4D              M     tsta
6076 B028 00              .     test
6077
6078 B029 42              B     illegal
6079 B02A 41              A     illegal
6080 B02B 44              D     lsra
6081 B02C 20 53            S    bra 53
6082 B02E 45              E     illegal
6083 B02F 4E              N     illegal
6084 B030 53              S     comb
6085 B031 4F              O     clra
6086 B032 52              R     illegal
6087 B033 00              .     test
6088
6089 B034 43              C     coma
6090 B035 48              H     asla
6091 B036 47              G     asra
6092 B037 52              R     illegal
6093 B038 20 50            P    bra 50
6094 B03A 57              W     asrb
6095 B03B 52              R     illegal
6096 B03C 55              U     illegal
6097 B03D 50              P     negb
6098 B03E 00              .     test
6099
6100 B03F 4C              L     inca
6101 B040 49              I     rola
6102 B041 4E              N     illegal
6103 B042 4B              K     illegal
6104 B043 20 50            P    bra 50
6105 B045 57              W     asrb
6106 B046 52              R     illegal
6107 B047 55              U     illegal
6108 B048 50              P     negb
6109 B049 00              .     test
6110
6111 B04A 43              C     coma
6112 B04B 41              A     illegal
6113 B04C 52              R     illegal
6114 B04D 44              D     lsra
6115 B04E 20 50            P    bra 50
6116 B050 57              W     asrb
6117 B051 52              R     illegal
6118 B052 55              U     illegal
6119 B053 50              P     negb
6120 B054 00              .     test
6121
6122 B055 42              B     illegal
6123 B056 49              I     rola
6124 B057 4C              L     inca
6125 B058 4C              L     inca
6126 B059 20 45            E    bra 45
6127 B05B 52              R     illegal
6128 B05C 52              R     illegal
6129 B05D 4F              O     clra
6130 B05E 52              R     illegal
6131 B05F 00              .     test
6132
6133 B060 54              T     lsrb
6134 B061 55              U     illegal
6135 B062 42              B     illegal
6136 B063 45              E     illegal
6137 B064 20 45            E    bra 45
6138 B066 52              R     illegal
6139 B067 52              R     illegal
6140 B068 4F              O     clra
6141 B069 52              R     illegal
6142 B06A 00              .     test
6143 B06B 4E              N     illegal
6144 B06C 4F              O     clra
6145 B06D 20 20                 bra 20
6146 B06F 43              C     coma
6147 B070 48              H     asla
6148 B071 41              A     illegal
6149 B072 4E              N     illegal
6150 B073 47              G     asra
6151 B074 45              E     illegal
6152 B075 00              .     test
6153 B076 20 4E            N    bra 4e
6154 B078 4F              O     clra
6155 B079 20 46            F    bra 46
6156 B07B 49              I     rola
6157 B07C 56              V     rorb
6158 B07D 45              E     illegal
6159 B07E 53              S     comb
6160 B07F 20 00            .    bra 00
6161
6162 B081 4E              N     illegal
6163 B082 4F              O     clra
6164 B083 20 20                 bra 20
6165 B085 41              A     illegal
6166 B086 43              C     coma
6167 B087 43              C     coma
6168 B088 45              E     illegal
6169 B089 53              S     comb
6170 B08A 53              S     comb
6171 B08B 00              .     test
6172 B08C 4E              N     illegal
6173 B08D 4F              O     clra
6174 B08E 20 20                 bra 20
6175 B090 45              E     illegal
6176 B091 52              R     illegal
6177 B092 52              R     illegal
6178 B093 4F              O     clra
6179 B094 52              R     illegal
6180 B095 53              S     comb
6181 B096 00              .     test
6182 B097 54              T     lsrb
6183 B098 45              E     illegal
6184 B099 53              S     comb
6185 B09A 54              T     lsrb
6186 B09B 20 20                 bra 20
6187 B09D 56              V     rorb
6188 B09E 45              E     illegal
6189 B09F 4E              N     illegal
6190 B0A0 44              D     lsra
6191 B0A1 00              .     test
6192 B0A2 4D              M     tsta
6193 B0A3 54              T     lsrb
6194 B0A4 52              R     illegal
6195 B0A5 20 46            F    bra 46
6196 B0A7 55              U     illegal
6197 B0A8 4E              N     illegal
6198 B0A9 43              C     coma
6199 B0AA 54              T     lsrb
6200 B0AB 3F              ?     swi
6201 B0AC 00              .     test
6202 B0AD 50              P     negb
6203 B0AE 52              R     illegal
6204 B0AF 4F              O     clra
6205 B0B0 47              G     asra
6206 B0B1 52              R     illegal
6207 B0B2 41              A     illegal
6208 B0B3 4D              M     tsta
6209 B0B4 20 20                 bra 20
6210 B0B6 3F              ?     swi
6211 B0B7 00              .     test
6212 B0B8 53              S     comb
6213 B0B9 45              E     illegal
6214 B0BA 4C              L     inca
6215 B0BB 45              E     illegal
6216 B0BC 43              C     coma
6217 B0BD 54              T     lsrb
6218 B0BE 49              I     rola
6219 B0BF 4F              O     clra
6220 B0C0 4E              N     illegal
6221 B0C1 3F              ?     swi
6222 B0C2 00              .     test
6223
6224 B0C3 14 00           .     ;20
6225 B0C5 14 C8           .     ;20 200
6226 B0C7 05 00           ..    ;05
6227 B0C9 05 00           .     ;05
6228 B0CB 02 00           .     ;02
6229 B0CD 02 00           .     ;02
6230 B0CF 01 00           .     ;01
6231 B0D1 01 00           .     ;01
6232
6233
6234
6235
6236
6237 ;
6238 ; here's a lookup table of some sort, for finding the slot
6239 ; numbers of each motor in turn
6240 ;
6241 ; 80 entries for 80 motors?
6242 ;
6243 B0D3 01              .     ;01
6244 B0D4 0C              .     ;12
6245 B0D5 17              .     ;23
6246 B0D6 22              .     ;34
6247 B0D7 2E              .     ;46
6248 B0D8 39              .     ;57
6249 B0D9 44              D     ;68
6250 B0DA 4F              O     ;79
6251 ;
6252 B0DB 0B              .     ;11
6253 B0DC 16              .     ;22
6254 B0DD 21              !     ;33
6255 B0DE 2C              .     ;44
6256 B0DF 38              8     ;56
6257 B0E0 43              C     ;67
6258 B0E1 4E              N     ;78
6259 B0E2 59              Y     ;89
6260 ;
6261 B0E3 15              .     ;21
6262 B0E4 20              .     ;32
6263 B0E5 2B              +     ;43
6264 B0E6 36              6     ;54
6265 B0E7 42              B     ;66
6266 B0E8 4D              M     ;77
6267 B0E9 58              X     ;88
6268 B0EA 63              c     ;99
6269 ;
6270 B0EB 1F              .     ;31
6271 B0EC 2A              *.    ;42
6272 B0ED 35              .     ;53
6273 B0EE 40              @     ;64
6274 B0EF 4C              L     ;76
6275 B0F0 57              W     ;87
6276 B0F1 62              b     ;98
6277 ;
6278 B0F2 09              .     ;09
6279 B0F3 29              )     ;41
6280 B0F4 34              .     ;52
6281 B0F5 3F              ?     ;63
6282 B0F6 4A              J     ;74
6283 B0F7 56              V     ;86
6284 B0F8 61              a     ;97
6285 ;
6286 B0F9 08              .     ;08
6287 B0FA 13              .     ;19
6288 B0FB 33              3     ;51
6289 B0FC 3E              >     ;62
6290 B0FD 49              I     ;73
6291 B0FE 54              T     ;84
6292 B0FF 60              `     ;96
6293 ;
6294 B000 07              .     ;07
6295 B101 12              .     ;18
6296 B102 1D              .     ;29
6297 B103 3D              .     ;61
6298 B104 48              .     ;72
6299 B105 53              S     ;83
6300 B106 5E              ^     ;94
6301 ;
6302 B107 06              .     ;06
6303 B108 11              .     ;17
6304 B109 1C              .     ;28
6305 B10A 27              .     ;39
6306 B10B 47              .     ;71
6307 B10C 52              R     ;82
6308 B10D 5D              ]     ;93
6309 ;
6310 B10E 04              .     ;04
6311 B10F 10              .     ;16
6312 B110 1B              .     ;27
6313 B111 26              &     ;38
6314 B111 31              &     ;49
6315 B113 51              Q     ;81
6316 B114 5C              \     ;92
6317 ;
6318 B115 03              .     ;03
6319 B116 0E              .     ;14
6320 B117 1A              .     ;26
6321 B118 25              %     ;37
6322 B119 30              %     ;48
6323 B11A 3B              ;     ;59
6324 B11B 5B              [     ;91
6325 ;
6326 B11C 02              .     ;02
6327 B11D 0D              .     ;13
6328 B11E 18              .     ;24
6329 B11F 24              $     ;36
6330 B120 2F              $     ;47
6331 B121 3A              :     ;58
6332 B122 45              E     ;69
6333
6334 table of powers of 2
6335
6336 B123 00 01 02 04 08
6337 B128 10 20 40 80
6338
6339 B12C 00
6340 B12D 00              .     test
6341 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6342 B130 45              E     illegal
6343 B131 52              R     illegal
6344 B132 52              R     illegal
6345 B133 4F              O     clra
6346 B134 52              R     illegal
6347 B135 2A 2A           **    bpl 2a
6348 B137 2A 00           *.    bpl 00
6349
6350 B139 2A 2A           **    bpl 2a
6351 B13B 2A 2A           **    bpl 2a
6352 B13D 2A 2A           **    bpl 2a
6353 B13F 2A 2A           **    bpl 2a
6354 B141 2A 2A           **    bpl 2a
6355 B143 00              .     test
6356 B144 4F              O     clra
6357 B145 4F              O     clra
6358 B146 4F              O     clra
6359 B147 4F              O     clra
6360 B148 4F              O     clra
6361 B149 4F              O     clra
6362 B14A 4F              O     clra
6363 B14B 4F              O     clra
6364 B14C 4F              O     clra
6365 B14D 4F              O     clra
6366 B14E 00              .     test
6367 B14F 52              R     illegal
6368 B150 41              A     illegal
6369 B151 4D              M     tsta
6370 B152 20 20                 bra 20
6371 B154 20 46            F    bra 46
6372 B156 41              A     illegal
6373 B157 49              I     rola
6374 B158 4C              L     inca
6375 B159 00              .     test
6376 B15A 50              P     negb
6377 B15B 32              2     pula
6378 B15C 20 20                 bra 20
6379 B15E 20 20                 bra 20
6380 B160 46              F     rora
6381 B161 41              A     illegal
6382 B162 49              I     rola
6383 B163 4C              L     inca
6384 B164 00              .     test
6385 B165 50              P     negb
6386 B166 32              2     pula
6387 B167 2D 50           -P    blt 50
6388 B169 33              3     pulb
6389 B16A 20 46            F    bra 46
6390 B16C 41              A     illegal
6391 B16D 49              I     rola
6392 B16E 4C              L     inca
6393 B16F 00              .     test
6394 B170 50              P     negb
6395 B171 32              2     pula
6396 B172 2D 50           -P    blt 50
6397 B174 38              8     pulx
6398 B175 20 46            F    bra 46
6399 B177 41              A     illegal
6400 B178 49              I     rola
6401 B179 4C              L     inca
6402 B17A 00              .     test
6403 B17B 50              P     negb
6404 B17C 32              2     pula
6405 B17D 2D 50           -P    blt 50
6406 B17F 39              9     rts
6407
6408 B180 20 46            F    bra 46
6409 B182 41              A     illegal
6410 B183 49              I     rola
6411 B184 4C              L     inca
6412 B185 00              .     test
6413 B186 50              P     negb
6414 B187 33              3     pulb
6415 B188 2D 50           -P    blt 50
6416 B18A 34              4     des
6417 B18B 20 46            F    bra 46
6418 B18D 41              A     illegal
6419 B18E 49              I     rola
6420 B18F 4C              L     inca
6421 B190 00              .     test
6422 B191 50              P     negb
6423 B192 35              5     txs
6424 B193 20 20                 bra 20
6425 B195 20 20                 bra 20
6426 B197 46              F     rora
6427 B198 41              A     illegal
6428 B199 49              I     rola
6429 B19A 4C              L     inca
6430 B19B 00              .     test
6431 B19C 50              P     negb
6432 B19D 35              5     txs
6433 B19E 2D 50           -P    blt 50
6434 B1A0 37              7     pshb
6435 B1A1 20 46            F    bra 46
6436 B1A3 41              A     illegal
6437 B1A4 49              I     rola
6438 B1A5 4C              L     inca
6439 B1A6 00              .     test
6440 B1A7 50              P     negb
6441 B1A8 37              7     pshb
6442 B1A9 20 20                 bra 20
6443 B1AB 20 20                 bra 20
6444 B1AD 46              F     rora
6445 B1AE 41              A     illegal
6446 B1AF 49              I     rola
6447 B1B0 4C              L     inca
6448 B1B1 00              .     test
6449 B1B2 50              P     negb
6450 B1B3 37              7     pshb
6451 B1B4 2D 50           -P    blt 50
6452 B1B6 38              8     pulx
6453 B1B7 20 46            F    bra 46
6454 B1B9 41              A     illegal
6455 B1BA 49              I     rola
6456 B1BB 4C              L     inca
6457 B1BC 00              .     test
6458 B1BD 2D 20           -     blt 20
6459 B1BF 50              P     negb
6460 B1C0 41              A     illegal
6461 B1C1 53              S     comb
6462 B1C2 53              S     comb
6463 B1C3 45              E     illegal
6464 B1C4 44              D     lsra
6465 B1C5 20 2D            -    bra 2d
6466 B1C7 00              .     test
6467 B1C8 09              .     dex
6468 B1C9 12              .     brset
6469 B1CA 1B              .     aba
6470 B1CB 24 2C           $,    bcc 2c
6471 B1CD 35              5     txs
6472 B1CE 3E              >     wai
6473 B1CF 47              G     asra
6474 B1D0 54              T     lsrb
6475 B1D1 48              H     asla
6476 B1D2 41              A     illegal
6477 B1D3 4E              N     illegal
6478 B1D4 4B              K     illegal
6479 B1D5 20 59            Y    bra 59
6480 B1D7 4F              O     clra
6481 B1D8 55              U     illegal
6482 B1D9 20 46            F    bra 46
6483 B1DB 4F              O     clra
6484 B1DC 52              R     illegal
6485 B1DD 20 59            Y    bra 59
6486 B1DF 4F              O     clra
6487 B1E0 55              U     illegal
6488 B1E1 52              R     illegal
6489 B1E2 20 50            P    bra 50
6490 B1E4 41              A     illegal
6491 B1E5 54              T     lsrb
6492 B1E6 52              R     illegal
6493 B1E7 4F              O     clra
6494 B1E8 4E              N     illegal
6495 B1E9 41              A     illegal
6496 B1EA 47              G     asra
6497 B1EB 45              E     illegal
6498 B1EC 20 20                 bra 20
6499 B1EE 00              .     test
6500
6501 B1EF 20 52            R    bra 52
6502 B1F1 4F              O     clra
6503 B1F2 57              W     asrb
6504 B1F3 45              E     illegal
6505 B1F4 20 49            I    bra 49
6506 B1F6 4E              N     illegal
6507 B1F7 54              T     lsrb
6508 B1F8 20 00            .    bra 00
6509
6510 B1FA 43              C     coma
6511 B1FB 4F              O     clra
6512 B1FC 50              P     negb
6513 B1FD 59              Y     rolb
6514 B1FE 52              R     illegal
6515 B1FF 49              I     rola
6516 B200 47              G     asra
6517 B201 48              H     asla
6518 B202 54              T     lsrb
6519 B203 20 00            .    bra 00
6520
6521 B205 20 20                 bra 20
6522 B207 20 31            1    bra 31
6523 B209 39              9     rts
6524 B20A 39              9     rts
6525 B20B 33              3     pulb
6526 B20C 20 20                 bra 20
6527 B20E 20 00            .    bra 00
6528
6529 B210 35              5     txs
6530 B211 39              9     rts
6531 B212 30              0     tsx
6532 B213 30              0     tsx
6533 B214 20 56            V    bra 56
6534 B216 45              E     illegal
6535 B217 52              R     illegal
6536 B218 20 35            5    bra 35
6537 B21A 00              .     test
6538
6539 B21B 20 20                 bra 20
6540 B21D 20 20                 bra 20
6541 B21F 20 20                 bra 20
6542 B221 20 20                 bra 20
6543 B223 20 52            R    bra 52
6544 B225 4F              O     clra
6545 B226 57              W     asrb
6546 B227 45              E     illegal
6547 B228 20 20                 bra 20
6548 B22A 49              I     rola
6549 B22B 4E              N     illegal
6550 B22C 54              T     lsrb
6551 B22D 45              E     illegal
6552 B22E 52              R     illegal
6553 B22F 4E              N     illegal
6554 B230 41              A     illegal
6555 B231 54              T     lsrb
6556 B232 49              I     rola
6557 B233 4F              O     clra
6558 B234 4E              N     illegal
6559 B235 41              A     illegal
6560 B236 4C              L     inca
6561 B237 00              .     test
6562 B238 20 20                 bra 20
6563 B23A 20 20                 bra 20
6564 B23C 20 20                 bra 20
6565 B23E 20 20                 bra 20
6566 B240 2D 2D           --    blt 2d
6567 B242 2D 2D           --    blt 2d
6568 B244 2D 2D           --    blt 2d
6569 B246 2D 2D           --    blt 2d
6570 B248 2D 2D           --    blt 2d
6571 B24A 2D 2D           --    blt 2d
6572 B24C 2D 2D           --    blt 2d
6573 B24E 2D 2D           --    blt 2d
6574 B250 2D 2D           --    blt 2d
6575 B252 2D 2D           --    blt 2d
6576 B254 2D 00           -.    blt 00
6577 B256 20 20                 bra 20
6578 B258 20 20                 bra 20
6579 B25A 20 20                 bra 20
6580 B25C 20 20                 bra 20
6581 B25E 35              5     txs
6582 B25F 39              9     rts
6583 B260 30              0     tsx
6584 B261 30              0     tsx
6585 B262 20 53            S    bra 53
6586 B264 4F              O     clra
6587 B265 46              F     rora
6588 B266 54              T     lsrb
6589 B267 57              W     asrb
6590 B268 41              A     illegal
6591 B269 52              R     illegal
6592 B26A 45              E     illegal
6593 B26B 20 56            V    bra 56
6594 B26D 45              E     illegal
6595 B26E 52              R     illegal
6596 B26F 2E 20           .     bgt 20
6597 B271 35              5     txs
6598 B272 20 20                 bra 20
6599 B274 00              .     test
6600 B275 20 20                 bra 20
6601 B277 20 20                 bra 20
6602 B279 20 20                 bra 20
6603 B27B 20 20                 bra 20
6604 B27D 20 20                 bra 20
6605 B27F 20 41            A    bra 41
6606 B281 43              C     coma
6607 B282 43              C     coma
6608 B283 4F              O     clra
6609 B284 55              U     illegal
6610 B285 4E              N     illegal
6611 B286 54              T     lsrb
6612 B287 20 20                 bra 20
6613 B289 52              R     illegal
6614 B28A 45              E     illegal
6615 B28B 43              C     coma
6616 B28C 4F              O     clra
6617 B28D 52              R     illegal
6618 B28E 44              D     lsra
6619 B28F 00              .     test
6620 B290 53              S     comb
6621 B291 45              E     illegal
6622 B292 52              R     illegal
6623 B293 49              I     rola
6624 B294 41              A     illegal
6625 B295 4C              L     inca
6626 B296 20 20                 bra 20
6627 B298 23 20           #     bls 20
6628 B29A 20 20                 bra 20
6629 B29C 20 20                 bra 20
6630 B29E 20 2D            -    bra 2d
6631 B2A0 20 00            .    bra 00
6632 B2A2 4D              M     tsta
6633 B2A3 41              A     illegal
6634 B2A4 43              C     coma
6635 B2A5 48              H     asla
6636 B2A6 49              I     rola
6637 B2A7 4E              N     illegal
6638 B2A8 45              E     illegal
6639 B2A9 20 49            I    bra 49
6640 B2AB 44              D     lsra
6641 B2AC 20 20                 bra 20
6642 B2AE 20 20                 bra 20
6643 B2B0 20 2D            -    bra 2d
6644 B2B2 20 00            .    bra 00
6645 B2B4 41              A     illegal
6646 B2B5 55              U     illegal
6647 B2B6 44              D     lsra
6648 B2B7 49              I     rola
6649 B2B8 54              T     lsrb
6650 B2B9 20 4E            N    bra 4e
6651 B2BB 55              U     illegal
6652 B2BC 4D              M     tsta
6653 B2BD 42              B     illegal
6654 B2BE 45              E     illegal
6655 B2BF 52              R     illegal
6656 B2C0 20 20                 bra 20
6657 B2C2 20 20                 bra 20
6658 B2C4 20 00            .    bra 00
6659 B2C6 53              S     comb
6660 B2C7 41              A     illegal
6661 B2C8 4C              L     inca
6662 B2C9 45              E     illegal
6663 B2CA 53              S     comb
6664 B2CB 20 20                 bra 20
6665 B2CD 28 52           (R    bvc 52
6666 B2CF 29 20           )     bvs 20
6667 B2D1 20 20                 bra 20
6668 B2D3 20 20                 bra 20
6669 B2D5 2D 20           -     blt 20
6670 B2D7 00              .     test
6671 B2D8 53              S     comb
6672 B2D9 41              A     illegal
6673 B2DA 4C              L     inca
6674 B2DB 45              E     illegal
6675 B2DC 53              S     comb
6676 B2DD 20 20                 bra 20
6677 B2DF 28 4E           (N    bvc 4e
6678 B2E1 29 20           )     bvs 20
6679 B2E3 20 20                 bra 20
6680 B2E5 20 20                 bra 20
6681 B2E7 2D 20           -     blt 20
6682 B2E9 00              .     test
6683 B2EA 42              B     illegal
6684 B2EB 41              A     illegal
6685 B2EC 47              G     asra
6686 B2ED 20 54            T    bra 54
6687 B2EF 4F              O     clra
6688 B2F0 54              T     lsrb
6689 B2F1 41              A     illegal
6690 B2F2 4C              L     inca
6691 B2F3 20 20                 bra 20
6692 B2F5 20 20                 bra 20
6693 B2F7 20 20                 bra 20
6694 B2F9 2D 20           -     blt 20
6695 B2FB 00              .     test
6696 B2FC 43              C     coma
6697 B2FD 41              A     illegal
6698 B2FE 53              S     comb
6699 B2FF 48              H     asla
6700 B300 20 42            B    bra 42
6701 B302 4F              O     clra
6702 B303 58              X     aslb
6703 B304 20 20                 bra 20
6704 B306 20 20                 bra 20
6705 B308 20 20                 bra 20
6706 B30A 20 2D            -    bra 2d
6707 B30C 20 00            .    bra 00
6708 B30E 43              C     coma
6709 B30F 41              A     illegal
6710 B310 52              R     illegal
6711 B311 44              D     lsra
6712 B312 20 53            S    bra 53
6713 B314 41              A     illegal
6714 B315 4C              L     inca
6715 B316 45              E     illegal
6716 B317 53              S     comb
6717 B318 20 20                 bra 20
6718 B31A 20 20                 bra 20
6719 B31C 20 2D            -    bra 2d
6720 B31E 20 00            .    bra 00
6721 B320 42              B     illegal
6722 B321 49              I     rola
6723 B322 4C              L     inca
6724 B323 4C              L     inca
6725 B324 53              S     comb
6726 B325 20 49            I    bra 49
6727 B327 4E              N     illegal
6728 B328 20 53            S    bra 53
6729 B32A 54              T     lsrb
6730 B32B 41              A     illegal
6731 B32C 43              C     coma
6732 B32D 4B              K     illegal
6733 B32E 45              E     illegal
6734 B32F 52              R     illegal
6735 B330 00              .     test
6736 B331 20 20                 bra 20
6737 B333 20 20                 bra 20
6738 B335 42              B     illegal
6739 B336 49              I     rola
6740 B337 4C              L     inca
6741 B338 4C              L     inca
6742 B339 20 54            T    bra 54
6743 B33B 4F              O     clra
6744 B33C 54              T     lsrb
6745 B33D 41              A     illegal
6746 B33E 4C              L     inca
6747 B33F 20 2D            -    bra 2d
6748 B341 20 20                 bra 20
6749 B343 20 20                 bra 20
6750 B345 20 20                 bra 20
6751 B347 20 20                 bra 20
6752 B349 00              .     test
6753 B34A 20 20                 bra 20
6754 B34C 20 20                 bra 20
6755 B34E 4F              O     clra
6756 B34F 4E              N     illegal
6757 B350 45              E     illegal
6758 B351 53              S     comb
6759 B352 20 20                 bra 20
6760 B354 20 20                 bra 20
6761 B356 20 20                 bra 20
6762 B358 20 2D            -    bra 2d
6763 B35A 20 00            .    bra 00
6764 B35C 20 20                 bra 20
6765 B35E 20 20                 bra 20
6766 B360 54              T     lsrb
6767 B361 57              W     asrb
6768 B362 4F              O     clra
6769 B363 53              S     comb
6770 B364 20 20                 bra 20
6771 B366 20 20                 bra 20
6772 B368 20 20                 bra 20
6773 B36A 20 2D            -    bra 2d
6774 B36C 20 00            .    bra 00
6775 B36E 20 20                 bra 20
6776 B370 20 20                 bra 20
6777 B372 46              F     rora
6778 B373 49              I     rola
6779 B374 56              V     rorb
6780 B375 45              E     illegal
6781 B376 53              S     comb
6782 B377 20 20                 bra 20
6783 B379 20 20                 bra 20
6784 B37B 20 20                 bra 20
6785 B37D 2D 20           -     blt 20
6786 B37F 00              .     test
6787 B380 20 20                 bra 20
6788 B382 20 20                 bra 20
6789 B384 54              T     lsrb
6790 B385 45              E     illegal
6791 B386 4E              N     illegal
6792 B387 53              S     comb
6793 B388 20 20                 bra 20
6794 B38A 20 20                 bra 20
6795 B38C 20 20                 bra 20
6796 B38E 20 2D            -    bra 2d
6797 B390 20 00            .    bra 00
6798 B392 20 20                 bra 20
6799 B394 20 20                 bra 20
6800 B396 54              T     lsrb
6801 B397 57              W     asrb
6802 B398 45              E     illegal
6803 B399 4E              N     illegal
6804 B39A 54              T     lsrb
6805 B39B 49              I     rola
6806 B39C 45              E     illegal
6807 B39D 53              S     comb
6808 B39E 20 20                 bra 20
6809 B3A0 20 2D            -    bra 2d
6810 B3A2 20 00            .    bra 00
6811 B3A4 43              C     coma
6812 B3A5 4F              O     clra
6813 B3A6 49              I     rola
6814 B3A7 4E              N     illegal
6815 B3A8 53              S     comb
6816 B3A9 20 49            I    bra 49
6817 B3AB 4E              N     illegal
6818 B3AC 20 54            T    bra 54
6819 B3AE 55              U     illegal
6820 B3AF 42              B     illegal
6821 B3B0 45              E     illegal
6822 B3B1 53              S     comb
6823 B3B2 00              .     test
6824 B3B3 20 20                 bra 20
6825 B3B5 20 20                 bra 20
6826 B3B7 54              T     lsrb
6827 B3B8 55              U     illegal
6828 B3B9 42              B     illegal
6829 B3BA 45              E     illegal
6830 B3BB 20 54            T    bra 54
6831 B3BD 4F              O     clra
6832 B3BE 54              T     lsrb
6833 B3BF 41              A     illegal
6834 B3C0 4C              L     inca
6835 B3C1 20 2D            -    bra 2d
6836 B3C3 20 20                 bra 20
6837 B3C5 20 20                 bra 20
6838 B3C7 20 20                 bra 20
6839 B3C9 00              .     test
6840 B3CA 20 20                 bra 20
6841 B3CC 20 20                 bra 20
6842 B3CE 24 31           $1    bcc 31
6843 B3D0 20 43            C    bra 43
6844 B3D2 4F              O     clra
6845 B3D3 49              I     rola
6846 B3D4 4E              N     illegal
6847 B3D5 20 20                 bra 20
6848 B3D7 20 20                 bra 20
6849 B3D9 2D 20           -     blt 20
6850 B3DB 00              .     test
6851 B3DC 20 20                 bra 20
6852 B3DE 20 20                 bra 20
6853 B3E0 51              Q     illegal
6854 B3E1 55              U     illegal
6855 B3E2 41              A     illegal
6856 B3E3 52              R     illegal
6857 B3E4 54              T     lsrb
6858 B3E5 45              E     illegal
6859 B3E6 52              R     illegal
6860 B3E7 53              S     comb
6861 B3E8 20 20                 bra 20
6862 B3EA 20 2D            -    bra 2d
6863 B3EC 20 00            .    bra 00
6864 B3EE 20 20                 bra 20
6865 B3F0 20 20                 bra 20
6866 B3F2 44              D     lsra
6867 B3F3 49              I     rola
6868 B3F4 4D              M     tsta
6869 B3F5 45              E     illegal
6870 B3F6 53              S     comb
6871 B3F7 20 20                 bra 20
6872 B3F9 20 20                 bra 20
6873 B3FB 20 20                 bra 20
6874 B3FD 2D 20           -     blt 20
6875 B3FF 00              .     test
6876 B400 20 20                 bra 20
6877 B402 20 20                 bra 20
6878 B404 4E              N     illegal
6879 B405 49              I     rola
6880 B406 43              C     coma
6881 B407 4B              K     illegal
6882 B408 45              E     illegal
6883 B409 4C              L     inca
6884 B40A 53              S     comb
6885 B40B 20 20                 bra 20
6886 B40D 20 20                 bra 20
6887 B40F 2D 20           -     blt 20
6888 B411 00              .     test
6889 B412 57              W     asrb
6890 B413 49              I     rola
6891 B414 4E              N     illegal
6892 B415 2D 53           -S    blt 53
6893 B417 4E              N     illegal
6894 B418 4B              K     illegal
6895 B419 20 56            V    bra 56
6896 B41B 45              E     illegal
6897 B41C 4E              N     illegal
6898 B41D 44              D     lsra
6899 B41E 53              S     comb
6900 B41F 20 20                 bra 20
6901 B421 2D 20           -     blt 20
6902 B423 00              .     test
6903 B424 53              S     comb
6904 B425 48              H     asla
6905 B426 4F              O     clra
6906 B427 50              P     negb
6907 B428 50              P     negb
6908 B429 45              E     illegal
6909 B42A 52              R     illegal
6910 B42B 20 56            V    bra 56
6911 B42D 45              E     illegal
6912 B42E 4E              N     illegal
6913 B42F 44              D     lsra
6914 B430 53              S     comb
6915 B431 20 20                 bra 20
6916 B433 2D 20           -     blt 20
6917 B435 00              .     test
6918 B436 50              P     negb
6919 B437 52              R     illegal
6920 B438 4F              O     clra
6921 B439 4D              M     tsta
6922 B43A 4F              O     clra
6923 B43B 20 56            V    bra 56
6924 B43D 45              E     illegal
6925 B43E 4E              N     illegal
6926 B43F 44              D     lsra
6927 B440 53              S     comb
6928 B441 20 20                 bra 20
6929 B443 20 20                 bra 20
6930 B445 2D 20           -     blt 20
6931 B447 00              .     test
6932 B448 46              F     rora
6933 B449 52              R     illegal
6934 B44A 45              E     illegal
6935 B44B 45              E     illegal
6936 B44C 20 20                 bra 20
6937 B44E 56              V     rorb
6938 B44F 45              E     illegal
6939 B450 4E              N     illegal
6940 B451 44              D     lsra
6941 B452 53              S     comb
6942 B453 20 20                 bra 20
6943 B455 20 20                 bra 20
6944 B457 2D 20           -     blt 20
6945 B459 00              .     test
6946 B45A 56              V     rorb
6947 B45B 45              E     illegal
6948 B45C 4E              N     illegal
6949 B45D 44              D     lsra
6950 B45E 53              S     comb
6951 B45F 20 50            P    bra 50
6952 B461 45              E     illegal
6953 B462 52              R     illegal
6954 B463 20 50            P    bra 50
6955 B465 52              R     illegal
6956 B466 4F              O     clra
6957 B467 44              D     lsra
6958 B468 55              U     illegal
6959 B469 43              C     coma
6960 B46A 54              T     lsrb
6961 B46B 20 43            C    bra 43
6962 B46D 4F              O     clra
6963 B46E 44              D     lsra
6964 B46F 45              E     illegal
6965 B470 00              .     test
6966
6967 B471 20 20                 bra 20
6968 B473 20 20                 bra 20
6969 B475 43              C     coma
6970 B476 4F              O     clra
6971 B477 44              D     lsra
6972 B478 45              E     illegal
6973 B479 20 00            .    bra 00
6974 B47B 56              V     rorb
6975 B47C 45              E     illegal
6976 B47D 4E              N     illegal
6977 B47E 44              D     lsra
6978 B47F 53              S     comb
6979 B480 20 2D            -    bra 2d
6980 B482 20 00            .    bra 00
6981 B484 56              V     rorb
6982 B485 45              E     illegal
6983 B486 4E              N     illegal
6984 B487 44              D     lsra
6985 B488 53              S     comb
6986 B489 2F 43           /C    ble 43
6987 B48B 4F              O     clra
6988 B48C 44              D     lsra
6989 B48D 45              E     illegal
6990 B48E 00              .     test
6991 B48F 41              A     illegal
6992 B490 42              B     illegal
6993 B491 43              C     coma
6994 B492 44              D     lsra
6995 B493 45              E     illegal
6996 B494 46              F     rora
6997 B495 47              G     asra
6998 B496 48              H     asla
6999 B497 49              I     rola
7000 B498 4A              J     deca
7001 B499 4B              K     illegal
7002 B49A 4C              L     inca
7003 B49B 4D              M     tsta
7004 B49C 4E              N     illegal
7005 B49D 4F              O     clra
7006 B49E 50              P     negb
7007 B49F 51              Q     illegal
7008 B4A0 52              R     illegal
7009 B4A1 53              S     comb
7010 B4A2 54              T     lsrb
7011 B4A3 55              U     illegal
7012 B4A4 56              V     rorb
7013 B4A5 57              W     asrb
7014 B4A6 58              X     aslb
7015 B4A7 59              Y     rolb
7016 B4A8 5A              Z     decb
7017 B4A9 30              0     tsx
7018 B4AA 31              1     ins
7019 B4AB 32              2     pula
7020 B4AC 33              3     pulb
7021 B4AD 34              4     des
7022 B4AE 35              5     txs
7023 B4AF 36              6     psha
7024 B4B0 37              7     pshb
7025 B4B1 38              8     pulx
7026 B4B2 39              9     rts
7027 B4B3 24 2A           $*    bcc 2a
7028 B4B5 20 00            .    bra 00
7029 B4B7 01              .     nop
7030 B4B8 02              .     idiv
7031 B4B9 04              .     lsrd
7032 B4BA 08              .     inx
7033 B4BB 10              .     sba
7034 B4BC 20 40            @    bra 40
7035 B4BE 80 FF           ..    suba #ff
7036 B4C0 FF FF FF        ...   stx ffff
7037 B4C3 FF FF FF        ...   stx ffff
7038 B4C6 FF FF FF        ...   stx ffff
7039 B4C9 FF FF FF        ...   stx ffff
7040 B4CC FF FF FF        ...   stx ffff
7041 B4CF FF FF FF        ...   stx ffff
7042 B4D2 FF FF FF        ...   stx ffff
7043 B4D5 FF FF FF        ...   stx ffff
7044 B4D8 FF FF FF        ...   stx ffff
7045 B4DB FF FF FF        ...   stx ffff
7046 B4DE FF FF FF        ...   stx ffff
7047 B4E1 FF FF FF        ...   stx ffff
7048 B4E4 FF FF FF        ...   stx ffff
7049 B4E7 FF FF FF        ...   stx ffff
7050 B4EA FF FF FF        ...   stx ffff
7051 B4ED FF FF FF        ...   stx ffff
7052 B4F0 FF FF FF        ...   stx ffff
7053 B4F3 FF FF FF        ...   stx ffff
7054 B4F6 FF FF FF        ...   stx ffff
7055 B4F9 FF FF FF        ...   stx ffff
7056 B4FC FF FF FF        ...   stx ffff
7057 B4FF FF FF FF        ...   stx ffff
7058 B502 FF FF FF        ...   stx ffff
7059 B505 FF FF FF        ...   stx ffff
7060 B508 FF FF FF        ...   stx ffff
7061 B50B FF FF FF        ...   stx ffff
7062 B50E FF FF FF        ...   stx ffff
7063 B511 FF FF FF        ...   stx ffff
7064 B514 FF FF FF        ...   stx ffff
7065 B517 FF FF FF        ...   stx ffff
7066 B51A FF FF FF        ...   stx ffff
7067 B51D FF FF FF        ...   stx ffff
7068 B520 FF FF FF        ...   stx ffff
7069 B523 FF FF FF        ...   stx ffff
7070 B526 FF FF FF        ...   stx ffff
7071 B529 FF FF FF        ...   stx ffff
7072 B52C FF FF FF        ...   stx ffff
7073 B52F FF FF FF        ...   stx ffff
7074 B532 FF FF FF        ...   stx ffff
7075 B535 FF FF FF        ...   stx ffff
7076 B538 FF FF FF        ...   stx ffff
7077 B53B FF FF FF        ...   stx ffff
7078 B53E FF FF FF        ...   stx ffff
7079 B541 FF FF FF        ...   stx ffff
7080 B544 FF FF FF        ...   stx ffff
7081 B547 FF FF FF        ...   stx ffff
7082 B54A FF FF FF        ...   stx ffff
7083 B54D FF FF FF        ...   stx ffff
7084 B550 FF FF FF        ...   stx ffff
7085 B553 FF FF FF        ...   stx ffff
7086 B556 FF FF FF        ...   stx ffff
7087 B559 FF FF FF        ...   stx ffff
7088 B55C FF FF FF        ...   stx ffff
7089 B55F FF FF FF        ...   stx ffff
7090 B562 FF FF FF        ...   stx ffff
7091 B565 FF FF FF        ...   stx ffff
7092 B568 FF FF FF        ...   stx ffff
7093 B56B FF FF FF        ...   stx ffff
7094 B56E FF FF FF        ...   stx ffff
7095 B571 FF FF FF        ...   stx ffff
7096 B574 FF FF FF        ...   stx ffff
7097 B577 FF FF FF        ...   stx ffff
7098 B57A FF FF FF        ...   stx ffff
7099 B57D FF FF FF        ...   stx ffff
7100 B580 FF FF FF        ...   stx ffff
7101 B583 FF FF FF        ...   stx ffff
7102 B586 FF FF FF        ...   stx ffff
7103 B589 FF FF FF        ...   stx ffff
7104 B58C FF FF FF        ...   stx ffff
7105 B58F FF FF FF        ...   stx ffff
7106 B592 FF FF FF        ...   stx ffff
7107 B595 FF FF FF        ...   stx ffff
7108 B598 FF FF FF        ...   stx ffff
7109 B59B FF FF FF        ...   stx ffff
7110 B59E FF FF FF        ...   stx ffff
7111 B5A1 FF FF FF        ...   stx ffff
7112 B5A4 FF FF FF        ...   stx ffff
7113 B5A7 FF FF FF        ...   stx ffff
7114 B5AA FF FF FF        ...   stx ffff
7115 B5AD FF FF FF        ...   stx ffff
7116 B5B0 FF FF FF        ...   stx ffff
7117 B5B3 FF FF FF        ...   stx ffff
7118 B5B6 FF FF FF        ...   stx ffff
7119 B5B9 FF FF FF        ...   stx ffff
7120 B5BC FF FF FF        ...   stx ffff
7121 B5BF FF FF FF        ...   stx ffff
7122 B5C2 FF FF FF        ...   stx ffff
7123 B5C5 FF FF FF        ...   stx ffff
7124 B5C8 FF FF FF        ...   stx ffff
7125 B5CB FF FF FF        ...   stx ffff
7126 B5CE FF FF FF        ...   stx ffff
7127 B5D1 FF FF FF        ...   stx ffff
7128 B5D4 FF FF FF        ...   stx ffff
7129 B5D7 FF FF FF        ...   stx ffff
7130 B5DA FF FF FF        ...   stx ffff
7131 B5DD FF FF FF        ...   stx ffff
7132 B5E0 FF FF FF        ...   stx ffff
7133 B5E3 FF FF FF        ...   stx ffff
7134 B5E6 FF FF FF        ...   stx ffff
7135 B5E9 FF FF FF        ...   stx ffff
7136 B5EC FF FF FF        ...   stx ffff
7137 B5EF FF FF FF        ...   stx ffff
7138 B5F2 FF FF FF        ...   stx ffff
7139 B5F5 FF FF FF        ...   stx ffff
7140 B5F8 FF FF FF        ...   stx ffff
7141 B5FB FF FF FF        ...   stx ffff
7142 B5FE FF FF FF        ...   stx ffff
7143 B601 FF FF FF        ...   stx ffff
7144 B604 FF FF FF        ...   stx ffff
7145 B607 FF FF FF        ...   stx ffff
7146 B60A FF FF FF        ...   stx ffff
7147 B60D FF FF FF        ...   stx ffff
7148 B610 FF FF FF        ...   stx ffff
7149 B613 FF FF FF        ...   stx ffff
7150 B616 FF FF FF        ...   stx ffff
7151 B619 FF FF FF        ...   stx ffff
7152 B61C FF FF FF        ...   stx ffff
7153 B61F FF FF FF        ...   stx ffff
7154 B622 FF FF FF        ...   stx ffff
7155 B625 FF FF FF        ...   stx ffff
7156 B628 FF FF FF        ...   stx ffff
7157 B62B FF FF FF        ...   stx ffff
7158 B62E FF FF FF        ...   stx ffff
7159 B631 FF FF FF        ...   stx ffff
7160 B634 FF FF FF        ...   stx ffff
7161 B637 FF FF FF        ...   stx ffff
7162 B63A FF FF FF        ...   stx ffff
7163 B63D FF FF FF        ...   stx ffff
7164 B640 FF FF FF        ...   stx ffff
7165 B643 FF FF FF        ...   stx ffff
7166 B646 FF FF FF        ...   stx ffff
7167 B649 FF FF FF        ...   stx ffff
7168 B64C FF FF FF        ...   stx ffff
7169 B64F FF FF FF        ...   stx ffff
7170 B652 FF FF FF        ...   stx ffff
7171 B655 FF FF FF        ...   stx ffff
7172 B658 FF FF FF        ...   stx ffff
7173 B65B FF FF FF        ...   stx ffff
7174 B65E FF FF FF        ...   stx ffff
7175 B661 FF FF FF        ...   stx ffff
7176 B664 FF FF FF        ...   stx ffff
7177 B667 FF FF FF        ...   stx ffff
7178 B66A FF FF FF        ...   stx ffff
7179 B66D FF FF FF        ...   stx ffff
7180 B670 FF FF FF        ...   stx ffff
7181 B673 FF FF FF        ...   stx ffff
7182 B676 FF FF FF        ...   stx ffff
7183 B679 FF FF FF        ...   stx ffff
7184 B67C FF FF FF        ...   stx ffff
7185 B67F FF FF FF        ...   stx ffff
7186 B682 FF FF FF        ...   stx ffff
7187 B685 FF FF FF        ...   stx ffff
7188 B688 FF FF FF        ...   stx ffff
7189 B68B FF FF FF        ...   stx ffff
7190 B68E FF FF FF        ...   stx ffff
7191 B691 FF FF FF        ...   stx ffff
7192 B694 FF FF FF        ...   stx ffff
7193 B697 FF FF FF        ...   stx ffff
7194 B69A FF FF FF        ...   stx ffff
7195 B69D FF FF FF        ...   stx ffff
7196 B6A0 FF FF FF        ...   stx ffff
7197 B6A3 FF FF FF        ...   stx ffff
7198 B6A6 FF FF FF        ...   stx ffff
7199 B6A9 FF FF FF        ...   stx ffff
7200 B6AC FF FF FF        ...   stx ffff
7201 B6AF FF FF FF        ...   stx ffff
7202 B6B2 FF FF FF        ...   stx ffff
7203 B6B5 FF FF FF        ...   stx ffff
7204 B6B8 FF FF FF        ...   stx ffff
7205 B6BB FF FF FF        ...   stx ffff
7206 B6BE FF FF FF        ...   stx ffff
7207 B6C1 FF FF FF        ...   stx ffff
7208 B6C4 FF FF FF        ...   stx ffff
7209 B6C7 FF FF FF        ...   stx ffff
7210 B6CA FF FF FF        ...   stx ffff
7211 B6CD FF FF FF        ...   stx ffff
7212 B6D0 FF FF FF        ...   stx ffff
7213 B6D3 FF FF FF        ...   stx ffff
7214 B6D6 FF FF FF        ...   stx ffff
7215 B6D9 FF FF FF        ...   stx ffff
7216 B6DC FF FF FF        ...   stx ffff
7217 B6DF FF FF FF        ...   stx ffff
7218 B6E2 FF FF FF        ...   stx ffff
7219 B6E5 FF FF FF        ...   stx ffff
7220 B6E8 FF FF FF        ...   stx ffff
7221 B6EB FF FF FF        ...   stx ffff
7222 B6EE FF FF FF        ...   stx ffff
7223 B6F1 FF FF FF        ...   stx ffff
7224 B6F4 FF FF FF        ...   stx ffff
7225 B6F7 FF FF FF        ...   stx ffff
7226 B6FA FF FF FF        ...   stx ffff
7227 B6FD FF FF FF        ...   stx ffff
7228 B700 FF FF FF        ...   stx ffff
7229 B703 FF FF FF        ...   stx ffff
7230 B706 FF FF FF        ...   stx ffff
7231 B709 FF FF FF        ...   stx ffff
7232 B70C FF FF FF        ...   stx ffff
7233 B70F FF FF FF        ...   stx ffff
7234 B712 FF FF FF        ...   stx ffff
7235 B715 FF FF FF        ...   stx ffff
7236 B718 FF FF FF        ...   stx ffff
7237 B71B FF FF FF        ...   stx ffff
7238 B71E FF FF FF        ...   stx ffff
7239 B721 FF FF FF        ...   stx ffff
7240 B724 FF FF FF        ...   stx ffff
7241 B727 FF FF FF        ...   stx ffff
7242 B72A FF FF FF        ...   stx ffff
7243 B72D FF FF FF        ...   stx ffff
7244 B730 FF FF FF        ...   stx ffff
7245 B733 FF FF FF        ...   stx ffff
7246 B736 FF FF FF        ...   stx ffff
7247 B739 FF FF FF        ...   stx ffff
7248 B73C FF FF FF        ...   stx ffff
7249 B73F FF FF FF        ...   stx ffff
7250 B742 FF FF FF        ...   stx ffff
7251 B745 FF FF FF        ...   stx ffff
7252 B748 FF FF FF        ...   stx ffff
7253 B74B FF FF FF        ...   stx ffff
7254 B74E FF FF FF        ...   stx ffff
7255 B751 FF FF FF        ...   stx ffff
7256 B754 FF FF FF        ...   stx ffff
7257 B757 FF FF FF        ...   stx ffff
7258 B75A FF FF FF        ...   stx ffff
7259 B75D FF FF FF        ...   stx ffff
7260 B760 FF FF FF        ...   stx ffff
7261 B763 FF FF FF        ...   stx ffff
7262 B766 FF FF FF        ...   stx ffff
7263 B769 FF FF FF        ...   stx ffff
7264 B76C FF FF FF        ...   stx ffff
7265 B76F FF FF FF        ...   stx ffff
7266 B772 FF FF FF        ...   stx ffff
7267 B775 FF FF FF        ...   stx ffff
7268 B778 FF FF FF        ...   stx ffff
7269 B77B FF FF FF        ...   stx ffff
7270 B77E FF FF FF        ...   stx ffff
7271 B781 FF FF FF        ...   stx ffff
7272 B784 FF FF FF        ...   stx ffff
7273 B787 FF FF FF        ...   stx ffff
7274 B78A FF FF FF        ...   stx ffff
7275 B78D FF FF FF        ...   stx ffff
7276 B790 FF FF FF        ...   stx ffff
7277 B793 FF FF FF        ...   stx ffff
7278 B796 FF FF FF        ...   stx ffff
7279 B799 FF FF FF        ...   stx ffff
7280 B79C FF FF FF        ...   stx ffff
7281 B79F FF FF FF        ...   stx ffff
7282 B7A2 FF FF FF        ...   stx ffff
7283 B7A5 FF FF FF        ...   stx ffff
7284 B7A8 FF FF FF        ...   stx ffff
7285 B7AB FF FF FF        ...   stx ffff
7286 B7AE FF FF FF        ...   stx ffff
7287 B7B1 FF FF FF        ...   stx ffff
7288 B7B4 FF FF FF        ...   stx ffff
7289 B7B7 FF FF FF        ...   stx ffff
7290 B7BA FF FF FF        ...   stx ffff
7291 B7BD FF FF FF        ...   stx ffff
7292 B7C0 FF FF FF        ...   stx ffff
7293 B7C3 FF FF FF        ...   stx ffff
7294 B7C6 FF FF FF        ...   stx ffff
7295 B7C9 FF FF FF        ...   stx ffff
7296 B7CC FF FF FF        ...   stx ffff
7297 B7CF FF FF FF        ...   stx ffff
7298 B7D2 FF FF FF        ...   stx ffff
7299 B7D5 FF FF FF        ...   stx ffff
7300 B7D8 FF FF FF        ...   stx ffff
7301 B7DB FF FF FF        ...   stx ffff
7302 B7DE FF FF FF        ...   stx ffff
7303 B7E1 FF FF FF        ...   stx ffff
7304 B7E4 FF FF FF        ...   stx ffff
7305 B7E7 FF FF FF        ...   stx ffff
7306 B7EA FF FF FF        ...   stx ffff
7307 B7ED FF FF FF        ...   stx ffff
7308 B7F0 FF FF FF        ...   stx ffff
7309 B7F3 FF FF FF        ...   stx ffff
7310 B7F6 FF FF FF        ...   stx ffff
7311 B7F9 FF FF FF        ...   stx ffff
7312 B7FC FF FF FF        ...   stx ffff
7313 B7FF FF              .
7314
7315 jump201:
7316 B800 34              .     des
7317 B801 F6 0E 6D        ...   ldab 0e6d
7318 B804 C1 01           ..    cmpb #01
7319 B806 27 03           '.    beq 03
7320 B808 7E B9 2A        ~.*   jmp b92a             ;goto25
7321 B80B F6 0E 02        ...   ldab 0e02
7322 B80E C1 05           ..    cmpb #05     ; was the 3rd last keypress a 5?
7323 B810 27 03           '.    beq 03
7324 B812 7E B9 2A        ~.*   jmp b92a             ;goto25
7325 B815 F6 0E 03        ...   ldab 0e03
7326 B818 C1 05           ..    cmpb #05     ; was the 2nd last keypress a 5?
7327 B81A 27 03           '.    beq 03
7328 B81C 7E B9 2A        ~.*   jmp b92a             ;goto25
7329 B81F F6 0E 04        ...   ldab 0e04
7330 B822 C1 05           ..    cmpb #05     ; was the last keypress a 5?
7331 B824 27 03           '.    beq 03
7332 B826 7E B9 2A        ~.*   jmp b92a             ;goto25
7333 B829 F6 00 12        ...   ldab 0012
7334 B82C C4 20           .     andb #20     ; test the door switch
7335 B82E 27 03           '.    beq 03
7336 B830 7E B9 2A        ~.*   jmp b92a             ;goto25
7337 B833 30              0     tsx
7338 B834 6F 00           o.    clr 00,x
7339 B836 F6 0E 6A        ..j   ldab 0e6a
7340 B839 C1 00           ..    cmpb #00
7341 B83B 22 33           "3    bhi 33
7342 B83D C6 64           .d    ldab #64
7343 B83F F7 0E 6A        ..j   stab 0e6a
7344 B842 7C 0E 05        |..   inc 0e05
7345 B845 F6 0E 05        ...   ldab 0e05
7346 B848 C1 64           .d    cmpb #64
7347 B84A 23 03           #.    bls 03
7348 B84C 7F 0E 05        ...   clr 0e05
7349 B84F F6 0E 05        ...   ldab 0e05
7350 B852 BD D4 68        ..h   jsr d468             ;jump51
7351 B855 83 00 00        ...   subd #0000
7352 B858 27 0B           '.    beq 0b
7353 B85A F6 0E 05        ...   ldab 0e05
7354 B85D BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7355 B860 83 00 00        ...   subd #0000
7356 B863 27 09           '.    beq 09
7357 B865 30              0     tsx
7358 B866 6C 00           l.    inc 00,x
7359 B868 E6 00           ..    ldab 00,x
7360 B86A C1 6E           .n    cmpb #6e     ; 110 or 01101110
7361 B86C 2D D4           -.    blt d4
7362 B86E 20 0A            .    bra 0a
7363 B870 F6 0E 6A        ..j   ldab 0e6a
7364 B873 C1 00           ..    cmpb #00
7365 B875 23 03           #.    bls 03
7366 B877 7A 0E 6A        z.j   dec 0e6a
7367 B87A F6 0E 05        ...   ldab 0e05
7368 B87D BD D4 68        ..h   jsr d468             ;jump51
7369 B880 83 00 00        ...   subd #0000
7370 B883 26 03           &.    bne 03
7371 B885 7E B9 0A        ~..   jmp b90a             ;goto26
7372 B888 F6 0E 05        ...   ldab 0e05
7373 B88B BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
7374 B88E 83 00 00        ...   subd #0000
7375 B891 26 77           &w    bne 77
7376 B893 BD BE 4B        ..K   jsr be4b             ;displayblank
7377 B896 C6 20           .     ldab #20    ; " "
7378 B898 F7 0B 9A        ...   stab 0b9a
7379 B89B C6 20           .     ldab #20    ; " "
7380 B89D F7 0B 99        ...   stab 0b99
7381 B8A0 C6 20           .     ldab #20    ; " "
7382 B8A2 F7 0B 98        ...   stab 0b98
7383 B8A5 F6 0E 05        ...   ldab 0e05   ; array index/10
7384 B8A8 4F              O     clra
7385 B8A9 CE 00 0A        ...   ldx #000a
7386 B8AC 02              .     idiv
7387 B8AD 8F              .     xgdx
7388 B8AE CB 30           .0    addb #30    ; make it a digit
7389 B8B0 F7 0B 97        ...   stab 0b97
7390 B8B3 F6 0E 05        ...   ldab 0e05   ; array index%10
7391 B8B6 4F              O     clra
7392 B8B7 CE 00 0A        ...   ldx #000a
7393 B8BA 02              .     idiv
7394 B8BB CB 30           .0    addb #30     ; make it a digit
7395 B8BD F7 0B 96        ...   stab 0b96
7396 B8C0 C6 20           .     ldab #20     ; " "
7397 B8C2 F7 0B 95        ...   stab 0b95
7398 B8C5 C6 20           .     ldab #20     ; " "
7399 B8C7 F7 0B 94        ...   stab 0b94
7400 B8CA F6 0E 05        ...   ldab 0e05    ; array[index]/10
7401 B8CD 4F              O     clra
7402 B8CE C3 0E 06        ...   addd #0e06
7403 B8D1 8F              .     xgdx
7404 B8D2 E6 00           ..    ldab 00,x
7405 B8D4 4F              O     clra
7406 B8D5 CE 00 0A        ...   ldx #000a
7407 B8D8 02              .     idiv
7408 B8D9 8F              .     xgdx
7409 B8DA CB 30           .0    addb #30     ; make it a digit
7410 B8DC F7 0B 93        ...   stab 0b93
7411 B8DF F6 0E 05        ...   ldab 0e05    ; array[index]%10
7412 B8E2 4F              O     clra
7413 B8E3 C3 0E 06        ...   addd #0e06
7414 B8E6 8F              .     xgdx
7415 B8E7 E6 00           ..    ldab 00,x
7416 B8E9 4F              O     clra
7417 B8EA CE 00 0A        ...   ldx #000a
7418 B8ED 02              .     idiv
7419 B8EE CB 30           .0    addb #30     ; make it a digit
7420 B8F0 F7 0B 92        ...   stab 0b92
7421 B8F3 C6 20           .     ldab #20     ; " "
7422 B8F5 F7 0B 91        ...   stab 0b91
7423 B8F8 C6 20           .     ldab #20     ; " "
7424 B8FA F7 0B 90        ...   stab 0b90
7425 B8FD 7F 00 2C        ..,   clr 002c
7426 B900 BD BE 01        ...   jsr be01             ;jump70
7427 B903 C6 0A           ..    ldab #0a
7428 B905 F7 00 2C        ..,   stab 002c
7429 B908 20 1D            .    bra 1d
7430 goto26:
7431 B90A BD BE 4B        ..K   jsr be4b             ;displayblank
7432 B90D C6 57           .W    ldab #57     ; "W"
7433 B90F F7 0B 96        ...   stab 0b96
7434 B912 C6 42           .B    ldab #42     ; "B"
7435 B914 F7 0B 95        ...   stab 0b95
7436 B917 C6 42           .B    ldab #42     ; "B"
7437 B919 F7 0B 94        ...   stab 0b94
7438 B91C 7F 00 2C        ..,   clr 002c
7439 B91F BD BE 01        ...   jsr be01             ;jump70 write to display
7440 B922 C6 0A           ..    ldab #0a
7441 B924 F7 00 2C        ..,   stab 002c
7442 B927 7E BA 81        ~..   jmp ba81             ;goto27 - return
7443 goto25:
7444 B92A F6 0E 6D        ..m   ldab 0e6d
7445 B92D C1 01           ..    cmpb #01
7446 B92F 27 03           '.    beq 03
7447 B931 7E BA 81        ~..   jmp ba81             ;goto27 - return
7448 B934 F6 0E 00        ...   ldab 0e00
7449 B937 C1 05           ..    cmpb #05
7450 B939 27 03           '.    beq 03
7451 B93B 7E BA 81        ~..   jmp ba81             ;goto27 - return
7452 B93E F6 0E 01        ...   ldab 0e01
7453 B941 C1 05           ..    cmpb #05
7454 B943 27 03           '.    beq 03
7455 B945 7E BA 81        ~..   jmp ba81             ;goto27 - return
7456 B948 F6 0E 02        ...   ldab 0e02
7457 B94B C1 05           ..    cmpb #05
7458 B94D 27 03           '.    beq 03
7459 B94F 7E BA 81        ~..   jmp ba81             ;goto27 - return
7460 B952 F6 00 12        ...   ldab 0012
7461 B955 C4 20           .     andb #20     ; test the door switch
7462 B957 26 03           &.    bne 03
7463 B959 7E BA 81        ~..   jmp ba81             ;goto27 - return
7464 B95C F6 0E 04        ...   ldab 0e04
7465 B95F C1 05           ..    cmpb #05
7466 B961 26 79           &y    bne 79
7467 B963 F6 0E 03        ...   ldab 0e03
7468 B966 C1 05           ..    cmpb #05
7469 B968 26 72           &r    bne 72
7470 B96A 30              0     tsx
7471 B96B 6F 00           o.    clr 00,x
7472 B96D 30              0     tsx
7473 B96E E6 00           ..    ldab 00,x
7474 B970 C1 64           .d    cmpb #64
7475 B972 2C 16           ,.    bge 16
7476 B974 5F              _     clrb
7477 B975 37              7     pshb
7478 B976 30              0     tsx
7479 B977 E6 01           ..    ldab 01,x
7480 B979 4F              O     clra
7481 B97A 5D              ]     tstb
7482 B97B 2C 01           ,.    bge 01
7483 B97D 4A              J     deca
7484 B97E C3 0E 06        ...   addd #0e06
7485 B981 8F              .     xgdx
7486 B982 33              3     pulb
7487 B983 E7 00           ..    stab 00,x
7488 B985 30              0     tsx
7489 B986 6C 00           l.    inc 00,x
7490 B988 20 E3            .    bra e3
7491 B98A 7F 0D FF        ...   clr 0dff
7492 B98D 7F 0E 00        ...   clr 0e00
7493 B990 7F 0E 01        ...   clr 0e01
7494 B993 7F 0E 02        ...   clr 0e02
7495 B996 7F 0E 03        ...   clr 0e03
7496 B999 7F 0E 04        ...   clr 0e04
7497 B99C C6 41           .A    ldab #41   ; "A"
7498 B99E F7 0B 99        ...   stab 0b99
7499 B9A1 C6 4C           .L    ldab #4c   ; "L"
7500 B9A3 F7 0B 98        ...   stab 0b98
7501 B9A6 C6 4C           .L    ldab #4c   ; "L"
7502 B9A8 F7 0B 97        ...   stab 0b97
7503 B9AB C6 20           .     ldab #20   ; " "
7504 B9AD F7 0B 96        ...   stab 0b96
7505 B9B0 C6 43           .C    ldab #43   ; "C"
7506 B9B2 F7 0B 95        ...   stab 0b95
7507 B9B5 C6 4C           .L    ldab #4c   ; "L"
7508 B9B7 F7 0B 94        ...   stab 0b94
7509 B9BA C6 45           .E    ldab #45   ; "E"
7510 B9BC F7 0B 93        ...   stab 0b93
7511 B9BF C6 41           .A    ldab #41   ; "A"
7512 B9C1 F7 0B 92        ...   stab 0b92
7513 B9C4 C6 52           .R    ldab #52   ; "R"
7514 B9C6 F7 0B 91        ...   stab 0b91
7515 B9C9 C6 20           .     ldab #20   ; " "
7516 B9CB F7 0B 90        ...   stab 0b90
7517 B9CE 7F 00 2C        ..,   clr 002c
7518 B9D1 BD BE 01        ...   jsr be01             ;jump70 - display
7519 B9D4 C6 1E           ..    ldab #1e
7520 B9D6 F7 00 2C        ..,   stab 002c
7521 B9D9 7E BA 81        ~..   jmp ba81             ;goto27 - return
7522 ;
7523 B9DC F6 0E 04        ...   ldab 0e04
7524 B9DF C1 01           ..    cmpb #01
7525 B9E1 27 0A           '.    beq 0a
7526 B9E3 F6 0E 04        ...   ldab 0e04
7527 B9E6 C1 02           ..    cmpb #02
7528 B9E8 27 03           '.    beq 03
7529 B9EA 7E BA 81        ~..   jmp ba81             ;goto27 - return
7530 ;
7531 B9ED F6 0E 03        ...   ldab 0e03
7532 B9F0 C1 00           ..    cmpb #00
7533 B9F2 22 03           ".    bhi 03
7534 B9F4 7E BA 81        ~..   jmp ba81             ;goto27 - return
7535 ;
7536 B9F7 F6 0E 03        ...   ldab 0e03
7537 B9FA C1 05           ..    cmpb #05
7538 B9FC 26 03           &.    bne 03
7539 B9FE 7E BA 81        ~..   jmp ba81             ;goto27 - return
7540 ;
7541 BA01 F6 0E 03        ...   ldab 0e03
7542 BA04 C1 07           ..    cmpb #07
7543 BA06 24 79           $y    bcc 79
7544 BA08 F6 0E 03        ...   ldab 0e03  ; prevkey*10+key
7545 BA0B 86 0A           ..    ldaa #0a
7546 BA0D 3D              =     mul
7547 BA0E FB 0E 04        ...   addb 0e04
7548 BA11 30              0     tsx
7549 BA12 E7 00           ..    stab 00,x
7550 BA14 E6 00           ..    ldab 00,x
7551 BA16 C1 64           .d    cmpb #64
7552 BA18 2C 67           ,g    bge 67
7553 BA1A E6 00           ..    ldab 00,x
7554 BA1C 2D 63           -c    blt 63
7555 BA1E 5F              _     clrb
7556 BA1F 37              7     pshb
7557 BA20 30              0     tsx
7558 BA21 E6 01           ..    ldab 01,x
7559 BA23 4F              O     clra
7560 BA24 5D              ]     tstb
7561 BA25 2C 01           ,.    bge 01
7562 BA27 4A              J     deca
7563 BA28 C3 0E 06        ...   addd #0e06
7564 BA2B 8F              .     xgdx
7565 BA2C 33              3     pulb
7566 BA2D E7 00           ..    stab 00,x
7567 BA2F F6 0E 03        ...   ldab 0e03
7568 BA32 CB 30           .0    addb #30    ; +48 (make an ascii digit)
7569 BA34 F7 0B 99        ...   stab 0b99
7570 BA37 F6 0E 04        ...   ldab 0e04
7571 BA3A CB 30           .0    addb #30    ; +48 (make an ascii digit)
7572 BA3C F7 0B 98        ...   stab 0b98
7573 BA3F C6 20           .     ldab #20    ; " "
7574 BA41 F7 0B 97        ...   stab 0b97
7575 BA44 C6 43           .C    ldab #43    ; "C"
7576 BA46 F7 0B 96        ...   stab 0b96
7577 BA49 C6 4C           .L    ldab #4c    ; "L"
7578 BA4B F7 0B 95        ...   stab 0b95
7579 BA4E C6 45           .E    ldab #45    ; "E"
7580 BA50 F7 0B 94        ...   stab 0b94
7581 BA53 C6 41           .A    ldab #41    ; "A"
7582 BA55 F7 0B 93        ...   stab 0b93
7583 BA58 C6 52           .R    ldab #52    ; "R"
7584 BA5A F7 0B 92        ...   stab 0b92
7585 BA5D C6 45           .E    ldab #45    ; "E"
7586 BA5F F7 0B 91        ...   stab 0b91
7587 BA62 C6 44           .D    ldab #44    ; "D"
7588 BA64 F7 0B 90        ...   stab 0b90
7589 BA67 7F 0E 00        ...   clr 0e00
7590 BA6A 7F 0E 01        ...   clr 0e01
7591 BA6D 7F 0E 02        ...   clr 0e02
7592 BA70 7F 0E 03        ...   clr 0e03
7593 BA73 7F 0E 04        ...   clr 0e04
7594 BA76 7F 00 2C        ..,   clr 002c
7595 BA79 BD BE 01        ...   jsr be01             ;jump70 - display
7596 BA7C C6 1E           ..    ldab #1e
7597 BA7E F7 00 2C        ..,   stab 002c
7598 goto27:
7599 BA81 31              1     ins
7600 BA82 39              9     rts
7601
7602 jump125:
7603 ; reads the keypad state into 005b & 0056
7604 ; it looks like it returns without doing anything if the
7605 ; no sale switch is pressed, but I haven't looked closely
7606 BA83 F6 18 00        ...   ldab 1800
7607 BA86 C4 7F           ..    andb #7f
7608 BA88 F7 00 23        ..#   stab 0023
7609 BA8B F6 00 23        ..#   ldab 0023
7610 BA8E F1 00 12        ...   cmpb 0012   ; door buffers - debouncing it?
7611 BA91 27 06           '.    beq 06
7612 BA93 F6 00 23        ..#   ldab 0023
7613 BA96 F7 00 12        ...   stab 0012
7614 BA99 F6 20 00        . .   ldab 2000
7615 BA9C F1 00 20        ..    cmpb 0020
7616 BA9F 27 08           '.    beq 08
7617 BAA1 F6 20 00        . .   ldab 2000
7618 BAA4 F7 00 20        ..    stab 0020
7619 BAA7 20 0E            .    bra 0e
7620 BAA9 F6 00 20        ..    ldab 0020
7621 BAAC F7 00 11        ...   stab 0011
7622 BAAF F6 00 11        ...   ldab 0011
7623 BAB2 C4 03           ..    andb #03
7624 BAB4 F7 00 2B        ..+   stab 002b
7625 BAB7 F6 00 1B        ...   ldab 001b
7626 BABA C4 04           ..    andb #04
7627 BABC 37              7     pshb
7628 BABD F6 10 0A        ...   ldab 100a   ; PortE
7629 BAC0 C4 04           ..    andb #04    ; no sale switch (active low)
7630 BAC2 30              0     tsx
7631 BAC3 E0 00           ..    subb 00,x
7632 BAC5 31              1     ins
7633 BAC6 27 17           '.    beq 17
7634 BAC8 F6 10 0A        ...   ldab 100a   ; PortE
7635 BACB C4 04           ..    andb #04    : no sale switch (active low)
7636 BACD 27 08           '.    beq 08
7637 BACF CE 00 1B        ...   ldx #001b
7638 BAD2 1C 00 04        ..    bset 00,x, #04
7639 BAD5 20 06            .    bra 06
7640 BAD7 CE 00 1B        ...   ldx #001b
7641 BADA 1D 00 04        ..    bclr 00,x, #04
7642 BADD 20 15            .    bra 15
7643 BADF F6 10 0A        ...   ldab 100a   ; PortE
7644 BAE2 C4 04           ..    andb #04    ; no sale switch (active low)
7645 BAE4 27 08           '.    beq 08
7646 BAE6 CE 00 1D        ...   ldx #001d
7647 BAE9 1C 00 04        ..    bset 00,x, #04
7648 BAEC 20 06            .    bra 06
7649 BAEE CE 00 1D        ...   ldx #001d
7650 BAF1 1D 00 04        ..    bclr 00,x, #04
7651 BAF4 CE 10 08        ...   ldx #1008        : PortD
7652 BAF7 1D 00 20        ...   bclr 00,x, #20   ; select keypad row 0
7653 BAF9 CE 10 28        ...   ldx #1028
7654 BAFC 1C 00 40        ...   bset 00,x #40    ; enable SPI
7655
7656 BB00 CE 00 14        ...   ldx #0014        ; keypad strobe:
7657 BB03 1C 00 04        ..    bset 00,x, #04   ; resets the keypad
7658 BB06 F6 00 14        ...   ldab 0014        ; shift register
7659 BB09 F7 38 00        .8.   stab 3800        ; ready for a new
7660 BB0C CE 00 14        ...   ldx #0014        ; read
7661 BB0F 1D 00 04        ..    bclr 00,x, #04
7662 BB12 F6 00 14        ...   ldab 0014
7663 BB15 F7 38 00        .8.   stab 3800
7664
7665 BB18 CE 00 00        ...   ldx #0000
7666 BB1B 3C              <     pshx
7667 BB1C 5F              _     clrb
7668 BB1D 4F              O     clra
7669 BB1E BD BD B5        ...   jsr bdb5             ;jump78 - reads the keypad inputs into X
7670 BB21 38              8     pulx
7671 BB22 F7 00 5B        ..[   stab 005b
7672
7673 BB25 CE 10 28        ..(   ldx #1028
7674 BB28 1D 00 40        ..    bclr 00,x, #40  ; disable SPI
7675
7676 BB2B CE 10 08        ...   ldx #1008
7677 BB2E 1C 00 20        ..    bset 00,x, #20  ; select keypad row 1
7678
7679 BB30 CE 10 28        ...   ldx #1028
7680 BB33 1C 00 40        ...   bset 00,x, #40  ; enable the SPI
7681
7682 BB37 CE 00 14        ...   ldx #0014
7683 BB3A 1C 00 04        ..    bset 00,x, #04  ; keypad strobe
7684 BB3D F6 00 14        ...   ldab 0014
7685 BB40 F7 38 00        .8.   stab 3800
7686 BB43 CE 00 14        ...   ldx #0014
7687 BB46 1D 00 04        ..    bclr 00,x, #04
7688 BB49 F6 00 14        ...   ldab 0014
7689 BB4C F7 38 00        .8.   stab 3800
7690
7691 BB4F CE 00 00        ...   ldx #0000
7692 BB52 3C              <     pshx
7693 BB53 5F              _     clrb
7694 BB54 4F              O     clra
7695 BB55 BD BD B5        ...   jsr bdb5             ;jump78  - read the keypad
7696 BB58 38              8     pulx
7697 BB59 F7 00 56        ..V   stab 0056
7698 BB5C CE 10 28        ..(   ldx #1028
7699 BB5F 1D 00 40        ..    bclr 00,x, #40
7700 BB62 39              9     rts
7701
7702 jump200:
7703 BB63 F6 00 00        ...   ldab 0000
7704 BB66 27 03           '.    beq 03
7705 BB68 7E BD B4        ~..   jmp bdb4             ;goto28
7706 BB6B F6 00 2E        ...   ldab 002e
7707 BB6E 27 03           '.    beq 03
7708 BB70 7E BD B4        ~..   jmp bdb4             ;goto28
7709 BB73 BD BA 83        ...   jsr ba83             ;jump125 - read keypad
7710 ; has a key been pressed?
7711 BB76 F6 00 5B        ..[   ldab 005b
7712 BB79 F1 00 56        ..V   cmpb 0056
7713 BB7C 26 0B           &.    bne 0b       ; to bb89
7714 BB7E F6 00 56        ..V   ldab 0056
7715 BB81 27 06           '.    beq 06       ; to bb89
7716 BB83 7F 00 29        ..)   clr 0029     ; to key pressed
7717 BB86 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7718 ; find keypad number
7719 BB89 F6 00 5B        ..[   ldab 005b    ; is row0 = 0
7720 BB8C 27 34           '4    beq 34       ; if so, to bbc2
7721 BB8E F6 00 5B        ..[   ldab 005b
7722 BB91 F7 00 5F        .._   stab 005f
7723 BB94 7F 00 1C        ...   clr 001c     ; i=0
7724 ;
7725 BB97 F6 00 1C        ...   ldab 001c
7726 BB9A C1 08           ..    cmpb #08     ; if i >= 8
7727 BB9C 24 15           $.    bcc 15       ; to bbb3 (break)
7728 BB9E F6 00 5F        .._   ldab 005f
7729 BBA1 C4 01           ..    andb #01
7730 BBA3 27 02           '.    beq 02
7731 BBA5 20 0C            .    bra 0c       ; to bbb3
7732 BBA7 F6 00 5F        .._   ldab 005f
7733 BBAA 54              T     lsrb         ; ready to test next bit
7734 BBAB F7 00 5F        .._   stab 005f
7735 BBAE 7C 00 1C        |..   inc 001c
7736 BBB1 20 E4            .    bra e4       ; to bb97
7737 ; look up i in the keypad map
7738 BBB3 F6 00 1C        ...   ldab 001c
7739 BBB6 4F              O     clra
7740 BBB7 C3 AC 9D        ...   addd #ac9d   ; keypad mapping
7741 BBBA 8F              .     xgdx
7742 BBBB E6 00           ..    ldab 00,x
7743 BBBD F7 00 16        ...   stab 0016
7744 BBC0 20 3C            <    bra 3c       ; to bbfe
7745 ; test row 1 - ditto
7746 BBC2 F6 00 56        ..V   ldab 0056
7747 BBC5 27 34           '4    beq 34
7748 BBC7 F6 00 56        ..V   ldab 0056
7749 BBCA F7 00 5F        .._   stab 005f
7750 BBCD 7F 00 1C        ...   clr 001c
7751 BBD0 F6 00 1C        ...   ldab 001c
7752 BBD3 C1 08           ..    cmpb #08
7753 BBD5 24 15           $.    bcc 15
7754 BBD7 F6 00 5F        .._   ldab 005f
7755 BBDA C4 01           ..    andb #01
7756 BBDC 27 02           '.    beq 02
7757 BBDE 20 0C            .    bra 0c       ; to bbec
7758 BBE0 F6 00 5F        .._   ldab 005f
7759 BBE3 54              T     lsrb
7760 BBE4 F7 00 5F        .._   stab 005f
7761 BBE7 7C 00 1C        |..   inc 001c
7762 BBEA 20 E4            .    bra e4
7763 BBEC F6 00 1C        ...   ldab 001c
7764 ; look up in map
7765 BBEF 4F              O     clra
7766 BBF0 C3 AC A0        ...   addd #aca0
7767 BBF3 8F              .     xgdx
7768 BBF4 E6 00           ..    ldab 00,x
7769 BBF6 F7 00 16        ...   stab 0016
7770 BBF9 20 03            .    bra 03
7771 BBFB 7F 00 16        ...   clr 0016
7772 ;
7773 BBFE F6 00 5B        ..[   ldab 005b
7774 BC01 FA 00 56        ..V   orb 0056
7775 BC04 F7 00 5F        .._   stab 005f
7776 BC07 7F 00 5E        ..^   clr 005e
7777 BC0A 7F 00 1C        ...   clr 001c
7778 BC0D F6 00 1C        ...   ldab 001c
7779 BC10 C1 08           ..    cmpb #08
7780 BC12 24 16           $.    bcc 16
7781 BC14 F6 00 5F        .._   ldab 005f
7782 BC17 C4 01           ..    andb #01
7783 BC19 27 03           '.    beq 03
7784 BC1B 7C 00 5E        |.^   inc 005e
7785 BC1E F6 00 5F        .._   ldab 005f
7786 BC21 54              T     lsrb
7787 BC22 F7 00 5F        .._   stab 005f
7788 BC25 7C 00 1C        |..   inc 001c
7789 BC28 20 E3            .    bra e3
7790 BC2A F6 00 5E        ..^   ldab 005e
7791 BC2D C1 01           ..    cmpb #01
7792 BC2F 22 05           ".    bhi 05
7793 BC31 F6 00 16        ...   ldab 0016
7794 BC34 26 0F           &.    bne 0f
7795 BC36 7F 00 29        ..)   clr 0029
7796 BC39 CE 00 1B        ...   ldx #001b
7797 BC3C 1C 00 10        ...   bset 00,x, #10
7798 BC3F 7F 00 37        ..7   clr 0037
7799 BC42 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7800 BC45 F6 00 16        ...   ldab 0016    ; key release or debounce?
7801 BC48 F1 00 29        ..)   cmpb 0029
7802 BC4B 27 2D           '-    beq 2d
7803 BC4D F6 00 16        ...   ldab 0016
7804 BC50 F7 00 29        ..)   stab 0029
7805 BC53 F6 0E 00        ...   ldab 0e00     ; this is the key buffer?
7806 BC56 F7 0D FF        ...   stab 0dff
7807 BC59 F6 0E 01        ...   ldab 0e01
7808 BC5C F7 0E 00        ...   stab 0e00
7809 BC5F F6 0E 02        ...   ldab 0e02
7810 BC62 F7 0E 01        ...   stab 0e01
7811 BC65 F6 0E 03        ...   ldab 0e03
7812 BC68 F7 0E 02        ...   stab 0e02
7813 BC6B F6 0E 04        ...   ldab 0e04
7814 BC6E F7 0E 03        ...   stab 0e03
7815 BC71 F6 00 29        ..)   ldab 0029
7816 BC74 F7 0E 04        ...   stab 0e04
7817 BC77 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7818 BC7A F6 00 12        ...   ldab 0012
7819 BC7D C4 20           .     andb #20     ; test door switch
7820 BC7F 27 3B           ';    beq 3b       ; to bcbc
7821 BC81 F6 00 29        ..)   ldab 0029
7822 BC84 27 33           '3    beq 33
7823 BC86 F6 00 1B        ...   ldab 001b
7824 BC89 C4 10           ..    andb #10
7825 BC8B 27 2C           ',    beq 2c
7826 BC8D F6 00 42        ..B   ldab 0042
7827 BC90 27 15           '.    beq 15
7828 BC92 F6 00 09        ...   ldab 0009
7829 BC95 27 08           '.    beq 08
7830 BC97 F6 00 29        ..)   ldab 0029
7831 BC9A F7 00 0A        ...   stab 000a
7832 BC9D 20 06            .    bra 06
7833 BC9F F6 00 29        ..)   ldab 0029
7834 BCA2 F7 00 09        ...   stab 0009
7835 BCA5 20 06            .    bra 06
7836 BCA7 F6 00 29        ..)   ldab 0029
7837 BCAA F7 00 42        ..B   stab 0042
7838 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7839 BCB0 7F 00 2C        ..,   clr 002c
7840 BCB3 CE 00 1B        ...   ldx #001b
7841 BCB6 1D 00 10        ...   bclr 00,x, #10
7842 BCB9 7E BD AF        ~..   jmp bdaf             ;goto29 (bail)
7843 ;
7844 BCBC F6 00 1B        ...   ldab 001b
7845 BCBF C4 10           ..    andb #10
7846 BCC1 26 03           &.    bne 03
7847 BCC3 7E BD 91        ~..   jmp bd91             ;goto30
7848 BCC6 F6 00 21        ..!   ldab 0021
7849 BCC9 C4 20           .     andb #20
7850 BCCB 27 03           '.    beq 03
7851 BCCD 7E BD 91        ~..   jmp bd91             ;goto30
7852 BCD0 F6 00 29        ..)   ldab 0029
7853 BCD3 C1 0B           ..    cmpb #0b
7854 BCD5 26 03           &.    bne 03
7855 BCD7 7E BD 5C        ~.\   jmp bd5c             ;goto31
7856 BCDA 7F 00 49        ..I   clr 0049
7857 BCDD F6 00 3A        ..:   ldab 003a
7858 BCE0 26 32           &2    bne 32
7859 BCE2 F6 00 29        ..)   ldab 0029
7860 BCE5 C1 0A           ..    cmpb #0a
7861 BCE7 26 05           &.    bne 05
7862 BCE9 7F 00 1E        ...   clr 001e
7863 BCEC 20 06            .    bra 06
7864 BCEE F6 00 29        ..)   ldab 0029
7865 BCF1 F7 00 1E        ...   stab 001e
7866 BCF4 C6 32           .2    ldab #32
7867 BCF6 F7 00 3A        ..:   stab 003a
7868 BCF9 BD BE 4B        ..K   jsr be4b             ;displayblank
7869 BCFC F6 00 1E        ...   ldab 001e
7870 BCFF CB 30           .0    addb #30
7871 BD01 F7 0B 95        ...   stab 0b95
7872 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7873 BD07 7F 00 2C        ..,   clr 002c
7874 BD0A BD BE 01        ...   jsr be01             ;jump70
7875 BD0D C6 32           .2    ldab #32
7876 BD0F F7 00 2C        ..,   stab 002c
7877 BD12 20 46            F    bra 46
7878 BD14 F6 00 29        ..)   ldab 0029
7879 BD17 C1 05           ..    cmpb #05
7880 BD19 27 07           '.    beq 07
7881 BD1B F6 00 29        ..)   ldab 0029
7882 BD1E C1 0A           ..    cmpb #0a
7883 BD20 26 05           &.    bne 05
7884 BD22 7F 00 2C        ..,   clr 002c
7885 BD25 20 2D            -    bra 2d
7886 BD27 F6 00 1E        ...   ldab 001e
7887 BD2A 58              X     aslb
7888 BD2B 58              X     aslb
7889 BD2C 58              X     aslb
7890 BD2D F7 00 06        ...   stab 0006
7891 BD30 F6 00 1E        ...   ldab 001e
7892 BD33 58              X     aslb
7893 BD34 FB 00 06        ...   addb 0006
7894 BD37 F7 00 06        ...   stab 0006
7895 BD3A F6 00 29        ..)   ldab 0029
7896 BD3D FB 00 06        ...   addb 0006
7897 BD40 F7 00 06        ...   stab 0006
7898 BD43 F6 00 29        ..)   ldab 0029
7899 BD46 CB 30           .0    addb #30
7900 BD48 F7 0B 94        ...   stab 0b94
7901 BD4B BD BE 01        ...   jsr be01             ;jump70
7902 BD4E CE 00 1B        ...   ldx #001b
7903 BD51 1D 00 40        ...   bclr 00,x, #40
7904 BD54 7F 00 3A        ..:   clr 003a
7905 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7906 BD5A 20 2D            -    bra 2d
7907 goto31:
7908 BD5C C6 19           ..    ldab #19
7909 BD5E F7 00 37        ..7   stab 0037
7910 BD61 F6 00 3A        ..:   ldab 003a
7911 BD64 27 08           '.    beq 08
7912 BD66 7F 00 3A        ..:   clr 003a
7913 BD69 7F 00 2C        ..,   clr 002c
7914 BD6C 20 18            .    bra 18
7915 BD6E 7C 00 49        |.I   inc 0049
7916 BD71 F6 00 49        ..I   ldab 0049
7917 BD74 C1 02           ..    cmpb #02
7918 BD76 25 0E           %.    bcs 0e
7919 BD78 7F 00 49        ..I   clr 0049
7920 BD7B CE 00 1B        ...   ldx #001b
7921 BD7E 1C 00 01        ...   bset 00,x, #01
7922 BD81 C6 3C           .<    ldab #3c
7923 BD83 F7 00 4F        ..O   stab 004f
7924 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7925 BD89 CE 00 1B        ...   ldx #001b
7926 BD8C 1D 00 10        ...   bclr 00,x, #10
7927 BD8F 20 1E            .    bra 1e
7928 goto30:
7929 BD91 F6 00 1B        ...   ldab 001b
7930 BD94 C4 10           ..    andb #10
7931 BD96 26 17           &.    bne 17
7932 BD98 F6 00 29        ..)   ldab 0029
7933 BD9B C1 0B           ..    cmpb #0b
7934 BD9D 26 10           &.    bne 10
7935 BD9F F6 00 37        ..7   ldab 0037
7936 BDA2 26 0B           &.    bne 0b
7937 BDA4 BD DD D5        ...   jsr ddd5             ;jump120
7938 BDA7 7F 00 49        ..I   clr 0049
7939 BDAA C6 14           ..    ldab #14
7940 BDAC F7 00 2C        ..,   stab 002c
7941 goto29:
7942 BDAF C6 01           ..    ldab #01
7943 BDB1 F7 00 00        ...   stab 0000
7944 goto28:
7945 BDB4 39              9     rts
7946
7947 jump78:
7948 ; start/finish sending a byte to the display
7949 ; stack parameter - 0 to disable display clock (for reading keypad), 1 to enable
7950 ; lower 8-bits of D - byte to write to display.
7951 ; bytes with bit 7 unset are characters (0-127)
7952 ; bytes with bit 7 set are control commands.
7953 ; this probably also reads the keypad simultaneously
7954 BDB5 37              7     pshb
7955 BDB6 36              6     psha
7956 BDB7 3C              <     pshx
7957 BDB8 5F              _     clrb
7958 BDB9 4F              O     clra
7959 BDBA 30              0     tsx
7960 BDBB ED 00           ..    std 00,x
7961 BDBD E6 07           ..    ldab 07,x
7962 BDBF 27 0E           '.    beq 0e     ; to bdcf if 0
7963 BDC1 CE 00 14        ...   ldx #0014
7964 BDC4 1C 00 08        ...   bset 00,x, #08
7965 BDC7 F6 00 14        ...   ldab 0014
7966 BDCA F7 38 00        .8.   stab 3800  ; enable display clock line
7967 BDCD 20 0C            .    bra 0c     ; to bddb
7968 BDCF CE 00 14        ...   ldx #0014
7969 BDD2 1D 00 08        ...   bclr 00,x, #08
7970 BDD5 F6 00 14        ...   ldab 0014
7971 BDD8 F7 38 00        .8.   stab 3800  ; disable display clock line
7972 BDDB 30              0     tsx
7973 BDDC E6 03           ..    ldab 03,x
7974 BDDE F7 10 2A        ..*   stab 102a  ; write to spdr
7975 BDE1 F6 10 29        ..)   ldab 1029  ; read spsr
7976 BDE4 2D 0F           -.    blt 0f     ; exit sub if SPI complete
7977 BDE6 38              8     pulx
7978 BDE7 08              .     inx
7979 BDE8 3C              <     pshx
7980 BDE9 30              0     tsx
7981 BDEA EC 00           ..    ldd 00,x
7982 BDEC 83 FF FF        ...   subd #ffff ; put a really long timeout on the action
7983 BDEF 26 02           &.    bne 02
7984 BDF1 20 02            .    bra 02
7985 BDF3 20 EC            .    bra ec     ; loop a while back to bde1
7986 BDF5 F6 10 2A        ..*   ldab 102a  ; reading SPSR (just done) & SPDR clears SPIF
7987 BDF8 30              0     tsx
7988 BDF9 E7 03           ..    stab 03,x
7989 BDFB E6 03           ..    ldab 03,x  ; return contents of spdr - keypad data!
7990 BDFD 4F              O     clra
7991 BDFE 38              8     pulx
7992 BDFF 38              8     pulx
7993 BE00 39              9     rts
7994
7995 jump70:
7996 ; Write a string in the display buffer at 0x0b90 to the display
7997 BE01 F6 00 2C        ..,   ldab 002c
7998 BE04 26 09           &.    bne 09        ; to be0f - ret if mem 0x2c != 0
7999 BE06 8D 61           .a    bsr dest 61   ; to displayreset - reset display
8000 BE08 8D 06           ..    bsr dest 06   ; to jump88 - commit to display
8001 BE0A C6 03           ..    ldab #03
8002 BE0C F7 00 2C        ..,   stab 002c
8003 BE0F 39              9     rts
8004
8005 jump88:
8006 ; writes the display buffer (at 0b90-0b99) to the display
8007 ; enable the SPI system
8008 BE10 CE 10 28        ..(   ldx #1028
8009 BE13 1C 00 40        ..@   bset 00,x, #40
8010 ; loop to 10
8011 BE16 7F 00 1C        ...   clr 001c
8012 BE19 F6 00 1C        ...   ldab 001c
8013 BE1C C1 0A           ..    cmpb #0a
8014 BE1E 24 19           $.    bcc 19        ; to be39
8015 BE20 CE 00 01        ...   ldx #0001
8016 BE23 3C              <     pshx
8017 BE24 F6 00 1C        ...   ldab 001c
8018 BE27 4F              O     clra
8019 BE28 C3 0B 90        ...   addd #0b90
8020 BE2B 8F              .     xgdx
8021 BE2C E6 00           ..    ldab 00,x
8022 BE2E C4 7F           ..    andb #7f      ; make sure we don't send a control command
8023 BE30 4F              O     clra
8024 BE31 8D 82           ..    bsr dest 82   ; to jump78
8025 BE33 38              8     pulx
8026 BE34 7C 00 1C        |..   inc 001c
8027 BE37 20 E0            .    bra e0        ; to be19
8028 BE39 CE 00 01        ...   ldx #0001
8029 BE3C 3C              <     pshx
8030 BE3D CC 00 FF        ...   ldd #00ff
8031 BE40 BD BD B5        ...   jsr bdb5             ;jump78
8032 BE43 38              8     pulx
8033 ; disable the SPI system
8034 BE44 CE 10 28        ..(   ldx #1028
8035 BE47 1D 00 40        ..@   bclr 00,x, #40
8036 BE4A 39              9     rts
8037
8038 displayblank:
8039 ; stores 0x20 into memory locations 0b90-0b99
8040 ; "blanks out" (with spaces) the display buffer
8041 BE4B 7F 00 1C        ...   clr 001c
8042 BE4E F6 00 1C        ...   ldab 001c
8043 BE51 C1 0A           ..    cmpb #0a
8044 BE53 24 13           $.    bcc 13       ; to be68 - rts
8045 BE55 C6 20           .     ldab #20
8046 BE57 37              7     pshb
8047 BE58 F6 00 1C        ...   ldab 001c
8048 BE5B 4F              O     clra
8049 BE5C C3 0B 90        ...   addd #0b90
8050 BE5F 8F              .     xgdx
8051 BE60 33              3     pulb
8052 BE61 E7 00           ..    stab 00,x
8053 BE63 7C 00 1C        |..   inc 001c
8054 BE66 20 E6            .    bra e6       ; to be4e
8055 BE68 39              9     rts
8056
8057 displayreset:
8058 ; Reset the display
8059 ; Clear bit 7 of PortA - display reset (active low)
8060 BE69 CE 10 00        ...   ldx #1000
8061 BE6C 1D 00 80        ..    bclr x,#80
8062 BE6F BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8063 ; Clear bit 7 of PortA - reset line back to high
8064 BE72 CE 10 00        ...   ldx #1000
8065 BE75 1C 00 80        ..    bset 00,x, #80
8066
8067 ; set SPI enable
8068 BE78 CE 10 28        ...   ldx #1028
8069 BE7B 1C 00 40        ...   bset 00,x, #40
8070
8071 BE7E BD E5 96        ...   jsr e596             ;jump115 - 100ms delay
8072
8073 ; tell the display controller there are 10 digits
8074 BE81 CE 00 01        ...   ldx #0001
8075 BE84 3C              <     pshx
8076 BE85 CC 00 CA        ...   ldd #00ca    ;11001010
8077 BE88 BD BD B5        ...   jsr bdb5             ;jump78
8078 BE8B 38              8     pulx
8079
8080 ; set brightness to 100%
8081 BE8C CE 00 01        ...   ldx #0001
8082 BE8F 3C              <     pshx
8083 BE90 CC 00 E0        ...   ldd #00e0    ;11100000
8084 BE93 BD BD B5        ...   jsr bdb5             ;jump78
8085 BE96 38              8     pulx
8086
8087 ; revert SPI enable
8088 BE97 CE 10 28        ..(   ldx #1028
8089 BE9A 1D 00 40        ...   bclr 00,x, #40
8090 BE9D 39              9     rts
8091
8092
8093
8094 jump50:
8095 ; writes a slot and price to the screen?
8096 ; writes the slot number iff 0 pushed on to the stack
8097 BE9E 37              7     pshb
8098 BE9F 36              6     psha
8099 BEA0 8D A9           ..    bsr a9 ; to be4b - displayblank
8100 BEA2 30              0     tsx
8101 BEA3 E6 05           ..    ldab 05,x
8102 BEA5 26 1B           &.    bne 1b     ; to bec2
8103 BEA7 F6 00 06        ...   ldab 0006
8104 BEAA 4F              O     clra
8105 BEAB CE 00 0A        ...   ldx #000a
8106 BEAE 02              .     idiv
8107 BEAF 8F              .     xgdx
8108 BEB0 CB 30           .0    addb #30
8109 BEB2 F7 0B 99        ...   stab 0b99   ; write slotnumber/10
8110 BEB5 F6 00 06        ...   ldab 0006
8111 BEB8 4F              O     clra
8112 BEB8 CE 00 0A        ...   ldx #000a
8113 BEBC 02              .     idiv
8114 BEBD CB 30           .0    addb #30
8115 BEBF F7 0B 98        ...   stab 0b98   ; write slotnumber%10
8116 ;
8117 BEC2 30              0     tsx
8118 BEC3 EC 00           ..    ldd 00,x
8119 BEC5 C4 FF           ..    andb #ff
8120 BEC7 84 3F           .?    anda #3f
8121 BEC9 ED 00           ..    std 00,x
8122 BECB EC 00           ..    ldd 00,x
8123 BECD CE 03 E8        ...   ldx #03e8   ; / 1000
8124 BED0 02              .     idiv
8125 BED1 8F              .     xgdx
8126 BED2 CB 30           .0    addb #30
8127 BED4 37              7     pshb
8128 BED5 30              0     tsx
8129 BED6 E6 06           ..    ldab 06,x
8130 BED8 4F              O     clra
8131 BED9 C3 0B 95        ...   addd #0b95
8132 BEDC 8F              .     xgdx
8133 BEDD 33              3     pulb
8134 BEDE E7 00           ..    stab 00,x    ; write MSB dollars
8135 BEE0 30              0     tsx
8136 BEE1 EC 00           ..    ldd 00,x
8137 BEE3 CE 03 E8        ...   ldx #03e8    ; %1000
8138 BEE6 02              .     idiv
8139 BEE7 CE 00 64        ..d   ldx #0064    ; /100
8140 BEEA 02              .     idiv
8141 BEEB 8F              .     xgdx
8142 BEEC CB 30           .0    addb #30
8143 BEEE 37              7     pshb
8144 BEEF 30              0     tsx
8145 BEF0 E6 06           ..    ldab 06,x
8146 BEF2 4F              O     clra
8147 BEF3 C3 0B 94        ...   addd #0b94   ; write LSB dollars
8148 BEF6 8F              .     xgdx
8149 BEF7 33              3     pulb
8150 BEF8 E7 00           ..    stab 00,x
8151 BEFA 30              0     tsx
8152 BEFB EC 00           ..    ldd 00,x
8153 BEFD CE 00 64        ..d   ldx #0064    ; %100
8154 BF00 02              .     idiv
8155 BF01 CE 00 0A        ...   ldx #000a    ; /10
8156 BF04 02              .     idiv
8157 BF05 8F              .     xgdx
8158 BF06 CB 30           .0    addb #30
8159 BF08 37              7     pshb
8160 BF09 30              0     tsx
8161 BF0A E6 06           ..    ldab 06,x
8162 BF0C 4F              O     clra
8163 BF0D C3 0B 93        ...   addd #0b93   ; write MSB cents
8164 BF10 8F              .     xgdx
8165 BF11 33              3     pulb
8166 BF12 E7 00           ..    stab 00,x
8167 BF14 30              0     tsx
8168 BF15 EC 00           ..    ldd 00,x
8169 BF17 CE 00 0A        ...   ldx #000a
8170 BF1A 02              .     idiv
8171 BF1B CB 30           .0    addb #30
8172 BF1D 37              7     pshb
8173 BF1E 30              0     tsx
8174 BF1F E6 06           ..    ldab 06,x
8175 BF21 4F              O     clra
8176 BF22 C3 0B 92        ...   addd #0b92    ; write LSB cents
8177 BF25 8F              .     xgdx
8178 BF26 33              3     pulb
8179 BF27 E7 00           ..    stab 00,x
8180 BF29 F6 00 13        ...   ldab 0013
8181 BF2C C1 01           ..    cmpb #01
8182 BF2E 22 03           ".    bhi 03
8183 BF30 7E BF DE        ~..   jmp bfde             ;goto32
8184 BF33 30              0     tsx
8185 BF34 E6 05           ..    ldab 05,x
8186 BF36 4F              O     clra
8187 BF37 C3 0B 92        ...   addd #0b92
8188 BF3A 8F              .     xgdx
8189 BF3B E6 00           ..    ldab 00,x
8190 BF3D 37              7     pshb
8191 BF3E 30              0     tsx
8192 BF3F E6 06           ..    ldab 06,x
8193 BF41 4F              O     clra
8194 BF42 C3 0B 91        ...   addd #0b91
8195 BF45 8F              .     xgdx
8196 BF46 33              3     pulb
8197 BF47 E7 00           ..    stab 00,x
8198 BF49 30              0     tsx
8199 BF4A E6 05           ..    ldab 05,x
8200 BF4C 4F              O     clra
8201 BF4D C3 0B 93        ...   addd #0b93
8202 BF50 8F              .     xgdx
8203 BF51 E6 00           ..    ldab 00,x
8204 BF53 37              7     pshb
8205 BF54 30              0     tsx
8206 BF55 E6 06           ..    ldab 06,x
8207 BF57 4F              O     clra
8208 BF58 C3 0B 92        ...   addd #0b92
8209 BF5B 8F              .     xgdx
8210 BF5C 33              3     pulb
8211 BF5D E7 00           ..    stab 00,x
8212 BF5F F6 00 13        ...   ldab 0013
8213 BF62 C1 02           ..    cmpb #02
8214 BF64 26 10           &.    bne 10
8215 BF66 C6 2E           ..    ldab #2e
8216 BF68 37              7     pshb
8217 BF69 30              0     tsx
8218 BF6A E6 06           ..    ldab 06,x
8219 BF6C 4F              O     clra
8220 BF6D C3 0B 93        ...   addd #0b93
8221 BF70 8F              .     xgdx
8222 BF71 33              3     pulb
8223 BF72 E7 00           ..    stab 00,x
8224 BF74 20 68            h    bra 68     ;goto32
8225 ;
8226 BF76 C1 04           ..    cmpb #04
8227 BF78 26 26           &&    bne 26
8228 BF7A 30              0     tsx
8229 BF7B E6 05           ..    ldab 05,x
8230 BF7D 4F              O     clra
8231 BF7E C3 0B 94        ...   addd #0b94
8232 BF81 8F              .     xgdx
8233 BF82 E6 00           ..    ldab 00,x
8234 BF84 37              7     pshb
8235 BF85 30              0     tsx
8236 BF86 E6 06           ..    ldab 06,x
8237 BF88 4F              O     clra
8238 BF89 C3 0B 93        ...   addd #0b93
8239 BF8C 8F              .     xgdx
8240 BF8D 33              3     pulb
8241 BF8E E7 00           ..    stab 00,x
8242 BF90 C6 2E           ..    ldab #2e   ; "."
8243 BF92 37              7     pshb
8244 BF93 30              0     tsx
8245 BF94 E6 06           ..    ldab 06,x
8246 BF96 4F              O     clra
8247 BF97 C3 0B 94        ...   addd #0b94
8248 BF9A 8F              .     xgdx
8249 BF9B 33              3     pulb
8250 BF9C E7 00           ..    stab 00,x
8251 BF9E 20 3E            >    bra 3e
8252 BFA0 C1 08           ..    cmpb #08
8253 BFA2 26 3A           &:    bne 3a
8254 BFA4 30              0     tsx
8255 BFA5 E6 05           ..    ldab 05,x
8256 BFA7 4F              O     clra
8257 BFA8 C3 0B 94        ...   addd #0b94
8258 BFAB 8F              .     xgdx
8259 BFAC E6 00           ..    ldab 00,x
8260 BFAE 37              7     pshb
8261 BFAF 30              0     tsx
8262 BFB0 E6 06           ..    ldab 06,x
8263 BFB2 4F              O     clra
8264 BFB3 C3 0B 93        ...   addd #0b93
8265 BFB6 8F              .     xgdx
8266 BFB7 33              3     pulb
8267 BFB8 E7 00           ..    stab 00,x
8268 BFBA 30              0     tsx
8269 BFBB E6 05           ..    ldab 05,x
8270 BFBD 4F              O     clra
8271 BFBE C3 0B 95        ...   addd #0b95
8272 BFC1 8F              .     xgdx
8273 BFC2 E6 00           ..    ldab 00,x
8274 BFC4 37              7     pshb
8275 BFC5 30              0     tsx
8276 BFC6 E6 06           ..    ldab 06,x
8277 BFC8 4F              O     clra
8278 BFC9 C3 0B 94        ...   addd #0b94
8279 BFCC 8F              .     xgdx
8280 BFCD 33              3     pulb
8281 BFCE E7 00           ..    stab 00,x
8282 BFD0 C6 2E           ..    ldab #2e   ; "."
8283 BFD2 37              7     pshb
8284 BFD3 30              0     tsx
8285 BFD4 E6 06           ..    ldab 06,x
8286 BFD6 4F              O     clra
8287 BFD7 C3 0B 95        ...   addd #0b95
8288 BFDA 8F              .     xgdx
8289 BFDB 33              3     pulb
8290 BFDC E7 00           ..    stab 00,x
8291 goto32:
8292 BFDE F6 0B C0        ...   ldab 0bc0
8293 BFE1 C4 01           ..    andb #01
8294 BFE3 26 0E           &.    bne 0e      ; to bff3
8295 BFE5 F6 0B C0        ...   ldab 0bc0
8296 BFE8 C4 04           ..    andb #04
8297 BFEA 26 07           &.    bne 07      ; to bff3
8298 BFEC F6 0B C0        ...   ldab 0bc0
8299 BFEF C4 08           ..    andb #08
8300 BFF1 27 15           '.    beq 15      ; to c008
8301 BFF3 F6 00 17        ...   ldab 0017
8302 BFF6 C4 08           ..    andb #08
8303 BFF8 26 0E           &.    bne 0e      ; to c008
8304 ; plonk a dollar sign somewhere
8305 BFFA C6 24           .$    ldab #24    ; "$"
8306 BFFC 37              7     pshb
8307 BFFD 30              0     tsx
8308 BFFE E6 06           ..    ldab 06,x
8309 C000 4F              O     clra
8310 C001 C3 0B 96        ...   addd #0b96
8311 C004 8F              .     xgdx
8312 C005 33              3     pulb
8313 C006 E7 00           ..    stab 00,x
8314 C008 BD BE 69        ..i   jsr be69             ;displayreset
8315 C00B F6 00 13        ...   ldab 0013
8316 C00E C1 01           ..    cmpb #01
8317 C010 23 17           #.    bls 17
8318 C012 CE 10 28        ..(   ldx #1028
8319 C015 1C 00 40        ...   bset 00,x, #40 ; enable SPI send
8320 C018 CE 00 01        ...   ldx #0001
8321 C01B 3C              <     pshx
8322 C01C CC 00 20        ..    ldd #0020
8323 C01F BD BD B5        ...   jsr bdb5             ;jump78 - send space to display
8324 C022 38              8     pulx
8325 C023 CE 10 28        ..(   ldx #1028      ; disable SPI send
8326 C026 1D 00 40        ...   bclr 00,x, #40
8327 C029 BD BE 10        ...   jsr be10             ;jump88 - write buffer to display
8328 C02C 38              8     pulx
8329 C02D 39              9     rts
8330
8331 jump71:
8332 ; part of the display: function abstraction
8333 ; D points to a string, and the stack contains the length of the message
8334 ; Also seems to handle scrolling of long strings?
8335 C02E 37              7     pshb
8336 C02F 36              6     psha
8337 C030 3C              <     pshx
8338 ; need 002c to be zero to display stuff
8339 C031 F6 00 2C        ..,   ldab 002c
8340 C034 27 03           '.    beq 03
8341 C036 7E C0 B7        ~..   jmp c0b7             ;goto33 (bail out)
8342 ; if (0003 >= D)
8343 C039 FC 00 03        ...   ldd 0003
8344 C03C 30              0     tsx
8345 C03D A3 02           ..    subd 02,x
8346 C03F 25 0A           %.    bcs 0a       ; to c04b
8347 ;
8348 C041 E6 07           ..    ldab 07,x
8349 C043 4F              O     clra
8350 C044 E3 02           ..    addd 02,x
8351 C046 B3 00 03        ...   subd 0003
8352 C049 24 06           $.    bcc 06       ; to c051
8353 ; else
8354 C04B 30              0     tsx
8355 C04C EC 02           ..    ldd 02,x
8356 C04E FD 00 03        ...   std 0003
8357 C051 FE 00 03        ...   ldx 0003
8358 C054 08              .     inx
8359 C055 FF 00 03        ...   stx 0003
8360 C058 09              .     dex
8361 C059 8F              .     xgdx
8362 C05A 30              0     tsx
8363 C05B ED 00           ..    std 00,x
8364 C05D C6 09           ..    ldab #09
8365 C05F F7 00 18        ...   stab 0018
8366 C062 F6 00 18        ...   ldab 0018
8367 C065 C1 FF           ..    cmpb #ff
8368 C067 24 46           $F    bcc 46       ; to c0af (jump 70 - write string)
8369 C069 30              0     tsx
8370 C06A E6 07           ..    ldab 07,x
8371 C06C 4F              O     clra
8372 C06D E3 02           ..    addd 02,x
8373 C06F A3 00           ..    subd 00,x
8374 C071 24 05           $.    bcc 05
8375 C073 30              0     tsx
8376 C074 EC 02           ..    ldd 02,x
8377 C076 ED 00           ..    std 00,x
8378 C078 30              0     tsx
8379 C079 EE 00           ..    ldx 00,x
8380 C07B E6 00           ..    ldab 00,x
8381 C07D C1 40           .@    cmpb #40
8382 C07F 24 13           $.    bcc 13
8383 C081 30              0     tsx
8384 C082 EE 00           ..    ldx 00,x
8385 C084 E6 00           ..    ldab 00,x
8386 C086 37              7     pshb
8387 C087 F6 00 18        ...   ldab 0018
8388 C08A 4F              O     clra
8389 C08B C3 0B 90        ...   addd #0b90
8390 C08E 8F              .     xgdx
8391 C08F 33              3     pulb
8392 C090 E7 00           ..    stab 00,x
8393 C092 20 13            .    bra 13
8394 C094 30              0     tsx
8395 C095 EE 00           ..    ldx 00,x
8396 C097 E6 00           ..    ldab 00,x
8397 C099 CB C0           ..    addb #c0
8398 C09B 37              7     pshb
8399 C09C F6 00 18        ...   ldab 0018
8400 C09F 4F              O     clra
8401 C0A0 C3 0B 90        ...   addd #0b90
8402 C0A3 8F              .     xgdx
8403 C0A4 33              3     pulb
8404 C0A5 E7 00           ..    stab 00,x
8405 C0A7 38              8     pulx
8406 C0A8 08              .     inx
8407 C0A9 3C              <     pshx
8408 C0AA 7A 00 18        z..   dec 0018
8409 C0AD 20 B3            .    bra b3
8410 C0AF BD BE 01        ...   jsr be01             ;jump70
8411 C0B2 C6 03           ..    ldab #03
8412 C0B4 F7 00 2C        ..,   stab 002c
8413 goto33:
8414 C0B7 38              8     pulx
8415 C0B8 38              8     pulx
8416 C0B9 39              9     rts
8417
8418 ;Display a string.  D points to the string, which is NULL-terminated
8419 ;
8420 display:
8421 C0BA 37              7     pshb
8422 C0BB 36              6     psha
8423 C0BC F6 00 1F        ...   ldab 001f
8424 C0BF C4 04           ..    andb #04
8425 C0C1 26 03           &.    bne 03
8426 C0C3 7F 00 2C        ..,   clr 002c
8427 C0C6 F6 00 2C        ..,   ldab 002c
8428 C0C9 26 13           &.    bne 13      ; to c0de
8429 C0CB 5F              _     clrb
8430 C0CC 4F              O     clra
8431 C0CD FD 00 03        ...   std 0003
8432 C0D0 7F 00 2C        ..,   clr 002c
8433 C0D3 CE 00 09        ...   ldx #0009
8434 C0D6 3C              <     pshx
8435 C0D7 30              0     tsx
8436 C0D8 EC 02           ..    ldd 02,x
8437 C0DA BD C0 2E        ...   jsr c02e             ;jump71 - display
8438 C0DD 38              8     pulx
8439 C0DE 38              8     pulx
8440 C0DF 39              9     rts
8441
8442 jump94:
8443 C0E0 F6 00 15        ...   ldab 0015
8444 C0E3 2C 02           ,.    bge 02
8445 C0E5 20 F9            .    bra f9
8446 C0E7 CE 00 1D        ...   ldx #001d
8447 C0EA 1C 00 20        ..    bset 00,x, #20
8448 C0ED BD D7 30         .    jsr d730       ;jump202
8449 C0EE 83 00 00        .0.   subd #0000
8450 C0F3 27 09           '.    beq 09
8451 C0F5 CE 00 1D        ...   ldx #001d
8452 C0F8 1D 00 20        ..    bclr 00,x, #20
8453 C0FB 5F              .     clrb
8454 C0FC 4F              O     clra
8455 C0FD 39              9     rts
8456 ;
8457 C0FE CE 00 14        ...   ldx #0014
8458 C101 1C 00 01        ...   bset 00,x, #01
8459 C104 F6 00 14        ...   ldab 0014
8460 C107 F7 38 00        .8.   stab 3800    ; note acceptor business
8461 C10A F6 00 15        ...   ldab 0015
8462 C10D C4 1F           ..    andb #1f
8463 C10F 26 03           &.    bne 03
8464 C111 7E C3 1B        ~..   jmp c31b             ;goto34
8465 C114 C6 14           ..    ldab #14     ; 20
8466 C116 F7 00 31        ..1   stab 0031
8467 C119 F6 00 15        ...   ldab 0015
8468 C11C 2D 15           -.    blt 15
8469 C11E F6 00 31        ..1   ldab 0031
8470 C121 C1 0A           ..    cmpb #0a
8471 C123 22 0C           ".    bhi 0c
8472 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8473 C128 CE 00 1D        ...   ldx #001d
8474 C12B 1D 00 20        ..    bclr 00,x, #20
8475 C12D 5F              _     clrb
8476 C12F 4F              O     clra
8477 C130 39              9     rts
8478 ;
8479 C131 20 E6            .    bra e6
8480 C133 FC 00 3E        ..>   ldd 003e
8481 C136 F3 00 40        ..@   addd 0040
8482 C139 FD 00 40        ..@   std 0040
8483 C13C 5F              _     clrb
8484 C13D 4F              O     clra
8485 C13E FD 00 3E        ..>   std 003e
8486 C141 F6 00 15        ...   ldab 0015
8487 C144 C4 1F           ..    andb #1f
8488 C146 4F              O     clra
8489 C147 BD FE 32        ..2   jsr fe32             ;jump25
8490 C14A C1 64 00 01     ....  ; array data for jump25
8491 C14E C1 BA 00 01     ....
8492 C152 C2 10 00 02     ....
8493 C156 C2 66 00 04     .f..
8494 C15A C2 BB 00 08     ....
8495 C15E C3 0E FF F0     ....
8496 C162 00 00           ..    ; end of array data
8497 C164 FC 0C DD        ...   ldd 0cdd
8498 C167 83 FF FF        ...   subd #ffff
8499 C16A 26 05           &.    bne 05
8500 C16C 5F              _     clrb
8501 C16D 4F              O     clra
8502 C16E FD 0C DD        ...   std 0cdd
8503 C171 FE 0C DD        ...   ldx 0cdd
8504 C174 08              .     inx
8505 C175 FF 0C DD        ...   stx 0cdd
8506 C178 CE 00 64        ..d   ldx #0064
8507 C17B 3C              <     pshx
8508 C17C CC 00 00        ...   ldd #0000
8509 C17F 37              7     pshb
8510 C180 36              6     psha
8511 C181 CC 0C F3        ...   ldd #0cf3
8512 C184 BD FB DF        ...   jsr fbdf             ;jump46
8513 C187 31              1     ins
8514 C188 31              1     ins
8515 C189 FE 0C F5        ...   ldx 0cf5
8516 C18C 3C              <     pshx
8517 C18D FC 0C F3        ...   ldd 0cf3
8518 C190 37              7     pshb
8519 C191 36              6     psha
8520 C192 CE FF 9C        ...   ldx #ff9c
8521 C195 3C              <     pshx
8522 C196 CC 00 63        ..c   ldd #0063
8523 C199 30              0     tsx
8524 C19A A3 02           ..    subd 02,x
8525 C19C 32              2     pula
8526 C19D 33              3     pulb
8527 C19E 26 02           &.    bne 02
8528 C1A0 A3 04           ..    subd 04,x
8529 C1A2 38              8     pulx
8530 C1A3 38              8     pulx
8531 C1A4 24 11           $.    bcc 11
8532 C1A6 CE 00 64        ..d   ldx #0064
8533 C1A9 3C              <     pshx
8534 C1AA CC FF 9C        ...   ldd #ff9c
8535 C1AD 37              7     pshb
8536 C1AE 36              6     psha
8537 C1AF CC 0C F3        ...   ldd #0cf3
8538 C1B2 BD FB DF        ...   jsr fbdf             ;jump46
8539 C1B5 31              1     ins
8540 C1B6 31              1     ins
8541 C1B7 7E C3 0E        ~..   jmp c30e             ;goto35
8542 C1BA FC 0C DF        ...   ldd 0cdf
8543 C1BD 83 FF FF        ...   subd #ffff
8544 C1C0 26 05           &.    bne 05
8545 C1C2 5F              _     clrb
8546 C1C3 4F              O     clra
8547 C1C4 FD 0C DF        ...   std 0cdf
8548 C1C7 FE 0C DF        ...   ldx 0cdf
8549 C1CA 08              .     inx
8550 C1CB FF 0C DF        ...   stx 0cdf
8551 C1CE CE 00 C8        ...   ldx #00c8
8552 C1D1 3C              <     pshx
8553 C1D2 CC 00 00        ...   ldd #0000
8554 C1D5 37              7     pshb
8555 C1D6 36              6     psha
8556 C1D7 CC 0C F7        ...   ldd #0cf7
8557 C1DA BD FB DF        ...   jsr fbdf             ;jump46
8558 C1DD 31              1     ins
8559 C1DE 31              1     ins
8560 C1DF FE 0C F9        ...   ldx 0cf9
8561 C1E2 3C              <     pshx
8562 C1E3 FC 0C F7        ...   ldd 0cf7
8563 C1E6 37              7     pshb
8564 C1E7 36              6     psha
8565 C1E8 CE FF 38        ..8   ldx #ff38     ; -200
8566 C1EB 3C              <     pshx
8567 C1EC CC 00 C7        ...   ldd #00c7
8568 C1EF 30              0     tsx
8569 C1F0 A3 02           ..    subd 02,x
8570 C1F2 32              2     pula
8571 C1F3 33              3     pulb
8572 C1F4 26 02           &.    bne 02
8573 C1F6 A3 04           ..    subd 04,x
8574 C1F8 38              8     pulx
8575 C1F9 38              8     pulx
8576 C1FA 24 11           $.    bcc 11
8577 C1FC CE 00 C8        ...   ldx #00c8    ; 200
8578 C1FF 3C              <     pshx
8579 C200 CC FF 38        ..8   ldd #ff38    ; -200
8580 C203 37              7     pshb
8581 C204 36              6     psha
8582 C205 CC 0C F7        ...   ldd #0cf7
8583 C208 BD FB DF        ...   jsr fbdf             ;jump46
8584 C20B 31              1     ins
8585 C20C 31              1     ins
8586 C20D 7E C3 0E        ~..   jmp c30e             ;goto35
8587 C210 FC 0C E1        ...   ldd 0ce1
8588 C213 83 FF FF        ...   subd #ffff
8589 C216 26 05           &.    bne 05
8590 C218 5F              _     clrb
8591 C219 4F              O     clra
8592 C21A FD 0C E1        ...   std 0ce1
8593 C21D FE 0C E1        ...   ldx 0ce1
8594 C220 08              .     inx
8595 C221 FF 0C E1        ...   stx 0ce1
8596 C224 CE 01 F4        ...   ldx #01f4
8597 C227 3C              <     pshx
8598 C228 CC 00 00        ...   ldd #0000
8599 C22B 37              7     pshb
8600 C22C 36              6     psha
8601 C22D CC 0C FB        ...   ldd #0cfb
8602 C230 BD FB DF        ...   jsr fbdf             ;jump46
8603 C233 31              1     ins
8604 C234 31              1     ins
8605 C235 FE 0C FD        ...   ldx 0cfd
8606 C238 3C              <     pshx
8607 C239 FC 0C FB        ...   ldd 0cfb
8608 C23C 37              7     pshb
8609 C23D 36              6     psha
8610 C23E CE FE 0C        ...   ldx #fe0c
8611 C241 3C              <     pshx
8612 C242 CC 01 F3        ...   ldd #01f3
8613 C245 30              0     tsx
8614 C246 A3 02           ..    subd 02,x
8615 C248 32              2     pula
8616 C249 33              3     pulb
8617 C24A 26 02           &.    bne 02
8618 C24C A3 04           ..    subd 04,x
8619 C24E 38              8     pulx
8620 C24F 38              8     pulx
8621 C250 24 11           $.    bcc 11
8622 C252 CE 01 F4        ...   ldx #01f4
8623 C255 3C              <     pshx
8624 C256 CC FE 0C        ...   ldd #fe0c
8625 C259 37              7     pshb
8626 C25A 36              6     psha
8627 C25B CC 0C FB        ...   ldd #0cfb
8628 C25E BD FB DF        ...   jsr fbdf             ;jump46
8629 C261 31              1     ins
8630 C262 31              1     ins
8631 C263 7E C3 0E        ~..   jmp c30e             ;goto35
8632 C266 FC 0C E3        ...   ldd 0ce3
8633 C269 83 FF FF        ...   subd #ffff
8634 C26C 26 05           &.    bne 05
8635 C26E 5F              _     clrb
8636 C26F 4F              O     clra
8637 C270 FD 0C E3        ...   std 0ce3
8638 C273 FE 0C E3        ...   ldx 0ce3
8639 C276 08              .     inx
8640 C277 FF 0C E3        ...   stx 0ce3
8641 C27A CE 03 E8        ...   ldx #03e8
8642 C27D 3C              <     pshx
8643 C27E CC 00 00        ...   ldd #0000
8644 C281 37              7     pshb
8645 C282 36              6     psha
8646 C283 CC 0C FF        ...   ldd #0cff
8647 C286 BD FB DF        ...   jsr fbdf             ;jump46
8648 C289 31              1     ins
8649 C28A 31              1     ins
8650 C28B FE 0D 01        ...   ldx 0d01
8651 C28E 3C              <     pshx
8652 C28F FC 0C FF        ...   ldd 0cff
8653 C292 37              7     pshb
8654 C293 36              6     psha
8655 C294 CE FC 18        ...   ldx #fc18    ; -1000
8656 C297 3C              <     pshx
8657 C298 CC 03 E7        ...   ldd #03e7
8658 C29B 30              0     tsx
8659 C29C A3 02           ..    subd 02,x
8660 C29E 32              2     pula
8661 C29F 33              3     pulb
8662 C2A0 26 02           &.    bne 02
8663 C2A2 A3 04           ..    subd 04,x
8664 C2A4 38              8     pulx
8665 C2A5 38              8     pulx
8666 C2A6 24 11           $.    bcc 11
8667 C2A8 CE 03 E8        ...   ldx #03e8    ; 1000
8668 C2AB 3C              <     pshx
8669 C2AC CC FC 18        ...   ldd #fc18    ; -1000
8670 C2AF 37              7     pshb
8671 C2B0 36              6     psha
8672 C2B1 CC 0C FF        ...   ldd #0cff
8673 C2B4 BD FB DF        ...   jsr fbdf             ;jump46
8674 C2B7 31              1     ins
8675 C2B8 31              1     ins
8676 C2B9 20 53            S    bra 53
8677 C2BB FC 0C E5        ...   ldd 0ce5
8678 C2BE 83 C3 4F        ..O   subd #c34f   ; 49999
8679 C2C1 26 05           &.    bne 05
8680 C2C3 5F              _     clrb
8681 C2C4 4F              O     clra
8682 C2C5 FD 0C E5        ...   std 0ce5
8683 C2C8 FE 0C E5        ...   ldx 0ce5
8684 C2CB 08              .     inx
8685 C2CC FF 0C E5        ...   stx 0ce5
8686 C2CF CE 07 D0        ...   ldx #07d0    ; 2000
8687 C2D2 3C              <     pshx
8688 C2D3 CC 00 00        ...   ldd #0000
8689 C2D6 37              7     pshb
8690 C2D7 36              6     psha
8691 C2D8 CC 0D 03        ...   ldd #0d03    ; 3331
8692 C2DB BD FB DF        ...   jsr fbdf             ;jump46
8693 C2DE 31              1     ins
8694 C2DF 31              1     ins
8695 C2E0 FE 0D 05        ...   ldx 0d05
8696 C2E3 3C              <     pshx
8697 C2E4 FC 0D 03        ...   ldd 0d03
8698 C2E7 37              7     pshb
8699 C2E8 36              6     psha
8700 C2E9 CE D9 30        ..0   ldx #d930    ; -9936
8701 C2EC 3C              <     pshx
8702 C2ED CC 05 F5        ...   ldd #05f5    ; 1525
8703 C2F0 30              0     tsx
8704 C2F1 A3 02           ..    subd 02,x
8705 C2F3 32              2     pula
8706 C2F4 33              3     pulb
8707 C2F5 26 02           &.    bne 02
8708 C2F7 A3 04           ..    subd 04,x
8709 C2F9 38              8     pulx
8710 C2FA 38              8     pulx
8711 C2FB 24 11           $.    bcc 11
8712 C2FD CE 26 D0        .&.   ldx #26d0    ; 9936
8713 C300 3C              <     pshx
8714 C301 CC FA 0A        ...   ldd #fa0a    ; -1526
8715 C304 37              7     pshb
8716 C305 36              6     psha
8717 C306 CC 0D 03        ...   ldd #0d03    ; 3331
8718 C309 BD FB DF        ...   jsr fbdf             ;jump46
8719 C30C 31              1     ins
8720 C30D 31              1     ins
8721 goto35:
8722 C30E F6 00 15        ...   ldab 0015
8723 C311 2C 02           ,.    bge 02
8724 C313 20 F9            .    bra f9
8725 C315 CE 00 15        ...   ldx #0015
8726 C318 1D 00 1F        ..    bclr 00,x, #1f
8727 goto34:
8728 C31B CE 00 1D        ...   ldx #001d
8729 C31E 1D 00 20        ..    bclr 00,x, #20
8730 C320 CC 00 01         .    ldd #0001
8731 C324 39              9     rts
8732
8733 jump64:
8734 ; has a good long chat to the bill validator
8735 C325 F6 10 00        ...   ldab 1000
8736 C328 C4 01           ..    andb #01
8737 C32A 26 13           &.    bne 13
8738 C32C 7C 00 7D        |.}   inc 007d
8739 C32F F6 00 7D        ..}   ldab 007d
8740 C332 C1 05           ..    cmpb #05
8741 C334 23 03           #.    bls 03
8742 C336 7F 00 7D        ..}   clr 007d
8743 C339 7F 00 7E        ..~   clr 007e
8744 C33C 7E C4 2F        ~./   jmp c42f             ;goto36
8745 C33F 7C 00 7E        |.~   inc 007e
8746 C342 F6 00 7E        ..~   ldab 007e
8747 C345 C1 07           ..    cmpb #07
8748 C347 23 17           #.    bls 17
8749 C349 7F 00 7D        ..}   clr 007d
8750 C34C 7F 00 7E        ..~   clr 007e
8751 C34F 7F 00 7C        ..|   clr 007c
8752 C352 F6 00 15        ...   ldab 0015
8753 C355 2C 03           ,.    bge 03
8754 C357 7F 00 2C        ..,   clr 002c
8755 C35A CE 00 15        ...   ldx #0015
8756 C35D 1D 00 80        ..    bclr 00,x, #80
8757 C35F F6 00 7E        ...   ldab 007e
8758 C363 26 03           ..    bne 03     ; to c368
8759 C365 7E C4 2F        ~./   jmp c42f             ;goto36
8760 C368 F6 00 7D        ..}   ldab 007d
8761 C36B C1 01           ..    cmpb #01
8762 C36D 22 03           ".    bhi 03
8763 C36F 7E C4 2F        ~./   jmp c42f             ;goto36
8764 C372 CE 00 15        ...   ldx #0015
8765 C375 1C 00 80        ..    bset 00,x, #80
8766 C378 CE 0B C1        ...   ldx #0bc1
8767 C37B 1D 00 08        ..    bclr 00,x #08   ; clear bill error bit
8768 C37E F6 00 1D        ...   ldab 001d
8769 C381 C4 20           .     andb #20
8770 C383 27 03           '.    beq 03
8771 C385 7E C4 29        ~.)   jmp c429             ;goto38
8772 C388 C6 02           ..    ldab #02
8773 C38A F7 00 2C        ..,   stab 002c
8774 C38D 7F 00 3A        ..:   clr 003a
8775 C390 CE 00 1B        ...   ldx #001b
8776 C393 1D 00 40        ..    bclr 00,x, #40
8777 C396 7F 00 25        ..%   clr 0025
8778 C399 CE 00 21        ..!   ldx #0021
8779 C39C 1D 00 08        ...   bclr 00,x, #08
8780 C39F CE 00 14        ...   ldx #0014
8781 C3A2 1D 00 01        ..    bclr 00,x, #01
8782 C3A5 F6 00 14        ...   ldab 0014
8783 C3A8 F7 38 00        .8.   stab 3800        ; note acceptor business
8784 C3AB 7C 00 7C        |.|   inc 007c
8785 C3AE CE 00 15        ...   ldx #0015
8786 C3B1 1D 00 1F        ..    bclr 00,x, #1f
8787 C3B4 F6 00 7C        ..|   ldab 007c
8788 C3B7 C1 01           ..    cmpb #01
8789 C3B9 26 0E           &.    bne 0e
8790 C3BB CE 00 15        ...   ldx #0015
8791 C3BE 1C 00 01        ..    bset 00,x, #01
8792 C3C1 CC 00 64        ..d   ldd #0064
8793 C3C4 FD 00 3E        ..>   std 003e
8794 C3C7 20 60            `    bra 60
8795 C3C9 F6 00 7C        ..|   ldab 007c
8796 C3CC C1 02           ..    cmpb #02
8797 C3CE 26 0E           &.    bne 0e
8798 C3D0 CE 00 15        ...   ldx #0015
8799 C3D3 1C 00 02        ..    bset 00,x, #02
8800 C3D6 CC 00 C8        ...   ldd #00c8
8801 C3D9 FD 00 3E        ..>   std 003e
8802 C3DC 20 4B            K    bra 4b
8803 C3DE F6 00 7C        ..|   ldab 007c
8804 C3E1 C1 02           ..    cmpb #02
8805 C3E3 23 15           #.    bls 15
8806 C3E5 F6 00 7C        ..|   ldab 007c
8807 C3E8 C1 06           ..    cmpb #06
8808 C3EA 24 0E           $.    bcc 0e
8809 C3EC CE 00 15        ...   ldx #0015
8810 C3EF 1C 00           ..    bset 00,x, #04
8811 C3F2 CC 01 F4        ...   ldd #01f4
8812 C3F5 FD 00 3E        ..>   std 003e
8813 C3F8 20 2F            /    bra 2f
8814 C3FA F6 00 7C        ..|   ldab 007c
8815 C3FD C1 05           ..    cmpb #05
8816 C3FF 23 15           #.    bls 15
8817 C401 F6 00 7C        ..|   ldab 007c
8818 C404 C1 0B           ..    cmpb #0b
8819 C406 24 0E           $.    bcc 0e
8820 C408 CE 00 15        ...   ldx #0015
8821 C40B 1C 00 08        ..    bset 00,x, #08
8822 C40E CC 03 E8        ...   ldd #03e8
8823 C411 FD 00 3E        ..>   std 003e
8824 C414 20 13            .    bra 13      ; to c429
8825 C416 F6 00 7C        ..|   ldab 007c
8826 C419 C1 0B           ..    cmpb #0b
8827 C41B 23 0C           #.    bls 0c
8828 C41D CE 00 15        ...   ldx #0015
8829 C420 1C 00 10        ..    bset 00,x, #10
8830 C423 CC 07 D0        ...   ldd #07d0
8831 C426 FD 00 3E        ..>   std 003e
8832 goto38:
8833 C429 7F 00 7D        ..}   clr 007d
8834 C42C 7F 00 7E        ..~   clr 007e
8835 goto36:
8836 C42F 39              9     rts
8837
8838 jump26:
8839 ; tweaks the changer output lines (at 3000) that correspond with the bitmask of
8840 ; 0001. It pulls the lines with 1 set in the bitmask low (active) for 100ms
8841 C430 F6 00 01        ...   ldab 0001
8842 C433 53              S     comb
8843 C434 F4 00 1A        ...   andb 001a    ; 0x3000 buffer - changer outputs
8844 C437 F7 00 1A        ...   stab 001a
8845 C43A F6 00 1A        ...   ldab 001a
8846 C43D F7 30 00        .0.   stab 3000    ; coin mask
8847 C440 CC 00 64        ..d   ldd #0064
8848 C443 BD E5 71        ..q   jsr e571             ;msdelay
8849 C446 F6 00 01        ...   ldab 0001
8850 C449 FA 00 1A        ...   orb 001a
8851 C44C F7 00 1A        ...   stab 001a
8852 C44F F6 00 1A        ...   ldab 001a
8853 C452 F7 30 00        .0.   stab 3000    ; changer outputs again
8854 C455 39              9     rts
8855
8856 jump47:
8857 ; coin have something to do with coin counting?
8858 C456 FC 00 40        ..@   ldd 0040
8859 C459 26 03           &.    bne 03
8860 C45B 7E C5 C6        ~..   jmp c5c6             ;goto39 - unset 0x30 in 0021 & return
8861 C45E CE 00 1A        ...   ldx #001a
8862 C461 1C 00 01        ..    bset 00,x, #01
8863 C464 F6 00 1A        ...   ldab 001a
8864 C467 F7 30 00        .0.   stab 3000    ; changer accept off
8865 C46A CC 03 E8        ...   ldd #03e8    ; 1000
8866 C46D BD E5 71        ..q   jsr e571             ;msdelay
8867 goto42:
8868 C470 FC 00 40        ..@   ldd 0040
8869 C473 83 00 00        ...   subd #0000
8870 C476 22 03           ".    bhi 03
8871 C478 7E C5 B0        ~..   jmp c5b0             ;goto40
8872 C47B F6 00 1B        ...   ldab 001b
8873 C47E C4 20           .     andb #20
8874 C480 27 1B           '.    beq 1b
8875 C482 FC 00 40        ..@   ldd 0040
8876 C485 83 03 E8        ...   subd #03e8
8877 C488 25 13           %.    bcs 13
8878 C48A C6 28           .(    ldab #28
8879 C48C F7 00 01        ...   stab 0001
8880 C48F CC FC 18        ...   ldd #fc18
8881 C492 F3 00 40        ..@   addd 0040
8882 C495 FD 00 40        ..@   std 0040
8883 C498 8D 96           ..    bsr dest 96
8884 C49A 7E C5 7C        ~.|   jmp c57c             ;goto41
8885 C49D F6 00 1B        ...   ldab 001b
8886 C4A0 C4 20           .     andb #20
8887 C4A2 27 1C           '.    beq 1c
8888 C4A4 FC 00 40        ..@   ldd 0040
8889 C4A7 83 00 64        ..d   subd #0064
8890 C4AA 25 14           %.    bcs 14
8891 C4AC C6 30           .0    ldab #30
8892 C4AE F7 00 01        ...   stab 0001
8893 C4B1 CC FF 9C        ...   ldd #ff9c
8894 C4B4 F3 00 40        ..@   addd 0040
8895 C4B7 FD 00 40        ..@   std 0040
8896 C4BA BD C4 30        ..0   jsr c430             ;jump26
8897 C4BD 7E C5 7C        ~.|   jmp c57c             ;goto41
8898 C4C0 FC 0B DD        ...   ldd 0bdd
8899 C4C3 27 3C           '<    beq 3c
8900 C4C5 FC 00 40        ..@   ldd 0040
8901 C4C8 B3 0B DD        ...   subd 0bdd
8902 C4CB 25 34           %4    bcs 34
8903 C4CD F6 0C DB        ...   ldab 0cdb
8904 C4D0 26 07           &.    bne 07
8905 C4D2 F6 00 1B        ...   ldab 001b
8906 C4D5 C4 20           .     andb #20
8907 C4D7 27 28           '(    beq 28
8908 C4D9 FC 0B DD        ...   ldd 0bdd
8909 C4DC 53              S     comb
8910 C4DD 43              C     coma
8911 C4DE F9 00 41        ..A   adcb 0041
8912 C4E1 B9 00 40        ..@   adca 0040
8913 C4E4 FD 00 40        ..@   std 0040
8914 C4E7 F6 0B DA        ...   ldab 0bda
8915 C4EA F7 00 01        ...   stab 0001
8916 C4ED BD C4 30        ..0   jsr c430             ;jump26
8917 C4F0 F6 00 1B        ...   ldab 001b
8918 C4F3 C4 20           .     andb #20
8919 C4F5 26 08           &.    bne 08
8920 C4F7 F6 0C DB        ...   ldab 0cdb
8921 C4FA 27 03           '.    beq 03
8922 C4FC 7A 0C DB        z..   dec 0cdb
8923 C4FF 20 7B            {    bra 7b
8924 C501 FC 0B DF        ...   ldd 0bdf
8925 C504 27 3C           '<    beq 3c
8926 C506 FC 00 40        ..@   ldd 0040
8927 C509 B3 0B DF        ...   subd 0bdf
8928 C50C 25 34           %4    bcs 34
8929 C50E F6 0C DA        ...   ldab 0cda
8930 C511 26 07           &.    bne 07
8931 C513 F6 00 1B        ...   ldab 001b
8932 C516 C4 20           .     andb #20
8933 C518 27 28           '(    beq 28
8934 C51A FC 0B DF        ...   ldd 0bdf
8935 C51D 53              S     comb
8936 C51E 43              C     coma
8937 C51F F9 00 41        ..A   adcb 0041
8938 C522 B9 00 40        ..@   adca 0040
8939 C525 FD 00 40        ..@   std 0040
8940 C528 F6 0B DB        ...   ldab 0bdb
8941 C52B F7 00 01        ...   stab 0001
8942 C52E BD C4 30        ..0   jsr c430             ;jump26
8943 C531 F6 00 1B        ...   ldab 001b
8944 C534 C4 20           .     andb #20
8945 C536 26 08           &.    bne 08
8946 C538 F6 0C DA        ...   ldab 0cda
8947 C53B 27 03           '.    beq 03
8948 C53D 7A 0C DA        z..   dec 0cda
8949 C540 20 3A            :    bra 3a
8950 C542 FC 0B E1        ...   ldd 0be1
8951 C545 27 30           '0    beq 30
8952 C547 FC 00 40        ..@   ldd 0040
8953 C54A B3 0B E1        ...   subd 0be1
8954 C54D 25 28           %(    bcs 28
8955 C54F FC 0B E1        ...   ldd 0be1
8956 C552 53              S     comb
8957 C553 43              C     coma
8958 C554 F9 00 41        ..A   adcb 0041
8959 C557 B9 00 40        ..@   adca 0040
8960 C55A FD 00 40        ..@   std 0040
8961 C55D F6 0B DC        ...   ldab 0bdc
8962 C560 F7 00 01        ...   stab 0001
8963 C563 BD C4 30        ..0   jsr c430             ;jump26
8964 C566 F6 00 1B        ...   ldab 001b
8965 C569 C4 20           .     andb #20
8966 C56B 26 08           &.    bne 08
8967 C56D F6 0C D9        ...   ldab 0cd9
8968 C570 27 03           '.    beq 03
8969 C572 7A 0C D9        z..   dec 0cd9
8970 C575 20 05            .    bra 05
8971 C577 5F              _     clrb
8972 C578 4F              O     clra
8973 C579 FD 00 40        ..@   std 0040
8974 goto41:
8975 C57C CC 01 2C        ..,   ldd #012c    ;300 ms
8976 C57F BD E5 71        ..q   jsr e571             ;msdelay
8977 C582 F6 00 1B        ...   ldab 001b
8978 C585 C4 20           .     andb #20
8979 C587 26 24           &$    bne 24
8980 C589 CE 00 1A        ...   ldx #001a
8981 C58C 1D 00 01        ..    bclr 00,x, #01
8982 C58F F6 00 1A        ...   ldab 001a
8983 C592 F7 30 00        .0.   stab 3000    ; changer accept' low
8984 C595 CC 00 0C        ...   ldd #000c    ; 12 ms
8985 C598 BD E5 71        ..q   jsr e571             ;msdelay
8986 C59B CE 00 1A        ...   ldx #001a
8987 C59E 1C 00 01        ..    bset 00,x, #01
8988 C5A1 F6 00 1A        ...   ldab 001a
8989 C5A4 F7 30 00        .0.   stab 3000    ; changer accept' high
8990 C5A7 CC 00 23        ..#   ldd #0023
8991 C5AA BD E5 71        ..q   jsr e571             ;msdelay
8992 C5AD 7E C4 70        ~.p   jmp c470             ;goto42 - loop
8993 goto40:
8994 C5B0 F6 0B C0        ...   ldab 0bc0
8995 C5B3 C4 04           ..    andb #04
8996 C5B5 27 0F           '.    beq 0f
8997 C5B7 F6 00 1B        ...   ldab 001b
8998 C5BA C4 20           .     andb #20
8999 C5BC 27 08           '.    beq 08
9000 C5BE C6 38           .8    ldab #38
9001 C5C0 F7 00 01        ...   stab 0001
9002 C5C3 BD C4 30        ..0   jsr c430             ;jump26
9003 goto39:
9004 C5C6 CE 00 21        ..!   ldx #0021
9005 C5C9 1D 00 10        ...   bclr 00,x, #10
9006 C5CC CE 00 1B        ...   ldx #001b
9007 C5CF 1D 00           ..    bclr 00,x, #20
9008 C5D2 39              .     rts
9009
9010 jump6:
9011 C5D3 F6 00 15        ...   ldab 0015
9012 C5D6 C4 1F           ..    andb #1f
9013 C5D8 26 03           &.    bne 03
9014 C5DA 7E C6 7C        ~.|   jmp c67c             ;goto43
9015 C5DD CC 00 C8        ...   ldd #00c8
9016 C5E0 BD E5 71        ..q   jsr e571             ;msdelay
9017 C5E3 FC 00 3E        ..>   ldd 003e
9018 C5E6 27 58           'X    beq 58
9019 C5E8 F6 00 15        ...   ldab 0015
9020 C5EB C4 1F           ..    andb #1f
9021 C5ED 4F              O     clra
9022 C5EE BD FE 32        ..2   jsr fe32             ;jump25
9023 C5F1 C6 0B 00 01     ..    ; array data for jump25
9024 C5F5 C6 16 00 01     ..
9025 C5F9 C6 21 00 02     .!
9026 C5FD C6 2C 00 04     .,
9027 C601 C6 37 00 08     .7
9028 C605 C6 40 FF F0     .@
9029 C609 00 00           ..    ;end of array data
9030 C60B CC FF 9C        ...   ldd #ff9c
9031 C60E F3 00 3E        ..>   addd 003e
9032 C611 FD 00 3E        ..>   std 003e
9033 C614 20 2A            *    bra 2a
9034 C616 CC FF 38        ..8   ldd #ff38
9035 C619 F3 00 3E        ..>   addd 003e
9036 C61C FD 00 3E        ..>   std 003e
9037 C61F 20 1F            .    bra 1f
9038 C621 CC FE 0C        ...   ldd #fe0c
9039 C624 F3 00 3E        ..>   addd 003e
9040 C627 FD 00 3E        ..>   std 003e
9041 C62A 20 14            .    bra 14
9042 C62C CC FC 18        ...   ldd #fc18
9043 C62F F3 00 3E        ..>   addd 003e
9044 C632 FD 00 3E        ..>   std 003e
9045 C635 20 09            .    bra 09
9046 C637 CC F8 30        ..0   ldd #f830
9047 C63A F3 00 3E        ..>   addd 003e
9048 C63D FD 00 3E        ..>   std 003e
9049 C640 CE 00 14        ...   ldx #0014
9050 C643 1D 00 02        ...   bclr 00,x, #02
9051 C646 F6 00 14        ...   ldab 0014
9052 C649 F7 38 00        .8.   stab 3800    ; bill acceptor
9053 C64C CC 00 1E        ...   ldd #001e
9054 C64F BD E5 71        ..q   jsr e571             ;msdelay
9055 C652 CE 00 15        ...   ldx #0015
9056 C655 1D 00           ..    bclr add,x 00,x
9057 C657 1F CE 00 14     ....  brclr ce,x 00 14
9058 C65B 1C 00 02        ...   bset 00,x, #02
9059 C65E F6 00 14        ...   ldab 0014
9060 C661 F7 38 00        .8.   stab 3800    ; bill acceptor
9061 C664 CC 00 19        ...   ldd #0019
9062 C667 BD E5 71        ..q   jsr e571             ;msdelay
9063 C66A CE 00 14        ...   ldx #0014
9064 C66D 1C 00 01        ..    bset 00,x, #01
9065 C670 F6 00 14        ...   ldab 0014
9066 C673 F7 38 00        .8.   stab 3800    ; bill acceptor
9067 C676 CC 00 19        ...   ldd #0019
9068 C679 BD E5 71        ..q   jsr e571             ;msdelay
9069 goto43:
9070 C67C 39              9     rts
9071
9072 jump124:
9073 ; chat to changer
9074 C67D F6 00 30        ..0   ldab 0030
9075 C680 26 55           &U    bne 55       ; to c6d7
9076 C682 F6 0B C0        ...   ldab 0bc0
9077 C685 C4 04           ..    andb #04     ; have a card reader
9078 C687 26 4E           &N    bne 4e       ; to c6d7
9079 C689 C6 27           .'    ldab #27
9080 C68B F7 10 2D        ..-   stab 102d    ; disable SCI transmission
9081 C68E C6 07           ..    ldab #07
9082 C690 F7 10 2B        ..+   stab 102b    ; 600 baud
9083 C693 CE 00 1A        ...   ldx #001a
9084 C696 1C 00           ..    bset 00,x, #04
9085 C699 F6 00 1A        ...   ldab 001a
9086 C69C F7 30 00        .0.   stab 3000    ; keypad strobe
9087 C69F CC 00 14        ...   ldd #0014
9088 C6A2 BD E5 71        ..q   jsr e571             ;msdelay
9089 C6A5 F6 0B C0        ...   ldab 0bc0
9090 C6A8 C4 01           ..    andb #01     ; have a dumb mech
9091 C6AA 27 06           '.    beq 06
9092 C6AC CE 0B C1        ...   ldx #0bc1
9093 C6AF 1C 00 01        ...   bset 00,x, #01 ; set changer powerup error bit
9094 C6B2 F6 0B C0        ...   ldab 0bc0
9095 C6B5 C4 04           ..    andb #04
9096 C6B7 27 06           '.    beq 06
9097 C6B9 CE 0B C1        ...   ldx #0bc1
9098 C6BC 1C 00 02        ...   bset 00,x, #02 ; set card powerup error bit
9099 C6BF CE 00 1A        ...   ldx #001a
9100 C6C2 1D 00 04        ...   bclr 00,x, #04  ; keypad strobe finish
9101 C6C5 F6 00 1A        ...   ldab 001a
9102 C6C8 F7 30 00        .0.   stab 3000
9103 C6CB C6 96           ..    ldab #96
9104 C6CD F7 00 30        ..0   stab 0030
9105 C6D0 C6 1E           ..    ldab #1e
9106 C6D2 F7 00 35        ..5   stab 0035
9107 C6D5 20 5D            ]    bra 5d
9108 ;
9109 C6D7 F6 18 00        ...   ldab 1800
9110 C6DA 2D 2A           -*    blt 2a
9111 C6DC F6 00 07        ...   ldab 0007
9112 C6DF 26 25           &%    bne 25
9113 C6E1 CE 00 1A        ...   ldx #001a
9114 C6E4 1D 00 02        ...   bclr 00,x, #02
9115 C6E7 F6 00 1A        ...   ldab 001a
9116 C6EA F7 30 00        .0.   stab 3000       ; changer send' low
9117 C6ED C6 64           .d    ldab #64
9118 C6EF F7 00 2D        ..-   stab 002d
9119 C6F2 CC 00 32        ..2   ldd #0032
9120 C6F5 BD E5 71        ..q   jsr e571             ;msdelay
9121 C6F8 CE 00 1A        ...   ldx #001a
9122 C6FB 1C 00 02        ...   bset 00,x, #02
9123 C6FE F6 00 1A        ...   ldab 001a
9124 C701 F7 30 00        .0.   stab 3000       ; changer send' high
9125 C704 20 2E            .    bra 2e
9126 C706 F6 00 2D        ..-   ldab 002d
9127 C709 26 29           &)    bne 29
9128 C70B CE 00 1A        ...   ldx #001a
9129 C70E 1D 00 01        ...   bclr 00,x, #01
9130 C711 F6 00 1A        ...   ldab 001a
9131 C714 F7 30 00        .0.   stab 3000     ; changer accept' low
9132 C717 CC 00 0C        ...   ldd #000c
9133 C71A BD E5 71        ..q   jsr e571             ;msdelay
9134 C71D CE 00 1A        ...   ldx #001a
9135 C720 1C 00 01        ...   bset 00,x, #01
9136 C723 F6 00 1A        ...   ldab 001a
9137 C726 F7 30 00        .0.   stab 3000     ; changer accept' high
9138 C729 CC 00 23        ..#   ldd #0023
9139 C72C BD E5 71        ..q   jsr e571             ;msdelay
9140 C72F C6 64           .d    ldab #64
9141 C731 F7 00 2D        ..-   stab 002d
9142 C734 F6 00 21        ..!   ldab 0021
9143 C737 C4 10           ..    andb #10
9144 C739 27 45           'E    beq 45
9145 C73B F6 00 11        ...   ldab 0011
9146 C73E C4 04           ..    andb #04
9147 C740 26 1A           &.    bne 1a
9148 C742 FC 00 40        ..@   ldd 0040
9149 C745 F3 00 3E        ..>   addd 003e
9150 C748 B3 00 50        ..P   subd 0050
9151 C74B 25 0F           %.    bcs 0f
9152 C74D F6 0B C0        ...   ldab 0bc0
9153 C750 C4 04           ..    andb #04
9154 C752 26 08           &.    bne 08
9155 C754 CE 00 21        ..!   ldx #0021
9156 C757 1D 00 10        ...   bclr 00,x, #10
9157 C75A 20 24            $    bra 24
9158 C75C F6 0B C0        ...   ldab 0bc0
9159 C75F C4 08           ..    andb #08
9160 C761 27 03           '.    beq 03
9161 C763 BD C5 D3        ...   jsr c5d3             ;jump6
9162 C766 FC 0B DD        ...   ldd 0bdd
9163 C769 26 12           &.    bne 12
9164 C76B FC 0B DF        ...   ldd 0bdf
9165 C76E 26 0D           &.    bne 0d
9166 C770 FC 0B E1        ...   ldd 0be1
9167 C773 26 08           &.    bne 08
9168 C775 CE 00 21        ..!   ldx #0021
9169 C778 1D 00 10        ...   bclr 00,x, #10
9170 C77B 20 03            .    bra 03
9171 C77D BD C4 56        ..V   jsr c456             ;jump47
9172 C780 F6 00 15        ...   ldab 0015
9173 C783 2D 08           -.    blt 08
9174 C785 CE 00 21        ..!   ldx #0021
9175 C788 1C 00 08        ...   bset 00,x, #08
9176 C78B 20 06            .    bra 06
9177 C78D CE 00 21        ..!   ldx #0021
9178 C790 1D 00 08        ...   bclr 00,x, #08
9179 C793 39              9     rts
9180
9181 ;proc(a,b) var local
9182 ;local=0
9183 ;while b<>0
9184 ;
9185 ;endwhile
9186 ;return local
9187
9188 ; tests parity?
9189 C794 37              7     pshb
9190 C795 36              6     psha
9191 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9192 C797 30              0     tsx
9193 C798 6F 00           o.    clr 00,x
9194 loop:
9195 C79A 30              0     tsx
9196 C79B E6 02           ..    ldab 02,x
9197 C79D 27 1A           '.    beq exit     ;c7b9
9198 C79F 30              0     tsx
9199 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9200 C7A4 30              0     tsx
9201 C7A5 E6 00           ..    ldab 00,x
9202 C7A7 27 05           '.    beq else     ;c7ae
9203 C7A9 30              0     tsx
9204 C7AA 6A 00           j.    dec 00,x
9205 C7AC 20 03            .    bra skip     ;c7b1
9206 else:
9207 C7AE 30              0     tsx
9208 C7AF 6C 00           l.    inc 00,x
9209 skip:
9210 C7B1 30              0     tsx
9211 C7B2 E6 02           ..    ldab 02,x
9212 C7B4 54              T     lsrb
9213 C7B5 E7 02           ..    stab 02,x
9214 C7B7 20 E1            .    bra loop     ;c79a
9215 exit:
9216 C7B9 30              0     tsx
9217 C7BA E6 00           ..    ldab 00,x
9218 C7BC 4F              O     clra
9219 C7BD 38              8     pulx
9220 C7BE 31              1     ins
9221 C7BF 39              9     rts
9222
9223 jump49:
9224 ; parity tester. returns 1 if good
9225 C7C0 F6 10 2F        ../   ldab 102f            ; sci data
9226 C7C3 4F              O     clra
9227 C7C4 8D CE           ..    bsr c794         ; parity test?
9228 C7C6 83 00 00        ...   subd #0000
9229 C7C9 27 05           '.    beq 05
9230 C7CB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9231 C7CE 2D 10           -.    blt 10           ; to c7e0
9232 C7D0 F6 10 2F        ../   ldab 102f            ; sci data
9233 C7D3 4F              O     clra
9234 C7D4 8D BE           ..    bsr c794         ; parity test?
9235 C7D6 83 00 00        ...   subd #0000
9236 C7D9 26 09           &.    bne 09           ; to c7e4
9237 C7DB F6 10 2C        ..,   ldab 102c        ; test the 9th bit
9238 C7DE 2D 04           -.    blt 04
9239 C7E0 CC 00 01        ...   ldd #0001        ; return 1
9240 C7E3 39              9     rts
9241 ; return 0
9242 C7E4 5F              _     clrb
9243 C7E5 4F              O     clra
9244 C7E6 39              9     rts
9245
9246
9247 ;this might send a byte to the serial port
9248 jump37:
9249 C7E7 37              7     pshb
9250 C7E8 36              6     psha
9251 C7E9 C6 32           .2    ldab #32    ; 50 00110010
9252 C7EB F7 00 31        ..1   stab 0031
9253 C7EE 30              0     tsx
9254 C7EF E6 01           ..    ldab 01,x
9255 C7F1 F7 00 43        ..C   stab 0043
9256 ; poll the TD register empty flag until it's set
9257 C7F4 F6 10 2E        ...   ldab 102e
9258 C7F7 2D 02           -.    blt 02      ; transmit data register empty
9259 C7F9 20 F9            .    bra f9      ; to c7f4
9260 ;
9261 C7FB 30              0     tsx
9262 C7FC E6 01           ..    ldab 01,x
9263 C7FE 4F              O     clra
9264 C7FF 8D 93           ..    bsr 93 ; to c794 - generate parity bit?
9265 C801 83 00 00        ...   subd #0000
9266 C804 27 08           '.    beq 08
9267 C806 CE 10 2C        ..,   ldx #102c
9268 C809 1C 00 40        ...   bset 00,x, #40   ; set the 9th bit
9269 C80C 20 06            .    bra 06
9270 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9271 C811 1D 00 40        ...   bclr 00,x, #40   ; clear the 9th bit
9272 C814 30              0     tsx
9273 C815 E6 01           ..    ldab 01,x
9274 C817 F7 10 2F        ../   stab 102f     ; send to serial port
9275 C81A 38              8     pulx
9276 C81B 39              9     rts
9277
9278
9279
9280
9281 sciinterrupt:
9282 C81C 34              4     des
9283 ; make sure this interrupt is valid
9284 C81D F6 0B C0        ...   ldab 0bc0
9285 C820 C4 01           ..    andb #01     ; do we have a dumb mech?
9286 C822 26 0A           &.    bne 0a       ; if so, to c82e
9287 ;
9288 C824 F6 0B C0        ...   ldab 0bc0
9289 C827 C4 04           ..    andb #04     ; do we have a card reader?
9290 C829 26 03           &.    bne 03       ; if so, to c82e
9291 C82B 7E CB FF        ~..   jmp cbff             ; else to goto44
9292 ;
9293 C82E C6 96           ..    ldab #96     ; 150
9294 C830 F7 00 30        ..0   stab 0030    ; changer related still?
9295 C833 F6 10 2E        ...   ldab 102e    ; SCI status
9296 C836 C4 02           ..    andb #02     ; test for Framing Error
9297 C838 26 0B           &.    bne 0b       ; if so, to c845
9298 C83A F6 10 2F        ../   ldab 102f    ; read SCI data
9299 C83D F1 00 26        ..&   cmpb 0026
9300 C840 26 03           &.    bne 03
9301 C842 7E C9 1B        ~..   jmp c91b             ;goto45
9302 ;
9303 C845 F6 10 2F        ../   ldab 102f    ; read SCI data
9304 C848 C4 63           .c    andb #63     ; 01100110
9305 C84A C1 23           .#    cmpb #23     ; 00100110
9306 C84C 27 03           '.    beq 03
9307 C84E 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9308 ; doesnt return
9309 C851 F6 00 1A        ...   ldab 001a    ; register 3000 buffer
9310 C854 C4 01           ..    andb #01     ; accept' line of changer
9311 C856 26 03           &.    bne 03
9312 C858 7E C8 E7        ~..   jmp c8e7             ;goto46 - pulse send' of changer
9313 ; doesnt return
9314 C85B F6 00 21        ..!   ldab 0021
9315 C85E C4 F8           ..    andb #f8     ; 11111000
9316 C860 37              7     pshb
9317 C861 F6 10 2F        ../   ldab 102f    ; read SCI data
9318 C864 C4 1C           ..    andb #1c     ; 00011100
9319 C866 54              T     lsrb         ;    ^^^
9320 C867 54              T     lsrb         ; get these bits out
9321 C868 30              0     tsx
9322 C869 EA 00           ..    orb 00,x     ; or it with the thing just above
9323 C86B 31              1     ins
9324 C86C F7 00 21        ..!   stab 0021
9325 C86F F6 00 21        ..!   ldab 0021
9326 C872 F4 0B D7        ...   andb 0bd7    ; if (0021 & 0bd7)
9327 C875 27 08           '.    beq 08       ; is false
9328 C877 CE 00 17        ...   ldx #0017
9329 C87A 1C 00 20        ..    bset 00,x, #20
9330 C87C 20 18                 bra 18
9331 C87F F6 00 17        ...   ldab 0017    ; if true
9332 C882 C4 20           .     andb #20
9333 C884 27 11           '.    beq 11       ; if unset to c897 (break out of if)
9334 C886 CE 00 17        ...   ldx #0017
9335 C889 1D 00           ..    bclr 00,x, #20
9336 C88C C6 04            .    andb #04
9337 C88E F7 0C DB        ...   stab 0cdb
9338 C891 CE 0B C1        ...   ldx #0bc1
9339 C894 1C 00 40        ...   bset 00,x, #40 ; set tube error
9340 ;
9341 C897 F6 00 21        ..!   ldab 0021
9342 C89A F4 0B D8        ...   andb 0bd8
9343 C89D 27 08           '.    beq 08           ; to c8a7
9344 C89F CE 00 17        ...   ldx #0017
9345 C8A2 1C 00 40        ...   bset 00,x, #40
9346 C8A5 20 18            .    bra 18           ; to c8cf
9347 ;
9348 C8A7 F6 00 17        ...   ldab 0017
9349 C8AA C4 40           .@    andb #40
9350 C8AC 27 11           '.    beq 11            ; to c8bf if unset
9351 C8AE CE 00 17        ...   ldx #0017
9352 C8B1 1D 00 40        ...   bclr 00,x, #40
9353 C8B4 C6 04           ..    ldab #04
9354 C8B6 F7 0C DA        ...   stab 0cda
9355 C8B9 CE 0B C1        ...   ldx #0bc1
9356 C8BC 1C 00 40        ...   bset 00,x, #40 ; set tube error
9357 ; if 0021 & 0bd9, then set bit 7 of 0017, else unset it.
9358 C8BF F6 00 21        ..!   ldab 0021
9359 C8C2 F4 0B D9        ...   andb 0bd9
9360 C8C5 27 08           '.    beq 08
9361 C8C7 CE 00 17        ...   ldx #0017
9362 C8CA 1C 00 80        ..    bset 00,x, #80
9363 C8CC 20 16           .     bra 16     ; to c8e5
9364 ;
9365 C8CF F6 00 17        ...   ldab 0017
9366 C8D2 2C 11           ,.    bge 11     ; to c8e5
9367 C8D4 CE 00 17        ...   ldx #0017
9368 C8D7 1D 00           ..    bclr 00,x, #80
9369 ; set counter to 4?
9370 C8D9 C6 04           ..    ldab #04
9371 C8DC F7 0C D9        ...   stab 0cd9
9372 ; set tube error bit
9373 C8DF CE 0B C1        ...   ldx #0bc1
9374 C8E2 1C 00 40        ...   bset 00,x, #40 ; set tube error bit
9375 C8E5 20 31            1    bra 31          ; to c918
9376 ;
9377 goto46: ; pulse the send' line of the changer
9378 C8E7 F6 10 2F        ../   ldab 102f    ; read SCI data
9379 C8EA F7 00 26        ..&   stab 0026
9380 C8ED CE 00 1A        ...   ldx #001a
9381 C8F0 1C 00 02        ...   bset 00,x, #02
9382 C8F3 F6 00 1A        ...   ldab 001a
9383 C8F6 F7 30 00        .0.   stab 3000    ; changer send' high
9384 C8F9 F6 00 3D        ..=   ldab 003d
9385 C8FC C4 04           ..    andb #04
9386 C8FE 26 18           &.    bne 18       ; to c918
9387 C900 CC 00 03        ...   ldd #0003
9388 C903 BD E5 71        ..q   jsr e571             ;msdelay
9389 C906 CE 00 1A        ...   ldx #001a
9390 C909 1D 00 02        ...   bclr 00,x, #02
9391 C90C F6 00 1A        ...   ldab 001a
9392 C90F F7 30 00        .0.   stab 3000    ; changer send' low
9393 C912 7C 00 3D        |.=   inc 003d
9394 C915 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9395 C918 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9396 ;
9397 goto45:
9398 C91B F6 00 08        ...   ldab 0008
9399 C91E 26 03           &.    bne 03
9400 C920 7E CA 5F        ~._   jmp ca5f             ;goto49
9401 C923 F6 00 17        ...   ldab 0017
9402 C926 C4 04           ..    andb #04
9403 C928 26 03           &.    bne 03
9404 C92A 7E CA 5F        ~._   jmp ca5f             ;goto49
9405 C92D F6 00 17        ...   ldab 0017
9406 C930 C4 08           ..    andb #08
9407 C932 26 03           &.    bne 03
9408 C934 7E CA 5F        ~._   jmp ca5f             ;goto49
9409 C937 F6 10 2F        ../   ldab 102f    ; read SCI data
9410 C93A C1 FF           ..    cmpb #ff
9411 C93C 27 07           '.    beq 07       ; to c945
9412 C93E F6 00 08        ...   ldab 0008
9413 C941 C1 0E           ..    cmpb #0e     ; if > 14
9414 C943 25 12           %.    bcs 12       ; to c957
9415 C945 CE 00 17        ...   ldx #0017
9416 C948 1D 00 04        ...   bclr 00,x, #04
9417 C94B 7F 00 08        ...   clr 0008
9418 C94E BD CE 48        ..H   jsr ce48             ;jump48 - update values?
9419 C951 7F 00 2C        ..,   clr 002c
9420 C954 7E CA 5C        ~.\   jmp ca5c             ;goto50 - clean exit
9421 ;
9422 C957 F6 00 08        ...   ldab 0008
9423 C95A 4F              O     clra
9424 C95B BD FE 16        ...   jsr fe16             ;jump2
9425 C95E 00 01 00 0C     .
9426 C962 CA 59           .Y    ; inc 0008 and clean exit
9427 C964 C9 7E           .~    ; read byte into 0bc2
9428 C966 C9 87           ..    ; read byte into 0bc3 & ^10 and stuff
9429 C968 C9 DF           ..    ; read byte into 0bc4 & stuff
9430 C96A C9 F3           ..    ; read byte into 0bc5 & stuff
9431 C96C CA 07           ..    ; read byte into 0bc6 & stuff
9432 C96E CA 1B           ..    ; read byte into 0bc7 only
9433 C970 CA 23           .#    ; read byte into 0bc8 only
9434 C972 CA 2B           .+    ; read byte into 0bc9 only
9435 C974 CA 33           .3    ; read byte into 0bca only
9436 C976 CA 3B           .;    ; read byte into 0bcb only
9437 C978 CA 43           .C    ; read byte into 0bcc only
9438 C97A CA 4B           .K    ; read byte into 0bcd only
9439 C97C CA 53           .S    ; read byte into 0bce only
9440 C97E F6 10 2F        ../   ldab 102f    ; read SCI data
9441 C981 F7 0B C2        ...   stab 0bc2
9442 C984 7E CA 59        ~.Y   jmp ca59             ;goto51 - inc 0008 and exit
9443 ;
9444 C987 F6 10 2F        ../   ldab 102f    ; read SCI data
9445 C98A F7 0B E3        ...   stab 0be3
9446 C98D F6 10 2F        ../   ldab 102f    ; read SCI data
9447 C990 C4 0F           ..    andb #0f
9448 C992 C1 01           ..    cmpb #01
9449 C994 26 07           &.    bne 07         ; to c99d
9450 C996 C6 02           ..    ldab #02
9451 C998 F7 00 13        ...   stab 0013
9452 C99B 20 1B            .    bra 1b         ; to c9b8
9453 C99D C1 02           ..    cmpb #02
9454 C99F 26 07           &.    bne 07         ; to c9a8
9455 C9A1 C6 04           ..    ldab #04
9456 C9A3 F7 00 13        ...   stab 0013
9457 C9A6 20 10            .    bra 10         ; to c9b8
9458 C9A8 C1 03           ..    cmpb #03
9459 C9AA 26 07           &.    bne 07         ; to c9b3
9460 C9AC C6 08           ..    ldab #08
9461 C9AE F7 00 13        ...   stab 0013
9462 C9B1 20 05            .    bra 05         ; to c9b8
9463 C9B3 C6 01           ..    ldab #01
9464 C9B5 F7 00 13        ...   stab 0013
9465 C9B8 F6 10 2F        ../   ldab 102f    ; read SCI data
9466 C9BB C4 F0           ..    andb #f0
9467 C9BD 54              T     lsrb
9468 C9BE 54              T     lsrb
9469 C9BF 54              T     lsrb
9470 C9C0 54              T     lsrb
9471 C9C1 F7 0B C3        ...   stab 0bc3
9472 C9C4 F6 0B C2        ...   ldab 0bc2
9473 C9C7 F7 0B AA        ...   stab 0baa
9474 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9475 ;while 0bc3^<>0
9476 ;  obaa^:=0baa^*10
9477 ;  obc3^:=0bc3-1
9478 ;endwhile
9479 C9CA F6 0B C3        ...   ldab 0bc3
9480 C9CD 27 0E           '.    beq c9dd
9481 C9CF F6 0B AA        ...   ldab 0baa
9482 C9D2 86 0A           ..    ldaa #0a
9483 C9D4 3D              =     mul
9484 C9D5 F7 0B AA        ...   stab 0baa
9485 C9D8 7A 0B C3        z..   dec 0bc3
9486 C9DB 20 ED            .    bra c9ca
9487 ;
9488 C9DD 20 7A            z    bra 7a       ;goto51 - inc 0008 & clean exit
9489 ;
9490 C9DF F6 10 2F        ../   ldab 102f    ; read SCI data
9491 C9E2 F7 0B C4        ...   stab 0bc4
9492 C9E5 F6 0B C4        ...   ldab 0bc4
9493 C9E8 C1 80           ..    cmpb #80     ; if == 128
9494 C9EA 26 05           &.    bne 05
9495 C9EC C6 0F           ..    ldab #0f     ; put 15 => 0bc4
9496 C9EE F7 0B C4        ...   stab 0bc4
9497 C9F1 20 66            f    bra 66       ;goto51 - inc 0008 & clean exit
9498 ;
9499 C9F3 F6 10 2F        ../   ldab 102f    ; read SCI data
9500 C9F6 F7 0B C5        ...   stab 0bc5
9501 C9F9 F6 0B C5        ...   ldab 0bc5
9502 C9FC C1 80           ..    cmpb #80
9503 C9FE 26 05           &.    bne 05
9504 CA00 C6 0F           ..    ldab #0f
9505 CA02 F7 0B C5        ...   stab 0bc5
9506 CA05 20 52            R    bra 52       ;goto51 - inc 0008 & clean exit
9507 ;
9508 CA07 F6 10 2F        ../   ldab 102f    ; read SCI data
9509 CA0A F7 0B C6        ...   stab 0bc6
9510 CA0D F6 0B C6        ...   ldab 0bc6
9511 CA10 C1 80           ..    cmpb #80
9512 CA12 26 05           &.    bne ca19
9513 CA14 C6 0F           ..    ldab #0f
9514 CA16 F7 0B C6        ...   stab 0bc6
9515 CA19 20 3E            >    bra 3e       ;goto51 - inc 0008 & clean exit
9516 ;
9517 ; read byte of data into 0bc7 - 0bce
9518 CA1B F6 10 2F        ../   ldab 102f    ; read SCI data
9519 CA1E F7 0B C7        ...   stab 0bc7
9520 CA21 20 36            6    bra 36
9521 ;
9522 CA23 F6 10 2F        ../   ldab 102f    ; read SCI data
9523 CA26 F7 0B C8        ...   stab 0bc8
9524 CA29 20 2E            .    bra 2e
9525 ;
9526 CA2B F6 10 2F        ../   ldab 102f    ; read SCI data
9527 CA2E F7 0B C9        ...   stab 0bc9
9528 CA31 20 26            &    bra 26
9529 ;
9530 CA33 F6 10 2F        ../   ldab 102f    ; read SCI data
9531 CA36 F7 0B CA        ...   stab 0bca
9532 CA39 20 1E            .    bra 1e
9533 ;
9534 CA3B F6 10 2F        ../   ldab 102f    ; read SCI data
9535 CA3E F7 0B CB        ...   stab 0bcb
9536 CA41 20 16            .    bra 16
9537 ;
9538 CA43 F6 10 2F        ../   ldab 102f    ; read SCI data
9539 CA46 F7 0B CC        ...   stab 0bcc
9540 CA49 20 0E            .    bra 0e
9541 ;
9542 CA4B F6 10 2F        ../   ldab 102f    ; read SCI data
9543 CA4E F7 0B CD        ...   stab 0bcd
9544 CA51 20 06            .    bra 06
9545 ;
9546 CA53 F6 10 2F        ../   ldab 102f    ; read SCI data
9547 CA56 F7 0B CE        ...   stab 0bce
9548 goto51:
9549 CA59 7C 00 08        |..   inc 0008
9550 goto50:
9551 CA5C 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9552 ;
9553 goto49:
9554 CA5F F6 10 2F        ../   ldab 102f    ; read SCI data
9555 CA62 C4 EF           ..    andb #ef     ; 11101111
9556 CA64 C1 E2           ..    cmpb #e2     ; 11100010
9557 CA66 26 1A           &.    bne 1a       ; if no match, to ca82
9558 CA68 CE 00 17        ...   ldx #0017
9559 CA6B 1C 00 08        ...   bset 00,x, #08
9560 CA6E CE 00 17        ...   ldx #0017
9561 CA71 1C 00 04        ...   bset 00,x, #04
9562 CA74 C6 01           ..    ldab #01
9563 CA76 F7 00 08        ...   stab 0008
9564 CA79 CE 0B C1        ...   ldx #0bc1
9565 CA7C 1D 00 01        ...   bclr 00,x, #01  ; clear card powerup error bit
9566 CA7F 7E CB DA        ~..   jmp cbda             ;goto48 (clean exit)
9567 ;
9568 CA82 F6 10 2F        ../   ldab 102f    ; read SCI data
9569 CA85 C4 02           ..    andb #02
9570 CA87 27 03           '.    beq 03       ; if bit is set then
9571 CA89 7E CB 6C        ~.l   jmp cb6c             ; goto52
9572 CA8C F6 10 2F        ../   ldab 102f    ; read SCI data
9573 CA8F 2C 38           ,8    bge 38       ; if bit 7 unset, to cac9
9574 CA91 F6 00 17        ...   ldab 0017
9575 CA94 C4 08           ..    andb #08
9576 CA96 26 31           &1    bne 31
9577 CA98 F6 10 2F        ../   ldab 102f    ; read SCI data
9578 CA9B C4 78           .x    andb #78     ; 01111000
9579 CA9D 54              T     lsrb
9580 CA9E 54              T     lsrb
9581 CA9F 54              T     lsrb
9582 CAA0 4F              O     clra
9583 CAA1 C3 0B C7        ...   addd #0bc7
9584 CAA4 8F              .     xgdx
9585 CAA5 E6 00           ..    ldab 00,x
9586 CAA7 4F              O     clra
9587 CAA8 37              7     pshb
9588 CAA9 36              6     psha
9589 CAAA F6 0B AA        ...   ldab 0baa
9590 CAAD 4F              O     clra
9591 CAAE BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9592 CAB1 F3 00 40        ..@   addd 0040
9593 CAB4 FD 00 40        ..@   std 0040
9594 CAB7 CE 00 1B        ...   ldx #001b
9595 CABA 1C 00           ..    bset 00,x, #20
9596 CABD CE 00 1B        ...   ldx #001b
9597 CAC0 1D 00 40        ...   bclr 00,x, #40
9598 CAC3 7F 00 25        ..%   clr 0025
9599 CAC6 7E CB 64        ~.d   jmp cb64             ;goto53 - cleanup & exit
9600 ;
9601 CAC9 F6 00 17        ...   ldab 0017
9602 CACC C4 08           ..    andb #08
9603 CACE 26 4A           &J    bne 4a       ;to cb1a
9604 CAD0 F6 10 2F        ../   ldab 102f    ; read SCI data
9605 CAD3 C4 60           .`    andb #60     ; 01100000
9606 CAD5 54              T     lsrb         ;  ^^^^
9607 CAD6 54              T     lsrb
9608 CAD7 54              T     lsrb
9609 CAD8 4F              O     clra
9610 CAD9 C3 0B C7        ...   addd #0bc7
9611 CADC 8F              .     xgdx
9612 CADD E6 00           ..    ldab 00,x
9613 CADF 4F              O     clra
9614 CAE0 37              7     pshb
9615 CAE1 36              6     psha
9616 CAE2 F6 0B AA        ...   ldab 0baa
9617 CAE5 4F              O     clra
9618 CAE6 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9619 CAE9 FD 0B BD        ...   std 0bbd
9620 CAEC FC 0B BD        ...   ldd 0bbd
9621 CAEF F3 00 40        ..@   addd 0040
9622 CAF2 FD 00 40        ..@   std 0040
9623 CAF5 F6 00 21        ..!   ldab 0021
9624 CAF8 C4 F8           ..    andb #f8     ; 11111000
9625 CAFA 37              7     pshb
9626 CAFB F6 10 2F        ../   ldab 102f    ; read SCI data
9627 CAFE C4 1C           ..    andb #1c     ; 00011100
9628 CB00 54              T     lsrb
9629 CB01 54              T     lsrb
9630 CB02 30              0     tsx
9631 CB03 EA 00           ..    orb 00,x     ; or lower 3 bits with 0021
9632 CB05 31              1     ins
9633 CB06 F7 00 21        ..!   stab 0021
9634 CB09 F6 10 2F        ../   ldab 102f    ; read SCI data
9635 CB0C F7 0B BC        ...   stab 0bbc
9636 CB0F CE 00 1B        ...   ldx #001b
9637 CB12 1D 00 40        ..    bclr 00,x, #40
9638 CB15 7F 00 25        ..%   clr 0025
9639 CB18 20 4A            J    bra 4a       ;goto53 - more cleanups and exit
9640 ;
9641 CB1A F6 10 2F        ../   ldab 102f    ; read SCI data
9642 CB1D C4 E0           ..    andb #e0     ; 11100000
9643 CB1F 54              T     lsrb
9644 CB20 54              T     lsrb
9645 CB21 54              T     lsrb
9646 CB22 54              T     lsrb
9647 CB23 54              T     lsrb          ; shr5
9648 CB24 4F              O     clra
9649 CB25 C3 0B C7        ...   addd #0bc7
9650 CB28 8F              .     xgdx
9651 CB29 E6 00           ..    ldab 00,x
9652 CB2B 4F              O     clra
9653 CB2C 37              7     pshb
9654 CB2D 36              6     psha
9655 CB2E F6 0B AA        ...   ldab 0baa
9656 CB31 4F              O     clra
9657 CB32 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9658 CB35 FD 0B BD        ...   std 0bbd
9659 CB38 FC 0B BD        ...   ldd 0bbd
9660 CB3B F3 00 40        ..@   addd 0040
9661 CB3E FD 00 40        ..@   std 0040
9662 CB41 F6 00 21        ..!   ldab 0021
9663 CB44 C4 F8           ..    andb #f8
9664 CB46 37              7     pshb
9665 CB47 F6 10 2F        ../   ldab 102f    ; read SCI data
9666 CB4A C4 1C           ..    andb #1c
9667 CB4C 54              T     lsrb
9668 CB4D 54              T     lsrb
9669 CB4E 30              0     tsx
9670 CB4F EA 00           ..    orb 00,x
9671 CB51 31              1     ins
9672 CB52 F7 00 21        ..!   stab 0021
9673 CB55 F6 10 2F        ../   ldab 102f    ; read SCI data
9674 CB58 F7 0B BC        ...   stab 0bbc
9675 CB5B CE 00 1B        ...   ldx #001b
9676 CB5E 1D 00 40        ...   bclr 00,x, #40
9677 CB61 7F 00 25        ..%   clr 0025
9678 goto53: ; more cleanups and exit
9679 CB64 7F 00 2C        ..,   clr 002c
9680 CB67 7F 00 3A        ..:   clr 003a
9681 CB6A 20 6E            n    bra 6e       ; to cbda - cleanup and exit
9682 goto52:
9683 CB6C F6 10 2F        ../   ldab 102f    ; read SCI data
9684 CB6F C4 03           ..    andb #03
9685 CB71 C1 02           ..    cmpb #02
9686 CB73 26 0F           &.    bne 0f       ; to bc84
9687 CB75 F6 00 21        ..!   ldab 0021
9688 CB78 C4 08           ..    andb #08
9689 CB7A 27 08           '.    beq 08
9690 CB7C CE 00 21        ..!   ldx #0021
9691 CB7F 1C 00 10        ...   bset 00,x, #10
9692 CB82 20 56            V    bra 56       ;goto48 - cleanup and exit
9693 ;
9694 CB84 F6 10 2F        ../   ldab 102f    ; read SCI data
9695 CB87 C4 EF           ..    andb #ef     ; 11101111
9696 CB89 C1 E3           ..    cmpb #e3     ; 11100111
9697 CB8B 26 08           &.    bne 08       ; to cb95
9698 CB8D CE 0B C1        ...   ldx #0bc1
9699 CB90 1D 00 02        ...   bclr 00,x, #02  ; clear card powerup error bit
9700 CB93 20 45            E    bra 45       ;goto48 - cleanup and exit
9701 ;
9702 ; this could be the coin mech powerup message?
9703 CB95 F6 10 2F        ../   ldab 102f    ; read SCI data
9704 CB98 C4 EF           ..    andb #ef     ; 11101111
9705 CB9A C1 63           .c    cmpb #63     ; 01101110
9706 CB9C 26 1C           &.    bne 1c       ; to cbba
9707 CB9E CE 0B C1        ...   ldx #0bc1    ; clear changer powerup error bit
9708 CBA1 1D 00 01        ...   bclr 00,x, #01
9709 CBA4 F6 0B C0        ...   ldab 0bc0
9710 CBA7 C4 01           ..    andb #01     ; do we have a changer?
9711 CBA9 27 0D           '.    beq 0d       ; to cbb8 - cleanup & exit
9712 CBAB F6 0B C0        ...   ldab 0bc0
9713 CBAE C4 04           ..    andb #04     ; if we don't have a card reader, we don't have an error reading from it. duh.
9714 CBB0 27 06           '.    beq 06       ; to cbb8
9715 CBB2 CE 0B C1        ...   ldx #0bc1
9716 CBB5 1D 00 02        ...   bclr 00,x, #02  ; clear card powerup error bit
9717 CBB8 20 20                 bra 20       ;goto48 - cleanup & exit
9718 ;
9719 ; the coin mech is telling us it has a bad sensor
9720 CBBA F6 10 2F        ../   ldab 102f    ; read SCI data
9721 CBBD C4 EF           ..    andb #ef     ; 11101111
9722 CBBF C1 67           .g    cmpb #67     ; 01100111
9723 CBC1 26 08           &.    bne 08       ; to cbcb
9724 CBC3 CE 0B C1        ...   ldx #0bc1
9725 CBC6 1C 00           ..    bset 00,x, #20 ; set bad sensor error bit
9726 CBC9 20 0F                 bra 0f       ;goto48 - cleanup & exit
9727 ;
9728 CBCB F6 10 2F        ../   ldab 102f    ; read SCI data
9729 CBCE C4 EF           ..    andb #ef     ; 11101111
9730 CBD0 C1 27           .'    cmpb #27     ; 00100111
9731 CBD2 26 06           &.    bne 06       ;goto48 - cleanup & exit
9732 ;
9733 CBD4 CE 0B C1        ...   ldx #0bc1 ; set coin jam error bit
9734 CBD7 1C 00 10        ...   bset 00,x, #10
9735 goto48: ; cleanup and exit
9736 CBDA CE 00 1A        ...   ldx #001a
9737 CBDD 1C 00 02        ...   bset 00,x, #02
9738 CBE0 F6 00 1A        ...   ldab 001a
9739 CBE3 F7 30 00        .0.   stab 3000    ; changer send' high
9740 CBE6 F6 00 17        ...   ldab 0017
9741 CBE9 C4 04           ..    andb #04
9742 CBEB 26 05           &.    bne 05       ; to cbf2
9743 CBED C6 06           ..    ldab #06
9744 CBEF F7 00 07        ...   stab 0007
9745 CBF2 F6 00 26        ..&   ldab 0026    ; 0026 ~= 0026
9746 CBF5 53              S     comb
9747 CBF6 F7 00 26        ..&   stab 0026
9748 CBF9 7F 00 3D        ..=   clr 003d
9749 CBFC 7E CE 46        ~.F   jmp ce46             ;goto47 (exit)
9750 ;
9751 ;
9752 ;
9753 ;
9754 ;
9755 goto44:
9756 CBFF F6 0B C0        ...   ldab 0bc0    ; do we have our changer (link master)?
9757 CC02 C4 02           ..    andb #02
9758 CC04 26 03           &.    bne 03       ; if not, swallow & exit
9759 CC06 7E CE 3B        ~.;   jmp ce3b             ; goto54  - swallow a byte & exit
9760 ;
9761 CC09 F6 10 2F        ../   ldab 102f    ; read SCI data
9762 CC0C C4 E0           ..    andb #e0     ; 11100000
9763 CC0E C1 20           .     cmpb #20     ; 00100000
9764 CC10 27 03           '.    beq 03
9765 CC12 7E CE 3B        ~.;   jmp ce3b             ;goto54  - swallow a byte & exit
9766 ;
9767 CC15 C6 32           .2    ldab #32     ; 50  00110010
9768 CC17 F7 00 2F        ../   stab 002f
9769 CC1A CE 00 1B        ...   ldx #001b    ; say we have a link master packet?
9770 CC1D 1C 00 02        ...   bset 00,x, #02
9771 CC20 F6 10 2E        ...   ldab 102e    ; SCI status
9772 CC23 C4 02           ..    andb #02     ; test for Framing Error
9773 CC25 26 08           &.    bne 08       ; if not, perform parity test. else to cc2f
9774 CC27 BD C7 C0        ...   jsr c7c0             ;jump49 - parity test
9775 CC2A 83 00 00        ...   subd #0000
9776 CC2D 26 0F           &.    bne 0f       ; if good, to cc3e
9777 CC2F F6 10 2F        ../   ldab 102f    ; read SCI data
9778 CC32 30              0     tsx
9779 CC33 E7 00           ..    stab 00,x
9780 CC35 CC 00 FF        ...   ldd #00ff
9781 CC38 BD C7 E7        ...   jsr c7e7             ;jump37 - send #FF to coin mech
9782 CC3B 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9783 ;
9784 CC3E F6 10 2F        ../   ldab 102f    ; read SCI data
9785 CC41 C1 3F           .?    cmpb #3f     ; 00111111
9786 CC43 26 0A           &.    bne 0a       ; to cc4f
9787 CC45 F6 00 43        ..C   ldab 0043
9788 CC48 4F              O     clra
9789 CC49 BD C7 E7        ...   jsr c7e7             ;jump37 - send 0043 to coin mech - retry?
9790 CC4C 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9791 ;
9792 CC4F F6 00 08        ...   ldab 0008
9793 CC52 26 03           &.    bne 03
9794 CC54 7E CD 94        ~..   jmp cd94             ;goto56
9795 ;
9796 CC57 F6 10 2F        ../   ldab 102f    ; read SCI data
9797 CC5A C4 F0           ..    andb #f0     ; 11110000
9798 CC5C C1 20           .     cmpb #20     ; 00100000
9799 CC5E 27 03           '.    beq 03
9800 CC60 7E CD 94        ~..   jmp cd94             ;goto56
9801 CC63 F6 10 2F        ../   ldab 102f    ; read SCI data
9802 CC66 C4 0F           ..    andb #0f
9803 CC68 30              0     tsx
9804 CC69 E7 00           ..    stab 00,x
9805 CC6B F6 00 08        ...   ldab 0008
9806 CC6E 4F              O     clra
9807 CC6F BD FE 16        ...   jsr fe16             ;jump2
9808 CC72 00 01 00 07     .     ; array data for jump2
9809 CC76 CD 7A           .     ; if 0008 == 9, clr 0008, 002c. else inc 0008, send #00 to coin mech
9810 CC78 CC 88           ..    ; if 0017&#1 sp=>0076, else sp=>0040, then same as above
9811 CC7A CC A2           ..    ; if 0017&#1 0076+=sp<<4, else 0040+=sp<<4, then same as above
9812 CC7C CC CA           ..    ; if 0017&#1 0076+=sp<<8, else 0040+=sp<<8, then same as above
9813 CC7E CC EE           ..    ; if 0017&#1 0076+=sp<<16, else 0040+=sp<16, then same as above
9814 CC80 CD 19           ..    ; 0baa = sp, then same as above
9815 CC82 CD 21           .     ; 0baa = sp<<4, then same as above
9816 CC83 CD 30           !.    ; 0013 = sp, then same as above - location of dec point?
9817 CC85 CD 38           0     ; read byte & #01,  - have change
9818 ;
9819 CC88 F6 00 17        ...   ldab 0017
9820 CC8B C4 01           ..    andb #01
9821 CC8D 27 09           '.    beq 09       ; to cc98
9822 CC8F 30              0     tsx
9823 CC90 E6 00           ..    ldab 00,x
9824 CC92 4F              O     clra
9825 CC93 FD 00 76        ..v   std 0076
9826 CC96 20 07            .    bra 07       ; to cc9f
9827 CC98 30              0     tsx
9828 CC99 E6 00           ..    ldab 00,x
9829 CC9B 4F              O     clra
9830 CC9C FD 00 40        ..@   std 0040
9831 CC9F 7E CD 7A        ~.z   jmp cd7a             ;goto57
9832 ;
9833 CCA2 F6 00 17        ...   ldab 0017
9834 CCA5 C4 01           ..    andb #01
9835 CCA7 27 10           '.    beq 10       ; to ccb9
9836 CCA9 30              0     tsx
9837 CCAA E6 00           ..    ldab 00,x
9838 CCAC 4F              O     clra
9839 CCAD 05              .     asld
9840 CCAE 05              .     asld
9841 CCAF 05              .     asld
9842 CCB0 05              .     asld
9843 CCB1 F3 00 76        ..v   addd 0076
9844 CCB4 FD 00 76        ..v   std 0076
9845 CCB7 20 0E            .    bra 0e       ; to ccc7
9846 CCB9 30              0     tsx
9847 CCBA E6 00           ..    ldab 00,x
9848 CCBC 4F              O     clra
9849 CCBD 05              .     asld
9850 CCBE 05              .     asld
9851 CCBF 05              .     asld
9852 CCC0 05              .     asld
9853 CCC1 F3 00 40        ..@   addd 0040
9854 CCC4 FD 00 40        ..@   std 0040
9855 CCC7 7E CD 7A        ~.z   jmp cd7a             ;goto57
9856 ;
9857 CCCA F6 00 17        ...   ldab 0017
9858 CCCD C4 01           ..    andb #01
9859 CCCF 27 0E           '.    beq 0e       ; to ccdf
9860 CCD1 30              0     tsx
9861 CCD2 E6 00           ..    ldab 00,x
9862 CCD4 4F              O     clra
9863 CCD5 17              .     tba
9864 CCD6 5F              _     clrb
9865 CCD7 F3 00 76        ..v   addd 0076
9866 CCDA FD 00 76        ..v   std 0076
9867 CCDD 20 0C            .    bra 0c       ; to cceb
9868 CCDF 30              0     tsx
9869 CCE0 E6 00           ..    ldab 00,x
9870 CCE2 4F              O     clra
9871 CCE3 17              .     tba
9872 CCE4 5F              _     clrb
9873 CCE5 F3 00 40        ..@   addd 0040
9874 CCE8 FD 00 40        ..@   std 0040
9875 CCEB 7E CD 7A        ~.z   jmp cd7a             ;goto57
9876 ;
9877 CCEE F6 00 17        ...   ldab 0017
9878 CCF1 C4 01           ..    andb #01
9879 CCF3 27 12           '.    beq 12     ; to cd07
9880 CCF5 30              0     tsx
9881 CCF6 E6 00           ..    ldab 00,x
9882 CCF8 4F              O     clra
9883 CCF9 17              .     tba
9884 CCFA 48              H     asla
9885 CCFB 48              H     asla
9886 CCFC 48              H     asla
9887 CCFD 48              H     asla
9888 CCFE 5F              _     clrb
9889 CCFF F3 00 76        ..v   addd 0076
9890 CD02 FD 00 76        ..v   std 0076
9891 CD05 20 10            .    bra 10     ; to cd17
9892 CD07 30              0     tsx
9893 CD08 E6 00           ..    ldab 00,x
9894 CD0A 4F              O     clra
9895 CD0B 17              .     tba
9896 CD0C 48              H     asla
9897 CD0D 48              H     asla
9898 CD0E 48              H     asla
9899 CD0F 48              H     asla
9900 CD10 5F              _     clrb
9901 CD11 F3 00 40        ..@   addd 0040
9902 CD14 FD 00 40        ..@   std 0040
9903 CD17 20 61            a    bra 61
9904 ;
9905 CD19 30              0     tsx
9906 CD1A E6 00           ..    ldab 00,x
9907 CD1C F7 0B AA        ...   stab 0baa
9908 CD1F 20 59            Y    bra 59 ; to cd7a - goto57
9909 ;
9910 CD21 30              0     tsx
9911 CD22 E6 00           ..    ldab 00,x
9912 CD24 58              X     aslb
9913 CD25 58              X     aslb
9914 CD26 58              X     aslb
9915 CD27 58              X     aslb
9916 CD28 FB 0B AA        ...   addb 0baa
9917 CD2B F7 0B AA        ...   stab 0baa
9918 CD2E 20 4A            J    bra 4a ; to cd7a - goto57
9919 ;
9920 CD30 30              0     tsx
9921 CD31 E6 00           ..    ldab 00,x
9922 CD33 F7 00 13        ...   stab 0013
9923 CD36 20 42            B    bra 42 ; to cd7a - goto57
9924 ;
9925 ;
9926 ; coin mech has no change if bit is set (displays EXACT COINS ONLY)
9927 CD38 F6 10 2F        ../   ldab 102f    ; read SCI data
9928 CD3B C4 01           ..    andb #01
9929 CD3D 27 08           '.    beq 08          ; to cd47
9930 CD3F CE 00 21        ..!   ldx #0021
9931 CD42 1C 00 40        ...   bset 00,x, #40
9932 CD45 20 06            .    bra 06          ; to cd4d
9933 CD47 CE 00 21        ..!   ldx #0021
9934 CD4A 1D 00 40        ...   bclr 00,x, #40
9935 ;
9936 CD4D F6 00 17        ...   ldab 0017
9937 CD50 C4 01           ..    andb #01
9938 CD52 27 17           '.    beq 17     ; to cd6b
9939 CD54 F6 0B AA        ...   ldab 0baa
9940 CD57 4F              O     clra
9941 CD58 37              7     pshb
9942 CD59 36              6     psha
9943 CD5A FC 00 76        ..v   ldd 0076
9944 CD5D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9945 CD60 FD 00 76        ..v   std 0076     ; 0076 *= 0baa
9946 CD63 CE 00 17        ...   ldx #0017
9947 CD66 1D 00 01        ...   bclr 00,x, #01
9948 CD69 20 0F            .    bra 0f       ;goto57 - send byte & exit
9949 CD6B F6 0B AA        ...   ldab 0baa
9950 CD6E 4F              O     clra
9951 CD6F 37              7     pshb
9952 CD70 36              6     psha
9953 CD71 FC 00 40        ..@   ldd 0040
9954 CD74 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
9955 CD77 FD 00 40        ..@   std 0040     ; 0040 *= 0baa
9956 goto57:  ; sends the byte, clearing the counter if its the 8th byte
9957 CD7A F6 00 08        ...   ldab 0008
9958 CD7D C1 09           ..    cmpb #09
9959 CD7F 26 08           &.    bne 08
9960 CD81 7F 00 2C        ..,   clr 002c
9961 CD84 7F 00 08        ...   clr 0008
9962 CD87 20 03            .    bra 03
9963 CD89 7C 00 08        |..   inc 0008
9964 CD8C 5F              _     clrb
9965 CD8D 4F              O     clra
9966 CD8E BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9967 CD91 7E CE 39        ~.9   jmp ce39             ;goto55 - exit
9968 goto56:
9969 CD94 F6 10 2F        ../   ldab 102f    ; read SCI data
9970 CD97 4F              O     clra
9971 CD98 BD FE 32        ..2   jsr fe32             ;jump25
9972 CD9B CD B1 00 31     ...1  ; 49 "1" 00110001
9973 CD9F CD DB 00 01     ....  ; 50 "2" 00110010
9974 CDA3 CE 20 00 01     . ..  ; 51 "3" 00110011
9975 CDA7 CE 28 00 05     .(..  ; 56 "8" 00111000
9976 CDAB CE 34 FF C8     .4..  ; 0
9977 CDAF 00 00           ..    ; end of array data
9978 ;
9979 CDB1 F6 00 21        ..!   ldab 0021
9980 CDB4 2C 08           ,.    bge 08
9981 CDB6 CC 00 80        ...   ldd #0080
9982 CDB9 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9983 CDBC 20 1B            .    bra 1b       ; to cdd9
9984 CDBE 5F              _     clrb
9985 CDBF 4F              O     clra
9986 CDC0 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
9987 CDC3 F6 00 1F        ...   ldab 001f
9988 CDC6 C4 08           ..    andb #08
9989 CDC8 27 0C           '.    beq 0c
9990 CDCA F6 0B C0        ...   ldab 0bc0
9991 CDCD C4 10           ..    andb #10     ; have link master price holding
9992 CDCF 27 05           '.    beq 05
9993 CDD1 7C 00 75        |.u   inc 0075
9994 CDD4 20 03            .    bra 03
9995 CDD6 7F 00 75        ..u   clr 0075
9996 CDD9 20 5E            ^    bra 5e
9997 ;
9998 CDDB F6 00 1D        ...   ldab 001d
9999 CDDE C4 02           ..    andb #02
10000 CDE0 27 07           '.    beq 07
10001 CDE2 F6 00 19        ...   ldab 0019
10002 CDE5 C4 08           ..    andb #08
10003 CDE7 26 19           &.    bne 19
10004 CDE9 CC 00 FE        ...   ldd #00fe
10005 CDEC BD C7 E7        ...   jsr c7e7             ;jump37 - send #fe to coin mech
10006 CDEF F6 00 1F        ...   ldab 001f
10007 CDF2 C4 08           ..    andb #08
10008 CDF4 27 0A           '.    beq 0a
10009 CDF6 F6 0B C0        ...   ldab 0bc0
10010 CDF9 C4 10           ..    andb #10     ; have link master price holding
10011 CDFB 27 03           '.    beq 03
10012 CDFD 7C 00 75        |.u   inc 0075
10013 CE00 20 1C            .    bra 1c
10014 CE02 FC 00 44        ..D   ldd 0044
10015 CE05 37              7     pshb
10016 CE06 36              6     psha
10017 CE07 F6 0B AA        ...   ldab 0baa
10018 CE0A 4F              O     clra
10019 CE0B 38              8     pulx
10020 CE0C 8F              .     xgdx
10021 CE0D 02              .     idiv
10022 CE0E 8F              .     xgdx
10023 CE0F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10024 CE12 CE 00 19        ...   ldx #0019
10025 CE15 1D 00 08        ...   bclr 00,x, #08
10026 CE18 CE 00 1F        ...   ldx #001f
10027 CE1B 1C 00 08        ...   bset 00,x, #08
10028 CE1E 20 19            .    bra 19
10029 CE20 CE 00 1D        ...   ldx #001d
10030 CE23 1D 00 02        ...   bclr 00,x, #02
10031 CE26 20 11            .    bra 11
10032 CE28 C6 01           ..    ldab #01
10033 CE2A F7 00 08        ...   stab 0008
10034 CE2D 5F              _     clrb
10035 CE2E 4F              O     clra
10036 CE2F BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10037 CE32 20 05            .    bra 05
10038 CE34 5F              _     clrb
10039 CE35 4F              O     clra
10040 CE36 BD C7 E7        ...   jsr c7e7             ;jump37 - send byte to coin mech
10041 goto55:
10042 CE39 20 0B            .    bra 0b       ; to ce46 (exit)
10043 goto54: ; just swallow a byte?
10044 CE3B F6 10 2E        ...   ldab 102e    ; SCI Status
10045 CE3E 30              0     tsx
10046 CE3F E7 00           ..    stab 00,x    ; store into stack variable
10047 CE41 F6 10 2F        ../   ldab 102f    ; read SCI data
10048 CE44 E7 00           ..    stab 00,x
10049 goto47:
10050 CE46 31              1     ins
10051 CE47 3B              ;     rti
10052
10053 jump48:
10054 ;
10055 CE48 F6 0B C4        ...   ldab 0bc4
10056 CE4B F1 0B C5        ...   cmpb 0bc5
10057 CE4E 25 53           %S    bcs 53     ; if 0bc4 < 0bc5 to cea3
10058 CE50 F6 0B C5        ...   ldab 0bc5
10059 CE53 F1 0B C6        ...   cmpb 0bc6
10060 CE56 25 4B           %K    bcs 4b     ; if 0bc5 < 0bc6 to cea3
10061 ; so here we have 0bc6 < 0bc5 < 0bc4
10062 CE58 F6 0B C4        ...   ldab 0bc4
10063 CE5B 4F              O     clra
10064 CE5C C3 0B C7        ...   addd #0bc7
10065 CE5F 8F              .     xgdx
10066 CE60 E6 00           ..    ldab 00,x
10067 CE62 4F              O     clra
10068 CE63 FD 0B DD        ...   std 0bdd
10069 CE66 F6 0B C5        ...   ldab 0bc5
10070 CE69 4F              O     clra
10071 CE6A C3 0B C7        ...   addd #0bc7
10072 CE6D 8F              .     xgdx
10073 CE6E E6 00           ..    ldab 00,x
10074 CE70 4F              O     clra
10075 CE71 FD 0B DF        ...   std 0bdf
10076 CE74 F6 0B C6        ...   ldab 0bc6
10077 CE77 4F              O     clra
10078 CE78 C3 0B C7        ...   addd #0bc7
10079 CE7B 8F              .     xgdx
10080 CE7C E6 00           ..    ldab 00,x
10081 CE7E 4F              O     clra
10082 CE7F FD 0B E1        ...   std 0be1
10083 CE82 C6 01           ..    ldab #01
10084 CE84 F7 0B D7        ...   stab 0bd7
10085 CE87 C6 04           ..    ldab #04
10086 CE89 F7 0B D8        ...   stab 0bd8
10087 CE8C C6 02           ..    ldab #02
10088 CE8E F7 0B D9        ...   stab 0bd9
10089 CE91 C6 20           .     ldab #20
10090 CE93 F7 0B DA        ...   stab 0bda
10091 CE96 C6 08           ..    ldab #08
10092 CE98 F7 0B DB        ...   stab 0bdb
10093 CE9B C6 10           ..    ldab #10
10094 CE9D F7 0B DC        ...   stab 0bdc
10095 CEA0 7E D0 66        ~.f   jmp d066             ;goto58 - multiply & exit
10096 ;
10097 CEA3 F6 0B C4        ...   ldab 0bc4
10098 CEA6 F1 0B C6        ...   cmpb 0bc6
10099 CEA9 25 53           %S    bcs 53     ; if 0bc4 < 0bc6 to cefe
10100 CEAB F6 0B C6        ...   ldab 0bc6
10101 CEAE F1 0B C5        ...   cmpb 0bc5
10102 CEB1 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc5 to cefe
10103 ; so here we have 0bc5 < 0bc6 < 0bc4
10104 CEB3 F6 0B C4        ...   ldab 0bc4
10105 CEB6 4F              O     clra
10106 CEB7 C3 0B C7        ...   addd #0bc7
10107 CEBA 8F              .     xgdx
10108 CEBB E6 00           ..    ldab 00,x
10109 CEBD 4F              O     clra
10110 CEBE FD 0B DD        ...   std 0bdd
10111 CEC1 F6 0B C6        ...   ldab 0bc6
10112 CEC4 4F              O     clra
10113 CEC5 C3 0B C7        ...   addd #0bc7
10114 CEC8 8F              .     xgdx
10115 CEC9 E6 00           ..    ldab 00,x
10116 CECB 4F              O     clra
10117 CECC FD 0B DF        ...   std 0bdf
10118 CECF F6 0B C5        ...   ldab 0bc5
10119 CED2 4F              O     clra
10120 CED3 C3 0B C7        ...   addd #0bc7
10121 CED6 8F              .     xgdx
10122 CED7 E6 00           ..    ldab 00,x
10123 CED9 4F              O     clra
10124 CEDA FD 0B E1        ...   std 0be1
10125 CEDD C6 01           ..    ldab #01
10126 CEDF F7 0B D7        ...   stab 0bd7
10127 CEE2 C6 02           ..    ldab #02
10128 CEE4 F7 0B D8        ...   stab 0bd8
10129 CEE7 C6 04           ..    ldab #04
10130 CEE9 F7 0B D9        ...   stab 0bd9
10131 CEEC C6 20           .     ldab #20
10132 CEEE F7 0B DA        ...   stab 0bda
10133 CEF1 C6 10           ..    ldab #10
10134 CEF3 F7 0B DB        ...   stab 0bdb
10135 CEF6 C6 08           ..    ldab #08
10136 CEF8 F7 0B DC        ...   stab 0bdc
10137 CEFB 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10138 ;
10139 CEFE F6 0B C5        ...   ldab 0bc5
10140 CF01 F1 0B C4        ...   cmpb 0bc4
10141 CF04 25 53           %S    bcs 53    ; if 0bc5 < 0bc4 to cf59
10142 CF06 F6 0B C4        ...   ldab 0bc4
10143 CF09 F1 0B C6        ...   cmpb 0bc6
10144 CF0C 25 4B           %K    bcs 4b    ; if 0bc4 < 0bc6 to cf59
10145 ; so here we have 0bc6 < 0bc4 < 0bc5
10146 CF0E F6 0B C5        ...   ldab 0bc5
10147 CF11 4F              O     clra
10148 CF12 C3 0B C7        ...   addd #0bc7
10149 CF15 8F              .     xgdx
10150 CF16 E6 00           ..    ldab 00,x
10151 CF18 4F              O     clra
10152 CF19 FD 0B DD        ...   std 0bdd
10153 CF1C F6 0B C4        ...   ldab 0bc4
10154 CF1F 4F              O     clra
10155 CF20 C3 0B C7        ...   addd #0bc7
10156 CF23 8F              .     xgdx
10157 CF24 E6 00           ..    ldab 00,x
10158 CF26 4F              O     clra
10159 CF27 FD 0B DF        ...   std 0bdf
10160 CF2A F6 0B C6        ...   ldab 0bc6
10161 CF2D 4F              O     clra
10162 CF2E C3 0B C7        ...   addd #0bc7
10163 CF31 8F              .     xgdx
10164 CF32 E6 00           ..    ldab 00,x
10165 CF34 4F              O     clra
10166 CF35 FD 0B E1        ...   std 0be1
10167 CF38 C6 04           ..    ldab #04
10168 CF3A F7 0B D7        ...   stab 0bd7
10169 CF3D C6 01           ..    ldab #01
10170 CF3F F7 0B D8        ...   stab 0bd8
10171 CF42 C6 02           ..    ldab #02
10172 CF44 F7 0B D9        ...   stab 0bd9
10173 CF47 C6 08           ..    ldab #08
10174 CF49 F7 0B DA        ...   stab 0bda
10175 CF4C C6 20           .     ldab #20
10176 CF4E F7 0B DB        ...   stab 0bdb
10177 CF51 C6 10           ..    ldab #10
10178 CF53 F7 0B DC        ...   stab 0bdc
10179 CF56 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10180 ;
10181 CF59 F6 0B C5        ...   ldab 0bc5
10182 CF5C F1 0B C6        ...   cmpb 0bc6
10183 CF5F 25 53           %S    bcs 53     ; if 0bc5 < 0bc6 to cfb4
10184 CF61 F6 0B C6        ...   ldab 0bc6
10185 CF64 F1 0B C4        ...   cmpb 0bc4
10186 CF67 25 4B           %K    bcs 4b     ; if 0bc6 < 0bc4 to cfb4
10187 ; so here we have 0bc4 < 0bc6 < 0bc5
10188 CF69 F6 0B C5        ...   ldab 0bc5
10189 CF6C 4F              O     clra
10190 CF6D C3 0B C7        ...   addd #0bc7
10191 CF70 8F              .     xgdx
10192 CF71 E6 00           ..    ldab 00,x
10193 CF73 4F              O     clra
10194 CF74 FD 0B DD        ...   std 0bdd
10195 CF77 F6 0B C6        ...   ldab 0bc6
10196 CF7A 4F              O     clra
10197 CF7B C3 0B C7        ...   addd #0bc7
10198 CF7E 8F              .     xgdx
10199 CF7F E6 00           ..    ldab 00,x
10200 CF81 4F              O     clra
10201 CF82 FD 0B DF        ...   std 0bdf
10202 CF85 F6 0B C4        ...   ldab 0bc4
10203 CF88 4F              O     clra
10204 CF89 C3 0B C7        ...   addd #0bc7
10205 CF8C 8F              .     xgdx
10206 CF8D E6 00           ..    ldab 00,x
10207 CF8F 4F              O     clra
10208 CF90 FD 0B E1        ...   std 0be1
10209 CF93 C6 04           ..    ldab #04
10210 CF95 F7 0B D7        ...   stab 0bd7
10211 CF98 C6 02           ..    ldab #02
10212 CF9A F7 0B D8        ...   stab 0bd8
10213 CF9D C6 01           ..    ldab #01
10214 CF9F F7 0B D9        ...   stab 0bd9
10215 CFA2 C6 08           ..    ldab #08
10216 CFA4 F7 0B DA        ...   stab 0bda
10217 CFA7 C6 10           ..    ldab #10
10218 CFA9 F7 0B DB        ...   stab 0bdb
10219 CFAC C6 20           .     ldab #20
10220 CFAE F7 0B DC        ...   stab 0bdc
10221 CFB1 7E D0 66        ~.f   jmp d066             ;goto58 - multiply and exit
10222 ;
10223 CFB4 F6 0B C6        ...   ldab 0bc6
10224 CFB7 F1 0B C4        ...   cmpb 0bc4
10225 CFBA 25 52           %R    bcs 52    ; if 0bc6 < 0bc4 to d00e
10226 CFBC F6 0B C4        ...   ldab 0bc4
10227 CFBF F1 0B C5        ...   cmpb 0bc5
10228 CFC2 25 4A           %J    bcs 4a    ; if 0bc4 < 0bc5 to d00e
10229 ; so here we have 0bc5 < 0bc4 < 0bc6
10230 CFC4 F6 0B C6        ...   ldab 0bc6
10231 CFC7 4F              O     clra
10232 CFC8 C3 0B C7        ...   addd #0bc7
10233 CFCB 8F              .     xgdx
10234 CFCC E6 00           ..    ldab 00,x
10235 CFCE 4F              O     clra
10236 CFCF FD 0B DD        ...   std 0bdd
10237 CFD2 F6 0B C4        ...   ldab 0bc4
10238 CFD5 4F              O     clra
10239 CFD6 C3 0B C7        ...   addd #0bc7
10240 CFD9 8F              .     xgdx
10241 CFDA E6 00           ..    ldab 00,x
10242 CFDC 4F              O     clra
10243 CFDD FD 0B DF        ...   std 0bdf
10244 CFE0 F6 0B C5        ...   ldab 0bc5
10245 CFE3 4F              O     clra
10246 CFE4 C3 0B C7        ...   addd #0bc7
10247 CFE7 8F              .     xgdx
10248 CFE8 E6 00           ..    ldab 00,x
10249 CFEA 4F              O     clra
10250 CFEB FD 0B E1        ...   std 0be1
10251 CFEE C6 02           ..    ldab #02
10252 CFF0 F7 0B D7        ...   stab 0bd7
10253 CFF3 C6 01           ..    ldab #01
10254 CFF5 F7 0B D8        ...   stab 0bd8
10255 CFF8 C6 04           ..    ldab #04
10256 CFFA F7 0B D9        ...   stab 0bd9
10257 CFFD C6 10           ..    ldab #10
10258 CFFF F7 0B DA        ...   stab 0bda
10259 D002 C6 20           .     ldab #20
10260 D004 F7 0B DB        ...   stab 0bdb
10261 D007 C6 08           ..    ldab #08
10262 D009 F7 0B DC        ...   stab 0bdc
10263 D00C 20 58            X    bra 58      ;goto58 - multiply and exit
10264 ;
10265 ; we know that 0bc4 < 0bc5 < 0bc6
10266 D00E F6 0B C6        ...   ldab 0bc6
10267 D011 F1 0B C5        ...   cmpb 0bc5
10268 D014 25 50           %P    bcs 50
10269 D016 F6 0B C5        ...   ldab 0bc5
10270 D019 F1 0B C4        ...   cmpb 0bc4
10271 D01C 25 48           %H    bcs 48
10272 D01E F6 0B C6        ...   ldab 0bc6
10273 D021 4F              O     clra
10274 D022 C3 0B C7        ...   addd #0bc7
10275 D025 8F              .     xgdx
10276 D026 E6 00           ..    ldab 00,x
10277 D028 4F              O     clra
10278 D029 FD 0B DD        ...   std 0bdd
10279 D02C F6 0B C5        ...   ldab 0bc5
10280 D02F 4F              O     clra
10281 D030 C3 0B C7        ...   addd #0bc7
10282 D033 8F              .     xgdx
10283 D034 E6 00           ..    ldab 00,x
10284 D036 4F              O     clra
10285 D037 FD 0B DF        ...   std 0bdf
10286 D03A F6 0B C4        ...   ldab 0bc4
10287 D03D 4F              O     clra
10288 D03E C3 0B C7        ...   addd #0bc7
10289 D041 8F              .     xgdx
10290 D042 E6 00           ..    ldab 00,x
10291 D044 4F              O     clra
10292 D045 FD 0B E1        ...   std 0be1
10293 D048 C6 02           ..    ldab #02
10294 D04A F7 0B D7        ...   stab 0bd7
10295 D04D C6 04           ..    ldab #04
10296 D04F F7 0B D8        ...   stab 0bd8
10297 D052 C6 01           ..    ldab #01
10298 D054 F7 0B D9        ...   stab 0bd9
10299 D057 C6 10           ..    ldab #10
10300 D059 F7 0B DA        ...   stab 0bda
10301 D05C C6 08           ..    ldab #08
10302 D05E F7 0B DB        ...   stab 0bdb
10303 D061 C6 20           .     ldab #20
10304 D063 F7 0B DC        ...   stab 0bdc   ;goto58 - multiply and exit
10305 ;
10306 goto58:
10307 D066 F6 0B AA        ...   ldab 0baa
10308 D069 4F              O     clra
10309 D06A 37              7     pshb
10310 D06B 36              6     psha
10311 D06C FC 0B DD        ...   ldd 0bdd
10312 D06F BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10313 D072 FD 0B DD        ...   std 0bdd
10314 D075 F6 0B AA        ...   ldab 0baa
10315 D078 4F              O     clra
10316 D079 37              7     pshb
10317 D07A 36              6     psha
10318 D07B FC 0B DF        ...   ldd 0bdf
10319 D07E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10320 D081 FD 0B DF        ...   std 0bdf
10321 D084 F6 0B AA        ...   ldab 0baa
10322 D087 4F              O     clra
10323 D088 37              7     pshb
10324 D089 36              6     psha
10325 D08A FC 0B E1        ...   ldd 0be1
10326 D08D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
10327 D090 FD 0B E1        ...   std 0be1
10328 D093 39              9     rts
10329
10330 jump66:
10331 ; initializes a big bunch of variables
10332 D094 34              4     des
10333 ; for i=0
10334 D095 30              0     tsx
10335 D096 6F 00           o.    clr 00,x
10336 ; while i <= 10
10337 D098 30              0     tsx
10338 D099 E6 00           ..    ldab 00,x
10339 D09B C1 10           ..    cmpb #10
10340 D09D 24 1B           $.    bcc 1b        ; to d0ba
10341 ; read memloc of b0c3+i
10342 D09F 30              0     tsx
10343 D0A0 E6 00           ..    ldab 00,x
10344 D0A2 4F              O     clra
10345 D0A3 C3 B0 C3        ...   addd #b0c3
10346 D0A6 8F              .     xgdx
10347 D0A7 E6 00           ..    ldab 00,x
10348 D0A9 37              7     pshb
10349 ; put value of that location into 0bc7+i
10350 D0AA 30              0     tsx
10351 D0AB E6 01           ..    ldab 01,x
10352 D0AD 4F              O     clra
10353 D0AE C3 0B C7        ...   addd #0bc7
10354 D0B1 8F              .     xgdx
10355 D0B2 33              3     pulb
10356 D0B3 E7 00           ..    stab 00,x
10357 ; loop
10358 D0B5 30              0     tsx
10359 D0B6 6C 00           l.    inc 00,x
10360 D0B8 20 DE            .    bra de        ; to d098
10361 ;
10362 D0BA C6 05           ..    ldab #05
10363 D0BC F7 0B AA        ...   stab 0baa
10364 D0BF C6 04           ..    ldab #04
10365 D0C1 F7 00 13        ...   stab 0013
10366 D0C4 C6 01           ..    ldab #01
10367 D0C6 F7 0B C4        ...   stab 0bc4
10368 D0C9 C6 03           ..    ldab #03
10369 D0CB F7 0B C5        ...   stab 0bc5
10370 D0CE C6 02           ..    ldab #02
10371 D0D0 F7 0B C6        ...   stab 0bc6
10372 D0D3 CC 00 19        ...   ldd #0019    ; 25
10373 D0D6 FD 0B DD        ...   std 0bdd
10374 D0D9 CC 00 0A        ...   ldd #000a    ; 10
10375 D0DC FD 0B DF        ...   std 0bdf
10376 D0DF CC 00 05        ...   ldd #0005    ; 5
10377 D0E2 FD 0B E1        ...   std 0be1
10378 D0E5 C6 01           ..    ldab #01
10379 D0E7 F7 0B D7        ...   stab 0bd7
10380 D0EA C6 02           ..    ldab #02
10381 D0EC F7 0B D8        ...   stab 0bd8
10382 D0EF C6 04           ..    ldab #04
10383 D0F1 F7 0B D9        ...   stab 0bd9
10384 D0F4 C6 20           .     ldab #20
10385 D0F6 F7 0B DA        ...   stab 0bda
10386 D0F9 C6 10           ..    ldab #10
10387 D0FB F7 0B DB        ...   stab 0bdb
10388 D0FE C6 08           ..    ldab #08
10389 D100 F7 0B DC        ...   stab 0bdc
10390 D103 31              1     ins
10391 D104 39              9     rts
10392
10393 motors_off:
10394 ; turns all motors off
10395 D105 34              4     des
10396 D106 CE 00 1A        ...   ldx #001a
10397 D109 1C 00 80        ..    bset 00,x, #80
10398 D10C F6 00 1A        ..    ldab 001a
10399 D10F F7 30 00        .0.   stab 3000       ; motor rows off
10400 D112 C6 C8           ..    ldab #c8        ; loop of 200 - short delay
10401 D114 30              0     tsx
10402 D115 E7 00           ..    stab 00,x
10403 D117 30              0     tsx
10404 D118 E6 00           ..    ldab 00,x
10405 D11A C1 00           ..    cmpb #00
10406 D11C 23 05           #.    bls 05          ; to d123
10407 D11E 30              0     tsx
10408 D11F 6A 00           j.    dec 00,x
10409 D121 20 F4            .    bra f4          ; to d117
10410
10411 D123 CE 10 00        ...   ldx #1000
10412 D126 1C 00 40        ..    bset 00,x, #40  ; motor columns off
10413 D129 CE 00 14        ...   ldx #0014
10414 D12C 1D 00 20        ..    bclr 00,x, #20  ; motors col 8 off
10415 D12F CE 00 14        .     ldx #0014
10416 D132 1D 00 40        ..    bclr 00,x, #40  ; motors col 9 off
10417 D135 F6 00 14        ...   ldab 0014
10418 D138 F7 38 00        .8.   stab 3800       ; motors off
10419 D13B 31              1     ins
10420 D13C 39              9     rts
10421
10422 jump34:
10423 ; turn on the motor of the slot given in memory location 0006
10424 D13D F6 00 06        ...   ldab 0006
10425 D140 4F              O     clra
10426 D141 CE 00 0A        ...   ldx #000a
10427 D144 02              .     idiv
10428 D145 8F              .     xgdx
10429 D146 CB 01           ..    addb #01   ; we live in an odd world?
10430 D148 F7 00 5F        .._   stab 005f  ; slot number /10
10431 D14B F6 00 06        ...   ldab 0006
10432 D14E 4F              O     clra
10433 D14F CE 00 0A        ...   ldx #000a
10434 D152 02              .     idiv
10435 D153 F7 00 5E        ..^   stab 005e   ; slot number%10
10436 D156 F6 00 5E        ..^   ldab 005e
10437 D159 C1 05           ..    cmpb #05    ; there is not row 5
10438 D15B 23 03           #.    bls 03
10439 D15D 7A 00 5E        z.^   dec 005e    ; make it row 4
10440 D160 F6 00 5E        ..^   ldab 005e
10441 D163 4F              O     clra
10442 D164 C3 B1 23        ..#   addd #b123   ; powers of 2
10443 D167 8F              .     xgdx
10444 D168 E6 00           ..    ldab 00,x
10445 D16A 4F              O     clra
10446 D16B 37              7     pshb
10447 D16C 36              6     psha
10448 D16D F6 00 5F        .._   ldab 005f
10449 D170 4F              O     clra
10450 D171 C3 B1 23        ..#   addd #b123   ; powers of 2
10451 D174 8F              .     xgdx
10452 D175 E6 00           ..    ldab 00,x
10453 D177 4F              O     clra
10454 D178 17              .     tba
10455 D179 5F              _     clrb
10456 D17A 30              0     tsx
10457 D17B E3 00           ..    addd 00,x
10458 D17D 38              8     pulx
10459 D17E FD 00 58        ..X   std 0058
10460 ;
10461 ; i=0
10462 D181 7F 00 1C        ...   clr 001c
10463 ; while i < 16, do
10464 D184 F6 00 1C        ...   ldab 001c
10465 D187 C1 10           ..    cmpb #10
10466 D189 24 37           $7    bcc 37         ; to d1c2
10467 D18B F6 00 58        ..X   ldab 0058
10468 D18E 2C 0E           ,.    bge 0e         ; to d19e
10469 ;
10470 D190 CE 00 14        ...   ldx #0014
10471 D193 1C 00 10        ...   bset 00,x, #10
10472 D196 F6 00 14        ...   ldab 0014
10473 D199 F7 38 00        .8.   stab 3800      ; set high motor serial data
10474 D19C 20 0C            .    bra 0c         ; to d1aa
10475 ;
10476 D19E CE 00 14        ...   ldx #0014
10477 D1A1 1D 00 10        ..    bclr 00,x, #10
10478 D1A4 F6 00 14        ...   ldab 0014
10479 D1A7 F7 38 00        .8.   stab 3800      ; set low motor serial data
10480 ;
10481 ; send a clock pulse
10482 D1AA CE 10 00        ...   ldx #1000
10483 D1AD 1C 00 20        ..    bset 00,x, #20
10484 D1B0 CE 10 00         .    ldx #1000
10485 D1B3 1D 00           ..    bclr 00,x, #20
10486 ;
10487 ; get the next bit ready to send
10488 D1B6 FC 00 58        .     ldd 0058
10489 D1B9 05              .     asld
10490 D1BA FD 00 58        ..X   std 0058
10491 D1BD 7C 00 1C        |..   inc 001c
10492 D1C0 20 C2            .    bra c2
10493 ; if this is column 8 (9 for pascal programmers ;)
10494 D1C2 F6 00 5F        .._   ldab 005f
10495 D1C5 C1 09           ..    cmpb #09
10496 D1C7 26 0E           &.    bne 0e         ; to d1d7
10497 D1C9 CE 00 14        ...   ldx #0014
10498 D1CC 1C 00 20        ...   bset 00,x, #20
10499 D1CF F6 00 14        .     ldab 0014
10500 D1D2 F7 38 00        .8.   stab 3800      ; say its column 8
10501 D1D5 20 13            .    bra 13         ; to d1ea
10502 ; if this is column 9 (denoted as 10)
10503 D1D7 F6 00 5F        .._   ldab 005f
10504 D1DA C1 0A           ..    cmpb #0a
10505 D1DC 26 0C           &.    bne 0c
10506 D1DE CE 00 14        ...   ldx #0014
10507 D1E1 1C 00 40        ..    bset 00,x, #40 ; say its column 9
10508 D1E4 F6 00 14        ...   ldab 0014
10509 D1E7 F7 38 00        .8.   stab 3800
10510 ; clear the motor clock
10511 D1EA CE 10 00        ...   ldx #1000
10512 D1ED 1D 00 40        ..    bclr 00,x, #40 ; motor clock line low
10513 ; clear motor row output enable
10514 D1F0 CE 00 1A        ...   ldx #001a
10515 D1F3 1D 00           ..    bclr 00,x, #80
10516 D1F6 F6 00 1A        ...   ldab 001a
10517 D1F9 F7 30 00        .0.   stab 3000      ; motor driver outputs enable
10518 D1FC 39              9     rts
10519
10520 jump90:
10521 D1FD CC 40 00        .@.   ldd #4000
10522 D200 37              7     pshb
10523 D201 36              6     psha
10524 D202 F6 00 06        ...   ldab 0006
10525 D205 4F              O     clra
10526 D206 05              .     asld
10527 D207 C3 08 00        ...   addd #0800
10528 D20A 38              8     pulx
10529 D20B 8F              .     xgdx
10530 D20C AA 00           ..    ora 00,x
10531 D20E EA 01           ..    orb 01,x
10532 D210 ED 00           ..    std 00,x
10533 D212 39              9     rts
10534
10535 jump45:
10536 ; dispense an item from slot 0006
10537 D213 F6 00 1F        ...   ldab 001f
10538 D216 C4 04           ..    andb #04
10539 D218 26 12           &.    bne 12       ; to d22c
10540 D21A F6 0B C0        ...   ldab 0bc0
10541 D21D C4 10           ..    andb #10     ; have link master price holding
10542 D21F 26 0B           &.    bne 0b       ; to d22c
10543 D221 CE 00 00        ...   ldx #0000
10544 D224 3C              <     pshx
10545 D225 FC 00 44        ..D   ldd 0044
10546 D228 BD BE 9E        ...   jsr be9e             ;jump50 - write slot & price to screen?
10547 D22B 38              8     pulx
10548 ;
10549 D22C BD D3 11        ...   jsr d311             ;jump30 - test position exists
10550 D22F 83 00 00        ...   subd #0000
10551 D232 27 13           '.    beq 13       ; to d247
10552 D234 F6 00 06        ...   ldab 0006
10553 D237 BD D4 68        ..h   jsr d468             ;jump51 - lookup in 0800 table & and with 8000
10554 D23A 83 00 00        ...   subd #0000
10555 D23D 27 05           '.    beq 05
10556 D23F 8D BC           ..    bsr bc       ;jump90 - or entry in 0800 table of slot with #4000
10557 D241 BD D6 3C        ..<   jsr d63c             ;jump33 - as above, but with #0400
10558 D244 5F              _     clrb
10559 D245 4F              O     clra
10560 D246 39              9     rts
10561 ;
10562 D247 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10563 D24A C6 3C           .<    ldab #3c     ; 60
10564 D24C F7 00 2E        ...   stab 002e
10565 D24F C6 41           .A    ldab #41     ; 65
10566 D251 F7 00 31        ..1   stab 0031
10567 D254 CE 00 1B        ...   ldx #001b
10568 D257 1D 00 08        ...   bclr 00,x #08
10569 goto59:
10570 D25A F6 00 1B        ...   ldab 001b
10571 D25D C4 08           ..    andb #08
10572 D25F 26 22           &"    bne 22       ; to d283
10573 D261 F6 00 2E        ...   ldab 002e
10574 D264 C1 35           .5    cmpb #35     ; 53
10575 D266 23 10           #.    bls 10
10576 D268 BD D5 70        ..p   jsr d570             ;jump35 - check home sensor departed
10577 D26B 83 00 00        ...   subd #0000
10578 D26E 27 06           '.    beq 06       ; to d276
10579 D270 CE 00 1B        ...   ldx #001b
10580 D273 1C 00 08        ...   bset 00,x, #08
10581 D276 20 0B            .    bra 0b       ; to d283
10582 ; something went afoul. mark the motor as bad?
10583 D278 BD D1 05        ...   jsr d105             ;motors_off
10584 D27B 8D 80           ..    bsr 80       ;jump90 - mark motor as faulty?
10585 D27D BD D6 3C        ..<   jsr d63c             ;jump33 - mark motor as faulty?
10586 D280 5F              _     clrb
10587 D281 4F              O     clra
10588 D282 39              9     rts
10589 ;
10590 D283 F6 00 2E        ...   ldab 002e
10591 D286 C1 36           .6    cmpb #36     ; 54
10592 D288 24 56           $V    bcc 56       ; to d2e0
10593 D28A BD D5 F7        ...   jsr d5f7             ;jump108 - check motor overcurrent
10594 D28D 83 00 00        ...   subd #0000
10595 D290 27 4E           'N    beq 4e       ; to d2e0
10596 D292 BD D5 B0        ...   jsr d5b0             ;jump31 - check home sensor returned
10597 D295 83 00 00        ...   subd #0000
10598 D298 27 46           'F    beq 46       ; to d2e0
10599 D29A BD D1 05        ...   jsr d105             ;motors_off
10600 D29D F6 00 2E        ...   ldab 002e
10601 D2A0 C1 32           .2    cmpb #32
10602 D2A2 22 07           ".    bhi 07       ; to d2ab
10603 D2A4 8D 6B           .k    bsr 6b       ;jump30 - test motor overvoltage?
10604 D2A6 83 00 00        ...   subd #0000
10605 D2A9 27 0C           '.    beq 0c       ; to d2b7
10606 D2AB BD D1 05        ...   jsr d105             ;motors_off
10607 D2AE BD D1 FD        ...   jsr d1fd             ;jump90 - mark motor as faulty?
10608 D2B1 BD D6 3C        ..<   jsr d63c             ;jump33 - mark motor as faulty?
10609 D2B4 5F              _     clrb
10610 D2B5 4F              O     clra
10611 D2B6 39              9     rts
10612 ;
10613 D2B7 F6 00 06        ...   ldab 0006
10614 D2BA 4F              O     clra
10615 D2BB C3 0E 06        ...   addd #0e06
10616 D2BE 8F              .     xgdx
10617 D2BF 6C 00           l.    inc 00,x
10618 D2C1 F6 00 06        ...   ldab 0006
10619 D2C4 4F              O     clra
10620 D2C5 C3 0E 06        ...   addd #0e06
10621 D2C8 8F              .     xgdx
10622 D2C9 E6 00           ..    ldab 00,x
10623 D2CB C1 64           .d    cmpb #64
10624 D2CD 23 0D           #.    bls 0d
10625 D2CF 5F              _     clrb
10626 D2D0 37              7     pshb
10627 D2D1 F6 00 06        ...   ldab 0006
10628 D2D4 4F              O     clra
10629 D2D5 C3 0E 06        ...   addd #0e06
10630 D2D8 8F              .     xgdx
10631 D2D9 33              3     pulb
10632 D2DA E7 00           ..    stab 00,x
10633 D2DC CC 00 01        ...   ldd #0001
10634 D2DF 39              9     rts
10635 ;
10636 D2E0 F6 00 2E        ...   ldab 002e
10637 D2E3 26 14           &.    bne 14
10638 D2E5 BD D5 F7        ...   jsr d5f7             ;jump108 - check motor overcurrent status
10639 D2E8 83 00 00        ...   subd #0000
10640 D2EB 26 0C           &.    bne 0c
10641 D2ED BD D1 05        ...   jsr d105             ;motors_off
10642 D2F0 BD D1 FD        ...   jsr d1fd             ;jump90
10643 D2F3 BD D6 26        ..&   jsr d626             ;jump91
10644 D2F6 5F              _     clrb
10645 D2F7 4F              O     clra
10646 D2F8 39              9     rts
10647 ;
10648 D2F9 F6 00 2E        ...   ldab 002e
10649 D2FC 26 0C           &.    bne 0c
10650 D2FE BD D1 05        ...   jsr d105             ;motors_off
10651 D301 BD D1 FD        ...   jsr d1fd             ;jump90
10652 D304 BD D6 3C        ..<   jsr d63c             ;jump33
10653 D307 5F              _     clrb
10654 D308 4F              O     clra
10655 D309 39              9     rts
10656 ;
10657 D30A 7E D2 5A        ~.Z   jmp d25a             ;goto59 - try again?
10658 D30D BD E6 1B        ...   jsr e61b             ;jump4
10659 D310 39              9     rts
10660
10661 jump30:
10662 ; tests to see if a motor exists here
10663 D311 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10664 D314 7F 00 1C        ...   clr 001c
10665 D317 7F 00 18        ...   clr 0018
10666 D31A F6 10 0A        ...   ldab 100a
10667 D31D C4 02           ..    andb #02     ; motor overvoltage sense
10668 D31F 27 13           '.    beq 13       ; to d334
10669 D321 7C 00 1C        |..   inc 001c
10670 D324 F6 00 1C        ...   ldab 001c
10671 D327 C1 FF           ..    cmpb #ff
10672 D329 26 07           &.    bne 07
10673 D32B BD D1 05        ...   jsr d105             ;motors_off
10674 D32E CC 00 01        ...   ldd #0001
10675 D331 39              9     rts
10676 ;
10677 D332 20 10            .    bra 10      ; to d344
10678 D334 7C 00 18        |..   inc 0018
10679 D337 F6 00 18        ...   ldab 0018
10680 D33A C1 08           ..    cmpb #08
10681 D33C 26 06           &.    bne 06       ; continue
10682 D33E BD D1 05        ...   jsr d105             ;motors_off
10683 D341 5F              _     clrb
10684 D342 4F              O     clra
10685 D343 39              9     rts
10686 D344 20 D4            .    bra d4        ; continue
10687
10688 jump43:
10689 D346 3C              <     pshx
10690 D347 3C              <     pshx
10691 D348 3C              <     pshx
10692 D349 34              4     des
10693 D34A F6 0E 6D        ..m   ldab 0e6d
10694 D34D C1 01           ..    cmpb #01
10695 D34F 27 03           '.    beq 03
10696 D351 7E D4 07        ~..   jmp d407             ;goto60
10697 D354 F6 00 06        ...   ldab 0006
10698 D357 4F              O     clra
10699 D358 05              .     asld
10700 D359 C3 08 C8        ...   addd #08c8
10701 D35C 8F              .     xgdx
10702 D35D EC 00           ..    ldd 00,x
10703 D35F C4 7F           ..    andb #7f
10704 D361 4F              O     clra
10705 D362 FD 0E 6B        ..k   std 0e6b
10706 D365 7F 00 06        ...   clr 0006
10707 goto62:
10708 D368 F6 00 06        ...   ldab 0006
10709 D36B C1 3E           .>    cmpb #3e
10710 D36D 26 03           &.    bne 03
10711 D36F 7E D4 02        ~..   jmp d402             ;goto61
10712 D372 BD 97 6F        ..o   jsr 976f             ;jump41
10713 D375 F6 00 06        ...   ldab 0006
10714 D378 4F              O     clra
10715 D379 05              .     asld
10716 D37A C3 08 C8        ...   addd #08c8
10717 D37D 8F              .     xgdx
10718 D37E EC 00           ..    ldd 00,x
10719 D380 C4 7F           ..    andb #7f
10720 D382 4F              O     clra
10721 D383 B3 0E 6B        ..k   subd 0e6b
10722 D386 26 77           &w    bne 77
10723 D388 F6 00 06        ...   ldab 0006
10724 D38B 4F              O     clra
10725 D38C CE 00 0A        ...   ldx #000a
10726 D38F 02              .     idiv
10727 D390 30              0     tsx
10728 D391 E7 01           ..    stab 01,x
10729 D393 E6 01           ..    ldab 01,x
10730 D395 C1 01           ..    cmpb #01
10731 D397 26 07           &.    bne 07
10732 D399 C6 40           .@    ldab #40
10733 D39B 30              0     tsx
10734 D39C E7 00           ..    stab 00,x
10735 D39E 20 0C            .    bra 0c
10736 D3A0 30              0     tsx
10737 D3A1 E6 01           ..    ldab 01,x
10738 D3A3 C1 02           ..    cmpb #02
10739 D3A5 26 05           &.    bne 05
10740 D3A7 C6 80           ..    ldab #80
10741 D3A9 30              0     tsx
10742 D3AA E7 00           ..    stab 00,x
10743 D3AC BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10744 D3AF 5F              _     clrb
10745 D3B0 4F              O     clra
10746 D3B1 30              0     tsx
10747 D3B2 ED 03           ..    std 03,x
10748 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10749 ;decrement 03/05.   Do this 10 times.
10750 D3B4 CC 00 0A        ...   ldd #000a
10751 D3B7 ED 05           ..    std 05,x
10752 loop:
10753 D3B9 30              0     tsx
10754 D3BA EC 05           ..    ldd 05,x
10755 D3BC 2F 23           /#    ble 23       ; to D3E1
10756 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10757 D3C1 30              0     tsx
10758 D3C2 E4 00           ..    andb 00,x
10759 D3C4 26 09           &.    bne d3cf
10760 D3C6 30              0     tsx
10761 D3C7 6C 04           l.    inc 04,x
10762 D3C9 26 0C           &.    bne 0c
10763 D3CB 6C 03           l.    inc 03,x
10764 D3CD 20 08            .    bra d3d7
10765 D3CF 30              0     tsx
10766 D3D0 EC 03           ..    ldd 03,x
10767 D3D2 83 00 01        ...   subd #0001
10768 D3D5 ED 03           ..    std 03,x
10769 D3D7 30              0     tsx
10770 D3D8 EC 05           ..    ldd 05,x
10771 D3DA 83 00 01        ...   subd #0001
10772 D3DD ED 05           ..    std 05,x
10773 D3DF 20 D8            .    bra loop     ;d3b9
10774 D3E1 BD D1 05        ...   jsr d105             ;motors_off - turn motors off
10775 D3E4 30              0     tsx
10776 D3E5 EC 03           ..    ldd 03,x
10777 D3E7 2C 16           ,.    bge 16
10778 D3E9 F6 00 06        ...   ldab 0006
10779 D3EC 8D 7A           .z    bsr dest 7a
10780 D3EE 83 00 00        ...   subd #0000
10781 D3F1 27 0C           '.    beq 0c
10782 D3F3 BD D5 61        ..a   jsr d561             ;jump42
10783 D3F6 83 00 00        ...   subd #0000
10784 D3F9 26 04           &.    bne 04
10785 D3FB 5F              _     clrb
10786 D3FC 4F              O     clra
10787 D3FD 20 64            d    bra 64
10788 D3FF 7E D3 68        ~.h   jmp d368             ;goto62
10789 goto61:
10790 D402 CC 00 01        ...   ldd #0001
10791 D405 20 5C            \    bra 5c
10792 goto60:
10793 D407 F6 00 06        ...   ldab 0006
10794 D40A C1 13           ..    cmpb #13
10795 D40C 27 1C           '.    beq 1c
10796 D40E F6 00 06        ...   ldab 0006
10797 D411 C1 1D           ..    cmpb #1d
10798 D413 27 15           '.    beq 15
10799 D415 F6 00 06        ...   ldab 0006
10800 D418 C1 27           .'    cmpb #27
10801 D41A 27 0E           '.    beq 0e
10802 D41C F6 00 06        ...   ldab 0006
10803 D41F C1 31           .1    cmpb #31
10804 D421 27 07           '.    beq 07
10805 D423 F6 00 06        ...   ldab 0006
10806 D426 C1 3B           .;    cmpb #3b
10807 D428 26 37           &7    bne 37
10808 D42A BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
10809 D42D 7F 00 1C        ...   clr 001c
10810 D430 7F 00 18        ...   clr 0018
10811 D433 F6 18 00        ...   ldab 1800
10812 D436 C4 40           .@    andb #40
10813 D438 26 14           &.    bne 14
10814 D43A 7C 00 1C        |..   inc 001c
10815 D43D F6 00 1C        ...   ldab 001c
10816 D440 C1 FF           ..    cmpb #ff
10817 D442 26 08           &.    bne 08
10818 D444 BD D1 05        ...   jsr d105             ;motors_off
10819 D447 CC 00 01        ...   ldd #0001
10820 D44A 20 17            .    bra 17
10821 D44C 20 11            .    bra 11
10822 D44E 7C 00 18        |..   inc 0018
10823 D451 F6 00 18        ...   ldab 0018
10824 D454 C1 08           ..    cmpb #08
10825 D456 26 07           &.    bne 07
10826 D458 BD D1 05        ...   jsr d105             ;motors_off
10827 D45B 5F              _     clrb
10828 D45C 4F              O     clra
10829 D45D 20 04            .    bra 04
10830 D45F 20 D2            .    bra d2
10831 D461 5F              _     clrb
10832 D462 4F              O     clra
10833 D463 38              8     pulx
10834 D464 38              8     pulx
10835 D465 38              8     pulx
10836 D466 31              1     ins
10837 D467 39              9     rts
10838
10839 jump51:
10840 D468 37              7     pshb
10841 D469 30              0     tsx
10842 D46A E6 00           ..    ldab 00,x
10843 D46C 4F              O     clra
10844 D46D 05              .     asld
10845 D46E C3 08 00        ...   addd #0800
10846 D471 8F              .     xgdx
10847 D472 EC 00           ..    ldd 00,x
10848 D474 5F              _     clrb
10849 D475 84 80           ..    anda #80
10850 D477 31              1     ins
10851 D478 39              9     rts
10852
10853 jump67:
10854 D479 7F 00 1C        ...   clr 001c
10855 ; begin loop
10856 D47C F6 00 1C        ...   ldab 001c
10857 D47F C1 64           .d    cmpb #64   ; to 100
10858 D481 24 1A           $.    bcc 1a     ; to d49d
10859 D483 CC FF 7F        ...   ldd #ff7f
10860 D486 37              7     pshb
10861 D487 36              6     psha
10862 D488 F6 00 1C        ...   ldab 001c
10863 D48B 4F              O     clra
10864 D48C 05              .     asld
10865 D48D C3 08 C8        ...   addd #08c8
10866 D490 38              8     pulx
10867 D491 8F              .     xgdx
10868 D492 A4 00           ..    anda 00,x
10869 D494 E4 01           ..    andb 01,x
10870 D496 ED 00           ..    std 00,x
10871 D498 7C 00 1C        |..   inc 001c
10872 D49B 20 DF            .    bra df  ; to d47c
10873 D49D 7F 00 05        ...   clr 0005
10874 goto65: ; begin motor count loop
10875 D4A0 F6 00 05        ...   ldab 0005
10876 D4A3 C1 50           .P    cmpb #50     ; 80
10877 D4A5 25 03           %.    bcs 03
10878 D4A7 7E D5 60        ~.`   jmp d560             ;goto63 - exit
10879 D4AA F6 00 05        ...   ldab 0005
10880 D4AD 4F              O     clra
10881 D4AE C3 B0 D3        ...   addd #b0d3   ;motor lookup table
10882 D4B1 8F              .     xgdx
10883 D4B2 E6 00           ..    ldab 00,x
10884 D4B4 F7 00 06        ...   stab 0006
10885 D4B7 BD D3 11        ...   jsr d311             ;jump30 - test position exists
10886 D4BA 83 00 00        ...   subd #0000
10887 D4BD 27 03           '.    beq 03
10888 D4BF 7E D5 45        ~.E   jmp d545             ;goto64
10889 D4C2 F6 00 06        ...   ldab 0006
10890 D4C5 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
10891 D4C8 83 00 00        ...   subd #0000
10892 D4CB 26 78           &x    bne 78
10893 D4CD BD D5 B0        ...   jsr d5b0             ;jump31
10894 D4D0 83 00 00        ...   subd #0000
10895 D4D3 26 06           &.    bne 06
10896 D4D5 BD D1 FD        ...   jsr d1fd             ;jump90
10897 D4D8 BD D6 3C        ..<   jsr d63c             ;jump33
10898 D4DB CC 80 00        ...   ldd #8000
10899 D4DE 37              7     pshb
10900 D4DF 36              6     psha
10901 D4E0 F6 00 06        ...   ldab 0006
10902 D4E3 4F              O     clra
10903 D4E4 05              .     asld
10904 D4E5 C3 08 00        ...   addd #0800
10905 D4E8 38              8     pulx
10906 D4E9 8F              .     xgdx
10907 D4EA AA 00           ..    ora 00,x
10908 D4EC EA 01           ..    orb 01,x
10909 D4EE ED 00           ..    std 00,x
10910 D4F0 F6 00 06        ...   ldab 0006
10911 D4F3 4F              O     clra
10912 D4F4 05              .     asld
10913 D4F5 C3 08 00        ...   addd #0800
10914 D4F8 8F              .     xgdx
10915 D4F9 EC 00           ..    ldd 00,x
10916 D4FB C4 FF           ..    andb #ff
10917 D4FD 84 3F           .?    anda #3f
10918 D4FF 83 27 0F        .'.   subd #270f
10919 D502 23 1A           #.    bls 1a
10920 D504 BD D1 FD        ...   jsr d1fd             ;jump90
10921 D507 CC 01 00        ...   ldd #0100
10922 D50A 37              7     pshb
10923 D50B 36              6     psha
10924 D50C F6 00 06        ...   ldab 0006
10925 D50F 4F              O     clra
10926 D510 05              .     asld
10927 D511 C3 08 C8        ...   addd #08c8
10928 D514 38              8     pulx
10929 D515 8F              .     xgdx
10930 D516 AA 00           ..    ora 00,x
10931 D518 EA 01           ..    orb 01,x
10932 D51A ED 00           ..    std 00,x
10933 D51C 20 25            %    bra 25
10934 D51E F6 00 06        ...   ldab 0006
10935 D521 4F              O     clra
10936 D522 05              .     asld
10937 D523 C3 08 C8        ...   addd #08c8
10938 D526 8F              .     xgdx
10939 D527 EC 00           ..    ldd 00,x
10940 D529 C4 7F           ..    andb #7f
10941 D52B F7 00 06        ...   stab 0006
10942 D52E CC 00 80        ...   ldd #0080
10943 D531 37              7     pshb
10944 D532 36              6     psha
10945 D533 F6 00 06        ...   ldab 0006
10946 D536 4F              O     clra
10947 D537 05              .     asld
10948 D538 C3 08 C8        ...   addd #08c8
10949 D53B 38              8     pulx
10950 D53C 8F              .     xgdx
10951 D53D AA 00           ..    ora 00,x
10952 D53F EA 01           ..    orb 01,x
10953 D541 ED 00           ..    std 00,x
10954 D543 20 15            .    bra 15
10955 goto64: ; mark a motor position as valid?
10956 D545 CC 7F FF        ...   ldd #7fff
10957 D548 37              7     pshb
10958 D549 36              6     psha
10959 D54A F6 00 06        ...   ldab 0006
10960 D54D 4F              O     clra
10961 D54E 05              .     asld
10962 D54F C3 08 00        ...   addd #0800
10963 D552 38              8     pulx
10964 D553 8F              .     xgdx
10965 D554 A4 00           ..    anda 00,x
10966 D556 E4 01           ..    andb 01,x
10967 D558 ED 00           ..    std 00,x
10968 D55A 7C 00 05        |..   inc 0005
10969 D55D 7E D4 A0        ~..   jmp d4a0             ;goto65 - loop again
10970 goto63:
10971 D560 39              9     rts
10972
10973 jump42:
10974 D561 F6 00 06        ...   ldab 0006
10975 D564 4F              O     clra
10976 D565 05              .     asld
10977 D566 C3 08 00        ...   addd #0800
10978 D569 8F              .     xgdx
10979 D56A EC 00           ..    ldd 00,x
10980 D56C 5F              _     clrb
10981 D56D 84 40           .@    anda #40
10982 D56F 39              9     rts
10983
10984 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10985 ;loops, return 1 (fault?), else return 0 (OK?).
10986 ;005f is the row number in this routine.  scratch variable?
10987 ;looks like 0006 is the slot number.
10988 ;this is called twice
10989 jump35:
10990 D570 F6 00 06        ...   ldab 0006
10991 D573 4F              O     clra
10992 D574 CE 00 0A        ...   ldx #000a
10993 D577 02              .     idiv
10994 D578 F7 00 5F        .._   stab 005f
10995 D57B F6 00 5F        .._   ldab 005f
10996 D57E C1 05           ..    cmpb #05
10997 D580 23 03           #.    bls d585
10998 D582 7A 00 5F        z._   dec 005f
10999 D585 F6 00 5F        .._   ldab 005f    ;row number
11000 D588 4F              O     clra
11001 D589 C3 B1 23        ..#   addd #b123
11002 D58C 8F              .     xgdx
11003 D58D E6 00           ..    ldab 00,x    ;get bit for this row
11004 D58F F7 00 5E        ..^   stab 005e
11005 D592 7F 00 1C        ...   clr 001c
11006 loop:
11007 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
11008 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
11009 D59B 27 10           '.    beq d5ad
11010 D59D 7C 00 1C        |..   inc 001c
11011 D5A0 F6 00 1C        ...   ldab 001c
11012 D5A3 C1 05           ..    cmpb #05
11013 D5A5 26 04           &.    bne d5ab
11014 D5A7 CC 00 01        ...   ldd #0001
11015 D5AA 39              9     rts
11016
11017 D5AB 20 E8            .    bra loop     ;d595
11018 D5AD 5F              _     clrb
11019 D5AE 4F              O     clra
11020 D5AF 39              9     rts
11021
11022 ;This does almost the same - check the home sensor for this row (slot number
11023 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
11024 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
11025 ;If it is ever 0, return 0.
11026 ;005f is the row number
11027 ;005e is the bit mask for this row
11028 jump31:
11029 D5B0 F6 00 06        ...   ldab 0006
11030 D5B3 4F              O     clra
11031 D5B4 CE 00 0A        ...   ldx #000a
11032 D5B7 02              .     idiv
11033 D5B8 F7 00 5F        .._   stab 005f
11034 D5BB F6 00 5F        .._   ldab 005f
11035 D5BE C1 05           ..    cmpb #05
11036 D5C0 23 03           #.    bls 03
11037 D5C2 7A 00 5F        z._   dec 005f
11038 D5C5 F6 00 5F        .._   ldab 005f
11039 D5C8 4F              O     clra
11040 D5C9 C3 B1 23        ..#   addd #b123
11041 D5CC 8F              .     xgdx
11042 D5CD E6 00           ..    ldab 00,x
11043 D5CF F7 00 5E        ..^   stab 005e
11044 D5D2 7F 00 1C        ...   clr 001c
11045 loop:
11046 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
11047 D5D8 F4 00 5E        ..^   andb 005e
11048 D5DB 26 17           &.    bne d5f4
11049 D5DD F6 10 0A        ...   ldab 100a
11050 D5E0 C4 01           ..    andb #01
11051 D5E2 27 10           '.    beq d5f4
11052 D5E4 7C 00 1C        |..   inc 001c
11053 D5E7 F6 00 1C        ...   ldab 001c
11054 D5EA C1 05           ..    cmpb #05
11055 D5EC 26 04           &.    bne d5f2
11056 D5EE CC 00 01        ...   ldd #0001
11057 D5F1 39              9     rts
11058
11059 D5F2 20 E1            .    bra loop     ;d5d5
11060 D5F4 5F              _     clrb
11061 D5F5 4F              O     clra
11062 D5F6 39              9     rts
11063
11064 jump108:
11065 ; check motor overcurrent status
11066 D5F7 C6 07           ..    ldab #07
11067 D5F9 F7 00 1C        ...   stab 001c
11068 D5FC 7F 00 18        ...   clr 0018
11069 ;
11070 D5FF F6 00 1C        ...   ldab 001c
11071 D602 27 1E           '.    beq 1e        ; to d622
11072 D604 7A 00 1C        z..   dec 001c
11073 D607 F6 10 0A        ...   ldab 100a
11074 D60A C4 01           ..    andb #01      ; motor overcurrent sense!
11075 D60C 26 12           &.    bne 12        ; to d620
11076 D60E C6 07           ..    ldab #07
11077 D610 F7 00 1C        ...   stab 001c
11078 D613 7C 00 18        |..   inc 0018
11079 D616 F6 00 18        ...   ldab 0018
11080 D619 C1 05           ..    cmpb #05
11081 D61B 26 03           &.    bne 03
11082 D61D 5F              _     clrb
11083 D61E 4F              O     clra
11084 D61F 39              9     rts
11085 ;
11086 D620 20 DD            .    bra dd        ; to d5ff
11087 D622 CC 00 01        ...   ldd #0001
11088 D625 39              9     rts
11089
11090 jump91:
11091 ; ORs memory location 08c8+(slotnum*2) with #0200
11092 D626 CC 02 00        ...   ldd #0200
11093 D629 37              7     pshb
11094 D62A 36              6     psha
11095 D62B F6 00 06        ...   ldab 0006
11096 D62E 4F              O     clra
11097 D62F 05              .     asld
11098 D630 C3 08 C8        ...   addd #08c8
11099 D633 38              8     pulx
11100 D634 8F              .     xgdx
11101 D635 AA 00           ..    ora 00,x
11102 D637 EA 01           ..    orb 01,x
11103 D639 ED 00           ..    std 00,x
11104 D63B 39              9     rts
11105
11106 jump33:
11107 ; ORs memory location 08c8+(slotnum*2) with #0400
11108 D63C CC 04 00        ...   ldd #0400
11109 D63F 37              7     pshb
11110 D640 36              6     psha
11111 D641 F6 00 06        ...   ldab 0006
11112 D644 4F              O     clra
11113 D645 05              .     asld
11114 D646 C3 08 C8        ...   addd #08c8
11115 D649 38              8     pulx
11116 D64A 8F              .     xgdx
11117 D64B AA 00           ..    ora 00,x
11118 D64D EA 01           ..    orb 01,x
11119 D64F ED 00           ..    std 00,x
11120 D651 39              9     rts
11121
11122 jump5:
11123 ; Sends a pulse to the bill acceptor
11124 D652 CE 00 1A        ...   ldx #001a
11125 D655 1C 00 01        ..    bset 00,x, #01
11126 D658 F6 00 1A        ...   ldab 001a
11127 D65B F7 30 00        .0.   stab 3000
11128 D65E CE 00 14        ...   ldx #0014
11129 D661 1D 00 01        ..    bclr 00,x, #01
11130 D664 F6 00 14        ...   ldab 0014
11131 D667 F7 38 00        .8.   stab 3800
11132 D66A 39              9     rts
11133
11134 jump107:
11135 D66B F6 0B C0        ...   ldab 0bc0
11136 D66E C4 08           ..    andb #08   ; we have a bill validator?
11137 D670 27 07           '.    beq 07     ; if not, to d679
11138 D672 F6 00 7D        ..}   ldab 007d
11139 D675 27 02           '.    beq 02
11140 D677 20 F9            .    bra f9     ; to d672 - wait for a bill?
11141 D679 F6 00 15        ...   ldab 0015
11142 D67C 2D 77           -w    blt 77     ; return
11143 D67E FC 00 40        ..@   ldd 0040
11144 D681 F3 00 3E        ..>   addd 003e
11145 D684 B3 00 0F        ...   subd 000f
11146 D687 24 4F           $O    bcc 4f
11147 D689 F6 0B C0        ...   ldab 0bc0
11148 D68C C4 01           ..    andb #01
11149 D68E 26 07           &.    bne 07
11150 D690 F6 0B C0        ...   ldab 0bc0
11151 D693 C4 04           ..    andb #04
11152 D695 27 0C           '.    beq 0c
11153 D697 CE 00 1A        ...   ldx #001a
11154 D69A 1D 00 01        ..    bclr 00,x, #01
11155 D69D F6 00 1A        ...   ldab 001a
11156 D6A0 F7 30 00        .0.   stab 3000    ; changer accept' line
11157 D6A3 F6 0B C0        ...   ldab 0bc0
11158 D6A6 C4 08           ..    andb #08
11159 D6A8 27 20           '     beq 20
11160 D6AA F6 0C D9        ...   ldab 0cd9
11161 D6AD C1 03           ..    cmpb #03
11162 D6AF 23 19           #.    bls 19
11163 D6B1 FC 0B EF        ...   ldd 0bef
11164 D6B4 83 00 64        ..d   subd #0064
11165 D6B7 25 11           %.    bcs 11
11166 D6B9 CE 00 14        ...   ldx #0014
11167 D6BC 1C 00 02        ..    bset 00,x, #02
11168 D6BF F6 00 14        ...   ldab 0014
11169 D6C2 F7 38 00        .8.   stab 3800    ; bill acceptor
11170 D6C5 BD C0 E0        ...   jsr c0e0             ;jump94
11171 D6C8 20 0C            .    bra 0c
11172 D6CA CE 00 14        ...   ldx #0014
11173 D6CD 1D 00 01        ..    bclr 00,x, #01
11174 D6D0 F6 00 14        ...   ldab 0014
11175 D6D3 F7 38 00        .8.   stab 3800
11176 D6D6 20 05            .    bra 05
11177 D6D8 BD D6 52        ..R   jsr d652             ;jump5
11178 D6DB 8D 53           .S    bsr dest 53
11179 D6DD F6 0B C0        ...   ldab 0bc0
11180 D6E0 C4 08           ..    andb #08
11181 D6E2 27 11           '.    beq 11
11182 D6E4 F6 0B C0        ...   ldab 0bc0
11183 D6E7 C4 40           .@    andb #40
11184 D6E9 27 0A           '.    beq 0a
11185 D6EB F6 00 15        ...   ldab 0015
11186 D6EE C4 01           ..    andb #01
11187 D6F0 27 03           '.    beq 03
11188 D6F2 BD C0 E0        ...   jsr c0e0             ;jump94
11189 D6F5 39              9     rts
11190
11191 jump106:
11192 ; puts (0cdb+0bdd)+(0cda*0bdf)+(0cd9*0be1) => 0bef
11193 ; calculates how much money we have in some coin mech.
11194 D6F6 F6 0C DB        ...   ldab 0cdb
11195 D6F9 4F              O     clra
11196 D6FA 37              7     pshb
11197 D6FB 36              6     psha
11198 D6FC FC 0B DD        ...   ldd 0bdd
11199 D6FF BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11200 D702 FD 0C EB        ...   std 0ceb     ; 0cdb * 0bdd => 0ceb
11201 D705 F6 0C DA        ...   ldab 0cda
11202 D708 4F              O     clra
11203 D709 37              7     pshb
11204 D70A 36              6     psha
11205 D70B FC 0B DF        ...   ldd 0bdf
11206 D70E BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11207 D711 FD 0C ED        ...   std 0ced     ; 0cda * 0bdf => 0ced
11208 D714 F6 0C D9        ...   ldab 0cd9
11209 D717 4F              O     clra
11210 D718 37              7     pshb
11211 D719 36              6     psha
11212 D71A FC 0B E1        ...   ldd 0be1
11213 D71D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11214 D720 FD 0C EF        ...   std 0cef     ; 0cd9 * 0be1 => 0cef
11215 D723 FC 0C EB        ...   ldd 0ceb
11216 D726 F3 0C ED        ...   addd 0ced
11217 D729 F3 0C EF        ...   addd 0cef
11218 D72C FD 0B EF        ...   std 0bef     ; 0ceb+0ced+0cef => 0bef
11219 D72F 39              9     rts
11220
11221 jump202:
11222 D730 F6 00 15        ...   ldab 0015
11223 D733 C4 1F           ..    andb #1f
11224 D735 27 49           'I    beq 49
11225 D737 FC 00 40        ..@   ldd 0040
11226 D73A F3 00 3E        ..>   addd 003e
11227 D73D B3 0B EF        ...   subd 0bef
11228 D740 23 19           #.    bls 19
11229 D742 CC B0 6B        ..k   ldd #b06b    ; "NO CHANGE"
11230 D745 BD C0 BA        ...   jsr c0ba             ;display:
11231 D748 CC 01 F4        ...   ldd #01f4
11232 D74B BD E5 71        ..q   jsr e571             ;msdelay
11233 D74E BD C5 D3        ...   jsr c5d3             ;jump6
11234 D751 CC 01 F4        ...   ldd #01f4
11235 D754 BD E5 71        ..q   jsr e571             ;msdelay
11236 D757 CC 00 01        ...   ldd #0001
11237 D75A 39              9     rts
11238 ;
11239 D75B F6 00 15        ...   ldab 0015
11240 D75E C4 04           ..    andb #04
11241 D760 27 1E           '.    beq 1e
11242 D762 F6 0E 6E        ..n   ldab 0e6e
11243 D765 26 19           &.    bne 19
11244 D767 CC B0 76        ..v   ldd #b076    ; "NO FIVES"
11245 D76A BD C0 BA        ...   jsr c0ba             ;display:
11246 D76D CC 01 F4        ...   ldd #01f4
11247 D770 BD E5 71        ..q   jsr e571             ;msdelay
11248 D773 BD C5 D3        ...   jsr c5d3             ;jump6
11249 D776 CC 01 F4        ...   ldd #01f4
11250 D779 BD E5 71        ..q   jsr e571             ;msdelay
11251 D77C CC 00 01        ...   ldd #0001
11252 D77F 39              9     rts
11253 ;
11254 D780 5F              _     clrb
11255 D781 4F              O     clra
11256 D782 39              9     rts
11257
11258 jump44:
11259 D783 F6 00 06        ...   ldab 0006
11260 D786 4F              O     clra
11261 D787 CE 00 0A        ...   ldx #000a
11262 D78A 02              .     idiv
11263 D78B C1 04           ..    cmpb #04
11264 D78D 26 0E           &.    bne 0e
11265 D78F F6 00 1D        ...   ldab 001d
11266 D792 C4 04           ..    andb #04
11267 D794 27 03           '.    beq 03
11268 D796 5F              _     clrb
11269 D797 4F              O     clra
11270 D798 39              9     rts
11271
11272 D799 CC 00 01        ...   ldd #0001
11273 D79C 39              9     rts
11274
11275 D79D 5F              _     clrb
11276 D79E 4F              O     clra
11277 D79F 39              9     rts
11278
11279 is_invalid_slot:
11280 ; validates a slot number? (return 1 if invalid)
11281 ; let i = number on stack
11282 ; if i in [9, 69, 79, 89, 99], return 1
11283 ; if 0e6d!=1 return 0
11284 ; if i%10 not in [1,2] return 1
11285 ; if i < 11 return 1
11286 ; if i <= 62 return 0
11287 ; return 1
11288 D7A0 37              7     pshb
11289 D7A1 30              0     tsx
11290 D7A2 E6 00           ..    ldab 00,x
11291 D7A4 C1 09           ..    cmpb #09     ; 9
11292 D7A6 27 18           '.    beq 18       ; to d7c0 (returns 1)
11293 D7A8 E6 00           ..    ldab 00,x
11294 D7AA C1 45           .E    cmpb #45     ; 69
11295 D7AC 27 12           '.    beq 12       ; to d7c0 (returns 1)
11296 D7AE E6 00           ..    ldab 00,x
11297 D7B0 C1 4F           .O    cmpb #4f     ; 79
11298 D7B2 27 0C           '.    beq 0c       ; to d7c0 (returns 1)
11299 D7B4 E6 00           ..    ldab 00,x
11300 D7B6 C1 59           .Y    cmpb #59     ; 89
11301 D7B8 27 06           '.    beq 06       ; to d7c0 (returns 1)
11302 D7BA E6 00           ..    ldab 00,x
11303 D7BC C1 63           .c    cmpb #63     ; 99 (also returns 1)
11304 D7BE 26 05           &.    bne 05       ; to d7c5 if not equal
11305 D7C0 CC 00 01        ...   ldd #0001
11306 D7C3 20 38            8    bra 38       ; to d7fd (return 1)
11307 D7C5 F6 0E 6D        ..m   ldab 0e6d
11308 D7C8 C1 01           ..    cmpb #01
11309 D7CA 26 2F           &/    bne 2f       ;to d7fb (return 0)
11310 D7CC 30              0     tsx
11311 D7CD E6 00           ..    ldab 00,x
11312 D7CF 4F              O     clra
11313 D7D0 CE 00 0A        ...   ldx #000a
11314 D7D3 02              .     idiv
11315 D7D4 C1 01           ..    cmpb #01
11316 D7D6 27 11           '.    beq 11      ;to d7e9 if num%10==1
11317 D7D8 30              0     tsx
11318 D7D9 E6 00           ..    ldab 00,x
11319 D7DB 4F              O     clra
11320 D7DC CE 00 0A        ...   ldx #000a
11321 D7DF 02              .     idiv
11322 D7E0 C1 02           ..    cmpb #02
11323 D7E2 27 05           '.    beq 05      ;to d7e9 if num%10==2
11324 D7E4 CC 00 01        ...   ldd #0001
11325 D7E7 20 14            .    bra 14      ; to d7fd (return 1)
11326 D7E9 30              0     tsx
11327 D7EA E6 00           ..    ldab 00,x
11328 D7EC C1 0B           ..    cmpb #0b    ; < 11
11329 D7EE 25 06           %.    bcs 06      ; return 1
11330 D7F0 E6 00           ..    ldab 00,x
11331 D7F2 C1 3E           .>    cmpb #3e    ; <= 62
11332 D7F4 23 05           #.    bls 05      ; return 0
11333 D7F6 CC 00 01        ...   ldd #0001
11334 D7F9 20 02            .    bra 02
11335 D7FB 5F              _     clrb
11336 D7FC 4F              O     clra
11337 D7FD 31              1     ins
11338 D7FE 39              9     rts
11339
11340 jump80:
11341 D7FF 7F 00 1C        ...   clr 001c
11342 D802 F6 00 1C        ...   ldab 001c
11343 D805 4F              O     clra
11344 D806 B3 00 4D        ..M   subd 004d
11345 D809 24 05           $.    bcc 05
11346 D80B 7C 00 1C        |..   inc 001c
11347 D80E 20 F2            .    bra f2
11348 D810 F6 00 1C        ...   ldab 001c
11349 D813 4F              O     clra
11350 D814 05              .     asld
11351 D815 C3 0D 1F        ...   addd #0d1f
11352 D818 8F              .     xgdx
11353 D819 EC 00           ..    ldd 00,x
11354 D81B 83 FF FF        ...   subd #ffff
11355 D81E 26 10           &.    bne 10
11356 D820 5F              _     clrb
11357 D821 4F              O     clra
11358 D822 37              7     pshb
11359 D823 36              6     psha
11360 D824 F6 00 1C        ...   ldab 001c
11361 D827 4F              O     clra
11362 D828 05              .     asld
11363 D829 C3 0D 1F        ...   addd #0d1f
11364 D82C 38              8     pulx
11365 D82D 8F              .     xgdx
11366 D82E ED 00           ..    std 00,x
11367 D830 F6 00 1C        ...   ldab 001c
11368 D833 4F              O     clra
11369 D834 05              .     asld
11370 D835 C3 0D 1F        ...   addd #0d1f
11371 D838 8F              .     xgdx
11372 D839 6C 01           l.    inc 01,x
11373 D83B 26 02           &.    bne 02
11374 D83D 6C 00           l.    inc 00,x
11375 D83F 39              9     rts
11376
11377 jump105:
11378 D840 FC 00 44        ..D   ldd 0044
11379 D843 26 03           &.    bne 03
11380 D845 7E D8 D2        ~..   jmp d8d2             ;goto66
11381 D848 FC 00 44        ..D   ldd 0044
11382 D84B 37              7     pshb
11383 D84C 36              6     psha
11384 D84D 4F              O     clra
11385 D84E 5F              _     clrb
11386 D84F 37              7     pshb
11387 D850 36              6     psha
11388 D851 CC 0D EB        ...   ldd #0deb
11389 D854 BD FB DF        ...   jsr fbdf             ;jump46
11390 D857 31              1     ins
11391 D858 31              1     ins
11392 D859 FE 0D ED        ...   ldx 0ded
11393 D85C 3C              <     pshx
11394 D85D FC 0D EB        ...   ldd 0deb
11395 D860 37              7     pshb
11396 D861 36              6     psha
11397 D862 CE E1 00        ...   ldx #e100    ; 100000000
11398 D865 3C              <     pshx
11399 D866 CC 05 F5        ...   ldd #05f5
11400 D869 37              7     pshb
11401 D86A 36              6     psha
11402 D86B 30              0     tsx
11403 D86C EC 06           ..    ldd 06,x
11404 D86E A3 02           ..    subd 02,x
11405 D870 EC 04           ..    ldd 04,x
11406 D872 E2 01           ..    sbcb 01,x
11407 D874 A2 00           ..    sbca 00,x
11408 D876 38              8     pulx
11409 D877 38              8     pulx
11410 D878 38              8     pulx
11411 D879 38              8     pulx
11412 D87A 25 11           %.    bcs 11
11413 D87C CE 1F 00        ...   ldx #1f00
11414 D87F 3C              <     pshx
11415 D880 CC FA 0A        ...   ldd #fa0a
11416 D883 37              7     pshb
11417 D884 36              6     psha
11418 D885 CC 0D EB        ...   ldd #0deb
11419 D888 BD FB DF        ...   jsr fbdf             ;jump46
11420 D88B 31              1     ins
11421 D88C 31              1     ins
11422 D88D FC 00 44        ..D   ldd 0044
11423 D890 37              7     pshb
11424 D891 36              6     psha
11425 D892 4F              O     clra
11426 D893 5F              _     clrb
11427 D894 37              7     pshb
11428 D895 36              6     psha
11429 D896 CC 0D E7        ...   ldd #0de7
11430 D899 BD FB DF        ...   jsr fbdf             ;jump46
11431 D89C 31              1     ins
11432 D89D 31              1     ins
11433 D89E FE 0D E9        ...   ldx 0de9
11434 D8A1 3C              <     pshx
11435 D8A2 FC 0D E7        ...   ldd 0de7
11436 D8A5 37              7     pshb
11437 D8A6 36              6     psha
11438 D8A7 CE E1 00        ...   ldx #e100    ; 100000000
11439 D8AA 3C              <     pshx
11440 D8AB CC 05 F5        ...   ldd #05f5
11441 D8AE 37              7     pshb
11442 D8AF 36              6     psha
11443 D8B0 30              0     tsx
11444 D8B1 EC 06           ..    ldd 06,x
11445 D8B3 A3 02           ..    subd 02,x
11446 D8B5 EC 04           ..    ldd 04,x
11447 D8B7 E2 01           ..    sbcb 01,x
11448 D8B9 A2 00           ..    sbca 00,x
11449 D8BB 38              8     pulx
11450 D8BC 38              8     pulx
11451 D8BD 38              8     pulx
11452 D8BE 38              8     pulx
11453 D8BF 25 11           %.    bcs 11
11454 D8C1 CE 1F 00        ...   ldx #1f00
11455 D8C4 3C              <     pshx
11456 D8C5 CC FA 0A        ...   ldd #fa0a    ; -100000000
11457 D8C8 37              7     pshb
11458 D8C9 36              6     psha
11459 D8CA CC 0D E7        ...   ldd #0de7
11460 D8CD BD FB DF        ...   jsr fbdf             ;jump46
11461 D8D0 31              1     ins
11462 D8D1 31              1     ins
11463 goto66:
11464 D8D2 39              9     rts
11465
11466 jump84:
11467 ;500 ms delay
11468 D8D3 7F 00 18        ...   clr 0018
11469 D8D6 F6 00 18        ...   ldab 0018
11470 D8D9 C1 10           ..    cmpb #10
11471 D8DB 24 0B           $.    bcc 0b
11472 D8DD CC 00 32        ..2   ldd #0032
11473 D8E0 BD E5 71        ..q   jsr e571             ;msdelay
11474 D8E3 7C 00 18        |..   inc 0018
11475 D8E6 20 EE            .    bra ee
11476 D8E8 39              9     rts
11477
11478 jump92:
11479 ; displays select other item
11480 D8E9 F6 00 2B        ..+   ldab 002b
11481 D8EC C1 00           ..    cmpb #00
11482 D8EE 26 18           &.    bne 18
11483 D8F0 CC AD 84        ...   ldd #ad84    ; "  PULSE  "
11484 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11485 D8F6 8D DB           ..    bsr dest db
11486 D8F8 CC AD 8F        ...   ldd #ad8f    ; "  EXTRA  "
11487 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11488 D8FE 8D D3           ..    bsr dest d3
11489 D900 CC AD 9A        ...   ldd #ad9a    ; "SELECTION"
11490 D903 BD C0 BA        ...   jsr c0ba             ;display:
11491 D906 20 4E            N    bra 4e
11492 D908 C1 01           ..    cmpb #01
11493 D90A 26 18           &.    bne 18
11494 D90C CC AD 63        ..c   ldd #ad63    ; "  BITTE  "
11495 D90F BD C0 BA        ...   jsr c0ba             ;display:
11496 D912 8D BF           ..    bsr dest bf
11497 D914 CC AD 6E        ..n   ldd #ad6e    ; "  ANDERE  "
11498 D917 BD C0 BA        ...   jsr c0ba             ;display:
11499 D91A 8D B7           ..    bsr dest b7
11500 D91C CC AD 79        ..y   ldd #ad79    ; "   WAHL   "
11501 D91F BD C0 BA        ...   jsr c0ba             ;display:
11502 D922 20 32            2    bra 32
11503 D924 C1 02           ..    cmpb #02
11504 D926 26 18           &.    bne 18
11505 D928 CC AD 42        ..B   ldd #ad42    ; "FAITES"
11506 D92B BD C0 BA        ...   jsr c0ba             ;display:
11507 D92E 8D A3           ..    bsr dest a3
11508 D930 CC AD 4D        ..M   ldd #ad4d    ; "AURTE"
11509 D933 BD C0 BA        ...   jsr c0ba             ;display:
11510 D936 8D 9B           ..    bsr dest 9b
11511 D938 CC AD 58        ..X   ldd #ad58    ; "CHOIX"
11512 D92B BD C0 BA        ...   jsr c0ba             ;display:
11513 D93E 20 16            .    bra 16
11514 D940 CC AD 21        ..!   ldd #ad21    ; "SELECT "
11515 D943 BD C0 BA        ...   jsr c0ba             ;display:
11516 D946 8D 8B           ..    bsr dest 8b
11517 D948 CC AD 2C        ..,   ldd #ad2c    ; "OTHER"
11518 D94B BD C0 BA        ...   jsr c0ba             ;display:
11519 D94E 8D 83           ..    bsr dest 83
11520 D950 CC AD 37        ..7   ldd #ad37    ; "ITEM"
11521 D953 BD C0 BA        ...   jsr c0ba             ;display:
11522 D956 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11523 D959 39              9     rts
11524
11525 jump123:
11526 D95A F6 00 06        ...   ldab 0006
11527 D95D F1 0B AF        ...   cmpb 0baf
11528 D960 26 0D           &.    bne 0d       ; to d984
11529 D962 BD D7 FF        ...   jsr d7ff             ;jump80
11530 D965 F6 0B B4        ...   ldab 0bb4
11531 D968 F7 00 06        ...   stab 0006
11532 D96B 8D 55           .U    bsr 55       ;jump205
11533 D96D 20 52            R    bra 52       ; exit
11534 D96F F6 00 06        ...   ldab 0006
11535 D972 F1 0B AE        ...   cmpb 0bae
11536 D975 26 0D           &.    bne 0d       ; to d984
11537 D977 BD D7 FF        ...   jsr d7ff             ;jump80
11538 D97A F6 0B B3        ...   ldab 0bb3
11539 D97D F7 00 06        ...   stab 0006
11540 D980 8D 40           .@    bsr 40       ;jump205
11541 D982 20 3D            =    bra 3d
11542 D984 F6 00 06        ...   ldab 0006
11543 D987 F1 0B AD        ...   cmpb 0bad
11544 D98A 26 0D           &.    bne 0d
11545 D98C BD D7 FF        ...   jsr d7ff             ;jump80
11546 D98F F6 0B B2        ...   ldab 0bb2
11547 D992 F7 00 06        ...   stab 0006
11548 D995 8D 2B           .+    bsr 2b       ;jump205
11549 D997 20 28            (    bra 28
11550 D999 F6 00 06        ...   ldab 0006
11551 D99C F1 0B AC        ...   cmpb 0bac
11552 D99F 26 0D           &.    bne 0d
11553 D9A1 BD D7 FF        ...   jsr d7ff             ;jump80
11554 D9A4 F6 0B B1        ...   ldab 0bb1
11555 D9A7 F7 00 06        ...   stab 0006
11556 D9AA 8D 16           ..    bsr 16       ;jump205
11557 D9AC 20 13            .    bra 13
11558 D9AE F6 00 06        ...   ldab 0006
11559 D9B1 F1 0B AB        ...   cmpb 0bab
11560 D9B4 26 0B           &.    bne 0b
11561 D9B6 BD D7 FF        ...   jsr d7ff             ;jump80
11562 D9B9 F6 0B B0        ...   ldab 0bb0
11563 D9BC F7 00 06        ...   stab 0006
11564 D9BF 8D 01           ..    bsr 01       ;jump205
11565 D9C1 39              9     rts
11566
11567 jump205:
11568 D9C2 CC 03 E8        ...   ldd #03e8
11569 D9C5 BD E5 71        ..q   jsr e571             ;msdelay
11570 D9C8 BD D7 83        ...   jsr d783             ;jump44
11571 D9CB 83 00 00        ...   subd #0000
11572 D9CE 27 0B           '.    beq 0b
11573 D9D0 7F 00 06        ...   clr 0006
11574 D9D3 5F              _     clrb
11575 D9D4 4F              O     clra
11576 D9D5 FD 00 4D        ..M   std 004d
11577 D9D8 7E DA 63        ~.c   jmp da63             ;goto67
11578 D9DB BD D2 13        ...   jsr d213             ;jump45 - vend it!
11579 D9DE 83 00 00        ...   subd #0000
11580 D9E1 26 0A           &.    bne 0a
11581 D9E3 7F 00 06        ...   clr 0006
11582 D9E6 5F              _     clrb
11583 D9E7 4F              O     clra
11584 D9E8 FD 00 4D        ..M   std 004d
11585 D9EB 20 76            v    bra 76
11586 D9ED FC 0D 0B        ...   ldd 0d0b
11587 D9F0 83 FF FF        ...   subd #ffff
11588 D9F3 26 05           &.    bne 05
11589 D9F5 5F              _     clrb
11590 D9F6 4F              O     clra
11591 D9F7 FD 0D 0B        ...   std 0d0b
11592 D9FA FE 0D 0B        ...   ldx 0d0b
11593 D9FD 08              .     inx
11594 D9FE FF 0D 0B        ...   stx 0d0b
11595 DA01 F6 00 06        ...   ldab 0006
11596 DA04 4F              O     clra
11597 DA05 05              .     asld
11598 DA06 C3 08 C8        ...   addd #08c8
11599 DA09 8F              .     xgdx
11600 DA0A EC 00           ..    ldd 00,x
11601 DA0C C4 7F           ..    andb #7f
11602 DA0E 4F              O     clra
11603 DA0F FD 00 4D        ..M   std 004d
11604 DA12 F6 00 06        ...   ldab 0006
11605 DA15 4F              O     clra
11606 DA16 05              .     asld
11607 DA17 C3 08 00        ...   addd #0800
11608 DA1A 8F              .     xgdx
11609 DA1B EC 00           ..    ldd 00,x
11610 DA1D C4 FF           ..    andb #ff
11611 DA1F 84 3F           .?    anda #3f
11612 DA21 37              7     pshb
11613 DA22 36              6     psha
11614 DA23 4F              O     clra
11615 DA24 5F              _     clrb
11616 DA25 37              7     pshb
11617 DA26 36              6     psha
11618 DA27 CC 0D 17        ...   ldd #0d17
11619 DA2A BD FB DF        ...   jsr fbdf             ;jump46
11620 DA2D 31              1     ins
11621 DA2E 31              1     ins
11622 DA2F FE 0D 19        ...   ldx 0d19
11623 DA32 3C              <     pshx
11624 DA33 FC 0D 17        ...   ldd 0d17
11625 DA36 37              7     pshb
11626 DA37 36              6     psha
11627 DA38 CE E1 00        ...   ldx #e100
11628 DA3B 3C              <     pshx
11629 DA3C CC 05 F5        ...   ldd #05f5
11630 DA3F 37              7     pshb
11631 DA40 36              6     psha
11632 DA41 30              0     tsx
11633 DA42 EC 06           ..    ldd 06,x
11634 DA44 A3 02           ..    subd 02,x
11635 DA46 EC 04           ..    ldd 04,x
11636 DA48 E2 01           ..    sbcb 01,x
11637 DA4A A2 00           ..    sbca 00,x
11638 DA4C 38              8     pulx
11639 DA4D 38              8     pulx
11640 DA4E 38              8     pulx
11641 DA4F 38              8     pulx
11642 DA50 25 11           %.    bcs 11
11643 DA52 CE 1F 00        ...   ldx #1f00
11644 DA55 3C              <     pshx
11645 DA56 CC FA 0A        ...   ldd #fa0a
11646 DA59 37              7     pshb
11647 DA5A 36              6     psha
11648 DA5B CC 0D 17        ...   ldd #0d17
11649 DA5E BD FB DF        ...   jsr fbdf             ;jump46
11650 DA61 31              1     ins
11651 DA62 31              1     ins
11652 goto67:
11653 DA63 39              9     rts
11654
11655 jump122:
11656 DA64 FE 0B B9        ...   ldx 0bb9
11657 DA67 08              .     inx
11658 DA68 FF 0B B9        ...   stx 0bb9
11659 DA6B FC 0B B5        ...   ldd 0bb5
11660 DA6E CE 00 32        ..2   ldx #0032
11661 DA71 02              .     idiv
11662 DA72 8F              .     xgdx
11663 DA73 37              7     pshb
11664 DA74 36              6     psha
11665 DA75 CC 00 C3        ...   ldd #00c3    ; 195
11666 DA78 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11667 DA7B B3 0B B9        ...   subd 0bb9
11668 DA7E 24 05           $.    bcc 05
11669 DA80 5F              _     clrb
11670 DA81 4F              O     clra
11671 DA82 FD 0B B9        ...   std 0bb9
11672 DA85 FC 0B B9        ...   ldd 0bb9
11673 DA88 37              7     pshb
11674 DA89 36              6     psha
11675 DA8A CC 00 0A        ...   ldd #000a    ; 10
11676 DA8D BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11677 DA90 37              7     pshb
11678 DA91 36              6     psha
11679 DA92 FC 0B B5        ...   ldd 0bb5
11680 DA95 CE 00 32        ..2   ldx #0032
11681 DA98 02              .     idiv
11682 DA99 8F              .     xgdx
11683 DA9A 38              8     pulx
11684 DA9B 8F              .     xgdx
11685 DA9C 02              .     idiv
11686 DA9D 8F              .     xgdx
11687 DA9E 37              7     pshb
11688 DA9F 36              6     psha
11689 DAA0 CC 00 0A        ...   ldd #000a    ; 10
11690 DAA3 BD FB BA        ...   jsr fbba             ;jump38 - multiply?
11691 DAA6 CE 00 0A        ...   ldx #000a
11692 DAA9 02              .     idiv
11693 DAAA 8F              .     xgdx
11694 DAAB FD 00 4A        ..J   std 004a
11695 DAAE FC 00 4A        ..J   ldd 004a
11696 DAB1 BD FE 32        ..2   jsr fe32             ;jump25
11697 DAB4 DA CA 00 6E     ...n  ; 110
11698 DAB8 DA CA 02 80     ....  ; 750
11699 DABC DA CA 01 C2     ....  ; 1200
11700 DAC0 DA CA 01 C2     ....  ; 1650
11701 DAC4 DB 43 F9 8E     ....  ; 0
11702 DAC8 00 00           ..    ; end of array data
11703 DACA FC 0D 07        ...   ldd 0d07
11704 DACD 83 FF FF        ...   subd #ffff
11705 DAD0 26 05           &.    bne 05
11706 DAD2 5F              _     clrb
11707 DAD3 4F              O     clra
11708 DAD4 FD 0D 07        ...   std 0d07
11709 DAD7 FE 0D 07        ...   ldx 0d07
11710 DADA 08              .     inx
11711 DADB FF 0D 07        ...   stx 0d07
11712 DADE F6 00 06        ...   ldab 0006
11713 DAE1 4F              O     clra
11714 DAE2 05              .     asld
11715 DAE3 C3 08 00        ...   addd #0800
11716 DAE6 8F              .     xgdx
11717 DAE7 EC 00           ..    ldd 00,x
11718 DAE9 C4 FF           ..    andb #ff
11719 DAEB 84 3F           .?    anda #3f
11720 DAED 37              7     pshb
11721 DAEE 36              6     psha
11722 DAEF 4F              O     clra
11723 DAF0 5F              _     clrb
11724 DAF1 37              7     pshb
11725 DAF2 36              6     psha
11726 DAF3 CC 0D 0F        ...   ldd #0d0f
11727 DAF6 BD FB DF        ...   jsr fbdf             ;jump46
11728 DAF9 31              1     ins
11729 DAFA 31              1     ins
11730 DAFB FE 0D 11        ...   ldx 0d11
11731 DAFE 3C              <     pshx
11732 DAFF FC 0D 0F        ...   ldd 0d0f
11733 DB02 37              7     pshb
11734 DB03 36              6     psha
11735 DB04 CE E1 00        ...   ldx #e100
11736 DB07 3C              <     pshx
11737 DB08 CC 05 F5        ...   ldd #05f5
11738 DB0B 37              7     pshb
11739 DB0C 36              6     psha
11740 DB0D 30              0     tsx
11741 DB0E EC 06           ..    ldd 06,x
11742 DB10 A3 02           ..    subd 02,x
11743 DB12 EC 04           ..    ldd 04,x
11744 DB14 E2 01           ..    sbcb 01,x
11745 DB16 A2 00           ..    sbca 00,x
11746 DB18 38              8     pulx
11747 DB19 38              8     pulx
11748 DB1A 38              8     pulx
11749 DB1B 38              8     pulx
11750 DB1C 25 11           %.    bcs 11
11751 DB1E CE 1F 00        ...   ldx #1f00
11752 DB21 3C              <     pshx
11753 DB22 CC FA 0A        ...   ldd #fa0a
11754 DB25 37              7     pshb
11755 DB26 36              6     psha
11756 DB27 CC 0D 0F        ...   ldd #0d0f
11757 DB2A BD FB DF        ...   jsr fbdf             ;jump46
11758 DB2D 31              1     ins
11759 DB2E 31              1     ins
11760 DB2F 5F              _     clrb
11761 DB30 4F              O     clra
11762 DB31 FD 00 44        ..D   std 0044
11763 DB34 CE 00 1B        ...   ldx #001b
11764 DB37 1D 00 01        ...   bclr 00,x, #01
11765 DB3A 7F 00 4F        ..O   clr 004f
11766 DB3D CE 00 11        ...   ldx #0011
11767 DB40 1C 00 10        ...   bset 00,x, #10
11768 DB43 39              9     rts
11769
11770 jump104:
11771 ; say thankyou?
11772 DB44 F6 00 2B        ..+   ldab 002b
11773 DB47 C1 00           ..    cmpb #00
11774 DB49 26 08           &.    bne 08
11775 DB4B CC AC DF        ...   ldd #acdf    ; "CAMBIO"
11776 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11777 DB51 20 1E            .    bra 1e
11778 DB53 C1 01           ..    cmpb #01
11779 DB55 26 08           &.    bne 08
11780 DB57 CC AC D4        ...   ldd #acd4    ; "CHANGE"
11781 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11782 DB5D 20 12            .    bra 12
11783 DB5F C1 02           ..    cmpb #02
11784 DB61 26 08           &.    bne 08
11785 DB63 CC AC EA        ...   ldd #acea    ; "MONNAIE"
11786 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11787 DB69 20 06            .    bra 06
11788 DB6B CC AC D4        ...   ldd #acd4    ; "CHANGE"
11789 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11790 ;
11791 DB71 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11792 DB74 CE 00 01        ...   ldx #0001
11793 DB77 3C              <     pshx
11794 DB78 FC 00 40        ..@   ldd 0040
11795 DB7B F3 00 3E        ..>   addd 003e
11796 DB7E BD BE 9E        ...   jsr be9e             ;jump50
11797 DB81 38              8     pulx
11798 DB82 FC 00 40        ..@   ldd 0040
11799 DB85 27 05           '.    beq 05
11800 DB87 BD C4 56        ..V   jsr c456             ;jump47
11801 DB8A 20 06            .    bra 06
11802 DB8C CC 02 58        ..X   ldd #0258
11803 DB8F BD E5 71        ..q   jsr e571             ;msdelay
11804 DB92 FC 00 3E        ..>   ldd 003e
11805 DB95 27 03           '.    beq 03
11806 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11807 DB9A F6 00 2B        ..+   ldab 002b
11808 DB9D C1 00           ..    cmpb #00
11809 DB9F 26 08           &.    bne 08
11810 DBA1 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
11811 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11812 DBA7 20 1E            .    bra 1e
11813 DBA9 C1 01           ..    cmpb #01
11814 DBAB 26 08           &.    bne 08
11815 DBAD CC AD 0B        ...   ldd #ad0b    ; "DANKE"
11816 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11817 DBB3 20 12            .    bra 12
11818 DBB5 C1 02           ..    cmpb #02
11819 DBB7 26 08           &.    bne 08
11820 DBB9 CC AD 00        ...   ldd #ad00    ; "MERCI"
11821 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11822 DBBF 20 06            .    bra 06
11823 DBC1 CC AC F5        ...   ldd #acf5    ; "THANKS"
11824 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11825 DBC7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
11826 DBCA 39              9     rts
11827
11828 jump121:
11829 DBCB F6 00 1B        ...   ldab 001b
11830 DBCE C4 01           ..    andb #01
11831 DBD0 26 03           &.    bne 03
11832 DBD2 7E DC 98        ~..   jmp dc98             ;goto68
11833 DBD5 F6 00 06        ...   ldab 0006
11834 DBD8 4F              O     clra
11835 DBD9 05              .     asld
11836 DBDA C3 08 C8        ...   addd #08c8
11837 DBDD 8F              .     xgdx
11838 DBDE EC 00           ..    ldd 00,x
11839 DBE0 84 08           ..    anda #08
11840 DBE2 26 03           &.    bne 03
11841 DBE4 7E DC 98        ~..   jmp dc98             ;goto68
11842 DBE7 BD D7 FF        ...   jsr d7ff             ;jump80
11843 DBEA CC 03 E8        ...   ldd #03e8
11844 DBED BD E5 71        ..q   jsr e571             ;msdelay
11845 DBF0 BD D3 46        ..F   jsr d346             ;jump43
11846 DBF3 83 00 00        ...   subd #0000
11847 DBF6 26 08           &.    bne 08
11848 DBF8 BD D7 83        ...   jsr d783             ;jump44
11849 DBFB 83 00 00        ...   subd #0000
11850 DBFE 27 17           '.    beq 17
11851 DC00 5F              _     clrb
11852 DC01 4F              O     clra
11853 DC02 FD 00 4D        ..M   std 004d
11854 DC05 FC 00 44        ..D   ldd 0044
11855 DC08 F3 0B B7        ...   addd 0bb7
11856 DC0B 04              .     lsrd
11857 DC0C F3 00 40        ..@   addd 0040
11858 DC0F B3 0B B7        ...   subd 0bb7
11859 DC12 FD 00 40        ..@   std 0040
11860 DC15 20 78            x    bra 78
11861 DC17 BD D2 13        ...   jsr d213             ;jump45
11862 DC1A 83 00 00        ...   subd #0000
11863 DC1D 26 17           &.    bne 17
11864 DC1F 5F              _     clrb
11865 DC20 4F              O     clra
11866 DC21 FD 00 4D        ..M   std 004d
11867 DC24 FC 00 44        ..D   ldd 0044
11868 DC27 F3 0B B7        ...   addd 0bb7
11869 DC2A 04              .     lsrd
11870 DC2B F3 00 40        ..@   addd 0040
11871 DC2E B3 0B B7        ...   subd 0bb7
11872 DC31 FD 00 40        ..@   std 0040
11873 DC34 20 59            Y    bra 59
11874 DC36 FC 0D 09        ...   ldd 0d09
11875 DC39 83 FF FF        ...   subd #ffff
11876 DC3C 26 05           &.    bne 05
11877 DC3E 5F              _     clrb
11878 DC3F 4F              O     clra
11879 DC40 FD 0D 09        ...   std 0d09
11880 DC43 FE 0D 09        ...   ldx 0d09
11881 DC46 08              .     inx
11882 DC47 FF 0D 09        ...   stx 0d09
11883 DC4A FC 0B B7        ...   ldd 0bb7
11884 DC4D 37              7     pshb
11885 DC4E 36              6     psha
11886 DC4F 4F              O     clra
11887 DC50 5F              _     clrb
11888 DC51 37              7     pshb
11889 DC52 36              6     psha
11890 DC53 CC 0D 13        ...   ldd #0d13
11891 DC56 BD FB DF        ...   jsr fbdf             ;jump46
11892 DC59 31              1     ins
11893 DC5A 31              1     ins
11894 DC5B FE 0D 15        ...   ldx 0d15
11895 DC5E 3C              <     pshx
11896 DC5F FC 0D 13        ...   ldd 0d13
11897 DC62 37              7     pshb
11898 DC63 36              6     psha
11899 DC64 CE E1 00        ...   ldx #e100
11900 DC67 3C              <     pshx
11901 DC68 CC 05 F5        ...   ldd #05f5
11902 DC6B 37              7     pshb
11903 DC6C 36              6     psha
11904 DC6D 30              0     tsx
11905 DC6E EC 06           ..    ldd 06,x
11906 DC70 A3 02           ..    subd 02,x
11907 DC72 EC 04           ..    ldd 04,x
11908 DC74 E2 01           ..    sbcb 01,x
11909 DC76 A2 00           ..    sbca 00,x
11910 DC78 38              8     pulx
11911 DC79 38              8     pulx
11912 DC7A 38              8     pulx
11913 DC7B 38              8     pulx
11914 DC7C 25 11           %.    bcs 11
11915 DC7E CE 1F 00        ...   ldx #1f00
11916 DC81 3C              <     pshx
11917 DC82 CC FA 0A        ...   ldd #fa0a
11918 DC85 37              7     pshb
11919 DC86 36              6     psha
11920 DC87 CC 0D 13        ...   ldd #0d13
11921 DC8A BD FB DF        ...   jsr fbdf             ;jump46
11922 DC8D 31              1     ins
11923 DC8E 31              1     ins
11924 DC8F CE 00 1B        ...   ldx #001b
11925 DC92 1D 00 01        ...   bclr 00,x, #01
11926 DC95 7F 00 4F        ..O   clr 004f
11927 goto68:
11928 DC98 F6 00 11        ...   ldab 0011
11929 DC9B C4 08           ..    andb #08
11930 DC9D 26 03           &.    bne 03
11931 DC9F BD D9 5A        ..Z   jsr d95a             ;jump123
11932 DCA2 39              9     rts
11933
11934 jump29:
11935 DCA3 CE 0B BC        ...   ldx #0bbc
11936 DCA6 1D 00 1C        ..    bclr 00,x, #1c
11937 DCA9 F6 0B BC        ..    ldab 0bbc
11938 DCAB C4 03           ...   andb #03
11939 DCAE 26 48           &H    bne 48
11940 DCB0 FC 0B BD        ...   ldd 0bbd
11941 DCB3 37              7     pshb
11942 DCB4 36              6     psha
11943 DCB5 4F              O     clra
11944 DCB6 5F              _     clrb
11945 DCB7 37              7     pshb
11946 DCB8 36              6     psha
11947 DCB9 CC 0D F7        ...   ldd #0df7
11948 DCBC BD FB DF        ...   jsr fbdf             ;jump46
11949 DCBF 31              1     ins
11950 DCC0 31              1     ins
11951 DCC1 FE 0D F9        ...   ldx 0df9
11952 DCC4 3C              <     pshx
11953 DCC5 FC 0D F7        ...   ldd 0df7
11954 DCC8 37              7     pshb
11955 DCC9 36              6     psha
11956 DCCA CE E1 00        ...   ldx #e100
11957 DCCD 3C              <     pshx
11958 DCCE CC 05 F5        ...   ldd #05f5  ; 100000000
11959 DCD1 37              7     pshb
11960 DCD2 36              6     psha
11961 DCD3 30              0     tsx
11962 DCD4 EC 06           ..    ldd 06,x
11963 DCD6 A3 02           ..    subd 02,x
11964 DCD8 EC 04           ..    ldd 04,x
11965 DCDA E2 01           ..    sbcb 01,x
11966 DCDC A2 00           ..    sbca 00,x
11967 DCDE 38              8     pulx
11968 DCDF 38              8     pulx
11969 DCE0 38              8     pulx
11970 DCE1 38              8     pulx
11971 DCE2 25 11           %.    bcs 11
11972 DCE4 CE 1F 00        ...   ldx #1f00
11973 DCE7 3C              <     pshx
11974 DCE8 CC FA 0A        ...   ldd #fa0a
11975 DCEB 37              7     pshb
11976 DCEC 36              6     psha
11977 DCED CC 0D F7        ...   ldd #0df7
11978 DCF0 BD FB DF        ...   jsr fbdf             ;jump46
11979 DCF3 31              1     ins
11980 DCF4 31              1     ins
11981 DCF5 7E DD D4        ~..   jmp ddd4             ;goto69
11982 DCF8 F6 0B BC        ...   ldab 0bbc
11983 DCFB C4 03           ..    andb #03
11984 DCFD C1 01           ..    cmpb #01
11985 DCFF 27 03           '.    beq 03
11986 DD01 7E DD D4        ~..   jmp ddd4             ;goto69
11987 DD04 F6 0B BC        ...   ldab 0bbc
11988 DD07 C4 E0           ..    andb #e0
11989 DD09 54              T     lsrb
11990 DD0A 54              T     lsrb
11991 DD0B 54              T     lsrb
11992 DD0C 54              T     lsrb
11993 DD0D 54              T     lsrb
11994 DD0E F7 0B BC        ...   stab 0bbc
11995 DD11 F6 0B BC        ...   ldab 0bbc
11996 DD14 F1 0B C4        ...   cmpb 0bc4
11997 DD17 26 33           &3    bne 33
11998 DD19 F6 0B D7        ...   ldab 0bd7
11999 DD1C C1 01           ..    cmpb #01
12000 DD1E 26 0A           &.    bne 0a
12001 DD20 7C 0C DB        |..   inc 0cdb
12002 DD23 C6 03           ..    ldab #03
12003 DD25 F7 00 48        ..H   stab 0048
12004 DD28 20 20                 bra 20
12005 DD2A F6 0B D8        ...   ldab 0bd8
12006 DD2D C1 01           ..    cmpb #01
12007 DD2F 26 0A           &.    bne 0a
12008 DD31 7C 0C DA        |..   inc 0cda
12009 DD34 C6 02           ..    ldab #02
12010 DD36 F7 00 48        ..H   stab 0048
12011 DD39 20 0F            .    bra 0f
12012 DD3B F6 0B D9        ...   ldab 0bd9
12013 DD3E C1 01           ..    cmpb #01
12014 DD40 26 08           &.    bne 08
12015 DD42 7C 0C D9        |..   inc 0cd9
12016 DD45 C6 01           ..    ldab #01
12017 DD47 F7 00 48        ..H   stab 0048
12018 DD4A 20 74            t    bra 74
12019 DD4C F6 0B BC        ...   ldab 0bbc
12020 DD4F F1 0B C5        ...   cmpb 0bc5
12021 DD52 26 33           &3    bne 33
12022 DD54 F6 0B D7        ...   ldab 0bd7
12023 DD57 C1 04           ..    cmpb #04
12024 DD59 26 0A           &.    bne 0a
12025 DD5B 7C 0C DB        |..   inc 0cdb
12026 DD5E C6 03           ..    ldab #03
12027 DD60 F7 00 48        ..H   stab 0048
12028 DD63 20 20                 bra 20
12029 DD65 F6 0B D8        ...   ldab 0bd8
12030 DD68 C1 04           ..    cmpb #04
12031 DD6A 26 0A           &.    bne 0a
12032 DD6C 7C 0C DA        |..   inc 0cda
12033 DD6F C6 02           ..    ldab #02
12034 DD71 F7 00 48        ..H   stab 0048
12035 DD74 20 0F            .    bra 0f
12036 DD76 F6 0B D9        ...   ldab 0bd9
12037 DD79 C1 04           ..    cmpb #04
12038 DD7B 26 08           &.    bne 08
12039 DD7D 7C 0C D9        |..   inc 0cd9
12040 DD80 C6 01           ..    ldab #01
12041 DD82 F7 00 48        ..H   stab 0048
12042 DD85 20 39            9    bra 39
12043 DD87 F6 0B BC        ...   ldab 0bbc
12044 DD8A F1 0B C6        ...   cmpb 0bc6
12045 DD8D 26 31           &1    bne 31
12046 DD8F F6 0B D7        ...   ldab 0bd7
12047 DD92 C1 02           ..    cmpb #02
12048 DD94 26 0A           &.    bne 0a
12049 DD96 7C 0C DB        |..   inc 0cdb
12050 DD99 C6 03           ..    ldab #03
12051 DD9B F7 00 48        ..H   stab 0048
12052 DD9E 20 20                 bra 20
12053 DDA0 F6 0B D8        ...   ldab 0bd8
12054 DDA3 C1 02           ..    cmpb #02
12055 DDA5 26 0A           &.    bne 0a
12056 DDA7 7C 0C DA        |..   inc 0cda
12057 DDAA C6 02           ..    ldab #02
12058 DDAC F7 00 48        ..H   stab 0048
12059 DDAF 20 0F            .    bra 0f
12060 DDB1 F6 0B D9        ...   ldab 0bd9
12061 DDB4 C1 02           ..    cmpb #02
12062 DDB6 26 08           &.    bne 08
12063 DDB8 7C 0C D9        |..   inc 0cd9
12064 DDBB C6 01           ..    ldab #01
12065 DDBD F7 00 48        ..H   stab 0048
12066 DDC0 F6 00 17        ...   ldab 0017
12067 DDC3 C4 08           ..    andb #08
12068 DDC5 26 0D           &.    bne 0d
12069 DDC7 F6 0B BC        ...   ldab 0bbc
12070 DDCA 26 08           &.    bne 08
12071 DDCC 7C 0C DC        |..   inc 0cdc
12072 DDCF C6 04           ..    ldab #04
12073 DDD1 F7 00 48        ..H   stab 0048
12074 goto69:
12075 DDD4 39              9     rts
12076
12077 jump120:
12078 DDD5 BD BE 69        ..i   jsr be69             ;displayreset
12079 DDD8 C6 03           ..    ldab #03
12080 DDDA F7 00 1C        ...   stab 001c
12081 DDDD F6 00 1C        ...   ldab 001c
12082 DDE0 C1 0D           ..    cmpb #0d
12083 DDE2 24 1C           $.    bcc 1c
12084 DDE4 F6 00 1C        ...   ldab 001c
12085 DDE7 4F              O     clra
12086 DDE8 C3 0C B9        ...   addd #0cb9
12087 DDEB 8F              .     xgdx
12088 DDEC E6 00           ..    ldab 00,x
12089 DDEE 37              7     pshb
12090 DDEF CC 0B 9C        ...   ldd #0b9c
12091 DDF2 F0 00 1C        ...   subb 001c
12092 DDF5 82 00           ..    sbca #00
12093 DDF7 8F              .     xgdx
12094 DDF8 33              3     pulb
12095 DDF9 E7 00           ..    stab 00,x
12096 DDFB 7C 00 1C        |..   inc 001c
12097 DDFE 20 DD            .    bra dd
12098 DE00 BD BE 10        ...   jsr be10             ;jump88
12099 DE03 C6 14           ..    ldab #14
12100 DE05 F7 00 2C        ..,   stab 002c
12101 DE08 39              9     rts
12102
12103 jump119:
12104 DE09 CC 0B 9A        ...   ldd #0b9a    ; machine id?
12105 DE0C BD C0 BA        ...   jsr c0ba             ;display:
12106 DE0F C6 14           ..    ldab #14
12107 DE11 F7 00 2C        ..,   stab 002c
12108 DE14 39              9     rts
12109
12110 jump118:
12111 DE15 F6 00 1B        ...   ldab 001b
12112 DE18 C4 01           ..    andb #01
12113 DE1A 26 03           &.    bne 03
12114 DE1C 7E DE A4        ~..   jmp dea4             ;goto70 - return
12115 DE1F F6 00 06        ...   ldab 0006
12116 DE22 4F              O     clra
12117 DE23 05              .     asld
12118 DE24 C3 08 C8        ...   addd #08c8
12119 DE27 8F              .     xgdx
12120 DE28 EC 00           ..    ldd 00,x
12121 DE2A 84 08           ..    anda #08
12122 DE2C 27 76           'v    beq 76
12123 DE2E F6 00 11        ...   ldab 0011
12124 DE31 C4 08           ..    andb #08
12125 DE33 26 33           &3    bne 33          ; to de68
12126 DE35 F6 00 06        ...   ldab 0006
12127 DE38 F1 0B AF        ...   cmpb 0baf
12128 DE3B 27 20           '     beq 20          ; to de5d
12129 DE3D F6 00 06        ...   ldab 0006
12130 DE40 F1 0B AE        ...   cmpb 0bae
12131 DE43 27 18           '.    beq 18          ; to de5d
12132 DE45 F6 00 06        ...   ldab 0006
12133 DE48 F1 0B AD        ...   cmpb 0bad
12134 DE4B 27 10           '.    beq 10          ; to de5d
12135 DE4D F6 00 06        ...   ldab 0006
12136 DE50 F1 0B AC        ...   cmpb 0bac
12137 DE53 27 08           '.    beq 08          ; to de5d
12138 DE55 F6 00 06        ...   ldab 0006
12139 DE58 F1 0B AB        ...   cmpb 0bab
12140 DE5B 26 0B           &.    bne 0b          ; to de68
12141 ;
12142 DE5D CE 00 1B        ...   ldx #001b
12143 DE60 1D 00 01        ...   bclr 00,x, #01
12144 DE63 7F 00 4F        ..O   clr 004f
12145 DE66 20 3C            <    bra 3c          ; return
12146 ;
12147 DE68 FC 00 44        ..D   ldd 0044
12148 DE6B B3 0B B7        ...   subd 0bb7
12149 DE6E 23 2B           #+    bls 2b          ; to de99 - return
12150 DE70 FC 00 40        ..@   ldd 0040
12151 DE73 F3 00 3E        ..>   addd 003e
12152 DE76 37              7     pshb
12153 DE77 36              6     psha
12154 DE78 FC 00 44        ..D   ldd 0044
12155 DE7B B3 0B B7        ...   subd 0bb7
12156 DE7E F3 00 44        ..D   addd 0044
12157 DE81 30              0     tsx
12158 DE82 A3 00           ..    subd 00,x
12159 DE84 31              1     ins
12160 DE85 31              1     ins
12161 DE86 22 13           ".    bhi 13        ; to de9b
12162 DE88 FC 0B B7        ...   ldd 0bb7
12163 DE8B 27 0E           '.    beq 0e        ; to de9b
12164 DE8D FC 00 44        ..D   ldd 0044
12165 DE90 B3 0B B7        ...   subd 0bb7
12166 DE93 F3 00 44        ..D   addd 0044
12167 DE96 FD 00 44        ..D   std 0044
12168 DE99 20 09            .    bra 09        ; return
12169 ;
12170 DE9B CE 00 1B        ...   ldx #001b
12171 DE9E 1D 00 01        ...   bclr 00,x, #01
12172 DEA1 7F 00 4F        ..O   clr 004f
12173 goto70:
12174 DEA4 39              9     rts
12175
12176 jump117:
12177 ; machine out of order display?
12178 DEA5 F6 00 2B        ..+   ldab 002b
12179 DEA8 C1 00           ..    cmpb #00
12180 DEAA 26 0D           &.    bne 0d
12181 DEAC CE 00 12        ...   ldx #0012
12182 DEAF 3C              <     pshx
12183 DEB0 CC AE 7E        ..~   ldd #ae7e
12184 DEB3 BD C0 2E        ...   jsr c02e             ;jump71 - display
12185 DEB6 38              8     pulx
12186 DEB7 20 2D            -    bra 2d
12187 DEB9 C1 01           ..    cmpb #01
12188 DEBB 26 0D           &.    bne 0d
12189 DEBD CE 00 0F        ...   ldx #000f
12190 DEC0 3C              <     pshx
12191 DEC1 CC AE 6D        ..m   ldd #ae6d    ; something german
12192 DEC4 BD C0 2E        ...   jsr c02e             ;jump71 - display
12193 DEC7 38              8     pulx
12194 DEC8 20 1C            .    bra 1c
12195 DECA C1 02           ..    cmpb #02
12196 DECC 26 0D           &.    bne 0d
12197 DECE CE 00 10        ...   ldx #0010
12198 DED1 3C              <     pshx
12199 DED2 CC AE 5B        ..[   ldd #ae5b    ; more german
12200 DED5 BD C0 2E        ...   jsr c02e             ;jump71 - display
12201 DED8 38              8     pulx
12202 DED9 20 0B            .    bra 0b
12203 DEDB CE 00 15        ...   ldx #0015
12204 DEDE 3C              <     pshx
12205 DEDF CC AE 44        ..D   ldd #ae44    ; "MACHINE OUT OF ORDER"
12206 DEE2 BD C0 2E        ...   jsr c02e             ;jump71 - display
12207 DEE5 38              8     pulx
12208 DEE6 39              9     rts
12209
12210 jump116:
12211 ; revolves around coinage
12212 DEE7 F6 0B C0        ...   ldab 0bc0
12213 DEEA C4 01           ..    andb #01    ; have a dumb mech
12214 DEEC 26 07           &.    bne 07      ; to def5
12215 DEEE F6 0B C0        ...   ldab 0bc0
12216 DEF1 C4 04           ..    andb #04    ; have a card reader
12217 DEF3 27 15           '.    beq 15      ; if not to df0a
12218 ; have dumb mech:
12219 DEF5 C6 FF           ..    ldab #ff
12220 DEF7 F7 0B BC        ...   stab 0bbc
12221 DEFA F6 00 15        ...   ldab 0015
12222 DEFD 2D 03           -.    blt 03       ; to df02
12223 DEFF BD C6 7D        ..}   jsr c67d             ;jump124 - chat to changer
12224 DF02 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill acceptor
12225 DF05 BD DC A3        ...   jsr dca3             ;jump29
12226 DF08 20 25            %    bra 25       ; to df2f
12227 ; test the link master?
12228 DF0A F6 0B C0        ...   ldab 0bc0
12229 DF0D C4 02           ..    andb #02     ;have link master
12230 DF0F 27 1E           '.    beq 1e       ; to df2f
12231 DF11 F6 00 2F        ../   ldab 002f
12232 DF14 26 19           &.    bne 19       ; to df2f
12233 DF16 F6 00 1B        ...   ldab 001b
12234 DF19 C4 02           ..    andb #02
12235 DF1B 26 12           &.    bne 12       ; to df2f
12236 DF1D CC 00 FF        ...   ldd #00ff
12237 DF20 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12238 DF23 CE 00 1B        ...   ldx #001b
12239 DF26 1C 00 02        ..    bset 00,x, #02
12240 DF29 CE 0B C1        ...   ldx #0bc1
12241 DF2C 1C 00 04        ..    bset 00,x, #04 ; set link powerup error bit
12242 ;
12243 DF2F F6 00 21        ..!   ldab 0021
12244 DF32 C4 20           .     andb #20
12245 DF34 27 07           '.    beq 07
12246 ;
12247 DF36 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12248 DF39 BD DE A5        ...   jsr dea5             ;jump117 - machine out of order?
12249 DF3C 39              9     rts
12250 ;
12251 DF3D F6 00 4F        ..O   ldab 004f
12252 DF40 26 06           &.    bne 06
12253 DF42 CE 00 1B        ...   ldx #001b
12254 DF45 1D 00 01        ...   bclr 00,x, #01
12255 DF48 F6 00 25        ..%   ldab 0025
12256 DF4B 26 20           &     bne 20       ; to df6d
12257 DF4D F6 00 1B        ...   ldab 001b
12258 DF50 C4 40           .@    andb #40
12259 DF52 27 19           '.    beq 19
12260 DF54 BD D6 52        ..R   jsr d652             ;jump5 - pulse bill acceptor
12261 DF57 FC 00 40        ..@   ldd 0040
12262 DF5A 26 05           &.    bne 05
12263 DF5C FC 00 3E        ..>   ldd 003e
12264 DF5F 27 03           '.    beq 03
12265 DF61 BD DB 44        ..D   jsr db44             ;jump104 - say thanks
12266 DF64 BD D6 6B        ..k   jsr d66b             ;jump107 - chat to bill validator
12267 DF67 CE 00 1B        ...   ldx #001b
12268 DF6A 1D 00 40        ...   bclr 00,x, #40
12269 ;
12270 DF6D F6 00 2C        ..,   ldab 002c
12271 DF70 27 03           '.    beq 03
12272 DF72 7E E0 66        ~.f   jmp e066             ;goto71
12273 DF75 F6 00 34        ..4   ldab 0034
12274 DF78 26 0B           &.    bne 0b       ; to df85
12275 DF7A BD BE 69        ..i   jsr be69             ;displayreset
12276 DF7D C6 32           .2    ldab #32     ; 50
12277 DF7F F7 00 34        ..4   stab 0034
12278 DF82 7E E0 63        ~.c   jmp e063             ;goto72 - bail
12279 ;
12280 DF85 FC 00 40        ..@   ldd 0040
12281 DF88 26 05           &.    bne 05
12282 DF8A FC 00 3E        ..>   ldd 003e
12283 DF8D 27 16           '.    beq 16
12284 DF8F CE 00 01        ...   ldx #0001
12285 DF92 3C              <     pshx
12286 DF93 FC 00 40        ..@   ldd 0040
12287 DF96 F3 00 3E        ..>   addd 003e
12288 DF99 BD BE 9E        ...   jsr be9e             ;jump50 - write slot & price to screen?
12289 DF9C 38              8     pulx
12290 DF9D C6 05           ..    ldab #05
12291 DF9F F7 00 2C        ..,   stab 002c
12292 DFA2 7E E0 63        ~.c   jmp e063             ;goto72
12293 ;
12294 DFA5 F6 0C D9        ...   ldab 0cd9
12295 DFA8 C1 04           ..    cmpb #04
12296 DFAA 24 07           $.    bcc 07      ; to dfb3
12297 DFAC F6 0B C0        ...   ldab 0bc0
12298 DFAF C4 01           ..    andb #01    ; have a dumb mech
12299 DFB1 26 07           &.    bne 07      ; to dfba
12300 DFB3 F6 00 21        ..!   ldab 0021
12301 DFB6 C4 40           .@    andb #40
12302 DFB8 27 43           'C    beq 43      ; to dffd
12303 ;
12304 DFBA F6 00 2B        ..+   ldab 002b
12305 DFBD C1 00           ..    cmpb #00
12306 DFBF 26 0D           &.    bne 0d
12307 DFC1 CE 00 19        ...   ldx #0019
12308 DFC4 3C              <     pshx
12309 DFC5 CC AD E7        ...   ldd #ade7    ; "INTRODUZCA"
12310 DFC8 BD C0 2E        ...   jsr c02e             ;jump71 - display
12311 DFCB 38              8     pulx
12312 DFCC 20 2D            -    bra 2d
12313 DFCE C1 01           ..    cmpb #01
12314 DFD0 26 0D           &.    bne 0d
12315 DFD2 CE 00 12        ...   ldx #0012
12316 DFD5 3C              <     pshx
12317 DFD6 CC AD D3        ...   ldd #add3    ; "NICT UEBERZAHLEN"
12318 DFD9 BD C0 2E        ...   jsr c02e             ;jump71 - display
12319 DFDC 38              8     pulx
12320 DFDD 20 1C            .    bra 1c
12321 DFDF C1 02           ..    cmpb #02
12322 DFE1 26 0D           &.    bne 0d
12323 DFE3 CE 00 19        ...   ldx #0019
12324 DFE6 3C              <     pshx
12325 DFE7 CC AD B8        ...   ldd #adb8    ; "MONNAIE EXACT"
12326 DFEA BD C0 2E        ...   jsr c02e             ;jump71 - display
12327 DFED 38              8     pulx
12328 DFEE 20 0B            .    bra 0b
12329 DFF0 CE 00 11        ...   ldx #0011    ; length of
12330 DFF3 3C              <     pshx
12331 DFF4 CC AD A5        ...   ldd #ada5    ; " EXACT COINS ONLY "
12332 DFF7 BD C0 2E        ...   jsr c02e             ;jump71 - display
12333 DFFA 38              8     pulx
12334 DFFB 20 66            f    bra 66       ;goto72
12335 ;
12336 DFFD F6 0B C0        ...   ldab 0bc0
12337 E000 C4 08           ..    andb #08     ; have link master price holding
12338 E002 27 52           'R    beq 52       ; to e056
12339 E004 F6 0B C1        ...   ldab 0bc1
12340 E007 C4 08           ..    andb #08    ; test bill error bit
12341 E009 26 08           &.    bne 08
12342 E00B FC 0B EF        ...   ldd 0bef
12343 E00E 83 00 64        ..d   subd #0064
12344 E011 24 43           $C    bcc 43
12345 E013 F6 00 2B        ..+   ldab 002b
12346 E016 C1 00           ..    cmpb #00
12347 E018 26 0D           &.    bne 0d
12348 E01A CE 00 12        ...   ldx #0012
12349 E01D 3C              <     pshx
12350 E01E CC AE 30        ..0   ldd #ae30    ; "MONEDA UNICAMENTE"
12351 E021 BD C0 2E        ...   jsr c02e             ;jump71 - display
12352 E024 38              8     pulx
12353 E025 20 2D            -    bra 2d
12354 E027 C1 01           ..    cmpb #01
12355 E029 26 0D           &.    bne 0d
12356 E02B CE 00 0B        ...   ldx #000b
12357 E02E 3C              <     pshx
12358 E02F CC AE 23        ..#   ldd #ae23    ; "NUR MUNZEN"
12359 E032 BD C0 2E        ...   jsr c02e             ;jump71 - display
12360 E035 38              8     pulx
12361 E036 20 1C            .    bra 1c
12362 E038 C1 02           ..    cmpb #02
12363 E03A 26 0D           &.    bne 0d
12364 E03C CE 00 12        ...   ldx #0012
12365 E03F 3C              <     pshx
12366 E040 CC AE 0F        ...   ldd #ae0f    ; "MONNAIES SEULEMENT"
12367 E043 BD C0 2E        ...   jsr c02e             ;jump71 - display
12368 E046 38              8     pulx
12369 E047 20 0B            .    bra 0b
12370 E049 CE 00 0B        ...   ldx #000b
12371 E04C 3C              <     pshx
12372 E04D CC AE 02        ...   ldd #ae02    ; "COINS ONLY"
12373 E050 BD C0 2E        ...   jsr c02e             ;jump71 - display
12374 E053 38              8     pulx
12375 E054 20 0D            .    bra 0d
12376 ;
12377 E056 F6 0B BF        ...   ldab 0bbf
12378 E059 4F              O     clra
12379 E05A 37              7     pshb
12380 E05B 36              6     psha
12381 E05C CC 09 93        ...   ldd #0993    ; some custom message?
12382 E05F BD C0 2E        ...   jsr c02e             ;jump71 - display
12383 E062 38              8     pulx
12384 goto72:
12385 E063 7E E5 6A        ~.j   jmp e56a             ;goto73 - bail
12386 goto71:
12387 E066 F6 00 06        ...   ldab 0006
12388 E069 26 03           &.    bne 03
12389 E06B 7E E5 6A        ~.j   jmp e56a             ;goto73 - bail
12390 E06E CE 00 1D        ...   ldx #001d
12391 E071 1C 00 40        ...   bset 00,x, #40
12392 E074 BD E7 C7        ...   jsr e7c7             ;jump114
12393 E077 F6 00 06        ...   ldab 0006
12394 E07A C1 59           .Y    cmpb #59     ; 89
12395 E07C 26 06           &.    bne 06
12396 E07E BD DE 09        ...   jsr de09             ;jump119  - display machine id
12397 E081 7E E5 5E        ~.^   jmp e55e             ;goto74 - bail
12398 ;
12399 E084 F6 00 06        ...   ldab 0006
12400 E087 BD D4 68        ..h   jsr d468             ;jump51
12401 E08A 83 00 00        ...   subd #0000
12402 E08D 27 18           '.    beq 18       ; to e097
12403 ;
12404 E08F BD D5 61        ..a   jsr d561             ;jump42
12405 E092 83 00 00        ...   subd #0000
12406 E095 26 10           &.    bne 10       ; to e0a7
12407 ;
12408 E097 BD D3 46        ..F   jsr d346             ;jump43
12409 E09A 83 00 00        ...   subd #0000
12410 E09D 26 08           &.    bne 08
12411 E09F BD D7 83        ...   jsr d783             ;jump44
12412 E0A2 83 00 00        ...   subd #0000
12413 E0A5 27 09           '.    beq 09
12414 ;
12415 E0A7 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12416 E0AA BD D8 E9        ...   jsr d8e9             ;jump92 - "SELECT OTHER ITEM"
12417 E0AD 7E E5 5E        ~.^   jmp e55e             ;goto74 - bail
12418 ;
12419 E0B0 F6 00 06        ...   ldab 0006
12420 E0B3 4F              O     clra
12421 E0B4 05              .     asld
12422 E0B5 C3 08 00        ...   addd #0800
12423 E0B8 8F              .     xgdx
12424 E0B9 EC 00           ..    ldd 00,x
12425 E0BB C4 FF           ..    andb #ff
12426 E0BD 84 3F           .?    anda #3f
12427 E0BF FD 00 44        ..D   std 0044
12428 E0C2 F6 00 06        ...   ldab 0006
12429 E0C5 4F              O     clra
12430 E0C6 05              .     asld
12431 E0C7 C3 08 C8        ...   addd #08c8
12432 E0CA 8F              .     xgdx
12433 E0CB EC 00           ..    ldd 00,x
12434 E0CD C4 7F           ..    andb #7f
12435 E0CF 4F              O     clra
12436 E0D0 FD 00 4D        ..M   std 004d
12437 E0D3 F6 0B C0        ...   ldab 0bc0
12438 E0D6 2C 05           ,.    bge 05      ; free vend
12439 E0D8 5F              _     clrb
12440 E0D9 4F              O     clra
12441 E0DA FD 00 44        ..D   std 0044
12442 ;
12443 E0DD F6 0B C0        ...   ldab 0bc0
12444 E0E0 C4 02           ..    andb #02    ; have a link master! (thats us!)
12445 E0E2 26 03           &.    bne 03
12446 E0E4 BD DE 15        ...   jsr de15             ;jump118
12447 E0E7 F6 00 11        ...   ldab 0011
12448 E0EA C4 20           .     andb #20    ; win a snack?
12449 E0EC 26 1A           &.    bne 1a      ;to e108
12450 E0EE F6 0B C0        ...   ldab 0bc0
12451 E0F1 C4 02           ..    andb #02    ; have a changer
12452 E0F3 26 13           &.    bne 13      ; to e108
12453 E0F5 FC 00 40        ..@   ldd 0040
12454 E0F8 F3 00 3E        ..>   addd 003e
12455 E0FB B3 00 44        ..D   subd 0044
12456 E0FE 25 08           %.    bcs 08      ; to e108
12457 E100 F6 0B C0        ...   ldab 0bc0
12458 E103 2D 03           -.    blt 03      ; no free vend - to e108
12459 E105 BD DA 64        ..d   jsr da64             ;jump122
12460 ;
12461 E108 FC 00 40        ..@   ldd 0040    ; have sufficient funds?
12462 E10B F3 00 3E        ..>   addd 003e
12463 E10E B3 00 44        ..D   subd 0044
12464 E111 24 50           $P    bcc 50      ; to e163
12465 E113 F6 0B C0        ...   ldab 0bc0
12466 E116 C4 10           ..    andb #10     ; have link master price holding
12467 E118 26 49           &I    bne 49
12468 E11A F6 00 2B        ..+   ldab 002b
12469 E11D C1 00           ..    cmpb #00
12470 E11F 26 08           &.    bne 08
12471 E121 CC AC C9        ...   ldd #acc9    ; "PRECIO"
12472 E124 BD C0 BA        ...   jsr c0ba             ;display:
12473 E127 20 1E            .    bra 1e
12474 E129 C1 01           ..    cmpb #01
12475 E12B 26 08           &.    bne 08
12476 E12D CC AC BE        ...   ldd #acbe    ; "PREIS"
12477 E130 BD C0 BA        ...   jsr c0ba             ;display:
12478 E133 20 12            .    bra 12
12479 E135 C1 02           ..    cmpb #02
12480 E137 26 08           &.    bne 08
12481 E139 CC AC B3        ...   ldd #acb3    ; "PRIX"
12482 E13C BD C0 BA        ...   jsr c0ba             ;display:
12483 E13F 20 06            .    bra 06
12484 E141 CC AC A8        ...   ldd #aca8    ; "PRICE"
12485 E144 BD C0 BA        ...   jsr c0ba             ;display:
12486 E147 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12487 E14A CE 00 00        ...   ldx #0000
12488 E14D 3C              <     pshx
12489 E14E FC 00 44        ..D   ldd 0044
12490 E151 BD BE 9E        ...   jsr be9e             ;jump50 - write price to screen
12491 E154 38              8     pulx
12492 E155 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12493 E158 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12494 E15B C6 0C           ..    ldab #0c
12495 E15D F7 00 2C        ..,   stab 002c
12496 E160 7E E5 5E        ~.^   jmp e55e             ;goto74 - return
12497 ;
12498 E163 F6 0B C0        ...   ldab 0bc0
12499 E166 C4 01           ..    andb #01     ; have a dumb mech
12500 E168 26 11           &.    bne 11       ; to e17b
12501 E16A F6 0B C0        ...   ldab 0bc0
12502 E16D C4 04           ..    andb #04     ; have a card reader
12503 E16F 26 0A           &.    bne 0a       ; to e17b
12504 E171 F6 0B C0        ...   ldab 0bc0
12505 E174 C4 0F           ..    andb #0f     ; have any coin input mechanism
12506 E176 27 03           '.    beq 03       ; to e17b
12507 E178 7E E3 35        ~.5   jmp e335             ;goto75
12508 ;
12509 E17B FC 00 40        ..@   ldd 0040
12510 E17E F3 00 3E        ..>   addd 003e
12511 E181 B3 00 44        ..D   subd 0044
12512 E184 FD 10 16        ...   std 1016     ; change required to give?
12513 E187 F6 00 15        ...   ldab 0015
12514 E18A C4 01           ..    andb #01
12515 E18C 27 08           '.    beq 08       ; to e196
12516 E18E FC 10 16        ...   ldd 1016
12517 E191 83 00 64        ..d   subd #0064  ; 100
12518 E194 25 3C           %<    bcs 3c       ; to e1d2
12519 E196 F6 00 15        ...   ldab 0015
12520 E199 C4 02           ..    andb #02
12521 E19B 27 08           '.    beq 08       ; to e1a5
12522 E19D FC 10 16        ...   ldd 1016
12523 E1A0 83 00 C8        ...   subd #00c8  ; 200
12524 E1A3 25 2D           %-    bcs 2d       ; to e1d2
12525 E1A5 F6 00 15        ...   ldab 0015
12526 E1A8 C4 04           ..    andb #04
12527 E1AA 27 08           '.    beq 08       ; to e1b4
12528 E1AC FC 10 16        ...   ldd 1016
12529 E1AF 83 01 F4        ...   subd #01f4  ; 500
12530 E1B2 25 1E           %.    bcs 1e       ; to e1d2
12531 E1B4 F6 00 15        ...   ldab 0015
12532 E1B7 C4 08           ..    andb #08
12533 E1B9 27 08           '.    beq 08
12534 E1BB FC 10 16        ...   ldd 1016
12535 E1BE 83 03 E8        ...   subd #03e8  ; 1000
12536 E1C1 25 0F           %.    bcs 0f       ; to e1d2
12537 E1C3 F6 00 15        ...   ldab 0015
12538 E1C6 C4 10           ..    andb #10
12539 E1C8 27 13           '.    beq 13       ; to e1dd
12540 E1CA FC 10 16        ...   ldd 1016
12541 E1CD 83 07 D0        ...   subd #07d0  ; 2000
12542 E1D0 24 0B           $.    bcc 0b       ; to e1dd
12543 ;
12544 E1D2 BD C0 E0        ...   jsr c0e0             ;jump94
12545 E1D5 83 00 00        ...   subd #0000
12546 E1D8 26 01           &.    bne 01
12547 ;
12548 E1DA 39              9     rts
12549 ;
12550 E1DB 20 03            .    bra 03
12551 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12552 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12553 E1E3 FC 00 40        ..@   ldd 0040
12554 E1E6 B3 00 44        ..D   subd 0044
12555 E1E9 F3 00 3E        ..>   addd 003e
12556 E1EC FD 00 40        ..@   std 0040     ; credit left
12557 E1EF 5F              _     clrb
12558 E1F0 4F              O     clra
12559 E1F1 FD 00 3E        ..>   std 003e
12560 E1F4 CE 00 1B        ...   ldx #001b
12561 E1F7 1C 00 80        ..    bset 00,x, #80
12562 E1F9 BD D2 13        ..    jsr d213     ;jump45 - vend it!
12563 E1FC 83 00 00        ...   subd #0000
12564 E200 26 12           &.    bne 12       ; to e214
12565 E202 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12566 E205 BD D8 E9        ...   jsr d8e9             ;jump92 - "SELECT OTHER ITEM"
12567 E208 FC 00 40        ..@   ldd 0040
12568 E20B F3 00 44        ..D   addd 0044
12569 E20E FD 00 40        ..@   std 0040
12570 E211 7E E3 29        ~.)   jmp e329             ;goto92
12571 E214 BD DB CB        ...   jsr dbcb             ;jump121
12572 E217 F6 00 1B        ...   ldab 001b
12573 E21A C4 20           .     andb #20
12574 E21C 27 45           'E    beq 45       ; to e263
12575 E21E FC 00 44        ..D   ldd 0044
12576 E221 37              7     pshb
12577 E222 36              6     psha
12578 E223 4F              O     clra
12579 E224 5F              _     clrb
12580 E225 37              7     pshb
12581 E226 36              6     psha
12582 E227 CC 0D FB        ...   ldd #0dfb
12583 E22A BD FB DF        ...   jsr fbdf             ;jump46
12584 E22D 31              1     ins
12585 E22E 31              1     ins
12586 E22F FE 0D FD        ...   ldx 0dfd
12587 E232 3C              <     pshx
12588 E233 FC 0D FB        ...   ldd 0dfb
12589 E236 37              7     pshb
12590 E237 36              6     psha
12591 E238 CE E1 00        ...   ldx #e100
12592 E23B 3C              <     pshx
12593 E23C CC 05 F5        ...   ldd #05f5    ; 100000000 (with above)
12594 E23F 37              7     pshb
12595 E240 36              6     psha
12596 E241 30              0     tsx
12597 E242 EC 06           ..    ldd 06,x
12598 E244 A3 02           ..    subd 02,x
12599 E246 EC 04           ..    ldd 04,x
12600 E248 E2 01           ..    sbcb 01,x
12601 E24A A2 00           ..    sbca 00,x
12602 E24C 38              8     pulx
12603 E24D 38              8     pulx
12604 E24E 38              8     pulx
12605 E24F 38              8     pulx
12606 E250 25 11           %.    bcs 11
12607 E252 CE 1F 00        ...   ldx #1f00
12608 E255 3C              <     pshx
12609 E256 CC FA 0A        ...   ldd #fa0a    ; -100000000 (with above)
12610 E259 37              7     pshb
12611 E25A 36              6     psha
12612 E25B CC 0D FB        ...   ldd #0dfb
12613 E25E BD FB DF        ...   jsr fbdf             ;jump46 - update accounting info?
12614 E261 31              1     ins
12615 E262 31              1     ins
12616 ;
12617 E263 F6 0B C0        ...   ldab 0bc0
12618 E266 2C 78           ,x    bge 78       ; free vend - to e2e0
12619 E268 F6 00 06        ...   ldab 0006
12620 E26B 4F              O     clra
12621 E26C 05              .     asld
12622 E26D C3 08 00        ...   addd #0800
12623 E270 8F              .     xgdx
12624 E271 EC 00           ..    ldd 00,x
12625 E273 C4 FF           ..    andb #ff
12626 E275 26 02           &.    bne 02
12627 E277 84 3F           .?    anda #3f
12628 E279 27 65           'e    beq 65
12629 E27B FC 0D 0D        ...   ldd 0d0d
12630 E27E 83 FF FF        ...   subd #ffff
12631 E281 26 05           &.    bne 05
12632 E283 5F              _     clrb
12633 E284 4F              O     clra
12634 E285 FD 0D 0D        ...   std 0d0d     ; update number of free vends?
12635 E288 FE 0D 0D        ...   ldx 0d0d
12636 E28B 08              .     inx
12637 E28C FF 0D 0D        ...   stx 0d0d
12638 E28F F6 00 06        ...   ldab 0006
12639 E292 4F              O     clra
12640 E293 05              .     asld
12641 E294 C3 08 00        ...   addd #0800
12642 E297 8F              .     xgdx
12643 E298 EC 00           ..    ldd 00,x
12644 E29A C4 FF           ..    andb #ff
12645 E29C 84 3F           .?    anda #3f
12646 E29E 37              7     pshb
12647 E29F 36              6     psha
12648 E2A0 4F              O     clra
12649 E2A1 5F              _     clrb
12650 E2A2 37              7     pshb
12651 E2A3 36              6     psha
12652 E2A4 CC 0D 1B        ...   ldd #0d1b
12653 E2A7 BD FB DF        ...   jsr fbdf             ;jump46 - update accounting info?
12654 E2AA 31              1     ins
12655 E2AB 31              1     ins
12656 E2AC FE 0D 1D        ...   ldx 0d1d
12657 E2AF 3C              <     pshx
12658 E2B0 FC 0D 1B        ...   ldd 0d1b
12659 E2B3 37              7     pshb
12660 E2B4 36              6     psha
12661 E2B5 CE E1 00        ...   ldx #e100
12662 E2B8 3C              <     pshx
12663 E2B9 CC 05 F5        ...   ldd #05f5    ; 100000000
12664 E2BC 37              7     pshb
12665 E2BD 36              6     psha
12666 E2BE 30              0     tsx
12667 E2BF EC 06           ..    ldd 06,x
12668 E2C1 A3 02           ..    subd 02,x
12669 E2C3 EC 04           ..    ldd 04,x
12670 E2C5 E2 01           ..    sbcb 01,x
12671 E2C7 A2 00           ..    sbca 00,x
12672 E2C9 38              8     pulx
12673 E2CA 38              8     pulx
12674 E2CB 38              8     pulx
12675 E2CC 38              8     pulx
12676 E2CD 25 11           %.    bcs 11
12677 E2CF CE 1F 00        ...   ldx #1f00
12678 E2D2 3C              <     pshx
12679 E2D3 CC FA 0A        ...   ldd #fa0a    ; -100000000
12680 E2D6 37              7     pshb
12681 E2D7 36              6     psha
12682 E2D8 CC 0D 1B        ...   ldd #0d1b
12683 E2DB BD FB DF        ...   jsr fbdf             ;jump46 - update accounting info?
12684 E2DE 31              1     ins
12685 E2DF 31              1     ins
12686 ;
12687 E2E0 F6 00 11        ...   ldab 0011
12688 E2E3 C4 10           ..    andb #10     ; multi dip switch
12689 E2E5 26 14           &.    bne 14       ; to e2fb
12690 E2E7 FC 00 40        ..@   ldd 0040
12691 E2EA 27 0F           '.    beq 0f       ; to e2fb
12692 E2EC FC 00 40        ..@   ldd 0040
12693 E2EF B3 00 50        ..P   subd 0050
12694 E2F2 24 15           $.    bcc 15       ; to e309
12695 E2F4 F6 00 11        ...   ldab 0011
12696 E2F7 C4 10           ..    andb #10
12697 E2F9 26 0E           &.    bne 0e
12698 ;
12699 E2FB BD DB 44        ..D   jsr db44             ;jump104 - say thanks
12700 E2FE CE 00 1B        ...   ldx #001b
12701 E301 1D 00 40        ...   bclr 00,x, #40
12702 E304 7F 00 25        ..%   clr 0025
12703 E307 20 1A            .    bra 1a       ; to e323
12704 ;
12705 E309 7F 00 2C        ..,   clr 002c
12706 E30C CC 01 F4        ...   ldd #01f4
12707 E30F BD E5 71        ..q   jsr e571             ;msdelay
12708 E312 BD E5 AA        ...   jsr e5aa             ;jump12 - beep if keypressed?
12709 E315 BD D8 E9        ...   jsr d8e9             ;jump92 - select other item
12710 E318 CE 00 1B        ...   ldx #001b
12711 E31B 1C 00 40        ...   bset 00,x, #40
12712 E31E C6 0A           ..    ldab #0a
12713 E320 F7 00 25        ..%   stab 0025
12714 ;
12715 E323 BD D7 FF        ...   jsr d7ff             ;jump80
12716 E326 BD D8 40        ..@   jsr d840             ;jump105
12717 goto92:
12718 E329 BD E8 9A        ...   jsr e89a             ;jump68
12719 E32C CE 0B C1        ...   ldx #0bc1
12720 E32F 1D 00 08        ...   bclr 00,x, #08  ; clear bill error bit
12721 E332 7E E5 5E        ~.^   jmp e55e             ;goto74 - bail
12722 goto75:
12723 E335 F6 0B C0        ...   ldab 0bc0
12724 E338 C4 02           ..    andb #02     ; have changer - european link master type!
12725 E33A 26 03           &.    bne 03
12726 E33C 7E E5 5E        ~.^   jmp e55e             ;goto74 - bail
12727 E33F 5F              _     clrb
12728 E340 4F              O     clra
12729 E341 FD 00 76        ..v   std 0076
12730 E344 CE 00 17        ...   ldx #0017
12731 E347 1D 00 01        ...   bclr 00,x, #01
12732 E34A CE 00 17        ...   ldx #0017
12733 E34D 1D 00 02        ...   bclr 00,x, #02
12734 E350 FC 00 44        ..D   ldd 0044
12735 E353 26 1C           &.    bne 1c
12736 E355 F6 0B C0        ...   ldab 0bc0
12737 E358 C4 10           ..    andb #10      ; have link master price holding
12738 E35A 26 08           &.    bne 08
12739 E35C CE 00 21        ..!   ldx #0021
12740 E35F 1C 00 80        ..    bset 00,x, #80
12741 E362 20 0B           .     bra 0b
12742 E364 CE 00 21        ..!   ldx #0021
12743 E367 1D 00 80        ..    bclr 00,x, #80
12744 E369 C6 05           ..    ldab #05
12745 E36C F7 00 75        ..u   stab 0075
12746 E36F 20 57            W    bra 57
12747 E371 F6 0B C0        ...   ldab 0bc0
12748 E374 C4 10           ..    andb #10      ; have link master price holding
12749 E376 27 50           'P    beq 50
12750 E378 FC 00 40        ..@   ldd 0040
12751 E37B 26 4B           &K    bne 4b
12752 E37D F6 0B C0        ...   ldab 0bc0
12753 E380 C4 20           .     andb #20      ; have link master price holding - price display
12754 E382 27 3E           '>    beq 3e
12755 E384 CE 00 17        ...   ldx #0017
12756 E387 1C 00 01        ...   bset 00,x, #01
12757 E38A F6 00 2B        ..+   ldab 002b
12758 E38D C1 00           ..    cmpb #00
12759 E38F 26 08           &.    bne 08
12760 E391 CC AC C9        ...   ldd #acc9    ; "  PRECIO  "
12761 E394 BD C0 BA        ...   jsr c0ba             ;display:
12762 E397 20 1E            .    bra 1e
12763 E399 C1 01           ..    cmpb #01
12764 E39B 26 08           &.    bne 08
12765 E39D CC AC BE        ...   ldd #acbe    ; "  PRIES  "
12766 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12767 E3A3 20 12            .    bra 12
12768 E3A5 C1 02           ..    cmpb #02
12769 E3A7 26 08           &.    bne 08
12770 E3A9 CC AC B3        ...   ldd #acb3    ; "  PRIX   "
12771 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12772 E3AF 20 06            .    bra 06
12773 E3B1 CC AC A8        ...   ldd #aca8    ; "  PRICE  "
12774 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12775 E3B7 BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12776 E3BA CE 00 17        ...   ldx #0017
12777 E3BD 1C 00 02        ...   bset 00,x, #02
12778 E3C0 20 06            .    bra 06
12779 E3C2 CE 00 1F        ...   ldx #001f
12780 E3C5 1C 00 08        ...   bset 00,x, #08
12781 E3C8 CE 00 1D        ...   ldx #001d
12782 E3CB 1C 00 02        ...   bset 00,x, #02
12783 E3CE CE 00 19        ...   ldx #0019
12784 E3D1 1C 00 08        ...   bset 00,x, #08
12785 E3D4 C6 32           .2    ldab #32
12786 E3D6 F7 00 31        ..1   stab 0031
12787 E3D9 C6 19           ..    ldab #19
12788 E3DB F7 00 36        ..6   stab 0036
12789 goto77:
12790 E3DE F6 00 1D        ...   ldab 001d
12791 E3E1 C4 02           ..    andb #02
12792 E3E3 26 03           &.    bne 03
12793 E3E5 7E E4 6E        ~.n   jmp e46e             ;goto76
12794 E3E8 F6 00 75        ..u   ldab 0075
12795 E3EB C1 04           ..    cmpb #04
12796 E3ED 22 05           ".    bhi 05
12797 E3EF F6 00 36        ..6   ldab 0036
12798 E3F2 26 3C           &<    bne 3c
12799 E3F4 7F 00 06        ...   clr 0006
12800 E3F7 5F              _     clrb
12801 E3F8 4F              O     clra
12802 E3F9 FD 00 76        ..v   std 0076
12803 E3FC 7F 00 2E        ...   clr 002e
12804 E3FF 7F 00 2C        ..,   clr 002c
12805 E402 7F 00 75        ..u   clr 0075
12806 E405 CE 00 17        ...   ldx #0017
12807 E408 1D 00 01        ...   bclr 00,x, #01
12808 E40B CE 00 19        ...   ldx #0019
12809 E40E 1D 00 08        ...   bclr 00,x, #08
12810 E411 CE 00 1B        ...   ldx #001b
12811 E414 1D 00 80        ..    bclr 00,x, #80
12812 E416 CE 00 1D        ..    ldx #001d
12813 E41A 1D 00 40        ...   bclr 00,x, #40
12814 E41D CE 00 1D        ...   ldx #001d
12815 E420 1D 00 02        ...   bclr 00,x, #02
12816 E423 CE 00 1F        ...   ldx #001f
12817 E426 1D 00 08        ...   bclr 00,x, #08
12818 E429 CE 00 21        ..!   ldx #0021
12819 E42C 1D 00 80        ..    bclr 00,x, #80
12820 E42F 39              .9    rts
12821 ;
12822 E430 F6 0B C0        ...   ldab 0bc0
12823 E433 C4 20           .     andb #20     ; link master - price display
12824 E435 27 34           '4    beq 34
12825 E437 F6 00 17        ...   ldab 0017
12826 E43A C4 01           ..    andb #01
12827 E43C 26 2D           &-    bne 2d
12828 E43E F6 00 17        ...   ldab 0017
12829 E441 C4 02           ..    andb #02
12830 E443 27 26           '&    beq 26
12831 E445 CE 00 00        ...   ldx #0000
12832 E448 3C              <     pshx
12833 E449 FC 00 76        ..v   ldd 0076
12834 E44C BD BE 9E        ...   jsr be9e             ;jump50
12835 E44F 38              8     pulx
12836 E450 FC 00 76        ..v   ldd 0076
12837 E453 26 06           &.    bne 06
12838 E455 CE 00 17        ...   ldx #0017
12839 E458 1D 00 02        ...   bclr 00,x, #02
12840 E45B F6 00 17        ...   ldab 0017
12841 E45E C4 02           ..    andb #02
12842 E460 27 09           '.    beq 09
12843 E462 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12844 E465 CE 00 17        ...   ldx #0017
12845 E468 1D 00 02        ...   bclr 00,x, #02
12846 E46B 7E E3 DE        ~..   jmp e3de             ;goto77
12847 goto76:
12848 E46E CE 00 21        ..!   ldx #0021
12849 E471 1D 00 80        ..    bclr 00,x, #80
12850 E474 CE 00 1F        ..    ldx #001f
12851 E477 1D 00 08        ....  bclr 00,x, #08
12852 E47A BD D2 13        ...   jsr d213             ;jump45 - vend it!
12853 E47D 83 00 00        ...   subd #0000
12854 E480 26 0F           &.    bne 0f
12855 E482 CC 00 80        ...   ldd #0080
12856 E485 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12857 E488 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
12858 E48B BD D8 E9        ...   jsr d8e9             ;jump92 - "SELECT OTHER ITEM"
12859 E48E 7E E5 5E        ~.^   jmp e55e             ;goto74
12860 E491 F6 00 2B        ..+   ldab 002b
12861 E494 C1 00           ..    cmpb #00
12862 E496 26 08           &.    bne 08
12863 E498 CC AD 16        ...   ldd #ad16    ; "GRACIAS"
12864 E49B BD C0 BA        ...   jsr c0ba             ;display:
12865 E49E 20 1E            .    bra 1e
12866 E4A0 C1 01           ..    cmpb #01
12867 E4A2 26 08           &.    bne 08
12868 E4A4 CC AD 0B        ...   ldd #ad0b    ; "DANKE"
12869 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12870 E4AA 20 12            .    bra 12
12871 E4AC C1 02           ..    cmpb #02
12872 E4AE 26 08           &.    bne 08
12873 E4B0 CC AD 00        ...   ldd #ad00    ; "MERCI"
12874 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12875 E4B6 20 06            .    bra 06
12876 E4B8 CC AC F5        ...   ldd #acf5    ; "THANKS"
12877 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12878 E4BE BD D8 D3        ...   jsr d8d3             ;jump84 500ms delay
12879 E4C1 CE 00 01        ...   ldx #0001
12880 E4C4 3C              <     pshx
12881 E4C5 FC 00 40        ..@   ldd 0040
12882 E4C8 BD BE 9E        ...   jsr be9e             ;jump50
12883 E4CB 38              8     pulx
12884 E4CC 5F              _     clrb
12885 E4CD 4F              O     clra
12886 E4CE BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
12887 E4D1 F6 0B C0        ...   ldab 0bc0
12888 E4D4 2D 03           -.    blt 03       ; free vend
12889 E4D6 7E E5 58        ~.X   jmp e558             ;goto78 if not
12890 E4D9 F6 0B C0        ...   ldab 0bc0
12891 E4DC C4 10           ..    andb #10     ; link master - price holding
12892 E4DE 26 78           &x    bne 78
12893 E4E0 F6 00 06        ...   ldab 0006
12894 E4E3 4F              O     clra
12895 E4E4 05              .     asld
12896 E4E5 C3 08 00        ...   addd #0800
12897 E4E8 8F              .     xgdx
12898 E4E9 EC 00           ..    ldd 00,x
12899 E4EB C4 FF           ..    andb #ff
12900 E4ED 26 02           &.    bne 02
12901 E4EF 84 3F           .?    anda #3f
12902 E4F1 27 65           'e    beq 65
12903 E4F3 FC 0D 0D        ...   ldd 0d0d
12904 E4F6 83 FF FF        ...   subd #ffff
12905 E4F9 26 05           &.    bne 05
12906 E4FB 5F              _     clrb
12907 E4FC 4F              O     clra
12908 E4FD FD 0D 0D        ...   std 0d0d
12909 E500 FE 0D 0D        ...   ldx 0d0d
12910 E503 08              .     inx
12911 E504 FF 0D 0D        ...   stx 0d0d
12912 E507 F6 00 06        ...   ldab 0006
12913 E50A 4F              O     clra
12914 E50B 05              .     asld
12915 E50C C3 08 00        ...   addd #0800
12916 E50F 8F              .     xgdx
12917 E510 EC 00           ..    ldd 00,x
12918 E512 C4 FF           ..    andb #ff
12919 E514 84 3F           .?    anda #3f
12920 E516 37              7     pshb
12921 E517 36              6     psha
12922 E518 4F              O     clra
12923 E519 5F              _     clrb
12924 E51A 37              7     pshb
12925 E51B 36              6     psha
12926 E51C CC 0D 1B        ...   ldd #0d1b
12927 E51F BD FB DF        ...   jsr fbdf             ;jump46
12928 E522 31              1     ins
12929 E523 31              1     ins
12930 E524 FE 0D 1D        ...   ldx 0d1d
12931 E527 3C              <     pshx
12932 E528 FC 0D 1B        ...   ldd 0d1b
12933 E52B 37              7     pshb
12934 E52C 36              6     psha
12935 E52D CE E1 00        ...   ldx #e100
12936 E530 3C              <     pshx
12937 E531 CC 05 F5        ...   ldd #05f5
12938 E534 37              7     pshb
12939 E535 36              6     psha
12940 E536 30              0     tsx
12941 E537 EC 06           ..    ldd 06,x
12942 E539 A3 02           ..    subd 02,x
12943 E53B EC 04           ..    ldd 04,x
12944 E53D E2 01           ..    sbcb 01,x
12945 E53F A2 00           ..    sbca 00,x
12946 E541 38              8     pulx
12947 E542 38              8     pulx
12948 E543 38              8     pulx
12949 E544 38              8     pulx
12950 E545 25 11           %.    bcs 11
12951 E547 CE 1F 00        ...   ldx #1f00
12952 E54A 3C              <     pshx
12953 E54B CC FA 0A        ...   ldd #fa0a
12954 E54E 37              7     pshb
12955 E54F 36              6     psha
12956 E550 CC 0D 1B        ...   ldd #0d1b
12957 E553 BD FB DF        ...   jsr fbdf             ;jump46
12958 E556 31              1     ins
12959 E557 31              1     ins
12960 goto78:
12961 E558 BD D7 FF        ...   jsr d7ff             ;jump80
12962 E55B BD D8 40        ..@   jsr d840             ;jump105
12963 goto74:
12964 E55E 7F 00 06        ...   clr 0006
12965 E561 7F 00 2E        ...   clr 002e
12966 E564 CE 00 1B        ...   ldx #001b
12967 E567 1D 00 80        ..    bclr 00,x, #80
12968 goto73:
12969 E56A CE 00 1D        ...   ldx #001d
12970 E56C 1D 00 40        ..    bclr 00,x, #40
12971 E570 39              9     rts
12972
12973 ;!!! Is this a delay routine?  It gets called between displaying strings
12974 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12975 msdelay:
12976 ; appears to delay for roughly D milliseconds.
12977 E571 37              7     pshb
12978 E572 36              6     psha
12979 E573 34              4     des
12980 E574 30              0     tsx
12981 E575 EC 01           ..    ldd 01,x
12982 E577 83 00 01        ...   subd #0001
12983 E57A ED 01           ..    std 01,x
12984 E57C 2D 15           -.    blt 15       ; to e593
12985 E57E C6 41           .A    ldab #41
12986 E580 30              0     tsx
12987 E581 E7 00           ..    stab 00,x
12988 E583 30              0     tsx
12989 E584 E6 00           ..    ldab 00,x
12990 E586 6A 00           j.    dec 00,x
12991 E588 C1 00           ..    cmpb #00
12992 E58A 23 02           #.    bls 02
12993 E58C 20 F5            .    bra f5       ; to e583
12994 E58E BD E6 1B        ...   jsr e61b             ;jump4
12995 E591 20 E1            .    bra e1       ; to e574
12996 E593 38              8     pulx         ;this must just be a standard 'pull 3
12997 E594 31              1     ins          ;bytes and I don't care where they go'
12998                                         ;to clean up the stack.
12999 E595 39              9     rts
13000
13001 jump115:
13002 ; A short delay - counts to 32 in a stack variable. (about 100ms?)
13003 E596 34              4     des
13004 E597 C6 32           .2    ldab #32
13005 E599 30              0     tsx
13006 E59A E7 00           ..    stab 00,x
13007 E59C 30              0     tsx
13008 E59D E6 00           ..    ldab 00,x
13009 E59F C1 00           ..    cmpb #00
13010 E5A1 23 05           #.    bls e5a8
13011 E5A3 30              0     tsx
13012 E5A4 6A 00           j.    dec 00,x
13013 E5A6 20 F4            .    bra e59c
13014 E5A8 31              1     ins
13015 E5A9 39              9     rts
13016
13017 jump12:
13018 ; beep if keypressed?
13019 E5AA F6 00 33        ..3   ldab 0033
13020 E5AD 27 0C           '.    beq 0c      ; to e5bb
13021 E5AF F6 00 29        ..)   ldab 0029   ; key state
13022 E5B2 27 05           '.    beq 05      ; to e5b9 (out)
13023 E5B4 C6 02           ..    ldab #02
13024 E5B6 F7 00 33        ..3   stab 0033
13025 E5B9 20 15            .    bra 15      ; to e5d0 (out)
13026 E5BB C6 03           ..    ldab #03    ; beep
13027 E5BD F7 00 32        ..2   stab 0032
13028 E5C0 FC 00 3B        ..;   ldd 003b
13029 E5C3 27 06           '.    beq 06      ; to e5cb
13030 E5C5 CC 02 33        ..3   ldd #0233
13031 E5C8 FD 00 3B        ..;   std 003b
13032 E5CB C6 02           ..    ldab #02    ; make a beep
13033 E5CD F7 00 33        ..3   stab 0033
13034 E5D0 39              9     rts
13035
13036 jump52:
13037 ; signifies a triple beep?
13038 E5D1 C6 0B           ..    ldab #0b    ; 1011
13039 E5D3 F7 00 32        ..2   stab 0032
13040 E5D6 39              9     rts
13041
13042 jump69:
13043 ; tests an internal switch or input line
13044 ; Parameters: Port Address in D, bit mask on stack
13045 ; Return value:
13046 E5D7 37              7     pshb
13047 E5D8 36              6     psha
13048 ; make some stack space
13049 E5D9 3C              <     pshx
13050 E5DA 3C              <     pshx
13051 E5DB 5F              _     clrb
13052 E5DC 4F              O     clra
13053 E5DD 30              0     tsx
13054 ; 00,x on stack - number of hits
13055 E5DE ED 00           ..    std 00,x
13056 ; we call i = 02,x. let i = 64
13057 E5E0 CC 00 64        ..d   ldd #0064
13058 E5E3 ED 02           ..    std 02,x
13059 ; break if i <= 0
13060 E5E5 30              0     tsx
13061 E5E6 EC 02           ..    ldd 02,x
13062 E5E8 2F 21           /!    ble 21     ; to e60b
13063 ; we call j = 04,x. let j = initial value of D
13064 E5EA 30              0     tsx
13065 E5EB EE 04           ..    ldx 04,x
13066 E5ED E6 00           ..    ldab 00,x
13067 E5EF 30              0     tsx
13068 E5F0 E4 09           ..    andb 09,x
13069 E5F2 27 05           '.    beq 05     ; to e5f9 if bit cleared
13070 E5F4 38              8     pulx
13071 E5F5 08              .     inx        ; increment number of hits
13072 E5F6 3C              <     pshx
13073 E5F7 20 08            .    bra 08     ; to e601
13074 E5F9 30              0     tsx
13075 E5FA EC 00           ..    ldd 00,x
13076 E5FC 83 00 01        ...   subd #0001 ; decrement number of hits
13077 E5FF ED 00           ..    std 00,x
13078 E601 30              0     tsx
13079 E602 EC 02           ..    ldd 02,x
13080 E604 83 00 01        ...   subd #0001  ; i--
13081 E607 ED 02           ..    std 02,x
13082 E609 20 DA            .    bra da      ; to e5e5
13083 ; end of loop
13084 ; return 1 iff the key was pressed
13085 E60B 30              0     tsx
13086 E60C EC 00           ..    ldd 00,x
13087 E60E 2F 04           /.    ble 04      ; to e614 if -ve
13088 E610 5F              _     clrb
13089 E611 4F              O     clra
13090 E612 20 03            .    bra 03      ; to e617
13091 E614 CC 00 01        ...   ldd #0001
13092 E617 38              8     pulx
13093 E618 38              8     pulx
13094 E619 38              8     pulx
13095 E61A 39              9     rts
13096
13097 jump4:
13098 E61B C6 0A           ..    ldab #0a
13099 E61D F7 00 31        ..1   stab 0031
13100 E620 39              9     rts
13101
13102 jump56:
13103 ; writes a really big number to the display
13104 E621 38              8     pulx
13105 E622 37              7     pshb
13106 E623 36              6     psha
13107 E624 3C              <     pshx
13108 E625 BD BE 4B        ..K   jsr be4b             ;displayblank
13109 E628 30              0     tsx
13110 E629 EC 04           ..    ldd 04,x
13111 E62B 37              7     pshb
13112 E62C 36              6     psha
13113 E62D EC 02           ..    ldd 02,x
13114 E62F 37              7     pshb
13115 E630 36              6     psha
13116 E631 CE 96 80        ...   ldx #9680    ;38528
13117 E634 3C              <     pshx
13118 E635 CC 00 98        ...   ldd #0098    ;152
13119 E638 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13120 E63B 31              1     ins
13121 E63C 33              3     pulb
13122 E63D CB 30           .0    addb #30     ; make it a digit
13123 E63F F7 0B 97        ...   stab 0b97
13124 ;
13125 E642 30              0     tsx
13126 E643 EC 04           ..    ldd 04,x
13127 E645 37              7     pshb
13128 E646 36              6     psha
13129 E647 EC 02           ..    ldd 02,x
13130 E649 37              7     pshb
13131 E64A 36              6     psha
13132 E64B CE 96 80        ...   ldx #9680    ;38528
13133 E64E 3C              <     pshx
13134 E64F CC 00 98        ...   ldd #0098    ;152
13135 E652 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13136 E655 37              7     pshb
13137 E656 36              6     psha
13138 E657 CE 42 40        .B@   ldx #4240    ;16960
13139 E65A 3C              <     pshx
13140 E65B CC 00 0F        ...   ldd #000f    ;15
13141 E65E BD FC 4C        ..L   jsr fc4c             ;bigdivide
13142 E661 31              1     ins
13143 E662 33              3     pulb
13144 E663 CB 30           .0    addb #30
13145 E665 F7 0B 96        ...   stab 0b96
13146 ;
13147 E668 30              0     tsx
13148 E669 EC 04           ..    ldd 04,x
13149 E66B 37              7     pshb
13150 E66C 36              6     psha
13151 E66D EC 02           ..    ldd 02,x
13152 E66F 37              7     pshb
13153 E670 36              6     psha
13154 E671 CE 42 40        .B@   ldx #4240    ;16960
13155 E674 3C              <     pshx
13156 E675 CC 00 0F        ...   ldd #000f    ;15
13157 E678 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13158 E67B 37              7     pshb
13159 E67C 36              6     psha
13160 E67D CE 86 A0        ...   ldx #86a0    ;34464
13161 E680 3C              <     pshx
13162 E681 CC 00 01        ...   ldd #0001    ;1
13163 E684 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13164 E687 31              1     ins
13165 E688 33              3     pulb
13166 E689 CB 30           .0    addb #30
13167 E68B F7 0B 95        ...   stab 0b95
13168 ;
13169 E68E 30              0     tsx
13170 E68F EC 04           ..    ldd 04,x
13171 E691 37              7     pshb
13172 E692 36              6     psha
13173 E693 EC 02           ..    ldd 02,x
13174 E695 37              7     pshb
13175 E696 36              6     psha
13176 E697 CE 86 A0        ...   ldx #86a0    ;34464
13177 E69A 3C              <     pshx
13178 E69B CC 00 01        ...   ldd #0001    ;1
13179 E69E BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13180 E6A1 37              7     pshb
13181 E6A2 36              6     psha
13182 E6A3 CE 27 10        .'.   ldx #2710    ;10000
13183 E6A6 3C              <     pshx
13184 E6A7 CC 00 00        ...   ldd #0000
13185 E6AA BD FC 4C        ..L   jsr fc4c             ;bigdivide
13186 E6AD 31              1     ins
13187 E6AE 33              3     pulb
13188 E6AF CB 30           .0    addb #30
13189 E6B1 F7 0B 94        ...   stab 0b94
13190 ;
13191 E6B4 30              0     tsx
13192 E6B5 EC 04           ..    ldd 04,x
13193 E6B7 37              7     pshb
13194 E6B8 36              6     psha
13195 E6B9 EC 02           ..    ldd 02,x
13196 E6BB 37              7     pshb
13197 E6BC 36              6     psha
13198 E6BD CE 27 10        .'.   ldx #2710    ;10000
13199 E6C0 3C              <     pshx
13200 E6C1 CC 00 00        ...   ldd #0000
13201 E6C4 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13202 E6C7 37              7     pshb
13203 E6C8 36              6     psha
13204 E6C9 CE 03 E8        ...   ldx #03e8    ;1000
13205 E6CC 3C              <     pshx
13206 E6CD CC 00 00        ...   ldd #0000
13207 E6D0 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13208 E6D3 31              1     ins
13209 E6D4 33              3     pulb
13210 E6D5 CB 30           .0    addb #30
13211 E6D7 F7 0B 93        ...   stab 0b93
13212 ;
13213 ;
13214 E6DA 30              0     tsx
13215 E6DB EC 04           ..    ldd 04,x
13216 E6DD 37              7     pshb
13217 E6DE 36              6     psha
13218 E6DF EC 02           ..    ldd 02,x
13219 E6E1 37              7     pshb
13220 E6E2 36              6     psha
13221 E6E3 CE 03 E8        ...   ldx #03e8    ;1000
13222 E6E6 3C              <     pshx
13223 E6E7 CC 00 00        ...   ldd #0000
13224 E6EA BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13225 E6ED 37              7     pshb
13226 E6EE 36              6     psha
13227 E6EF CE 00 64        ..d   ldx #0064    ;100
13228 E6F2 3C              <     pshx
13229 E6F3 CC 00 00        ...   ldd #0000
13230 E6F6 BD FC 4C        ..L   jsr fc4c             ;bigdivide
13231 E6F9 31              1     ins
13232 E6FA 33              3     pulb
13233 E6FB CB 30           .0    addb #30
13234 E6FD F7 0B 92        ...   stab 0b92
13235 ;
13236 E700 30              0     tsx
13237 E701 EC 04           ..    ldd 04,x
13238 E703 37              7     pshb
13239 E704 36              6     psha
13240 E705 EC 02           ..    ldd 02,x
13241 E707 37              7     pshb
13242 E708 36              6     psha
13243 E709 CE 00 64        ..d   ldx #0064    ;100
13244 E70C 3C              <     pshx
13245 E70D CC 00 00        ...   ldd #0000
13246 E710 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13247 E713 37              7     pshb
13248 E714 36              6     psha
13249 E715 CE 00 0A        ...   ldx #000a    ;10
13250 E718 3C              <     pshx
13251 E719 CC 00 00        ...   ldd #0000
13252 E71C BD FC 4C        ..L   jsr fc4c             ;bigdivide
13253 E71F 31              1     ins
13254 E720 33              3     pulb
13255 E721 CB 30           .0    addb #30
13256 E723 F7 0B 91        ...   stab 0b91
13257 ;
13258 E726 30              0     tsx
13259 E727 EC 04           ..    ldd 04,x
13260 E729 37              7     pshb
13261 E72A 36              6     psha
13262 E72B EC 02           ..    ldd 02,x
13263 E72D 37              7     pshb
13264 E72E 36              6     psha
13265 E72F CE 00 0A        ...   ldx #000a    ;10
13266 E732 3C              <     pshx
13267 E733 CC 00 00        ...   ldd #0000
13268 E736 BD FC 5C        ..\   jsr fc5c             ;bigmodulus
13269 E739 31              1     ins
13270 E73A 33              3     pulb
13271 E73B CB 30           .0    addb #30
13272 E73D F7 0B 90        ...   stab 0b90
13273 ;
13274 E740 38              8     pulx
13275 E741 31              1     ins
13276 E742 31              1     ins
13277 E743 6E 00           n.    jmp 00,x
13278
13279 jump55:
13280 ; number to string. number is <= 99999. puts it into 0057, 005a, 005d-005f
13281 E745 37              7     pshb
13282 E746 36              6     psha
13283 E747 30              0     tsx
13284 E748 EC 00           ..    ldd 00,x
13285 E74A CE 27 10        .'.   ldx #2710   ; 10000
13286 E74D 02              .     idiv
13287 E74E 8F              .     xgdx
13288 E74F CB 30           .0    addb #30
13289 E751 F7 00 57        ..W   stab 0057   ; num/10000 => 0057
13290 E754 30              0     tsx
13291 E755 EC 00           ..    ldd 00,x
13292 E757 CE 27 10        .'.   ldx #2710   ; 10000
13293 E75A 02              .     idiv
13294 E75B CE 03 E8        ...   ldx #03e8
13295 E75E 02              .     idiv
13296 E75F 8F              .     xgdx
13297 E760 CB 30           .0    addb #30
13298 E762 F7 00 5A        ..Z   stab 005a   ; num%10000/1000 => 005a
13299 E765 30              0     tsx
13300 E766 EC 00           ..    ldd 00,x
13301 E768 CE 03 E8        ...   ldx #03e8
13302 E76B 02              .     idiv
13303 E76C CE 00 64        ..d   ldx #0064
13304 E76F 02              .     idiv
13305 E770 8F              .     xgdx
13306 E771 CB 30           .0    addb #30
13307 E773 F7 00 5D        ..]   stab 005d  ; num%1000/100 => 005d
13308 E776 30              0     tsx
13309 E777 EC 00           ..    ldd 00,x
13310 E779 CE 00 64        ..d   ldx #0064
13311 E77C 02              .     idiv
13312 E77D CE 00 0A        ...   ldx #000a
13313 E780 02              .     idiv
13314 E781 8F              .     xgdx
13315 E782 CB 30           .0    addb #30
13316 E784 F7 00 5E        ..^   stab 005e  ; num%100/10 => 005e
13317 E787 30              0     tsx
13318 E788 EC 00           ..    ldd 00,x
13319 E78A CE 00 0A        ...   ldx #000a
13320 E78D 02              .     idiv
13321 E78E CB 30           .0    addb #30
13322 E790 F7 00 5F        .._   stab 005f ; num%10 => 005f
13323 E793 38              8     pulx
13324 E794 39              9     rts
13325
13326 jump54:
13327 ; number to string. number is <= 999. puts it into 005d-005f
13328 E795 37              7     pshb
13329 E796 36              6     psha
13330 E797 30              0     tsx
13331 E798 E6 01           ..    ldab 01,x
13332 E79A 4F              O     clra
13333 E79B CE 00 64        ..d   ldx #0064   ; /100
13334 E79E 02              .     idiv
13335 E79F 8F              .     xgdx
13336 E7A0 CB 30           .0    addb #30    ; make it a digit
13337 E7A2 F7 00 5D        ..]   stab 005d
13338 E7A5 30              0     tsx
13339 E7A6 E6 01           ..    ldab 01,x
13340 E7A8 4F              O     clra
13341 E7A9 CE 00 64        ..d   ldx #0064
13342 E7AC 02              .     idiv
13343 E7AD 4F              O     clra
13344 E7AE CE 00 0A        ...   ldx #000a
13345 E7B1 02              .     idiv
13346 E7B2 8F              .     xgdx
13347 E7B3 CB 30           .0    addb #30    ; %100 / 10 -> digit
13348 E7B5 F7 00 5E        ..^   stab 005e
13349 E7B8 30              0     tsx
13350 E7B9 E6 01           ..    ldab 01,x
13351 E7BB 4F              O     clra
13352 E7BC CE 00 0A        ...   ldx #000a
13353 E7BF 02              .     idiv
13354 E7C0 CB 30           .0    addb #30
13355 E7C2 F7 00 5F        .._   stab 005f    ; %10
13356 E7C5 38              8     pulx
13357 E7C6 39              9     rts
13358
13359 jump114:
13360 E7C7 F6 00 06        ...   ldab 0006
13361 E7CA 4F              O     clra
13362 E7CB CE 00 05        ...   ldx #0005
13363 E7CE 02              .     idiv
13364 E7CF 5D              ]     tstb
13365 E7D0 26 03           &.    bne 03
13366 E7D2 7E E8 99        ~..   jmp e899             ;goto79
13367 E7D5 F6 00 06        ...   ldab 0006
13368 E7D8 BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13369 E7DB 83 00 00        ...   subd #0000
13370 E7DE 27 03           '.    beq 03
13371 E7E0 7E E8 99        ~..   jmp e899             ;goto79
13372 E7E3 F6 00 06        ...   ldab 0006
13373 E7E6 4F              O     clra
13374 E7E7 05              .     asld
13375 E7E8 C3 08 00        ...   addd #0800
13376 E7EB 8F              .     xgdx
13377 E7EC EC 00           ..    ldd 00,x
13378 E7EE C4 FF           ..    andb #ff
13379 E7F0 84 3F           .?    anda #3f
13380 E7F2 FD 10 16        ...   std 1016
13381 E7F5 F6 00 06        ...   ldab 0006
13382 E7F8 4F              O     clra
13383 E7F9 05              .     asld
13384 E7FA C3 0B F1        ...   addd #0bf1
13385 E7FD 8F              .     xgdx
13386 E7FE EC 00           ..    ldd 00,x
13387 E800 C4 FF           ..    andb #ff
13388 E802 84 3F           .?    anda #3f
13389 E804 FD 10 18        ...   std 1018
13390 E807 FC 10 16        ...   ldd 1016
13391 E80A 83 00 00        ...   subd #0000
13392 E80D 25 08           %.    bcs 08
13393 E80F FC 10 16        ...   ldd 1016
13394 E812 83 27 0F        .'.   subd #270f
13395 E815 23 35           #5    bls 35
13396 E817 F6 00 06        ...   ldab 0006
13397 E81A BD D4 68        ..h   jsr d468             ;jump51
13398 E81D 83 00 00        ...   subd #0000
13399 E820 27 2A           '*    beq 2a
13400 E822 CC 01 00        ...   ldd #0100
13401 E825 37              7     pshb
13402 E826 36              6     psha
13403 E827 F6 00 06        ...   ldab 0006
13404 E82A 4F              O     clra
13405 E82B 05              .     asld
13406 E82C C3 08 C8        ...   addd #08c8
13407 E82F 38              8     pulx
13408 E830 8F              .     xgdx
13409 E831 AA 00           ..    ora 00,x
13410 E833 EA 01           ..    orb 01,x
13411 E835 ED 00           ..    std 00,x
13412 E837 CC 40 00        .@.   ldd #4000
13413 E83A 37              7     pshb
13414 E83B 36              6     psha
13415 E83C F6 00 06        ...   ldab 0006
13416 E83F 4F              O     clra
13417 E840 05              .     asld
13418 E841 C3 08 00        ...   addd #0800
13419 E844 38              8     pulx
13420 E845 8F              .     xgdx
13421 E846 AA 00           ..    ora 00,x
13422 E848 EA 01           ..    orb 01,x
13423 E84A ED 00           ..    std 00,x
13424 E84C CE 10 16        ...   ldx #1016
13425 E84F 1D 00 C0        ..    bclr 00,x, #c0
13426 E852 FC 10 18        ..    ldd 1018
13427 E855 43              C     coma
13428 E856 53              S     comb
13429 E857 FD 10 18        ...   std 1018
13430 E85A CE 10 18        ...   ldx #1018
13431 E85D 1D 00 C0        ..    bclr 00,x, #c0
13432 E85F FC 10 16        ..    ldd 1016
13433 E863 37              7     pshb
13434 E864 36              6     psha
13435 E865 FC 10 18        ...   ldd 1018
13436 E868 30              0     tsx
13437 E869 A3 00           ..    subd 00,x
13438 E86B 31              1     ins
13439 E86C 31              1     ins
13440 E86D 27 2A           '*    beq 2a
13441 E86F CC 01 00        ...   ldd #0100
13442 E872 37              7     pshb
13443 E873 36              6     psha
13444 E874 F6 00 06        ...   ldab 0006
13445 E877 4F              O     clra
13446 E878 05              .     asld
13447 E879 C3 08 C8        ...   addd #08c8
13448 E87C 38              8     pulx
13449 E87D 8F              .     xgdx
13450 E87E AA 00           ..    ora 00,x
13451 E880 EA 01           ..    orb 01,x
13452 E882 ED 00           ..    std 00,x
13453 E884 CC 40 00        .@.   ldd #4000
13454 E887 37              7     pshb
13455 E888 36              6     psha
13456 E889 F6 00 06        ...   ldab 0006
13457 E88C 4F              O     clra
13458 E88D 05              .     asld
13459 E88E C3 08 00        ...   addd #0800
13460 E891 38              8     pulx
13461 E892 8F              .     xgdx
13462 E893 AA 00           ..    ora 00,x
13463 E895 EA 01           ..    orb 01,x
13464 E897 ED 00           ..    std 00,x
13465 goto79:
13466 E899 39              9     rts
13467
13468 jump68:
13469 E89A 5F              _     clrb
13470 E89B 4F              O     clra
13471 E89C FD 00 0F        ...   std 000f
13472 E89F CC 3F FF        .?.   ldd #3fff
13473 E8A2 FD 00 50        ..P   std 0050
13474 E8A5 7F 00 06        ...   clr 0006
13475 ;
13476 E8A8 F6 00 06        ...   ldab 0006
13477 E8AB C1 64           .d    cmpb #64    ; 100
13478 E8AD 24 64           $d    bcc 64      ; to e913 - break
13479 ;
13480 E8AF F6 00 06        ...   ldab 0006
13481 E8B2 4F              O     clra
13482 E8B3 CE 00 05        ...   ldx #0005
13483 E8B6 02              .     idiv
13484 E8B7 5D              ]     tstb
13485 E8B8 27 54           'T    beq 54       ; to e90e - continue
13486 ;
13487 E8BA F6 00 06        ...   ldab 0006
13488 E8BD BD D7 A0        ...   jsr d7a0             ;is_invalid_slot
13489 E8C0 83 00 00        ...   subd #0000
13490 E8C3 26 49           &I    bne 49       ; continue
13491 ;
13492 E8C5 F6 00 06        ...   ldab 0006
13493 E8C8 4F              O     clra
13494 E8C9 05              .     asld
13495 E8CA C3 08 00        ...   addd #0800
13496 E8CD 8F              .     xgdx
13497 E8CE EC 00           ..    ldd 00,x
13498 E8D0 C4 FF           ..    andb #ff
13499 E8D2 84 3F           .?    anda #3f
13500 E8D4 FD 10 16        ...   std 1016
13501 E8D7 FC 10 16        ...   ldd 1016
13502 E8DA 83 27 10        .'.   subd #2710   ; 10000
13503 E8DD 24 2F           $/    bcc 2f       ; to e90e - continue
13504 E8DF F6 00 06        ...   ldab 0006
13505 E8E2 BD D4 68        ..h   jsr d468             ;jump51 - test bit 6 of array[0006] at 0800
13506 E8E5 83 00 00        ...   subd #0000
13507 E8E8 27 24           '$    beq 24       ; to e90e - continue
13508 E8EA BD D5 61        ..a   jsr d561             ;jump42 - test bit 7 of array[0006] at 0800
13509 E8ED 83 00 00        ...   subd #0000
13510 E8F0 26 1C           &.    bne 1c       ; to e90e - continue
13511 E8F2 FC 10 16        ...   ldd 1016
13512 E8F5 B3 00 0F        ...   subd 000f
13513 E8F8 23 06           #.    bls 06
13514 E8FA FC 10 16        ...   ldd 1016
13515 E8FD FD 00 0F        ...   std 000f
13516 E900 FC 10 16        ...   ldd 1016
13517 E903 B3 00 50        ..P   subd 0050
13518 E906 24 06           $.    bcc 06
13519 E908 FC 10 16        ...   ldd 1016
13520 E90B FD 00 50        ..P   std 0050
13521 ;
13522 E90E 7C 00 06        |..   inc 0006
13523 E911 20 95            .    bra 95      ; to e8a8
13524 ;
13525 E913 FC 0B B7        ...   ldd 0bb7
13526 E916 27 12           '.    beq 12
13527 E918 FC 00 0F        ...   ldd 000f
13528 E91B B3 0B B7        ...   subd 0bb7
13529 E91E 23 0A           #.    bls 0a
13530 E920 FC 00 0F        ...   ldd 000f
13531 E923 05              .     asld
13532 E924 B3 0B B7        ...   subd 0bb7
13533 E927 FD 00 0F        ...   std 000f
13534 E92A 39              9     rts
13535
13536 jump103:
13537 E92B 34              4     des
13538 E92C 30              0     tsx
13539 E92D 6F 00           o.    clr 00,x
13540 E92F 30              0     tsx
13541 E930 E6 00           ..    ldab 00,x
13542 E932 C1 64           .d    cmpb #64
13543 E934 24 15           $.    bcc 15
13544 E936 5F              _     clrb
13545 E937 4F              O     clra
13546 E938 37              7     pshb
13547 E939 36              6     psha
13548 E93A 30              0     tsx
13549 E93B E6 02           ..    ldab 02,x
13550 E93D 4F              O     clra
13551 E93E 05              .     asld
13552 E93F C3 0D 1F        ...   addd #0d1f
13553 E942 38              8     pulx
13554 E943 8F              .     xgdx
13555 E944 ED 00           ..    std 00,x
13556 E946 30              0     tsx
13557 E947 6C 00           l.    inc 00,x
13558 E949 20 E4            .    bra e4
13559 E94B 4F              O     clra
13560 E94C 5F              _     clrb
13561 E94D FD 0D F9        ...   std 0df9
13562 E950 FD 0D F7        ...   std 0df7
13563 E953 4F              O     clra
13564 E954 5F              _     clrb
13565 E955 FD 0D F5        ...   std 0df5
13566 E958 FD 0D F3        ...   std 0df3
13567 E95B 4F              O     clra
13568 E95C 5F              _     clrb
13569 E95D FD 0D F1        ...   std 0df1
13570 E960 FD 0D EF        ...   std 0def
13571 E963 4F              O     clra
13572 E964 5F              _     clrb
13573 E965 FD 0D FD        ...   std 0dfd
13574 E968 FD 0D FB        ...   std 0dfb
13575 E96B 4F              O     clra
13576 E96C 5F              _     clrb
13577 E96D FD 0D E9        ...   std 0de9
13578 E970 FD 0D E7        ...   std 0de7
13579 E973 5F              _     clrb
13580 E974 4F              O     clra
13581 E975 FD 0C DD        ...   std 0cdd
13582 E978 5F              _     clrb
13583 E979 4F              O     clra
13584 E97A FD 0C DF        ...   std 0cdf
13585 E97D 5F              _     clrb
13586 E97E 4F              O     clra
13587 E97F FD 0C E1        ...   std 0ce1
13588 E982 5F              _     clrb
13589 E983 4F              O     clra
13590 E984 FD 0C E3        ...   std 0ce3
13591 E987 5F              _     clrb
13592 E988 4F              O     clra
13593 E989 FD 0C E5        ...   std 0ce5
13594 E98C 4F              O     clra
13595 E98D 5F              _     clrb
13596 E98E FD 0C F5        ...   std 0cf5
13597 E991 FD 0C F3        ...   std 0cf3
13598 E994 4F              O     clra
13599 E995 5F              _     clrb
13600 E996 FD 0C F9        ...   std 0cf9
13601 E999 FD 0C F7        ...   std 0cf7
13602 E99C 4F              O     clra
13603 E99D 5F              _     clrb
13604 E99E FD 0C FD        ...   std 0cfd
13605 E9A1 FD 0C FB        ...   std 0cfb
13606 E9A4 4F              O     clra
13607 E9A5 5F              _     clrb
13608 E9A6 FD 0D 01        ...   std 0d01
13609 E9A9 FD 0C FF        ...   std 0cff
13610 E9AC 4F              O     clra
13611 E9AD 5F              _     clrb
13612 E9AE FD 0D 05        ...   std 0d05
13613 E9B1 FD 0D 03        ...   std 0d03
13614 E9B4 5F              _     clrb
13615 E9B5 4F              O     clra
13616 E9B6 FD 0D 07        ...   std 0d07
13617 E9B9 5F              _     clrb
13618 E9BA 4F              O     clra
13619 E9BB FD 0D 09        ...   std 0d09
13620 E9BE 5F              _     clrb
13621 E9BF 4F              O     clra
13622 E9C0 FD 0D 0B        ...   std 0d0b
13623 E9C3 5F              _     clrb
13624 E9C4 4F              O     clra
13625 E9C5 FD 0D 0D        ...   std 0d0d
13626 E9C8 4F              O     clra
13627 E9C9 5F              _     clrb
13628 E9CA FD 0D 11        ...   std 0d11
13629 E9CD FD 0D 0F        ...   std 0d0f
13630 E9D0 4F              O     clra
13631 E9D1 5F              _     clrb
13632 E9D2 FD 0D 15        ...   std 0d15
13633 E9D5 FD 0D 13        ...   std 0d13
13634 E9D8 4F              O     clra
13635 E9D9 5F              _     clrb
13636 E9DA FD 0D 19        ...   std 0d19
13637 E9DD FD 0D 17        ...   std 0d17
13638 E9E0 4F              O     clra
13639 E9E1 5F              _     clrb
13640 E9E2 FD 0D 1D        ...   std 0d1d
13641 E9E5 FD 0D 1B        ...   std 0d1b
13642 E9E8 31              1     ins
13643 E9E9 39              9     rts
13644
13645 jump113:
13646 E9EA 7F 00 06        ...   clr 0006
13647 E9ED F6 00 06        ...   ldab 0006
13648 E9F0 C1 64           .d    cmpb #64
13649 E9F2 24 64           $d    bcc 64
13650 E9F4 F6 00 06        ...   ldab 0006
13651 E9F7 4F              O     clra
13652 E9F8 CE 00 05        ...   ldx #0005
13653 E9FB 02              .     idiv
13654 E9FC 5D              ]     tstb
13655 E9FD 27 54           'T    beq 54
13656 E9FF CC BF FF        ...   ldd #bfff
13657 EA02 37              7     pshb
13658 EA03 36              6     psha
13659 EA04 F6 00 06        ...   ldab 0006
13660 EA07 4F              O     clra
13661 EA08 05              .     asld
13662 EA09 C3 08 00        ...   addd #0800
13663 EA0C 38              8     pulx
13664 EA0D 8F              .     xgdx
13665 EA0E A4 00           ..    anda 00,x
13666 EA10 E4 01           ..    andb 01,x
13667 EA12 ED 00           ..    std 00,x
13668 EA14 CC FE FF        ...   ldd #feff
13669 EA17 37              7     pshb
13670 EA18 36              6     psha
13671 EA19 F6 00 06        ...   ldab 0006
13672 EA1C 4F              O     clra
13673 EA1D 05              .     asld
13674 EA1E C3 08 C8        ...   addd #08c8
13675 EA21 38              8     pulx
13676 EA22 8F              .     xgdx
13677 EA23 A4 00           ..    anda 00,x
13678 EA25 E4 01           ..    andb 01,x
13679 EA27 ED 00           ..    std 00,x
13680 EA29 CC FD FF        ...   ldd #fdff
13681 EA2C 37              7     pshb
13682 EA2D 36              6     psha
13683 EA2E F6 00 06        ...   ldab 0006
13684 EA31 4F              O     clra
13685 EA32 05              .     asld
13686 EA33 C3 08 C8        ...   addd #08c8
13687 EA36 38              8     pulx
13688 EA37 8F              .     xgdx
13689 EA38 A4 00           ..    anda 00,x
13690 EA3A E4 01           ..    andb 01,x
13691 EA3C ED 00           ..    std 00,x
13692 EA3E CC FB FF        ...   ldd #fbff
13693 EA41 37              7     pshb
13694 EA42 36              6     psha
13695 EA43 F6 00 06        ...   ldab 0006
13696 EA46 4F              O     clra
13697 EA47 05              .     asld
13698 EA48 C3 08 C8        ...   addd #08c8
13699 EA4B 38              8     pulx
13700 EA4C 8F              .     xgdx
13701 EA4D A4 00           ..    anda 00,x
13702 EA4F E4 01           ..    andb 01,x
13703 EA51 ED 00           ..    std 00,x
13704 EA53 7C 00 06        |..   inc 0006
13705 EA56 20 95            .    bra 95
13706 EA58 39              9     rts
13707
13708 jump65:
13709 EA59 34              4     des
13710 ; test PE2 - remote no-sale switch.
13711 EA5A CE 00 04        ...   ldx #0004
13712 EA5D 3C              <     pshx
13713 EA5E CC 10 0A        ...   ldd #100a
13714 EA61 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13715 EA64 38              8     pulx
13716 EA65 83 00 00        ...   subd #0000
13717 EA68 27 3F           '?    beq 3f       ; to eaa9 if off
13718 ;
13719 ; test internal mode switch (bit 1 of 1800)
13720 EA6A CE 00 01        ...   ldx #0001
13721 EA6D 3C              <     pshx
13722 EA6E CC 18 00        ...   ldd #1800
13723 EA71 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13724 EA74 38              8     pulx
13725 EA75 83 00 00        ...   subd #0000
13726 EA78 27 2F           '/    beq 2f       ; to eaa9 if off
13727 ;
13728 ; both no-sale & mode switches held.
13729 ;
13730 ; 1000-unit delay
13731 EA7A CC 03 E8        ...   ldd #03e8
13732 EA7D BD E5 71        ..q   jsr e571             ;msdelay
13733 ;
13734 EA80 7F 0B A8        ...   clr 0ba8
13735 ;
13736 ; blink "SECURE OFF" until mode switch is released
13737 EA83 F6 18 00        ...   ldab 1800
13738 EA86 C4 01           ..    andb #01
13739 EA88 26 1C           &.    bne 1c       ; to eaa4 (loop until released)
13740 ;
13741 ; blank display
13742 EA8A BD BE 4B        ..K   jsr be4b             ;displayblank (blank display buffer)
13743 EA8D 0F              .     sei
13744 EA8E BD BE 01        ...   jsr be01             ;jump70 (commit to display)
13745 EA91 0E              .     cli
13746 ;
13747 ; 500-unit delay
13748 EA92 CC 01 F4        ...   ldd #01f4
13749 EA95 BD E5 71        ..q   jsr e571             ;msdelay
13750 ;
13751 EA98 CC AF D1        ...   ldd #afd1    ; "SECURE OFF"
13752 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13753 ;
13754 ; 500-unit delay
13755 EA9E CC 01 F4        ...   ldd #01f4
13756 EAA1 BD E5 71        ..q   jsr e571             ;msdelay
13757 ; loop
13758 EAA4 20 DD            .    bra dd       ; to ea83
13759 EAA6 BD BE 69        ..i   jsr be69             ;displayreset
13760 ;
13761 ; no sale switch or internal mode switch on
13762 ;
13763 ; fiddle with the bill acceptor
13764 EAA9 C6 01           ..    ldab #01
13765 EAAB F7 00 14        ...   stab 0014
13766 EAAE F6 00 14        ...   ldab 0014
13767 EAB1 F7 38 00        .8.   stab 3800
13768 ;
13769 ; 30-unit delay
13770 EAB4 CC 00 1E        ...   ldd #001e
13771 EAB7 BD E5 71        ..q   jsr e571             ;msdelay
13772 ;
13773 ; more bill acceptor fiddling & tests
13774 EABA CE 00 01        ...   ldx #0001
13775 EABD 3C              <     pshx
13776 EABE CC 10 00        ...   ldd #1000
13777 EAC1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13778 EAC4 38              8     pulx
13779 EAC5 83 00 00        ...   subd #0000
13780 EAC8 27 10           '.    beq 10
13781 EACA CE 00 02        ...   ldx #0002
13782 EACD 3C              <     pshx
13783 EACE CC 10 00        ...   ldd #1000
13784 EAD1 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13785 EAD4 38              8     pulx
13786 EAD5 83 00 00        ...   subd #0000
13787 EAD8 27 03           '.    beq 03
13788 ; we've decided if we have a bill acceptor. if not, skip this bit
13789 EADA 7E ED F8        ~..   jmp edf8             ;goto80
13790 ; we have a bill acceptor - play some more
13791 EADD C6 02           ..    ldab #02
13792 EADF F7 00 14        ...   stab 0014
13793 EAE2 F6 00 14        ...   ldab 0014
13794 EAE5 F7 38 00        .8.   stab 3800
13795 EAE8 CC 00 1E        ...   ldd #001e
13796 EAEB BD E5 71        ..q   jsr e571             ;msdelay
13797 EAEE CE 00 01        ...   ldx #0001
13798 EAF1 3C              <     pshx
13799 EAF2 CC 10 00        ...   ldd #1000
13800 EAF5 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13801 EAF8 38              8     pulx
13802 EAF9 83 00 00        ...   subd #0000
13803 EAFC 26 10           &.    bne 10
13804 EAFE CE 00 02        ...   ldx #0002
13805 EB01 3C              <     pshx
13806 EB02 CC 10 00        ...   ldd #1000
13807 EB05 BD E5 D7        ...   jsr e5d7             ;jump69 - test input line
13808 EB08 38              8     pulx
13809 EB09 83 00 00        ...   subd #0000
13810 EB0C 26 03           &.    bne 03
13811 EB0E 7E ED F8        ~..   jmp edf8             ;goto80 - something about the bill validator failed. skip it.
13812 EB11 CC 5A 5A        .ZZ   ldd #5a5a    ; 23130
13813 EB14 FD 10 16        ...   std 1016
13814 EB17 CC B1 39        ..9   ldd #b139    ;"**********"
13815 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13816 EB1D CC 07 D0        ...   ldd #07d0
13817 EB20 BD E5 71        ..q   jsr e571             ;msdelay
13818 EB23 CC B1 44        ..D   ldd #b144    ;"OOOOOOOOOO"
13819 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13820 EB29 CC 07 D0        ...   ldd #07d0
13821 EB2C BD E5 71        ..q   jsr e571             ;msdelay
13822 EB2F CC 00 14        ...   ldd #0014
13823 EB32 FD 00 3B        ..;   std 003b
13824 EB35 FC 00 3B        ..;   ldd 003b
13825 EB38 27 47           'G    beq 47
13826 ; draws a sequence of 10 dots ..... along the display.
13827 EB3A 30              0     tsx
13828 EB3B 6F 00           o.    clr 00,x
13829 EB3D 30              0     tsx
13830 EB3E E6 00           ..    ldab 00,x
13831 EB40 C1 0A           ..    cmpb #0a
13832 EB42 24 3B           $;    bcc 3b
13833 EB44 BD BE 4B        ..K   jsr be4b             ;displayblank
13834 EB47 C6 2E           ..    ldab #2e
13835 EB49 37              7     pshb
13836 EB4A 30              0     tsx
13837 EB4B E6 01           ..    ldab 01,x
13838 EB4D 4F              O     clra
13839 EB4E C3 0B 90        ...   addd #0b90
13840 EB51 8F              .     xgdx
13841 EB52 33              3     pulb
13842 EB53 E7 00           ..    stab 00,x
13843 EB55 0F              .     sei
13844 EB56 BD BE 69        ..i   jsr be69             ;displayreset
13845 EB59 CE 10 28        ..(   ldx #1028
13846 EB5C 1C 00 40        ..    bset 00,x, #40  ; tweak the clock phase
13847 EB5F CE 00 01        ...   ldx #0001
13848 EB62 3C              <     pshx
13849 EB63 CC 00 20        ..    ldd #0020
13850 EB66 BD BD B5        ...   jsr bdb5             ;jump78 - send display byte
13851 EB69 38              8     pulx
13852 EB6A CE 10 28        ..(   ldx #1028
13853 EB6D 1D 00 40        ..@   bclr 00,x, #40  ; tweak the clock phase back
13854 EB70 BD BE 10        ...   jsr be10             ;jump88
13855 EB73 0E              .     cli
13856 EB74 CC 00 07        ...   ldd #0007
13857 EB77 BD E5 71        ..q   jsr e571             ;msdelay 7-unit delay
13858 EB7A 30              0     tsx
13859 EB7B 6C 00           l.    inc 00,x
13860 EB7D 20 BE            .    bra be
13861 EB7F 20 B4            .    bra b4
13862 EB81 BD BE 69        ..i   jsr be69             ;displayreset
13863 EB84 CC 08 00        ...   ldd #0800
13864 EB87 FD 00 73        ..s   std 0073
13865 EB8A FC 00 73        ..s   ldd 0073
13866 EB8D 83 0F FF        ...   subd #0fff
13867 EB90 22 10           ".    bhi 10       ; to eba2
13868 EB92 C6 AA           ..    ldab #aa
13869 EB94 FE 00 73        ..s   ldx 0073
13870 EB97 E7 00           ..    stab 00,x
13871 EB99 FE 00 73        ..s   ldx 0073
13872 EB9C 08              .     inx
13873 EB9D FF 00 73        ..s   stx 0073
13874 EBA0 20 E8            .    bra e8
13875 EBA2 CC 08 00        ...   ldd #0800
13876 EBA5 FD 00 73        ..s   std 0073
13877 EBA8 FC 00 73        ..s   ldd 0073
13878 EBAB 83 0F FF        ...   subd #0fff
13879 EBAE 22 1A           ".    bhi 1a
13880 EBB0 FE 00 73        ..s   ldx 0073
13881 EBB3 E6 00           ..    ldab 00,x
13882 EBB5 C1 AA           ..    cmpb #aa
13883 EBB7 27 08           '.    beq 08
13884 EBB9 CE 10 16        ...   ldx #1016     ; timer output compare register
13885 EBBC 1D 00 FF        ..    bclr 00,x, #FF
13886 EBBF 20 09           ..    bra 09
13887 EBC1 FE 00 73        ..s   ldx 0073
13888 EBC4 08              .     inx
13889 EBC5 FF 00 73        ..s   stx 0073
13890 EBC8 20 DE            .    bra de
13891 EBCA CC 08 00        ...   ldd #0800
13892 EBCD FD 00 73        ..s   std 0073
13893 EBD0 FC 00 73        ..s   ldd 0073
13894 EBD3 83 0F FF        ...   subd #0fff
13895 EBD6 22 10           ".    bhi 10
13896 EBD8 C6 55           .U    ldab #55
13897 EBDA FE 00 73        ..s   ldx 0073
13898 EBDD E7 00           ..    stab 00,x
13899 EBDF FE 00 73        ..s   ldx 0073
13900 EBE2 08              .     inx
13901 EBE3 FF 00 73        ..s   stx 0073
13902 EBE6 20 E8            .    bra e8
13903 EBE8 CC 08 00        ...   ldd #0800
13904 EBEB FD 00 73        ..s   std 0073
13905 EBEE FC 00 73        ..s   ldd 0073
13906 EBF1 83 0F FF        ...   subd #0fff
13907 EBF4 22 1A           ".    bhi 1a
13908 EBF6 FE 00 73        ..s   ldx 0073
13909 EBF9 E6 00           ..    ldab 00,x
13910 EBFB C1 55           .U    cmpb #55
13911 EBFD 27 08           '.    beq 08
13912 EBFF CE 10 16        ...   ldx #1016
13913 EC02 1D 00 FF        ...   bclr 00,x #ff
13914 EC05 20 09            .    bra 09
13915 EC07 FE 00 73        ..s   ldx 0073
13916 EC0A 08              .     inx
13917 EC0B FF 00 73        ..s   stx 0073
13918 EC0E 20 DE            .    bra de
13919 EC10 CC 08 00        ...   ldd #0800
13920 EC13 FD 00 73        ..s   std 0073
13921 EC16 FC 00 73        ..s   ldd 0073
13922 EC19 83 0F FF        ...   subd #0fff
13923 EC1C 22 0F           ".    bhi 0f
13924 EC1E 5F              _     clrb
13925 EC1F FE 00 73        ..s   ldx 0073
13926 EC22 E7 00           ..    stab 00,x
13927 EC24 FE 00 73        ..s   ldx 0073
13928 EC27 08              .     inx
13929 EC28 FF 00 73        ..s   stx 0073
13930 EC2B 20 E9            .    bra e9
13931 EC2D 7F 00 06        ...   clr 0006
13932 EC30 F6 00 06        ...   ldab 0006
13933 EC33 C1 64           .d    cmpb #64
13934 EC35 24 4D           $M    bcc 4d
13935 EC37 F6 00 06        ...   ldab 0006
13936 EC3A 4F              O     clra
13937 EC3B CE 00 05        ...   ldx #0005
13938 EC3E 02              .     idiv
13939 EC3F 5D              ]     tstb
13940 EC40 27 3D           '=    beq 3d
13941 EC42 CC 00 32        ..2   ldd #0032
13942 EC45 37              7     pshb
13943 EC46 36              6     psha
13944 EC47 F6 00 06        ...   ldab 0006
13945 EC4A 4F              O     clra
13946 EC4B 05              .     asld
13947 EC4C C3 08 00        ...   addd #0800
13948 EC4F 38              8     pulx
13949 EC50 8F              .     xgdx
13950 EC51 ED 00           ..    std 00,x
13951 EC53 F6 00 06        ...   ldab 0006
13952 EC56 4F              O     clra
13953 EC57 05              .     asld
13954 EC58 C3 08 00        ...   addd #0800
13955 EC5B 8F              .     xgdx
13956 EC5C EC 00           ..    ldd 00,x
13957 EC5E 43              C     coma
13958 EC5F 53              S     comb
13959 EC60 37              7     pshb
13960 EC61 36              6     psha
13961 EC62 F6 00 06        ...   ldab 0006
13962 EC65 4F              O     clra
13963 EC66 05              .     asld
13964 EC67 C3 0B F1        ...   addd #0bf1
13965 EC6A 38              8     pulx
13966 EC6B 8F              .     xgdx
13967 EC6C ED 00           ..    std 00,x
13968 EC6E CC 08 01        ...   ldd #0801
13969 EC71 37              7     pshb
13970 EC72 36              6     psha
13971 EC73 F6 00 06        ...   ldab 0006
13972 EC76 4F              O     clra
13973 EC77 05              .     asld
13974 EC78 C3 08 C8        ...   addd #08c8
13975 EC7B 38              8     pulx
13976 EC7C 8F              .     xgdx
13977 EC7D ED 00           ..    std 00,x
13978 EC7F 7C 00 06        |..   inc 0006
13979 EC82 20 AC            .    bra ac
13980 EC84 C6 1D           ..    ldab #1d
13981 EC86 F7 0B BF        ...   stab 0bbf
13982 EC89 30              0     tsx
13983 EC8A 6F 00           o.    clr 00,x
13984 EC8C F6 0B BF        ...   ldab 0bbf
13985 EC8F 4F              O     clra
13986 EC90 C3 00 02        ...   addd #0002
13987 EC93 37              7     pshb
13988 EC94 36              6     psha
13989 EC95 30              0     tsx
13990 EC96 E6 02           ..    ldab 02,x
13991 EC98 4F              O     clra
13992 EC99 A3 00           ..    subd 00,x
13993 EC9B 31              1     ins
13994 EC9C 31              1     ins
13995 EC9D 2C 1B           ,.    bge 1b
13996 EC9F 30              0     tsx
13997 ECA0 E6 00           ..    ldab 00,x
13998 ECA2 4F              O     clra
13999 ECA3 C3 B1 D0        ...   addd #b1d0   ; "THANK YOU FOR YOUR PATRONAGE"
14000 ECA6 8F              .     xgdx
14001 ECA7 E6 00           ..    ldab 00,x
14002 ECA9 37              7     pshb
14003 ECAA 30              0     tsx
14004 ECAB E6 01           ..    ldab 01,x
14005 ECAD 4F              O     clra
14006 ECAE C3 09 93        ...   addd #0993
14007 ECB1 8F              .     xgdx
14008 ECB2 33              3     pulb
14009 ECB3 E7 00           ..    stab 00,x
14010 ECB5 30              0     tsx
14011 ECB6 6C 00           l.    inc 00,x
14012 ECB8 20 D2            .    bra d2
14013 ECBA 7F 0B A8        ...   clr 0ba8
14014 ECBD CC 00 32        ..2   ldd #0032
14015 ECC0 FD 0B B5        ...   std 0bb5
14016 ECC3 5F              _     clrb
14017 ECC4 4F              O     clra
14018 ECC5 FD 0B B7        ...   std 0bb7
14019 ECC8 7F 00 06        ...   clr 0006
14020 ECCB BD A6 4E        ..N   jsr a64e             ;jump135
14021 ECCE C6 09           ..    ldab #09
14022 ECD0 F7 0B C0        ...   stab 0bc0    ; defaults to having a bill validator & dumb mech
14023 ECD3 7F 0E 6D        ..m   clr 0e6d
14024 ECD6 C6 01           ..    ldab #01
14025 ECD8 F7 0E 6E        ..n   stab 0e6e
14026 ECDB 30              0     tsx
14027 ECDC 6F 00           o.    clr 00,x
14028 ECDE 30              0     tsx
14029 ECDF E6 00           ..    ldab 00,x
14030 ECE1 C1 0F           ..    cmpb #0f
14031 ECE3 24 21           $!    bcc 21
14032 ECE5 C6 30           .0    ldab #30
14033 ECE7 37              7     pshb
14034 ECE8 30              0     tsx
14035 ECE9 E6 01           ..    ldab 01,x
14036 ECEB 4F              O     clra
14037 ECEC C3 0C B9        ...   addd #0cb9
14038 ECEF 8F              .     xgdx
14039 ECF0 33              3     pulb
14040 ECF1 E7 00           ..    stab 00,x
14041 ECF3 C6 30           .0    ldab #30
14042 ECF5 37              7     pshb
14043 ECF6 30              0     tsx
14044 ECF7 E6 01           ..    ldab 01,x
14045 ECF9 4F              O     clra
14046 ECFA C3 0C C9        ...   addd #0cc9
14047 ECFD 8F              .     xgdx
14048 ECFE 33              3     pulb
14049 ECFF E7 00           ..    stab 00,x
14050 ED01 30              0     tsx
14051 ED02 6C 00           l.    inc 00,x
14052 ED04 20 D8            .    bra d8
14053 ED06 30              0     tsx
14054 ED07 6F 00           o.    clr 00,x
14055 ;
14056 ED09 30              0     tsx
14057 ED0A E6 00           ..    ldab 00,x
14058 ED0C C1 0B           ..    cmpb #0b
14059 ED0E 24 12           $.    bcc 12 ; to ed22
14060 ED10 5F              _     clrb
14061 ED11 37              7     pshb
14062 ED12 30              0     tsx
14063 ED13 E6 01           ..    ldab 01,x
14064 ED15 4F              O     clra
14065 ED16 C3 0B E4        ...   addd #0be4
14066 ED19 8F              .     xgdx
14067 ED1A 33              3     pulb
14068 ED1B E7 00           ..    stab 00,x
14069 ED1D 30              0     tsx
14070 ED1E 6C 00           l.    inc 00,x
14071 ED20 20 E7            .    bra e7
14072 ; clear stuff ready for test harness?
14073 ED22 4F              O     clra
14074 ED23 5F              _     clrb
14075 ED24 FD 0D F9        ...   std 0df9
14076 ED27 FD 0D F7        ...   std 0df7
14077 ED2A 4F              O     clra
14078 ED2B 5F              _     clrb
14079 ED2C FD 0D F5        ...   std 0df5
14080 ED2F FD 0D F3        ...   std 0df3
14081 ED32 7F 0C D9        ...   clr 0cd9
14082 ED35 7F 0C DA        ...   clr 0cda
14083 ED38 7F 0C DB        ...   clr 0cdb
14084 ED3B 7F 0C DC        ...   clr 0cdc
14085 ED3E 4F              O     clra
14086 ED3F 5F              _     clrb
14087 ED40 FD 0D F1        ...   std 0df1
14088 ED43 FD 0D EF        ...   std 0def
14089 ED46 4F              O     clra
14090 ED47 5F              _     clrb
14091 ED48 FD 0D FD        ...   std 0dfd
14092 ED4B FD 0D FB        ...   std 0dfb
14093 ED4E 4F              O     clra
14094 ED4F 5F              _     clrb
14095 ED50 FD 0D E9        ...   std 0de9
14096 ED53 FD 0D E7        ...   std 0de7
14097 ED56 4F              O     clra
14098 ED57 5F              _     clrb
14099 ED58 FD 0D ED        ...   std 0ded
14100 ED5B FD 0D EB        ...   std 0deb
14101 ED5E 5F              _     clrb
14102 ED5F 4F              O     clra
14103 ED60 FD 0C DD        ...   std 0cdd
14104 ED63 5F              _     clrb
14105 ED64 4F              O     clra
14106 ED65 FD 0C DF        ...   std 0cdf
14107 ED68 5F              _     clrb
14108 ED69 4F              O     clra
14109 ED6A FD 0C E1        ...   std 0ce1
14110 ED6D 5F              _     clrb
14111 ED6E 4F              O     clra
14112 ED6F FD 0C E3        ...   std 0ce3
14113 ED72 5F              _     clrb
14114 ED73 4F              O     clra
14115 ED74 FD 0C E5        ...   std 0ce5
14116 ED77 4F              O     clra
14117 ED78 5F              _     clrb
14118 ED79 FD 0C F5        ...   std 0cf5
14119 ED7C FD 0C F3        ...   std 0cf3
14120 ED7F 4F              O     clra
14121 ED80 5F              _     clrb
14122 ED81 FD 0C F9        ...   std 0cf9
14123 ED84 FD 0C F7        ...   std 0cf7
14124 ED87 4F              O     clra
14125 ED88 5F              _     clrb
14126 ED89 FD 0C FD        ...   std 0cfd
14127 ED8C FD 0C FB        ...   std 0cfb
14128 ED8F 4F              O     clra
14129 ED90 5F              _     clrb
14130 ED91 FD 0D 01        ...   std 0d01
14131 ED94 FD 0C FF        ...   std 0cff
14132 ED97 4F              O     clra
14133 ED98 5F              _     clrb
14134 ED99 FD 0D 05        ...   std 0d05
14135 ED9C FD 0D 03        ...   std 0d03
14136 ED9F 5F              _     clrb
14137 EDA0 4F              O     clra
14138 EDA1 FD 0D 07        ...   std 0d07
14139 EDA4 5F              _     clrb
14140 EDA5 4F              O     clra
14141 EDA6 FD 0D 09        ...   std 0d09
14142 EDA9 5F              _     clrb
14143 EDAA 4F              O     clra
14144 EDAB FD 0D 0B        ...   std 0d0b
14145 EDAE 5F              _     clrb
14146 EDAF 4F              O     clra
14147 EDB0 FD 0D 0D        ...   std 0d0d
14148 EDB3 4F              O     clra
14149 EDB4 5F              _     clrb
14150 EDB5 FD 0D 11        ...   std 0d11
14151 EDB8 FD 0D 0F        ...   std 0d0f
14152 EDBB 4F              O     clra
14153 EDBC 5F              _     clrb
14154 EDBD FD 0D 15        ...   std 0d15
14155 EDC0 FD 0D 13        ...   std 0d13
14156 EDC3 4F              O     clra
14157 EDC4 5F              _     clrb
14158 EDC5 FD 0D 19        ...   std 0d19
14159 EDC8 FD 0D 17        ...   std 0d17
14160 EDCB 4F              O     clra
14161 EDCC 5F              _     clrb
14162 EDCD FD 0D 1D        ...   std 0d1d
14163 EDD0 FD 0D 1B        ...   std 0d1b
14164 EDD3 7F 0B AF        ...   clr 0baf
14165 EDD6 7F 0B AE        ...   clr 0bae
14166 EDD9 7F 0B AD        ...   clr 0bad
14167 EDDC 7F 0B AC        ...   clr 0bac
14168 EDDF 7F 0B AB        ...   clr 0bab
14169 EDE2 7F 0B B4        ...   clr 0bb4
14170 EDE5 7F 0B B3        ...   clr 0bb3
14171 EDE8 7F 0B B2        ...   clr 0bb2
14172 EDEB 7F 0B B1        ...   clr 0bb1
14173 EDEE 7F 0B B0        ...   clr 0bb0
14174 EDF1 C6 05           ..    ldab #05
14175 EDF3 F7 08 00        ...   stab 0800
14176 EDF6 8D 21           .!    bsr 21 ;jump204 - test harness function
14177 goto80:
14178 ; switch things off (motors, display clock, keypad strobe)
14179 EDF8 7F 00 14        ...   clr 0014
14180 EDFB F6 00 14        ...   ldab 0014
14181 EDFE F7 38 00        .8.   stab 3800
14182 EE01 31              1     ins
14183 EE02 39              9     rts
14184
14185 jump36:
14186 ; writes msg to screen for 1.5s
14187 EE03 37              7     pshb
14188 EE04 36              6     psha
14189 EE05 30              0     tsx
14190 EE06 EC 00           ..    ldd 00,x
14191 EE08 BD C0 BA        ...   jsr c0ba             ;display:
14192 EE0B CE 10 16        ...   ldx #1016
14193 EE0E 1D 01 FF        ..    bclr 01,x, #ff
14194 EE11 CC 05 DC        ...   ldd #05dc    ; 1500
14195 EE14 BD E5 71        ...   jsr e571     ;msdelay
14196 EE17 38              8     pulx
14197 EE18 39              9     rts
14198
14199 jump204:
14200 EE19 BD E5 D1        ...   jsr e5d1             ;jump52 - triple beep
14201 goto81:
14202 ; this the diagnostic function activated when the "test harness"
14203 ; is connected
14204 EE1C CE 10 16        ...   ldx #1016
14205 EE1F 1D 01           ..    bclr 01,x, #ff
14206 EE21 CE 10 16        ..    ldx #1016
14207 EE25 1C 01 5A        ...   bset 01,x, #5A
14208 EE28 F6 10 16        ...   ldab 1016
14209 EE2B 26 0C           &.    bne 0c       ; to ee39
14210 EE2D CC B1 4F        ..O   ldd #b14f    ;"RAM   FAIL"
14211 EE30 BD C0 BA        ...   jsr c0ba             ;display:
14212 EE33 CC 05 DC        ...   ldd #05dc
14213 EE36 BD E5 71        ..q   jsr e571             ;msdelay
14214 ; i=4
14215 EE39 C6 04           ..    ldab #04
14216 EE3B F7 00 1C        ...   stab 001c
14217 ; i <= 7
14218 EE3E F6 00 1C        ...   ldab 001c
14219 EE41 C1 07           ..    cmpb #07
14220 EE43 24 57           $W    bcc 57       ; to ee9c (break out)
14221 EE45 F6 00 1C        ...   ldab 001c
14222 EE48 4F              O     clra
14223 EE49 C3 B1 23        ..#   addd #b123   ; power of 2
14224 EE4C 8F              .     xgdx
14225 EE4D E6 00           ..    ldab 00,x
14226 EE4F 53              S     comb
14227 EE50 F4 00 1A        ...   andb 001a
14228 EE53 F7 00 1A        ...   stab 001a
14229 EE56 F6 00 1A        ...   ldab 001a
14230 EE59 F7 30 00        .0.   stab 3000    ; set coin bit active (low)
14231 EE5C CC 00 0A        ...   ldd #000a
14232 EE5F BD E5 71        ..q   jsr e571             ;msdelay
14233 EE62 F6 18 00        ...   ldab 1800
14234 EE65 2C 07           ,.    bge 07       ; to ee6e
14235 EE67 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14236 EE6A 8D 97           ..    bsr dest 97  ; display to ee03
14237 EE6C 20 2E            .    bra 2e       ; to ee9c
14238 EE6E F6 00 1C        ...   ldab 001c
14239 EE71 4F              O     clra
14240 EE72 C3 B1 23        ..#   addd #b123   ; powers of 2
14241 EE75 8F              .     xgdx
14242 EE76 E6 00           ..    ldab 00,x
14243 EE78 FA 00 1A        ...   orb 001a
14244 EE7B F7 00 1A        ...   stab 001a
14245 EE7E F6 00 1A        ...   ldab 001a
14246 EE81 F7 30 00        .0.   stab 3000    ; set coin bit inactive (high)
14247 EE84 CC 00 0A        ...   ldd #000a
14248 EE87 BD E5 71        ..q   jsr e571             ;msdelay
14249 EE8A F6 18 00        ...   ldab 1800    ; if changer int'
14250 EE8D 2D 08           -.    blt 08       ; ee97
14251 EE8F CC B1 5A        ..Z   ldd #b15a    ; "P2 FAIL"
14252 EE92 BD EE 03        ...   jsr ee03             ;jump36
14253 EE95 20 05            .    bra 05       ; to ee9c
14254 EE97 7C 00 1C        |..   inc 001c
14255 EE9A 20 A2            .    bra a2       ; to ee3e
14256 ;
14257 EE9C CE 10 00        ...   ldx #1000
14258 EE9F 1C 00 08        ...   bset 00,x, #08 ; talk to coin mech
14259 EEA2 CE 10 08        ...   ldx #1008
14260 EEA5 1C 00 02        ...   bset 00,x, #02 ; set rx of sci
14261 EEA8 CE 00 1A        ...   ldx #001a
14262 EEAB 1C 00 40        ...   bset 00,x, #40
14263 EEAE F6 00 1A        ...   ldab 001a
14264 EEB1 F7 30 00        .0.   stab 3000    ; unset $1.00 line
14265 EEB4 CC 00 0A        ...   ldd #000a
14266 EEB7 BD E5 71        ..q   jsr e571             ;msdelay
14267 EEBA F6 10 08        ...   ldab 1008
14268 EEBD C4 01           ..    andb #01     ; tests tx of sci
14269 EEBF 26 06           &.    bne 06       ; to eec7
14270 EEC1 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14271 EEC4 BD EE 03        ...   jsr ee03             ;jump36
14272 EEC7 CE 00 1A        ...   ldx #001a
14273 EECA 1D 00 40        ...   bclr 00,x, #40
14274 EECD F6 00 1A        ...   ldab 001a
14275 EED0 F7 30 00        .0.   stab 3000    ; set $1.00 line
14276 EED3 CC 00 0A        ...   ldd #000a
14277 EED6 BD E5 71        ..q   jsr e571             ;msdelay
14278 ;
14279 EED9 F6 10 08        ...   ldab 1008
14280 EEDC C4 01           ..    andb #01     ; tests txt of sci
14281 EEDE 27 06           '.    beq 06       ; to eee6
14282 EEE0 CC B1 5A        ..Z   ldd #b15a    ; "P2    FAIL"
14283 EEE3 BD EE 03        ...   jsr ee03             ;jump36
14284 EEE6 CE 00 1A        ...   ldx #001a
14285 EEE9 1C 00 02        ...   bset 00,x, #02
14286 EEEC F6 00 1A        ...   ldab 001a
14287 EEEF F7 30 00        .0.   stab 3000    ; ditto for $0.25
14288 EEF2 CC 00 0A        ...   ldd #000a
14289 EEF5 BD E5 71        ..q   jsr e571             ;msdelay
14290 EEF8 F6 10 00        ...   ldab 1000
14291 EEFB C4 04           ..    andb #04
14292 EEFD 26 06           &.    bne 06
14293 EEFF CC B1 65        ..e   ldd #b165
14294 EF02 BD EE 03        ...   jsr ee03             ;jump36
14295 EF05 CE 00 1A        ...   ldx #001a
14296 EF08 1D 00 02        ...   bclr 00,x, #02
14297 EF0B F6 00 1A        ...   ldab 001a
14298 EF0E F7 30 00        .0.   stab 3000    ; ditto for $0.25
14299 EF11 CC 00 0A        ...   ldd #000a
14300 EF14 BD E5 71        ..q   jsr e571             ;msdelay
14301 ;
14302 EF17 F6 10 00        ...   ldab 1000
14303 EF1A C4 04           ..    andb #04     ; coin dispenser pin6
14304 EF1C 27 06           '.    beq 06
14305 EF1E CC B1 65        ..e   ldd #b165    ; "P2-P3 FAIL"
14306 EF21 BD EE 03        ...   jsr ee03             ;jump36
14307 EF24 CE 00 1A        ...   ldx #001a
14308 EF27 1C 00 01        ...   bset 00,x, #01
14309 EF2A F6 00 1A        ...   ldab 001a
14310 EF2D F7 30 00        .0.   stab 3000    ; send line of changer
14311 EF30 CC 00 0A        ...   ldd #000a
14312 EF33 BD E5 71        ..q   jsr e571             ;msdelay
14313 ;
14314 EF36 F6 18 00        ...   ldab 1800
14315 EF39 C4 20           .     andb #20     ; test door switch
14316 EF3B 26 06           &.    bne 06
14317 EF3D CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14318 EF40 BD EE 03        ...   jsr ee03             ;jump36
14319 EF43 CE 00 1A        ...   ldx #001a
14320 EF46 1D 00 01        ...   bclr 00,x, #01
14321 EF49 F6 00 1A        ...   ldab 001a
14322 EF4C F7 30 00        .0.   stab 3000    ; unset send line of changer
14323 EF4F CC 00 0A        ...   ldd #000a
14324 EF52 BD E5 71        ..q   jsr e571             ;msdelay
14325 EF55 F6 18 00        ...   ldab 1800
14326 EF58 C4 20           .     andb #20     ; test door again?
14327 EF5A 27 06           '.    beq 06
14328 EF5C CC B1 70        ..p   ldd #b170    ; "P2-P8 FAIL"
14329 EF5F BD EE 03        ...   jsr ee03             ;jump36
14330 EF62 CE 00 1A        ...   ldx #001a
14331 EF65 1C 00 04        ...   bset 00,x, #04 ; reset changer
14332 EF68 F6 00 1A        ...   ldab 001a
14333 EF6B F7 30 00        .0.   stab 3000
14334 EF6E CC 00 0A        ...   ldd #000a
14335 EF71 BD E5 71        ..q   jsr e571             ;msdelay
14336 EF74 F6 10 0A        ...   ldab 100a
14337 EF77 C4 04           ..    andb #04     ; test no-sale switch
14338 EF79 26 06           &.    bne 06
14339 EF7B CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14340 EF7E BD EE 03        ...   jsr ee03             ;jump36
14341 EF81 CE 00 1A        ...   ldx #001a
14342 EF84 1D 00 04        ...   bclr 00,x, #04
14343 EF87 F6 00 1A        ...   ldab 001a
14344 EF8A F7 30 00        .0.   stab 3000    ;snack motor drivers serial data is bit 7
14345 EF8D CC 00 0A        ...   ldd #000a
14346 EF90 BD E5 71        ..q   jsr e571             ;msdelay
14347 EF93 F6 10 0A        ...   ldab 100a
14348 EF96 C4 04           ..    andb #04
14349 EF98 27 06           '.    beq 06
14350 EF9A CC B1 7B        ..{   ldd #b17b    ; "P2-P9 FAIL"
14351 EF9D BD EE 03        ...   jsr ee03             ;jump36
14352 EFA0 CE 10 00        ...   ldx #1000
14353 EFA3 1C 00 08        ...   bset 00,x, #08
14354 EFA6 CE 00 1A        ...   ldx #001a
14355 EFA9 1C 00 40        ...   bset 00,x, #40
14356 EFAC F6 00 1A        ...   ldab 001a
14357 EFAF F7 30 00        .0.   stab 3000
14358 EFB2 CE 10 08        ...   ldx #1008
14359 EFB5 1C 00 02        ...   bset 00,x, #02 ; keypad data
14360 EFB8 CC 00 0A        ...   ldd #000a
14361 EFBB BD E5 71        ..q   jsr e571             ;msdelay
14362 EFBE F6 10 08        ...   ldab 1008
14363 EFC1 C4 01           ..    andb #01
14364 EFC3 26 06           &.    bne 06
14365 EFC5 CC B1 86        ...   ldd #b186    ; "P3-P4 FAIL"
14366 EFC8 BD EE 03        ...   jsr ee03             ;jump36
14367 EFCB CE 10 08        ...   ldx #1008
14368 EFCE 1D 00 02        ...   bclr 00,x, #02
14369 EFD1 CC 00 0A        ...   ldd #000a
14370 EFD4 BD E5 71        ..q   jsr e571             ;msdelay
14371 EFD7 F6 10 08        ...   ldab 1008
14372 EFDA C4 01           ..    andb #01
14373 EFDC 27 06           '.    beq 06
14374 EFDE CC B1 86        ...   ldd #b186     ; "P3-P4 FAIL"
14375 EFE1 BD EE 03        ...   jsr ee03             ;jump36
14376 EFE4 CE 10 00        ...   ldx #1000
14377 EFE7 1D 00 08        ...   bclr 00,x, #08
14378 EFEA CE 10 08        ...   ldx #1008
14379 EFED 1C 00 02        ...   bset 00,x, #02
14380 EFF0 CC 00 0A        ...   ldd #000a
14381 EFF3 BD E5 71        ..q   jsr e571             ;msdelay
14382 EFF6 F6 10 08        ...   ldab 1008
14383 EFF9 C4 01           ..    andb #01
14384 EFFB 26 06           &.    bne 06
14385 EFFD CC B1 91        ...   ldd #b191    ; "P5   FAIL"
14386 F000 BD EE 03        ...   jsr ee03             ;jump36
14387 F003 CE 10 08        ...   ldx #1008
14388 F006 1D 00 02        ...   bclr 00,x, #02
14389 F009 CC 00 0A        ...   ldd #000a
14390 F00C BD E5 71        ..q   jsr e571             ;msdelay
14391 F00F F6 10 08        ...   ldab 1008
14392 F012 C4 01           ..    andb #01
14393 F014 27 06           '.    beq 06
14394 F016 CC B1 91        ...   ldd #b191
14395 F019 BD EE 03        ...   jsr ee03             ;jump36
14396 F01C CE 00 14        ...   ldx #0014
14397 F01F 1C 00           ..    bset add,x 00,x
14398 F021 20 F6            .    bra f6
14399 F023 00              .     test
14400 F024 14              .     bset
14401 F025 F7 38 00        .8.   stab 3800
14402 F028 CC 00 0A        ...   ldd #000a
14403 F02B BD E5 71        ..q   jsr e571             ;msdelay
14404 F02E F6 20 00        . .   ldab 2000
14405 F031 C4 40           .@    andb #40
14406 F033 26 06           &.    bne 06
14407 F035 CC B1 9C        ...   ldd #b19c
14408 F038 BD EE 03        ...   jsr ee03             ;jump36
14409 F03B CE 00 14        ...   ldx #0014
14410 F03E 1D 00           ..    bclr add,x 00,x
14411 F040 20 F6            .    bra f6
14412 F042 00              .     test
14413 F043 14              .     bset
14414 F044 F7 38 00        .8.   stab 3800
14415 F047 CC 00 0A        ...   ldd #000a
14416 F04A BD E5 71        ..q   jsr e571             ;msdelay
14417 F04D F6 20 00        . .   ldab 2000
14418 F050 C4 40           .@    andb #40
14419 F052 27 06           '.    beq 06
14420 F054 CC B1 9C        ...   ldd #b19c
14421 F057 BD EE 03        ...   jsr ee03             ;jump36
14422 F05A CE 00 14        ...   ldx #0014
14423 F05D 1C 00 40        ...   bset 00,x, #40
14424 F060 F6 00 14        ...   ldab 0014
14425 F063 F7 38 00        .8.   stab 3800
14426 F066 CC 00 0A        ...   ldd #000a
14427 F069 BD E5 71        ..q   jsr e571             ;msdelay
14428 F06C F6 20 00        . .   ldab 2000
14429 F06F 2C 06           ,.    bge 06
14430 F071 CC B1 9C        ...   ldd #b19c
14431 F074 BD EE 03        ...   jsr ee03             ;jump36
14432 F077 CE 00 14        ...   ldx #0014
14433 F07A 1D 00 40        ...   bclr 00,x, #40
14434 F07D F6 00 14        ...   ldab 0014
14435 F080 F7 38 00        .8.   stab 3800
14436 F083 CC 00 0A        ...   ldd #000a
14437 F086 BD E5 71        ..q   jsr e571             ;msdelay
14438 F089 F6 20 00        . .   ldab 2000
14439 F08C 2D 06           -.    blt 06
14440 F08E CC B1 9C        ...   ldd #b19c
14441 F091 BD EE 03        ...   jsr ee03             ;jump36
14442 F094 7F 00 61        ..a   clr 0061
14443 F097 F6 00 61        ..a   ldab 0061
14444 F09A C1 08           ..    cmpb #08
14445 F09C 24 22           $"    bcc 22
14446 F09E F6 00 61        ..a   ldab 0061
14447 F0A1 4F              O     clra
14448 F0A2 C3 B1 C8        ...   addd #b1c8
14449 F0A5 8F              .     xgdx
14450 F0A6 E6 00           ..    ldab 00,x
14451 F0A8 F7 00 06        ...   stab 0006
14452 F0AB BD D3 11        ...   jsr d311             ;jump30 - test position exists
14453 F0AE 83 00 00        ...   subd #0000
14454 F0B1 27 08           '.    beq 08
14455 F0B3 CC B1 A7        ...   ldd #b1a7
14456 F0B6 BD EE 03        ...   jsr ee03             ;jump36
14457 F0B9 20 05            .    bra 05
14458 F0BB 7C 00 61        |.a   inc 0061
14459 F0BE 20 D7            .    bra d7
14460 F0C0 7F 00 61        ..a   clr 0061
14461 F0C3 F6 00 61        ..a   ldab 0061
14462 F0C6 C1 08           ..    cmpb #08
14463 F0C8 24 2B           $+    bcc 2b
14464 F0CA F6 00 61        ..a   ldab 0061
14465 F0CD 4F              O     clra
14466 F0CE C3 B1 C8        ...   addd #b1c8
14467 F0D1 8F              .     xgdx
14468 F0D2 E6 00           ..    ldab 00,x
14469 F0D4 F7 00 06        ...   stab 0006
14470 F0D7 BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14471 F0DA BD D5 70        ..p   jsr d570             ;jump35
14472 F0DD 83 00 00        ...   subd #0000
14473 F0E0 26 0B           &.    bne 0b
14474 F0E2 BD D1 05        ...   jsr d105             ;motors_off
14475 F0E5 CC B1 B2        ...   ldd #b1b2
14476 F0E8 BD EE 03        ...   jsr ee03             ;jump36
14477 F0EB 20 08            .    bra 08
14478 F0ED BD D1 05        ...   jsr d105             ;motors_off
14479 F0F0 7C 00 61        |.a   inc 0061
14480 F0F3 20 CE            .    bra ce
14481 F0F5 7F 00 61        ..a   clr 0061
14482 F0F8 F6 00 61        ..a   ldab 0061
14483 F0FB C1 05           ..    cmpb #05
14484 F0FD 24 45           $E    bcc 45
14485 F0FF F6 00 61        ..a   ldab 0061
14486 F102 4F              O     clra
14487 F103 C3 B1 C8        ...   addd #b1c8
14488 F106 8F              .     xgdx
14489 F107 E6 00           ..    ldab 00,x
14490 F109 F7 00 06        ...   stab 0006
14491 F10C BD D1 3D        ..=   jsr d13d             ;jump34 - motor on
14492 F10F CC 00 0A        ...   ldd #000a
14493 F112 BD E5 71        ..q   jsr e571             ;msdelay
14494 F115 F6 18 00        ...   ldab 1800
14495 F118 C4 40           .@    andb #40
14496 F11A 26 0B           &.    bne 0b
14497 F11C BD D1 05        ...   jsr d105             ;motors_off
14498 F11F CC B1 B2        ...   ldd #b1b2
14499 F122 BD EE 03        ...   jsr ee03             ;jump36
14500 F125 20 1D            .    bra 1d
14501 F127 BD D1 05        ...   jsr d105             ;motors_off
14502 F12A CC 00 0A        ...   ldd #000a
14503 F12D BD E5 71        ..q   jsr e571             ;msdelay
14504 F130 F6 18 00        ...   ldab 1800
14505 F133 C4 40           .@    andb #40
14506 F135 27 08           '.    beq 08
14507 F137 CC B1 B2        ...   ldd #b1b2
14508 F13A BD EE 03        ...   jsr ee03             ;jump36
14509 F13D 20 05            .    bra 05
14510 F13F 7C 00 61        |.a   inc 0061
14511 F142 20 B4            .    bra b4
14512 F144 FC 10 16        ...   ldd 1016
14513 F147 83 5A 5A        .ZZ   subd #5a5a
14514 F14A 26 0C           &.    bne 0c
14515 F14C CC B1 BD        ...   ldd #b1bd    ; " PASSED "
14516 F14F BD C0 BA        ...   jsr c0ba             ;display:
14517 F152 CC 05 DC        ...   ldd #05dc
14518 F155 BD E5 71        ..q   jsr e571             ;msdelay
14519 F158 7E EE 1C        ~..   jmp ee1c             ;goto81
14520
14521 jump53:
14522 ;send a byte to the printer
14523 ;it calls c7e7, which does things with the serial port
14524 F15B 37              7     pshb
14525 F15C 36              6     psha
14526 F15D F6 00 19        ...   ldab 0019
14527 F160 C4 40           .@    andb #40
14528 F162 26 5B           &[    bne 5b
14529 F164 C6 FF           ..    ldab #ff
14530 F166 F7 00 39        ..9   stab 0039
14531 F169 F6 20 00        . .   ldab 2000
14532 F16C 2C 11           ,.    bge 11
14533 F16E F6 20 00        . .   ldab 2000
14534 F171 C4 40           .@    andb #40
14535 F173 27 0A           '.    beq 0a
14536 F175 F6 00 39        ..9   ldab 0039
14537 F178 27 05           '.    beq 05
14538 F17A BD E6 1B        ...   jsr e61b             ;jump4
14539 F17D 20 EA            .    bra ea
14540 F17F F6 00 39        ..9   ldab 0039
14541 F182 26 08           &.    bne 08
14542 F184 CE 00 19        ...   ldx #0019
14543 F187 1C 00 40        ...   bset 00,x, #40
14544 F18A 20 33            3    bra 33
14545 F18C F6 20 00        . .   ldab 2000
14546 F18F C4 40           .@    andb #40
14547 F191 27 2C           ',    beq 2c
14548 F193 F6 00 1D        ...   ldab 001d
14549 F196 C4 01           ..    andb #01
14550 F198 27 1E           '.    beq 1e
14551 F19A 30              0     tsx
14552 F19B E6 01           ..    ldab 01,x
14553 F19D C1 30           .0    cmpb #30
14554 F19F 26 08           &.    bne 08
14555 F1A1 CC 00 20        ..    ldd #0020
14556 F1A4 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14557 F1A7 20 0D            .    bra 0d
14558 F1A9 30              0     tsx
14559 F1AA E6 01           ..    ldab 01,x
14560 F1AC 4F              O     clra
14561 F1AD BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14562 F1B0 CE 00 1D        ...   ldx #001d
14563 F1B3 1D 00 01        ...   bclr 00,x, #01
14564 F1B6 20 07            .    bra 07
14565 F1B8 30              0     tsx
14566 F1B9 E6 01           ..    ldab 01,x
14567 F1BB 4F              O     clra
14568 F1BC BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
14569 F1BF 38              8     pulx
14570 F1C0 39              9     rts
14571
14572 jump59:
14573 F1C1 37              7     pshb
14574 F1C2 36              6     psha
14575 F1C3 F6 20 00        . .   ldab 2000
14576 F1C6 C4 40           .@    andb #40
14577 F1C8 27 1C           '.    beq 1c
14578 F1CA 7F 00 18        ...   clr 0018
14579 F1CD F6 00 18        ...   ldab 0018
14580 F1D0 30              0     tsx
14581 F1D1 E1 05           ..    cmpb 05,x
14582 F1D3 24 11           $.    bcc 11
14583 F1D5 30              0     tsx
14584 F1D6 EE 00           ..    ldx 00,x
14585 F1D8 E6 00           ..    ldab 00,x
14586 F1DA 4F              O     clra
14587 F1DB BD F1 5B        ..[   jsr f15b             ;jump53
14588 F1DE 38              8     pulx
14589 F1DF 08              .     inx
14590 F1E0 3C              <     pshx
14591 F1E1 7C 00 18        |..   inc 0018
14592 F1E4 20 E7            .    bra e7
14593 F1E6 38              8     pulx
14594 F1E7 39              9     rts
14595
14596 ;send a string to the printer.  D is a pointer to a string
14597 jump57:
14598 F1E8 37              7     pshb
14599 F1E9 36              6     psha
14600 F1EA F6 20 00        . .   ldab 2000
14601 F1ED C4 40           .@    andb #40
14602 F1EF 27 1B           '.    beq 1b
14603 F1F1 CC 00 20        ..    ldd #0020
14604 F1F4 BD F1 5B        ..[   jsr f15b             ;jump53
14605 F1F7 30              0     tsx
14606 F1F8 EE 00           ..    ldx 00,x
14607 F1FA E6 00           ..    ldab 00,x
14608 F1FC 27 0E           '.    beq 0e
14609 F1FE 30              0     tsx
14610 F1FF EE 00           ..    ldx 00,x
14611 F201 E6 00           ..    ldab 00,x
14612 F203 4F              O     clra
14613 F204 BD F1 5B        ..[   jsr f15b             ;jump53
14614 F207 38              8     pulx
14615 F208 08              .     inx
14616 F209 3C              <     pshx
14617 F20A 20 EB            .    bra eb
14618 F20C 38              8     pulx
14619 F20D 39              9     rts
14620
14621 jump62:
14622 F20E 37              7     pshb
14623 F20F 36              6     psha
14624 F210 F6 20 00        . .   ldab 2000
14625 F213 C4 40           .@    andb #40
14626 F215 27 34           '4    beq 34
14627 F217 CE 00 1D        ...   ldx #001d
14628 F21A 1C 00 01        ...   bset 00,x, #01
14629 F21D 30              0     tsx
14630 F21E E6 01           ..    ldab 01,x
14631 F220 4F              O     clra
14632 F221 BD E7 95        ...   jsr e795             ;jump54 - number to string
14633 F224 F6 00 5D        ..]   ldab 005d
14634 F227 4F              O     clra
14635 F228 BD F1 5B        ..[   jsr f15b             ;jump53
14636 F22B F6 00 5E        ..^   ldab 005e
14637 F22E 4F              O     clra
14638 F22F BD F1 5B        ..[   jsr f15b             ;jump53
14639 F232 CE 00 1D        ...   ldx #001d
14640 F235 1D 00 01        ...   bclr 00,x, #01
14641 F238 F6 00 5F        .._   ldab 005f
14642 F23B 4F              O     clra
14643 F23C BD F1 5B        ..[   jsr f15b             ;jump53
14644 F23F CC 00 20        ..    ldd #0020
14645 F242 BD F1 5B        ..[   jsr f15b             ;jump53
14646 F245 CC 00 20        ..    ldd #0020
14647 F248 BD F1 5B        ..[   jsr f15b             ;jump53
14648 F24B 38              8     pulx
14649 F24C 39              9     rts
14650
14651 jump58:
14652 F24D 37              7     pshb
14653 F24E 36              6     psha
14654 F24F F6 20 00        . .   ldab 2000
14655 F252 C4 40           .@    andb #40
14656 F254 27 41           'A    beq 41
14657 F256 CE 00 1D        ...   ldx #001d
14658 F259 1C 00 01        ...   bset 00,x, #01
14659 F25C 30              0     tsx
14660 F25D EC 00           ..    ldd 00,x
14661 F25F BD E7 45        ..E   jsr e745             ;jump55 - number to string
14662 F262 F6 00 57        ..W   ldab 0057
14663 F265 4F              O     clra
14664 F266 BD F1 5B        ..[   jsr f15b             ;jump53
14665 F269 F6 00 5A        ..Z   ldab 005a
14666 F26C 4F              O     clra
14667 F26D BD F1 5B        ..[   jsr f15b             ;jump53
14668 F270 F6 00 5D        ..]   ldab 005d
14669 F273 4F              O     clra
14670 F274 BD F1 5B        ..[   jsr f15b             ;jump53
14671 F277 F6 00 5E        ..^   ldab 005e
14672 F27A 4F              O     clra
14673 F27B BD F1 5B        ..[   jsr f15b             ;jump53
14674 F27E CE 00 1D        ...   ldx #001d
14675 F281 1D 00 01        ...   bclr 00,x, #01
14676 F284 F6 00 5F        .._   ldab 005f
14677 F287 4F              O     clra
14678 F288 BD F1 5B        ..[   jsr f15b             ;jump53
14679 F28B CC 00 20        ..    ldd #0020
14680 F28E BD F1 5B        ..[   jsr f15b             ;jump53
14681 F291 CC 00 20        ..    ldd #0020
14682 F294 BD F1 5B        ..[   jsr f15b             ;jump53
14683 F297 38              8     pulx
14684 F298 39              9     rts
14685
14686 jump61:
14687 F299 37              7     pshb
14688 F29A 36              6     psha
14689 F29B F6 20 00        . .   ldab 2000
14690 F29E C4 40           .@    andb #40    ; printer DSR
14691 F2A0 27 7B           '{    beq 7b
14692 F2A2 F6 00 17        ...   ldab 0017
14693 F2A5 C4 08           ..    andb #08
14694 F2A7 26 06           &.    bne 06
14695 F2A9 CC 00 24        ..$   ldd #0024    ; "$"
14696 F2AC BD F1 5B        ..[   jsr f15b             ;jump53
14697 F2AF CE 00 1D        ...   ldx #001d
14698 F2B2 1C 00 01        ...   bset 00,x, #01
14699 F2B5 30              0     tsx
14700 F2B6 EC 00           ..    ldd 00,x
14701 F2B8 BD E7 45        ..E   jsr e745             ;jump55 - number to string
14702 F2BB F6 00 57        ..W   ldab 0057
14703 F2BE 4F              O     clra
14704 F2BF BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14705 F2C2 F6 00 5A        ..Z   ldab 005a
14706 F2C5 4F              O     clra
14707 F2C6 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14708 F2C9 F6 00 13        ...   ldab 0013
14709 F2CC C1 08           ..    cmpb #08
14710 F2CE 26 0C           &.    bne 0c
14711 F2D0 CC 00 2E        ...   ldd #002e
14712 F2D3 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14713 F2D6 CE 00 1D        ...   ldx #001d
14714 F2D9 1D 00 01        ...   bclr 00,x, #01
14715 F2DC F6 00 5D        ..]   ldab 005d
14716 F2DF 4F              O     clra
14717 F2E0 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14718 F2E3 F6 00 13        ...   ldab 0013
14719 F2E6 C1 04           ..    cmpb #04
14720 F2E8 26 0C           &.    bne 0c
14721 F2EA CC 00 2E        ...   ldd #002e
14722 F2ED BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14723 F2F0 CE 00 1D        ...   ldx #001d
14724 F2F3 1D 00 01        ...   bclr 00,x, #01
14725 F2F6 F6 00 5E        ..^   ldab 005e
14726 F2F9 4F              O     clra
14727 F2FA BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14728 F2FD F6 00 13        ...   ldab 0013
14729 F300 C1 02           ..    cmpb #02
14730 F302 26 06           &.    bne 06
14731 F304 CC 00 2E        ...   ldd #002e
14732 F307 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14733 F30A CE 00 1D        ...   ldx #001d
14734 F30D 1D 00 01        ...   bclr 00,x, #01
14735 F310 F6 00 5F        .._   ldab 005f
14736 F313 4F              O     clra
14737 F314 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14738 F317 CC 00 0A        ...   ldd #000a
14739 F31A BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14740 F31D 38              8     pulx
14741 F31E 39              9     rts
14742
14743 jump60:
14744 F31F 38              8     pulx
14745 F320 37              7     pshb
14746 F321 36              6     psha
14747 F322 3C              <     pshx
14748 F323 F6 20 00        . .   ldab 2000
14749 F326 C4 40           .@    andb #40     ; printer dsr
14750 F328 26 03           &.    bne 03
14751 F32A 7E F3 BC        ~..   jmp f3bc             ;goto82
14752 F32D F6 00 17        ...   ldab 0017
14753 F330 C4 08           ..    andb #08
14754 F332 26 06           &.    bne 06
14755 F334 CC 00 24        ..$   ldd #0024    ; "$"
14756 F337 BD F1 5B        ..[   jsr f15b             ;jump53 - byte to printer
14757 F33A CE 00 1D        ...   ldx #001d
14758 F33D 1C 00 01        ...   bset 00,x, #01
14759 F340 30              0     tsx
14760 F341 EC 04           ..    ldd 04,x
14761 F343 37              7     pshb
14762 F344 36              6     psha
14763 F345 EC 02           ..    ldd 02,x
14764 F347 BD E6 21        ..!   jsr e621             ;jump56 - write to display
14765 F34A 38              8     pulx
14766 F34B C6 07           ..    ldab #07
14767 F34D F7 00 18        ...   stab 0018
14768 F350 F6 00 18        ...   ldab 0018
14769 F353 C1 FF           ..    cmpb #ff
14770 F355 24 5F           $_    bcc 5f
14771 F357 F6 00 18        ...   ldab 0018
14772 F35A 4F              O     clra
14773 F35B C3 0B 90        ...   addd #0b90
14774 F35E 8F              .     xgdx
14775 F35F E6 00           ..    ldab 00,x
14776 F361 4F              O     clra
14777 F362 BD F1 5B        ..[   jsr f15b             ;jump53
14778 F365 F6 00 18        ...   ldab 0018
14779 F368 C1 03           ..    cmpb #03
14780 F36A 26 15           &.    bne 15
14781 F36C F6 00 13        ...   ldab 0013
14782 F36F C1 08           ..    cmpb #08
14783 F371 26 0C           &.    bne 0c
14784 F373 CC 00 2E        ...   ldd #002e
14785 F376 BD F1 5B        ..[   jsr f15b             ;jump53
14786 F379 CE 00 1D        ...   ldx #001d
14787 F37C 1D 00 01        ...   bclr 00,x, #01
14788 F37F 20 30            0    bra 30
14789 F381 C1 02           ..    cmpb #02
14790 F383 26 15           &.    bne 15
14791 F385 F6 00 13        ...   ldab 0013
14792 F388 C1 04           ..    cmpb #04
14793 F38A 26 0C           &.    bne 0c
14794 F38C CC 00 2E        ...   ldd #002e
14795 F38F BD F1 5B        ..[   jsr f15b             ;jump53
14796 F392 CE 00 1D        ...   ldx #001d
14797 F395 1D 00 01        ...   bclr 00,x, #01
14798 F398 20 17            .    bra 17
14799 F39A C1 01           ..    cmpb #01
14800 F39C 26 13           &.    bne 13
14801 F39E F6 00 13        ...   ldab 0013
14802 F3A1 C1 02           ..    cmpb #02
14803 F3A3 26 06           &.    bne 06
14804 F3A5 CC 00 2E        ...   ldd #002e
14805 F3A8 BD F1 5B        ..[   jsr f15b             ;jump53
14806 F3AB CE 00 1D        ...   ldx #001d
14807 F3AE 1D 00 01        ...   bclr 00,x, #01
14808 F3B1 7A 00 18        z..   dec 0018
14809 F3B4 20 9A            .    bra 9a
14810 F3B6 CC 00 0A        ...   ldd #000a
14811 F3B9 BD F1 5B        ..[   jsr f15b             ;jump53
14812 goto82:
14813 F3BC 38              8     pulx
14814 F3BD 31              1     ins
14815 F3BE 31              1     ins
14816 F3BF 6E 00           n.    jmp 00,x
14817
14818 jump63:
14819 F3C1 37              7     pshb
14820 F3C2 36              6     psha
14821 F3C3 F6 20 00        . .   ldab 2000
14822 F3C6 C4 40           .@    andb #40
14823 F3C8 27 49           'I    beq 49
14824 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14825 F3CD BD F1 E8        ...   jsr f1e8             ;jump57
14826 F3D0 30              0     tsx
14827 F3D1 E6 01           ..    ldab 01,x
14828 F3D3 4F              O     clra
14829 F3D4 CE 00 0A        ...   ldx #000a
14830 F3D7 02              .     idiv
14831 F3D8 8F              .     xgdx
14832 F3D9 CB 30           .0    addb #30
14833 F3DB F7 00 5E        ..^   stab 005e
14834 F3DE 30              0     tsx
14835 F3DF E6 01           ..    ldab 01,x
14836 F3E1 4F              O     clra
14837 F3E2 CE 00 0A        ...   ldx #000a
14838 F3E5 02              .     idiv
14839 F3E6 CB 30           .0    addb #30
14840 F3E8 F7 00 5F        .._   stab 005f    ;5e and 5f now param in ascii
14841 F3EB F6 00 5E        ..^   ldab 005e
14842 F3EE 4F              O     clra
14843 F3EF BD F1 5B        ..[   jsr f15b             ;jump53
14844 F3F2 F6 00 5F        .._   ldab 005f
14845 F3F5 4F              O     clra
14846 F3F6 BD F1 5B        ..[   jsr f15b             ;jump53
14847 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14848 F3FC BD F1 E8        ...   jsr f1e8             ;jump57
14849 F3FF 30              0     tsx
14850 F400 E6 01           ..    ldab 01,x
14851 F402 4F              O     clra
14852 F403 05              .     asld
14853 F404 C3 0D 1F        ...   addd #0d1f
14854 F407 8F              .     xgdx
14855 F408 EC 00           ..    ldd 00,x
14856 F40A BD F2 4D        ..M   jsr f24d             ;jump58
14857 F40D CC 00 0A        ...   ldd #000a
14858 F410 BD F1 5B        ..[   jsr f15b             ;jump53
14859 F413 38              8     pulx
14860 F414 39              9     rts
14861
14862 jump112:
14863 ; print a report to printer
14864 F415 F6 0B C0        ...   ldab 0bc0
14865 F418 C4 02           ..    andb #02
14866 F41A 27 15           '.    beq 15
14867 F41C CE 00 21        ..!   ldx #0021
14868 F41F 1C 00           ..    bset 00,x, #80
14869 F421 F6 00 1D        ..    ldab 001d
14870 F424 C4 02           ..    andb #02
14871 F427 27 02           '.    beq 02
14872 F429 20 F7            .    bra f7
14873 F42B CE 00 21        ..!   ldx #0021
14874 F42E 1D 00           ..    bclr 00,x, #80
14875 F430 C6 10           ..    ldab #10
14876 F433 F7 10 2C        ..,   stab 102c ; set 9N1
14877 F436 C6 2E           ..    ldab #2e
14878 F438 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
14879 F43B C6 05           ..    ldab #05
14880 F43D F7 10 2B        ..+   stab 102b    ; 2400 baud
14881 F440 CC 03 E8        ...   ldd #03e8
14882 F443 BD E5 71        ..q   jsr e571             ;msdelay
14883 F446 CE 10 00        ...   ldx #1000
14884 F449 1D 00 08        ...   bclr 00,x, #08  ; talk to ze printer
14885 F44C CE 00 19        ...   ldx #0019
14886 F44F 1D 00 40        ...   bclr 00,x, #40
14887 F452 CE 00 1D        ...   ldx #001d
14888 F455 1D 00 01        ...   bclr 00,x, #01
14889 F458 CC 00 18        ...   ldd #0018
14890 F45B BD F1 5B        ..[   jsr f15b             ;jump53
14891 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14892 F461 BD F1 E8        ...   jsr f1e8             ;jump57
14893 F464 CC 00 0A        ...   ldd #000a    ; new line
14894 F467 BD F1 5B        ..[   jsr f15b             ;jump53
14895 F46A CC B2 38        ..8   ldd #b238    "         -------------------"
14896 F46D BD F1 E8        ...   jsr f1e8             ;jump57
14897 F470 CC 00 0A        ...   ldd #000a    ; new line
14898 F473 BD F1 5B        ..[   jsr f15b             ;jump53
14899 F476 CC B2 56        ..V   ldd #b256    ; "5900 SOFTWARE VER 5"
14900 F479 BD F1 E8        ...   jsr f1e8             ;jump57
14901 F47C CC 00 0A        ...   ldd #000a    ; new line
14902 F47F BD F1 5B        ..[   jsr f15b             ;jump53
14903 F482 CC 00 0A        ...   ldd #000a    ; new line
14904 F485 BD F1 5B        ..[   jsr f15b             ;jump53
14905 F488 CC B2 75        ..u   ldd #b275    ; ACCOUNT RECORD
14906 F48B BD F1 E8        ...   jsr f1e8             ;jump57
14907 F48E CC 00 0A        ...   ldd #000a    ; new line
14908 F491 BD F1 5B        ..[   jsr f15b             ;jump53
14909 F494 CC B2 38        ..8   ldd #b238    ; --------------------
14910 F497 BD F1 E8        ...   jsr f1e8             ;jump57
14911 F49A CC 00 0A        ...   ldd #000a    ; new line
14912 F49D BD F1 5B        ..[   jsr f15b             ;jump53
14913 F4A0 CC 00 0A        ...   ldd #000a    ; new line
14914 F4A3 BD F1 5B        ..[   jsr f15b             ;jump53
14915 F4A6 CC B2 90        ...   ldd #b290    ; SERIAL #
14916 F4A9 BD F1 E8        ...   jsr f1e8             ;jump57
14917 F4AC CE 00 0A        ...   ldx #000a
14918 F4AF 3C              <     pshx
14919 F4B0 CC 0C BC        ...   ldd #0cbc    ; serial number
14920 F4B3 BD F1 C1        ...   jsr f1c1             ;jump59
14921 F4B6 38              8     pulx
14922 F4B7 CC 00 0A        ...   ldd #000a
14923 F4BA BD F1 5B        ..[   jsr f15b             ;jump53
14924 F4BD CC B2 A2        ...   ldd #b2a2    ; "MACHINE ID"
14925 F4C0 BD F1 E8        ...   jsr f1e8             ;jump57
14926 F4C3 CE 00 0A        ...   ldx #000a
14927 F4C6 3C              <     pshx
14928 F4C7 CC 0C CC        ...   ldd #0ccc
14929 F4CA BD F1 C1        ...   jsr f1c1             ;jump59
14930 F4CD 38              8     pulx
14931 F4CE CC 00 0A        ...   ldd #000a
14932 F4D1 BD F1 5B        ..[   jsr f15b             ;jump53
14933 F4D4 CC B2 B4        ...   ldd #b2b4    ; "AUDIT NUMBER"
14934 F4D7 BD F1 E8        ...   jsr f1e8             ;jump57
14935 F4DA FC 0C E7        ...   ldd 0ce7
14936 F4DD BD F2 4D        ..M   jsr f24d             ;jump58 - convert to string
14937 F4E0 CC 00 0A        ...   ldd #000a
14938 F4E3 BD F1 5B        ..[   jsr f15b             ;jump53
14939 F4E6 CC 00 0A        ...   ldd #000a
14940 F4E9 BD F1 5B        ..[   jsr f15b             ;jump53
14941 F4EC CC B2 C6        ...   ldd #b2c6    ; "SALES (R)
14942 F4EF BD F1 E8        ...   jsr f1e8             ;jump57
14943 F4F2 FE 0D E9        ...   ldx 0de9
14944 F4F5 3C              <     pshx
14945 F4F6 FC 0D E7        ...   ldd 0de7
14946 F4F9 BD F3 1F        ...   jsr f31f             ;jump60
14947 F4FC 38              8     pulx
14948 F4FD CC B2 D8        ...   ldd #b2d8    ; "SALES (N)
14949 F500 BD F1 E8        ...   jsr f1e8             ;jump57
14950 F503 FE 0D ED        ...   ldx 0ded
14951 F506 3C              <     pshx
14952 F507 FC 0D EB        ...   ldd 0deb
14953 F50A BD F3 1F        ...   jsr f31f             ;jump60
14954 F50D 38              8     pulx
14955 F50E CC B2 EA        ...   ldd #b2ea
14956 F511 BD F1 E8        ...   jsr f1e8             ;jump57
14957 F514 FE 0D F1        ...   ldx 0df1
14958 F517 3C              <     pshx
14959 F518 FC 0D EF        ...   ldd 0def
14960 F51B BD F3 1F        ...   jsr f31f             ;jump60
14961 F51E 38              8     pulx
14962 F51F CC B2 FC        ...   ldd #b2fc
14963 F522 BD F1 E8        ...   jsr f1e8             ;jump57
14964 F525 FE 0D F9        ...   ldx 0df9
14965 F528 3C              <     pshx
14966 F529 FC 0D F7        ...   ldd 0df7
14967 F52C BD F3 1F        ...   jsr f31f             ;jump60
14968 F52F 38              8     pulx
14969 F530 CC B3 0E        ...   ldd #b30e
14970 F533 BD F1 E8        ...   jsr f1e8             ;jump57
14971 F536 FE 0D FD        ...   ldx 0dfd
14972 F539 3C              <     pshx
14973 F53A FC 0D FB        ...   ldd 0dfb
14974 F53D BD F3 1F        ...   jsr f31f             ;jump60
14975 F540 38              8     pulx
14976 F541 CC 00 0A        ...   ldd #000a
14977 F544 BD F1 5B        ..[   jsr f15b             ;jump53
14978 F547 CC B3 20        ..    ldd #b320
14979 F54A BD F1 E8        ...   jsr f1e8             ;jump57
14980 F54D CC 00 0A        ...   ldd #000a
14981 F550 BD F1 5B        ..[   jsr f15b             ;jump53
14982 F553 CC B3 31        ..1   ldd #b331
14983 F556 BD F1 E8        ...   jsr f1e8             ;jump57
14984 F559 FE 0D F5        ...   ldx 0df5
14985 F55C 3C              <     pshx
14986 F55D FC 0D F3        ...   ldd 0df3
14987 F560 BD F3 1F        ...   jsr f31f             ;jump60
14988 F563 38              8     pulx
14989 F564 CC B3 4A        ..J   ldd #b34a
14990 F567 BD F1 E8        ...   jsr f1e8             ;jump57
14991 F56A FC 0C DD        ...   ldd 0cdd
14992 F56D BD F2 4D        ..M   jsr f24d             ;jump58
14993 F570 FE 0C F5        ...   ldx 0cf5
14994 F573 3C              <     pshx
14995 F574 FC 0C F3        ...   ldd 0cf3
14996 F577 BD F3 1F        ...   jsr f31f             ;jump60
14997 F57A 38              8     pulx
14998 F57B CC B3 5C        ..\   ldd #b35c
14999 F57E BD F1 E8        ...   jsr f1e8             ;jump57
15000 F581 FC 0C DF        ...   ldd 0cdf
15001 F584 BD F2 4D        ..M   jsr f24d             ;jump58
15002 F587 FE 0C F9        ...   ldx 0cf9
15003 F58A 3C              <     pshx
15004 F58B FC 0C F7        ...   ldd 0cf7
15005 F58E BD F3 1F        ...   jsr f31f             ;jump60
15006 F591 38              8     pulx
15007 F592 CC B3 6E        ..n   ldd #b36e
15008 F595 BD F1 E8        ...   jsr f1e8             ;jump57
15009 F598 FC 0C E1        ...   ldd 0ce1
15010 F59B BD F2 4D        ..M   jsr f24d             ;jump58
15011 F59E FE 0C FD        ...   ldx 0cfd
15012 F5A1 3C              <     pshx
15013 F5A2 FC 0C FB        ...   ldd 0cfb
15014 F5A5 BD F3 1F        ...   jsr f31f             ;jump60
15015 F5A8 38              8     pulx
15016 F5A9 CC B3 80        ...   ldd #b380
15017 F5AC BD F1 E8        ...   jsr f1e8             ;jump57
15018 F5AF FC 0C E3        ...   ldd 0ce3
15019 F5B2 BD F2 4D        ..M   jsr f24d             ;jump58
15020 F5B5 FE 0D 01        ...   ldx 0d01
15021 F5B8 3C              <     pshx
15022 F5B9 FC 0C FF        ...   ldd 0cff
15023 F5BC BD F3 1F        ...   jsr f31f             ;jump60
15024 F5BF 38              8     pulx
15025 F5C0 CC B3 92        ...   ldd #b392
15026 F5C3 BD F1 E8        ...   jsr f1e8             ;jump57
15027 F5C6 FC 0C E5        ...   ldd 0ce5
15028 F5C9 BD F2 4D        ..M   jsr f24d             ;jump58
15029 F5CC FE 0D 05        ...   ldx 0d05
15030 F5CF 3C              <     pshx
15031 F5D0 FC 0D 03        ...   ldd 0d03
15032 F5D3 BD F3 1F        ...   jsr f31f             ;jump60
15033 F5D6 38              8     pulx
15034 F5D7 CC 00 0A        ...   ldd #000a
15035 F5DA BD F1 5B        ..[   jsr f15b             ;jump53
15036 F5DD CC B3 A4        ...   ldd #b3a4
15037 F5E0 BD F1 E8        ...   jsr f1e8             ;jump57
15038 F5E3 CC 00 0A        ...   ldd #000a
15039 F5E6 BD F1 5B        ..[   jsr f15b             ;jump53
15040 F5E9 CC B3 B3        ...   ldd #b3b3
15041 F5EC BD F1 E8        ...   jsr f1e8             ;jump57
15042 F5EF FC 0C F1        ...   ldd 0cf1
15043 F5F2 BD F2 99        ...   jsr f299             ;jump61
15044 F5F5 CC B3 CA        ...   ldd #b3ca
15045 F5F8 BD F1 E8        ...   jsr f1e8             ;jump57
15046 F5FB F6 0C DC        ...   ldab 0cdc
15047 F5FE 4F              O     clra
15048 F5FF BD F2 0E        ...   jsr f20e             ;jump62
15049 F602 FC 0C E9        ...   ldd 0ce9
15050 F605 BD F2 99        ...   jsr f299             ;jump61
15051 F608 CC B3 DC        ...   ldd #b3dc
15052 F60B BD F1 E8        ...   jsr f1e8             ;jump57
15053 F60E F6 0C DB        ...   ldab 0cdb
15054 F611 4F              O     clra
15055 F612 BD F2 0E        ...   jsr f20e             ;jump62
15056 F615 FC 0C EB        ...   ldd 0ceb
15057 F618 BD F2 99        ...   jsr f299             ;jump61
15058 F61B CC B3 EE        ...   ldd #b3ee
15059 F61E BD F1 E8        ...   jsr f1e8             ;jump57
15060 F621 F6 0C DA        ...   ldab 0cda
15061 F624 4F              O     clra
15062 F625 BD F2 0E        ...   jsr f20e             ;jump62
15063 F628 FC 0C ED        ...   ldd 0ced
15064 F62B BD F2 99        ...   jsr f299             ;jump61
15065 F62E CC B4 00        ...   ldd #b400
15066 F631 BD F1 E8        ...   jsr f1e8             ;jump57
15067 F634 F6 0C D9        ...   ldab 0cd9
15068 F637 4F              O     clra
15069 F638 BD F2 0E        ...   jsr f20e             ;jump62
15070 F63B FC 0C EF        ...   ldd 0cef
15071 F63E BD F2 99        ...   jsr f299             ;jump61
15072 F641 CC 00 0A        ...   ldd #000a
15073 F644 BD F1 5B        ..[   jsr f15b             ;jump53
15074 F647 CC B4 12        ...   ldd #b412
15075 F64A BD F1 E8        ...   jsr f1e8             ;jump57
15076 F64D FC 0D 07        ...   ldd 0d07
15077 F650 BD F2 4D        ..M   jsr f24d             ;jump58
15078 F653 FE 0D 11        ...   ldx 0d11
15079 F656 3C              <     pshx
15080 F657 FC 0D 0F        ...   ldd 0d0f
15081 F65A BD F3 1F        ...   jsr f31f             ;jump60
15082 F65D 38              8     pulx
15083 F65E CC B4 24        ..$   ldd #b424
15084 F661 BD F1 E8        ...   jsr f1e8             ;jump57
15085 F664 FC 0D 09        ...   ldd 0d09
15086 F667 BD F2 4D        ..M   jsr f24d             ;jump58
15087 F66A FE 0D 15        ...   ldx 0d15
15088 F66D 3C              <     pshx
15089 F66E FC 0D 13        ...   ldd 0d13
15090 F671 BD F3 1F        ...   jsr f31f             ;jump60
15091 F674 38              8     pulx
15092 F675 CC B4 36        ..6   ldd #b436
15093 F678 BD F1 E8        ...   jsr f1e8             ;jump57
15094 F67B FC 0D 0B        ...   ldd 0d0b
15095 F67E BD F2 4D        ..M   jsr f24d             ;jump58
15096 F681 FE 0D 19        ...   ldx 0d19
15097 F684 3C              <     pshx
15098 F685 FC 0D 17        ...   ldd 0d17
15099 F688 BD F3 1F        ...   jsr f31f             ;jump60
15100 F68B 38              8     pulx
15101 F68C CC B4 48        ..H   ldd #b448
15102 F68F BD F1 E8        ...   jsr f1e8             ;jump57
15103 F692 FC 0D 0D        ...   ldd 0d0d
15104 F695 BD F2 4D        ..M   jsr f24d             ;jump58
15105 F698 FE 0D 1D        ...   ldx 0d1d
15106 F69B 3C              <     pshx
15107 F69C FC 0D 1B        ...   ldd 0d1b
15108 F69F BD F3 1F        ...   jsr f31f             ;jump60
15109 F6A2 38              8     pulx
15110 F6A3 CC 00 0A        ...   ldd #000a
15111 F6A6 BD F1 5B        ..[   jsr f15b             ;jump53
15112 F6A9 CC B4 5A        ..Z   ldd #b45a
15113 F6AC BD F1 E8        ...   jsr f1e8             ;jump57
15114 F6AF CC 00 0A        ...   ldd #000a
15115 F6B2 BD F1 5B        ..[   jsr f15b             ;jump53
15116 F6B5 C6 01           ..    ldab #01
15117 F6B7 F7 00 54        ..T   stab 0054
15118 F6BA F6 00 54        ..T   ldab 0054
15119 F6BD C1 63           .c    cmpb #63
15120 F6BF 22 1B           ".    bhi 1b
15121 F6C1 F6 00 54        ..T   ldab 0054
15122 F6C4 4F              O     clra
15123 F6C5 05              .     asld
15124 F6C6 C3 08 C8        ...   addd #08c8
15125 F6C9 8F              .     xgdx
15126 F6CA EC 00           ..    ldd 00,x
15127 F6CC C4 80           ..    andb #80
15128 F6CE 27 07           '.    beq 07
15129 F6D0 F6 00 54        ..T   ldab 0054
15130 F6D3 4F              O     clra
15131 F6D4 BD F3 C1        ...   jsr f3c1             ;jump63
15132 F6D7 7C 00 54        |.T   inc 0054
15133 F6DA 20 DE            .    bra de
15134 F6DC CC 00 0A        ...   ldd #000a
15135 F6DF BD F1 5B        ..[   jsr f15b             ;jump53
15136 F6E2 F6 00 19        ...   ldab 0019
15137 F6E5 C4 40           .@    andb #40
15138 F6E7 26 07           &.    bne 07
15139 F6E9 FE 0C E7        ...   ldx 0ce7     ;increment the audit number?
15140 F6EC 08              .     inx
15141 F6ED FF 0C E7        ...   stx 0ce7
15142 F6F0 CE 00 1D        ...   ldx #001d
15143 F6F3 1D 00 01        ...   bclr 00,x, #01
15144 F6F6 CC 03 E8        ...   ldd #03e8
15145 F6F9 BD E5 71        ..q   jsr e571             ;msdelay
15146 F6FC C6 03           ..    ldab #03
15147 F6FE F7 10 2B        ..+   stab 102b         ; back to 9600 baud
15148 F701 CE 10 00        ...   ldx #1000
15149 F704 1C 00 08        ...   bset 00,x, #08    ; set back to coin mech
15150 F707 F6 0B C0        ...   ldab 0bc0
15151 F70A C4 02           ..    andb #02
15152 F70C 27 06           '.    beq 06
15153 F70E CC 00 80        ...   ldd #0080
15154 F711 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15155 F714 7F 00 38        ..8   clr 0038
15156 F717 39              9     rts
15157
15158 rti:
15159 F718 3C              <     pshx
15160 F719 F6 0B C0        ...   ldab 0bc0    ; if we have a bill validator
15161 F71C C4 08           ..    andb #08
15162 F71E 27 03           '.    beq 03
15163 F720 BD C3 25        ..%   jsr c325             ;jump64 - go query the bill validator
15164 F723 7C 00 0C        |..   inc 000c
15165 F726 F6 00 0C        ...   ldab 000c
15166 F729 C1 02           ..    cmpb #02
15167 F72B 26 13           &.    bne 13
15168 F72D 7F 00 0C        ...   clr 000c
15169 F730 F6 00 07        ...   ldab 0007
15170 F733 27 03           '.    beq 03
15171 F735 7A 00 07        z..   dec 0007
15172 F738 F6 00 00        ...   ldab 0000
15173 F73B 27 03           '.    beq 03
15174 F73D 7A 00 00        z..   dec 0000
15175 F740 7C 00 0B        |..   inc 000b
15176 F743 F6 00 0B        ...   ldab 000b
15177 F746 C1 08           ..    cmpb #08
15178 F748 26 37           &7    bne 37      ; to f781
15179 F74A 7F 00 0B        ...   clr 000b
15180 F74D FC 00 3B        ..;   ldd 003b
15181 F750 27 07           '.    beq 07
15182 F752 FE 00 3B        ..;   ldx 003b
15183 F755 09              .     dex
15184 F756 FF 00 3B        ..;   stx 003b
15185 F759 CC 00 2C        ..,   ldd #002c
15186 F75C 30              0     tsx
15187 F75D ED 00           ..    std 00,x
15188 F75F 30              0     tsx
15189 F760 EC 00           ..    ldd 00,x
15190 F762 37              7     pshb
15191 F763 36              6     psha
15192 F764 CC 00 3A        ..:   ldd #003a
15193 F767 30              0     tsx
15194 F768 A3 00           ..    subd 00,x
15195 F76A 31              1     ins
15196 F76B 31              1     ins
15197 F76C 25 13           %.    bcs 13
15198 F76E 30              0     tsx
15199 F76F EE 00           ..    ldx 00,x
15200 F771 E6 00           ..    ldab 00,x
15201 F773 27 07           '.    beq 07
15202 F775 30              0     tsx
15203 F776 EE 00           ..    ldx 00,x
15204 F778 6A 00           j.    dec 00,x
15205 F77A E6 00           ..    ldab 00,x
15206 F77C 38              8     pulx
15207 F77D 08              .     inx
15208 F77E 3C              <     pshx
15209 F77F 20 DE            .    bra de             ; to f75f
15210 ;
15211 F781 F6 00 32        ..2   ldab 0032
15212 F784 27 07           '.    beq 07             ; to f78d
15213 F786 F6 00 32        ..2   ldab 0032
15214 F789 C4 02           ..    andb #02
15215 F78B 26 08           &.    bne 08             ; to f795
15216 ;
15217 F78D CE 10 00        ...   ldx #1000          ; chime off
15218 F790 1D 00 10        ..    bclr 00,x, #10
15219 F793 20 0D            .    bra 0d             ; to f7a2
15220 ;
15221 F795 F6 00 32        ..2   ldab 0032
15222 F798 C4 01           ..    andb #01
15223 F79A 26 06           &.    bne 06             ; to f7a2
15224 F79C CE 10 00        ...   ldx #1000          ; chime on
15225 F79F 1C 00 10        ..    bset 00,x, #10
15226 ;
15227 F7A2 7C 00 4C        |.L   inc 004c
15228 F7A5 F6 00 4C        ..L   ldab 004c
15229 F7A8 C1 4B           .K    cmpb #4b
15230 F7AA 26 13           &.    bne 13    ; to f7bf
15231 F7AC 7F 00 4C        ..L   clr 004c
15232 F7AF F6 00 4F        ..O   ldab 004f
15233 F7B2 27 03           '.    beq 03
15234 F7B4 7A 00 4F        z.O   dec 004f
15235 ;
15236 F7B7 F6 00 25        ..%   ldab 0025
15237 F7BA 27 03           '.    beq 03
15238 F7BC 7A 00 25        z.%   dec 0025
15239 ;
15240 F7BF F6 00 31        ..1   ldab 0031
15241 F7C2 26 03           &.    bne 03
15242 F7C4 BD FE 69        ..i   jsr fe69             ;reset
15243 ;
15244 F7C7 F6 00 7F        ...   ldab 007f
15245 F7CA 27 03           '.    beq 03
15246 F7CC BD FE 69        ..i   jsr fe69             ;reset
15247 ;
15248 F7CF C6 40           .@    ldab #40
15249 F7D1 F7 10 25        ..%   stab 1025    ; notify end of RTI period
15250 F7D4 38              8     pulx
15251 F7D5 3B              ;     rti
15252
15253 main:
15254 ;
15255 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
15256 ;
15257 ; clears the bits of U14 flipflop
15258 F7D9 5F              _     clrb         ;0 -> B
15259 F7DA F7 38 00        .8.   stab 3800    ;B -> 3800
15260 ;
15261 F7DD C6 7F           ..    ldab #7f     ;7F -> B
15262 F7DF F7 00 1A        ...   stab 001a    ;B -> 001a
15263 ;
15264 ; set changer outputs all on, row motors off
15265 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
15266 F7E4 F7 30 00        .0.   stab 3000    ;
15267 ;
15268 ; sets priority select bits 0-3 (elevates interrupt priority of all interrupts)
15269 F7E7 C6 07           ..    ldab #07     ;7 -> B
15270 F7E9 F7 10 3C        ..<   stab 103c
15271 ;
15272 ; Set PA7 output, PA3 input, RT clock rate to 314 Hz (4.9152Mhz / 2^14)
15273 F7EC C6 81           ..    ldab #81     ;81 -> B
15274 F7EE F7 10 26        ..&   stab 1026
15275 ;
15276 ; clear ADC register
15277 F7F1 5F              _     clrb         ;0 -> B
15278 F7F2 F7 10 30        ..0   stab 1030
15279 ;
15280 ; talk to coin mech, beep, tie clock motors & display reset high (off)
15281 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B ; 11001000
15282 F7F7 F7 10 00        ...   stab 1000 ; to port A
15283 ;
15284 ; sets PortD directions. XXX: Why is PD2 an output?
15285 F7FA C6 3E           .>    ldab #3e     ;3e -> B 00111110
15286 F7FC F7 10 09        ...   stab 1009 ; port D DDR
15287 ;
15288 ; make PortD pins open-drain, set clock polarity
15289 F7FF C6 12           ..    ldab #12     ;12 -> B
15290 F801 F7 10 28        ..(   stab 1028 ; SPCR 00101000
15291 ;
15292 ; initialize the display
15293 F804 BD BE 69        ..i   jsr be69             ;displayreset
15294 ;
15295 ; initialize the bill validator & more stuff
15296 F807 BD EA 59        ..Y   jsr ea59             ;jump65
15297 ;
15298 F80A CC 00 64        ..d   ldd #0064    ; 100-unit delay
15299 F80D BD E5 71        ..q   jsr e571             ;msdelay
15300 ; lotsa text
15301 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
15302 F813 BD C0 BA        ...   jsr c0ba             ;display:
15303 F816 CC 01 F4        ...   ldd #01f4    ; 500-unit delay
15304 F819 BD E5 71        ..q   jsr e571             ;msdelay
15305 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
15306 F81F BD C0 BA        ...   jsr c0ba             ;display:
15307 F822 CC 01 F4        ...   ldd #01f4
15308 F825 BD E5 71        ..q   jsr e571             ;msdelay
15309 F828 CC B2 05        ...   ldd #b205    "   1993   "
15310 F82B BD C0 BA        ...   jsr c0ba             ;display:
15311 F82E CC 01 F4        ...   ldd #01f4
15312 F831 BD E5 71        ..q   jsr e571             ;msdelay
15313 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
15314 F837 BD C0 BA        ...   jsr c0ba             ;display:
15315 F83A CC 00 0A        ...   ldd #000a
15316 F83D BD E5 71        ..q   jsr e571             ;msdelay
15317 ;
15318 ;
15319 F840 7F 00 7F        ...   clr 007f
15320 F843 7F 00 21        ..!   clr 0021
15321 F846 7F 00 1F        ...   clr 001f
15322 F849 7F 00 1D        ...   clr 001d
15323 F84C 7F 00 1B        ...   clr 001b
15324 F84F 7F 00 19        ...   clr 0019
15325 ;
15326 F852 F6 0B C0        ...   ldab 0bc0
15327 F855 C4 01           ..    andb #01
15328 F857 27 08           '.    beq 08           ; to f861
15329 F859 CE 0B C1        ...   ldx #0bc1
15330 F85C 1C 00 01        ...   bset 00,x, #01   ; set changer powerup fail
15331 F85F 20 06            .    bra 06           ; to f867
15332 F861 CE 0B C1        ...   ldx #0bc1
15333 F864 1D 00 01        ...   bclr 00,x, #01   ; clear changer powerup fail
15334 ;
15335 F867 F6 0B C0        ...   ldab 0bc0
15336 F86A C4 04           ..    andb #04
15337 F86C 27 08           '.    beq 08           ; to f876
15338 F86E CE 0B C1        ...   ldx #0bc1
15339 F871 1C 00 02        ...   bset 00,x, #02   ; set card powerup fail
15340 F874 20 06            .    bra 06           ; to f87c
15341 F876 CE 0B C1        ...   ldx #0bc1
15342 F879 1D 00 02        ..    bclr 00,x, #02   ; clear card powerup fail
15343 F87C CE 0B C1        ...   ldx #0bc1
15344 F87F 1D 00 04        ..    bclr 00,x, #04    ; clear link powerup fail
15345 F882 F6 0B C0        ...   ldab 0bc0
15346 F885 C4 02           ..    andb #02
15347 F887 27 2D           '-    beq 2d        ; to f8b6
15348 F889 C6 3C           .<    ldab #3c
15349 F88B F7 00 31        ..1   stab 0031
15350 F88E 0E              .     cli
15351 F88F CC 00 FF        ...   ldd #00ff
15352 F892 BD C7 E7        ...   jsr c7e7             ;jump37 - send to serial port
15353 F895 5F              _     clrb
15354 F896 4F              O     clra
15355 F897 FD 00 40        ..@   std 0040
15356 F89A C6 10           ..    ldab #10
15357 F89C F7 10 2C        ..,   stab 102c    ; set 9N1
15358 F89F C6 2E           ..    ldab #2e
15359 F8A1 F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15360 F8A4 C6 03           ..    ldab #03
15361 F8A6 F7 10 2B        ..+   stab 102b    ; set 9600 baud
15362 F8A9 C6 46           .F    ldab #46     ; 70 01000110
15363 F8AB F7 00 2F        ../   stab 002f
15364 F8AE CC 07 D0        ...   ldd #07d0
15365 F8B1 BD E5 71        ..q   jsr e571             ;msdelay
15366 F8B4 20 2B            +    bra 2b       ; to f8e1
15367 F8B6 BD D0 94        ...   jsr d094             ;jump66 - init variables
15368 F8B9 C6 27           .'    ldab #27
15369 F8BB F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15370 F8BE C6 07           ..    ldab #07
15371 F8C0 F7 10 2B        ..+   stab 102b    ; set 600 baud
15372 ; reset the changer
15373 F8C3 CE 00 1A        ...   ldx #001a
15374 F8C6 1C 00 04        ..    bset 00,x, #04
15375 F8C9 F6 00 1A        ...   ldab 001a
15376 F8CC F7 30 00        .0.   stab 3000    ; reset the changer
15377 F8CF CC 07 D0        ...   ldd #07d0
15378 F8D2 BD E5 71        ..q   jsr e571             ;msdelay
15379 F8D5 CE 00 1A        ...   ldx #001a
15380 F8D8 1D 00 04        ..    bclr 00,x, #04
15381 F8DB F6 00 1A        ...   ldab 001a
15382 F8DE F7 30 00        .0.   stab 3000    ; pull reset line back
15383 ;
15384 F8E1 7F 0E 6A        ..j   clr 0e6a
15385 F8E4 BD D4 79        ..y   jsr d479             ;jump67
15386 F8E7 BD E8 9A        ...   jsr e89a             ;jump68
15387 F8EA 7F 00 06        ...   clr 0006
15388 F8ED CE 00 1D        ...   ldx #001d
15389 F8F0 1C 00 10        ..    bset 00,x, #10
15390 F8F3 CC 05 DC        ...   ldd #05dc
15391 F8F6 BD E5 71        ..q   jsr e571             ;msdelay
15392 F8F9 C6 1E           ..    ldab #1e
15393 F8FB F7 00 35        ..5   stab 0035
15394 F8FE 0E              .     cli
15395 ;
15396 ; begin of main loop
15397 goto85:
15398 ; test power lines
15399 F8FF BD E6 1B        ...   jsr e61b             ;jump4 set 0031 to 10
15400 F902 BD D1 05        ...   jsr d105             ;motors_off
15401 F905 F6 10 0A        ...   ldab 100a
15402 F908 C4 08           ..    andb #08     ; 24VUN line too low
15403 F90A 27 46           'F    beq 46       ; to f952
15404 F90C F6 10 0A        ...   ldab 100a
15405 F90F C4 08           ..    andb #08
15406 F911 27 11           '.    beq 11       ; to f924
15407 F913 CE 00 1A        ...   ldx #001a
15408 F916 1C 00 04        ..    bset 00,x, #04
15409 F919 F6 00 1A        ...   ldab 001a
15410 F91C F7 30 00        .0.   stab 3000    ; changer reset
15411 F91F BD E6 1B        ...   jsr e61b             ;jump4 put #0a => 0031
15412 F922 20 E8            .    bra e8       ; to f90c
15413 ;
15414 F924 BD D0 94        ...   jsr d094             ;jump66 - reset some variables to defaults?
15415 F927 F6 0B C0        ...   ldab 0bc0
15416 F92A C4 01           ..    andb #01
15417 F92C 27 06           '.    beq 06
15418 F92E CE 0B C1        ...   ldx #0bc1
15419 F931 1C 00 01        ..    bset 00,x, #01 ; set changer powerup fail
15420 F934 F6 0B C0        ...   ldab 0bc0
15421 F937 C4 04           ..    andb #04
15422 F939 27 06           '.    beq 06
15423 F93B CE 0B C1        ...   ldx #0bc1
15424 F93E 1C 00 02        ..    bset 00,x, #02 ; set card powerup fail
15425 F941 CE 00 1A        ...   ldx #001a
15426 F944 1D 00 04        ..    bclr 00,x, #04
15427 F947 F6 00 1A        ...   ldab 001a
15428 F94A F7 30 00        .0.   stab 3000   ; clear send & reset lines
15429 F94D C6 1E           ..    ldab #1e
15430 F94F F7 00 35        ..5   stab 0035
15431 ;
15432 ; end of power line test
15433 ;
15434 ;
15435 ; chat to the bill validator if we need to
15436 ;
15437 F952 F6 0B C0        ...   ldab 0bc0
15438 F955 C4 08           ..    andb #08
15439 F957 27 16           '.    beq 16       ; to f96f if no bill validator
15440 F959 CE 00 02        ...   ldx #0002
15441 F95C 3C              <     pshx
15442 F95D CC 10 00        ...   ldd #1000
15443 F960 BD E5 D7        ...   jsr e5d7             ;jump69 - poll bill validator
15444 F963 38              8     pulx
15445 F964 83 00 00        ...   subd #0000
15446 F967 27 06           '.    beq 06
15447 F969 CE 0B C1        ...   ldx #0bc1
15448 F96C 1C 00 08        ..    bset 00,x, #08 ; set bill error bit
15449 ;
15450 F96F F6 0B C1        ...   ldab 0bc1
15451 F972 C4 07           ..    andb #07     ; was there a power failure?
15452 F974 27 0D           '.    beq 0d       ; to f983
15453 F976 F6 00 35        ..5   ldab 0035
15454 F979 26 08           &.    bne 08
15455 F97B CE 00 21        ..!   ldx #0021
15456 F97E 1C 00 20        ..    bset 00,x, #20
15457 F981 20 06           ..    bra 06       ; to f989
15458 ;
15459 ;
15460 F983 CE 00 21        ..!   ldx #0021
15461 F986 1D 00 20        ..    bclr 00,x, #20
15462 F989 BD BB 63         .    jsr bb63     ;jump200 - read the keypad
15463 F98C BD B8 00        ...   jsr b800     ;jump201 - interpret the keys and write to the display
15464 F98F F6 0B C0        ...   ldab 0bc0
15465 F992 C4 01           ..    andb #01
15466 F994 27 0B           '.    beq 0b
15467 F996 FC 00 40        ..@   ldd 0040
15468 F999 F3 00 3E        ..>   addd 003e
15469 F99C 26 03           &.    bne 03
15470 F99E BD D6 F6        ...   jsr d6f6             ;jump106
15471 F9A1 F6 00 12        ...   ldab 0012
15472 F9A4 C4 20           .     andb #20     ; test door switch
15473 F9A6 27 08           '.    beq 08       ; to f9b0
15474 F9A8 F6 00 35        ..5   ldab 0035
15475 F9AB 26 03           &.    bne 03
15476 F9AD 7E FA 79        ~.y   jmp fa79             ;goto83
15477 ;
15478 F9B0 CE 00 1F        ...   ldx #001f
15479 F9B3 1D 00 04        ...   bclr 00,x, #04
15480 F9B6 CE 00 1D        ...   ldx #001d
15481 F9B9 1C 00 10        ...   bset 00,x, #10
15482 F9BC F6 00 1F        ...   ldab 001f
15483 F9BF C4 20           .     andb #20
15484 F9C1 26 03           &.    bne 03
15485 F9C3 7E FA 74        ~.t   jmp fa74             ;goto84 if 001f&#20 is clear
15486 F9C6 F6 0B C0        ...   ldab 0bc0
15487 F9C9 C4 01           ..    andb #01
15488 F9CB 27 08           '.    beq 08
15489 F9CD CE 0B C1        ...   ldx #0bc1
15490 F9D0 1C 00 01        ...   bset 00,x, #01   ; set changer powerup error
15491 F9D3 20 06            .    bra 06
15492 F9D5 CE 0B C1        ...   ldx #0bc1
15493 F9D8 1D 00 01        ...   bclr 00,x, #01   ; unset changer powerup error
15494 F9DB F6 0B C0        ...   ldab 0bc0
15495 F9DE C4 04           ..    andb #04
15496 F9E0 27 08           '.    beq 08
15497 F9E2 CE 0B C1        ...   ldx #0bc1
15498 F9E5 1C 00 02        ...   bset 00,x, #02   ; set card powerup error
15499 F9E8 20 06            .    bra 06
15500 F9EA CE 0B C1        ...   ldx #0bc1
15501 F9ED 1D 00 02        ...   bclr 00,x, #02   ; unset card powerup error
15502 F9F0 CE 0B C1        ...   ldx #0bc1
15503 F9F3 1D 00 04        ...   bclr 00,x, #04   ; unset link powerup error
15504 F9F6 CE 00 1B        ...   ldx #001b
15505 F9F9 1D 00 02        ...   bclr 00,x, #02
15506 F9FC F6 0B C0        ...   ldab 0bc0
15507 F9FF C4 02           ..    andb #02
15508 FA01 27 27           ''    beq 27      ; to fa2a
15509 ;
15510 FA03 C6 3C           .<    ldab #3c    ; 62 00111100
15511 FA05 F7 00 31        ..1   stab 0031
15512 FA08 0E              .     cli
15513 FA09 CC 00 FF        ...   ldd #00ff
15514 FA0C BD C7 E7        ...   jsr c7e7             ;jump37 - send #ff to coin mech
15515 FA0F 5F              _     clrb
15516 FA10 4F              O     clra
15517 FA11 FD 00 40        ..@   std 0040
15518 FA14 C6 10           ..    ldab #10
15519 FA16 F7 10 2C        ..,   stab 102c    ; set 9N1
15520 FA19 C6 2E           ..    ldab #2e
15521 FA1B F7 10 2D        ..-   stab 102d    ; enable SCI transmission
15522 FA1E C6 03           ..    ldab #03
15523 FA20 F7 10 2B        ..+   stab 102b    ; 9600 baud
15524 FA23 C6 46           .F    ldab #46     ; 70  01000110
15525 FA25 F7 00 2F        ../   stab 002f
15526 FA28 20 31            1    bra 31       ; to  fa5b
15527 ;
15528 FA2A CE 00 21        ..!   ldx #0021
15529 FA2D 1D 00 40        ...   bclr 00,x, #40
15530 FA30 BD D0 94        ...   jsr d094             ;jump66 - init variables
15531 FA33 C6 27           .'    ldab #27
15532 FA35 F7 10 2D        ..-   stab 102d    ; disable SCI transmission
15533 FA38 C6 07           ..    ldab #07
15534 FA3A F7 10 2B        ..+   stab 102b     ; 600 baud
15535 FA3D CE 00 1A        ...   ldx #001a
15536 FA40 1C 00 04        ...   bset 00,x, #04
15537 FA43 F6 00 1A        ...   ldab 001a
15538 FA46 F7 30 00        .0.   stab 3000    ; changer reset line high
15539 FA49 CC 00 32        ..2   ldd #0032
15540 FA4C BD E5 71        ..q   jsr e571             ;msdelay
15541 FA4F CE 00 1A        ...   ldx #001a
15542 FA52 1D 00 04        ...   bclr 00,x, #04
15543 FA55 F6 00 1A        ...   ldab 001a
15544 FA58 F7 30 00        .0.   stab 3000    ; changer reset line low
15545 ;
15546 FA5B BD D4 79        ..y   jsr d479             ;jump67 - query all motors?
15547 FA5E BD E8 9A        ...   jsr e89a             ;jump68
15548 FA61 BD BE 69        ..i   jsr be69             ;displayreset
15549 FA64 7F 00 06        ...   clr 0006
15550 FA67 CE 00 1F        ...   ldx #001f
15551 FA6A 1D 00 20        ..    bclr 00,x, #20
15552 FA6D C6 1E            .    ldab #1e
15553 FA6F F7 00 35        ...5  stab 0035
15554 FA72 20 03            .    bra 03
15555 goto84:
15556 FA74 BD DE E7        ...   jsr dee7             ;jump116
15557 FA77 20 66            f    bra 66
15558 goto83:
15559 FA79 F6 00 12        ...   ldab 0012
15560 FA7C C4 20           .     andb #20
15561 FA7E 27 5F           '_    beq 5f       ; to fadf - restart loop
15562 FA80 F6 00 1F        ...   ldab 001f
15563 FA83 C4 20           .     andb #20
15564 FA85 26 03           &.    bne 03
15565 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15566 FA8A CE 00 1F        ...   ldx #001f
15567 FA8D 1C 00           ..    bset 00,x, #20
15568 FA8F F6 00 12        ...   ldab 0012
15569 FA93 C4 01           ..    andb #01
15570 FA95 26 33           &3    bne 33        ; to faca
15571 FA97 F6 00 1D        ...   ldab 001d
15572 FA9A C4 08           ..    andb #08
15573 FA9C 27 2A           '*    beq 2a        ; to fac8, to fad0
15574 FA9E F6 00 1F        ...   ldab 001f
15575 FAA1 C4 04           ..    andb #04
15576 FAA3 26 14           &.    bne 14        ; to fab9
15577 FAA5 CE 00 1F        ...   ldx #001f
15578 FAA8 1C 00 04        ...   bset 00,x, #04
15579 FAAB CE 00 1F        ...   ldx #001f
15580 FAAE 1C 00           ..    bset 00,x, #80
15581 FAB0 CC 02 33        ..    ldd #0233
15582 FAB4 FD 00 3B        ..;   std 003b
15583 FAB7 20 09            .    bra 09       ; to fac2
15584 ;
15585 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12 - beep if key pressed?
15586 FABC CE 00 1F        ...   ldx #001f
15587 FABF 1D 00 04        ...   bclr 00,x, #04
15588 FAC2 CE 00 1D        ...   ldx #001d
15589 FAC5 1D 00 08        ...   bclr 00,x, #08
15590 FAC8 20 06            .    bra 06       ; to fad0
15591 ;
15592 FACA CE 00 1D        ...   ldx #001d
15593 FACD 1C 00 08        ...   bset 00,x, #08
15594 FAD0 F6 00 1F        ...   ldab 001f
15595 FAD3 C4 04           ..    andb #04
15596 FAD5 26 05           &.    bne 05       ; to fadc - service menu
15597 FAD7 BD 81 00        ...   jsr 8100             ;jump72 - preservice menu?
15598 FADA 20 03            .    bra 03
15599 FADC BD 84 A0        ...   jsr 84a0             ;jump73
15600 FADF 7E F8 FF        ~..   jmp f8ff             ;goto85
15601 ; main should never return in theory.
15602
15603
15604 ; error interrupts (see vectors at end)
15605 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15606 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15607 FAE8 CC 07 D0        ...   ldd #07d0
15608 FAEB BD E5 71        ..q   jsr e571             ;msdelay
15609 FAEE 3B              ;     rti
15610 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15611 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15612 FAF5 CC 07 D0        ...   ldd #07d0
15613 FAF8 BD E5 71        ..q   jsr e571             ;msdelay
15614 FAFB 3B              ;     rti
15615 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15616 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15617 FB02 CC 07 D0        ...   ldd #07d0
15618 FB05 BD E5 71        ..q   jsr e571             ;msdelay
15619 FB08 3B              ;     rti
15620 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15621 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15622 FB0F CC 07 D0        ...   ldd #07d0
15623 FB12 BD E5 71        ..q   jsr e571             ;msdelay
15624 FB15 3B              ;     rti
15625 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15626 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15627 FB1C CC 07 D0        ...   ldd #07d0
15628 FB1F BD E5 71        ..q   jsr e571             ;msdelay
15629 FB22 3B              ;     rti
15630 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15631 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15632 FB29 CC 07 D0        ...   ldd #07d0
15633 FB2C BD E5 71        ..q   jsr e571             ;msdelay
15634 FB2F 3B              ;     rti
15635 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15636 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15637 FB36 CC 07 D0        ...   ldd #07d0
15638 FB39 BD E5 71        ..q   jsr e571             ;msdelay
15639 FB3C 3B              ;     rti
15640 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15641 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15642 FB43 CC 07 D0        ...   ldd #07d0
15643 FB46 BD E5 71        ..q   jsr e571             ;msdelay
15644 FB49 3B              ;     rti
15645 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15646 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15647 FB50 CC 07 D0        ...   ldd #07d0
15648 FB53 BD E5 71        ..q   jsr e571             ;msdelay
15649 FB56 3B              ;     rti
15650 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15651 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15652 FB5D CC 07 D0        ...   ldd #07d0
15653 FB60 BD E5 71        ..q   jsr e571             ;msdelay
15654 FB63 3B              ;     rti
15655 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15656 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15657 FB6A CC 07 D0        ...   ldd #07d0
15658 FB6D BD E5 71        ..q   jsr e571             ;msdelay
15659 FB70 3B              ;     rti
15660 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15661 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15662 FB77 CC 07 D0        ...   ldd #07d0
15663 FB7A BD E5 71        ..q   jsr e571             ;msdelay
15664 FB7D 3B              ;     rti
15665 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15666 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15667 FB84 CC 07 D0        ...   ldd #07d0
15668 FB87 BD E5 71        ..q   jsr e571             ;msdelay
15669 FB8A 3B              ;     rti
15670 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15671 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15672 FB91 CC 07 D0        ...   ldd #07d0
15673 FB94 BD E5 71        ..q   jsr e571             ;msdelay
15674 FB97 3B              ;     rti
15675 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15676 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15677 FB9E CC 07 D0        ...   ldd #07d0
15678 FBA1 BD E5 71        ..q   jsr e571             ;msdelay
15679 FBA4 3B              ;     rti
15680 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15681 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15682 FBAB CC 07 D0        ...   ldd #07d0
15683 FBAE BD E5 71        ..q   jsr e571             ;msdelay
15684 FBB1 3B              ;     rti
15685 FBB2 BD FE 69        ..i   jsr fe69             ;reset
15686 FBB5 3B              ;     rti
15687 FBB6 BD FE 69        ..i   jsr fe69             ;reset
15688 FBB9 3B              ;     rti
15689
15690 jump38:
15691 ; passed a u16 on the stack, i, and a u16 in D, j
15692 ; i *think* it multiplies i*j and returns it in D.
15693 ; but the assembly seems to have several off-by-one errors
15694 FBBA 3C              <     pshx
15695 FBBB 37              7     pshb
15696 FBBC 30              0     tsx
15697 FBBD E6 06           ..    ldab 06,x   ; lower 8-bits of i
15698 FBBF 3D              =     mul         ; A*B => D
15699 FBC0 A6 00           ..    ldaa 00,x
15700 FBC2 37              7     pshb
15701 FBC3 E6 05           ..    ldab 05,x   ; upper byte of return address??
15702 FBC5 3D              =     mul
15703 FBC6 32              2     pula
15704 FBC7 1B              .     aba         ; a now contains ad+bc
15705 FBC8 33              3     pulb
15706 FBC9 36              6     psha
15707 FBCA A6 06           ..    ldaa 06,x
15708 FBCC 3D              =     mul
15709 FBCD 37              7     pshb
15710 FBCE AB 00           ..    adda 00,x
15711 FBD0 36              6     psha
15712 FBD1 EC 03           ..    ldd 03,x    ; move saved value of X
15713 FBD3 ED 05           ..    std 05,x    ; into the return address???
15714 FBD5 38              8     pulx
15715 FBD6 8F              .     xgdx
15716 FBD7 83 00 00        ...   subd #0000
15717 FBDA 31              1     ins
15718 FBDB 38              8     pulx
15719 FBDC 31              1     ins
15720 FBDD 31              1     ins
15721 FBDE 39              9     rts
15722
15723 jump46:
15724 FBDF BD FB E8        ...   jsr fbe8             ;jump86
15725 FBE2 BD FC 25        ..%   jsr fc25             ;jump85
15726 FBE5 7E FC 04        ~..   jmp fc04             ;goto87
15727
15728 jump86:
15729 FBE8 3C              <     pshx
15730 FBE9 8F              .     xgdx
15731 FBEA EC 02           ..    ldd 02,x
15732 FBEC 37              7     pshb
15733 FBED 36              6     psha
15734 FBEE EC 00           ..    ldd 00,x
15735 FBF0 37              7     pshb
15736 FBF1 36              6     psha
15737 FBF2 34              4     des
15738 FBF3 34              4     des
15739 FBF4 34              4     des
15740 FBF5 34              4     des
15741 FBF6 3C              <     pshx
15742 FBF7 30              0     tsx
15743 FBF8 EC 12           ..    ldd 12,x
15744 FBFA ED 04           ..    std 04,x
15745 FBFC EC 0C           ..    ldd 0c,x
15746 FBFE ED 02           ..    std 02,x
15747 FC00 EC 10           ..    ldd 10,x
15748 FC02 38              8     pulx
15749 FC03 39              9     rts
15750
15751 goto87:
15752 FC04 ED 00           ..    std 00,x
15753 FC06 3C              <     pshx
15754 FC07 30              0     tsx
15755 FC08 EC 08           ..    ldd 08,x
15756 FC0A ED 0A           ..    std 0a,x
15757 FC0C EC 02           ..    ldd 02,x
15758 FC0E ED 0C           ..    std 0c,x
15759 FC10 38              8     pulx
15760 FC11 ED 02           ..    std 02,x
15761 FC13 EC 00           ..    ldd 00,x
15762 FC15 26 06           &.    bne 06
15763 FC17 6D 02           m.    tst 02,x
15764 FC19 26 02           &.    bne 02
15765 FC1B 6D 03           m.    tst 03,x
15766 FC1D 31              1     ins
15767 FC1E 31              1     ins
15768 FC1F 38              8     pulx
15769 FC20 31              1     ins
15770 FC21 31              1     ins
15771 FC22 31              1     ins
15772 FC23 31              1     ins
15773 FC24 39              9     rts
15774
15775 jump85:
15776 ; long addition function?
15777 FC25 3C              <     pshx
15778 FC26 30              0     tsx
15779 FC27 E3 06           ..    addd 06,x
15780 FC29 37              7     pshb
15781 FC2A 36              6     psha
15782 FC2B EC 02           ..    ldd 02,x
15783 FC2D ED 06           ..    std 06,x
15784 FC2F EC 04           ..    ldd 04,x
15785 FC31 E3 08           ..    addd 08,x
15786 FC33 ED 08           ..    std 08,x
15787 FC35 32              2     pula
15788 FC36 33              3     pulb
15789 FC37 C9 00           ..    adcb #00
15790 FC39 89 00           ..    adca #00
15791 FC3B 83 00 00        ...   subd #0000
15792 FC3E 26 06           &.    bne 06
15793 FC40 6D 08           m.    tst 08,x
15794 FC42 26 02           &.    bne 02
15795 FC44 6D 09           m.    tst 09,x
15796 FC46 38              8     pulx
15797 FC47 31              1     ins
15798 FC48 31              1     ins
15799 FC49 31              1     ins
15800 FC4A 31              1     ins
15801 FC4B 39              9     rts
15802
15803
15804
15805 ; bigdivide: and bigmodulus: are a division function and a remainder function
15806 ; for stupidly huge numbers.
15807 ;
15808 ;
15809 ; the number in D is prepended to the number at the top of the stack
15810 ; eg, 0x0f in D and 0x4240 on stack => 0x0f4240 = 1000000
15811 ;
15812 bigdivide:
15813 FC4C 3C              <     pshx
15814 FC4D 3C              <     pshx
15815 FC4E 37              7     pshb
15816 FC4F 36              6     psha
15817 FC50 3C              <     pshx
15818 FC51 3C              <     pshx
15819 FC52 3C              <     pshx
15820 FC53 18 3C           .<    pshy
15821 FC55 30              0     tsx
15822 FC56 4F              O     clra
15823 FC57 A7 04           ..    staa 04,x
15824 FC59 7E FC 6D        ~.m   jmp fc6d             ;goto88
15825
15826 bigmodulus:
15827 FC5C 3C              <     pshx
15828 FC5D 3C              <     pshx
15829 FC5E 37              7     pshb
15830 FC5F 36              6     psha
15831 FC60 3C              <     pshx
15832 FC61 3C              <     pshx
15833 FC62 3C              <     pshx
15834 FC63 18 3C           .<    pshy
15835 FC65 30              0     tsx
15836 FC66 86 01           ..    ldaa #01
15837 FC68 A7 04           ..    staa 04,x
15838 FC6A 7E FC 6D        ~.m   jmp fc6d             ;goto88
15839 ;
15840 goto88:
15841 FC6D 1A EE 0E        ...   ldy 0e,x
15842 FC70 EC 08           ..    ldd 08,x
15843 FC72 ED 0E           ..    std 0e,x
15844 FC74 EC 14           ..    ldd 14,x
15845 FC76 ED 0C           ..    std 0c,x
15846 FC78 EC 12           ..    ldd 12,x
15847 FC7A ED 0A           ..    std 0a,x
15848 FC7C 1A EF 12        ...   sty 12,x
15849 FC7F 4F              O     clra
15850 FC80 5F              _     clrb
15851 FC81 ED 08           ..    std 08,x
15852 FC83 ED 06           ..    std 06,x
15853 FC85 EC 0A           ..    ldd 0a,x
15854 FC87 1A A3 0E        ...   cmpd 0e,x
15855 FC8A 22 23           "#    bhi 23       ; to fcaf
15856 FC8C 27 15           '.    beq 15       ; to fca3
15857 ;
15858 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15859 FC92 CC 00 00        ...   ldd #0000
15860 FC95 ED 14           ..    std 14,x
15861 FC97 7E FE 04        ~..   jmp fe04             ;goto89 - return
15862 FC9A EC 0C           ..    ldd 0c,x
15863 FC9C ED 14           ..    std 14,x
15864 FC9E EC 0A           ..    ldd 0a,x
15865 FCA0 7E FD E3        ~..   jmp fde3             ;goto90
15866 ;
15867 FCA3 83 00 00        ...   subd #0000
15868 FCA6 27 12           '.    beq 12       ; to fcba
15869 FCA8 EC 0C           ..    ldd 0c,x
15870 FCAA 1A A3 10        ...   cmpd 10,x
15871 FCAD 25 DF           %.    bcs df       ; to fc8e
15872 ;
15873 FCAF 6D 0E           m.    tst 0e,x
15874 FCB1 26 70           &p    bne 70       ; to fd23
15875 FCB3 6D 0F           m.    tst 0f,x
15876 FCB5 27 1A           '.    beq 1a       ; to fcd1
15877 FCB7 7E FD A4        ~..   jmp fda4             ;goto91
15878 ;
15879 FCBA 3C              <     pshx
15880 FCBB 3C              <     pshx
15881 FCBC 18 38           .8    puly
15882 FCBE EC 0C           ..    ldd 0c,x
15883 FCC0 EE 10           ..    ldx 10,x
15884 FCC2 02              .     idiv
15885 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15886 FCC8 8F              .     xgdx
15887 FCC9 38              8     pulx
15888 FCCA ED 14           ..    std 14,x
15889 FCCC 4F              O     clra
15890 FCCD 5F              _     clrb
15891 FCCE 7E FD E3        ~..   jmp fde3             ;goto90
15892 ;
15893 FCD1 3C              <     pshx
15894 FCD2 3C              <     pshx
15895 FCD3 18 38           .8    puly
15896 FCD5 EC 0A           ..    ldd 0a,x
15897 FCD7 EE 10           ..    ldx 10,x
15898 FCD9 3C              <     pshx
15899 FCDA 02              .     idiv
15900 FCDB CD EF 0A        ...   stx 02x,y
15901 FCDE 38              8     pulx
15902 FCDF 3C              <     pshx
15903 FCE0 03              .     fdiv
15904 FCE1 CD EF 0E        ...   stx 02x,y
15905 FCE4 38              8     pulx
15906 FCE5 18 E3 0C        ...   addd 0c,y
15907 FCE8 24 1B           $.    bcc 1b      ; to fd05
15908 ;
15909 FCEA 18 ED 0C        ...   std 0c,y
15910 FCED 4F              O     clra
15911 FCEE C6 01           ..    ldab #01
15912 FCF0 3C              <     pshx
15913 FCF1 03              .     fdiv
15914 FCF2 8F              .     xgdx
15915 FCF3 18 E3 0E        ...   addd 0e,y
15916 FCF6 24 03           $.    bcc 03
15917 FCF8 18 6C 0A        .l.   inc 0a,y
15918 FCFB 18 ED 0E        ...   std 0e,y
15919 FCFE 8F              .     xgdx
15920 FCFF 38              8     pulx
15921 FD00 18 E3 0C        ...   addd 0c,y
15922 FD03 25 E5           %.    bcs e5      ; to fcea
15923 FD05 02              .     idiv
15924 ;
15925 FD06 8F              .     xgdx
15926 FD07 18 E3 0E        ...   addd 0e,y
15927 FD0A 24 03           $.    bcc 03
15928 FD0C 18 6C 0A        .l.   inc 0a,y
15929 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15930 FD14 8F              .     xgdx
15931 FD15 18 6F 0A        .o.   clr 0a,y
15932 FD18 18 6F 0B        .o.   clr 0b,y
15933 FD1B 38              8     pulx
15934 FD1C ED 14           ..    std 14,x
15935 FD1E EC 0A           ..    ldd 0a,x
15936 FD20 7E FD E3        ~..   jmp fde3             ;goto90
15937 ;
15938 FD23 86 08           ..    ldaa #08     ; for i = 8
15939 FD25 A7 05           ..    staa 05,x    ; do
15940 FD27 69 0D           i.    rol 0d,x
15941 FD29 69 0C           i.    rol 0c,x
15942 FD2B 69 0B           i.    rol 0b,x
15943 FD2D 69 0A           i.    rol 0a,x
15944 FD2F 69 09           i.    rol 09,x
15945 FD31 EC 0B           ..    ldd 0b,x
15946 FD33 A3 10           ..    subd 10,x
15947 FD35 ED 14           ..    std 14,x
15948 FD37 EC 09           ..    ldd 09,x
15949 FD39 E2 0F           ..    sbcb 0f,x
15950 FD3B A2 0E           ..    sbca 0e,x
15951 FD3D 25 06           %.    bcs 06       ; to fd45
15952 FD3F ED 09           ..    std 09,x
15953 FD41 EC 14           ..    ldd 14,x
15954 FD43 ED 0B           ..    std 0b,x
15955 FD45 6A 05           j.    dec 05,x     ; i--
15956 FD47 26 DE           &.    bne de       ; to fd27
15957 ;
15958 FD49 69 0D           i.    rol 0d,x
15959 FD4B 1F 04 01 09     ....  brclr 04,x 01 09  ; to fd58
15960 FD4F EC 0B           ..    ldd 0b,x
15961 FD51 ED 14           ..    std 14,x
15962 FD53 EC 09           ..    ldd 09,x
15963 FD55 7E FD E3        ~..   jmp fde3             ;goto90
15964 ;
15965 FD58 4F              O     clra
15966 FD59 E6 0D           ..    ldab 0d,x
15967 FD5B 53              S     comb
15968 FD5C ED 14           ..    std 14,x
15969 FD5E 5F              _     clrb
15970 FD5F 7E FD E3        ~..   jmp fde3             ;goto90
15971 ;
15972 FD62 86 10           ..    ldaa #10     ; for i = 16
15973 FD64 A7 05           ..    staa 05,x    ; do
15974 FD66 69 0D           i.    rol 0d,x
15975 FD68 69 0C           i.    rol 0c,x
15976 FD6A 69 0B           i.    rol 0b,x
15977 FD6C 69 0A           i.    rol 0a,x
15978 FD6E 69 09           i.    rol 09,x
15979 FD70 69 08           i.    rol 08,x
15980 FD72 EC 0A           ..    ldd 0a,x
15981 FD74 A3 10           ..    subd 10,x
15982 FD76 ED 14           ..    std 14,x
15983 FD78 EC 08           ..    ldd 08,x
15984 FD7A E2 0F           ..    sbcb 0f,x
15985 FD7C 82 00           ..    sbca #00
15986 FD7E 25 06           %.    bcs 06      ; continue
15987 FD80 ED 08           ..    std 08,x
15988 FD82 EC 14           ..    ldd 14,x
15989 FD84 ED 0A           ..    std 0a,x
15990 FD86 6A 05           j.    dec 05,x    ; i--
15991 FD88 26 DC           &.    bne dc      ; to fd66
15992 ;
15993 FD8A 69 0D           i.    rol 0d,x
15994 FD8C 69 0C           i.    rol 0c,x
15995 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15996 FD92 EC 0A           ..    ldd 0a,x
15997 FD94 ED 14           ..    std 14,x
15998 FD96 EC 08           ..    ldd 08,x
15999 FD98 20 49            I    bra 49      ;goto90
16000 FD9A EC 0C           ..    ldd 0c,x
16001 FD9C 43              C     coma
16002 FD9D 53              S     comb
16003 FD9E ED 14           ..    std 14,x
16004 FDA0 4F              O     clra
16005 FDA1 5F              _     clrb
16006 FDA2 20 3F            ?    bra 3f      ;goto90
16007 goto91:
16008 FDA4 2B BC           +.    bmi bc      ; to fd62 if minus
16009 FDA6 86 10           ..    ldaa #10    ; for i = 16
16010 FDA8 A7 05           ..    staa 05,x   ; do
16011 FDAA 69 0D           i     rol 0d,x
16012 FDAC 69 0C           i     rol 0c,x
16013 FDAE 69 0B           i     rol 08,x
16014 FDB0 69 0A           i     rol 0a,x
16015 FDB2 69 07           i     rol 07,x
16016 FDB4 EC 0A           ..    ldd 0a,x
16017 FDB6 A3 10           ..    subd 10,x
16018 FDB8 ED 14           ..    std 14,x
16019 FDBA A6 07           ..    ldaa 07,x
16020 FDBC A2 0F           ..    sbca 0f,x
16021 FDBE 25 06           %.    bcs 06     ;continue
16022 FDC0 A7 07           ..    staa 07,x
16023 FDC2 EC 14           ..    ldd 14,x
16024 FDC4 ED 0A           ..    std 0a,x
16025 FDC6 6A 05           j.    dec 05,x
16026 FDC8 26 E0           &.    bne e0     ;reloop
16027 ;
16028 FDCA 69 0D           i.    rol 0d,x
16029 FDCC 69 0C           i.    rol 0c,x
16030 FDCE 1F 04 01 09     ....  brclr 04,x 01 09 ;to fddb
16031 FDD2 EC 0A           ..    ldd 0a,x
16032 FDD4 ED 14           ..    std 14,x
16033 FDD6 4F              O     clra
16034 FDD7 E6 07           ..    ldab 07,x
16035 FDD9 20 08            .    bra 08     ;goto90
16036 ;
16037 FDDB EC 0C           ..    ldd 0c,x
16038 FDDD 43              C     coma
16039 FDDE 53              S     comb
16040 FDDF ED 14           ..    std 14,x
16041 FDE1 4F              O     clra
16042 FDE2 5F              _     clrb
16043 goto90:
16044 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
16045 FDE7 43              C     coma
16046 FDE8 53              S     comb
16047 FDE9 63 14           c.    com 14,x
16048 FDEB 63 15           c.    com 15,x
16049 FDED 6C 15           l.    inc 15,x
16050 FDEF 26 08           &.    bne 08
16051 FDF1 6C 14           l.    inc 14,x
16052 FDF3 26 04           &.    bne 04
16053 FDF5 5C              \     incb
16054 FDF6 26 01           &.    bne 01
16055 FDF8 4C              L     inca
16056 FDF9 83 00 00        ...   subd #0000
16057 FDFC 26 06           &.    bne 06
16058 FDFE 6D 14           m.    tst 14,x
16059 FE00 26 02           &.    bne 02
16060 FE02 6D 15           m.    tst 15,x
16061 goto89:
16062 FE04 18 38           .8    puly
16063 FE06 38              8     pulx
16064 FE07 31              1     ins
16065 FE08 31              1     ins
16066 FE09 31              1     ins
16067 FE0A 31              1     ins
16068 FE0B 31              1     ins
16069 FE0C 31              1     ins
16070 FE0D 31              1     ins
16071 FE0E 31              1     ins
16072 FE0F 31              1     ins
16073 FE10 31              1     ins
16074 FE11 31              1     ins
16075 FE12 31              1     ins
16076 FE13 31              1     ins
16077 FE14 31              1     ins
16078 FE15 39              9     rts
16079
16080 jump2:
16081 ; passed a structure (in code following the call to jump2) and a number D
16082 ; popular D candidates come from $48, $42, $9, $a, etc...
16083 ; D must be between 0 and len, inclusive.
16084 ; structure {
16085 ;    u16 var1, len;
16086 ;    u16 jmplocs[len+2];
16087 ; }
16088 FE16 38              8     pulx
16089 FE17 A3 00           ..    subd 00,x     ; D -= var1
16090 FE19 2D 05           -.    blt 05        ; if D<0, to fe20, where D=-1
16091 FE1B 1A A3 02        ...   cmpd 02,x     ;
16092 FE1E 2F 03           /.    ble 03        ; if D > len, D=-1, else to fe23
16093 FE20 CC FF FF        ...   ldd #ffff
16094 FE23 3C              <     pshx          ; push return ptr back onto stack
16095 FE24 05              .     asld          ; D *= 2
16096 FE25 30              0     tsx
16097 FE26 E3 00           ..    addd 00,x     ; D += return-ptr
16098 FE28 C3 00 06        ...   addd #0006    ;        + 6
16099 FE2B 8F              .     xgdx
16100 FE2C EC 00           ..    ldd 00,x      ; return ptr = jmplocs[orig D]
16101 FE2E 30              0     tsx
16102 FE2F ED 00           ..    std 00,x
16103 FE31 39              9     rts
16104
16105 jump25:
16106 ; this looks like a switch statement
16107 ; we're passed an array of 4-byte items... this is passed in the code segment
16108 ; we take the return address and start counting until we hit a double zero.
16109 ; hence much of the code following this call in a standard disassembly is garbage
16110 ; we also look at D - common values passed to use are contents of $9, $12, $15, $4A or the SCI $102f
16111 FE32 38              8     pulx
16112 FE33 6D 04           m.    tst 04,x
16113 FE35 26 04           &.    bne 04     ; to fe3b if this is not the last one
16114 FE37 6D 05           m.    tst 05,x   ; double check it really is last one.
16115 FE39 27 0A           '.    beq 0a     ; to fe45
16116 FE3B A3 02           ..    subd 02,x  ; subtract lower order bits from D
16117 FE3D 27 06           '.    beq 06     ; to fe45
16118 FE3F 08              .     inx        ; move the array index up one
16119 FE40 08              .     inx
16120 FE41 08              .     inx
16121 FE42 08              .     inx
16122 FE43 20 EE            .    bra ee     ; to fe33
16123 FE45 EE 00           ..    ldx 00,x   ; return to our destination address
16124 FE47 6E 00           n.    jmp 00,x
16125
16126         reset:
16127
16128 ; Enable the Real-time Interrupt (periodic hw interrupt)
16129 FE49 86 40           .@    ldaa #40     ;40 -> A
16130 FE4B B7 10 24        ..$   staa 1024    ;A -> 1024
16131 ; Enable the ADC & configure IRQ' for edge-sensitive only operation
16132 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
16133 FE50 B7 10 39        ..9   staa 1039    ;A -> 1039
16134 ; Set a stack pointer?
16135 FE53 8E 00 EF        ...   lds #00ef
16136 ; Zero out the first 128 bytes of ram.
16137 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
16138 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
16139 FE5C 24 05           $.    bcc fe63     ;        finished
16140 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
16141 FE60 08              .     inx          ;        increment X
16142 FE61 20 F6            .    bra fe59     ;repeat
16143
16144 ; Jump to main procedure
16145 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
16146 FE66 7E FE 6D        ~.m   jmp fe6d     ; goto91
16147
16148 ; Reboot function for when things go astray?
16149 FE69 0F              .     sei          ;inhibit interrupts
16150 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
16151
16152 ; loop forever - called after main is exited.
16153 goto91:
16154 FE6D 20 FE            .    bra fe6d     ;loop forever
16155                                         ;[SAF] - wait for interrupts?
16156
16157 FE6F FF FF FF        ...   stx ffff
16158 FE72 FF FF FF        ...   stx ffff
16159 FE75 FF FF FF        ...   stx ffff
16160 FE78 FF FF FF        ...   stx ffff
16161 FE7B FF FF FF        ...   stx ffff
16162 FE7E FF FF FF        ...   stx ffff
16163 FE81 FF FF FF        ...   stx ffff
16164 FE84 FF FF FF        ...   stx ffff
16165 FE87 FF FF FF        ...   stx ffff
16166 FE8A FF FF FF        ...   stx ffff
16167 FE8D FF FF FF        ...   stx ffff
16168 FE90 FF FF FF        ...   stx ffff
16169 FE93 FF FF FF        ...   stx ffff
16170 FE96 FF FF FF        ...   stx ffff
16171 FE99 FF FF FF        ...   stx ffff
16172 FE9C FF FF FF        ...   stx ffff
16173 FE9F FF FF FF        ...   stx ffff
16174 FEA2 FF FF FF        ...   stx ffff
16175 FEA5 FF FF FF        ...   stx ffff
16176 FEA8 FF FF FF        ...   stx ffff
16177 FEAB FF FF FF        ...   stx ffff
16178 FEAE FF FF FF        ...   stx ffff
16179 FEB1 FF FF FF        ...   stx ffff
16180 FEB4 FF FF FF        ...   stx ffff
16181 FEB7 FF FF FF        ...   stx ffff
16182 FEBA FF FF FF        ...   stx ffff
16183 FEBD FF FF FF        ...   stx ffff
16184 FEC0 FF FF FF        ...   stx ffff
16185 FEC3 FF FF FF        ...   stx ffff
16186 FEC6 FF FF FF        ...   stx ffff
16187 FEC9 FF FF FF        ...   stx ffff
16188 FECC FF FF FF        ...   stx ffff
16189 FECF FF FF FF        ...   stx ffff
16190 FED2 FF FF FF        ...   stx ffff
16191 FED5 FF FF FF        ...   stx ffff
16192 FED8 FF FF FF        ...   stx ffff
16193 FEDB FF FF FF        ...   stx ffff
16194 FEDE FF FF FF        ...   stx ffff
16195 FEE1 FF FF FF        ...   stx ffff
16196 FEE4 FF FF FF        ...   stx ffff
16197 FEE7 FF FF FF        ...   stx ffff
16198 FEEA FF FF FF        ...   stx ffff
16199 FEED FF FF FF        ...   stx ffff
16200 FEF0 FF FF FF        ...   stx ffff
16201 FEF3 FF FF FF        ...   stx ffff
16202 FEF6 FF FF FF        ...   stx ffff
16203 FEF9 FF FF FF        ...   stx ffff
16204 FEFC FF FF FF        ...   stx ffff
16205 FEFF FF FF FF        ...   stx ffff
16206 FF02 FF FF FF        ...   stx ffff
16207 FF05 FF FF FF        ...   stx ffff
16208 FF08 FF FF FF        ...   stx ffff
16209 FF0B FF FF FF        ...   stx ffff
16210 FF0E FF FF FF        ...   stx ffff
16211 FF11 FF FF FF        ...   stx ffff
16212 FF14 FF FF FF        ...   stx ffff
16213 FF17 FF FF FF        ...   stx ffff
16214 FF1A FF FF FF        ...   stx ffff
16215 FF1D FF FF FF        ...   stx ffff
16216 FF20 FF FF FF        ...   stx ffff
16217 FF23 FF FF FF        ...   stx ffff
16218 FF26 FF FF FF        ...   stx ffff
16219 FF29 FF FF FF        ...   stx ffff
16220 FF2C FF FF FF        ...   stx ffff
16221 FF2F FF FF FF        ...   stx ffff
16222 FF32 FF FF FF        ...   stx ffff
16223 FF35 FF FF FF        ...   stx ffff
16224 FF38 FF FF FF        ...   stx ffff
16225 FF3B FF FF FF        ...   stx ffff
16226 FF3E FF FF FF        ...   stx ffff
16227 FF41 FF FF FF        ...   stx ffff
16228 FF44 FF FF FF        ...   stx ffff
16229 FF47 FF FF FF        ...   stx ffff
16230 FF4A FF FF FF        ...   stx ffff
16231 FF4D FF FF FF        ...   stx ffff
16232 FF50 FF FF FF        ...   stx ffff
16233 FF53 FF FF FF        ...   stx ffff
16234 FF56 FF FF FF        ...   stx ffff
16235 FF59 FF FF FF        ...   stx ffff
16236 FF5C FF FF FF        ...   stx ffff
16237 FF5F FF FF FF        ...   stx ffff
16238 FF62 FF FF FF        ...   stx ffff
16239 FF65 FF FF FF        ...   stx ffff
16240 FF68 FF FF FF        ...   stx ffff
16241 FF6B FF FF FF        ...   stx ffff
16242 FF6E FF FF FF        ...   stx ffff
16243 FF71 FF FF FF        ...   stx ffff
16244 FF74 FF FF FF        ...   stx ffff
16245 FF77 FF FF FF        ...   stx ffff
16246 FF7A FF FF FF        ...   stx ffff
16247 FF7D FF FF FF        ...   stx ffff
16248 FF80 FF FF FF        ...   stx ffff
16249 FF83 FF FF FF        ...   stx ffff
16250 FF86 FF FF FF        ...   stx ffff
16251 FF89 FF FF FF        ...   stx ffff
16252 FF8C FF FF FF        ...   stx ffff
16253 FF8F FF FF FF        ...   stx ffff
16254 FF92 FF FF FF        ...   stx ffff
16255 FF95 FF FF FF        ...   stx ffff
16256 FF98 FF FF FF        ...   stx ffff
16257 FF9B FF FF FF        ...   stx ffff
16258 FF9E FF FF FF        ...   stx ffff
16259 FFA1 FF FF FF        ...   stx ffff
16260 FFA4 FF FF FF        ...   stx ffff
16261 FFA7 FF FF FF        ...   stx ffff
16262 FFAA FF FF FF        ...   stx ffff
16263 FFAD FF FF FF        ...   stx ffff
16264 FFB0 FF FF FF        ...   stx ffff
16265 FFB3 FF FF FF        ...   stx ffff
16266 FFB6 FF FF FF        ...   stx ffff
16267 FFB9 FF FF FF        ...   stx ffff
16268 FFBC FF FF FF        ...   stx ffff
16269 FFBF FF FF FF        ...   stx ffff
16270 FFC2 FF FF FF        ...   stx ffff
16271 FFC5 FF FF FF        ...   stx ffff
16272 FFC8 FF FF FF        ...   stx ffff
16273 FFCB FF FF FF        ...   stx ffff
16274 FFCE FF FF FF        ...   stx ffff
16275 FFD1 FF FF FF        ...   stx ffff
16276 FFD4 FF FF
16277
16278 FFD6    ;vectors
16279         .word   c81c    ; SCI serial system (generic)  - goes to sciinterrupt
16280         .word   fae2    ; SPI serial transfer complete - flashes *** ERROR *** for a second
16281         .word   faef    ; Pulse accumulator input edge - flashes *** ERROR *** for a second
16282         .word   fafc    ; Pulse accumulator overflow   - flashes *** ERROR *** for a second
16283         .word   fb09    ; Timer overflow               - flashes *** ERROR *** for a second
16284         .word   fb16    ; Timer input capture 4        - flashes *** ERROR *** for a second
16285         .word   fb23    ; Timer output compare 4       - flashes *** ERROR *** for a second
16286         .word   fb30    ; Timer output compare 3       - flashes *** ERROR *** for a second
16287         .word   fb3d    ; Timer output compare 2       - flashes *** ERROR *** for a second
16288         .word   fb4a    ; Timer output compare 1       - flashes *** ERROR *** for a second
16289         .word   fb57    ; Timer input capture 3        - flashes *** ERROR *** for a second
16290         .word   fb64    ; Timer input capture 2        - flashes *** ERROR *** for a second
16291         .word   fb71    ; Timer input capture 1        - flashes *** ERROR *** for a second
16292         .word   f718    ; RT interrupt                 - does something useful :) (goto rti)
16293         .word   fb7e    ; IRQ pin                      - flashes *** ERROR *** for a second
16294         .word   fb8b    ; XIRQ pin                     - flashes *** ERROR *** for a second
16295         .word   fb98    ; software interrupt           - flashes *** ERROR *** for a second
16296         .word   fba5    ; illegal opcode trap          - flashes *** ERROR *** for a second
16297         .word   fbb2    ; watchdog reset               - reboot
16298         .word   fbb6    ; clock monitor reset          - reboot
16299         .word   fe49    ; reset                        - reboot
16300 \1a