ROM/vend.asm

   1 ;0006   slot number
   2
   3 ;Rows are numbered 1-9, skipping 5.  There is no row 5.
   4 ;2800   home sensors
   5 ;       7  row 9
   6 ;       6  row 8
   7 ;       5  row 7
   8 ;       4  row 6
   9 ;       3  row 4
  10 ;       2  row 3
  11 ;       1  row 2
  12 ;       0  row 1
  13 ;Motor driver data is sent cols 7, 6, 5, 4, 3, 2, 1, 0 rows 9, 8, 7, 6, 4, 3, 2
  14 ;1.  Cols 8 and 9 are separate outputs (they ran out of driver chip outputs).
  15 ;Motor driver column output enable is PA6
  16 ;Motor driver serial clock is PA5
  17 ;It looks like motor overcurrent sense is on PE1 (PE1 will be low if a motor
  18 ;is drawing too much current)
  19 ;3000   misc outputs
  20 ;       7  motor driver serial data
  21 ;       6  col 9 motor driver
  22 ;       5  col 8 motor driver
  23 ;       4  display connector
  24 ;       3  display connector
  25 ;       2  not used
  26 ;       1  note acceptor connector
  27 ;       0  note acceptor connector
  28 ;3800   changer outputs
  29 ;       7  /ACCEPT
  30 ;       6  /SEND
  31 ;       5  RESET
  32 ;       4  /$.05
  33 ;       3  /$.10
  34 ;       2  /$.25
  35 ;       1  /$1.00
  36 ;       0  motor driver row output enable
  37 ;PA5 selects between RS232 and current loop serial interface?
  38
  39 8000 43              C     coma
  40 8001 20 50            P    bra 50
  41 8003 4F              O     clra
  42 8004 57              W     asrb
  43 8005 45              E     illegal
  44 8006 52              R     illegal
  45 8007 20 43            C    bra 43
  46 8009 4F              O     clra
  47 800A 4D              M     tsta
  48 800B 50              P     negb
  49 800C 41              A     illegal
  50 800D 4E              N     illegal
  51 800E 59              Y     rolb
  52 800F 00              .     test
  53 8010 43              C     coma
  54 8011 4F              O     clra
  55 8012 50              P     negb
  56 8013 59              Y     rolb
  57 8014 52              R     illegal
  58 8015 49              I     rola
  59 8016 47              G     asra
  60 8017 48              H     asla
  61 8018 54              T     lsrb
  62 8019 20 31            1    bra 31
  63 801B 39              9     rts
  64 801C 39              9     rts
  65 801D 33              3     pulb
  66 801E 20 00            .    bra 00
  67 8020 20 20                 bra 20
  68 8022 20 20                 bra 20
  69 8024 20 20                 bra 20
  70 8026 20 20                 bra 20
  71 8028 20 20                 bra 20
  72 802A 20 20                 bra 20
  73 802C 20 20                 bra 20
  74 802E 20 00            .    bra 00
  75 8030 56              V     rorb
  76 8031 45              E     illegal
  77 8032 4E              N     illegal
  78 8033 44              D     lsra
  79 8034 49              I     rola
  80 8035 4E              N     illegal
  81 8036 47              G     asra
  82 8037 20 4D            M    bra 4d
  83 8039 41              A     illegal
  84 803A 43              C     coma
  85 803B 48              H     asla
  86 803C 49              I     rola
  87 803D 4E              N     illegal
  88 803E 45              E     illegal
  89 803F 00              .     test
  90 8040 53              S     comb
  91 8041 4F              O     clra
  92 8042 46              F     rora
  93 8043 54              T     lsrb
  94 8044 57              W     asrb
  95 8045 41              A     illegal
  96 8046 52              R     illegal
  97 8047 45              E     illegal
  98 8048 20 57            W    bra 57
  99 804A 52              R     illegal
 100 804B 4F              O     clra
 101 804C 54              T     lsrb
 102 804D 45              E     illegal
 103 804E 20 00            .    bra 00
 104 8050 42              B     illegal
 105 8051 59              Y     rolb
 106 8052 20 42            B    bra 42
 107 8054 52              R     illegal
 108 8055 45              E     illegal
 109 8056 54              T     lsrb
 110 8057 20 42            B    bra 42
 111 8059 4F              O     clra
 112 805A 52              R     illegal
 113 805B 45              E     illegal
 114 805C 4E              N     illegal
 115 805D 2E 20           .     bgt 20
 116 805F 00              .     test
 117 8060 20 20                 bra 20
 118 8062 20 20                 bra 20
 119 8064 20 20                 bra 20
 120 8066 20 20                 bra 20
 121 8068 20 20                 bra 20
 122 806A 20 20                 bra 20
 123 806C 20 20                 bra 20
 124 806E 20 00            .    bra 00
 125 8070 50              P     negb
 126 8071 52              R     illegal
 127 8072 4F              O     clra
 128 8073 47              G     asra
 129 8074 52              R     illegal
 130 8075 41              A     illegal
 131 8076 4D              M     tsta
 132 8077 20 46            F    bra 46
 133 8079 4F              O     clra
 134 807A 52              R     illegal
 135 807B 20 54            T    bra 54
 136 807D 48              H     asla
 137 807E 45              E     illegal
 138 807F 00              .     test
 139 8080 35              5     txs
 140 8081 30              0     tsx
 141 8082 35              5     txs
 142 8083 20 41            A    bra 41
 143 8085 4E              N     illegal
 144 8086 44              D     lsra
 145 8087 20 35            5    bra 35
 146 8089 39              9     rts
 147 808A 30              0     tsx
 148 808B 30              0     tsx
 149 808C 2E 20           .     bgt 20
 150 808E 20 00            .    bra 00
 151 8090 20 20                 bra 20
 152 8092 20 20                 bra 20
 153 8094 20 20                 bra 20
 154 8096 20 20                 bra 20
 155 8098 20 20                 bra 20
 156 809A 20 20                 bra 20
 157 809C 20 20                 bra 20
 158 809E 20 00            .    bra 00
 159 80A0 50              P     negb
 160 80A1 41              A     illegal
 161 80A2 52              R     illegal
 162 80A3 54              T     lsrb
 163 80A4 20 4E            N    bra 4e
 164 80A6 55              U     illegal
 165 80A7 4D              M     tsta
 166 80A8 42              B     illegal
 167 80A9 45              E     illegal
 168 80AA 52              R     illegal
 169 80AB 3A              :     abx
 170 80AC 20 20                 bra 20
 171 80AE 20 00            .    bra 00
 172 80B0 39              9     rts
 173 80B1 33              3     pulb
 174 80B2 37              7     pshb
 175 80B3 2D 33           -3    blt 33
 176 80B5 30              0     tsx
 177 80B6 30              0     tsx
 178 80B7 30              0     tsx
 179 80B8 31              1     ins
 180 80B9 20 56            V    bra 56
 181 80BB 45              E     illegal
 182 80BC 52              R     illegal
 183 80BD 20 35            5    bra 35
 184 80BF 00              .     test
 185 80C0 43              C     coma
 186 80C1 48              H     asla
 187 80C2 45              E     illegal
 188 80C3 43              C     coma
 189 80C4 4B              K     illegal
 190 80C5 53              S     comb
 191 80C6 55              U     illegal
 192 80C7 4D              M     tsta
 193 80C8 20 45            E    bra 45
 194 80CA 4E              N     illegal
 195 80CB 44              D     lsra
 196 80CC 3A              :     abx
 197 80CD 30              0     tsx
 198 80CE 30              0     tsx
 199 80CF 00              .     test
 200 80D0 20 20                 bra 20
 201 80D2 20 20                 bra 20
 202 80D4 20 20                 bra 20
 203 80D6 20 20                 bra 20
 204 80D8 20 20                 bra 20
 205 80DA 20 20                 bra 20
 206 80DC 20 20                 bra 20
 207 80DE 20 00            .    bra 00
 208 80E0 20 20                 bra 20
 209 80E2 20 20                 bra 20
 210 80E4 20 20                 bra 20
 211 80E6 20 20                 bra 20
 212 80E8 20 20                 bra 20
 213 80EA 20 20                 bra 20
 214 80EC 20 20                 bra 20
 215 80EE 20 00            .    bra 00
 216 80F0 20 20                 bra 20
 217 80F2 20 20                 bra 20
 218 80F4 20 20                 bra 20
 219 80F6 20 20                 bra 20
 220 80F8 00              .     test
 221 80F9 20 0C            .    bra 0c
 222 80FB 93 73 00        .s.   subd 73
 223 80FE 01              .     nop
 224 80FF 05              .     asld
 225 8100 F6 00 1D        ...   ldab 001d
 226 8103 C4 10           ..    andb #10
 227 8105 27 3D           '=    beq 3d
 228 8107 BD D6 52        ..R   jsr d652
 229 810A CE 00 1D        ...   ldx #001d
 230 810D 1D 00           ..    bclr add,x 00,x
 231 810F 10              .     sba
 232 8110 CE 00 1D        ...   ldx #001d
 233 8113 1C 00           ..    bset add,x 00,x
 234 8115 80 7F           ..    suba #7f
 235 8117 00              .     test
 236 8118 42              B     illegal
 237 8119 7F 00 60        ..`   clr 0060
 238 811C 7F 00 48        ..H   clr 0048
 239 811F 7F 00 38        ..8   clr 0038
 240 8122 F6 0B A8        ...   ldab 0ba8
 241 8125 27 08           '.    beq 08
 242 8127 CE 0B A9        ...   ldx #0ba9
 243 812A 1C 00           ..    bset add,x 00,x
 244 812C 02              .     idiv
 245 812D 20 06            .    bra 06
 246 812F CE 0B A9        ...   ldx #0ba9
 247 8132 1D 00           ..    bclr add,x 00,x
 248 8134 02              .     idiv
 249 8135 7F 0E 00        ...   clr 0e00
 250 8138 7F 0E 01        ...   clr 0e01
 251 813B 7F 0E 02        ...   clr 0e02
 252 813E 7F 0E 03        ...   clr 0e03
 253 8141 7F 0E 04        ...   clr 0e04
 254 8144 F6 00 42        ..B   ldab 0042
 255 8147 C1 0B           ..    cmpb #0b
 256 8149 26 0F           &.    bne 0f
 257 814B BD AB 89        ...   jsr ab89
 258 814E 7F 00 19        ...   clr 0019
 259 8151 7F 00 60        ..`   clr 0060
 260 8154 7F 00 42        ..B   clr 0042
 261 8157 BD E6 1B        ...   jsr e61b
 262 815A F6 0B A8        ...   ldab 0ba8
 263 815D 26 03           &.    bne 03
 264 815F 7E 81 EF        ~..   jmp 81ef
 265 8162 F6 00 60        ..`   ldab 0060
 266 8165 C1 04           ..    cmpb #04
 267 8167 24 28           $(    bcc 28
 268 8169 F6 00 42        ..B   ldab 0042
 269 816C 27 21           '!    beq 21
 270 816E F6 00 42        ..B   ldab 0042
 271 8171 C1 0A           ..    cmpb #0a
 272 8173 26 03           &.    bne 03
 273 8175 7F 00 42        ..B   clr 0042
 274 8178 F6 00 42        ..B   ldab 0042
 275 817B CB 30           .0    addb #30
 276 817D 37              7     pshb
 277 817E F6 00 60        ..`   ldab 0060
 278 8181 4F              O     clra
 279 8182 C3 00 62        ..b   addd #0062
 280 8185 8F              .     xgdx
 281 8186 33              3     pulb
 282 8187 E7 00           ..    stb 00,x
 283 8189 7F 00 42        ..B   clr 0042
 284 818C 7C 00 60        |.`   inc 0060
 285 818F 20 5C            \    bra 5c
 286 8191 F6 00 62        ..b   ldab 0062
 287 8194 F1 0B A4        ...   cmpb 0ba4
 288 8197 26 3D           &=    bne 3d
 289 8199 F6 00 63        ..c   ldab 0063
 290 819C F1 0B A5        ...   cmpb 0ba5
 291 819F 26 35           &5    bne 35
 292 81A1 F6 00 64        ..d   ldab 0064
 293 81A4 F1 0B A6        ...   cmpb 0ba6
 294 81A7 26 2D           &-    bne 2d
 295 81A9 F6 00 65        ..e   ldab 0065
 296 81AC F1 0B A7        ...   cmpb 0ba7
 297 81AF 26 25           &%    bne 25
 298 81B1 CE 0B A9        ...   ldx #0ba9
 299 81B4 1D 00           ..    bclr add,x 00,x
 300 81B6 02              .     idiv
 301 81B7 CE 00 1F        ...   ldx #001f
 302 81BA 1C 00           ..    bset add,x 00,x
 303 81BC 04              .     lsrd
 304 81BD CE 00 1F        ...   ldx #001f
 305 81C0 1C 00           ..    bset add,x 00,x
 306 81C2 80 CE           ..    suba #ce
 307 81C4 00              .     test
 308 81C5 1D 1C           ..    bclr add,x 1c,x
 309 81C7 00              .     test
 310 81C8 10              .     sba
 311 81C9 CC 02 33        ..3   ldd #0233
 312 81CC FD 00 3B        ..;   stad 003b
 313 81CF C6 05           ..    ldab #05
 314 81D1 F7 00 38        ..8   stb 0038
 315 81D4 20 17            .    bra 17
 316 81D6 7F 00 42        ..B   clr 0042
 317 81D9 7F 00 60        ..`   clr 0060
 318 81DC BD BE 69        ..i   jsr be69
 319 81DF BD BE 4B        ..K   jsr be4b
 320 81E2 CC B0 81        ...   ldd #b081            ;"NO  ACCESS"
 321 81E5 BD C0 BA        ...   jsr c0ba
 322 81E8 C6 0A           ..    ldab #0a
 323 81EA F7 00 38        ..8   stb 0038
 324 81ED 20 03            .    bra 03
 325 81EF 7F 00 42        ..B   clr 0042
 326 81F2 F6 00 38        ..8   ldab 0038
 327 81F5 27 03           '.    beq 03
 328 81F7 7E 84 9F        ~..   jmp 849f
 329 81FA BD BE 4B        ..K   jsr be4b
 330 81FD F6 00 48        ..H   ldab 0048
 331 8200 26 03           &.    bne 03
 332 8202 BD AB A2        ...   jsr aba2
 333 8205 F6 00 48        ..H   ldab 0048
 334 8208 4F              O     clra
 335 8209 BD FE 16        ...   jsr fe16
 336 820C 00              .     test
 337 820D 00              .     test
 338 820E 00              .     test
 339 820F 0D              .     sec
 340 8210 84 9F           ..    anda #9f
 341 8212 82 2E           ..    sbca #2e
 342 8214 82 50           .P    sbca #50
 343 8216 82 B7           ..    sbca #b7
 344 8218 82 D9           ..    sbca #d9
 345 821A 83 40 83        .@.   subd #4083
 346 821D 62              b     illegal
 347 821E 83 A5 83        ...   subd #a583
 348 8221 C2 83           ..    sbcb #83
 349 8223 DF 83 FC        ...   stx 83
 350 8226 84 19           ..    anda #19
 351 8228 84 35           .5    anda #35
 352 822A 84 51           .Q    anda #51
 353 822C 84 78           .x    anda #78
 354 822E F6 00 19        ...   ldab 0019
 355 8231 C4 01           ..    andb #01
 356 8233 27 13           '.    beq 13
 357 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 358 8238 BD C0 BA        ...   jsr c0ba
 359 823B C6 0A           ..    ldab #0a
 360 823D F7 00 38        ..8   stb 0038
 361 8240 7F 00 54        ..T   clr 0054
 362 8243 7C 00 48        |.H   inc 0048
 363 8246 20 05            .    bra 05
 364 8248 C6 02           ..    ldab #02
 365 824A F7 00 48        ..H   stb 0048
 366 824D 7E 84 9F        ~..   jmp 849f
 367 8250 F6 00 54        ..T   ldab 0054
 368 8253 4F              O     clra
 369 8254 CE 00 05        ...   ldx #0005
 370 8257 02              .     idiv
 371 8258 5D              ]     tstb
 372 8259 27 4C           'L    beq 4c
 373 825B F6 00 54        ..T   ldab 0054
 374 825E F7 00 06        ...   stb 0006
 375 8261 F6 00 06        ...   ldab 0006
 376 8264 BD D7 A0        ...   jsr d7a0
 377 8267 83 00 00        ...   subd #0000
 378 826A 27 15           '.    beq 15
 379 826C CC 7F FF        ...   ldd #7fff
 380 826F 37              7     pshb
 381 8270 36              6     psha
 382 8271 F6 00 06        ...   ldab 0006
 383 8274 4F              O     clra
 384 8275 05              .     asld
 385 8276 C3 08 00        ...   addd #0800
 386 8279 38              8     pulx
 387 827A 8F              .     xgdx
 388 827B A4 00           ..    anda 00,x
 389 827D E4 01           ..    andb 01,x
 390 827F ED 00           ..    stad 00,x
 391 8281 F6 00 54        ..T   ldab 0054
 392 8284 4F              O     clra
 393 8285 05              .     asld
 394 8286 C3 08 00        ...   addd #0800
 395 8289 8F              .     xgdx
 396 828A EC 00           ..    ldd 00,x
 397 828C 84 80           ..    anda #80
 398 828E 27 17           '.    beq 17
 399 8290 F6 00 54        ..T   ldab 0054
 400 8293 4F              O     clra
 401 8294 05              .     asld
 402 8295 C3 08 C8        ...   addd #08c8
 403 8298 8F              .     xgdx
 404 8299 EC 00           ..    ldd 00,x
 405 829B 84 02           ..    anda #02
 406 829D 27 08           '.    beq 08
 407 829F BD 98 A5        ...   jsr 98a5
 408 82A2 C6 0A           ..    ldab #0a
 409 82A4 F7 00 38        ..8   stb 0038
 410 82A7 7C 00 54        |.T   inc 0054
 411 82AA F6 00 54        ..T   ldab 0054
 412 82AD C1 64           .d    cmpb #64
 413 82AF 26 03           &.    bne 03
 414 82B1 7C 00 48        |.H   inc 0048
 415 82B4 7E 84 9F        ~..   jmp 849f
 416 82B7 F6 00 19        ...   ldab 0019
 417 82BA C4 02           ..    andb #02
 418 82BC 27 13           '.    beq 13
 419 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 420 82C1 BD C0 BA        ...   jsr c0ba
 421 82C4 C6 0A           ..    ldab #0a
 422 82C6 F7 00 38        ..8   stb 0038
 423 82C9 7F 00 54        ..T   clr 0054
 424 82CC 7C 00 48        |.H   inc 0048
 425 82CF 20 05            .    bra 05
 426 82D1 C6 04           ..    ldab #04
 427 82D3 F7 00 48        ..H   stb 0048
 428 82D6 7E 84 9F        ~..   jmp 849f
 429 82D9 F6 00 54        ..T   ldab 0054
 430 82DC 4F              O     clra
 431 82DD CE 00 05        ...   ldx #0005
 432 82E0 02              .     idiv
 433 82E1 5D              ]     tstb
 434 82E2 27 4C           'L    beq 4c
 435 82E4 F6 00 54        ..T   ldab 0054
 436 82E7 F7 00 06        ...   stb 0006
 437 82EA F6 00 06        ...   ldab 0006
 438 82ED BD D7 A0        ...   jsr d7a0
 439 82F0 83 00 00        ...   subd #0000
 440 82F3 27 15           '.    beq 15
 441 82F5 CC 7F FF        ...   ldd #7fff
 442 82F8 37              7     pshb
 443 82F9 36              6     psha
 444 82FA F6 00 06        ...   ldab 0006
 445 82FD 4F              O     clra
 446 82FE 05              .     asld
 447 82FF C3 08 00        ...   addd #0800
 448 8302 38              8     pulx
 449 8303 8F              .     xgdx
 450 8304 A4 00           ..    anda 00,x
 451 8306 E4 01           ..    andb 01,x
 452 8308 ED 00           ..    stad 00,x
 453 830A F6 00 54        ..T   ldab 0054
 454 830D 4F              O     clra
 455 830E 05              .     asld
 456 830F C3 08 00        ...   addd #0800
 457 8312 8F              .     xgdx
 458 8313 EC 00           ..    ldd 00,x
 459 8315 84 80           ..    anda #80
 460 8317 27 17           '.    beq 17
 461 8319 F6 00 54        ..T   ldab 0054
 462 831C 4F              O     clra
 463 831D 05              .     asld
 464 831E C3 08 C8        ...   addd #08c8
 465 8321 8F              .     xgdx
 466 8322 EC 00           ..    ldd 00,x
 467 8324 84 04           ..    anda #04
 468 8326 27 08           '.    beq 08
 469 8328 BD 98 A5        ...   jsr 98a5
 470 832B C6 0A           ..    ldab #0a
 471 832D F7 00 38        ..8   stb 0038
 472 8330 7C 00 54        |.T   inc 0054
 473 8333 F6 00 54        ..T   ldab 0054
 474 8336 C1 64           .d    cmpb #64
 475 8338 26 03           &.    bne 03
 476 833A 7C 00 48        |.H   inc 0048
 477 833D 7E 84 9F        ~..   jmp 849f
 478 8340 F6 00 19        ...   ldab 0019
 479 8343 C4 04           ..    andb #04
 480 8345 27 13           '.    beq 13
 481 8347 CC B0 08        ...   ldd #b008
 482 834A BD C0 BA        ...   jsr c0ba
 483 834D C6 0A           ..    ldab #0a
 484 834F F7 00 38        ..8   stb 0038
 485 8352 7F 00 54        ..T   clr 0054
 486 8355 7C 00 48        |.H   inc 0048
 487 8358 20 05            .    bra 05
 488 835A C6 06           ..    ldab #06
 489 835C F7 00 48        ..H   stb 0048
 490 835F 7E 84 9F        ~..   jmp 849f
 491 8362 F6 00 54        ..T   ldab 0054
 492 8365 4F              O     clra
 493 8366 CE 00 05        ...   ldx #0005
 494 8369 02              .     idiv
 495 836A 5D              ]     tstb
 496 836B 27 28           '(    beq 28
 497 836D F6 00 54        ..T   ldab 0054
 498 8370 F7 00 06        ...   stb 0006
 499 8373 F6 00 06        ...   ldab 0006
 500 8376 BD D7 A0        ...   jsr d7a0
 501 8379 83 00 00        ...   subd #0000
 502 837C 26 17           &.    bne 17
 503 837E F6 00 54        ..T   ldab 0054
 504 8381 4F              O     clra
 505 8382 05              .     asld
 506 8383 C3 08 C8        ...   addd #08c8
 507 8386 8F              .     xgdx
 508 8387 EC 00           ..    ldd 00,x
 509 8389 84 01           ..    anda #01
 510 838B 27 08           '.    beq 08
 511 838D BD 98 A5        ...   jsr 98a5
 512 8390 C6 0A           ..    ldab #0a
 513 8392 F7 00 38        ..8   stb 0038
 514 8395 7C 00 54        |.T   inc 0054
 515 8398 F6 00 54        ..T   ldab 0054
 516 839B C1 64           .d    cmpb #64
 517 839D 26 03           &.    bne 03
 518 839F 7C 00 48        |.H   inc 0048
 519 83A2 7E 84 9F        ~..   jmp 849f
 520 83A5 F6 0B C1        ...   ldab 0bc1
 521 83A8 C4 01           ..    andb #01
 522 83AA 27 10           '.    beq 10
 523 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 524 83AF BD C0 BA        ...   jsr c0ba
 525 83B2 7C 00 48        |.H   inc 0048
 526 83B5 C6 0A           ..    ldab #0a
 527 83B7 F7 00 38        ..8   stb 0038
 528 83BA 20 03            .    bra 03
 529 83BC 7C 00 48        |.H   inc 0048
 530 83BF 7E 84 9F        ~..   jmp 849f
 531 83C2 F6 0B C1        ...   ldab 0bc1
 532 83C5 C4 02           ..    andb #02
 533 83C7 27 10           '.    beq 10
 534 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 535 83CC BD C0 BA        ...   jsr c0ba
 536 83CF 7C 00 48        |.H   inc 0048
 537 83D2 C6 0A           ..    ldab #0a
 538 83D4 F7 00 38        ..8   stb 0038
 539 83D7 20 03            .    bra 03
 540 83D9 7C 00 48        |.H   inc 0048
 541 83DC 7E 84 9F        ~..   jmp 849f
 542 83DF F6 0B C1        ...   ldab 0bc1
 543 83E2 C4 04           ..    andb #04
 544 83E4 27 10           '.    beq 10
 545 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 546 83E9 BD C0 BA        ...   jsr c0ba
 547 83EC 7C 00 48        |.H   inc 0048
 548 83EF C6 0A           ..    ldab #0a
 549 83F1 F7 00 38        ..8   stb 0038
 550 83F4 20 03            .    bra 03
 551 83F6 7C 00 48        |.H   inc 0048
 552 83F9 7E 84 9F        ~..   jmp 849f
 553 83FC F6 0B C1        ...   ldab 0bc1
 554 83FF C4 10           ..    andb #10
 555 8401 27 10           '.    beq 10
 556 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 557 8406 BD C0 BA        ...   jsr c0ba
 558 8409 7C 00 48        |.H   inc 0048
 559 840C C6 0A           ..    ldab #0a
 560 840E F7 00 38        ..8   stb 0038
 561 8411 20 03            .    bra 03
 562 8413 7C 00 48        |.H   inc 0048
 563 8416 7E 84 9F        ~..   jmp 849f
 564 8419 F6 0B C1        ...   ldab 0bc1
 565 841C C4 20           .     andb #20
 566 841E 27 10           '.    beq 10
 567 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 568 8423 BD C0 BA        ...   jsr c0ba
 569 8426 7C 00 48        |.H   inc 0048
 570 8429 C6 0A           ..    ldab #0a
 571 842B F7 00 38        ..8   stb 0038
 572 842E 20 03            .    bra 03
 573 8430 7C 00 48        |.H   inc 0048
 574 8433 20 6A            j    bra 6a
 575 8435 F6 0B C1        ...   ldab 0bc1
 576 8438 C4 08           ..    andb #08
 577 843A 27 10           '.    beq 10
 578 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 579 843F BD C0 BA        ...   jsr c0ba
 580 8442 7C 00 48        |.H   inc 0048
 581 8445 C6 0A           ..    ldab #0a
 582 8447 F7 00 38        ..8   stb 0038
 583 844A 20 03            .    bra 03
 584 844C 7C 00 48        |.H   inc 0048
 585 844F 20 4E            N    bra 4e
 586 8451 F6 0B C1        ...   ldab 0bc1
 587 8454 C4 40           .@    andb #40
 588 8456 27 10           '.    beq 10
 589 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 590 845B BD C0 BA        ...   jsr c0ba
 591 845E 7F 00 48        ..H   clr 0048
 592 8461 C6 0A           ..    ldab #0a
 593 8463 F7 00 38        ..8   stb 0038
 594 8466 20 0E            .    bra 0e
 595 8468 7F 00 48        ..H   clr 0048
 596 846B CC B0 13        ...   ldd #b013
 597 846E BD C0 BA        ...   jsr c0ba     "HIT RESET "
 598 8471 C6 0A           ..    ldab #0a
 599 8473 F7 00 38        ..8   stb 0038
 600 8476 20 27            '    bra 27
 601 8478 F6 00 1D        ...   ldab 001d
 602 847B 2C 0E           ,.    bge 0e
 603 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 604 8480 BD C0 BA        ...   jsr c0ba
 605 8483 CE 00 1D        ...   ldx #001d
 606 8486 1D 00           ..    bclr add,x 00,x
 607 8488 80 20           .     suba #20
 608 848A 0C              .     clc
 609 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 610 848E BD C0 BA        ...   jsr c0ba
 611 8491 CE 00 1D        ...   ldx #001d
 612 8494 1C 00           ..    bset add,x 00,x
 613 8496 80 C6           ..    suba #c6
 614 8498 0F              .     sei
 615 8499 F7 00 38        ..8   stb 0038
 616 849C 7F 00 48        ..H   clr 0048
 617 849F 39              9     rts
 618 84A0 FC 00 3B        ..;   ldd 003b
 619 84A3 26 03           &.    bne 03
 620 84A5 7E 85 96        ~..   jmp 8596
 621 84A8 F6 00 1F        ...   ldab 001f
 622 84AB 2C 40           ,@    bge 40
 623 84AD BD D6 52        ..R   jsr d652
 624 84B0 7F 00 42        ..B   clr 0042
 625 84B3 7F 00 09        ...   clr 0009
 626 84B6 7F 00 0A        ...   clr 000a
 627 84B9 7F 00 06        ...   clr 0006
 628 84BC 5F              _     clrb
 629 84BD 4F              O     clra
 630 84BE FD 00 40        ..@   stad 0040
 631 84C1 5F              _     clrb
 632 84C2 4F              O     clra
 633 84C3 FD 00 3E        ..>   stad 003e
 634 84C6 BD E5 AA        ...   jsr e5aa
 635 84C9 CE 00 1F        ...   ldx #001f
 636 84CC 1D 00           ..    bclr add,x 00,x
 637 84CE 80 CE           ..    suba #ce
 638 84D0 00              .     test
 639 84D1 1F 1C 00 02     ....  brclr 1c,x 00 02
 640 84D5 CE 00 1D        ...   ldx #001d
 641 84D8 1C 00           ..    bset add,x 00,x
 642 84DA 10              .     sba
 643 84DB CE 00 17        ...   ldx #0017
 644 84DE 1D 00           ..    bclr add,x 00,x
 645 84E0 20 CE            .    bra ce
 646 84E2 00              .     test
 647 84E3 17              .     tba
 648 84E4 1D 00           ..    bclr add,x 00,x
 649 84E6 40              @     nega
 650 84E7 CE 00 17        ...   ldx #0017
 651 84EA 1D 00           ..    bclr add,x 00,x
 652 84EC 80 F6           ..    suba #f6
 653 84EE 0B              .     sev
 654 84EF A9 C4           ..    adca c4,x
 655 84F1 02              .     idiv
 656 84F2 27 20           '     beq 20
 657 84F4 F6 00 42        ..B   ldab 0042
 658 84F7 4F              O     clra
 659 84F8 C3 0B E4        ...   addd #0be4
 660 84FB 8F              .     xgdx
 661 84FC E6 00           ..    ldab 00,x
 662 84FE 27 14           '.    beq 14
 663 8500 BD BE 4B        ..K   jsr be4b
 664 8503 CC B0 81        ...   ldd #b081            ;"NO  ACCESS"
 665 8506 BD C0 BA        ...   jsr c0ba
 666 8509 CC 02 58        ..X   ldd #0258
 667 850C BD E5 71        ..q   jsr e571
 668 850F BD 85 AF        ...   jsr 85af
 669 8512 20 6C            l    bra 6c
 670 8514 F6 00 42        ..B   ldab 0042
 671 8517 4F              O     clra
 672 8518 BD FE 16        ...   jsr fe16
 673 851B 00              .     test
 674 851C 00              .     test
 675 851D 00              .     test
 676 851E 0B              .     sev
 677 851F 85 80           ..    bita #80
 678 8521 85 39           .9    bita #39
 679 8523 85 4A           .J    bita #4a
 680 8525 85 4F           .O    bita #4f
 681 8527 85 54           .T    bita #54
 682 8529 85 59           .Y    bita #59
 683 852B 85 5E           .^    bita #5e
 684 852D 85 63           .c    bita #63
 685 852F 85 68           .h    bita #68
 686 8531 85 6D           .m    bita #6d
 687 8533 85 72           .r    bita #72
 688 8535 85 77           .w    bita #77
 689 8537 85 7C           .|    bita #7c
 690 8539 CC AE 92        ...   ldd #ae92    "-         "
 691 853C BD C0 BA        ...   jsr c0ba
 692 853F 7F 00 42        ..B   clr 0042
 693 8542 CE 00 1F        ...   ldx #001f
 694 8545 1C 00           ..    bset add,x 00,x
 695 8547 02              .     idiv
 696 8548 20 36            6    bra 36
 697 854A BD 86 84        ...   jsr 8684
 698 854D 20 31            1    bra 31
 699 854F BD 88 2E        ...   jsr 882e
 700 8552 20 2C            ,    bra 2c
 701 8554 BD 88 B8        ...   jsr 88b8
 702 8557 20 27            '    bra 27
 703 8559 BD 8C B4        ...   jsr 8cb4
 704 855C 20 22            "    bra 22
 705 855E BD 8E 35        ..5   jsr 8e35
 706 8561 20 1D            .    bra 1d
 707 8563 BD 8F 0D        ...   jsr 8f0d
 708 8566 20 18            .    bra 18
 709 8568 BD 90 D1        ...   jsr 90d1
 710 856B 20 13            .    bra 13
 711 856D BD 92 EE        ...   jsr 92ee
 712 8570 20 0E            .    bra 0e
 713 8572 BD 93 A5        ...   jsr 93a5
 714 8575 20 09            .    bra 09
 715 8577 BD 94 DD        ...   jsr 94dd
 716 857A 20 04            .    bra 04
 717 857C 8D 31           .1    bsr dest 31
 718 857E 20 00            .    bra 00
 719 8580 7F 00 0A        ...   clr 000a
 720 8583 F6 00 42        ..B   ldab 0042
 721 8586 C1 0A           ..    cmpb #0a
 722 8588 27 0A           '.    beq 0a
 723 858A F6 00 42        ..B   ldab 0042
 724 858D C1 07           ..    cmpb #07
 725 858F 27 03           '.    beq 03
 726 8591 7F 00 09        ...   clr 0009
 727 8594 20 18            .    bra 18
 728 8596 CE 00 1F        ...   ldx #001f
 729 8599 1D 00           ..    bclr add,x 00,x
 730 859B 04              .     lsrd
 731 859C CE 00 1F        ...   ldx #001f
 732 859F 1C 00           ..    bset add,x 00,x
 733 85A1 80 CE           ..    suba #ce
 734 85A3 00              .     test
 735 85A4 1D 1C           ..    bclr add,x 1c,x
 736 85A6 00              .     test
 737 85A7 10              .     sba
 738 85A8 BD BE 69        ..i   jsr be69
 739 85AB BD E5 AA        ...   jsr e5aa
 740 85AE 39              9     rts
 741 85AF 7F 00 42        ..B   clr 0042
 742 85B2 7F 00 06        ...   clr 0006
 743 85B5 CE 00 1F        ...   ldx #001f
 744 85B8 1C 00           ..    bset add,x 00,x
 745 85BA 02              .     idiv
 746 85BB BD BE 69        ..i   jsr be69
 747 85BE 39              9     rts
 748 85BF F6 00 12        ...   ldab 0012
 749 85C2 C4 1E           ..    andb #1e
 750 85C4 4F              O     clra
 751 85C5 BD FE 32        ..2   jsr fe32
 752 85C8 85 DE           ..    bita #de
 753 85CA 00              .     test
 754 85CB 0E              .     cli
 755 85CC 86 08           ..    ldaa #08
 756 85CE 00              .     test
 757 85CF 08              .     inx
 758 85D0 86 32           .2    ldaa #32
 759 85D2 00              .     test
 760 85D3 04              .     lsrd
 761 85D4 86 5C           .\    ldaa #5c
 762 85D6 00              .     test
 763 85D7 02              .     idiv
 764 85D8 86 83           ..    ldaa #83
 765 85DA FF E4 00        ...   stx e400
 766 85DD 00              .     test
 767 85DE F6 0B DC        ...   ldab 0bdc
 768 85E1 F7 00 01        ...   stb 0001
 769 85E4 BD C4 30        ..0   jsr c430
 770 85E7 C6 01           ..    ldab #01
 771 85E9 F7 00 48        ..H   stb 0048
 772 85EC 7F 00 2C        ..,   clr 002c
 773 85EF F6 0C D9        ...   ldab 0cd9
 774 85F2 27 03           '.    beq 03
 775 85F4 7A 0C D9        z..   dec 0cd9
 776 85F7 BD 97 F6        ...   jsr 97f6
 777 85FA CC 01 5E        ..^   ldd #015e
 778 85FD BD E5 71        ..q   jsr e571
 779 8600 CC 02 33        ..3   ldd #0233
 780 8603 FD 00 3B        ..;   stad 003b
 781 8606 20 7B            {    bra 7b
 782 8608 F6 0B DB        ...   ldab 0bdb
 783 860B F7 00 01        ...   stb 0001
 784 860E BD C4 30        ..0   jsr c430
 785 8611 C6 02           ..    ldab #02
 786 8613 F7 00 48        ..H   stb 0048
 787 8616 7F 00 2C        ..,   clr 002c
 788 8619 F6 0C DA        ...   ldab 0cda
 789 861C 27 03           '.    beq 03
 790 861E 7A 0C DA        z..   dec 0cda
 791 8621 BD 97 F6        ...   jsr 97f6
 792 8624 CC 01 5E        ..^   ldd #015e
 793 8627 BD E5 71        ..q   jsr e571
 794 862A CC 02 33        ..3   ldd #0233
 795 862D FD 00 3B        ..;   stad 003b
 796 8630 20 51            Q    bra 51
 797 8632 F6 0B DA        ...   ldab 0bda
 798 8635 F7 00 01        ...   stb 0001
 799 8638 BD C4 30        ..0   jsr c430
 800 863B C6 03           ..    ldab #03
 801 863D F7 00 48        ..H   stb 0048
 802 8640 7F 00 2C        ..,   clr 002c
 803 8643 F6 0C DB        ...   ldab 0cdb
 804 8646 27 03           '.    beq 03
 805 8648 7A 0C DB        z..   dec 0cdb
 806 864B BD 97 F6        ...   jsr 97f6
 807 864E CC 01 5E        ..^   ldd #015e
 808 8651 BD E5 71        ..q   jsr e571
 809 8654 CC 02 33        ..3   ldd #0233
 810 8657 FD 00 3B        ..;   stad 003b
 811 865A 20 27            '    bra 27
 812 865C C6 40           .@    ldab #40
 813 865E F7 00 01        ...   stb 0001
 814 8661 BD C4 30        ..0   jsr c430
 815 8664 C6 04           ..    ldab #04
 816 8666 F7 00 48        ..H   stb 0048
 817 8669 7F 00 2C        ..,   clr 002c
 818 866C F6 0C DC        ...   ldab 0cdc
 819 866F 27 03           '.    beq 03
 820 8671 7A 0C DC        z..   dec 0cdc
 821 8674 BD 97 F6        ...   jsr 97f6
 822 8677 CC 01 5E        ..^   ldd #015e
 823 867A BD E5 71        ..q   jsr e571
 824 867D CC 02 33        ..3   ldd #0233
 825 8680 FD 00 3B        ..;   stad 003b
 826 8683 39              9     rts
 827 8684 F6 00 1F        ...   ldab 001f
 828 8687 C4 02           ..    andb #02
 829 8689 27 2B           '+    beq 2b
 830 868B CE 00 1F        ...   ldx #001f
 831 868E 1D 00           ..    bclr add,x 00,x
 832 8690 02              .     idiv
 833 8691 C6 01           ..    ldab #01
 834 8693 F7 00 48        ..H   stb 0048
 835 8696 F6 0B C0        ...   ldab 0bc0
 836 8699 C4 01           ..    andb #01
 837 869B 27 16           '.    beq 16
 838 869D C6 27           .'    ldab #27
 839 869F F7 10 2D        ..-   stb 102d
 840 86A2 C6 07           ..    ldab #07
 841 86A4 F7 10 2B        ..+   stb 102b
 842 86A7 CE 00 1A        ...   ldx #001a
 843 86AA 1D 00           ..    bclr add,x 00,x
 844 86AC 01              .     nop
 845 86AD F6 00 1A        ...   ldab 001a
 846 86B0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 847 86B3 7E 87 E8        ~..   jmp 87e8
 848 86B6 F6 00 09        ...   ldab 0009
 849 86B9 4F              O     clra
 850 86BA BD FE 32        ..2   jsr fe32
 851 86BD 86 D7           ..    ldaa #d7
 852 86BF 00              .     test
 853 86C0 00              .     test
 854 86C1 87              .     illegal
 855 86C2 39              9     rts
 856 86C3 00              .     test
 857 86C4 01              .     nop
 858 86C5 87              .     illegal
 859 86C6 75              u     illegal
 860 86C7 00              .     test
 861 86C8 01              .     nop
 862 86C9 87              .     illegal
 863 86CA C5 00           ..    bitb #00
 864 86CC 08              .     inx
 865 86CD 87              .     illegal
 866 86CE D9 00 01        ...   adcb 00
 867 86D1 87              .     illegal
 868 86D2 E8 FF           ..    eorb ff,x
 869 86D4 F5 00 00        ...   bitb 0000
 870 86D7 C6 FF           ..    ldab #ff
 871 86D9 F7 0B BC        ...   stb 0bbc
 872 86DC F6 18 00        ...   ldab 1800
 873 86DF 2D 29           -)    blt 29
 874 86E1 F6 00 07        ...   ldab 0007
 875 86E4 26 24           &$    bne 24
 876 86E6 CE 00 1A        ...   ldx #001a
 877 86E9 1D 00           ..    bclr add,x 00,x
 878 86EB 02              .     idiv
 879 86EC F6 00 1A        ...   ldab 001a
 880 86EF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 881 86F2 CC 00 32        ..2   ldd #0032
 882 86F5 BD E5 71        ..q   jsr e571
 883 86F8 CE 00 1A        ...   ldx #001a
 884 86FB 1C 00           ..    bset add,x 00,x
 885 86FD 02              .     idiv
 886 86FE F6 00 1A        ...   ldab 001a
 887 8701 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 888 8704 CC 02 33        ..3   ldd #0233
 889 8707 FD 00 3B        ..;   stad 003b
 890 870A 5F              _     clrb
 891 870B 4F              O     clra
 892 870C FD 00 40        ..@   stad 0040
 893 870F 5F              _     clrb
 894 8710 4F              O     clra
 895 8711 FD 00 3E        ..>   stad 003e
 896 8714 F6 0B C0        ...   ldab 0bc0
 897 8717 C4 01           ..    andb #01
 898 8719 27 03           '.    beq 03
 899 871B BD 85 BF        ...   jsr 85bf
 900 871E BD DC A3        ...   jsr dca3
 901 8721 BD 97 F6        ...   jsr 97f6
 902 8724 CE 00 17        ...   ldx #0017
 903 8727 1D 00           ..    bclr add,x 00,x
 904 8729 20 CE            .    bra ce
 905 872B 00              .     test
 906 872C 17              .     tba
 907 872D 1D 00           ..    bclr add,x 00,x
 908 872F 40              @     nega
 909 8730 CE 00 17        ...   ldx #0017
 910 8733 1D 00           ..    bclr add,x 00,x
 911 8735 80 7E           .~    suba #7e
 912 8737 87              .     illegal
 913 8738 E8 F6           ..    eorb f6,x
 914 873A 00              .     test
 915 873B 36              6     psha
 916 873C 26 2F           &/    bne 2f
 917 873E F6 00 48        ..H   ldab 0048
 918 8741 4F              O     clra
 919 8742 BD FE 16        ...   jsr fe16
 920 8745 00              .     test
 921 8746 01              .     nop
 922 8747 00              .     test
 923 8748 03              .     fdiv
 924 8749 87              .     illegal
 925 874A 65              e     illegal
 926 874B 87              .     illegal
 927 874C 53              S     comb
 928 874D 87              .     illegal
 929 874E 58              X     aslb
 930 874F 87              .     illegal
 931 8750 5D              ]     tstb
 932 8751 87              .     illegal
 933 8752 62              b     illegal
 934 8753 7C 0C D9        |..   inc 0cd9
 935 8756 20 0D            .    bra 0d
 936 8758 7C 0C DA        |..   inc 0cda
 937 875B 20 08            .    bra 08
 938 875D 7C 0C DB        |..   inc 0cdb
 939 8760 20 03            .    bra 03
 940 8762 7C 0C DC        |..   inc 0cdc
 941 8765 BD 97 F6        ...   jsr 97f6
 942 8768 C6 02           ..    ldab #02
 943 876A F7 00 36        ..6   stb 0036
 944 876D CE 00 1B        ...   ldx #001b
 945 8770 1C 00           ..    bset add,x 00,x
 946 8772 10              .     sba
 947 8773 20 73            s    bra 73
 948 8775 F6 00 36        ..6   ldab 0036
 949 8778 26 43           &C    bne 43
 950 877A F6 00 48        ..H   ldab 0048
 951 877D 4F              O     clra
 952 877E BD FE 16        ...   jsr fe16
 953 8781 00              .     test
 954 8782 01              .     nop
 955 8783 00              .     test
 956 8784 03              .     fdiv
 957 8785 87              .     illegal
 958 8786 B5 87 8F        ...   bita 878f
 959 8789 87              .     illegal
 960 878A 99 87 A3        ...   adca 87
 961 878D 87              .     illegal
 962 878E AD F6           ..    jsr f6,x
 963 8790 0C              .     clc
 964 8791 D9 27 03        .'.   adcb 27
 965 8794 7A 0C D9        z..   dec 0cd9
 966 8797 20 1C            .    bra 1c
 967 8799 F6 0C DA        ...   ldab 0cda
 968 879C 27 03           '.    beq 03
 969 879E 7A 0C DA        z..   dec 0cda
 970 87A1 20 12            .    bra 12
 971 87A3 F6 0C DB        ...   ldab 0cdb
 972 87A6 27 03           '.    beq 03
 973 87A8 7A 0C DB        z..   dec 0cdb
 974 87AB 20 08            .    bra 08
 975 87AD F6 0C DC        ...   ldab 0cdc
 976 87B0 27 03           '.    beq 03
 977 87B2 7A 0C DC        z..   dec 0cdc
 978 87B5 BD 97 F6        ...   jsr 97f6
 979 87B8 C6 02           ..    ldab #02
 980 87BA F7 00 36        ..6   stb 0036
 981 87BD CE 00 1B        ...   ldx #001b
 982 87C0 1C 00           ..    bset add,x 00,x
 983 87C2 10              .     sba
 984 87C3 20 23            #    bra 23
 985 87C5 7C 00 48        |.H   inc 0048
 986 87C8 F6 00 48        ..H   ldab 0048
 987 87CB C1 04           ..    cmpb #04
 988 87CD 23 05           #.    bls 05
 989 87CF C6 01           ..    ldab #01
 990 87D1 F7 00 48        ..H   stb 0048
 991 87D4 BD 97 F6        ...   jsr 97f6
 992 87D7 20 0F            .    bra 0f
 993 87D9 CE 00 1A        ...   ldx #001a
 994 87DC 1C 00           ..    bset add,x 00,x
 995 87DE 01              .     nop
 996 87DF F6 00 1A        ...   ldab 001a
 997 87E2 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 998 87E5 BD 85 AF        ...   jsr 85af
 999 87E8 39              9     rts
1000 87E9 7F 00 05        ...   clr 0005
1001 87EC 7F 00 54        ..T   clr 0054
1002 87EF F6 00 54        ..T   ldab 0054
1003 87F2 C1 50           .P    cmpb #50
1004 87F4 24 2E           $.    bcc 2e
1005 87F6 F6 00 54        ..T   ldab 0054
1006 87F9 4F              O     clra
1007 87FA C3 B0 D3        ...   addd #b0d3
1008 87FD 8F              .     xgdx
1009 87FE E6 00           ..    ldab 00,x
1010 8800 F7 00 06        ...   stb 0006
1011 8803 F6 00 06        ...   ldab 0006
1012 8806 BD D7 A0        ...   jsr d7a0
1013 8809 83 00 00        ...   subd #0000
1014 880C 26 11           &.    bne 11
1015 880E BD D3 11        ...   jsr d311
1016 8811 83 00 00        ...   subd #0000
1017 8814 26 03           &.    bne 03
1018 8816 7C 00 05        |..   inc 0005
1019 8819 CC 00 05        ...   ldd #0005
1020 881C BD E5 71        ..q   jsr e571
1021 881F 7C 00 54        |.T   inc 0054
1022 8822 20 CB            .    bra cb
1023 8824 BD 99 81        ...   jsr 9981
1024 8827 CC 07 D0        ...   ldd #07d0
1025 882A BD E5 71        ..q   jsr e571
1026 882D 39              9     rts
1027 882E F6 00 1F        ...   ldab 001f
1028 8831 C4 02           ..    andb #02
1029 8833 27 12           '.    beq 12
1030 8835 FC 0B B5        ...   ldd 0bb5
1031 8838 C4 FF           ..    andb #ff
1032 883A 84 01           ..    anda #01
1033 883C FD 00 52        ..R   stad 0052
1034 883F CE 00 1F        ...   ldx #001f
1035 8842 1D 00           ..    bclr add,x 00,x
1036 8844 02              .     idiv
1037 8845 20 70            p    bra 70
1038 8847 F6 00 09        ...   ldab 0009
1039 884A 4F              O     clra
1040 884B BD FE 32        ..2   jsr fe32
1041 884E 88 68           .h    eora #68
1042 8850 00              .     test
1043 8851 00              .     test
1044 8852 88 6D           .m    eora #6d
1045 8854 00              .     test
1046 8855 01              .     nop
1047 8856 88 83           ..    eora #83
1048 8858 00              .     test
1049 8859 01              .     nop
1050 885A 88 A7           ..    eora #a7
1051 885C 00              .     test
1052 885D 08              .     inx
1053 885E 88 B4           ..    eora #b4
1054 8860 00              .     test
1055 8861 01              .     nop
1056 8862 88 B7           ..    eora #b7
1057 8864 FF F5 00        ...   stx f500
1058 8867 00              .     test
1059 8868 BD 9A 05        ...   jsr 9a05
1060 886B 20 4A            J    bra 4a
1061 886D FC 00 52        ..R   ldd 0052
1062 8870 83 01 F4        ...   subd #01f4
1063 8873 24 09           $.    bcc 09
1064 8875 FC 00 52        ..R   ldd 0052
1065 8878 C3 00 32        ..2   addd #0032
1066 887B FD 00 52        ..R   stad 0052
1067 887E BD 9A 05        ...   jsr 9a05
1068 8881 20 34            4    bra 34
1069 8883 FC 00 52        ..R   ldd 0052
1070 8886 83 00 32        ..2   subd #0032
1071 8889 23 17           #.    bls 17
1072 888B FC 00 52        ..R   ldd 0052
1073 888E C3 FF CE        ...   addd #ffce
1074 8891 FD 00 52        ..R   stad 0052
1075 8894 FC 00 52        ..R   ldd 0052
1076 8897 83 00 32        ..2   subd #0032
1077 889A 24 06           $.    bcc 06
1078 889C CC 00 32        ..2   ldd #0032
1079 889F FD 00 52        ..R   stad 0052
1080 88A2 BD 9A 05        ...   jsr 9a05
1081 88A5 20 10            .    bra 10
1082 88A7 BD A3 7C        ..|   jsr a37c
1083 88AA 5F              _     clrb
1084 88AB 4F              O     clra
1085 88AC FD 0B B9        ...   stad 0bb9
1086 88AF BD 85 AF        ...   jsr 85af
1087 88B2 20 03            .    bra 03
1088 88B4 BD 85 AF        ...   jsr 85af
1089 88B7 39              9     rts
1090 88B8 F6 00 1F        ...   ldab 001f
1091 88BB C4 02           ..    andb #02
1092 88BD 26 0A           &.    bne 0a
1093 88BF F6 00 3A        ..:   ldab 003a
1094 88C2 26 28           &(    bne 28
1095 88C4 F6 00 1D        ...   ldab 001d
1096 88C7 2D 23           -#    blt 23
1097 88C9 7F 00 2C        ..,   clr 002c
1098 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1099 88CF BD C0 BA        ...   jsr c0ba
1100 88D2 CE 00 1F        ...   ldx #001f
1101 88D5 1D 00           ..    bclr add,x 00,x
1102 88D7 02              .     idiv
1103 88D8 CE 00 1F        ...   ldx #001f
1104 88DB 1D 00           ..    bclr add,x 00,x
1105 88DD 40              @     nega
1106 88DE CE 00 1D        ...   ldx #001d
1107 88E1 1D 00           ..    bclr add,x 00,x
1108 88E3 80 7F           ..    suba #7f
1109 88E5 00              .     test
1110 88E6 54              T     lsrb
1111 88E7 C6 32           .2    ldab #32
1112 88E9 F7 00 3A        ..:   stb 003a
1113 88EC F6 00 09        ...   ldab 0009
1114 88EF 26 03           &.    bne 03
1115 88F1 7E 89 E1        ~..   jmp 89e1
1116 88F4 F6 00 1D        ...   ldab 001d
1117 88F7 2C 03           ,.    bge 03
1118 88F9 7E 89 E1        ~..   jmp 89e1
1119 88FC F6 00 09        ...   ldab 0009
1120 88FF C1 0B           ..    cmpb #0b
1121 8901 26 06           &.    bne 06
1122 8903 BD 85 AF        ...   jsr 85af
1123 8906 7E 89 DE        ~..   jmp 89de
1124 8909 F6 00 54        ..T   ldab 0054
1125 890C 26 26           &&    bne 26
1126 890E BD BE 4B        ..K   jsr be4b
1127 8911 F6 00 09        ...   ldab 0009
1128 8914 C1 0A           ..    cmpb #0a
1129 8916 26 03           &.    bne 03
1130 8918 7F 00 09        ...   clr 0009
1131 891B F6 00 09        ...   ldab 0009
1132 891E CB 30           .0    addb #30
1133 8920 37              7     pshb
1134 8921 CC 0B 95        ...   ldd #0b95
1135 8924 F0 00 54        ..T   subb 0054
1136 8927 82 00           ..    sbca #00
1137 8929 8F              .     xgdx
1138 892A 33              3     pulb
1139 892B E7 00           ..    stb 00,x
1140 892D C6 32           .2    ldab #32
1141 892F F7 00 3A        ..:   stb 003a
1142 8932 20 37            7    bra 37
1143 8934 F6 00 54        ..T   ldab 0054
1144 8937 C1 01           ..    cmpb #01
1145 8939 26 27           &'    bne 27
1146 893B F6 00 09        ...   ldab 0009
1147 893E C1 05           ..    cmpb #05
1148 8940 27 20           '     beq 20
1149 8942 F6 00 09        ...   ldab 0009
1150 8945 C1 0A           ..    cmpb #0a
1151 8947 27 19           '.    beq 19
1152 8949 F6 00 09        ...   ldab 0009
1153 894C CB 30           .0    addb #30
1154 894E 37              7     pshb
1155 894F CC 0B 95        ...   ldd #0b95
1156 8952 F0 00 54        ..T   subb 0054
1157 8955 82 00           ..    sbca #00
1158 8957 8F              .     xgdx
1159 8958 33              3     pulb
1160 8959 E7 00           ..    stb 00,x
1161 895B C6 32           .2    ldab #32
1162 895D F7 00 3A        ..:   stb 003a
1163 8960 20 09            .    bra 09
1164 8962 CE 00 1F        ...   ldx #001f
1165 8965 1C 00           ..    bset add,x 00,x
1166 8967 02              .     idiv
1167 8968 7F 00 3A        ..:   clr 003a
1168 896B BD BE 01        ...   jsr be01
1169 896E 7C 00 54        |.T   inc 0054
1170 8971 F6 00 54        ..T   ldab 0054
1171 8974 C1 02           ..    cmpb #02
1172 8976 26 60           &`    bne 60
1173 8978 CE 00 1D        ...   ldx #001d
1174 897B 1C 00           ..    bset add,x 00,x
1175 897D 80 F6           ..    suba #f6
1176 897F 0B              .     sev
1177 8980 94 CB D0        ...   anda cb
1178 8983 37              7     pshb
1179 8984 F6 0B 95        ...   ldab 0b95
1180 8987 CB D0           ..    addb #d0
1181 8989 86 0A           ..    ldaa #0a
1182 898B 3D              =     mul
1183 898C 30              0     tsx
1184 898D EB 00           ..    addb 00,x
1185 898F 31              1     ins
1186 8990 F7 00 06        ...   stb 0006
1187 8993 C6 32           .2    ldab #32
1188 8995 F7 00 3A        ..:   stb 003a
1189 8998 F6 00 06        ...   ldab 0006
1190 899B BD D7 A0        ...   jsr d7a0
1191 899E 83 00 00        ...   subd #0000
1192 89A1 26 27           &'    bne 27
1193 89A3 BD D3 11        ...   jsr d311
1194 89A6 83 00 00        ...   subd #0000
1195 89A9 26 0B           &.    bne 0b
1196 89AB CE 00 1F        ...   ldx #001f
1197 89AE 1C 00           ..    bset add,x 00,x
1198 89B0 40              @     nega
1199 89B1 BD 8C 73        ..s   jsr 8c73
1200 89B4 20 0F            .    bra 0f
1201 89B6 CE 00 1F        ...   ldx #001f
1202 89B9 1D 00           ..    bclr add,x 00,x
1203 89BB 40              @     nega
1204 89BC CC 2A FF        .*.   ldd #2aff
1205 89BF FD 00 27        ..'   stad 0027
1206 89C2 BD A3 85        ...   jsr a385
1207 89C5 BD 9A 47        ..G   jsr 9a47
1208 89C8 20 0C            .    bra 0c
1209 89CA CE 00 1D        ...   ldx #001d
1210 89CD 1D 00           ..    bclr add,x 00,x
1211 89CF 80 CE           ..    suba #ce
1212 89D1 00              .     test
1213 89D2 1F 1C 00 02     ....  brclr 1c,x 00 02
1214 89D6 20 06            .    bra 06
1215 89D8 CE 00 1D        ...   ldx #001d
1216 89DB 1D 00           ..    bclr add,x 00,x
1217 89DD 80 7E           .~    suba #7e
1218 89DF 8C 72 F6        .r.   cpx #72f6
1219 89E2 00              .     test
1220 89E3 1D 2D           .-    bclr add,x 2d,x
1221 89E5 03              .     fdiv
1222 89E6 7E 8C 72        ~.r   jmp 8c72
1223 89E9 F6 00 09        ...   ldab 0009
1224 89EC 4F              O     clra
1225 89ED BD FE 16        ...   jsr fe16
1226 89F0 00              .     test
1227 89F1 00              .     test
1228 89F2 00              .     test
1229 89F3 0B              .     sev
1230 89F4 8C 72 8A        .r.   cpx #728a
1231 89F7 0E              .     cli
1232 89F8 8A 14           ..    ora #14
1233 89FA 8A AA           ..    ora #aa
1234 89FC 8B 5E           .^    adda #5e
1235 89FE 8B 9E           ..    adda #9e
1236 8A00 8B DB           ..    adda #db
1237 8A02 8C 72 8C        .r.   cpx #728c
1238 8A05 72              r     illegal
1239 8A06 8C 72 8B        .r.   cpx #728b
1240 8A09 FC 8C 67        ..g   ldd 8c67
1241 8A0C 8C 6F BD        .o.   cpx #6fbd
1242 8A0F 9A 47 7E        .G~   ora 47
1243 8A12 8C 72 F6        .r.   cpx #72f6
1244 8A15 00              .     test
1245 8A16 36              6     psha
1246 8A17 27 03           '.    beq 03
1247 8A19 7E 8A 9B        ~..   jmp 8a9b
1248 8A1C F6 00 1F        ...   ldab 001f
1249 8A1F C4 40           .@    andb #40
1250 8A21 27 78           'x    beq 78
1251 8A23 F6 0B C0        ...   ldab 0bc0
1252 8A26 C4 02           ..    andb #02
1253 8A28 27 52           'R    beq 52
1254 8A2A F6 0B AA        ...   ldab 0baa
1255 8A2D C1 32           .2    cmpb #32
1256 8A2F 24 22           $"    bcc 22
1257 8A31 F6 0B AA        ...   ldab 0baa
1258 8A34 4F              O     clra
1259 8A35 F3 00 27        ..'   addd 0027
1260 8A38 FD 00 27        ..'   stad 0027
1261 8A3B F6 0B AA        ...   ldab 0baa
1262 8A3E 4F              O     clra
1263 8A3F 37              7     pshb
1264 8A40 36              6     psha
1265 8A41 CC 00 FA        ...   ldd #00fa
1266 8A44 BD FB BA        ...   jsr fbba
1267 8A47 B3 00 27        ..'   subd 0027
1268 8A4A 24 05           $.    bcc 05
1269 8A4C 5F              _     clrb
1270 8A4D 4F              O     clra
1271 8A4E FD 00 27        ..'   stad 0027
1272 8A51 20 27            '    bra 27
1273 8A53 F6 0B AA        ...   ldab 0baa
1274 8A56 C1 32           .2    cmpb #32
1275 8A58 26 20           &     bne 20
1276 8A5A F6 0B AA        ...   ldab 0baa
1277 8A5D 4F              O     clra
1278 8A5E F3 00 27        ..'   addd 0027
1279 8A61 FD 00 27        ..'   stad 0027
1280 8A64 F6 0B AA        ...   ldab 0baa
1281 8A67 4F              O     clra
1282 8A68 37              7     pshb
1283 8A69 36              6     psha
1284 8A6A CC 00 C7        ...   ldd #00c7
1285 8A6D BD FB BA        ...   jsr fbba
1286 8A70 B3 00 27        ..'   subd 0027
1287 8A73 24 05           $.    bcc 05
1288 8A75 5F              _     clrb
1289 8A76 4F              O     clra
1290 8A77 FD 00 27        ..'   stad 0027
1291 8A7A 20 17            .    bra 17
1292 8A7C F6 0B AA        ...   ldab 0baa
1293 8A7F 4F              O     clra
1294 8A80 F3 00 27        ..'   addd 0027
1295 8A83 FD 00 27        ..'   stad 0027
1296 8A86 FC 00 27        ..'   ldd 0027
1297 8A89 83 27 0F        .'.   subd #270f
1298 8A8C 23 05           #.    bls 05
1299 8A8E 5F              _     clrb
1300 8A8F 4F              O     clra
1301 8A90 FD 00 27        ..'   stad 0027
1302 8A93 BD 9A 47        ..G   jsr 9a47
1303 8A96 C6 02           ..    ldab #02
1304 8A98 F7 00 36        ..6   stb 0036
1305 8A9B CE 00 1B        ...   ldx #001b
1306 8A9E 1C 00           ..    bset add,x 00,x
1307 8AA0 10              .     sba
1308 8AA1 CC 02 33        ..3   ldd #0233
1309 8AA4 FD 00 3B        ..;   stad 003b
1310 8AA7 7E 8C 72        ~.r   jmp 8c72
1311 8AAA F6 00 36        ..6   ldab 0036
1312 8AAD 27 03           '.    beq 03
1313 8AAF 7E 8B 4F        ~.O   jmp 8b4f
1314 8AB2 F6 00 1F        ...   ldab 001f
1315 8AB5 C4 40           .@    andb #40
1316 8AB7 26 03           &.    bne 03
1317 8AB9 7E 8B 4F        ~.O   jmp 8b4f
1318 8ABC F6 0B C0        ...   ldab 0bc0
1319 8ABF C4 02           ..    andb #02
1320 8AC1 27 57           'W    beq 57
1321 8AC3 FC 00 27        ..'   ldd 0027
1322 8AC6 26 18           &.    bne 18
1323 8AC8 F6 0B AA        ...   ldab 0baa
1324 8ACB C1 32           .2    cmpb #32
1325 8ACD 24 11           $.    bcc 11
1326 8ACF F6 0B AA        ...   ldab 0baa
1327 8AD2 4F              O     clra
1328 8AD3 37              7     pshb
1329 8AD4 36              6     psha
1330 8AD5 CC 00 FA        ...   ldd #00fa
1331 8AD8 BD FB BA        ...   jsr fbba
1332 8ADB FD 00 27        ..'   stad 0027
1333 8ADE 20 38            8    bra 38
1334 8AE0 FC 00 27        ..'   ldd 0027
1335 8AE3 26 18           &.    bne 18
1336 8AE5 F6 0B AA        ...   ldab 0baa
1337 8AE8 C1 32           .2    cmpb #32
1338 8AEA 26 11           &.    bne 11
1339 8AEC F6 0B AA        ...   ldab 0baa
1340 8AEF 4F              O     clra
1341 8AF0 37              7     pshb
1342 8AF1 36              6     psha
1343 8AF2 CC 00 C7        ...   ldd #00c7
1344 8AF5 BD FB BA        ...   jsr fbba
1345 8AF8 FD 00 27        ..'   stad 0027
1346 8AFB 20 1B            .    bra 1b
1347 8AFD F6 0B AA        ...   ldab 0baa
1348 8B00 4F              O     clra
1349 8B01 B3 00 27        ..'   subd 0027
1350 8B04 22 0D           ".    bhi 0d
1351 8B06 FC 00 27        ..'   ldd 0027
1352 8B09 F0 0B AA        ...   subb 0baa
1353 8B0C 82 00           ..    sbca #00
1354 8B0E FD 00 27        ..'   stad 0027
1355 8B11 20 05            .    bra 05
1356 8B13 5F              _     clrb
1357 8B14 4F              O     clra
1358 8B15 FD 00 27        ..'   stad 0027
1359 8B18 20 2D            -    bra 2d
1360 8B1A FC 00 27        ..'   ldd 0027
1361 8B1D 26 0D           &.    bne 0d
1362 8B1F CC 27 10        .'.   ldd #2710
1363 8B22 F0 0B AA        ...   subb 0baa
1364 8B25 82 00           ..    sbca #00
1365 8B27 FD 00 27        ..'   stad 0027
1366 8B2A 20 1B            .    bra 1b
1367 8B2C F6 0B AA        ...   ldab 0baa
1368 8B2F 4F              O     clra
1369 8B30 B3 00 27        ..'   subd 0027
1370 8B33 22 0D           ".    bhi 0d
1371 8B35 FC 00 27        ..'   ldd 0027
1372 8B38 F0 0B AA        ...   subb 0baa
1373 8B3B 82 00           ..    sbca #00
1374 8B3D FD 00 27        ..'   stad 0027
1375 8B40 20 05            .    bra 05
1376 8B42 5F              _     clrb
1377 8B43 4F              O     clra
1378 8B44 FD 00 27        ..'   stad 0027
1379 8B47 BD 9A 47        ..G   jsr 9a47
1380 8B4A C6 02           ..    ldab #02
1381 8B4C F7 00 36        ..6   stb 0036
1382 8B4F CE 00 1B        ...   ldx #001b
1383 8B52 1C 00           ..    bset add,x 00,x
1384 8B54 10              .     sba
1385 8B55 CC 02 33        ..3   ldd #0233
1386 8B58 FD 00 3B        ..;   stad 003b
1387 8B5B 7E 8C 72        ~.r   jmp 8c72
1388 8B5E F6 00 36        ..6   ldab 0036
1389 8B61 26 2C           &,    bne 2c
1390 8B63 F6 00 1F        ...   ldab 001f
1391 8B66 C4 40           .@    andb #40
1392 8B68 27 25           '%    beq 25
1393 8B6A FC 00 46        ..F   ldd 0046
1394 8B6D 83 00 64        ..d   subd #0064
1395 8B70 24 15           $.    bcc 15
1396 8B72 FE 00 46        ..F   ldx 0046
1397 8B75 08              .     inx
1398 8B76 FF 00 46        ..F   stx 0046
1399 8B79 FC 00 46        ..F   ldd 0046
1400 8B7C 83 00 64        ..d   subd #0064
1401 8B7F 25 06           %.    bcs 06
1402 8B81 CC 00 01        ...   ldd #0001
1403 8B84 FD 00 46        ..F   stad 0046
1404 8B87 BD 9A 47        ..G   jsr 9a47
1405 8B8A C6 02           ..    ldab #02
1406 8B8C F7 00 36        ..6   stb 0036
1407 8B8F CE 00 1B        ...   ldx #001b
1408 8B92 1C 00           ..    bset add,x 00,x
1409 8B94 10              .     sba
1410 8B95 CC 02 33        ..3   ldd #0233
1411 8B98 FD 00 3B        ..;   stad 003b
1412 8B9B 7E 8C 72        ~.r   jmp 8c72
1413 8B9E F6 00 36        ..6   ldab 0036
1414 8BA1 26 29           &)    bne 29
1415 8BA3 F6 00 1F        ...   ldab 001f
1416 8BA6 C4 40           .@    andb #40
1417 8BA8 27 22           '"    beq 22
1418 8BAA FC 00 46        ..F   ldd 0046
1419 8BAD 83 00 00        ...   subd #0000
1420 8BB0 23 12           #.    bls 12
1421 8BB2 FE 00 46        ..F   ldx 0046
1422 8BB5 09              .     dex
1423 8BB6 FF 00 46        ..F   stx 0046
1424 8BB9 FC 00 46        ..F   ldd 0046
1425 8BBC 26 06           &.    bne 06
1426 8BBE CC 00 63        ..c   ldd #0063
1427 8BC1 FD 00 46        ..F   stad 0046
1428 8BC4 BD 9A 47        ..G   jsr 9a47
1429 8BC7 C6 02           ..    ldab #02
1430 8BC9 F7 00 36        ..6   stb 0036
1431 8BCC CE 00 1B        ...   ldx #001b
1432 8BCF 1C 00           ..    bset add,x 00,x
1433 8BD1 10              .     sba
1434 8BD2 CC 02 33        ..3   ldd #0233
1435 8BD5 FD 00 3B        ..;   stad 003b
1436 8BD8 7E 8C 72        ~.r   jmp 8c72
1437 8BDB F6 00 1F        ...   ldab 001f
1438 8BDE C4 40           .@    andb #40
1439 8BE0 27 15           '.    beq 15
1440 8BE2 F6 00 19        ...   ldab 0019
1441 8BE5 C4 10           ..    andb #10
1442 8BE7 27 08           '.    beq 08
1443 8BE9 CE 00 19        ...   ldx #0019
1444 8BEC 1D 00           ..    bclr add,x 00,x
1445 8BEE 10              .     sba
1446 8BEF 20 06            .    bra 06
1447 8BF1 CE 00 19        ...   ldx #0019
1448 8BF4 1C 00           ..    bset add,x 00,x
1449 8BF6 10              .     sba
1450 8BF7 BD 9A 47        ..G   jsr 9a47
1451 8BFA 20 76            v    bra 76
1452 8BFC BD A3 85        ...   jsr a385
1453 8BFF F6 00 06        ...   ldab 0006
1454 8C02 C1 64           .d    cmpb #64
1455 8C04 24 24           $$    bcc 24
1456 8C06 BD 97 6F        ..o   jsr 976f
1457 8C09 F6 00 06        ...   ldab 0006
1458 8C0C BD D7 A0        ...   jsr d7a0
1459 8C0F 83 00 00        ...   subd #0000
1460 8C12 27 16           '.    beq 16
1461 8C14 F6 00 06        ...   ldab 0006
1462 8C17 C1 09           ..    cmpb #09
1463 8C19 26 03           &.    bne 03
1464 8C1B BD 97 6F        ..o   jsr 976f
1465 8C1E F6 00 06        ...   ldab 0006
1466 8C21 C1 45           .E    cmpb #45
1467 8C23 26 05           &.    bne 05
1468 8C25 C6 01           ..    ldab #01
1469 8C27 F7 00 06        ...   stb 0006
1470 8C2A F6 0E 6D        ..m   ldab 0e6d
1471 8C2D C1 01           ..    cmpb #01
1472 8C2F 26 11           &.    bne 11
1473 8C31 F6 00 06        ...   ldab 0006
1474 8C34 4F              O     clra
1475 8C35 05              .     asld
1476 8C36 C3 08 C8        ...   addd #08c8
1477 8C39 8F              .     xgdx
1478 8C3A EC 00           ..    ldd 00,x
1479 8C3C C4 7F           ..    andb #7f
1480 8C3E 4F              O     clra
1481 8C3F FD 00 46        ..F   stad 0046
1482 8C42 BD D3 11        ...   jsr d311
1483 8C45 83 00 00        ...   subd #0000
1484 8C48 26 12           &.    bne 12
1485 8C4A CE 00 1F        ...   ldx #001f
1486 8C4D 1C 00           ..    bset add,x 00,x
1487 8C4F 40              @     nega
1488 8C50 FC 00 27        ..'   ldd 0027
1489 8C53 83 27 0F        .'.   subd #270f
1490 8C56 23 02           #.    bls 02
1491 8C58 8D 19           ..    bsr dest 19
1492 8C5A 20 06            .    bra 06
1493 8C5C CE 00 1F        ...   ldx #001f
1494 8C5F 1D 00           ..    bclr add,x 00,x
1495 8C61 40              @     nega
1496 8C62 BD 9A 47        ..G   jsr 9a47
1497 8C65 20 0B            .    bra 0b
1498 8C67 BD A3 85        ...   jsr a385
1499 8C6A BD 85 AF        ...   jsr 85af
1500 8C6D 20 03            .    bra 03
1501 8C6F BD 85 AF        ...   jsr 85af
1502 8C72 39              9     rts
1503 8C73 F6 00 06        ...   ldab 0006
1504 8C76 4F              O     clra
1505 8C77 05              .     asld
1506 8C78 C3 08 00        ...   addd #0800
1507 8C7B 8F              .     xgdx
1508 8C7C EC 00           ..    ldd 00,x
1509 8C7E C4 FF           ..    andb #ff
1510 8C80 84 3F           .?    anda #3f
1511 8C82 FD 00 27        ..'   stad 0027
1512 8C85 F6 00 06        ...   ldab 0006
1513 8C88 4F              O     clra
1514 8C89 05              .     asld
1515 8C8A C3 08 C8        ...   addd #08c8
1516 8C8D 8F              .     xgdx
1517 8C8E EC 00           ..    ldd 00,x
1518 8C90 C4 7F           ..    andb #7f
1519 8C92 4F              O     clra
1520 8C93 FD 00 46        ..F   stad 0046
1521 8C96 F6 00 06        ...   ldab 0006
1522 8C99 4F              O     clra
1523 8C9A 05              .     asld
1524 8C9B C3 08 C8        ...   addd #08c8
1525 8C9E 8F              .     xgdx
1526 8C9F EC 00           ..    ldd 00,x
1527 8CA1 84 08           ..    anda #08
1528 8CA3 27 08           '.    beq 08
1529 8CA5 CE 00 19        ...   ldx #0019
1530 8CA8 1C 00           ..    bset add,x 00,x
1531 8CAA 10              .     sba
1532 8CAB 20 06            .    bra 06
1533 8CAD CE 00 19        ...   ldx #0019
1534 8CB0 1D 00           ..    bclr add,x 00,x
1535 8CB2 10              .     sba
1536 8CB3 39              9     rts
1537 8CB4 F6 00 1F        ...   ldab 001f
1538 8CB7 C4 02           ..    andb #02
1539 8CB9 27 12           '.    beq 12
1540 8CBB FC 0B B7        ...   ldd 0bb7
1541 8CBE FD 00 0D        ...   stad 000d
1542 8CC1 CE 00 1F        ...   ldx #001f
1543 8CC4 1D 00           ..    bclr add,x 00,x
1544 8CC6 02              .     idiv
1545 8CC7 7F 00 36        ..6   clr 0036
1546 8CCA 7E 8E 34        ~.4   jmp 8e34
1547 8CCD F6 00 09        ...   ldab 0009
1548 8CD0 4F              O     clra
1549 8CD1 BD FE 32        ..2   jsr fe32
1550 8CD4 8C EE 00        ...   cpx #ee00
1551 8CD7 00              .     test
1552 8CD8 8C F4 00        ...   cpx #f400
1553 8CDB 01              .     nop
1554 8CDC 8D 80           ..    bsr dest 80
1555 8CDE 00              .     test
1556 8CDF 01              .     nop
1557 8CE0 8E 29 00        .).   lds #2900
1558 8CE3 08              .     inx
1559 8CE4 8E 31 00        .1.   lds #3100
1560 8CE7 01              .     nop
1561 8CE8 8E 34 FF        .4.   lds #34ff
1562 8CEB F5 00 00        ...   bitb 0000
1563 8CEE BD 9B 63        ..c   jsr 9b63
1564 8CF1 7E 8E 34        ~.4   jmp 8e34
1565 8CF4 F6 00 36        ..6   ldab 0036
1566 8CF7 26 78           &x    bne 78
1567 8CF9 F6 0B C0        ...   ldab 0bc0
1568 8CFC C4 02           ..    andb #02
1569 8CFE 27 52           'R    beq 52
1570 8D00 F6 0B AA        ...   ldab 0baa
1571 8D03 C1 32           .2    cmpb #32
1572 8D05 24 22           $"    bcc 22
1573 8D07 F6 0B AA        ...   ldab 0baa
1574 8D0A 4F              O     clra
1575 8D0B F3 00 0D        ...   addd 000d
1576 8D0E FD 00 0D        ...   stad 000d
1577 8D11 F6 0B AA        ...   ldab 0baa
1578 8D14 4F              O     clra
1579 8D15 37              7     pshb
1580 8D16 36              6     psha
1581 8D17 CC 00 FA        ...   ldd #00fa
1582 8D1A BD FB BA        ...   jsr fbba
1583 8D1D B3 00 0D        ...   subd 000d
1584 8D20 24 05           $.    bcc 05
1585 8D22 5F              _     clrb
1586 8D23 4F              O     clra
1587 8D24 FD 00 0D        ...   stad 000d
1588 8D27 20 27            '    bra 27
1589 8D29 F6 0B AA        ...   ldab 0baa
1590 8D2C C1 32           .2    cmpb #32
1591 8D2E 26 20           &     bne 20
1592 8D30 F6 0B AA        ...   ldab 0baa
1593 8D33 4F              O     clra
1594 8D34 F3 00 0D        ...   addd 000d
1595 8D37 FD 00 0D        ...   stad 000d
1596 8D3A F6 0B AA        ...   ldab 0baa
1597 8D3D 4F              O     clra
1598 8D3E 37              7     pshb
1599 8D3F 36              6     psha
1600 8D40 CC 00 C7        ...   ldd #00c7
1601 8D43 BD FB BA        ...   jsr fbba
1602 8D46 B3 00 0D        ...   subd 000d
1603 8D49 24 05           $.    bcc 05
1604 8D4B 5F              _     clrb
1605 8D4C 4F              O     clra
1606 8D4D FD 00 0D        ...   stad 000d
1607 8D50 20 17            .    bra 17
1608 8D52 F6 0B AA        ...   ldab 0baa
1609 8D55 4F              O     clra
1610 8D56 F3 00 0D        ...   addd 000d
1611 8D59 FD 00 0D        ...   stad 000d
1612 8D5C FC 00 0D        ...   ldd 000d
1613 8D5F 83 27 0F        .'.   subd #270f
1614 8D62 23 05           #.    bls 05
1615 8D64 5F              _     clrb
1616 8D65 4F              O     clra
1617 8D66 FD 00 0D        ...   stad 000d
1618 8D69 BD 9B 63        ..c   jsr 9b63
1619 8D6C C6 02           ..    ldab #02
1620 8D6E F7 00 36        ..6   stb 0036
1621 8D71 CE 00 1B        ...   ldx #001b
1622 8D74 1C 00           ..    bset add,x 00,x
1623 8D76 10              .     sba
1624 8D77 CC 02 33        ..3   ldd #0233
1625 8D7A FD 00 3B        ..;   stad 003b
1626 8D7D 7E 8E 34        ~.4   jmp 8e34
1627 8D80 F6 00 36        ..6   ldab 0036
1628 8D83 27 03           '.    beq 03
1629 8D85 7E 8E 1B        ~..   jmp 8e1b
1630 8D88 F6 0B C0        ...   ldab 0bc0
1631 8D8B C4 02           ..    andb #02
1632 8D8D 27 57           'W    beq 57
1633 8D8F FC 00 0D        ...   ldd 000d
1634 8D92 26 18           &.    bne 18
1635 8D94 F6 0B AA        ...   ldab 0baa
1636 8D97 C1 32           .2    cmpb #32
1637 8D99 24 11           $.    bcc 11
1638 8D9B F6 0B AA        ...   ldab 0baa
1639 8D9E 4F              O     clra
1640 8D9F 37              7     pshb
1641 8DA0 36              6     psha
1642 8DA1 CC 00 FA        ...   ldd #00fa
1643 8DA4 BD FB BA        ...   jsr fbba
1644 8DA7 FD 00 0D        ...   stad 000d
1645 8DAA 20 38            8    bra 38
1646 8DAC FC 00 0D        ...   ldd 000d
1647 8DAF 26 18           &.    bne 18
1648 8DB1 F6 0B AA        ...   ldab 0baa
1649 8DB4 C1 32           .2    cmpb #32
1650 8DB6 26 11           &.    bne 11
1651 8DB8 F6 0B AA        ...   ldab 0baa
1652 8DBB 4F              O     clra
1653 8DBC 37              7     pshb
1654 8DBD 36              6     psha
1655 8DBE CC 00 C7        ...   ldd #00c7
1656 8DC1 BD FB BA        ...   jsr fbba
1657 8DC4 FD 00 0D        ...   stad 000d
1658 8DC7 20 1B            .    bra 1b
1659 8DC9 F6 0B AA        ...   ldab 0baa
1660 8DCC 4F              O     clra
1661 8DCD B3 00 0D        ...   subd 000d
1662 8DD0 22 0D           ".    bhi 0d
1663 8DD2 FC 00 0D        ...   ldd 000d
1664 8DD5 F0 0B AA        ...   subb 0baa
1665 8DD8 82 00           ..    sbca #00
1666 8DDA FD 00 0D        ...   stad 000d
1667 8DDD 20 05            .    bra 05
1668 8DDF 5F              _     clrb
1669 8DE0 4F              O     clra
1670 8DE1 FD 00 0D        ...   stad 000d
1671 8DE4 20 2D            -    bra 2d
1672 8DE6 FC 00 0D        ...   ldd 000d
1673 8DE9 26 0D           &.    bne 0d
1674 8DEB CC 27 10        .'.   ldd #2710
1675 8DEE F0 0B AA        ...   subb 0baa
1676 8DF1 82 00           ..    sbca #00
1677 8DF3 FD 00 0D        ...   stad 000d
1678 8DF6 20 1B            .    bra 1b
1679 8DF8 F6 0B AA        ...   ldab 0baa
1680 8DFB 4F              O     clra
1681 8DFC B3 00 0D        ...   subd 000d
1682 8DFF 22 0D           ".    bhi 0d
1683 8E01 FC 00 0D        ...   ldd 000d
1684 8E04 F0 0B AA        ...   subb 0baa
1685 8E07 82 00           ..    sbca #00
1686 8E09 FD 00 0D        ...   stad 000d
1687 8E0C 20 05            .    bra 05
1688 8E0E 5F              _     clrb
1689 8E0F 4F              O     clra
1690 8E10 FD 00 0D        ...   stad 000d
1691 8E13 BD 9B 63        ..c   jsr 9b63
1692 8E16 C6 02           ..    ldab #02
1693 8E18 F7 00 36        ..6   stb 0036
1694 8E1B CE 00 1B        ...   ldx #001b
1695 8E1E 1C 00           ..    bset add,x 00,x
1696 8E20 10              .     sba
1697 8E21 CC 02 33        ..3   ldd #0233
1698 8E24 FD 00 3B        ..;   stad 003b
1699 8E27 20 0B            .    bra 0b
1700 8E29 BD A4 4F        ..O   jsr a44f
1701 8E2C BD 85 AF        ...   jsr 85af
1702 8E2F 20 03            .    bra 03
1703 8E31 BD 85 AF        ...   jsr 85af
1704 8E34 39              9     rts
1705 8E35 F6 00 1F        ...   ldab 001f
1706 8E38 C4 02           ..    andb #02
1707 8E3A 27 1E           '.    beq 1e
1708 8E3C 7F 00 48        ..H   clr 0048
1709 8E3F F6 0B C0        ...   ldab 0bc0
1710 8E42 F7 00 67        ..g   stb 0067
1711 8E45 F6 0E 6D        ..m   ldab 0e6d
1712 8E48 F7 0E 6F        ..o   stb 0e6f
1713 8E4B F6 0E 6E        ..n   ldab 0e6e
1714 8E4E F7 0E 70        ..p   stb 0e70
1715 8E51 CE 00 1F        ...   ldx #001f
1716 8E54 1D 00           ..    bclr add,x 00,x
1717 8E56 02              .     idiv
1718 8E57 7E 8F 0C        ~..   jmp 8f0c
1719 8E5A F6 00 09        ...   ldab 0009
1720 8E5D 4F              O     clra
1721 8E5E BD FE 32        ..2   jsr fe32
1722 8E61 8E 7B 00        .{.   lds #7b00
1723 8E64 00              .     test
1724 8E65 8E 81 00        ...   lds #8100
1725 8E68 01              .     nop
1726 8E69 8E 87 00        ...   lds #8700
1727 8E6C 04              .     lsrd
1728 8E6D 8F              .     xgdx
1729 8E6E 01              .     nop
1730 8E6F 00              .     test
1731 8E70 05              .     asld
1732 8E71 8F              .     xgdx
1733 8E72 09              .     dex
1734 8E73 00              .     test
1735 8E74 01              .     nop
1736 8E75 8F              .     xgdx
1737 8E76 0C              .     clc
1738 8E77 FF F5 00        ...   stx f500
1739 8E7A 00              .     test
1740 8E7B BD 9C 15        ...   jsr 9c15
1741 8E7E 7E 8F 0C        ~..   jmp 8f0c
1742 8E81 BD A7 5F        .._   jsr a75f
1743 8E84 7E 8F 0C        ~..   jmp 8f0c
1744 8E87 F6 00 48        ..H   ldab 0048
1745 8E8A C1 08           ..    cmpb #08
1746 8E8C 25 05           %.    bcs 05
1747 8E8E F6 00 67        ..g   ldab 0067
1748 8E91 2D 03           -.    blt 03
1749 8E93 BD A4 59        ..Y   jsr a459
1750 8E96 F6 00 48        ..H   ldab 0048
1751 8E99 C1 0A           ..    cmpb #0a
1752 8E9B 24 5F           $_    bcc 5f
1753 8E9D 7C 00 48        |.H   inc 0048
1754 8EA0 F6 00 48        ..H   ldab 0048
1755 8EA3 C1 01           ..    cmpb #01
1756 8EA5 26 0F           &.    bne 0f
1757 8EA7 F6 00 67        ..g   ldab 0067
1758 8EAA C4 02           ..    andb #02
1759 8EAC 26 08           &.    bne 08
1760 8EAE F6 00 48        ..H   ldab 0048
1761 8EB1 CB 02           ..    addb #02
1762 8EB3 F7 00 48        ..H   stb 0048
1763 8EB6 F6 00 48        ..H   ldab 0048
1764 8EB9 C1 02           ..    cmpb #02
1765 8EBB 26 0A           &.    bne 0a
1766 8EBD F6 00 67        ..g   ldab 0067
1767 8EC0 C4 10           ..    andb #10
1768 8EC2 26 03           &.    bne 03
1769 8EC4 7C 00 48        |.H   inc 0048
1770 8EC7 F6 00 48        ..H   ldab 0048
1771 8ECA C1 06           ..    cmpb #06
1772 8ECC 26 0F           &.    bne 0f
1773 8ECE F6 00 67        ..g   ldab 0067
1774 8ED1 C4 08           ..    andb #08
1775 8ED3 26 08           &.    bne 08
1776 8ED5 C6 02           ..    ldab #02
1777 8ED7 FB 00 48        ..H   addb 0048
1778 8EDA F7 00 48        ..H   stb 0048
1779 8EDD F6 00 48        ..H   ldab 0048
1780 8EE0 C1 0A           ..    cmpb #0a
1781 8EE2 26 08           &.    bne 08
1782 8EE4 F6 00 67        ..g   ldab 0067
1783 8EE7 2D 03           -.    blt 03
1784 8EE9 7C 00 48        |.H   inc 0048
1785 8EEC F6 00 48        ..H   ldab 0048
1786 8EEF C1 0A           ..    cmpb #0a
1787 8EF1 23 09           #.    bls 09
1788 8EF3 7F 00 48        ..H   clr 0048
1789 8EF6 F6 0B C0        ...   ldab 0bc0
1790 8EF9 F7 00 67        ..g   stb 0067
1791 8EFC BD 9C 15        ...   jsr 9c15
1792 8EFF 20 0B            .    bra 0b
1793 8F01 BD A4 59        ..Y   jsr a459
1794 8F04 BD 85 AF        ...   jsr 85af
1795 8F07 20 03            .    bra 03
1796 8F09 BD 85 AF        ...   jsr 85af
1797 8F0C 39              9     rts
1798 8F0D F6 00 1F        ...   ldab 001f
1799 8F10 C4 02           ..    andb #02
1800 8F12 27 1D           '.    beq 1d
1801 8F14 C6 01           ..    ldab #01
1802 8F16 F7 00 22        .."   stb 0022
1803 8F19 F6 0B AF        ...   ldab 0baf
1804 8F1C F7 00 24        ..$   stb 0024
1805 8F1F F6 0B B4        ...   ldab 0bb4
1806 8F22 F7 00 2A        ..*   stb 002a
1807 8F25 CE 00 1F        ...   ldx #001f
1808 8F28 1D 00           ..    bclr add,x 00,x
1809 8F2A 02              .     idiv
1810 8F2B 7F 00 36        ..6   clr 0036
1811 8F2E 7E 90 D0        ~..   jmp 90d0
1812 8F31 F6 00 09        ...   ldab 0009
1813 8F34 4F              O     clra
1814 8F35 BD FE 16        ...   jsr fe16
1815 8F38 00              .     test
1816 8F39 00              .     test
1817 8F3A 00              .     test
1818 8F3B 0B              .     sev
1819 8F3C 90 D0 8F        ...   suba d0
1820 8F3F 56              V     rorb
1821 8F40 8F              .     xgdx
1822 8F41 5C              \     incb
1823 8F42 8F              .     xgdx
1824 8F43 B3 90 0C        ...   subd 900c
1825 8F46 90 62 90        .b.   suba 62
1826 8F49 BA 90 D0        ...   ora 90d0
1827 8F4C 90 D0 90        ...   suba d0
1828 8F4F D0 90 D0        ...   subb 90
1829 8F52 90 C5 90        ...   suba c5
1830 8F55 CD              .     illegal
1831 8F56 BD 9D 2A        ..*   jsr 9d2a
1832 8F59 7E 90 D0        ~..   jmp 90d0
1833 8F5C F6 00 36        ..6   ldab 0036
1834 8F5F 26 43           &C    bne 43
1835 8F61 F6 00 24        ..$   ldab 0024
1836 8F64 C1 64           .d    cmpb #64
1837 8F66 24 34           $4    bcc 34
1838 8F68 7C 00 24        |.$   inc 0024
1839 8F6B F6 00 24        ..$   ldab 0024
1840 8F6E F7 00 06        ...   stb 0006
1841 8F71 F6 00 06        ...   ldab 0006
1842 8F74 BD D7 A0        ...   jsr d7a0
1843 8F77 83 00 00        ...   subd #0000
1844 8F7A 27 03           '.    beq 03
1845 8F7C 7C 00 24        |.$   inc 0024
1846 8F7F F6 00 24        ..$   ldab 0024
1847 8F82 C1 64           .d    cmpb #64
1848 8F84 26 03           &.    bne 03
1849 8F86 7F 00 24        ..$   clr 0024
1850 8F89 F6 00 24        ..$   ldab 0024
1851 8F8C 4F              O     clra
1852 8F8D CE 00 05        ...   ldx #0005
1853 8F90 02              .     idiv
1854 8F91 5D              ]     tstb
1855 8F92 26 08           &.    bne 08
1856 8F94 F6 00 24        ..$   ldab 0024
1857 8F97 27 03           '.    beq 03
1858 8F99 7C 00 24        |.$   inc 0024
1859 8F9C BD 9D 2A        ..*   jsr 9d2a
1860 8F9F C6 02           ..    ldab #02
1861 8FA1 F7 00 36        ..6   stb 0036
1862 8FA4 CE 00 1B        ...   ldx #001b
1863 8FA7 1C 00           ..    bset add,x 00,x
1864 8FA9 10              .     sba
1865 8FAA CC 02 33        ..3   ldd #0233
1866 8FAD FD 00 3B        ..;   stad 003b
1867 8FB0 7E 90 D0        ~..   jmp 90d0
1868 8FB3 F6 00 36        ..6   ldab 0036
1869 8FB6 26 45           &E    bne 45
1870 8FB8 F6 00 24        ..$   ldab 0024
1871 8FBB C1 00           ..    cmpb #00
1872 8FBD 23 2C           #,    bls 2c
1873 8FBF 7A 00 24        z.$   dec 0024
1874 8FC2 F6 00 24        ..$   ldab 0024
1875 8FC5 4F              O     clra
1876 8FC6 CE 00 05        ...   ldx #0005
1877 8FC9 02              .     idiv
1878 8FCA 5D              ]     tstb
1879 8FCB 26 08           &.    bne 08
1880 8FCD F6 00 24        ..$   ldab 0024
1881 8FD0 27 03           '.    beq 03
1882 8FD2 7A 00 24        z.$   dec 0024
1883 8FD5 F6 00 24        ..$   ldab 0024
1884 8FD8 F7 00 06        ...   stb 0006
1885 8FDB F6 00 06        ...   ldab 0006
1886 8FDE BD D7 A0        ...   jsr d7a0
1887 8FE1 83 00 00        ...   subd #0000
1888 8FE4 27 03           '.    beq 03
1889 8FE6 7A 00 24        z.$   dec 0024
1890 8FE9 20 0A            .    bra 0a
1891 8FEB F6 00 24        ..$   ldab 0024
1892 8FEE 26 05           &.    bne 05
1893 8FF0 C6 62           .b    ldab #62
1894 8FF2 F7 00 24        ..$   stb 0024
1895 8FF5 BD 9D 2A        ..*   jsr 9d2a
1896 8FF8 C6 02           ..    ldab #02
1897 8FFA F7 00 36        ..6   stb 0036
1898 8FFD CE 00 1B        ...   ldx #001b
1899 9000 1C 00           ..    bset add,x 00,x
1900 9002 10              .     sba
1901 9003 CC 02 33        ..3   ldd #0233
1902 9006 FD 00 3B        ..;   stad 003b
1903 9009 7E 90 D0        ~..   jmp 90d0
1904 900C F6 00 36        ..6   ldab 0036
1905 900F 26 43           &C    bne 43
1906 9011 F6 00 2A        ..*   ldab 002a
1907 9014 C1 64           .d    cmpb #64
1908 9016 24 34           $4    bcc 34
1909 9018 7C 00 2A        |.*   inc 002a
1910 901B F6 00 2A        ..*   ldab 002a
1911 901E F7 00 06        ...   stb 0006
1912 9021 F6 00 06        ...   ldab 0006
1913 9024 BD D7 A0        ...   jsr d7a0
1914 9027 83 00 00        ...   subd #0000
1915 902A 27 03           '.    beq 03
1916 902C 7C 00 2A        |.*   inc 002a
1917 902F F6 00 2A        ..*   ldab 002a
1918 9032 C1 64           .d    cmpb #64
1919 9034 26 03           &.    bne 03
1920 9036 7F 00 2A        ..*   clr 002a
1921 9039 F6 00 2A        ..*   ldab 002a
1922 903C 4F              O     clra
1923 903D CE 00 05        ...   ldx #0005
1924 9040 02              .     idiv
1925 9041 5D              ]     tstb
1926 9042 26 08           &.    bne 08
1927 9044 F6 00 2A        ..*   ldab 002a
1928 9047 27 03           '.    beq 03
1929 9049 7C 00 2A        |.*   inc 002a
1930 904C BD 9D 2A        ..*   jsr 9d2a
1931 904F C6 02           ..    ldab #02
1932 9051 F7 00 36        ..6   stb 0036
1933 9054 CE 00 1B        ...   ldx #001b
1934 9057 1C 00           ..    bset add,x 00,x
1935 9059 10              .     sba
1936 905A CC 02 33        ..3   ldd #0233
1937 905D FD 00 3B        ..;   stad 003b
1938 9060 20 6E            n    bra 6e
1939 9062 F6 00 36        ..6   ldab 0036
1940 9065 26 45           &E    bne 45
1941 9067 F6 00 2A        ..*   ldab 002a
1942 906A C1 00           ..    cmpb #00
1943 906C 23 2C           #,    bls 2c
1944 906E 7A 00 2A        z.*   dec 002a
1945 9071 F6 00 2A        ..*   ldab 002a
1946 9074 4F              O     clra
1947 9075 CE 00 05        ...   ldx #0005
1948 9078 02              .     idiv
1949 9079 5D              ]     tstb
1950 907A 26 08           &.    bne 08
1951 907C F6 00 2A        ..*   ldab 002a
1952 907F 27 03           '.    beq 03
1953 9081 7A 00 2A        z.*   dec 002a
1954 9084 F6 00 2A        ..*   ldab 002a
1955 9087 F7 00 06        ...   stb 0006
1956 908A F6 00 06        ...   ldab 0006
1957 908D BD D7 A0        ...   jsr d7a0
1958 9090 83 00 00        ...   subd #0000
1959 9093 27 03           '.    beq 03
1960 9095 7A 00 2A        z.*   dec 002a
1961 9098 20 0A            .    bra 0a
1962 909A F6 00 2A        ..*   ldab 002a
1963 909D 26 05           &.    bne 05
1964 909F C6 62           .b    ldab #62
1965 90A1 F7 00 2A        ..*   stb 002a
1966 90A4 BD 9D 2A        ..*   jsr 9d2a
1967 90A7 C6 02           ..    ldab #02
1968 90A9 F7 00 36        ..6   stb 0036
1969 90AC CE 00 1B        ...   ldx #001b
1970 90AF 1C 00           ..    bset add,x 00,x
1971 90B1 10              .     sba
1972 90B2 CC 02 33        ..3   ldd #0233
1973 90B5 FD 00 3B        ..;   stad 003b
1974 90B8 20 16            .    bra 16
1975 90BA BD A5 1E        ...   jsr a51e
1976 90BD BD AA 9A        ...   jsr aa9a
1977 90C0 BD 9D 2A        ..*   jsr 9d2a
1978 90C3 20 0B            .    bra 0b
1979 90C5 BD A5 1E        ...   jsr a51e
1980 90C8 BD 85 AF        ...   jsr 85af
1981 90CB 20 03            .    bra 03
1982 90CD BD 85 AF        ...   jsr 85af
1983 90D0 39              9     rts
1984 90D1 F6 00 1F        ...   ldab 001f
1985 90D4 C4 02           ..    andb #02
1986 90D6 27 14           '.    beq 14
1987 90D8 CE 00 1F        ...   ldx #001f
1988 90DB 1D 00           ..    bclr add,x 00,x
1989 90DD 02              .     idiv
1990 90DE CE 00 19        ...   ldx #0019
1991 90E1 1C 00           ..    bset add,x 00,x
1992 90E3 80 7F           ..    suba #7f
1993 90E5 00              .     test
1994 90E6 09              .     dex
1995 90E7 7F 00 0A        ...   clr 000a
1996 90EA 20 40            @    bra 40
1997 90EC F6 00 09        ...   ldab 0009
1998 90EF 4F              O     clra
1999 90F0 BD FE 32        ..2   jsr fe32
2000 90F3 91 0D 00        ...   cmpa 0d
2001 90F6 00              .     test
2002 90F7 91 15 00        ...   cmpa 15
2003 90FA 01              .     nop
2004 90FB 91 19 00        ...   cmpa 19
2005 90FE 01              .     nop
2006 90FF 91 1E 00        ...   cmpa 1e
2007 9102 01              .     nop
2008 9103 91 23 00        .#.   cmpa 23
2009 9106 08              .     inx
2010 9107 91 26 FF        .&.   cmpa 26
2011 910A F5 00 00        ...   bitb 0000
2012 910D CC B0 AD        ...   ldd #b0ad
2013 9110 BD C0 BA        ...   jsr c0ba
2014 9113 20 17            .    bra 17
2015 9115 8D 16           ..    bsr dest 16
2016 9117 20 13            .    bra 13
2017 9119 BD 91 C6        ...   jsr 91c6
2018 911C 20 0E            .    bra 0e
2019 911E BD 92 5A        ..Z   jsr 925a
2020 9121 20 09            .    bra 09
2021 9123 BD 85 AF        ...   jsr 85af
2022 9126 7F 00 09        ...   clr 0009
2023 9129 7F 00 0A        ...   clr 000a
2024 912C 39              9     rts
2025 912D F6 00 19        ...   ldab 0019
2026 9130 2C 28           ,(    bge 28
2027 9132 BD A9 CF        ...   jsr a9cf
2028 9135 C6 50           .P    ldab #50
2029 9137 F7 0A 90        ...   stb 0a90
2030 913A C6 20           .     ldab #20
2031 913C F7 0B 8D        ...   stb 0b8d
2032 913F C6 20           .     ldab #20
2033 9141 F7 0B 8E        ...   stb 0b8e
2034 9144 C6 28           .(    ldab #28
2035 9146 F7 0B 8F        ...   stb 0b8f
2036 9149 7F 00 54        ..T   clr 0054
2037 914C 7F 00 60        ..`   clr 0060
2038 914F CE 00 19        ...   ldx #0019
2039 9152 1D 00           ..    bclr add,x 00,x
2040 9154 80 7F           ..    suba #7f
2041 9156 00              .     test
2042 9157 36              6     psha
2043 9158 20 6B            k    bra 6b
2044 915A F6 00 0A        ...   ldab 000a
2045 915D 4F              O     clra
2046 915E BD FE 16        ...   jsr fe16
2047 9161 00              .     test
2048 9162 00              .     test
2049 9163 00              .     test
2050 9164 0B              .     sev
2051 9165 91 C5 91        ...   cmpa c5
2052 9168 7F 91 84        ...   clr 9184
2053 916B 91 89 91        ...   cmpa 89
2054 916E 8E 91 9F        ...   lds #919f
2055 9171 91 B0 91        ...   cmpa b0
2056 9174 C5 91           ..    bitb #91
2057 9176 C5 91           ..    bitb #91
2058 9178 C5 91           ..    bitb #91
2059 917A B5 91 BA        ...   bita 91ba
2060 917D 91 C2 BD        ...   cmpa c2
2061 9180 9D 7E 20        .~    jsr 7e
2062 9183 41              A     illegal
2063 9184 BD A8 64        ..d   jsr a864
2064 9187 20 3C            <    bra 3c
2065 9189 BD A8 D5        ...   jsr a8d5
2066 918C 20 37            7    bra 37
2067 918E BD A8 96        ...   jsr a896
2068 9191 CE 00 1B        ...   ldx #001b
2069 9194 1C 00           ..    bset add,x 00,x
2070 9196 10              .     sba
2071 9197 CC 02 33        ..3   ldd #0233
2072 919A FD 00 3B        ..;   stad 003b
2073 919D 20 26            &    bra 26
2074 919F BD A8 E5        ...   jsr a8e5
2075 91A2 CE 00 1B        ...   ldx #001b
2076 91A5 1C 00           ..    bset add,x 00,x
2077 91A7 10              .     sba
2078 91A8 CC 02 33        ..3   ldd #0233
2079 91AB FD 00 3B        ..;   stad 003b
2080 91AE 20 15            .    bra 15
2081 91B0 BD A9 21        ..!   jsr a921
2082 91B3 20 10            .    bra 10
2083 91B5 BD A9 7A        ..z   jsr a97a
2084 91B8 20 0B            .    bra 0b
2085 91BA BD A5 7D        ..}   jsr a57d
2086 91BD BD 85 AF        ...   jsr 85af
2087 91C0 20 03            .    bra 03
2088 91C2 BD 85 AF        ...   jsr 85af
2089 91C5 39              9     rts
2090 91C6 F6 00 19        ...   ldab 0019
2091 91C9 2C 28           ,(    bge 28
2092 91CB BD AA 0A        ...   jsr aa0a
2093 91CE C6 53           .S    ldab #53
2094 91D0 F7 0A 90        ...   stb 0a90
2095 91D3 C6 20           .     ldab #20
2096 91D5 F7 0A 9D        ...   stb 0a9d
2097 91D8 C6 20           .     ldab #20
2098 91DA F7 0A 9E        ...   stb 0a9e
2099 91DD C6 28           .(    ldab #28
2100 91DF F7 0A 9F        ...   stb 0a9f
2101 91E2 7F 00 54        ..T   clr 0054
2102 91E5 7F 00 60        ..`   clr 0060
2103 91E8 CE 00 19        ...   ldx #0019
2104 91EB 1D 00           ..    bclr add,x 00,x
2105 91ED 80 7F           ..    suba #7f
2106 91EF 00              .     test
2107 91F0 36              6     psha
2108 91F1 20 66            f    bra 66
2109 91F3 F6 00 0A        ...   ldab 000a
2110 91F6 4F              O     clra
2111 91F7 BD FE 16        ...   jsr fe16
2112 91FA 00              .     test
2113 91FB 00              .     test
2114 91FC 00              .     test
2115 91FD 0B              .     sev
2116 91FE 92 59 92        .Y.   sbca 59
2117 9201 18              .     illegal
2118 9202 92 1D 92        ...   sbca 1d
2119 9205 22 92           ".    bhi 92
2120 9207 27 92           '.    beq 92
2121 9209 38              8     pulx
2122 920A 92 49 92        .I.   sbca 49
2123 920D 59              Y     rolb
2124 920E 92 59 92        .Y.   sbca 59
2125 9211 59              Y     rolb
2126 9212 92 59 92        .Y.   sbca 59
2127 9215 4E              N     illegal
2128 9216 92 56 BD        .V.   sbca 56
2129 9219 9D 7E 20        .~    jsr 7e
2130 921C 3C              <     pshx
2131 921D BD A8 64        ..d   jsr a864
2132 9220 20 37            7    bra 37
2133 9222 BD A8 D5        ...   jsr a8d5
2134 9225 20 32            2    bra 32
2135 9227 BD A8 96        ...   jsr a896
2136 922A CE 00 1B        ...   ldx #001b
2137 922D 1C 00           ..    bset add,x 00,x
2138 922F 10              .     sba
2139 9230 CC 02 33        ..3   ldd #0233
2140 9233 FD 00 3B        ..;   stad 003b
2141 9236 20 21            !    bra 21
2142 9238 BD A8 E5        ...   jsr a8e5
2143 923B CE 00 1B        ...   ldx #001b
2144 923E 1C 00           ..    bset add,x 00,x
2145 9240 10              .     sba
2146 9241 CC 02 33        ..3   ldd #0233
2147 9244 FD 00 3B        ..;   stad 003b
2148 9247 20 10            .    bra 10
2149 9249 BD A9 21        ..!   jsr a921
2150 924C 20 0B            .    bra 0b
2151 924E BD A5 AC        ...   jsr a5ac
2152 9251 BD 85 AF        ...   jsr 85af
2153 9254 20 03            .    bra 03
2154 9256 BD 85 AF        ...   jsr 85af
2155 9259 39              9     rts
2156 925A F6 00 19        ...   ldab 0019
2157 925D 2C 28           ,(    bge 28
2158 925F BD AA 3F        ..?   jsr aa3f
2159 9262 C6 49           .I    ldab #49
2160 9264 F7 0A 90        ...   stb 0a90
2161 9267 C6 20           .     ldab #20
2162 9269 F7 0A 9D        ...   stb 0a9d
2163 926C C6 20           .     ldab #20
2164 926E F7 0A 9E        ...   stb 0a9e
2165 9271 C6 28           .(    ldab #28
2166 9273 F7 0A 9F        ...   stb 0a9f
2167 9276 7F 00 54        ..T   clr 0054
2168 9279 7F 00 60        ..`   clr 0060
2169 927C CE 00 19        ...   ldx #0019
2170 927F 1D 00           ..    bclr add,x 00,x
2171 9281 80 7F           ..    suba #7f
2172 9283 00              .     test
2173 9284 36              6     psha
2174 9285 20 66            f    bra 66
2175 9287 F6 00 0A        ...   ldab 000a
2176 928A 4F              O     clra
2177 928B BD FE 16        ...   jsr fe16
2178 928E 00              .     test
2179 928F 00              .     test
2180 9290 00              .     test
2181 9291 0B              .     sev
2182 9292 92 ED 92        ...   sbca ed
2183 9295 AC 92           ..    cpx 92,x
2184 9297 B1 92 B6        ...   cmpa 92b6
2185 929A 92 BB 92        ...   sbca bb
2186 929D CC 92 DD        ...   ldd #92dd
2187 92A0 92 ED 92        ...   sbca ed
2188 92A3 ED 92           ..    stad 92,x
2189 92A5 ED 92           ..    stad 92,x
2190 92A7 ED 92           ..    stad 92,x
2191 92A9 E2 92           ..    sbcb 92,x
2192 92AB EA BD           ..    orb bd,x
2193 92AD 9D 7E 20        .~    jsr 7e
2194 92B0 3C              <     pshx
2195 92B1 BD A8 64        ..d   jsr a864
2196 92B4 20 37            7    bra 37
2197 92B6 BD A8 D5        ...   jsr a8d5
2198 92B9 20 32            2    bra 32
2199 92BB BD A8 96        ...   jsr a896
2200 92BE CE 00 1B        ...   ldx #001b
2201 92C1 1C 00           ..    bset add,x 00,x
2202 92C3 10              .     sba
2203 92C4 CC 02 33        ..3   ldd #0233
2204 92C7 FD 00 3B        ..;   stad 003b
2205 92CA 20 21            !    bra 21
2206 92CC BD A8 E5        ...   jsr a8e5
2207 92CF CE 00 1B        ...   ldx #001b
2208 92D2 1C 00           ..    bset add,x 00,x
2209 92D4 10              .     sba
2210 92D5 CC 02 33        ..3   ldd #0233
2211 92D8 FD 00 3B        ..;   stad 003b
2212 92DB 20 10            .    bra 10
2213 92DD BD A9 21        ..!   jsr a921
2214 92E0 20 0B            .    bra 0b
2215 92E2 BD A5 D5        ...   jsr a5d5
2216 92E5 BD 85 AF        ...   jsr 85af
2217 92E8 20 03            .    bra 03
2218 92EA BD 85 AF        ...   jsr 85af
2219 92ED 39              9     rts
2220 92EE F6 0C DC        ...   ldab 0cdc
2221 92F1 4F              O     clra
2222 92F2 37              7     pshb
2223 92F3 36              6     psha
2224 92F4 CC 00 64        ..d   ldd #0064
2225 92F7 BD FB BA        ...   jsr fbba
2226 92FA FD 0C E9        ...   stad 0ce9
2227 92FD BD D6 F6        ...   jsr d6f6
2228 9300 FC 0C E9        ...   ldd 0ce9
2229 9303 F3 0B EF        ...   addd 0bef
2230 9306 FD 0C F1        ...   stad 0cf1
2231 9309 FE 0C F5        ...   ldx 0cf5
2232 930C 3C              <     pshx
2233 930D FC 0C F3        ...   ldd 0cf3
2234 9310 37              7     pshb
2235 9311 36              6     psha
2236 9312 FE 0C F9        ...   ldx 0cf9
2237 9315 3C              <     pshx
2238 9316 FC 0C F7        ...   ldd 0cf7
2239 9319 BD FC 25        ..%   jsr fc25
2240 931C 37              7     pshb
2241 931D 36              6     psha
2242 931E FE 0C FD        ...   ldx 0cfd
2243 9321 3C              <     pshx
2244 9322 FC 0C FB        ...   ldd 0cfb
2245 9325 BD FC 25        ..%   jsr fc25
2246 9328 37              7     pshb
2247 9329 36              6     psha
2248 932A FE 0D 01        ...   ldx 0d01
2249 932D 3C              <     pshx
2250 932E FC 0C FF        ...   ldd 0cff
2251 9331 BD FC 25        ..%   jsr fc25
2252 9334 37              7     pshb
2253 9335 36              6     psha
2254 9336 FE 0D 05        ...   ldx 0d05
2255 9339 3C              <     pshx
2256 933A FC 0D 03        ...   ldd 0d03
2257 933D BD FC 25        ..%   jsr fc25
2258 9340 FD 0D F3        ...   stad 0df3
2259 9343 32              2     pula
2260 9344 33              3     pulb
2261 9345 FD 0D F5        ...   stad 0df5
2262 9348 FE 0D F9        ...   ldx 0df9
2263 934B 3C              <     pshx
2264 934C FC 0D F7        ...   ldd 0df7
2265 934F 37              7     pshb
2266 9350 36              6     psha
2267 9351 FE 0D F5        ...   ldx 0df5
2268 9354 3C              <     pshx
2269 9355 FC 0D F3        ...   ldd 0df3
2270 9358 BD FC 25        ..%   jsr fc25
2271 935B FD 0D EF        ...   stad 0def
2272 935E 32              2     pula
2273 935F 33              3     pulb
2274 9360 FD 0D F1        ...   stad 0df1
2275 9363 F6 20 00        . .   ldab 2000
2276 9366 C4 40           .@    andb #40
2277 9368 27 37           '7    beq 37
2278 936A F6 00 1F        ...   ldab 001f
2279 936D C4 02           ..    andb #02
2280 936F 27 1F           '.    beq 1f
2281 9371 BD 97 E9        ...   jsr 97e9
2282 9374 CE 00 1F        ...   ldx #001f
2283 9377 1D 00           ..    bclr add,x 00,x
2284 9379 02              .     idiv
2285 937A CE 00 1F        ...   ldx #001f
2286 937D 1D 00           ..    bclr add,x 00,x
2287 937F 10              .     sba
2288 9380 CC 02 33        ..3   ldd #0233
2289 9383 FD 00 3B        ..;   stad 003b
2290 9386 7F 00 09        ...   clr 0009
2291 9389 C6 92           ..    ldab #92
2292 938B F7 00 48        ..H   stb 0048
2293 938E 20 0F            .    bra 0f
2294 9390 F6 00 19        ...   ldab 0019
2295 9393 C4 40           .@    andb #40
2296 9395 26 05           &.    bne 05
2297 9397 BD 98 BF        ...   jsr 98bf
2298 939A 20 03            .    bra 03
2299 939C BD 85 AF        ...   jsr 85af
2300 939F 20 03            .    bra 03
2301 93A1 BD 98 FF        ...   jsr 98ff
2302 93A4 39              9     rts
2303 93A5 F6 00 1F        ...   ldab 001f
2304 93A8 C4 02           ..    andb #02
2305 93AA 26 0A           &.    bne 0a
2306 93AC F6 00 3A        ..:   ldab 003a
2307 93AF 26 2B           &+    bne 2b
2308 93B1 F6 00 1D        ...   ldab 001d
2309 93B4 2D 26           -&    blt 26
2310 93B6 CC AF BB        ...   ldd #afbb
2311 93B9 BD C0 BA        ...   jsr c0ba
2312 93BC CE 00 1F        ...   ldx #001f
2313 93BF 1D 00           ..    bclr add,x 00,x
2314 93C1 02              .     idiv
2315 93C2 CE 00 1D        ...   ldx #001d
2316 93C5 1D 00           ..    bclr add,x 00,x
2317 93C7 80 C6           ..    suba #c6
2318 93C9 32              2     pula
2319 93CA F7 00 3A        ..:   stb 003a
2320 93CD F6 0B A8        ...   ldab 0ba8
2321 93D0 F7 00 66        ..f   stb 0066
2322 93D3 BD AA 74        ..t   jsr aa74
2323 93D6 7F 00 48        ..H   clr 0048
2324 93D9 7F 00 54        ..T   clr 0054
2325 93DC F6 00 09        ...   ldab 0009
2326 93DF 26 03           &.    bne 03
2327 93E1 7E 94 92        ~..   jmp 9492
2328 93E4 F6 00 1D        ...   ldab 001d
2329 93E7 2C 03           ,.    bge 03
2330 93E9 7E 94 92        ~..   jmp 9492
2331 93EC F6 00 09        ...   ldab 0009
2332 93EF C1 0B           ..    cmpb #0b
2333 93F1 26 06           &.    bne 06
2334 93F3 BD 85 AF        ...   jsr 85af
2335 93F6 7E 94 90        ~..   jmp 9490
2336 93F9 F6 00 09        ...   ldab 0009
2337 93FC C1 0A           ..    cmpb #0a
2338 93FE 26 03           &.    bne 03
2339 9400 7F 00 09        ...   clr 0009
2340 9403 F6 00 09        ...   ldab 0009
2341 9406 CB 30           .0    addb #30
2342 9408 37              7     pshb
2343 9409 F6 00 54        ..T   ldab 0054
2344 940C 4F              O     clra
2345 940D C3 00 62        ..b   addd #0062
2346 9410 8F              .     xgdx
2347 9411 33              3     pulb
2348 9412 E7 00           ..    stb 00,x
2349 9414 BD BE 4B        ..K   jsr be4b
2350 9417 F6 00 54        ..T   ldab 0054
2351 941A 26 06           &.    bne 06
2352 941C F6 00 62        ..b   ldab 0062
2353 941F F7 0B 96        ...   stb 0b96
2354 9422 F6 00 54        ..T   ldab 0054
2355 9425 C1 01           ..    cmpb #01
2356 9427 26 0C           &.    bne 0c
2357 9429 F6 00 62        ..b   ldab 0062
2358 942C F7 0B 96        ...   stb 0b96
2359 942F F6 00 63        ..c   ldab 0063
2360 9432 F7 0B 95        ...   stb 0b95
2361 9435 F6 00 54        ..T   ldab 0054
2362 9438 C1 02           ..    cmpb #02
2363 943A 26 12           &.    bne 12
2364 943C F6 00 62        ..b   ldab 0062
2365 943F F7 0B 96        ...   stb 0b96
2366 9442 F6 00 63        ..c   ldab 0063
2367 9445 F7 0B 95        ...   stb 0b95
2368 9448 F6 00 64        ..d   ldab 0064
2369 944B F7 0B 94        ...   stb 0b94
2370 944E F6 00 54        ..T   ldab 0054
2371 9451 C1 03           ..    cmpb #03
2372 9453 26 18           &.    bne 18
2373 9455 F6 00 62        ..b   ldab 0062
2374 9458 F7 0B 96        ...   stb 0b96
2375 945B F6 00 63        ..c   ldab 0063
2376 945E F7 0B 95        ...   stb 0b95
2377 9461 F6 00 64        ..d   ldab 0064
2378 9464 F7 0B 94        ...   stb 0b94
2379 9467 F6 00 65        ..e   ldab 0065
2380 946A F7 0B 93        ...   stb 0b93
2381 946D BD BE 01        ...   jsr be01
2382 9470 7C 00 54        |.T   inc 0054
2383 9473 F6 00 54        ..T   ldab 0054
2384 9476 C1 04           ..    cmpb #04
2385 9478 26 0B           &.    bne 0b
2386 947A CE 00 1D        ...   ldx #001d
2387 947D 1C 00           ..    bset add,x 00,x
2388 947F 80 BD           ..    suba #bd
2389 9481 A8 0F           ..    eora 0f,x
2390 9483 20 06            .    bra 06
2391 9485 CE 00 1D        ...   ldx #001d
2392 9488 1D 00           ..    bclr add,x 00,x
2393 948A 80 C6           ..    suba #c6
2394 948C 32              2     pula
2395 948D F7 00 3A        ..:   stb 003a
2396 9490 20 4A            J    bra 4a
2397 9492 F6 00 1D        ...   ldab 001d
2398 9495 2C 45           ,E    bge 45
2399 9497 F6 00 09        ...   ldab 0009
2400 949A 4F              O     clra
2401 949B BD FE 32        ..2   jsr fe32
2402 949E 94 B8 00        ...   anda b8
2403 94A1 00              .     test
2404 94A2 94 BD 00        ...   anda bd
2405 94A5 01              .     nop
2406 94A6 94 C2 00        ...   anda c2
2407 94A9 04              .     lsrd
2408 94AA 94 D1 00        ...   anda d1
2409 94AD 05              .     asld
2410 94AE 94 D9 00        ...   anda d9
2411 94B1 01              .     nop
2412 94B2 94 DC FF        ...   anda dc
2413 94B5 F5 00 00        ...   bitb 0000
2414 94B8 BD 9E 0F        ...   jsr 9e0f
2415 94BB 20 1F            .    bra 1f
2416 94BD BD A7 1F        ...   jsr a71f
2417 94C0 20 1A            .    bra 1a
2418 94C2 7C 00 48        |.H   inc 0048
2419 94C5 F6 00 48        ..H   ldab 0048
2420 94C8 C1 0A           ..    cmpb #0a
2421 94CA 23 03           #.    bls 03
2422 94CC 7F 00 48        ..H   clr 0048
2423 94CF 20 0B            .    bra 0b
2424 94D1 BD A5 FE        ...   jsr a5fe
2425 94D4 BD 85 AF        ...   jsr 85af
2426 94D7 20 03            .    bra 03
2427 94D9 BD 85 AF        ...   jsr 85af
2428 94DC 39              9     rts
2429 94DD F6 00 1F        ...   ldab 001f
2430 94E0 C4 02           ..    andb #02
2431 94E2 27 14           '.    beq 14
2432 94E4 CE 00 1F        ...   ldx #001f
2433 94E7 1D 00           ..    bclr add,x 00,x
2434 94E9 02              .     idiv
2435 94EA CE 00 19        ...   ldx #0019
2436 94ED 1C 00           ..    bset add,x 00,x
2437 94EF 80 7F           ..    suba #7f
2438 94F1 00              .     test
2439 94F2 09              .     dex
2440 94F3 7F 00 0A        ...   clr 000a
2441 94F6 20 46            F    bra 46
2442 94F8 F6 00 09        ...   ldab 0009
2443 94FB 4F              O     clra
2444 94FC BD FE 32        ..2   jsr fe32
2445 94FF 95 19 00        ...   bita 19
2446 9502 00              .     test
2447 9503 95 21 00        .!.   bita 21
2448 9506 01              .     nop
2449 9507 95 2C 00        .,.   bita 2c
2450 950A 01              .     nop
2451 950B 95 30 00        .0.   bita 30
2452 950E 01              .     nop
2453 950F 95 35 00        .5.   bita 35
2454 9512 08              .     inx
2455 9513 95 38 FF        .8.   bita 38
2456 9516 F5 00 00        ...   bitb 0000
2457 9519 CC B0 A2        ...   ldd #b0a2
2458 951C BD C0 BA        ...   jsr c0ba
2459 951F 20 1D            .    bra 1d
2460 9521 BD 87 E9        ...   jsr 87e9
2461 9524 CE 00 1F        ...   ldx #001f
2462 9527 1C 00           ..    bset add,x 00,x
2463 9529 02              .     idiv
2464 952A 20 12            .    bra 12
2465 952C 8D 11           ..    bsr dest 11
2466 952E 20 0E            .    bra 0e
2467 9530 BD 96 88        ...   jsr 9688
2468 9533 20 09            .    bra 09
2469 9535 BD 85 AF        ...   jsr 85af
2470 9538 7F 00 09        ...   clr 0009
2471 953B 7F 00 0A        ...   clr 000a
2472 953E 39              9     rts
2473 953F F6 00 19        ...   ldab 0019
2474 9542 2D 0A           -.    blt 0a
2475 9544 F6 00 3A        ..:   ldab 003a
2476 9547 26 22           &"    bne 22
2477 9549 F6 00 1D        ...   ldab 001d
2478 954C 2D 1D           -.    blt 1d
2479 954E 7F 00 2C        ..,   clr 002c
2480 9551 CC B0 B8        ...   ldd #b0b8
2481 9554 BD C0 BA        ...   jsr c0ba
2482 9557 CE 00 19        ...   ldx #0019
2483 955A 1D 00           ..    bclr add,x 00,x
2484 955C 80 CE           ..    suba #ce
2485 955E 00              .     test
2486 955F 1D 1D           ..    bclr add,x 1d,x
2487 9561 00              .     test
2488 9562 80 7F           ..    suba #7f
2489 9564 00              .     test
2490 9565 54              T     lsrb
2491 9566 C6 32           .2    ldab #32
2492 9568 F7 00 3A        ..:   stb 003a
2493 956B F6 00 0A        ...   ldab 000a
2494 956E 26 03           &.    bne 03
2495 9570 7E 96 5C        ~.\   jmp 965c
2496 9573 F6 00 1D        ...   ldab 001d
2497 9576 2C 03           ,.    bge 03
2498 9578 7E 96 5C        ~.\   jmp 965c
2499 957B F6 00 0A        ...   ldab 000a
2500 957E C1 0B           ..    cmpb #0b
2501 9580 26 09           &.    bne 09
2502 9582 CE 00 1F        ...   ldx #001f
2503 9585 1C 00           ..    bset add,x 00,x
2504 9587 02              .     idiv
2505 9588 7E 96 5A        ~.Z   jmp 965a
2506 958B F6 00 54        ..T   ldab 0054
2507 958E 26 26           &&    bne 26
2508 9590 BD BE 4B        ..K   jsr be4b
2509 9593 F6 00 0A        ...   ldab 000a
2510 9596 C1 0A           ..    cmpb #0a
2511 9598 26 03           &.    bne 03
2512 959A 7F 00 0A        ...   clr 000a
2513 959D F6 00 0A        ...   ldab 000a
2514 95A0 CB 30           .0    addb #30
2515 95A2 37              7     pshb
2516 95A3 CC 0B 95        ...   ldd #0b95
2517 95A6 F0 00 54        ..T   subb 0054
2518 95A9 82 00           ..    sbca #00
2519 95AB 8F              .     xgdx
2520 95AC 33              3     pulb
2521 95AD E7 00           ..    stb 00,x
2522 95AF C6 32           .2    ldab #32
2523 95B1 F7 00 3A        ..:   stb 003a
2524 95B4 20 37            7    bra 37
2525 95B6 F6 00 54        ..T   ldab 0054
2526 95B9 C1 01           ..    cmpb #01
2527 95BB 26 27           &'    bne 27
2528 95BD F6 00 0A        ...   ldab 000a
2529 95C0 C1 05           ..    cmpb #05
2530 95C2 27 20           '     beq 20
2531 95C4 F6 00 0A        ...   ldab 000a
2532 95C7 C1 0A           ..    cmpb #0a
2533 95C9 27 19           '.    beq 19
2534 95CB F6 00 0A        ...   ldab 000a
2535 95CE CB 30           .0    addb #30
2536 95D0 37              7     pshb
2537 95D1 CC 0B 95        ...   ldd #0b95
2538 95D4 F0 00 54        ..T   subb 0054
2539 95D7 82 00           ..    sbca #00
2540 95D9 8F              .     xgdx
2541 95DA 33              3     pulb
2542 95DB E7 00           ..    stb 00,x
2543 95DD C6 32           .2    ldab #32
2544 95DF F7 00 3A        ..:   stb 003a
2545 95E2 20 09            .    bra 09
2546 95E4 CE 00 19        ...   ldx #0019
2547 95E7 1C 00           ..    bset add,x 00,x
2548 95E9 80 7F           ..    suba #7f
2549 95EB 00              .     test
2550 95EC 3A              :     abx
2551 95ED BD BE 01        ...   jsr be01
2552 95F0 7C 00 54        |.T   inc 0054
2553 95F3 F6 00 54        ..T   ldab 0054
2554 95F6 C1 02           ..    cmpb #02
2555 95F8 26 5A           &Z    bne 5a
2556 95FA CE 00 1D        ...   ldx #001d
2557 95FD 1C 00           ..    bset add,x 00,x
2558 95FF 80 F6           ..    suba #f6
2559 9601 0B              .     sev
2560 9602 94 CB D0        ...   anda cb
2561 9605 37              7     pshb
2562 9606 F6 0B 95        ...   ldab 0b95
2563 9609 CB D0           ..    addb #d0
2564 960B 86 0A           ..    ldaa #0a
2565 960D 3D              =     mul
2566 960E 30              0     tsx
2567 960F EB 00           ..    addb 00,x
2568 9611 31              1     ins
2569 9612 F7 00 06        ...   stb 0006
2570 9615 C6 32           .2    ldab #32
2571 9617 F7 00 3A        ..:   stb 003a
2572 961A F6 00 06        ...   ldab 0006
2573 961D BD D7 A0        ...   jsr d7a0
2574 9620 83 00 00        ...   subd #0000
2575 9623 26 21           &!    bne 21
2576 9625 BD D3 11        ...   jsr d311
2577 9628 83 00 00        ...   subd #0000
2578 962B 26 0B           &.    bne 0b
2579 962D CE 00 1F        ...   ldx #001f
2580 9630 1C 00           ..    bset add,x 00,x
2581 9632 40              @     nega
2582 9633 BD 8C 73        ..s   jsr 8c73
2583 9636 20 06            .    bra 06
2584 9638 CE 00 1F        ...   ldx #001f
2585 963B 1D 00           ..    bclr add,x 00,x
2586 963D 40              @     nega
2587 963E 7F 00 2C        ..,   clr 002c
2588 9641 BD 9A 47        ..G   jsr 9a47
2589 9644 20 0C            .    bra 0c
2590 9646 CE 00 1D        ...   ldx #001d
2591 9649 1D 00           ..    bclr add,x 00,x
2592 964B 80 CE           ..    suba #ce
2593 964D 00              .     test
2594 964E 19              .     daa
2595 964F 1C 00           ..    bset add,x 00,x
2596 9651 80 20           .     suba #20
2597 9653 06              .     tap
2598 9654 CE 00 1D        ...   ldx #001d
2599 9657 1D 00           ..    bclr add,x 00,x
2600 9659 80 20           .     suba #20
2601 965B 2B F6           +.    bmi f6
2602 965D 00              .     test
2603 965E 1D 2C           .,    bclr add,x 2c,x
2604 9660 26 BD           &.    bne bd
2605 9662 D2 13 83        ...   sbcb 13
2606 9665 00              .     test
2607 9666 00              .     test
2608 9667 26 0F           &.    bne 0f
2609 9669 CC 00 64        ..d   ldd #0064
2610 966C BD E5 71        ..q   jsr e571
2611 966F BD E5 D1        ...   jsr e5d1
2612 9672 CC 03 84        ...   ldd #0384
2613 9675 BD E5 71        ..q   jsr e571
2614 9678 7F 00 2E        ...   clr 002e
2615 967B CE 00 1D        ...   ldx #001d
2616 967E 1D 00           ..    bclr add,x 00,x
2617 9680 80 CE           ..    suba #ce
2618 9682 00              .     test
2619 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2620 9687 39              9     rts
2621 9688 34              4     des
2622 9689 F6 00 19        ...   ldab 0019
2623 968C 2C 19           ,.    bge 19
2624 968E CE 00 19        ...   ldx #0019
2625 9691 1D 00           ..    bclr add,x 00,x
2626 9693 80 CC           ..    suba #cc
2627 9695 B0 97 BD        ...   suba 97bd
2628 9698 C0 BA           ..    subb #ba
2629 969A C6 0A           ..    ldab #0a
2630 969C F7 00 38        ..8   stb 0038
2631 969F 7F 00 05        ...   clr 0005
2632 96A2 C6 01           ..    ldab #01
2633 96A4 F7 00 06        ...   stb 0006
2634 96A7 F6 00 0A        ...   ldab 000a
2635 96AA C1 0B           ..    cmpb #0b
2636 96AC 26 0C           &.    bne 0c
2637 96AE CC 02 33        ..3   ldd #0233
2638 96B1 FD 00 3B        ..;   stad 003b
2639 96B4 CE 00 1F        ...   ldx #001f
2640 96B7 1C 00           ..    bset add,x 00,x
2641 96B9 02              .     idiv
2642 96BA F6 00 38        ..8   ldab 0038
2643 96BD 27 03           '.    beq 03
2644 96BF 7E 97 6D        ~.m   jmp 976d
2645 96C2 F6 00 06        ...   ldab 0006
2646 96C5 C1 63           .c    cmpb #63
2647 96C7 23 03           #.    bls 03
2648 96C9 7E 97 6D        ~.m   jmp 976d
2649 96CC F6 00 06        ...   ldab 0006
2650 96CF C1 63           .c    cmpb #63
2651 96D1 26 0F           &.    bne 0f
2652 96D3 BD 99 C3        ...   jsr 99c3
2653 96D6 CC 07 D0        ...   ldd #07d0
2654 96D9 BD E5 71        ..q   jsr e571
2655 96DC CE 00 1F        ...   ldx #001f
2656 96DF 1C 00           ..    bset add,x 00,x
2657 96E1 02              .     idiv
2658 96E2 BD D3 11        ...   jsr d311
2659 96E5 83 00 00        ...   subd #0000
2660 96E8 26 0B           &.    bne 0b
2661 96EA CE 00 1F        ...   ldx #001f
2662 96ED 1C 00           ..    bset add,x 00,x
2663 96EF 40              @     nega
2664 96F0 BD 8C 73        ..s   jsr 8c73
2665 96F3 20 06            .    bra 06
2666 96F5 CE 00 1F        ...   ldx #001f
2667 96F8 1D 00           ..    bclr add,x 00,x
2668 96FA 40              @     nega
2669 96FB BD 9A 47        ..G   jsr 9a47
2670 96FE F6 00 06        ...   ldab 0006
2671 9701 C1 63           .c    cmpb #63
2672 9703 26 03           &.    bne 03
2673 9705 7F 00 2C        ..,   clr 002c
2674 9708 BD D2 13        ...   jsr d213
2675 970B 83 00 00        ...   subd #0000
2676 970E 27 03           '.    beq 03
2677 9710 7C 00 05        |..   inc 0005
2678 9713 7F 00 2E        ...   clr 002e
2679 9716 C6 05           ..    ldab #05
2680 9718 F7 00 38        ..8   stb 0038
2681 971B CC 02 33        ..3   ldd #0233
2682 971E FD 00 3B        ..;   stad 003b
2683 9721 30              0     tsx
2684 9722 6F 00           o.    clr 00,x
2685 9724 F6 0E 6D        ..m   ldab 0e6d
2686 9727 27 0C           '.    beq 0c
2687 9729 F6 00 06        ...   ldab 0006
2688 972C C1 3E           .>    cmpb #3e
2689 972E 26 05           &.    bne 05
2690 9730 C6 01           ..    ldab #01
2691 9732 30              0     tsx
2692 9733 E7 00           ..    stb 00,x
2693 9735 8D 38           .8    bsr dest 38
2694 9737 F6 0E 6D        ..m   ldab 0e6d
2695 973A 27 0C           '.    beq 0c
2696 973C 30              0     tsx
2697 973D E6 00           ..    ldab 00,x
2698 973F C1 01           ..    cmpb #01
2699 9741 26 05           &.    bne 05
2700 9743 C6 45           .E    ldab #45
2701 9745 F7 00 06        ...   stb 0006
2702 9748 F6 00 06        ...   ldab 0006
2703 974B BD D7 A0        ...   jsr d7a0
2704 974E 83 00 00        ...   subd #0000
2705 9751 27 15           '.    beq 15
2706 9753 F6 00 06        ...   ldab 0006
2707 9756 C1 09           ..    cmpb #09
2708 9758 26 02           &.    bne 02
2709 975A 8D 13           ..    bsr dest 13
2710 975C F6 00 06        ...   ldab 0006
2711 975F C1 45           .E    cmpb #45
2712 9761 26 05           &.    bne 05
2713 9763 C6 63           .c    ldab #63
2714 9765 F7 00 06        ...   stb 0006
2715 9768 5F              _     clrb
2716 9769 4F              O     clra
2717 976A FD 00 40        ..@   stad 0040
2718 976D 31              1     ins
2719 976E 39              9     rts
2720 976F F6 0E 6D        ..m   ldab 0e6d
2721 9772 C1 01           ..    cmpb #01
2722 9774 26 41           &A    bne 41
2723 9776 F6 00 06        ...   ldab 0006
2724 9779 4F              O     clra
2725 977A CE 00 0A        ...   ldx #000a
2726 977D 02              .     idiv
2727 977E C1 01           ..    cmpb #01
2728 9780 26 05           &.    bne 05
2729 9782 7C 00 06        |..   inc 0006
2730 9785 20 1B            .    bra 1b
2731 9787 F6 00 06        ...   ldab 0006
2732 978A 4F              O     clra
2733 978B CE 00 0A        ...   ldx #000a
2734 978E 02              .     idiv
2735 978F C1 02           ..    cmpb #02
2736 9791 26 0A           &.    bne 0a
2737 9793 C6 09           ..    ldab #09
2738 9795 FB 00 06        ...   addb 0006
2739 9798 F7 00 06        ...   stb 0006
2740 979B 20 05            .    bra 05
2741 979D C6 0B           ..    ldab #0b
2742 979F F7 00 06        ...   stb 0006
2743 97A2 F6 00 06        ...   ldab 0006
2744 97A5 C1 3E           .>    cmpb #3e
2745 97A7 22 07           ".    bhi 07
2746 97A9 F6 00 06        ...   ldab 0006
2747 97AC C1 0B           ..    cmpb #0b
2748 97AE 24 05           $.    bcc 05
2749 97B0 C6 0B           ..    ldab #0b
2750 97B2 F7 00 06        ...   stb 0006
2751 97B5 20 31            1    bra 31
2752 97B7 F6 00 06        ...   ldab 0006
2753 97BA CB 0A           ..    addb #0a
2754 97BC F7 00 06        ...   stb 0006
2755 97BF F6 00 06        ...   ldab 0006
2756 97C2 C1 64           .d    cmpb #64
2757 97C4 23 22           #"    bls 22
2758 97C6 F6 00 06        ...   ldab 0006
2759 97C9 CB 9C           ..    addb #9c
2760 97CB CB 01           ..    addb #01
2761 97CD F7 00 06        ...   stb 0006
2762 97D0 F6 00 06        ...   ldab 0006
2763 97D3 C1 05           ..    cmpb #05
2764 97D5 26 05           &.    bne 05
2765 97D7 C6 06           ..    ldab #06
2766 97D9 F7 00 06        ...   stb 0006
2767 97DC F6 00 06        ...   ldab 0006
2768 97DF C1 0A           ..    cmpb #0a
2769 97E1 26 05           &.    bne 05
2770 97E3 C6 01           ..    ldab #01
2771 97E5 F7 00 06        ...   stb 0006
2772 97E8 39              9     rts
2773 97E9 BD BE 4B        ..K   jsr be4b
2774 97EC CC AF E7        ...   ldd #afe7
2775 97EF BD C0 BA        ...   jsr c0ba
2776 97F2 BD F4 15        ...   jsr f415
2777 97F5 39              9     rts
2778 97F6 BD BE 4B        ..K   jsr be4b
2779 97F9 F6 00 48        ..H   ldab 0048
2780 97FC 4F              O     clra
2781 97FD BD FE 16        ...   jsr fe16
2782 9800 00              .     test
2783 9801 01              .     nop
2784 9802 00              .     test
2785 9803 03              .     fdiv
2786 9804 98 80 98        ...   eora 80
2787 9807 0E              .     cli
2788 9808 98 2B 98        .+.   eora 2b
2789 980B 48              H     asla
2790 980C 98 65 F6        .e.   eora 65
2791 980F 0C              .     clc
2792 9810 D9 4F BD        .O.   adcb 4f
2793 9813 E7 95           ..    stb 95,x
2794 9815 C6 4E           .N    ldab #4e
2795 9817 F7 0B 99        ...   stb 0b99
2796 981A C6 49           .I    ldab #49
2797 981C F7 0B 98        ...   stb 0b98
2798 981F C6 4B           .K    ldab #4b
2799 9821 F7 0B 97        ...   stb 0b97
2800 9824 C6 4C           .L    ldab #4c
2801 9826 F7 0B 96        ...   stb 0b96
2802 9829 20 55            U    bra 55
2803 982B F6 0C DA        ...   ldab 0cda
2804 982E 4F              O     clra
2805 982F BD E7 95        ...   jsr e795
2806 9832 C6 44           .D    ldab #44
2807 9834 F7 0B 99        ...   stb 0b99
2808 9837 C6 49           .I    ldab #49
2809 9839 F7 0B 98        ...   stb 0b98
2810 983C C6 4D           .M    ldab #4d
2811 983E F7 0B 97        ...   stb 0b97
2812 9841 C6 45           .E    ldab #45
2813 9843 F7 0B 96        ...   stb 0b96
2814 9846 20 38            8    bra 38
2815 9848 F6 0C DB        ...   ldab 0cdb
2816 984B 4F              O     clra
2817 984C BD E7 95        ...   jsr e795
2818 984F C6 51           .Q    ldab #51
2819 9851 F7 0B 99        ...   stb 0b99
2820 9854 C6 55           .U    ldab #55
2821 9856 F7 0B 98        ...   stb 0b98
2822 9859 C6 54           .T    ldab #54
2823 985B F7 0B 97        ...   stb 0b97
2824 985E C6 52           .R    ldab #52
2825 9860 F7 0B 96        ...   stb 0b96
2826 9863 20 1B            .    bra 1b
2827 9865 F6 0C DC        ...   ldab 0cdc
2828 9868 4F              O     clra
2829 9869 BD E7 95        ...   jsr e795
2830 986C C6 44           .D    ldab #44
2831 986E F7 0B 99        ...   stb 0b99
2832 9871 C6 4F           .O    ldab #4f
2833 9873 F7 0B 98        ...   stb 0b98
2834 9876 C6 4C           .L    ldab #4c
2835 9878 F7 0B 97        ...   stb 0b97
2836 987B C6 52           .R    ldab #52
2837 987D F7 0B 96        ...   stb 0b96
2838 9880 C6 53           .S    ldab #53
2839 9882 F7 0B 95        ...   stb 0b95
2840 9885 C6 20           .     ldab #20
2841 9887 F7 0B 94        ...   stb 0b94
2842 988A C6 20           .     ldab #20
2843 988C F7 0B 93        ...   stb 0b93
2844 988F F6 00 5D        ..]   ldab 005d
2845 9892 F7 0B 92        ...   stb 0b92
2846 9895 F6 00 5E        ..^   ldab 005e
2847 9898 F7 0B 91        ...   stb 0b91
2848 989B F6 00 5F        .._   ldab 005f
2849 989E F7 0B 90        ...   stb 0b90
2850 98A1 BD BE 01        ...   jsr be01
2851 98A4 39              9     rts
2852 98A5 BD BE 4B        ..K   jsr be4b
2853 98A8 F6 00 54        ..T   ldab 0054
2854 98AB 4F              O     clra
2855 98AC BD E7 95        ...   jsr e795
2856 98AF F6 00 5E        ..^   ldab 005e
2857 98B2 F7 0B 95        ...   stb 0b95
2858 98B5 F6 00 5F        .._   ldab 005f
2859 98B8 F7 0B 94        ...   stb 0b94
2860 98BB BD BE 01        ...   jsr be01
2861 98BE 39              9     rts
2862 98BF F6 00 09        ...   ldab 0009
2863 98C2 C1 00           ..    cmpb #00
2864 98C4 26 05           &.    bne 05
2865 98C6 BD 9E 89        ...   jsr 9e89
2866 98C9 20 33            3    bra 33
2867 98CB C1 01           ..    cmpb #01
2868 98CD 26 1E           &.    bne 1e
2869 98CF F6 00 48        ..H   ldab 0048
2870 98D2 C1 92           ..    cmpb #92
2871 98D4 26 15           &.    bne 15
2872 98D6 F6 00 1F        ...   ldab 001f
2873 98D9 C4 10           ..    andb #10
2874 98DB 26 08           &.    bne 08
2875 98DD CE 00 1F        ...   ldx #001f
2876 98E0 1C 00           ..    bset add,x 00,x
2877 98E2 10              .     sba
2878 98E3 20 06            .    bra 06
2879 98E5 CE 00 1F        ...   ldx #001f
2880 98E8 1D 00           ..    bclr add,x 00,x
2881 98EA 10              .     sba
2882 98EB 20 11            .    bra 11
2883 98ED C1 0B           ..    cmpb #0b
2884 98EF 26 0D           &.    bne 0d
2885 98F1 F6 00 1F        ...   ldab 001f
2886 98F4 C4 10           ..    andb #10
2887 98F6 27 03           '.    beq 03
2888 98F8 BD E9 2B        ..+   jsr e92b
2889 98FB BD 85 AF        ...   jsr 85af
2890 98FE 39              9     rts
2891 98FF F6 00 1F        ...   ldab 001f
2892 9902 C4 02           ..    andb #02
2893 9904 27 13           '.    beq 13
2894 9906 C6 01           ..    ldab #01
2895 9908 F7 00 48        ..H   stb 0048
2896 990B CE 00 1F        ...   ldx #001f
2897 990E 1D 00           ..    bclr add,x 00,x
2898 9910 10              .     sba
2899 9911 CE 00 1F        ...   ldx #001f
2900 9914 1D 00           ..    bclr add,x 00,x
2901 9916 02              .     idiv
2902 9917 20 67            g    bra 67
2903 9919 F6 00 09        ...   ldab 0009
2904 991C 4F              O     clra
2905 991D BD FE 32        ..2   jsr fe32
2906 9920 99 36 00        .6.   adca 36
2907 9923 00              .     test
2908 9924 99 3B 00        .;.   adca 3b
2909 9927 01              .     nop
2910 9928 99 59 00        .Y.   adca 59
2911 992B 09              .     dex
2912 992C 99 73 00        .s.   adca 73
2913 992F 01              .     nop
2914 9930 99 80 FF        ...   adca 80
2915 9933 F5 00 00        ...   bitb 0000
2916 9936 BD 9E 89        ...   jsr 9e89
2917 9939 20 45            E    bra 45
2918 993B F6 00 48        ..H   ldab 0048
2919 993E C1 92           ..    cmpb #92
2920 9940 26 15           &.    bne 15
2921 9942 F6 00 1F        ...   ldab 001f
2922 9945 C4 10           ..    andb #10
2923 9947 26 08           &.    bne 08
2924 9949 CE 00 1F        ...   ldx #001f
2925 994C 1C 00           ..    bset add,x 00,x
2926 994E 10              .     sba
2927 994F 20 06            .    bra 06
2928 9951 CE 00 1F        ...   ldx #001f
2929 9954 1D 00           ..    bclr add,x 00,x
2930 9956 10              .     sba
2931 9957 20 27            '    bra 27
2932 9959 7C 00 48        |.H   inc 0048
2933 995C F6 00 48        ..H   ldab 0048
2934 995F C1 92           ..    cmpb #92
2935 9961 23 0B           #.    bls 0b
2936 9963 C6 01           ..    ldab #01
2937 9965 F7 00 48        ..H   stb 0048
2938 9968 CE 00 1F        ...   ldx #001f
2939 996B 1D 00           ..    bclr add,x 00,x
2940 996D 10              .     sba
2941 996E BD 9E 89        ...   jsr 9e89
2942 9971 20 0D            .    bra 0d
2943 9973 F6 00 1F        ...   ldab 001f
2944 9976 C4 10           ..    andb #10
2945 9978 27 03           '.    beq 03
2946 997A BD E9 2B        ..+   jsr e92b
2947 997D BD 85 AF        ...   jsr 85af
2948 9980 39              9     rts
2949 9981 BD BE 4B        ..K   jsr be4b
2950 9984 F6 00 05        ...   ldab 0005
2951 9987 4F              O     clra
2952 9988 BD E7 95        ...   jsr e795
2953 998B C6 4D           .M    ldab #4d
2954 998D F7 0B 99        ...   stb 0b99
2955 9990 C6 4F           .O    ldab #4f
2956 9992 F7 0B 98        ...   stb 0b98
2957 9995 C6 54           .T    ldab #54
2958 9997 F7 0B 97        ...   stb 0b97
2959 999A C6 4F           .O    ldab #4f
2960 999C F7 0B 96        ...   stb 0b96
2961 999F C6 52           .R    ldab #52
2962 99A1 F7 0B 95        ...   stb 0b95
2963 99A4 C6 53           .S    ldab #53
2964 99A6 F7 0B 94        ...   stb 0b94
2965 99A9 C6 20           .     ldab #20
2966 99AB F7 0B 93        ...   stb 0b93
2967 99AE C6 20           .     ldab #20
2968 99B0 F7 0B 92        ...   stb 0b92
2969 99B3 F6 00 5E        ..^   ldab 005e
2970 99B6 F7 0B 91        ...   stb 0b91
2971 99B9 F6 00 5F        .._   ldab 005f
2972 99BC F7 0B 90        ...   stb 0b90
2973 99BF BD BE 01        ...   jsr be01
2974 99C2 39              9     rts
2975 99C3 BD BE 4B        ..K   jsr be4b
2976 99C6 F6 00 05        ...   ldab 0005
2977 99C9 4F              O     clra
2978 99CA BD E7 95        ...   jsr e795
2979 99CD C6 56           .V    ldab #56
2980 99CF F7 0B 99        ...   stb 0b99
2981 99D2 C6 45           .E    ldab #45
2982 99D4 F7 0B 98        ...   stb 0b98
2983 99D7 C6 4E           .N    ldab #4e
2984 99D9 F7 0B 97        ...   stb 0b97
2985 99DC C6 44           .D    ldab #44
2986 99DE F7 0B 96        ...   stb 0b96
2987 99E1 C6 53           .S    ldab #53
2988 99E3 F7 0B 95        ...   stb 0b95
2989 99E6 C6 20           .     ldab #20
2990 99E8 F7 0B 94        ...   stb 0b94
2991 99EB C6 20           .     ldab #20
2992 99ED F7 0B 93        ...   stb 0b93
2993 99F0 C6 20           .     ldab #20
2994 99F2 F7 0B 92        ...   stb 0b92
2995 99F5 F6 00 5E        ..^   ldab 005e
2996 99F8 F7 0B 91        ...   stb 0b91
2997 99FB F6 00 5F        .._   ldab 005f
2998 99FE F7 0B 90        ...   stb 0b90
2999 9A01 BD BE 01        ...   jsr be01
3000 9A04 39              9     rts
3001 9A05 BD BE 4B        ..K   jsr be4b
3002 9A08 FC 00 52        ..R   ldd 0052
3003 9A0B BD E7 45        ..E   jsr e745
3004 9A0E C6 4F           .O    ldab #4f
3005 9A10 F7 0B 99        ...   stb 0b99
3006 9A13 C6 44           .D    ldab #44
3007 9A15 F7 0B 98        ...   stb 0b98
3008 9A18 C6 44           .D    ldab #44
3009 9A1A F7 0B 97        ...   stb 0b97
3010 9A1D C6 53           .S    ldab #53
3011 9A1F F7 0B 96        ...   stb 0b96
3012 9A22 C6 20           .     ldab #20
3013 9A24 F7 0B 95        ...   stb 0b95
3014 9A27 C6 31           .1    ldab #31
3015 9A29 F7 0B 94        ...   stb 0b94
3016 9A2C C6 2F           ./    ldab #2f
3017 9A2E F7 0B 93        ...   stb 0b93
3018 9A31 F6 00 5D        ..]   ldab 005d
3019 9A34 F7 0B 92        ...   stb 0b92
3020 9A37 F6 00 5E        ..^   ldab 005e
3021 9A3A F7 0B 91        ...   stb 0b91
3022 9A3D F6 00 5F        .._   ldab 005f
3023 9A40 F7 0B 90        ...   stb 0b90
3024 9A43 BD BE 01        ...   jsr be01
3025 9A46 39              9     rts
3026 9A47 BD BE 4B        ..K   jsr be4b
3027 9A4A F6 00 06        ...   ldab 0006
3028 9A4D 4F              O     clra
3029 9A4E BD E7 95        ...   jsr e795
3030 9A51 F6 00 5E        ..^   ldab 005e
3031 9A54 F7 0B 99        ...   stb 0b99
3032 9A57 F6 00 5F        .._   ldab 005f
3033 9A5A F7 0B 98        ...   stb 0b98
3034 9A5D C6 20           .     ldab #20
3035 9A5F F7 0B 97        ...   stb 0b97
3036 9A62 F6 00 1F        ...   ldab 001f
3037 9A65 C4 40           .@    andb #40
3038 9A67 27 45           'E    beq 45
3039 9A69 FC 00 27        ..'   ldd 0027
3040 9A6C BD E7 45        ..E   jsr e745
3041 9A6F F6 00 5A        ..Z   ldab 005a
3042 9A72 F7 0B 96        ...   stb 0b96
3043 9A75 F6 00 5D        ..]   ldab 005d
3044 9A78 F7 0B 95        ...   stb 0b95
3045 9A7B F6 00 5E        ..^   ldab 005e
3046 9A7E F7 0B 94        ...   stb 0b94
3047 9A81 F6 00 5F        .._   ldab 005f
3048 9A84 F7 0B 93        ...   stb 0b93
3049 9A87 F6 00 19        ...   ldab 0019
3050 9A8A C4 10           ..    andb #10
3051 9A8C 27 07           '.    beq 07
3052 9A8E C6 2A           .*    ldab #2a
3053 9A90 F7 0B 92        ...   stb 0b92
3054 9A93 20 05            .    bra 05
3055 9A95 C6 20           .     ldab #20
3056 9A97 F7 0B 92        ...   stb 0b92
3057 9A9A FC 00 46        ..F   ldd 0046
3058 9A9D BD E7 45        ..E   jsr e745
3059 9AA0 F6 00 5E        ..^   ldab 005e
3060 9AA3 F7 0B 91        ...   stb 0b91
3061 9AA6 F6 00 5F        .._   ldab 005f
3062 9AA9 F7 0B 90        ...   stb 0b90
3063 9AAC 20 1E            .    bra 1e
3064 9AAE C6 58           .X    ldab #58
3065 9AB0 F7 0B 96        ...   stb 0b96
3066 9AB3 C6 58           .X    ldab #58
3067 9AB5 F7 0B 95        ...   stb 0b95
3068 9AB8 C6 58           .X    ldab #58
3069 9ABA F7 0B 94        ...   stb 0b94
3070 9ABD C6 58           .X    ldab #58
3071 9ABF F7 0B 93        ...   stb 0b93
3072 9AC2 C6 58           .X    ldab #58
3073 9AC4 F7 0B 91        ...   stb 0b91
3074 9AC7 C6 58           .X    ldab #58
3075 9AC9 F7 0B 90        ...   stb 0b90
3076 9ACC F6 00 13        ...   ldab 0013
3077 9ACF C1 01           ..    cmpb #01
3078 9AD1 23 4C           #L    bls 4c
3079 9AD3 F6 0B 91        ...   ldab 0b91
3080 9AD6 F7 0B 90        ...   stb 0b90
3081 9AD9 F6 0B 92        ...   ldab 0b92
3082 9ADC F7 0B 91        ...   stb 0b91
3083 9ADF F6 0B 93        ...   ldab 0b93
3084 9AE2 F7 0B 92        ...   stb 0b92
3085 9AE5 F6 0B 94        ...   ldab 0b94
3086 9AE8 F7 0B 93        ...   stb 0b93
3087 9AEB F6 00 13        ...   ldab 0013
3088 9AEE C1 02           ..    cmpb #02
3089 9AF0 26 07           &.    bne 07
3090 9AF2 C6 2E           ..    ldab #2e
3091 9AF4 F7 0B 94        ...   stb 0b94
3092 9AF7 20 26            &    bra 26
3093 9AF9 C1 04           ..    cmpb #04
3094 9AFB 26 0D           &.    bne 0d
3095 9AFD F6 0B 95        ...   ldab 0b95
3096 9B00 F7 0B 94        ...   stb 0b94
3097 9B03 C6 2E           ..    ldab #2e
3098 9B05 F7 0B 95        ...   stb 0b95
3099 9B08 20 15            .    bra 15
3100 9B0A C1 08           ..    cmpb #08
3101 9B0C 26 11           &.    bne 11
3102 9B0E F6 0B 95        ...   ldab 0b95
3103 9B11 F7 0B 94        ...   stb 0b94
3104 9B14 F6 0B 96        ...   ldab 0b96
3105 9B17 F7 0B 95        ...   stb 0b95
3106 9B1A C6 2E           ..    ldab #2e
3107 9B1C F7 0B 96        ...   stb 0b96
3108 9B1F F6 00 2C        ..,   ldab 002c
3109 9B22 26 3E           &>    bne 3e
3110 9B24 BD BE 69        ..i   jsr be69
3111 9B27 F6 00 13        ...   ldab 0013
3112 9B2A C1 01           ..    cmpb #01
3113 9B2C 23 2C           #,    bls 2c
3114 9B2E CE 10 28        ..(   ldx #1028
3115 9B31 1C 00           ..    bset add,x 00,x
3116 9B33 40              @     nega
3117 9B34 F6 00 1F        ...   ldab 001f
3118 9B37 C4 40           .@    andb #40
3119 9B39 27 0E           '.    beq 0e
3120 9B3B CE 00 01        ...   ldx #0001
3121 9B3E 3C              <     pshx
3122 9B3F F6 00 5F        .._   ldab 005f
3123 9B42 4F              O     clra
3124 9B43 BD BD B5        ...   jsr bdb5
3125 9B46 38              8     pulx
3126 9B47 20 0B            .    bra 0b
3127 9B49 CE 00 01        ...   ldx #0001
3128 9B4C 3C              <     pshx
3129 9B4D CC 00 58        ..X   ldd #0058
3130 9B50 BD BD B5        ...   jsr bdb5
3131 9B53 38              8     pulx
3132 9B54 CE 10 28        ..(   ldx #1028
3133 9B57 1D 00           ..    bclr add,x 00,x
3134 9B59 40              @     nega
3135 9B5A BD BE 10        ...   jsr be10
3136 9B5D C6 03           ..    ldab #03
3137 9B5F F7 00 2C        ..,   stb 002c
3138 9B62 39              9     rts
3139 9B63 BD BE 4B        ..K   jsr be4b
3140 9B66 FC 00 0D        ...   ldd 000d
3141 9B69 BD E7 45        ..E   jsr e745
3142 9B6C C6 44           .D    ldab #44
3143 9B6E F7 0B 99        ...   stb 0b99
3144 9B71 C6 53           .S    ldab #53
3145 9B73 F7 0B 98        ...   stb 0b98
3146 9B76 C6 43           .C    ldab #43
3147 9B78 F7 0B 97        ...   stb 0b97
3148 9B7B C6 4E           .N    ldab #4e
3149 9B7D F7 0B 96        ...   stb 0b96
3150 9B80 C6 54           .T    ldab #54
3151 9B82 F7 0B 95        ...   stb 0b95
3152 9B85 C6 20           .     ldab #20
3153 9B87 F7 0B 94        ...   stb 0b94
3154 9B8A F6 00 5A        ..Z   ldab 005a
3155 9B8D F7 0B 93        ...   stb 0b93
3156 9B90 F6 00 5D        ..]   ldab 005d
3157 9B93 F7 0B 92        ...   stb 0b92
3158 9B96 F6 00 5E        ..^   ldab 005e
3159 9B99 F7 0B 91        ...   stb 0b91
3160 9B9C F6 00 5F        .._   ldab 005f
3161 9B9F F7 0B 90        ...   stb 0b90
3162 9BA2 F6 00 13        ...   ldab 0013
3163 9BA5 C1 01           ..    cmpb #01
3164 9BA7 23 3C           #<    bls 3c
3165 9BA9 F6 0B 91        ...   ldab 0b91
3166 9BAC F7 0B 90        ...   stb 0b90
3167 9BAF F6 00 13        ...   ldab 0013
3168 9BB2 C1 02           ..    cmpb #02
3169 9BB4 26 07           &.    bne 07
3170 9BB6 C6 2E           ..    ldab #2e
3171 9BB8 F7 0B 91        ...   stb 0b91
3172 9BBB 20 28            (    bra 28
3173 9BBD C1 04           ..    cmpb #04
3174 9BBF 26 0D           &.    bne 0d
3175 9BC1 F6 0B 92        ...   ldab 0b92
3176 9BC4 F7 0B 91        ...   stb 0b91
3177 9BC7 C6 2E           ..    ldab #2e
3178 9BC9 F7 0B 92        ...   stb 0b92
3179 9BCC 20 17            .    bra 17
3180 9BCE C1 08           ..    cmpb #08
3181 9BD0 26 13           &.    bne 13
3182 9BD2 F6 0B 92        ...   ldab 0b92
3183 9BD5 F7 0B 91        ...   stb 0b91
3184 9BD8 F6 0B 93        ...   ldab 0b93
3185 9BDB F7 0B 92        ...   stb 0b92
3186 9BDE C6 2E           ..    ldab #2e
3187 9BE0 F7 0B 93        ...   stb 0b93
3188 9BE3 20 00            .    bra 00
3189 9BE5 F6 00 2C        ..,   ldab 002c
3190 9BE8 26 2A           &*    bne 2a
3191 9BEA BD BE 69        ..i   jsr be69
3192 9BED F6 00 13        ...   ldab 0013
3193 9BF0 C1 01           ..    cmpb #01
3194 9BF2 23 18           #.    bls 18
3195 9BF4 CE 10 28        ..(   ldx #1028
3196 9BF7 1C 00           ..    bset add,x 00,x
3197 9BF9 40              @     nega
3198 9BFA CE 00 01        ...   ldx #0001
3199 9BFD 3C              <     pshx
3200 9BFE F6 00 5F        .._   ldab 005f
3201 9C01 4F              O     clra
3202 9C02 BD BD B5        ...   jsr bdb5
3203 9C05 38              8     pulx
3204 9C06 CE 10 28        ..(   ldx #1028
3205 9C09 1D 00           ..    bclr add,x 00,x
3206 9C0B 40              @     nega
3207 9C0C BD BE 10        ...   jsr be10
3208 9C0F C6 03           ..    ldab #03
3209 9C11 F7 00 2C        ..,   stb 002c
3210 9C14 39              9     rts
3211 9C15 BD BE 4B        ..K   jsr be4b
3212 9C18 F6 00 48        ..H   ldab 0048
3213 9C1B 4F              O     clra
3214 9C1C BD FE 16        ...   jsr fe16
3215 9C1F 00              .     test
3216 9C20 00              .     test
3217 9C21 00              .     test
3218 9C22 0A              .     clv
3219 9C23 9D 29 9C        .).   jsr 29
3220 9C26 3B              ;     rti
3221 9C27 9C 53 9C        .S.   cmpx 53
3222 9C2A 6B              k     illegal
3223 9C2B 9C 83 9C        ...   cmpx 83
3224 9C2E 9B 9C B2        ...   adda 9c
3225 9C31 9C C9 9C        ...   cmpx c9
3226 9C34 E0 9C           ..    subb 9c,x
3227 9C36 F7 9D 0E        ...   stb 9d0e
3228 9C39 9D 23 F6        .#.   jsr 23
3229 9C3C 00              .     test
3230 9C3D 67 C4           g.    asr c4,x
3231 9C3F 02              .     idiv
3232 9C40 27 08           '.    beq 08
3233 9C42 CC AF 00        ...   ldd #af00
3234 9C45 BD C0 BA        ...   jsr c0ba
3235 9C48 20 06            .    bra 06
3236 9C4A CC AF 0B        ...   ldd #af0b
3237 9C4D BD C0 BA        ...   jsr c0ba
3238 9C50 7E 9D 29        ~.)   jmp 9d29
3239 9C53 F6 00 67        ..g   ldab 0067
3240 9C56 C4 10           ..    andb #10
3241 9C58 27 08           '.    beq 08
3242 9C5A CC AF 42        ..B   ldd #af42
3243 9C5D BD C0 BA        ...   jsr c0ba
3244 9C60 20 06            .    bra 06
3245 9C62 CC AF 4D        ..M   ldd #af4d
3246 9C65 BD C0 BA        ...   jsr c0ba
3247 9C68 7E 9D 29        ~.)   jmp 9d29
3248 9C6B F6 00 67        ..g   ldab 0067
3249 9C6E C4 20           .     andb #20
3250 9C70 27 08           '.    beq 08
3251 9C72 CC AF 58        ..X   ldd #af58
3252 9C75 BD C0 BA        ...   jsr c0ba
3253 9C78 20 06            .    bra 06
3254 9C7A CC AF 63        ..c   ldd #af63
3255 9C7D BD C0 BA        ...   jsr c0ba
3256 9C80 7E 9D 29        ~.)   jmp 9d29
3257 9C83 F6 00 67        ..g   ldab 0067
3258 9C86 C4 01           ..    andb #01
3259 9C88 27 08           '.    beq 08
3260 9C8A CC AE EA        ...   ldd #aeea
3261 9C8D BD C0 BA        ...   jsr c0ba
3262 9C90 20 06            .    bra 06
3263 9C92 CC AE F5        ...   ldd #aef5
3264 9C95 BD C0 BA        ...   jsr c0ba
3265 9C98 7E 9D 29        ~.)   jmp 9d29
3266 9C9B F6 00 67        ..g   ldab 0067
3267 9C9E C4 04           ..    andb #04
3268 9CA0 27 08           '.    beq 08
3269 9CA2 CC AF 16        ...   ldd #af16
3270 9CA5 BD C0 BA        ...   jsr c0ba
3271 9CA8 20 06            .    bra 06
3272 9CAA CC AF 21        ..!   ldd #af21
3273 9CAD BD C0 BA        ...   jsr c0ba
3274 9CB0 20 77            w    bra 77
3275 9CB2 F6 00 67        ..g   ldab 0067
3276 9CB5 C4 08           ..    andb #08
3277 9CB7 27 08           '.    beq 08
3278 9CB9 CC AF 2C        ..,   ldd #af2c
3279 9CBC BD C0 BA        ...   jsr c0ba
3280 9CBF 20 06            .    bra 06
3281 9CC1 CC AF 37        ..7   ldd #af37
3282 9CC4 BD C0 BA        ...   jsr c0ba
3283 9CC7 20 60            `    bra 60
3284 9CC9 F6 00 67        ..g   ldab 0067
3285 9CCC C4 40           .@    andb #40
3286 9CCE 27 08           '.    beq 08
3287 9CD0 CC AF 84        ...   ldd #af84
3288 9CD3 BD C0 BA        ...   jsr c0ba
3289 9CD6 20 06            .    bra 06
3290 9CD8 CC AF 8F        ...   ldd #af8f
3291 9CDB BD C0 BA        ...   jsr c0ba
3292 9CDE 20 49            I    bra 49
3293 9CE0 F6 0E 70        ..p   ldab 0e70
3294 9CE3 C1 01           ..    cmpb #01
3295 9CE5 26 08           &.    bne 08
3296 9CE7 CC AE BE        ...   ldd #aebe
3297 9CEA BD C0 BA        ...   jsr c0ba
3298 9CED 20 06            .    bra 06
3299 9CEF CC AE C9        ...   ldd #aec9
3300 9CF2 BD C0 BA        ...   jsr c0ba
3301 9CF5 20 32            2    bra 32
3302 9CF7 F6 0E 6F        ..o   ldab 0e6f
3303 9CFA C1 01           ..    cmpb #01
3304 9CFC 26 08           &.    bne 08
3305 9CFE CC AE D4        ...   ldd #aed4
3306 9D01 BD C0 BA        ...   jsr c0ba
3307 9D04 20 06            .    bra 06
3308 9D06 CC AE DF        ...   ldd #aedf
3309 9D09 BD C0 BA        ...   jsr c0ba
3310 9D0C 20 1B            .    bra 1b
3311 9D0E F6 00 67        ..g   ldab 0067
3312 9D11 2C 08           ,.    bge 08
3313 9D13 CC AF 6E        ..n   ldd #af6e
3314 9D16 BD C0 BA        ...   jsr c0ba
3315 9D19 20 06            .    bra 06
3316 9D1B CC AF 79        ..y   ldd #af79
3317 9D1E BD C0 BA        ...   jsr c0ba
3318 9D21 20 06            .    bra 06
3319 9D23 CC AF B0        ...   ldd #afb0
3320 9D26 BD C0 BA        ...   jsr c0ba
3321 9D29 39              9     rts
3322 9D2A BD BE 4B        ..K   jsr be4b
3323 9D2D F6 00 22        .."   ldab 0022
3324 9D30 4F              O     clra
3325 9D31 BD E7 95        ...   jsr e795
3326 9D34 F6 00 5E        ..^   ldab 005e
3327 9D37 F7 0B 99        ...   stb 0b99
3328 9D3A F6 00 5F        .._   ldab 005f
3329 9D3D F7 0B 98        ...   stb 0b98
3330 9D40 C6 20           .     ldab #20
3331 9D42 F7 0B 97        ...   stb 0b97
3332 9D45 F6 00 24        ..$   ldab 0024
3333 9D48 4F              O     clra
3334 9D49 BD E7 95        ...   jsr e795
3335 9D4C C6 50           .P    ldab #50
3336 9D4E F7 0B 96        ...   stb 0b96
3337 9D51 F6 00 5E        ..^   ldab 005e
3338 9D54 F7 0B 95        ...   stb 0b95
3339 9D57 F6 00 5F        .._   ldab 005f
3340 9D5A F7 0B 94        ...   stb 0b94
3341 9D5D C6 20           .     ldab #20
3342 9D5F F7 0B 93        ...   stb 0b93
3343 9D62 F6 00 2A        ..*   ldab 002a
3344 9D65 4F              O     clra
3345 9D66 BD E7 95        ...   jsr e795
3346 9D69 C6 46           .F    ldab #46
3347 9D6B F7 0B 92        ...   stb 0b92
3348 9D6E F6 00 5E        ..^   ldab 005e
3349 9D71 F7 0B 91        ...   stb 0b91
3350 9D74 F6 00 5F        .._   ldab 005f
3351 9D77 F7 0B 90        ...   stb 0b90
3352 9D7A BD BE 01        ...   jsr be01
3353 9D7D 39              9     rts
3354 9D7E BD BE 4B        ..K   jsr be4b
3355 9D81 F6 00 60        ..`   ldab 0060
3356 9D84 4F              O     clra
3357 9D85 C3 0A 90        ...   addd #0a90
3358 9D88 8F              .     xgdx
3359 9D89 E6 00           ..    ldab 00,x
3360 9D8B F7 0B 99        ...   stb 0b99
3361 9D8E F6 00 60        ..`   ldab 0060
3362 9D91 4F              O     clra
3363 9D92 C3 0A 91        ...   addd #0a91
3364 9D95 8F              .     xgdx
3365 9D96 E6 00           ..    ldab 00,x
3366 9D98 F7 0B 98        ...   stb 0b98
3367 9D9B F6 00 60        ..`   ldab 0060
3368 9D9E 4F              O     clra
3369 9D9F C3 0A 92        ...   addd #0a92
3370 9DA2 8F              .     xgdx
3371 9DA3 E6 00           ..    ldab 00,x
3372 9DA5 F7 0B 97        ...   stb 0b97
3373 9DA8 F6 00 60        ..`   ldab 0060
3374 9DAB 4F              O     clra
3375 9DAC C3 0A 94        ...   addd #0a94
3376 9DAF 8F              .     xgdx
3377 9DB0 E6 00           ..    ldab 00,x
3378 9DB2 F7 0B 95        ...   stb 0b95
3379 9DB5 F6 00 60        ..`   ldab 0060
3380 9DB8 4F              O     clra
3381 9DB9 C3 0A 95        ...   addd #0a95
3382 9DBC 8F              .     xgdx
3383 9DBD E6 00           ..    ldab 00,x
3384 9DBF F7 0B 94        ...   stb 0b94
3385 9DC2 F6 00 60        ..`   ldab 0060
3386 9DC5 4F              O     clra
3387 9DC6 C3 0A 96        ...   addd #0a96
3388 9DC9 8F              .     xgdx
3389 9DCA E6 00           ..    ldab 00,x
3390 9DCC F7 0B 93        ...   stb 0b93
3391 9DCF C6 20           .     ldab #20
3392 9DD1 F7 0B 92        ...   stb 0b92
3393 9DD4 C6 20           .     ldab #20
3394 9DD6 F7 0B 91        ...   stb 0b91
3395 9DD9 F6 00 54        ..T   ldab 0054
3396 9DDC 4F              O     clra
3397 9DDD C3 B4 8F        ...   addd #b48f
3398 9DE0 8F              .     xgdx
3399 9DE1 E6 00           ..    ldab 00,x
3400 9DE3 F7 0B 90        ...   stb 0b90
3401 9DE6 F6 00 38        ..8   ldab 0038
3402 9DE9 C1 03           ..    cmpb #03
3403 9DEB 24 0F           $.    bcc 0f
3404 9DED F6 00 60        ..`   ldab 0060
3405 9DF0 4F              O     clra
3406 9DF1 C3 0A 93        ...   addd #0a93
3407 9DF4 8F              .     xgdx
3408 9DF5 E6 00           ..    ldab 00,x
3409 9DF7 F7 0B 96        ...   stb 0b96
3410 9DFA 20 05            .    bra 05
3411 9DFC C6 1F           ..    ldab #1f
3412 9DFE F7 0B 96        ...   stb 0b96
3413 9E01 BD BE 01        ...   jsr be01
3414 9E04 F6 00 38        ..8   ldab 0038
3415 9E07 26 05           &.    bne 05
3416 9E09 C6 05           ..    ldab #05
3417 9E0B F7 00 38        ..8   stb 0038
3418 9E0E 39              9     rts
3419 9E0F BD BE 4B        ..K   jsr be4b
3420 9E12 F6 00 48        ..H   ldab 0048
3421 9E15 26 15           &.    bne 15
3422 9E17 F6 00 66        ..f   ldab 0066
3423 9E1A 27 08           '.    beq 08
3424 9E1C CC AF C6        ...   ldd #afc6
3425 9E1F BD C0 BA        ...   jsr c0ba
3426 9E22 20 06            .    bra 06
3427 9E24 CC AF D1        ...   ldd #afd1
3428 9E27 BD C0 BA        ...   jsr c0ba
3429 9E2A 20 5C            \    bra 5c
3430 9E2C C6 4D           .M    ldab #4d
3431 9E2E F7 0B 99        ...   stb 0b99
3432 9E31 C6 45           .E    ldab #45
3433 9E33 F7 0B 98        ...   stb 0b98
3434 9E36 C6 4E           .N    ldab #4e
3435 9E38 F7 0B 97        ...   stb 0b97
3436 9E3B C6 55           .U    ldab #55
3437 9E3D F7 0B 96        ...   stb 0b96
3438 9E40 C6 20           .     ldab #20
3439 9E42 F7 0B 95        ...   stb 0b95
3440 9E45 F6 00 48        ..H   ldab 0048
3441 9E48 CB 30           .0    addb #30
3442 9E4A F7 0B 94        ...   stb 0b94
3443 9E4D F6 00 48        ..H   ldab 0048
3444 9E50 C1 0A           ..    cmpb #0a
3445 9E52 26 05           &.    bne 05
3446 9E54 C6 30           .0    ldab #30
3447 9E56 F7 0B 94        ...   stb 0b94
3448 9E59 C6 20           .     ldab #20
3449 9E5B F7 0B 93        ...   stb 0b93
3450 9E5E C6 4F           .O    ldab #4f
3451 9E60 F7 0B 92        ...   stb 0b92
3452 9E63 F6 00 48        ..H   ldab 0048
3453 9E66 4F              O     clra
3454 9E67 C3 00 68        ..h   addd #0068
3455 9E6A 8F              .     xgdx
3456 9E6B E6 00           ..    ldab 00,x
3457 9E6D 27 0C           '.    beq 0c
3458 9E6F C6 4E           .N    ldab #4e
3459 9E71 F7 0B 91        ...   stb 0b91
3460 9E74 C6 20           .     ldab #20
3461 9E76 F7 0B 90        ...   stb 0b90
3462 9E79 20 0A            .    bra 0a
3463 9E7B C6 46           .F    ldab #46
3464 9E7D F7 0B 91        ...   stb 0b91
3465 9E80 C6 46           .F    ldab #46
3466 9E82 F7 0B 90        ...   stb 0b90
3467 9E85 BD BE 01        ...   jsr be01
3468 9E88 39              9     rts
3469 9E89 BD BE 4B        ..K   jsr be4b
3470 9E8C F6 00 48        ..H   ldab 0048
3471 9E8F 4F              O     clra
3472 9E90 BD FE 16        ...   jsr fe16
3473 9E93 00              .     test
3474 9E94 01              .     nop
3475 9E95 00              .     test
3476 9E96 2D A1           -.    blt a1
3477 9E98 C4 9E           ..    andb #9e
3478 9E9A F5 9E FE        ...   bitb 9efe
3479 9E9D 9F 07 9F        ...   sts 07
3480 9EA0 10              .     sba
3481 9EA1 9F 19 9F        ...   sts 19
3482 9EA4 3B              ;     rti
3483 9EA5 9F 44 9F        .D.   sts 44
3484 9EA8 52              R     illegal
3485 9EA9 9F 5B 9F        .[.   sts 5b
3486 9EAC 69              i     rol
3487 9EAD 9F 72 9F        .r.   sts 72
3488 9EB0 80 9F           ..    suba #9f
3489 9EB2 89 9F           ..    adca #9f
3490 9EB4 97 9F A0        ...   sta 9f
3491 9EB7 9F AE 9F        ...   sts ae
3492 9EBA B7 9F C5        ...   sta 9fc5
3493 9EBD 9F DD 9F        ...   sts dd
3494 9EC0 EB A0           ..    addb a0,x
3495 9EC2 03              .     fdiv
3496 9EC3 A0 11           ..    suba 11,x
3497 9EC5 A0 29           .)    suba 29,x
3498 9EC7 A0 37           .7    suba 37,x
3499 9EC9 A0 54           .T    suba 54,x
3500 9ECB A0 62           .b    suba 62,x
3501 9ECD A0 7F           ..    suba 7f,x
3502 9ECF A0 8D           ..    suba 8d,x
3503 9ED1 A0 96           ..    suba 96,x
3504 9ED3 A0 A4           ..    suba a4,x
3505 9ED5 A0 AD           ..    suba ad,x
3506 9ED7 A0 BC           ..    suba bc,x
3507 9ED9 A0 C5           ..    suba c5,x
3508 9EDB A0 D4           ..    suba d4,x
3509 9EDD A0 DD           ..    suba dd,x
3510 9EDF A0 EC           ..    suba ec,x
3511 9EE1 A0 F5           ..    suba f5,x
3512 9EE3 A1 04           ..    cmpa 04,x
3513 9EE5 A1 26           .&    cmpa 26,x
3514 9EE7 A1 34           .4    cmpa 34,x
3515 9EE9 A1 55           .U    cmpa 55,x
3516 9EEB A1 62           .b    cmpa 62,x
3517 9EED A1 83           ..    cmpa 83,x
3518 9EEF A1 90           ..    cmpa 90,x
3519 9EF1 A1 B1           ..    cmpa b1,x
3520 9EF3 A1 BE           ..    cmpa be,x
3521 9EF5 CC B2 90        ...   ldd #b290
3522 9EF8 BD C0 BA        ...   jsr c0ba
3523 9EFB 7E A1 C4        ~..   jmp a1c4
3524 9EFE CC 0C BC        ...   ldd #0cbc
3525 9F01 BD C0 BA        ...   jsr c0ba
3526 9F04 7E A1 C4        ~..   jmp a1c4
3527 9F07 CC B2 A2        ...   ldd #b2a2
3528 9F0A BD C0 BA        ...   jsr c0ba
3529 9F0D 7E A1 C4        ~..   jmp a1c4
3530 9F10 CC 0C CC        ...   ldd #0ccc
3531 9F13 BD C0 BA        ...   jsr c0ba
3532 9F16 7E A1 C4        ~..   jmp a1c4
3533 9F19 C6 41           .A    ldab #41
3534 9F1B F7 0B 99        ...   stb 0b99
3535 9F1E C6 55           .U    ldab #55
3536 9F20 F7 0B 98        ...   stb 0b98
3537 9F23 C6 44           .D    ldab #44
3538 9F25 F7 0B 97        ...   stb 0b97
3539 9F28 C6 54           .T    ldab #54
3540 9F2A F7 0B 96        ...   stb 0b96
3541 9F2D CE 00 00        ...   ldx #0000
3542 9F30 3C              <     pshx
3543 9F31 FC 0C E7        ...   ldd 0ce7
3544 9F34 BD A2 D4        ...   jsr a2d4
3545 9F37 38              8     pulx
3546 9F38 7E A1 C4        ~..   jmp a1c4
3547 9F3B CC B2 C6        ...   ldd #b2c6
3548 9F3E BD C0 BA        ...   jsr c0ba
3549 9F41 7E A1 C4        ~..   jmp a1c4
3550 9F44 FE 0D E9        ...   ldx 0de9
3551 9F47 3C              <     pshx
3552 9F48 FC 0D E7        ...   ldd 0de7
3553 9F4B BD A3 41        ..A   jsr a341
3554 9F4E 38              8     pulx
3555 9F4F 7E A1 C4        ~..   jmp a1c4
3556 9F52 CC B2 D8        ...   ldd #b2d8
3557 9F55 BD C0 BA        ...   jsr c0ba
3558 9F58 7E A1 C4        ~..   jmp a1c4
3559 9F5B FE 0D ED        ...   ldx 0ded
3560 9F5E 3C              <     pshx
3561 9F5F FC 0D EB        ...   ldd 0deb
3562 9F62 BD A3 41        ..A   jsr a341
3563 9F65 38              8     pulx
3564 9F66 7E A1 C4        ~..   jmp a1c4
3565 9F69 CC B2 EA        ...   ldd #b2ea
3566 9F6C BD C0 BA        ...   jsr c0ba
3567 9F6F 7E A1 C4        ~..   jmp a1c4
3568 9F72 FE 0D F1        ...   ldx 0df1
3569 9F75 3C              <     pshx
3570 9F76 FC 0D EF        ...   ldd 0def
3571 9F79 BD A3 41        ..A   jsr a341
3572 9F7C 38              8     pulx
3573 9F7D 7E A1 C4        ~..   jmp a1c4
3574 9F80 CC B2 FC        ...   ldd #b2fc
3575 9F83 BD C0 BA        ...   jsr c0ba
3576 9F86 7E A1 C4        ~..   jmp a1c4
3577 9F89 FE 0D F9        ...   ldx 0df9
3578 9F8C 3C              <     pshx
3579 9F8D FC 0D F7        ...   ldd 0df7
3580 9F90 BD A3 41        ..A   jsr a341
3581 9F93 38              8     pulx
3582 9F94 7E A1 C4        ~..   jmp a1c4
3583 9F97 CC B3 0E        ...   ldd #b30e
3584 9F9A BD C0 BA        ...   jsr c0ba
3585 9F9D 7E A1 C4        ~..   jmp a1c4
3586 9FA0 FE 0D FD        ...   ldx 0dfd
3587 9FA3 3C              <     pshx
3588 9FA4 FC 0D FB        ...   ldd 0dfb
3589 9FA7 BD A3 41        ..A   jsr a341
3590 9FAA 38              8     pulx
3591 9FAB 7E A1 C4        ~..   jmp a1c4
3592 9FAE CC B3 35        ..5   ldd #b335
3593 9FB1 BD C0 BA        ...   jsr c0ba
3594 9FB4 7E A1 C4        ~..   jmp a1c4
3595 9FB7 FE 0D F5        ...   ldx 0df5
3596 9FBA 3C              <     pshx
3597 9FBB FC 0D F3        ...   ldd 0df3
3598 9FBE BD A3 41        ..A   jsr a341
3599 9FC1 38              8     pulx
3600 9FC2 7E A1 C4        ~..   jmp a1c4
3601 9FC5 C6 24           .$    ldab #24
3602 9FC7 F7 0B 99        ...   stb 0b99
3603 9FCA C6 31           .1    ldab #31
3604 9FCC F7 0B 98        ...   stb 0b98
3605 9FCF CE 00 00        ...   ldx #0000
3606 9FD2 3C              <     pshx
3607 9FD3 FC 0C DD        ...   ldd 0cdd
3608 9FD6 BD A2 D4        ...   jsr a2d4
3609 9FD9 38              8     pulx
3610 9FDA 7E A1 C4        ~..   jmp a1c4
3611 9FDD FE 0C F5        ...   ldx 0cf5
3612 9FE0 3C              <     pshx
3613 9FE1 FC 0C F3        ...   ldd 0cf3
3614 9FE4 BD A3 41        ..A   jsr a341
3615 9FE7 38              8     pulx
3616 9FE8 7E A1 C4        ~..   jmp a1c4
3617 9FEB C6 24           .$    ldab #24
3618 9FED F7 0B 99        ...   stb 0b99
3619 9FF0 C6 32           .2    ldab #32
3620 9FF2 F7 0B 98        ...   stb 0b98
3621 9FF5 CE 00 00        ...   ldx #0000
3622 9FF8 3C              <     pshx
3623 9FF9 FC 0C DF        ...   ldd 0cdf
3624 9FFC BD A2 D4        ...   jsr a2d4
3625 9FFF 38              8     pulx
3626 A000 7E A1 C4        ~..   jmp a1c4
3627 A003 FE 0C F9        ...   ldx 0cf9
3628 A006 3C              <     pshx
3629 A007 FC 0C F7        ...   ldd 0cf7
3630 A00A BD A3 41        ..A   jsr a341
3631 A00D 38              8     pulx
3632 A00E 7E A1 C4        ~..   jmp a1c4
3633 A011 C6 24           .$    ldab #24
3634 A013 F7 0B 99        ...   stb 0b99
3635 A016 C6 35           .5    ldab #35
3636 A018 F7 0B 98        ...   stb 0b98
3637 A01B CE 00 00        ...   ldx #0000
3638 A01E 3C              <     pshx
3639 A01F FC 0C E1        ...   ldd 0ce1
3640 A022 BD A2 D4        ...   jsr a2d4
3641 A025 38              8     pulx
3642 A026 7E A1 C4        ~..   jmp a1c4
3643 A029 FE 0C FD        ...   ldx 0cfd
3644 A02C 3C              <     pshx
3645 A02D FC 0C FB        ...   ldd 0cfb
3646 A030 BD A3 41        ..A   jsr a341
3647 A033 38              8     pulx
3648 A034 7E A1 C4        ~..   jmp a1c4
3649 A037 C6 24           .$    ldab #24
3650 A039 F7 0B 99        ...   stb 0b99
3651 A03C C6 31           .1    ldab #31
3652 A03E F7 0B 98        ...   stb 0b98
3653 A041 C6 30           .0    ldab #30
3654 A043 F7 0B 97        ...   stb 0b97
3655 A046 CE 00 00        ...   ldx #0000
3656 A049 3C              <     pshx
3657 A04A FC 0C E3        ...   ldd 0ce3
3658 A04D BD A2 D4        ...   jsr a2d4
3659 A050 38              8     pulx
3660 A051 7E A1 C4        ~..   jmp a1c4
3661 A054 FE 0D 01        ...   ldx 0d01
3662 A057 3C              <     pshx
3663 A058 FC 0C FF        ...   ldd 0cff
3664 A05B BD A3 41        ..A   jsr a341
3665 A05E 38              8     pulx
3666 A05F 7E A1 C4        ~..   jmp a1c4
3667 A062 C6 24           .$    ldab #24
3668 A064 F7 0B 99        ...   stb 0b99
3669 A067 C6 32           .2    ldab #32
3670 A069 F7 0B 98        ...   stb 0b98
3671 A06C C6 30           .0    ldab #30
3672 A06E F7 0B 97        ...   stb 0b97
3673 A071 CE 00 00        ...   ldx #0000
3674 A074 3C              <     pshx
3675 A075 FC 0C E5        ...   ldd 0ce5
3676 A078 BD A2 D4        ...   jsr a2d4
3677 A07B 38              8     pulx
3678 A07C 7E A1 C4        ~..   jmp a1c4
3679 A07F FE 0D 05        ...   ldx 0d05
3680 A082 3C              <     pshx
3681 A083 FC 0D 03        ...   ldd 0d03
3682 A086 BD A3 41        ..A   jsr a341
3683 A089 38              8     pulx
3684 A08A 7E A1 C4        ~..   jmp a1c4
3685 A08D CC B3 B7        ...   ldd #b3b7
3686 A090 BD C0 BA        ...   jsr c0ba
3687 A093 7E A1 C4        ~..   jmp a1c4
3688 A096 CE 00 01        ...   ldx #0001
3689 A099 3C              <     pshx
3690 A09A FC 0C F1        ...   ldd 0cf1
3691 A09D BD A2 D4        ...   jsr a2d4
3692 A0A0 38              8     pulx
3693 A0A1 7E A1 C4        ~..   jmp a1c4
3694 A0A4 CC B3 CE        ...   ldd #b3ce
3695 A0A7 BD C0 BA        ...   jsr c0ba
3696 A0AA 7E A1 C4        ~..   jmp a1c4
3697 A0AD FE 0C E9        ...   ldx 0ce9
3698 A0B0 3C              <     pshx
3699 A0B1 F6 0C DC        ...   ldab 0cdc
3700 A0B4 4F              O     clra
3701 A0B5 BD A3 1A        ...   jsr a31a
3702 A0B8 38              8     pulx
3703 A0B9 7E A1 C4        ~..   jmp a1c4
3704 A0BC CC B3 E0        ...   ldd #b3e0
3705 A0BF BD C0 BA        ...   jsr c0ba
3706 A0C2 7E A1 C4        ~..   jmp a1c4
3707 A0C5 FE 0C EB        ...   ldx 0ceb
3708 A0C8 3C              <     pshx
3709 A0C9 F6 0C DB        ...   ldab 0cdb
3710 A0CC 4F              O     clra
3711 A0CD BD A3 1A        ...   jsr a31a
3712 A0D0 38              8     pulx
3713 A0D1 7E A1 C4        ~..   jmp a1c4
3714 A0D4 CC B3 F2        ...   ldd #b3f2
3715 A0D7 BD C0 BA        ...   jsr c0ba
3716 A0DA 7E A1 C4        ~..   jmp a1c4
3717 A0DD FE 0C ED        ...   ldx 0ced
3718 A0E0 3C              <     pshx
3719 A0E1 F6 0C DA        ...   ldab 0cda
3720 A0E4 4F              O     clra
3721 A0E5 BD A3 1A        ...   jsr a31a
3722 A0E8 38              8     pulx
3723 A0E9 7E A1 C4        ~..   jmp a1c4
3724 A0EC CC B4 04        ...   ldd #b404
3725 A0EF BD C0 BA        ...   jsr c0ba
3726 A0F2 7E A1 C4        ~..   jmp a1c4
3727 A0F5 FE 0C EF        ...   ldx 0cef
3728 A0F8 3C              <     pshx
3729 A0F9 F6 0C D9        ...   ldab 0cd9
3730 A0FC 4F              O     clra
3731 A0FD BD A3 1A        ...   jsr a31a
3732 A100 38              8     pulx
3733 A101 7E A1 C4        ~..   jmp a1c4
3734 A104 C6 57           .W    ldab #57
3735 A106 F7 0B 99        ...   stb 0b99
3736 A109 C6 53           .S    ldab #53
3737 A10B F7 0B 98        ...   stb 0b98
3738 A10E C6 4E           .N    ldab #4e
3739 A110 F7 0B 97        ...   stb 0b97
3740 A113 C6 4B           .K    ldab #4b
3741 A115 F7 0B 96        ...   stb 0b96
3742 A118 CE 00 00        ...   ldx #0000
3743 A11B 3C              <     pshx
3744 A11C FC 0D 07        ...   ldd 0d07
3745 A11F BD A2 D4        ...   jsr a2d4
3746 A122 38              8     pulx
3747 A123 7E A1 C4        ~..   jmp a1c4
3748 A126 FE 0D 11        ...   ldx 0d11
3749 A129 3C              <     pshx
3750 A12A FC 0D 0F        ...   ldd 0d0f
3751 A12D BD A3 41        ..A   jsr a341
3752 A130 38              8     pulx
3753 A131 7E A1 C4        ~..   jmp a1c4
3754 A134 C6 53           .S    ldab #53
3755 A136 F7 0B 99        ...   stb 0b99
3756 A139 C6 48           .H    ldab #48
3757 A13B F7 0B 98        ...   stb 0b98
3758 A13E C6 50           .P    ldab #50
3759 A140 F7 0B 97        ...   stb 0b97
3760 A143 C6 52           .R    ldab #52
3761 A145 F7 0B 96        ...   stb 0b96
3762 A148 CE 00 00        ...   ldx #0000
3763 A14B 3C              <     pshx
3764 A14C FC 0D 09        ...   ldd 0d09
3765 A14F BD A2 D4        ...   jsr a2d4
3766 A152 38              8     pulx
3767 A153 20 6F            o    bra 6f
3768 A155 FE 0D 15        ...   ldx 0d15
3769 A158 3C              <     pshx
3770 A159 FC 0D 13        ...   ldd 0d13
3771 A15C BD A3 41        ..A   jsr a341
3772 A15F 38              8     pulx
3773 A160 20 62            b    bra 62
3774 A162 C6 50           .P    ldab #50
3775 A164 F7 0B 99        ...   stb 0b99
3776 A167 C6 52           .R    ldab #52
3777 A169 F7 0B 98        ...   stb 0b98
3778 A16C C6 4D           .M    ldab #4d
3779 A16E F7 0B 97        ...   stb 0b97
3780 A171 C6 4F           .O    ldab #4f
3781 A173 F7 0B 96        ...   stb 0b96
3782 A176 CE 00 00        ...   ldx #0000
3783 A179 3C              <     pshx
3784 A17A FC 0D 0B        ...   ldd 0d0b
3785 A17D BD A2 D4        ...   jsr a2d4
3786 A180 38              8     pulx
3787 A181 20 41            A    bra 41
3788 A183 FE 0D 19        ...   ldx 0d19
3789 A186 3C              <     pshx
3790 A187 FC 0D 17        ...   ldd 0d17
3791 A18A BD A3 41        ..A   jsr a341
3792 A18D 38              8     pulx
3793 A18E 20 34            4    bra 34
3794 A190 C6 46           .F    ldab #46
3795 A192 F7 0B 99        ...   stb 0b99
3796 A195 C6 52           .R    ldab #52
3797 A197 F7 0B 98        ...   stb 0b98
3798 A19A C6 45           .E    ldab #45
3799 A19C F7 0B 97        ...   stb 0b97
3800 A19F C6 45           .E    ldab #45
3801 A1A1 F7 0B 96        ...   stb 0b96
3802 A1A4 CE 00 00        ...   ldx #0000
3803 A1A7 3C              <     pshx
3804 A1A8 FC 0D 0D        ...   ldd 0d0d
3805 A1AB BD A2 D4        ...   jsr a2d4
3806 A1AE 38              8     pulx
3807 A1AF 20 13            .    bra 13
3808 A1B1 FE 0D 1D        ...   ldx 0d1d
3809 A1B4 3C              <     pshx
3810 A1B5 FC 0D 1B        ...   ldd 0d1b
3811 A1B8 BD A3 41        ..A   jsr a341
3812 A1BB 38              8     pulx
3813 A1BC 20 06            .    bra 06
3814 A1BE CC B4 84        ...   ldd #b484
3815 A1C1 BD C0 BA        ...   jsr c0ba
3816 A1C4 F6 00 48        ..H   ldab 0048
3817 A1C7 C1 2E           ..    cmpb #2e
3818 A1C9 23 74           #t    bls 74
3819 A1CB F6 00 48        ..H   ldab 0048
3820 A1CE C1 92           ..    cmpb #92
3821 A1D0 24 6D           $m    bcc 6d
3822 A1D2 F6 00 48        ..H   ldab 0048
3823 A1D5 4F              O     clra
3824 A1D6 05              .     asld
3825 A1D7 C3 08 6C        ..l   addd #086c
3826 A1DA 8F              .     xgdx
3827 A1DB EC 00           ..    ldd 00,x
3828 A1DD C4 80           ..    andb #80
3829 A1DF 26 0E           &.    bne 0e
3830 A1E1 7C 00 48        |.H   inc 0048
3831 A1E4 F6 00 48        ..H   ldab 0048
3832 A1E7 C1 92           ..    cmpb #92
3833 A1E9 26 02           &.    bne 02
3834 A1EB 20 02            .    bra 02
3835 A1ED 20 E3            .    bra e3
3836 A1EF F6 00 48        ..H   ldab 0048
3837 A1F2 4F              O     clra
3838 A1F3 C3 FF D2        ...   addd #ffd2
3839 A1F6 BD E7 95        ...   jsr e795
3840 A1F9 F6 00 5E        ..^   ldab 005e
3841 A1FC F7 0B 99        ...   stb 0b99
3842 A1FF F6 00 5F        .._   ldab 005f
3843 A202 F7 0B 98        ...   stb 0b98
3844 A205 F6 00 48        ..H   ldab 0048
3845 A208 4F              O     clra
3846 A209 05              .     asld
3847 A20A C3 0C C3        ...   addd #0cc3
3848 A20D 8F              .     xgdx
3849 A20E EC 00           ..    ldd 00,x
3850 A210 BD E7 45        ..E   jsr e745
3851 A213 F6 00 57        ..W   ldab 0057
3852 A216 F7 0B 94        ...   stb 0b94
3853 A219 F6 00 5A        ..Z   ldab 005a
3854 A21C F7 0B 93        ...   stb 0b93
3855 A21F F6 00 5D        ..]   ldab 005d
3856 A222 F7 0B 92        ...   stb 0b92
3857 A225 F6 00 5E        ..^   ldab 005e
3858 A228 F7 0B 91        ...   stb 0b91
3859 A22B F6 00 5F        .._   ldab 005f
3860 A22E F7 0B 90        ...   stb 0b90
3861 A231 5F              _     clrb
3862 A232 4F              O     clra
3863 A233 8D 27           .'    bsr dest 27
3864 A235 F6 00 48        ..H   ldab 0048
3865 A238 C1 92           ..    cmpb #92
3866 A23A 26 03           &.    bne 03
3867 A23C 7F 00 2C        ..,   clr 002c
3868 A23F F6 00 48        ..H   ldab 0048
3869 A242 C1 92           ..    cmpb #92
3870 A244 26 15           &.    bne 15
3871 A246 F6 00 1F        ...   ldab 001f
3872 A249 C4 10           ..    andb #10
3873 A24B 27 08           '.    beq 08
3874 A24D CC AF 9A        ...   ldd #af9a
3875 A250 BD C0 BA        ...   jsr c0ba
3876 A253 20 06            .    bra 06
3877 A255 CC AF A5        ...   ldd #afa5
3878 A258 BD C0 BA        ...   jsr c0ba
3879 A25B 39              9     rts
3880 A25C 37              7     pshb
3881 A25D 36              6     psha
3882 A25E F6 00 2C        ..,   ldab 002c
3883 A261 26 6F           &o    bne 6f
3884 A263 BD BE 69        ..i   jsr be69
3885 A266 30              0     tsx
3886 A267 E6 01           ..    ldab 01,x
3887 A269 27 5F           '_    beq 5f
3888 A26B F6 00 13        ...   ldab 0013
3889 A26E C1 01           ..    cmpb #01
3890 A270 23 58           #X    bls 58
3891 A272 CE 10 28        ..(   ldx #1028
3892 A275 1C 00           ..    bset add,x 00,x
3893 A277 40              @     nega
3894 A278 CE 00 01        ...   ldx #0001
3895 A27B 3C              <     pshx
3896 A27C F6 0B 90        ...   ldab 0b90
3897 A27F 4F              O     clra
3898 A280 BD BD B5        ...   jsr bdb5
3899 A283 38              8     pulx
3900 A284 CE 10 28        ..(   ldx #1028
3901 A287 1D 00           ..    bclr add,x 00,x
3902 A289 40              @     nega
3903 A28A F6 0B 91        ...   ldab 0b91
3904 A28D F7 0B 90        ...   stb 0b90
3905 A290 F6 00 13        ...   ldab 0013
3906 A293 C1 02           ..    cmpb #02
3907 A295 26 07           &.    bne 07
3908 A297 C6 2E           ..    ldab #2e
3909 A299 F7 0B 91        ...   stb 0b91
3910 A29C 20 2C            ,    bra 2c
3911 A29E F6 00 13        ...   ldab 0013
3912 A2A1 C1 04           ..    cmpb #04
3913 A2A3 26 0D           &.    bne 0d
3914 A2A5 F6 0B 92        ...   ldab 0b92
3915 A2A8 F7 0B 91        ...   stb 0b91
3916 A2AB C6 2E           ..    ldab #2e
3917 A2AD F7 0B 92        ...   stb 0b92
3918 A2B0 20 18            .    bra 18
3919 A2B2 F6 00 13        ...   ldab 0013
3920 A2B5 C1 08           ..    cmpb #08
3921 A2B7 26 11           &.    bne 11
3922 A2B9 F6 0B 92        ...   ldab 0b92
3923 A2BC F7 0B 91        ...   stb 0b91
3924 A2BF F6 0B 93        ...   ldab 0b93
3925 A2C2 F7 0B 92        ...   stb 0b92
3926 A2C5 C6 2E           ..    ldab #2e
3927 A2C7 F7 0B 93        ...   stb 0b93
3928 A2CA BD BE 10        ...   jsr be10
3929 A2CD C6 03           ..    ldab #03
3930 A2CF F7 00 2C        ..,   stb 002c
3931 A2D2 38              8     pulx
3932 A2D3 39              9     rts
3933 A2D4 37              7     pshb
3934 A2D5 36              6     psha
3935 A2D6 30              0     tsx
3936 A2D7 EC 00           ..    ldd 00,x
3937 A2D9 BD E7 45        ..E   jsr e745
3938 A2DC F6 00 57        ..W   ldab 0057
3939 A2DF F7 0B 94        ...   stb 0b94
3940 A2E2 F6 00 5A        ..Z   ldab 005a
3941 A2E5 F7 0B 93        ...   stb 0b93
3942 A2E8 F6 00 5D        ..]   ldab 005d
3943 A2EB F7 0B 92        ...   stb 0b92
3944 A2EE F6 00 5E        ..^   ldab 005e
3945 A2F1 F7 0B 91        ...   stb 0b91
3946 A2F4 F6 00 5F        .._   ldab 005f
3947 A2F7 F7 0B 90        ...   stb 0b90
3948 A2FA 30              0     tsx
3949 A2FB E6 05           ..    ldab 05,x
3950 A2FD 27 14           '.    beq 14
3951 A2FF F6 00 17        ...   ldab 0017
3952 A302 C4 08           ..    andb #08
3953 A304 26 05           &.    bne 05
3954 A306 C6 24           .$    ldab #24
3955 A308 F7 0B 95        ...   stb 0b95
3956 A30B CC 00 01        ...   ldd #0001
3957 A30E BD A2 5C        ..\   jsr a25c
3958 A311 20 05            .    bra 05
3959 A313 5F              _     clrb
3960 A314 4F              O     clra
3961 A315 BD A2 5C        ..\   jsr a25c
3962 A318 38              8     pulx
3963 A319 39              9     rts
3964 A31A 37              7     pshb
3965 A31B 36              6     psha
3966 A31C 30              0     tsx
3967 A31D E6 01           ..    ldab 01,x
3968 A31F 4F              O     clra
3969 A320 BD E7 95        ...   jsr e795
3970 A323 F6 00 5D        ..]   ldab 005d
3971 A326 F7 0B 99        ...   stb 0b99
3972 A329 F6 00 5E        ..^   ldab 005e
3973 A32C F7 0B 98        ...   stb 0b98
3974 A32F F6 00 5F        .._   ldab 005f
3975 A332 F7 0B 97        ...   stb 0b97
3976 A335 CE 00 01        ...   ldx #0001
3977 A338 3C              <     pshx
3978 A339 30              0     tsx
3979 A33A EC 06           ..    ldd 06,x
3980 A33C 8D 96           ..    bsr dest 96
3981 A33E 38              8     pulx
3982 A33F 38              8     pulx
3983 A340 39              9     rts
3984 A341 38              8     pulx
3985 A342 37              7     pshb
3986 A343 36              6     psha
3987 A344 3C              <     pshx
3988 A345 30              0     tsx
3989 A346 EC 04           ..    ldd 04,x
3990 A348 37              7     pshb
3991 A349 36              6     psha
3992 A34A EC 02           ..    ldd 02,x
3993 A34C BD E6 21        ..!   jsr e621
3994 A34F 38              8     pulx
3995 A350 C6 20           .     ldab #20
3996 A352 F7 0B 99        ...   stb 0b99
3997 A355 F6 00 17        ...   ldab 0017
3998 A358 C4 08           ..    andb #08
3999 A35A 26 05           &.    bne 05
4000 A35C C6 24           .$    ldab #24
4001 A35E F7 0B 98        ...   stb 0b98
4002 A361 CC 00 01        ...   ldd #0001
4003 A364 BD A2 5C        ..\   jsr a25c
4004 A367 38              8     pulx
4005 A368 31              1     ins
4006 A369 31              1     ins
4007 A36A 6E 00           n.    jmp 00,x
4008 A36C BD BE 4B        ..K   jsr be4b
4009 A36F CC AF DC        ...   ldd #afdc
4010 A372 BD C0 BA        ...   jsr c0ba
4011 A375 CC 01 F4        ...   ldd #01f4
4012 A378 BD E5 71        ..q   jsr e571
4013 A37B 39              9     rts
4014 A37C FC 00 52        ..R   ldd 0052
4015 A37F FD 0B B5        ...   stad 0bb5
4016 A382 8D E8           ..    bsr dest e8
4017 A384 39              9     rts
4018 A385 F6 00 1F        ...   ldab 001f
4019 A388 C4 40           .@    andb #40
4020 A38A 27 73           's    beq 73
4021 A38C F6 00 06        ...   ldab 0006
4022 A38F 4F              O     clra
4023 A390 05              .     asld
4024 A391 C3 08 00        ...   addd #0800
4025 A394 8F              .     xgdx
4026 A395 EC 00           ..    ldd 00,x
4027 A397 5F              _     clrb
4028 A398 84 C0           ..    anda #c0
4029 A39A FA 00 28        ..(   orb 0028
4030 A39D BA 00 27        ..'   ora 0027
4031 A3A0 FD 00 27        ..'   stad 0027
4032 A3A3 FC 00 27        ..'   ldd 0027
4033 A3A6 37              7     pshb
4034 A3A7 36              6     psha
4035 A3A8 F6 00 06        ...   ldab 0006
4036 A3AB 4F              O     clra
4037 A3AC 05              .     asld
4038 A3AD C3 08 00        ...   addd #0800
4039 A3B0 38              8     pulx
4040 A3B1 8F              .     xgdx
4041 A3B2 ED 00           ..    stad 00,x
4042 A3B4 FC 00 27        ..'   ldd 0027
4043 A3B7 43              C     coma
4044 A3B8 53              S     comb
4045 A3B9 37              7     pshb
4046 A3BA 36              6     psha
4047 A3BB F6 00 06        ...   ldab 0006
4048 A3BE 4F              O     clra
4049 A3BF 05              .     asld
4050 A3C0 C3 0B F1        ...   addd #0bf1
4051 A3C3 38              8     pulx
4052 A3C4 8F              .     xgdx
4053 A3C5 ED 00           ..    stad 00,x
4054 A3C7 F6 00 06        ...   ldab 0006
4055 A3CA 4F              O     clra
4056 A3CB 05              .     asld
4057 A3CC C3 08 C8        ...   addd #08c8
4058 A3CF 8F              .     xgdx
4059 A3D0 EC 00           ..    ldd 00,x
4060 A3D2 C4 80           ..    andb #80
4061 A3D4 84 F7           ..    anda #f7
4062 A3D6 FA 00 47        ..G   orb 0047
4063 A3D9 BA 00 46        ..F   ora 0046
4064 A3DC FD 00 46        ..F   stad 0046
4065 A3DF F6 00 19        ...   ldab 0019
4066 A3E2 C4 10           ..    andb #10
4067 A3E4 27 06           '.    beq 06
4068 A3E6 CE 00 46        ..F   ldx #0046
4069 A3E9 1C 00           ..    bset add,x 00,x
4070 A3EB 08              .     inx
4071 A3EC FC 00 46        ..F   ldd 0046
4072 A3EF 37              7     pshb
4073 A3F0 36              6     psha
4074 A3F1 F6 00 06        ...   ldab 0006
4075 A3F4 4F              O     clra
4076 A3F5 05              .     asld
4077 A3F6 C3 08 C8        ...   addd #08c8
4078 A3F9 38              8     pulx
4079 A3FA 8F              .     xgdx
4080 A3FB ED 00           ..    stad 00,x
4081 A3FD 20 22            "    bra 22
4082 A3FF CC 2A FF        .*.   ldd #2aff
4083 A402 37              7     pshb
4084 A403 36              6     psha
4085 A404 F6 00 06        ...   ldab 0006
4086 A407 4F              O     clra
4087 A408 05              .     asld
4088 A409 C3 08 00        ...   addd #0800
4089 A40C 38              8     pulx
4090 A40D 8F              .     xgdx
4091 A40E ED 00           ..    stad 00,x
4092 A410 CC D5 00        ...   ldd #d500
4093 A413 37              7     pshb
4094 A414 36              6     psha
4095 A415 F6 00 06        ...   ldab 0006
4096 A418 4F              O     clra
4097 A419 05              .     asld
4098 A41A C3 0B F1        ...   addd #0bf1
4099 A41D 38              8     pulx
4100 A41E 8F              .     xgdx
4101 A41F ED 00           ..    stad 00,x
4102 A421 F6 00 1F        ...   ldab 001f
4103 A424 C4 40           .@    andb #40
4104 A426 27 26           '&    beq 26
4105 A428 F6 00 06        ...   ldab 0006
4106 A42B 4F              O     clra
4107 A42C 05              .     asld
4108 A42D C3 08 00        ...   addd #0800
4109 A430 8F              .     xgdx
4110 A431 EC 00           ..    ldd 00,x
4111 A433 C4 FF           ..    andb #ff
4112 A435 84 3F           .?    anda #3f
4113 A437 FD 00 27        ..'   stad 0027
4114 A43A F6 00 06        ...   ldab 0006
4115 A43D 4F              O     clra
4116 A43E 05              .     asld
4117 A43F C3 08 C8        ...   addd #08c8
4118 A442 8F              .     xgdx
4119 A443 EC 00           ..    ldd 00,x
4120 A445 C4 7F           ..    andb #7f
4121 A447 4F              O     clra
4122 A448 FD 00 46        ..F   stad 0046
4123 A44B BD A3 6C        ..l   jsr a36c
4124 A44E 39              9     rts
4125 A44F FC 00 0D        ...   ldd 000d
4126 A452 FD 0B B7        ...   stad 0bb7
4127 A455 BD A3 6C        ..l   jsr a36c
4128 A458 39              9     rts
4129 A459 3C              <     pshx
4130 A45A F6 00 67        ..g   ldab 0067
4131 A45D C4 02           ..    andb #02
4132 A45F 27 08           '.    beq 08
4133 A461 CE 00 67        ..g   ldx #0067
4134 A464 1D 00           ..    bclr add,x 00,x
4135 A466 4D              M     tsta
4136 A467 20 0C            .    bra 0c
4137 A469 CE 00 67        ..g   ldx #0067
4138 A46C 1D 00           ..    bclr add,x 00,x
4139 A46E 10              .     sba
4140 A46F CE 00 67        ..g   ldx #0067
4141 A472 1D 00           ..    bclr add,x 00,x
4142 A474 20 F6            .    bra f6
4143 A476 00              .     test
4144 A477 67 C4           g.    asr c4,x
4145 A479 10              .     sba
4146 A47A 26 06           &.    bne 06
4147 A47C CE 00 67        ..g   ldx #0067
4148 A47F 1D 00           ..    bclr add,x 00,x
4149 A481 20 F6            .    bra f6
4150 A483 00              .     test
4151 A484 67 C4           g.    asr c4,x
4152 A486 01              .     nop
4153 A487 27 14           '.    beq 14
4154 A489 CE 00 67        ..g   ldx #0067
4155 A48C 1D 00           ..    bclr add,x 00,x
4156 A48E 02              .     idiv
4157 A48F CE 00 67        ..g   ldx #0067
4158 A492 1D 00           ..    bclr add,x 00,x
4159 A494 10              .     sba
4160 A495 CE 00 67        ..g   ldx #0067
4161 A498 1D 00           ..    bclr add,x 00,x
4162 A49A 20 20                 bra 20
4163 A49C 06              .     tap
4164 A49D CE 00 67        ..g   ldx #0067
4165 A4A0 1D 00           ..    bclr add,x 00,x
4166 A4A2 08              .     inx
4167 A4A3 F6 00 67        ..g   ldab 0067
4168 A4A6 C4 04           ..    andb #04
4169 A4A8 27 12           '.    beq 12
4170 A4AA CE 00 67        ..g   ldx #0067
4171 A4AD 1D 00           ..    bclr add,x 00,x
4172 A4AF 02              .     idiv
4173 A4B0 CE 00 67        ..g   ldx #0067
4174 A4B3 1D 00           ..    bclr add,x 00,x
4175 A4B5 10              .     sba
4176 A4B6 CE 00 67        ..g   ldx #0067
4177 A4B9 1D 00           ..    bclr add,x 00,x
4178 A4BB 20 F6            .    bra f6
4179 A4BD 00              .     test
4180 A4BE 67 C4           g.    asr c4,x
4181 A4C0 08              .     inx
4182 A4C1 26 06           &.    bne 06
4183 A4C3 CE 00 67        ..g   ldx #0067
4184 A4C6 1D 00           ..    bclr add,x 00,x
4185 A4C8 40              @     nega
4186 A4C9 F6 00 67        ..g   ldab 0067
4187 A4CC F7 0B C0        ...   stb 0bc0
4188 A4CF F6 0E 70        ..p   ldab 0e70
4189 A4D2 F7 0E 6E        ..n   stb 0e6e
4190 A4D5 F6 0E 6D        ..m   ldab 0e6d
4191 A4D8 26 39           &9    bne 39
4192 A4DA F6 0E 6F        ..o   ldab 0e6f
4193 A4DD 27 34           '4    beq 34
4194 A4DF 7F 00 06        ...   clr 0006
4195 A4E2 F6 00 06        ...   ldab 0006
4196 A4E5 C1 3F           .?    cmpb #3f
4197 A4E7 24 2A           $*    bcc 2a
4198 A4E9 F6 00 06        ...   ldab 0006
4199 A4EC 4F              O     clra
4200 A4ED CE 00 05        ...   ldx #0005
4201 A4F0 02              .     idiv
4202 A4F1 5D              ]     tstb
4203 A4F2 27 1A           '.    beq 1a
4204 A4F4 F6 00 06        ...   ldab 0006
4205 A4F7 4F              O     clra
4206 A4F8 C3 08 00        ...   addd #0800
4207 A4FB 30              0     tsx
4208 A4FC ED 00           ..    stad 00,x
4209 A4FE EC 00           ..    ldd 00,x
4210 A500 37              7     pshb
4211 A501 36              6     psha
4212 A502 F6 00 06        ...   ldab 0006
4213 A505 4F              O     clra
4214 A506 05              .     asld
4215 A507 C3 08 C8        ...   addd #08c8
4216 A50A 38              8     pulx
4217 A50B 8F              .     xgdx
4218 A50C ED 00           ..    stad 00,x
4219 A50E 7C 00 06        |..   inc 0006
4220 A511 20 CF            .    bra cf
4221 A513 F6 0E 6F        ..o   ldab 0e6f
4222 A516 F7 0E 6D        ..m   stb 0e6d
4223 A519 BD A3 6C        ..l   jsr a36c
4224 A51C 38              8     pulx
4225 A51D 39              9     rts
4226 A51E F6 00 22        .."   ldab 0022
4227 A521 4F              O     clra
4228 A522 BD FE 16        ...   jsr fe16
4229 A525 00              .     test
4230 A526 01              .     nop
4231 A527 00              .     test
4232 A528 04              .     lsrd
4233 A529 A5 79           .y    bita 79,x
4234 A52B A5 35           .5    bita 35,x
4235 A52D A5 43           .C    bita 43,x
4236 A52F A5 51           .Q    bita 51,x
4237 A531 A5 5F           ._    bita 5f,x
4238 A533 A5 6D           .m    bita 6d,x
4239 A535 F6 00 24        ..$   ldab 0024
4240 A538 F7 0B AF        ...   stb 0baf
4241 A53B F6 00 2A        ..*   ldab 002a
4242 A53E F7 0B B4        ...   stb 0bb4
4243 A541 20 36            6    bra 36
4244 A543 F6 00 24        ..$   ldab 0024
4245 A546 F7 0B AE        ...   stb 0bae
4246 A549 F6 00 2A        ..*   ldab 002a
4247 A54C F7 0B B3        ...   stb 0bb3
4248 A54F 20 28            (    bra 28
4249 A551 F6 00 24        ..$   ldab 0024
4250 A554 F7 0B AD        ...   stb 0bad
4251 A557 F6 00 2A        ..*   ldab 002a
4252 A55A F7 0B B2        ...   stb 0bb2
4253 A55D 20 1A            .    bra 1a
4254 A55F F6 00 24        ..$   ldab 0024
4255 A562 F7 0B AC        ...   stb 0bac
4256 A565 F6 00 2A        ..*   ldab 002a
4257 A568 F7 0B B1        ...   stb 0bb1
4258 A56B 20 0C            .    bra 0c
4259 A56D F6 00 24        ..$   ldab 0024
4260 A570 F7 0B AB        ...   stb 0bab
4261 A573 F6 00 2A        ..*   ldab 002a
4262 A576 F7 0B B0        ...   stb 0bb0
4263 A579 BD A3 6C        ..l   jsr a36c
4264 A57C 39              9     rts
4265 A57D 7F 00 54        ..T   clr 0054
4266 A580 F6 00 54        ..T   ldab 0054
4267 A583 C1 FF           ..    cmpb #ff
4268 A585 24 1B           $.    bcc 1b
4269 A587 F6 00 54        ..T   ldab 0054
4270 A58A 4F              O     clra
4271 A58B C3 0A 90        ...   addd #0a90
4272 A58E 8F              .     xgdx
4273 A58F E6 00           ..    ldab 00,x
4274 A591 37              7     pshb
4275 A592 F6 00 54        ..T   ldab 0054
4276 A595 4F              O     clra
4277 A596 C3 09 90        ...   addd #0990
4278 A599 8F              .     xgdx
4279 A59A 33              3     pulb
4280 A59B E7 00           ..    stb 00,x
4281 A59D 7C 00 54        |.T   inc 0054
4282 A5A0 20 DE            .    bra de
4283 A5A2 F6 00 61        ..a   ldab 0061
4284 A5A5 F7 0B BF        ...   stb 0bbf
4285 A5A8 BD A3 6C        ..l   jsr a36c
4286 A5AB 39              9     rts
4287 A5AC 7F 00 54        ..T   clr 0054
4288 A5AF F6 00 54        ..T   ldab 0054
4289 A5B2 C1 10           ..    cmpb #10
4290 A5B4 24 1B           $.    bcc 1b
4291 A5B6 F6 00 54        ..T   ldab 0054
4292 A5B9 4F              O     clra
4293 A5BA C3 0A 90        ...   addd #0a90
4294 A5BD 8F              .     xgdx
4295 A5BE E6 00           ..    ldab 00,x
4296 A5C0 37              7     pshb
4297 A5C1 F6 00 54        ..T   ldab 0054
4298 A5C4 4F              O     clra
4299 A5C5 C3 0C B9        ...   addd #0cb9
4300 A5C8 8F              .     xgdx
4301 A5C9 33              3     pulb
4302 A5CA E7 00           ..    stb 00,x
4303 A5CC 7C 00 54        |.T   inc 0054
4304 A5CF 20 DE            .    bra de
4305 A5D1 BD A3 6C        ..l   jsr a36c
4306 A5D4 39              9     rts
4307 A5D5 7F 00 54        ..T   clr 0054
4308 A5D8 F6 00 54        ..T   ldab 0054
4309 A5DB C1 10           ..    cmpb #10
4310 A5DD 24 1B           $.    bcc 1b
4311 A5DF F6 00 54        ..T   ldab 0054
4312 A5E2 4F              O     clra
4313 A5E3 C3 0A 90        ...   addd #0a90
4314 A5E6 8F              .     xgdx
4315 A5E7 E6 00           ..    ldab 00,x
4316 A5E9 37              7     pshb
4317 A5EA F6 00 54        ..T   ldab 0054
4318 A5ED 4F              O     clra
4319 A5EE C3 0C C9        ...   addd #0cc9
4320 A5F1 8F              .     xgdx
4321 A5F2 33              3     pulb
4322 A5F3 E7 00           ..    stb 00,x
4323 A5F5 7C 00 54        |.T   inc 0054
4324 A5F8 20 DE            .    bra de
4325 A5FA BD A3 6C        ..l   jsr a36c
4326 A5FD 39              9     rts
4327 A5FE 7F 00 54        ..T   clr 0054
4328 A601 F6 00 54        ..T   ldab 0054
4329 A604 C1 05           ..    cmpb #05
4330 A606 24 1B           $.    bcc 1b
4331 A608 F6 00 54        ..T   ldab 0054
4332 A60B 4F              O     clra
4333 A60C C3 00 62        ..b   addd #0062
4334 A60F 8F              .     xgdx
4335 A610 E6 00           ..    ldab 00,x
4336 A612 37              7     pshb
4337 A613 F6 00 54        ..T   ldab 0054
4338 A616 4F              O     clra
4339 A617 C3 0B A4        ...   addd #0ba4
4340 A61A 8F              .     xgdx
4341 A61B 33              3     pulb
4342 A61C E7 00           ..    stb 00,x
4343 A61E 7C 00 54        |.T   inc 0054
4344 A621 20 DE            .    bra de
4345 A623 7F 00 54        ..T   clr 0054
4346 A626 F6 00 54        ..T   ldab 0054
4347 A629 C1 0B           ..    cmpb #0b
4348 A62B 24 1B           $.    bcc 1b
4349 A62D F6 00 54        ..T   ldab 0054
4350 A630 4F              O     clra
4351 A631 C3 00 68        ..h   addd #0068
4352 A634 8F              .     xgdx
4353 A635 E6 00           ..    ldab 00,x
4354 A637 37              7     pshb
4355 A638 F6 00 54        ..T   ldab 0054
4356 A63B 4F              O     clra
4357 A63C C3 0B E4        ...   addd #0be4
4358 A63F 8F              .     xgdx
4359 A640 33              3     pulb
4360 A641 E7 00           ..    stb 00,x
4361 A643 7C 00 54        |.T   inc 0054
4362 A646 20 DE            .    bra de
4363 A648 8D 04           ..    bsr dest 04
4364 A64A BD A3 6C        ..l   jsr a36c
4365 A64D 39              9     rts
4366 A64E BD AB 0C        ...   jsr ab0c
4367 A651 C6 20           .     ldab #20
4368 A653 F7 0B A3        ...   stb 0ba3
4369 A656 C6 20           .     ldab #20
4370 A658 F7 0B 9A        ...   stb 0b9a
4371 A65B C6 01           ..    ldab #01
4372 A65D F7 00 54        ..T   stb 0054
4373 A660 F6 00 54        ..T   ldab 0054
4374 A663 C1 09           ..    cmpb #09
4375 A665 25 03           %.    bcs 03
4376 A667 7E A7 1E        ~..   jmp a71e
4377 A66A F6 00 54        ..T   ldab 0054
4378 A66D 4F              O     clra
4379 A66E BD FE 16        ...   jsr fe16
4380 A671 00              .     test
4381 A672 01              .     nop
4382 A673 00              .     test
4383 A674 07              .     tpa
4384 A675 A6 ED           ..    ldaa ed,x
4385 A677 A6 87           ..    ldaa 87,x
4386 A679 A6 95           ..    ldaa 95,x
4387 A67B A6 A1           ..    ldaa a1,x
4388 A67D A6 AF           ..    ldaa af,x
4389 A67F A6 BB           ..    ldaa bb,x
4390 A681 A6 C9           ..    ldaa c9,x
4391 A683 A6 D5           ..    ldaa d5,x
4392 A685 A6 E3           ..    ldaa e3,x
4393 A687 F6 00 62        ..b   ldab 0062
4394 A68A 54              T     lsrb
4395 A68B 54              T     lsrb
4396 A68C 54              T     lsrb
4397 A68D 54              T     lsrb
4398 A68E C8 04           ..    eorb #04
4399 A690 F7 00 5F        .._   stb 005f
4400 A693 20 58            X    bra 58
4401 A695 F6 00 62        ..b   ldab 0062
4402 A698 C4 0F           ..    andb #0f
4403 A69A C8 0D           ..    eorb #0d
4404 A69C F7 00 5F        .._   stb 005f
4405 A69F 20 4C            L    bra 4c
4406 A6A1 F6 00 63        ..c   ldab 0063
4407 A6A4 54              T     lsrb
4408 A6A5 54              T     lsrb
4409 A6A6 54              T     lsrb
4410 A6A7 54              T     lsrb
4411 A6A8 C8 04           ..    eorb #04
4412 A6AA F7 00 5F        .._   stb 005f
4413 A6AD 20 3E            >    bra 3e
4414 A6AF F6 00 63        ..c   ldab 0063
4415 A6B2 C4 0F           ..    andb #0f
4416 A6B4 C8 05           ..    eorb #05
4417 A6B6 F7 00 5F        .._   stb 005f
4418 A6B9 20 32            2    bra 32
4419 A6BB F6 00 64        ..d   ldab 0064
4420 A6BE 54              T     lsrb
4421 A6BF 54              T     lsrb
4422 A6C0 54              T     lsrb
4423 A6C1 54              T     lsrb
4424 A6C2 C8 05           ..    eorb #05
4425 A6C4 F7 00 5F        .._   stb 005f
4426 A6C7 20 24            $    bra 24
4427 A6C9 F6 00 64        ..d   ldab 0064
4428 A6CC C4 0F           ..    andb #0f
4429 A6CE C8 04           ..    eorb #04
4430 A6D0 F7 00 5F        .._   stb 005f
4431 A6D3 20 18            .    bra 18
4432 A6D5 F6 00 65        ..e   ldab 0065
4433 A6D8 54              T     lsrb
4434 A6D9 54              T     lsrb
4435 A6DA 54              T     lsrb
4436 A6DB 54              T     lsrb
4437 A6DC C8 05           ..    eorb #05
4438 A6DE F7 00 5F        .._   stb 005f
4439 A6E1 20 0A            .    bra 0a
4440 A6E3 F6 00 65        ..e   ldab 0065
4441 A6E6 C4 0F           ..    andb #0f
4442 A6E8 C8 03           ..    eorb #03
4443 A6EA F7 00 5F        .._   stb 005f
4444 A6ED F6 00 5F        .._   ldab 005f
4445 A6F0 C1 09           ..    cmpb #09
4446 A6F2 23 13           #.    bls 13
4447 A6F4 F6 00 5F        .._   ldab 005f
4448 A6F7 CB 37           .7    addb #37
4449 A6F9 37              7     pshb
4450 A6FA F6 00 54        ..T   ldab 0054
4451 A6FD 4F              O     clra
4452 A6FE C3 0B 9A        ...   addd #0b9a
4453 A701 8F              .     xgdx
4454 A702 33              3     pulb
4455 A703 E7 00           ..    stb 00,x
4456 A705 20 11            .    bra 11
4457 A707 F6 00 5F        .._   ldab 005f
4458 A70A CB 30           .0    addb #30
4459 A70C 37              7     pshb
4460 A70D F6 00 54        ..T   ldab 0054
4461 A710 4F              O     clra
4462 A711 C3 0B 9A        ...   addd #0b9a
4463 A714 8F              .     xgdx
4464 A715 33              3     pulb
4465 A716 E7 00           ..    stb 00,x
4466 A718 7C 00 54        |.T   inc 0054
4467 A71B 7E A6 60        ~.`   jmp a660
4468 A71E 39              9     rts
4469 A71F F6 00 48        ..H   ldab 0048
4470 A722 26 11           &.    bne 11
4471 A724 F6 00 66        ..f   ldab 0066
4472 A727 26 07           &.    bne 07
4473 A729 C6 01           ..    ldab #01
4474 A72B F7 00 66        ..f   stb 0066
4475 A72E 20 03            .    bra 03
4476 A730 7F 00 66        ..f   clr 0066
4477 A733 20 29            )    bra 29
4478 A735 F6 00 48        ..H   ldab 0048
4479 A738 4F              O     clra
4480 A739 C3 00 68        ..h   addd #0068
4481 A73C 8F              .     xgdx
4482 A73D E6 00           ..    ldab 00,x
4483 A73F 26 10           &.    bne 10
4484 A741 C6 01           ..    ldab #01
4485 A743 37              7     pshb
4486 A744 F6 00 48        ..H   ldab 0048
4487 A747 4F              O     clra
4488 A748 C3 00 68        ..h   addd #0068
4489 A74B 8F              .     xgdx
4490 A74C 33              3     pulb
4491 A74D E7 00           ..    stb 00,x
4492 A74F 20 0D            .    bra 0d
4493 A751 5F              _     clrb
4494 A752 37              7     pshb
4495 A753 F6 00 48        ..H   ldab 0048
4496 A756 4F              O     clra
4497 A757 C3 00 68        ..h   addd #0068
4498 A75A 8F              .     xgdx
4499 A75B 33              3     pulb
4500 A75C E7 00           ..    stb 00,x
4501 A75E 39              9     rts
4502 A75F F6 00 48        ..H   ldab 0048
4503 A762 4F              O     clra
4504 A763 BD FE 16        ...   jsr fe16
4505 A766 00              .     test
4506 A767 00              .     test
4507 A768 00              .     test
4508 A769 09              .     dex
4509 A76A A7 DC           ..    sta dc,x
4510 A76C A7 80           ..    sta 80,x
4511 A76E A7 87           ..    sta 87,x
4512 A770 A7 8E           ..    sta 8e,x
4513 A772 A7 95           ..    sta 95,x
4514 A774 A7 9C           ..    sta 9c,x
4515 A776 A7 A3           ..    sta a3,x
4516 A778 A7 AA           ..    sta aa,x
4517 A77A A7 B1           ..    sta b1,x
4518 A77C A7 C4           ..    sta c4,x
4519 A77E A7 D7           ..    sta d7,x
4520 A780 C6 02           ..    ldab #02
4521 A782 F7 00 02        ...   stb 0002
4522 A785 20 55            U    bra 55
4523 A787 C6 10           ..    ldab #10
4524 A789 F7 00 02        ...   stb 0002
4525 A78C 20 4E            N    bra 4e
4526 A78E C6 20           .     ldab #20
4527 A790 F7 00 02        ...   stb 0002
4528 A793 20 47            G    bra 47
4529 A795 C6 01           ..    ldab #01
4530 A797 F7 00 02        ...   stb 0002
4531 A79A 20 40            @    bra 40
4532 A79C C6 04           ..    ldab #04
4533 A79E F7 00 02        ...   stb 0002
4534 A7A1 20 39            9    bra 39
4535 A7A3 C6 08           ..    ldab #08
4536 A7A5 F7 00 02        ...   stb 0002
4537 A7A8 20 32            2    bra 32
4538 A7AA C6 40           .@    ldab #40
4539 A7AC F7 00 02        ...   stb 0002
4540 A7AF 20 2B            +    bra 2b
4541 A7B1 F6 0E 70        ..p   ldab 0e70
4542 A7B4 C1 01           ..    cmpb #01
4543 A7B6 26 05           &.    bne 05
4544 A7B8 7F 0E 70        ..p   clr 0e70
4545 A7BB 20 05            .    bra 05
4546 A7BD C6 01           ..    ldab #01
4547 A7BF F7 0E 70        ..p   stb 0e70
4548 A7C2 20 18            .    bra 18
4549 A7C4 F6 0E 6F        ..o   ldab 0e6f
4550 A7C7 C1 01           ..    cmpb #01
4551 A7C9 26 05           &.    bne 05
4552 A7CB 7F 0E 6F        ..o   clr 0e6f
4553 A7CE 20 05            .    bra 05
4554 A7D0 C6 01           ..    ldab #01
4555 A7D2 F7 0E 6F        ..o   stb 0e6f
4556 A7D5 20 05            .    bra 05
4557 A7D7 C6 80           ..    ldab #80
4558 A7D9 F7 00 02        ...   stb 0002
4559 A7DC F6 00 48        ..H   ldab 0048
4560 A7DF C1 0A           ..    cmpb #0a
4561 A7E1 24 2B           $+    bcc 2b
4562 A7E3 F6 00 48        ..H   ldab 0048
4563 A7E6 C1 07           ..    cmpb #07
4564 A7E8 27 24           '$    beq 24
4565 A7EA F6 00 48        ..H   ldab 0048
4566 A7ED C1 08           ..    cmpb #08
4567 A7EF 27 1D           '.    beq 1d
4568 A7F1 F6 00 67        ..g   ldab 0067
4569 A7F4 F4 00 02        ...   andb 0002
4570 A7F7 26 0B           &.    bne 0b
4571 A7F9 F6 00 02        ...   ldab 0002
4572 A7FC FA 00 67        ..g   orb 0067
4573 A7FF F7 00 67        ..g   stb 0067
4574 A802 20 0A            .    bra 0a
4575 A804 F6 00 02        ...   ldab 0002
4576 A807 53              S     comb
4577 A808 F4 00 67        ..g   andb 0067
4578 A80B F7 00 67        ..g   stb 0067
4579 A80E 39              9     rts
4580 A80F 7F 00 54        ..T   clr 0054
4581 A812 F6 00 54        ..T   ldab 0054
4582 A815 C1 04           ..    cmpb #04
4583 A817 24 4A           $J    bcc 4a
4584 A819 CC 01 F4        ...   ldd #01f4
4585 A81C BD E5 71        ..q   jsr e571
4586 A81F F6 0B 93        ...   ldab 0b93
4587 A822 F7 00 5F        .._   stb 005f
4588 A825 F6 0B 94        ...   ldab 0b94
4589 A828 F7 00 5E        ..^   stb 005e
4590 A82B F6 0B 95        ...   ldab 0b95
4591 A82E F7 00 5D        ..]   stb 005d
4592 A831 F6 0B 96        ...   ldab 0b96
4593 A834 F7 00 5A        ..Z   stb 005a
4594 A837 BD BE 4B        ..K   jsr be4b
4595 A83A BD BE 01        ...   jsr be01
4596 A83D CC 01 F4        ...   ldd #01f4
4597 A840 BD E5 71        ..q   jsr e571
4598 A843 F6 00 5F        .._   ldab 005f
4599 A846 F7 0B 93        ...   stb 0b93
4600 A849 F6 00 5E        ..^   ldab 005e
4601 A84C F7 0B 94        ...   stb 0b94
4602 A84F F6 00 5D        ..]   ldab 005d
4603 A852 F7 0B 95        ...   stb 0b95
4604 A855 F6 00 5A        ..Z   ldab 005a
4605 A858 F7 0B 96        ...   stb 0b96
4606 A85B BD BE 01        ...   jsr be01
4607 A85E 7C 00 54        |.T   inc 0054
4608 A861 20 AF            .    bra af
4609 A863 39              9     rts
4610 A864 F6 00 09        ...   ldab 0009
4611 A867 C1 01           ..    cmpb #01
4612 A869 26 20           &     bne 20
4613 A86B F6 00 61        ..a   ldab 0061
4614 A86E 4F              O     clra
4615 A86F C3 00 01        ...   addd #0001
4616 A872 37              7     pshb
4617 A873 36              6     psha
4618 A874 F6 00 60        ..`   ldab 0060
4619 A877 4F              O     clra
4620 A878 30              0     tsx
4621 A879 A3 00           ..    subd 00,x
4622 A87B 31              1     ins
4623 A87C 31              1     ins
4624 A87D 2C 0A           ,.    bge 0a
4625 A87F F6 00 60        ..`   ldab 0060
4626 A882 C1 F9           ..    cmpb #f9
4627 A884 24 03           $.    bcc 03
4628 A886 7C 00 60        |.`   inc 0060
4629 A889 20 0A            .    bra 0a
4630 A88B F6 00 60        ..`   ldab 0060
4631 A88E C1 09           ..    cmpb #09
4632 A890 24 03           $.    bcc 03
4633 A892 7C 00 60        |.`   inc 0060
4634 A895 39              9     rts
4635 A896 F6 00 36        ..6   ldab 0036
4636 A899 26 39           &9    bne 39
4637 A89B F6 00 54        ..T   ldab 0054
4638 A89E C1 27           .'    cmpb #27
4639 A8A0 24 20           $     bcc 20
4640 A8A2 7C 00 54        |.T   inc 0054
4641 A8A5 F6 00 09        ...   ldab 0009
4642 A8A8 C1 01           ..    cmpb #01
4643 A8AA 26 0C           &.    bne 0c
4644 A8AC F6 00 54        ..T   ldab 0054
4645 A8AF C1 27           .'    cmpb #27
4646 A8B1 26 03           &.    bne 03
4647 A8B3 7F 00 54        ..T   clr 0054
4648 A8B6 20 0A            .    bra 0a
4649 A8B8 F6 00 54        ..T   ldab 0054
4650 A8BB C1 24           .$    cmpb #24
4651 A8BD 26 03           &.    bne 03
4652 A8BF 7F 00 54        ..T   clr 0054
4653 A8C2 F6 00 54        ..T   ldab 0054
4654 A8C5 4F              O     clra
4655 A8C6 C3 B4 8F        ...   addd #b48f
4656 A8C9 8F              .     xgdx
4657 A8CA E6 00           ..    ldab 00,x
4658 A8CC F7 0B 90        ...   stb 0b90
4659 A8CF C6 02           ..    ldab #02
4660 A8D1 F7 00 36        ..6   stb 0036
4661 A8D4 39              9     rts
4662 A8D5 F6 00 60        ..`   ldab 0060
4663 A8D8 C1 00           ..    cmpb #00
4664 A8DA 23 05           #.    bls 05
4665 A8DC 7A 00 60        z.`   dec 0060
4666 A8DF 20 03            .    bra 03
4667 A8E1 7F 00 60        ..`   clr 0060
4668 A8E4 39              9     rts
4669 A8E5 F6 00 36        ..6   ldab 0036
4670 A8E8 26 36           &6    bne 36
4671 A8EA F6 00 54        ..T   ldab 0054
4672 A8ED C1 00           ..    cmpb #00
4673 A8EF 25 1D           %.    bcs 1d
4674 A8F1 F6 00 54        ..T   ldab 0054
4675 A8F4 26 15           &.    bne 15
4676 A8F6 F6 00 09        ...   ldab 0009
4677 A8F9 C1 01           ..    cmpb #01
4678 A8FB 26 07           &.    bne 07
4679 A8FD C6 26           .&    ldab #26
4680 A8FF F7 00 54        ..T   stb 0054
4681 A902 20 05            .    bra 05
4682 A904 C6 23           .#    ldab #23
4683 A906 F7 00 54        ..T   stb 0054
4684 A909 20 03            .    bra 03
4685 A90B 7A 00 54        z.T   dec 0054
4686 A90E F6 00 54        ..T   ldab 0054
4687 A911 4F              O     clra
4688 A912 C3 B4 8F        ...   addd #b48f
4689 A915 8F              .     xgdx
4690 A916 E6 00           ..    ldab 00,x
4691 A918 F7 0B 90        ...   stb 0b90
4692 A91B C6 02           ..    ldab #02
4693 A91D F7 00 36        ..6   stb 0036
4694 A920 39              9     rts
4695 A921 F6 0B 90        ...   ldab 0b90
4696 A924 F7 0B 96        ...   stb 0b96
4697 A927 F6 0B 96        ...   ldab 0b96
4698 A92A 37              7     pshb
4699 A92B F6 00 60        ..`   ldab 0060
4700 A92E 4F              O     clra
4701 A92F C3 0A 93        ...   addd #0a93
4702 A932 8F              .     xgdx
4703 A933 33              3     pulb
4704 A934 E7 00           ..    stb 00,x
4705 A936 F6 00 09        ...   ldab 0009
4706 A939 C1 01           ..    cmpb #01
4707 A93B 26 32           &2    bne 32
4708 A93D F6 00 61        ..a   ldab 0061
4709 A940 4F              O     clra
4710 A941 C3 00 01        ...   addd #0001
4711 A944 37              7     pshb
4712 A945 36              6     psha
4713 A946 F6 00 60        ..`   ldab 0060
4714 A949 4F              O     clra
4715 A94A 30              0     tsx
4716 A94B A3 00           ..    subd 00,x
4717 A94D 31              1     ins
4718 A94E 31              1     ins
4719 A94F 26 0A           &.    bne 0a
4720 A951 F6 00 60        ..`   ldab 0060
4721 A954 C1 FA           ..    cmpb #fa
4722 A956 24 03           $.    bcc 03
4723 A958 7C 00 61        |.a   inc 0061
4724 A95B F6 00 60        ..`   ldab 0060
4725 A95E F1 00 61        ..a   cmpb 0061
4726 A961 22 0A           ".    bhi 0a
4727 A963 F6 00 60        ..`   ldab 0060
4728 A966 C1 F9           ..    cmpb #f9
4729 A968 24 03           $.    bcc 03
4730 A96A 7C 00 60        |.`   inc 0060
4731 A96D 20 0A            .    bra 0a
4732 A96F F6 00 60        ..`   ldab 0060
4733 A972 C1 09           ..    cmpb #09
4734 A974 24 03           $.    bcc 03
4735 A976 7C 00 60        |.`   inc 0060
4736 A979 39              9     rts
4737 A97A F6 00 60        ..`   ldab 0060
4738 A97D 26 24           &$    bne 24
4739 A97F F6 00 60        ..`   ldab 0060
4740 A982 CB 03           ..    addb #03
4741 A984 F7 00 54        ..T   stb 0054
4742 A987 F6 00 54        ..T   ldab 0054
4743 A98A C1 FF           ..    cmpb #ff
4744 A98C 24 13           $.    bcc 13
4745 A98E C6 20           .     ldab #20
4746 A990 37              7     pshb
4747 A991 F6 00 54        ..T   ldab 0054
4748 A994 4F              O     clra
4749 A995 C3 0A 90        ...   addd #0a90
4750 A998 8F              .     xgdx
4751 A999 33              3     pulb
4752 A99A E7 00           ..    stb 00,x
4753 A99C 7C 00 54        |.T   inc 0054
4754 A99F 20 E6            .    bra e6
4755 A9A1 20 22            "    bra 22
4756 A9A3 F6 00 60        ..`   ldab 0060
4757 A9A6 CB 04           ..    addb #04
4758 A9A8 F7 00 54        ..T   stb 0054
4759 A9AB F6 00 54        ..T   ldab 0054
4760 A9AE C1 FF           ..    cmpb #ff
4761 A9B0 24 13           $.    bcc 13
4762 A9B2 C6 20           .     ldab #20
4763 A9B4 37              7     pshb
4764 A9B5 F6 00 54        ..T   ldab 0054
4765 A9B8 4F              O     clra
4766 A9B9 C3 0A 90        ...   addd #0a90
4767 A9BC 8F              .     xgdx
4768 A9BD 33              3     pulb
4769 A9BE E7 00           ..    stb 00,x
4770 A9C0 7C 00 54        |.T   inc 0054
4771 A9C3 20 E6            .    bra e6
4772 A9C5 F6 00 60        ..`   ldab 0060
4773 A9C8 F7 00 61        ..a   stb 0061
4774 A9CB 7F 00 54        ..T   clr 0054
4775 A9CE 39              9     rts
4776 A9CF C6 50           .P    ldab #50
4777 A9D1 F7 09 90        ...   stb 0990
4778 A9D4 C6 29           .)    ldab #29
4779 A9D6 F7 09 91        ...   stb 0991
4780 A9D9 C6 20           .     ldab #20
4781 A9DB F7 09 92        ...   stb 0992
4782 A9DE 7F 00 54        ..T   clr 0054
4783 A9E1 F6 00 54        ..T   ldab 0054
4784 A9E4 C1 FF           ..    cmpb #ff
4785 A9E6 24 1B           $.    bcc 1b
4786 A9E8 F6 00 54        ..T   ldab 0054
4787 A9EB 4F              O     clra
4788 A9EC C3 09 90        ...   addd #0990
4789 A9EF 8F              .     xgdx
4790 A9F0 E6 00           ..    ldab 00,x
4791 A9F2 37              7     pshb
4792 A9F3 F6 00 54        ..T   ldab 0054
4793 A9F6 4F              O     clra
4794 A9F7 C3 0A 90        ...   addd #0a90
4795 A9FA 8F              .     xgdx
4796 A9FB 33              3     pulb
4797 A9FC E7 00           ..    stb 00,x
4798 A9FE 7C 00 54        |.T   inc 0054
4799 AA01 20 DE            .    bra de
4800 AA03 F6 0B BF        ...   ldab 0bbf
4801 AA06 F7 00 61        ..a   stb 0061
4802 AA09 39              9     rts
4803 AA0A C6 53           .S    ldab #53
4804 AA0C F7 0C B9        ...   stb 0cb9
4805 AA0F C6 29           .)    ldab #29
4806 AA11 F7 0C BA        ...   stb 0cba
4807 AA14 C6 20           .     ldab #20
4808 AA16 F7 0C BB        ...   stb 0cbb
4809 AA19 7F 00 54        ..T   clr 0054
4810 AA1C F6 00 54        ..T   ldab 0054
4811 AA1F C1 10           ..    cmpb #10
4812 AA21 24 1B           $.    bcc 1b
4813 AA23 F6 00 54        ..T   ldab 0054
4814 AA26 4F              O     clra
4815 AA27 C3 0C B9        ...   addd #0cb9
4816 AA2A 8F              .     xgdx
4817 AA2B E6 00           ..    ldab 00,x
4818 AA2D 37              7     pshb
4819 AA2E F6 00 54        ..T   ldab 0054
4820 AA31 4F              O     clra
4821 AA32 C3 0A 90        ...   addd #0a90
4822 AA35 8F              .     xgdx
4823 AA36 33              3     pulb
4824 AA37 E7 00           ..    stb 00,x
4825 AA39 7C 00 54        |.T   inc 0054
4826 AA3C 20 DE            .    bra de
4827 AA3E 39              9     rts
4828 AA3F C6 49           .I    ldab #49
4829 AA41 F7 0C C9        ...   stb 0cc9
4830 AA44 C6 29           .)    ldab #29
4831 AA46 F7 0C CA        ...   stb 0cca
4832 AA49 C6 20           .     ldab #20
4833 AA4B F7 0C CB        ...   stb 0ccb
4834 AA4E 7F 00 54        ..T   clr 0054
4835 AA51 F6 00 54        ..T   ldab 0054
4836 AA54 C1 10           ..    cmpb #10
4837 AA56 24 1B           $.    bcc 1b
4838 AA58 F6 00 54        ..T   ldab 0054
4839 AA5B 4F              O     clra
4840 AA5C C3 0C C9        ...   addd #0cc9
4841 AA5F 8F              .     xgdx
4842 AA60 E6 00           ..    ldab 00,x
4843 AA62 37              7     pshb
4844 AA63 F6 00 54        ..T   ldab 0054
4845 AA66 4F              O     clra
4846 AA67 C3 0A 90        ...   addd #0a90
4847 AA6A 8F              .     xgdx
4848 AA6B 33              3     pulb
4849 AA6C E7 00           ..    stb 00,x
4850 AA6E 7C 00 54        |.T   inc 0054
4851 AA71 20 DE            .    bra de
4852 AA73 39              9     rts
4853 AA74 7F 00 54        ..T   clr 0054
4854 AA77 F6 00 54        ..T   ldab 0054
4855 AA7A C1 0B           ..    cmpb #0b
4856 AA7C 24 1B           $.    bcc 1b
4857 AA7E F6 00 54        ..T   ldab 0054
4858 AA81 4F              O     clra
4859 AA82 C3 0B E4        ...   addd #0be4
4860 AA85 8F              .     xgdx
4861 AA86 E6 00           ..    ldab 00,x
4862 AA88 37              7     pshb
4863 AA89 F6 00 54        ..T   ldab 0054
4864 AA8C 4F              O     clra
4865 AA8D C3 00 68        ..h   addd #0068
4866 AA90 8F              .     xgdx
4867 AA91 33              3     pulb
4868 AA92 E7 00           ..    stb 00,x
4869 AA94 7C 00 54        |.T   inc 0054
4870 AA97 20 DE            .    bra de
4871 AA99 39              9     rts
4872 AA9A F6 00 22        .."   ldab 0022
4873 AA9D C1 06           ..    cmpb #06
4874 AA9F 24 0F           $.    bcc 0f
4875 AAA1 7C 00 22        |."   inc 0022
4876 AAA4 F6 00 22        .."   ldab 0022
4877 AAA7 C1 05           ..    cmpb #05
4878 AAA9 23 05           #.    bls 05
4879 AAAB C6 01           ..    ldab #01
4880 AAAD F7 00 22        .."   stb 0022
4881 AAB0 F6 00 22        .."   ldab 0022
4882 AAB3 4F              O     clra
4883 AAB4 BD FE 16        ...   jsr fe16
4884 AAB7 00              .     test
4885 AAB8 01              .     nop
4886 AAB9 00              .     test
4887 AABA 04              .     lsrd
4888 AABB AB 0B           ..    adda 0b,x
4889 AABD AA C7           ..    ora c7,x
4890 AABF AA D5           ..    ora d5,x
4891 AAC1 AA E3           ..    ora e3,x
4892 AAC3 AA F1           ..    ora f1,x
4893 AAC5 AA FF           ..    ora ff,x
4894 AAC7 F6 0B AF        ...   ldab 0baf
4895 AACA F7 00 24        ..$   stb 0024
4896 AACD F6 0B B4        ...   ldab 0bb4
4897 AAD0 F7 00 2A        ..*   stb 002a
4898 AAD3 20 36            6    bra 36
4899 AAD5 F6 0B AE        ...   ldab 0bae
4900 AAD8 F7 00 24        ..$   stb 0024
4901 AADB F6 0B B3        ...   ldab 0bb3
4902 AADE F7 00 2A        ..*   stb 002a
4903 AAE1 20 28            (    bra 28
4904 AAE3 F6 0B AD        ...   ldab 0bad
4905 AAE6 F7 00 24        ..$   stb 0024
4906 AAE9 F6 0B B2        ...   ldab 0bb2
4907 AAEC F7 00 2A        ..*   stb 002a
4908 AAEF 20 1A            .    bra 1a
4909 AAF1 F6 0B AC        ...   ldab 0bac
4910 AAF4 F7 00 24        ..$   stb 0024
4911 AAF7 F6 0B B1        ...   ldab 0bb1
4912 AAFA F7 00 2A        ..*   stb 002a
4913 AAFD 20 0C            .    bra 0c
4914 AAFF F6 0B AB        ...   ldab 0bab
4915 AB02 F7 00 24        ..$   stb 0024
4916 AB05 F6 0B B0        ...   ldab 0bb0
4917 AB08 F7 00 2A        ..*   stb 002a
4918 AB0B 39              9     rts
4919 AB0C C6 03           ..    ldab #03
4920 AB0E F7 00 18        ...   stb 0018
4921 AB11 7F 00 1C        ...   clr 001c
4922 AB14 F6 00 1C        ...   ldab 001c
4923 AB17 C1 04           ..    cmpb #04
4924 AB19 24 6D           $m    bcc 6d
4925 AB1B C6 07           ..    ldab #07
4926 AB1D F7 00 55        ..U   stb 0055
4927 AB20 7F 00 54        ..T   clr 0054
4928 AB23 F6 00 54        ..T   ldab 0054
4929 AB26 C1 08           ..    cmpb #08
4930 AB28 24 56           $V    bcc 56
4931 AB2A F6 00 1C        ...   ldab 001c
4932 AB2D 4F              O     clra
4933 AB2E C3 0B A4        ...   addd #0ba4
4934 AB31 8F              .     xgdx
4935 AB32 E6 00           ..    ldab 00,x
4936 AB34 37              7     pshb
4937 AB35 F6 00 54        ..T   ldab 0054
4938 AB38 4F              O     clra
4939 AB39 C3 B4 B7        ...   addd #b4b7
4940 AB3C 8F              .     xgdx
4941 AB3D E6 00           ..    ldab 00,x
4942 AB3F 30              0     tsx
4943 AB40 E4 00           ..    andb 00,x
4944 AB42 31              1     ins
4945 AB43 27 1A           '.    beq 1a
4946 AB45 F6 00 55        ..U   ldab 0055
4947 AB48 4F              O     clra
4948 AB49 C3 B4 B7        ...   addd #b4b7
4949 AB4C 8F              .     xgdx
4950 AB4D E6 00           ..    ldab 00,x
4951 AB4F 37              7     pshb
4952 AB50 F6 00 18        ...   ldab 0018
4953 AB53 4F              O     clra
4954 AB54 C3 00 62        ..b   addd #0062
4955 AB57 8F              .     xgdx
4956 AB58 33              3     pulb
4957 AB59 EA 00           ..    orb 00,x
4958 AB5B E7 00           ..    stb 00,x
4959 AB5D 20 19            .    bra 19
4960 AB5F F6 00 55        ..U   ldab 0055
4961 AB62 4F              O     clra
4962 AB63 C3 B4 B7        ...   addd #b4b7
4963 AB66 8F              .     xgdx
4964 AB67 E6 00           ..    ldab 00,x
4965 AB69 53              S     comb
4966 AB6A 37              7     pshb
4967 AB6B F6 00 18        ...   ldab 0018
4968 AB6E 4F              O     clra
4969 AB6F C3 00 62        ..b   addd #0062
4970 AB72 8F              .     xgdx
4971 AB73 33              3     pulb
4972 AB74 E4 00           ..    andb 00,x
4973 AB76 E7 00           ..    stb 00,x
4974 AB78 7A 00 55        z.U   dec 0055
4975 AB7B 7C 00 54        |.T   inc 0054
4976 AB7E 20 A3            .    bra a3
4977 AB80 7A 00 18        z..   dec 0018
4978 AB83 7C 00 1C        |..   inc 001c
4979 AB86 20 8C            .    bra 8c
4980 AB88 39              9     rts
4981 AB89 CC B0 8C        ...   ldd #b08c
4982 AB8C BD C0 BA        ...   jsr c0ba
4983 AB8F CC 01 F4        ...   ldd #01f4
4984 AB92 BD E5 71        ..q   jsr e571
4985 AB95 BD D4 79        ..y   jsr d479
4986 AB98 BD E8 9A        ...   jsr e89a
4987 AB9B BD E9 EA        ...   jsr e9ea
4988 AB9E 7F 0B C1        ...   clr 0bc1
4989 ABA1 39              9     rts
4990 ABA2 7F 00 05        ...   clr 0005
4991 ABA5 F6 00 05        ...   ldab 0005
4992 ABA8 C1 64           .d    cmpb #64
4993 ABAA 25 03           %.    bcs 03
4994 ABAC 7E AC 81        ~..   jmp ac81
4995 ABAF F6 00 05        ...   ldab 0005
4996 ABB2 F7 00 06        ...   stb 0006
4997 ABB5 F6 00 05        ...   ldab 0005
4998 ABB8 4F              O     clra
4999 ABB9 CE 00 05        ...   ldx #0005
5000 ABBC 02              .     idiv
5001 ABBD 5D              ]     tstb
5002 ABBE 26 03           &.    bne 03
5003 ABC0 7E AC 7B        ~.{   jmp ac7b
5004 ABC3 F6 00 06        ...   ldab 0006
5005 ABC6 BD D7 A0        ...   jsr d7a0
5006 ABC9 83 00 00        ...   subd #0000
5007 ABCC 27 03           '.    beq 03
5008 ABCE 7E AC 7B        ~.{   jmp ac7b
5009 ABD1 BD D3 11        ...   jsr d311
5010 ABD4 83 00 00        ...   subd #0000
5011 ABD7 27 2B           '+    beq 2b
5012 ABD9 F6 00 05        ...   ldab 0005
5013 ABDC 4F              O     clra
5014 ABDD 05              .     asld
5015 ABDE C3 08 00        ...   addd #0800
5016 ABE1 8F              .     xgdx
5017 ABE2 EC 00           ..    ldd 00,x
5018 ABE4 C4 FF           ..    andb #ff
5019 ABE6 84 3F           .?    anda #3f
5020 ABE8 83 27 10        .'.   subd #2710
5021 ABEB 24 15           $.    bcc 15
5022 ABED CC 01 00        ...   ldd #0100
5023 ABF0 37              7     pshb
5024 ABF1 36              6     psha
5025 ABF2 F6 00 05        ...   ldab 0005
5026 ABF5 4F              O     clra
5027 ABF6 05              .     asld
5028 ABF7 C3 08 C8        ...   addd #08c8
5029 ABFA 38              8     pulx
5030 ABFB 8F              .     xgdx
5031 ABFC AA 00           ..    ora 00,x
5032 ABFE EA 01           ..    orb 01,x
5033 AC00 ED 00           ..    stad 00,x
5034 AC02 20 29            )    bra 29
5035 AC04 F6 00 05        ...   ldab 0005
5036 AC07 4F              O     clra
5037 AC08 05              .     asld
5038 AC09 C3 08 00        ...   addd #0800
5039 AC0C 8F              .     xgdx
5040 AC0D EC 00           ..    ldd 00,x
5041 AC0F C4 FF           ..    andb #ff
5042 AC11 84 3F           .?    anda #3f
5043 AC13 83 27 0F        .'.   subd #270f
5044 AC16 23 15           #.    bls 15
5045 AC18 CC 01 00        ...   ldd #0100
5046 AC1B 37              7     pshb
5047 AC1C 36              6     psha
5048 AC1D F6 00 05        ...   ldab 0005
5049 AC20 4F              O     clra
5050 AC21 05              .     asld
5051 AC22 C3 08 C8        ...   addd #08c8
5052 AC25 38              8     pulx
5053 AC26 8F              .     xgdx
5054 AC27 AA 00           ..    ora 00,x
5055 AC29 EA 01           ..    orb 01,x
5056 AC2B ED 00           ..    stad 00,x
5057 AC2D F6 00 05        ...   ldab 0005
5058 AC30 4F              O     clra
5059 AC31 05              .     asld
5060 AC32 C3 08 C8        ...   addd #08c8
5061 AC35 8F              .     xgdx
5062 AC36 EC 00           ..    ldd 00,x
5063 AC38 84 01           ..    anda #01
5064 AC3A 27 06           '.    beq 06
5065 AC3C CE 00 19        ...   ldx #0019
5066 AC3F 1C 00           ..    bset add,x 00,x
5067 AC41 04              .     lsrd
5068 AC42 F6 00 05        ...   ldab 0005
5069 AC45 4F              O     clra
5070 AC46 05              .     asld
5071 AC47 C3 08 00        ...   addd #0800
5072 AC4A 8F              .     xgdx
5073 AC4B EC 00           ..    ldd 00,x
5074 AC4D 84 80           ..    anda #80
5075 AC4F 27 2A           '*    beq 2a
5076 AC51 F6 00 05        ...   ldab 0005
5077 AC54 4F              O     clra
5078 AC55 05              .     asld
5079 AC56 C3 08 C8        ...   addd #08c8
5080 AC59 8F              .     xgdx
5081 AC5A EC 00           ..    ldd 00,x
5082 AC5C 84 02           ..    anda #02
5083 AC5E 27 06           '.    beq 06
5084 AC60 CE 00 19        ...   ldx #0019
5085 AC63 1C 00           ..    bset add,x 00,x
5086 AC65 01              .     nop
5087 AC66 F6 00 05        ...   ldab 0005
5088 AC69 4F              O     clra
5089 AC6A 05              .     asld
5090 AC6B C3 08 C8        ...   addd #08c8
5091 AC6E 8F              .     xgdx
5092 AC6F EC 00           ..    ldd 00,x
5093 AC71 84 04           ..    anda #04
5094 AC73 27 06           '.    beq 06
5095 AC75 CE 00 19        ...   ldx #0019
5096 AC78 1C 00           ..    bset add,x 00,x
5097 AC7A 02              .     idiv
5098 AC7B 7C 00 05        |..   inc 0005
5099 AC7E 7E AB A5        ~..   jmp aba5
5100 AC81 F6 00 19        ...   ldab 0019
5101 AC84 C4 07           ..    andb #07
5102 AC86 26 0A           &.    bne 0a
5103 AC88 F6 0B C1        ...   ldab 0bc1
5104 AC8B C4 7F           ..    andb #7f
5105 AC8D 26 03           &.    bne 03
5106 AC8F 5F              _     clrb
5107 AC90 20 02            .    bra 02
5108 AC92 C6 01           ..    ldab #01
5109 AC94 5D              ]     tstb
5110 AC95 26 05           &.    bne 05
5111 AC97 C6 0D           ..    ldab #0d
5112 AC99 F7 00 48        ..H   stb 0048
5113 AC9C 39              9     rts
5114 AC9D 08              .     inx
5115 AC9E 07              .     tpa
5116 AC9F 06              .     tap
5117 ACA0 05              .     asld
5118 ACA1 04              .     lsrd
5119 ACA2 03              .     fdiv
5120 ACA3 02              .     idiv
5121 ACA4 01              .     nop
5122 ACA5 0B              .     sev
5123 ACA6 0A              .     clv
5124 ACA7 09              .     dex
5125
5126 ACA8 20 20                 bra 20
5127 ACAA 50              P     negb
5128 ACAB 52              R     illegal
5129 ACAC 49              I     rola
5130 ACAD 43              C     coma
5131 ACAE 45              E     illegal
5132 ACAF 20 20                 bra 20
5133 ACB1 20 00            .    bra 00
5134 ACB3 20 20                 bra 20
5135 ACB5 20 50            P    bra 50
5136 ACB7 52              R     illegal
5137 ACB8 49              I     rola
5138 ACB9 58              X     aslb
5139 ACBA 20 20                 bra 20
5140 ACBC 20 00            .    bra 00
5141 ACBE 20 20                 bra 20
5142 ACC0 50              P     negb
5143 ACC1 52              R     illegal
5144 ACC2 45              E     illegal
5145 ACC3 49              I     rola
5146 ACC4 53              S     comb
5147 ACC5 20 20                 bra 20
5148 ACC7 20 00            .    bra 00
5149 ACC9 20 20                 bra 20
5150 ACCB 50              P     negb
5151 ACCC 52              R     illegal
5152 ACCD 45              E     illegal
5153 ACCE 43              C     coma
5154 ACCF 49              I     rola
5155 ACD0 4F              O     clra
5156 ACD1 20 20                 bra 20
5157 ACD3 00              .     test
5158 ACD4 20 20                 bra 20
5159 ACD6 43              C     coma
5160 ACD7 48              H     asla
5161 ACD8 41              A     illegal
5162 ACD9 4E              N     illegal
5163 ACDA 47              G     asra
5164 ACDB 45              E     illegal
5165 ACDC 20 20                 bra 20
5166 ACDE 00              .     test
5167 ACDF 20 20                 bra 20
5168 ACE1 43              C     coma
5169 ACE2 41              A     illegal
5170 ACE3 4D              M     tsta
5171 ACE4 42              B     illegal
5172 ACE5 49              I     rola
5173 ACE6 4F              O     clra
5174 ACE7 20 20                 bra 20
5175 ACE9 00              .     test
5176 ACEA 20 4D            M    bra 4d
5177 ACEC 4F              O     clra
5178 ACED 4E              N     illegal
5179 ACEE 4E              N     illegal
5180 ACEF 41              A     illegal
5181 ACF0 49              I     rola
5182 ACF1 45              E     illegal
5183 ACF2 20 20                 bra 20
5184 ACF4 00              .     test
5185 ACF5 20 20                 bra 20
5186 ACF7 54              T     lsrb
5187 ACF8 48              H     asla
5188 ACF9 41              A     illegal
5189 ACFA 4E              N     illegal
5190 ACFB 4B              K     illegal
5191 ACFC 53              S     comb
5192 ACFD 20 20                 bra 20
5193 ACFF 00              .     test
5194 AD00 20 20                 bra 20
5195 AD02 4D              M     tsta
5196 AD03 45              E     illegal
5197 AD04 52              R     illegal
5198 AD05 43              C     coma
5199 AD06 49              I     rola
5200 AD07 20 20                 bra 20
5201 AD09 20 00            .    bra 00
5202 AD0B 20 20                 bra 20
5203 AD0D 44              D     lsra
5204 AD0E 41              A     illegal
5205 AD0F 4E              N     illegal
5206 AD10 4B              K     illegal
5207 AD11 45              E     illegal
5208 AD12 20 20                 bra 20
5209 AD14 20 00            .    bra 00
5210 AD16 20 20                 bra 20
5211 AD18 47              G     asra
5212 AD19 52              R     illegal
5213 AD1A 41              A     illegal
5214 AD1B 43              C     coma
5215 AD1C 49              I     rola
5216 AD1D 41              A     illegal
5217 AD1E 53              S     comb
5218 AD1F 20 00            .    bra 00
5219 AD21 20 20                 bra 20
5220 AD23 53              S     comb
5221 AD24 45              E     illegal
5222 AD25 4C              L     inca
5223 AD26 45              E     illegal
5224 AD27 43              C     coma
5225 AD28 54              T     lsrb
5226 AD29 20 20                 bra 20
5227 AD2B 00              .     test
5228 AD2C 20 20                 bra 20
5229 AD2E 4F              O     clra
5230 AD2F 54              T     lsrb
5231 AD30 48              H     asla
5232 AD31 45              E     illegal
5233 AD32 52              R     illegal
5234 AD33 20 20                 bra 20
5235 AD35 20 00            .    bra 00
5236 AD37 20 20                 bra 20
5237 AD39 20 49            I    bra 49
5238 AD3B 54              T     lsrb
5239 AD3C 45              E     illegal
5240 AD3D 4D              M     tsta
5241 AD3E 20 20                 bra 20
5242 AD40 20 00            .    bra 00
5243 AD42 20 20                 bra 20
5244 AD44 46              F     rora
5245 AD45 41              A     illegal
5246 AD46 49              I     rola
5247 AD47 54              T     lsrb
5248 AD48 45              E     illegal
5249 AD49 53              S     comb
5250 AD4A 20 20                 bra 20
5251 AD4C 00              .     test
5252 AD4D 20 20                 bra 20
5253 AD4F 41              A     illegal
5254 AD50 55              U     illegal
5255 AD51 54              T     lsrb
5256 AD52 52              R     illegal
5257 AD53 45              E     illegal
5258 AD54 20 20                 bra 20
5259 AD56 20 00            .    bra 00
5260 AD58 20 20                 bra 20
5261 AD5A 43              C     coma
5262 AD5B 48              H     asla
5263 AD5C 4F              O     clra
5264 AD5D 49              I     rola
5265 AD5E 58              X     aslb
5266 AD5F 20 20                 bra 20
5267 AD61 20 00            .    bra 00
5268 AD63 20 20                 bra 20
5269 AD65 42              B     illegal
5270 AD66 49              I     rola
5271 AD67 54              T     lsrb
5272 AD68 54              T     lsrb
5273 AD69 45              E     illegal
5274 AD6A 20 20                 bra 20
5275 AD6C 20 00            .    bra 00
5276 AD6E 20 20                 bra 20
5277 AD70 41              A     illegal
5278 AD71 4E              N     illegal
5279 AD72 44              D     lsra
5280 AD73 45              E     illegal
5281 AD74 52              R     illegal
5282 AD75 45              E     illegal
5283 AD76 20 20                 bra 20
5284 AD78 00              .     test
5285 AD79 20 20                 bra 20
5286 AD7B 20 57            W    bra 57
5287 AD7D 41              A     illegal
5288 AD7E 48              H     asla
5289 AD7F 4C              L     inca
5290 AD80 20 20                 bra 20
5291 AD82 20 00            .    bra 00
5292 AD84 20 20                 bra 20
5293 AD86 50              P     negb
5294 AD87 55              U     illegal
5295 AD88 4C              L     inca
5296 AD89 53              S     comb
5297 AD8A 45              E     illegal
5298 AD8B 20 20                 bra 20
5299 AD8D 20 00            .    bra 00
5300 AD8F 20 20                 bra 20
5301 AD91 45              E     illegal
5302 AD92 58              X     aslb
5303 AD93 54              T     lsrb
5304 AD94 52              R     illegal
5305 AD95 41              A     illegal
5306 AD96 20 20                 bra 20
5307 AD98 20 00            .    bra 00
5308 AD9A 20 53            S    bra 53
5309 AD9C 45              E     illegal
5310 AD9D 4C              L     inca
5311 AD9E 45              E     illegal
5312 AD9F 43              C     coma
5313 ADA0 43              C     coma
5314 ADA1 49              I     rola
5315 ADA2 4F              O     clra
5316 ADA3 4E              N     illegal
5317 ADA4 00              .     test
5318 ADA5 20 45            E    bra 45
5319 ADA7 58              X     aslb
5320 ADA8 41              A     illegal
5321 ADA9 43              C     coma
5322 ADAA 54              T     lsrb
5323 ADAB 20 43            C    bra 43
5324 ADAD 4F              O     clra
5325 ADAE 49              I     rola
5326 ADAF 4E              N     illegal
5327 ADB0 53              S     comb
5328 ADB1 20 4F            O    bra 4f
5329 ADB3 4E              N     illegal
5330 ADB4 4C              L     inca
5331 ADB5 59              Y     rolb
5332 ADB6 20 00            .    bra 00
5333 ADB8 20 4D            M    bra 4d
5334 ADBA 4F              O     clra
5335 ADBB 4E              N     illegal
5336 ADBC 4E              N     illegal
5337 ADBD 41              A     illegal
5338 ADBE 49              I     rola
5339 ADBF 45              E     illegal
5340 ADC0 20 45            E    bra 45
5341 ADC2 58              X     aslb
5342 ADC3 41              A     illegal
5343 ADC4 43              C     coma
5344 ADC5 54              T     lsrb
5345 ADC6 45              E     illegal
5346 ADC7 20 53            S    bra 53
5347 ADC9 45              E     illegal
5348 ADCA 55              U     illegal
5349 ADCB 4C              L     inca
5350 ADCC 45              E     illegal
5351 ADCD 4D              M     tsta
5352 ADCE 45              E     illegal
5353 ADCF 4E              N     illegal
5354 ADD0 54              T     lsrb
5355 ADD1 20 00            .    bra 00
5356 ADD3 20 4E            N    bra 4e
5357 ADD5 49              I     rola
5358 ADD6 43              C     coma
5359 ADD7 48              H     asla
5360 ADD8 54              T     lsrb
5361 ADD9 20 55            U    bra 55
5362 ADDB 45              E     illegal
5363 ADDC 42              B     illegal
5364 ADDD 45              E     illegal
5365 ADDE 52              R     illegal
5366 ADDF 5A              Z     decb
5367 ADE0 41              A     illegal
5368 ADE1 48              H     asla
5369 ADE2 4C              L     inca
5370 ADE3 45              E     illegal
5371 ADE4 4E              N     illegal
5372 ADE5 20 00            .    bra 00
5373 ADE7 20 49            I    bra 49
5374 ADE9 4E              N     illegal
5375 ADEA 54              T     lsrb
5376 ADEB 52              R     illegal
5377 ADEC 4F              O     clra
5378 ADED 44              D     lsra
5379 ADEE 55              U     illegal
5380 ADEF 5A              Z     decb
5381 ADF0 43              C     coma
5382 ADF1 41              A     illegal
5383 ADF2 20 50            P    bra 50
5384 ADF4 52              R     illegal
5385 ADF5 45              E     illegal
5386 ADF6 43              C     coma
5387 ADF7 49              I     rola
5388 ADF8 4F              O     clra
5389 ADF9 20 45            E    bra 45
5390 ADFB 58              X     aslb
5391 ADFC 41              A     illegal
5392 ADFD 43              C     coma
5393 ADFE 54              T     lsrb
5394 ADFF 4F              O     clra
5395 AE00 20 00            .    bra 00
5396 AE02 20 43            C    bra 43
5397 AE04 4F              O     clra
5398 AE05 49              I     rola
5399 AE06 4E              N     illegal
5400 AE07 53              S     comb
5401 AE08 20 4F            O    bra 4f
5402 AE0A 4E              N     illegal
5403 AE0B 4C              L     inca
5404 AE0C 59              Y     rolb
5405 AE0D 20 00            .    bra 00
5406 AE0F 20 4D            M    bra 4d
5407 AE11 4F              O     clra
5408 AE12 4E              N     illegal
5409 AE13 4E              N     illegal
5410 AE14 41              A     illegal
5411 AE15 49              I     rola
5412 AE16 45              E     illegal
5413 AE17 20 53            S    bra 53
5414 AE19 45              E     illegal
5415 AE1A 55              U     illegal
5416 AE1B 4C              L     inca
5417 AE1C 45              E     illegal
5418 AE1D 4D              M     tsta
5419 AE1E 45              E     illegal
5420 AE1F 4E              N     illegal
5421 AE20 54              T     lsrb
5422 AE21 20 00            .    bra 00
5423 AE23 20 4E            N    bra 4e
5424 AE25 55              U     illegal
5425 AE26 52              R     illegal
5426 AE27 20 4D            M    bra 4d
5427 AE29 55              U     illegal
5428 AE2A 4E              N     illegal
5429 AE2B 5A              Z     decb
5430 AE2C 45              E     illegal
5431 AE2D 4E              N     illegal
5432 AE2E 20 00            .    bra 00
5433 AE30 20 4D            M    bra 4d
5434 AE32 4F              O     clra
5435 AE33 4E              N     illegal
5436 AE34 45              E     illegal
5437 AE35 44              D     lsra
5438 AE36 41              A     illegal
5439 AE37 20 55            U    bra 55
5440 AE39 4E              N     illegal
5441 AE3A 49              I     rola
5442 AE3B 43              C     coma
5443 AE3C 41              A     illegal
5444 AE3D 4D              M     tsta
5445 AE3E 45              E     illegal
5446 AE3F 4E              N     illegal
5447 AE40 54              T     lsrb
5448 AE41 45              E     illegal
5449 AE42 20 00            .    bra 00
5450 AE44 20 4D            M    bra 4d
5451 AE46 41              A     illegal
5452 AE47 43              C     coma
5453 AE48 48              H     asla
5454 AE49 49              I     rola
5455 AE4A 4E              N     illegal
5456 AE4B 45              E     illegal
5457 AE4C 20 4F            O    bra 4f
5458 AE4E 55              U     illegal
5459 AE4F 54              T     lsrb
5460 AE50 20 4F            O    bra 4f
5461 AE52 46              F     rora
5462 AE53 20 4F            O    bra 4f
5463 AE55 52              R     illegal
5464 AE56 44              D     lsra
5465 AE57 45              E     illegal
5466 AE58 52              R     illegal
5467 AE59 20 00            .    bra 00
5468 AE5B 20 48            H    bra 48
5469 AE5D 4F              O     clra
5470 AE5E 52              R     illegal
5471 AE5F 53              S     comb
5472 AE60 20 44            D    bra 44
5473 AE62 45              E     illegal
5474 AE63 20 53            S    bra 53
5475 AE65 45              E     illegal
5476 AE66 52              R     illegal
5477 AE67 56              V     rorb
5478 AE68 49              I     rola
5479 AE69 43              C     coma
5480 AE6A 45              E     illegal
5481 AE6B 20 00            .    bra 00
5482 AE6D 20 41            A    bra 41
5483 AE6F 55              U     illegal
5484 AE70 53              S     comb
5485 AE71 53              S     comb
5486 AE72 45              E     illegal
5487 AE73 52              R     illegal
5488 AE74 20 42            B    bra 42
5489 AE76 45              E     illegal
5490 AE77 54              T     lsrb
5491 AE78 52              R     illegal
5492 AE79 49              I     rola
5493 AE7A 45              E     illegal
5494 AE7B 42              B     illegal
5495 AE7C 20 00            .    bra 00
5496 AE7E 20 46            F    bra 46
5497 AE80 55              U     illegal
5498 AE81 45              E     illegal
5499 AE82 52              R     illegal
5500 AE83 41              A     illegal
5501 AE84 20 44            D    bra 44
5502 AE86 45              E     illegal
5503 AE87 20 53            S    bra 53
5504 AE89 45              E     illegal
5505 AE8A 52              R     illegal
5506 AE8B 56              V     rorb
5507 AE8C 49              I     rola
5508 AE8D 43              C     coma
5509 AE8E 49              I     rola
5510 AE8F 4F              O     clra
5511 AE90 20 00            .    bra 00
5512
5513 AE92 2D 20           -     blt 20
5514 AE94 20 20                 bra 20
5515 AE96 20 20                 bra 20
5516 AE98 20 20                 bra 20
5517 AE9A 20 20                 bra 20
5518 AE9C 00              .     test
5519
5520 AE9D 53              S     comb
5521 AE9E 45              E     illegal
5522 AE9F 54              T     lsrb
5523 AEA0 20 50            P    bra 50
5524 AEA2 52              R     illegal
5525 AEA3 49              I     rola
5526 AEA4 43              C     coma
5527 AEA5 45              E     illegal
5528 AEA6 3F              ?     swi
5529 AEA7 00              .     test
5530
5531 AEA8 20 20                 bra 20
5532 AEAA 53              S     comb
5533 AEAB 59              Y     rolb
5534 AEAC 53              S     comb
5535 AEAD 54              T     lsrb
5536 AEAE 45              E     illegal
5537 AEAF 4D              M     tsta
5538 AEB0 20 20                 bra 20
5539 AEB2 00              .     test
5540
5541 AEB3 20 20                 bra 20
5542 AEB5 20 20                 bra 20
5543 AEB7 4F              O     clra
5544 AEB8 4B              K     illegal
5545 AEB9 20 20                 bra 20
5546 AEBB 20 20                 bra 20
5547 AEBD 00              .     test
5548
5549 AEBE 24 35           $5    bcc 35
5550 AEC0 20 45            E    bra 45
5551 AEC2 4E              N     illegal
5552 AEC3 41              A     illegal
5553 AEC4 42              B     illegal
5554 AEC5 4C              L     inca
5555 AEC6 45              E     illegal
5556 AEC7 20 00            .    bra 00
5557
5558 AEC9 24 35           $5    bcc 35
5559 AECB 20 44            D    bra 44
5560 AECD 49              I     rola
5561 AECE 53              S     comb
5562 AECF 41              A     illegal
5563 AED0 42              B     illegal
5564 AED1 4C              L     inca
5565 AED2 45              E     illegal
5566 AED3 00              .     test
5567
5568 AED4 53              S     comb
5569 AED5 4F              O     clra
5570 AED6 44              D     lsra
5571 AED7 41              A     illegal
5572 AED8 20 56            V    bra 56
5573 AEDA 45              E     illegal
5574 AEDB 4E              N     illegal
5575 AEDC 44              D     lsra
5576 AEDD 20 00            .    bra 00
5577 AEDF 53              S     comb
5578 AEE0 4E              N     illegal
5579 AEE1 41              A     illegal
5580 AEE2 43              C     coma
5581 AEE3 4B              K     illegal
5582 AEE4 20 56            V    bra 56
5583 AEE6 45              E     illegal
5584 AEE7 4E              N     illegal
5585 AEE8 44              D     lsra
5586 AEE9 00              .     test
5587
5588 AEEA 44              D     lsra
5589 AEEB 55              U     illegal
5590 AEEC 4D              M     tsta
5591 AEED 42              B     illegal
5592 AEEE 20 4D            M    bra 4d
5593 AEF0 45              E     illegal
5594 AEF1 43              C     coma
5595 AEF2 20 59            Y    bra 59
5596 AEF4 00              .     test
5597 AEF5 44              D     lsra
5598 AEF6 55              U     illegal
5599 AEF7 4D              M     tsta
5600 AEF8 42              B     illegal
5601 AEF9 20 4D            M    bra 4d
5602 AEFB 45              E     illegal
5603 AEFC 43              C     coma
5604 AEFD 20 4E            N    bra 4e
5605 AEFF 00              .     test
5606 AF00 4C              L     inca
5607 AF01 4E              N     illegal
5608 AF02 4B              K     illegal
5609 AF03 20 4D            M    bra 4d
5610 AF05 53              S     comb
5611 AF06 54              T     lsrb
5612 AF07 52              R     illegal
5613 AF08 20 59            Y    bra 59
5614 AF0A 00              .     test
5615 AF0B 4C              L     inca
5616 AF0C 4E              N     illegal
5617 AF0D 4B              K     illegal
5618 AF0E 20 4D            M    bra 4d
5619 AF10 53              S     comb
5620 AF11 54              T     lsrb
5621 AF12 52              R     illegal
5622 AF13 20 4E            N    bra 4e
5623 AF15 00              .     test
5624 AF16 43              C     coma
5625 AF17 41              A     illegal
5626 AF18 52              R     illegal
5627 AF19 44              D     lsra
5628 AF1A 20 52            R    bra 52
5629 AF1C 44              D     lsra
5630 AF1D 52              R     illegal
5631 AF1E 20 59            Y    bra 59
5632 AF20 00              .     test
5633 AF21 43              C     coma
5634 AF22 41              A     illegal
5635 AF23 52              R     illegal
5636 AF24 44              D     lsra
5637 AF25 20 52            R    bra 52
5638 AF27 44              D     lsra
5639 AF28 52              R     illegal
5640 AF29 20 4E            N    bra 4e
5641 AF2B 00              .     test
5642 AF2C 42              B     illegal
5643 AF2D 49              I     rola
5644 AF2E 4C              L     inca
5645 AF2F 4C              L     inca
5646 AF30 20 56            V    bra 56
5647 AF32 41              A     illegal
5648 AF33 4C              L     inca
5649 AF34 20 59            Y    bra 59
5650 AF36 00              .     test
5651 AF37 42              B     illegal
5652 AF38 49              I     rola
5653 AF39 4C              L     inca
5654 AF3A 4C              L     inca
5655 AF3B 20 56            V    bra 56
5656 AF3D 41              A     illegal
5657 AF3E 4C              L     inca
5658 AF3F 20 4E            N    bra 4e
5659 AF41 00              .     test
5660 AF42 50              P     negb
5661 AF43 52              R     illegal
5662 AF44 43              C     coma
5663 AF45 20 48            H    bra 48
5664 AF47 4F              O     clra
5665 AF48 4C              L     inca
5666 AF49 44              D     lsra
5667 AF4A 20 59            Y    bra 59
5668 AF4C 00              .     test
5669 AF4D 50              P     negb
5670 AF4E 52              R     illegal
5671 AF4F 43              C     coma
5672 AF50 20 48            H    bra 48
5673 AF52 4F              O     clra
5674 AF53 4C              L     inca
5675 AF54 44              D     lsra
5676 AF55 20 4E            N    bra 4e
5677 AF57 00              .     test
5678 AF58 50              P     negb
5679 AF59 52              R     illegal
5680 AF5A 43              C     coma
5681 AF5B 20 44            D    bra 44
5682 AF5D 49              I     rola
5683 AF5E 53              S     comb
5684 AF5F 50              P     negb
5685 AF60 20 59            Y    bra 59
5686 AF62 00              .     test
5687 AF63 50              P     negb
5688 AF64 52              R     illegal
5689 AF65 43              C     coma
5690 AF66 20 44            D    bra 44
5691 AF68 49              I     rola
5692 AF69 53              S     comb
5693 AF6A 50              P     negb
5694 AF6B 20 4E            N    bra 4e
5695 AF6D 00              .     test
5696 AF6E 46              F     rora
5697 AF6F 52              R     illegal
5698 AF70 45              E     illegal
5699 AF71 45              E     illegal
5700 AF72 20 56            V    bra 56
5701 AF74 4E              N     illegal
5702 AF75 44              D     lsra
5703 AF76 20 59            Y    bra 59
5704 AF78 00              .     test
5705 AF79 46              F     rora
5706 AF7A 52              R     illegal
5707 AF7B 45              E     illegal
5708 AF7C 45              E     illegal
5709 AF7D 20 56            V    bra 56
5710 AF7F 4E              N     illegal
5711 AF80 44              D     lsra
5712 AF81 20 4E            N    bra 4e
5713 AF83 00              .     test
5714 AF84 24 31           $1    bcc 31
5715 AF86 20 43            C    bra 43
5716 AF88 48              H     asla
5717 AF89 4E              N     illegal
5718 AF8A 47              G     asra
5719 AF8B 52              R     illegal
5720 AF8C 20 59            Y    bra 59
5721 AF8E 00              .     test
5722 AF8F 24 31           $1    bcc 31
5723 AF91 20 43            C    bra 43
5724 AF93 48              H     asla
5725 AF94 4E              N     illegal
5726 AF95 47              G     asra
5727 AF96 52              R     illegal
5728 AF97 20 4E            N    bra 4e
5729 AF99 00              .     test
5730 AF9A 43              C     coma
5731 AF9B 4C              L     inca
5732 AF9C 52              R     illegal
5733 AF9D 20 4D            M    bra 4d
5734 AF9F 49              I     rola
5735 AFA0 53              S     comb
5736 AFA1 20 20                 bra 20
5737 AFA3 59              Y     rolb
5738 AFA4 00              .     test
5739 AFA5 43              C     coma
5740 AFA6 4C              L     inca
5741 AFA7 52              R     illegal
5742 AFA8 20 4D            M    bra 4d
5743 AFAA 49              I     rola
5744 AFAB 53              S     comb
5745 AFAC 20 20                 bra 20
5746 AFAE 4E              N     illegal
5747 AFAF 00              .     test
5748 AFB0 48              H     asla
5749 AFB1 49              I     rola
5750 AFB2 54              T     lsrb
5751 AFB3 20 4B            K    bra 4b
5752 AFB5 45              E     illegal
5753 AFB6 59              Y     rolb
5754 AFB7 22 30           "0    bhi 30
5755 AFB9 22 00           ".    bhi 00
5756 AFBB 45              E     illegal
5757 AFBC 4E              N     illegal
5758 AFBD 54              T     lsrb
5759 AFBE 45              E     illegal
5760 AFBF 52              R     illegal
5761 AFC0 20 43            C    bra 43
5762 AFC2 4F              O     clra
5763 AFC3 44              D     lsra
5764 AFC4 45              E     illegal
5765 AFC5 00              .     test
5766 AFC6 53              S     comb
5767 AFC7 45              E     illegal
5768 AFC8 43              C     coma
5769 AFC9 55              U     illegal
5770 AFCA 52              R     illegal
5771 AFCB 45              E     illegal
5772 AFCC 20 4F            O    bra 4f
5773 AFCE 4E              N     illegal
5774 AFCF 20 00            .    bra 00
5775 AFD1 53              S     comb
5776 AFD2 45              E     illegal
5777 AFD3 43              C     coma
5778 AFD4 55              U     illegal
5779 AFD5 52              R     illegal
5780 AFD6 45              E     illegal
5781 AFD7 20 4F            O    bra 4f
5782 AFD9 46              F     rora
5783 AFDA 46              F     rora
5784 AFDB 00              .     test
5785 AFDC 2D 20           -     blt 20
5786 AFDE 53              S     comb
5787 AFDF 41              A     illegal
5788 AFE0 56              V     rorb
5789 AFE1 49              I     rola
5790 AFE2 4E              N     illegal
5791 AFE3 47              G     asra
5792 AFE4 20 2D            -    bra 2d
5793 AFE6 00              .     test
5794 AFE7 2D 50           -P    blt 50
5795 AFE9 52              R     illegal
5796 AFEA 49              I     rola
5797 AFEB 4E              N     illegal
5798 AFEC 54              T     lsrb
5799 AFED 49              I     rola
5800 AFEE 4E              N     illegal
5801 AFEF 47              G     asra
5802 AFF0 2D 00           -.    blt 00
5803
5804 AFF2 4F              O     clra
5805 AFF3 56              V     rorb
5806 AFF4 45              E     illegal
5807 AFF5 52              R     illegal
5808 AFF6 20 43            C    bra 43
5809 AFF8 52              R     illegal
5810 AFF9 4E              N     illegal
5811 AFFA 54              T     lsrb
5812 AFFB 3D              =     mul
5813 AFFC 00              .     test
5814
5815 AFFD 48              H     asla
5816 AFFE 4F              O     clra
5817 AFFF 4D              M     tsta
5818 B000 45              E     illegal
5819 B001 20 46            F    bra 46
5820 B003 41              A     illegal
5821 B004 49              I     rola
5822 B005 4C              L     inca
5823 B006 3D              =     mul
5824 B007 00              .     test
5825 B008 43              C     coma
5826 B009 48              H     asla
5827 B00A 4B              K     illegal
5828 B00B 20 50            P    bra 50
5829 B00D 52              R     illegal
5830 B00E 49              I     rola
5831 B00F 43              C     coma
5832 B010 45              E     illegal
5833 B011 53              S     comb
5834 B012 00              .     test
5835
5836 B013 48              H     asla
5837 B014 49              I     rola
5838 B015 54              T     lsrb
5839 B016 20 52            R    bra 52
5840 B018 45              E     illegal
5841 B019 53              S     comb
5842 B01A 45              E     illegal
5843 B01B 54              T     lsrb
5844 B01C 20 00            .    bra 00
5845
5846 B01E 43              C     coma
5847 B01F 4F              O     clra
5848 B020 49              I     rola
5849 B021 4E              N     illegal
5850 B022 20 20                 bra 20
5851 B024 20 4A            J    bra 4a
5852 B026 41              A     illegal
5853 B027 4D              M     tsta
5854 B028 00              .     test
5855
5856 B029 42              B     illegal
5857 B02A 41              A     illegal
5858 B02B 44              D     lsra
5859 B02C 20 53            S    bra 53
5860 B02E 45              E     illegal
5861 B02F 4E              N     illegal
5862 B030 53              S     comb
5863 B031 4F              O     clra
5864 B032 52              R     illegal
5865 B033 00              .     test
5866
5867 B034 43              C     coma
5868 B035 48              H     asla
5869 B036 47              G     asra
5870 B037 52              R     illegal
5871 B038 20 50            P    bra 50
5872 B03A 57              W     asrb
5873 B03B 52              R     illegal
5874 B03C 55              U     illegal
5875 B03D 50              P     negb
5876 B03E 00              .     test
5877
5878 B03F 4C              L     inca
5879 B040 49              I     rola
5880 B041 4E              N     illegal
5881 B042 4B              K     illegal
5882 B043 20 50            P    bra 50
5883 B045 57              W     asrb
5884 B046 52              R     illegal
5885 B047 55              U     illegal
5886 B048 50              P     negb
5887 B049 00              .     test
5888
5889 B04A 43              C     coma
5890 B04B 41              A     illegal
5891 B04C 52              R     illegal
5892 B04D 44              D     lsra
5893 B04E 20 50            P    bra 50
5894 B050 57              W     asrb
5895 B051 52              R     illegal
5896 B052 55              U     illegal
5897 B053 50              P     negb
5898 B054 00              .     test
5899
5900 B055 42              B     illegal
5901 B056 49              I     rola
5902 B057 4C              L     inca
5903 B058 4C              L     inca
5904 B059 20 45            E    bra 45
5905 B05B 52              R     illegal
5906 B05C 52              R     illegal
5907 B05D 4F              O     clra
5908 B05E 52              R     illegal
5909 B05F 00              .     test
5910
5911 B060 54              T     lsrb
5912 B061 55              U     illegal
5913 B062 42              B     illegal
5914 B063 45              E     illegal
5915 B064 20 45            E    bra 45
5916 B066 52              R     illegal
5917 B067 52              R     illegal
5918 B068 4F              O     clra
5919 B069 52              R     illegal
5920 B06A 00              .     test
5921 B06B 4E              N     illegal
5922 B06C 4F              O     clra
5923 B06D 20 20                 bra 20
5924 B06F 43              C     coma
5925 B070 48              H     asla
5926 B071 41              A     illegal
5927 B072 4E              N     illegal
5928 B073 47              G     asra
5929 B074 45              E     illegal
5930 B075 00              .     test
5931 B076 20 4E            N    bra 4e
5932 B078 4F              O     clra
5933 B079 20 46            F    bra 46
5934 B07B 49              I     rola
5935 B07C 56              V     rorb
5936 B07D 45              E     illegal
5937 B07E 53              S     comb
5938 B07F 20 00            .    bra 00
5939
5940 B081 4E              N     illegal
5941 B082 4F              O     clra
5942 B083 20 20                 bra 20
5943 B085 41              A     illegal
5944 B086 43              C     coma
5945 B087 43              C     coma
5946 B088 45              E     illegal
5947 B089 53              S     comb
5948 B08A 53              S     comb
5949 B08B 00              .     test
5950 B08C 4E              N     illegal
5951 B08D 4F              O     clra
5952 B08E 20 20                 bra 20
5953 B090 45              E     illegal
5954 B091 52              R     illegal
5955 B092 52              R     illegal
5956 B093 4F              O     clra
5957 B094 52              R     illegal
5958 B095 53              S     comb
5959 B096 00              .     test
5960 B097 54              T     lsrb
5961 B098 45              E     illegal
5962 B099 53              S     comb
5963 B09A 54              T     lsrb
5964 B09B 20 20                 bra 20
5965 B09D 56              V     rorb
5966 B09E 45              E     illegal
5967 B09F 4E              N     illegal
5968 B0A0 44              D     lsra
5969 B0A1 00              .     test
5970 B0A2 4D              M     tsta
5971 B0A3 54              T     lsrb
5972 B0A4 52              R     illegal
5973 B0A5 20 46            F    bra 46
5974 B0A7 55              U     illegal
5975 B0A8 4E              N     illegal
5976 B0A9 43              C     coma
5977 B0AA 54              T     lsrb
5978 B0AB 3F              ?     swi
5979 B0AC 00              .     test
5980 B0AD 50              P     negb
5981 B0AE 52              R     illegal
5982 B0AF 4F              O     clra
5983 B0B0 47              G     asra
5984 B0B1 52              R     illegal
5985 B0B2 41              A     illegal
5986 B0B3 4D              M     tsta
5987 B0B4 20 20                 bra 20
5988 B0B6 3F              ?     swi
5989 B0B7 00              .     test
5990 B0B8 53              S     comb
5991 B0B9 45              E     illegal
5992 B0BA 4C              L     inca
5993 B0BB 45              E     illegal
5994 B0BC 43              C     coma
5995 B0BD 54              T     lsrb
5996 B0BE 49              I     rola
5997 B0BF 4F              O     clra
5998 B0C0 4E              N     illegal
5999 B0C1 3F              ?     swi
6000 B0C2 00              .     test
6001
6002 B0C3 14              .     bset
6003 B0C4 00              .     test
6004 B0C5 14              .     bset
6005 B0C6 C8 05           ..    eorb #05
6006 B0C8 00              .     test
6007 B0C9 05              .     asld
6008 B0CA 00              .     test
6009 B0CB 02              .     idiv
6010 B0CC 00              .     test
6011 B0CD 02              .     idiv
6012 B0CE 00              .     test
6013 B0CF 01              .     nop
6014 B0D0 00              .     test
6015 B0D1 01              .     nop
6016 B0D2 00              .     test
6017 B0D3 01              .     nop
6018 B0D4 0C              .     clc
6019 B0D5 17              .     tba
6020 B0D6 22 2E           ".    bhi 2e
6021 B0D8 39              9     rts
6022 B0D9 44              D     lsra
6023 B0DA 4F              O     clra
6024 B0DB 0B              .     sev
6025 B0DC 16              .     tab
6026 B0DD 21 2C           !,    brn 2c
6027 B0DF 38              8     pulx
6028 B0E0 43              C     coma
6029 B0E1 4E              N     illegal
6030 B0E2 59              Y     rolb
6031 B0E3 15              .     bclr
6032 B0E4 20 2B            +    bra 2b
6033 B0E6 36              6     psha
6034 B0E7 42              B     illegal
6035 B0E8 4D              M     tsta
6036 B0E9 58              X     aslb
6037 B0EA 63 1F           c.    com 1f,x
6038 B0EC 2A 35           *5    bpl 35
6039 B0EE 40              @     nega
6040 B0EF 4C              L     inca
6041 B0F0 57              W     asrb
6042 B0F1 62              b     illegal
6043 B0F2 09              .     dex
6044 B0F3 29 34           )4    bvs 34
6045 B0F5 3F              ?     swi
6046 B0F6 4A              J     deca
6047 B0F7 56              V     rorb
6048 B0F8 61              a     illegal
6049 B0F9 08              .     inx
6050 B0FA 13              .     brclr
6051 B0FB 33              3     pulb
6052 B0FC 3E              >     wai
6053 B0FD 49              I     rola
6054 B0FE 54              T     lsrb
6055 B0FF 60 07           `.    neg 07,x
6056 B101 12              .     brset
6057 B102 1D 3D           .=    bclr add,x 3d,x
6058 B104 48              H     asla
6059 B105 53              S     comb
6060 B106 5E              ^     illegal
6061 B107 06              .     tap
6062 B108 11              .     cba
6063 B109 1C 27           .'    bset add,x 27,x
6064 B10B 47              G     asra
6065 B10C 52              R     illegal
6066 B10D 5D              ]     tstb
6067 B10E 04              .     lsrd
6068 B10F 10              .     sba
6069 B110 1B              .     aba
6070 B111 26 31           &1    bne 31
6071 B113 51              Q     illegal
6072 B114 5C              \     incb
6073 B115 03              .     fdiv
6074 B116 0E              .     cli
6075 B117 1A              .     illegal
6076 B118 25 30           %0    bcs 30
6077 B11A 3B              ;     rti
6078 B11B 5B              [     illegal
6079 B11C 02              .     idiv
6080 B11D 0D              .     sec
6081 B11E 18              .     illegal
6082 B11F 24 2F           $/    bcc 2f
6083 B121 3A              :     abx
6084 B122 45              E     illegal
6085
6086 table of powers of 2
6087
6088 B123 00 01 02 04 08
6089 B128 10 20 40 80
6090
6091 B12C 00
6092 B12D 00              .     test
6093 B12E 2A 2A           **    bpl 2a
6094 B130 45              E     illegal
6095 B131 52              R     illegal
6096 B132 52              R     illegal
6097 B133 4F              O     clra
6098 B134 52              R     illegal
6099 B135 2A 2A           **    bpl 2a
6100 B137 2A 00           *.    bpl 00
6101 B139 2A 2A           **    bpl 2a
6102 B13B 2A 2A           **    bpl 2a
6103 B13D 2A 2A           **    bpl 2a
6104 B13F 2A 2A           **    bpl 2a
6105 B141 2A 2A           **    bpl 2a
6106 B143 00              .     test
6107 B144 4F              O     clra
6108 B145 4F              O     clra
6109 B146 4F              O     clra
6110 B147 4F              O     clra
6111 B148 4F              O     clra
6112 B149 4F              O     clra
6113 B14A 4F              O     clra
6114 B14B 4F              O     clra
6115 B14C 4F              O     clra
6116 B14D 4F              O     clra
6117 B14E 00              .     test
6118 B14F 52              R     illegal
6119 B150 41              A     illegal
6120 B151 4D              M     tsta
6121 B152 20 20                 bra 20
6122 B154 20 46            F    bra 46
6123 B156 41              A     illegal
6124 B157 49              I     rola
6125 B158 4C              L     inca
6126 B159 00              .     test
6127 B15A 50              P     negb
6128 B15B 32              2     pula
6129 B15C 20 20                 bra 20
6130 B15E 20 20                 bra 20
6131 B160 46              F     rora
6132 B161 41              A     illegal
6133 B162 49              I     rola
6134 B163 4C              L     inca
6135 B164 00              .     test
6136 B165 50              P     negb
6137 B166 32              2     pula
6138 B167 2D 50           -P    blt 50
6139 B169 33              3     pulb
6140 B16A 20 46            F    bra 46
6141 B16C 41              A     illegal
6142 B16D 49              I     rola
6143 B16E 4C              L     inca
6144 B16F 00              .     test
6145 B170 50              P     negb
6146 B171 32              2     pula
6147 B172 2D 50           -P    blt 50
6148 B174 38              8     pulx
6149 B175 20 46            F    bra 46
6150 B177 41              A     illegal
6151 B178 49              I     rola
6152 B179 4C              L     inca
6153 B17A 00              .     test
6154 B17B 50              P     negb
6155 B17C 32              2     pula
6156 B17D 2D 50           -P    blt 50
6157 B17F 39              9     rts
6158 B180 20 46            F    bra 46
6159 B182 41              A     illegal
6160 B183 49              I     rola
6161 B184 4C              L     inca
6162 B185 00              .     test
6163 B186 50              P     negb
6164 B187 33              3     pulb
6165 B188 2D 50           -P    blt 50
6166 B18A 34              4     des
6167 B18B 20 46            F    bra 46
6168 B18D 41              A     illegal
6169 B18E 49              I     rola
6170 B18F 4C              L     inca
6171 B190 00              .     test
6172 B191 50              P     negb
6173 B192 35              5     txs
6174 B193 20 20                 bra 20
6175 B195 20 20                 bra 20
6176 B197 46              F     rora
6177 B198 41              A     illegal
6178 B199 49              I     rola
6179 B19A 4C              L     inca
6180 B19B 00              .     test
6181 B19C 50              P     negb
6182 B19D 35              5     txs
6183 B19E 2D 50           -P    blt 50
6184 B1A0 37              7     pshb
6185 B1A1 20 46            F    bra 46
6186 B1A3 41              A     illegal
6187 B1A4 49              I     rola
6188 B1A5 4C              L     inca
6189 B1A6 00              .     test
6190 B1A7 50              P     negb
6191 B1A8 37              7     pshb
6192 B1A9 20 20                 bra 20
6193 B1AB 20 20                 bra 20
6194 B1AD 46              F     rora
6195 B1AE 41              A     illegal
6196 B1AF 49              I     rola
6197 B1B0 4C              L     inca
6198 B1B1 00              .     test
6199 B1B2 50              P     negb
6200 B1B3 37              7     pshb
6201 B1B4 2D 50           -P    blt 50
6202 B1B6 38              8     pulx
6203 B1B7 20 46            F    bra 46
6204 B1B9 41              A     illegal
6205 B1BA 49              I     rola
6206 B1BB 4C              L     inca
6207 B1BC 00              .     test
6208 B1BD 2D 20           -     blt 20
6209 B1BF 50              P     negb
6210 B1C0 41              A     illegal
6211 B1C1 53              S     comb
6212 B1C2 53              S     comb
6213 B1C3 45              E     illegal
6214 B1C4 44              D     lsra
6215 B1C5 20 2D            -    bra 2d
6216 B1C7 00              .     test
6217 B1C8 09              .     dex
6218 B1C9 12              .     brset
6219 B1CA 1B              .     aba
6220 B1CB 24 2C           $,    bcc 2c
6221 B1CD 35              5     txs
6222 B1CE 3E              >     wai
6223 B1CF 47              G     asra
6224 B1D0 54              T     lsrb
6225 B1D1 48              H     asla
6226 B1D2 41              A     illegal
6227 B1D3 4E              N     illegal
6228 B1D4 4B              K     illegal
6229 B1D5 20 59            Y    bra 59
6230 B1D7 4F              O     clra
6231 B1D8 55              U     illegal
6232 B1D9 20 46            F    bra 46
6233 B1DB 4F              O     clra
6234 B1DC 52              R     illegal
6235 B1DD 20 59            Y    bra 59
6236 B1DF 4F              O     clra
6237 B1E0 55              U     illegal
6238 B1E1 52              R     illegal
6239 B1E2 20 50            P    bra 50
6240 B1E4 41              A     illegal
6241 B1E5 54              T     lsrb
6242 B1E6 52              R     illegal
6243 B1E7 4F              O     clra
6244 B1E8 4E              N     illegal
6245 B1E9 41              A     illegal
6246 B1EA 47              G     asra
6247 B1EB 45              E     illegal
6248 B1EC 20 20                 bra 20
6249 B1EE 00              .     test
6250
6251 B1EF 20 52            R    bra 52
6252 B1F1 4F              O     clra
6253 B1F2 57              W     asrb
6254 B1F3 45              E     illegal
6255 B1F4 20 49            I    bra 49
6256 B1F6 4E              N     illegal
6257 B1F7 54              T     lsrb
6258 B1F8 20 00            .    bra 00
6259
6260 B1FA 43              C     coma
6261 B1FB 4F              O     clra
6262 B1FC 50              P     negb
6263 B1FD 59              Y     rolb
6264 B1FE 52              R     illegal
6265 B1FF 49              I     rola
6266 B200 47              G     asra
6267 B201 48              H     asla
6268 B202 54              T     lsrb
6269 B203 20 00            .    bra 00
6270
6271 B205 20 20                 bra 20
6272 B207 20 31            1    bra 31
6273 B209 39              9     rts
6274 B20A 39              9     rts
6275 B20B 33              3     pulb
6276 B20C 20 20                 bra 20
6277 B20E 20 00            .    bra 00
6278
6279 B210 35              5     txs
6280 B211 39              9     rts
6281 B212 30              0     tsx
6282 B213 30              0     tsx
6283 B214 20 56            V    bra 56
6284 B216 45              E     illegal
6285 B217 52              R     illegal
6286 B218 20 35            5    bra 35
6287 B21A 00              .     test
6288
6289 B21B 20 20                 bra 20
6290 B21D 20 20                 bra 20
6291 B21F 20 20                 bra 20
6292 B221 20 20                 bra 20
6293 B223 20 52            R    bra 52
6294 B225 4F              O     clra
6295 B226 57              W     asrb
6296 B227 45              E     illegal
6297 B228 20 20                 bra 20
6298 B22A 49              I     rola
6299 B22B 4E              N     illegal
6300 B22C 54              T     lsrb
6301 B22D 45              E     illegal
6302 B22E 52              R     illegal
6303 B22F 4E              N     illegal
6304 B230 41              A     illegal
6305 B231 54              T     lsrb
6306 B232 49              I     rola
6307 B233 4F              O     clra
6308 B234 4E              N     illegal
6309 B235 41              A     illegal
6310 B236 4C              L     inca
6311 B237 00              .     test
6312 B238 20 20                 bra 20
6313 B23A 20 20                 bra 20
6314 B23C 20 20                 bra 20
6315 B23E 20 20                 bra 20
6316 B240 2D 2D           --    blt 2d
6317 B242 2D 2D           --    blt 2d
6318 B244 2D 2D           --    blt 2d
6319 B246 2D 2D           --    blt 2d
6320 B248 2D 2D           --    blt 2d
6321 B24A 2D 2D           --    blt 2d
6322 B24C 2D 2D           --    blt 2d
6323 B24E 2D 2D           --    blt 2d
6324 B250 2D 2D           --    blt 2d
6325 B252 2D 2D           --    blt 2d
6326 B254 2D 00           -.    blt 00
6327 B256 20 20                 bra 20
6328 B258 20 20                 bra 20
6329 B25A 20 20                 bra 20
6330 B25C 20 20                 bra 20
6331 B25E 35              5     txs
6332 B25F 39              9     rts
6333 B260 30              0     tsx
6334 B261 30              0     tsx
6335 B262 20 53            S    bra 53
6336 B264 4F              O     clra
6337 B265 46              F     rora
6338 B266 54              T     lsrb
6339 B267 57              W     asrb
6340 B268 41              A     illegal
6341 B269 52              R     illegal
6342 B26A 45              E     illegal
6343 B26B 20 56            V    bra 56
6344 B26D 45              E     illegal
6345 B26E 52              R     illegal
6346 B26F 2E 20           .     bgt 20
6347 B271 35              5     txs
6348 B272 20 20                 bra 20
6349 B274 00              .     test
6350 B275 20 20                 bra 20
6351 B277 20 20                 bra 20
6352 B279 20 20                 bra 20
6353 B27B 20 20                 bra 20
6354 B27D 20 20                 bra 20
6355 B27F 20 41            A    bra 41
6356 B281 43              C     coma
6357 B282 43              C     coma
6358 B283 4F              O     clra
6359 B284 55              U     illegal
6360 B285 4E              N     illegal
6361 B286 54              T     lsrb
6362 B287 20 20                 bra 20
6363 B289 52              R     illegal
6364 B28A 45              E     illegal
6365 B28B 43              C     coma
6366 B28C 4F              O     clra
6367 B28D 52              R     illegal
6368 B28E 44              D     lsra
6369 B28F 00              .     test
6370 B290 53              S     comb
6371 B291 45              E     illegal
6372 B292 52              R     illegal
6373 B293 49              I     rola
6374 B294 41              A     illegal
6375 B295 4C              L     inca
6376 B296 20 20                 bra 20
6377 B298 23 20           #     bls 20
6378 B29A 20 20                 bra 20
6379 B29C 20 20                 bra 20
6380 B29E 20 2D            -    bra 2d
6381 B2A0 20 00            .    bra 00
6382 B2A2 4D              M     tsta
6383 B2A3 41              A     illegal
6384 B2A4 43              C     coma
6385 B2A5 48              H     asla
6386 B2A6 49              I     rola
6387 B2A7 4E              N     illegal
6388 B2A8 45              E     illegal
6389 B2A9 20 49            I    bra 49
6390 B2AB 44              D     lsra
6391 B2AC 20 20                 bra 20
6392 B2AE 20 20                 bra 20
6393 B2B0 20 2D            -    bra 2d
6394 B2B2 20 00            .    bra 00
6395 B2B4 41              A     illegal
6396 B2B5 55              U     illegal
6397 B2B6 44              D     lsra
6398 B2B7 49              I     rola
6399 B2B8 54              T     lsrb
6400 B2B9 20 4E            N    bra 4e
6401 B2BB 55              U     illegal
6402 B2BC 4D              M     tsta
6403 B2BD 42              B     illegal
6404 B2BE 45              E     illegal
6405 B2BF 52              R     illegal
6406 B2C0 20 20                 bra 20
6407 B2C2 20 20                 bra 20
6408 B2C4 20 00            .    bra 00
6409 B2C6 53              S     comb
6410 B2C7 41              A     illegal
6411 B2C8 4C              L     inca
6412 B2C9 45              E     illegal
6413 B2CA 53              S     comb
6414 B2CB 20 20                 bra 20
6415 B2CD 28 52           (R    bvc 52
6416 B2CF 29 20           )     bvs 20
6417 B2D1 20 20                 bra 20
6418 B2D3 20 20                 bra 20
6419 B2D5 2D 20           -     blt 20
6420 B2D7 00              .     test
6421 B2D8 53              S     comb
6422 B2D9 41              A     illegal
6423 B2DA 4C              L     inca
6424 B2DB 45              E     illegal
6425 B2DC 53              S     comb
6426 B2DD 20 20                 bra 20
6427 B2DF 28 4E           (N    bvc 4e
6428 B2E1 29 20           )     bvs 20
6429 B2E3 20 20                 bra 20
6430 B2E5 20 20                 bra 20
6431 B2E7 2D 20           -     blt 20
6432 B2E9 00              .     test
6433 B2EA 42              B     illegal
6434 B2EB 41              A     illegal
6435 B2EC 47              G     asra
6436 B2ED 20 54            T    bra 54
6437 B2EF 4F              O     clra
6438 B2F0 54              T     lsrb
6439 B2F1 41              A     illegal
6440 B2F2 4C              L     inca
6441 B2F3 20 20                 bra 20
6442 B2F5 20 20                 bra 20
6443 B2F7 20 20                 bra 20
6444 B2F9 2D 20           -     blt 20
6445 B2FB 00              .     test
6446 B2FC 43              C     coma
6447 B2FD 41              A     illegal
6448 B2FE 53              S     comb
6449 B2FF 48              H     asla
6450 B300 20 42            B    bra 42
6451 B302 4F              O     clra
6452 B303 58              X     aslb
6453 B304 20 20                 bra 20
6454 B306 20 20                 bra 20
6455 B308 20 20                 bra 20
6456 B30A 20 2D            -    bra 2d
6457 B30C 20 00            .    bra 00
6458 B30E 43              C     coma
6459 B30F 41              A     illegal
6460 B310 52              R     illegal
6461 B311 44              D     lsra
6462 B312 20 53            S    bra 53
6463 B314 41              A     illegal
6464 B315 4C              L     inca
6465 B316 45              E     illegal
6466 B317 53              S     comb
6467 B318 20 20                 bra 20
6468 B31A 20 20                 bra 20
6469 B31C 20 2D            -    bra 2d
6470 B31E 20 00            .    bra 00
6471 B320 42              B     illegal
6472 B321 49              I     rola
6473 B322 4C              L     inca
6474 B323 4C              L     inca
6475 B324 53              S     comb
6476 B325 20 49            I    bra 49
6477 B327 4E              N     illegal
6478 B328 20 53            S    bra 53
6479 B32A 54              T     lsrb
6480 B32B 41              A     illegal
6481 B32C 43              C     coma
6482 B32D 4B              K     illegal
6483 B32E 45              E     illegal
6484 B32F 52              R     illegal
6485 B330 00              .     test
6486 B331 20 20                 bra 20
6487 B333 20 20                 bra 20
6488 B335 42              B     illegal
6489 B336 49              I     rola
6490 B337 4C              L     inca
6491 B338 4C              L     inca
6492 B339 20 54            T    bra 54
6493 B33B 4F              O     clra
6494 B33C 54              T     lsrb
6495 B33D 41              A     illegal
6496 B33E 4C              L     inca
6497 B33F 20 2D            -    bra 2d
6498 B341 20 20                 bra 20
6499 B343 20 20                 bra 20
6500 B345 20 20                 bra 20
6501 B347 20 20                 bra 20
6502 B349 00              .     test
6503 B34A 20 20                 bra 20
6504 B34C 20 20                 bra 20
6505 B34E 4F              O     clra
6506 B34F 4E              N     illegal
6507 B350 45              E     illegal
6508 B351 53              S     comb
6509 B352 20 20                 bra 20
6510 B354 20 20                 bra 20
6511 B356 20 20                 bra 20
6512 B358 20 2D            -    bra 2d
6513 B35A 20 00            .    bra 00
6514 B35C 20 20                 bra 20
6515 B35E 20 20                 bra 20
6516 B360 54              T     lsrb
6517 B361 57              W     asrb
6518 B362 4F              O     clra
6519 B363 53              S     comb
6520 B364 20 20                 bra 20
6521 B366 20 20                 bra 20
6522 B368 20 20                 bra 20
6523 B36A 20 2D            -    bra 2d
6524 B36C 20 00            .    bra 00
6525 B36E 20 20                 bra 20
6526 B370 20 20                 bra 20
6527 B372 46              F     rora
6528 B373 49              I     rola
6529 B374 56              V     rorb
6530 B375 45              E     illegal
6531 B376 53              S     comb
6532 B377 20 20                 bra 20
6533 B379 20 20                 bra 20
6534 B37B 20 20                 bra 20
6535 B37D 2D 20           -     blt 20
6536 B37F 00              .     test
6537 B380 20 20                 bra 20
6538 B382 20 20                 bra 20
6539 B384 54              T     lsrb
6540 B385 45              E     illegal
6541 B386 4E              N     illegal
6542 B387 53              S     comb
6543 B388 20 20                 bra 20
6544 B38A 20 20                 bra 20
6545 B38C 20 20                 bra 20
6546 B38E 20 2D            -    bra 2d
6547 B390 20 00            .    bra 00
6548 B392 20 20                 bra 20
6549 B394 20 20                 bra 20
6550 B396 54              T     lsrb
6551 B397 57              W     asrb
6552 B398 45              E     illegal
6553 B399 4E              N     illegal
6554 B39A 54              T     lsrb
6555 B39B 49              I     rola
6556 B39C 45              E     illegal
6557 B39D 53              S     comb
6558 B39E 20 20                 bra 20
6559 B3A0 20 2D            -    bra 2d
6560 B3A2 20 00            .    bra 00
6561 B3A4 43              C     coma
6562 B3A5 4F              O     clra
6563 B3A6 49              I     rola
6564 B3A7 4E              N     illegal
6565 B3A8 53              S     comb
6566 B3A9 20 49            I    bra 49
6567 B3AB 4E              N     illegal
6568 B3AC 20 54            T    bra 54
6569 B3AE 55              U     illegal
6570 B3AF 42              B     illegal
6571 B3B0 45              E     illegal
6572 B3B1 53              S     comb
6573 B3B2 00              .     test
6574 B3B3 20 20                 bra 20
6575 B3B5 20 20                 bra 20
6576 B3B7 54              T     lsrb
6577 B3B8 55              U     illegal
6578 B3B9 42              B     illegal
6579 B3BA 45              E     illegal
6580 B3BB 20 54            T    bra 54
6581 B3BD 4F              O     clra
6582 B3BE 54              T     lsrb
6583 B3BF 41              A     illegal
6584 B3C0 4C              L     inca
6585 B3C1 20 2D            -    bra 2d
6586 B3C3 20 20                 bra 20
6587 B3C5 20 20                 bra 20
6588 B3C7 20 20                 bra 20
6589 B3C9 00              .     test
6590 B3CA 20 20                 bra 20
6591 B3CC 20 20                 bra 20
6592 B3CE 24 31           $1    bcc 31
6593 B3D0 20 43            C    bra 43
6594 B3D2 4F              O     clra
6595 B3D3 49              I     rola
6596 B3D4 4E              N     illegal
6597 B3D5 20 20                 bra 20
6598 B3D7 20 20                 bra 20
6599 B3D9 2D 20           -     blt 20
6600 B3DB 00              .     test
6601 B3DC 20 20                 bra 20
6602 B3DE 20 20                 bra 20
6603 B3E0 51              Q     illegal
6604 B3E1 55              U     illegal
6605 B3E2 41              A     illegal
6606 B3E3 52              R     illegal
6607 B3E4 54              T     lsrb
6608 B3E5 45              E     illegal
6609 B3E6 52              R     illegal
6610 B3E7 53              S     comb
6611 B3E8 20 20                 bra 20
6612 B3EA 20 2D            -    bra 2d
6613 B3EC 20 00            .    bra 00
6614 B3EE 20 20                 bra 20
6615 B3F0 20 20                 bra 20
6616 B3F2 44              D     lsra
6617 B3F3 49              I     rola
6618 B3F4 4D              M     tsta
6619 B3F5 45              E     illegal
6620 B3F6 53              S     comb
6621 B3F7 20 20                 bra 20
6622 B3F9 20 20                 bra 20
6623 B3FB 20 20                 bra 20
6624 B3FD 2D 20           -     blt 20
6625 B3FF 00              .     test
6626 B400 20 20                 bra 20
6627 B402 20 20                 bra 20
6628 B404 4E              N     illegal
6629 B405 49              I     rola
6630 B406 43              C     coma
6631 B407 4B              K     illegal
6632 B408 45              E     illegal
6633 B409 4C              L     inca
6634 B40A 53              S     comb
6635 B40B 20 20                 bra 20
6636 B40D 20 20                 bra 20
6637 B40F 2D 20           -     blt 20
6638 B411 00              .     test
6639 B412 57              W     asrb
6640 B413 49              I     rola
6641 B414 4E              N     illegal
6642 B415 2D 53           -S    blt 53
6643 B417 4E              N     illegal
6644 B418 4B              K     illegal
6645 B419 20 56            V    bra 56
6646 B41B 45              E     illegal
6647 B41C 4E              N     illegal
6648 B41D 44              D     lsra
6649 B41E 53              S     comb
6650 B41F 20 20                 bra 20
6651 B421 2D 20           -     blt 20
6652 B423 00              .     test
6653 B424 53              S     comb
6654 B425 48              H     asla
6655 B426 4F              O     clra
6656 B427 50              P     negb
6657 B428 50              P     negb
6658 B429 45              E     illegal
6659 B42A 52              R     illegal
6660 B42B 20 56            V    bra 56
6661 B42D 45              E     illegal
6662 B42E 4E              N     illegal
6663 B42F 44              D     lsra
6664 B430 53              S     comb
6665 B431 20 20                 bra 20
6666 B433 2D 20           -     blt 20
6667 B435 00              .     test
6668 B436 50              P     negb
6669 B437 52              R     illegal
6670 B438 4F              O     clra
6671 B439 4D              M     tsta
6672 B43A 4F              O     clra
6673 B43B 20 56            V    bra 56
6674 B43D 45              E     illegal
6675 B43E 4E              N     illegal
6676 B43F 44              D     lsra
6677 B440 53              S     comb
6678 B441 20 20                 bra 20
6679 B443 20 20                 bra 20
6680 B445 2D 20           -     blt 20
6681 B447 00              .     test
6682 B448 46              F     rora
6683 B449 52              R     illegal
6684 B44A 45              E     illegal
6685 B44B 45              E     illegal
6686 B44C 20 20                 bra 20
6687 B44E 56              V     rorb
6688 B44F 45              E     illegal
6689 B450 4E              N     illegal
6690 B451 44              D     lsra
6691 B452 53              S     comb
6692 B453 20 20                 bra 20
6693 B455 20 20                 bra 20
6694 B457 2D 20           -     blt 20
6695 B459 00              .     test
6696 B45A 56              V     rorb
6697 B45B 45              E     illegal
6698 B45C 4E              N     illegal
6699 B45D 44              D     lsra
6700 B45E 53              S     comb
6701 B45F 20 50            P    bra 50
6702 B461 45              E     illegal
6703 B462 52              R     illegal
6704 B463 20 50            P    bra 50
6705 B465 52              R     illegal
6706 B466 4F              O     clra
6707 B467 44              D     lsra
6708 B468 55              U     illegal
6709 B469 43              C     coma
6710 B46A 54              T     lsrb
6711 B46B 20 43            C    bra 43
6712 B46D 4F              O     clra
6713 B46E 44              D     lsra
6714 B46F 45              E     illegal
6715 B470 00              .     test
6716
6717 B471 20 20                 bra 20
6718 B473 20 20                 bra 20
6719 B475 43              C     coma
6720 B476 4F              O     clra
6721 B477 44              D     lsra
6722 B478 45              E     illegal
6723 B479 20 00            .    bra 00
6724 B47B 56              V     rorb
6725 B47C 45              E     illegal
6726 B47D 4E              N     illegal
6727 B47E 44              D     lsra
6728 B47F 53              S     comb
6729 B480 20 2D            -    bra 2d
6730 B482 20 00            .    bra 00
6731 B484 56              V     rorb
6732 B485 45              E     illegal
6733 B486 4E              N     illegal
6734 B487 44              D     lsra
6735 B488 53              S     comb
6736 B489 2F 43           /C    ble 43
6737 B48B 4F              O     clra
6738 B48C 44              D     lsra
6739 B48D 45              E     illegal
6740 B48E 00              .     test
6741 B48F 41              A     illegal
6742 B490 42              B     illegal
6743 B491 43              C     coma
6744 B492 44              D     lsra
6745 B493 45              E     illegal
6746 B494 46              F     rora
6747 B495 47              G     asra
6748 B496 48              H     asla
6749 B497 49              I     rola
6750 B498 4A              J     deca
6751 B499 4B              K     illegal
6752 B49A 4C              L     inca
6753 B49B 4D              M     tsta
6754 B49C 4E              N     illegal
6755 B49D 4F              O     clra
6756 B49E 50              P     negb
6757 B49F 51              Q     illegal
6758 B4A0 52              R     illegal
6759 B4A1 53              S     comb
6760 B4A2 54              T     lsrb
6761 B4A3 55              U     illegal
6762 B4A4 56              V     rorb
6763 B4A5 57              W     asrb
6764 B4A6 58              X     aslb
6765 B4A7 59              Y     rolb
6766 B4A8 5A              Z     decb
6767 B4A9 30              0     tsx
6768 B4AA 31              1     ins
6769 B4AB 32              2     pula
6770 B4AC 33              3     pulb
6771 B4AD 34              4     des
6772 B4AE 35              5     txs
6773 B4AF 36              6     psha
6774 B4B0 37              7     pshb
6775 B4B1 38              8     pulx
6776 B4B2 39              9     rts
6777 B4B3 24 2A           $*    bcc 2a
6778 B4B5 20 00            .    bra 00
6779 B4B7 01              .     nop
6780 B4B8 02              .     idiv
6781 B4B9 04              .     lsrd
6782 B4BA 08              .     inx
6783 B4BB 10              .     sba
6784 B4BC 20 40            @    bra 40
6785 B4BE 80 FF           ..    suba #ff
6786 B4C0 FF FF FF        ...   stx ffff
6787 B4C3 FF FF FF        ...   stx ffff
6788 B4C6 FF FF FF        ...   stx ffff
6789 B4C9 FF FF FF        ...   stx ffff
6790 B4CC FF FF FF        ...   stx ffff
6791 B4CF FF FF FF        ...   stx ffff
6792 B4D2 FF FF FF        ...   stx ffff
6793 B4D5 FF FF FF        ...   stx ffff
6794 B4D8 FF FF FF        ...   stx ffff
6795 B4DB FF FF FF        ...   stx ffff
6796 B4DE FF FF FF        ...   stx ffff
6797 B4E1 FF FF FF        ...   stx ffff
6798 B4E4 FF FF FF        ...   stx ffff
6799 B4E7 FF FF FF        ...   stx ffff
6800 B4EA FF FF FF        ...   stx ffff
6801 B4ED FF FF FF        ...   stx ffff
6802 B4F0 FF FF FF        ...   stx ffff
6803 B4F3 FF FF FF        ...   stx ffff
6804 B4F6 FF FF FF        ...   stx ffff
6805 B4F9 FF FF FF        ...   stx ffff
6806 B4FC FF FF FF        ...   stx ffff
6807 B4FF FF FF FF        ...   stx ffff
6808 B502 FF FF FF        ...   stx ffff
6809 B505 FF FF FF        ...   stx ffff
6810 B508 FF FF FF        ...   stx ffff
6811 B50B FF FF FF        ...   stx ffff
6812 B50E FF FF FF        ...   stx ffff
6813 B511 FF FF FF        ...   stx ffff
6814 B514 FF FF FF        ...   stx ffff
6815 B517 FF FF FF        ...   stx ffff
6816 B51A FF FF FF        ...   stx ffff
6817 B51D FF FF FF        ...   stx ffff
6818 B520 FF FF FF        ...   stx ffff
6819 B523 FF FF FF        ...   stx ffff
6820 B526 FF FF FF        ...   stx ffff
6821 B529 FF FF FF        ...   stx ffff
6822 B52C FF FF FF        ...   stx ffff
6823 B52F FF FF FF        ...   stx ffff
6824 B532 FF FF FF        ...   stx ffff
6825 B535 FF FF FF        ...   stx ffff
6826 B538 FF FF FF        ...   stx ffff
6827 B53B FF FF FF        ...   stx ffff
6828 B53E FF FF FF        ...   stx ffff
6829 B541 FF FF FF        ...   stx ffff
6830 B544 FF FF FF        ...   stx ffff
6831 B547 FF FF FF        ...   stx ffff
6832 B54A FF FF FF        ...   stx ffff
6833 B54D FF FF FF        ...   stx ffff
6834 B550 FF FF FF        ...   stx ffff
6835 B553 FF FF FF        ...   stx ffff
6836 B556 FF FF FF        ...   stx ffff
6837 B559 FF FF FF        ...   stx ffff
6838 B55C FF FF FF        ...   stx ffff
6839 B55F FF FF FF        ...   stx ffff
6840 B562 FF FF FF        ...   stx ffff
6841 B565 FF FF FF        ...   stx ffff
6842 B568 FF FF FF        ...   stx ffff
6843 B56B FF FF FF        ...   stx ffff
6844 B56E FF FF FF        ...   stx ffff
6845 B571 FF FF FF        ...   stx ffff
6846 B574 FF FF FF        ...   stx ffff
6847 B577 FF FF FF        ...   stx ffff
6848 B57A FF FF FF        ...   stx ffff
6849 B57D FF FF FF        ...   stx ffff
6850 B580 FF FF FF        ...   stx ffff
6851 B583 FF FF FF        ...   stx ffff
6852 B586 FF FF FF        ...   stx ffff
6853 B589 FF FF FF        ...   stx ffff
6854 B58C FF FF FF        ...   stx ffff
6855 B58F FF FF FF        ...   stx ffff
6856 B592 FF FF FF        ...   stx ffff
6857 B595 FF FF FF        ...   stx ffff
6858 B598 FF FF FF        ...   stx ffff
6859 B59B FF FF FF        ...   stx ffff
6860 B59E FF FF FF        ...   stx ffff
6861 B5A1 FF FF FF        ...   stx ffff
6862 B5A4 FF FF FF        ...   stx ffff
6863 B5A7 FF FF FF        ...   stx ffff
6864 B5AA FF FF FF        ...   stx ffff
6865 B5AD FF FF FF        ...   stx ffff
6866 B5B0 FF FF FF        ...   stx ffff
6867 B5B3 FF FF FF        ...   stx ffff
6868 B5B6 FF FF FF        ...   stx ffff
6869 B5B9 FF FF FF        ...   stx ffff
6870 B5BC FF FF FF        ...   stx ffff
6871 B5BF FF FF FF        ...   stx ffff
6872 B5C2 FF FF FF        ...   stx ffff
6873 B5C5 FF FF FF        ...   stx ffff
6874 B5C8 FF FF FF        ...   stx ffff
6875 B5CB FF FF FF        ...   stx ffff
6876 B5CE FF FF FF        ...   stx ffff
6877 B5D1 FF FF FF        ...   stx ffff
6878 B5D4 FF FF FF        ...   stx ffff
6879 B5D7 FF FF FF        ...   stx ffff
6880 B5DA FF FF FF        ...   stx ffff
6881 B5DD FF FF FF        ...   stx ffff
6882 B5E0 FF FF FF        ...   stx ffff
6883 B5E3 FF FF FF        ...   stx ffff
6884 B5E6 FF FF FF        ...   stx ffff
6885 B5E9 FF FF FF        ...   stx ffff
6886 B5EC FF FF FF        ...   stx ffff
6887 B5EF FF FF FF        ...   stx ffff
6888 B5F2 FF FF FF        ...   stx ffff
6889 B5F5 FF FF FF        ...   stx ffff
6890 B5F8 FF FF FF        ...   stx ffff
6891 B5FB FF FF FF        ...   stx ffff
6892 B5FE FF FF FF        ...   stx ffff
6893 B601 FF FF FF        ...   stx ffff
6894 B604 FF FF FF        ...   stx ffff
6895 B607 FF FF FF        ...   stx ffff
6896 B60A FF FF FF        ...   stx ffff
6897 B60D FF FF FF        ...   stx ffff
6898 B610 FF FF FF        ...   stx ffff
6899 B613 FF FF FF        ...   stx ffff
6900 B616 FF FF FF        ...   stx ffff
6901 B619 FF FF FF        ...   stx ffff
6902 B61C FF FF FF        ...   stx ffff
6903 B61F FF FF FF        ...   stx ffff
6904 B622 FF FF FF        ...   stx ffff
6905 B625 FF FF FF        ...   stx ffff
6906 B628 FF FF FF        ...   stx ffff
6907 B62B FF FF FF        ...   stx ffff
6908 B62E FF FF FF        ...   stx ffff
6909 B631 FF FF FF        ...   stx ffff
6910 B634 FF FF FF        ...   stx ffff
6911 B637 FF FF FF        ...   stx ffff
6912 B63A FF FF FF        ...   stx ffff
6913 B63D FF FF FF        ...   stx ffff
6914 B640 FF FF FF        ...   stx ffff
6915 B643 FF FF FF        ...   stx ffff
6916 B646 FF FF FF        ...   stx ffff
6917 B649 FF FF FF        ...   stx ffff
6918 B64C FF FF FF        ...   stx ffff
6919 B64F FF FF FF        ...   stx ffff
6920 B652 FF FF FF        ...   stx ffff
6921 B655 FF FF FF        ...   stx ffff
6922 B658 FF FF FF        ...   stx ffff
6923 B65B FF FF FF        ...   stx ffff
6924 B65E FF FF FF        ...   stx ffff
6925 B661 FF FF FF        ...   stx ffff
6926 B664 FF FF FF        ...   stx ffff
6927 B667 FF FF FF        ...   stx ffff
6928 B66A FF FF FF        ...   stx ffff
6929 B66D FF FF FF        ...   stx ffff
6930 B670 FF FF FF        ...   stx ffff
6931 B673 FF FF FF        ...   stx ffff
6932 B676 FF FF FF        ...   stx ffff
6933 B679 FF FF FF        ...   stx ffff
6934 B67C FF FF FF        ...   stx ffff
6935 B67F FF FF FF        ...   stx ffff
6936 B682 FF FF FF        ...   stx ffff
6937 B685 FF FF FF        ...   stx ffff
6938 B688 FF FF FF        ...   stx ffff
6939 B68B FF FF FF        ...   stx ffff
6940 B68E FF FF FF        ...   stx ffff
6941 B691 FF FF FF        ...   stx ffff
6942 B694 FF FF FF        ...   stx ffff
6943 B697 FF FF FF        ...   stx ffff
6944 B69A FF FF FF        ...   stx ffff
6945 B69D FF FF FF        ...   stx ffff
6946 B6A0 FF FF FF        ...   stx ffff
6947 B6A3 FF FF FF        ...   stx ffff
6948 B6A6 FF FF FF        ...   stx ffff
6949 B6A9 FF FF FF        ...   stx ffff
6950 B6AC FF FF FF        ...   stx ffff
6951 B6AF FF FF FF        ...   stx ffff
6952 B6B2 FF FF FF        ...   stx ffff
6953 B6B5 FF FF FF        ...   stx ffff
6954 B6B8 FF FF FF        ...   stx ffff
6955 B6BB FF FF FF        ...   stx ffff
6956 B6BE FF FF FF        ...   stx ffff
6957 B6C1 FF FF FF        ...   stx ffff
6958 B6C4 FF FF FF        ...   stx ffff
6959 B6C7 FF FF FF        ...   stx ffff
6960 B6CA FF FF FF        ...   stx ffff
6961 B6CD FF FF FF        ...   stx ffff
6962 B6D0 FF FF FF        ...   stx ffff
6963 B6D3 FF FF FF        ...   stx ffff
6964 B6D6 FF FF FF        ...   stx ffff
6965 B6D9 FF FF FF        ...   stx ffff
6966 B6DC FF FF FF        ...   stx ffff
6967 B6DF FF FF FF        ...   stx ffff
6968 B6E2 FF FF FF        ...   stx ffff
6969 B6E5 FF FF FF        ...   stx ffff
6970 B6E8 FF FF FF        ...   stx ffff
6971 B6EB FF FF FF        ...   stx ffff
6972 B6EE FF FF FF        ...   stx ffff
6973 B6F1 FF FF FF        ...   stx ffff
6974 B6F4 FF FF FF        ...   stx ffff
6975 B6F7 FF FF FF        ...   stx ffff
6976 B6FA FF FF FF        ...   stx ffff
6977 B6FD FF FF FF        ...   stx ffff
6978 B700 FF FF FF        ...   stx ffff
6979 B703 FF FF FF        ...   stx ffff
6980 B706 FF FF FF        ...   stx ffff
6981 B709 FF FF FF        ...   stx ffff
6982 B70C FF FF FF        ...   stx ffff
6983 B70F FF FF FF        ...   stx ffff
6984 B712 FF FF FF        ...   stx ffff
6985 B715 FF FF FF        ...   stx ffff
6986 B718 FF FF FF        ...   stx ffff
6987 B71B FF FF FF        ...   stx ffff
6988 B71E FF FF FF        ...   stx ffff
6989 B721 FF FF FF        ...   stx ffff
6990 B724 FF FF FF        ...   stx ffff
6991 B727 FF FF FF        ...   stx ffff
6992 B72A FF FF FF        ...   stx ffff
6993 B72D FF FF FF        ...   stx ffff
6994 B730 FF FF FF        ...   stx ffff
6995 B733 FF FF FF        ...   stx ffff
6996 B736 FF FF FF        ...   stx ffff
6997 B739 FF FF FF        ...   stx ffff
6998 B73C FF FF FF        ...   stx ffff
6999 B73F FF FF FF        ...   stx ffff
7000 B742 FF FF FF        ...   stx ffff
7001 B745 FF FF FF        ...   stx ffff
7002 B748 FF FF FF        ...   stx ffff
7003 B74B FF FF FF        ...   stx ffff
7004 B74E FF FF FF        ...   stx ffff
7005 B751 FF FF FF        ...   stx ffff
7006 B754 FF FF FF        ...   stx ffff
7007 B757 FF FF FF        ...   stx ffff
7008 B75A FF FF FF        ...   stx ffff
7009 B75D FF FF FF        ...   stx ffff
7010 B760 FF FF FF        ...   stx ffff
7011 B763 FF FF FF        ...   stx ffff
7012 B766 FF FF FF        ...   stx ffff
7013 B769 FF FF FF        ...   stx ffff
7014 B76C FF FF FF        ...   stx ffff
7015 B76F FF FF FF        ...   stx ffff
7016 B772 FF FF FF        ...   stx ffff
7017 B775 FF FF FF        ...   stx ffff
7018 B778 FF FF FF        ...   stx ffff
7019 B77B FF FF FF        ...   stx ffff
7020 B77E FF FF FF        ...   stx ffff
7021 B781 FF FF FF        ...   stx ffff
7022 B784 FF FF FF        ...   stx ffff
7023 B787 FF FF FF        ...   stx ffff
7024 B78A FF FF FF        ...   stx ffff
7025 B78D FF FF FF        ...   stx ffff
7026 B790 FF FF FF        ...   stx ffff
7027 B793 FF FF FF        ...   stx ffff
7028 B796 FF FF FF        ...   stx ffff
7029 B799 FF FF FF        ...   stx ffff
7030 B79C FF FF FF        ...   stx ffff
7031 B79F FF FF FF        ...   stx ffff
7032 B7A2 FF FF FF        ...   stx ffff
7033 B7A5 FF FF FF        ...   stx ffff
7034 B7A8 FF FF FF        ...   stx ffff
7035 B7AB FF FF FF        ...   stx ffff
7036 B7AE FF FF FF        ...   stx ffff
7037 B7B1 FF FF FF        ...   stx ffff
7038 B7B4 FF FF FF        ...   stx ffff
7039 B7B7 FF FF FF        ...   stx ffff
7040 B7BA FF FF FF        ...   stx ffff
7041 B7BD FF FF FF        ...   stx ffff
7042 B7C0 FF FF FF        ...   stx ffff
7043 B7C3 FF FF FF        ...   stx ffff
7044 B7C6 FF FF FF        ...   stx ffff
7045 B7C9 FF FF FF        ...   stx ffff
7046 B7CC FF FF FF        ...   stx ffff
7047 B7CF FF FF FF        ...   stx ffff
7048 B7D2 FF FF FF        ...   stx ffff
7049 B7D5 FF FF FF        ...   stx ffff
7050 B7D8 FF FF FF        ...   stx ffff
7051 B7DB FF FF FF        ...   stx ffff
7052 B7DE FF FF FF        ...   stx ffff
7053 B7E1 FF FF FF        ...   stx ffff
7054 B7E4 FF FF FF        ...   stx ffff
7055 B7E7 FF FF FF        ...   stx ffff
7056 B7EA FF FF FF        ...   stx ffff
7057 B7ED FF FF FF        ...   stx ffff
7058 B7F0 FF FF FF        ...   stx ffff
7059 B7F3 FF FF FF        ...   stx ffff
7060 B7F6 FF FF FF        ...   stx ffff
7061 B7F9 FF FF FF        ...   stx ffff
7062 B7FC FF FF FF        ...   stx ffff
7063 B7FF FF 34 F6        .4.   stx 34f6
7064 B802 0E              .     cli
7065 B803 6D C1           m.    tst c1,x
7066 B805 01              .     nop
7067 B806 27 03           '.    beq 03
7068 B808 7E B9 2A        ~.*   jmp b92a
7069 B80B F6 0E 02        ...   ldab 0e02
7070 B80E C1 05           ..    cmpb #05
7071 B810 27 03           '.    beq 03
7072 B812 7E B9 2A        ~.*   jmp b92a
7073 B815 F6 0E 03        ...   ldab 0e03
7074 B818 C1 05           ..    cmpb #05
7075 B81A 27 03           '.    beq 03
7076 B81C 7E B9 2A        ~.*   jmp b92a
7077 B81F F6 0E 04        ...   ldab 0e04
7078 B822 C1 05           ..    cmpb #05
7079 B824 27 03           '.    beq 03
7080 B826 7E B9 2A        ~.*   jmp b92a
7081 B829 F6 00 12        ...   ldab 0012
7082 B82C C4 20           .     andb #20
7083 B82E 27 03           '.    beq 03
7084 B830 7E B9 2A        ~.*   jmp b92a
7085 B833 30              0     tsx
7086 B834 6F 00           o.    clr 00,x
7087 B836 F6 0E 6A        ..j   ldab 0e6a
7088 B839 C1 00           ..    cmpb #00
7089 B83B 22 33           "3    bhi 33
7090 B83D C6 64           .d    ldab #64
7091 B83F F7 0E 6A        ..j   stb 0e6a
7092 B842 7C 0E 05        |..   inc 0e05
7093 B845 F6 0E 05        ...   ldab 0e05
7094 B848 C1 64           .d    cmpb #64
7095 B84A 23 03           #.    bls 03
7096 B84C 7F 0E 05        ...   clr 0e05
7097 B84F F6 0E 05        ...   ldab 0e05
7098 B852 BD D4 68        ..h   jsr d468
7099 B855 83 00 00        ...   subd #0000
7100 B858 27 0B           '.    beq 0b
7101 B85A F6 0E 05        ...   ldab 0e05
7102 B85D BD D7 A0        ...   jsr d7a0
7103 B860 83 00 00        ...   subd #0000
7104 B863 27 09           '.    beq 09
7105 B865 30              0     tsx
7106 B866 6C 00           l.    inc 00,x
7107 B868 E6 00           ..    ldab 00,x
7108 B86A C1 6E           .n    cmpb #6e
7109 B86C 2D D4           -.    blt d4
7110 B86E 20 0A            .    bra 0a
7111 B870 F6 0E 6A        ..j   ldab 0e6a
7112 B873 C1 00           ..    cmpb #00
7113 B875 23 03           #.    bls 03
7114 B877 7A 0E 6A        z.j   dec 0e6a
7115 B87A F6 0E 05        ...   ldab 0e05
7116 B87D BD D4 68        ..h   jsr d468
7117 B880 83 00 00        ...   subd #0000
7118 B883 26 03           &.    bne 03
7119 B885 7E B9 0A        ~..   jmp b90a
7120 B888 F6 0E 05        ...   ldab 0e05
7121 B88B BD D7 A0        ...   jsr d7a0
7122 B88E 83 00 00        ...   subd #0000
7123 B891 26 77           &w    bne 77
7124 B893 BD BE 4B        ..K   jsr be4b
7125 B896 C6 20           .     ldab #20
7126 B898 F7 0B 9A        ...   stb 0b9a
7127 B89B C6 20           .     ldab #20
7128 B89D F7 0B 99        ...   stb 0b99
7129 B8A0 C6 20           .     ldab #20
7130 B8A2 F7 0B 98        ...   stb 0b98
7131 B8A5 F6 0E 05        ...   ldab 0e05
7132 B8A8 4F              O     clra
7133 B8A9 CE 00 0A        ...   ldx #000a
7134 B8AC 02              .     idiv
7135 B8AD 8F              .     xgdx
7136 B8AE CB 30           .0    addb #30
7137 B8B0 F7 0B 97        ...   stb 0b97
7138 B8B3 F6 0E 05        ...   ldab 0e05
7139 B8B6 4F              O     clra
7140 B8B7 CE 00 0A        ...   ldx #000a
7141 B8BA 02              .     idiv
7142 B8BB CB 30           .0    addb #30
7143 B8BD F7 0B 96        ...   stb 0b96
7144 B8C0 C6 20           .     ldab #20
7145 B8C2 F7 0B 95        ...   stb 0b95
7146 B8C5 C6 20           .     ldab #20
7147 B8C7 F7 0B 94        ...   stb 0b94
7148 B8CA F6 0E 05        ...   ldab 0e05
7149 B8CD 4F              O     clra
7150 B8CE C3 0E 06        ...   addd #0e06
7151 B8D1 8F              .     xgdx
7152 B8D2 E6 00           ..    ldab 00,x
7153 B8D4 4F              O     clra
7154 B8D5 CE 00 0A        ...   ldx #000a
7155 B8D8 02              .     idiv
7156 B8D9 8F              .     xgdx
7157 B8DA CB 30           .0    addb #30
7158 B8DC F7 0B 93        ...   stb 0b93
7159 B8DF F6 0E 05        ...   ldab 0e05
7160 B8E2 4F              O     clra
7161 B8E3 C3 0E 06        ...   addd #0e06
7162 B8E6 8F              .     xgdx
7163 B8E7 E6 00           ..    ldab 00,x
7164 B8E9 4F              O     clra
7165 B8EA CE 00 0A        ...   ldx #000a
7166 B8ED 02              .     idiv
7167 B8EE CB 30           .0    addb #30
7168 B8F0 F7 0B 92        ...   stb 0b92
7169 B8F3 C6 20           .     ldab #20
7170 B8F5 F7 0B 91        ...   stb 0b91
7171 B8F8 C6 20           .     ldab #20
7172 B8FA F7 0B 90        ...   stb 0b90
7173 B8FD 7F 00 2C        ..,   clr 002c
7174 B900 BD BE 01        ...   jsr be01
7175 B903 C6 0A           ..    ldab #0a
7176 B905 F7 00 2C        ..,   stb 002c
7177 B908 20 1D            .    bra 1d
7178 B90A BD BE 4B        ..K   jsr be4b
7179 B90D C6 57           .W    ldab #57
7180 B90F F7 0B 96        ...   stb 0b96
7181 B912 C6 42           .B    ldab #42
7182 B914 F7 0B 95        ...   stb 0b95
7183 B917 C6 42           .B    ldab #42
7184 B919 F7 0B 94        ...   stb 0b94
7185 B91C 7F 00 2C        ..,   clr 002c
7186 B91F BD BE 01        ...   jsr be01
7187 B922 C6 0A           ..    ldab #0a
7188 B924 F7 00 2C        ..,   stb 002c
7189 B927 7E BA 81        ~..   jmp ba81
7190 B92A F6 0E 6D        ..m   ldab 0e6d
7191 B92D C1 01           ..    cmpb #01
7192 B92F 27 03           '.    beq 03
7193 B931 7E BA 81        ~..   jmp ba81
7194 B934 F6 0E 00        ...   ldab 0e00
7195 B937 C1 05           ..    cmpb #05
7196 B939 27 03           '.    beq 03
7197 B93B 7E BA 81        ~..   jmp ba81
7198 B93E F6 0E 01        ...   ldab 0e01
7199 B941 C1 05           ..    cmpb #05
7200 B943 27 03           '.    beq 03
7201 B945 7E BA 81        ~..   jmp ba81
7202 B948 F6 0E 02        ...   ldab 0e02
7203 B94B C1 05           ..    cmpb #05
7204 B94D 27 03           '.    beq 03
7205 B94F 7E BA 81        ~..   jmp ba81
7206 B952 F6 00 12        ...   ldab 0012
7207 B955 C4 20           .     andb #20
7208 B957 26 03           &.    bne 03
7209 B959 7E BA 81        ~..   jmp ba81
7210 B95C F6 0E 04        ...   ldab 0e04
7211 B95F C1 05           ..    cmpb #05
7212 B961 26 79           &y    bne 79
7213 B963 F6 0E 03        ...   ldab 0e03
7214 B966 C1 05           ..    cmpb #05
7215 B968 26 72           &r    bne 72
7216 B96A 30              0     tsx
7217 B96B 6F 00           o.    clr 00,x
7218 B96D 30              0     tsx
7219 B96E E6 00           ..    ldab 00,x
7220 B970 C1 64           .d    cmpb #64
7221 B972 2C 16           ,.    bge 16
7222 B974 5F              _     clrb
7223 B975 37              7     pshb
7224 B976 30              0     tsx
7225 B977 E6 01           ..    ldab 01,x
7226 B979 4F              O     clra
7227 B97A 5D              ]     tstb
7228 B97B 2C 01           ,.    bge 01
7229 B97D 4A              J     deca
7230 B97E C3 0E 06        ...   addd #0e06
7231 B981 8F              .     xgdx
7232 B982 33              3     pulb
7233 B983 E7 00           ..    stb 00,x
7234 B985 30              0     tsx
7235 B986 6C 00           l.    inc 00,x
7236 B988 20 E3            .    bra e3
7237 B98A 7F 0D FF        ...   clr 0dff
7238 B98D 7F 0E 00        ...   clr 0e00
7239 B990 7F 0E 01        ...   clr 0e01
7240 B993 7F 0E 02        ...   clr 0e02
7241 B996 7F 0E 03        ...   clr 0e03
7242 B999 7F 0E 04        ...   clr 0e04
7243 B99C C6 41           .A    ldab #41
7244 B99E F7 0B 99        ...   stb 0b99
7245 B9A1 C6 4C           .L    ldab #4c
7246 B9A3 F7 0B 98        ...   stb 0b98
7247 B9A6 C6 4C           .L    ldab #4c
7248 B9A8 F7 0B 97        ...   stb 0b97
7249 B9AB C6 20           .     ldab #20
7250 B9AD F7 0B 96        ...   stb 0b96
7251 B9B0 C6 43           .C    ldab #43
7252 B9B2 F7 0B 95        ...   stb 0b95
7253 B9B5 C6 4C           .L    ldab #4c
7254 B9B7 F7 0B 94        ...   stb 0b94
7255 B9BA C6 45           .E    ldab #45
7256 B9BC F7 0B 93        ...   stb 0b93
7257 B9BF C6 41           .A    ldab #41
7258 B9C1 F7 0B 92        ...   stb 0b92
7259 B9C4 C6 52           .R    ldab #52
7260 B9C6 F7 0B 91        ...   stb 0b91
7261 B9C9 C6 20           .     ldab #20
7262 B9CB F7 0B 90        ...   stb 0b90
7263 B9CE 7F 00 2C        ..,   clr 002c
7264 B9D1 BD BE 01        ...   jsr be01
7265 B9D4 C6 1E           ..    ldab #1e
7266 B9D6 F7 00 2C        ..,   stb 002c
7267 B9D9 7E BA 81        ~..   jmp ba81
7268 B9DC F6 0E 04        ...   ldab 0e04
7269 B9DF C1 01           ..    cmpb #01
7270 B9E1 27 0A           '.    beq 0a
7271 B9E3 F6 0E 04        ...   ldab 0e04
7272 B9E6 C1 02           ..    cmpb #02
7273 B9E8 27 03           '.    beq 03
7274 B9EA 7E BA 81        ~..   jmp ba81
7275 B9ED F6 0E 03        ...   ldab 0e03
7276 B9F0 C1 00           ..    cmpb #00
7277 B9F2 22 03           ".    bhi 03
7278 B9F4 7E BA 81        ~..   jmp ba81
7279 B9F7 F6 0E 03        ...   ldab 0e03
7280 B9FA C1 05           ..    cmpb #05
7281 B9FC 26 03           &.    bne 03
7282 B9FE 7E BA 81        ~..   jmp ba81
7283 BA01 F6 0E 03        ...   ldab 0e03
7284 BA04 C1 07           ..    cmpb #07
7285 BA06 24 79           $y    bcc 79
7286 BA08 F6 0E 03        ...   ldab 0e03
7287 BA0B 86 0A           ..    ldaa #0a
7288 BA0D 3D              =     mul
7289 BA0E FB 0E 04        ...   addb 0e04
7290 BA11 30              0     tsx
7291 BA12 E7 00           ..    stb 00,x
7292 BA14 E6 00           ..    ldab 00,x
7293 BA16 C1 64           .d    cmpb #64
7294 BA18 2C 67           ,g    bge 67
7295 BA1A E6 00           ..    ldab 00,x
7296 BA1C 2D 63           -c    blt 63
7297 BA1E 5F              _     clrb
7298 BA1F 37              7     pshb
7299 BA20 30              0     tsx
7300 BA21 E6 01           ..    ldab 01,x
7301 BA23 4F              O     clra
7302 BA24 5D              ]     tstb
7303 BA25 2C 01           ,.    bge 01
7304 BA27 4A              J     deca
7305 BA28 C3 0E 06        ...   addd #0e06
7306 BA2B 8F              .     xgdx
7307 BA2C 33              3     pulb
7308 BA2D E7 00           ..    stb 00,x
7309 BA2F F6 0E 03        ...   ldab 0e03
7310 BA32 CB 30           .0    addb #30
7311 BA34 F7 0B 99        ...   stb 0b99
7312 BA37 F6 0E 04        ...   ldab 0e04
7313 BA3A CB 30           .0    addb #30
7314 BA3C F7 0B 98        ...   stb 0b98
7315 BA3F C6 20           .     ldab #20
7316 BA41 F7 0B 97        ...   stb 0b97
7317 BA44 C6 43           .C    ldab #43
7318 BA46 F7 0B 96        ...   stb 0b96
7319 BA49 C6 4C           .L    ldab #4c
7320 BA4B F7 0B 95        ...   stb 0b95
7321 BA4E C6 45           .E    ldab #45
7322 BA50 F7 0B 94        ...   stb 0b94
7323 BA53 C6 41           .A    ldab #41
7324 BA55 F7 0B 93        ...   stb 0b93
7325 BA58 C6 52           .R    ldab #52
7326 BA5A F7 0B 92        ...   stb 0b92
7327 BA5D C6 45           .E    ldab #45
7328 BA5F F7 0B 91        ...   stb 0b91
7329 BA62 C6 44           .D    ldab #44
7330 BA64 F7 0B 90        ...   stb 0b90
7331 BA67 7F 0E 00        ...   clr 0e00
7332 BA6A 7F 0E 01        ...   clr 0e01
7333 BA6D 7F 0E 02        ...   clr 0e02
7334 BA70 7F 0E 03        ...   clr 0e03
7335 BA73 7F 0E 04        ...   clr 0e04
7336 BA76 7F 00 2C        ..,   clr 002c
7337 BA79 BD BE 01        ...   jsr be01
7338 BA7C C6 1E           ..    ldab #1e
7339 BA7E F7 00 2C        ..,   stb 002c
7340 BA81 31              1     ins
7341 BA82 39              9     rts
7342 BA83 F6 18 00        ...   ldab 1800
7343 BA86 C4 7F           ..    andb #7f
7344 BA88 F7 00 23        ..#   stb 0023
7345 BA8B F6 00 23        ..#   ldab 0023
7346 BA8E F1 00 12        ...   cmpb 0012
7347 BA91 27 06           '.    beq 06
7348 BA93 F6 00 23        ..#   ldab 0023
7349 BA96 F7 00 12        ...   stb 0012
7350 BA99 F6 20 00        . .   ldab 2000
7351 BA9C F1 00 20        ..    cmpb 0020
7352 BA9F 27 08           '.    beq 08
7353 BAA1 F6 20 00        . .   ldab 2000
7354 BAA4 F7 00 20        ..    stb 0020
7355 BAA7 20 0E            .    bra 0e
7356 BAA9 F6 00 20        ..    ldab 0020
7357 BAAC F7 00 11        ...   stb 0011
7358 BAAF F6 00 11        ...   ldab 0011
7359 BAB2 C4 03           ..    andb #03
7360 BAB4 F7 00 2B        ..+   stb 002b
7361 BAB7 F6 00 1B        ...   ldab 001b
7362 BABA C4 04           ..    andb #04
7363 BABC 37              7     pshb
7364 BABD F6 10 0A        ...   ldab 100a
7365 BAC0 C4 04           ..    andb #04
7366 BAC2 30              0     tsx
7367 BAC3 E0 00           ..    subb 00,x
7368 BAC5 31              1     ins
7369 BAC6 27 17           '.    beq 17
7370 BAC8 F6 10 0A        ...   ldab 100a
7371 BACB C4 04           ..    andb #04
7372 BACD 27 08           '.    beq 08
7373 BACF CE 00 1B        ...   ldx #001b
7374 BAD2 1C 00           ..    bset add,x 00,x
7375 BAD4 04              .     lsrd
7376 BAD5 20 06            .    bra 06
7377 BAD7 CE 00 1B        ...   ldx #001b
7378 BADA 1D 00           ..    bclr add,x 00,x
7379 BADC 04              .     lsrd
7380 BADD 20 15            .    bra 15
7381 BADF F6 10 0A        ...   ldab 100a
7382 BAE2 C4 04           ..    andb #04
7383 BAE4 27 08           '.    beq 08
7384 BAE6 CE 00 1D        ...   ldx #001d
7385 BAE9 1C 00           ..    bset add,x 00,x
7386 BAEB 04              .     lsrd
7387 BAEC 20 06            .    bra 06
7388 BAEE CE 00 1D        ...   ldx #001d
7389 BAF1 1D 00           ..    bclr add,x 00,x
7390 BAF3 04              .     lsrd
7391 BAF4 CE 10 08        ...   ldx #1008
7392 BAF7 1D 00           ..    bclr add,x 00,x
7393 BAF9 20 CE            .    bra ce
7394 BAFB 10              .     sba
7395 BAFC 28 1C           (.    bvc 1c
7396 BAFE 00              .     test
7397 BAFF 40              @     nega
7398 BB00 CE 00 14        ...   ldx #0014
7399 BB03 1C 00           ..    bset add,x 00,x
7400 BB05 04              .     lsrd
7401 BB06 F6 00 14        ...   ldab 0014
7402 BB09 F7 38 00        .8.   stb 3800
7403 BB0C CE 00 14        ...   ldx #0014
7404 BB0F 1D 00           ..    bclr add,x 00,x
7405 BB11 04              .     lsrd
7406 BB12 F6 00 14        ...   ldab 0014
7407 BB15 F7 38 00        .8.   stb 3800
7408 BB18 CE 00 00        ...   ldx #0000
7409 BB1B 3C              <     pshx
7410 BB1C 5F              _     clrb
7411 BB1D 4F              O     clra
7412 BB1E BD BD B5        ...   jsr bdb5
7413 BB21 38              8     pulx
7414 BB22 F7 00 5B        ..[   stb 005b
7415 BB25 CE 10 28        ..(   ldx #1028
7416 BB28 1D 00           ..    bclr add,x 00,x
7417 BB2A 40              @     nega
7418 BB2B CE 10 08        ...   ldx #1008
7419 BB2E 1C 00           ..    bset add,x 00,x
7420 BB30 20 CE            .    bra ce
7421 BB32 10              .     sba
7422 BB33 28 1C           (.    bvc 1c
7423 BB35 00              .     test
7424 BB36 40              @     nega
7425 BB37 CE 00 14        ...   ldx #0014
7426 BB3A 1C 00           ..    bset add,x 00,x
7427 BB3C 04              .     lsrd
7428 BB3D F6 00 14        ...   ldab 0014
7429 BB40 F7 38 00        .8.   stb 3800
7430 BB43 CE 00 14        ...   ldx #0014
7431 BB46 1D 00           ..    bclr add,x 00,x
7432 BB48 04              .     lsrd
7433 BB49 F6 00 14        ...   ldab 0014
7434 BB4C F7 38 00        .8.   stb 3800
7435 BB4F CE 00 00        ...   ldx #0000
7436 BB52 3C              <     pshx
7437 BB53 5F              _     clrb
7438 BB54 4F              O     clra
7439 BB55 BD BD B5        ...   jsr bdb5
7440 BB58 38              8     pulx
7441 BB59 F7 00 56        ..V   stb 0056
7442 BB5C CE 10 28        ..(   ldx #1028
7443 BB5F 1D 00           ..    bclr add,x 00,x
7444 BB61 40              @     nega
7445 BB62 39              9     rts
7446 BB63 F6 00 00        ...   ldab 0000
7447 BB66 27 03           '.    beq 03
7448 BB68 7E BD B4        ~..   jmp bdb4
7449 BB6B F6 00 2E        ...   ldab 002e
7450 BB6E 27 03           '.    beq 03
7451 BB70 7E BD B4        ~..   jmp bdb4
7452 BB73 BD BA 83        ...   jsr ba83
7453 BB76 F6 00 5B        ..[   ldab 005b
7454 BB79 F1 00 56        ..V   cmpb 0056
7455 BB7C 26 0B           &.    bne 0b
7456 BB7E F6 00 56        ..V   ldab 0056
7457 BB81 27 06           '.    beq 06
7458 BB83 7F 00 29        ..)   clr 0029
7459 BB86 7E BD AF        ~..   jmp bdaf
7460 BB89 F6 00 5B        ..[   ldab 005b
7461 BB8C 27 34           '4    beq 34
7462 BB8E F6 00 5B        ..[   ldab 005b
7463 BB91 F7 00 5F        .._   stb 005f
7464 BB94 7F 00 1C        ...   clr 001c
7465 BB97 F6 00 1C        ...   ldab 001c
7466 BB9A C1 08           ..    cmpb #08
7467 BB9C 24 15           $.    bcc 15
7468 BB9E F6 00 5F        .._   ldab 005f
7469 BBA1 C4 01           ..    andb #01
7470 BBA3 27 02           '.    beq 02
7471 BBA5 20 0C            .    bra 0c
7472 BBA7 F6 00 5F        .._   ldab 005f
7473 BBAA 54              T     lsrb
7474 BBAB F7 00 5F        .._   stb 005f
7475 BBAE 7C 00 1C        |..   inc 001c
7476 BBB1 20 E4            .    bra e4
7477 BBB3 F6 00 1C        ...   ldab 001c
7478 BBB6 4F              O     clra
7479 BBB7 C3 AC 9D        ...   addd #ac9d
7480 BBBA 8F              .     xgdx
7481 BBBB E6 00           ..    ldab 00,x
7482 BBBD F7 00 16        ...   stb 0016
7483 BBC0 20 3C            <    bra 3c
7484 BBC2 F6 00 56        ..V   ldab 0056
7485 BBC5 27 34           '4    beq 34
7486 BBC7 F6 00 56        ..V   ldab 0056
7487 BBCA F7 00 5F        .._   stb 005f
7488 BBCD 7F 00 1C        ...   clr 001c
7489 BBD0 F6 00 1C        ...   ldab 001c
7490 BBD3 C1 08           ..    cmpb #08
7491 BBD5 24 15           $.    bcc 15
7492 BBD7 F6 00 5F        .._   ldab 005f
7493 BBDA C4 01           ..    andb #01
7494 BBDC 27 02           '.    beq 02
7495 BBDE 20 0C            .    bra 0c
7496 BBE0 F6 00 5F        .._   ldab 005f
7497 BBE3 54              T     lsrb
7498 BBE4 F7 00 5F        .._   stb 005f
7499 BBE7 7C 00 1C        |..   inc 001c
7500 BBEA 20 E4            .    bra e4
7501 BBEC F6 00 1C        ...   ldab 001c
7502 BBEF 4F              O     clra
7503 BBF0 C3 AC A0        ...   addd #aca0
7504 BBF3 8F              .     xgdx
7505 BBF4 E6 00           ..    ldab 00,x
7506 BBF6 F7 00 16        ...   stb 0016
7507 BBF9 20 03            .    bra 03
7508 BBFB 7F 00 16        ...   clr 0016
7509 BBFE F6 00 5B        ..[   ldab 005b
7510 BC01 FA 00 56        ..V   orb 0056
7511 BC04 F7 00 5F        .._   stb 005f
7512 BC07 7F 00 5E        ..^   clr 005e
7513 BC0A 7F 00 1C        ...   clr 001c
7514 BC0D F6 00 1C        ...   ldab 001c
7515 BC10 C1 08           ..    cmpb #08
7516 BC12 24 16           $.    bcc 16
7517 BC14 F6 00 5F        .._   ldab 005f
7518 BC17 C4 01           ..    andb #01
7519 BC19 27 03           '.    beq 03
7520 BC1B 7C 00 5E        |.^   inc 005e
7521 BC1E F6 00 5F        .._   ldab 005f
7522 BC21 54              T     lsrb
7523 BC22 F7 00 5F        .._   stb 005f
7524 BC25 7C 00 1C        |..   inc 001c
7525 BC28 20 E3            .    bra e3
7526 BC2A F6 00 5E        ..^   ldab 005e
7527 BC2D C1 01           ..    cmpb #01
7528 BC2F 22 05           ".    bhi 05
7529 BC31 F6 00 16        ...   ldab 0016
7530 BC34 26 0F           &.    bne 0f
7531 BC36 7F 00 29        ..)   clr 0029
7532 BC39 CE 00 1B        ...   ldx #001b
7533 BC3C 1C 00           ..    bset add,x 00,x
7534 BC3E 10              .     sba
7535 BC3F 7F 00 37        ..7   clr 0037
7536 BC42 7E BD AF        ~..   jmp bdaf
7537 BC45 F6 00 16        ...   ldab 0016
7538 BC48 F1 00 29        ..)   cmpb 0029
7539 BC4B 27 2D           '-    beq 2d
7540 BC4D F6 00 16        ...   ldab 0016
7541 BC50 F7 00 29        ..)   stb 0029
7542 BC53 F6 0E 00        ...   ldab 0e00
7543 BC56 F7 0D FF        ...   stb 0dff
7544 BC59 F6 0E 01        ...   ldab 0e01
7545 BC5C F7 0E 00        ...   stb 0e00
7546 BC5F F6 0E 02        ...   ldab 0e02
7547 BC62 F7 0E 01        ...   stb 0e01
7548 BC65 F6 0E 03        ...   ldab 0e03
7549 BC68 F7 0E 02        ...   stb 0e02
7550 BC6B F6 0E 04        ...   ldab 0e04
7551 BC6E F7 0E 03        ...   stb 0e03
7552 BC71 F6 00 29        ..)   ldab 0029
7553 BC74 F7 0E 04        ...   stb 0e04
7554 BC77 7E BD AF        ~..   jmp bdaf
7555 BC7A F6 00 12        ...   ldab 0012
7556 BC7D C4 20           .     andb #20
7557 BC7F 27 3B           ';    beq 3b
7558 BC81 F6 00 29        ..)   ldab 0029
7559 BC84 27 33           '3    beq 33
7560 BC86 F6 00 1B        ...   ldab 001b
7561 BC89 C4 10           ..    andb #10
7562 BC8B 27 2C           ',    beq 2c
7563 BC8D F6 00 42        ..B   ldab 0042
7564 BC90 27 15           '.    beq 15
7565 BC92 F6 00 09        ...   ldab 0009
7566 BC95 27 08           '.    beq 08
7567 BC97 F6 00 29        ..)   ldab 0029
7568 BC9A F7 00 0A        ...   stb 000a
7569 BC9D 20 06            .    bra 06
7570 BC9F F6 00 29        ..)   ldab 0029
7571 BCA2 F7 00 09        ...   stb 0009
7572 BCA5 20 06            .    bra 06
7573 BCA7 F6 00 29        ..)   ldab 0029
7574 BCAA F7 00 42        ..B   stb 0042
7575 BCAD BD E5 AA        ...   jsr e5aa
7576 BCB0 7F 00 2C        ..,   clr 002c
7577 BCB3 CE 00 1B        ...   ldx #001b
7578 BCB6 1D 00           ..    bclr add,x 00,x
7579 BCB8 10              .     sba
7580 BCB9 7E BD AF        ~..   jmp bdaf
7581 BCBC F6 00 1B        ...   ldab 001b
7582 BCBF C4 10           ..    andb #10
7583 BCC1 26 03           &.    bne 03
7584 BCC3 7E BD 91        ~..   jmp bd91
7585 BCC6 F6 00 21        ..!   ldab 0021
7586 BCC9 C4 20           .     andb #20
7587 BCCB 27 03           '.    beq 03
7588 BCCD 7E BD 91        ~..   jmp bd91
7589 BCD0 F6 00 29        ..)   ldab 0029
7590 BCD3 C1 0B           ..    cmpb #0b
7591 BCD5 26 03           &.    bne 03
7592 BCD7 7E BD 5C        ~.\   jmp bd5c
7593 BCDA 7F 00 49        ..I   clr 0049
7594 BCDD F6 00 3A        ..:   ldab 003a
7595 BCE0 26 32           &2    bne 32
7596 BCE2 F6 00 29        ..)   ldab 0029
7597 BCE5 C1 0A           ..    cmpb #0a
7598 BCE7 26 05           &.    bne 05
7599 BCE9 7F 00 1E        ...   clr 001e
7600 BCEC 20 06            .    bra 06
7601 BCEE F6 00 29        ..)   ldab 0029
7602 BCF1 F7 00 1E        ...   stb 001e
7603 BCF4 C6 32           .2    ldab #32
7604 BCF6 F7 00 3A        ..:   stb 003a
7605 BCF9 BD BE 4B        ..K   jsr be4b
7606 BCFC F6 00 1E        ...   ldab 001e
7607 BCFF CB 30           .0    addb #30
7608 BD01 F7 0B 95        ...   stb 0b95
7609 BD04 BD E5 AA        ...   jsr e5aa
7610 BD07 7F 00 2C        ..,   clr 002c
7611 BD0A BD BE 01        ...   jsr be01
7612 BD0D C6 32           .2    ldab #32
7613 BD0F F7 00 2C        ..,   stb 002c
7614 BD12 20 46            F    bra 46
7615 BD14 F6 00 29        ..)   ldab 0029
7616 BD17 C1 05           ..    cmpb #05
7617 BD19 27 07           '.    beq 07
7618 BD1B F6 00 29        ..)   ldab 0029
7619 BD1E C1 0A           ..    cmpb #0a
7620 BD20 26 05           &.    bne 05
7621 BD22 7F 00 2C        ..,   clr 002c
7622 BD25 20 2D            -    bra 2d
7623 BD27 F6 00 1E        ...   ldab 001e
7624 BD2A 58              X     aslb
7625 BD2B 58              X     aslb
7626 BD2C 58              X     aslb
7627 BD2D F7 00 06        ...   stb 0006
7628 BD30 F6 00 1E        ...   ldab 001e
7629 BD33 58              X     aslb
7630 BD34 FB 00 06        ...   addb 0006
7631 BD37 F7 00 06        ...   stb 0006
7632 BD3A F6 00 29        ..)   ldab 0029
7633 BD3D FB 00 06        ...   addb 0006
7634 BD40 F7 00 06        ...   stb 0006
7635 BD43 F6 00 29        ..)   ldab 0029
7636 BD46 CB 30           .0    addb #30
7637 BD48 F7 0B 94        ...   stb 0b94
7638 BD4B BD BE 01        ...   jsr be01
7639 BD4E CE 00 1B        ...   ldx #001b
7640 BD51 1D 00           ..    bclr add,x 00,x
7641 BD53 40              @     nega
7642 BD54 7F 00 3A        ..:   clr 003a
7643 BD57 BD E5 AA        ...   jsr e5aa
7644 BD5A 20 2D            -    bra 2d
7645 BD5C C6 19           ..    ldab #19
7646 BD5E F7 00 37        ..7   stb 0037
7647 BD61 F6 00 3A        ..:   ldab 003a
7648 BD64 27 08           '.    beq 08
7649 BD66 7F 00 3A        ..:   clr 003a
7650 BD69 7F 00 2C        ..,   clr 002c
7651 BD6C 20 18            .    bra 18
7652 BD6E 7C 00 49        |.I   inc 0049
7653 BD71 F6 00 49        ..I   ldab 0049
7654 BD74 C1 02           ..    cmpb #02
7655 BD76 25 0E           %.    bcs 0e
7656 BD78 7F 00 49        ..I   clr 0049
7657 BD7B CE 00 1B        ...   ldx #001b
7658 BD7E 1C 00           ..    bset add,x 00,x
7659 BD80 01              .     nop
7660 BD81 C6 3C           .<    ldab #3c
7661 BD83 F7 00 4F        ..O   stb 004f
7662 BD86 BD E5 AA        ...   jsr e5aa
7663 BD89 CE 00 1B        ...   ldx #001b
7664 BD8C 1D 00           ..    bclr add,x 00,x
7665 BD8E 10              .     sba
7666 BD8F 20 1E            .    bra 1e
7667 BD91 F6 00 1B        ...   ldab 001b
7668 BD94 C4 10           ..    andb #10
7669 BD96 26 17           &.    bne 17
7670 BD98 F6 00 29        ..)   ldab 0029
7671 BD9B C1 0B           ..    cmpb #0b
7672 BD9D 26 10           &.    bne 10
7673 BD9F F6 00 37        ..7   ldab 0037
7674 BDA2 26 0B           &.    bne 0b
7675 BDA4 BD DD D5        ...   jsr ddd5
7676 BDA7 7F 00 49        ..I   clr 0049
7677 BDAA C6 14           ..    ldab #14
7678 BDAC F7 00 2C        ..,   stb 002c
7679 BDAF C6 01           ..    ldab #01
7680 BDB1 F7 00 00        ...   stb 0000
7681 BDB4 39              9     rts
7682 BDB5 37              7     pshb
7683 BDB6 36              6     psha
7684 BDB7 3C              <     pshx
7685 BDB8 5F              _     clrb
7686 BDB9 4F              O     clra
7687 BDBA 30              0     tsx
7688 BDBB ED 00           ..    stad 00,x
7689 BDBD E6 07           ..    ldab 07,x
7690 BDBF 27 0E           '.    beq 0e
7691 BDC1 CE 00 14        ...   ldx #0014
7692 BDC4 1C 00           ..    bset add,x 00,x
7693 BDC6 08              .     inx
7694 BDC7 F6 00 14        ...   ldab 0014
7695 BDCA F7 38 00        .8.   stb 3800
7696 BDCD 20 0C            .    bra 0c
7697 BDCF CE 00 14        ...   ldx #0014
7698 BDD2 1D 00           ..    bclr add,x 00,x
7699 BDD4 08              .     inx
7700 BDD5 F6 00 14        ...   ldab 0014
7701 BDD8 F7 38 00        .8.   stb 3800
7702 BDDB 30              0     tsx
7703 BDDC E6 03           ..    ldab 03,x
7704 BDDE F7 10 2A        ..*   stb 102a
7705 BDE1 F6 10 29        ..)   ldab 1029
7706 BDE4 2D 0F           -.    blt 0f
7707 BDE6 38              8     pulx
7708 BDE7 08              .     inx
7709 BDE8 3C              <     pshx
7710 BDE9 30              0     tsx
7711 BDEA EC 00           ..    ldd 00,x
7712 BDEC 83 FF FF        ...   subd #ffff
7713 BDEF 26 02           &.    bne 02
7714 BDF1 20 02            .    bra 02
7715 BDF3 20 EC            .    bra ec
7716 BDF5 F6 10 2A        ..*   ldab 102a
7717 BDF8 30              0     tsx
7718 BDF9 E7 03           ..    stb 03,x
7719 BDFB E6 03           ..    ldab 03,x
7720 BDFD 4F              O     clra
7721 BDFE 38              8     pulx
7722 BDFF 38              8     pulx
7723 BE00 39              9     rts
7724 BE01 F6 00 2C        ..,   ldab 002c
7725 BE04 26 09           &.    bne 09
7726 BE06 8D 61           .a    bsr dest 61
7727 BE08 8D 06           ..    bsr dest 06
7728 BE0A C6 03           ..    ldab #03
7729 BE0C F7 00 2C        ..,   stb 002c
7730 BE0F 39              9     rts
7731 BE10 CE 10 28        ..(   ldx #1028
7732 BE13 1C 00           ..    bset add,x 00,x
7733 BE15 40              @     nega
7734 BE16 7F 00 1C        ...   clr 001c
7735 BE19 F6 00 1C        ...   ldab 001c
7736 BE1C C1 0A           ..    cmpb #0a
7737 BE1E 24 19           $.    bcc 19
7738 BE20 CE 00 01        ...   ldx #0001
7739 BE23 3C              <     pshx
7740 BE24 F6 00 1C        ...   ldab 001c
7741 BE27 4F              O     clra
7742 BE28 C3 0B 90        ...   addd #0b90
7743 BE2B 8F              .     xgdx
7744 BE2C E6 00           ..    ldab 00,x
7745 BE2E C4 7F           ..    andb #7f
7746 BE30 4F              O     clra
7747 BE31 8D 82           ..    bsr dest 82
7748 BE33 38              8     pulx
7749 BE34 7C 00 1C        |..   inc 001c
7750 BE37 20 E0            .    bra e0
7751 BE39 CE 00 01        ...   ldx #0001
7752 BE3C 3C              <     pshx
7753 BE3D CC 00 FF        ...   ldd #00ff
7754 BE40 BD BD B5        ...   jsr bdb5
7755 BE43 38              8     pulx
7756 BE44 CE 10 28        ..(   ldx #1028
7757 BE47 1D 00           ..    bclr add,x 00,x
7758 BE49 40              @     nega
7759 BE4A 39              9     rts
7760 BE4B 7F 00 1C        ...   clr 001c
7761 BE4E F6 00 1C        ...   ldab 001c
7762 BE51 C1 0A           ..    cmpb #0a
7763 BE53 24 13           $.    bcc 13
7764 BE55 C6 20           .     ldab #20
7765 BE57 37              7     pshb
7766 BE58 F6 00 1C        ...   ldab 001c
7767 BE5B 4F              O     clra
7768 BE5C C3 0B 90        ...   addd #0b90
7769 BE5F 8F              .     xgdx
7770 BE60 33              3     pulb
7771 BE61 E7 00           ..    stb 00,x
7772 BE63 7C 00 1C        |..   inc 001c
7773 BE66 20 E6            .    bra e6
7774 BE68 39              9     rts
7775 BE69 CE 10 00        ...   ldx #1000
7776 BE6C 1D 00           ..    bclr add,x 00,x
7777 BE6E 80 BD           ..    suba #bd
7778 BE70 E5 96           ..    bitb 96,x
7779 BE72 CE 10 00        ...   ldx #1000
7780 BE75 1C 00           ..    bset add,x 00,x
7781 BE77 80 CE           ..    suba #ce
7782 BE79 10              .     sba
7783 BE7A 28 1C           (.    bvc 1c
7784 BE7C 00              .     test
7785 BE7D 40              @     nega
7786 BE7E BD E5 96        ...   jsr e596
7787 BE81 CE 00 01        ...   ldx #0001
7788 BE84 3C              <     pshx
7789 BE85 CC 00 CA        ...   ldd #00ca
7790 BE88 BD BD B5        ...   jsr bdb5
7791 BE8B 38              8     pulx
7792 BE8C CE 00 01        ...   ldx #0001
7793 BE8F 3C              <     pshx
7794 BE90 CC 00 E0        ...   ldd #00e0
7795 BE93 BD BD B5        ...   jsr bdb5
7796 BE96 38              8     pulx
7797 BE97 CE 10 28        ..(   ldx #1028
7798 BE9A 1D 00           ..    bclr add,x 00,x
7799 BE9C 40              @     nega
7800 BE9D 39              9     rts
7801 BE9E 37              7     pshb
7802 BE9F 36              6     psha
7803 BEA0 8D A9           ..    bsr dest a9
7804 BEA2 30              0     tsx
7805 BEA3 E6 05           ..    ldab 05,x
7806 BEA5 26 1B           &.    bne 1b
7807 BEA7 F6 00 06        ...   ldab 0006
7808 BEAA 4F              O     clra
7809 BEAB CE 00 0A        ...   ldx #000a
7810 BEAE 02              .     idiv
7811 BEAF 8F              .     xgdx
7812 BEB0 CB 30           .0    addb #30
7813 BEB2 F7 0B 99        ...   stb 0b99
7814 BEB5 F6 00 06        ...   ldab 0006
7815 BEB8 4F              O     clra
7816 BEB9 CE 00 0A        ...   ldx #000a
7817 BEBC 02              .     idiv
7818 BEBD CB 30           .0    addb #30
7819 BEBF F7 0B 98        ...   stb 0b98
7820 BEC2 30              0     tsx
7821 BEC3 EC 00           ..    ldd 00,x
7822 BEC5 C4 FF           ..    andb #ff
7823 BEC7 84 3F           .?    anda #3f
7824 BEC9 ED 00           ..    stad 00,x
7825 BECB EC 00           ..    ldd 00,x
7826 BECD CE 03 E8        ...   ldx #03e8
7827 BED0 02              .     idiv
7828 BED1 8F              .     xgdx
7829 BED2 CB 30           .0    addb #30
7830 BED4 37              7     pshb
7831 BED5 30              0     tsx
7832 BED6 E6 06           ..    ldab 06,x
7833 BED8 4F              O     clra
7834 BED9 C3 0B 95        ...   addd #0b95
7835 BEDC 8F              .     xgdx
7836 BEDD 33              3     pulb
7837 BEDE E7 00           ..    stb 00,x
7838 BEE0 30              0     tsx
7839 BEE1 EC 00           ..    ldd 00,x
7840 BEE3 CE 03 E8        ...   ldx #03e8
7841 BEE6 02              .     idiv
7842 BEE7 CE 00 64        ..d   ldx #0064
7843 BEEA 02              .     idiv
7844 BEEB 8F              .     xgdx
7845 BEEC CB 30           .0    addb #30
7846 BEEE 37              7     pshb
7847 BEEF 30              0     tsx
7848 BEF0 E6 06           ..    ldab 06,x
7849 BEF2 4F              O     clra
7850 BEF3 C3 0B 94        ...   addd #0b94
7851 BEF6 8F              .     xgdx
7852 BEF7 33              3     pulb
7853 BEF8 E7 00           ..    stb 00,x
7854 BEFA 30              0     tsx
7855 BEFB EC 00           ..    ldd 00,x
7856 BEFD CE 00 64        ..d   ldx #0064
7857 BF00 02              .     idiv
7858 BF01 CE 00 0A        ...   ldx #000a
7859 BF04 02              .     idiv
7860 BF05 8F              .     xgdx
7861 BF06 CB 30           .0    addb #30
7862 BF08 37              7     pshb
7863 BF09 30              0     tsx
7864 BF0A E6 06           ..    ldab 06,x
7865 BF0C 4F              O     clra
7866 BF0D C3 0B 93        ...   addd #0b93
7867 BF10 8F              .     xgdx
7868 BF11 33              3     pulb
7869 BF12 E7 00           ..    stb 00,x
7870 BF14 30              0     tsx
7871 BF15 EC 00           ..    ldd 00,x
7872 BF17 CE 00 0A        ...   ldx #000a
7873 BF1A 02              .     idiv
7874 BF1B CB 30           .0    addb #30
7875 BF1D 37              7     pshb
7876 BF1E 30              0     tsx
7877 BF1F E6 06           ..    ldab 06,x
7878 BF21 4F              O     clra
7879 BF22 C3 0B 92        ...   addd #0b92
7880 BF25 8F              .     xgdx
7881 BF26 33              3     pulb
7882 BF27 E7 00           ..    stb 00,x
7883 BF29 F6 00 13        ...   ldab 0013
7884 BF2C C1 01           ..    cmpb #01
7885 BF2E 22 03           ".    bhi 03
7886 BF30 7E BF DE        ~..   jmp bfde
7887 BF33 30              0     tsx
7888 BF34 E6 05           ..    ldab 05,x
7889 BF36 4F              O     clra
7890 BF37 C3 0B 92        ...   addd #0b92
7891 BF3A 8F              .     xgdx
7892 BF3B E6 00           ..    ldab 00,x
7893 BF3D 37              7     pshb
7894 BF3E 30              0     tsx
7895 BF3F E6 06           ..    ldab 06,x
7896 BF41 4F              O     clra
7897 BF42 C3 0B 91        ...   addd #0b91
7898 BF45 8F              .     xgdx
7899 BF46 33              3     pulb
7900 BF47 E7 00           ..    stb 00,x
7901 BF49 30              0     tsx
7902 BF4A E6 05           ..    ldab 05,x
7903 BF4C 4F              O     clra
7904 BF4D C3 0B 93        ...   addd #0b93
7905 BF50 8F              .     xgdx
7906 BF51 E6 00           ..    ldab 00,x
7907 BF53 37              7     pshb
7908 BF54 30              0     tsx
7909 BF55 E6 06           ..    ldab 06,x
7910 BF57 4F              O     clra
7911 BF58 C3 0B 92        ...   addd #0b92
7912 BF5B 8F              .     xgdx
7913 BF5C 33              3     pulb
7914 BF5D E7 00           ..    stb 00,x
7915 BF5F F6 00 13        ...   ldab 0013
7916 BF62 C1 02           ..    cmpb #02
7917 BF64 26 10           &.    bne 10
7918 BF66 C6 2E           ..    ldab #2e
7919 BF68 37              7     pshb
7920 BF69 30              0     tsx
7921 BF6A E6 06           ..    ldab 06,x
7922 BF6C 4F              O     clra
7923 BF6D C3 0B 93        ...   addd #0b93
7924 BF70 8F              .     xgdx
7925 BF71 33              3     pulb
7926 BF72 E7 00           ..    stb 00,x
7927 BF74 20 68            h    bra 68
7928 BF76 C1 04           ..    cmpb #04
7929 BF78 26 26           &&    bne 26
7930 BF7A 30              0     tsx
7931 BF7B E6 05           ..    ldab 05,x
7932 BF7D 4F              O     clra
7933 BF7E C3 0B 94        ...   addd #0b94
7934 BF81 8F              .     xgdx
7935 BF82 E6 00           ..    ldab 00,x
7936 BF84 37              7     pshb
7937 BF85 30              0     tsx
7938 BF86 E6 06           ..    ldab 06,x
7939 BF88 4F              O     clra
7940 BF89 C3 0B 93        ...   addd #0b93
7941 BF8C 8F              .     xgdx
7942 BF8D 33              3     pulb
7943 BF8E E7 00           ..    stb 00,x
7944 BF90 C6 2E           ..    ldab #2e
7945 BF92 37              7     pshb
7946 BF93 30              0     tsx
7947 BF94 E6 06           ..    ldab 06,x
7948 BF96 4F              O     clra
7949 BF97 C3 0B 94        ...   addd #0b94
7950 BF9A 8F              .     xgdx
7951 BF9B 33              3     pulb
7952 BF9C E7 00           ..    stb 00,x
7953 BF9E 20 3E            >    bra 3e
7954 BFA0 C1 08           ..    cmpb #08
7955 BFA2 26 3A           &:    bne 3a
7956 BFA4 30              0     tsx
7957 BFA5 E6 05           ..    ldab 05,x
7958 BFA7 4F              O     clra
7959 BFA8 C3 0B 94        ...   addd #0b94
7960 BFAB 8F              .     xgdx
7961 BFAC E6 00           ..    ldab 00,x
7962 BFAE 37              7     pshb
7963 BFAF 30              0     tsx
7964 BFB0 E6 06           ..    ldab 06,x
7965 BFB2 4F              O     clra
7966 BFB3 C3 0B 93        ...   addd #0b93
7967 BFB6 8F              .     xgdx
7968 BFB7 33              3     pulb
7969 BFB8 E7 00           ..    stb 00,x
7970 BFBA 30              0     tsx
7971 BFBB E6 05           ..    ldab 05,x
7972 BFBD 4F              O     clra
7973 BFBE C3 0B 95        ...   addd #0b95
7974 BFC1 8F              .     xgdx
7975 BFC2 E6 00           ..    ldab 00,x
7976 BFC4 37              7     pshb
7977 BFC5 30              0     tsx
7978 BFC6 E6 06           ..    ldab 06,x
7979 BFC8 4F              O     clra
7980 BFC9 C3 0B 94        ...   addd #0b94
7981 BFCC 8F              .     xgdx
7982 BFCD 33              3     pulb
7983 BFCE E7 00           ..    stb 00,x
7984 BFD0 C6 2E           ..    ldab #2e
7985 BFD2 37              7     pshb
7986 BFD3 30              0     tsx
7987 BFD4 E6 06           ..    ldab 06,x
7988 BFD6 4F              O     clra
7989 BFD7 C3 0B 95        ...   addd #0b95
7990 BFDA 8F              .     xgdx
7991 BFDB 33              3     pulb
7992 BFDC E7 00           ..    stb 00,x
7993 BFDE F6 0B C0        ...   ldab 0bc0
7994 BFE1 C4 01           ..    andb #01
7995 BFE3 26 0E           &.    bne 0e
7996 BFE5 F6 0B C0        ...   ldab 0bc0
7997 BFE8 C4 04           ..    andb #04
7998 BFEA 26 07           &.    bne 07
7999 BFEC F6 0B C0        ...   ldab 0bc0
8000 BFEF C4 08           ..    andb #08
8001 BFF1 27 15           '.    beq 15
8002 BFF3 F6 00 17        ...   ldab 0017
8003 BFF6 C4 08           ..    andb #08
8004 BFF8 26 0E           &.    bne 0e
8005 BFFA C6 24           .$    ldab #24
8006 BFFC 37              7     pshb
8007 BFFD 30              0     tsx
8008 BFFE E6 06           ..    ldab 06,x
8009 C000 4F              O     clra
8010 C001 C3 0B 96        ...   addd #0b96
8011 C004 8F              .     xgdx
8012 C005 33              3     pulb
8013 C006 E7 00           ..    stb 00,x
8014 C008 BD BE 69        ..i   jsr be69
8015 C00B F6 00 13        ...   ldab 0013
8016 C00E C1 01           ..    cmpb #01
8017 C010 23 17           #.    bls 17
8018 C012 CE 10 28        ..(   ldx #1028
8019 C015 1C 00           ..    bset add,x 00,x
8020 C017 40              @     nega
8021 C018 CE 00 01        ...   ldx #0001
8022 C01B 3C              <     pshx
8023 C01C CC 00 20        ..    ldd #0020
8024 C01F BD BD B5        ...   jsr bdb5
8025 C022 38              8     pulx
8026 C023 CE 10 28        ..(   ldx #1028
8027 C026 1D 00           ..    bclr add,x 00,x
8028 C028 40              @     nega
8029 C029 BD BE 10        ...   jsr be10
8030 C02C 38              8     pulx
8031 C02D 39              9     rts
8032 C02E 37              7     pshb
8033 C02F 36              6     psha
8034 C030 3C              <     pshx
8035 C031 F6 00 2C        ..,   ldab 002c
8036 C034 27 03           '.    beq 03
8037 C036 7E C0 B7        ~..   jmp c0b7
8038 C039 FC 00 03        ...   ldd 0003
8039 C03C 30              0     tsx
8040 C03D A3 02           ..    subd 02,x
8041 C03F 25 0A           %.    bcs 0a
8042 C041 E6 07           ..    ldab 07,x
8043 C043 4F              O     clra
8044 C044 E3 02           ..    addd 02,x
8045 C046 B3 00 03        ...   subd 0003
8046 C049 24 06           $.    bcc 06
8047 C04B 30              0     tsx
8048 C04C EC 02           ..    ldd 02,x
8049 C04E FD 00 03        ...   stad 0003
8050 C051 FE 00 03        ...   ldx 0003
8051 C054 08              .     inx
8052 C055 FF 00 03        ...   stx 0003
8053 C058 09              .     dex
8054 C059 8F              .     xgdx
8055 C05A 30              0     tsx
8056 C05B ED 00           ..    stad 00,x
8057 C05D C6 09           ..    ldab #09
8058 C05F F7 00 18        ...   stb 0018
8059 C062 F6 00 18        ...   ldab 0018
8060 C065 C1 FF           ..    cmpb #ff
8061 C067 24 46           $F    bcc 46
8062 C069 30              0     tsx
8063 C06A E6 07           ..    ldab 07,x
8064 C06C 4F              O     clra
8065 C06D E3 02           ..    addd 02,x
8066 C06F A3 00           ..    subd 00,x
8067 C071 24 05           $.    bcc 05
8068 C073 30              0     tsx
8069 C074 EC 02           ..    ldd 02,x
8070 C076 ED 00           ..    stad 00,x
8071 C078 30              0     tsx
8072 C079 EE 00           ..    ldx 00,x
8073 C07B E6 00           ..    ldab 00,x
8074 C07D C1 40           .@    cmpb #40
8075 C07F 24 13           $.    bcc 13
8076 C081 30              0     tsx
8077 C082 EE 00           ..    ldx 00,x
8078 C084 E6 00           ..    ldab 00,x
8079 C086 37              7     pshb
8080 C087 F6 00 18        ...   ldab 0018
8081 C08A 4F              O     clra
8082 C08B C3 0B 90        ...   addd #0b90
8083 C08E 8F              .     xgdx
8084 C08F 33              3     pulb
8085 C090 E7 00           ..    stb 00,x
8086 C092 20 13            .    bra 13
8087 C094 30              0     tsx
8088 C095 EE 00           ..    ldx 00,x
8089 C097 E6 00           ..    ldab 00,x
8090 C099 CB C0           ..    addb #c0
8091 C09B 37              7     pshb
8092 C09C F6 00 18        ...   ldab 0018
8093 C09F 4F              O     clra
8094 C0A0 C3 0B 90        ...   addd #0b90
8095 C0A3 8F              .     xgdx
8096 C0A4 33              3     pulb
8097 C0A5 E7 00           ..    stb 00,x
8098 C0A7 38              8     pulx
8099 C0A8 08              .     inx
8100 C0A9 3C              <     pshx
8101 C0AA 7A 00 18        z..   dec 0018
8102 C0AD 20 B3            .    bra b3
8103 C0AF BD BE 01        ...   jsr be01
8104 C0B2 C6 03           ..    ldab #03
8105 C0B4 F7 00 2C        ..,   stb 002c
8106 C0B7 38              8     pulx
8107 C0B8 38              8     pulx
8108 C0B9 39              9     rts
8109
8110 ;Display a string.  D points to the string, which is NULL-terminated
8111
8112 display:
8113 C0BA 37              7     pshb
8114 C0BB 36              6     psha
8115 C0BC F6 00 1F        ...   ldab 001f
8116 C0BF C4 04           ..    andb #04
8117 C0C1 26 03           &.    bne 03
8118 C0C3 7F 00 2C        ..,   clr 002c
8119 C0C6 F6 00 2C        ..,   ldab 002c
8120 C0C9 26 13           &.    bne 13
8121 C0CB 5F              _     clrb
8122 C0CC 4F              O     clra
8123 C0CD FD 00 03        ...   stad 0003
8124 C0D0 7F 00 2C        ..,   clr 002c
8125 C0D3 CE 00 09        ...   ldx #0009
8126 C0D6 3C              <     pshx
8127 C0D7 30              0     tsx
8128 C0D8 EC 02           ..    ldd 02,x
8129 C0DA BD C0 2E        ...   jsr c02e
8130 C0DD 38              8     pulx
8131 C0DE 38              8     pulx
8132 C0DF 39              9     rts
8133 C0E0 F6 00 15        ...   ldab 0015
8134 C0E3 2C 02           ,.    bge 02
8135 C0E5 20 F9            .    bra f9
8136 C0E7 CE 00 1D        ...   ldx #001d
8137 C0EA 1C 00           ..    bset add,x 00,x
8138 C0EC 20 BD            .    bra bd
8139 C0EE D7 30 83        .0.   stab 30
8140 C0F1 00              .     test
8141 C0F2 00              .     test
8142 C0F3 27 09           '.    beq 09
8143 C0F5 CE 00 1D        ...   ldx #001d
8144 C0F8 1D 00           ..    bclr add,x 00,x
8145 C0FA 20 5F            _    bra 5f
8146 C0FC 4F              O     clra
8147 C0FD 39              9     rts
8148 C0FE CE 00 14        ...   ldx #0014
8149 C101 1C 00           ..    bset add,x 00,x
8150 C103 01              .     nop
8151 C104 F6 00 14        ...   ldab 0014
8152 C107 F7 38 00        .8.   stb 3800
8153 C10A F6 00 15        ...   ldab 0015
8154 C10D C4 1F           ..    andb #1f
8155 C10F 26 03           &.    bne 03
8156 C111 7E C3 1B        ~..   jmp c31b
8157 C114 C6 14           ..    ldab #14
8158 C116 F7 00 31        ..1   stb 0031
8159 C119 F6 00 15        ...   ldab 0015
8160 C11C 2D 15           -.    blt 15
8161 C11E F6 00 31        ..1   ldab 0031
8162 C121 C1 0A           ..    cmpb #0a
8163 C123 22 0C           ".    bhi 0c
8164 C125 BD C5 D3        ...   jsr c5d3
8165 C128 CE 00 1D        ...   ldx #001d
8166 C12B 1D 00           ..    bclr add,x 00,x
8167 C12D 20 5F            _    bra 5f
8168 C12F 4F              O     clra
8169 C130 39              9     rts
8170 C131 20 E6            .    bra e6
8171 C133 FC 00 3E        ..>   ldd 003e
8172 C136 F3 00 40        ..@   addd 0040
8173 C139 FD 00 40        ..@   stad 0040
8174 C13C 5F              _     clrb
8175 C13D 4F              O     clra
8176 C13E FD 00 3E        ..>   stad 003e
8177 C141 F6 00 15        ...   ldab 0015
8178 C144 C4 1F           ..    andb #1f
8179 C146 4F              O     clra
8180 C147 BD FE 32        ..2   jsr fe32
8181 C14A C1 64           .d    cmpb #64
8182 C14C 00              .     test
8183 C14D 01              .     nop
8184 C14E C1 BA           ..    cmpb #ba
8185 C150 00              .     test
8186 C151 01              .     nop
8187 C152 C2 10           ..    sbcb #10
8188 C154 00              .     test
8189 C155 02              .     idiv
8190 C156 C2 66           .f    sbcb #66
8191 C158 00              .     test
8192 C159 04              .     lsrd
8193 C15A C2 BB           ..    sbcb #bb
8194 C15C 00              .     test
8195 C15D 08              .     inx
8196 C15E C3 0E FF        ...   addd #0eff
8197 C161 F0 00 00        ...   subb 0000
8198 C164 FC 0C DD        ...   ldd 0cdd
8199 C167 83 FF FF        ...   subd #ffff
8200 C16A 26 05           &.    bne 05
8201 C16C 5F              _     clrb
8202 C16D 4F              O     clra
8203 C16E FD 0C DD        ...   stad 0cdd
8204 C171 FE 0C DD        ...   ldx 0cdd
8205 C174 08              .     inx
8206 C175 FF 0C DD        ...   stx 0cdd
8207 C178 CE 00 64        ..d   ldx #0064
8208 C17B 3C              <     pshx
8209 C17C CC 00 00        ...   ldd #0000
8210 C17F 37              7     pshb
8211 C180 36              6     psha
8212 C181 CC 0C F3        ...   ldd #0cf3
8213 C184 BD FB DF        ...   jsr fbdf
8214 C187 31              1     ins
8215 C188 31              1     ins
8216 C189 FE 0C F5        ...   ldx 0cf5
8217 C18C 3C              <     pshx
8218 C18D FC 0C F3        ...   ldd 0cf3
8219 C190 37              7     pshb
8220 C191 36              6     psha
8221 C192 CE FF 9C        ...   ldx #ff9c
8222 C195 3C              <     pshx
8223 C196 CC 00 63        ..c   ldd #0063
8224 C199 30              0     tsx
8225 C19A A3 02           ..    subd 02,x
8226 C19C 32              2     pula
8227 C19D 33              3     pulb
8228 C19E 26 02           &.    bne 02
8229 C1A0 A3 04           ..    subd 04,x
8230 C1A2 38              8     pulx
8231 C1A3 38              8     pulx
8232 C1A4 24 11           $.    bcc 11
8233 C1A6 CE 00 64        ..d   ldx #0064
8234 C1A9 3C              <     pshx
8235 C1AA CC FF 9C        ...   ldd #ff9c
8236 C1AD 37              7     pshb
8237 C1AE 36              6     psha
8238 C1AF CC 0C F3        ...   ldd #0cf3
8239 C1B2 BD FB DF        ...   jsr fbdf
8240 C1B5 31              1     ins
8241 C1B6 31              1     ins
8242 C1B7 7E C3 0E        ~..   jmp c30e
8243 C1BA FC 0C DF        ...   ldd 0cdf
8244 C1BD 83 FF FF        ...   subd #ffff
8245 C1C0 26 05           &.    bne 05
8246 C1C2 5F              _     clrb
8247 C1C3 4F              O     clra
8248 C1C4 FD 0C DF        ...   stad 0cdf
8249 C1C7 FE 0C DF        ...   ldx 0cdf
8250 C1CA 08              .     inx
8251 C1CB FF 0C DF        ...   stx 0cdf
8252 C1CE CE 00 C8        ...   ldx #00c8
8253 C1D1 3C              <     pshx
8254 C1D2 CC 00 00        ...   ldd #0000
8255 C1D5 37              7     pshb
8256 C1D6 36              6     psha
8257 C1D7 CC 0C F7        ...   ldd #0cf7
8258 C1DA BD FB DF        ...   jsr fbdf
8259 C1DD 31              1     ins
8260 C1DE 31              1     ins
8261 C1DF FE 0C F9        ...   ldx 0cf9
8262 C1E2 3C              <     pshx
8263 C1E3 FC 0C F7        ...   ldd 0cf7
8264 C1E6 37              7     pshb
8265 C1E7 36              6     psha
8266 C1E8 CE FF 38        ..8   ldx #ff38
8267 C1EB 3C              <     pshx
8268 C1EC CC 00 C7        ...   ldd #00c7
8269 C1EF 30              0     tsx
8270 C1F0 A3 02           ..    subd 02,x
8271 C1F2 32              2     pula
8272 C1F3 33              3     pulb
8273 C1F4 26 02           &.    bne 02
8274 C1F6 A3 04           ..    subd 04,x
8275 C1F8 38              8     pulx
8276 C1F9 38              8     pulx
8277 C1FA 24 11           $.    bcc 11
8278 C1FC CE 00 C8        ...   ldx #00c8
8279 C1FF 3C              <     pshx
8280 C200 CC FF 38        ..8   ldd #ff38
8281 C203 37              7     pshb
8282 C204 36              6     psha
8283 C205 CC 0C F7        ...   ldd #0cf7
8284 C208 BD FB DF        ...   jsr fbdf
8285 C20B 31              1     ins
8286 C20C 31              1     ins
8287 C20D 7E C3 0E        ~..   jmp c30e
8288 C210 FC 0C E1        ...   ldd 0ce1
8289 C213 83 FF FF        ...   subd #ffff
8290 C216 26 05           &.    bne 05
8291 C218 5F              _     clrb
8292 C219 4F              O     clra
8293 C21A FD 0C E1        ...   stad 0ce1
8294 C21D FE 0C E1        ...   ldx 0ce1
8295 C220 08              .     inx
8296 C221 FF 0C E1        ...   stx 0ce1
8297 C224 CE 01 F4        ...   ldx #01f4
8298 C227 3C              <     pshx
8299 C228 CC 00 00        ...   ldd #0000
8300 C22B 37              7     pshb
8301 C22C 36              6     psha
8302 C22D CC 0C FB        ...   ldd #0cfb
8303 C230 BD FB DF        ...   jsr fbdf
8304 C233 31              1     ins
8305 C234 31              1     ins
8306 C235 FE 0C FD        ...   ldx 0cfd
8307 C238 3C              <     pshx
8308 C239 FC 0C FB        ...   ldd 0cfb
8309 C23C 37              7     pshb
8310 C23D 36              6     psha
8311 C23E CE FE 0C        ...   ldx #fe0c
8312 C241 3C              <     pshx
8313 C242 CC 01 F3        ...   ldd #01f3
8314 C245 30              0     tsx
8315 C246 A3 02           ..    subd 02,x
8316 C248 32              2     pula
8317 C249 33              3     pulb
8318 C24A 26 02           &.    bne 02
8319 C24C A3 04           ..    subd 04,x
8320 C24E 38              8     pulx
8321 C24F 38              8     pulx
8322 C250 24 11           $.    bcc 11
8323 C252 CE 01 F4        ...   ldx #01f4
8324 C255 3C              <     pshx
8325 C256 CC FE 0C        ...   ldd #fe0c
8326 C259 37              7     pshb
8327 C25A 36              6     psha
8328 C25B CC 0C FB        ...   ldd #0cfb
8329 C25E BD FB DF        ...   jsr fbdf
8330 C261 31              1     ins
8331 C262 31              1     ins
8332 C263 7E C3 0E        ~..   jmp c30e
8333 C266 FC 0C E3        ...   ldd 0ce3
8334 C269 83 FF FF        ...   subd #ffff
8335 C26C 26 05           &.    bne 05
8336 C26E 5F              _     clrb
8337 C26F 4F              O     clra
8338 C270 FD 0C E3        ...   stad 0ce3
8339 C273 FE 0C E3        ...   ldx 0ce3
8340 C276 08              .     inx
8341 C277 FF 0C E3        ...   stx 0ce3
8342 C27A CE 03 E8        ...   ldx #03e8
8343 C27D 3C              <     pshx
8344 C27E CC 00 00        ...   ldd #0000
8345 C281 37              7     pshb
8346 C282 36              6     psha
8347 C283 CC 0C FF        ...   ldd #0cff
8348 C286 BD FB DF        ...   jsr fbdf
8349 C289 31              1     ins
8350 C28A 31              1     ins
8351 C28B FE 0D 01        ...   ldx 0d01
8352 C28E 3C              <     pshx
8353 C28F FC 0C FF        ...   ldd 0cff
8354 C292 37              7     pshb
8355 C293 36              6     psha
8356 C294 CE FC 18        ...   ldx #fc18
8357 C297 3C              <     pshx
8358 C298 CC 03 E7        ...   ldd #03e7
8359 C29B 30              0     tsx
8360 C29C A3 02           ..    subd 02,x
8361 C29E 32              2     pula
8362 C29F 33              3     pulb
8363 C2A0 26 02           &.    bne 02
8364 C2A2 A3 04           ..    subd 04,x
8365 C2A4 38              8     pulx
8366 C2A5 38              8     pulx
8367 C2A6 24 11           $.    bcc 11
8368 C2A8 CE 03 E8        ...   ldx #03e8
8369 C2AB 3C              <     pshx
8370 C2AC CC FC 18        ...   ldd #fc18
8371 C2AF 37              7     pshb
8372 C2B0 36              6     psha
8373 C2B1 CC 0C FF        ...   ldd #0cff
8374 C2B4 BD FB DF        ...   jsr fbdf
8375 C2B7 31              1     ins
8376 C2B8 31              1     ins
8377 C2B9 20 53            S    bra 53
8378 C2BB FC 0C E5        ...   ldd 0ce5
8379 C2BE 83 C3 4F        ..O   subd #c34f
8380 C2C1 26 05           &.    bne 05
8381 C2C3 5F              _     clrb
8382 C2C4 4F              O     clra
8383 C2C5 FD 0C E5        ...   stad 0ce5
8384 C2C8 FE 0C E5        ...   ldx 0ce5
8385 C2CB 08              .     inx
8386 C2CC FF 0C E5        ...   stx 0ce5
8387 C2CF CE 07 D0        ...   ldx #07d0
8388 C2D2 3C              <     pshx
8389 C2D3 CC 00 00        ...   ldd #0000
8390 C2D6 37              7     pshb
8391 C2D7 36              6     psha
8392 C2D8 CC 0D 03        ...   ldd #0d03
8393 C2DB BD FB DF        ...   jsr fbdf
8394 C2DE 31              1     ins
8395 C2DF 31              1     ins
8396 C2E0 FE 0D 05        ...   ldx 0d05
8397 C2E3 3C              <     pshx
8398 C2E4 FC 0D 03        ...   ldd 0d03
8399 C2E7 37              7     pshb
8400 C2E8 36              6     psha
8401 C2E9 CE D9 30        ..0   ldx #d930
8402 C2EC 3C              <     pshx
8403 C2ED CC 05 F5        ...   ldd #05f5
8404 C2F0 30              0     tsx
8405 C2F1 A3 02           ..    subd 02,x
8406 C2F3 32              2     pula
8407 C2F4 33              3     pulb
8408 C2F5 26 02           &.    bne 02
8409 C2F7 A3 04           ..    subd 04,x
8410 C2F9 38              8     pulx
8411 C2FA 38              8     pulx
8412 C2FB 24 11           $.    bcc 11
8413 C2FD CE 26 D0        .&.   ldx #26d0
8414 C300 3C              <     pshx
8415 C301 CC FA 0A        ...   ldd #fa0a
8416 C304 37              7     pshb
8417 C305 36              6     psha
8418 C306 CC 0D 03        ...   ldd #0d03
8419 C309 BD FB DF        ...   jsr fbdf
8420 C30C 31              1     ins
8421 C30D 31              1     ins
8422 C30E F6 00 15        ...   ldab 0015
8423 C311 2C 02           ,.    bge 02
8424 C313 20 F9            .    bra f9
8425 C315 CE 00 15        ...   ldx #0015
8426 C318 1D 00           ..    bclr add,x 00,x
8427 C31A 1F CE 00 1D     ....  brclr ce,x 00 1d
8428 C31E 1D 00           ..    bclr add,x 00,x
8429 C320 20 CC            .    bra cc
8430 C322 00              .     test
8431 C323 01              .     nop
8432 C324 39              9     rts
8433 C325 F6 10 00        ...   ldab 1000
8434 C328 C4 01           ..    andb #01
8435 C32A 26 13           &.    bne 13
8436 C32C 7C 00 7D        |.}   inc 007d
8437 C32F F6 00 7D        ..}   ldab 007d
8438 C332 C1 05           ..    cmpb #05
8439 C334 23 03           #.    bls 03
8440 C336 7F 00 7D        ..}   clr 007d
8441 C339 7F 00 7E        ..~   clr 007e
8442 C33C 7E C4 2F        ~./   jmp c42f
8443 C33F 7C 00 7E        |.~   inc 007e
8444 C342 F6 00 7E        ..~   ldab 007e
8445 C345 C1 07           ..    cmpb #07
8446 C347 23 17           #.    bls 17
8447 C349 7F 00 7D        ..}   clr 007d
8448 C34C 7F 00 7E        ..~   clr 007e
8449 C34F 7F 00 7C        ..|   clr 007c
8450 C352 F6 00 15        ...   ldab 0015
8451 C355 2C 03           ,.    bge 03
8452 C357 7F 00 2C        ..,   clr 002c
8453 C35A CE 00 15        ...   ldx #0015
8454 C35D 1D 00           ..    bclr add,x 00,x
8455 C35F 80 F6           ..    suba #f6
8456 C361 00              .     test
8457 C362 7E 26 03        ~&.   jmp 2603
8458 C365 7E C4 2F        ~./   jmp c42f
8459 C368 F6 00 7D        ..}   ldab 007d
8460 C36B C1 01           ..    cmpb #01
8461 C36D 22 03           ".    bhi 03
8462 C36F 7E C4 2F        ~./   jmp c42f
8463 C372 CE 00 15        ...   ldx #0015
8464 C375 1C 00           ..    bset add,x 00,x
8465 C377 80 CE           ..    suba #ce
8466 C379 0B              .     sev
8467 C37A C1 1D           ..    cmpb #1d
8468 C37C 00              .     test
8469 C37D 08              .     inx
8470 C37E F6 00 1D        ...   ldab 001d
8471 C381 C4 20           .     andb #20
8472 C383 27 03           '.    beq 03
8473 C385 7E C4 29        ~.)   jmp c429
8474 C388 C6 02           ..    ldab #02
8475 C38A F7 00 2C        ..,   stb 002c
8476 C38D 7F 00 3A        ..:   clr 003a
8477 C390 CE 00 1B        ...   ldx #001b
8478 C393 1D 00           ..    bclr add,x 00,x
8479 C395 40              @     nega
8480 C396 7F 00 25        ..%   clr 0025
8481 C399 CE 00 21        ..!   ldx #0021
8482 C39C 1D 00           ..    bclr add,x 00,x
8483 C39E 08              .     inx
8484 C39F CE 00 14        ...   ldx #0014
8485 C3A2 1D 00           ..    bclr add,x 00,x
8486 C3A4 01              .     nop
8487 C3A5 F6 00 14        ...   ldab 0014
8488 C3A8 F7 38 00        .8.   stb 3800
8489 C3AB 7C 00 7C        |.|   inc 007c
8490 C3AE CE 00 15        ...   ldx #0015
8491 C3B1 1D 00           ..    bclr add,x 00,x
8492 C3B3 1F F6 00 7C     ...|  brclr f6,x 00 7c
8493 C3B7 C1 01           ..    cmpb #01
8494 C3B9 26 0E           &.    bne 0e
8495 C3BB CE 00 15        ...   ldx #0015
8496 C3BE 1C 00           ..    bset add,x 00,x
8497 C3C0 01              .     nop
8498 C3C1 CC 00 64        ..d   ldd #0064
8499 C3C4 FD 00 3E        ..>   stad 003e
8500 C3C7 20 60            `    bra 60
8501 C3C9 F6 00 7C        ..|   ldab 007c
8502 C3CC C1 02           ..    cmpb #02
8503 C3CE 26 0E           &.    bne 0e
8504 C3D0 CE 00 15        ...   ldx #0015
8505 C3D3 1C 00           ..    bset add,x 00,x
8506 C3D5 02              .     idiv
8507 C3D6 CC 00 C8        ...   ldd #00c8
8508 C3D9 FD 00 3E        ..>   stad 003e
8509 C3DC 20 4B            K    bra 4b
8510 C3DE F6 00 7C        ..|   ldab 007c
8511 C3E1 C1 02           ..    cmpb #02
8512 C3E3 23 15           #.    bls 15
8513 C3E5 F6 00 7C        ..|   ldab 007c
8514 C3E8 C1 06           ..    cmpb #06
8515 C3EA 24 0E           $.    bcc 0e
8516 C3EC CE 00 15        ...   ldx #0015
8517 C3EF 1C 00           ..    bset add,x 00,x
8518 C3F1 04              .     lsrd
8519 C3F2 CC 01 F4        ...   ldd #01f4
8520 C3F5 FD 00 3E        ..>   stad 003e
8521 C3F8 20 2F            /    bra 2f
8522 C3FA F6 00 7C        ..|   ldab 007c
8523 C3FD C1 05           ..    cmpb #05
8524 C3FF 23 15           #.    bls 15
8525 C401 F6 00 7C        ..|   ldab 007c
8526 C404 C1 0B           ..    cmpb #0b
8527 C406 24 0E           $.    bcc 0e
8528 C408 CE 00 15        ...   ldx #0015
8529 C40B 1C 00           ..    bset add,x 00,x
8530 C40D 08              .     inx
8531 C40E CC 03 E8        ...   ldd #03e8
8532 C411 FD 00 3E        ..>   stad 003e
8533 C414 20 13            .    bra 13
8534 C416 F6 00 7C        ..|   ldab 007c
8535 C419 C1 0B           ..    cmpb #0b
8536 C41B 23 0C           #.    bls 0c
8537 C41D CE 00 15        ...   ldx #0015
8538 C420 1C 00           ..    bset add,x 00,x
8539 C422 10              .     sba
8540 C423 CC 07 D0        ...   ldd #07d0
8541 C426 FD 00 3E        ..>   stad 003e
8542 C429 7F 00 7D        ..}   clr 007d
8543 C42C 7F 00 7E        ..~   clr 007e
8544 C42F 39              9     rts
8545 C430 F6 00 01        ...   ldab 0001
8546 C433 53              S     comb
8547 C434 F4 00 1A        ...   andb 001a
8548 C437 F7 00 1A        ...   stb 001a
8549 C43A F6 00 1A        ...   ldab 001a
8550 C43D F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8551 C440 CC 00 64        ..d   ldd #0064
8552 C443 BD E5 71        ..q   jsr e571
8553 C446 F6 00 01        ...   ldab 0001
8554 C449 FA 00 1A        ...   orb 001a
8555 C44C F7 00 1A        ...   stb 001a
8556 C44F F6 00 1A        ...   ldab 001a
8557 C452 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8558 C455 39              9     rts
8559 C456 FC 00 40        ..@   ldd 0040
8560 C459 26 03           &.    bne 03
8561 C45B 7E C5 C6        ~..   jmp c5c6
8562 C45E CE 00 1A        ...   ldx #001a
8563 C461 1C 00           ..    bset add,x 00,x
8564 C463 01              .     nop
8565 C464 F6 00 1A        ...   ldab 001a
8566 C467 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8567 C46A CC 03 E8        ...   ldd #03e8
8568 C46D BD E5 71        ..q   jsr e571
8569 C470 FC 00 40        ..@   ldd 0040
8570 C473 83 00 00        ...   subd #0000
8571 C476 22 03           ".    bhi 03
8572 C478 7E C5 B0        ~..   jmp c5b0
8573 C47B F6 00 1B        ...   ldab 001b
8574 C47E C4 20           .     andb #20
8575 C480 27 1B           '.    beq 1b
8576 C482 FC 00 40        ..@   ldd 0040
8577 C485 83 03 E8        ...   subd #03e8
8578 C488 25 13           %.    bcs 13
8579 C48A C6 28           .(    ldab #28
8580 C48C F7 00 01        ...   stb 0001
8581 C48F CC FC 18        ...   ldd #fc18
8582 C492 F3 00 40        ..@   addd 0040
8583 C495 FD 00 40        ..@   stad 0040
8584 C498 8D 96           ..    bsr dest 96
8585 C49A 7E C5 7C        ~.|   jmp c57c
8586 C49D F6 00 1B        ...   ldab 001b
8587 C4A0 C4 20           .     andb #20
8588 C4A2 27 1C           '.    beq 1c
8589 C4A4 FC 00 40        ..@   ldd 0040
8590 C4A7 83 00 64        ..d   subd #0064
8591 C4AA 25 14           %.    bcs 14
8592 C4AC C6 30           .0    ldab #30
8593 C4AE F7 00 01        ...   stb 0001
8594 C4B1 CC FF 9C        ...   ldd #ff9c
8595 C4B4 F3 00 40        ..@   addd 0040
8596 C4B7 FD 00 40        ..@   stad 0040
8597 C4BA BD C4 30        ..0   jsr c430
8598 C4BD 7E C5 7C        ~.|   jmp c57c
8599 C4C0 FC 0B DD        ...   ldd 0bdd
8600 C4C3 27 3C           '<    beq 3c
8601 C4C5 FC 00 40        ..@   ldd 0040
8602 C4C8 B3 0B DD        ...   subd 0bdd
8603 C4CB 25 34           %4    bcs 34
8604 C4CD F6 0C DB        ...   ldab 0cdb
8605 C4D0 26 07           &.    bne 07
8606 C4D2 F6 00 1B        ...   ldab 001b
8607 C4D5 C4 20           .     andb #20
8608 C4D7 27 28           '(    beq 28
8609 C4D9 FC 0B DD        ...   ldd 0bdd
8610 C4DC 53              S     comb
8611 C4DD 43              C     coma
8612 C4DE F9 00 41        ..A   adcb 0041
8613 C4E1 B9 00 40        ..@   adca 0040
8614 C4E4 FD 00 40        ..@   stad 0040
8615 C4E7 F6 0B DA        ...   ldab 0bda
8616 C4EA F7 00 01        ...   stb 0001
8617 C4ED BD C4 30        ..0   jsr c430
8618 C4F0 F6 00 1B        ...   ldab 001b
8619 C4F3 C4 20           .     andb #20
8620 C4F5 26 08           &.    bne 08
8621 C4F7 F6 0C DB        ...   ldab 0cdb
8622 C4FA 27 03           '.    beq 03
8623 C4FC 7A 0C DB        z..   dec 0cdb
8624 C4FF 20 7B            {    bra 7b
8625 C501 FC 0B DF        ...   ldd 0bdf
8626 C504 27 3C           '<    beq 3c
8627 C506 FC 00 40        ..@   ldd 0040
8628 C509 B3 0B DF        ...   subd 0bdf
8629 C50C 25 34           %4    bcs 34
8630 C50E F6 0C DA        ...   ldab 0cda
8631 C511 26 07           &.    bne 07
8632 C513 F6 00 1B        ...   ldab 001b
8633 C516 C4 20           .     andb #20
8634 C518 27 28           '(    beq 28
8635 C51A FC 0B DF        ...   ldd 0bdf
8636 C51D 53              S     comb
8637 C51E 43              C     coma
8638 C51F F9 00 41        ..A   adcb 0041
8639 C522 B9 00 40        ..@   adca 0040
8640 C525 FD 00 40        ..@   stad 0040
8641 C528 F6 0B DB        ...   ldab 0bdb
8642 C52B F7 00 01        ...   stb 0001
8643 C52E BD C4 30        ..0   jsr c430
8644 C531 F6 00 1B        ...   ldab 001b
8645 C534 C4 20           .     andb #20
8646 C536 26 08           &.    bne 08
8647 C538 F6 0C DA        ...   ldab 0cda
8648 C53B 27 03           '.    beq 03
8649 C53D 7A 0C DA        z..   dec 0cda
8650 C540 20 3A            :    bra 3a
8651 C542 FC 0B E1        ...   ldd 0be1
8652 C545 27 30           '0    beq 30
8653 C547 FC 00 40        ..@   ldd 0040
8654 C54A B3 0B E1        ...   subd 0be1
8655 C54D 25 28           %(    bcs 28
8656 C54F FC 0B E1        ...   ldd 0be1
8657 C552 53              S     comb
8658 C553 43              C     coma
8659 C554 F9 00 41        ..A   adcb 0041
8660 C557 B9 00 40        ..@   adca 0040
8661 C55A FD 00 40        ..@   stad 0040
8662 C55D F6 0B DC        ...   ldab 0bdc
8663 C560 F7 00 01        ...   stb 0001
8664 C563 BD C4 30        ..0   jsr c430
8665 C566 F6 00 1B        ...   ldab 001b
8666 C569 C4 20           .     andb #20
8667 C56B 26 08           &.    bne 08
8668 C56D F6 0C D9        ...   ldab 0cd9
8669 C570 27 03           '.    beq 03
8670 C572 7A 0C D9        z..   dec 0cd9
8671 C575 20 05            .    bra 05
8672 C577 5F              _     clrb
8673 C578 4F              O     clra
8674 C579 FD 00 40        ..@   stad 0040
8675 C57C CC 01 2C        ..,   ldd #012c
8676 C57F BD E5 71        ..q   jsr e571
8677 C582 F6 00 1B        ...   ldab 001b
8678 C585 C4 20           .     andb #20
8679 C587 26 24           &$    bne 24
8680 C589 CE 00 1A        ...   ldx #001a
8681 C58C 1D 00           ..    bclr add,x 00,x
8682 C58E 01              .     nop
8683 C58F F6 00 1A        ...   ldab 001a
8684 C592 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8685 C595 CC 00 0C        ...   ldd #000c
8686 C598 BD E5 71        ..q   jsr e571
8687 C59B CE 00 1A        ...   ldx #001a
8688 C59E 1C 00           ..    bset add,x 00,x
8689 C5A0 01              .     nop
8690 C5A1 F6 00 1A        ...   ldab 001a
8691 C5A4 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8692 C5A7 CC 00 23        ..#   ldd #0023
8693 C5AA BD E5 71        ..q   jsr e571
8694 C5AD 7E C4 70        ~.p   jmp c470
8695 C5B0 F6 0B C0        ...   ldab 0bc0
8696 C5B3 C4 04           ..    andb #04
8697 C5B5 27 0F           '.    beq 0f
8698 C5B7 F6 00 1B        ...   ldab 001b
8699 C5BA C4 20           .     andb #20
8700 C5BC 27 08           '.    beq 08
8701 C5BE C6 38           .8    ldab #38
8702 C5C0 F7 00 01        ...   stb 0001
8703 C5C3 BD C4 30        ..0   jsr c430
8704 C5C6 CE 00 21        ..!   ldx #0021
8705 C5C9 1D 00           ..    bclr add,x 00,x
8706 C5CB 10              .     sba
8707 C5CC CE 00 1B        ...   ldx #001b
8708 C5CF 1D 00           ..    bclr add,x 00,x
8709 C5D1 20 39            9    bra 39
8710 C5D3 F6 00 15        ...   ldab 0015
8711 C5D6 C4 1F           ..    andb #1f
8712 C5D8 26 03           &.    bne 03
8713 C5DA 7E C6 7C        ~.|   jmp c67c
8714 C5DD CC 00 C8        ...   ldd #00c8
8715 C5E0 BD E5 71        ..q   jsr e571
8716 C5E3 FC 00 3E        ..>   ldd 003e
8717 C5E6 27 58           'X    beq 58
8718 C5E8 F6 00 15        ...   ldab 0015
8719 C5EB C4 1F           ..    andb #1f
8720 C5ED 4F              O     clra
8721 C5EE BD FE 32        ..2   jsr fe32
8722 C5F1 C6 0B           ..    ldab #0b
8723 C5F3 00              .     test
8724 C5F4 01              .     nop
8725 C5F5 C6 16           ..    ldab #16
8726 C5F7 00              .     test
8727 C5F8 01              .     nop
8728 C5F9 C6 21           .!    ldab #21
8729 C5FB 00              .     test
8730 C5FC 02              .     idiv
8731 C5FD C6 2C           .,    ldab #2c
8732 C5FF 00              .     test
8733 C600 04              .     lsrd
8734 C601 C6 37           .7    ldab #37
8735 C603 00              .     test
8736 C604 08              .     inx
8737 C605 C6 40           .@    ldab #40
8738 C607 FF F0 00        ...   stx f000
8739 C60A 00              .     test
8740 C60B CC FF 9C        ...   ldd #ff9c
8741 C60E F3 00 3E        ..>   addd 003e
8742 C611 FD 00 3E        ..>   stad 003e
8743 C614 20 2A            *    bra 2a
8744 C616 CC FF 38        ..8   ldd #ff38
8745 C619 F3 00 3E        ..>   addd 003e
8746 C61C FD 00 3E        ..>   stad 003e
8747 C61F 20 1F            .    bra 1f
8748 C621 CC FE 0C        ...   ldd #fe0c
8749 C624 F3 00 3E        ..>   addd 003e
8750 C627 FD 00 3E        ..>   stad 003e
8751 C62A 20 14            .    bra 14
8752 C62C CC FC 18        ...   ldd #fc18
8753 C62F F3 00 3E        ..>   addd 003e
8754 C632 FD 00 3E        ..>   stad 003e
8755 C635 20 09            .    bra 09
8756 C637 CC F8 30        ..0   ldd #f830
8757 C63A F3 00 3E        ..>   addd 003e
8758 C63D FD 00 3E        ..>   stad 003e
8759 C640 CE 00 14        ...   ldx #0014
8760 C643 1D 00           ..    bclr add,x 00,x
8761 C645 02              .     idiv
8762 C646 F6 00 14        ...   ldab 0014
8763 C649 F7 38 00        .8.   stb 3800
8764 C64C CC 00 1E        ...   ldd #001e
8765 C64F BD E5 71        ..q   jsr e571
8766 C652 CE 00 15        ...   ldx #0015
8767 C655 1D 00           ..    bclr add,x 00,x
8768 C657 1F CE 00 14     ....  brclr ce,x 00 14
8769 C65B 1C 00           ..    bset add,x 00,x
8770 C65D 02              .     idiv
8771 C65E F6 00 14        ...   ldab 0014
8772 C661 F7 38 00        .8.   stb 3800
8773 C664 CC 00 19        ...   ldd #0019
8774 C667 BD E5 71        ..q   jsr e571
8775 C66A CE 00 14        ...   ldx #0014
8776 C66D 1C 00           ..    bset add,x 00,x
8777 C66F 01              .     nop
8778 C670 F6 00 14        ...   ldab 0014
8779 C673 F7 38 00        .8.   stb 3800
8780 C676 CC 00 19        ...   ldd #0019
8781 C679 BD E5 71        ..q   jsr e571
8782 C67C 39              9     rts
8783 C67D F6 00 30        ..0   ldab 0030
8784 C680 26 55           &U    bne 55
8785 C682 F6 0B C0        ...   ldab 0bc0
8786 C685 C4 04           ..    andb #04
8787 C687 26 4E           &N    bne 4e
8788 C689 C6 27           .'    ldab #27
8789 C68B F7 10 2D        ..-   stb 102d
8790 C68E C6 07           ..    ldab #07
8791 C690 F7 10 2B        ..+   stb 102b
8792 C693 CE 00 1A        ...   ldx #001a
8793 C696 1C 00           ..    bset add,x 00,x
8794 C698 04              .     lsrd
8795 C699 F6 00 1A        ...   ldab 001a
8796 C69C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8797 C69F CC 00 14        ...   ldd #0014
8798 C6A2 BD E5 71        ..q   jsr e571
8799 C6A5 F6 0B C0        ...   ldab 0bc0
8800 C6A8 C4 01           ..    andb #01
8801 C6AA 27 06           '.    beq 06
8802 C6AC CE 0B C1        ...   ldx #0bc1
8803 C6AF 1C 00           ..    bset add,x 00,x
8804 C6B1 01              .     nop
8805 C6B2 F6 0B C0        ...   ldab 0bc0
8806 C6B5 C4 04           ..    andb #04
8807 C6B7 27 06           '.    beq 06
8808 C6B9 CE 0B C1        ...   ldx #0bc1
8809 C6BC 1C 00           ..    bset add,x 00,x
8810 C6BE 02              .     idiv
8811 C6BF CE 00 1A        ...   ldx #001a
8812 C6C2 1D 00           ..    bclr add,x 00,x
8813 C6C4 04              .     lsrd
8814 C6C5 F6 00 1A        ...   ldab 001a
8815 C6C8 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8816 C6CB C6 96           ..    ldab #96
8817 C6CD F7 00 30        ..0   stb 0030
8818 C6D0 C6 1E           ..    ldab #1e
8819 C6D2 F7 00 35        ..5   stb 0035
8820 C6D5 20 5D            ]    bra 5d
8821 C6D7 F6 18 00        ...   ldab 1800
8822 C6DA 2D 2A           -*    blt 2a
8823 C6DC F6 00 07        ...   ldab 0007
8824 C6DF 26 25           &%    bne 25
8825 C6E1 CE 00 1A        ...   ldx #001a
8826 C6E4 1D 00           ..    bclr add,x 00,x
8827 C6E6 02              .     idiv
8828 C6E7 F6 00 1A        ...   ldab 001a
8829 C6EA F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8830 C6ED C6 64           .d    ldab #64
8831 C6EF F7 00 2D        ..-   stb 002d
8832 C6F2 CC 00 32        ..2   ldd #0032
8833 C6F5 BD E5 71        ..q   jsr e571
8834 C6F8 CE 00 1A        ...   ldx #001a
8835 C6FB 1C 00           ..    bset add,x 00,x
8836 C6FD 02              .     idiv
8837 C6FE F6 00 1A        ...   ldab 001a
8838 C701 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8839 C704 20 2E            .    bra 2e
8840 C706 F6 00 2D        ..-   ldab 002d
8841 C709 26 29           &)    bne 29
8842 C70B CE 00 1A        ...   ldx #001a
8843 C70E 1D 00           ..    bclr add,x 00,x
8844 C710 01              .     nop
8845 C711 F6 00 1A        ...   ldab 001a
8846 C714 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8847 C717 CC 00 0C        ...   ldd #000c
8848 C71A BD E5 71        ..q   jsr e571
8849 C71D CE 00 1A        ...   ldx #001a
8850 C720 1C 00           ..    bset add,x 00,x
8851 C722 01              .     nop
8852 C723 F6 00 1A        ...   ldab 001a
8853 C726 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8854 C729 CC 00 23        ..#   ldd #0023
8855 C72C BD E5 71        ..q   jsr e571
8856 C72F C6 64           .d    ldab #64
8857 C731 F7 00 2D        ..-   stb 002d
8858 C734 F6 00 21        ..!   ldab 0021
8859 C737 C4 10           ..    andb #10
8860 C739 27 45           'E    beq 45
8861 C73B F6 00 11        ...   ldab 0011
8862 C73E C4 04           ..    andb #04
8863 C740 26 1A           &.    bne 1a
8864 C742 FC 00 40        ..@   ldd 0040
8865 C745 F3 00 3E        ..>   addd 003e
8866 C748 B3 00 50        ..P   subd 0050
8867 C74B 25 0F           %.    bcs 0f
8868 C74D F6 0B C0        ...   ldab 0bc0
8869 C750 C4 04           ..    andb #04
8870 C752 26 08           &.    bne 08
8871 C754 CE 00 21        ..!   ldx #0021
8872 C757 1D 00           ..    bclr add,x 00,x
8873 C759 10              .     sba
8874 C75A 20 24            $    bra 24
8875 C75C F6 0B C0        ...   ldab 0bc0
8876 C75F C4 08           ..    andb #08
8877 C761 27 03           '.    beq 03
8878 C763 BD C5 D3        ...   jsr c5d3
8879 C766 FC 0B DD        ...   ldd 0bdd
8880 C769 26 12           &.    bne 12
8881 C76B FC 0B DF        ...   ldd 0bdf
8882 C76E 26 0D           &.    bne 0d
8883 C770 FC 0B E1        ...   ldd 0be1
8884 C773 26 08           &.    bne 08
8885 C775 CE 00 21        ..!   ldx #0021
8886 C778 1D 00           ..    bclr add,x 00,x
8887 C77A 10              .     sba
8888 C77B 20 03            .    bra 03
8889 C77D BD C4 56        ..V   jsr c456
8890 C780 F6 00 15        ...   ldab 0015
8891 C783 2D 08           -.    blt 08
8892 C785 CE 00 21        ..!   ldx #0021
8893 C788 1C 00           ..    bset add,x 00,x
8894 C78A 08              .     inx
8895 C78B 20 06            .    bra 06
8896 C78D CE 00 21        ..!   ldx #0021
8897 C790 1D 00           ..    bclr add,x 00,x
8898 C792 08              .     inx
8899 C793 39              9     rts
8900
8901 ;proc(a,b) var local
8902 ;local=0
8903 ;while b<>0
8904 ;
8905 ;endwhile
8906 ;return local
8907
8908 C794 37              7     pshb
8909 C795 36              6     psha
8910 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
8911 C797 30              0     tsx
8912 C798 6F 00           o.    clr 00,x
8913 loop:
8914 C79A 30              0     tsx
8915 C79B E6 02           ..    ldab 02,x
8916 C79D 27 1A           '.    beq exit     ;c7b9
8917 C79F 30              0     tsx
8918 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
8919 C7A4 30              0     tsx
8920 C7A5 E6 00           ..    ldab 00,x
8921 C7A7 27 05           '.    beq else     ;c7ae
8922 C7A9 30              0     tsx
8923 C7AA 6A 00           j.    dec 00,x
8924 C7AC 20 03            .    bra skip     ;c7b1
8925 else:
8926 C7AE 30              0     tsx
8927 C7AF 6C 00           l.    inc 00,x
8928 skip:
8929 C7B1 30              0     tsx
8930 C7B2 E6 02           ..    ldab 02,x
8931 C7B4 54              T     lsrb
8932 C7B5 E7 02           ..    stb 02,x
8933 C7B7 20 E1            .    bra loop     ;c79a
8934 exit:
8935 C7B9 30              0     tsx
8936 C7BA E6 00           ..    ldab 00,x
8937 C7BC 4F              O     clra
8938 C7BD 38              8     pulx
8939 C7BE 31              1     ins
8940 C7BF 39              9     rts
8941
8942 C7C0 F6 10 2F        ../   ldab 102f            ;sci data
8943 C7C3 4F              O     clra
8944 C7C4 8D CE           ..    bsr c794
8945 C7C6 83 00 00        ...   subd #0000
8946 C7C9 27 05           '.    beq 05
8947 C7CB F6 10 2C        ..,   ldab 102c
8948 C7CE 2D 10           -.    blt 10
8949 C7D0 F6 10 2F        ../   ldab 102f            ;sci data
8950 C7D3 4F              O     clra
8951 C7D4 8D BE           ..    bsr c794
8952 C7D6 83 00 00        ...   subd #0000
8953 C7D9 26 09           &.    bne 09
8954 C7DB F6 10 2C        ..,   ldab 102c
8955 C7DE 2D 04           -.    blt 04
8956 C7E0 CC 00 01        ...   ldd #0001
8957 C7E3 39              9     rts
8958 C7E4 5F              _     clrb
8959 C7E5 4F              O     clra
8960 C7E6 39              9     rts
8961
8962 ;this might send a byte to the serial port
8963
8964 C7E7 37              7     pshb
8965 C7E8 36              6     psha
8966 C7E9 C6 32           .2    ldab #32
8967 C7EB F7 00 31        ..1   stb 0031
8968 C7EE 30              0     tsx
8969 C7EF E6 01           ..    ldab 01,x
8970 C7F1 F7 00 43        ..C   stb 0043
8971 C7F4 F6 10 2E        ...   ldab 102e    ;SCI status
8972 C7F7 2D 02           -.    blt 02
8973 C7F9 20 F9            .    bra f9
8974 C7FB 30              0     tsx
8975 C7FC E6 01           ..    ldab 01,x
8976 C7FE 4F              O     clra
8977 C7FF 8D 93           ..    bsr dest 93
8978 C801 83 00 00        ...   subd #0000
8979 C804 27 08           '.    beq 08
8980 C806 CE 10 2C        ..,   ldx #102c
8981 C809 1C 00           ..    bset add,x 00,x
8982 C80B 40              @     nega
8983 C80C 20 06            .    bra 06
8984 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
8985 C811 1D 00           ..    bclr add,x 00,x
8986 C813 40              @     nega
8987 C814 30              0     tsx
8988 C815 E6 01           ..    ldab 01,x
8989 C817 F7 10 2F        ../   stb 102f             ;sci data
8990 C81A 38              8     pulx
8991 C81B 39              9     rts
8992
8993 C81C 34              4     des
8994 C81D F6 0B C0        ...   ldab 0bc0
8995 C820 C4 01           ..    andb #01
8996 C822 26 0A           &.    bne 0a
8997 C824 F6 0B C0        ...   ldab 0bc0
8998 C827 C4 04           ..    andb #04
8999 C829 26 03           &.    bne 03
9000 C82B 7E CB FF        ~..   jmp cbff
9001 C82E C6 96           ..    ldab #96
9002 C830 F7 00 30        ..0   stb 0030
9003 C833 F6 10 2E        ...   ldab 102e
9004 C836 C4 02           ..    andb #02
9005 C838 26 0B           &.    bne 0b
9006 C83A F6 10 2F        ../   ldab 102f            ;sci data
9007 C83D F1 00 26        ..&   cmpb 0026
9008 C840 26 03           &.    bne 03
9009 C842 7E C9 1B        ~..   jmp c91b
9010 C845 F6 10 2F        ../   ldab 102f            ;sci data
9011 C848 C4 63           .c    andb #63
9012 C84A C1 23           .#    cmpb #23
9013 C84C 27 03           '.    beq 03
9014 C84E 7E C8 E7        ~..   jmp c8e7
9015 C851 F6 00 1A        ...   ldab 001a
9016 C854 C4 01           ..    andb #01
9017 C856 26 03           &.    bne 03
9018 C858 7E C8 E7        ~..   jmp c8e7
9019 C85B F6 00 21        ..!   ldab 0021
9020 C85E C4 F8           ..    andb #f8
9021 C860 37              7     pshb
9022 C861 F6 10 2F        ../   ldab 102f            ;sci data
9023 C864 C4 1C           ..    andb #1c
9024 C866 54              T     lsrb
9025 C867 54              T     lsrb
9026 C868 30              0     tsx
9027 C869 EA 00           ..    orb 00,x
9028 C86B 31              1     ins
9029 C86C F7 00 21        ..!   stb 0021
9030 C86F F6 00 21        ..!   ldab 0021
9031 C872 F4 0B D7        ...   andb 0bd7
9032 C875 27 08           '.    beq 08
9033 C877 CE 00 17        ...   ldx #0017
9034 C87A 1C 00           ..    bset add,x 00,x
9035 C87C 20 20                 bra 20
9036 C87E 18              .     illegal
9037 C87F F6 00 17        ...   ldab 0017
9038 C882 C4 20           .     andb #20
9039 C884 27 11           '.    beq 11
9040 C886 CE 00 17        ...   ldx #0017
9041 C889 1D 00           ..    bclr add,x 00,x
9042 C88B 20 C6            .    bra c6
9043 C88D 04              .     lsrd
9044 C88E F7 0C DB        ...   stb 0cdb
9045 C891 CE 0B C1        ...   ldx #0bc1
9046 C894 1C 00           ..    bset add,x 00,x
9047 C896 40              @     nega
9048 C897 F6 00 21        ..!   ldab 0021
9049 C89A F4 0B D8        ...   andb 0bd8
9050 C89D 27 08           '.    beq 08
9051 C89F CE 00 17        ...   ldx #0017
9052 C8A2 1C 00           ..    bset add,x 00,x
9053 C8A4 40              @     nega
9054 C8A5 20 18            .    bra 18
9055 C8A7 F6 00 17        ...   ldab 0017
9056 C8AA C4 40           .@    andb #40
9057 C8AC 27 11           '.    beq 11
9058 C8AE CE 00 17        ...   ldx #0017
9059 C8B1 1D 00           ..    bclr add,x 00,x
9060 C8B3 40              @     nega
9061 C8B4 C6 04           ..    ldab #04
9062 C8B6 F7 0C DA        ...   stb 0cda
9063 C8B9 CE 0B C1        ...   ldx #0bc1
9064 C8BC 1C 00           ..    bset add,x 00,x
9065 C8BE 40              @     nega
9066 C8BF F6 00 21        ..!   ldab 0021
9067 C8C2 F4 0B D9        ...   andb 0bd9
9068 C8C5 27 08           '.    beq 08
9069 C8C7 CE 00 17        ...   ldx #0017
9070 C8CA 1C 00           ..    bset add,x 00,x
9071 C8CC 80 20           .     suba #20
9072 C8CE 16              .     tab
9073 C8CF F6 00 17        ...   ldab 0017
9074 C8D2 2C 11           ,.    bge 11
9075 C8D4 CE 00 17        ...   ldx #0017
9076 C8D7 1D 00           ..    bclr add,x 00,x
9077 C8D9 80 C6           ..    suba #c6
9078 C8DB 04              .     lsrd
9079 C8DC F7 0C D9        ...   stb 0cd9
9080 C8DF CE 0B C1        ...   ldx #0bc1
9081 C8E2 1C 00           ..    bset add,x 00,x
9082 C8E4 40              @     nega
9083 C8E5 20 31            1    bra 31
9084 C8E7 F6 10 2F        ../   ldab 102f            ;sci data
9085 C8EA F7 00 26        ..&   stb 0026
9086 C8ED CE 00 1A        ...   ldx #001a
9087 C8F0 1C 00           ..    bset add,x 00,x
9088 C8F2 02              .     idiv
9089 C8F3 F6 00 1A        ...   ldab 001a
9090 C8F6 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9091 C8F9 F6 00 3D        ..=   ldab 003d
9092 C8FC C4 04           ..    andb #04
9093 C8FE 26 18           &.    bne 18
9094 C900 CC 00 03        ...   ldd #0003
9095 C903 BD E5 71        ..q   jsr e571
9096 C906 CE 00 1A        ...   ldx #001a
9097 C909 1D 00           ..    bclr add,x 00,x
9098 C90B 02              .     idiv
9099 C90C F6 00 1A        ...   ldab 001a
9100 C90F F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9101 C912 7C 00 3D        |.=   inc 003d
9102 C915 7E CE 46        ~.F   jmp ce46
9103 C918 7E CB DA        ~..   jmp cbda
9104 C91B F6 00 08        ...   ldab 0008
9105 C91E 26 03           &.    bne 03
9106 C920 7E CA 5F        ~._   jmp ca5f
9107 C923 F6 00 17        ...   ldab 0017
9108 C926 C4 04           ..    andb #04
9109 C928 26 03           &.    bne 03
9110 C92A 7E CA 5F        ~._   jmp ca5f
9111 C92D F6 00 17        ...   ldab 0017
9112 C930 C4 08           ..    andb #08
9113 C932 26 03           &.    bne 03
9114 C934 7E CA 5F        ~._   jmp ca5f
9115 C937 F6 10 2F        ../   ldab 102f            ;sci data
9116 C93A C1 FF           ..    cmpb #ff
9117 C93C 27 07           '.    beq 07
9118 C93E F6 00 08        ...   ldab 0008
9119 C941 C1 0E           ..    cmpb #0e
9120 C943 25 12           %.    bcs 12
9121 C945 CE 00 17        ...   ldx #0017
9122 C948 1D 00           ..    bclr add,x 00,x
9123 C94A 04              .     lsrd
9124 C94B 7F 00 08        ...   clr 0008
9125 C94E BD CE 48        ..H   jsr ce48
9126 C951 7F 00 2C        ..,   clr 002c
9127 C954 7E CA 5C        ~.\   jmp ca5c
9128 C957 F6 00 08        ...   ldab 0008
9129 C95A 4F              O     clra
9130 C95B BD FE 16        ...   jsr fe16
9131 C95E 00              .     test
9132 C95F 01              .     nop
9133 C960 00              .     test
9134 C961 0C              .     clc
9135 C962 CA 59           .Y    orab #59
9136 C964 C9 7E           .~    adcb #7e
9137 C966 C9 87           ..    adcb #87
9138 C968 C9 DF           ..    adcb #df
9139 C96A C9 F3           ..    adcb #f3
9140 C96C CA 07           ..    orab #07
9141 C96E CA 1B           ..    orab #1b
9142 C970 CA 23           .#    orab #23
9143 C972 CA 2B           .+    orab #2b
9144 C974 CA 33           .3    orab #33
9145 C976 CA 3B           .;    orab #3b
9146 C978 CA 43           .C    orab #43
9147 C97A CA 4B           .K    orab #4b
9148 C97C CA 53           .S    orab #53
9149 C97E F6 10 2F        ../   ldab 102f            ;sci data
9150 C981 F7 0B C2        ...   stb 0bc2
9151 C984 7E CA 59        ~.Y   jmp ca59
9152 C987 F6 10 2F        ../   ldab 102f            ;sci data
9153 C98A F7 0B E3        ...   stb 0be3
9154 C98D F6 10 2F        ../   ldab 102f            ;sci data
9155 C990 C4 0F           ..    andb #0f
9156 C992 C1 01           ..    cmpb #01
9157 C994 26 07           &.    bne 07
9158 C996 C6 02           ..    ldab #02
9159 C998 F7 00 13        ...   stb 0013
9160 C99B 20 1B            .    bra 1b
9161 C99D C1 02           ..    cmpb #02
9162 C99F 26 07           &.    bne 07
9163 C9A1 C6 04           ..    ldab #04
9164 C9A3 F7 00 13        ...   stb 0013
9165 C9A6 20 10            .    bra 10
9166 C9A8 C1 03           ..    cmpb #03
9167 C9AA 26 07           &.    bne 07
9168 C9AC C6 08           ..    ldab #08
9169 C9AE F7 00 13        ...   stb 0013
9170 C9B1 20 05            .    bra 05
9171 C9B3 C6 01           ..    ldab #01
9172 C9B5 F7 00 13        ...   stb 0013
9173 C9B8 F6 10 2F        ../   ldab 102f            ;sci data
9174 C9BB C4 F0           ..    andb #f0
9175 C9BD 54              T     lsrb
9176 C9BE 54              T     lsrb
9177 C9BF 54              T     lsrb
9178 C9C0 54              T     lsrb
9179 C9C1 F7 0B C3        ...   stb 0bc3
9180 C9C4 F6 0B C2        ...   ldab 0bc2
9181 C9C7 F7 0B AA        ...   stb 0baa
9182 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9183 ;while 0bc3^<>0
9184 ;  obaa^:=0baa^*10
9185 ;  obc3^:=0bc3-1
9186 ;endwhile
9187 C9CA F6 0B C3        ...   ldab 0bc3
9188 C9CD 27 0E           '.    beq c9dd
9189 C9CF F6 0B AA        ...   ldab 0baa
9190 C9D2 86 0A           ..    ldaa #0a
9191 C9D4 3D              =     mul
9192 C9D5 F7 0B AA        ...   stb 0baa
9193 C9D8 7A 0B C3        z..   dec 0bc3
9194 C9DB 20 ED            .    bra c9ca
9195
9196 C9DD 20 7A            z    bra 7a
9197 C9DF F6 10 2F        ../   ldab 102f            ;sci data
9198 C9E2 F7 0B C4        ...   stb 0bc4
9199 C9E5 F6 0B C4        ...   ldab 0bc4
9200 C9E8 C1 80           ..    cmpb #80
9201 C9EA 26 05           &.    bne 05
9202 C9EC C6 0F           ..    ldab #0f
9203 C9EE F7 0B C4        ...   stb 0bc4
9204 C9F1 20 66            f    bra 66
9205 C9F3 F6 10 2F        ../   ldab 102f            ;sci data
9206 C9F6 F7 0B C5        ...   stb 0bc5
9207 C9F9 F6 0B C5        ...   ldab 0bc5
9208 C9FC C1 80           ..    cmpb #80
9209 C9FE 26 05           &.    bne 05
9210 CA00 C6 0F           ..    ldab #0f
9211 CA02 F7 0B C5        ...   stb 0bc5
9212 CA05 20 52            R    bra 52
9213 CA07 F6 10 2F        ../   ldab 102f            ;sci data
9214 CA0A F7 0B C6        ...   stb 0bc6
9215 CA0D F6 0B C6        ...   ldab 0bc6
9216 CA10 C1 80           ..    cmpb #80
9217 CA12 26 05           &.    bne ca19
9218 CA14 C6 0F           ..    ldab #0f
9219 CA16 F7 0B C6        ...   stb 0bc6
9220 CA19 20 3E            >    bra 3e
9221 ;!!!where does this lot get called?
9222 CA1B F6 10 2F        ../   ldab 102f            ;sci data
9223 CA1E F7 0B C7        ...   stb 0bc7
9224 CA21 20 36            6    bra 36
9225 CA23 F6 10 2F        ../   ldab 102f            ;sci data
9226 CA26 F7 0B C8        ...   stb 0bc8
9227 CA29 20 2E            .    bra 2e
9228 CA2B F6 10 2F        ../   ldab 102f            ;sci data
9229 CA2E F7 0B C9        ...   stb 0bc9
9230 CA31 20 26            &    bra 26
9231 CA33 F6 10 2F        ../   ldab 102f            ;sci data
9232 CA36 F7 0B CA        ...   stb 0bca
9233 CA39 20 1E            .    bra 1e
9234 CA3B F6 10 2F        ../   ldab 102f            ;sci data
9235 CA3E F7 0B CB        ...   stb 0bcb
9236 CA41 20 16            .    bra 16
9237 CA43 F6 10 2F        ../   ldab 102f            ;sci data
9238 CA46 F7 0B CC        ...   stb 0bcc
9239 CA49 20 0E            .    bra 0e
9240 CA4B F6 10 2F        ../   ldab 102f            ;sci data
9241 CA4E F7 0B CD        ...   stb 0bcd
9242 CA51 20 06            .    bra 06
9243 CA53 F6 10 2F        ../   ldab 102f            ;sci data
9244 CA56 F7 0B CE        ...   stb 0bce
9245 CA59 7C 00 08        |..   inc 0008
9246 CA5C 7E CB DA        ~..   jmp cbda
9247 CA5F F6 10 2F        ../   ldab 102f            ;sci data
9248 CA62 C4 EF           ..    andb #ef
9249 CA64 C1 E2           ..    cmpb #e2
9250 CA66 26 1A           &.    bne 1a
9251 CA68 CE 00 17        ...   ldx #0017
9252 CA6B 1C 00           ..    bset add,x 00,x
9253 CA6D 08              .     inx
9254 CA6E CE 00 17        ...   ldx #0017
9255 CA71 1C 00           ..    bset add,x 00,x
9256 CA73 04              .     lsrd
9257 CA74 C6 01           ..    ldab #01
9258 CA76 F7 00 08        ...   stb 0008
9259 CA79 CE 0B C1        ...   ldx #0bc1
9260 CA7C 1D 00           ..    bclr add,x 00,x
9261 CA7E 01              .     nop
9262 CA7F 7E CB DA        ~..   jmp cbda
9263 CA82 F6 10 2F        ../   ldab 102f            ;sci data
9264 CA85 C4 02           ..    andb #02
9265 CA87 27 03           '.    beq 03
9266 CA89 7E CB 6C        ~.l   jmp cb6c
9267 CA8C F6 10 2F        ../   ldab 102f            ;sci data
9268 CA8F 2C 38           ,8    bge 38
9269 CA91 F6 00 17        ...   ldab 0017
9270 CA94 C4 08           ..    andb #08
9271 CA96 26 31           &1    bne 31
9272 CA98 F6 10 2F        ../   ldab 102f            ;sci data
9273 CA9B C4 78           .x    andb #78
9274 CA9D 54              T     lsrb
9275 CA9E 54              T     lsrb
9276 CA9F 54              T     lsrb
9277 CAA0 4F              O     clra
9278 CAA1 C3 0B C7        ...   addd #0bc7
9279 CAA4 8F              .     xgdx
9280 CAA5 E6 00           ..    ldab 00,x
9281 CAA7 4F              O     clra
9282 CAA8 37              7     pshb
9283 CAA9 36              6     psha
9284 CAAA F6 0B AA        ...   ldab 0baa
9285 CAAD 4F              O     clra
9286 CAAE BD FB BA        ...   jsr fbba
9287 CAB1 F3 00 40        ..@   addd 0040
9288 CAB4 FD 00 40        ..@   stad 0040
9289 CAB7 CE 00 1B        ...   ldx #001b
9290 CABA 1C 00           ..    bset add,x 00,x
9291 CABC 20 CE            .    bra ce
9292 CABE 00              .     test
9293 CABF 1B              .     aba
9294 CAC0 1D 00           ..    bclr add,x 00,x
9295 CAC2 40              @     nega
9296 CAC3 7F 00 25        ..%   clr 0025
9297 CAC6 7E CB 64        ~.d   jmp cb64
9298 CAC9 F6 00 17        ...   ldab 0017
9299 CACC C4 08           ..    andb #08
9300 CACE 26 4A           &J    bne 4a
9301 CAD0 F6 10 2F        ../   ldab 102f            ;sci data
9302 CAD3 C4 60           .`    andb #60
9303 CAD5 54              T     lsrb
9304 CAD6 54              T     lsrb
9305 CAD7 54              T     lsrb
9306 CAD8 4F              O     clra
9307 CAD9 C3 0B C7        ...   addd #0bc7
9308 CADC 8F              .     xgdx
9309 CADD E6 00           ..    ldab 00,x
9310 CADF 4F              O     clra
9311 CAE0 37              7     pshb
9312 CAE1 36              6     psha
9313 CAE2 F6 0B AA        ...   ldab 0baa
9314 CAE5 4F              O     clra
9315 CAE6 BD FB BA        ...   jsr fbba
9316 CAE9 FD 0B BD        ...   stad 0bbd
9317 CAEC FC 0B BD        ...   ldd 0bbd
9318 CAEF F3 00 40        ..@   addd 0040
9319 CAF2 FD 00 40        ..@   stad 0040
9320 CAF5 F6 00 21        ..!   ldab 0021
9321 CAF8 C4 F8           ..    andb #f8
9322 CAFA 37              7     pshb
9323 CAFB F6 10 2F        ../   ldab 102f            ;sci data
9324 CAFE C4 1C           ..    andb #1c
9325 CB00 54              T     lsrb
9326 CB01 54              T     lsrb
9327 CB02 30              0     tsx
9328 CB03 EA 00           ..    orb 00,x
9329 CB05 31              1     ins
9330 CB06 F7 00 21        ..!   stb 0021
9331 CB09 F6 10 2F        ../   ldab 102f            ;sci data
9332 CB0C F7 0B BC        ...   stb 0bbc
9333 CB0F CE 00 1B        ...   ldx #001b
9334 CB12 1D 00           ..    bclr add,x 00,x
9335 CB14 40              @     nega
9336 CB15 7F 00 25        ..%   clr 0025
9337 CB18 20 4A            J    bra 4a
9338 CB1A F6 10 2F        ../   ldab 102f            ;sci data
9339 CB1D C4 E0           ..    andb #e0
9340 CB1F 54              T     lsrb
9341 CB20 54              T     lsrb
9342 CB21 54              T     lsrb
9343 CB22 54              T     lsrb
9344 CB23 54              T     lsrb
9345 CB24 4F              O     clra
9346 CB25 C3 0B C7        ...   addd #0bc7
9347 CB28 8F              .     xgdx
9348 CB29 E6 00           ..    ldab 00,x
9349 CB2B 4F              O     clra
9350 CB2C 37              7     pshb
9351 CB2D 36              6     psha
9352 CB2E F6 0B AA        ...   ldab 0baa
9353 CB31 4F              O     clra
9354 CB32 BD FB BA        ...   jsr fbba
9355 CB35 FD 0B BD        ...   stad 0bbd
9356 CB38 FC 0B BD        ...   ldd 0bbd
9357 CB3B F3 00 40        ..@   addd 0040
9358 CB3E FD 00 40        ..@   stad 0040
9359 CB41 F6 00 21        ..!   ldab 0021
9360 CB44 C4 F8           ..    andb #f8
9361 CB46 37              7     pshb
9362 CB47 F6 10 2F        ../   ldab 102f            ;sci data
9363 CB4A C4 1C           ..    andb #1c
9364 CB4C 54              T     lsrb
9365 CB4D 54              T     lsrb
9366 CB4E 30              0     tsx
9367 CB4F EA 00           ..    orb 00,x
9368 CB51 31              1     ins
9369 CB52 F7 00 21        ..!   stb 0021
9370 CB55 F6 10 2F        ../   ldab 102f            ;sci data
9371 CB58 F7 0B BC        ...   stb 0bbc
9372 CB5B CE 00 1B        ...   ldx #001b
9373 CB5E 1D 00           ..    bclr add,x 00,x
9374 CB60 40              @     nega
9375 CB61 7F 00 25        ..%   clr 0025
9376 CB64 7F 00 2C        ..,   clr 002c
9377 CB67 7F 00 3A        ..:   clr 003a
9378 CB6A 20 6E            n    bra 6e
9379 CB6C F6 10 2F        ../   ldab 102f            ;sci data
9380 CB6F C4 03           ..    andb #03
9381 CB71 C1 02           ..    cmpb #02
9382 CB73 26 0F           &.    bne 0f
9383 CB75 F6 00 21        ..!   ldab 0021
9384 CB78 C4 08           ..    andb #08
9385 CB7A 27 08           '.    beq 08
9386 CB7C CE 00 21        ..!   ldx #0021
9387 CB7F 1C 00           ..    bset add,x 00,x
9388 CB81 10              .     sba
9389 CB82 20 56            V    bra 56
9390 CB84 F6 10 2F        ../   ldab 102f            ;sci data
9391 CB87 C4 EF           ..    andb #ef
9392 CB89 C1 E3           ..    cmpb #e3
9393 CB8B 26 08           &.    bne 08
9394 CB8D CE 0B C1        ...   ldx #0bc1
9395 CB90 1D 00           ..    bclr add,x 00,x
9396 CB92 02              .     idiv
9397 CB93 20 45            E    bra 45
9398 CB95 F6 10 2F        ../   ldab 102f            ;sci data
9399 CB98 C4 EF           ..    andb #ef
9400 CB9A C1 63           .c    cmpb #63
9401 CB9C 26 1C           &.    bne 1c
9402 CB9E CE 0B C1        ...   ldx #0bc1
9403 CBA1 1D 00           ..    bclr add,x 00,x
9404 CBA3 01              .     nop
9405 CBA4 F6 0B C0        ...   ldab 0bc0
9406 CBA7 C4 01           ..    andb #01
9407 CBA9 27 0D           '.    beq 0d
9408 CBAB F6 0B C0        ...   ldab 0bc0
9409 CBAE C4 04           ..    andb #04
9410 CBB0 27 06           '.    beq 06
9411 CBB2 CE 0B C1        ...   ldx #0bc1
9412 CBB5 1D 00           ..    bclr add,x 00,x
9413 CBB7 02              .     idiv
9414 CBB8 20 20                 bra 20
9415 CBBA F6 10 2F        ../   ldab 102f            ;sci data
9416 CBBD C4 EF           ..    andb #ef
9417 CBBF C1 67           .g    cmpb #67
9418 CBC1 26 08           &.    bne 08
9419 CBC3 CE 0B C1        ...   ldx #0bc1
9420 CBC6 1C 00           ..    bset add,x 00,x
9421 CBC8 20 20                 bra 20
9422 CBCA 0F              .     sei
9423 CBCB F6 10 2F        ../   ldab 102f            ;sci data
9424 CBCE C4 EF           ..    andb #ef
9425 CBD0 C1 27           .'    cmpb #27
9426 CBD2 26 06           &.    bne 06
9427 CBD4 CE 0B C1        ...   ldx #0bc1
9428 CBD7 1C 00           ..    bset add,x 00,x
9429 CBD9 10              .     sba
9430 CBDA CE 00 1A        ...   ldx #001a
9431 CBDD 1C 00           ..    bset add,x 00,x
9432 CBDF 02              .     idiv
9433 CBE0 F6 00 1A        ...   ldab 001a
9434 CBE3 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9435 CBE6 F6 00 17        ...   ldab 0017
9436 CBE9 C4 04           ..    andb #04
9437 CBEB 26 05           &.    bne 05
9438 CBED C6 06           ..    ldab #06
9439 CBEF F7 00 07        ...   stb 0007
9440 CBF2 F6 00 26        ..&   ldab 0026
9441 CBF5 53              S     comb
9442 CBF6 F7 00 26        ..&   stb 0026
9443 CBF9 7F 00 3D        ..=   clr 003d
9444 CBFC 7E CE 46        ~.F   jmp ce46
9445 CBFF F6 0B C0        ...   ldab 0bc0
9446 CC02 C4 02           ..    andb #02
9447 CC04 26 03           &.    bne 03
9448 CC06 7E CE 3B        ~.;   jmp ce3b
9449 CC09 F6 10 2F        ../   ldab 102f            ;sci data
9450 CC0C C4 E0           ..    andb #e0
9451 CC0E C1 20           .     cmpb #20
9452 CC10 27 03           '.    beq 03
9453 CC12 7E CE 3B        ~.;   jmp ce3b
9454 CC15 C6 32           .2    ldab #32
9455 CC17 F7 00 2F        ../   stb 002f
9456 CC1A CE 00 1B        ...   ldx #001b
9457 CC1D 1C 00           ..    bset add,x 00,x
9458 CC1F 02              .     idiv
9459 CC20 F6 10 2E        ...   ldab 102e
9460 CC23 C4 02           ..    andb #02
9461 CC25 26 08           &.    bne 08
9462 CC27 BD C7 C0        ...   jsr c7c0
9463 CC2A 83 00 00        ...   subd #0000
9464 CC2D 26 0F           &.    bne 0f
9465 CC2F F6 10 2F        ../   ldab 102f            ;sci data
9466 CC32 30              0     tsx
9467 CC33 E7 00           ..    stb 00,x
9468 CC35 CC 00 FF        ...   ldd #00ff
9469 CC38 BD C7 E7        ...   jsr c7e7
9470 CC3B 7E CE 39        ~.9   jmp ce39
9471 CC3E F6 10 2F        ../   ldab 102f            ;sci data
9472 CC41 C1 3F           .?    cmpb #3f
9473 CC43 26 0A           &.    bne 0a
9474 CC45 F6 00 43        ..C   ldab 0043
9475 CC48 4F              O     clra
9476 CC49 BD C7 E7        ...   jsr c7e7
9477 CC4C 7E CE 39        ~.9   jmp ce39
9478 CC4F F6 00 08        ...   ldab 0008
9479 CC52 26 03           &.    bne 03
9480 CC54 7E CD 94        ~..   jmp cd94
9481 CC57 F6 10 2F        ../   ldab 102f            ;sci data
9482 CC5A C4 F0           ..    andb #f0
9483 CC5C C1 20           .     cmpb #20
9484 CC5E 27 03           '.    beq 03
9485 CC60 7E CD 94        ~..   jmp cd94
9486 CC63 F6 10 2F        ../   ldab 102f            ;sci data
9487 CC66 C4 0F           ..    andb #0f
9488 CC68 30              0     tsx
9489 CC69 E7 00           ..    stb 00,x
9490 CC6B F6 00 08        ...   ldab 0008
9491 CC6E 4F              O     clra
9492 CC6F BD FE 16        ...   jsr fe16
9493 CC72 00              .     test
9494 CC73 01              .     nop
9495 CC74 00              .     test
9496 CC75 07              .     tpa
9497 CC76 CD              .     illegal
9498 CC77 7A CC 88        z..   dec cc88
9499 CC7A CC A2 CC        ...   ldd #a2cc
9500 CC7D CA CC           ..    orab #cc
9501 CC7F EE CD           ..    ldx cd,x
9502 CC81 19              .     daa
9503 CC82 CD              .     illegal
9504 CC83 21 CD           !.    brn cd
9505 CC85 30              0     tsx
9506 CC86 CD              .     illegal
9507 CC87 38              8     pulx
9508 CC88 F6 00 17        ...   ldab 0017
9509 CC8B C4 01           ..    andb #01
9510 CC8D 27 09           '.    beq 09
9511 CC8F 30              0     tsx
9512 CC90 E6 00           ..    ldab 00,x
9513 CC92 4F              O     clra
9514 CC93 FD 00 76        ..v   stad 0076
9515 CC96 20 07            .    bra 07
9516 CC98 30              0     tsx
9517 CC99 E6 00           ..    ldab 00,x
9518 CC9B 4F              O     clra
9519 CC9C FD 00 40        ..@   stad 0040
9520 CC9F 7E CD 7A        ~.z   jmp cd7a
9521 CCA2 F6 00 17        ...   ldab 0017
9522 CCA5 C4 01           ..    andb #01
9523 CCA7 27 10           '.    beq 10
9524 CCA9 30              0     tsx
9525 CCAA E6 00           ..    ldab 00,x
9526 CCAC 4F              O     clra
9527 CCAD 05              .     asld
9528 CCAE 05              .     asld
9529 CCAF 05              .     asld
9530 CCB0 05              .     asld
9531 CCB1 F3 00 76        ..v   addd 0076
9532 CCB4 FD 00 76        ..v   stad 0076
9533 CCB7 20 0E            .    bra 0e
9534 CCB9 30              0     tsx
9535 CCBA E6 00           ..    ldab 00,x
9536 CCBC 4F              O     clra
9537 CCBD 05              .     asld
9538 CCBE 05              .     asld
9539 CCBF 05              .     asld
9540 CCC0 05              .     asld
9541 CCC1 F3 00 40        ..@   addd 0040
9542 CCC4 FD 00 40        ..@   stad 0040
9543 CCC7 7E CD 7A        ~.z   jmp cd7a
9544 CCCA F6 00 17        ...   ldab 0017
9545 CCCD C4 01           ..    andb #01
9546 CCCF 27 0E           '.    beq 0e
9547 CCD1 30              0     tsx
9548 CCD2 E6 00           ..    ldab 00,x
9549 CCD4 4F              O     clra
9550 CCD5 17              .     tba
9551 CCD6 5F              _     clrb
9552 CCD7 F3 00 76        ..v   addd 0076
9553 CCDA FD 00 76        ..v   stad 0076
9554 CCDD 20 0C            .    bra 0c
9555 CCDF 30              0     tsx
9556 CCE0 E6 00           ..    ldab 00,x
9557 CCE2 4F              O     clra
9558 CCE3 17              .     tba
9559 CCE4 5F              _     clrb
9560 CCE5 F3 00 40        ..@   addd 0040
9561 CCE8 FD 00 40        ..@   stad 0040
9562 CCEB 7E CD 7A        ~.z   jmp cd7a
9563 CCEE F6 00 17        ...   ldab 0017
9564 CCF1 C4 01           ..    andb #01
9565 CCF3 27 12           '.    beq 12
9566 CCF5 30              0     tsx
9567 CCF6 E6 00           ..    ldab 00,x
9568 CCF8 4F              O     clra
9569 CCF9 17              .     tba
9570 CCFA 48              H     asla
9571 CCFB 48              H     asla
9572 CCFC 48              H     asla
9573 CCFD 48              H     asla
9574 CCFE 5F              _     clrb
9575 CCFF F3 00 76        ..v   addd 0076
9576 CD02 FD 00 76        ..v   stad 0076
9577 CD05 20 10            .    bra 10
9578 CD07 30              0     tsx
9579 CD08 E6 00           ..    ldab 00,x
9580 CD0A 4F              O     clra
9581 CD0B 17              .     tba
9582 CD0C 48              H     asla
9583 CD0D 48              H     asla
9584 CD0E 48              H     asla
9585 CD0F 48              H     asla
9586 CD10 5F              _     clrb
9587 CD11 F3 00 40        ..@   addd 0040
9588 CD14 FD 00 40        ..@   stad 0040
9589 CD17 20 61            a    bra 61
9590 CD19 30              0     tsx
9591 CD1A E6 00           ..    ldab 00,x
9592 CD1C F7 0B AA        ...   stb 0baa
9593 CD1F 20 59            Y    bra 59
9594 CD21 30              0     tsx
9595 CD22 E6 00           ..    ldab 00,x
9596 CD24 58              X     aslb
9597 CD25 58              X     aslb
9598 CD26 58              X     aslb
9599 CD27 58              X     aslb
9600 CD28 FB 0B AA        ...   addb 0baa
9601 CD2B F7 0B AA        ...   stb 0baa
9602 CD2E 20 4A            J    bra 4a
9603 CD30 30              0     tsx
9604 CD31 E6 00           ..    ldab 00,x
9605 CD33 F7 00 13        ...   stb 0013
9606 CD36 20 42            B    bra 42
9607 CD38 F6 10 2F        ../   ldab 102f            ;sci data
9608 CD3B C4 01           ..    andb #01
9609 CD3D 27 08           '.    beq 08
9610 CD3F CE 00 21        ..!   ldx #0021
9611 CD42 1C 00           ..    bset add,x 00,x
9612 CD44 40              @     nega
9613 CD45 20 06            .    bra 06
9614 CD47 CE 00 21        ..!   ldx #0021
9615 CD4A 1D 00           ..    bclr add,x 00,x
9616 CD4C 40              @     nega
9617 CD4D F6 00 17        ...   ldab 0017
9618 CD50 C4 01           ..    andb #01
9619 CD52 27 17           '.    beq 17
9620 CD54 F6 0B AA        ...   ldab 0baa
9621 CD57 4F              O     clra
9622 CD58 37              7     pshb
9623 CD59 36              6     psha
9624 CD5A FC 00 76        ..v   ldd 0076
9625 CD5D BD FB BA        ...   jsr fbba
9626 CD60 FD 00 76        ..v   stad 0076
9627 CD63 CE 00 17        ...   ldx #0017
9628 CD66 1D 00           ..    bclr add,x 00,x
9629 CD68 01              .     nop
9630 CD69 20 0F            .    bra 0f
9631 CD6B F6 0B AA        ...   ldab 0baa
9632 CD6E 4F              O     clra
9633 CD6F 37              7     pshb
9634 CD70 36              6     psha
9635 CD71 FC 00 40        ..@   ldd 0040
9636 CD74 BD FB BA        ...   jsr fbba
9637 CD77 FD 00 40        ..@   stad 0040
9638 CD7A F6 00 08        ...   ldab 0008
9639 CD7D C1 09           ..    cmpb #09
9640 CD7F 26 08           &.    bne 08
9641 CD81 7F 00 2C        ..,   clr 002c
9642 CD84 7F 00 08        ...   clr 0008
9643 CD87 20 03            .    bra 03
9644 CD89 7C 00 08        |..   inc 0008
9645 CD8C 5F              _     clrb
9646 CD8D 4F              O     clra
9647 CD8E BD C7 E7        ...   jsr c7e7
9648 CD91 7E CE 39        ~.9   jmp ce39
9649 CD94 F6 10 2F        ../   ldab 102f            ;sci data
9650 CD97 4F              O     clra
9651 CD98 BD FE 32        ..2   jsr fe32
9652 CD9B CD              .     illegal
9653 CD9C B1 00 31        ..1   cmpa 0031
9654 CD9F CD              .     illegal
9655 CDA0 DB 00 01        ...   addb 00
9656 CDA3 CE 20 00        . .   ldx #2000
9657 CDA6 01              .     nop
9658 CDA7 CE 28 00        .(.   ldx #2800
9659 CDAA 05              .     asld
9660 CDAB CE 34 FF        .4.   ldx #34ff
9661 CDAE C8 00           ..    eorb #00
9662 CDB0 00              .     test
9663 CDB1 F6 00 21        ..!   ldab 0021
9664 CDB4 2C 08           ,.    bge 08
9665 CDB6 CC 00 80        ...   ldd #0080
9666 CDB9 BD C7 E7        ...   jsr c7e7
9667 CDBC 20 1B            .    bra 1b
9668 CDBE 5F              _     clrb
9669 CDBF 4F              O     clra
9670 CDC0 BD C7 E7        ...   jsr c7e7
9671 CDC3 F6 00 1F        ...   ldab 001f
9672 CDC6 C4 08           ..    andb #08
9673 CDC8 27 0C           '.    beq 0c
9674 CDCA F6 0B C0        ...   ldab 0bc0
9675 CDCD C4 10           ..    andb #10
9676 CDCF 27 05           '.    beq 05
9677 CDD1 7C 00 75        |.u   inc 0075
9678 CDD4 20 03            .    bra 03
9679 CDD6 7F 00 75        ..u   clr 0075
9680 CDD9 20 5E            ^    bra 5e
9681 CDDB F6 00 1D        ...   ldab 001d
9682 CDDE C4 02           ..    andb #02
9683 CDE0 27 07           '.    beq 07
9684 CDE2 F6 00 19        ...   ldab 0019
9685 CDE5 C4 08           ..    andb #08
9686 CDE7 26 19           &.    bne 19
9687 CDE9 CC 00 FE        ...   ldd #00fe
9688 CDEC BD C7 E7        ...   jsr c7e7
9689 CDEF F6 00 1F        ...   ldab 001f
9690 CDF2 C4 08           ..    andb #08
9691 CDF4 27 0A           '.    beq 0a
9692 CDF6 F6 0B C0        ...   ldab 0bc0
9693 CDF9 C4 10           ..    andb #10
9694 CDFB 27 03           '.    beq 03
9695 CDFD 7C 00 75        |.u   inc 0075
9696 CE00 20 1C            .    bra 1c
9697 CE02 FC 00 44        ..D   ldd 0044
9698 CE05 37              7     pshb
9699 CE06 36              6     psha
9700 CE07 F6 0B AA        ...   ldab 0baa
9701 CE0A 4F              O     clra
9702 CE0B 38              8     pulx
9703 CE0C 8F              .     xgdx
9704 CE0D 02              .     idiv
9705 CE0E 8F              .     xgdx
9706 CE0F BD C7 E7        ...   jsr c7e7
9707 CE12 CE 00 19        ...   ldx #0019
9708 CE15 1D 00           ..    bclr add,x 00,x
9709 CE17 08              .     inx
9710 CE18 CE 00 1F        ...   ldx #001f
9711 CE1B 1C 00           ..    bset add,x 00,x
9712 CE1D 08              .     inx
9713 CE1E 20 19            .    bra 19
9714 CE20 CE 00 1D        ...   ldx #001d
9715 CE23 1D 00           ..    bclr add,x 00,x
9716 CE25 02              .     idiv
9717 CE26 20 11            .    bra 11
9718 CE28 C6 01           ..    ldab #01
9719 CE2A F7 00 08        ...   stb 0008
9720 CE2D 5F              _     clrb
9721 CE2E 4F              O     clra
9722 CE2F BD C7 E7        ...   jsr c7e7
9723 CE32 20 05            .    bra 05
9724 CE34 5F              _     clrb
9725 CE35 4F              O     clra
9726 CE36 BD C7 E7        ...   jsr c7e7
9727 CE39 20 0B            .    bra 0b
9728 CE3B F6 10 2E        ...   ldab 102e
9729 CE3E 30              0     tsx
9730 CE3F E7 00           ..    stb 00,x
9731 CE41 F6 10 2F        ../   ldab 102f            ;sci data
9732 CE44 E7 00           ..    stb 00,x
9733 CE46 31              1     ins
9734 CE47 3B              ;     rti
9735 CE48 F6 0B C4        ...   ldab 0bc4
9736 CE4B F1 0B C5        ...   cmpb 0bc5
9737 CE4E 25 53           %S    bcs 53
9738 CE50 F6 0B C5        ...   ldab 0bc5
9739 CE53 F1 0B C6        ...   cmpb 0bc6
9740 CE56 25 4B           %K    bcs 4b
9741 CE58 F6 0B C4        ...   ldab 0bc4
9742 CE5B 4F              O     clra
9743 CE5C C3 0B C7        ...   addd #0bc7
9744 CE5F 8F              .     xgdx
9745 CE60 E6 00           ..    ldab 00,x
9746 CE62 4F              O     clra
9747 CE63 FD 0B DD        ...   stad 0bdd
9748 CE66 F6 0B C5        ...   ldab 0bc5
9749 CE69 4F              O     clra
9750 CE6A C3 0B C7        ...   addd #0bc7
9751 CE6D 8F              .     xgdx
9752 CE6E E6 00           ..    ldab 00,x
9753 CE70 4F              O     clra
9754 CE71 FD 0B DF        ...   stad 0bdf
9755 CE74 F6 0B C6        ...   ldab 0bc6
9756 CE77 4F              O     clra
9757 CE78 C3 0B C7        ...   addd #0bc7
9758 CE7B 8F              .     xgdx
9759 CE7C E6 00           ..    ldab 00,x
9760 CE7E 4F              O     clra
9761 CE7F FD 0B E1        ...   stad 0be1
9762 CE82 C6 01           ..    ldab #01
9763 CE84 F7 0B D7        ...   stb 0bd7
9764 CE87 C6 04           ..    ldab #04
9765 CE89 F7 0B D8        ...   stb 0bd8
9766 CE8C C6 02           ..    ldab #02
9767 CE8E F7 0B D9        ...   stb 0bd9
9768 CE91 C6 20           .     ldab #20
9769 CE93 F7 0B DA        ...   stb 0bda
9770 CE96 C6 08           ..    ldab #08
9771 CE98 F7 0B DB        ...   stb 0bdb
9772 CE9B C6 10           ..    ldab #10
9773 CE9D F7 0B DC        ...   stb 0bdc
9774 CEA0 7E D0 66        ~.f   jmp d066
9775 CEA3 F6 0B C4        ...   ldab 0bc4
9776 CEA6 F1 0B C6        ...   cmpb 0bc6
9777 CEA9 25 53           %S    bcs 53
9778 CEAB F6 0B C6        ...   ldab 0bc6
9779 CEAE F1 0B C5        ...   cmpb 0bc5
9780 CEB1 25 4B           %K    bcs 4b
9781 CEB3 F6 0B C4        ...   ldab 0bc4
9782 CEB6 4F              O     clra
9783 CEB7 C3 0B C7        ...   addd #0bc7
9784 CEBA 8F              .     xgdx
9785 CEBB E6 00           ..    ldab 00,x
9786 CEBD 4F              O     clra
9787 CEBE FD 0B DD        ...   stad 0bdd
9788 CEC1 F6 0B C6        ...   ldab 0bc6
9789 CEC4 4F              O     clra
9790 CEC5 C3 0B C7        ...   addd #0bc7
9791 CEC8 8F              .     xgdx
9792 CEC9 E6 00           ..    ldab 00,x
9793 CECB 4F              O     clra
9794 CECC FD 0B DF        ...   stad 0bdf
9795 CECF F6 0B C5        ...   ldab 0bc5
9796 CED2 4F              O     clra
9797 CED3 C3 0B C7        ...   addd #0bc7
9798 CED6 8F              .     xgdx
9799 CED7 E6 00           ..    ldab 00,x
9800 CED9 4F              O     clra
9801 CEDA FD 0B E1        ...   stad 0be1
9802 CEDD C6 01           ..    ldab #01
9803 CEDF F7 0B D7        ...   stb 0bd7
9804 CEE2 C6 02           ..    ldab #02
9805 CEE4 F7 0B D8        ...   stb 0bd8
9806 CEE7 C6 04           ..    ldab #04
9807 CEE9 F7 0B D9        ...   stb 0bd9
9808 CEEC C6 20           .     ldab #20
9809 CEEE F7 0B DA        ...   stb 0bda
9810 CEF1 C6 10           ..    ldab #10
9811 CEF3 F7 0B DB        ...   stb 0bdb
9812 CEF6 C6 08           ..    ldab #08
9813 CEF8 F7 0B DC        ...   stb 0bdc
9814 CEFB 7E D0 66        ~.f   jmp d066
9815 CEFE F6 0B C5        ...   ldab 0bc5
9816 CF01 F1 0B C4        ...   cmpb 0bc4
9817 CF04 25 53           %S    bcs 53
9818 CF06 F6 0B C4        ...   ldab 0bc4
9819 CF09 F1 0B C6        ...   cmpb 0bc6
9820 CF0C 25 4B           %K    bcs 4b
9821 CF0E F6 0B C5        ...   ldab 0bc5
9822 CF11 4F              O     clra
9823 CF12 C3 0B C7        ...   addd #0bc7
9824 CF15 8F              .     xgdx
9825 CF16 E6 00           ..    ldab 00,x
9826 CF18 4F              O     clra
9827 CF19 FD 0B DD        ...   stad 0bdd
9828 CF1C F6 0B C4        ...   ldab 0bc4
9829 CF1F 4F              O     clra
9830 CF20 C3 0B C7        ...   addd #0bc7
9831 CF23 8F              .     xgdx
9832 CF24 E6 00           ..    ldab 00,x
9833 CF26 4F              O     clra
9834 CF27 FD 0B DF        ...   stad 0bdf
9835 CF2A F6 0B C6        ...   ldab 0bc6
9836 CF2D 4F              O     clra
9837 CF2E C3 0B C7        ...   addd #0bc7
9838 CF31 8F              .     xgdx
9839 CF32 E6 00           ..    ldab 00,x
9840 CF34 4F              O     clra
9841 CF35 FD 0B E1        ...   stad 0be1
9842 CF38 C6 04           ..    ldab #04
9843 CF3A F7 0B D7        ...   stb 0bd7
9844 CF3D C6 01           ..    ldab #01
9845 CF3F F7 0B D8        ...   stb 0bd8
9846 CF42 C6 02           ..    ldab #02
9847 CF44 F7 0B D9        ...   stb 0bd9
9848 CF47 C6 08           ..    ldab #08
9849 CF49 F7 0B DA        ...   stb 0bda
9850 CF4C C6 20           .     ldab #20
9851 CF4E F7 0B DB        ...   stb 0bdb
9852 CF51 C6 10           ..    ldab #10
9853 CF53 F7 0B DC        ...   stb 0bdc
9854 CF56 7E D0 66        ~.f   jmp d066
9855 CF59 F6 0B C5        ...   ldab 0bc5
9856 CF5C F1 0B C6        ...   cmpb 0bc6
9857 CF5F 25 53           %S    bcs 53
9858 CF61 F6 0B C6        ...   ldab 0bc6
9859 CF64 F1 0B C4        ...   cmpb 0bc4
9860 CF67 25 4B           %K    bcs 4b
9861 CF69 F6 0B C5        ...   ldab 0bc5
9862 CF6C 4F              O     clra
9863 CF6D C3 0B C7        ...   addd #0bc7
9864 CF70 8F              .     xgdx
9865 CF71 E6 00           ..    ldab 00,x
9866 CF73 4F              O     clra
9867 CF74 FD 0B DD        ...   stad 0bdd
9868 CF77 F6 0B C6        ...   ldab 0bc6
9869 CF7A 4F              O     clra
9870 CF7B C3 0B C7        ...   addd #0bc7
9871 CF7E 8F              .     xgdx
9872 CF7F E6 00           ..    ldab 00,x
9873 CF81 4F              O     clra
9874 CF82 FD 0B DF        ...   stad 0bdf
9875 CF85 F6 0B C4        ...   ldab 0bc4
9876 CF88 4F              O     clra
9877 CF89 C3 0B C7        ...   addd #0bc7
9878 CF8C 8F              .     xgdx
9879 CF8D E6 00           ..    ldab 00,x
9880 CF8F 4F              O     clra
9881 CF90 FD 0B E1        ...   stad 0be1
9882 CF93 C6 04           ..    ldab #04
9883 CF95 F7 0B D7        ...   stb 0bd7
9884 CF98 C6 02           ..    ldab #02
9885 CF9A F7 0B D8        ...   stb 0bd8
9886 CF9D C6 01           ..    ldab #01
9887 CF9F F7 0B D9        ...   stb 0bd9
9888 CFA2 C6 08           ..    ldab #08
9889 CFA4 F7 0B DA        ...   stb 0bda
9890 CFA7 C6 10           ..    ldab #10
9891 CFA9 F7 0B DB        ...   stb 0bdb
9892 CFAC C6 20           .     ldab #20
9893 CFAE F7 0B DC        ...   stb 0bdc
9894 CFB1 7E D0 66        ~.f   jmp d066
9895 CFB4 F6 0B C6        ...   ldab 0bc6
9896 CFB7 F1 0B C4        ...   cmpb 0bc4
9897 CFBA 25 52           %R    bcs 52
9898 CFBC F6 0B C4        ...   ldab 0bc4
9899 CFBF F1 0B C5        ...   cmpb 0bc5
9900 CFC2 25 4A           %J    bcs 4a
9901 CFC4 F6 0B C6        ...   ldab 0bc6
9902 CFC7 4F              O     clra
9903 CFC8 C3 0B C7        ...   addd #0bc7
9904 CFCB 8F              .     xgdx
9905 CFCC E6 00           ..    ldab 00,x
9906 CFCE 4F              O     clra
9907 CFCF FD 0B DD        ...   stad 0bdd
9908 CFD2 F6 0B C4        ...   ldab 0bc4
9909 CFD5 4F              O     clra
9910 CFD6 C3 0B C7        ...   addd #0bc7
9911 CFD9 8F              .     xgdx
9912 CFDA E6 00           ..    ldab 00,x
9913 CFDC 4F              O     clra
9914 CFDD FD 0B DF        ...   stad 0bdf
9915 CFE0 F6 0B C5        ...   ldab 0bc5
9916 CFE3 4F              O     clra
9917 CFE4 C3 0B C7        ...   addd #0bc7
9918 CFE7 8F              .     xgdx
9919 CFE8 E6 00           ..    ldab 00,x
9920 CFEA 4F              O     clra
9921 CFEB FD 0B E1        ...   stad 0be1
9922 CFEE C6 02           ..    ldab #02
9923 CFF0 F7 0B D7        ...   stb 0bd7
9924 CFF3 C6 01           ..    ldab #01
9925 CFF5 F7 0B D8        ...   stb 0bd8
9926 CFF8 C6 04           ..    ldab #04
9927 CFFA F7 0B D9        ...   stb 0bd9
9928 CFFD C6 10           ..    ldab #10
9929 CFFF F7 0B DA        ...   stb 0bda
9930 D002 C6 20           .     ldab #20
9931 D004 F7 0B DB        ...   stb 0bdb
9932 D007 C6 08           ..    ldab #08
9933 D009 F7 0B DC        ...   stb 0bdc
9934 D00C 20 58            X    bra 58
9935 D00E F6 0B C6        ...   ldab 0bc6
9936 D011 F1 0B C5        ...   cmpb 0bc5
9937 D014 25 50           %P    bcs 50
9938 D016 F6 0B C5        ...   ldab 0bc5
9939 D019 F1 0B C4        ...   cmpb 0bc4
9940 D01C 25 48           %H    bcs 48
9941 D01E F6 0B C6        ...   ldab 0bc6
9942 D021 4F              O     clra
9943 D022 C3 0B C7        ...   addd #0bc7
9944 D025 8F              .     xgdx
9945 D026 E6 00           ..    ldab 00,x
9946 D028 4F              O     clra
9947 D029 FD 0B DD        ...   stad 0bdd
9948 D02C F6 0B C5        ...   ldab 0bc5
9949 D02F 4F              O     clra
9950 D030 C3 0B C7        ...   addd #0bc7
9951 D033 8F              .     xgdx
9952 D034 E6 00           ..    ldab 00,x
9953 D036 4F              O     clra
9954 D037 FD 0B DF        ...   stad 0bdf
9955 D03A F6 0B C4        ...   ldab 0bc4
9956 D03D 4F              O     clra
9957 D03E C3 0B C7        ...   addd #0bc7
9958 D041 8F              .     xgdx
9959 D042 E6 00           ..    ldab 00,x
9960 D044 4F              O     clra
9961 D045 FD 0B E1        ...   stad 0be1
9962 D048 C6 02           ..    ldab #02
9963 D04A F7 0B D7        ...   stb 0bd7
9964 D04D C6 04           ..    ldab #04
9965 D04F F7 0B D8        ...   stb 0bd8
9966 D052 C6 01           ..    ldab #01
9967 D054 F7 0B D9        ...   stb 0bd9
9968 D057 C6 10           ..    ldab #10
9969 D059 F7 0B DA        ...   stb 0bda
9970 D05C C6 08           ..    ldab #08
9971 D05E F7 0B DB        ...   stb 0bdb
9972 D061 C6 20           .     ldab #20
9973 D063 F7 0B DC        ...   stb 0bdc
9974 D066 F6 0B AA        ...   ldab 0baa
9975 D069 4F              O     clra
9976 D06A 37              7     pshb
9977 D06B 36              6     psha
9978 D06C FC 0B DD        ...   ldd 0bdd
9979 D06F BD FB BA        ...   jsr fbba
9980 D072 FD 0B DD        ...   stad 0bdd
9981 D075 F6 0B AA        ...   ldab 0baa
9982 D078 4F              O     clra
9983 D079 37              7     pshb
9984 D07A 36              6     psha
9985 D07B FC 0B DF        ...   ldd 0bdf
9986 D07E BD FB BA        ...   jsr fbba
9987 D081 FD 0B DF        ...   stad 0bdf
9988 D084 F6 0B AA        ...   ldab 0baa
9989 D087 4F              O     clra
9990 D088 37              7     pshb
9991 D089 36              6     psha
9992 D08A FC 0B E1        ...   ldd 0be1
9993 D08D BD FB BA        ...   jsr fbba
9994 D090 FD 0B E1        ...   stad 0be1
9995 D093 39              9     rts
9996 D094 34              4     des
9997 D095 30              0     tsx
9998 D096 6F 00           o.    clr 00,x
9999 D098 30              0     tsx
10000 D099 E6 00           ..    ldab 00,x
10001 D09B C1 10           ..    cmpb #10
10002 D09D 24 1B           $.    bcc 1b
10003 D09F 30              0     tsx
10004 D0A0 E6 00           ..    ldab 00,x
10005 D0A2 4F              O     clra
10006 D0A3 C3 B0 C3        ...   addd #b0c3
10007 D0A6 8F              .     xgdx
10008 D0A7 E6 00           ..    ldab 00,x
10009 D0A9 37              7     pshb
10010 D0AA 30              0     tsx
10011 D0AB E6 01           ..    ldab 01,x
10012 D0AD 4F              O     clra
10013 D0AE C3 0B C7        ...   addd #0bc7
10014 D0B1 8F              .     xgdx
10015 D0B2 33              3     pulb
10016 D0B3 E7 00           ..    stb 00,x
10017 D0B5 30              0     tsx
10018 D0B6 6C 00           l.    inc 00,x
10019 D0B8 20 DE            .    bra de
10020 D0BA C6 05           ..    ldab #05
10021 D0BC F7 0B AA        ...   stb 0baa
10022 D0BF C6 04           ..    ldab #04
10023 D0C1 F7 00 13        ...   stb 0013
10024 D0C4 C6 01           ..    ldab #01
10025 D0C6 F7 0B C4        ...   stb 0bc4
10026 D0C9 C6 03           ..    ldab #03
10027 D0CB F7 0B C5        ...   stb 0bc5
10028 D0CE C6 02           ..    ldab #02
10029 D0D0 F7 0B C6        ...   stb 0bc6
10030 D0D3 CC 00 19        ...   ldd #0019
10031 D0D6 FD 0B DD        ...   stad 0bdd
10032 D0D9 CC 00 0A        ...   ldd #000a
10033 D0DC FD 0B DF        ...   stad 0bdf
10034 D0DF CC 00 05        ...   ldd #0005
10035 D0E2 FD 0B E1        ...   stad 0be1
10036 D0E5 C6 01           ..    ldab #01
10037 D0E7 F7 0B D7        ...   stb 0bd7
10038 D0EA C6 02           ..    ldab #02
10039 D0EC F7 0B D8        ...   stb 0bd8
10040 D0EF C6 04           ..    ldab #04
10041 D0F1 F7 0B D9        ...   stb 0bd9
10042 D0F4 C6 20           .     ldab #20
10043 D0F6 F7 0B DA        ...   stb 0bda
10044 D0F9 C6 10           ..    ldab #10
10045 D0FB F7 0B DB        ...   stb 0bdb
10046 D0FE C6 08           ..    ldab #08
10047 D100 F7 0B DC        ...   stb 0bdc
10048 D103 31              1     ins
10049 D104 39              9     rts
10050 D105 34              4     des
10051 D106 CE 00 1A        ...   ldx #001a
10052 D109 1C 00           ..    bset add,x 00,x
10053 D10B 80 F6           ..    suba #f6
10054 D10D 00              .     test
10055 D10E 1A              .     illegal
10056 D10F F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10057 D112 C6 C8           ..    ldab #c8
10058 D114 30              0     tsx
10059 D115 E7 00           ..    stb 00,x
10060 D117 30              0     tsx
10061 D118 E6 00           ..    ldab 00,x
10062 D11A C1 00           ..    cmpb #00
10063 D11C 23 05           #.    bls 05
10064 D11E 30              0     tsx
10065 D11F 6A 00           j.    dec 00,x
10066 D121 20 F4            .    bra f4
10067 D123 CE 10 00        ...   ldx #1000
10068 D126 1C 00           ..    bset add,x 00,x
10069 D128 40              @     nega
10070 D129 CE 00 14        ...   ldx #0014
10071 D12C 1D 00           ..    bclr add,x 00,x
10072 D12E 20 CE            .    bra ce
10073 D130 00              .     test
10074 D131 14              .     bset
10075 D132 1D 00           ..    bclr add,x 00,x
10076 D134 40              @     nega
10077 D135 F6 00 14        ...   ldab 0014
10078 D138 F7 38 00        .8.   stb 3800
10079 D13B 31              1     ins
10080 D13C 39              9     rts
10081 D13D F6 00 06        ...   ldab 0006
10082 D140 4F              O     clra
10083 D141 CE 00 0A        ...   ldx #000a
10084 D144 02              .     idiv
10085 D145 8F              .     xgdx
10086 D146 CB 01           ..    addb #01
10087 D148 F7 00 5F        .._   stb 005f
10088 D14B F6 00 06        ...   ldab 0006
10089 D14E 4F              O     clra
10090 D14F CE 00 0A        ...   ldx #000a
10091 D152 02              .     idiv
10092 D153 F7 00 5E        ..^   stb 005e
10093 D156 F6 00 5E        ..^   ldab 005e
10094 D159 C1 05           ..    cmpb #05
10095 D15B 23 03           #.    bls 03
10096 D15D 7A 00 5E        z.^   dec 005e
10097 D160 F6 00 5E        ..^   ldab 005e
10098 D163 4F              O     clra
10099 D164 C3 B1 23        ..#   addd #b123
10100 D167 8F              .     xgdx
10101 D168 E6 00           ..    ldab 00,x
10102 D16A 4F              O     clra
10103 D16B 37              7     pshb
10104 D16C 36              6     psha
10105 D16D F6 00 5F        .._   ldab 005f
10106 D170 4F              O     clra
10107 D171 C3 B1 23        ..#   addd #b123
10108 D174 8F              .     xgdx
10109 D175 E6 00           ..    ldab 00,x
10110 D177 4F              O     clra
10111 D178 17              .     tba
10112 D179 5F              _     clrb
10113 D17A 30              0     tsx
10114 D17B E3 00           ..    addd 00,x
10115 D17D 38              8     pulx
10116 D17E FD 00 58        ..X   stad 0058
10117 D181 7F 00 1C        ...   clr 001c
10118 D184 F6 00 1C        ...   ldab 001c
10119 D187 C1 10           ..    cmpb #10
10120 D189 24 37           $7    bcc 37
10121 D18B F6 00 58        ..X   ldab 0058
10122 D18E 2C 0E           ,.    bge 0e
10123 D190 CE 00 14        ...   ldx #0014
10124 D193 1C 00           ..    bset add,x 00,x
10125 D195 10              .     sba
10126 D196 F6 00 14        ...   ldab 0014
10127 D199 F7 38 00        .8.   stb 3800
10128 D19C 20 0C            .    bra 0c
10129 D19E CE 00 14        ...   ldx #0014
10130 D1A1 1D 00           ..    bclr add,x 00,x
10131 D1A3 10              .     sba
10132 D1A4 F6 00 14        ...   ldab 0014
10133 D1A7 F7 38 00        .8.   stb 3800
10134 D1AA CE 10 00        ...   ldx #1000
10135 D1AD 1C 00           ..    bset add,x 00,x
10136 D1AF 20 CE            .    bra ce
10137 D1B1 10              .     sba
10138 D1B2 00              .     test
10139 D1B3 1D 00           ..    bclr add,x 00,x
10140 D1B5 20 FC            .    bra fc
10141 D1B7 00              .     test
10142 D1B8 58              X     aslb
10143 D1B9 05              .     asld
10144 D1BA FD 00 58        ..X   stad 0058
10145 D1BD 7C 00 1C        |..   inc 001c
10146 D1C0 20 C2            .    bra c2
10147 D1C2 F6 00 5F        .._   ldab 005f
10148 D1C5 C1 09           ..    cmpb #09
10149 D1C7 26 0E           &.    bne 0e
10150 D1C9 CE 00 14        ...   ldx #0014
10151 D1CC 1C 00           ..    bset add,x 00,x
10152 D1CE 20 F6            .    bra f6
10153 D1D0 00              .     test
10154 D1D1 14              .     bset
10155 D1D2 F7 38 00        .8.   stb 3800
10156 D1D5 20 13            .    bra 13
10157 D1D7 F6 00 5F        .._   ldab 005f
10158 D1DA C1 0A           ..    cmpb #0a
10159 D1DC 26 0C           &.    bne 0c
10160 D1DE CE 00 14        ...   ldx #0014
10161 D1E1 1C 00           ..    bset add,x 00,x
10162 D1E3 40              @     nega
10163 D1E4 F6 00 14        ...   ldab 0014
10164 D1E7 F7 38 00        .8.   stb 3800
10165 D1EA CE 10 00        ...   ldx #1000
10166 D1ED 1D 00           ..    bclr add,x 00,x
10167 D1EF 40              @     nega
10168 D1F0 CE 00 1A        ...   ldx #001a
10169 D1F3 1D 00           ..    bclr add,x 00,x
10170 D1F5 80 F6           ..    suba #f6
10171 D1F7 00              .     test
10172 D1F8 1A              .     illegal
10173 D1F9 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10174 D1FC 39              9     rts
10175 D1FD CC 40 00        .@.   ldd #4000
10176 D200 37              7     pshb
10177 D201 36              6     psha
10178 D202 F6 00 06        ...   ldab 0006
10179 D205 4F              O     clra
10180 D206 05              .     asld
10181 D207 C3 08 00        ...   addd #0800
10182 D20A 38              8     pulx
10183 D20B 8F              .     xgdx
10184 D20C AA 00           ..    ora 00,x
10185 D20E EA 01           ..    orb 01,x
10186 D210 ED 00           ..    stad 00,x
10187 D212 39              9     rts
10188 D213 F6 00 1F        ...   ldab 001f
10189 D216 C4 04           ..    andb #04
10190 D218 26 12           &.    bne 12
10191 D21A F6 0B C0        ...   ldab 0bc0
10192 D21D C4 10           ..    andb #10
10193 D21F 26 0B           &.    bne 0b
10194 D221 CE 00 00        ...   ldx #0000
10195 D224 3C              <     pshx
10196 D225 FC 00 44        ..D   ldd 0044
10197 D228 BD BE 9E        ...   jsr be9e
10198 D22B 38              8     pulx
10199 D22C BD D3 11        ...   jsr d311
10200 D22F 83 00 00        ...   subd #0000
10201 D232 27 13           '.    beq 13
10202 D234 F6 00 06        ...   ldab 0006
10203 D237 BD D4 68        ..h   jsr d468
10204 D23A 83 00 00        ...   subd #0000
10205 D23D 27 05           '.    beq 05
10206 D23F 8D BC           ..    bsr dest bc
10207 D241 BD D6 3C        ..<   jsr d63c
10208 D244 5F              _     clrb
10209 D245 4F              O     clra
10210 D246 39              9     rts
10211 D247 BD D1 3D        ..=   jsr d13d
10212 D24A C6 3C           .<    ldab #3c
10213 D24C F7 00 2E        ...   stb 002e
10214 D24F C6 41           .A    ldab #41
10215 D251 F7 00 31        ..1   stb 0031
10216 D254 CE 00 1B        ...   ldx #001b
10217 D257 1D 00           ..    bclr add,x 00,x
10218 D259 08              .     inx
10219 D25A F6 00 1B        ...   ldab 001b
10220 D25D C4 08           ..    andb #08
10221 D25F 26 22           &"    bne 22
10222 D261 F6 00 2E        ...   ldab 002e
10223 D264 C1 35           .5    cmpb #35
10224 D266 23 10           #.    bls 10
10225 D268 BD D5 70        ..p   jsr d570
10226 D26B 83 00 00        ...   subd #0000
10227 D26E 27 06           '.    beq 06
10228 D270 CE 00 1B        ...   ldx #001b
10229 D273 1C 00           ..    bset add,x 00,x
10230 D275 08              .     inx
10231 D276 20 0B            .    bra 0b
10232 D278 BD D1 05        ...   jsr d105
10233 D27B 8D 80           ..    bsr dest 80
10234 D27D BD D6 3C        ..<   jsr d63c
10235 D280 5F              _     clrb
10236 D281 4F              O     clra
10237 D282 39              9     rts
10238 D283 F6 00 2E        ...   ldab 002e
10239 D286 C1 36           .6    cmpb #36
10240 D288 24 56           $V    bcc 56
10241 D28A BD D5 F7        ...   jsr d5f7
10242 D28D 83 00 00        ...   subd #0000
10243 D290 27 4E           'N    beq 4e
10244 D292 BD D5 B0        ...   jsr d5b0
10245 D295 83 00 00        ...   subd #0000
10246 D298 27 46           'F    beq 46
10247 D29A BD D1 05        ...   jsr d105
10248 D29D F6 00 2E        ...   ldab 002e
10249 D2A0 C1 32           .2    cmpb #32
10250 D2A2 22 07           ".    bhi 07
10251 D2A4 8D 6B           .k    bsr dest 6b
10252 D2A6 83 00 00        ...   subd #0000
10253 D2A9 27 0C           '.    beq 0c
10254 D2AB BD D1 05        ...   jsr d105
10255 D2AE BD D1 FD        ...   jsr d1fd
10256 D2B1 BD D6 3C        ..<   jsr d63c
10257 D2B4 5F              _     clrb
10258 D2B5 4F              O     clra
10259 D2B6 39              9     rts
10260 D2B7 F6 00 06        ...   ldab 0006
10261 D2BA 4F              O     clra
10262 D2BB C3 0E 06        ...   addd #0e06
10263 D2BE 8F              .     xgdx
10264 D2BF 6C 00           l.    inc 00,x
10265 D2C1 F6 00 06        ...   ldab 0006
10266 D2C4 4F              O     clra
10267 D2C5 C3 0E 06        ...   addd #0e06
10268 D2C8 8F              .     xgdx
10269 D2C9 E6 00           ..    ldab 00,x
10270 D2CB C1 64           .d    cmpb #64
10271 D2CD 23 0D           #.    bls 0d
10272 D2CF 5F              _     clrb
10273 D2D0 37              7     pshb
10274 D2D1 F6 00 06        ...   ldab 0006
10275 D2D4 4F              O     clra
10276 D2D5 C3 0E 06        ...   addd #0e06
10277 D2D8 8F              .     xgdx
10278 D2D9 33              3     pulb
10279 D2DA E7 00           ..    stb 00,x
10280 D2DC CC 00 01        ...   ldd #0001
10281 D2DF 39              9     rts
10282 D2E0 F6 00 2E        ...   ldab 002e
10283 D2E3 26 14           &.    bne 14
10284 D2E5 BD D5 F7        ...   jsr d5f7
10285 D2E8 83 00 00        ...   subd #0000
10286 D2EB 26 0C           &.    bne 0c
10287 D2ED BD D1 05        ...   jsr d105
10288 D2F0 BD D1 FD        ...   jsr d1fd
10289 D2F3 BD D6 26        ..&   jsr d626
10290 D2F6 5F              _     clrb
10291 D2F7 4F              O     clra
10292 D2F8 39              9     rts
10293 D2F9 F6 00 2E        ...   ldab 002e
10294 D2FC 26 0C           &.    bne 0c
10295 D2FE BD D1 05        ...   jsr d105
10296 D301 BD D1 FD        ...   jsr d1fd
10297 D304 BD D6 3C        ..<   jsr d63c
10298 D307 5F              _     clrb
10299 D308 4F              O     clra
10300 D309 39              9     rts
10301 D30A 7E D2 5A        ~.Z   jmp d25a
10302 D30D BD E6 1B        ...   jsr e61b
10303 D310 39              9     rts
10304 D311 BD D1 3D        ..=   jsr d13d
10305 D314 7F 00 1C        ...   clr 001c
10306 D317 7F 00 18        ...   clr 0018
10307 D31A F6 10 0A        ...   ldab 100a
10308 D31D C4 02           ..    andb #02
10309 D31F 27 13           '.    beq 13
10310 D321 7C 00 1C        |..   inc 001c
10311 D324 F6 00 1C        ...   ldab 001c
10312 D327 C1 FF           ..    cmpb #ff
10313 D329 26 07           &.    bne 07
10314 D32B BD D1 05        ...   jsr d105
10315 D32E CC 00 01        ...   ldd #0001
10316 D331 39              9     rts
10317 D332 20 10            .    bra 10
10318 D334 7C 00 18        |..   inc 0018
10319 D337 F6 00 18        ...   ldab 0018
10320 D33A C1 08           ..    cmpb #08
10321 D33C 26 06           &.    bne 06
10322 D33E BD D1 05        ...   jsr d105
10323 D341 5F              _     clrb
10324 D342 4F              O     clra
10325 D343 39              9     rts
10326 D344 20 D4            .    bra d4
10327 D346 3C              <     pshx
10328 D347 3C              <     pshx
10329 D348 3C              <     pshx
10330 D349 34              4     des
10331 D34A F6 0E 6D        ..m   ldab 0e6d
10332 D34D C1 01           ..    cmpb #01
10333 D34F 27 03           '.    beq 03
10334 D351 7E D4 07        ~..   jmp d407
10335 D354 F6 00 06        ...   ldab 0006
10336 D357 4F              O     clra
10337 D358 05              .     asld
10338 D359 C3 08 C8        ...   addd #08c8
10339 D35C 8F              .     xgdx
10340 D35D EC 00           ..    ldd 00,x
10341 D35F C4 7F           ..    andb #7f
10342 D361 4F              O     clra
10343 D362 FD 0E 6B        ..k   stad 0e6b
10344 D365 7F 00 06        ...   clr 0006
10345 D368 F6 00 06        ...   ldab 0006
10346 D36B C1 3E           .>    cmpb #3e
10347 D36D 26 03           &.    bne 03
10348 D36F 7E D4 02        ~..   jmp d402
10349 D372 BD 97 6F        ..o   jsr 976f
10350 D375 F6 00 06        ...   ldab 0006
10351 D378 4F              O     clra
10352 D379 05              .     asld
10353 D37A C3 08 C8        ...   addd #08c8
10354 D37D 8F              .     xgdx
10355 D37E EC 00           ..    ldd 00,x
10356 D380 C4 7F           ..    andb #7f
10357 D382 4F              O     clra
10358 D383 B3 0E 6B        ..k   subd 0e6b
10359 D386 26 77           &w    bne 77
10360 D388 F6 00 06        ...   ldab 0006
10361 D38B 4F              O     clra
10362 D38C CE 00 0A        ...   ldx #000a
10363 D38F 02              .     idiv
10364 D390 30              0     tsx
10365 D391 E7 01           ..    stb 01,x
10366 D393 E6 01           ..    ldab 01,x
10367 D395 C1 01           ..    cmpb #01
10368 D397 26 07           &.    bne 07
10369 D399 C6 40           .@    ldab #40
10370 D39B 30              0     tsx
10371 D39C E7 00           ..    stb 00,x
10372 D39E 20 0C            .    bra 0c
10373 D3A0 30              0     tsx
10374 D3A1 E6 01           ..    ldab 01,x
10375 D3A3 C1 02           ..    cmpb #02
10376 D3A5 26 05           &.    bne 05
10377 D3A7 C6 80           ..    ldab #80
10378 D3A9 30              0     tsx
10379 D3AA E7 00           ..    stb 00,x
10380 D3AC BD D1 3D        ..=   jsr d13d
10381 D3AF 5F              _     clrb
10382 D3B0 4F              O     clra
10383 D3B1 30              0     tsx
10384 D3B2 ED 03           ..    stad 03,x
10385 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10386 ;decrement 03/04.   Do this 10 times.
10387 D3B4 CC 00 0A        ...   ldd #000a
10388 D3B7 ED 05           ..    stad 05,x
10389 loop:
10390 D3B9 30              0     tsx
10391 D3BA EC 05           ..    ldd 05,x
10392 D3BC 2F 23           /#    ble 23
10393 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10394 D3C1 30              0     tsx
10395 D3C2 E4 00           ..    andb 00,x
10396 D3C4 26 09           &.    bne d3cf
10397 D3C6 30              0     tsx
10398 D3C7 6C 04           l.    inc 04,x
10399 D3C9 26 0C           &.    bne 0c
10400 D3CB 6C 03           l.    inc 03,x
10401 D3CD 20 08            .    bra d3d7
10402 D3CF 30              0     tsx
10403 D3D0 EC 03           ..    ldd 03,x
10404 D3D2 83 00 01        ...   subd #0001
10405 D3D5 ED 03           ..    stad 03,x
10406 D3D7 30              0     tsx
10407 D3D8 EC 05           ..    ldd 05,x
10408 D3DA 83 00 01        ...   subd #0001
10409 D3DD ED 05           ..    stad 05,x
10410 D3DF 20 D8            .    bra loop     ;d3b9
10411 D3E1 BD D1 05        ...   jsr d105
10412 D3E4 30              0     tsx
10413 D3E5 EC 03           ..    ldd 03,x
10414 D3E7 2C 16           ,.    bge 16
10415 D3E9 F6 00 06        ...   ldab 0006
10416 D3EC 8D 7A           .z    bsr dest 7a
10417 D3EE 83 00 00        ...   subd #0000
10418 D3F1 27 0C           '.    beq 0c
10419 D3F3 BD D5 61        ..a   jsr d561
10420 D3F6 83 00 00        ...   subd #0000
10421 D3F9 26 04           &.    bne 04
10422 D3FB 5F              _     clrb
10423 D3FC 4F              O     clra
10424 D3FD 20 64            d    bra 64
10425 D3FF 7E D3 68        ~.h   jmp d368
10426 D402 CC 00 01        ...   ldd #0001
10427 D405 20 5C            \    bra 5c
10428 D407 F6 00 06        ...   ldab 0006
10429 D40A C1 13           ..    cmpb #13
10430 D40C 27 1C           '.    beq 1c
10431 D40E F6 00 06        ...   ldab 0006
10432 D411 C1 1D           ..    cmpb #1d
10433 D413 27 15           '.    beq 15
10434 D415 F6 00 06        ...   ldab 0006
10435 D418 C1 27           .'    cmpb #27
10436 D41A 27 0E           '.    beq 0e
10437 D41C F6 00 06        ...   ldab 0006
10438 D41F C1 31           .1    cmpb #31
10439 D421 27 07           '.    beq 07
10440 D423 F6 00 06        ...   ldab 0006
10441 D426 C1 3B           .;    cmpb #3b
10442 D428 26 37           &7    bne 37
10443 D42A BD D1 3D        ..=   jsr d13d
10444 D42D 7F 00 1C        ...   clr 001c
10445 D430 7F 00 18        ...   clr 0018
10446 D433 F6 18 00        ...   ldab 1800
10447 D436 C4 40           .@    andb #40
10448 D438 26 14           &.    bne 14
10449 D43A 7C 00 1C        |..   inc 001c
10450 D43D F6 00 1C        ...   ldab 001c
10451 D440 C1 FF           ..    cmpb #ff
10452 D442 26 08           &.    bne 08
10453 D444 BD D1 05        ...   jsr d105
10454 D447 CC 00 01        ...   ldd #0001
10455 D44A 20 17            .    bra 17
10456 D44C 20 11            .    bra 11
10457 D44E 7C 00 18        |..   inc 0018
10458 D451 F6 00 18        ...   ldab 0018
10459 D454 C1 08           ..    cmpb #08
10460 D456 26 07           &.    bne 07
10461 D458 BD D1 05        ...   jsr d105
10462 D45B 5F              _     clrb
10463 D45C 4F              O     clra
10464 D45D 20 04            .    bra 04
10465 D45F 20 D2            .    bra d2
10466 D461 5F              _     clrb
10467 D462 4F              O     clra
10468 D463 38              8     pulx
10469 D464 38              8     pulx
10470 D465 38              8     pulx
10471 D466 31              1     ins
10472 D467 39              9     rts
10473 D468 37              7     pshb
10474 D469 30              0     tsx
10475 D46A E6 00           ..    ldab 00,x
10476 D46C 4F              O     clra
10477 D46D 05              .     asld
10478 D46E C3 08 00        ...   addd #0800
10479 D471 8F              .     xgdx
10480 D472 EC 00           ..    ldd 00,x
10481 D474 5F              _     clrb
10482 D475 84 80           ..    anda #80
10483 D477 31              1     ins
10484 D478 39              9     rts
10485 D479 7F 00 1C        ...   clr 001c
10486 D47C F6 00 1C        ...   ldab 001c
10487 D47F C1 64           .d    cmpb #64
10488 D481 24 1A           $.    bcc 1a
10489 D483 CC FF 7F        ...   ldd #ff7f
10490 D486 37              7     pshb
10491 D487 36              6     psha
10492 D488 F6 00 1C        ...   ldab 001c
10493 D48B 4F              O     clra
10494 D48C 05              .     asld
10495 D48D C3 08 C8        ...   addd #08c8
10496 D490 38              8     pulx
10497 D491 8F              .     xgdx
10498 D492 A4 00           ..    anda 00,x
10499 D494 E4 01           ..    andb 01,x
10500 D496 ED 00           ..    stad 00,x
10501 D498 7C 00 1C        |..   inc 001c
10502 D49B 20 DF            .    bra df
10503 D49D 7F 00 05        ...   clr 0005
10504 D4A0 F6 00 05        ...   ldab 0005
10505 D4A3 C1 50           .P    cmpb #50
10506 D4A5 25 03           %.    bcs 03
10507 D4A7 7E D5 60        ~.`   jmp d560
10508 D4AA F6 00 05        ...   ldab 0005
10509 D4AD 4F              O     clra
10510 D4AE C3 B0 D3        ...   addd #b0d3
10511 D4B1 8F              .     xgdx
10512 D4B2 E6 00           ..    ldab 00,x
10513 D4B4 F7 00 06        ...   stb 0006
10514 D4B7 BD D3 11        ...   jsr d311
10515 D4BA 83 00 00        ...   subd #0000
10516 D4BD 27 03           '.    beq 03
10517 D4BF 7E D5 45        ~.E   jmp d545
10518 D4C2 F6 00 06        ...   ldab 0006
10519 D4C5 BD D7 A0        ...   jsr d7a0
10520 D4C8 83 00 00        ...   subd #0000
10521 D4CB 26 78           &x    bne 78
10522 D4CD BD D5 B0        ...   jsr d5b0
10523 D4D0 83 00 00        ...   subd #0000
10524 D4D3 26 06           &.    bne 06
10525 D4D5 BD D1 FD        ...   jsr d1fd
10526 D4D8 BD D6 3C        ..<   jsr d63c
10527 D4DB CC 80 00        ...   ldd #8000
10528 D4DE 37              7     pshb
10529 D4DF 36              6     psha
10530 D4E0 F6 00 06        ...   ldab 0006
10531 D4E3 4F              O     clra
10532 D4E4 05              .     asld
10533 D4E5 C3 08 00        ...   addd #0800
10534 D4E8 38              8     pulx
10535 D4E9 8F              .     xgdx
10536 D4EA AA 00           ..    ora 00,x
10537 D4EC EA 01           ..    orb 01,x
10538 D4EE ED 00           ..    stad 00,x
10539 D4F0 F6 00 06        ...   ldab 0006
10540 D4F3 4F              O     clra
10541 D4F4 05              .     asld
10542 D4F5 C3 08 00        ...   addd #0800
10543 D4F8 8F              .     xgdx
10544 D4F9 EC 00           ..    ldd 00,x
10545 D4FB C4 FF           ..    andb #ff
10546 D4FD 84 3F           .?    anda #3f
10547 D4FF 83 27 0F        .'.   subd #270f
10548 D502 23 1A           #.    bls 1a
10549 D504 BD D1 FD        ...   jsr d1fd
10550 D507 CC 01 00        ...   ldd #0100
10551 D50A 37              7     pshb
10552 D50B 36              6     psha
10553 D50C F6 00 06        ...   ldab 0006
10554 D50F 4F              O     clra
10555 D510 05              .     asld
10556 D511 C3 08 C8        ...   addd #08c8
10557 D514 38              8     pulx
10558 D515 8F              .     xgdx
10559 D516 AA 00           ..    ora 00,x
10560 D518 EA 01           ..    orb 01,x
10561 D51A ED 00           ..    stad 00,x
10562 D51C 20 25            %    bra 25
10563 D51E F6 00 06        ...   ldab 0006
10564 D521 4F              O     clra
10565 D522 05              .     asld
10566 D523 C3 08 C8        ...   addd #08c8
10567 D526 8F              .     xgdx
10568 D527 EC 00           ..    ldd 00,x
10569 D529 C4 7F           ..    andb #7f
10570 D52B F7 00 06        ...   stb 0006
10571 D52E CC 00 80        ...   ldd #0080
10572 D531 37              7     pshb
10573 D532 36              6     psha
10574 D533 F6 00 06        ...   ldab 0006
10575 D536 4F              O     clra
10576 D537 05              .     asld
10577 D538 C3 08 C8        ...   addd #08c8
10578 D53B 38              8     pulx
10579 D53C 8F              .     xgdx
10580 D53D AA 00           ..    ora 00,x
10581 D53F EA 01           ..    orb 01,x
10582 D541 ED 00           ..    stad 00,x
10583 D543 20 15            .    bra 15
10584 D545 CC 7F FF        ...   ldd #7fff
10585 D548 37              7     pshb
10586 D549 36              6     psha
10587 D54A F6 00 06        ...   ldab 0006
10588 D54D 4F              O     clra
10589 D54E 05              .     asld
10590 D54F C3 08 00        ...   addd #0800
10591 D552 38              8     pulx
10592 D553 8F              .     xgdx
10593 D554 A4 00           ..    anda 00,x
10594 D556 E4 01           ..    andb 01,x
10595 D558 ED 00           ..    stad 00,x
10596 D55A 7C 00 05        |..   inc 0005
10597 D55D 7E D4 A0        ~..   jmp d4a0
10598 D560 39              9     rts
10599 D561 F6 00 06        ...   ldab 0006
10600 D564 4F              O     clra
10601 D565 05              .     asld
10602 D566 C3 08 00        ...   addd #0800
10603 D569 8F              .     xgdx
10604 D56A EC 00           ..    ldd 00,x
10605 D56C 5F              _     clrb
10606 D56D 84 40           .@    anda #40
10607 D56F 39              9     rts
10608
10609 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10610 ;loops, return 1 (fault?), else return 0 (OK?).
10611 ;005f is the row number in this routine.  scratch variable?
10612 ;looks like 0006 is the slot number.
10613 ;this is called twice
10614 D570 F6 00 06        ...   ldab 0006
10615 D573 4F              O     clra
10616 D574 CE 00 0A        ...   ldx #000a
10617 D577 02              .     idiv
10618 D578 F7 00 5F        .._   stb 005f
10619 D57B F6 00 5F        .._   ldab 005f
10620 D57E C1 05           ..    cmpb #05
10621 D580 23 03           #.    bls d585
10622 D582 7A 00 5F        z._   dec 005f
10623 D585 F6 00 5F        .._   ldab 005f    ;row number
10624 D588 4F              O     clra
10625 D589 C3 B1 23        ..#   addd #b123
10626 D58C 8F              .     xgdx
10627 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10628 D58F F7 00 5E        ..^   stb 005e
10629 D592 7F 00 1C        ...   clr 001c
10630 loop:
10631 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10632 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10633 D59B 27 10           '.    beq d5ad
10634 D59D 7C 00 1C        |..   inc 001c
10635 D5A0 F6 00 1C        ...   ldab 001c
10636 D5A3 C1 05           ..    cmpb #05
10637 D5A5 26 04           &.    bne d5ab
10638 D5A7 CC 00 01        ...   ldd #0001
10639 D5AA 39              9     rts
10640 D5AB 20 E8            .    bra loop     ;d595
10641 D5AD 5F              _     clrb
10642 D5AE 4F              O     clra
10643 D5AF 39              9     rts
10644
10645 ;This does almost the same - check the home sensor for this row (slot number
10646 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
10647 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
10648 ;If it is ever 0, return 0.
10649 ;005f is the row number
10650 ;005e is the bit mask for this row
10651 D5B0 F6 00 06        ...   ldab 0006
10652 D5B3 4F              O     clra
10653 D5B4 CE 00 0A        ...   ldx #000a
10654 D5B7 02              .     idiv
10655 D5B8 F7 00 5F        .._   stb 005f
10656 D5BB F6 00 5F        .._   ldab 005f
10657 D5BE C1 05           ..    cmpb #05
10658 D5C0 23 03           #.    bls 03
10659 D5C2 7A 00 5F        z._   dec 005f
10660 D5C5 F6 00 5F        .._   ldab 005f
10661 D5C8 4F              O     clra
10662 D5C9 C3 B1 23        ..#   addd #b123
10663 D5CC 8F              .     xgdx
10664 D5CD E6 00           ..    ldab 00,x
10665 D5CF F7 00 5E        ..^   stb 005e
10666 D5D2 7F 00 1C        ...   clr 001c
10667 loop:
10668 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10669 D5D8 F4 00 5E        ..^   andb 005e
10670 D5DB 26 17           &.    bne d5f4
10671 D5DD F6 10 0A        ...   ldab 100a
10672 D5E0 C4 01           ..    andb #01
10673 D5E2 27 10           '.    beq d5f4
10674 D5E4 7C 00 1C        |..   inc 001c
10675 D5E7 F6 00 1C        ...   ldab 001c
10676 D5EA C1 05           ..    cmpb #05
10677 D5EC 26 04           &.    bne d5f2
10678 D5EE CC 00 01        ...   ldd #0001
10679 D5F1 39              9     rts
10680 D5F2 20 E1            .    bra loop     ;d5d5
10681 D5F4 5F              _     clrb
10682 D5F5 4F              O     clra
10683 D5F6 39              9     rts
10684
10685 D5F7 C6 07           ..    ldab #07
10686 D5F9 F7 00 1C        ...   stb 001c
10687 D5FC 7F 00 18        ...   clr 0018
10688 D5FF F6 00 1C        ...   ldab 001c
10689 D602 27 1E           '.    beq 1e
10690 D604 7A 00 1C        z..   dec 001c
10691 D607 F6 10 0A        ...   ldab 100a
10692 D60A C4 01           ..    andb #01
10693 D60C 26 12           &.    bne 12
10694 D60E C6 07           ..    ldab #07
10695 D610 F7 00 1C        ...   stb 001c
10696 D613 7C 00 18        |..   inc 0018
10697 D616 F6 00 18        ...   ldab 0018
10698 D619 C1 05           ..    cmpb #05
10699 D61B 26 03           &.    bne 03
10700 D61D 5F              _     clrb
10701 D61E 4F              O     clra
10702 D61F 39              9     rts
10703 D620 20 DD            .    bra dd
10704 D622 CC 00 01        ...   ldd #0001
10705 D625 39              9     rts
10706 D626 CC 02 00        ...   ldd #0200
10707 D629 37              7     pshb
10708 D62A 36              6     psha
10709 D62B F6 00 06        ...   ldab 0006
10710 D62E 4F              O     clra
10711 D62F 05              .     asld
10712 D630 C3 08 C8        ...   addd #08c8
10713 D633 38              8     pulx
10714 D634 8F              .     xgdx
10715 D635 AA 00           ..    ora 00,x
10716 D637 EA 01           ..    orb 01,x
10717 D639 ED 00           ..    stad 00,x
10718 D63B 39              9     rts
10719 D63C CC 04 00        ...   ldd #0400
10720 D63F 37              7     pshb
10721 D640 36              6     psha
10722 D641 F6 00 06        ...   ldab 0006
10723 D644 4F              O     clra
10724 D645 05              .     asld
10725 D646 C3 08 C8        ...   addd #08c8
10726 D649 38              8     pulx
10727 D64A 8F              .     xgdx
10728 D64B AA 00           ..    ora 00,x
10729 D64D EA 01           ..    orb 01,x
10730 D64F ED 00           ..    stad 00,x
10731 D651 39              9     rts
10732 D652 CE 00 1A        ...   ldx #001a
10733 D655 1C 00           ..    bset add,x 00,x
10734 D657 01              .     nop
10735 D658 F6 00 1A        ...   ldab 001a
10736 D65B F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10737 D65E CE 00 14        ...   ldx #0014
10738 D661 1D 00           ..    bclr add,x 00,x
10739 D663 01              .     nop
10740 D664 F6 00 14        ...   ldab 0014
10741 D667 F7 38 00        .8.   stb 3800
10742 D66A 39              9     rts
10743 D66B F6 0B C0        ...   ldab 0bc0
10744 D66E C4 08           ..    andb #08
10745 D670 27 07           '.    beq 07
10746 D672 F6 00 7D        ..}   ldab 007d
10747 D675 27 02           '.    beq 02
10748 D677 20 F9            .    bra f9
10749 D679 F6 00 15        ...   ldab 0015
10750 D67C 2D 77           -w    blt 77
10751 D67E FC 00 40        ..@   ldd 0040
10752 D681 F3 00 3E        ..>   addd 003e
10753 D684 B3 00 0F        ...   subd 000f
10754 D687 24 4F           $O    bcc 4f
10755 D689 F6 0B C0        ...   ldab 0bc0
10756 D68C C4 01           ..    andb #01
10757 D68E 26 07           &.    bne 07
10758 D690 F6 0B C0        ...   ldab 0bc0
10759 D693 C4 04           ..    andb #04
10760 D695 27 0C           '.    beq 0c
10761 D697 CE 00 1A        ...   ldx #001a
10762 D69A 1D 00           ..    bclr add,x 00,x
10763 D69C 01              .     nop
10764 D69D F6 00 1A        ...   ldab 001a
10765 D6A0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10766 D6A3 F6 0B C0        ...   ldab 0bc0
10767 D6A6 C4 08           ..    andb #08
10768 D6A8 27 20           '     beq 20
10769 D6AA F6 0C D9        ...   ldab 0cd9
10770 D6AD C1 03           ..    cmpb #03
10771 D6AF 23 19           #.    bls 19
10772 D6B1 FC 0B EF        ...   ldd 0bef
10773 D6B4 83 00 64        ..d   subd #0064
10774 D6B7 25 11           %.    bcs 11
10775 D6B9 CE 00 14        ...   ldx #0014
10776 D6BC 1C 00           ..    bset add,x 00,x
10777 D6BE 02              .     idiv
10778 D6BF F6 00 14        ...   ldab 0014
10779 D6C2 F7 38 00        .8.   stb 3800
10780 D6C5 BD C0 E0        ...   jsr c0e0
10781 D6C8 20 0C            .    bra 0c
10782 D6CA CE 00 14        ...   ldx #0014
10783 D6CD 1D 00           ..    bclr add,x 00,x
10784 D6CF 01              .     nop
10785 D6D0 F6 00 14        ...   ldab 0014
10786 D6D3 F7 38 00        .8.   stb 3800
10787 D6D6 20 05            .    bra 05
10788 D6D8 BD D6 52        ..R   jsr d652
10789 D6DB 8D 53           .S    bsr dest 53
10790 D6DD F6 0B C0        ...   ldab 0bc0
10791 D6E0 C4 08           ..    andb #08
10792 D6E2 27 11           '.    beq 11
10793 D6E4 F6 0B C0        ...   ldab 0bc0
10794 D6E7 C4 40           .@    andb #40
10795 D6E9 27 0A           '.    beq 0a
10796 D6EB F6 00 15        ...   ldab 0015
10797 D6EE C4 01           ..    andb #01
10798 D6F0 27 03           '.    beq 03
10799 D6F2 BD C0 E0        ...   jsr c0e0
10800 D6F5 39              9     rts
10801 D6F6 F6 0C DB        ...   ldab 0cdb
10802 D6F9 4F              O     clra
10803 D6FA 37              7     pshb
10804 D6FB 36              6     psha
10805 D6FC FC 0B DD        ...   ldd 0bdd
10806 D6FF BD FB BA        ...   jsr fbba
10807 D702 FD 0C EB        ...   stad 0ceb
10808 D705 F6 0C DA        ...   ldab 0cda
10809 D708 4F              O     clra
10810 D709 37              7     pshb
10811 D70A 36              6     psha
10812 D70B FC 0B DF        ...   ldd 0bdf
10813 D70E BD FB BA        ...   jsr fbba
10814 D711 FD 0C ED        ...   stad 0ced
10815 D714 F6 0C D9        ...   ldab 0cd9
10816 D717 4F              O     clra
10817 D718 37              7     pshb
10818 D719 36              6     psha
10819 D71A FC 0B E1        ...   ldd 0be1
10820 D71D BD FB BA        ...   jsr fbba
10821 D720 FD 0C EF        ...   stad 0cef
10822 D723 FC 0C EB        ...   ldd 0ceb
10823 D726 F3 0C ED        ...   addd 0ced
10824 D729 F3 0C EF        ...   addd 0cef
10825 D72C FD 0B EF        ...   stad 0bef
10826 D72F 39              9     rts
10827 D730 F6 00 15        ...   ldab 0015
10828 D733 C4 1F           ..    andb #1f
10829 D735 27 49           'I    beq 49
10830 D737 FC 00 40        ..@   ldd 0040
10831 D73A F3 00 3E        ..>   addd 003e
10832 D73D B3 0B EF        ...   subd 0bef
10833 D740 23 19           #.    bls 19
10834 D742 CC B0 6B        ..k   ldd #b06b
10835 D745 BD C0 BA        ...   jsr c0ba
10836 D748 CC 01 F4        ...   ldd #01f4
10837 D74B BD E5 71        ..q   jsr e571
10838 D74E BD C5 D3        ...   jsr c5d3
10839 D751 CC 01 F4        ...   ldd #01f4
10840 D754 BD E5 71        ..q   jsr e571
10841 D757 CC 00 01        ...   ldd #0001
10842 D75A 39              9     rts
10843 D75B F6 00 15        ...   ldab 0015
10844 D75E C4 04           ..    andb #04
10845 D760 27 1E           '.    beq 1e
10846 D762 F6 0E 6E        ..n   ldab 0e6e
10847 D765 26 19           &.    bne 19
10848 D767 CC B0 76        ..v   ldd #b076
10849 D76A BD C0 BA        ...   jsr c0ba
10850 D76D CC 01 F4        ...   ldd #01f4
10851 D770 BD E5 71        ..q   jsr e571
10852 D773 BD C5 D3        ...   jsr c5d3
10853 D776 CC 01 F4        ...   ldd #01f4
10854 D779 BD E5 71        ..q   jsr e571
10855 D77C CC 00 01        ...   ldd #0001
10856 D77F 39              9     rts
10857 D780 5F              _     clrb
10858 D781 4F              O     clra
10859 D782 39              9     rts
10860 D783 F6 00 06        ...   ldab 0006
10861 D786 4F              O     clra
10862 D787 CE 00 0A        ...   ldx #000a
10863 D78A 02              .     idiv
10864 D78B C1 04           ..    cmpb #04
10865 D78D 26 0E           &.    bne 0e
10866 D78F F6 00 1D        ...   ldab 001d
10867 D792 C4 04           ..    andb #04
10868 D794 27 03           '.    beq 03
10869 D796 5F              _     clrb
10870 D797 4F              O     clra
10871 D798 39              9     rts
10872 D799 CC 00 01        ...   ldd #0001
10873 D79C 39              9     rts
10874 D79D 5F              _     clrb
10875 D79E 4F              O     clra
10876 D79F 39              9     rts
10877 D7A0 37              7     pshb
10878 D7A1 30              0     tsx
10879 D7A2 E6 00           ..    ldab 00,x
10880 D7A4 C1 09           ..    cmpb #09
10881 D7A6 27 18           '.    beq 18
10882 D7A8 E6 00           ..    ldab 00,x
10883 D7AA C1 45           .E    cmpb #45
10884 D7AC 27 12           '.    beq 12
10885 D7AE E6 00           ..    ldab 00,x
10886 D7B0 C1 4F           .O    cmpb #4f
10887 D7B2 27 0C           '.    beq 0c
10888 D7B4 E6 00           ..    ldab 00,x
10889 D7B6 C1 59           .Y    cmpb #59
10890 D7B8 27 06           '.    beq 06
10891 D7BA E6 00           ..    ldab 00,x
10892 D7BC C1 63           .c    cmpb #63
10893 D7BE 26 05           &.    bne 05
10894 D7C0 CC 00 01        ...   ldd #0001
10895 D7C3 20 38            8    bra 38
10896 D7C5 F6 0E 6D        ..m   ldab 0e6d
10897 D7C8 C1 01           ..    cmpb #01
10898 D7CA 26 2F           &/    bne 2f
10899 D7CC 30              0     tsx
10900 D7CD E6 00           ..    ldab 00,x
10901 D7CF 4F              O     clra
10902 D7D0 CE 00 0A        ...   ldx #000a
10903 D7D3 02              .     idiv
10904 D7D4 C1 01           ..    cmpb #01
10905 D7D6 27 11           '.    beq 11
10906 D7D8 30              0     tsx
10907 D7D9 E6 00           ..    ldab 00,x
10908 D7DB 4F              O     clra
10909 D7DC CE 00 0A        ...   ldx #000a
10910 D7DF 02              .     idiv
10911 D7E0 C1 02           ..    cmpb #02
10912 D7E2 27 05           '.    beq 05
10913 D7E4 CC 00 01        ...   ldd #0001
10914 D7E7 20 14            .    bra 14
10915 D7E9 30              0     tsx
10916 D7EA E6 00           ..    ldab 00,x
10917 D7EC C1 0B           ..    cmpb #0b
10918 D7EE 25 06           %.    bcs 06
10919 D7F0 E6 00           ..    ldab 00,x
10920 D7F2 C1 3E           .>    cmpb #3e
10921 D7F4 23 05           #.    bls 05
10922 D7F6 CC 00 01        ...   ldd #0001
10923 D7F9 20 02            .    bra 02
10924 D7FB 5F              _     clrb
10925 D7FC 4F              O     clra
10926 D7FD 31              1     ins
10927 D7FE 39              9     rts
10928 D7FF 7F 00 1C        ...   clr 001c
10929 D802 F6 00 1C        ...   ldab 001c
10930 D805 4F              O     clra
10931 D806 B3 00 4D        ..M   subd 004d
10932 D809 24 05           $.    bcc 05
10933 D80B 7C 00 1C        |..   inc 001c
10934 D80E 20 F2            .    bra f2
10935 D810 F6 00 1C        ...   ldab 001c
10936 D813 4F              O     clra
10937 D814 05              .     asld
10938 D815 C3 0D 1F        ...   addd #0d1f
10939 D818 8F              .     xgdx
10940 D819 EC 00           ..    ldd 00,x
10941 D81B 83 FF FF        ...   subd #ffff
10942 D81E 26 10           &.    bne 10
10943 D820 5F              _     clrb
10944 D821 4F              O     clra
10945 D822 37              7     pshb
10946 D823 36              6     psha
10947 D824 F6 00 1C        ...   ldab 001c
10948 D827 4F              O     clra
10949 D828 05              .     asld
10950 D829 C3 0D 1F        ...   addd #0d1f
10951 D82C 38              8     pulx
10952 D82D 8F              .     xgdx
10953 D82E ED 00           ..    stad 00,x
10954 D830 F6 00 1C        ...   ldab 001c
10955 D833 4F              O     clra
10956 D834 05              .     asld
10957 D835 C3 0D 1F        ...   addd #0d1f
10958 D838 8F              .     xgdx
10959 D839 6C 01           l.    inc 01,x
10960 D83B 26 02           &.    bne 02
10961 D83D 6C 00           l.    inc 00,x
10962 D83F 39              9     rts
10963 D840 FC 00 44        ..D   ldd 0044
10964 D843 26 03           &.    bne 03
10965 D845 7E D8 D2        ~..   jmp d8d2
10966 D848 FC 00 44        ..D   ldd 0044
10967 D84B 37              7     pshb
10968 D84C 36              6     psha
10969 D84D 4F              O     clra
10970 D84E 5F              _     clrb
10971 D84F 37              7     pshb
10972 D850 36              6     psha
10973 D851 CC 0D EB        ...   ldd #0deb
10974 D854 BD FB DF        ...   jsr fbdf
10975 D857 31              1     ins
10976 D858 31              1     ins
10977 D859 FE 0D ED        ...   ldx 0ded
10978 D85C 3C              <     pshx
10979 D85D FC 0D EB        ...   ldd 0deb
10980 D860 37              7     pshb
10981 D861 36              6     psha
10982 D862 CE E1 00        ...   ldx #e100
10983 D865 3C              <     pshx
10984 D866 CC 05 F5        ...   ldd #05f5
10985 D869 37              7     pshb
10986 D86A 36              6     psha
10987 D86B 30              0     tsx
10988 D86C EC 06           ..    ldd 06,x
10989 D86E A3 02           ..    subd 02,x
10990 D870 EC 04           ..    ldd 04,x
10991 D872 E2 01           ..    sbcb 01,x
10992 D874 A2 00           ..    sbca 00,x
10993 D876 38              8     pulx
10994 D877 38              8     pulx
10995 D878 38              8     pulx
10996 D879 38              8     pulx
10997 D87A 25 11           %.    bcs 11
10998 D87C CE 1F 00        ...   ldx #1f00
10999 D87F 3C              <     pshx
11000 D880 CC FA 0A        ...   ldd #fa0a
11001 D883 37              7     pshb
11002 D884 36              6     psha
11003 D885 CC 0D EB        ...   ldd #0deb
11004 D888 BD FB DF        ...   jsr fbdf
11005 D88B 31              1     ins
11006 D88C 31              1     ins
11007 D88D FC 00 44        ..D   ldd 0044
11008 D890 37              7     pshb
11009 D891 36              6     psha
11010 D892 4F              O     clra
11011 D893 5F              _     clrb
11012 D894 37              7     pshb
11013 D895 36              6     psha
11014 D896 CC 0D E7        ...   ldd #0de7
11015 D899 BD FB DF        ...   jsr fbdf
11016 D89C 31              1     ins
11017 D89D 31              1     ins
11018 D89E FE 0D E9        ...   ldx 0de9
11019 D8A1 3C              <     pshx
11020 D8A2 FC 0D E7        ...   ldd 0de7
11021 D8A5 37              7     pshb
11022 D8A6 36              6     psha
11023 D8A7 CE E1 00        ...   ldx #e100
11024 D8AA 3C              <     pshx
11025 D8AB CC 05 F5        ...   ldd #05f5
11026 D8AE 37              7     pshb
11027 D8AF 36              6     psha
11028 D8B0 30              0     tsx
11029 D8B1 EC 06           ..    ldd 06,x
11030 D8B3 A3 02           ..    subd 02,x
11031 D8B5 EC 04           ..    ldd 04,x
11032 D8B7 E2 01           ..    sbcb 01,x
11033 D8B9 A2 00           ..    sbca 00,x
11034 D8BB 38              8     pulx
11035 D8BC 38              8     pulx
11036 D8BD 38              8     pulx
11037 D8BE 38              8     pulx
11038 D8BF 25 11           %.    bcs 11
11039 D8C1 CE 1F 00        ...   ldx #1f00
11040 D8C4 3C              <     pshx
11041 D8C5 CC FA 0A        ...   ldd #fa0a
11042 D8C8 37              7     pshb
11043 D8C9 36              6     psha
11044 D8CA CC 0D E7        ...   ldd #0de7
11045 D8CD BD FB DF        ...   jsr fbdf
11046 D8D0 31              1     ins
11047 D8D1 31              1     ins
11048 D8D2 39              9     rts
11049 D8D3 7F 00 18        ...   clr 0018
11050 D8D6 F6 00 18        ...   ldab 0018
11051 D8D9 C1 10           ..    cmpb #10
11052 D8DB 24 0B           $.    bcc 0b
11053 D8DD CC 00 32        ..2   ldd #0032
11054 D8E0 BD E5 71        ..q   jsr e571
11055 D8E3 7C 00 18        |..   inc 0018
11056 D8E6 20 EE            .    bra ee
11057 D8E8 39              9     rts
11058 D8E9 F6 00 2B        ..+   ldab 002b
11059 D8EC C1 00           ..    cmpb #00
11060 D8EE 26 18           &.    bne 18
11061 D8F0 CC AD 84        ...   ldd #ad84
11062 D8F3 BD C0 BA        ...   jsr c0ba
11063 D8F6 8D DB           ..    bsr dest db
11064 D8F8 CC AD 8F        ...   ldd #ad8f
11065 D8FB BD C0 BA        ...   jsr c0ba
11066 D8FE 8D D3           ..    bsr dest d3
11067 D900 CC AD 9A        ...   ldd #ad9a
11068 D903 BD C0 BA        ...   jsr c0ba
11069 D906 20 4E            N    bra 4e
11070 D908 C1 01           ..    cmpb #01
11071 D90A 26 18           &.    bne 18
11072 D90C CC AD 63        ..c   ldd #ad63
11073 D90F BD C0 BA        ...   jsr c0ba
11074 D912 8D BF           ..    bsr dest bf
11075 D914 CC AD 6E        ..n   ldd #ad6e
11076 D917 BD C0 BA        ...   jsr c0ba
11077 D91A 8D B7           ..    bsr dest b7
11078 D91C CC AD 79        ..y   ldd #ad79
11079 D91F BD C0 BA        ...   jsr c0ba
11080 D922 20 32            2    bra 32
11081 D924 C1 02           ..    cmpb #02
11082 D926 26 18           &.    bne 18
11083 D928 CC AD 42        ..B   ldd #ad42
11084 D92B BD C0 BA        ...   jsr c0ba
11085 D92E 8D A3           ..    bsr dest a3
11086 D930 CC AD 4D        ..M   ldd #ad4d
11087 D933 BD C0 BA        ...   jsr c0ba
11088 D936 8D 9B           ..    bsr dest 9b
11089 D938 CC AD 58        ..X   ldd #ad58
11090 D93B BD C0 BA        ...   jsr c0ba
11091 D93E 20 16            .    bra 16
11092 D940 CC AD 21        ..!   ldd #ad21
11093 D943 BD C0 BA        ...   jsr c0ba
11094 D946 8D 8B           ..    bsr dest 8b
11095 D948 CC AD 2C        ..,   ldd #ad2c
11096 D94B BD C0 BA        ...   jsr c0ba
11097 D94E 8D 83           ..    bsr dest 83
11098 D950 CC AD 37        ..7   ldd #ad37
11099 D953 BD C0 BA        ...   jsr c0ba
11100 D956 BD D8 D3        ...   jsr d8d3
11101 D959 39              9     rts
11102 D95A F6 00 06        ...   ldab 0006
11103 D95D F1 0B AF        ...   cmpb 0baf
11104 D960 26 0D           &.    bne 0d
11105 D962 BD D7 FF        ...   jsr d7ff
11106 D965 F6 0B B4        ...   ldab 0bb4
11107 D968 F7 00 06        ...   stb 0006
11108 D96B 8D 55           .U    bsr dest 55
11109 D96D 20 52            R    bra 52
11110 D96F F6 00 06        ...   ldab 0006
11111 D972 F1 0B AE        ...   cmpb 0bae
11112 D975 26 0D           &.    bne 0d
11113 D977 BD D7 FF        ...   jsr d7ff
11114 D97A F6 0B B3        ...   ldab 0bb3
11115 D97D F7 00 06        ...   stb 0006
11116 D980 8D 40           .@    bsr dest 40
11117 D982 20 3D            =    bra 3d
11118 D984 F6 00 06        ...   ldab 0006
11119 D987 F1 0B AD        ...   cmpb 0bad
11120 D98A 26 0D           &.    bne 0d
11121 D98C BD D7 FF        ...   jsr d7ff
11122 D98F F6 0B B2        ...   ldab 0bb2
11123 D992 F7 00 06        ...   stb 0006
11124 D995 8D 2B           .+    bsr dest 2b
11125 D997 20 28            (    bra 28
11126 D999 F6 00 06        ...   ldab 0006
11127 D99C F1 0B AC        ...   cmpb 0bac
11128 D99F 26 0D           &.    bne 0d
11129 D9A1 BD D7 FF        ...   jsr d7ff
11130 D9A4 F6 0B B1        ...   ldab 0bb1
11131 D9A7 F7 00 06        ...   stb 0006
11132 D9AA 8D 16           ..    bsr dest 16
11133 D9AC 20 13            .    bra 13
11134 D9AE F6 00 06        ...   ldab 0006
11135 D9B1 F1 0B AB        ...   cmpb 0bab
11136 D9B4 26 0B           &.    bne 0b
11137 D9B6 BD D7 FF        ...   jsr d7ff
11138 D9B9 F6 0B B0        ...   ldab 0bb0
11139 D9BC F7 00 06        ...   stb 0006
11140 D9BF 8D 01           ..    bsr dest 01
11141 D9C1 39              9     rts
11142 D9C2 CC 03 E8        ...   ldd #03e8
11143 D9C5 BD E5 71        ..q   jsr e571
11144 D9C8 BD D7 83        ...   jsr d783
11145 D9CB 83 00 00        ...   subd #0000
11146 D9CE 27 0B           '.    beq 0b
11147 D9D0 7F 00 06        ...   clr 0006
11148 D9D3 5F              _     clrb
11149 D9D4 4F              O     clra
11150 D9D5 FD 00 4D        ..M   stad 004d
11151 D9D8 7E DA 63        ~.c   jmp da63
11152 D9DB BD D2 13        ...   jsr d213
11153 D9DE 83 00 00        ...   subd #0000
11154 D9E1 26 0A           &.    bne 0a
11155 D9E3 7F 00 06        ...   clr 0006
11156 D9E6 5F              _     clrb
11157 D9E7 4F              O     clra
11158 D9E8 FD 00 4D        ..M   stad 004d
11159 D9EB 20 76            v    bra 76
11160 D9ED FC 0D 0B        ...   ldd 0d0b
11161 D9F0 83 FF FF        ...   subd #ffff
11162 D9F3 26 05           &.    bne 05
11163 D9F5 5F              _     clrb
11164 D9F6 4F              O     clra
11165 D9F7 FD 0D 0B        ...   stad 0d0b
11166 D9FA FE 0D 0B        ...   ldx 0d0b
11167 D9FD 08              .     inx
11168 D9FE FF 0D 0B        ...   stx 0d0b
11169 DA01 F6 00 06        ...   ldab 0006
11170 DA04 4F              O     clra
11171 DA05 05              .     asld
11172 DA06 C3 08 C8        ...   addd #08c8
11173 DA09 8F              .     xgdx
11174 DA0A EC 00           ..    ldd 00,x
11175 DA0C C4 7F           ..    andb #7f
11176 DA0E 4F              O     clra
11177 DA0F FD 00 4D        ..M   stad 004d
11178 DA12 F6 00 06        ...   ldab 0006
11179 DA15 4F              O     clra
11180 DA16 05              .     asld
11181 DA17 C3 08 00        ...   addd #0800
11182 DA1A 8F              .     xgdx
11183 DA1B EC 00           ..    ldd 00,x
11184 DA1D C4 FF           ..    andb #ff
11185 DA1F 84 3F           .?    anda #3f
11186 DA21 37              7     pshb
11187 DA22 36              6     psha
11188 DA23 4F              O     clra
11189 DA24 5F              _     clrb
11190 DA25 37              7     pshb
11191 DA26 36              6     psha
11192 DA27 CC 0D 17        ...   ldd #0d17
11193 DA2A BD FB DF        ...   jsr fbdf
11194 DA2D 31              1     ins
11195 DA2E 31              1     ins
11196 DA2F FE 0D 19        ...   ldx 0d19
11197 DA32 3C              <     pshx
11198 DA33 FC 0D 17        ...   ldd 0d17
11199 DA36 37              7     pshb
11200 DA37 36              6     psha
11201 DA38 CE E1 00        ...   ldx #e100
11202 DA3B 3C              <     pshx
11203 DA3C CC 05 F5        ...   ldd #05f5
11204 DA3F 37              7     pshb
11205 DA40 36              6     psha
11206 DA41 30              0     tsx
11207 DA42 EC 06           ..    ldd 06,x
11208 DA44 A3 02           ..    subd 02,x
11209 DA46 EC 04           ..    ldd 04,x
11210 DA48 E2 01           ..    sbcb 01,x
11211 DA4A A2 00           ..    sbca 00,x
11212 DA4C 38              8     pulx
11213 DA4D 38              8     pulx
11214 DA4E 38              8     pulx
11215 DA4F 38              8     pulx
11216 DA50 25 11           %.    bcs 11
11217 DA52 CE 1F 00        ...   ldx #1f00
11218 DA55 3C              <     pshx
11219 DA56 CC FA 0A        ...   ldd #fa0a
11220 DA59 37              7     pshb
11221 DA5A 36              6     psha
11222 DA5B CC 0D 17        ...   ldd #0d17
11223 DA5E BD FB DF        ...   jsr fbdf
11224 DA61 31              1     ins
11225 DA62 31              1     ins
11226 DA63 39              9     rts
11227 DA64 FE 0B B9        ...   ldx 0bb9
11228 DA67 08              .     inx
11229 DA68 FF 0B B9        ...   stx 0bb9
11230 DA6B FC 0B B5        ...   ldd 0bb5
11231 DA6E CE 00 32        ..2   ldx #0032
11232 DA71 02              .     idiv
11233 DA72 8F              .     xgdx
11234 DA73 37              7     pshb
11235 DA74 36              6     psha
11236 DA75 CC 00 C3        ...   ldd #00c3
11237 DA78 BD FB BA        ...   jsr fbba
11238 DA7B B3 0B B9        ...   subd 0bb9
11239 DA7E 24 05           $.    bcc 05
11240 DA80 5F              _     clrb
11241 DA81 4F              O     clra
11242 DA82 FD 0B B9        ...   stad 0bb9
11243 DA85 FC 0B B9        ...   ldd 0bb9
11244 DA88 37              7     pshb
11245 DA89 36              6     psha
11246 DA8A CC 00 0A        ...   ldd #000a
11247 DA8D BD FB BA        ...   jsr fbba
11248 DA90 37              7     pshb
11249 DA91 36              6     psha
11250 DA92 FC 0B B5        ...   ldd 0bb5
11251 DA95 CE 00 32        ..2   ldx #0032
11252 DA98 02              .     idiv
11253 DA99 8F              .     xgdx
11254 DA9A 38              8     pulx
11255 DA9B 8F              .     xgdx
11256 DA9C 02              .     idiv
11257 DA9D 8F              .     xgdx
11258 DA9E 37              7     pshb
11259 DA9F 36              6     psha
11260 DAA0 CC 00 0A        ...   ldd #000a
11261 DAA3 BD FB BA        ...   jsr fbba
11262 DAA6 CE 00 0A        ...   ldx #000a
11263 DAA9 02              .     idiv
11264 DAAA 8F              .     xgdx
11265 DAAB FD 00 4A        ..J   stad 004a
11266 DAAE FC 00 4A        ..J   ldd 004a
11267 DAB1 BD FE 32        ..2   jsr fe32
11268 DAB4 DA CA 00        ...   orab ca
11269 DAB7 6E DA           n.    jmp da,x
11270 DAB9 CA 02           ..    orab #02
11271 DABB 80 DA           ..    suba #da
11272 DABD CA 01           ..    orab #01
11273 DABF C2 DA           ..    sbcb #da
11274 DAC1 CA 01           ..    orab #01
11275 DAC3 C2 DB           ..    sbcb #db
11276 DAC5 43              C     coma
11277 DAC6 F9 8E 00        ...   adcb 8e00
11278 DAC9 00              .     test
11279 DACA FC 0D 07        ...   ldd 0d07
11280 DACD 83 FF FF        ...   subd #ffff
11281 DAD0 26 05           &.    bne 05
11282 DAD2 5F              _     clrb
11283 DAD3 4F              O     clra
11284 DAD4 FD 0D 07        ...   stad 0d07
11285 DAD7 FE 0D 07        ...   ldx 0d07
11286 DADA 08              .     inx
11287 DADB FF 0D 07        ...   stx 0d07
11288 DADE F6 00 06        ...   ldab 0006
11289 DAE1 4F              O     clra
11290 DAE2 05              .     asld
11291 DAE3 C3 08 00        ...   addd #0800
11292 DAE6 8F              .     xgdx
11293 DAE7 EC 00           ..    ldd 00,x
11294 DAE9 C4 FF           ..    andb #ff
11295 DAEB 84 3F           .?    anda #3f
11296 DAED 37              7     pshb
11297 DAEE 36              6     psha
11298 DAEF 4F              O     clra
11299 DAF0 5F              _     clrb
11300 DAF1 37              7     pshb
11301 DAF2 36              6     psha
11302 DAF3 CC 0D 0F        ...   ldd #0d0f
11303 DAF6 BD FB DF        ...   jsr fbdf
11304 DAF9 31              1     ins
11305 DAFA 31              1     ins
11306 DAFB FE 0D 11        ...   ldx 0d11
11307 DAFE 3C              <     pshx
11308 DAFF FC 0D 0F        ...   ldd 0d0f
11309 DB02 37              7     pshb
11310 DB03 36              6     psha
11311 DB04 CE E1 00        ...   ldx #e100
11312 DB07 3C              <     pshx
11313 DB08 CC 05 F5        ...   ldd #05f5
11314 DB0B 37              7     pshb
11315 DB0C 36              6     psha
11316 DB0D 30              0     tsx
11317 DB0E EC 06           ..    ldd 06,x
11318 DB10 A3 02           ..    subd 02,x
11319 DB12 EC 04           ..    ldd 04,x
11320 DB14 E2 01           ..    sbcb 01,x
11321 DB16 A2 00           ..    sbca 00,x
11322 DB18 38              8     pulx
11323 DB19 38              8     pulx
11324 DB1A 38              8     pulx
11325 DB1B 38              8     pulx
11326 DB1C 25 11           %.    bcs 11
11327 DB1E CE 1F 00        ...   ldx #1f00
11328 DB21 3C              <     pshx
11329 DB22 CC FA 0A        ...   ldd #fa0a
11330 DB25 37              7     pshb
11331 DB26 36              6     psha
11332 DB27 CC 0D 0F        ...   ldd #0d0f
11333 DB2A BD FB DF        ...   jsr fbdf
11334 DB2D 31              1     ins
11335 DB2E 31              1     ins
11336 DB2F 5F              _     clrb
11337 DB30 4F              O     clra
11338 DB31 FD 00 44        ..D   stad 0044
11339 DB34 CE 00 1B        ...   ldx #001b
11340 DB37 1D 00           ..    bclr add,x 00,x
11341 DB39 01              .     nop
11342 DB3A 7F 00 4F        ..O   clr 004f
11343 DB3D CE 00 11        ...   ldx #0011
11344 DB40 1C 00           ..    bset add,x 00,x
11345 DB42 10              .     sba
11346 DB43 39              9     rts
11347 DB44 F6 00 2B        ..+   ldab 002b
11348 DB47 C1 00           ..    cmpb #00
11349 DB49 26 08           &.    bne 08
11350 DB4B CC AC DF        ...   ldd #acdf
11351 DB4E BD C0 BA        ...   jsr c0ba
11352 DB51 20 1E            .    bra 1e
11353 DB53 C1 01           ..    cmpb #01
11354 DB55 26 08           &.    bne 08
11355 DB57 CC AC D4        ...   ldd #acd4
11356 DB5A BD C0 BA        ...   jsr c0ba
11357 DB5D 20 12            .    bra 12
11358 DB5F C1 02           ..    cmpb #02
11359 DB61 26 08           &.    bne 08
11360 DB63 CC AC EA        ...   ldd #acea
11361 DB66 BD C0 BA        ...   jsr c0ba
11362 DB69 20 06            .    bra 06
11363 DB6B CC AC D4        ...   ldd #acd4
11364 DB6E BD C0 BA        ...   jsr c0ba
11365 DB71 BD D8 D3        ...   jsr d8d3
11366 DB74 CE 00 01        ...   ldx #0001
11367 DB77 3C              <     pshx
11368 DB78 FC 00 40        ..@   ldd 0040
11369 DB7B F3 00 3E        ..>   addd 003e
11370 DB7E BD BE 9E        ...   jsr be9e
11371 DB81 38              8     pulx
11372 DB82 FC 00 40        ..@   ldd 0040
11373 DB85 27 05           '.    beq 05
11374 DB87 BD C4 56        ..V   jsr c456
11375 DB8A 20 06            .    bra 06
11376 DB8C CC 02 58        ..X   ldd #0258
11377 DB8F BD E5 71        ..q   jsr e571
11378 DB92 FC 00 3E        ..>   ldd 003e
11379 DB95 27 03           '.    beq 03
11380 DB97 BD C5 D3        ...   jsr c5d3
11381 DB9A F6 00 2B        ..+   ldab 002b
11382 DB9D C1 00           ..    cmpb #00
11383 DB9F 26 08           &.    bne 08
11384 DBA1 CC AD 16        ...   ldd #ad16
11385 DBA4 BD C0 BA        ...   jsr c0ba
11386 DBA7 20 1E            .    bra 1e
11387 DBA9 C1 01           ..    cmpb #01
11388 DBAB 26 08           &.    bne 08
11389 DBAD CC AD 0B        ...   ldd #ad0b
11390 DBB0 BD C0 BA        ...   jsr c0ba
11391 DBB3 20 12            .    bra 12
11392 DBB5 C1 02           ..    cmpb #02
11393 DBB7 26 08           &.    bne 08
11394 DBB9 CC AD 00        ...   ldd #ad00
11395 DBBC BD C0 BA        ...   jsr c0ba
11396 DBBF 20 06            .    bra 06
11397 DBC1 CC AC F5        ...   ldd #acf5
11398 DBC4 BD C0 BA        ...   jsr c0ba
11399 DBC7 BD D8 D3        ...   jsr d8d3
11400 DBCA 39              9     rts
11401 DBCB F6 00 1B        ...   ldab 001b
11402 DBCE C4 01           ..    andb #01
11403 DBD0 26 03           &.    bne 03
11404 DBD2 7E DC 98        ~..   jmp dc98
11405 DBD5 F6 00 06        ...   ldab 0006
11406 DBD8 4F              O     clra
11407 DBD9 05              .     asld
11408 DBDA C3 08 C8        ...   addd #08c8
11409 DBDD 8F              .     xgdx
11410 DBDE EC 00           ..    ldd 00,x
11411 DBE0 84 08           ..    anda #08
11412 DBE2 26 03           &.    bne 03
11413 DBE4 7E DC 98        ~..   jmp dc98
11414 DBE7 BD D7 FF        ...   jsr d7ff
11415 DBEA CC 03 E8        ...   ldd #03e8
11416 DBED BD E5 71        ..q   jsr e571
11417 DBF0 BD D3 46        ..F   jsr d346
11418 DBF3 83 00 00        ...   subd #0000
11419 DBF6 26 08           &.    bne 08
11420 DBF8 BD D7 83        ...   jsr d783
11421 DBFB 83 00 00        ...   subd #0000
11422 DBFE 27 17           '.    beq 17
11423 DC00 5F              _     clrb
11424 DC01 4F              O     clra
11425 DC02 FD 00 4D        ..M   stad 004d
11426 DC05 FC 00 44        ..D   ldd 0044
11427 DC08 F3 0B B7        ...   addd 0bb7
11428 DC0B 04              .     lsrd
11429 DC0C F3 00 40        ..@   addd 0040
11430 DC0F B3 0B B7        ...   subd 0bb7
11431 DC12 FD 00 40        ..@   stad 0040
11432 DC15 20 78            x    bra 78
11433 DC17 BD D2 13        ...   jsr d213
11434 DC1A 83 00 00        ...   subd #0000
11435 DC1D 26 17           &.    bne 17
11436 DC1F 5F              _     clrb
11437 DC20 4F              O     clra
11438 DC21 FD 00 4D        ..M   stad 004d
11439 DC24 FC 00 44        ..D   ldd 0044
11440 DC27 F3 0B B7        ...   addd 0bb7
11441 DC2A 04              .     lsrd
11442 DC2B F3 00 40        ..@   addd 0040
11443 DC2E B3 0B B7        ...   subd 0bb7
11444 DC31 FD 00 40        ..@   stad 0040
11445 DC34 20 59            Y    bra 59
11446 DC36 FC 0D 09        ...   ldd 0d09
11447 DC39 83 FF FF        ...   subd #ffff
11448 DC3C 26 05           &.    bne 05
11449 DC3E 5F              _     clrb
11450 DC3F 4F              O     clra
11451 DC40 FD 0D 09        ...   stad 0d09
11452 DC43 FE 0D 09        ...   ldx 0d09
11453 DC46 08              .     inx
11454 DC47 FF 0D 09        ...   stx 0d09
11455 DC4A FC 0B B7        ...   ldd 0bb7
11456 DC4D 37              7     pshb
11457 DC4E 36              6     psha
11458 DC4F 4F              O     clra
11459 DC50 5F              _     clrb
11460 DC51 37              7     pshb
11461 DC52 36              6     psha
11462 DC53 CC 0D 13        ...   ldd #0d13
11463 DC56 BD FB DF        ...   jsr fbdf
11464 DC59 31              1     ins
11465 DC5A 31              1     ins
11466 DC5B FE 0D 15        ...   ldx 0d15
11467 DC5E 3C              <     pshx
11468 DC5F FC 0D 13        ...   ldd 0d13
11469 DC62 37              7     pshb
11470 DC63 36              6     psha
11471 DC64 CE E1 00        ...   ldx #e100
11472 DC67 3C              <     pshx
11473 DC68 CC 05 F5        ...   ldd #05f5
11474 DC6B 37              7     pshb
11475 DC6C 36              6     psha
11476 DC6D 30              0     tsx
11477 DC6E EC 06           ..    ldd 06,x
11478 DC70 A3 02           ..    subd 02,x
11479 DC72 EC 04           ..    ldd 04,x
11480 DC74 E2 01           ..    sbcb 01,x
11481 DC76 A2 00           ..    sbca 00,x
11482 DC78 38              8     pulx
11483 DC79 38              8     pulx
11484 DC7A 38              8     pulx
11485 DC7B 38              8     pulx
11486 DC7C 25 11           %.    bcs 11
11487 DC7E CE 1F 00        ...   ldx #1f00
11488 DC81 3C              <     pshx
11489 DC82 CC FA 0A        ...   ldd #fa0a
11490 DC85 37              7     pshb
11491 DC86 36              6     psha
11492 DC87 CC 0D 13        ...   ldd #0d13
11493 DC8A BD FB DF        ...   jsr fbdf
11494 DC8D 31              1     ins
11495 DC8E 31              1     ins
11496 DC8F CE 00 1B        ...   ldx #001b
11497 DC92 1D 00           ..    bclr add,x 00,x
11498 DC94 01              .     nop
11499 DC95 7F 00 4F        ..O   clr 004f
11500 DC98 F6 00 11        ...   ldab 0011
11501 DC9B C4 08           ..    andb #08
11502 DC9D 26 03           &.    bne 03
11503 DC9F BD D9 5A        ..Z   jsr d95a
11504 DCA2 39              9     rts
11505 DCA3 CE 0B BC        ...   ldx #0bbc
11506 DCA6 1D 00           ..    bclr add,x 00,x
11507 DCA8 1C F6           ..    bset add,x f6,x
11508 DCAA 0B              .     sev
11509 DCAB BC C4 03        ...   cmpx c403
11510 DCAE 26 48           &H    bne 48
11511 DCB0 FC 0B BD        ...   ldd 0bbd
11512 DCB3 37              7     pshb
11513 DCB4 36              6     psha
11514 DCB5 4F              O     clra
11515 DCB6 5F              _     clrb
11516 DCB7 37              7     pshb
11517 DCB8 36              6     psha
11518 DCB9 CC 0D F7        ...   ldd #0df7
11519 DCBC BD FB DF        ...   jsr fbdf
11520 DCBF 31              1     ins
11521 DCC0 31              1     ins
11522 DCC1 FE 0D F9        ...   ldx 0df9
11523 DCC4 3C              <     pshx
11524 DCC5 FC 0D F7        ...   ldd 0df7
11525 DCC8 37              7     pshb
11526 DCC9 36              6     psha
11527 DCCA CE E1 00        ...   ldx #e100
11528 DCCD 3C              <     pshx
11529 DCCE CC 05 F5        ...   ldd #05f5
11530 DCD1 37              7     pshb
11531 DCD2 36              6     psha
11532 DCD3 30              0     tsx
11533 DCD4 EC 06           ..    ldd 06,x
11534 DCD6 A3 02           ..    subd 02,x
11535 DCD8 EC 04           ..    ldd 04,x
11536 DCDA E2 01           ..    sbcb 01,x
11537 DCDC A2 00           ..    sbca 00,x
11538 DCDE 38              8     pulx
11539 DCDF 38              8     pulx
11540 DCE0 38              8     pulx
11541 DCE1 38              8     pulx
11542 DCE2 25 11           %.    bcs 11
11543 DCE4 CE 1F 00        ...   ldx #1f00
11544 DCE7 3C              <     pshx
11545 DCE8 CC FA 0A        ...   ldd #fa0a
11546 DCEB 37              7     pshb
11547 DCEC 36              6     psha
11548 DCED CC 0D F7        ...   ldd #0df7
11549 DCF0 BD FB DF        ...   jsr fbdf
11550 DCF3 31              1     ins
11551 DCF4 31              1     ins
11552 DCF5 7E DD D4        ~..   jmp ddd4
11553 DCF8 F6 0B BC        ...   ldab 0bbc
11554 DCFB C4 03           ..    andb #03
11555 DCFD C1 01           ..    cmpb #01
11556 DCFF 27 03           '.    beq 03
11557 DD01 7E DD D4        ~..   jmp ddd4
11558 DD04 F6 0B BC        ...   ldab 0bbc
11559 DD07 C4 E0           ..    andb #e0
11560 DD09 54              T     lsrb
11561 DD0A 54              T     lsrb
11562 DD0B 54              T     lsrb
11563 DD0C 54              T     lsrb
11564 DD0D 54              T     lsrb
11565 DD0E F7 0B BC        ...   stb 0bbc
11566 DD11 F6 0B BC        ...   ldab 0bbc
11567 DD14 F1 0B C4        ...   cmpb 0bc4
11568 DD17 26 33           &3    bne 33
11569 DD19 F6 0B D7        ...   ldab 0bd7
11570 DD1C C1 01           ..    cmpb #01
11571 DD1E 26 0A           &.    bne 0a
11572 DD20 7C 0C DB        |..   inc 0cdb
11573 DD23 C6 03           ..    ldab #03
11574 DD25 F7 00 48        ..H   stb 0048
11575 DD28 20 20                 bra 20
11576 DD2A F6 0B D8        ...   ldab 0bd8
11577 DD2D C1 01           ..    cmpb #01
11578 DD2F 26 0A           &.    bne 0a
11579 DD31 7C 0C DA        |..   inc 0cda
11580 DD34 C6 02           ..    ldab #02
11581 DD36 F7 00 48        ..H   stb 0048
11582 DD39 20 0F            .    bra 0f
11583 DD3B F6 0B D9        ...   ldab 0bd9
11584 DD3E C1 01           ..    cmpb #01
11585 DD40 26 08           &.    bne 08
11586 DD42 7C 0C D9        |..   inc 0cd9
11587 DD45 C6 01           ..    ldab #01
11588 DD47 F7 00 48        ..H   stb 0048
11589 DD4A 20 74            t    bra 74
11590 DD4C F6 0B BC        ...   ldab 0bbc
11591 DD4F F1 0B C5        ...   cmpb 0bc5
11592 DD52 26 33           &3    bne 33
11593 DD54 F6 0B D7        ...   ldab 0bd7
11594 DD57 C1 04           ..    cmpb #04
11595 DD59 26 0A           &.    bne 0a
11596 DD5B 7C 0C DB        |..   inc 0cdb
11597 DD5E C6 03           ..    ldab #03
11598 DD60 F7 00 48        ..H   stb 0048
11599 DD63 20 20                 bra 20
11600 DD65 F6 0B D8        ...   ldab 0bd8
11601 DD68 C1 04           ..    cmpb #04
11602 DD6A 26 0A           &.    bne 0a
11603 DD6C 7C 0C DA        |..   inc 0cda
11604 DD6F C6 02           ..    ldab #02
11605 DD71 F7 00 48        ..H   stb 0048
11606 DD74 20 0F            .    bra 0f
11607 DD76 F6 0B D9        ...   ldab 0bd9
11608 DD79 C1 04           ..    cmpb #04
11609 DD7B 26 08           &.    bne 08
11610 DD7D 7C 0C D9        |..   inc 0cd9
11611 DD80 C6 01           ..    ldab #01
11612 DD82 F7 00 48        ..H   stb 0048
11613 DD85 20 39            9    bra 39
11614 DD87 F6 0B BC        ...   ldab 0bbc
11615 DD8A F1 0B C6        ...   cmpb 0bc6
11616 DD8D 26 31           &1    bne 31
11617 DD8F F6 0B D7        ...   ldab 0bd7
11618 DD92 C1 02           ..    cmpb #02
11619 DD94 26 0A           &.    bne 0a
11620 DD96 7C 0C DB        |..   inc 0cdb
11621 DD99 C6 03           ..    ldab #03
11622 DD9B F7 00 48        ..H   stb 0048
11623 DD9E 20 20                 bra 20
11624 DDA0 F6 0B D8        ...   ldab 0bd8
11625 DDA3 C1 02           ..    cmpb #02
11626 DDA5 26 0A           &.    bne 0a
11627 DDA7 7C 0C DA        |..   inc 0cda
11628 DDAA C6 02           ..    ldab #02
11629 DDAC F7 00 48        ..H   stb 0048
11630 DDAF 20 0F            .    bra 0f
11631 DDB1 F6 0B D9        ...   ldab 0bd9
11632 DDB4 C1 02           ..    cmpb #02
11633 DDB6 26 08           &.    bne 08
11634 DDB8 7C 0C D9        |..   inc 0cd9
11635 DDBB C6 01           ..    ldab #01
11636 DDBD F7 00 48        ..H   stb 0048
11637 DDC0 F6 00 17        ...   ldab 0017
11638 DDC3 C4 08           ..    andb #08
11639 DDC5 26 0D           &.    bne 0d
11640 DDC7 F6 0B BC        ...   ldab 0bbc
11641 DDCA 26 08           &.    bne 08
11642 DDCC 7C 0C DC        |..   inc 0cdc
11643 DDCF C6 04           ..    ldab #04
11644 DDD1 F7 00 48        ..H   stb 0048
11645 DDD4 39              9     rts
11646 DDD5 BD BE 69        ..i   jsr be69
11647 DDD8 C6 03           ..    ldab #03
11648 DDDA F7 00 1C        ...   stb 001c
11649 DDDD F6 00 1C        ...   ldab 001c
11650 DDE0 C1 0D           ..    cmpb #0d
11651 DDE2 24 1C           $.    bcc 1c
11652 DDE4 F6 00 1C        ...   ldab 001c
11653 DDE7 4F              O     clra
11654 DDE8 C3 0C B9        ...   addd #0cb9
11655 DDEB 8F              .     xgdx
11656 DDEC E6 00           ..    ldab 00,x
11657 DDEE 37              7     pshb
11658 DDEF CC 0B 9C        ...   ldd #0b9c
11659 DDF2 F0 00 1C        ...   subb 001c
11660 DDF5 82 00           ..    sbca #00
11661 DDF7 8F              .     xgdx
11662 DDF8 33              3     pulb
11663 DDF9 E7 00           ..    stb 00,x
11664 DDFB 7C 00 1C        |..   inc 001c
11665 DDFE 20 DD            .    bra dd
11666 DE00 BD BE 10        ...   jsr be10
11667 DE03 C6 14           ..    ldab #14
11668 DE05 F7 00 2C        ..,   stb 002c
11669 DE08 39              9     rts
11670 DE09 CC 0B 9A        ...   ldd #0b9a
11671 DE0C BD C0 BA        ...   jsr c0ba
11672 DE0F C6 14           ..    ldab #14
11673 DE11 F7 00 2C        ..,   stb 002c
11674 DE14 39              9     rts
11675 DE15 F6 00 1B        ...   ldab 001b
11676 DE18 C4 01           ..    andb #01
11677 DE1A 26 03           &.    bne 03
11678 DE1C 7E DE A4        ~..   jmp dea4
11679 DE1F F6 00 06        ...   ldab 0006
11680 DE22 4F              O     clra
11681 DE23 05              .     asld
11682 DE24 C3 08 C8        ...   addd #08c8
11683 DE27 8F              .     xgdx
11684 DE28 EC 00           ..    ldd 00,x
11685 DE2A 84 08           ..    anda #08
11686 DE2C 27 76           'v    beq 76
11687 DE2E F6 00 11        ...   ldab 0011
11688 DE31 C4 08           ..    andb #08
11689 DE33 26 33           &3    bne 33
11690 DE35 F6 00 06        ...   ldab 0006
11691 DE38 F1 0B AF        ...   cmpb 0baf
11692 DE3B 27 20           '     beq 20
11693 DE3D F6 00 06        ...   ldab 0006
11694 DE40 F1 0B AE        ...   cmpb 0bae
11695 DE43 27 18           '.    beq 18
11696 DE45 F6 00 06        ...   ldab 0006
11697 DE48 F1 0B AD        ...   cmpb 0bad
11698 DE4B 27 10           '.    beq 10
11699 DE4D F6 00 06        ...   ldab 0006
11700 DE50 F1 0B AC        ...   cmpb 0bac
11701 DE53 27 08           '.    beq 08
11702 DE55 F6 00 06        ...   ldab 0006
11703 DE58 F1 0B AB        ...   cmpb 0bab
11704 DE5B 26 0B           &.    bne 0b
11705 DE5D CE 00 1B        ...   ldx #001b
11706 DE60 1D 00           ..    bclr add,x 00,x
11707 DE62 01              .     nop
11708 DE63 7F 00 4F        ..O   clr 004f
11709 DE66 20 3C            <    bra 3c
11710 DE68 FC 00 44        ..D   ldd 0044
11711 DE6B B3 0B B7        ...   subd 0bb7
11712 DE6E 23 2B           #+    bls 2b
11713 DE70 FC 00 40        ..@   ldd 0040
11714 DE73 F3 00 3E        ..>   addd 003e
11715 DE76 37              7     pshb
11716 DE77 36              6     psha
11717 DE78 FC 00 44        ..D   ldd 0044
11718 DE7B B3 0B B7        ...   subd 0bb7
11719 DE7E F3 00 44        ..D   addd 0044
11720 DE81 30              0     tsx
11721 DE82 A3 00           ..    subd 00,x
11722 DE84 31              1     ins
11723 DE85 31              1     ins
11724 DE86 22 13           ".    bhi 13
11725 DE88 FC 0B B7        ...   ldd 0bb7
11726 DE8B 27 0E           '.    beq 0e
11727 DE8D FC 00 44        ..D   ldd 0044
11728 DE90 B3 0B B7        ...   subd 0bb7
11729 DE93 F3 00 44        ..D   addd 0044
11730 DE96 FD 00 44        ..D   stad 0044
11731 DE99 20 09            .    bra 09
11732 DE9B CE 00 1B        ...   ldx #001b
11733 DE9E 1D 00           ..    bclr add,x 00,x
11734 DEA0 01              .     nop
11735 DEA1 7F 00 4F        ..O   clr 004f
11736 DEA4 39              9     rts
11737 DEA5 F6 00 2B        ..+   ldab 002b
11738 DEA8 C1 00           ..    cmpb #00
11739 DEAA 26 0D           &.    bne 0d
11740 DEAC CE 00 12        ...   ldx #0012
11741 DEAF 3C              <     pshx
11742 DEB0 CC AE 7E        ..~   ldd #ae7e
11743 DEB3 BD C0 2E        ...   jsr c02e
11744 DEB6 38              8     pulx
11745 DEB7 20 2D            -    bra 2d
11746 DEB9 C1 01           ..    cmpb #01
11747 DEBB 26 0D           &.    bne 0d
11748 DEBD CE 00 0F        ...   ldx #000f
11749 DEC0 3C              <     pshx
11750 DEC1 CC AE 6D        ..m   ldd #ae6d
11751 DEC4 BD C0 2E        ...   jsr c02e
11752 DEC7 38              8     pulx
11753 DEC8 20 1C            .    bra 1c
11754 DECA C1 02           ..    cmpb #02
11755 DECC 26 0D           &.    bne 0d
11756 DECE CE 00 10        ...   ldx #0010
11757 DED1 3C              <     pshx
11758 DED2 CC AE 5B        ..[   ldd #ae5b
11759 DED5 BD C0 2E        ...   jsr c02e
11760 DED8 38              8     pulx
11761 DED9 20 0B            .    bra 0b
11762 DEDB CE 00 15        ...   ldx #0015
11763 DEDE 3C              <     pshx
11764 DEDF CC AE 44        ..D   ldd #ae44
11765 DEE2 BD C0 2E        ...   jsr c02e
11766 DEE5 38              8     pulx
11767 DEE6 39              9     rts
11768 DEE7 F6 0B C0        ...   ldab 0bc0
11769 DEEA C4 01           ..    andb #01
11770 DEEC 26 07           &.    bne 07
11771 DEEE F6 0B C0        ...   ldab 0bc0
11772 DEF1 C4 04           ..    andb #04
11773 DEF3 27 15           '.    beq 15
11774 DEF5 C6 FF           ..    ldab #ff
11775 DEF7 F7 0B BC        ...   stb 0bbc
11776 DEFA F6 00 15        ...   ldab 0015
11777 DEFD 2D 03           -.    blt 03
11778 DEFF BD C6 7D        ..}   jsr c67d
11779 DF02 BD D6 6B        ..k   jsr d66b
11780 DF05 BD DC A3        ...   jsr dca3
11781 DF08 20 25            %    bra 25
11782 DF0A F6 0B C0        ...   ldab 0bc0
11783 DF0D C4 02           ..    andb #02
11784 DF0F 27 1E           '.    beq 1e
11785 DF11 F6 00 2F        ../   ldab 002f
11786 DF14 26 19           &.    bne 19
11787 DF16 F6 00 1B        ...   ldab 001b
11788 DF19 C4 02           ..    andb #02
11789 DF1B 26 12           &.    bne 12
11790 DF1D CC 00 FF        ...   ldd #00ff
11791 DF20 BD C7 E7        ...   jsr c7e7
11792 DF23 CE 00 1B        ...   ldx #001b
11793 DF26 1C 00           ..    bset add,x 00,x
11794 DF28 02              .     idiv
11795 DF29 CE 0B C1        ...   ldx #0bc1
11796 DF2C 1C 00           ..    bset add,x 00,x
11797 DF2E 04              .     lsrd
11798 DF2F F6 00 21        ..!   ldab 0021
11799 DF32 C4 20           .     andb #20
11800 DF34 27 07           '.    beq 07
11801 DF36 BD D6 52        ..R   jsr d652
11802 DF39 BD DE A5        ...   jsr dea5
11803 DF3C 39              9     rts
11804 DF3D F6 00 4F        ..O   ldab 004f
11805 DF40 26 06           &.    bne 06
11806 DF42 CE 00 1B        ...   ldx #001b
11807 DF45 1D 00           ..    bclr add,x 00,x
11808 DF47 01              .     nop
11809 DF48 F6 00 25        ..%   ldab 0025
11810 DF4B 26 20           &     bne 20
11811 DF4D F6 00 1B        ...   ldab 001b
11812 DF50 C4 40           .@    andb #40
11813 DF52 27 19           '.    beq 19
11814 DF54 BD D6 52        ..R   jsr d652
11815 DF57 FC 00 40        ..@   ldd 0040
11816 DF5A 26 05           &.    bne 05
11817 DF5C FC 00 3E        ..>   ldd 003e
11818 DF5F 27 03           '.    beq 03
11819 DF61 BD DB 44        ..D   jsr db44
11820 DF64 BD D6 6B        ..k   jsr d66b
11821 DF67 CE 00 1B        ...   ldx #001b
11822 DF6A 1D 00           ..    bclr add,x 00,x
11823 DF6C 40              @     nega
11824 DF6D F6 00 2C        ..,   ldab 002c
11825 DF70 27 03           '.    beq 03
11826 DF72 7E E0 66        ~.f   jmp e066
11827 DF75 F6 00 34        ..4   ldab 0034
11828 DF78 26 0B           &.    bne 0b
11829 DF7A BD BE 69        ..i   jsr be69
11830 DF7D C6 32           .2    ldab #32
11831 DF7F F7 00 34        ..4   stb 0034
11832 DF82 7E E0 63        ~.c   jmp e063
11833 DF85 FC 00 40        ..@   ldd 0040
11834 DF88 26 05           &.    bne 05
11835 DF8A FC 00 3E        ..>   ldd 003e
11836 DF8D 27 16           '.    beq 16
11837 DF8F CE 00 01        ...   ldx #0001
11838 DF92 3C              <     pshx
11839 DF93 FC 00 40        ..@   ldd 0040
11840 DF96 F3 00 3E        ..>   addd 003e
11841 DF99 BD BE 9E        ...   jsr be9e
11842 DF9C 38              8     pulx
11843 DF9D C6 05           ..    ldab #05
11844 DF9F F7 00 2C        ..,   stb 002c
11845 DFA2 7E E0 63        ~.c   jmp e063
11846 DFA5 F6 0C D9        ...   ldab 0cd9
11847 DFA8 C1 04           ..    cmpb #04
11848 DFAA 24 07           $.    bcc 07
11849 DFAC F6 0B C0        ...   ldab 0bc0
11850 DFAF C4 01           ..    andb #01
11851 DFB1 26 07           &.    bne 07
11852 DFB3 F6 00 21        ..!   ldab 0021
11853 DFB6 C4 40           .@    andb #40
11854 DFB8 27 43           'C    beq 43
11855 DFBA F6 00 2B        ..+   ldab 002b
11856 DFBD C1 00           ..    cmpb #00
11857 DFBF 26 0D           &.    bne 0d
11858 DFC1 CE 00 19        ...   ldx #0019
11859 DFC4 3C              <     pshx
11860 DFC5 CC AD E7        ...   ldd #ade7
11861 DFC8 BD C0 2E        ...   jsr c02e
11862 DFCB 38              8     pulx
11863 DFCC 20 2D            -    bra 2d
11864 DFCE C1 01           ..    cmpb #01
11865 DFD0 26 0D           &.    bne 0d
11866 DFD2 CE 00 12        ...   ldx #0012
11867 DFD5 3C              <     pshx
11868 DFD6 CC AD D3        ...   ldd #add3
11869 DFD9 BD C0 2E        ...   jsr c02e
11870 DFDC 38              8     pulx
11871 DFDD 20 1C            .    bra 1c
11872 DFDF C1 02           ..    cmpb #02
11873 DFE1 26 0D           &.    bne 0d
11874 DFE3 CE 00 19        ...   ldx #0019
11875 DFE6 3C              <     pshx
11876 DFE7 CC AD B8        ...   ldd #adb8
11877 DFEA BD C0 2E        ...   jsr c02e
11878 DFED 38              8     pulx
11879 DFEE 20 0B            .    bra 0b
11880 DFF0 CE 00 11        ...   ldx #0011
11881 DFF3 3C              <     pshx
11882 DFF4 CC AD A5        ...   ldd #ada5
11883 DFF7 BD C0 2E        ...   jsr c02e
11884 DFFA 38              8     pulx
11885 DFFB 20 66            f    bra 66
11886 DFFD F6 0B C0        ...   ldab 0bc0
11887 E000 C4 08           ..    andb #08
11888 E002 27 52           'R    beq 52
11889 E004 F6 0B C1        ...   ldab 0bc1
11890 E007 C4 08           ..    andb #08
11891 E009 26 08           &.    bne 08
11892 E00B FC 0B EF        ...   ldd 0bef
11893 E00E 83 00 64        ..d   subd #0064
11894 E011 24 43           $C    bcc 43
11895 E013 F6 00 2B        ..+   ldab 002b
11896 E016 C1 00           ..    cmpb #00
11897 E018 26 0D           &.    bne 0d
11898 E01A CE 00 12        ...   ldx #0012
11899 E01D 3C              <     pshx
11900 E01E CC AE 30        ..0   ldd #ae30
11901 E021 BD C0 2E        ...   jsr c02e
11902 E024 38              8     pulx
11903 E025 20 2D            -    bra 2d
11904 E027 C1 01           ..    cmpb #01
11905 E029 26 0D           &.    bne 0d
11906 E02B CE 00 0B        ...   ldx #000b
11907 E02E 3C              <     pshx
11908 E02F CC AE 23        ..#   ldd #ae23
11909 E032 BD C0 2E        ...   jsr c02e
11910 E035 38              8     pulx
11911 E036 20 1C            .    bra 1c
11912 E038 C1 02           ..    cmpb #02
11913 E03A 26 0D           &.    bne 0d
11914 E03C CE 00 12        ...   ldx #0012
11915 E03F 3C              <     pshx
11916 E040 CC AE 0F        ...   ldd #ae0f
11917 E043 BD C0 2E        ...   jsr c02e
11918 E046 38              8     pulx
11919 E047 20 0B            .    bra 0b
11920 E049 CE 00 0B        ...   ldx #000b
11921 E04C 3C              <     pshx
11922 E04D CC AE 02        ...   ldd #ae02
11923 E050 BD C0 2E        ...   jsr c02e
11924 E053 38              8     pulx
11925 E054 20 0D            .    bra 0d
11926 E056 F6 0B BF        ...   ldab 0bbf
11927 E059 4F              O     clra
11928 E05A 37              7     pshb
11929 E05B 36              6     psha
11930 E05C CC 09 93        ...   ldd #0993
11931 E05F BD C0 2E        ...   jsr c02e
11932 E062 38              8     pulx
11933 E063 7E E5 6A        ~.j   jmp e56a
11934 E066 F6 00 06        ...   ldab 0006
11935 E069 26 03           &.    bne 03
11936 E06B 7E E5 6A        ~.j   jmp e56a
11937 E06E CE 00 1D        ...   ldx #001d
11938 E071 1C 00           ..    bset add,x 00,x
11939 E073 40              @     nega
11940 E074 BD E7 C7        ...   jsr e7c7
11941 E077 F6 00 06        ...   ldab 0006
11942 E07A C1 59           .Y    cmpb #59
11943 E07C 26 06           &.    bne 06
11944 E07E BD DE 09        ...   jsr de09
11945 E081 7E E5 5E        ~.^   jmp e55e
11946 E084 F6 00 06        ...   ldab 0006
11947 E087 BD D4 68        ..h   jsr d468
11948 E08A 83 00 00        ...   subd #0000
11949 E08D 27 18           '.    beq 18
11950 E08F BD D5 61        ..a   jsr d561
11951 E092 83 00 00        ...   subd #0000
11952 E095 26 10           &.    bne 10
11953 E097 BD D3 46        ..F   jsr d346
11954 E09A 83 00 00        ...   subd #0000
11955 E09D 26 08           &.    bne 08
11956 E09F BD D7 83        ...   jsr d783
11957 E0A2 83 00 00        ...   subd #0000
11958 E0A5 27 09           '.    beq 09
11959 E0A7 BD E5 D1        ...   jsr e5d1
11960 E0AA BD D8 E9        ...   jsr d8e9
11961 E0AD 7E E5 5E        ~.^   jmp e55e
11962 E0B0 F6 00 06        ...   ldab 0006
11963 E0B3 4F              O     clra
11964 E0B4 05              .     asld
11965 E0B5 C3 08 00        ...   addd #0800
11966 E0B8 8F              .     xgdx
11967 E0B9 EC 00           ..    ldd 00,x
11968 E0BB C4 FF           ..    andb #ff
11969 E0BD 84 3F           .?    anda #3f
11970 E0BF FD 00 44        ..D   stad 0044
11971 E0C2 F6 00 06        ...   ldab 0006
11972 E0C5 4F              O     clra
11973 E0C6 05              .     asld
11974 E0C7 C3 08 C8        ...   addd #08c8
11975 E0CA 8F              .     xgdx
11976 E0CB EC 00           ..    ldd 00,x
11977 E0CD C4 7F           ..    andb #7f
11978 E0CF 4F              O     clra
11979 E0D0 FD 00 4D        ..M   stad 004d
11980 E0D3 F6 0B C0        ...   ldab 0bc0
11981 E0D6 2C 05           ,.    bge 05
11982 E0D8 5F              _     clrb
11983 E0D9 4F              O     clra
11984 E0DA FD 00 44        ..D   stad 0044
11985 E0DD F6 0B C0        ...   ldab 0bc0
11986 E0E0 C4 02           ..    andb #02
11987 E0E2 26 03           &.    bne 03
11988 E0E4 BD DE 15        ...   jsr de15
11989 E0E7 F6 00 11        ...   ldab 0011
11990 E0EA C4 20           .     andb #20
11991 E0EC 26 1A           &.    bne 1a
11992 E0EE F6 0B C0        ...   ldab 0bc0
11993 E0F1 C4 02           ..    andb #02
11994 E0F3 26 13           &.    bne 13
11995 E0F5 FC 00 40        ..@   ldd 0040
11996 E0F8 F3 00 3E        ..>   addd 003e
11997 E0FB B3 00 44        ..D   subd 0044
11998 E0FE 25 08           %.    bcs 08
11999 E100 F6 0B C0        ...   ldab 0bc0
12000 E103 2D 03           -.    blt 03
12001 E105 BD DA 64        ..d   jsr da64
12002 E108 FC 00 40        ..@   ldd 0040
12003 E10B F3 00 3E        ..>   addd 003e
12004 E10E B3 00 44        ..D   subd 0044
12005 E111 24 50           $P    bcc 50
12006 E113 F6 0B C0        ...   ldab 0bc0
12007 E116 C4 10           ..    andb #10
12008 E118 26 49           &I    bne 49
12009 E11A F6 00 2B        ..+   ldab 002b
12010 E11D C1 00           ..    cmpb #00
12011 E11F 26 08           &.    bne 08
12012 E121 CC AC C9        ...   ldd #acc9
12013 E124 BD C0 BA        ...   jsr c0ba
12014 E127 20 1E            .    bra 1e
12015 E129 C1 01           ..    cmpb #01
12016 E12B 26 08           &.    bne 08
12017 E12D CC AC BE        ...   ldd #acbe
12018 E130 BD C0 BA        ...   jsr c0ba
12019 E133 20 12            .    bra 12
12020 E135 C1 02           ..    cmpb #02
12021 E137 26 08           &.    bne 08
12022 E139 CC AC B3        ...   ldd #acb3
12023 E13C BD C0 BA        ...   jsr c0ba
12024 E13F 20 06            .    bra 06
12025 E141 CC AC A8        ...   ldd #aca8
12026 E144 BD C0 BA        ...   jsr c0ba
12027 E147 BD D8 D3        ...   jsr d8d3
12028 E14A CE 00 00        ...   ldx #0000
12029 E14D 3C              <     pshx
12030 E14E FC 00 44        ..D   ldd 0044
12031 E151 BD BE 9E        ...   jsr be9e
12032 E154 38              8     pulx
12033 E155 BD E5 D1        ...   jsr e5d1
12034 E158 BD D8 D3        ...   jsr d8d3
12035 E15B C6 0C           ..    ldab #0c
12036 E15D F7 00 2C        ..,   stb 002c
12037 E160 7E E5 5E        ~.^   jmp e55e
12038 E163 F6 0B C0        ...   ldab 0bc0
12039 E166 C4 01           ..    andb #01
12040 E168 26 11           &.    bne 11
12041 E16A F6 0B C0        ...   ldab 0bc0
12042 E16D C4 04           ..    andb #04
12043 E16F 26 0A           &.    bne 0a
12044 E171 F6 0B C0        ...   ldab 0bc0
12045 E174 C4 0F           ..    andb #0f
12046 E176 27 03           '.    beq 03
12047 E178 7E E3 35        ~.5   jmp e335
12048 E17B FC 00 40        ..@   ldd 0040
12049 E17E F3 00 3E        ..>   addd 003e
12050 E181 B3 00 44        ..D   subd 0044
12051 E184 FD 10 16        ...   stad 1016
12052 E187 F6 00 15        ...   ldab 0015
12053 E18A C4 01           ..    andb #01
12054 E18C 27 08           '.    beq 08
12055 E18E FC 10 16        ...   ldd 1016
12056 E191 83 00 64        ..d   subd #0064
12057 E194 25 3C           %<    bcs 3c
12058 E196 F6 00 15        ...   ldab 0015
12059 E199 C4 02           ..    andb #02
12060 E19B 27 08           '.    beq 08
12061 E19D FC 10 16        ...   ldd 1016
12062 E1A0 83 00 C8        ...   subd #00c8
12063 E1A3 25 2D           %-    bcs 2d
12064 E1A5 F6 00 15        ...   ldab 0015
12065 E1A8 C4 04           ..    andb #04
12066 E1AA 27 08           '.    beq 08
12067 E1AC FC 10 16        ...   ldd 1016
12068 E1AF 83 01 F4        ...   subd #01f4
12069 E1B2 25 1E           %.    bcs 1e
12070 E1B4 F6 00 15        ...   ldab 0015
12071 E1B7 C4 08           ..    andb #08
12072 E1B9 27 08           '.    beq 08
12073 E1BB FC 10 16        ...   ldd 1016
12074 E1BE 83 03 E8        ...   subd #03e8
12075 E1C1 25 0F           %.    bcs 0f
12076 E1C3 F6 00 15        ...   ldab 0015
12077 E1C6 C4 10           ..    andb #10
12078 E1C8 27 13           '.    beq 13
12079 E1CA FC 10 16        ...   ldd 1016
12080 E1CD 83 07 D0        ...   subd #07d0
12081 E1D0 24 0B           $.    bcc 0b
12082 E1D2 BD C0 E0        ...   jsr c0e0
12083 E1D5 83 00 00        ...   subd #0000
12084 E1D8 26 01           &.    bne 01
12085 E1DA 39              9     rts
12086 E1DB 20 03            .    bra 03
12087 E1DD BD C5 D3        ...   jsr c5d3
12088 E1E0 BD D6 52        ..R   jsr d652
12089 E1E3 FC 00 40        ..@   ldd 0040
12090 E1E6 B3 00 44        ..D   subd 0044
12091 E1E9 F3 00 3E        ..>   addd 003e
12092 E1EC FD 00 40        ..@   stad 0040
12093 E1EF 5F              _     clrb
12094 E1F0 4F              O     clra
12095 E1F1 FD 00 3E        ..>   stad 003e
12096 E1F4 CE 00 1B        ...   ldx #001b
12097 E1F7 1C 00           ..    bset add,x 00,x
12098 E1F9 80 BD           ..    suba #bd
12099 E1FB D2 13 83        ...   sbcb 13
12100 E1FE 00              .     test
12101 E1FF 00              .     test
12102 E200 26 12           &.    bne 12
12103 E202 BD E5 D1        ...   jsr e5d1
12104 E205 BD D8 E9        ...   jsr d8e9
12105 E208 FC 00 40        ..@   ldd 0040
12106 E20B F3 00 44        ..D   addd 0044
12107 E20E FD 00 40        ..@   stad 0040
12108 E211 7E E3 29        ~.)   jmp e329
12109 E214 BD DB CB        ...   jsr dbcb
12110 E217 F6 00 1B        ...   ldab 001b
12111 E21A C4 20           .     andb #20
12112 E21C 27 45           'E    beq 45
12113 E21E FC 00 44        ..D   ldd 0044
12114 E221 37              7     pshb
12115 E222 36              6     psha
12116 E223 4F              O     clra
12117 E224 5F              _     clrb
12118 E225 37              7     pshb
12119 E226 36              6     psha
12120 E227 CC 0D FB        ...   ldd #0dfb
12121 E22A BD FB DF        ...   jsr fbdf
12122 E22D 31              1     ins
12123 E22E 31              1     ins
12124 E22F FE 0D FD        ...   ldx 0dfd
12125 E232 3C              <     pshx
12126 E233 FC 0D FB        ...   ldd 0dfb
12127 E236 37              7     pshb
12128 E237 36              6     psha
12129 E238 CE E1 00        ...   ldx #e100
12130 E23B 3C              <     pshx
12131 E23C CC 05 F5        ...   ldd #05f5
12132 E23F 37              7     pshb
12133 E240 36              6     psha
12134 E241 30              0     tsx
12135 E242 EC 06           ..    ldd 06,x
12136 E244 A3 02           ..    subd 02,x
12137 E246 EC 04           ..    ldd 04,x
12138 E248 E2 01           ..    sbcb 01,x
12139 E24A A2 00           ..    sbca 00,x
12140 E24C 38              8     pulx
12141 E24D 38              8     pulx
12142 E24E 38              8     pulx
12143 E24F 38              8     pulx
12144 E250 25 11           %.    bcs 11
12145 E252 CE 1F 00        ...   ldx #1f00
12146 E255 3C              <     pshx
12147 E256 CC FA 0A        ...   ldd #fa0a
12148 E259 37              7     pshb
12149 E25A 36              6     psha
12150 E25B CC 0D FB        ...   ldd #0dfb
12151 E25E BD FB DF        ...   jsr fbdf
12152 E261 31              1     ins
12153 E262 31              1     ins
12154 E263 F6 0B C0        ...   ldab 0bc0
12155 E266 2C 78           ,x    bge 78
12156 E268 F6 00 06        ...   ldab 0006
12157 E26B 4F              O     clra
12158 E26C 05              .     asld
12159 E26D C3 08 00        ...   addd #0800
12160 E270 8F              .     xgdx
12161 E271 EC 00           ..    ldd 00,x
12162 E273 C4 FF           ..    andb #ff
12163 E275 26 02           &.    bne 02
12164 E277 84 3F           .?    anda #3f
12165 E279 27 65           'e    beq 65
12166 E27B FC 0D 0D        ...   ldd 0d0d
12167 E27E 83 FF FF        ...   subd #ffff
12168 E281 26 05           &.    bne 05
12169 E283 5F              _     clrb
12170 E284 4F              O     clra
12171 E285 FD 0D 0D        ...   stad 0d0d
12172 E288 FE 0D 0D        ...   ldx 0d0d
12173 E28B 08              .     inx
12174 E28C FF 0D 0D        ...   stx 0d0d
12175 E28F F6 00 06        ...   ldab 0006
12176 E292 4F              O     clra
12177 E293 05              .     asld
12178 E294 C3 08 00        ...   addd #0800
12179 E297 8F              .     xgdx
12180 E298 EC 00           ..    ldd 00,x
12181 E29A C4 FF           ..    andb #ff
12182 E29C 84 3F           .?    anda #3f
12183 E29E 37              7     pshb
12184 E29F 36              6     psha
12185 E2A0 4F              O     clra
12186 E2A1 5F              _     clrb
12187 E2A2 37              7     pshb
12188 E2A3 36              6     psha
12189 E2A4 CC 0D 1B        ...   ldd #0d1b
12190 E2A7 BD FB DF        ...   jsr fbdf
12191 E2AA 31              1     ins
12192 E2AB 31              1     ins
12193 E2AC FE 0D 1D        ...   ldx 0d1d
12194 E2AF 3C              <     pshx
12195 E2B0 FC 0D 1B        ...   ldd 0d1b
12196 E2B3 37              7     pshb
12197 E2B4 36              6     psha
12198 E2B5 CE E1 00        ...   ldx #e100
12199 E2B8 3C              <     pshx
12200 E2B9 CC 05 F5        ...   ldd #05f5
12201 E2BC 37              7     pshb
12202 E2BD 36              6     psha
12203 E2BE 30              0     tsx
12204 E2BF EC 06           ..    ldd 06,x
12205 E2C1 A3 02           ..    subd 02,x
12206 E2C3 EC 04           ..    ldd 04,x
12207 E2C5 E2 01           ..    sbcb 01,x
12208 E2C7 A2 00           ..    sbca 00,x
12209 E2C9 38              8     pulx
12210 E2CA 38              8     pulx
12211 E2CB 38              8     pulx
12212 E2CC 38              8     pulx
12213 E2CD 25 11           %.    bcs 11
12214 E2CF CE 1F 00        ...   ldx #1f00
12215 E2D2 3C              <     pshx
12216 E2D3 CC FA 0A        ...   ldd #fa0a
12217 E2D6 37              7     pshb
12218 E2D7 36              6     psha
12219 E2D8 CC 0D 1B        ...   ldd #0d1b
12220 E2DB BD FB DF        ...   jsr fbdf
12221 E2DE 31              1     ins
12222 E2DF 31              1     ins
12223 E2E0 F6 00 11        ...   ldab 0011
12224 E2E3 C4 10           ..    andb #10
12225 E2E5 26 14           &.    bne 14
12226 E2E7 FC 00 40        ..@   ldd 0040
12227 E2EA 27 0F           '.    beq 0f
12228 E2EC FC 00 40        ..@   ldd 0040
12229 E2EF B3 00 50        ..P   subd 0050
12230 E2F2 24 15           $.    bcc 15
12231 E2F4 F6 00 11        ...   ldab 0011
12232 E2F7 C4 10           ..    andb #10
12233 E2F9 26 0E           &.    bne 0e
12234 E2FB BD DB 44        ..D   jsr db44
12235 E2FE CE 00 1B        ...   ldx #001b
12236 E301 1D 00           ..    bclr add,x 00,x
12237 E303 40              @     nega
12238 E304 7F 00 25        ..%   clr 0025
12239 E307 20 1A            .    bra 1a
12240 E309 7F 00 2C        ..,   clr 002c
12241 E30C CC 01 F4        ...   ldd #01f4
12242 E30F BD E5 71        ..q   jsr e571
12243 E312 BD E5 AA        ...   jsr e5aa
12244 E315 BD D8 E9        ...   jsr d8e9
12245 E318 CE 00 1B        ...   ldx #001b
12246 E31B 1C 00           ..    bset add,x 00,x
12247 E31D 40              @     nega
12248 E31E C6 0A           ..    ldab #0a
12249 E320 F7 00 25        ..%   stb 0025
12250 E323 BD D7 FF        ...   jsr d7ff
12251 E326 BD D8 40        ..@   jsr d840
12252 E329 BD E8 9A        ...   jsr e89a
12253 E32C CE 0B C1        ...   ldx #0bc1
12254 E32F 1D 00           ..    bclr add,x 00,x
12255 E331 08              .     inx
12256 E332 7E E5 5E        ~.^   jmp e55e
12257 E335 F6 0B C0        ...   ldab 0bc0
12258 E338 C4 02           ..    andb #02
12259 E33A 26 03           &.    bne 03
12260 E33C 7E E5 5E        ~.^   jmp e55e
12261 E33F 5F              _     clrb
12262 E340 4F              O     clra
12263 E341 FD 00 76        ..v   stad 0076
12264 E344 CE 00 17        ...   ldx #0017
12265 E347 1D 00           ..    bclr add,x 00,x
12266 E349 01              .     nop
12267 E34A CE 00 17        ...   ldx #0017
12268 E34D 1D 00           ..    bclr add,x 00,x
12269 E34F 02              .     idiv
12270 E350 FC 00 44        ..D   ldd 0044
12271 E353 26 1C           &.    bne 1c
12272 E355 F6 0B C0        ...   ldab 0bc0
12273 E358 C4 10           ..    andb #10
12274 E35A 26 08           &.    bne 08
12275 E35C CE 00 21        ..!   ldx #0021
12276 E35F 1C 00           ..    bset add,x 00,x
12277 E361 80 20           .     suba #20
12278 E363 0B              .     sev
12279 E364 CE 00 21        ..!   ldx #0021
12280 E367 1D 00           ..    bclr add,x 00,x
12281 E369 80 C6           ..    suba #c6
12282 E36B 05              .     asld
12283 E36C F7 00 75        ..u   stb 0075
12284 E36F 20 57            W    bra 57
12285 E371 F6 0B C0        ...   ldab 0bc0
12286 E374 C4 10           ..    andb #10
12287 E376 27 50           'P    beq 50
12288 E378 FC 00 40        ..@   ldd 0040
12289 E37B 26 4B           &K    bne 4b
12290 E37D F6 0B C0        ...   ldab 0bc0
12291 E380 C4 20           .     andb #20
12292 E382 27 3E           '>    beq 3e
12293 E384 CE 00 17        ...   ldx #0017
12294 E387 1C 00           ..    bset add,x 00,x
12295 E389 01              .     nop
12296 E38A F6 00 2B        ..+   ldab 002b
12297 E38D C1 00           ..    cmpb #00
12298 E38F 26 08           &.    bne 08
12299 E391 CC AC C9        ...   ldd #acc9
12300 E394 BD C0 BA        ...   jsr c0ba
12301 E397 20 1E            .    bra 1e
12302 E399 C1 01           ..    cmpb #01
12303 E39B 26 08           &.    bne 08
12304 E39D CC AC BE        ...   ldd #acbe
12305 E3A0 BD C0 BA        ...   jsr c0ba
12306 E3A3 20 12            .    bra 12
12307 E3A5 C1 02           ..    cmpb #02
12308 E3A7 26 08           &.    bne 08
12309 E3A9 CC AC B3        ...   ldd #acb3
12310 E3AC BD C0 BA        ...   jsr c0ba
12311 E3AF 20 06            .    bra 06
12312 E3B1 CC AC A8        ...   ldd #aca8
12313 E3B4 BD C0 BA        ...   jsr c0ba
12314 E3B7 BD D8 D3        ...   jsr d8d3
12315 E3BA CE 00 17        ...   ldx #0017
12316 E3BD 1C 00           ..    bset add,x 00,x
12317 E3BF 02              .     idiv
12318 E3C0 20 06            .    bra 06
12319 E3C2 CE 00 1F        ...   ldx #001f
12320 E3C5 1C 00           ..    bset add,x 00,x
12321 E3C7 08              .     inx
12322 E3C8 CE 00 1D        ...   ldx #001d
12323 E3CB 1C 00           ..    bset add,x 00,x
12324 E3CD 02              .     idiv
12325 E3CE CE 00 19        ...   ldx #0019
12326 E3D1 1C 00           ..    bset add,x 00,x
12327 E3D3 08              .     inx
12328 E3D4 C6 32           .2    ldab #32
12329 E3D6 F7 00 31        ..1   stb 0031
12330 E3D9 C6 19           ..    ldab #19
12331 E3DB F7 00 36        ..6   stb 0036
12332 E3DE F6 00 1D        ...   ldab 001d
12333 E3E1 C4 02           ..    andb #02
12334 E3E3 26 03           &.    bne 03
12335 E3E5 7E E4 6E        ~.n   jmp e46e
12336 E3E8 F6 00 75        ..u   ldab 0075
12337 E3EB C1 04           ..    cmpb #04
12338 E3ED 22 05           ".    bhi 05
12339 E3EF F6 00 36        ..6   ldab 0036
12340 E3F2 26 3C           &<    bne 3c
12341 E3F4 7F 00 06        ...   clr 0006
12342 E3F7 5F              _     clrb
12343 E3F8 4F              O     clra
12344 E3F9 FD 00 76        ..v   stad 0076
12345 E3FC 7F 00 2E        ...   clr 002e
12346 E3FF 7F 00 2C        ..,   clr 002c
12347 E402 7F 00 75        ..u   clr 0075
12348 E405 CE 00 17        ...   ldx #0017
12349 E408 1D 00           ..    bclr add,x 00,x
12350 E40A 01              .     nop
12351 E40B CE 00 19        ...   ldx #0019
12352 E40E 1D 00           ..    bclr add,x 00,x
12353 E410 08              .     inx
12354 E411 CE 00 1B        ...   ldx #001b
12355 E414 1D 00           ..    bclr add,x 00,x
12356 E416 80 CE           ..    suba #ce
12357 E418 00              .     test
12358 E419 1D 1D           ..    bclr add,x 1d,x
12359 E41B 00              .     test
12360 E41C 40              @     nega
12361 E41D CE 00 1D        ...   ldx #001d
12362 E420 1D 00           ..    bclr add,x 00,x
12363 E422 02              .     idiv
12364 E423 CE 00 1F        ...   ldx #001f
12365 E426 1D 00           ..    bclr add,x 00,x
12366 E428 08              .     inx
12367 E429 CE 00 21        ..!   ldx #0021
12368 E42C 1D 00           ..    bclr add,x 00,x
12369 E42E 80 39           .9    suba #39
12370 E430 F6 0B C0        ...   ldab 0bc0
12371 E433 C4 20           .     andb #20
12372 E435 27 34           '4    beq 34
12373 E437 F6 00 17        ...   ldab 0017
12374 E43A C4 01           ..    andb #01
12375 E43C 26 2D           &-    bne 2d
12376 E43E F6 00 17        ...   ldab 0017
12377 E441 C4 02           ..    andb #02
12378 E443 27 26           '&    beq 26
12379 E445 CE 00 00        ...   ldx #0000
12380 E448 3C              <     pshx
12381 E449 FC 00 76        ..v   ldd 0076
12382 E44C BD BE 9E        ...   jsr be9e
12383 E44F 38              8     pulx
12384 E450 FC 00 76        ..v   ldd 0076
12385 E453 26 06           &.    bne 06
12386 E455 CE 00 17        ...   ldx #0017
12387 E458 1D 00           ..    bclr add,x 00,x
12388 E45A 02              .     idiv
12389 E45B F6 00 17        ...   ldab 0017
12390 E45E C4 02           ..    andb #02
12391 E460 27 09           '.    beq 09
12392 E462 BD E5 D1        ...   jsr e5d1
12393 E465 CE 00 17        ...   ldx #0017
12394 E468 1D 00           ..    bclr add,x 00,x
12395 E46A 02              .     idiv
12396 E46B 7E E3 DE        ~..   jmp e3de
12397 E46E CE 00 21        ..!   ldx #0021
12398 E471 1D 00           ..    bclr add,x 00,x
12399 E473 80 CE           ..    suba #ce
12400 E475 00              .     test
12401 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12402 E47A BD D2 13        ...   jsr d213
12403 E47D 83 00 00        ...   subd #0000
12404 E480 26 0F           &.    bne 0f
12405 E482 CC 00 80        ...   ldd #0080
12406 E485 BD C7 E7        ...   jsr c7e7
12407 E488 BD E5 D1        ...   jsr e5d1
12408 E48B BD D8 E9        ...   jsr d8e9
12409 E48E 7E E5 5E        ~.^   jmp e55e
12410 E491 F6 00 2B        ..+   ldab 002b
12411 E494 C1 00           ..    cmpb #00
12412 E496 26 08           &.    bne 08
12413 E498 CC AD 16        ...   ldd #ad16
12414 E49B BD C0 BA        ...   jsr c0ba
12415 E49E 20 1E            .    bra 1e
12416 E4A0 C1 01           ..    cmpb #01
12417 E4A2 26 08           &.    bne 08
12418 E4A4 CC AD 0B        ...   ldd #ad0b
12419 E4A7 BD C0 BA        ...   jsr c0ba
12420 E4AA 20 12            .    bra 12
12421 E4AC C1 02           ..    cmpb #02
12422 E4AE 26 08           &.    bne 08
12423 E4B0 CC AD 00        ...   ldd #ad00
12424 E4B3 BD C0 BA        ...   jsr c0ba
12425 E4B6 20 06            .    bra 06
12426 E4B8 CC AC F5        ...   ldd #acf5
12427 E4BB BD C0 BA        ...   jsr c0ba
12428 E4BE BD D8 D3        ...   jsr d8d3
12429 E4C1 CE 00 01        ...   ldx #0001
12430 E4C4 3C              <     pshx
12431 E4C5 FC 00 40        ..@   ldd 0040
12432 E4C8 BD BE 9E        ...   jsr be9e
12433 E4CB 38              8     pulx
12434 E4CC 5F              _     clrb
12435 E4CD 4F              O     clra
12436 E4CE BD C7 E7        ...   jsr c7e7
12437 E4D1 F6 0B C0        ...   ldab 0bc0
12438 E4D4 2D 03           -.    blt 03
12439 E4D6 7E E5 58        ~.X   jmp e558
12440 E4D9 F6 0B C0        ...   ldab 0bc0
12441 E4DC C4 10           ..    andb #10
12442 E4DE 26 78           &x    bne 78
12443 E4E0 F6 00 06        ...   ldab 0006
12444 E4E3 4F              O     clra
12445 E4E4 05              .     asld
12446 E4E5 C3 08 00        ...   addd #0800
12447 E4E8 8F              .     xgdx
12448 E4E9 EC 00           ..    ldd 00,x
12449 E4EB C4 FF           ..    andb #ff
12450 E4ED 26 02           &.    bne 02
12451 E4EF 84 3F           .?    anda #3f
12452 E4F1 27 65           'e    beq 65
12453 E4F3 FC 0D 0D        ...   ldd 0d0d
12454 E4F6 83 FF FF        ...   subd #ffff
12455 E4F9 26 05           &.    bne 05
12456 E4FB 5F              _     clrb
12457 E4FC 4F              O     clra
12458 E4FD FD 0D 0D        ...   stad 0d0d
12459 E500 FE 0D 0D        ...   ldx 0d0d
12460 E503 08              .     inx
12461 E504 FF 0D 0D        ...   stx 0d0d
12462 E507 F6 00 06        ...   ldab 0006
12463 E50A 4F              O     clra
12464 E50B 05              .     asld
12465 E50C C3 08 00        ...   addd #0800
12466 E50F 8F              .     xgdx
12467 E510 EC 00           ..    ldd 00,x
12468 E512 C4 FF           ..    andb #ff
12469 E514 84 3F           .?    anda #3f
12470 E516 37              7     pshb
12471 E517 36              6     psha
12472 E518 4F              O     clra
12473 E519 5F              _     clrb
12474 E51A 37              7     pshb
12475 E51B 36              6     psha
12476 E51C CC 0D 1B        ...   ldd #0d1b
12477 E51F BD FB DF        ...   jsr fbdf
12478 E522 31              1     ins
12479 E523 31              1     ins
12480 E524 FE 0D 1D        ...   ldx 0d1d
12481 E527 3C              <     pshx
12482 E528 FC 0D 1B        ...   ldd 0d1b
12483 E52B 37              7     pshb
12484 E52C 36              6     psha
12485 E52D CE E1 00        ...   ldx #e100
12486 E530 3C              <     pshx
12487 E531 CC 05 F5        ...   ldd #05f5
12488 E534 37              7     pshb
12489 E535 36              6     psha
12490 E536 30              0     tsx
12491 E537 EC 06           ..    ldd 06,x
12492 E539 A3 02           ..    subd 02,x
12493 E53B EC 04           ..    ldd 04,x
12494 E53D E2 01           ..    sbcb 01,x
12495 E53F A2 00           ..    sbca 00,x
12496 E541 38              8     pulx
12497 E542 38              8     pulx
12498 E543 38              8     pulx
12499 E544 38              8     pulx
12500 E545 25 11           %.    bcs 11
12501 E547 CE 1F 00        ...   ldx #1f00
12502 E54A 3C              <     pshx
12503 E54B CC FA 0A        ...   ldd #fa0a
12504 E54E 37              7     pshb
12505 E54F 36              6     psha
12506 E550 CC 0D 1B        ...   ldd #0d1b
12507 E553 BD FB DF        ...   jsr fbdf
12508 E556 31              1     ins
12509 E557 31              1     ins
12510 E558 BD D7 FF        ...   jsr d7ff
12511 E55B BD D8 40        ..@   jsr d840
12512 E55E 7F 00 06        ...   clr 0006
12513 E561 7F 00 2E        ...   clr 002e
12514 E564 CE 00 1B        ...   ldx #001b
12515 E567 1D 00           ..    bclr add,x 00,x
12516 E569 80 CE           ..    suba #ce
12517 E56B 00              .     test
12518 E56C 1D 1D           ..    bclr add,x 1d,x
12519 E56E 00              .     test
12520 E56F 40              @     nega
12521 E570 39              9     rts
12522
12523 ;!!! Is this a delay routine?  It gets called between displaying strings
12524 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12525 E571 37              7     pshb
12526 E572 36              6     psha
12527 E573 34              4     des
12528 E574 30              0     tsx
12529 E575 EC 01           ..    ldd 01,x
12530 E577 83 00 01        ...   subd #0001
12531 E57A ED 01           ..    stad 01,x
12532 E57C 2D 15           -.    blt 15
12533 E57E C6 41           .A    ldab #41
12534 E580 30              0     tsx
12535 E581 E7 00           ..    stb 00,x
12536 E583 30              0     tsx
12537 E584 E6 00           ..    ldab 00,x
12538 E586 6A 00           j.    dec 00,x
12539 E588 C1 00           ..    cmpb #00
12540 E58A 23 02           #.    bls 02
12541 E58C 20 F5            .    bra f5
12542 E58E BD E6 1B        ...   jsr e61b
12543 E591 20 E1            .    bra e1
12544 E593 38              8     pulx         ;this must just be a standard 'pull 3
12545 E594 31              1     ins          ;bytes and I don't care where they go'
12546                                         ;to clean up the stack.
12547 E595 39              9     rts
12548
12549 E596 34              4     des
12550 E597 C6 32           .2    ldab #32
12551 E599 30              0     tsx
12552 E59A E7 00           ..    stb 00,x
12553 E59C 30              0     tsx
12554 E59D E6 00           ..    ldab 00,x
12555 E59F C1 00           ..    cmpb #00
12556 E5A1 23 05           #.    bls e5a8
12557 E5A3 30              0     tsx
12558 E5A4 6A 00           j.    dec 00,x
12559 E5A6 20 F4            .    bra e59c
12560 E5A8 31              1     ins
12561 E5A9 39              9     rts
12562
12563 E5AA F6 00 33        ..3   ldab 0033
12564 E5AD 27 0C           '.    beq 0c
12565 E5AF F6 00 29        ..)   ldab 0029
12566 E5B2 27 05           '.    beq 05
12567 E5B4 C6 02           ..    ldab #02
12568 E5B6 F7 00 33        ..3   stb 0033
12569 E5B9 20 15            .    bra 15
12570 E5BB C6 03           ..    ldab #03
12571 E5BD F7 00 32        ..2   stb 0032
12572 E5C0 FC 00 3B        ..;   ldd 003b
12573 E5C3 27 06           '.    beq 06
12574 E5C5 CC 02 33        ..3   ldd #0233
12575 E5C8 FD 00 3B        ..;   stad 003b
12576 E5CB C6 02           ..    ldab #02
12577 E5CD F7 00 33        ..3   stb 0033
12578 E5D0 39              9     rts
12579 E5D1 C6 0B           ..    ldab #0b
12580 E5D3 F7 00 32        ..2   stb 0032
12581 E5D6 39              9     rts
12582
12583 E5D7 37              7     pshb
12584 E5D8 36              6     psha
12585 E5D9 3C              <     pshx
12586 E5DA 3C              <     pshx
12587 E5DB 5F              _     clrb
12588 E5DC 4F              O     clra
12589 E5DD 30              0     tsx
12590 E5DE ED 00           ..    stad 00,x
12591 E5E0 CC 00 64        ..d   ldd #0064
12592 E5E3 ED 02           ..    stad 02,x
12593 E5E5 30              0     tsx
12594 E5E6 EC 02           ..    ldd 02,x
12595 E5E8 2F 21           /!    ble 21
12596 E5EA 30              0     tsx
12597 E5EB EE 04           ..    ldx 04,x
12598 E5ED E6 00           ..    ldab 00,x
12599 E5EF 30              0     tsx
12600 E5F0 E4 09           ..    andb 09,x
12601 E5F2 27 05           '.    beq 05
12602 E5F4 38              8     pulx
12603 E5F5 08              .     inx
12604 E5F6 3C              <     pshx
12605 E5F7 20 08            .    bra 08
12606 E5F9 30              0     tsx
12607 E5FA EC 00           ..    ldd 00,x
12608 E5FC 83 00 01        ...   subd #0001
12609 E5FF ED 00           ..    stad 00,x
12610 E601 30              0     tsx
12611 E602 EC 02           ..    ldd 02,x
12612 E604 83 00 01        ...   subd #0001
12613 E607 ED 02           ..    stad 02,x
12614 E609 20 DA            .    bra da
12615 E60B 30              0     tsx
12616 E60C EC 00           ..    ldd 00,x
12617 E60E 2F 04           /.    ble 04
12618 E610 5F              _     clrb
12619 E611 4F              O     clra
12620 E612 20 03            .    bra 03
12621 E614 CC 00 01        ...   ldd #0001
12622 E617 38              8     pulx
12623 E618 38              8     pulx
12624 E619 38              8     pulx
12625 E61A 39              9     rts
12626
12627 E61B C6 0A           ..    ldab #0a
12628 E61D F7 00 31        ..1   stb 0031
12629 E620 39              9     rts
12630
12631 E621 38              8     pulx
12632 E622 37              7     pshb
12633 E623 36              6     psha
12634 E624 3C              <     pshx
12635 E625 BD BE 4B        ..K   jsr be4b
12636 E628 30              0     tsx
12637 E629 EC 04           ..    ldd 04,x
12638 E62B 37              7     pshb
12639 E62C 36              6     psha
12640 E62D EC 02           ..    ldd 02,x
12641 E62F 37              7     pshb
12642 E630 36              6     psha
12643 E631 CE 96 80        ...   ldx #9680
12644 E634 3C              <     pshx
12645 E635 CC 00 98        ...   ldd #0098
12646 E638 BD FC 4C        ..L   jsr fc4c
12647 E63B 31              1     ins
12648 E63C 33              3     pulb
12649 E63D CB 30           .0    addb #30
12650 E63F F7 0B 97        ...   stb 0b97
12651 E642 30              0     tsx
12652 E643 EC 04           ..    ldd 04,x
12653 E645 37              7     pshb
12654 E646 36              6     psha
12655 E647 EC 02           ..    ldd 02,x
12656 E649 37              7     pshb
12657 E64A 36              6     psha
12658 E64B CE 96 80        ...   ldx #9680
12659 E64E 3C              <     pshx
12660 E64F CC 00 98        ...   ldd #0098
12661 E652 BD FC 5C        ..\   jsr fc5c
12662 E655 37              7     pshb
12663 E656 36              6     psha
12664 E657 CE 42 40        .B@   ldx #4240
12665 E65A 3C              <     pshx
12666 E65B CC 00 0F        ...   ldd #000f
12667 E65E BD FC 4C        ..L   jsr fc4c
12668 E661 31              1     ins
12669 E662 33              3     pulb
12670 E663 CB 30           .0    addb #30
12671 E665 F7 0B 96        ...   stb 0b96
12672 E668 30              0     tsx
12673 E669 EC 04           ..    ldd 04,x
12674 E66B 37              7     pshb
12675 E66C 36              6     psha
12676 E66D EC 02           ..    ldd 02,x
12677 E66F 37              7     pshb
12678 E670 36              6     psha
12679 E671 CE 42 40        .B@   ldx #4240
12680 E674 3C              <     pshx
12681 E675 CC 00 0F        ...   ldd #000f
12682 E678 BD FC 5C        ..\   jsr fc5c
12683 E67B 37              7     pshb
12684 E67C 36              6     psha
12685 E67D CE 86 A0        ...   ldx #86a0
12686 E680 3C              <     pshx
12687 E681 CC 00 01        ...   ldd #0001
12688 E684 BD FC 4C        ..L   jsr fc4c
12689 E687 31              1     ins
12690 E688 33              3     pulb
12691 E689 CB 30           .0    addb #30
12692 E68B F7 0B 95        ...   stb 0b95
12693 E68E 30              0     tsx
12694 E68F EC 04           ..    ldd 04,x
12695 E691 37              7     pshb
12696 E692 36              6     psha
12697 E693 EC 02           ..    ldd 02,x
12698 E695 37              7     pshb
12699 E696 36              6     psha
12700 E697 CE 86 A0        ...   ldx #86a0
12701 E69A 3C              <     pshx
12702 E69B CC 00 01        ...   ldd #0001
12703 E69E BD FC 5C        ..\   jsr fc5c
12704 E6A1 37              7     pshb
12705 E6A2 36              6     psha
12706 E6A3 CE 27 10        .'.   ldx #2710
12707 E6A6 3C              <     pshx
12708 E6A7 CC 00 00        ...   ldd #0000
12709 E6AA BD FC 4C        ..L   jsr fc4c
12710 E6AD 31              1     ins
12711 E6AE 33              3     pulb
12712 E6AF CB 30           .0    addb #30
12713 E6B1 F7 0B 94        ...   stb 0b94
12714 E6B4 30              0     tsx
12715 E6B5 EC 04           ..    ldd 04,x
12716 E6B7 37              7     pshb
12717 E6B8 36              6     psha
12718 E6B9 EC 02           ..    ldd 02,x
12719 E6BB 37              7     pshb
12720 E6BC 36              6     psha
12721 E6BD CE 27 10        .'.   ldx #2710
12722 E6C0 3C              <     pshx
12723 E6C1 CC 00 00        ...   ldd #0000
12724 E6C4 BD FC 5C        ..\   jsr fc5c
12725 E6C7 37              7     pshb
12726 E6C8 36              6     psha
12727 E6C9 CE 03 E8        ...   ldx #03e8
12728 E6CC 3C              <     pshx
12729 E6CD CC 00 00        ...   ldd #0000
12730 E6D0 BD FC 4C        ..L   jsr fc4c
12731 E6D3 31              1     ins
12732 E6D4 33              3     pulb
12733 E6D5 CB 30           .0    addb #30
12734 E6D7 F7 0B 93        ...   stb 0b93
12735 E6DA 30              0     tsx
12736 E6DB EC 04           ..    ldd 04,x
12737 E6DD 37              7     pshb
12738 E6DE 36              6     psha
12739 E6DF EC 02           ..    ldd 02,x
12740 E6E1 37              7     pshb
12741 E6E2 36              6     psha
12742 E6E3 CE 03 E8        ...   ldx #03e8
12743 E6E6 3C              <     pshx
12744 E6E7 CC 00 00        ...   ldd #0000
12745 E6EA BD FC 5C        ..\   jsr fc5c
12746 E6ED 37              7     pshb
12747 E6EE 36              6     psha
12748 E6EF CE 00 64        ..d   ldx #0064
12749 E6F2 3C              <     pshx
12750 E6F3 CC 00 00        ...   ldd #0000
12751 E6F6 BD FC 4C        ..L   jsr fc4c
12752 E6F9 31              1     ins
12753 E6FA 33              3     pulb
12754 E6FB CB 30           .0    addb #30
12755 E6FD F7 0B 92        ...   stb 0b92
12756 E700 30              0     tsx
12757 E701 EC 04           ..    ldd 04,x
12758 E703 37              7     pshb
12759 E704 36              6     psha
12760 E705 EC 02           ..    ldd 02,x
12761 E707 37              7     pshb
12762 E708 36              6     psha
12763 E709 CE 00 64        ..d   ldx #0064
12764 E70C 3C              <     pshx
12765 E70D CC 00 00        ...   ldd #0000
12766 E710 BD FC 5C        ..\   jsr fc5c
12767 E713 37              7     pshb
12768 E714 36              6     psha
12769 E715 CE 00 0A        ...   ldx #000a
12770 E718 3C              <     pshx
12771 E719 CC 00 00        ...   ldd #0000
12772 E71C BD FC 4C        ..L   jsr fc4c
12773 E71F 31              1     ins
12774 E720 33              3     pulb
12775 E721 CB 30           .0    addb #30
12776 E723 F7 0B 91        ...   stb 0b91
12777 E726 30              0     tsx
12778 E727 EC 04           ..    ldd 04,x
12779 E729 37              7     pshb
12780 E72A 36              6     psha
12781 E72B EC 02           ..    ldd 02,x
12782 E72D 37              7     pshb
12783 E72E 36              6     psha
12784 E72F CE 00 0A        ...   ldx #000a
12785 E732 3C              <     pshx
12786 E733 CC 00 00        ...   ldd #0000
12787 E736 BD FC 5C        ..\   jsr fc5c
12788 E739 31              1     ins
12789 E73A 33              3     pulb
12790 E73B CB 30           .0    addb #30
12791 E73D F7 0B 90        ...   stb 0b90
12792 E740 38              8     pulx
12793 E741 31              1     ins
12794 E742 31              1     ins
12795 E743 6E 00           n.    jmp 00,x
12796 E745 37              7     pshb
12797 E746 36              6     psha
12798 E747 30              0     tsx
12799 E748 EC 00           ..    ldd 00,x
12800 E74A CE 27 10        .'.   ldx #2710
12801 E74D 02              .     idiv
12802 E74E 8F              .     xgdx
12803 E74F CB 30           .0    addb #30
12804 E751 F7 00 57        ..W   stb 0057
12805 E754 30              0     tsx
12806 E755 EC 00           ..    ldd 00,x
12807 E757 CE 27 10        .'.   ldx #2710
12808 E75A 02              .     idiv
12809 E75B CE 03 E8        ...   ldx #03e8
12810 E75E 02              .     idiv
12811 E75F 8F              .     xgdx
12812 E760 CB 30           .0    addb #30
12813 E762 F7 00 5A        ..Z   stb 005a
12814 E765 30              0     tsx
12815 E766 EC 00           ..    ldd 00,x
12816 E768 CE 03 E8        ...   ldx #03e8
12817 E76B 02              .     idiv
12818 E76C CE 00 64        ..d   ldx #0064
12819 E76F 02              .     idiv
12820 E770 8F              .     xgdx
12821 E771 CB 30           .0    addb #30
12822 E773 F7 00 5D        ..]   stb 005d
12823 E776 30              0     tsx
12824 E777 EC 00           ..    ldd 00,x
12825 E779 CE 00 64        ..d   ldx #0064
12826 E77C 02              .     idiv
12827 E77D CE 00 0A        ...   ldx #000a
12828 E780 02              .     idiv
12829 E781 8F              .     xgdx
12830 E782 CB 30           .0    addb #30
12831 E784 F7 00 5E        ..^   stb 005e
12832 E787 30              0     tsx
12833 E788 EC 00           ..    ldd 00,x
12834 E78A CE 00 0A        ...   ldx #000a
12835 E78D 02              .     idiv
12836 E78E CB 30           .0    addb #30
12837 E790 F7 00 5F        .._   stb 005f
12838 E793 38              8     pulx
12839 E794 39              9     rts
12840 E795 37              7     pshb
12841 E796 36              6     psha
12842 E797 30              0     tsx
12843 E798 E6 01           ..    ldab 01,x
12844 E79A 4F              O     clra
12845 E79B CE 00 64        ..d   ldx #0064
12846 E79E 02              .     idiv
12847 E79F 8F              .     xgdx
12848 E7A0 CB 30           .0    addb #30
12849 E7A2 F7 00 5D        ..]   stb 005d
12850 E7A5 30              0     tsx
12851 E7A6 E6 01           ..    ldab 01,x
12852 E7A8 4F              O     clra
12853 E7A9 CE 00 64        ..d   ldx #0064
12854 E7AC 02              .     idiv
12855 E7AD 4F              O     clra
12856 E7AE CE 00 0A        ...   ldx #000a
12857 E7B1 02              .     idiv
12858 E7B2 8F              .     xgdx
12859 E7B3 CB 30           .0    addb #30
12860 E7B5 F7 00 5E        ..^   stb 005e
12861 E7B8 30              0     tsx
12862 E7B9 E6 01           ..    ldab 01,x
12863 E7BB 4F              O     clra
12864 E7BC CE 00 0A        ...   ldx #000a
12865 E7BF 02              .     idiv
12866 E7C0 CB 30           .0    addb #30
12867 E7C2 F7 00 5F        .._   stb 005f
12868 E7C5 38              8     pulx
12869 E7C6 39              9     rts
12870 E7C7 F6 00 06        ...   ldab 0006
12871 E7CA 4F              O     clra
12872 E7CB CE 00 05        ...   ldx #0005
12873 E7CE 02              .     idiv
12874 E7CF 5D              ]     tstb
12875 E7D0 26 03           &.    bne 03
12876 E7D2 7E E8 99        ~..   jmp e899
12877 E7D5 F6 00 06        ...   ldab 0006
12878 E7D8 BD D7 A0        ...   jsr d7a0
12879 E7DB 83 00 00        ...   subd #0000
12880 E7DE 27 03           '.    beq 03
12881 E7E0 7E E8 99        ~..   jmp e899
12882 E7E3 F6 00 06        ...   ldab 0006
12883 E7E6 4F              O     clra
12884 E7E7 05              .     asld
12885 E7E8 C3 08 00        ...   addd #0800
12886 E7EB 8F              .     xgdx
12887 E7EC EC 00           ..    ldd 00,x
12888 E7EE C4 FF           ..    andb #ff
12889 E7F0 84 3F           .?    anda #3f
12890 E7F2 FD 10 16        ...   stad 1016
12891 E7F5 F6 00 06        ...   ldab 0006
12892 E7F8 4F              O     clra
12893 E7F9 05              .     asld
12894 E7FA C3 0B F1        ...   addd #0bf1
12895 E7FD 8F              .     xgdx
12896 E7FE EC 00           ..    ldd 00,x
12897 E800 C4 FF           ..    andb #ff
12898 E802 84 3F           .?    anda #3f
12899 E804 FD 10 18        ...   stad 1018
12900 E807 FC 10 16        ...   ldd 1016
12901 E80A 83 00 00        ...   subd #0000
12902 E80D 25 08           %.    bcs 08
12903 E80F FC 10 16        ...   ldd 1016
12904 E812 83 27 0F        .'.   subd #270f
12905 E815 23 35           #5    bls 35
12906 E817 F6 00 06        ...   ldab 0006
12907 E81A BD D4 68        ..h   jsr d468
12908 E81D 83 00 00        ...   subd #0000
12909 E820 27 2A           '*    beq 2a
12910 E822 CC 01 00        ...   ldd #0100
12911 E825 37              7     pshb
12912 E826 36              6     psha
12913 E827 F6 00 06        ...   ldab 0006
12914 E82A 4F              O     clra
12915 E82B 05              .     asld
12916 E82C C3 08 C8        ...   addd #08c8
12917 E82F 38              8     pulx
12918 E830 8F              .     xgdx
12919 E831 AA 00           ..    ora 00,x
12920 E833 EA 01           ..    orb 01,x
12921 E835 ED 00           ..    stad 00,x
12922 E837 CC 40 00        .@.   ldd #4000
12923 E83A 37              7     pshb
12924 E83B 36              6     psha
12925 E83C F6 00 06        ...   ldab 0006
12926 E83F 4F              O     clra
12927 E840 05              .     asld
12928 E841 C3 08 00        ...   addd #0800
12929 E844 38              8     pulx
12930 E845 8F              .     xgdx
12931 E846 AA 00           ..    ora 00,x
12932 E848 EA 01           ..    orb 01,x
12933 E84A ED 00           ..    stad 00,x
12934 E84C CE 10 16        ...   ldx #1016
12935 E84F 1D 00           ..    bclr add,x 00,x
12936 E851 C0 FC           ..    subb #fc
12937 E853 10              .     sba
12938 E854 18              .     illegal
12939 E855 43              C     coma
12940 E856 53              S     comb
12941 E857 FD 10 18        ...   stad 1018
12942 E85A CE 10 18        ...   ldx #1018
12943 E85D 1D 00           ..    bclr add,x 00,x
12944 E85F C0 FC           ..    subb #fc
12945 E861 10              .     sba
12946 E862 16              .     tab
12947 E863 37              7     pshb
12948 E864 36              6     psha
12949 E865 FC 10 18        ...   ldd 1018
12950 E868 30              0     tsx
12951 E869 A3 00           ..    subd 00,x
12952 E86B 31              1     ins
12953 E86C 31              1     ins
12954 E86D 27 2A           '*    beq 2a
12955 E86F CC 01 00        ...   ldd #0100
12956 E872 37              7     pshb
12957 E873 36              6     psha
12958 E874 F6 00 06        ...   ldab 0006
12959 E877 4F              O     clra
12960 E878 05              .     asld
12961 E879 C3 08 C8        ...   addd #08c8
12962 E87C 38              8     pulx
12963 E87D 8F              .     xgdx
12964 E87E AA 00           ..    ora 00,x
12965 E880 EA 01           ..    orb 01,x
12966 E882 ED 00           ..    stad 00,x
12967 E884 CC 40 00        .@.   ldd #4000
12968 E887 37              7     pshb
12969 E888 36              6     psha
12970 E889 F6 00 06        ...   ldab 0006
12971 E88C 4F              O     clra
12972 E88D 05              .     asld
12973 E88E C3 08 00        ...   addd #0800
12974 E891 38              8     pulx
12975 E892 8F              .     xgdx
12976 E893 AA 00           ..    ora 00,x
12977 E895 EA 01           ..    orb 01,x
12978 E897 ED 00           ..    stad 00,x
12979 E899 39              9     rts
12980 E89A 5F              _     clrb
12981 E89B 4F              O     clra
12982 E89C FD 00 0F        ...   stad 000f
12983 E89F CC 3F FF        .?.   ldd #3fff
12984 E8A2 FD 00 50        ..P   stad 0050
12985 E8A5 7F 00 06        ...   clr 0006
12986 E8A8 F6 00 06        ...   ldab 0006
12987 E8AB C1 64           .d    cmpb #64
12988 E8AD 24 64           $d    bcc 64
12989 E8AF F6 00 06        ...   ldab 0006
12990 E8B2 4F              O     clra
12991 E8B3 CE 00 05        ...   ldx #0005
12992 E8B6 02              .     idiv
12993 E8B7 5D              ]     tstb
12994 E8B8 27 54           'T    beq 54
12995 E8BA F6 00 06        ...   ldab 0006
12996 E8BD BD D7 A0        ...   jsr d7a0
12997 E8C0 83 00 00        ...   subd #0000
12998 E8C3 26 49           &I    bne 49
12999 E8C5 F6 00 06        ...   ldab 0006
13000 E8C8 4F              O     clra
13001 E8C9 05              .     asld
13002 E8CA C3 08 00        ...   addd #0800
13003 E8CD 8F              .     xgdx
13004 E8CE EC 00           ..    ldd 00,x
13005 E8D0 C4 FF           ..    andb #ff
13006 E8D2 84 3F           .?    anda #3f
13007 E8D4 FD 10 16        ...   stad 1016
13008 E8D7 FC 10 16        ...   ldd 1016
13009 E8DA 83 27 10        .'.   subd #2710
13010 E8DD 24 2F           $/    bcc 2f
13011 E8DF F6 00 06        ...   ldab 0006
13012 E8E2 BD D4 68        ..h   jsr d468
13013 E8E5 83 00 00        ...   subd #0000
13014 E8E8 27 24           '$    beq 24
13015 E8EA BD D5 61        ..a   jsr d561
13016 E8ED 83 00 00        ...   subd #0000
13017 E8F0 26 1C           &.    bne 1c
13018 E8F2 FC 10 16        ...   ldd 1016
13019 E8F5 B3 00 0F        ...   subd 000f
13020 E8F8 23 06           #.    bls 06
13021 E8FA FC 10 16        ...   ldd 1016
13022 E8FD FD 00 0F        ...   stad 000f
13023 E900 FC 10 16        ...   ldd 1016
13024 E903 B3 00 50        ..P   subd 0050
13025 E906 24 06           $.    bcc 06
13026 E908 FC 10 16        ...   ldd 1016
13027 E90B FD 00 50        ..P   stad 0050
13028 E90E 7C 00 06        |..   inc 0006
13029 E911 20 95            .    bra 95
13030 E913 FC 0B B7        ...   ldd 0bb7
13031 E916 27 12           '.    beq 12
13032 E918 FC 00 0F        ...   ldd 000f
13033 E91B B3 0B B7        ...   subd 0bb7
13034 E91E 23 0A           #.    bls 0a
13035 E920 FC 00 0F        ...   ldd 000f
13036 E923 05              .     asld
13037 E924 B3 0B B7        ...   subd 0bb7
13038 E927 FD 00 0F        ...   stad 000f
13039 E92A 39              9     rts
13040 E92B 34              4     des
13041 E92C 30              0     tsx
13042 E92D 6F 00           o.    clr 00,x
13043 E92F 30              0     tsx
13044 E930 E6 00           ..    ldab 00,x
13045 E932 C1 64           .d    cmpb #64
13046 E934 24 15           $.    bcc 15
13047 E936 5F              _     clrb
13048 E937 4F              O     clra
13049 E938 37              7     pshb
13050 E939 36              6     psha
13051 E93A 30              0     tsx
13052 E93B E6 02           ..    ldab 02,x
13053 E93D 4F              O     clra
13054 E93E 05              .     asld
13055 E93F C3 0D 1F        ...   addd #0d1f
13056 E942 38              8     pulx
13057 E943 8F              .     xgdx
13058 E944 ED 00           ..    stad 00,x
13059 E946 30              0     tsx
13060 E947 6C 00           l.    inc 00,x
13061 E949 20 E4            .    bra e4
13062 E94B 4F              O     clra
13063 E94C 5F              _     clrb
13064 E94D FD 0D F9        ...   stad 0df9
13065 E950 FD 0D F7        ...   stad 0df7
13066 E953 4F              O     clra
13067 E954 5F              _     clrb
13068 E955 FD 0D F5        ...   stad 0df5
13069 E958 FD 0D F3        ...   stad 0df3
13070 E95B 4F              O     clra
13071 E95C 5F              _     clrb
13072 E95D FD 0D F1        ...   stad 0df1
13073 E960 FD 0D EF        ...   stad 0def
13074 E963 4F              O     clra
13075 E964 5F              _     clrb
13076 E965 FD 0D FD        ...   stad 0dfd
13077 E968 FD 0D FB        ...   stad 0dfb
13078 E96B 4F              O     clra
13079 E96C 5F              _     clrb
13080 E96D FD 0D E9        ...   stad 0de9
13081 E970 FD 0D E7        ...   stad 0de7
13082 E973 5F              _     clrb
13083 E974 4F              O     clra
13084 E975 FD 0C DD        ...   stad 0cdd
13085 E978 5F              _     clrb
13086 E979 4F              O     clra
13087 E97A FD 0C DF        ...   stad 0cdf
13088 E97D 5F              _     clrb
13089 E97E 4F              O     clra
13090 E97F FD 0C E1        ...   stad 0ce1
13091 E982 5F              _     clrb
13092 E983 4F              O     clra
13093 E984 FD 0C E3        ...   stad 0ce3
13094 E987 5F              _     clrb
13095 E988 4F              O     clra
13096 E989 FD 0C E5        ...   stad 0ce5
13097 E98C 4F              O     clra
13098 E98D 5F              _     clrb
13099 E98E FD 0C F5        ...   stad 0cf5
13100 E991 FD 0C F3        ...   stad 0cf3
13101 E994 4F              O     clra
13102 E995 5F              _     clrb
13103 E996 FD 0C F9        ...   stad 0cf9
13104 E999 FD 0C F7        ...   stad 0cf7
13105 E99C 4F              O     clra
13106 E99D 5F              _     clrb
13107 E99E FD 0C FD        ...   stad 0cfd
13108 E9A1 FD 0C FB        ...   stad 0cfb
13109 E9A4 4F              O     clra
13110 E9A5 5F              _     clrb
13111 E9A6 FD 0D 01        ...   stad 0d01
13112 E9A9 FD 0C FF        ...   stad 0cff
13113 E9AC 4F              O     clra
13114 E9AD 5F              _     clrb
13115 E9AE FD 0D 05        ...   stad 0d05
13116 E9B1 FD 0D 03        ...   stad 0d03
13117 E9B4 5F              _     clrb
13118 E9B5 4F              O     clra
13119 E9B6 FD 0D 07        ...   stad 0d07
13120 E9B9 5F              _     clrb
13121 E9BA 4F              O     clra
13122 E9BB FD 0D 09        ...   stad 0d09
13123 E9BE 5F              _     clrb
13124 E9BF 4F              O     clra
13125 E9C0 FD 0D 0B        ...   stad 0d0b
13126 E9C3 5F              _     clrb
13127 E9C4 4F              O     clra
13128 E9C5 FD 0D 0D        ...   stad 0d0d
13129 E9C8 4F              O     clra
13130 E9C9 5F              _     clrb
13131 E9CA FD 0D 11        ...   stad 0d11
13132 E9CD FD 0D 0F        ...   stad 0d0f
13133 E9D0 4F              O     clra
13134 E9D1 5F              _     clrb
13135 E9D2 FD 0D 15        ...   stad 0d15
13136 E9D5 FD 0D 13        ...   stad 0d13
13137 E9D8 4F              O     clra
13138 E9D9 5F              _     clrb
13139 E9DA FD 0D 19        ...   stad 0d19
13140 E9DD FD 0D 17        ...   stad 0d17
13141 E9E0 4F              O     clra
13142 E9E1 5F              _     clrb
13143 E9E2 FD 0D 1D        ...   stad 0d1d
13144 E9E5 FD 0D 1B        ...   stad 0d1b
13145 E9E8 31              1     ins
13146 E9E9 39              9     rts
13147 E9EA 7F 00 06        ...   clr 0006
13148 E9ED F6 00 06        ...   ldab 0006
13149 E9F0 C1 64           .d    cmpb #64
13150 E9F2 24 64           $d    bcc 64
13151 E9F4 F6 00 06        ...   ldab 0006
13152 E9F7 4F              O     clra
13153 E9F8 CE 00 05        ...   ldx #0005
13154 E9FB 02              .     idiv
13155 E9FC 5D              ]     tstb
13156 E9FD 27 54           'T    beq 54
13157 E9FF CC BF FF        ...   ldd #bfff
13158 EA02 37              7     pshb
13159 EA03 36              6     psha
13160 EA04 F6 00 06        ...   ldab 0006
13161 EA07 4F              O     clra
13162 EA08 05              .     asld
13163 EA09 C3 08 00        ...   addd #0800
13164 EA0C 38              8     pulx
13165 EA0D 8F              .     xgdx
13166 EA0E A4 00           ..    anda 00,x
13167 EA10 E4 01           ..    andb 01,x
13168 EA12 ED 00           ..    stad 00,x
13169 EA14 CC FE FF        ...   ldd #feff
13170 EA17 37              7     pshb
13171 EA18 36              6     psha
13172 EA19 F6 00 06        ...   ldab 0006
13173 EA1C 4F              O     clra
13174 EA1D 05              .     asld
13175 EA1E C3 08 C8        ...   addd #08c8
13176 EA21 38              8     pulx
13177 EA22 8F              .     xgdx
13178 EA23 A4 00           ..    anda 00,x
13179 EA25 E4 01           ..    andb 01,x
13180 EA27 ED 00           ..    stad 00,x
13181 EA29 CC FD FF        ...   ldd #fdff
13182 EA2C 37              7     pshb
13183 EA2D 36              6     psha
13184 EA2E F6 00 06        ...   ldab 0006
13185 EA31 4F              O     clra
13186 EA32 05              .     asld
13187 EA33 C3 08 C8        ...   addd #08c8
13188 EA36 38              8     pulx
13189 EA37 8F              .     xgdx
13190 EA38 A4 00           ..    anda 00,x
13191 EA3A E4 01           ..    andb 01,x
13192 EA3C ED 00           ..    stad 00,x
13193 EA3E CC FB FF        ...   ldd #fbff
13194 EA41 37              7     pshb
13195 EA42 36              6     psha
13196 EA43 F6 00 06        ...   ldab 0006
13197 EA46 4F              O     clra
13198 EA47 05              .     asld
13199 EA48 C3 08 C8        ...   addd #08c8
13200 EA4B 38              8     pulx
13201 EA4C 8F              .     xgdx
13202 EA4D A4 00           ..    anda 00,x
13203 EA4F E4 01           ..    andb 01,x
13204 EA51 ED 00           ..    stad 00,x
13205 EA53 7C 00 06        |..   inc 0006
13206 EA56 20 95            .    bra 95
13207 EA58 39              9     rts
13208 EA59 34              4     des
13209 EA5A CE 00 04        ...   ldx #0004
13210 EA5D 3C              <     pshx
13211 EA5E CC 10 0A        ...   ldd #100a
13212 EA61 BD E5 D7        ...   jsr e5d7
13213 EA64 38              8     pulx
13214 EA65 83 00 00        ...   subd #0000
13215 EA68 27 3F           '?    beq 3f
13216 EA6A CE 00 01        ...   ldx #0001
13217 EA6D 3C              <     pshx
13218 EA6E CC 18 00        ...   ldd #1800
13219 EA71 BD E5 D7        ...   jsr e5d7
13220 EA74 38              8     pulx
13221 EA75 83 00 00        ...   subd #0000
13222 EA78 27 2F           '/    beq 2f
13223 EA7A CC 03 E8        ...   ldd #03e8
13224 EA7D BD E5 71        ..q   jsr e571
13225 EA80 7F 0B A8        ...   clr 0ba8
13226 EA83 F6 18 00        ...   ldab 1800
13227 EA86 C4 01           ..    andb #01
13228 EA88 26 1C           &.    bne 1c
13229 EA8A BD BE 4B        ..K   jsr be4b
13230 EA8D 0F              .     sei
13231 EA8E BD BE 01        ...   jsr be01
13232 EA91 0E              .     cli
13233 EA92 CC 01 F4        ...   ldd #01f4
13234 EA95 BD E5 71        ..q   jsr e571
13235 EA98 CC AF D1        ...   ldd #afd1
13236 EA9B BD C0 BA        ...   jsr c0ba
13237 EA9E CC 01 F4        ...   ldd #01f4
13238 EAA1 BD E5 71        ..q   jsr e571
13239 EAA4 20 DD            .    bra dd
13240 EAA6 BD BE 69        ..i   jsr be69
13241 EAA9 C6 01           ..    ldab #01
13242 EAAB F7 00 14        ...   stb 0014
13243 EAAE F6 00 14        ...   ldab 0014
13244 EAB1 F7 38 00        .8.   stb 3800
13245 EAB4 CC 00 1E        ...   ldd #001e
13246 EAB7 BD E5 71        ..q   jsr e571
13247 EABA CE 00 01        ...   ldx #0001
13248 EABD 3C              <     pshx
13249 EABE CC 10 00        ...   ldd #1000
13250 EAC1 BD E5 D7        ...   jsr e5d7
13251 EAC4 38              8     pulx
13252 EAC5 83 00 00        ...   subd #0000
13253 EAC8 27 10           '.    beq 10
13254 EACA CE 00 02        ...   ldx #0002
13255 EACD 3C              <     pshx
13256 EACE CC 10 00        ...   ldd #1000
13257 EAD1 BD E5 D7        ...   jsr e5d7
13258 EAD4 38              8     pulx
13259 EAD5 83 00 00        ...   subd #0000
13260 EAD8 27 03           '.    beq 03
13261 EADA 7E ED F8        ~..   jmp edf8
13262 EADD C6 02           ..    ldab #02
13263 EADF F7 00 14        ...   stb 0014
13264 EAE2 F6 00 14        ...   ldab 0014
13265 EAE5 F7 38 00        .8.   stb 3800
13266 EAE8 CC 00 1E        ...   ldd #001e
13267 EAEB BD E5 71        ..q   jsr e571
13268 EAEE CE 00 01        ...   ldx #0001
13269 EAF1 3C              <     pshx
13270 EAF2 CC 10 00        ...   ldd #1000
13271 EAF5 BD E5 D7        ...   jsr e5d7
13272 EAF8 38              8     pulx
13273 EAF9 83 00 00        ...   subd #0000
13274 EAFC 26 10           &.    bne 10
13275 EAFE CE 00 02        ...   ldx #0002
13276 EB01 3C              <     pshx
13277 EB02 CC 10 00        ...   ldd #1000
13278 EB05 BD E5 D7        ...   jsr e5d7
13279 EB08 38              8     pulx
13280 EB09 83 00 00        ...   subd #0000
13281 EB0C 26 03           &.    bne 03
13282 EB0E 7E ED F8        ~..   jmp edf8
13283 EB11 CC 5A 5A        .ZZ   ldd #5a5a
13284 EB14 FD 10 16        ...   stad 1016
13285 EB17 CC B1 39        ..9   ldd #b139
13286 EB1A BD C0 BA        ...   jsr c0ba
13287 EB1D CC 07 D0        ...   ldd #07d0
13288 EB20 BD E5 71        ..q   jsr e571
13289 EB23 CC B1 44        ..D   ldd #b144
13290 EB26 BD C0 BA        ...   jsr c0ba
13291 EB29 CC 07 D0        ...   ldd #07d0
13292 EB2C BD E5 71        ..q   jsr e571
13293 EB2F CC 00 14        ...   ldd #0014
13294 EB32 FD 00 3B        ..;   stad 003b
13295 EB35 FC 00 3B        ..;   ldd 003b
13296 EB38 27 47           'G    beq 47
13297 EB3A 30              0     tsx
13298 EB3B 6F 00           o.    clr 00,x
13299 EB3D 30              0     tsx
13300 EB3E E6 00           ..    ldab 00,x
13301 EB40 C1 0A           ..    cmpb #0a
13302 EB42 24 3B           $;    bcc 3b
13303 EB44 BD BE 4B        ..K   jsr be4b
13304 EB47 C6 2E           ..    ldab #2e
13305 EB49 37              7     pshb
13306 EB4A 30              0     tsx
13307 EB4B E6 01           ..    ldab 01,x
13308 EB4D 4F              O     clra
13309 EB4E C3 0B 90        ...   addd #0b90
13310 EB51 8F              .     xgdx
13311 EB52 33              3     pulb
13312 EB53 E7 00           ..    stb 00,x
13313 EB55 0F              .     sei
13314 EB56 BD BE 69        ..i   jsr be69
13315 EB59 CE 10 28        ..(   ldx #1028
13316 EB5C 1C 00           ..    bset add,x 00,x
13317 EB5E 40              @     nega
13318 EB5F CE 00 01        ...   ldx #0001
13319 EB62 3C              <     pshx
13320 EB63 CC 00 20        ..    ldd #0020
13321 EB66 BD BD B5        ...   jsr bdb5
13322 EB69 38              8     pulx
13323 EB6A CE 10 28        ..(   ldx #1028
13324 EB6D 1D 00           ..    bclr add,x 00,x
13325 EB6F 40              @     nega
13326 EB70 BD BE 10        ...   jsr be10
13327 EB73 0E              .     cli
13328 EB74 CC 00 07        ...   ldd #0007
13329 EB77 BD E5 71        ..q   jsr e571
13330 EB7A 30              0     tsx
13331 EB7B 6C 00           l.    inc 00,x
13332 EB7D 20 BE            .    bra be
13333 EB7F 20 B4            .    bra b4
13334 EB81 BD BE 69        ..i   jsr be69
13335 EB84 CC 08 00        ...   ldd #0800
13336 EB87 FD 00 73        ..s   stad 0073
13337 EB8A FC 00 73        ..s   ldd 0073
13338 EB8D 83 0F FF        ...   subd #0fff
13339 EB90 22 10           ".    bhi 10
13340 EB92 C6 AA           ..    ldab #aa
13341 EB94 FE 00 73        ..s   ldx 0073
13342 EB97 E7 00           ..    stb 00,x
13343 EB99 FE 00 73        ..s   ldx 0073
13344 EB9C 08              .     inx
13345 EB9D FF 00 73        ..s   stx 0073
13346 EBA0 20 E8            .    bra e8
13347 EBA2 CC 08 00        ...   ldd #0800
13348 EBA5 FD 00 73        ..s   stad 0073
13349 EBA8 FC 00 73        ..s   ldd 0073
13350 EBAB 83 0F FF        ...   subd #0fff
13351 EBAE 22 1A           ".    bhi 1a
13352 EBB0 FE 00 73        ..s   ldx 0073
13353 EBB3 E6 00           ..    ldab 00,x
13354 EBB5 C1 AA           ..    cmpb #aa
13355 EBB7 27 08           '.    beq 08
13356 EBB9 CE 10 16        ...   ldx #1016
13357 EBBC 1D 00           ..    bclr add,x 00,x
13358 EBBE FF 20 09        . .   stx 2009
13359 EBC1 FE 00 73        ..s   ldx 0073
13360 EBC4 08              .     inx
13361 EBC5 FF 00 73        ..s   stx 0073
13362 EBC8 20 DE            .    bra de
13363 EBCA CC 08 00        ...   ldd #0800
13364 EBCD FD 00 73        ..s   stad 0073
13365 EBD0 FC 00 73        ..s   ldd 0073
13366 EBD3 83 0F FF        ...   subd #0fff
13367 EBD6 22 10           ".    bhi 10
13368 EBD8 C6 55           .U    ldab #55
13369 EBDA FE 00 73        ..s   ldx 0073
13370 EBDD E7 00           ..    stb 00,x
13371 EBDF FE 00 73        ..s   ldx 0073
13372 EBE2 08              .     inx
13373 EBE3 FF 00 73        ..s   stx 0073
13374 EBE6 20 E8            .    bra e8
13375 EBE8 CC 08 00        ...   ldd #0800
13376 EBEB FD 00 73        ..s   stad 0073
13377 EBEE FC 00 73        ..s   ldd 0073
13378 EBF1 83 0F FF        ...   subd #0fff
13379 EBF4 22 1A           ".    bhi 1a
13380 EBF6 FE 00 73        ..s   ldx 0073
13381 EBF9 E6 00           ..    ldab 00,x
13382 EBFB C1 55           .U    cmpb #55
13383 EBFD 27 08           '.    beq 08
13384 EBFF CE 10 16        ...   ldx #1016
13385 EC02 1D 00           ..    bclr add,x 00,x
13386 EC04 FF 20 09        . .   stx 2009
13387 EC07 FE 00 73        ..s   ldx 0073
13388 EC0A 08              .     inx
13389 EC0B FF 00 73        ..s   stx 0073
13390 EC0E 20 DE            .    bra de
13391 EC10 CC 08 00        ...   ldd #0800
13392 EC13 FD 00 73        ..s   stad 0073
13393 EC16 FC 00 73        ..s   ldd 0073
13394 EC19 83 0F FF        ...   subd #0fff
13395 EC1C 22 0F           ".    bhi 0f
13396 EC1E 5F              _     clrb
13397 EC1F FE 00 73        ..s   ldx 0073
13398 EC22 E7 00           ..    stb 00,x
13399 EC24 FE 00 73        ..s   ldx 0073
13400 EC27 08              .     inx
13401 EC28 FF 00 73        ..s   stx 0073
13402 EC2B 20 E9            .    bra e9
13403 EC2D 7F 00 06        ...   clr 0006
13404 EC30 F6 00 06        ...   ldab 0006
13405 EC33 C1 64           .d    cmpb #64
13406 EC35 24 4D           $M    bcc 4d
13407 EC37 F6 00 06        ...   ldab 0006
13408 EC3A 4F              O     clra
13409 EC3B CE 00 05        ...   ldx #0005
13410 EC3E 02              .     idiv
13411 EC3F 5D              ]     tstb
13412 EC40 27 3D           '=    beq 3d
13413 EC42 CC 00 32        ..2   ldd #0032
13414 EC45 37              7     pshb
13415 EC46 36              6     psha
13416 EC47 F6 00 06        ...   ldab 0006
13417 EC4A 4F              O     clra
13418 EC4B 05              .     asld
13419 EC4C C3 08 00        ...   addd #0800
13420 EC4F 38              8     pulx
13421 EC50 8F              .     xgdx
13422 EC51 ED 00           ..    stad 00,x
13423 EC53 F6 00 06        ...   ldab 0006
13424 EC56 4F              O     clra
13425 EC57 05              .     asld
13426 EC58 C3 08 00        ...   addd #0800
13427 EC5B 8F              .     xgdx
13428 EC5C EC 00           ..    ldd 00,x
13429 EC5E 43              C     coma
13430 EC5F 53              S     comb
13431 EC60 37              7     pshb
13432 EC61 36              6     psha
13433 EC62 F6 00 06        ...   ldab 0006
13434 EC65 4F              O     clra
13435 EC66 05              .     asld
13436 EC67 C3 0B F1        ...   addd #0bf1
13437 EC6A 38              8     pulx
13438 EC6B 8F              .     xgdx
13439 EC6C ED 00           ..    stad 00,x
13440 EC6E CC 08 01        ...   ldd #0801
13441 EC71 37              7     pshb
13442 EC72 36              6     psha
13443 EC73 F6 00 06        ...   ldab 0006
13444 EC76 4F              O     clra
13445 EC77 05              .     asld
13446 EC78 C3 08 C8        ...   addd #08c8
13447 EC7B 38              8     pulx
13448 EC7C 8F              .     xgdx
13449 EC7D ED 00           ..    stad 00,x
13450 EC7F 7C 00 06        |..   inc 0006
13451 EC82 20 AC            .    bra ac
13452 EC84 C6 1D           ..    ldab #1d
13453 EC86 F7 0B BF        ...   stb 0bbf
13454 EC89 30              0     tsx
13455 EC8A 6F 00           o.    clr 00,x
13456 EC8C F6 0B BF        ...   ldab 0bbf
13457 EC8F 4F              O     clra
13458 EC90 C3 00 02        ...   addd #0002
13459 EC93 37              7     pshb
13460 EC94 36              6     psha
13461 EC95 30              0     tsx
13462 EC96 E6 02           ..    ldab 02,x
13463 EC98 4F              O     clra
13464 EC99 A3 00           ..    subd 00,x
13465 EC9B 31              1     ins
13466 EC9C 31              1     ins
13467 EC9D 2C 1B           ,.    bge 1b
13468 EC9F 30              0     tsx
13469 ECA0 E6 00           ..    ldab 00,x
13470 ECA2 4F              O     clra
13471 ECA3 C3 B1 D0        ...   addd #b1d0
13472 ECA6 8F              .     xgdx
13473 ECA7 E6 00           ..    ldab 00,x
13474 ECA9 37              7     pshb
13475 ECAA 30              0     tsx
13476 ECAB E6 01           ..    ldab 01,x
13477 ECAD 4F              O     clra
13478 ECAE C3 09 93        ...   addd #0993
13479 ECB1 8F              .     xgdx
13480 ECB2 33              3     pulb
13481 ECB3 E7 00           ..    stb 00,x
13482 ECB5 30              0     tsx
13483 ECB6 6C 00           l.    inc 00,x
13484 ECB8 20 D2            .    bra d2
13485 ECBA 7F 0B A8        ...   clr 0ba8
13486 ECBD CC 00 32        ..2   ldd #0032
13487 ECC0 FD 0B B5        ...   stad 0bb5
13488 ECC3 5F              _     clrb
13489 ECC4 4F              O     clra
13490 ECC5 FD 0B B7        ...   stad 0bb7
13491 ECC8 7F 00 06        ...   clr 0006
13492 ECCB BD A6 4E        ..N   jsr a64e
13493 ECCE C6 09           ..    ldab #09
13494 ECD0 F7 0B C0        ...   stb 0bc0
13495 ECD3 7F 0E 6D        ..m   clr 0e6d
13496 ECD6 C6 01           ..    ldab #01
13497 ECD8 F7 0E 6E        ..n   stb 0e6e
13498 ECDB 30              0     tsx
13499 ECDC 6F 00           o.    clr 00,x
13500 ECDE 30              0     tsx
13501 ECDF E6 00           ..    ldab 00,x
13502 ECE1 C1 0F           ..    cmpb #0f
13503 ECE3 24 21           $!    bcc 21
13504 ECE5 C6 30           .0    ldab #30
13505 ECE7 37              7     pshb
13506 ECE8 30              0     tsx
13507 ECE9 E6 01           ..    ldab 01,x
13508 ECEB 4F              O     clra
13509 ECEC C3 0C B9        ...   addd #0cb9
13510 ECEF 8F              .     xgdx
13511 ECF0 33              3     pulb
13512 ECF1 E7 00           ..    stb 00,x
13513 ECF3 C6 30           .0    ldab #30
13514 ECF5 37              7     pshb
13515 ECF6 30              0     tsx
13516 ECF7 E6 01           ..    ldab 01,x
13517 ECF9 4F              O     clra
13518 ECFA C3 0C C9        ...   addd #0cc9
13519 ECFD 8F              .     xgdx
13520 ECFE 33              3     pulb
13521 ECFF E7 00           ..    stb 00,x
13522 ED01 30              0     tsx
13523 ED02 6C 00           l.    inc 00,x
13524 ED04 20 D8            .    bra d8
13525 ED06 30              0     tsx
13526 ED07 6F 00           o.    clr 00,x
13527 ED09 30              0     tsx
13528 ED0A E6 00           ..    ldab 00,x
13529 ED0C C1 0B           ..    cmpb #0b
13530 ED0E 24 12           $.    bcc 12
13531 ED10 5F              _     clrb
13532 ED11 37              7     pshb
13533 ED12 30              0     tsx
13534 ED13 E6 01           ..    ldab 01,x
13535 ED15 4F              O     clra
13536 ED16 C3 0B E4        ...   addd #0be4
13537 ED19 8F              .     xgdx
13538 ED1A 33              3     pulb
13539 ED1B E7 00           ..    stb 00,x
13540 ED1D 30              0     tsx
13541 ED1E 6C 00           l.    inc 00,x
13542 ED20 20 E7            .    bra e7
13543 ED22 4F              O     clra
13544 ED23 5F              _     clrb
13545 ED24 FD 0D F9        ...   stad 0df9
13546 ED27 FD 0D F7        ...   stad 0df7
13547 ED2A 4F              O     clra
13548 ED2B 5F              _     clrb
13549 ED2C FD 0D F5        ...   stad 0df5
13550 ED2F FD 0D F3        ...   stad 0df3
13551 ED32 7F 0C D9        ...   clr 0cd9
13552 ED35 7F 0C DA        ...   clr 0cda
13553 ED38 7F 0C DB        ...   clr 0cdb
13554 ED3B 7F 0C DC        ...   clr 0cdc
13555 ED3E 4F              O     clra
13556 ED3F 5F              _     clrb
13557 ED40 FD 0D F1        ...   stad 0df1
13558 ED43 FD 0D EF        ...   stad 0def
13559 ED46 4F              O     clra
13560 ED47 5F              _     clrb
13561 ED48 FD 0D FD        ...   stad 0dfd
13562 ED4B FD 0D FB        ...   stad 0dfb
13563 ED4E 4F              O     clra
13564 ED4F 5F              _     clrb
13565 ED50 FD 0D E9        ...   stad 0de9
13566 ED53 FD 0D E7        ...   stad 0de7
13567 ED56 4F              O     clra
13568 ED57 5F              _     clrb
13569 ED58 FD 0D ED        ...   stad 0ded
13570 ED5B FD 0D EB        ...   stad 0deb
13571 ED5E 5F              _     clrb
13572 ED5F 4F              O     clra
13573 ED60 FD 0C DD        ...   stad 0cdd
13574 ED63 5F              _     clrb
13575 ED64 4F              O     clra
13576 ED65 FD 0C DF        ...   stad 0cdf
13577 ED68 5F              _     clrb
13578 ED69 4F              O     clra
13579 ED6A FD 0C E1        ...   stad 0ce1
13580 ED6D 5F              _     clrb
13581 ED6E 4F              O     clra
13582 ED6F FD 0C E3        ...   stad 0ce3
13583 ED72 5F              _     clrb
13584 ED73 4F              O     clra
13585 ED74 FD 0C E5        ...   stad 0ce5
13586 ED77 4F              O     clra
13587 ED78 5F              _     clrb
13588 ED79 FD 0C F5        ...   stad 0cf5
13589 ED7C FD 0C F3        ...   stad 0cf3
13590 ED7F 4F              O     clra
13591 ED80 5F              _     clrb
13592 ED81 FD 0C F9        ...   stad 0cf9
13593 ED84 FD 0C F7        ...   stad 0cf7
13594 ED87 4F              O     clra
13595 ED88 5F              _     clrb
13596 ED89 FD 0C FD        ...   stad 0cfd
13597 ED8C FD 0C FB        ...   stad 0cfb
13598 ED8F 4F              O     clra
13599 ED90 5F              _     clrb
13600 ED91 FD 0D 01        ...   stad 0d01
13601 ED94 FD 0C FF        ...   stad 0cff
13602 ED97 4F              O     clra
13603 ED98 5F              _     clrb
13604 ED99 FD 0D 05        ...   stad 0d05
13605 ED9C FD 0D 03        ...   stad 0d03
13606 ED9F 5F              _     clrb
13607 EDA0 4F              O     clra
13608 EDA1 FD 0D 07        ...   stad 0d07
13609 EDA4 5F              _     clrb
13610 EDA5 4F              O     clra
13611 EDA6 FD 0D 09        ...   stad 0d09
13612 EDA9 5F              _     clrb
13613 EDAA 4F              O     clra
13614 EDAB FD 0D 0B        ...   stad 0d0b
13615 EDAE 5F              _     clrb
13616 EDAF 4F              O     clra
13617 EDB0 FD 0D 0D        ...   stad 0d0d
13618 EDB3 4F              O     clra
13619 EDB4 5F              _     clrb
13620 EDB5 FD 0D 11        ...   stad 0d11
13621 EDB8 FD 0D 0F        ...   stad 0d0f
13622 EDBB 4F              O     clra
13623 EDBC 5F              _     clrb
13624 EDBD FD 0D 15        ...   stad 0d15
13625 EDC0 FD 0D 13        ...   stad 0d13
13626 EDC3 4F              O     clra
13627 EDC4 5F              _     clrb
13628 EDC5 FD 0D 19        ...   stad 0d19
13629 EDC8 FD 0D 17        ...   stad 0d17
13630 EDCB 4F              O     clra
13631 EDCC 5F              _     clrb
13632 EDCD FD 0D 1D        ...   stad 0d1d
13633 EDD0 FD 0D 1B        ...   stad 0d1b
13634 EDD3 7F 0B AF        ...   clr 0baf
13635 EDD6 7F 0B AE        ...   clr 0bae
13636 EDD9 7F 0B AD        ...   clr 0bad
13637 EDDC 7F 0B AC        ...   clr 0bac
13638 EDDF 7F 0B AB        ...   clr 0bab
13639 EDE2 7F 0B B4        ...   clr 0bb4
13640 EDE5 7F 0B B3        ...   clr 0bb3
13641 EDE8 7F 0B B2        ...   clr 0bb2
13642 EDEB 7F 0B B1        ...   clr 0bb1
13643 EDEE 7F 0B B0        ...   clr 0bb0
13644 EDF1 C6 05           ..    ldab #05
13645 EDF3 F7 08 00        ...   stb 0800
13646 EDF6 8D 21           .!    bsr dest 21
13647 EDF8 7F 00 14        ...   clr 0014
13648 EDFB F6 00 14        ...   ldab 0014
13649 EDFE F7 38 00        .8.   stb 3800
13650 EE01 31              1     ins
13651 EE02 39              9     rts
13652 EE03 37              7     pshb
13653 EE04 36              6     psha
13654 EE05 30              0     tsx
13655 EE06 EC 00           ..    ldd 00,x
13656 EE08 BD C0 BA        ...   jsr c0ba
13657 EE0B CE 10 16        ...   ldx #1016
13658 EE0E 1D 01           ..    bclr add,x 01,x
13659 EE10 FF CC 05        ...   stx cc05
13660 EE13 DC BD E5        ...   ldd bd
13661 EE16 71              q     illegal
13662 EE17 38              8     pulx
13663 EE18 39              9     rts
13664 EE19 BD E5 D1        ...   jsr e5d1
13665 EE1C CE 10 16        ...   ldx #1016
13666 EE1F 1D 01           ..    bclr add,x 01,x
13667 EE21 FF CE 10        ...   stx ce10
13668 EE24 16              .     tab
13669 EE25 1C 01           ..    bset add,x 01,x
13670 EE27 5A              Z     decb
13671 EE28 F6 10 16        ...   ldab 1016
13672 EE2B 26 0C           &.    bne 0c
13673 EE2D CC B1 4F        ..O   ldd #b14f
13674 EE30 BD C0 BA        ...   jsr c0ba
13675 EE33 CC 05 DC        ...   ldd #05dc
13676 EE36 BD E5 71        ..q   jsr e571
13677 EE39 C6 04           ..    ldab #04
13678 EE3B F7 00 1C        ...   stb 001c
13679 EE3E F6 00 1C        ...   ldab 001c
13680 EE41 C1 07           ..    cmpb #07
13681 EE43 24 57           $W    bcc 57
13682 EE45 F6 00 1C        ...   ldab 001c
13683 EE48 4F              O     clra
13684 EE49 C3 B1 23        ..#   addd #b123
13685 EE4C 8F              .     xgdx
13686 EE4D E6 00           ..    ldab 00,x
13687 EE4F 53              S     comb
13688 EE50 F4 00 1A        ...   andb 001a
13689 EE53 F7 00 1A        ...   stb 001a
13690 EE56 F6 00 1A        ...   ldab 001a
13691 EE59 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13692 EE5C CC 00 0A        ...   ldd #000a
13693 EE5F BD E5 71        ..q   jsr e571
13694 EE62 F6 18 00        ...   ldab 1800
13695 EE65 2C 07           ,.    bge 07
13696 EE67 CC B1 5A        ..Z   ldd #b15a
13697 EE6A 8D 97           ..    bsr dest 97
13698 EE6C 20 2E            .    bra 2e
13699 EE6E F6 00 1C        ...   ldab 001c
13700 EE71 4F              O     clra
13701 EE72 C3 B1 23        ..#   addd #b123
13702 EE75 8F              .     xgdx
13703 EE76 E6 00           ..    ldab 00,x
13704 EE78 FA 00 1A        ...   orb 001a
13705 EE7B F7 00 1A        ...   stb 001a
13706 EE7E F6 00 1A        ...   ldab 001a
13707 EE81 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13708 EE84 CC 00 0A        ...   ldd #000a
13709 EE87 BD E5 71        ..q   jsr e571
13710 EE8A F6 18 00        ...   ldab 1800
13711 EE8D 2D 08           -.    blt 08
13712 EE8F CC B1 5A        ..Z   ldd #b15a
13713 EE92 BD EE 03        ...   jsr ee03
13714 EE95 20 05            .    bra 05
13715 EE97 7C 00 1C        |..   inc 001c
13716 EE9A 20 A2            .    bra a2
13717 EE9C CE 10 00        ...   ldx #1000
13718 EE9F 1C 00           ..    bset add,x 00,x
13719 EEA1 08              .     inx
13720 EEA2 CE 10 08        ...   ldx #1008
13721 EEA5 1C 00           ..    bset add,x 00,x
13722 EEA7 02              .     idiv
13723 EEA8 CE 00 1A        ...   ldx #001a
13724 EEAB 1C 00           ..    bset add,x 00,x
13725 EEAD 40              @     nega
13726 EEAE F6 00 1A        ...   ldab 001a
13727 EEB1 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13728 EEB4 CC 00 0A        ...   ldd #000a
13729 EEB7 BD E5 71        ..q   jsr e571
13730 EEBA F6 10 08        ...   ldab 1008
13731 EEBD C4 01           ..    andb #01
13732 EEBF 26 06           &.    bne 06
13733 EEC1 CC B1 5A        ..Z   ldd #b15a
13734 EEC4 BD EE 03        ...   jsr ee03
13735 EEC7 CE 00 1A        ...   ldx #001a
13736 EECA 1D 00           ..    bclr add,x 00,x
13737 EECC 40              @     nega
13738 EECD F6 00 1A        ...   ldab 001a
13739 EED0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13740 EED3 CC 00 0A        ...   ldd #000a
13741 EED6 BD E5 71        ..q   jsr e571
13742 EED9 F6 10 08        ...   ldab 1008
13743 EEDC C4 01           ..    andb #01
13744 EEDE 27 06           '.    beq 06
13745 EEE0 CC B1 5A        ..Z   ldd #b15a
13746 EEE3 BD EE 03        ...   jsr ee03
13747 EEE6 CE 00 1A        ...   ldx #001a
13748 EEE9 1C 00           ..    bset add,x 00,x
13749 EEEB 02              .     idiv
13750 EEEC F6 00 1A        ...   ldab 001a
13751 EEEF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13752 EEF2 CC 00 0A        ...   ldd #000a
13753 EEF5 BD E5 71        ..q   jsr e571
13754 EEF8 F6 10 00        ...   ldab 1000
13755 EEFB C4 04           ..    andb #04
13756 EEFD 26 06           &.    bne 06
13757 EEFF CC B1 65        ..e   ldd #b165
13758 EF02 BD EE 03        ...   jsr ee03
13759 EF05 CE 00 1A        ...   ldx #001a
13760 EF08 1D 00           ..    bclr add,x 00,x
13761 EF0A 02              .     idiv
13762 EF0B F6 00 1A        ...   ldab 001a
13763 EF0E F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13764 EF11 CC 00 0A        ...   ldd #000a
13765 EF14 BD E5 71        ..q   jsr e571
13766 EF17 F6 10 00        ...   ldab 1000
13767 EF1A C4 04           ..    andb #04
13768 EF1C 27 06           '.    beq 06
13769 EF1E CC B1 65        ..e   ldd #b165
13770 EF21 BD EE 03        ...   jsr ee03
13771 EF24 CE 00 1A        ...   ldx #001a
13772 EF27 1C 00           ..    bset add,x 00,x
13773 EF29 01              .     nop
13774 EF2A F6 00 1A        ...   ldab 001a
13775 EF2D F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13776 EF30 CC 00 0A        ...   ldd #000a
13777 EF33 BD E5 71        ..q   jsr e571
13778 EF36 F6 18 00        ...   ldab 1800
13779 EF39 C4 20           .     andb #20
13780 EF3B 26 06           &.    bne 06
13781 EF3D CC B1 70        ..p   ldd #b170
13782 EF40 BD EE 03        ...   jsr ee03
13783 EF43 CE 00 1A        ...   ldx #001a
13784 EF46 1D 00           ..    bclr add,x 00,x
13785 EF48 01              .     nop
13786 EF49 F6 00 1A        ...   ldab 001a
13787 EF4C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13788 EF4F CC 00 0A        ...   ldd #000a
13789 EF52 BD E5 71        ..q   jsr e571
13790 EF55 F6 18 00        ...   ldab 1800
13791 EF58 C4 20           .     andb #20
13792 EF5A 27 06           '.    beq 06
13793 EF5C CC B1 70        ..p   ldd #b170
13794 EF5F BD EE 03        ...   jsr ee03
13795 EF62 CE 00 1A        ...   ldx #001a
13796 EF65 1C 00           ..    bset add,x 00,x
13797 EF67 04              .     lsrd
13798 EF68 F6 00 1A        ...   ldab 001a
13799 EF6B F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13800 EF6E CC 00 0A        ...   ldd #000a
13801 EF71 BD E5 71        ..q   jsr e571
13802 EF74 F6 10 0A        ...   ldab 100a
13803 EF77 C4 04           ..    andb #04
13804 EF79 26 06           &.    bne 06
13805 EF7B CC B1 7B        ..{   ldd #b17b
13806 EF7E BD EE 03        ...   jsr ee03
13807 EF81 CE 00 1A        ...   ldx #001a
13808 EF84 1D 00           ..    bclr add,x 00,x
13809 EF86 04              .     lsrd
13810 EF87 F6 00 1A        ...   ldab 001a
13811 EF8A F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13812 EF8D CC 00 0A        ...   ldd #000a
13813 EF90 BD E5 71        ..q   jsr e571
13814 EF93 F6 10 0A        ...   ldab 100a
13815 EF96 C4 04           ..    andb #04
13816 EF98 27 06           '.    beq 06
13817 EF9A CC B1 7B        ..{   ldd #b17b
13818 EF9D BD EE 03        ...   jsr ee03
13819 EFA0 CE 10 00        ...   ldx #1000
13820 EFA3 1C 00           ..    bset add,x 00,x
13821 EFA5 08              .     inx
13822 EFA6 CE 00 1A        ...   ldx #001a
13823 EFA9 1C 00           ..    bset add,x 00,x
13824 EFAB 40              @     nega
13825 EFAC F6 00 1A        ...   ldab 001a
13826 EFAF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13827 EFB2 CE 10 08        ...   ldx #1008
13828 EFB5 1C 00           ..    bset add,x 00,x
13829 EFB7 02              .     idiv
13830 EFB8 CC 00 0A        ...   ldd #000a
13831 EFBB BD E5 71        ..q   jsr e571
13832 EFBE F6 10 08        ...   ldab 1008
13833 EFC1 C4 01           ..    andb #01
13834 EFC3 26 06           &.    bne 06
13835 EFC5 CC B1 86        ...   ldd #b186
13836 EFC8 BD EE 03        ...   jsr ee03
13837 EFCB CE 10 08        ...   ldx #1008
13838 EFCE 1D 00           ..    bclr add,x 00,x
13839 EFD0 02              .     idiv
13840 EFD1 CC 00 0A        ...   ldd #000a
13841 EFD4 BD E5 71        ..q   jsr e571
13842 EFD7 F6 10 08        ...   ldab 1008
13843 EFDA C4 01           ..    andb #01
13844 EFDC 27 06           '.    beq 06
13845 EFDE CC B1 86        ...   ldd #b186
13846 EFE1 BD EE 03        ...   jsr ee03
13847 EFE4 CE 10 00        ...   ldx #1000
13848 EFE7 1D 00           ..    bclr add,x 00,x
13849 EFE9 08              .     inx
13850 EFEA CE 10 08        ...   ldx #1008
13851 EFED 1C 00           ..    bset add,x 00,x
13852 EFEF 02              .     idiv
13853 EFF0 CC 00 0A        ...   ldd #000a
13854 EFF3 BD E5 71        ..q   jsr e571
13855 EFF6 F6 10 08        ...   ldab 1008
13856 EFF9 C4 01           ..    andb #01
13857 EFFB 26 06           &.    bne 06
13858 EFFD CC B1 91        ...   ldd #b191
13859 F000 BD EE 03        ...   jsr ee03
13860 F003 CE 10 08        ...   ldx #1008
13861 F006 1D 00           ..    bclr add,x 00,x
13862 F008 02              .     idiv
13863 F009 CC 00 0A        ...   ldd #000a
13864 F00C BD E5 71        ..q   jsr e571
13865 F00F F6 10 08        ...   ldab 1008
13866 F012 C4 01           ..    andb #01
13867 F014 27 06           '.    beq 06
13868 F016 CC B1 91        ...   ldd #b191
13869 F019 BD EE 03        ...   jsr ee03
13870 F01C CE 00 14        ...   ldx #0014
13871 F01F 1C 00           ..    bset add,x 00,x
13872 F021 20 F6            .    bra f6
13873 F023 00              .     test
13874 F024 14              .     bset
13875 F025 F7 38 00        .8.   stb 3800
13876 F028 CC 00 0A        ...   ldd #000a
13877 F02B BD E5 71        ..q   jsr e571
13878 F02E F6 20 00        . .   ldab 2000
13879 F031 C4 40           .@    andb #40
13880 F033 26 06           &.    bne 06
13881 F035 CC B1 9C        ...   ldd #b19c
13882 F038 BD EE 03        ...   jsr ee03
13883 F03B CE 00 14        ...   ldx #0014
13884 F03E 1D 00           ..    bclr add,x 00,x
13885 F040 20 F6            .    bra f6
13886 F042 00              .     test
13887 F043 14              .     bset
13888 F044 F7 38 00        .8.   stb 3800
13889 F047 CC 00 0A        ...   ldd #000a
13890 F04A BD E5 71        ..q   jsr e571
13891 F04D F6 20 00        . .   ldab 2000
13892 F050 C4 40           .@    andb #40
13893 F052 27 06           '.    beq 06
13894 F054 CC B1 9C        ...   ldd #b19c
13895 F057 BD EE 03        ...   jsr ee03
13896 F05A CE 00 14        ...   ldx #0014
13897 F05D 1C 00           ..    bset add,x 00,x
13898 F05F 40              @     nega
13899 F060 F6 00 14        ...   ldab 0014
13900 F063 F7 38 00        .8.   stb 3800
13901 F066 CC 00 0A        ...   ldd #000a
13902 F069 BD E5 71        ..q   jsr e571
13903 F06C F6 20 00        . .   ldab 2000
13904 F06F 2C 06           ,.    bge 06
13905 F071 CC B1 9C        ...   ldd #b19c
13906 F074 BD EE 03        ...   jsr ee03
13907 F077 CE 00 14        ...   ldx #0014
13908 F07A 1D 00           ..    bclr add,x 00,x
13909 F07C 40              @     nega
13910 F07D F6 00 14        ...   ldab 0014
13911 F080 F7 38 00        .8.   stb 3800
13912 F083 CC 00 0A        ...   ldd #000a
13913 F086 BD E5 71        ..q   jsr e571
13914 F089 F6 20 00        . .   ldab 2000
13915 F08C 2D 06           -.    blt 06
13916 F08E CC B1 9C        ...   ldd #b19c
13917 F091 BD EE 03        ...   jsr ee03
13918 F094 7F 00 61        ..a   clr 0061
13919 F097 F6 00 61        ..a   ldab 0061
13920 F09A C1 08           ..    cmpb #08
13921 F09C 24 22           $"    bcc 22
13922 F09E F6 00 61        ..a   ldab 0061
13923 F0A1 4F              O     clra
13924 F0A2 C3 B1 C8        ...   addd #b1c8
13925 F0A5 8F              .     xgdx
13926 F0A6 E6 00           ..    ldab 00,x
13927 F0A8 F7 00 06        ...   stb 0006
13928 F0AB BD D3 11        ...   jsr d311
13929 F0AE 83 00 00        ...   subd #0000
13930 F0B1 27 08           '.    beq 08
13931 F0B3 CC B1 A7        ...   ldd #b1a7
13932 F0B6 BD EE 03        ...   jsr ee03
13933 F0B9 20 05            .    bra 05
13934 F0BB 7C 00 61        |.a   inc 0061
13935 F0BE 20 D7            .    bra d7
13936 F0C0 7F 00 61        ..a   clr 0061
13937 F0C3 F6 00 61        ..a   ldab 0061
13938 F0C6 C1 08           ..    cmpb #08
13939 F0C8 24 2B           $+    bcc 2b
13940 F0CA F6 00 61        ..a   ldab 0061
13941 F0CD 4F              O     clra
13942 F0CE C3 B1 C8        ...   addd #b1c8
13943 F0D1 8F              .     xgdx
13944 F0D2 E6 00           ..    ldab 00,x
13945 F0D4 F7 00 06        ...   stb 0006
13946 F0D7 BD D1 3D        ..=   jsr d13d
13947 F0DA BD D5 70        ..p   jsr d570
13948 F0DD 83 00 00        ...   subd #0000
13949 F0E0 26 0B           &.    bne 0b
13950 F0E2 BD D1 05        ...   jsr d105
13951 F0E5 CC B1 B2        ...   ldd #b1b2
13952 F0E8 BD EE 03        ...   jsr ee03
13953 F0EB 20 08            .    bra 08
13954 F0ED BD D1 05        ...   jsr d105
13955 F0F0 7C 00 61        |.a   inc 0061
13956 F0F3 20 CE            .    bra ce
13957 F0F5 7F 00 61        ..a   clr 0061
13958 F0F8 F6 00 61        ..a   ldab 0061
13959 F0FB C1 05           ..    cmpb #05
13960 F0FD 24 45           $E    bcc 45
13961 F0FF F6 00 61        ..a   ldab 0061
13962 F102 4F              O     clra
13963 F103 C3 B1 C8        ...   addd #b1c8
13964 F106 8F              .     xgdx
13965 F107 E6 00           ..    ldab 00,x
13966 F109 F7 00 06        ...   stb 0006
13967 F10C BD D1 3D        ..=   jsr d13d
13968 F10F CC 00 0A        ...   ldd #000a
13969 F112 BD E5 71        ..q   jsr e571
13970 F115 F6 18 00        ...   ldab 1800
13971 F118 C4 40           .@    andb #40
13972 F11A 26 0B           &.    bne 0b
13973 F11C BD D1 05        ...   jsr d105
13974 F11F CC B1 B2        ...   ldd #b1b2
13975 F122 BD EE 03        ...   jsr ee03
13976 F125 20 1D            .    bra 1d
13977 F127 BD D1 05        ...   jsr d105
13978 F12A CC 00 0A        ...   ldd #000a
13979 F12D BD E5 71        ..q   jsr e571
13980 F130 F6 18 00        ...   ldab 1800
13981 F133 C4 40           .@    andb #40
13982 F135 27 08           '.    beq 08
13983 F137 CC B1 B2        ...   ldd #b1b2
13984 F13A BD EE 03        ...   jsr ee03
13985 F13D 20 05            .    bra 05
13986 F13F 7C 00 61        |.a   inc 0061
13987 F142 20 B4            .    bra b4
13988 F144 FC 10 16        ...   ldd 1016
13989 F147 83 5A 5A        .ZZ   subd #5a5a
13990 F14A 26 0C           &.    bne 0c
13991 F14C CC B1 BD        ...   ldd #b1bd
13992 F14F BD C0 BA        ...   jsr c0ba
13993 F152 CC 05 DC        ...   ldd #05dc
13994 F155 BD E5 71        ..q   jsr e571
13995 F158 7E EE 1C        ~..   jmp ee1c
13996
13997 ;send a byte to the printer?
13998 ;it calls c7e7, which does things with the serial port
13999
14000 F15B 37              7     pshb
14001 F15C 36              6     psha
14002 F15D F6 00 19        ...   ldab 0019
14003 F160 C4 40           .@    andb #40
14004 F162 26 5B           &[    bne 5b
14005 F164 C6 FF           ..    ldab #ff
14006 F166 F7 00 39        ..9   stb 0039
14007 F169 F6 20 00        . .   ldab 2000
14008 F16C 2C 11           ,.    bge 11
14009 F16E F6 20 00        . .   ldab 2000
14010 F171 C4 40           .@    andb #40
14011 F173 27 0A           '.    beq 0a
14012 F175 F6 00 39        ..9   ldab 0039
14013 F178 27 05           '.    beq 05
14014 F17A BD E6 1B        ...   jsr e61b
14015 F17D 20 EA            .    bra ea
14016 F17F F6 00 39        ..9   ldab 0039
14017 F182 26 08           &.    bne 08
14018 F184 CE 00 19        ...   ldx #0019
14019 F187 1C 00           ..    bset add,x 00,x
14020 F189 40              @     nega
14021 F18A 20 33            3    bra 33
14022 F18C F6 20 00        . .   ldab 2000
14023 F18F C4 40           .@    andb #40
14024 F191 27 2C           ',    beq 2c
14025 F193 F6 00 1D        ...   ldab 001d
14026 F196 C4 01           ..    andb #01
14027 F198 27 1E           '.    beq 1e
14028 F19A 30              0     tsx
14029 F19B E6 01           ..    ldab 01,x
14030 F19D C1 30           .0    cmpb #30
14031 F19F 26 08           &.    bne 08
14032 F1A1 CC 00 20        ..    ldd #0020
14033 F1A4 BD C7 E7        ...   jsr c7e7
14034 F1A7 20 0D            .    bra 0d
14035 F1A9 30              0     tsx
14036 F1AA E6 01           ..    ldab 01,x
14037 F1AC 4F              O     clra
14038 F1AD BD C7 E7        ...   jsr c7e7
14039 F1B0 CE 00 1D        ...   ldx #001d
14040 F1B3 1D 00           ..    bclr add,x 00,x
14041 F1B5 01              .     nop
14042 F1B6 20 07            .    bra 07
14043 F1B8 30              0     tsx
14044 F1B9 E6 01           ..    ldab 01,x
14045 F1BB 4F              O     clra
14046 F1BC BD C7 E7        ...   jsr c7e7
14047 F1BF 38              8     pulx
14048 F1C0 39              9     rts
14049
14050 F1C1 37              7     pshb
14051 F1C2 36              6     psha
14052 F1C3 F6 20 00        . .   ldab 2000
14053 F1C6 C4 40           .@    andb #40
14054 F1C8 27 1C           '.    beq 1c
14055 F1CA 7F 00 18        ...   clr 0018
14056 F1CD F6 00 18        ...   ldab 0018
14057 F1D0 30              0     tsx
14058 F1D1 E1 05           ..    cmpb 05,x
14059 F1D3 24 11           $.    bcc 11
14060 F1D5 30              0     tsx
14061 F1D6 EE 00           ..    ldx 00,x
14062 F1D8 E6 00           ..    ldab 00,x
14063 F1DA 4F              O     clra
14064 F1DB BD F1 5B        ..[   jsr f15b
14065 F1DE 38              8     pulx
14066 F1DF 08              .     inx
14067 F1E0 3C              <     pshx
14068 F1E1 7C 00 18        |..   inc 0018
14069 F1E4 20 E7            .    bra e7
14070 F1E6 38              8     pulx
14071 F1E7 39              9     rts
14072
14073 ;send a string to the printer?  D is a pointer to a string, and some of them
14074 ;look *way* too long for the display.  Or does it scroll them?
14075
14076 F1E8 37              7     pshb
14077 F1E9 36              6     psha
14078 F1EA F6 20 00        . .   ldab 2000
14079 F1ED C4 40           .@    andb #40
14080 F1EF 27 1B           '.    beq 1b
14081 F1F1 CC 00 20        ..    ldd #0020
14082 F1F4 BD F1 5B        ..[   jsr f15b
14083 F1F7 30              0     tsx
14084 F1F8 EE 00           ..    ldx 00,x
14085 F1FA E6 00           ..    ldab 00,x
14086 F1FC 27 0E           '.    beq 0e
14087 F1FE 30              0     tsx
14088 F1FF EE 00           ..    ldx 00,x
14089 F201 E6 00           ..    ldab 00,x
14090 F203 4F              O     clra
14091 F204 BD F1 5B        ..[   jsr f15b
14092 F207 38              8     pulx
14093 F208 08              .     inx
14094 F209 3C              <     pshx
14095 F20A 20 EB            .    bra eb
14096 F20C 38              8     pulx
14097 F20D 39              9     rts
14098
14099 F20E 37              7     pshb
14100 F20F 36              6     psha
14101 F210 F6 20 00        . .   ldab 2000
14102 F213 C4 40           .@    andb #40
14103 F215 27 34           '4    beq 34
14104 F217 CE 00 1D        ...   ldx #001d
14105 F21A 1C 00           ..    bset add,x 00,x
14106 F21C 01              .     nop
14107 F21D 30              0     tsx
14108 F21E E6 01           ..    ldab 01,x
14109 F220 4F              O     clra
14110 F221 BD E7 95        ...   jsr e795
14111 F224 F6 00 5D        ..]   ldab 005d
14112 F227 4F              O     clra
14113 F228 BD F1 5B        ..[   jsr f15b
14114 F22B F6 00 5E        ..^   ldab 005e
14115 F22E 4F              O     clra
14116 F22F BD F1 5B        ..[   jsr f15b
14117 F232 CE 00 1D        ...   ldx #001d
14118 F235 1D 00           ..    bclr add,x 00,x
14119 F237 01              .     nop
14120 F238 F6 00 5F        .._   ldab 005f
14121 F23B 4F              O     clra
14122 F23C BD F1 5B        ..[   jsr f15b
14123 F23F CC 00 20        ..    ldd #0020
14124 F242 BD F1 5B        ..[   jsr f15b
14125 F245 CC 00 20        ..    ldd #0020
14126 F248 BD F1 5B        ..[   jsr f15b
14127 F24B 38              8     pulx
14128 F24C 39              9     rts
14129
14130 F24D 37              7     pshb
14131 F24E 36              6     psha
14132 F24F F6 20 00        . .   ldab 2000
14133 F252 C4 40           .@    andb #40
14134 F254 27 41           'A    beq 41
14135 F256 CE 00 1D        ...   ldx #001d
14136 F259 1C 00           ..    bset add,x 00,x
14137 F25B 01              .     nop
14138 F25C 30              0     tsx
14139 F25D EC 00           ..    ldd 00,x
14140 F25F BD E7 45        ..E   jsr e745
14141 F262 F6 00 57        ..W   ldab 0057
14142 F265 4F              O     clra
14143 F266 BD F1 5B        ..[   jsr f15b
14144 F269 F6 00 5A        ..Z   ldab 005a
14145 F26C 4F              O     clra
14146 F26D BD F1 5B        ..[   jsr f15b
14147 F270 F6 00 5D        ..]   ldab 005d
14148 F273 4F              O     clra
14149 F274 BD F1 5B        ..[   jsr f15b
14150 F277 F6 00 5E        ..^   ldab 005e
14151 F27A 4F              O     clra
14152 F27B BD F1 5B        ..[   jsr f15b
14153 F27E CE 00 1D        ...   ldx #001d
14154 F281 1D 00           ..    bclr add,x 00,x
14155 F283 01              .     nop
14156 F284 F6 00 5F        .._   ldab 005f
14157 F287 4F              O     clra
14158 F288 BD F1 5B        ..[   jsr f15b
14159 F28B CC 00 20        ..    ldd #0020
14160 F28E BD F1 5B        ..[   jsr f15b
14161 F291 CC 00 20        ..    ldd #0020
14162 F294 BD F1 5B        ..[   jsr f15b
14163 F297 38              8     pulx
14164 F298 39              9     rts
14165 F299 37              7     pshb
14166 F29A 36              6     psha
14167 F29B F6 20 00        . .   ldab 2000
14168 F29E C4 40           .@    andb #40
14169 F2A0 27 7B           '{    beq 7b
14170 F2A2 F6 00 17        ...   ldab 0017
14171 F2A5 C4 08           ..    andb #08
14172 F2A7 26 06           &.    bne 06
14173 F2A9 CC 00 24        ..$   ldd #0024
14174 F2AC BD F1 5B        ..[   jsr f15b
14175 F2AF CE 00 1D        ...   ldx #001d
14176 F2B2 1C 00           ..    bset add,x 00,x
14177 F2B4 01              .     nop
14178 F2B5 30              0     tsx
14179 F2B6 EC 00           ..    ldd 00,x
14180 F2B8 BD E7 45        ..E   jsr e745
14181 F2BB F6 00 57        ..W   ldab 0057
14182 F2BE 4F              O     clra
14183 F2BF BD F1 5B        ..[   jsr f15b
14184 F2C2 F6 00 5A        ..Z   ldab 005a
14185 F2C5 4F              O     clra
14186 F2C6 BD F1 5B        ..[   jsr f15b
14187 F2C9 F6 00 13        ...   ldab 0013
14188 F2CC C1 08           ..    cmpb #08
14189 F2CE 26 0C           &.    bne 0c
14190 F2D0 CC 00 2E        ...   ldd #002e
14191 F2D3 BD F1 5B        ..[   jsr f15b
14192 F2D6 CE 00 1D        ...   ldx #001d
14193 F2D9 1D 00           ..    bclr add,x 00,x
14194 F2DB 01              .     nop
14195 F2DC F6 00 5D        ..]   ldab 005d
14196 F2DF 4F              O     clra
14197 F2E0 BD F1 5B        ..[   jsr f15b
14198 F2E3 F6 00 13        ...   ldab 0013
14199 F2E6 C1 04           ..    cmpb #04
14200 F2E8 26 0C           &.    bne 0c
14201 F2EA CC 00 2E        ...   ldd #002e
14202 F2ED BD F1 5B        ..[   jsr f15b
14203 F2F0 CE 00 1D        ...   ldx #001d
14204 F2F3 1D 00           ..    bclr add,x 00,x
14205 F2F5 01              .     nop
14206 F2F6 F6 00 5E        ..^   ldab 005e
14207 F2F9 4F              O     clra
14208 F2FA BD F1 5B        ..[   jsr f15b
14209 F2FD F6 00 13        ...   ldab 0013
14210 F300 C1 02           ..    cmpb #02
14211 F302 26 06           &.    bne 06
14212 F304 CC 00 2E        ...   ldd #002e
14213 F307 BD F1 5B        ..[   jsr f15b
14214 F30A CE 00 1D        ...   ldx #001d
14215 F30D 1D 00           ..    bclr add,x 00,x
14216 F30F 01              .     nop
14217 F310 F6 00 5F        .._   ldab 005f
14218 F313 4F              O     clra
14219 F314 BD F1 5B        ..[   jsr f15b
14220 F317 CC 00 0A        ...   ldd #000a
14221 F31A BD F1 5B        ..[   jsr f15b
14222 F31D 38              8     pulx
14223 F31E 39              9     rts
14224
14225 F31F 38              8     pulx
14226 F320 37              7     pshb
14227 F321 36              6     psha
14228 F322 3C              <     pshx
14229 F323 F6 20 00        . .   ldab 2000
14230 F326 C4 40           .@    andb #40
14231 F328 26 03           &.    bne 03
14232 F32A 7E F3 BC        ~..   jmp f3bc
14233 F32D F6 00 17        ...   ldab 0017
14234 F330 C4 08           ..    andb #08
14235 F332 26 06           &.    bne 06
14236 F334 CC 00 24        ..$   ldd #0024
14237 F337 BD F1 5B        ..[   jsr f15b
14238 F33A CE 00 1D        ...   ldx #001d
14239 F33D 1C 00           ..    bset add,x 00,x
14240 F33F 01              .     nop
14241 F340 30              0     tsx
14242 F341 EC 04           ..    ldd 04,x
14243 F343 37              7     pshb
14244 F344 36              6     psha
14245 F345 EC 02           ..    ldd 02,x
14246 F347 BD E6 21        ..!   jsr e621
14247 F34A 38              8     pulx
14248 F34B C6 07           ..    ldab #07
14249 F34D F7 00 18        ...   stb 0018
14250 F350 F6 00 18        ...   ldab 0018
14251 F353 C1 FF           ..    cmpb #ff
14252 F355 24 5F           $_    bcc 5f
14253 F357 F6 00 18        ...   ldab 0018
14254 F35A 4F              O     clra
14255 F35B C3 0B 90        ...   addd #0b90
14256 F35E 8F              .     xgdx
14257 F35F E6 00           ..    ldab 00,x
14258 F361 4F              O     clra
14259 F362 BD F1 5B        ..[   jsr f15b
14260 F365 F6 00 18        ...   ldab 0018
14261 F368 C1 03           ..    cmpb #03
14262 F36A 26 15           &.    bne 15
14263 F36C F6 00 13        ...   ldab 0013
14264 F36F C1 08           ..    cmpb #08
14265 F371 26 0C           &.    bne 0c
14266 F373 CC 00 2E        ...   ldd #002e
14267 F376 BD F1 5B        ..[   jsr f15b
14268 F379 CE 00 1D        ...   ldx #001d
14269 F37C 1D 00           ..    bclr add,x 00,x
14270 F37E 01              .     nop
14271 F37F 20 30            0    bra 30
14272 F381 C1 02           ..    cmpb #02
14273 F383 26 15           &.    bne 15
14274 F385 F6 00 13        ...   ldab 0013
14275 F388 C1 04           ..    cmpb #04
14276 F38A 26 0C           &.    bne 0c
14277 F38C CC 00 2E        ...   ldd #002e
14278 F38F BD F1 5B        ..[   jsr f15b
14279 F392 CE 00 1D        ...   ldx #001d
14280 F395 1D 00           ..    bclr add,x 00,x
14281 F397 01              .     nop
14282 F398 20 17            .    bra 17
14283 F39A C1 01           ..    cmpb #01
14284 F39C 26 13           &.    bne 13
14285 F39E F6 00 13        ...   ldab 0013
14286 F3A1 C1 02           ..    cmpb #02
14287 F3A3 26 06           &.    bne 06
14288 F3A5 CC 00 2E        ...   ldd #002e
14289 F3A8 BD F1 5B        ..[   jsr f15b
14290 F3AB CE 00 1D        ...   ldx #001d
14291 F3AE 1D 00           ..    bclr add,x 00,x
14292 F3B0 01              .     nop
14293 F3B1 7A 00 18        z..   dec 0018
14294 F3B4 20 9A            .    bra 9a
14295 F3B6 CC 00 0A        ...   ldd #000a
14296 F3B9 BD F1 5B        ..[   jsr f15b
14297 F3BC 38              8     pulx
14298 F3BD 31              1     ins
14299 F3BE 31              1     ins
14300 F3BF 6E 00           n.    jmp 00,x
14301
14302 F3C1 37              7     pshb
14303 F3C2 36              6     psha
14304 F3C3 F6 20 00        . .   ldab 2000
14305 F3C6 C4 40           .@    andb #40
14306 F3C8 27 49           'I    beq 49
14307 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14308 F3CD BD F1 E8        ...   jsr f1e8
14309 F3D0 30              0     tsx
14310 F3D1 E6 01           ..    ldab 01,x
14311 F3D3 4F              O     clra
14312 F3D4 CE 00 0A        ...   ldx #000a
14313 F3D7 02              .     idiv
14314 F3D8 8F              .     xgdx
14315 F3D9 CB 30           .0    addb #30
14316 F3DB F7 00 5E        ..^   stb 005e
14317 F3DE 30              0     tsx
14318 F3DF E6 01           ..    ldab 01,x
14319 F3E1 4F              O     clra
14320 F3E2 CE 00 0A        ...   ldx #000a
14321 F3E5 02              .     idiv
14322 F3E6 CB 30           .0    addb #30
14323 F3E8 F7 00 5F        .._   stb 005f     ;5e and 5f now param in ascii
14324 F3EB F6 00 5E        ..^   ldab 005e
14325 F3EE 4F              O     clra
14326 F3EF BD F1 5B        ..[   jsr f15b
14327 F3F2 F6 00 5F        .._   ldab 005f
14328 F3F5 4F              O     clra
14329 F3F6 BD F1 5B        ..[   jsr f15b
14330 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14331 F3FC BD F1 E8        ...   jsr f1e8
14332 F3FF 30              0     tsx
14333 F400 E6 01           ..    ldab 01,x
14334 F402 4F              O     clra
14335 F403 05              .     asld
14336 F404 C3 0D 1F        ...   addd #0d1f
14337 F407 8F              .     xgdx
14338 F408 EC 00           ..    ldd 00,x
14339 F40A BD F2 4D        ..M   jsr f24d
14340 F40D CC 00 0A        ...   ldd #000a
14341 F410 BD F1 5B        ..[   jsr f15b
14342 F413 38              8     pulx
14343 F414 39              9     rts
14344
14345 F415 F6 0B C0        ...   ldab 0bc0
14346 F418 C4 02           ..    andb #02
14347 F41A 27 15           '.    beq 15
14348 F41C CE 00 21        ..!   ldx #0021
14349 F41F 1C 00           ..    bset add,x 00,x
14350 F421 80 F6           ..    suba #f6
14351 F423 00              .     test
14352 F424 1D C4           ..    bclr add,x c4,x
14353 F426 02              .     idiv
14354 F427 27 02           '.    beq 02
14355 F429 20 F7            .    bra f7
14356 F42B CE 00 21        ..!   ldx #0021
14357 F42E 1D 00           ..    bclr add,x 00,x
14358 F430 80 C6           ..    suba #c6
14359 F432 10              .     sba
14360 F433 F7 10 2C        ..,   stb 102c
14361 F436 C6 2E           ..    ldab #2e
14362 F438 F7 10 2D        ..-   stb 102d
14363 F43B C6 05           ..    ldab #05
14364 F43D F7 10 2B        ..+   stb 102b
14365 F440 CC 03 E8        ...   ldd #03e8
14366 F443 BD E5 71        ..q   jsr e571
14367 F446 CE 10 00        ...   ldx #1000
14368 F449 1D 00           ..    bclr add,x 00,x
14369 F44B 08              .     inx
14370 F44C CE 00 19        ...   ldx #0019
14371 F44F 1D 00           ..    bclr add,x 00,x
14372 F451 40              @     nega
14373 F452 CE 00 1D        ...   ldx #001d
14374 F455 1D 00           ..    bclr add,x 00,x
14375 F457 01              .     nop
14376 F458 CC 00 18        ...   ldd #0018
14377 F45B BD F1 5B        ..[   jsr f15b
14378 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14379 F461 BD F1 E8        ...   jsr f1e8
14380 F464 CC 00 0A        ...   ldd #000a
14381 F467 BD F1 5B        ..[   jsr f15b
14382 F46A CC B2 38        ..8   ldd #b238
14383 F46D BD F1 E8        ...   jsr f1e8
14384 F470 CC 00 0A        ...   ldd #000a
14385 F473 BD F1 5B        ..[   jsr f15b
14386 F476 CC B2 56        ..V   ldd #b256
14387 F479 BD F1 E8        ...   jsr f1e8
14388 F47C CC 00 0A        ...   ldd #000a
14389 F47F BD F1 5B        ..[   jsr f15b
14390 F482 CC 00 0A        ...   ldd #000a
14391 F485 BD F1 5B        ..[   jsr f15b
14392 F488 CC B2 75        ..u   ldd #b275
14393 F48B BD F1 E8        ...   jsr f1e8
14394 F48E CC 00 0A        ...   ldd #000a
14395 F491 BD F1 5B        ..[   jsr f15b
14396 F494 CC B2 38        ..8   ldd #b238
14397 F497 BD F1 E8        ...   jsr f1e8
14398 F49A CC 00 0A        ...   ldd #000a
14399 F49D BD F1 5B        ..[   jsr f15b
14400 F4A0 CC 00 0A        ...   ldd #000a
14401 F4A3 BD F1 5B        ..[   jsr f15b
14402 F4A6 CC B2 90        ...   ldd #b290
14403 F4A9 BD F1 E8        ...   jsr f1e8
14404 F4AC CE 00 0A        ...   ldx #000a
14405 F4AF 3C              <     pshx
14406 F4B0 CC 0C BC        ...   ldd #0cbc
14407 F4B3 BD F1 C1        ...   jsr f1c1
14408 F4B6 38              8     pulx
14409 F4B7 CC 00 0A        ...   ldd #000a
14410 F4BA BD F1 5B        ..[   jsr f15b
14411 F4BD CC B2 A2        ...   ldd #b2a2
14412 F4C0 BD F1 E8        ...   jsr f1e8
14413 F4C3 CE 00 0A        ...   ldx #000a
14414 F4C6 3C              <     pshx
14415 F4C7 CC 0C CC        ...   ldd #0ccc
14416 F4CA BD F1 C1        ...   jsr f1c1
14417 F4CD 38              8     pulx
14418 F4CE CC 00 0A        ...   ldd #000a
14419 F4D1 BD F1 5B        ..[   jsr f15b
14420 F4D4 CC B2 B4        ...   ldd #b2b4
14421 F4D7 BD F1 E8        ...   jsr f1e8
14422 F4DA FC 0C E7        ...   ldd 0ce7
14423 F4DD BD F2 4D        ..M   jsr f24d
14424 F4E0 CC 00 0A        ...   ldd #000a
14425 F4E3 BD F1 5B        ..[   jsr f15b
14426 F4E6 CC 00 0A        ...   ldd #000a
14427 F4E9 BD F1 5B        ..[   jsr f15b
14428 F4EC CC B2 C6        ...   ldd #b2c6
14429 F4EF BD F1 E8        ...   jsr f1e8
14430 F4F2 FE 0D E9        ...   ldx 0de9
14431 F4F5 3C              <     pshx
14432 F4F6 FC 0D E7        ...   ldd 0de7
14433 F4F9 BD F3 1F        ...   jsr f31f
14434 F4FC 38              8     pulx
14435 F4FD CC B2 D8        ...   ldd #b2d8
14436 F500 BD F1 E8        ...   jsr f1e8
14437 F503 FE 0D ED        ...   ldx 0ded
14438 F506 3C              <     pshx
14439 F507 FC 0D EB        ...   ldd 0deb
14440 F50A BD F3 1F        ...   jsr f31f
14441 F50D 38              8     pulx
14442 F50E CC B2 EA        ...   ldd #b2ea
14443 F511 BD F1 E8        ...   jsr f1e8
14444 F514 FE 0D F1        ...   ldx 0df1
14445 F517 3C              <     pshx
14446 F518 FC 0D EF        ...   ldd 0def
14447 F51B BD F3 1F        ...   jsr f31f
14448 F51E 38              8     pulx
14449 F51F CC B2 FC        ...   ldd #b2fc
14450 F522 BD F1 E8        ...   jsr f1e8
14451 F525 FE 0D F9        ...   ldx 0df9
14452 F528 3C              <     pshx
14453 F529 FC 0D F7        ...   ldd 0df7
14454 F52C BD F3 1F        ...   jsr f31f
14455 F52F 38              8     pulx
14456 F530 CC B3 0E        ...   ldd #b30e
14457 F533 BD F1 E8        ...   jsr f1e8
14458 F536 FE 0D FD        ...   ldx 0dfd
14459 F539 3C              <     pshx
14460 F53A FC 0D FB        ...   ldd 0dfb
14461 F53D BD F3 1F        ...   jsr f31f
14462 F540 38              8     pulx
14463 F541 CC 00 0A        ...   ldd #000a
14464 F544 BD F1 5B        ..[   jsr f15b
14465 F547 CC B3 20        ..    ldd #b320
14466 F54A BD F1 E8        ...   jsr f1e8
14467 F54D CC 00 0A        ...   ldd #000a
14468 F550 BD F1 5B        ..[   jsr f15b
14469 F553 CC B3 31        ..1   ldd #b331
14470 F556 BD F1 E8        ...   jsr f1e8
14471 F559 FE 0D F5        ...   ldx 0df5
14472 F55C 3C              <     pshx
14473 F55D FC 0D F3        ...   ldd 0df3
14474 F560 BD F3 1F        ...   jsr f31f
14475 F563 38              8     pulx
14476 F564 CC B3 4A        ..J   ldd #b34a
14477 F567 BD F1 E8        ...   jsr f1e8
14478 F56A FC 0C DD        ...   ldd 0cdd
14479 F56D BD F2 4D        ..M   jsr f24d
14480 F570 FE 0C F5        ...   ldx 0cf5
14481 F573 3C              <     pshx
14482 F574 FC 0C F3        ...   ldd 0cf3
14483 F577 BD F3 1F        ...   jsr f31f
14484 F57A 38              8     pulx
14485 F57B CC B3 5C        ..\   ldd #b35c
14486 F57E BD F1 E8        ...   jsr f1e8
14487 F581 FC 0C DF        ...   ldd 0cdf
14488 F584 BD F2 4D        ..M   jsr f24d
14489 F587 FE 0C F9        ...   ldx 0cf9
14490 F58A 3C              <     pshx
14491 F58B FC 0C F7        ...   ldd 0cf7
14492 F58E BD F3 1F        ...   jsr f31f
14493 F591 38              8     pulx
14494 F592 CC B3 6E        ..n   ldd #b36e
14495 F595 BD F1 E8        ...   jsr f1e8
14496 F598 FC 0C E1        ...   ldd 0ce1
14497 F59B BD F2 4D        ..M   jsr f24d
14498 F59E FE 0C FD        ...   ldx 0cfd
14499 F5A1 3C              <     pshx
14500 F5A2 FC 0C FB        ...   ldd 0cfb
14501 F5A5 BD F3 1F        ...   jsr f31f
14502 F5A8 38              8     pulx
14503 F5A9 CC B3 80        ...   ldd #b380
14504 F5AC BD F1 E8        ...   jsr f1e8
14505 F5AF FC 0C E3        ...   ldd 0ce3
14506 F5B2 BD F2 4D        ..M   jsr f24d
14507 F5B5 FE 0D 01        ...   ldx 0d01
14508 F5B8 3C              <     pshx
14509 F5B9 FC 0C FF        ...   ldd 0cff
14510 F5BC BD F3 1F        ...   jsr f31f
14511 F5BF 38              8     pulx
14512 F5C0 CC B3 92        ...   ldd #b392
14513 F5C3 BD F1 E8        ...   jsr f1e8
14514 F5C6 FC 0C E5        ...   ldd 0ce5
14515 F5C9 BD F2 4D        ..M   jsr f24d
14516 F5CC FE 0D 05        ...   ldx 0d05
14517 F5CF 3C              <     pshx
14518 F5D0 FC 0D 03        ...   ldd 0d03
14519 F5D3 BD F3 1F        ...   jsr f31f
14520 F5D6 38              8     pulx
14521 F5D7 CC 00 0A        ...   ldd #000a
14522 F5DA BD F1 5B        ..[   jsr f15b
14523 F5DD CC B3 A4        ...   ldd #b3a4
14524 F5E0 BD F1 E8        ...   jsr f1e8
14525 F5E3 CC 00 0A        ...   ldd #000a
14526 F5E6 BD F1 5B        ..[   jsr f15b
14527 F5E9 CC B3 B3        ...   ldd #b3b3
14528 F5EC BD F1 E8        ...   jsr f1e8
14529 F5EF FC 0C F1        ...   ldd 0cf1
14530 F5F2 BD F2 99        ...   jsr f299
14531 F5F5 CC B3 CA        ...   ldd #b3ca
14532 F5F8 BD F1 E8        ...   jsr f1e8
14533 F5FB F6 0C DC        ...   ldab 0cdc
14534 F5FE 4F              O     clra
14535 F5FF BD F2 0E        ...   jsr f20e
14536 F602 FC 0C E9        ...   ldd 0ce9
14537 F605 BD F2 99        ...   jsr f299
14538 F608 CC B3 DC        ...   ldd #b3dc
14539 F60B BD F1 E8        ...   jsr f1e8
14540 F60E F6 0C DB        ...   ldab 0cdb
14541 F611 4F              O     clra
14542 F612 BD F2 0E        ...   jsr f20e
14543 F615 FC 0C EB        ...   ldd 0ceb
14544 F618 BD F2 99        ...   jsr f299
14545 F61B CC B3 EE        ...   ldd #b3ee
14546 F61E BD F1 E8        ...   jsr f1e8
14547 F621 F6 0C DA        ...   ldab 0cda
14548 F624 4F              O     clra
14549 F625 BD F2 0E        ...   jsr f20e
14550 F628 FC 0C ED        ...   ldd 0ced
14551 F62B BD F2 99        ...   jsr f299
14552 F62E CC B4 00        ...   ldd #b400
14553 F631 BD F1 E8        ...   jsr f1e8
14554 F634 F6 0C D9        ...   ldab 0cd9
14555 F637 4F              O     clra
14556 F638 BD F2 0E        ...   jsr f20e
14557 F63B FC 0C EF        ...   ldd 0cef
14558 F63E BD F2 99        ...   jsr f299
14559 F641 CC 00 0A        ...   ldd #000a
14560 F644 BD F1 5B        ..[   jsr f15b
14561 F647 CC B4 12        ...   ldd #b412
14562 F64A BD F1 E8        ...   jsr f1e8
14563 F64D FC 0D 07        ...   ldd 0d07
14564 F650 BD F2 4D        ..M   jsr f24d
14565 F653 FE 0D 11        ...   ldx 0d11
14566 F656 3C              <     pshx
14567 F657 FC 0D 0F        ...   ldd 0d0f
14568 F65A BD F3 1F        ...   jsr f31f
14569 F65D 38              8     pulx
14570 F65E CC B4 24        ..$   ldd #b424
14571 F661 BD F1 E8        ...   jsr f1e8
14572 F664 FC 0D 09        ...   ldd 0d09
14573 F667 BD F2 4D        ..M   jsr f24d
14574 F66A FE 0D 15        ...   ldx 0d15
14575 F66D 3C              <     pshx
14576 F66E FC 0D 13        ...   ldd 0d13
14577 F671 BD F3 1F        ...   jsr f31f
14578 F674 38              8     pulx
14579 F675 CC B4 36        ..6   ldd #b436
14580 F678 BD F1 E8        ...   jsr f1e8
14581 F67B FC 0D 0B        ...   ldd 0d0b
14582 F67E BD F2 4D        ..M   jsr f24d
14583 F681 FE 0D 19        ...   ldx 0d19
14584 F684 3C              <     pshx
14585 F685 FC 0D 17        ...   ldd 0d17
14586 F688 BD F3 1F        ...   jsr f31f
14587 F68B 38              8     pulx
14588 F68C CC B4 48        ..H   ldd #b448
14589 F68F BD F1 E8        ...   jsr f1e8
14590 F692 FC 0D 0D        ...   ldd 0d0d
14591 F695 BD F2 4D        ..M   jsr f24d
14592 F698 FE 0D 1D        ...   ldx 0d1d
14593 F69B 3C              <     pshx
14594 F69C FC 0D 1B        ...   ldd 0d1b
14595 F69F BD F3 1F        ...   jsr f31f
14596 F6A2 38              8     pulx
14597 F6A3 CC 00 0A        ...   ldd #000a
14598 F6A6 BD F1 5B        ..[   jsr f15b
14599 F6A9 CC B4 5A        ..Z   ldd #b45a
14600 F6AC BD F1 E8        ...   jsr f1e8
14601 F6AF CC 00 0A        ...   ldd #000a
14602 F6B2 BD F1 5B        ..[   jsr f15b
14603 F6B5 C6 01           ..    ldab #01
14604 F6B7 F7 00 54        ..T   stb 0054
14605 F6BA F6 00 54        ..T   ldab 0054
14606 F6BD C1 63           .c    cmpb #63
14607 F6BF 22 1B           ".    bhi 1b
14608 F6C1 F6 00 54        ..T   ldab 0054
14609 F6C4 4F              O     clra
14610 F6C5 05              .     asld
14611 F6C6 C3 08 C8        ...   addd #08c8
14612 F6C9 8F              .     xgdx
14613 F6CA EC 00           ..    ldd 00,x
14614 F6CC C4 80           ..    andb #80
14615 F6CE 27 07           '.    beq 07
14616 F6D0 F6 00 54        ..T   ldab 0054
14617 F6D3 4F              O     clra
14618 F6D4 BD F3 C1        ...   jsr f3c1
14619 F6D7 7C 00 54        |.T   inc 0054
14620 F6DA 20 DE            .    bra de
14621 F6DC CC 00 0A        ...   ldd #000a
14622 F6DF BD F1 5B        ..[   jsr f15b
14623 F6E2 F6 00 19        ...   ldab 0019
14624 F6E5 C4 40           .@    andb #40
14625 F6E7 26 07           &.    bne 07
14626 F6E9 FE 0C E7        ...   ldx 0ce7
14627 F6EC 08              .     inx
14628 F6ED FF 0C E7        ...   stx 0ce7
14629 F6F0 CE 00 1D        ...   ldx #001d
14630 F6F3 1D 00           ..    bclr add,x 00,x
14631 F6F5 01              .     nop
14632 F6F6 CC 03 E8        ...   ldd #03e8
14633 F6F9 BD E5 71        ..q   jsr e571
14634 F6FC C6 03           ..    ldab #03
14635 F6FE F7 10 2B        ..+   stb 102b
14636 F701 CE 10 00        ...   ldx #1000
14637 F704 1C 00           ..    bset add,x 00,x
14638 F706 08              .     inx
14639 F707 F6 0B C0        ...   ldab 0bc0
14640 F70A C4 02           ..    andb #02
14641 F70C 27 06           '.    beq 06
14642 F70E CC 00 80        ...   ldd #0080
14643 F711 BD C7 E7        ...   jsr c7e7
14644 F714 7F 00 38        ..8   clr 0038
14645 F717 39              9     rts
14646 F718 3C              <     pshx
14647 F719 F6 0B C0        ...   ldab 0bc0
14648 F71C C4 08           ..    andb #08
14649 F71E 27 03           '.    beq 03
14650 F720 BD C3 25        ..%   jsr c325
14651 F723 7C 00 0C        |..   inc 000c
14652 F726 F6 00 0C        ...   ldab 000c
14653 F729 C1 02           ..    cmpb #02
14654 F72B 26 13           &.    bne 13
14655 F72D 7F 00 0C        ...   clr 000c
14656 F730 F6 00 07        ...   ldab 0007
14657 F733 27 03           '.    beq 03
14658 F735 7A 00 07        z..   dec 0007
14659 F738 F6 00 00        ...   ldab 0000
14660 F73B 27 03           '.    beq 03
14661 F73D 7A 00 00        z..   dec 0000
14662 F740 7C 00 0B        |..   inc 000b
14663 F743 F6 00 0B        ...   ldab 000b
14664 F746 C1 08           ..    cmpb #08
14665 F748 26 37           &7    bne 37
14666 F74A 7F 00 0B        ...   clr 000b
14667 F74D FC 00 3B        ..;   ldd 003b
14668 F750 27 07           '.    beq 07
14669 F752 FE 00 3B        ..;   ldx 003b
14670 F755 09              .     dex
14671 F756 FF 00 3B        ..;   stx 003b
14672 F759 CC 00 2C        ..,   ldd #002c
14673 F75C 30              0     tsx
14674 F75D ED 00           ..    stad 00,x
14675 F75F 30              0     tsx
14676 F760 EC 00           ..    ldd 00,x
14677 F762 37              7     pshb
14678 F763 36              6     psha
14679 F764 CC 00 3A        ..:   ldd #003a
14680 F767 30              0     tsx
14681 F768 A3 00           ..    subd 00,x
14682 F76A 31              1     ins
14683 F76B 31              1     ins
14684 F76C 25 13           %.    bcs 13
14685 F76E 30              0     tsx
14686 F76F EE 00           ..    ldx 00,x
14687 F771 E6 00           ..    ldab 00,x
14688 F773 27 07           '.    beq 07
14689 F775 30              0     tsx
14690 F776 EE 00           ..    ldx 00,x
14691 F778 6A 00           j.    dec 00,x
14692 F77A E6 00           ..    ldab 00,x
14693 F77C 38              8     pulx
14694 F77D 08              .     inx
14695 F77E 3C              <     pshx
14696 F77F 20 DE            .    bra de
14697 F781 F6 00 32        ..2   ldab 0032
14698 F784 27 07           '.    beq 07
14699 F786 F6 00 32        ..2   ldab 0032
14700 F789 C4 02           ..    andb #02
14701 F78B 26 08           &.    bne 08
14702 F78D CE 10 00        ...   ldx #1000
14703 F790 1D 00           ..    bclr add,x 00,x
14704 F792 10              .     sba
14705 F793 20 0D            .    bra 0d
14706 F795 F6 00 32        ..2   ldab 0032
14707 F798 C4 01           ..    andb #01
14708 F79A 26 06           &.    bne 06
14709 F79C CE 10 00        ...   ldx #1000
14710 F79F 1C 00           ..    bset add,x 00,x
14711 F7A1 10              .     sba
14712 F7A2 7C 00 4C        |.L   inc 004c
14713 F7A5 F6 00 4C        ..L   ldab 004c
14714 F7A8 C1 4B           .K    cmpb #4b
14715 F7AA 26 13           &.    bne 13
14716 F7AC 7F 00 4C        ..L   clr 004c
14717 F7AF F6 00 4F        ..O   ldab 004f
14718 F7B2 27 03           '.    beq 03
14719 F7B4 7A 00 4F        z.O   dec 004f
14720 F7B7 F6 00 25        ..%   ldab 0025
14721 F7BA 27 03           '.    beq 03
14722 F7BC 7A 00 25        z.%   dec 0025
14723 F7BF F6 00 31        ..1   ldab 0031
14724 F7C2 26 03           &.    bne 03
14725 F7C4 BD FE 69        ..i   jsr fe69
14726 F7C7 F6 00 7F        ...   ldab 007f
14727 F7CA 27 03           '.    beq 03
14728 F7CC BD FE 69        ..i   jsr fe69
14729 F7CF C6 40           .@    ldab #40
14730 F7D1 F7 10 25        ..%   stb 1025
14731 F7D4 38              8     pulx
14732 F7D5 3B              ;     rti
14733
14734 main:
14735
14736 F7D6 7F 00 14        ...   clr 0014
14737 F7D9 5F              _     clrb
14738 F7DA F7 38 00        .8.   stb 3800
14739 F7DD C6 7F           ..    ldab #7f
14740 F7DF F7 00 1A        ...   stb 001a
14741 F7E2 C6 7F           ..    ldab #7f
14742 F7E4 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14743 F7E7 C6 07           ..    ldab #07
14744 F7E9 F7 10 3C        ..<   stb 103c
14745 F7EC C6 81           ..    ldab #81
14746 F7EE F7 10 26        ..&   stb 1026
14747 F7F1 5F              _     clrb
14748 F7F2 F7 10 30        ..0   stb 1030
14749 F7F5 C6 C8           ..    ldab #c8
14750 F7F7 F7 10 00        ...   stb 1000
14751 F7FA C6 3E           .>    ldab #3e
14752 F7FC F7 10 09        ...   stb 1009
14753 F7FF C6 12           ..    ldab #12
14754 F801 F7 10 28        ..(   stb 1028
14755 F804 BD BE 69        ..i   jsr be69
14756 F807 BD EA 59        ..Y   jsr ea59
14757 F80A CC 00 64        ..d   ldd #0064
14758 F80D BD E5 71        ..q   jsr e571
14759 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
14760 F813 BD C0 BA        ...   jsr c0ba
14761 F816 CC 01 F4        ...   ldd #01f4
14762 F819 BD E5 71        ..q   jsr e571
14763 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
14764 F81F BD C0 BA        ...   jsr c0ba
14765 F822 CC 01 F4        ...   ldd #01f4
14766 F825 BD E5 71        ..q   jsr e571
14767 F828 CC B2 05        ...   ldd #b205    "   1993   "
14768 F82B BD C0 BA        ...   jsr c0ba
14769 F82E CC 01 F4        ...   ldd #01f4
14770 F831 BD E5 71        ..q   jsr e571
14771 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
14772 F837 BD C0 BA        ...   jsr c0ba
14773 F83A CC 00 0A        ...   ldd #000a
14774 F83D BD E5 71        ..q   jsr e571
14775 F840 7F 00 7F        ...   clr 007f
14776 F843 7F 00 21        ..!   clr 0021
14777 F846 7F 00 1F        ...   clr 001f
14778 F849 7F 00 1D        ...   clr 001d
14779 F84C 7F 00 1B        ...   clr 001b
14780 F84F 7F 00 19        ...   clr 0019
14781 F852 F6 0B C0        ...   ldab 0bc0
14782 F855 C4 01           ..    andb #01
14783 F857 27 08           '.    beq 08
14784 F859 CE 0B C1        ...   ldx #0bc1
14785 F85C 1C 00           ..    bset add,x 00,x
14786 F85E 01              .     nop
14787 F85F 20 06            .    bra 06
14788 F861 CE 0B C1        ...   ldx #0bc1
14789 F864 1D 00           ..    bclr add,x 00,x
14790 F866 01              .     nop
14791 F867 F6 0B C0        ...   ldab 0bc0
14792 F86A C4 04           ..    andb #04
14793 F86C 27 08           '.    beq 08
14794 F86E CE 0B C1        ...   ldx #0bc1
14795 F871 1C 00           ..    bset add,x 00,x
14796 F873 02              .     idiv
14797 F874 20 06            .    bra 06
14798 F876 CE 0B C1        ...   ldx #0bc1
14799 F879 1D 00           ..    bclr add,x 00,x
14800 F87B 02              .     idiv
14801 F87C CE 0B C1        ...   ldx #0bc1
14802 F87F 1D 00           ..    bclr add,x 00,x
14803 F881 04              .     lsrd
14804 F882 F6 0B C0        ...   ldab 0bc0
14805 F885 C4 02           ..    andb #02
14806 F887 27 2D           '-    beq 2d
14807 F889 C6 3C           .<    ldab #3c
14808 F88B F7 00 31        ..1   stb 0031
14809 F88E 0E              .     cli
14810 F88F CC 00 FF        ...   ldd #00ff
14811 F892 BD C7 E7        ...   jsr c7e7
14812 F895 5F              _     clrb
14813 F896 4F              O     clra
14814 F897 FD 00 40        ..@   stad 0040
14815 F89A C6 10           ..    ldab #10
14816 F89C F7 10 2C        ..,   stb 102c
14817 F89F C6 2E           ..    ldab #2e
14818 F8A1 F7 10 2D        ..-   stb 102d
14819 F8A4 C6 03           ..    ldab #03
14820 F8A6 F7 10 2B        ..+   stb 102b
14821 F8A9 C6 46           .F    ldab #46
14822 F8AB F7 00 2F        ../   stb 002f
14823 F8AE CC 07 D0        ...   ldd #07d0
14824 F8B1 BD E5 71        ..q   jsr e571
14825 F8B4 20 2B            +    bra 2b
14826 F8B6 BD D0 94        ...   jsr d094
14827 F8B9 C6 27           .'    ldab #27
14828 F8BB F7 10 2D        ..-   stb 102d
14829 F8BE C6 07           ..    ldab #07
14830 F8C0 F7 10 2B        ..+   stb 102b
14831 F8C3 CE 00 1A        ...   ldx #001a
14832 F8C6 1C 00           ..    bset add,x 00,x
14833 F8C8 04              .     lsrd
14834 F8C9 F6 00 1A        ...   ldab 001a
14835 F8CC F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14836 F8CF CC 07 D0        ...   ldd #07d0
14837 F8D2 BD E5 71        ..q   jsr e571
14838 F8D5 CE 00 1A        ...   ldx #001a
14839 F8D8 1D 00           ..    bclr add,x 00,x
14840 F8DA 04              .     lsrd
14841 F8DB F6 00 1A        ...   ldab 001a
14842 F8DE F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14843 F8E1 7F 0E 6A        ..j   clr 0e6a
14844 F8E4 BD D4 79        ..y   jsr d479
14845 F8E7 BD E8 9A        ...   jsr e89a
14846 F8EA 7F 00 06        ...   clr 0006
14847 F8ED CE 00 1D        ...   ldx #001d
14848 F8F0 1C 00           ..    bset add,x 00,x
14849 F8F2 10              .     sba
14850 F8F3 CC 05 DC        ...   ldd #05dc
14851 F8F6 BD E5 71        ..q   jsr e571
14852 F8F9 C6 1E           ..    ldab #1e
14853 F8FB F7 00 35        ..5   stb 0035
14854 F8FE 0E              .     cli
14855 F8FF BD E6 1B        ...   jsr e61b
14856 F902 BD D1 05        ...   jsr d105
14857 F905 F6 10 0A        ...   ldab 100a
14858 F908 C4 08           ..    andb #08
14859 F90A 27 46           'F    beq 46
14860 F90C F6 10 0A        ...   ldab 100a
14861 F90F C4 08           ..    andb #08
14862 F911 27 11           '.    beq 11
14863 F913 CE 00 1A        ...   ldx #001a
14864 F916 1C 00           ..    bset add,x 00,x
14865 F918 04              .     lsrd
14866 F919 F6 00 1A        ...   ldab 001a
14867 F91C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14868 F91F BD E6 1B        ...   jsr e61b
14869 F922 20 E8            .    bra e8
14870 F924 BD D0 94        ...   jsr d094
14871 F927 F6 0B C0        ...   ldab 0bc0
14872 F92A C4 01           ..    andb #01
14873 F92C 27 06           '.    beq 06
14874 F92E CE 0B C1        ...   ldx #0bc1
14875 F931 1C 00           ..    bset add,x 00,x
14876 F933 01              .     nop
14877 F934 F6 0B C0        ...   ldab 0bc0
14878 F937 C4 04           ..    andb #04
14879 F939 27 06           '.    beq 06
14880 F93B CE 0B C1        ...   ldx #0bc1
14881 F93E 1C 00           ..    bset add,x 00,x
14882 F940 02              .     idiv
14883 F941 CE 00 1A        ...   ldx #001a
14884 F944 1D 00           ..    bclr add,x 00,x
14885 F946 04              .     lsrd
14886 F947 F6 00 1A        ...   ldab 001a
14887 F94A F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14888 F94D C6 1E           ..    ldab #1e
14889 F94F F7 00 35        ..5   stb 0035
14890 F952 F6 0B C0        ...   ldab 0bc0
14891 F955 C4 08           ..    andb #08
14892 F957 27 16           '.    beq 16
14893 F959 CE 00 02        ...   ldx #0002
14894 F95C 3C              <     pshx
14895 F95D CC 10 00        ...   ldd #1000
14896 F960 BD E5 D7        ...   jsr e5d7
14897 F963 38              8     pulx
14898 F964 83 00 00        ...   subd #0000
14899 F967 27 06           '.    beq 06
14900 F969 CE 0B C1        ...   ldx #0bc1
14901 F96C 1C 00           ..    bset add,x 00,x
14902 F96E 08              .     inx
14903 F96F F6 0B C1        ...   ldab 0bc1
14904 F972 C4 07           ..    andb #07
14905 F974 27 0D           '.    beq 0d
14906 F976 F6 00 35        ..5   ldab 0035
14907 F979 26 08           &.    bne 08
14908 F97B CE 00 21        ..!   ldx #0021
14909 F97E 1C 00           ..    bset add,x 00,x
14910 F980 20 20                 bra 20
14911 F982 06              .     tap
14912 F983 CE 00 21        ..!   ldx #0021
14913 F986 1D 00           ..    bclr add,x 00,x
14914 F988 20 BD            .    bra bd
14915 F98A BB 63 BD        .c.   adda 63bd
14916 F98D B8 00 F6        ...   eora 00f6
14917 F990 0B              .     sev
14918 F991 C0 C4           ..    subb #c4
14919 F993 01              .     nop
14920 F994 27 0B           '.    beq 0b
14921 F996 FC 00 40        ..@   ldd 0040
14922 F999 F3 00 3E        ..>   addd 003e
14923 F99C 26 03           &.    bne 03
14924 F99E BD D6 F6        ...   jsr d6f6
14925 F9A1 F6 00 12        ...   ldab 0012
14926 F9A4 C4 20           .     andb #20
14927 F9A6 27 08           '.    beq 08
14928 F9A8 F6 00 35        ..5   ldab 0035
14929 F9AB 26 03           &.    bne 03
14930 F9AD 7E FA 79        ~.y   jmp fa79
14931 F9B0 CE 00 1F        ...   ldx #001f
14932 F9B3 1D 00           ..    bclr add,x 00,x
14933 F9B5 04              .     lsrd
14934 F9B6 CE 00 1D        ...   ldx #001d
14935 F9B9 1C 00           ..    bset add,x 00,x
14936 F9BB 10              .     sba
14937 F9BC F6 00 1F        ...   ldab 001f
14938 F9BF C4 20           .     andb #20
14939 F9C1 26 03           &.    bne 03
14940 F9C3 7E FA 74        ~.t   jmp fa74
14941 F9C6 F6 0B C0        ...   ldab 0bc0
14942 F9C9 C4 01           ..    andb #01
14943 F9CB 27 08           '.    beq 08
14944 F9CD CE 0B C1        ...   ldx #0bc1
14945 F9D0 1C 00           ..    bset add,x 00,x
14946 F9D2 01              .     nop
14947 F9D3 20 06            .    bra 06
14948 F9D5 CE 0B C1        ...   ldx #0bc1
14949 F9D8 1D 00           ..    bclr add,x 00,x
14950 F9DA 01              .     nop
14951 F9DB F6 0B C0        ...   ldab 0bc0
14952 F9DE C4 04           ..    andb #04
14953 F9E0 27 08           '.    beq 08
14954 F9E2 CE 0B C1        ...   ldx #0bc1
14955 F9E5 1C 00           ..    bset add,x 00,x
14956 F9E7 02              .     idiv
14957 F9E8 20 06            .    bra 06
14958 F9EA CE 0B C1        ...   ldx #0bc1
14959 F9ED 1D 00           ..    bclr add,x 00,x
14960 F9EF 02              .     idiv
14961 F9F0 CE 0B C1        ...   ldx #0bc1
14962 F9F3 1D 00           ..    bclr add,x 00,x
14963 F9F5 04              .     lsrd
14964 F9F6 CE 00 1B        ...   ldx #001b
14965 F9F9 1D 00           ..    bclr add,x 00,x
14966 F9FB 02              .     idiv
14967 F9FC F6 0B C0        ...   ldab 0bc0
14968 F9FF C4 02           ..    andb #02
14969 FA01 27 27           ''    beq 27
14970 FA03 C6 3C           .<    ldab #3c
14971 FA05 F7 00 31        ..1   stb 0031
14972 FA08 0E              .     cli
14973 FA09 CC 00 FF        ...   ldd #00ff
14974 FA0C BD C7 E7        ...   jsr c7e7
14975 FA0F 5F              _     clrb
14976 FA10 4F              O     clra
14977 FA11 FD 00 40        ..@   stad 0040
14978 FA14 C6 10           ..    ldab #10
14979 FA16 F7 10 2C        ..,   stb 102c
14980 FA19 C6 2E           ..    ldab #2e
14981 FA1B F7 10 2D        ..-   stb 102d
14982 FA1E C6 03           ..    ldab #03
14983 FA20 F7 10 2B        ..+   stb 102b
14984 FA23 C6 46           .F    ldab #46
14985 FA25 F7 00 2F        ../   stb 002f
14986 FA28 20 31            1    bra 31
14987 FA2A CE 00 21        ..!   ldx #0021
14988 FA2D 1D 00           ..    bclr add,x 00,x
14989 FA2F 40              @     nega
14990 FA30 BD D0 94        ...   jsr d094
14991 FA33 C6 27           .'    ldab #27
14992 FA35 F7 10 2D        ..-   stb 102d
14993 FA38 C6 07           ..    ldab #07
14994 FA3A F7 10 2B        ..+   stb 102b
14995 FA3D CE 00 1A        ...   ldx #001a
14996 FA40 1C 00           ..    bset add,x 00,x
14997 FA42 04              .     lsrd
14998 FA43 F6 00 1A        ...   ldab 001a
14999 FA46 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15000 FA49 CC 00 32        ..2   ldd #0032
15001 FA4C BD E5 71        ..q   jsr e571
15002 FA4F CE 00 1A        ...   ldx #001a
15003 FA52 1D 00           ..    bclr add,x 00,x
15004 FA54 04              .     lsrd
15005 FA55 F6 00 1A        ...   ldab 001a
15006 FA58 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15007 FA5B BD D4 79        ..y   jsr d479
15008 FA5E BD E8 9A        ...   jsr e89a
15009 FA61 BD BE 69        ..i   jsr be69
15010 FA64 7F 00 06        ...   clr 0006
15011 FA67 CE 00 1F        ...   ldx #001f
15012 FA6A 1D 00           ..    bclr add,x 00,x
15013 FA6C 20 C6            .    bra c6
15014 FA6E 1E F7 00 35     ...5  brset f7,x 00 35
15015 FA72 20 03            .    bra 03
15016 FA74 BD DE E7        ...   jsr dee7
15017 FA77 20 66            f    bra 66
15018 FA79 F6 00 12        ...   ldab 0012
15019 FA7C C4 20           .     andb #20
15020 FA7E 27 5F           '_    beq 5f
15021 FA80 F6 00 1F        ...   ldab 001f
15022 FA83 C4 20           .     andb #20
15023 FA85 26 03           &.    bne 03
15024 FA87 BD E5 AA        ...   jsr e5aa
15025 FA8A CE 00 1F        ...   ldx #001f
15026 FA8D 1C 00           ..    bset add,x 00,x
15027 FA8F 20 F6            .    bra f6
15028 FA91 00              .     test
15029 FA92 12              .     brset
15030 FA93 C4 01           ..    andb #01
15031 FA95 26 33           &3    bne 33
15032 FA97 F6 00 1D        ...   ldab 001d
15033 FA9A C4 08           ..    andb #08
15034 FA9C 27 2A           '*    beq 2a
15035 FA9E F6 00 1F        ...   ldab 001f
15036 FAA1 C4 04           ..    andb #04
15037 FAA3 26 14           &.    bne 14
15038 FAA5 CE 00 1F        ...   ldx #001f
15039 FAA8 1C 00           ..    bset add,x 00,x
15040 FAAA 04              .     lsrd
15041 FAAB CE 00 1F        ...   ldx #001f
15042 FAAE 1C 00           ..    bset add,x 00,x
15043 FAB0 80 CC           ..    suba #cc
15044 FAB2 02              .     idiv
15045 FAB3 33              3     pulb
15046 FAB4 FD 00 3B        ..;   stad 003b
15047 FAB7 20 09            .    bra 09
15048 FAB9 BD E5 AA        ...   jsr e5aa
15049 FABC CE 00 1F        ...   ldx #001f
15050 FABF 1D 00           ..    bclr add,x 00,x
15051 FAC1 04              .     lsrd
15052 FAC2 CE 00 1D        ...   ldx #001d
15053 FAC5 1D 00           ..    bclr add,x 00,x
15054 FAC7 08              .     inx
15055 FAC8 20 06            .    bra 06
15056 FACA CE 00 1D        ...   ldx #001d
15057 FACD 1C 00           ..    bset add,x 00,x
15058 FACF 08              .     inx
15059 FAD0 F6 00 1F        ...   ldab 001f
15060 FAD3 C4 04           ..    andb #04
15061 FAD5 26 05           &.    bne 05
15062 FAD7 BD 81 00        ...   jsr 8100
15063 FADA 20 03            .    bra 03
15064 FADC BD 84 A0        ...   jsr 84a0
15065 FADF 7E F8 FF        ~..   jmp f8ff
15066 FAE2 CC B1 2E        ...   ldd #b12e
15067 FAE5 BD C0 BA        ...   jsr c0ba
15068 FAE8 CC 07 D0        ...   ldd #07d0
15069 FAEB BD E5 71        ..q   jsr e571
15070 FAEE 3B              ;     rti
15071 FAEF CC B1 2E        ...   ldd #b12e
15072 FAF2 BD C0 BA        ...   jsr c0ba
15073 FAF5 CC 07 D0        ...   ldd #07d0
15074 FAF8 BD E5 71        ..q   jsr e571
15075 FAFB 3B              ;     rti
15076 FAFC CC B1 2E        ...   ldd #b12e
15077 FAFF BD C0 BA        ...   jsr c0ba
15078 FB02 CC 07 D0        ...   ldd #07d0
15079 FB05 BD E5 71        ..q   jsr e571
15080 FB08 3B              ;     rti
15081 FB09 CC B1 2E        ...   ldd #b12e
15082 FB0C BD C0 BA        ...   jsr c0ba
15083 FB0F CC 07 D0        ...   ldd #07d0
15084 FB12 BD E5 71        ..q   jsr e571
15085 FB15 3B              ;     rti
15086 FB16 CC B1 2E        ...   ldd #b12e
15087 FB19 BD C0 BA        ...   jsr c0ba
15088 FB1C CC 07 D0        ...   ldd #07d0
15089 FB1F BD E5 71        ..q   jsr e571
15090 FB22 3B              ;     rti
15091 FB23 CC B1 2E        ...   ldd #b12e
15092 FB26 BD C0 BA        ...   jsr c0ba
15093 FB29 CC 07 D0        ...   ldd #07d0
15094 FB2C BD E5 71        ..q   jsr e571
15095 FB2F 3B              ;     rti
15096 FB30 CC B1 2E        ...   ldd #b12e
15097 FB33 BD C0 BA        ...   jsr c0ba
15098 FB36 CC 07 D0        ...   ldd #07d0
15099 FB39 BD E5 71        ..q   jsr e571
15100 FB3C 3B              ;     rti
15101 FB3D CC B1 2E        ...   ldd #b12e
15102 FB40 BD C0 BA        ...   jsr c0ba
15103 FB43 CC 07 D0        ...   ldd #07d0
15104 FB46 BD E5 71        ..q   jsr e571
15105 FB49 3B              ;     rti
15106 FB4A CC B1 2E        ...   ldd #b12e
15107 FB4D BD C0 BA        ...   jsr c0ba
15108 FB50 CC 07 D0        ...   ldd #07d0
15109 FB53 BD E5 71        ..q   jsr e571
15110 FB56 3B              ;     rti
15111 FB57 CC B1 2E        ...   ldd #b12e
15112 FB5A BD C0 BA        ...   jsr c0ba
15113 FB5D CC 07 D0        ...   ldd #07d0
15114 FB60 BD E5 71        ..q   jsr e571
15115 FB63 3B              ;     rti
15116 FB64 CC B1 2E        ...   ldd #b12e
15117 FB67 BD C0 BA        ...   jsr c0ba
15118 FB6A CC 07 D0        ...   ldd #07d0
15119 FB6D BD E5 71        ..q   jsr e571
15120 FB70 3B              ;     rti
15121 FB71 CC B1 2E        ...   ldd #b12e
15122 FB74 BD C0 BA        ...   jsr c0ba
15123 FB77 CC 07 D0        ...   ldd #07d0
15124 FB7A BD E5 71        ..q   jsr e571
15125 FB7D 3B              ;     rti
15126 FB7E CC B1 2E        ...   ldd #b12e
15127 FB81 BD C0 BA        ...   jsr c0ba
15128 FB84 CC 07 D0        ...   ldd #07d0
15129 FB87 BD E5 71        ..q   jsr e571
15130 FB8A 3B              ;     rti
15131 FB8B CC B1 2E        ...   ldd #b12e
15132 FB8E BD C0 BA        ...   jsr c0ba
15133 FB91 CC 07 D0        ...   ldd #07d0
15134 FB94 BD E5 71        ..q   jsr e571
15135 FB97 3B              ;     rti
15136 FB98 CC B1 2E        ...   ldd #b12e
15137 FB9B BD C0 BA        ...   jsr c0ba
15138 FB9E CC 07 D0        ...   ldd #07d0
15139 FBA1 BD E5 71        ..q   jsr e571
15140 FBA4 3B              ;     rti
15141 FBA5 CC B1 2E        ...   ldd #b12e
15142 FBA8 BD C0 BA        ...   jsr c0ba
15143 FBAB CC 07 D0        ...   ldd #07d0
15144 FBAE BD E5 71        ..q   jsr e571
15145 FBB1 3B              ;     rti
15146 FBB2 BD FE 69        ..i   jsr fe69
15147 FBB5 3B              ;     rti
15148 FBB6 BD FE 69        ..i   jsr fe69
15149 FBB9 3B              ;     rti
15150 FBBA 3C              <     pshx
15151 FBBB 37              7     pshb
15152 FBBC 30              0     tsx
15153 FBBD E6 06           ..    ldab 06,x
15154 FBBF 3D              =     mul
15155 FBC0 A6 00           ..    ldaa 00,x
15156 FBC2 37              7     pshb
15157 FBC3 E6 05           ..    ldab 05,x
15158 FBC5 3D              =     mul
15159 FBC6 32              2     pula
15160 FBC7 1B              .     aba
15161 FBC8 33              3     pulb
15162 FBC9 36              6     psha
15163 FBCA A6 06           ..    ldaa 06,x
15164 FBCC 3D              =     mul
15165 FBCD 37              7     pshb
15166 FBCE AB 00           ..    adda 00,x
15167 FBD0 36              6     psha
15168 FBD1 EC 03           ..    ldd 03,x
15169 FBD3 ED 05           ..    stad 05,x
15170 FBD5 38              8     pulx
15171 FBD6 8F              .     xgdx
15172 FBD7 83 00 00        ...   subd #0000
15173 FBDA 31              1     ins
15174 FBDB 38              8     pulx
15175 FBDC 31              1     ins
15176 FBDD 31              1     ins
15177 FBDE 39              9     rts
15178 FBDF BD FB E8        ...   jsr fbe8
15179 FBE2 BD FC 25        ..%   jsr fc25
15180 FBE5 7E FC 04        ~..   jmp fc04
15181 FBE8 3C              <     pshx
15182 FBE9 8F              .     xgdx
15183 FBEA EC 02           ..    ldd 02,x
15184 FBEC 37              7     pshb
15185 FBED 36              6     psha
15186 FBEE EC 00           ..    ldd 00,x
15187 FBF0 37              7     pshb
15188 FBF1 36              6     psha
15189 FBF2 34              4     des
15190 FBF3 34              4     des
15191 FBF4 34              4     des
15192 FBF5 34              4     des
15193 FBF6 3C              <     pshx
15194 FBF7 30              0     tsx
15195 FBF8 EC 12           ..    ldd 12,x
15196 FBFA ED 04           ..    stad 04,x
15197 FBFC EC 0C           ..    ldd 0c,x
15198 FBFE ED 02           ..    stad 02,x
15199 FC00 EC 10           ..    ldd 10,x
15200 FC02 38              8     pulx
15201 FC03 39              9     rts
15202 FC04 ED 00           ..    stad 00,x
15203 FC06 3C              <     pshx
15204 FC07 30              0     tsx
15205 FC08 EC 08           ..    ldd 08,x
15206 FC0A ED 0A           ..    stad 0a,x
15207 FC0C EC 02           ..    ldd 02,x
15208 FC0E ED 0C           ..    stad 0c,x
15209 FC10 38              8     pulx
15210 FC11 ED 02           ..    stad 02,x
15211 FC13 EC 00           ..    ldd 00,x
15212 FC15 26 06           &.    bne 06
15213 FC17 6D 02           m.    tst 02,x
15214 FC19 26 02           &.    bne 02
15215 FC1B 6D 03           m.    tst 03,x
15216 FC1D 31              1     ins
15217 FC1E 31              1     ins
15218 FC1F 38              8     pulx
15219 FC20 31              1     ins
15220 FC21 31              1     ins
15221 FC22 31              1     ins
15222 FC23 31              1     ins
15223 FC24 39              9     rts
15224 FC25 3C              <     pshx
15225 FC26 30              0     tsx
15226 FC27 E3 06           ..    addd 06,x
15227 FC29 37              7     pshb
15228 FC2A 36              6     psha
15229 FC2B EC 02           ..    ldd 02,x
15230 FC2D ED 06           ..    stad 06,x
15231 FC2F EC 04           ..    ldd 04,x
15232 FC31 E3 08           ..    addd 08,x
15233 FC33 ED 08           ..    stad 08,x
15234 FC35 32              2     pula
15235 FC36 33              3     pulb
15236 FC37 C9 00           ..    adcb #00
15237 FC39 89 00           ..    adca #00
15238 FC3B 83 00 00        ...   subd #0000
15239 FC3E 26 06           &.    bne 06
15240 FC40 6D 08           m.    tst 08,x
15241 FC42 26 02           &.    bne 02
15242 FC44 6D 09           m.    tst 09,x
15243 FC46 38              8     pulx
15244 FC47 31              1     ins
15245 FC48 31              1     ins
15246 FC49 31              1     ins
15247 FC4A 31              1     ins
15248 FC4B 39              9     rts
15249 FC4C 3C              <     pshx
15250 FC4D 3C              <     pshx
15251 FC4E 37              7     pshb
15252 FC4F 36              6     psha
15253 FC50 3C              <     pshx
15254 FC51 3C              <     pshx
15255 FC52 3C              <     pshx
15256 FC53 18 3C           .<    pshy
15257 FC55 30              0     tsx
15258 FC56 4F              O     clra
15259 FC57 A7 04           ..    sta 04,x
15260 FC59 7E FC 6D        ~.m   jmp fc6d
15261 FC5C 3C              <     pshx
15262 FC5D 3C              <     pshx
15263 FC5E 37              7     pshb
15264 FC5F 36              6     psha
15265 FC60 3C              <     pshx
15266 FC61 3C              <     pshx
15267 FC62 3C              <     pshx
15268 FC63 18 3C           .<    pshy
15269 FC65 30              0     tsx
15270 FC66 86 01           ..    ldaa #01
15271 FC68 A7 04           ..    sta 04,x
15272 FC6A 7E FC 6D        ~.m   jmp fc6d
15273 FC6D 1A EE 0E        ...   ldy 0e,x
15274 FC70 EC 08           ..    ldd 08,x
15275 FC72 ED 0E           ..    stad 0e,x
15276 FC74 EC 14           ..    ldd 14,x
15277 FC76 ED 0C           ..    stad 0c,x
15278 FC78 EC 12           ..    ldd 12,x
15279 FC7A ED 0A           ..    stad 0a,x
15280 FC7C 1A EF 12        ...   sty 12,x
15281 FC7F 4F              O     clra
15282 FC80 5F              _     clrb
15283 FC81 ED 08           ..    stad 08,x
15284 FC83 ED 06           ..    stad 06,x
15285 FC85 EC 0A           ..    ldd 0a,x
15286 FC87 1A A3 0E        ...   cmpd 0e,x
15287 FC8A 22 23           "#    bhi 23
15288 FC8C 27 15           '.    beq 15
15289 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15290 FC92 CC 00 00        ...   ldd #0000
15291 FC95 ED 14           ..    stad 14,x
15292 FC97 7E FE 04        ~..   jmp fe04
15293 FC9A EC 0C           ..    ldd 0c,x
15294 FC9C ED 14           ..    stad 14,x
15295 FC9E EC 0A           ..    ldd 0a,x
15296 FCA0 7E FD E3        ~..   jmp fde3
15297 FCA3 83 00 00        ...   subd #0000
15298 FCA6 27 12           '.    beq 12
15299 FCA8 EC 0C           ..    ldd 0c,x
15300 FCAA 1A A3 10        ...   cmpd 10,x
15301 FCAD 25 DF           %.    bcs df
15302 FCAF 6D 0E           m.    tst 0e,x
15303 FCB1 26 70           &p    bne 70
15304 FCB3 6D 0F           m.    tst 0f,x
15305 FCB5 27 1A           '.    beq 1a
15306 FCB7 7E FD A4        ~..   jmp fda4
15307 FCBA 3C              <     pshx
15308 FCBB 3C              <     pshx
15309 FCBC 18 38           .8    puly
15310 FCBE EC 0C           ..    ldd 0c,x
15311 FCC0 EE 10           ..    ldx 10,x
15312 FCC2 02              .     idiv
15313 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15314 FCC8 8F              .     xgdx
15315 FCC9 38              8     pulx
15316 FCCA ED 14           ..    stad 14,x
15317 FCCC 4F              O     clra
15318 FCCD 5F              _     clrb
15319 FCCE 7E FD E3        ~..   jmp fde3
15320 FCD1 3C              <     pshx
15321 FCD2 3C              <     pshx
15322 FCD3 18 38           .8    puly
15323 FCD5 EC 0A           ..    ldd 0a,x
15324 FCD7 EE 10           ..    ldx 10,x
15325 FCD9 3C              <     pshx
15326 FCDA 02              .     idiv
15327 FCDB CD EF 0A        ...   stx 02x,y
15328 FCDE 38              8     pulx
15329 FCDF 3C              <     pshx
15330 FCE0 03              .     fdiv
15331 FCE1 CD EF 0E        ...   stx 02x,y
15332 FCE4 38              8     pulx
15333 FCE5 18 E3 0C        ...   addd 0c,y
15334 FCE8 24 1B           $.    bcc 1b
15335 FCEA 18 ED 0C        ...   stad 0c,y
15336 FCED 4F              O     clra
15337 FCEE C6 01           ..    ldab #01
15338 FCF0 3C              <     pshx
15339 FCF1 03              .     fdiv
15340 FCF2 8F              .     xgdx
15341 FCF3 18 E3 0E        ...   addd 0e,y
15342 FCF6 24 03           $.    bcc 03
15343 FCF8 18 6C 0A        .l.   inc 0a,y
15344 FCFB 18 ED 0E        ...   stad 0e,y
15345 FCFE 8F              .     xgdx
15346 FCFF 38              8     pulx
15347 FD00 18 E3 0C        ...   addd 0c,y
15348 FD03 25 E5           %.    bcs e5
15349 FD05 02              .     idiv
15350 FD06 8F              .     xgdx
15351 FD07 18 E3 0E        ...   addd 0e,y
15352 FD0A 24 03           $.    bcc 03
15353 FD0C 18 6C 0A        .l.   inc 0a,y
15354 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15355 FD14 8F              .     xgdx
15356 FD15 18 6F 0A        .o.   clr 0a,y
15357 FD18 18 6F 0B        .o.   clr 0b,y
15358 FD1B 38              8     pulx
15359 FD1C ED 14           ..    stad 14,x
15360 FD1E EC 0A           ..    ldd 0a,x
15361 FD20 7E FD E3        ~..   jmp fde3
15362 FD23 86 08           ..    ldaa #08
15363 FD25 A7 05           ..    sta 05,x
15364 FD27 69              i     rol
15365 FD28 0D              .     sec
15366 FD29 69              i     rol
15367 FD2A 0C              .     clc
15368 FD2B 69              i     rol
15369 FD2C 0B              .     sev
15370 FD2D 69              i     rol
15371 FD2E 0A              .     clv
15372 FD2F 69              i     rol
15373 FD30 09              .     dex
15374 FD31 EC 0B           ..    ldd 0b,x
15375 FD33 A3 10           ..    subd 10,x
15376 FD35 ED 14           ..    stad 14,x
15377 FD37 EC 09           ..    ldd 09,x
15378 FD39 E2 0F           ..    sbcb 0f,x
15379 FD3B A2 0E           ..    sbca 0e,x
15380 FD3D 25 06           %.    bcs 06
15381 FD3F ED 09           ..    stad 09,x
15382 FD41 EC 14           ..    ldd 14,x
15383 FD43 ED 0B           ..    stad 0b,x
15384 FD45 6A 05           j.    dec 05,x
15385 FD47 26 DE           &.    bne de
15386 FD49 69              i     rol
15387 FD4A 0D              .     sec
15388 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
15389 FD4F EC 0B           ..    ldd 0b,x
15390 FD51 ED 14           ..    stad 14,x
15391 FD53 EC 09           ..    ldd 09,x
15392 FD55 7E FD E3        ~..   jmp fde3
15393 FD58 4F              O     clra
15394 FD59 E6 0D           ..    ldab 0d,x
15395 FD5B 53              S     comb
15396 FD5C ED 14           ..    stad 14,x
15397 FD5E 5F              _     clrb
15398 FD5F 7E FD E3        ~..   jmp fde3
15399 FD62 86 10           ..    ldaa #10
15400 FD64 A7 05           ..    sta 05,x
15401 FD66 69              i     rol
15402 FD67 0D              .     sec
15403 FD68 69              i     rol
15404 FD69 0C              .     clc
15405 FD6A 69              i     rol
15406 FD6B 0B              .     sev
15407 FD6C 69              i     rol
15408 FD6D 0A              .     clv
15409 FD6E 69              i     rol
15410 FD6F 09              .     dex
15411 FD70 69              i     rol
15412 FD71 08              .     inx
15413 FD72 EC 0A           ..    ldd 0a,x
15414 FD74 A3 10           ..    subd 10,x
15415 FD76 ED 14           ..    stad 14,x
15416 FD78 EC 08           ..    ldd 08,x
15417 FD7A E2 0F           ..    sbcb 0f,x
15418 FD7C 82 00           ..    sbca #00
15419 FD7E 25 06           %.    bcs 06
15420 FD80 ED 08           ..    stad 08,x
15421 FD82 EC 14           ..    ldd 14,x
15422 FD84 ED 0A           ..    stad 0a,x
15423 FD86 6A 05           j.    dec 05,x
15424 FD88 26 DC           &.    bne dc
15425 FD8A 69              i     rol
15426 FD8B 0D              .     sec
15427 FD8C 69              i     rol
15428 FD8D 0C              .     clc
15429 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15430 FD92 EC 0A           ..    ldd 0a,x
15431 FD94 ED 14           ..    stad 14,x
15432 FD96 EC 08           ..    ldd 08,x
15433 FD98 20 49            I    bra 49
15434 FD9A EC 0C           ..    ldd 0c,x
15435 FD9C 43              C     coma
15436 FD9D 53              S     comb
15437 FD9E ED 14           ..    stad 14,x
15438 FDA0 4F              O     clra
15439 FDA1 5F              _     clrb
15440 FDA2 20 3F            ?    bra 3f
15441 FDA4 2B BC           +.    bmi bc
15442 FDA6 86 10           ..    ldaa #10
15443 FDA8 A7 05           ..    sta 05,x
15444 FDAA 69              i     rol
15445 FDAB 0D              .     sec
15446 FDAC 69              i     rol
15447 FDAD 0C              .     clc
15448 FDAE 69              i     rol
15449 FDAF 0B              .     sev
15450 FDB0 69              i     rol
15451 FDB1 0A              .     clv
15452 FDB2 69              i     rol
15453 FDB3 07              .     tpa
15454 FDB4 EC 0A           ..    ldd 0a,x
15455 FDB6 A3 10           ..    subd 10,x
15456 FDB8 ED 14           ..    stad 14,x
15457 FDBA A6 07           ..    ldaa 07,x
15458 FDBC A2 0F           ..    sbca 0f,x
15459 FDBE 25 06           %.    bcs 06
15460 FDC0 A7 07           ..    sta 07,x
15461 FDC2 EC 14           ..    ldd 14,x
15462 FDC4 ED 0A           ..    stad 0a,x
15463 FDC6 6A 05           j.    dec 05,x
15464 FDC8 26 E0           &.    bne e0
15465 FDCA 69              i     rol
15466 FDCB 0D              .     sec
15467 FDCC 69              i     rol
15468 FDCD 0C              .     clc
15469 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
15470 FDD2 EC 0A           ..    ldd 0a,x
15471 FDD4 ED 14           ..    stad 14,x
15472 FDD6 4F              O     clra
15473 FDD7 E6 07           ..    ldab 07,x
15474 FDD9 20 08            .    bra 08
15475 FDDB EC 0C           ..    ldd 0c,x
15476 FDDD 43              C     coma
15477 FDDE 53              S     comb
15478 FDDF ED 14           ..    stad 14,x
15479 FDE1 4F              O     clra
15480 FDE2 5F              _     clrb
15481 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
15482 FDE7 43              C     coma
15483 FDE8 53              S     comb
15484 FDE9 63 14           c.    com 14,x
15485 FDEB 63 15           c.    com 15,x
15486 FDED 6C 15           l.    inc 15,x
15487 FDEF 26 08           &.    bne 08
15488 FDF1 6C 14           l.    inc 14,x
15489 FDF3 26 04           &.    bne 04
15490 FDF5 5C              \     incb
15491 FDF6 26 01           &.    bne 01
15492 FDF8 4C              L     inca
15493 FDF9 83 00 00        ...   subd #0000
15494 FDFC 26 06           &.    bne 06
15495 FDFE 6D 14           m.    tst 14,x
15496 FE00 26 02           &.    bne 02
15497 FE02 6D 15           m.    tst 15,x
15498 FE04 18 38           .8    puly
15499 FE06 38              8     pulx
15500 FE07 31              1     ins
15501 FE08 31              1     ins
15502 FE09 31              1     ins
15503 FE0A 31              1     ins
15504 FE0B 31              1     ins
15505 FE0C 31              1     ins
15506 FE0D 31              1     ins
15507 FE0E 31              1     ins
15508 FE0F 31              1     ins
15509 FE10 31              1     ins
15510 FE11 31              1     ins
15511 FE12 31              1     ins
15512 FE13 31              1     ins
15513 FE14 31              1     ins
15514 FE15 39              9     rts
15515 FE16 38              8     pulx
15516 FE17 A3 00           ..    subd 00,x
15517 FE19 2D 05           -.    blt 05
15518 FE1B 1A A3 02        ...   cmpd 02,x
15519 FE1E 2F 03           /.    ble 03
15520 FE20 CC FF FF        ...   ldd #ffff
15521 FE23 3C              <     pshx
15522 FE24 05              .     asld
15523 FE25 30              0     tsx
15524 FE26 E3 00           ..    addd 00,x
15525 FE28 C3 00 06        ...   addd #0006
15526 FE2B 8F              .     xgdx
15527 FE2C EC 00           ..    ldd 00,x
15528 FE2E 30              0     tsx
15529 FE2F ED 00           ..    stad 00,x
15530 FE31 39              9     rts
15531 FE32 38              8     pulx
15532 FE33 6D 04           m.    tst 04,x
15533 FE35 26 04           &.    bne 04
15534 FE37 6D 05           m.    tst 05,x
15535 FE39 27 0A           '.    beq 0a
15536 FE3B A3 02           ..    subd 02,x
15537 FE3D 27 06           '.    beq 06
15538 FE3F 08              .     inx
15539 FE40 08              .     inx
15540 FE41 08              .     inx
15541 FE42 08              .     inx
15542 FE43 20 EE            .    bra ee
15543 FE45 EE 00           ..    ldx 00,x
15544 FE47 6E 00           n.    jmp 00,x
15545
15546         reset:
15547
15548 FE49 86 40           .@    ldaa #40
15549 FE4B B7 10 24        ..$   sta 1024     ;40 -> 1024
15550 FE4E 86 A0           ..    ldaa #a0
15551 FE50 B7 10 39        ..9   sta 1039     ;a0 -> 1024
15552 FE53 8E 00 EF        ...   lds #00ef
15553 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
15554 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
15555 FE5C 24 05           $.    bcc fe63     ;        finished
15556 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
15557 FE60 08              .     inx          ;        increment X
15558 FE61 20 F6            .    bra fe59     ;repeat
15559 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
15560 FE66 7E FE 6D        ~.m   jmp fe6d     ;
15561
15562 FE69 0F              .     sei          ;inhibit interrupts
15563 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
15564
15565 FE6D 20 FE            .    bra fe6d     ;loop forever
15566                                         ;[SAF] - wait for interrupts?
15567
15568 FE6F FF FF FF        ...   stx ffff
15569 FE72 FF FF FF        ...   stx ffff
15570 FE75 FF FF FF        ...   stx ffff
15571 FE78 FF FF FF        ...   stx ffff
15572 FE7B FF FF FF        ...   stx ffff
15573 FE7E FF FF FF        ...   stx ffff
15574 FE81 FF FF FF        ...   stx ffff
15575 FE84 FF FF FF        ...   stx ffff
15576 FE87 FF FF FF        ...   stx ffff
15577 FE8A FF FF FF        ...   stx ffff
15578 FE8D FF FF FF        ...   stx ffff
15579 FE90 FF FF FF        ...   stx ffff
15580 FE93 FF FF FF        ...   stx ffff
15581 FE96 FF FF FF        ...   stx ffff
15582 FE99 FF FF FF        ...   stx ffff
15583 FE9C FF FF FF        ...   stx ffff
15584 FE9F FF FF FF        ...   stx ffff
15585 FEA2 FF FF FF        ...   stx ffff
15586 FEA5 FF FF FF        ...   stx ffff
15587 FEA8 FF FF FF        ...   stx ffff
15588 FEAB FF FF FF        ...   stx ffff
15589 FEAE FF FF FF        ...   stx ffff
15590 FEB1 FF FF FF        ...   stx ffff
15591 FEB4 FF FF FF        ...   stx ffff
15592 FEB7 FF FF FF        ...   stx ffff
15593 FEBA FF FF FF        ...   stx ffff
15594 FEBD FF FF FF        ...   stx ffff
15595 FEC0 FF FF FF        ...   stx ffff
15596 FEC3 FF FF FF        ...   stx ffff
15597 FEC6 FF FF FF        ...   stx ffff
15598 FEC9 FF FF FF        ...   stx ffff
15599 FECC FF FF FF        ...   stx ffff
15600 FECF FF FF FF        ...   stx ffff
15601 FED2 FF FF FF        ...   stx ffff
15602 FED5 FF FF FF        ...   stx ffff
15603 FED8 FF FF FF        ...   stx ffff
15604 FEDB FF FF FF        ...   stx ffff
15605 FEDE FF FF FF        ...   stx ffff
15606 FEE1 FF FF FF        ...   stx ffff
15607 FEE4 FF FF FF        ...   stx ffff
15608 FEE7 FF FF FF        ...   stx ffff
15609 FEEA FF FF FF        ...   stx ffff
15610 FEED FF FF FF        ...   stx ffff
15611 FEF0 FF FF FF        ...   stx ffff
15612 FEF3 FF FF FF        ...   stx ffff
15613 FEF6 FF FF FF        ...   stx ffff
15614 FEF9 FF FF FF        ...   stx ffff
15615 FEFC FF FF FF        ...   stx ffff
15616 FEFF FF FF FF        ...   stx ffff
15617 FF02 FF FF FF        ...   stx ffff
15618 FF05 FF FF FF        ...   stx ffff
15619 FF08 FF FF FF        ...   stx ffff
15620 FF0B FF FF FF        ...   stx ffff
15621 FF0E FF FF FF        ...   stx ffff
15622 FF11 FF FF FF        ...   stx ffff
15623 FF14 FF FF FF        ...   stx ffff
15624 FF17 FF FF FF        ...   stx ffff
15625 FF1A FF FF FF        ...   stx ffff
15626 FF1D FF FF FF        ...   stx ffff
15627 FF20 FF FF FF        ...   stx ffff
15628 FF23 FF FF FF        ...   stx ffff
15629 FF26 FF FF FF        ...   stx ffff
15630 FF29 FF FF FF        ...   stx ffff
15631 FF2C FF FF FF        ...   stx ffff
15632 FF2F FF FF FF        ...   stx ffff
15633 FF32 FF FF FF        ...   stx ffff
15634 FF35 FF FF FF        ...   stx ffff
15635 FF38 FF FF FF        ...   stx ffff
15636 FF3B FF FF FF        ...   stx ffff
15637 FF3E FF FF FF        ...   stx ffff
15638 FF41 FF FF FF        ...   stx ffff
15639 FF44 FF FF FF        ...   stx ffff
15640 FF47 FF FF FF        ...   stx ffff
15641 FF4A FF FF FF        ...   stx ffff
15642 FF4D FF FF FF        ...   stx ffff
15643 FF50 FF FF FF        ...   stx ffff
15644 FF53 FF FF FF        ...   stx ffff
15645 FF56 FF FF FF        ...   stx ffff
15646 FF59 FF FF FF        ...   stx ffff
15647 FF5C FF FF FF        ...   stx ffff
15648 FF5F FF FF FF        ...   stx ffff
15649 FF62 FF FF FF        ...   stx ffff
15650 FF65 FF FF FF        ...   stx ffff
15651 FF68 FF FF FF        ...   stx ffff
15652 FF6B FF FF FF        ...   stx ffff
15653 FF6E FF FF FF        ...   stx ffff
15654 FF71 FF FF FF        ...   stx ffff
15655 FF74 FF FF FF        ...   stx ffff
15656 FF77 FF FF FF        ...   stx ffff
15657 FF7A FF FF FF        ...   stx ffff
15658 FF7D FF FF FF        ...   stx ffff
15659 FF80 FF FF FF        ...   stx ffff
15660 FF83 FF FF FF        ...   stx ffff
15661 FF86 FF FF FF        ...   stx ffff
15662 FF89 FF FF FF        ...   stx ffff
15663 FF8C FF FF FF        ...   stx ffff
15664 FF8F FF FF FF        ...   stx ffff
15665 FF92 FF FF FF        ...   stx ffff
15666 FF95 FF FF FF        ...   stx ffff
15667 FF98 FF FF FF        ...   stx ffff
15668 FF9B FF FF FF        ...   stx ffff
15669 FF9E FF FF FF        ...   stx ffff
15670 FFA1 FF FF FF        ...   stx ffff
15671 FFA4 FF FF FF        ...   stx ffff
15672 FFA7 FF FF FF        ...   stx ffff
15673 FFAA FF FF FF        ...   stx ffff
15674 FFAD FF FF FF        ...   stx ffff
15675 FFB0 FF FF FF        ...   stx ffff
15676 FFB3 FF FF FF        ...   stx ffff
15677 FFB6 FF FF FF        ...   stx ffff
15678 FFB9 FF FF FF        ...   stx ffff
15679 FFBC FF FF FF        ...   stx ffff
15680 FFBF FF FF FF        ...   stx ffff
15681 FFC2 FF FF FF        ...   stx ffff
15682 FFC5 FF FF FF        ...   stx ffff
15683 FFC8 FF FF FF        ...   stx ffff
15684 FFCB FF FF FF        ...   stx ffff
15685 FFCE FF FF FF        ...   stx ffff
15686 FFD1 FF FF FF        ...   stx ffff
15687 FFD4 FF FF
15688
15689 FFD6    ;vectors
15690         .word   c81c
15691         .word   fae2
15692         .word   faef
15693         .word   fafc
15694         .word   fb09
15695         .word   fb16
15696         .word   fb23
15697         .word   fb30
15698         .word   fb3d
15699         .word   fb4a
15700         .word   fb57
15701         .word   fb64
15702         .word   fb71
15703         .word   f718
15704         .word   fb7e
15705         .word   fb8b
15706         .word   fb98
15707         .word   fba5
15708         .word   fbb2
15709         .word   fbb6
15710         .word   fe49
15711 \1a