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
  40
  41 ; 0014 - ????
  42 ; 001a - ????
  43 ; 1000
  44 ; 1009
  45 ; 1026
  46 ; 1028
  47 ; 1030
  48 ; 103c
  49
  50 8000 43              C     coma
  51 8001 20 50            P    bra 50
  52 8003 4F              O     clra
  53 8004 57              W     asrb
  54 8005 45              E     illegal
  55 8006 52              R     illegal
  56 8007 20 43            C    bra 43
  57 8009 4F              O     clra
  58 800A 4D              M     tsta
  59 800B 50              P     negb
  60 800C 41              A     illegal
  61 800D 4E              N     illegal
  62 800E 59              Y     rolb
  63 800F 00              .     test
  64 8010 43              C     coma
  65 8011 4F              O     clra
  66 8012 50              P     negb
  67 8013 59              Y     rolb
  68 8014 52              R     illegal
  69 8015 49              I     rola
  70 8016 47              G     asra
  71 8017 48              H     asla
  72 8018 54              T     lsrb
  73 8019 20 31            1    bra 31
  74 801B 39              9     rts
  75 801C 39              9     rts
  76 801D 33              3     pulb
  77 801E 20 00            .    bra 00
  78 8020 20 20                 bra 20
  79 8022 20 20                 bra 20
  80 8024 20 20                 bra 20
  81 8026 20 20                 bra 20
  82 8028 20 20                 bra 20
  83 802A 20 20                 bra 20
  84 802C 20 20                 bra 20
  85 802E 20 00            .    bra 00
  86 8030 56              V     rorb
  87 8031 45              E     illegal
  88 8032 4E              N     illegal
  89 8033 44              D     lsra
  90 8034 49              I     rola
  91 8035 4E              N     illegal
  92 8036 47              G     asra
  93 8037 20 4D            M    bra 4d
  94 8039 41              A     illegal
  95 803A 43              C     coma
  96 803B 48              H     asla
  97 803C 49              I     rola
  98 803D 4E              N     illegal
  99 803E 45              E     illegal
 100 803F 00              .     test
 101 8040 53              S     comb
 102 8041 4F              O     clra
 103 8042 46              F     rora
 104 8043 54              T     lsrb
 105 8044 57              W     asrb
 106 8045 41              A     illegal
 107 8046 52              R     illegal
 108 8047 45              E     illegal
 109 8048 20 57            W    bra 57
 110 804A 52              R     illegal
 111 804B 4F              O     clra
 112 804C 54              T     lsrb
 113 804D 45              E     illegal
 114 804E 20 00            .    bra 00
 115 8050 42              B     illegal
 116 8051 59              Y     rolb
 117 8052 20 42            B    bra 42
 118 8054 52              R     illegal
 119 8055 45              E     illegal
 120 8056 54              T     lsrb
 121 8057 20 42            B    bra 42
 122 8059 4F              O     clra
 123 805A 52              R     illegal
 124 805B 45              E     illegal
 125 805C 4E              N     illegal
 126 805D 2E 20           .     bgt 20
 127 805F 00              .     test
 128 8060 20 20                 bra 20
 129 8062 20 20                 bra 20
 130 8064 20 20                 bra 20
 131 8066 20 20                 bra 20
 132 8068 20 20                 bra 20
 133 806A 20 20                 bra 20
 134 806C 20 20                 bra 20
 135 806E 20 00            .    bra 00
 136 8070 50              P     negb
 137 8071 52              R     illegal
 138 8072 4F              O     clra
 139 8073 47              G     asra
 140 8074 52              R     illegal
 141 8075 41              A     illegal
 142 8076 4D              M     tsta
 143 8077 20 46            F    bra 46
 144 8079 4F              O     clra
 145 807A 52              R     illegal
 146 807B 20 54            T    bra 54
 147 807D 48              H     asla
 148 807E 45              E     illegal
 149 807F 00              .     test
 150 8080 35              5     txs
 151 8081 30              0     tsx
 152 8082 35              5     txs
 153 8083 20 41            A    bra 41
 154 8085 4E              N     illegal
 155 8086 44              D     lsra
 156 8087 20 35            5    bra 35
 157 8089 39              9     rts
 158 808A 30              0     tsx
 159 808B 30              0     tsx
 160 808C 2E 20           .     bgt 20
 161 808E 20 00            .    bra 00
 162 8090 20 20                 bra 20
 163 8092 20 20                 bra 20
 164 8094 20 20                 bra 20
 165 8096 20 20                 bra 20
 166 8098 20 20                 bra 20
 167 809A 20 20                 bra 20
 168 809C 20 20                 bra 20
 169 809E 20 00            .    bra 00
 170 80A0 50              P     negb
 171 80A1 41              A     illegal
 172 80A2 52              R     illegal
 173 80A3 54              T     lsrb
 174 80A4 20 4E            N    bra 4e
 175 80A6 55              U     illegal
 176 80A7 4D              M     tsta
 177 80A8 42              B     illegal
 178 80A9 45              E     illegal
 179 80AA 52              R     illegal
 180 80AB 3A              :     abx
 181 80AC 20 20                 bra 20
 182 80AE 20 00            .    bra 00
 183 80B0 39              9     rts
 184 80B1 33              3     pulb
 185 80B2 37              7     pshb
 186 80B3 2D 33           -3    blt 33
 187 80B5 30              0     tsx
 188 80B6 30              0     tsx
 189 80B7 30              0     tsx
 190 80B8 31              1     ins
 191 80B9 20 56            V    bra 56
 192 80BB 45              E     illegal
 193 80BC 52              R     illegal
 194 80BD 20 35            5    bra 35
 195 80BF 00              .     test
 196 80C0 43              C     coma
 197 80C1 48              H     asla
 198 80C2 45              E     illegal
 199 80C3 43              C     coma
 200 80C4 4B              K     illegal
 201 80C5 53              S     comb
 202 80C6 55              U     illegal
 203 80C7 4D              M     tsta
 204 80C8 20 45            E    bra 45
 205 80CA 4E              N     illegal
 206 80CB 44              D     lsra
 207 80CC 3A              :     abx
 208 80CD 30              0     tsx
 209 80CE 30              0     tsx
 210 80CF 00              .     test
 211 80D0 20 20                 bra 20
 212 80D2 20 20                 bra 20
 213 80D4 20 20                 bra 20
 214 80D6 20 20                 bra 20
 215 80D8 20 20                 bra 20
 216 80DA 20 20                 bra 20
 217 80DC 20 20                 bra 20
 218 80DE 20 00            .    bra 00
 219 80E0 20 20                 bra 20
 220 80E2 20 20                 bra 20
 221 80E4 20 20                 bra 20
 222 80E6 20 20                 bra 20
 223 80E8 20 20                 bra 20
 224 80EA 20 20                 bra 20
 225 80EC 20 20                 bra 20
 226 80EE 20 00            .    bra 00
 227 80F0 20 20                 bra 20
 228 80F2 20 20                 bra 20
 229 80F4 20 20                 bra 20
 230 80F6 20 20                 bra 20
 231 80F8 00              .     test
 232 80F9 20 0C            .    bra 0c
 233 80FB 93 73 00        .s.   subd 73
 234 80FE 01              .     nop
 235 80FF 05              .     asld
 236 8100 F6 00 1D        ...   ldab 001d
 237 8103 C4 10           ..    andb #10
 238 8105 27 3D           '=    beq 3d
 239 8107 BD D6 52        ..R   jsr d652
 240 810A CE 00 1D        ...   ldx #001d
 241 810D 1D 00           ..    bclr add,x 00,x
 242 810F 10              .     sba
 243 8110 CE 00 1D        ...   ldx #001d
 244 8113 1C 00           ..    bset add,x 00,x
 245 8115 80 7F           ..    suba #7f
 246 8117 00              .     test
 247 8118 42              B     illegal
 248 8119 7F 00 60        ..`   clr 0060
 249 811C 7F 00 48        ..H   clr 0048
 250 811F 7F 00 38        ..8   clr 0038
 251 8122 F6 0B A8        ...   ldab 0ba8
 252 8125 27 08           '.    beq 08
 253 8127 CE 0B A9        ...   ldx #0ba9
 254 812A 1C 00           ..    bset add,x 00,x
 255 812C 02              .     idiv
 256 812D 20 06            .    bra 06
 257 812F CE 0B A9        ...   ldx #0ba9
 258 8132 1D 00           ..    bclr add,x 00,x
 259 8134 02              .     idiv
 260 8135 7F 0E 00        ...   clr 0e00
 261 8138 7F 0E 01        ...   clr 0e01
 262 813B 7F 0E 02        ...   clr 0e02
 263 813E 7F 0E 03        ...   clr 0e03
 264 8141 7F 0E 04        ...   clr 0e04
 265 8144 F6 00 42        ..B   ldab 0042
 266 8147 C1 0B           ..    cmpb #0b
 267 8149 26 0F           &.    bne 0f
 268 814B BD AB 89        ...   jsr ab89
 269 814E 7F 00 19        ...   clr 0019
 270 8151 7F 00 60        ..`   clr 0060
 271 8154 7F 00 42        ..B   clr 0042
 272 8157 BD E6 1B        ...   jsr e61b
 273 815A F6 0B A8        ...   ldab 0ba8
 274 815D 26 03           &.    bne 03
 275 815F 7E 81 EF        ~..   jmp 81ef
 276 8162 F6 00 60        ..`   ldab 0060
 277 8165 C1 04           ..    cmpb #04
 278 8167 24 28           $(    bcc 28
 279 8169 F6 00 42        ..B   ldab 0042
 280 816C 27 21           '!    beq 21
 281 816E F6 00 42        ..B   ldab 0042
 282 8171 C1 0A           ..    cmpb #0a
 283 8173 26 03           &.    bne 03
 284 8175 7F 00 42        ..B   clr 0042
 285 8178 F6 00 42        ..B   ldab 0042
 286 817B CB 30           .0    addb #30
 287 817D 37              7     pshb
 288 817E F6 00 60        ..`   ldab 0060
 289 8181 4F              O     clra
 290 8182 C3 00 62        ..b   addd #0062
 291 8185 8F              .     xgdx
 292 8186 33              3     pulb
 293 8187 E7 00           ..    stb 00,x
 294 8189 7F 00 42        ..B   clr 0042
 295 818C 7C 00 60        |.`   inc 0060
 296 818F 20 5C            \    bra 5c
 297 8191 F6 00 62        ..b   ldab 0062
 298 8194 F1 0B A4        ...   cmpb 0ba4
 299 8197 26 3D           &=    bne 3d
 300 8199 F6 00 63        ..c   ldab 0063
 301 819C F1 0B A5        ...   cmpb 0ba5
 302 819F 26 35           &5    bne 35
 303 81A1 F6 00 64        ..d   ldab 0064
 304 81A4 F1 0B A6        ...   cmpb 0ba6
 305 81A7 26 2D           &-    bne 2d
 306 81A9 F6 00 65        ..e   ldab 0065
 307 81AC F1 0B A7        ...   cmpb 0ba7
 308 81AF 26 25           &%    bne 25
 309 81B1 CE 0B A9        ...   ldx #0ba9
 310 81B4 1D 00           ..    bclr add,x 00,x
 311 81B6 02              .     idiv
 312 81B7 CE 00 1F        ...   ldx #001f
 313 81BA 1C 00           ..    bset add,x 00,x
 314 81BC 04              .     lsrd
 315 81BD CE 00 1F        ...   ldx #001f
 316 81C0 1C 00           ..    bset add,x 00,x
 317 81C2 80 CE           ..    suba #ce
 318 81C4 00              .     test
 319 81C5 1D 1C           ..    bclr add,x 1c,x
 320 81C7 00              .     test
 321 81C8 10              .     sba
 322 81C9 CC 02 33        ..3   ldd #0233
 323 81CC FD 00 3B        ..;   stad 003b
 324 81CF C6 05           ..    ldab #05
 325 81D1 F7 00 38        ..8   stb 0038
 326 81D4 20 17            .    bra 17
 327 81D6 7F 00 42        ..B   clr 0042
 328 81D9 7F 00 60        ..`   clr 0060
 329 81DC BD BE 69        ..i   jsr be69
 330 81DF BD BE 4B        ..K   jsr be4b
 331 81E2 CC B0 81        ...   ldd #b081            ;"NO  ACCESS"
 332 81E5 BD C0 BA        ...   jsr c0ba
 333 81E8 C6 0A           ..    ldab #0a
 334 81EA F7 00 38        ..8   stb 0038
 335 81ED 20 03            .    bra 03
 336 81EF 7F 00 42        ..B   clr 0042
 337 81F2 F6 00 38        ..8   ldab 0038
 338 81F5 27 03           '.    beq 03
 339 81F7 7E 84 9F        ~..   jmp 849f
 340 81FA BD BE 4B        ..K   jsr be4b
 341 81FD F6 00 48        ..H   ldab 0048
 342 8200 26 03           &.    bne 03
 343 8202 BD AB A2        ...   jsr aba2
 344 8205 F6 00 48        ..H   ldab 0048
 345 8208 4F              O     clra
 346 8209 BD FE 16        ...   jsr fe16
 347 820C 00              .     test
 348 820D 00              .     test
 349 820E 00              .     test
 350 820F 0D              .     sec
 351 8210 84 9F           ..    anda #9f
 352 8212 82 2E           ..    sbca #2e
 353 8214 82 50           .P    sbca #50
 354 8216 82 B7           ..    sbca #b7
 355 8218 82 D9           ..    sbca #d9
 356 821A 83 40 83        .@.   subd #4083
 357 821D 62              b     illegal
 358 821E 83 A5 83        ...   subd #a583
 359 8221 C2 83           ..    sbcb #83
 360 8223 DF 83 FC        ...   stx 83
 361 8226 84 19           ..    anda #19
 362 8228 84 35           .5    anda #35
 363 822A 84 51           .Q    anda #51
 364 822C 84 78           .x    anda #78
 365 822E F6 00 19        ...   ldab 0019
 366 8231 C4 01           ..    andb #01
 367 8233 27 13           '.    beq 13
 368 8235 CC AF F2        ...   ldd #aff2    ;"OVER CRNT="
 369 8238 BD C0 BA        ...   jsr c0ba
 370 823B C6 0A           ..    ldab #0a
 371 823D F7 00 38        ..8   stb 0038
 372 8240 7F 00 54        ..T   clr 0054
 373 8243 7C 00 48        |.H   inc 0048
 374 8246 20 05            .    bra 05
 375 8248 C6 02           ..    ldab #02
 376 824A F7 00 48        ..H   stb 0048
 377 824D 7E 84 9F        ~..   jmp 849f
 378 8250 F6 00 54        ..T   ldab 0054
 379 8253 4F              O     clra
 380 8254 CE 00 05        ...   ldx #0005
 381 8257 02              .     idiv
 382 8258 5D              ]     tstb
 383 8259 27 4C           'L    beq 4c
 384 825B F6 00 54        ..T   ldab 0054
 385 825E F7 00 06        ...   stb 0006
 386 8261 F6 00 06        ...   ldab 0006
 387 8264 BD D7 A0        ...   jsr d7a0
 388 8267 83 00 00        ...   subd #0000
 389 826A 27 15           '.    beq 15
 390 826C CC 7F FF        ...   ldd #7fff
 391 826F 37              7     pshb
 392 8270 36              6     psha
 393 8271 F6 00 06        ...   ldab 0006
 394 8274 4F              O     clra
 395 8275 05              .     asld
 396 8276 C3 08 00        ...   addd #0800
 397 8279 38              8     pulx
 398 827A 8F              .     xgdx
 399 827B A4 00           ..    anda 00,x
 400 827D E4 01           ..    andb 01,x
 401 827F ED 00           ..    stad 00,x
 402 8281 F6 00 54        ..T   ldab 0054
 403 8284 4F              O     clra
 404 8285 05              .     asld
 405 8286 C3 08 00        ...   addd #0800
 406 8289 8F              .     xgdx
 407 828A EC 00           ..    ldd 00,x
 408 828C 84 80           ..    anda #80
 409 828E 27 17           '.    beq 17
 410 8290 F6 00 54        ..T   ldab 0054
 411 8293 4F              O     clra
 412 8294 05              .     asld
 413 8295 C3 08 C8        ...   addd #08c8
 414 8298 8F              .     xgdx
 415 8299 EC 00           ..    ldd 00,x
 416 829B 84 02           ..    anda #02
 417 829D 27 08           '.    beq 08
 418 829F BD 98 A5        ...   jsr 98a5
 419 82A2 C6 0A           ..    ldab #0a
 420 82A4 F7 00 38        ..8   stb 0038
 421 82A7 7C 00 54        |.T   inc 0054
 422 82AA F6 00 54        ..T   ldab 0054
 423 82AD C1 64           .d    cmpb #64
 424 82AF 26 03           &.    bne 03
 425 82B1 7C 00 48        |.H   inc 0048
 426 82B4 7E 84 9F        ~..   jmp 849f
 427 82B7 F6 00 19        ...   ldab 0019
 428 82BA C4 02           ..    andb #02
 429 82BC 27 13           '.    beq 13
 430 82BE CC AF FD        ...   ldd #affd    "HOME FAIL="
 431 82C1 BD C0 BA        ...   jsr c0ba
 432 82C4 C6 0A           ..    ldab #0a
 433 82C6 F7 00 38        ..8   stb 0038
 434 82C9 7F 00 54        ..T   clr 0054
 435 82CC 7C 00 48        |.H   inc 0048
 436 82CF 20 05            .    bra 05
 437 82D1 C6 04           ..    ldab #04
 438 82D3 F7 00 48        ..H   stb 0048
 439 82D6 7E 84 9F        ~..   jmp 849f
 440 82D9 F6 00 54        ..T   ldab 0054
 441 82DC 4F              O     clra
 442 82DD CE 00 05        ...   ldx #0005
 443 82E0 02              .     idiv
 444 82E1 5D              ]     tstb
 445 82E2 27 4C           'L    beq 4c
 446 82E4 F6 00 54        ..T   ldab 0054
 447 82E7 F7 00 06        ...   stb 0006
 448 82EA F6 00 06        ...   ldab 0006
 449 82ED BD D7 A0        ...   jsr d7a0
 450 82F0 83 00 00        ...   subd #0000
 451 82F3 27 15           '.    beq 15
 452 82F5 CC 7F FF        ...   ldd #7fff
 453 82F8 37              7     pshb
 454 82F9 36              6     psha
 455 82FA F6 00 06        ...   ldab 0006
 456 82FD 4F              O     clra
 457 82FE 05              .     asld
 458 82FF C3 08 00        ...   addd #0800
 459 8302 38              8     pulx
 460 8303 8F              .     xgdx
 461 8304 A4 00           ..    anda 00,x
 462 8306 E4 01           ..    andb 01,x
 463 8308 ED 00           ..    stad 00,x
 464 830A F6 00 54        ..T   ldab 0054
 465 830D 4F              O     clra
 466 830E 05              .     asld
 467 830F C3 08 00        ...   addd #0800
 468 8312 8F              .     xgdx
 469 8313 EC 00           ..    ldd 00,x
 470 8315 84 80           ..    anda #80
 471 8317 27 17           '.    beq 17
 472 8319 F6 00 54        ..T   ldab 0054
 473 831C 4F              O     clra
 474 831D 05              .     asld
 475 831E C3 08 C8        ...   addd #08c8
 476 8321 8F              .     xgdx
 477 8322 EC 00           ..    ldd 00,x
 478 8324 84 04           ..    anda #04
 479 8326 27 08           '.    beq 08
 480 8328 BD 98 A5        ...   jsr 98a5
 481 832B C6 0A           ..    ldab #0a
 482 832D F7 00 38        ..8   stb 0038
 483 8330 7C 00 54        |.T   inc 0054
 484 8333 F6 00 54        ..T   ldab 0054
 485 8336 C1 64           .d    cmpb #64
 486 8338 26 03           &.    bne 03
 487 833A 7C 00 48        |.H   inc 0048
 488 833D 7E 84 9F        ~..   jmp 849f
 489 8340 F6 00 19        ...   ldab 0019
 490 8343 C4 04           ..    andb #04
 491 8345 27 13           '.    beq 13
 492 8347 CC B0 08        ...   ldd #b008
 493 834A BD C0 BA        ...   jsr c0ba
 494 834D C6 0A           ..    ldab #0a
 495 834F F7 00 38        ..8   stb 0038
 496 8352 7F 00 54        ..T   clr 0054
 497 8355 7C 00 48        |.H   inc 0048
 498 8358 20 05            .    bra 05
 499 835A C6 06           ..    ldab #06
 500 835C F7 00 48        ..H   stb 0048
 501 835F 7E 84 9F        ~..   jmp 849f
 502 8362 F6 00 54        ..T   ldab 0054
 503 8365 4F              O     clra
 504 8366 CE 00 05        ...   ldx #0005
 505 8369 02              .     idiv
 506 836A 5D              ]     tstb
 507 836B 27 28           '(    beq 28
 508 836D F6 00 54        ..T   ldab 0054
 509 8370 F7 00 06        ...   stb 0006
 510 8373 F6 00 06        ...   ldab 0006
 511 8376 BD D7 A0        ...   jsr d7a0
 512 8379 83 00 00        ...   subd #0000
 513 837C 26 17           &.    bne 17
 514 837E F6 00 54        ..T   ldab 0054
 515 8381 4F              O     clra
 516 8382 05              .     asld
 517 8383 C3 08 C8        ...   addd #08c8
 518 8386 8F              .     xgdx
 519 8387 EC 00           ..    ldd 00,x
 520 8389 84 01           ..    anda #01
 521 838B 27 08           '.    beq 08
 522 838D BD 98 A5        ...   jsr 98a5
 523 8390 C6 0A           ..    ldab #0a
 524 8392 F7 00 38        ..8   stb 0038
 525 8395 7C 00 54        |.T   inc 0054
 526 8398 F6 00 54        ..T   ldab 0054
 527 839B C1 64           .d    cmpb #64
 528 839D 26 03           &.    bne 03
 529 839F 7C 00 48        |.H   inc 0048
 530 83A2 7E 84 9F        ~..   jmp 849f
 531 83A5 F6 0B C1        ...   ldab 0bc1
 532 83A8 C4 01           ..    andb #01
 533 83AA 27 10           '.    beq 10
 534 83AC CC B0 34        ..4   ldd #b034    "CHGR PWRUP"
 535 83AF BD C0 BA        ...   jsr c0ba
 536 83B2 7C 00 48        |.H   inc 0048
 537 83B5 C6 0A           ..    ldab #0a
 538 83B7 F7 00 38        ..8   stb 0038
 539 83BA 20 03            .    bra 03
 540 83BC 7C 00 48        |.H   inc 0048
 541 83BF 7E 84 9F        ~..   jmp 849f
 542 83C2 F6 0B C1        ...   ldab 0bc1
 543 83C5 C4 02           ..    andb #02
 544 83C7 27 10           '.    beq 10
 545 83C9 CC B0 4A        ..J   ldd #b04a    "CARD PWRUP"
 546 83CC BD C0 BA        ...   jsr c0ba
 547 83CF 7C 00 48        |.H   inc 0048
 548 83D2 C6 0A           ..    ldab #0a
 549 83D4 F7 00 38        ..8   stb 0038
 550 83D7 20 03            .    bra 03
 551 83D9 7C 00 48        |.H   inc 0048
 552 83DC 7E 84 9F        ~..   jmp 849f
 553 83DF F6 0B C1        ...   ldab 0bc1
 554 83E2 C4 04           ..    andb #04
 555 83E4 27 10           '.    beq 10
 556 83E6 CC B0 3F        ..?   ldd #b03f    "LINK PWRUP"
 557 83E9 BD C0 BA        ...   jsr c0ba
 558 83EC 7C 00 48        |.H   inc 0048
 559 83EF C6 0A           ..    ldab #0a
 560 83F1 F7 00 38        ..8   stb 0038
 561 83F4 20 03            .    bra 03
 562 83F6 7C 00 48        |.H   inc 0048
 563 83F9 7E 84 9F        ~..   jmp 849f
 564 83FC F6 0B C1        ...   ldab 0bc1
 565 83FF C4 10           ..    andb #10
 566 8401 27 10           '.    beq 10
 567 8403 CC B0 1E        ...   ldd #b01e    "COIN   JAM"
 568 8406 BD C0 BA        ...   jsr c0ba
 569 8409 7C 00 48        |.H   inc 0048
 570 840C C6 0A           ..    ldab #0a
 571 840E F7 00 38        ..8   stb 0038
 572 8411 20 03            .    bra 03
 573 8413 7C 00 48        |.H   inc 0048
 574 8416 7E 84 9F        ~..   jmp 849f
 575 8419 F6 0B C1        ...   ldab 0bc1
 576 841C C4 20           .     andb #20
 577 841E 27 10           '.    beq 10
 578 8420 CC B0 29        ..)   ldd #b029    "BAD SENSOR"
 579 8423 BD C0 BA        ...   jsr c0ba
 580 8426 7C 00 48        |.H   inc 0048
 581 8429 C6 0A           ..    ldab #0a
 582 842B F7 00 38        ..8   stb 0038
 583 842E 20 03            .    bra 03
 584 8430 7C 00 48        |.H   inc 0048
 585 8433 20 6A            j    bra 6a
 586 8435 F6 0B C1        ...   ldab 0bc1
 587 8438 C4 08           ..    andb #08
 588 843A 27 10           '.    beq 10
 589 843C CC B0 55        ..U   ldd #b055    "BILL ERROR"
 590 843F BD C0 BA        ...   jsr c0ba
 591 8442 7C 00 48        |.H   inc 0048
 592 8445 C6 0A           ..    ldab #0a
 593 8447 F7 00 38        ..8   stb 0038
 594 844A 20 03            .    bra 03
 595 844C 7C 00 48        |.H   inc 0048
 596 844F 20 4E            N    bra 4e
 597 8451 F6 0B C1        ...   ldab 0bc1
 598 8454 C4 40           .@    andb #40
 599 8456 27 10           '.    beq 10
 600 8458 CC B0 60        ..`   ldd #b060    "TUBE ERROR"
 601 845B BD C0 BA        ...   jsr c0ba
 602 845E 7F 00 48        ..H   clr 0048
 603 8461 C6 0A           ..    ldab #0a
 604 8463 F7 00 38        ..8   stb 0038
 605 8466 20 0E            .    bra 0e
 606 8468 7F 00 48        ..H   clr 0048
 607 846B CC B0 13        ...   ldd #b013
 608 846E BD C0 BA        ...   jsr c0ba     "HIT RESET "
 609 8471 C6 0A           ..    ldab #0a
 610 8473 F7 00 38        ..8   stb 0038
 611 8476 20 27            '    bra 27
 612 8478 F6 00 1D        ...   ldab 001d
 613 847B 2C 0E           ,.    bge 0e
 614 847D CC AE A8        ...   ldd #aea8    "  SYSTEM  "
 615 8480 BD C0 BA        ...   jsr c0ba
 616 8483 CE 00 1D        ...   ldx #001d
 617 8486 1D 00           ..    bclr add,x 00,x
 618 8488 80 20           .     suba #20
 619 848A 0C              .     clc
 620 848B CC AE B3        ...   ldd #aeb3    "    OK    "
 621 848E BD C0 BA        ...   jsr c0ba
 622 8491 CE 00 1D        ...   ldx #001d
 623 8494 1C 00           ..    bset add,x 00,x
 624 8496 80 C6           ..    suba #c6
 625 8498 0F              .     sei
 626 8499 F7 00 38        ..8   stb 0038
 627 849C 7F 00 48        ..H   clr 0048
 628 849F 39              9     rts
 629 84A0 FC 00 3B        ..;   ldd 003b
 630 84A3 26 03           &.    bne 03
 631 84A5 7E 85 96        ~..   jmp 8596
 632 84A8 F6 00 1F        ...   ldab 001f
 633 84AB 2C 40           ,@    bge 40
 634 84AD BD D6 52        ..R   jsr d652
 635 84B0 7F 00 42        ..B   clr 0042
 636 84B3 7F 00 09        ...   clr 0009
 637 84B6 7F 00 0A        ...   clr 000a
 638 84B9 7F 00 06        ...   clr 0006
 639 84BC 5F              _     clrb
 640 84BD 4F              O     clra
 641 84BE FD 00 40        ..@   stad 0040
 642 84C1 5F              _     clrb
 643 84C2 4F              O     clra
 644 84C3 FD 00 3E        ..>   stad 003e
 645 84C6 BD E5 AA        ...   jsr e5aa
 646 84C9 CE 00 1F        ...   ldx #001f
 647 84CC 1D 00           ..    bclr add,x 00,x
 648 84CE 80 CE           ..    suba #ce
 649 84D0 00              .     test
 650 84D1 1F 1C 00 02     ....  brclr 1c,x 00 02
 651 84D5 CE 00 1D        ...   ldx #001d
 652 84D8 1C 00           ..    bset add,x 00,x
 653 84DA 10              .     sba
 654 84DB CE 00 17        ...   ldx #0017
 655 84DE 1D 00           ..    bclr add,x 00,x
 656 84E0 20 CE            .    bra ce
 657 84E2 00              .     test
 658 84E3 17              .     tba
 659 84E4 1D 00           ..    bclr add,x 00,x
 660 84E6 40              @     nega
 661 84E7 CE 00 17        ...   ldx #0017
 662 84EA 1D 00           ..    bclr add,x 00,x
 663 84EC 80 F6           ..    suba #f6
 664 84EE 0B              .     sev
 665 84EF A9 C4           ..    adca c4,x
 666 84F1 02              .     idiv
 667 84F2 27 20           '     beq 20
 668 84F4 F6 00 42        ..B   ldab 0042
 669 84F7 4F              O     clra
 670 84F8 C3 0B E4        ...   addd #0be4
 671 84FB 8F              .     xgdx
 672 84FC E6 00           ..    ldab 00,x
 673 84FE 27 14           '.    beq 14
 674 8500 BD BE 4B        ..K   jsr be4b
 675 8503 CC B0 81        ...   ldd #b081            ;"NO  ACCESS"
 676 8506 BD C0 BA        ...   jsr c0ba
 677 8509 CC 02 58        ..X   ldd #0258
 678 850C BD E5 71        ..q   jsr e571
 679 850F BD 85 AF        ...   jsr 85af
 680 8512 20 6C            l    bra 6c
 681 8514 F6 00 42        ..B   ldab 0042
 682 8517 4F              O     clra
 683 8518 BD FE 16        ...   jsr fe16
 684 851B 00              .     test
 685 851C 00              .     test
 686 851D 00              .     test
 687 851E 0B              .     sev
 688 851F 85 80           ..    bita #80
 689 8521 85 39           .9    bita #39
 690 8523 85 4A           .J    bita #4a
 691 8525 85 4F           .O    bita #4f
 692 8527 85 54           .T    bita #54
 693 8529 85 59           .Y    bita #59
 694 852B 85 5E           .^    bita #5e
 695 852D 85 63           .c    bita #63
 696 852F 85 68           .h    bita #68
 697 8531 85 6D           .m    bita #6d
 698 8533 85 72           .r    bita #72
 699 8535 85 77           .w    bita #77
 700 8537 85 7C           .|    bita #7c
 701 8539 CC AE 92        ...   ldd #ae92    "-         "
 702 853C BD C0 BA        ...   jsr c0ba
 703 853F 7F 00 42        ..B   clr 0042
 704 8542 CE 00 1F        ...   ldx #001f
 705 8545 1C 00           ..    bset add,x 00,x
 706 8547 02              .     idiv
 707 8548 20 36            6    bra 36
 708 854A BD 86 84        ...   jsr 8684
 709 854D 20 31            1    bra 31
 710 854F BD 88 2E        ...   jsr 882e
 711 8552 20 2C            ,    bra 2c
 712 8554 BD 88 B8        ...   jsr 88b8
 713 8557 20 27            '    bra 27
 714 8559 BD 8C B4        ...   jsr 8cb4
 715 855C 20 22            "    bra 22
 716 855E BD 8E 35        ..5   jsr 8e35
 717 8561 20 1D            .    bra 1d
 718 8563 BD 8F 0D        ...   jsr 8f0d
 719 8566 20 18            .    bra 18
 720 8568 BD 90 D1        ...   jsr 90d1
 721 856B 20 13            .    bra 13
 722 856D BD 92 EE        ...   jsr 92ee
 723 8570 20 0E            .    bra 0e
 724 8572 BD 93 A5        ...   jsr 93a5
 725 8575 20 09            .    bra 09
 726 8577 BD 94 DD        ...   jsr 94dd
 727 857A 20 04            .    bra 04
 728 857C 8D 31           .1    bsr dest 31
 729 857E 20 00            .    bra 00
 730 8580 7F 00 0A        ...   clr 000a
 731 8583 F6 00 42        ..B   ldab 0042
 732 8586 C1 0A           ..    cmpb #0a
 733 8588 27 0A           '.    beq 0a
 734 858A F6 00 42        ..B   ldab 0042
 735 858D C1 07           ..    cmpb #07
 736 858F 27 03           '.    beq 03
 737 8591 7F 00 09        ...   clr 0009
 738 8594 20 18            .    bra 18
 739 8596 CE 00 1F        ...   ldx #001f
 740 8599 1D 00           ..    bclr add,x 00,x
 741 859B 04              .     lsrd
 742 859C CE 00 1F        ...   ldx #001f
 743 859F 1C 00           ..    bset add,x 00,x
 744 85A1 80 CE           ..    suba #ce
 745 85A3 00              .     test
 746 85A4 1D 1C           ..    bclr add,x 1c,x
 747 85A6 00              .     test
 748 85A7 10              .     sba
 749 85A8 BD BE 69        ..i   jsr be69
 750 85AB BD E5 AA        ...   jsr e5aa
 751 85AE 39              9     rts
 752 85AF 7F 00 42        ..B   clr 0042
 753 85B2 7F 00 06        ...   clr 0006
 754 85B5 CE 00 1F        ...   ldx #001f
 755 85B8 1C 00           ..    bset add,x 00,x
 756 85BA 02              .     idiv
 757 85BB BD BE 69        ..i   jsr be69
 758 85BE 39              9     rts
 759 85BF F6 00 12        ...   ldab 0012
 760 85C2 C4 1E           ..    andb #1e
 761 85C4 4F              O     clra
 762 85C5 BD FE 32        ..2   jsr fe32
 763 85C8 85 DE           ..    bita #de
 764 85CA 00              .     test
 765 85CB 0E              .     cli
 766 85CC 86 08           ..    ldaa #08
 767 85CE 00              .     test
 768 85CF 08              .     inx
 769 85D0 86 32           .2    ldaa #32
 770 85D2 00              .     test
 771 85D3 04              .     lsrd
 772 85D4 86 5C           .\    ldaa #5c
 773 85D6 00              .     test
 774 85D7 02              .     idiv
 775 85D8 86 83           ..    ldaa #83
 776 85DA FF E4 00        ...   stx e400
 777 85DD 00              .     test
 778 85DE F6 0B DC        ...   ldab 0bdc
 779 85E1 F7 00 01        ...   stb 0001
 780 85E4 BD C4 30        ..0   jsr c430
 781 85E7 C6 01           ..    ldab #01
 782 85E9 F7 00 48        ..H   stb 0048
 783 85EC 7F 00 2C        ..,   clr 002c
 784 85EF F6 0C D9        ...   ldab 0cd9
 785 85F2 27 03           '.    beq 03
 786 85F4 7A 0C D9        z..   dec 0cd9
 787 85F7 BD 97 F6        ...   jsr 97f6
 788 85FA CC 01 5E        ..^   ldd #015e
 789 85FD BD E5 71        ..q   jsr e571
 790 8600 CC 02 33        ..3   ldd #0233
 791 8603 FD 00 3B        ..;   stad 003b
 792 8606 20 7B            {    bra 7b
 793 8608 F6 0B DB        ...   ldab 0bdb
 794 860B F7 00 01        ...   stb 0001
 795 860E BD C4 30        ..0   jsr c430
 796 8611 C6 02           ..    ldab #02
 797 8613 F7 00 48        ..H   stb 0048
 798 8616 7F 00 2C        ..,   clr 002c
 799 8619 F6 0C DA        ...   ldab 0cda
 800 861C 27 03           '.    beq 03
 801 861E 7A 0C DA        z..   dec 0cda
 802 8621 BD 97 F6        ...   jsr 97f6
 803 8624 CC 01 5E        ..^   ldd #015e
 804 8627 BD E5 71        ..q   jsr e571
 805 862A CC 02 33        ..3   ldd #0233
 806 862D FD 00 3B        ..;   stad 003b
 807 8630 20 51            Q    bra 51
 808 8632 F6 0B DA        ...   ldab 0bda
 809 8635 F7 00 01        ...   stb 0001
 810 8638 BD C4 30        ..0   jsr c430
 811 863B C6 03           ..    ldab #03
 812 863D F7 00 48        ..H   stb 0048
 813 8640 7F 00 2C        ..,   clr 002c
 814 8643 F6 0C DB        ...   ldab 0cdb
 815 8646 27 03           '.    beq 03
 816 8648 7A 0C DB        z..   dec 0cdb
 817 864B BD 97 F6        ...   jsr 97f6
 818 864E CC 01 5E        ..^   ldd #015e
 819 8651 BD E5 71        ..q   jsr e571
 820 8654 CC 02 33        ..3   ldd #0233
 821 8657 FD 00 3B        ..;   stad 003b
 822 865A 20 27            '    bra 27
 823 865C C6 40           .@    ldab #40
 824 865E F7 00 01        ...   stb 0001
 825 8661 BD C4 30        ..0   jsr c430
 826 8664 C6 04           ..    ldab #04
 827 8666 F7 00 48        ..H   stb 0048
 828 8669 7F 00 2C        ..,   clr 002c
 829 866C F6 0C DC        ...   ldab 0cdc
 830 866F 27 03           '.    beq 03
 831 8671 7A 0C DC        z..   dec 0cdc
 832 8674 BD 97 F6        ...   jsr 97f6
 833 8677 CC 01 5E        ..^   ldd #015e
 834 867A BD E5 71        ..q   jsr e571
 835 867D CC 02 33        ..3   ldd #0233
 836 8680 FD 00 3B        ..;   stad 003b
 837 8683 39              9     rts
 838 8684 F6 00 1F        ...   ldab 001f
 839 8687 C4 02           ..    andb #02
 840 8689 27 2B           '+    beq 2b
 841 868B CE 00 1F        ...   ldx #001f
 842 868E 1D 00           ..    bclr add,x 00,x
 843 8690 02              .     idiv
 844 8691 C6 01           ..    ldab #01
 845 8693 F7 00 48        ..H   stb 0048
 846 8696 F6 0B C0        ...   ldab 0bc0
 847 8699 C4 01           ..    andb #01
 848 869B 27 16           '.    beq 16
 849 869D C6 27           .'    ldab #27
 850 869F F7 10 2D        ..-   stb 102d
 851 86A2 C6 07           ..    ldab #07
 852 86A4 F7 10 2B        ..+   stb 102b
 853 86A7 CE 00 1A        ...   ldx #001a
 854 86AA 1D 00           ..    bclr add,x 00,x
 855 86AC 01              .     nop
 856 86AD F6 00 1A        ...   ldab 001a
 857 86B0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 858 86B3 7E 87 E8        ~..   jmp 87e8
 859 86B6 F6 00 09        ...   ldab 0009
 860 86B9 4F              O     clra
 861 86BA BD FE 32        ..2   jsr fe32
 862 86BD 86 D7           ..    ldaa #d7
 863 86BF 00              .     test
 864 86C0 00              .     test
 865 86C1 87              .     illegal
 866 86C2 39              9     rts
 867 86C3 00              .     test
 868 86C4 01              .     nop
 869 86C5 87              .     illegal
 870 86C6 75              u     illegal
 871 86C7 00              .     test
 872 86C8 01              .     nop
 873 86C9 87              .     illegal
 874 86CA C5 00           ..    bitb #00
 875 86CC 08              .     inx
 876 86CD 87              .     illegal
 877 86CE D9 00 01        ...   adcb 00
 878 86D1 87              .     illegal
 879 86D2 E8 FF           ..    eorb ff,x
 880 86D4 F5 00 00        ...   bitb 0000
 881 86D7 C6 FF           ..    ldab #ff
 882 86D9 F7 0B BC        ...   stb 0bbc
 883 86DC F6 18 00        ...   ldab 1800
 884 86DF 2D 29           -)    blt 29
 885 86E1 F6 00 07        ...   ldab 0007
 886 86E4 26 24           &$    bne 24
 887 86E6 CE 00 1A        ...   ldx #001a
 888 86E9 1D 00           ..    bclr add,x 00,x
 889 86EB 02              .     idiv
 890 86EC F6 00 1A        ...   ldab 001a
 891 86EF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 892 86F2 CC 00 32        ..2   ldd #0032
 893 86F5 BD E5 71        ..q   jsr e571
 894 86F8 CE 00 1A        ...   ldx #001a
 895 86FB 1C 00           ..    bset add,x 00,x
 896 86FD 02              .     idiv
 897 86FE F6 00 1A        ...   ldab 001a
 898 8701 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 899 8704 CC 02 33        ..3   ldd #0233
 900 8707 FD 00 3B        ..;   stad 003b
 901 870A 5F              _     clrb
 902 870B 4F              O     clra
 903 870C FD 00 40        ..@   stad 0040
 904 870F 5F              _     clrb
 905 8710 4F              O     clra
 906 8711 FD 00 3E        ..>   stad 003e
 907 8714 F6 0B C0        ...   ldab 0bc0
 908 8717 C4 01           ..    andb #01
 909 8719 27 03           '.    beq 03
 910 871B BD 85 BF        ...   jsr 85bf
 911 871E BD DC A3        ...   jsr dca3
 912 8721 BD 97 F6        ...   jsr 97f6
 913 8724 CE 00 17        ...   ldx #0017
 914 8727 1D 00           ..    bclr add,x 00,x
 915 8729 20 CE            .    bra ce
 916 872B 00              .     test
 917 872C 17              .     tba
 918 872D 1D 00           ..    bclr add,x 00,x
 919 872F 40              @     nega
 920 8730 CE 00 17        ...   ldx #0017
 921 8733 1D 00           ..    bclr add,x 00,x
 922 8735 80 7E           .~    suba #7e
 923 8737 87              .     illegal
 924 8738 E8 F6           ..    eorb f6,x
 925 873A 00              .     test
 926 873B 36              6     psha
 927 873C 26 2F           &/    bne 2f
 928 873E F6 00 48        ..H   ldab 0048
 929 8741 4F              O     clra
 930 8742 BD FE 16        ...   jsr fe16
 931 8745 00              .     test
 932 8746 01              .     nop
 933 8747 00              .     test
 934 8748 03              .     fdiv
 935 8749 87              .     illegal
 936 874A 65              e     illegal
 937 874B 87              .     illegal
 938 874C 53              S     comb
 939 874D 87              .     illegal
 940 874E 58              X     aslb
 941 874F 87              .     illegal
 942 8750 5D              ]     tstb
 943 8751 87              .     illegal
 944 8752 62              b     illegal
 945 8753 7C 0C D9        |..   inc 0cd9
 946 8756 20 0D            .    bra 0d
 947 8758 7C 0C DA        |..   inc 0cda
 948 875B 20 08            .    bra 08
 949 875D 7C 0C DB        |..   inc 0cdb
 950 8760 20 03            .    bra 03
 951 8762 7C 0C DC        |..   inc 0cdc
 952 8765 BD 97 F6        ...   jsr 97f6
 953 8768 C6 02           ..    ldab #02
 954 876A F7 00 36        ..6   stb 0036
 955 876D CE 00 1B        ...   ldx #001b
 956 8770 1C 00           ..    bset add,x 00,x
 957 8772 10              .     sba
 958 8773 20 73            s    bra 73
 959 8775 F6 00 36        ..6   ldab 0036
 960 8778 26 43           &C    bne 43
 961 877A F6 00 48        ..H   ldab 0048
 962 877D 4F              O     clra
 963 877E BD FE 16        ...   jsr fe16
 964 8781 00              .     test
 965 8782 01              .     nop
 966 8783 00              .     test
 967 8784 03              .     fdiv
 968 8785 87              .     illegal
 969 8786 B5 87 8F        ...   bita 878f
 970 8789 87              .     illegal
 971 878A 99 87 A3        ...   adca 87
 972 878D 87              .     illegal
 973 878E AD F6           ..    jsr f6,x
 974 8790 0C              .     clc
 975 8791 D9 27 03        .'.   adcb 27
 976 8794 7A 0C D9        z..   dec 0cd9
 977 8797 20 1C            .    bra 1c
 978 8799 F6 0C DA        ...   ldab 0cda
 979 879C 27 03           '.    beq 03
 980 879E 7A 0C DA        z..   dec 0cda
 981 87A1 20 12            .    bra 12
 982 87A3 F6 0C DB        ...   ldab 0cdb
 983 87A6 27 03           '.    beq 03
 984 87A8 7A 0C DB        z..   dec 0cdb
 985 87AB 20 08            .    bra 08
 986 87AD F6 0C DC        ...   ldab 0cdc
 987 87B0 27 03           '.    beq 03
 988 87B2 7A 0C DC        z..   dec 0cdc
 989 87B5 BD 97 F6        ...   jsr 97f6
 990 87B8 C6 02           ..    ldab #02
 991 87BA F7 00 36        ..6   stb 0036
 992 87BD CE 00 1B        ...   ldx #001b
 993 87C0 1C 00           ..    bset add,x 00,x
 994 87C2 10              .     sba
 995 87C3 20 23            #    bra 23
 996 87C5 7C 00 48        |.H   inc 0048
 997 87C8 F6 00 48        ..H   ldab 0048
 998 87CB C1 04           ..    cmpb #04
 999 87CD 23 05           #.    bls 05
1000 87CF C6 01           ..    ldab #01
1001 87D1 F7 00 48        ..H   stb 0048
1002 87D4 BD 97 F6        ...   jsr 97f6
1003 87D7 20 0F            .    bra 0f
1004 87D9 CE 00 1A        ...   ldx #001a
1005 87DC 1C 00           ..    bset add,x 00,x
1006 87DE 01              .     nop
1007 87DF F6 00 1A        ...   ldab 001a
1008 87E2 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
1009 87E5 BD 85 AF        ...   jsr 85af
1010 87E8 39              9     rts
1011 87E9 7F 00 05        ...   clr 0005
1012 87EC 7F 00 54        ..T   clr 0054
1013 87EF F6 00 54        ..T   ldab 0054
1014 87F2 C1 50           .P    cmpb #50
1015 87F4 24 2E           $.    bcc 2e
1016 87F6 F6 00 54        ..T   ldab 0054
1017 87F9 4F              O     clra
1018 87FA C3 B0 D3        ...   addd #b0d3
1019 87FD 8F              .     xgdx
1020 87FE E6 00           ..    ldab 00,x
1021 8800 F7 00 06        ...   stb 0006
1022 8803 F6 00 06        ...   ldab 0006
1023 8806 BD D7 A0        ...   jsr d7a0
1024 8809 83 00 00        ...   subd #0000
1025 880C 26 11           &.    bne 11
1026 880E BD D3 11        ...   jsr d311
1027 8811 83 00 00        ...   subd #0000
1028 8814 26 03           &.    bne 03
1029 8816 7C 00 05        |..   inc 0005
1030 8819 CC 00 05        ...   ldd #0005
1031 881C BD E5 71        ..q   jsr e571
1032 881F 7C 00 54        |.T   inc 0054
1033 8822 20 CB            .    bra cb
1034 8824 BD 99 81        ...   jsr 9981
1035 8827 CC 07 D0        ...   ldd #07d0
1036 882A BD E5 71        ..q   jsr e571
1037 882D 39              9     rts
1038 882E F6 00 1F        ...   ldab 001f
1039 8831 C4 02           ..    andb #02
1040 8833 27 12           '.    beq 12
1041 8835 FC 0B B5        ...   ldd 0bb5
1042 8838 C4 FF           ..    andb #ff
1043 883A 84 01           ..    anda #01
1044 883C FD 00 52        ..R   stad 0052
1045 883F CE 00 1F        ...   ldx #001f
1046 8842 1D 00           ..    bclr add,x 00,x
1047 8844 02              .     idiv
1048 8845 20 70            p    bra 70
1049 8847 F6 00 09        ...   ldab 0009
1050 884A 4F              O     clra
1051 884B BD FE 32        ..2   jsr fe32
1052 884E 88 68           .h    eora #68
1053 8850 00              .     test
1054 8851 00              .     test
1055 8852 88 6D           .m    eora #6d
1056 8854 00              .     test
1057 8855 01              .     nop
1058 8856 88 83           ..    eora #83
1059 8858 00              .     test
1060 8859 01              .     nop
1061 885A 88 A7           ..    eora #a7
1062 885C 00              .     test
1063 885D 08              .     inx
1064 885E 88 B4           ..    eora #b4
1065 8860 00              .     test
1066 8861 01              .     nop
1067 8862 88 B7           ..    eora #b7
1068 8864 FF F5 00        ...   stx f500
1069 8867 00              .     test
1070 8868 BD 9A 05        ...   jsr 9a05
1071 886B 20 4A            J    bra 4a
1072 886D FC 00 52        ..R   ldd 0052
1073 8870 83 01 F4        ...   subd #01f4
1074 8873 24 09           $.    bcc 09
1075 8875 FC 00 52        ..R   ldd 0052
1076 8878 C3 00 32        ..2   addd #0032
1077 887B FD 00 52        ..R   stad 0052
1078 887E BD 9A 05        ...   jsr 9a05
1079 8881 20 34            4    bra 34
1080 8883 FC 00 52        ..R   ldd 0052
1081 8886 83 00 32        ..2   subd #0032
1082 8889 23 17           #.    bls 17
1083 888B FC 00 52        ..R   ldd 0052
1084 888E C3 FF CE        ...   addd #ffce
1085 8891 FD 00 52        ..R   stad 0052
1086 8894 FC 00 52        ..R   ldd 0052
1087 8897 83 00 32        ..2   subd #0032
1088 889A 24 06           $.    bcc 06
1089 889C CC 00 32        ..2   ldd #0032
1090 889F FD 00 52        ..R   stad 0052
1091 88A2 BD 9A 05        ...   jsr 9a05
1092 88A5 20 10            .    bra 10
1093 88A7 BD A3 7C        ..|   jsr a37c
1094 88AA 5F              _     clrb
1095 88AB 4F              O     clra
1096 88AC FD 0B B9        ...   stad 0bb9
1097 88AF BD 85 AF        ...   jsr 85af
1098 88B2 20 03            .    bra 03
1099 88B4 BD 85 AF        ...   jsr 85af
1100 88B7 39              9     rts
1101 88B8 F6 00 1F        ...   ldab 001f
1102 88BB C4 02           ..    andb #02
1103 88BD 26 0A           &.    bne 0a
1104 88BF F6 00 3A        ..:   ldab 003a
1105 88C2 26 28           &(    bne 28
1106 88C4 F6 00 1D        ...   ldab 001d
1107 88C7 2D 23           -#    blt 23
1108 88C9 7F 00 2C        ..,   clr 002c
1109 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1110 88CF BD C0 BA        ...   jsr c0ba
1111 88D2 CE 00 1F        ...   ldx #001f
1112 88D5 1D 00           ..    bclr add,x 00,x
1113 88D7 02              .     idiv
1114 88D8 CE 00 1F        ...   ldx #001f
1115 88DB 1D 00           ..    bclr add,x 00,x
1116 88DD 40              @     nega
1117 88DE CE 00 1D        ...   ldx #001d
1118 88E1 1D 00           ..    bclr add,x 00,x
1119 88E3 80 7F           ..    suba #7f
1120 88E5 00              .     test
1121 88E6 54              T     lsrb
1122 88E7 C6 32           .2    ldab #32
1123 88E9 F7 00 3A        ..:   stb 003a
1124 88EC F6 00 09        ...   ldab 0009
1125 88EF 26 03           &.    bne 03
1126 88F1 7E 89 E1        ~..   jmp 89e1
1127 88F4 F6 00 1D        ...   ldab 001d
1128 88F7 2C 03           ,.    bge 03
1129 88F9 7E 89 E1        ~..   jmp 89e1
1130 88FC F6 00 09        ...   ldab 0009
1131 88FF C1 0B           ..    cmpb #0b
1132 8901 26 06           &.    bne 06
1133 8903 BD 85 AF        ...   jsr 85af
1134 8906 7E 89 DE        ~..   jmp 89de
1135 8909 F6 00 54        ..T   ldab 0054
1136 890C 26 26           &&    bne 26
1137 890E BD BE 4B        ..K   jsr be4b
1138 8911 F6 00 09        ...   ldab 0009
1139 8914 C1 0A           ..    cmpb #0a
1140 8916 26 03           &.    bne 03
1141 8918 7F 00 09        ...   clr 0009
1142 891B F6 00 09        ...   ldab 0009
1143 891E CB 30           .0    addb #30
1144 8920 37              7     pshb
1145 8921 CC 0B 95        ...   ldd #0b95
1146 8924 F0 00 54        ..T   subb 0054
1147 8927 82 00           ..    sbca #00
1148 8929 8F              .     xgdx
1149 892A 33              3     pulb
1150 892B E7 00           ..    stb 00,x
1151 892D C6 32           .2    ldab #32
1152 892F F7 00 3A        ..:   stb 003a
1153 8932 20 37            7    bra 37
1154 8934 F6 00 54        ..T   ldab 0054
1155 8937 C1 01           ..    cmpb #01
1156 8939 26 27           &'    bne 27
1157 893B F6 00 09        ...   ldab 0009
1158 893E C1 05           ..    cmpb #05
1159 8940 27 20           '     beq 20
1160 8942 F6 00 09        ...   ldab 0009
1161 8945 C1 0A           ..    cmpb #0a
1162 8947 27 19           '.    beq 19
1163 8949 F6 00 09        ...   ldab 0009
1164 894C CB 30           .0    addb #30
1165 894E 37              7     pshb
1166 894F CC 0B 95        ...   ldd #0b95
1167 8952 F0 00 54        ..T   subb 0054
1168 8955 82 00           ..    sbca #00
1169 8957 8F              .     xgdx
1170 8958 33              3     pulb
1171 8959 E7 00           ..    stb 00,x
1172 895B C6 32           .2    ldab #32
1173 895D F7 00 3A        ..:   stb 003a
1174 8960 20 09            .    bra 09
1175 8962 CE 00 1F        ...   ldx #001f
1176 8965 1C 00           ..    bset add,x 00,x
1177 8967 02              .     idiv
1178 8968 7F 00 3A        ..:   clr 003a
1179 896B BD BE 01        ...   jsr be01
1180 896E 7C 00 54        |.T   inc 0054
1181 8971 F6 00 54        ..T   ldab 0054
1182 8974 C1 02           ..    cmpb #02
1183 8976 26 60           &`    bne 60
1184 8978 CE 00 1D        ...   ldx #001d
1185 897B 1C 00           ..    bset add,x 00,x
1186 897D 80 F6           ..    suba #f6
1187 897F 0B              .     sev
1188 8980 94 CB D0        ...   anda cb
1189 8983 37              7     pshb
1190 8984 F6 0B 95        ...   ldab 0b95
1191 8987 CB D0           ..    addb #d0
1192 8989 86 0A           ..    ldaa #0a
1193 898B 3D              =     mul
1194 898C 30              0     tsx
1195 898D EB 00           ..    addb 00,x
1196 898F 31              1     ins
1197 8990 F7 00 06        ...   stb 0006
1198 8993 C6 32           .2    ldab #32
1199 8995 F7 00 3A        ..:   stb 003a
1200 8998 F6 00 06        ...   ldab 0006
1201 899B BD D7 A0        ...   jsr d7a0
1202 899E 83 00 00        ...   subd #0000
1203 89A1 26 27           &'    bne 27
1204 89A3 BD D3 11        ...   jsr d311
1205 89A6 83 00 00        ...   subd #0000
1206 89A9 26 0B           &.    bne 0b
1207 89AB CE 00 1F        ...   ldx #001f
1208 89AE 1C 00           ..    bset add,x 00,x
1209 89B0 40              @     nega
1210 89B1 BD 8C 73        ..s   jsr 8c73
1211 89B4 20 0F            .    bra 0f
1212 89B6 CE 00 1F        ...   ldx #001f
1213 89B9 1D 00           ..    bclr add,x 00,x
1214 89BB 40              @     nega
1215 89BC CC 2A FF        .*.   ldd #2aff
1216 89BF FD 00 27        ..'   stad 0027
1217 89C2 BD A3 85        ...   jsr a385
1218 89C5 BD 9A 47        ..G   jsr 9a47
1219 89C8 20 0C            .    bra 0c
1220 89CA CE 00 1D        ...   ldx #001d
1221 89CD 1D 00           ..    bclr add,x 00,x
1222 89CF 80 CE           ..    suba #ce
1223 89D1 00              .     test
1224 89D2 1F 1C 00 02     ....  brclr 1c,x 00 02
1225 89D6 20 06            .    bra 06
1226 89D8 CE 00 1D        ...   ldx #001d
1227 89DB 1D 00           ..    bclr add,x 00,x
1228 89DD 80 7E           .~    suba #7e
1229 89DF 8C 72 F6        .r.   cpx #72f6
1230 89E2 00              .     test
1231 89E3 1D 2D           .-    bclr add,x 2d,x
1232 89E5 03              .     fdiv
1233 89E6 7E 8C 72        ~.r   jmp 8c72
1234 89E9 F6 00 09        ...   ldab 0009
1235 89EC 4F              O     clra
1236 89ED BD FE 16        ...   jsr fe16
1237 89F0 00              .     test
1238 89F1 00              .     test
1239 89F2 00              .     test
1240 89F3 0B              .     sev
1241 89F4 8C 72 8A        .r.   cpx #728a
1242 89F7 0E              .     cli
1243 89F8 8A 14           ..    ora #14
1244 89FA 8A AA           ..    ora #aa
1245 89FC 8B 5E           .^    adda #5e
1246 89FE 8B 9E           ..    adda #9e
1247 8A00 8B DB           ..    adda #db
1248 8A02 8C 72 8C        .r.   cpx #728c
1249 8A05 72              r     illegal
1250 8A06 8C 72 8B        .r.   cpx #728b
1251 8A09 FC 8C 67        ..g   ldd 8c67
1252 8A0C 8C 6F BD        .o.   cpx #6fbd
1253 8A0F 9A 47 7E        .G~   ora 47
1254 8A12 8C 72 F6        .r.   cpx #72f6
1255 8A15 00              .     test
1256 8A16 36              6     psha
1257 8A17 27 03           '.    beq 03
1258 8A19 7E 8A 9B        ~..   jmp 8a9b
1259 8A1C F6 00 1F        ...   ldab 001f
1260 8A1F C4 40           .@    andb #40
1261 8A21 27 78           'x    beq 78
1262 8A23 F6 0B C0        ...   ldab 0bc0
1263 8A26 C4 02           ..    andb #02
1264 8A28 27 52           'R    beq 52
1265 8A2A F6 0B AA        ...   ldab 0baa
1266 8A2D C1 32           .2    cmpb #32
1267 8A2F 24 22           $"    bcc 22
1268 8A31 F6 0B AA        ...   ldab 0baa
1269 8A34 4F              O     clra
1270 8A35 F3 00 27        ..'   addd 0027
1271 8A38 FD 00 27        ..'   stad 0027
1272 8A3B F6 0B AA        ...   ldab 0baa
1273 8A3E 4F              O     clra
1274 8A3F 37              7     pshb
1275 8A40 36              6     psha
1276 8A41 CC 00 FA        ...   ldd #00fa
1277 8A44 BD FB BA        ...   jsr fbba
1278 8A47 B3 00 27        ..'   subd 0027
1279 8A4A 24 05           $.    bcc 05
1280 8A4C 5F              _     clrb
1281 8A4D 4F              O     clra
1282 8A4E FD 00 27        ..'   stad 0027
1283 8A51 20 27            '    bra 27
1284 8A53 F6 0B AA        ...   ldab 0baa
1285 8A56 C1 32           .2    cmpb #32
1286 8A58 26 20           &     bne 20
1287 8A5A F6 0B AA        ...   ldab 0baa
1288 8A5D 4F              O     clra
1289 8A5E F3 00 27        ..'   addd 0027
1290 8A61 FD 00 27        ..'   stad 0027
1291 8A64 F6 0B AA        ...   ldab 0baa
1292 8A67 4F              O     clra
1293 8A68 37              7     pshb
1294 8A69 36              6     psha
1295 8A6A CC 00 C7        ...   ldd #00c7
1296 8A6D BD FB BA        ...   jsr fbba
1297 8A70 B3 00 27        ..'   subd 0027
1298 8A73 24 05           $.    bcc 05
1299 8A75 5F              _     clrb
1300 8A76 4F              O     clra
1301 8A77 FD 00 27        ..'   stad 0027
1302 8A7A 20 17            .    bra 17
1303 8A7C F6 0B AA        ...   ldab 0baa
1304 8A7F 4F              O     clra
1305 8A80 F3 00 27        ..'   addd 0027
1306 8A83 FD 00 27        ..'   stad 0027
1307 8A86 FC 00 27        ..'   ldd 0027
1308 8A89 83 27 0F        .'.   subd #270f
1309 8A8C 23 05           #.    bls 05
1310 8A8E 5F              _     clrb
1311 8A8F 4F              O     clra
1312 8A90 FD 00 27        ..'   stad 0027
1313 8A93 BD 9A 47        ..G   jsr 9a47
1314 8A96 C6 02           ..    ldab #02
1315 8A98 F7 00 36        ..6   stb 0036
1316 8A9B CE 00 1B        ...   ldx #001b
1317 8A9E 1C 00           ..    bset add,x 00,x
1318 8AA0 10              .     sba
1319 8AA1 CC 02 33        ..3   ldd #0233
1320 8AA4 FD 00 3B        ..;   stad 003b
1321 8AA7 7E 8C 72        ~.r   jmp 8c72
1322 8AAA F6 00 36        ..6   ldab 0036
1323 8AAD 27 03           '.    beq 03
1324 8AAF 7E 8B 4F        ~.O   jmp 8b4f
1325 8AB2 F6 00 1F        ...   ldab 001f
1326 8AB5 C4 40           .@    andb #40
1327 8AB7 26 03           &.    bne 03
1328 8AB9 7E 8B 4F        ~.O   jmp 8b4f
1329 8ABC F6 0B C0        ...   ldab 0bc0
1330 8ABF C4 02           ..    andb #02
1331 8AC1 27 57           'W    beq 57
1332 8AC3 FC 00 27        ..'   ldd 0027
1333 8AC6 26 18           &.    bne 18
1334 8AC8 F6 0B AA        ...   ldab 0baa
1335 8ACB C1 32           .2    cmpb #32
1336 8ACD 24 11           $.    bcc 11
1337 8ACF F6 0B AA        ...   ldab 0baa
1338 8AD2 4F              O     clra
1339 8AD3 37              7     pshb
1340 8AD4 36              6     psha
1341 8AD5 CC 00 FA        ...   ldd #00fa
1342 8AD8 BD FB BA        ...   jsr fbba
1343 8ADB FD 00 27        ..'   stad 0027
1344 8ADE 20 38            8    bra 38
1345 8AE0 FC 00 27        ..'   ldd 0027
1346 8AE3 26 18           &.    bne 18
1347 8AE5 F6 0B AA        ...   ldab 0baa
1348 8AE8 C1 32           .2    cmpb #32
1349 8AEA 26 11           &.    bne 11
1350 8AEC F6 0B AA        ...   ldab 0baa
1351 8AEF 4F              O     clra
1352 8AF0 37              7     pshb
1353 8AF1 36              6     psha
1354 8AF2 CC 00 C7        ...   ldd #00c7
1355 8AF5 BD FB BA        ...   jsr fbba
1356 8AF8 FD 00 27        ..'   stad 0027
1357 8AFB 20 1B            .    bra 1b
1358 8AFD F6 0B AA        ...   ldab 0baa
1359 8B00 4F              O     clra
1360 8B01 B3 00 27        ..'   subd 0027
1361 8B04 22 0D           ".    bhi 0d
1362 8B06 FC 00 27        ..'   ldd 0027
1363 8B09 F0 0B AA        ...   subb 0baa
1364 8B0C 82 00           ..    sbca #00
1365 8B0E FD 00 27        ..'   stad 0027
1366 8B11 20 05            .    bra 05
1367 8B13 5F              _     clrb
1368 8B14 4F              O     clra
1369 8B15 FD 00 27        ..'   stad 0027
1370 8B18 20 2D            -    bra 2d
1371 8B1A FC 00 27        ..'   ldd 0027
1372 8B1D 26 0D           &.    bne 0d
1373 8B1F CC 27 10        .'.   ldd #2710
1374 8B22 F0 0B AA        ...   subb 0baa
1375 8B25 82 00           ..    sbca #00
1376 8B27 FD 00 27        ..'   stad 0027
1377 8B2A 20 1B            .    bra 1b
1378 8B2C F6 0B AA        ...   ldab 0baa
1379 8B2F 4F              O     clra
1380 8B30 B3 00 27        ..'   subd 0027
1381 8B33 22 0D           ".    bhi 0d
1382 8B35 FC 00 27        ..'   ldd 0027
1383 8B38 F0 0B AA        ...   subb 0baa
1384 8B3B 82 00           ..    sbca #00
1385 8B3D FD 00 27        ..'   stad 0027
1386 8B40 20 05            .    bra 05
1387 8B42 5F              _     clrb
1388 8B43 4F              O     clra
1389 8B44 FD 00 27        ..'   stad 0027
1390 8B47 BD 9A 47        ..G   jsr 9a47
1391 8B4A C6 02           ..    ldab #02
1392 8B4C F7 00 36        ..6   stb 0036
1393 8B4F CE 00 1B        ...   ldx #001b
1394 8B52 1C 00           ..    bset add,x 00,x
1395 8B54 10              .     sba
1396 8B55 CC 02 33        ..3   ldd #0233
1397 8B58 FD 00 3B        ..;   stad 003b
1398 8B5B 7E 8C 72        ~.r   jmp 8c72
1399 8B5E F6 00 36        ..6   ldab 0036
1400 8B61 26 2C           &,    bne 2c
1401 8B63 F6 00 1F        ...   ldab 001f
1402 8B66 C4 40           .@    andb #40
1403 8B68 27 25           '%    beq 25
1404 8B6A FC 00 46        ..F   ldd 0046
1405 8B6D 83 00 64        ..d   subd #0064
1406 8B70 24 15           $.    bcc 15
1407 8B72 FE 00 46        ..F   ldx 0046
1408 8B75 08              .     inx
1409 8B76 FF 00 46        ..F   stx 0046
1410 8B79 FC 00 46        ..F   ldd 0046
1411 8B7C 83 00 64        ..d   subd #0064
1412 8B7F 25 06           %.    bcs 06
1413 8B81 CC 00 01        ...   ldd #0001
1414 8B84 FD 00 46        ..F   stad 0046
1415 8B87 BD 9A 47        ..G   jsr 9a47
1416 8B8A C6 02           ..    ldab #02
1417 8B8C F7 00 36        ..6   stb 0036
1418 8B8F CE 00 1B        ...   ldx #001b
1419 8B92 1C 00           ..    bset add,x 00,x
1420 8B94 10              .     sba
1421 8B95 CC 02 33        ..3   ldd #0233
1422 8B98 FD 00 3B        ..;   stad 003b
1423 8B9B 7E 8C 72        ~.r   jmp 8c72
1424 8B9E F6 00 36        ..6   ldab 0036
1425 8BA1 26 29           &)    bne 29
1426 8BA3 F6 00 1F        ...   ldab 001f
1427 8BA6 C4 40           .@    andb #40
1428 8BA8 27 22           '"    beq 22
1429 8BAA FC 00 46        ..F   ldd 0046
1430 8BAD 83 00 00        ...   subd #0000
1431 8BB0 23 12           #.    bls 12
1432 8BB2 FE 00 46        ..F   ldx 0046
1433 8BB5 09              .     dex
1434 8BB6 FF 00 46        ..F   stx 0046
1435 8BB9 FC 00 46        ..F   ldd 0046
1436 8BBC 26 06           &.    bne 06
1437 8BBE CC 00 63        ..c   ldd #0063
1438 8BC1 FD 00 46        ..F   stad 0046
1439 8BC4 BD 9A 47        ..G   jsr 9a47
1440 8BC7 C6 02           ..    ldab #02
1441 8BC9 F7 00 36        ..6   stb 0036
1442 8BCC CE 00 1B        ...   ldx #001b
1443 8BCF 1C 00           ..    bset add,x 00,x
1444 8BD1 10              .     sba
1445 8BD2 CC 02 33        ..3   ldd #0233
1446 8BD5 FD 00 3B        ..;   stad 003b
1447 8BD8 7E 8C 72        ~.r   jmp 8c72
1448 8BDB F6 00 1F        ...   ldab 001f
1449 8BDE C4 40           .@    andb #40
1450 8BE0 27 15           '.    beq 15
1451 8BE2 F6 00 19        ...   ldab 0019
1452 8BE5 C4 10           ..    andb #10
1453 8BE7 27 08           '.    beq 08
1454 8BE9 CE 00 19        ...   ldx #0019
1455 8BEC 1D 00           ..    bclr add,x 00,x
1456 8BEE 10              .     sba
1457 8BEF 20 06            .    bra 06
1458 8BF1 CE 00 19        ...   ldx #0019
1459 8BF4 1C 00           ..    bset add,x 00,x
1460 8BF6 10              .     sba
1461 8BF7 BD 9A 47        ..G   jsr 9a47
1462 8BFA 20 76            v    bra 76
1463 8BFC BD A3 85        ...   jsr a385
1464 8BFF F6 00 06        ...   ldab 0006
1465 8C02 C1 64           .d    cmpb #64
1466 8C04 24 24           $$    bcc 24
1467 8C06 BD 97 6F        ..o   jsr 976f
1468 8C09 F6 00 06        ...   ldab 0006
1469 8C0C BD D7 A0        ...   jsr d7a0
1470 8C0F 83 00 00        ...   subd #0000
1471 8C12 27 16           '.    beq 16
1472 8C14 F6 00 06        ...   ldab 0006
1473 8C17 C1 09           ..    cmpb #09
1474 8C19 26 03           &.    bne 03
1475 8C1B BD 97 6F        ..o   jsr 976f
1476 8C1E F6 00 06        ...   ldab 0006
1477 8C21 C1 45           .E    cmpb #45
1478 8C23 26 05           &.    bne 05
1479 8C25 C6 01           ..    ldab #01
1480 8C27 F7 00 06        ...   stb 0006
1481 8C2A F6 0E 6D        ..m   ldab 0e6d
1482 8C2D C1 01           ..    cmpb #01
1483 8C2F 26 11           &.    bne 11
1484 8C31 F6 00 06        ...   ldab 0006
1485 8C34 4F              O     clra
1486 8C35 05              .     asld
1487 8C36 C3 08 C8        ...   addd #08c8
1488 8C39 8F              .     xgdx
1489 8C3A EC 00           ..    ldd 00,x
1490 8C3C C4 7F           ..    andb #7f
1491 8C3E 4F              O     clra
1492 8C3F FD 00 46        ..F   stad 0046
1493 8C42 BD D3 11        ...   jsr d311
1494 8C45 83 00 00        ...   subd #0000
1495 8C48 26 12           &.    bne 12
1496 8C4A CE 00 1F        ...   ldx #001f
1497 8C4D 1C 00           ..    bset add,x 00,x
1498 8C4F 40              @     nega
1499 8C50 FC 00 27        ..'   ldd 0027
1500 8C53 83 27 0F        .'.   subd #270f
1501 8C56 23 02           #.    bls 02
1502 8C58 8D 19           ..    bsr dest 19
1503 8C5A 20 06            .    bra 06
1504 8C5C CE 00 1F        ...   ldx #001f
1505 8C5F 1D 00           ..    bclr add,x 00,x
1506 8C61 40              @     nega
1507 8C62 BD 9A 47        ..G   jsr 9a47
1508 8C65 20 0B            .    bra 0b
1509 8C67 BD A3 85        ...   jsr a385
1510 8C6A BD 85 AF        ...   jsr 85af
1511 8C6D 20 03            .    bra 03
1512 8C6F BD 85 AF        ...   jsr 85af
1513 8C72 39              9     rts
1514 8C73 F6 00 06        ...   ldab 0006
1515 8C76 4F              O     clra
1516 8C77 05              .     asld
1517 8C78 C3 08 00        ...   addd #0800
1518 8C7B 8F              .     xgdx
1519 8C7C EC 00           ..    ldd 00,x
1520 8C7E C4 FF           ..    andb #ff
1521 8C80 84 3F           .?    anda #3f
1522 8C82 FD 00 27        ..'   stad 0027
1523 8C85 F6 00 06        ...   ldab 0006
1524 8C88 4F              O     clra
1525 8C89 05              .     asld
1526 8C8A C3 08 C8        ...   addd #08c8
1527 8C8D 8F              .     xgdx
1528 8C8E EC 00           ..    ldd 00,x
1529 8C90 C4 7F           ..    andb #7f
1530 8C92 4F              O     clra
1531 8C93 FD 00 46        ..F   stad 0046
1532 8C96 F6 00 06        ...   ldab 0006
1533 8C99 4F              O     clra
1534 8C9A 05              .     asld
1535 8C9B C3 08 C8        ...   addd #08c8
1536 8C9E 8F              .     xgdx
1537 8C9F EC 00           ..    ldd 00,x
1538 8CA1 84 08           ..    anda #08
1539 8CA3 27 08           '.    beq 08
1540 8CA5 CE 00 19        ...   ldx #0019
1541 8CA8 1C 00           ..    bset add,x 00,x
1542 8CAA 10              .     sba
1543 8CAB 20 06            .    bra 06
1544 8CAD CE 00 19        ...   ldx #0019
1545 8CB0 1D 00           ..    bclr add,x 00,x
1546 8CB2 10              .     sba
1547 8CB3 39              9     rts
1548 8CB4 F6 00 1F        ...   ldab 001f
1549 8CB7 C4 02           ..    andb #02
1550 8CB9 27 12           '.    beq 12
1551 8CBB FC 0B B7        ...   ldd 0bb7
1552 8CBE FD 00 0D        ...   stad 000d
1553 8CC1 CE 00 1F        ...   ldx #001f
1554 8CC4 1D 00           ..    bclr add,x 00,x
1555 8CC6 02              .     idiv
1556 8CC7 7F 00 36        ..6   clr 0036
1557 8CCA 7E 8E 34        ~.4   jmp 8e34
1558 8CCD F6 00 09        ...   ldab 0009
1559 8CD0 4F              O     clra
1560 8CD1 BD FE 32        ..2   jsr fe32
1561 8CD4 8C EE 00        ...   cpx #ee00
1562 8CD7 00              .     test
1563 8CD8 8C F4 00        ...   cpx #f400
1564 8CDB 01              .     nop
1565 8CDC 8D 80           ..    bsr dest 80
1566 8CDE 00              .     test
1567 8CDF 01              .     nop
1568 8CE0 8E 29 00        .).   lds #2900
1569 8CE3 08              .     inx
1570 8CE4 8E 31 00        .1.   lds #3100
1571 8CE7 01              .     nop
1572 8CE8 8E 34 FF        .4.   lds #34ff
1573 8CEB F5 00 00        ...   bitb 0000
1574 8CEE BD 9B 63        ..c   jsr 9b63
1575 8CF1 7E 8E 34        ~.4   jmp 8e34
1576 8CF4 F6 00 36        ..6   ldab 0036
1577 8CF7 26 78           &x    bne 78
1578 8CF9 F6 0B C0        ...   ldab 0bc0
1579 8CFC C4 02           ..    andb #02
1580 8CFE 27 52           'R    beq 52
1581 8D00 F6 0B AA        ...   ldab 0baa
1582 8D03 C1 32           .2    cmpb #32
1583 8D05 24 22           $"    bcc 22
1584 8D07 F6 0B AA        ...   ldab 0baa
1585 8D0A 4F              O     clra
1586 8D0B F3 00 0D        ...   addd 000d
1587 8D0E FD 00 0D        ...   stad 000d
1588 8D11 F6 0B AA        ...   ldab 0baa
1589 8D14 4F              O     clra
1590 8D15 37              7     pshb
1591 8D16 36              6     psha
1592 8D17 CC 00 FA        ...   ldd #00fa
1593 8D1A BD FB BA        ...   jsr fbba
1594 8D1D B3 00 0D        ...   subd 000d
1595 8D20 24 05           $.    bcc 05
1596 8D22 5F              _     clrb
1597 8D23 4F              O     clra
1598 8D24 FD 00 0D        ...   stad 000d
1599 8D27 20 27            '    bra 27
1600 8D29 F6 0B AA        ...   ldab 0baa
1601 8D2C C1 32           .2    cmpb #32
1602 8D2E 26 20           &     bne 20
1603 8D30 F6 0B AA        ...   ldab 0baa
1604 8D33 4F              O     clra
1605 8D34 F3 00 0D        ...   addd 000d
1606 8D37 FD 00 0D        ...   stad 000d
1607 8D3A F6 0B AA        ...   ldab 0baa
1608 8D3D 4F              O     clra
1609 8D3E 37              7     pshb
1610 8D3F 36              6     psha
1611 8D40 CC 00 C7        ...   ldd #00c7
1612 8D43 BD FB BA        ...   jsr fbba
1613 8D46 B3 00 0D        ...   subd 000d
1614 8D49 24 05           $.    bcc 05
1615 8D4B 5F              _     clrb
1616 8D4C 4F              O     clra
1617 8D4D FD 00 0D        ...   stad 000d
1618 8D50 20 17            .    bra 17
1619 8D52 F6 0B AA        ...   ldab 0baa
1620 8D55 4F              O     clra
1621 8D56 F3 00 0D        ...   addd 000d
1622 8D59 FD 00 0D        ...   stad 000d
1623 8D5C FC 00 0D        ...   ldd 000d
1624 8D5F 83 27 0F        .'.   subd #270f
1625 8D62 23 05           #.    bls 05
1626 8D64 5F              _     clrb
1627 8D65 4F              O     clra
1628 8D66 FD 00 0D        ...   stad 000d
1629 8D69 BD 9B 63        ..c   jsr 9b63
1630 8D6C C6 02           ..    ldab #02
1631 8D6E F7 00 36        ..6   stb 0036
1632 8D71 CE 00 1B        ...   ldx #001b
1633 8D74 1C 00           ..    bset add,x 00,x
1634 8D76 10              .     sba
1635 8D77 CC 02 33        ..3   ldd #0233
1636 8D7A FD 00 3B        ..;   stad 003b
1637 8D7D 7E 8E 34        ~.4   jmp 8e34
1638 8D80 F6 00 36        ..6   ldab 0036
1639 8D83 27 03           '.    beq 03
1640 8D85 7E 8E 1B        ~..   jmp 8e1b
1641 8D88 F6 0B C0        ...   ldab 0bc0
1642 8D8B C4 02           ..    andb #02
1643 8D8D 27 57           'W    beq 57
1644 8D8F FC 00 0D        ...   ldd 000d
1645 8D92 26 18           &.    bne 18
1646 8D94 F6 0B AA        ...   ldab 0baa
1647 8D97 C1 32           .2    cmpb #32
1648 8D99 24 11           $.    bcc 11
1649 8D9B F6 0B AA        ...   ldab 0baa
1650 8D9E 4F              O     clra
1651 8D9F 37              7     pshb
1652 8DA0 36              6     psha
1653 8DA1 CC 00 FA        ...   ldd #00fa
1654 8DA4 BD FB BA        ...   jsr fbba
1655 8DA7 FD 00 0D        ...   stad 000d
1656 8DAA 20 38            8    bra 38
1657 8DAC FC 00 0D        ...   ldd 000d
1658 8DAF 26 18           &.    bne 18
1659 8DB1 F6 0B AA        ...   ldab 0baa
1660 8DB4 C1 32           .2    cmpb #32
1661 8DB6 26 11           &.    bne 11
1662 8DB8 F6 0B AA        ...   ldab 0baa
1663 8DBB 4F              O     clra
1664 8DBC 37              7     pshb
1665 8DBD 36              6     psha
1666 8DBE CC 00 C7        ...   ldd #00c7
1667 8DC1 BD FB BA        ...   jsr fbba
1668 8DC4 FD 00 0D        ...   stad 000d
1669 8DC7 20 1B            .    bra 1b
1670 8DC9 F6 0B AA        ...   ldab 0baa
1671 8DCC 4F              O     clra
1672 8DCD B3 00 0D        ...   subd 000d
1673 8DD0 22 0D           ".    bhi 0d
1674 8DD2 FC 00 0D        ...   ldd 000d
1675 8DD5 F0 0B AA        ...   subb 0baa
1676 8DD8 82 00           ..    sbca #00
1677 8DDA FD 00 0D        ...   stad 000d
1678 8DDD 20 05            .    bra 05
1679 8DDF 5F              _     clrb
1680 8DE0 4F              O     clra
1681 8DE1 FD 00 0D        ...   stad 000d
1682 8DE4 20 2D            -    bra 2d
1683 8DE6 FC 00 0D        ...   ldd 000d
1684 8DE9 26 0D           &.    bne 0d
1685 8DEB CC 27 10        .'.   ldd #2710
1686 8DEE F0 0B AA        ...   subb 0baa
1687 8DF1 82 00           ..    sbca #00
1688 8DF3 FD 00 0D        ...   stad 000d
1689 8DF6 20 1B            .    bra 1b
1690 8DF8 F6 0B AA        ...   ldab 0baa
1691 8DFB 4F              O     clra
1692 8DFC B3 00 0D        ...   subd 000d
1693 8DFF 22 0D           ".    bhi 0d
1694 8E01 FC 00 0D        ...   ldd 000d
1695 8E04 F0 0B AA        ...   subb 0baa
1696 8E07 82 00           ..    sbca #00
1697 8E09 FD 00 0D        ...   stad 000d
1698 8E0C 20 05            .    bra 05
1699 8E0E 5F              _     clrb
1700 8E0F 4F              O     clra
1701 8E10 FD 00 0D        ...   stad 000d
1702 8E13 BD 9B 63        ..c   jsr 9b63
1703 8E16 C6 02           ..    ldab #02
1704 8E18 F7 00 36        ..6   stb 0036
1705 8E1B CE 00 1B        ...   ldx #001b
1706 8E1E 1C 00           ..    bset add,x 00,x
1707 8E20 10              .     sba
1708 8E21 CC 02 33        ..3   ldd #0233
1709 8E24 FD 00 3B        ..;   stad 003b
1710 8E27 20 0B            .    bra 0b
1711 8E29 BD A4 4F        ..O   jsr a44f
1712 8E2C BD 85 AF        ...   jsr 85af
1713 8E2F 20 03            .    bra 03
1714 8E31 BD 85 AF        ...   jsr 85af
1715 8E34 39              9     rts
1716 8E35 F6 00 1F        ...   ldab 001f
1717 8E38 C4 02           ..    andb #02
1718 8E3A 27 1E           '.    beq 1e
1719 8E3C 7F 00 48        ..H   clr 0048
1720 8E3F F6 0B C0        ...   ldab 0bc0
1721 8E42 F7 00 67        ..g   stb 0067
1722 8E45 F6 0E 6D        ..m   ldab 0e6d
1723 8E48 F7 0E 6F        ..o   stb 0e6f
1724 8E4B F6 0E 6E        ..n   ldab 0e6e
1725 8E4E F7 0E 70        ..p   stb 0e70
1726 8E51 CE 00 1F        ...   ldx #001f
1727 8E54 1D 00           ..    bclr add,x 00,x
1728 8E56 02              .     idiv
1729 8E57 7E 8F 0C        ~..   jmp 8f0c
1730 8E5A F6 00 09        ...   ldab 0009
1731 8E5D 4F              O     clra
1732 8E5E BD FE 32        ..2   jsr fe32
1733 8E61 8E 7B 00        .{.   lds #7b00
1734 8E64 00              .     test
1735 8E65 8E 81 00        ...   lds #8100
1736 8E68 01              .     nop
1737 8E69 8E 87 00        ...   lds #8700
1738 8E6C 04              .     lsrd
1739 8E6D 8F              .     xgdx
1740 8E6E 01              .     nop
1741 8E6F 00              .     test
1742 8E70 05              .     asld
1743 8E71 8F              .     xgdx
1744 8E72 09              .     dex
1745 8E73 00              .     test
1746 8E74 01              .     nop
1747 8E75 8F              .     xgdx
1748 8E76 0C              .     clc
1749 8E77 FF F5 00        ...   stx f500
1750 8E7A 00              .     test
1751 8E7B BD 9C 15        ...   jsr 9c15
1752 8E7E 7E 8F 0C        ~..   jmp 8f0c
1753 8E81 BD A7 5F        .._   jsr a75f
1754 8E84 7E 8F 0C        ~..   jmp 8f0c
1755 8E87 F6 00 48        ..H   ldab 0048
1756 8E8A C1 08           ..    cmpb #08
1757 8E8C 25 05           %.    bcs 05
1758 8E8E F6 00 67        ..g   ldab 0067
1759 8E91 2D 03           -.    blt 03
1760 8E93 BD A4 59        ..Y   jsr a459
1761 8E96 F6 00 48        ..H   ldab 0048
1762 8E99 C1 0A           ..    cmpb #0a
1763 8E9B 24 5F           $_    bcc 5f
1764 8E9D 7C 00 48        |.H   inc 0048
1765 8EA0 F6 00 48        ..H   ldab 0048
1766 8EA3 C1 01           ..    cmpb #01
1767 8EA5 26 0F           &.    bne 0f
1768 8EA7 F6 00 67        ..g   ldab 0067
1769 8EAA C4 02           ..    andb #02
1770 8EAC 26 08           &.    bne 08
1771 8EAE F6 00 48        ..H   ldab 0048
1772 8EB1 CB 02           ..    addb #02
1773 8EB3 F7 00 48        ..H   stb 0048
1774 8EB6 F6 00 48        ..H   ldab 0048
1775 8EB9 C1 02           ..    cmpb #02
1776 8EBB 26 0A           &.    bne 0a
1777 8EBD F6 00 67        ..g   ldab 0067
1778 8EC0 C4 10           ..    andb #10
1779 8EC2 26 03           &.    bne 03
1780 8EC4 7C 00 48        |.H   inc 0048
1781 8EC7 F6 00 48        ..H   ldab 0048
1782 8ECA C1 06           ..    cmpb #06
1783 8ECC 26 0F           &.    bne 0f
1784 8ECE F6 00 67        ..g   ldab 0067
1785 8ED1 C4 08           ..    andb #08
1786 8ED3 26 08           &.    bne 08
1787 8ED5 C6 02           ..    ldab #02
1788 8ED7 FB 00 48        ..H   addb 0048
1789 8EDA F7 00 48        ..H   stb 0048
1790 8EDD F6 00 48        ..H   ldab 0048
1791 8EE0 C1 0A           ..    cmpb #0a
1792 8EE2 26 08           &.    bne 08
1793 8EE4 F6 00 67        ..g   ldab 0067
1794 8EE7 2D 03           -.    blt 03
1795 8EE9 7C 00 48        |.H   inc 0048
1796 8EEC F6 00 48        ..H   ldab 0048
1797 8EEF C1 0A           ..    cmpb #0a
1798 8EF1 23 09           #.    bls 09
1799 8EF3 7F 00 48        ..H   clr 0048
1800 8EF6 F6 0B C0        ...   ldab 0bc0
1801 8EF9 F7 00 67        ..g   stb 0067
1802 8EFC BD 9C 15        ...   jsr 9c15
1803 8EFF 20 0B            .    bra 0b
1804 8F01 BD A4 59        ..Y   jsr a459
1805 8F04 BD 85 AF        ...   jsr 85af
1806 8F07 20 03            .    bra 03
1807 8F09 BD 85 AF        ...   jsr 85af
1808 8F0C 39              9     rts
1809 8F0D F6 00 1F        ...   ldab 001f
1810 8F10 C4 02           ..    andb #02
1811 8F12 27 1D           '.    beq 1d
1812 8F14 C6 01           ..    ldab #01
1813 8F16 F7 00 22        .."   stb 0022
1814 8F19 F6 0B AF        ...   ldab 0baf
1815 8F1C F7 00 24        ..$   stb 0024
1816 8F1F F6 0B B4        ...   ldab 0bb4
1817 8F22 F7 00 2A        ..*   stb 002a
1818 8F25 CE 00 1F        ...   ldx #001f
1819 8F28 1D 00           ..    bclr add,x 00,x
1820 8F2A 02              .     idiv
1821 8F2B 7F 00 36        ..6   clr 0036
1822 8F2E 7E 90 D0        ~..   jmp 90d0
1823 8F31 F6 00 09        ...   ldab 0009
1824 8F34 4F              O     clra
1825 8F35 BD FE 16        ...   jsr fe16
1826 8F38 00              .     test
1827 8F39 00              .     test
1828 8F3A 00              .     test
1829 8F3B 0B              .     sev
1830 8F3C 90 D0 8F        ...   suba d0
1831 8F3F 56              V     rorb
1832 8F40 8F              .     xgdx
1833 8F41 5C              \     incb
1834 8F42 8F              .     xgdx
1835 8F43 B3 90 0C        ...   subd 900c
1836 8F46 90 62 90        .b.   suba 62
1837 8F49 BA 90 D0        ...   ora 90d0
1838 8F4C 90 D0 90        ...   suba d0
1839 8F4F D0 90 D0        ...   subb 90
1840 8F52 90 C5 90        ...   suba c5
1841 8F55 CD              .     illegal
1842 8F56 BD 9D 2A        ..*   jsr 9d2a
1843 8F59 7E 90 D0        ~..   jmp 90d0
1844 8F5C F6 00 36        ..6   ldab 0036
1845 8F5F 26 43           &C    bne 43
1846 8F61 F6 00 24        ..$   ldab 0024
1847 8F64 C1 64           .d    cmpb #64
1848 8F66 24 34           $4    bcc 34
1849 8F68 7C 00 24        |.$   inc 0024
1850 8F6B F6 00 24        ..$   ldab 0024
1851 8F6E F7 00 06        ...   stb 0006
1852 8F71 F6 00 06        ...   ldab 0006
1853 8F74 BD D7 A0        ...   jsr d7a0
1854 8F77 83 00 00        ...   subd #0000
1855 8F7A 27 03           '.    beq 03
1856 8F7C 7C 00 24        |.$   inc 0024
1857 8F7F F6 00 24        ..$   ldab 0024
1858 8F82 C1 64           .d    cmpb #64
1859 8F84 26 03           &.    bne 03
1860 8F86 7F 00 24        ..$   clr 0024
1861 8F89 F6 00 24        ..$   ldab 0024
1862 8F8C 4F              O     clra
1863 8F8D CE 00 05        ...   ldx #0005
1864 8F90 02              .     idiv
1865 8F91 5D              ]     tstb
1866 8F92 26 08           &.    bne 08
1867 8F94 F6 00 24        ..$   ldab 0024
1868 8F97 27 03           '.    beq 03
1869 8F99 7C 00 24        |.$   inc 0024
1870 8F9C BD 9D 2A        ..*   jsr 9d2a
1871 8F9F C6 02           ..    ldab #02
1872 8FA1 F7 00 36        ..6   stb 0036
1873 8FA4 CE 00 1B        ...   ldx #001b
1874 8FA7 1C 00           ..    bset add,x 00,x
1875 8FA9 10              .     sba
1876 8FAA CC 02 33        ..3   ldd #0233
1877 8FAD FD 00 3B        ..;   stad 003b
1878 8FB0 7E 90 D0        ~..   jmp 90d0
1879 8FB3 F6 00 36        ..6   ldab 0036
1880 8FB6 26 45           &E    bne 45
1881 8FB8 F6 00 24        ..$   ldab 0024
1882 8FBB C1 00           ..    cmpb #00
1883 8FBD 23 2C           #,    bls 2c
1884 8FBF 7A 00 24        z.$   dec 0024
1885 8FC2 F6 00 24        ..$   ldab 0024
1886 8FC5 4F              O     clra
1887 8FC6 CE 00 05        ...   ldx #0005
1888 8FC9 02              .     idiv
1889 8FCA 5D              ]     tstb
1890 8FCB 26 08           &.    bne 08
1891 8FCD F6 00 24        ..$   ldab 0024
1892 8FD0 27 03           '.    beq 03
1893 8FD2 7A 00 24        z.$   dec 0024
1894 8FD5 F6 00 24        ..$   ldab 0024
1895 8FD8 F7 00 06        ...   stb 0006
1896 8FDB F6 00 06        ...   ldab 0006
1897 8FDE BD D7 A0        ...   jsr d7a0
1898 8FE1 83 00 00        ...   subd #0000
1899 8FE4 27 03           '.    beq 03
1900 8FE6 7A 00 24        z.$   dec 0024
1901 8FE9 20 0A            .    bra 0a
1902 8FEB F6 00 24        ..$   ldab 0024
1903 8FEE 26 05           &.    bne 05
1904 8FF0 C6 62           .b    ldab #62
1905 8FF2 F7 00 24        ..$   stb 0024
1906 8FF5 BD 9D 2A        ..*   jsr 9d2a
1907 8FF8 C6 02           ..    ldab #02
1908 8FFA F7 00 36        ..6   stb 0036
1909 8FFD CE 00 1B        ...   ldx #001b
1910 9000 1C 00           ..    bset add,x 00,x
1911 9002 10              .     sba
1912 9003 CC 02 33        ..3   ldd #0233
1913 9006 FD 00 3B        ..;   stad 003b
1914 9009 7E 90 D0        ~..   jmp 90d0
1915 900C F6 00 36        ..6   ldab 0036
1916 900F 26 43           &C    bne 43
1917 9011 F6 00 2A        ..*   ldab 002a
1918 9014 C1 64           .d    cmpb #64
1919 9016 24 34           $4    bcc 34
1920 9018 7C 00 2A        |.*   inc 002a
1921 901B F6 00 2A        ..*   ldab 002a
1922 901E F7 00 06        ...   stb 0006
1923 9021 F6 00 06        ...   ldab 0006
1924 9024 BD D7 A0        ...   jsr d7a0
1925 9027 83 00 00        ...   subd #0000
1926 902A 27 03           '.    beq 03
1927 902C 7C 00 2A        |.*   inc 002a
1928 902F F6 00 2A        ..*   ldab 002a
1929 9032 C1 64           .d    cmpb #64
1930 9034 26 03           &.    bne 03
1931 9036 7F 00 2A        ..*   clr 002a
1932 9039 F6 00 2A        ..*   ldab 002a
1933 903C 4F              O     clra
1934 903D CE 00 05        ...   ldx #0005
1935 9040 02              .     idiv
1936 9041 5D              ]     tstb
1937 9042 26 08           &.    bne 08
1938 9044 F6 00 2A        ..*   ldab 002a
1939 9047 27 03           '.    beq 03
1940 9049 7C 00 2A        |.*   inc 002a
1941 904C BD 9D 2A        ..*   jsr 9d2a
1942 904F C6 02           ..    ldab #02
1943 9051 F7 00 36        ..6   stb 0036
1944 9054 CE 00 1B        ...   ldx #001b
1945 9057 1C 00           ..    bset add,x 00,x
1946 9059 10              .     sba
1947 905A CC 02 33        ..3   ldd #0233
1948 905D FD 00 3B        ..;   stad 003b
1949 9060 20 6E            n    bra 6e
1950 9062 F6 00 36        ..6   ldab 0036
1951 9065 26 45           &E    bne 45
1952 9067 F6 00 2A        ..*   ldab 002a
1953 906A C1 00           ..    cmpb #00
1954 906C 23 2C           #,    bls 2c
1955 906E 7A 00 2A        z.*   dec 002a
1956 9071 F6 00 2A        ..*   ldab 002a
1957 9074 4F              O     clra
1958 9075 CE 00 05        ...   ldx #0005
1959 9078 02              .     idiv
1960 9079 5D              ]     tstb
1961 907A 26 08           &.    bne 08
1962 907C F6 00 2A        ..*   ldab 002a
1963 907F 27 03           '.    beq 03
1964 9081 7A 00 2A        z.*   dec 002a
1965 9084 F6 00 2A        ..*   ldab 002a
1966 9087 F7 00 06        ...   stb 0006
1967 908A F6 00 06        ...   ldab 0006
1968 908D BD D7 A0        ...   jsr d7a0
1969 9090 83 00 00        ...   subd #0000
1970 9093 27 03           '.    beq 03
1971 9095 7A 00 2A        z.*   dec 002a
1972 9098 20 0A            .    bra 0a
1973 909A F6 00 2A        ..*   ldab 002a
1974 909D 26 05           &.    bne 05
1975 909F C6 62           .b    ldab #62
1976 90A1 F7 00 2A        ..*   stb 002a
1977 90A4 BD 9D 2A        ..*   jsr 9d2a
1978 90A7 C6 02           ..    ldab #02
1979 90A9 F7 00 36        ..6   stb 0036
1980 90AC CE 00 1B        ...   ldx #001b
1981 90AF 1C 00           ..    bset add,x 00,x
1982 90B1 10              .     sba
1983 90B2 CC 02 33        ..3   ldd #0233
1984 90B5 FD 00 3B        ..;   stad 003b
1985 90B8 20 16            .    bra 16
1986 90BA BD A5 1E        ...   jsr a51e
1987 90BD BD AA 9A        ...   jsr aa9a
1988 90C0 BD 9D 2A        ..*   jsr 9d2a
1989 90C3 20 0B            .    bra 0b
1990 90C5 BD A5 1E        ...   jsr a51e
1991 90C8 BD 85 AF        ...   jsr 85af
1992 90CB 20 03            .    bra 03
1993 90CD BD 85 AF        ...   jsr 85af
1994 90D0 39              9     rts
1995 90D1 F6 00 1F        ...   ldab 001f
1996 90D4 C4 02           ..    andb #02
1997 90D6 27 14           '.    beq 14
1998 90D8 CE 00 1F        ...   ldx #001f
1999 90DB 1D 00           ..    bclr add,x 00,x
2000 90DD 02              .     idiv
2001 90DE CE 00 19        ...   ldx #0019
2002 90E1 1C 00           ..    bset add,x 00,x
2003 90E3 80 7F           ..    suba #7f
2004 90E5 00              .     test
2005 90E6 09              .     dex
2006 90E7 7F 00 0A        ...   clr 000a
2007 90EA 20 40            @    bra 40
2008 90EC F6 00 09        ...   ldab 0009
2009 90EF 4F              O     clra
2010 90F0 BD FE 32        ..2   jsr fe32
2011 90F3 91 0D 00        ...   cmpa 0d
2012 90F6 00              .     test
2013 90F7 91 15 00        ...   cmpa 15
2014 90FA 01              .     nop
2015 90FB 91 19 00        ...   cmpa 19
2016 90FE 01              .     nop
2017 90FF 91 1E 00        ...   cmpa 1e
2018 9102 01              .     nop
2019 9103 91 23 00        .#.   cmpa 23
2020 9106 08              .     inx
2021 9107 91 26 FF        .&.   cmpa 26
2022 910A F5 00 00        ...   bitb 0000
2023 910D CC B0 AD        ...   ldd #b0ad
2024 9110 BD C0 BA        ...   jsr c0ba
2025 9113 20 17            .    bra 17
2026 9115 8D 16           ..    bsr dest 16
2027 9117 20 13            .    bra 13
2028 9119 BD 91 C6        ...   jsr 91c6
2029 911C 20 0E            .    bra 0e
2030 911E BD 92 5A        ..Z   jsr 925a
2031 9121 20 09            .    bra 09
2032 9123 BD 85 AF        ...   jsr 85af
2033 9126 7F 00 09        ...   clr 0009
2034 9129 7F 00 0A        ...   clr 000a
2035 912C 39              9     rts
2036 912D F6 00 19        ...   ldab 0019
2037 9130 2C 28           ,(    bge 28
2038 9132 BD A9 CF        ...   jsr a9cf
2039 9135 C6 50           .P    ldab #50
2040 9137 F7 0A 90        ...   stb 0a90
2041 913A C6 20           .     ldab #20
2042 913C F7 0B 8D        ...   stb 0b8d
2043 913F C6 20           .     ldab #20
2044 9141 F7 0B 8E        ...   stb 0b8e
2045 9144 C6 28           .(    ldab #28
2046 9146 F7 0B 8F        ...   stb 0b8f
2047 9149 7F 00 54        ..T   clr 0054
2048 914C 7F 00 60        ..`   clr 0060
2049 914F CE 00 19        ...   ldx #0019
2050 9152 1D 00           ..    bclr add,x 00,x
2051 9154 80 7F           ..    suba #7f
2052 9156 00              .     test
2053 9157 36              6     psha
2054 9158 20 6B            k    bra 6b
2055 915A F6 00 0A        ...   ldab 000a
2056 915D 4F              O     clra
2057 915E BD FE 16        ...   jsr fe16
2058 9161 00              .     test
2059 9162 00              .     test
2060 9163 00              .     test
2061 9164 0B              .     sev
2062 9165 91 C5 91        ...   cmpa c5
2063 9168 7F 91 84        ...   clr 9184
2064 916B 91 89 91        ...   cmpa 89
2065 916E 8E 91 9F        ...   lds #919f
2066 9171 91 B0 91        ...   cmpa b0
2067 9174 C5 91           ..    bitb #91
2068 9176 C5 91           ..    bitb #91
2069 9178 C5 91           ..    bitb #91
2070 917A B5 91 BA        ...   bita 91ba
2071 917D 91 C2 BD        ...   cmpa c2
2072 9180 9D 7E 20        .~    jsr 7e
2073 9183 41              A     illegal
2074 9184 BD A8 64        ..d   jsr a864
2075 9187 20 3C            <    bra 3c
2076 9189 BD A8 D5        ...   jsr a8d5
2077 918C 20 37            7    bra 37
2078 918E BD A8 96        ...   jsr a896
2079 9191 CE 00 1B        ...   ldx #001b
2080 9194 1C 00           ..    bset add,x 00,x
2081 9196 10              .     sba
2082 9197 CC 02 33        ..3   ldd #0233
2083 919A FD 00 3B        ..;   stad 003b
2084 919D 20 26            &    bra 26
2085 919F BD A8 E5        ...   jsr a8e5
2086 91A2 CE 00 1B        ...   ldx #001b
2087 91A5 1C 00           ..    bset add,x 00,x
2088 91A7 10              .     sba
2089 91A8 CC 02 33        ..3   ldd #0233
2090 91AB FD 00 3B        ..;   stad 003b
2091 91AE 20 15            .    bra 15
2092 91B0 BD A9 21        ..!   jsr a921
2093 91B3 20 10            .    bra 10
2094 91B5 BD A9 7A        ..z   jsr a97a
2095 91B8 20 0B            .    bra 0b
2096 91BA BD A5 7D        ..}   jsr a57d
2097 91BD BD 85 AF        ...   jsr 85af
2098 91C0 20 03            .    bra 03
2099 91C2 BD 85 AF        ...   jsr 85af
2100 91C5 39              9     rts
2101 91C6 F6 00 19        ...   ldab 0019
2102 91C9 2C 28           ,(    bge 28
2103 91CB BD AA 0A        ...   jsr aa0a
2104 91CE C6 53           .S    ldab #53
2105 91D0 F7 0A 90        ...   stb 0a90
2106 91D3 C6 20           .     ldab #20
2107 91D5 F7 0A 9D        ...   stb 0a9d
2108 91D8 C6 20           .     ldab #20
2109 91DA F7 0A 9E        ...   stb 0a9e
2110 91DD C6 28           .(    ldab #28
2111 91DF F7 0A 9F        ...   stb 0a9f
2112 91E2 7F 00 54        ..T   clr 0054
2113 91E5 7F 00 60        ..`   clr 0060
2114 91E8 CE 00 19        ...   ldx #0019
2115 91EB 1D 00           ..    bclr add,x 00,x
2116 91ED 80 7F           ..    suba #7f
2117 91EF 00              .     test
2118 91F0 36              6     psha
2119 91F1 20 66            f    bra 66
2120 91F3 F6 00 0A        ...   ldab 000a
2121 91F6 4F              O     clra
2122 91F7 BD FE 16        ...   jsr fe16
2123 91FA 00              .     test
2124 91FB 00              .     test
2125 91FC 00              .     test
2126 91FD 0B              .     sev
2127 91FE 92 59 92        .Y.   sbca 59
2128 9201 18              .     illegal
2129 9202 92 1D 92        ...   sbca 1d
2130 9205 22 92           ".    bhi 92
2131 9207 27 92           '.    beq 92
2132 9209 38              8     pulx
2133 920A 92 49 92        .I.   sbca 49
2134 920D 59              Y     rolb
2135 920E 92 59 92        .Y.   sbca 59
2136 9211 59              Y     rolb
2137 9212 92 59 92        .Y.   sbca 59
2138 9215 4E              N     illegal
2139 9216 92 56 BD        .V.   sbca 56
2140 9219 9D 7E 20        .~    jsr 7e
2141 921C 3C              <     pshx
2142 921D BD A8 64        ..d   jsr a864
2143 9220 20 37            7    bra 37
2144 9222 BD A8 D5        ...   jsr a8d5
2145 9225 20 32            2    bra 32
2146 9227 BD A8 96        ...   jsr a896
2147 922A CE 00 1B        ...   ldx #001b
2148 922D 1C 00           ..    bset add,x 00,x
2149 922F 10              .     sba
2150 9230 CC 02 33        ..3   ldd #0233
2151 9233 FD 00 3B        ..;   stad 003b
2152 9236 20 21            !    bra 21
2153 9238 BD A8 E5        ...   jsr a8e5
2154 923B CE 00 1B        ...   ldx #001b
2155 923E 1C 00           ..    bset add,x 00,x
2156 9240 10              .     sba
2157 9241 CC 02 33        ..3   ldd #0233
2158 9244 FD 00 3B        ..;   stad 003b
2159 9247 20 10            .    bra 10
2160 9249 BD A9 21        ..!   jsr a921
2161 924C 20 0B            .    bra 0b
2162 924E BD A5 AC        ...   jsr a5ac
2163 9251 BD 85 AF        ...   jsr 85af
2164 9254 20 03            .    bra 03
2165 9256 BD 85 AF        ...   jsr 85af
2166 9259 39              9     rts
2167 925A F6 00 19        ...   ldab 0019
2168 925D 2C 28           ,(    bge 28
2169 925F BD AA 3F        ..?   jsr aa3f
2170 9262 C6 49           .I    ldab #49
2171 9264 F7 0A 90        ...   stb 0a90
2172 9267 C6 20           .     ldab #20
2173 9269 F7 0A 9D        ...   stb 0a9d
2174 926C C6 20           .     ldab #20
2175 926E F7 0A 9E        ...   stb 0a9e
2176 9271 C6 28           .(    ldab #28
2177 9273 F7 0A 9F        ...   stb 0a9f
2178 9276 7F 00 54        ..T   clr 0054
2179 9279 7F 00 60        ..`   clr 0060
2180 927C CE 00 19        ...   ldx #0019
2181 927F 1D 00           ..    bclr add,x 00,x
2182 9281 80 7F           ..    suba #7f
2183 9283 00              .     test
2184 9284 36              6     psha
2185 9285 20 66            f    bra 66
2186 9287 F6 00 0A        ...   ldab 000a
2187 928A 4F              O     clra
2188 928B BD FE 16        ...   jsr fe16
2189 928E 00              .     test
2190 928F 00              .     test
2191 9290 00              .     test
2192 9291 0B              .     sev
2193 9292 92 ED 92        ...   sbca ed
2194 9295 AC 92           ..    cpx 92,x
2195 9297 B1 92 B6        ...   cmpa 92b6
2196 929A 92 BB 92        ...   sbca bb
2197 929D CC 92 DD        ...   ldd #92dd
2198 92A0 92 ED 92        ...   sbca ed
2199 92A3 ED 92           ..    stad 92,x
2200 92A5 ED 92           ..    stad 92,x
2201 92A7 ED 92           ..    stad 92,x
2202 92A9 E2 92           ..    sbcb 92,x
2203 92AB EA BD           ..    orb bd,x
2204 92AD 9D 7E 20        .~    jsr 7e
2205 92B0 3C              <     pshx
2206 92B1 BD A8 64        ..d   jsr a864
2207 92B4 20 37            7    bra 37
2208 92B6 BD A8 D5        ...   jsr a8d5
2209 92B9 20 32            2    bra 32
2210 92BB BD A8 96        ...   jsr a896
2211 92BE CE 00 1B        ...   ldx #001b
2212 92C1 1C 00           ..    bset add,x 00,x
2213 92C3 10              .     sba
2214 92C4 CC 02 33        ..3   ldd #0233
2215 92C7 FD 00 3B        ..;   stad 003b
2216 92CA 20 21            !    bra 21
2217 92CC BD A8 E5        ...   jsr a8e5
2218 92CF CE 00 1B        ...   ldx #001b
2219 92D2 1C 00           ..    bset add,x 00,x
2220 92D4 10              .     sba
2221 92D5 CC 02 33        ..3   ldd #0233
2222 92D8 FD 00 3B        ..;   stad 003b
2223 92DB 20 10            .    bra 10
2224 92DD BD A9 21        ..!   jsr a921
2225 92E0 20 0B            .    bra 0b
2226 92E2 BD A5 D5        ...   jsr a5d5
2227 92E5 BD 85 AF        ...   jsr 85af
2228 92E8 20 03            .    bra 03
2229 92EA BD 85 AF        ...   jsr 85af
2230 92ED 39              9     rts
2231 92EE F6 0C DC        ...   ldab 0cdc
2232 92F1 4F              O     clra
2233 92F2 37              7     pshb
2234 92F3 36              6     psha
2235 92F4 CC 00 64        ..d   ldd #0064
2236 92F7 BD FB BA        ...   jsr fbba
2237 92FA FD 0C E9        ...   stad 0ce9
2238 92FD BD D6 F6        ...   jsr d6f6
2239 9300 FC 0C E9        ...   ldd 0ce9
2240 9303 F3 0B EF        ...   addd 0bef
2241 9306 FD 0C F1        ...   stad 0cf1
2242 9309 FE 0C F5        ...   ldx 0cf5
2243 930C 3C              <     pshx
2244 930D FC 0C F3        ...   ldd 0cf3
2245 9310 37              7     pshb
2246 9311 36              6     psha
2247 9312 FE 0C F9        ...   ldx 0cf9
2248 9315 3C              <     pshx
2249 9316 FC 0C F7        ...   ldd 0cf7
2250 9319 BD FC 25        ..%   jsr fc25
2251 931C 37              7     pshb
2252 931D 36              6     psha
2253 931E FE 0C FD        ...   ldx 0cfd
2254 9321 3C              <     pshx
2255 9322 FC 0C FB        ...   ldd 0cfb
2256 9325 BD FC 25        ..%   jsr fc25
2257 9328 37              7     pshb
2258 9329 36              6     psha
2259 932A FE 0D 01        ...   ldx 0d01
2260 932D 3C              <     pshx
2261 932E FC 0C FF        ...   ldd 0cff
2262 9331 BD FC 25        ..%   jsr fc25
2263 9334 37              7     pshb
2264 9335 36              6     psha
2265 9336 FE 0D 05        ...   ldx 0d05
2266 9339 3C              <     pshx
2267 933A FC 0D 03        ...   ldd 0d03
2268 933D BD FC 25        ..%   jsr fc25
2269 9340 FD 0D F3        ...   stad 0df3
2270 9343 32              2     pula
2271 9344 33              3     pulb
2272 9345 FD 0D F5        ...   stad 0df5
2273 9348 FE 0D F9        ...   ldx 0df9
2274 934B 3C              <     pshx
2275 934C FC 0D F7        ...   ldd 0df7
2276 934F 37              7     pshb
2277 9350 36              6     psha
2278 9351 FE 0D F5        ...   ldx 0df5
2279 9354 3C              <     pshx
2280 9355 FC 0D F3        ...   ldd 0df3
2281 9358 BD FC 25        ..%   jsr fc25
2282 935B FD 0D EF        ...   stad 0def
2283 935E 32              2     pula
2284 935F 33              3     pulb
2285 9360 FD 0D F1        ...   stad 0df1
2286 9363 F6 20 00        . .   ldab 2000
2287 9366 C4 40           .@    andb #40
2288 9368 27 37           '7    beq 37
2289 936A F6 00 1F        ...   ldab 001f
2290 936D C4 02           ..    andb #02
2291 936F 27 1F           '.    beq 1f
2292 9371 BD 97 E9        ...   jsr 97e9
2293 9374 CE 00 1F        ...   ldx #001f
2294 9377 1D 00           ..    bclr add,x 00,x
2295 9379 02              .     idiv
2296 937A CE 00 1F        ...   ldx #001f
2297 937D 1D 00           ..    bclr add,x 00,x
2298 937F 10              .     sba
2299 9380 CC 02 33        ..3   ldd #0233
2300 9383 FD 00 3B        ..;   stad 003b
2301 9386 7F 00 09        ...   clr 0009
2302 9389 C6 92           ..    ldab #92
2303 938B F7 00 48        ..H   stb 0048
2304 938E 20 0F            .    bra 0f
2305 9390 F6 00 19        ...   ldab 0019
2306 9393 C4 40           .@    andb #40
2307 9395 26 05           &.    bne 05
2308 9397 BD 98 BF        ...   jsr 98bf
2309 939A 20 03            .    bra 03
2310 939C BD 85 AF        ...   jsr 85af
2311 939F 20 03            .    bra 03
2312 93A1 BD 98 FF        ...   jsr 98ff
2313 93A4 39              9     rts
2314 93A5 F6 00 1F        ...   ldab 001f
2315 93A8 C4 02           ..    andb #02
2316 93AA 26 0A           &.    bne 0a
2317 93AC F6 00 3A        ..:   ldab 003a
2318 93AF 26 2B           &+    bne 2b
2319 93B1 F6 00 1D        ...   ldab 001d
2320 93B4 2D 26           -&    blt 26
2321 93B6 CC AF BB        ...   ldd #afbb
2322 93B9 BD C0 BA        ...   jsr c0ba
2323 93BC CE 00 1F        ...   ldx #001f
2324 93BF 1D 00           ..    bclr add,x 00,x
2325 93C1 02              .     idiv
2326 93C2 CE 00 1D        ...   ldx #001d
2327 93C5 1D 00           ..    bclr add,x 00,x
2328 93C7 80 C6           ..    suba #c6
2329 93C9 32              2     pula
2330 93CA F7 00 3A        ..:   stb 003a
2331 93CD F6 0B A8        ...   ldab 0ba8
2332 93D0 F7 00 66        ..f   stb 0066
2333 93D3 BD AA 74        ..t   jsr aa74
2334 93D6 7F 00 48        ..H   clr 0048
2335 93D9 7F 00 54        ..T   clr 0054
2336 93DC F6 00 09        ...   ldab 0009
2337 93DF 26 03           &.    bne 03
2338 93E1 7E 94 92        ~..   jmp 9492
2339 93E4 F6 00 1D        ...   ldab 001d
2340 93E7 2C 03           ,.    bge 03
2341 93E9 7E 94 92        ~..   jmp 9492
2342 93EC F6 00 09        ...   ldab 0009
2343 93EF C1 0B           ..    cmpb #0b
2344 93F1 26 06           &.    bne 06
2345 93F3 BD 85 AF        ...   jsr 85af
2346 93F6 7E 94 90        ~..   jmp 9490
2347 93F9 F6 00 09        ...   ldab 0009
2348 93FC C1 0A           ..    cmpb #0a
2349 93FE 26 03           &.    bne 03
2350 9400 7F 00 09        ...   clr 0009
2351 9403 F6 00 09        ...   ldab 0009
2352 9406 CB 30           .0    addb #30
2353 9408 37              7     pshb
2354 9409 F6 00 54        ..T   ldab 0054
2355 940C 4F              O     clra
2356 940D C3 00 62        ..b   addd #0062
2357 9410 8F              .     xgdx
2358 9411 33              3     pulb
2359 9412 E7 00           ..    stb 00,x
2360 9414 BD BE 4B        ..K   jsr be4b
2361 9417 F6 00 54        ..T   ldab 0054
2362 941A 26 06           &.    bne 06
2363 941C F6 00 62        ..b   ldab 0062
2364 941F F7 0B 96        ...   stb 0b96
2365 9422 F6 00 54        ..T   ldab 0054
2366 9425 C1 01           ..    cmpb #01
2367 9427 26 0C           &.    bne 0c
2368 9429 F6 00 62        ..b   ldab 0062
2369 942C F7 0B 96        ...   stb 0b96
2370 942F F6 00 63        ..c   ldab 0063
2371 9432 F7 0B 95        ...   stb 0b95
2372 9435 F6 00 54        ..T   ldab 0054
2373 9438 C1 02           ..    cmpb #02
2374 943A 26 12           &.    bne 12
2375 943C F6 00 62        ..b   ldab 0062
2376 943F F7 0B 96        ...   stb 0b96
2377 9442 F6 00 63        ..c   ldab 0063
2378 9445 F7 0B 95        ...   stb 0b95
2379 9448 F6 00 64        ..d   ldab 0064
2380 944B F7 0B 94        ...   stb 0b94
2381 944E F6 00 54        ..T   ldab 0054
2382 9451 C1 03           ..    cmpb #03
2383 9453 26 18           &.    bne 18
2384 9455 F6 00 62        ..b   ldab 0062
2385 9458 F7 0B 96        ...   stb 0b96
2386 945B F6 00 63        ..c   ldab 0063
2387 945E F7 0B 95        ...   stb 0b95
2388 9461 F6 00 64        ..d   ldab 0064
2389 9464 F7 0B 94        ...   stb 0b94
2390 9467 F6 00 65        ..e   ldab 0065
2391 946A F7 0B 93        ...   stb 0b93
2392 946D BD BE 01        ...   jsr be01
2393 9470 7C 00 54        |.T   inc 0054
2394 9473 F6 00 54        ..T   ldab 0054
2395 9476 C1 04           ..    cmpb #04
2396 9478 26 0B           &.    bne 0b
2397 947A CE 00 1D        ...   ldx #001d
2398 947D 1C 00           ..    bset add,x 00,x
2399 947F 80 BD           ..    suba #bd
2400 9481 A8 0F           ..    eora 0f,x
2401 9483 20 06            .    bra 06
2402 9485 CE 00 1D        ...   ldx #001d
2403 9488 1D 00           ..    bclr add,x 00,x
2404 948A 80 C6           ..    suba #c6
2405 948C 32              2     pula
2406 948D F7 00 3A        ..:   stb 003a
2407 9490 20 4A            J    bra 4a
2408 9492 F6 00 1D        ...   ldab 001d
2409 9495 2C 45           ,E    bge 45
2410 9497 F6 00 09        ...   ldab 0009
2411 949A 4F              O     clra
2412 949B BD FE 32        ..2   jsr fe32
2413 949E 94 B8 00        ...   anda b8
2414 94A1 00              .     test
2415 94A2 94 BD 00        ...   anda bd
2416 94A5 01              .     nop
2417 94A6 94 C2 00        ...   anda c2
2418 94A9 04              .     lsrd
2419 94AA 94 D1 00        ...   anda d1
2420 94AD 05              .     asld
2421 94AE 94 D9 00        ...   anda d9
2422 94B1 01              .     nop
2423 94B2 94 DC FF        ...   anda dc
2424 94B5 F5 00 00        ...   bitb 0000
2425 94B8 BD 9E 0F        ...   jsr 9e0f
2426 94BB 20 1F            .    bra 1f
2427 94BD BD A7 1F        ...   jsr a71f
2428 94C0 20 1A            .    bra 1a
2429 94C2 7C 00 48        |.H   inc 0048
2430 94C5 F6 00 48        ..H   ldab 0048
2431 94C8 C1 0A           ..    cmpb #0a
2432 94CA 23 03           #.    bls 03
2433 94CC 7F 00 48        ..H   clr 0048
2434 94CF 20 0B            .    bra 0b
2435 94D1 BD A5 FE        ...   jsr a5fe
2436 94D4 BD 85 AF        ...   jsr 85af
2437 94D7 20 03            .    bra 03
2438 94D9 BD 85 AF        ...   jsr 85af
2439 94DC 39              9     rts
2440 94DD F6 00 1F        ...   ldab 001f
2441 94E0 C4 02           ..    andb #02
2442 94E2 27 14           '.    beq 14
2443 94E4 CE 00 1F        ...   ldx #001f
2444 94E7 1D 00           ..    bclr add,x 00,x
2445 94E9 02              .     idiv
2446 94EA CE 00 19        ...   ldx #0019
2447 94ED 1C 00           ..    bset add,x 00,x
2448 94EF 80 7F           ..    suba #7f
2449 94F1 00              .     test
2450 94F2 09              .     dex
2451 94F3 7F 00 0A        ...   clr 000a
2452 94F6 20 46            F    bra 46
2453 94F8 F6 00 09        ...   ldab 0009
2454 94FB 4F              O     clra
2455 94FC BD FE 32        ..2   jsr fe32
2456 94FF 95 19 00        ...   bita 19
2457 9502 00              .     test
2458 9503 95 21 00        .!.   bita 21
2459 9506 01              .     nop
2460 9507 95 2C 00        .,.   bita 2c
2461 950A 01              .     nop
2462 950B 95 30 00        .0.   bita 30
2463 950E 01              .     nop
2464 950F 95 35 00        .5.   bita 35
2465 9512 08              .     inx
2466 9513 95 38 FF        .8.   bita 38
2467 9516 F5 00 00        ...   bitb 0000
2468 9519 CC B0 A2        ...   ldd #b0a2
2469 951C BD C0 BA        ...   jsr c0ba
2470 951F 20 1D            .    bra 1d
2471 9521 BD 87 E9        ...   jsr 87e9
2472 9524 CE 00 1F        ...   ldx #001f
2473 9527 1C 00           ..    bset add,x 00,x
2474 9529 02              .     idiv
2475 952A 20 12            .    bra 12
2476 952C 8D 11           ..    bsr dest 11
2477 952E 20 0E            .    bra 0e
2478 9530 BD 96 88        ...   jsr 9688
2479 9533 20 09            .    bra 09
2480 9535 BD 85 AF        ...   jsr 85af
2481 9538 7F 00 09        ...   clr 0009
2482 953B 7F 00 0A        ...   clr 000a
2483 953E 39              9     rts
2484 953F F6 00 19        ...   ldab 0019
2485 9542 2D 0A           -.    blt 0a
2486 9544 F6 00 3A        ..:   ldab 003a
2487 9547 26 22           &"    bne 22
2488 9549 F6 00 1D        ...   ldab 001d
2489 954C 2D 1D           -.    blt 1d
2490 954E 7F 00 2C        ..,   clr 002c
2491 9551 CC B0 B8        ...   ldd #b0b8
2492 9554 BD C0 BA        ...   jsr c0ba
2493 9557 CE 00 19        ...   ldx #0019
2494 955A 1D 00           ..    bclr add,x 00,x
2495 955C 80 CE           ..    suba #ce
2496 955E 00              .     test
2497 955F 1D 1D           ..    bclr add,x 1d,x
2498 9561 00              .     test
2499 9562 80 7F           ..    suba #7f
2500 9564 00              .     test
2501 9565 54              T     lsrb
2502 9566 C6 32           .2    ldab #32
2503 9568 F7 00 3A        ..:   stb 003a
2504 956B F6 00 0A        ...   ldab 000a
2505 956E 26 03           &.    bne 03
2506 9570 7E 96 5C        ~.\   jmp 965c
2507 9573 F6 00 1D        ...   ldab 001d
2508 9576 2C 03           ,.    bge 03
2509 9578 7E 96 5C        ~.\   jmp 965c
2510 957B F6 00 0A        ...   ldab 000a
2511 957E C1 0B           ..    cmpb #0b
2512 9580 26 09           &.    bne 09
2513 9582 CE 00 1F        ...   ldx #001f
2514 9585 1C 00           ..    bset add,x 00,x
2515 9587 02              .     idiv
2516 9588 7E 96 5A        ~.Z   jmp 965a
2517 958B F6 00 54        ..T   ldab 0054
2518 958E 26 26           &&    bne 26
2519 9590 BD BE 4B        ..K   jsr be4b
2520 9593 F6 00 0A        ...   ldab 000a
2521 9596 C1 0A           ..    cmpb #0a
2522 9598 26 03           &.    bne 03
2523 959A 7F 00 0A        ...   clr 000a
2524 959D F6 00 0A        ...   ldab 000a
2525 95A0 CB 30           .0    addb #30
2526 95A2 37              7     pshb
2527 95A3 CC 0B 95        ...   ldd #0b95
2528 95A6 F0 00 54        ..T   subb 0054
2529 95A9 82 00           ..    sbca #00
2530 95AB 8F              .     xgdx
2531 95AC 33              3     pulb
2532 95AD E7 00           ..    stb 00,x
2533 95AF C6 32           .2    ldab #32
2534 95B1 F7 00 3A        ..:   stb 003a
2535 95B4 20 37            7    bra 37
2536 95B6 F6 00 54        ..T   ldab 0054
2537 95B9 C1 01           ..    cmpb #01
2538 95BB 26 27           &'    bne 27
2539 95BD F6 00 0A        ...   ldab 000a
2540 95C0 C1 05           ..    cmpb #05
2541 95C2 27 20           '     beq 20
2542 95C4 F6 00 0A        ...   ldab 000a
2543 95C7 C1 0A           ..    cmpb #0a
2544 95C9 27 19           '.    beq 19
2545 95CB F6 00 0A        ...   ldab 000a
2546 95CE CB 30           .0    addb #30
2547 95D0 37              7     pshb
2548 95D1 CC 0B 95        ...   ldd #0b95
2549 95D4 F0 00 54        ..T   subb 0054
2550 95D7 82 00           ..    sbca #00
2551 95D9 8F              .     xgdx
2552 95DA 33              3     pulb
2553 95DB E7 00           ..    stb 00,x
2554 95DD C6 32           .2    ldab #32
2555 95DF F7 00 3A        ..:   stb 003a
2556 95E2 20 09            .    bra 09
2557 95E4 CE 00 19        ...   ldx #0019
2558 95E7 1C 00           ..    bset add,x 00,x
2559 95E9 80 7F           ..    suba #7f
2560 95EB 00              .     test
2561 95EC 3A              :     abx
2562 95ED BD BE 01        ...   jsr be01
2563 95F0 7C 00 54        |.T   inc 0054
2564 95F3 F6 00 54        ..T   ldab 0054
2565 95F6 C1 02           ..    cmpb #02
2566 95F8 26 5A           &Z    bne 5a
2567 95FA CE 00 1D        ...   ldx #001d
2568 95FD 1C 00           ..    bset add,x 00,x
2569 95FF 80 F6           ..    suba #f6
2570 9601 0B              .     sev
2571 9602 94 CB D0        ...   anda cb
2572 9605 37              7     pshb
2573 9606 F6 0B 95        ...   ldab 0b95
2574 9609 CB D0           ..    addb #d0
2575 960B 86 0A           ..    ldaa #0a
2576 960D 3D              =     mul
2577 960E 30              0     tsx
2578 960F EB 00           ..    addb 00,x
2579 9611 31              1     ins
2580 9612 F7 00 06        ...   stb 0006
2581 9615 C6 32           .2    ldab #32
2582 9617 F7 00 3A        ..:   stb 003a
2583 961A F6 00 06        ...   ldab 0006
2584 961D BD D7 A0        ...   jsr d7a0
2585 9620 83 00 00        ...   subd #0000
2586 9623 26 21           &!    bne 21
2587 9625 BD D3 11        ...   jsr d311
2588 9628 83 00 00        ...   subd #0000
2589 962B 26 0B           &.    bne 0b
2590 962D CE 00 1F        ...   ldx #001f
2591 9630 1C 00           ..    bset add,x 00,x
2592 9632 40              @     nega
2593 9633 BD 8C 73        ..s   jsr 8c73
2594 9636 20 06            .    bra 06
2595 9638 CE 00 1F        ...   ldx #001f
2596 963B 1D 00           ..    bclr add,x 00,x
2597 963D 40              @     nega
2598 963E 7F 00 2C        ..,   clr 002c
2599 9641 BD 9A 47        ..G   jsr 9a47
2600 9644 20 0C            .    bra 0c
2601 9646 CE 00 1D        ...   ldx #001d
2602 9649 1D 00           ..    bclr add,x 00,x
2603 964B 80 CE           ..    suba #ce
2604 964D 00              .     test
2605 964E 19              .     daa
2606 964F 1C 00           ..    bset add,x 00,x
2607 9651 80 20           .     suba #20
2608 9653 06              .     tap
2609 9654 CE 00 1D        ...   ldx #001d
2610 9657 1D 00           ..    bclr add,x 00,x
2611 9659 80 20           .     suba #20
2612 965B 2B F6           +.    bmi f6
2613 965D 00              .     test
2614 965E 1D 2C           .,    bclr add,x 2c,x
2615 9660 26 BD           &.    bne bd
2616 9662 D2 13 83        ...   sbcb 13
2617 9665 00              .     test
2618 9666 00              .     test
2619 9667 26 0F           &.    bne 0f
2620 9669 CC 00 64        ..d   ldd #0064
2621 966C BD E5 71        ..q   jsr e571
2622 966F BD E5 D1        ...   jsr e5d1
2623 9672 CC 03 84        ...   ldd #0384
2624 9675 BD E5 71        ..q   jsr e571
2625 9678 7F 00 2E        ...   clr 002e
2626 967B CE 00 1D        ...   ldx #001d
2627 967E 1D 00           ..    bclr add,x 00,x
2628 9680 80 CE           ..    suba #ce
2629 9682 00              .     test
2630 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2631 9687 39              9     rts
2632 9688 34              4     des
2633 9689 F6 00 19        ...   ldab 0019
2634 968C 2C 19           ,.    bge 19
2635 968E CE 00 19        ...   ldx #0019
2636 9691 1D 00           ..    bclr add,x 00,x
2637 9693 80 CC           ..    suba #cc
2638 9695 B0 97 BD        ...   suba 97bd
2639 9698 C0 BA           ..    subb #ba
2640 969A C6 0A           ..    ldab #0a
2641 969C F7 00 38        ..8   stb 0038
2642 969F 7F 00 05        ...   clr 0005
2643 96A2 C6 01           ..    ldab #01
2644 96A4 F7 00 06        ...   stb 0006
2645 96A7 F6 00 0A        ...   ldab 000a
2646 96AA C1 0B           ..    cmpb #0b
2647 96AC 26 0C           &.    bne 0c
2648 96AE CC 02 33        ..3   ldd #0233
2649 96B1 FD 00 3B        ..;   stad 003b
2650 96B4 CE 00 1F        ...   ldx #001f
2651 96B7 1C 00           ..    bset add,x 00,x
2652 96B9 02              .     idiv
2653 96BA F6 00 38        ..8   ldab 0038
2654 96BD 27 03           '.    beq 03
2655 96BF 7E 97 6D        ~.m   jmp 976d
2656 96C2 F6 00 06        ...   ldab 0006
2657 96C5 C1 63           .c    cmpb #63
2658 96C7 23 03           #.    bls 03
2659 96C9 7E 97 6D        ~.m   jmp 976d
2660 96CC F6 00 06        ...   ldab 0006
2661 96CF C1 63           .c    cmpb #63
2662 96D1 26 0F           &.    bne 0f
2663 96D3 BD 99 C3        ...   jsr 99c3
2664 96D6 CC 07 D0        ...   ldd #07d0
2665 96D9 BD E5 71        ..q   jsr e571
2666 96DC CE 00 1F        ...   ldx #001f
2667 96DF 1C 00           ..    bset add,x 00,x
2668 96E1 02              .     idiv
2669 96E2 BD D3 11        ...   jsr d311
2670 96E5 83 00 00        ...   subd #0000
2671 96E8 26 0B           &.    bne 0b
2672 96EA CE 00 1F        ...   ldx #001f
2673 96ED 1C 00           ..    bset add,x 00,x
2674 96EF 40              @     nega
2675 96F0 BD 8C 73        ..s   jsr 8c73
2676 96F3 20 06            .    bra 06
2677 96F5 CE 00 1F        ...   ldx #001f
2678 96F8 1D 00           ..    bclr add,x 00,x
2679 96FA 40              @     nega
2680 96FB BD 9A 47        ..G   jsr 9a47
2681 96FE F6 00 06        ...   ldab 0006
2682 9701 C1 63           .c    cmpb #63
2683 9703 26 03           &.    bne 03
2684 9705 7F 00 2C        ..,   clr 002c
2685 9708 BD D2 13        ...   jsr d213
2686 970B 83 00 00        ...   subd #0000
2687 970E 27 03           '.    beq 03
2688 9710 7C 00 05        |..   inc 0005
2689 9713 7F 00 2E        ...   clr 002e
2690 9716 C6 05           ..    ldab #05
2691 9718 F7 00 38        ..8   stb 0038
2692 971B CC 02 33        ..3   ldd #0233
2693 971E FD 00 3B        ..;   stad 003b
2694 9721 30              0     tsx
2695 9722 6F 00           o.    clr 00,x
2696 9724 F6 0E 6D        ..m   ldab 0e6d
2697 9727 27 0C           '.    beq 0c
2698 9729 F6 00 06        ...   ldab 0006
2699 972C C1 3E           .>    cmpb #3e
2700 972E 26 05           &.    bne 05
2701 9730 C6 01           ..    ldab #01
2702 9732 30              0     tsx
2703 9733 E7 00           ..    stb 00,x
2704 9735 8D 38           .8    bsr dest 38
2705 9737 F6 0E 6D        ..m   ldab 0e6d
2706 973A 27 0C           '.    beq 0c
2707 973C 30              0     tsx
2708 973D E6 00           ..    ldab 00,x
2709 973F C1 01           ..    cmpb #01
2710 9741 26 05           &.    bne 05
2711 9743 C6 45           .E    ldab #45
2712 9745 F7 00 06        ...   stb 0006
2713 9748 F6 00 06        ...   ldab 0006
2714 974B BD D7 A0        ...   jsr d7a0
2715 974E 83 00 00        ...   subd #0000
2716 9751 27 15           '.    beq 15
2717 9753 F6 00 06        ...   ldab 0006
2718 9756 C1 09           ..    cmpb #09
2719 9758 26 02           &.    bne 02
2720 975A 8D 13           ..    bsr dest 13
2721 975C F6 00 06        ...   ldab 0006
2722 975F C1 45           .E    cmpb #45
2723 9761 26 05           &.    bne 05
2724 9763 C6 63           .c    ldab #63
2725 9765 F7 00 06        ...   stb 0006
2726 9768 5F              _     clrb
2727 9769 4F              O     clra
2728 976A FD 00 40        ..@   stad 0040
2729 976D 31              1     ins
2730 976E 39              9     rts
2731 976F F6 0E 6D        ..m   ldab 0e6d
2732 9772 C1 01           ..    cmpb #01
2733 9774 26 41           &A    bne 41
2734 9776 F6 00 06        ...   ldab 0006
2735 9779 4F              O     clra
2736 977A CE 00 0A        ...   ldx #000a
2737 977D 02              .     idiv
2738 977E C1 01           ..    cmpb #01
2739 9780 26 05           &.    bne 05
2740 9782 7C 00 06        |..   inc 0006
2741 9785 20 1B            .    bra 1b
2742 9787 F6 00 06        ...   ldab 0006
2743 978A 4F              O     clra
2744 978B CE 00 0A        ...   ldx #000a
2745 978E 02              .     idiv
2746 978F C1 02           ..    cmpb #02
2747 9791 26 0A           &.    bne 0a
2748 9793 C6 09           ..    ldab #09
2749 9795 FB 00 06        ...   addb 0006
2750 9798 F7 00 06        ...   stb 0006
2751 979B 20 05            .    bra 05
2752 979D C6 0B           ..    ldab #0b
2753 979F F7 00 06        ...   stb 0006
2754 97A2 F6 00 06        ...   ldab 0006
2755 97A5 C1 3E           .>    cmpb #3e
2756 97A7 22 07           ".    bhi 07
2757 97A9 F6 00 06        ...   ldab 0006
2758 97AC C1 0B           ..    cmpb #0b
2759 97AE 24 05           $.    bcc 05
2760 97B0 C6 0B           ..    ldab #0b
2761 97B2 F7 00 06        ...   stb 0006
2762 97B5 20 31            1    bra 31
2763 97B7 F6 00 06        ...   ldab 0006
2764 97BA CB 0A           ..    addb #0a
2765 97BC F7 00 06        ...   stb 0006
2766 97BF F6 00 06        ...   ldab 0006
2767 97C2 C1 64           .d    cmpb #64
2768 97C4 23 22           #"    bls 22
2769 97C6 F6 00 06        ...   ldab 0006
2770 97C9 CB 9C           ..    addb #9c
2771 97CB CB 01           ..    addb #01
2772 97CD F7 00 06        ...   stb 0006
2773 97D0 F6 00 06        ...   ldab 0006
2774 97D3 C1 05           ..    cmpb #05
2775 97D5 26 05           &.    bne 05
2776 97D7 C6 06           ..    ldab #06
2777 97D9 F7 00 06        ...   stb 0006
2778 97DC F6 00 06        ...   ldab 0006
2779 97DF C1 0A           ..    cmpb #0a
2780 97E1 26 05           &.    bne 05
2781 97E3 C6 01           ..    ldab #01
2782 97E5 F7 00 06        ...   stb 0006
2783 97E8 39              9     rts
2784 97E9 BD BE 4B        ..K   jsr be4b
2785 97EC CC AF E7        ...   ldd #afe7
2786 97EF BD C0 BA        ...   jsr c0ba
2787 97F2 BD F4 15        ...   jsr f415
2788 97F5 39              9     rts
2789 97F6 BD BE 4B        ..K   jsr be4b
2790 97F9 F6 00 48        ..H   ldab 0048
2791 97FC 4F              O     clra
2792 97FD BD FE 16        ...   jsr fe16
2793 9800 00              .     test
2794 9801 01              .     nop
2795 9802 00              .     test
2796 9803 03              .     fdiv
2797 9804 98 80 98        ...   eora 80
2798 9807 0E              .     cli
2799 9808 98 2B 98        .+.   eora 2b
2800 980B 48              H     asla
2801 980C 98 65 F6        .e.   eora 65
2802 980F 0C              .     clc
2803 9810 D9 4F BD        .O.   adcb 4f
2804 9813 E7 95           ..    stb 95,x
2805 9815 C6 4E           .N    ldab #4e
2806 9817 F7 0B 99        ...   stb 0b99
2807 981A C6 49           .I    ldab #49
2808 981C F7 0B 98        ...   stb 0b98
2809 981F C6 4B           .K    ldab #4b
2810 9821 F7 0B 97        ...   stb 0b97
2811 9824 C6 4C           .L    ldab #4c
2812 9826 F7 0B 96        ...   stb 0b96
2813 9829 20 55            U    bra 55
2814 982B F6 0C DA        ...   ldab 0cda
2815 982E 4F              O     clra
2816 982F BD E7 95        ...   jsr e795
2817 9832 C6 44           .D    ldab #44
2818 9834 F7 0B 99        ...   stb 0b99
2819 9837 C6 49           .I    ldab #49
2820 9839 F7 0B 98        ...   stb 0b98
2821 983C C6 4D           .M    ldab #4d
2822 983E F7 0B 97        ...   stb 0b97
2823 9841 C6 45           .E    ldab #45
2824 9843 F7 0B 96        ...   stb 0b96
2825 9846 20 38            8    bra 38
2826 9848 F6 0C DB        ...   ldab 0cdb
2827 984B 4F              O     clra
2828 984C BD E7 95        ...   jsr e795
2829 984F C6 51           .Q    ldab #51
2830 9851 F7 0B 99        ...   stb 0b99
2831 9854 C6 55           .U    ldab #55
2832 9856 F7 0B 98        ...   stb 0b98
2833 9859 C6 54           .T    ldab #54
2834 985B F7 0B 97        ...   stb 0b97
2835 985E C6 52           .R    ldab #52
2836 9860 F7 0B 96        ...   stb 0b96
2837 9863 20 1B            .    bra 1b
2838 9865 F6 0C DC        ...   ldab 0cdc
2839 9868 4F              O     clra
2840 9869 BD E7 95        ...   jsr e795
2841 986C C6 44           .D    ldab #44
2842 986E F7 0B 99        ...   stb 0b99
2843 9871 C6 4F           .O    ldab #4f
2844 9873 F7 0B 98        ...   stb 0b98
2845 9876 C6 4C           .L    ldab #4c
2846 9878 F7 0B 97        ...   stb 0b97
2847 987B C6 52           .R    ldab #52
2848 987D F7 0B 96        ...   stb 0b96
2849 9880 C6 53           .S    ldab #53
2850 9882 F7 0B 95        ...   stb 0b95
2851 9885 C6 20           .     ldab #20
2852 9887 F7 0B 94        ...   stb 0b94
2853 988A C6 20           .     ldab #20
2854 988C F7 0B 93        ...   stb 0b93
2855 988F F6 00 5D        ..]   ldab 005d
2856 9892 F7 0B 92        ...   stb 0b92
2857 9895 F6 00 5E        ..^   ldab 005e
2858 9898 F7 0B 91        ...   stb 0b91
2859 989B F6 00 5F        .._   ldab 005f
2860 989E F7 0B 90        ...   stb 0b90
2861 98A1 BD BE 01        ...   jsr be01
2862 98A4 39              9     rts
2863 98A5 BD BE 4B        ..K   jsr be4b
2864 98A8 F6 00 54        ..T   ldab 0054
2865 98AB 4F              O     clra
2866 98AC BD E7 95        ...   jsr e795
2867 98AF F6 00 5E        ..^   ldab 005e
2868 98B2 F7 0B 95        ...   stb 0b95
2869 98B5 F6 00 5F        .._   ldab 005f
2870 98B8 F7 0B 94        ...   stb 0b94
2871 98BB BD BE 01        ...   jsr be01
2872 98BE 39              9     rts
2873 98BF F6 00 09        ...   ldab 0009
2874 98C2 C1 00           ..    cmpb #00
2875 98C4 26 05           &.    bne 05
2876 98C6 BD 9E 89        ...   jsr 9e89
2877 98C9 20 33            3    bra 33
2878 98CB C1 01           ..    cmpb #01
2879 98CD 26 1E           &.    bne 1e
2880 98CF F6 00 48        ..H   ldab 0048
2881 98D2 C1 92           ..    cmpb #92
2882 98D4 26 15           &.    bne 15
2883 98D6 F6 00 1F        ...   ldab 001f
2884 98D9 C4 10           ..    andb #10
2885 98DB 26 08           &.    bne 08
2886 98DD CE 00 1F        ...   ldx #001f
2887 98E0 1C 00           ..    bset add,x 00,x
2888 98E2 10              .     sba
2889 98E3 20 06            .    bra 06
2890 98E5 CE 00 1F        ...   ldx #001f
2891 98E8 1D 00           ..    bclr add,x 00,x
2892 98EA 10              .     sba
2893 98EB 20 11            .    bra 11
2894 98ED C1 0B           ..    cmpb #0b
2895 98EF 26 0D           &.    bne 0d
2896 98F1 F6 00 1F        ...   ldab 001f
2897 98F4 C4 10           ..    andb #10
2898 98F6 27 03           '.    beq 03
2899 98F8 BD E9 2B        ..+   jsr e92b
2900 98FB BD 85 AF        ...   jsr 85af
2901 98FE 39              9     rts
2902 98FF F6 00 1F        ...   ldab 001f
2903 9902 C4 02           ..    andb #02
2904 9904 27 13           '.    beq 13
2905 9906 C6 01           ..    ldab #01
2906 9908 F7 00 48        ..H   stb 0048
2907 990B CE 00 1F        ...   ldx #001f
2908 990E 1D 00           ..    bclr add,x 00,x
2909 9910 10              .     sba
2910 9911 CE 00 1F        ...   ldx #001f
2911 9914 1D 00           ..    bclr add,x 00,x
2912 9916 02              .     idiv
2913 9917 20 67            g    bra 67
2914 9919 F6 00 09        ...   ldab 0009
2915 991C 4F              O     clra
2916 991D BD FE 32        ..2   jsr fe32
2917 9920 99 36 00        .6.   adca 36
2918 9923 00              .     test
2919 9924 99 3B 00        .;.   adca 3b
2920 9927 01              .     nop
2921 9928 99 59 00        .Y.   adca 59
2922 992B 09              .     dex
2923 992C 99 73 00        .s.   adca 73
2924 992F 01              .     nop
2925 9930 99 80 FF        ...   adca 80
2926 9933 F5 00 00        ...   bitb 0000
2927 9936 BD 9E 89        ...   jsr 9e89
2928 9939 20 45            E    bra 45
2929 993B F6 00 48        ..H   ldab 0048
2930 993E C1 92           ..    cmpb #92
2931 9940 26 15           &.    bne 15
2932 9942 F6 00 1F        ...   ldab 001f
2933 9945 C4 10           ..    andb #10
2934 9947 26 08           &.    bne 08
2935 9949 CE 00 1F        ...   ldx #001f
2936 994C 1C 00           ..    bset add,x 00,x
2937 994E 10              .     sba
2938 994F 20 06            .    bra 06
2939 9951 CE 00 1F        ...   ldx #001f
2940 9954 1D 00           ..    bclr add,x 00,x
2941 9956 10              .     sba
2942 9957 20 27            '    bra 27
2943 9959 7C 00 48        |.H   inc 0048
2944 995C F6 00 48        ..H   ldab 0048
2945 995F C1 92           ..    cmpb #92
2946 9961 23 0B           #.    bls 0b
2947 9963 C6 01           ..    ldab #01
2948 9965 F7 00 48        ..H   stb 0048
2949 9968 CE 00 1F        ...   ldx #001f
2950 996B 1D 00           ..    bclr add,x 00,x
2951 996D 10              .     sba
2952 996E BD 9E 89        ...   jsr 9e89
2953 9971 20 0D            .    bra 0d
2954 9973 F6 00 1F        ...   ldab 001f
2955 9976 C4 10           ..    andb #10
2956 9978 27 03           '.    beq 03
2957 997A BD E9 2B        ..+   jsr e92b
2958 997D BD 85 AF        ...   jsr 85af
2959 9980 39              9     rts
2960 9981 BD BE 4B        ..K   jsr be4b
2961 9984 F6 00 05        ...   ldab 0005
2962 9987 4F              O     clra
2963 9988 BD E7 95        ...   jsr e795
2964 998B C6 4D           .M    ldab #4d
2965 998D F7 0B 99        ...   stb 0b99
2966 9990 C6 4F           .O    ldab #4f
2967 9992 F7 0B 98        ...   stb 0b98
2968 9995 C6 54           .T    ldab #54
2969 9997 F7 0B 97        ...   stb 0b97
2970 999A C6 4F           .O    ldab #4f
2971 999C F7 0B 96        ...   stb 0b96
2972 999F C6 52           .R    ldab #52
2973 99A1 F7 0B 95        ...   stb 0b95
2974 99A4 C6 53           .S    ldab #53
2975 99A6 F7 0B 94        ...   stb 0b94
2976 99A9 C6 20           .     ldab #20
2977 99AB F7 0B 93        ...   stb 0b93
2978 99AE C6 20           .     ldab #20
2979 99B0 F7 0B 92        ...   stb 0b92
2980 99B3 F6 00 5E        ..^   ldab 005e
2981 99B6 F7 0B 91        ...   stb 0b91
2982 99B9 F6 00 5F        .._   ldab 005f
2983 99BC F7 0B 90        ...   stb 0b90
2984 99BF BD BE 01        ...   jsr be01
2985 99C2 39              9     rts
2986 99C3 BD BE 4B        ..K   jsr be4b
2987 99C6 F6 00 05        ...   ldab 0005
2988 99C9 4F              O     clra
2989 99CA BD E7 95        ...   jsr e795
2990 99CD C6 56           .V    ldab #56
2991 99CF F7 0B 99        ...   stb 0b99
2992 99D2 C6 45           .E    ldab #45
2993 99D4 F7 0B 98        ...   stb 0b98
2994 99D7 C6 4E           .N    ldab #4e
2995 99D9 F7 0B 97        ...   stb 0b97
2996 99DC C6 44           .D    ldab #44
2997 99DE F7 0B 96        ...   stb 0b96
2998 99E1 C6 53           .S    ldab #53
2999 99E3 F7 0B 95        ...   stb 0b95
3000 99E6 C6 20           .     ldab #20
3001 99E8 F7 0B 94        ...   stb 0b94
3002 99EB C6 20           .     ldab #20
3003 99ED F7 0B 93        ...   stb 0b93
3004 99F0 C6 20           .     ldab #20
3005 99F2 F7 0B 92        ...   stb 0b92
3006 99F5 F6 00 5E        ..^   ldab 005e
3007 99F8 F7 0B 91        ...   stb 0b91
3008 99FB F6 00 5F        .._   ldab 005f
3009 99FE F7 0B 90        ...   stb 0b90
3010 9A01 BD BE 01        ...   jsr be01
3011 9A04 39              9     rts
3012 9A05 BD BE 4B        ..K   jsr be4b
3013 9A08 FC 00 52        ..R   ldd 0052
3014 9A0B BD E7 45        ..E   jsr e745
3015 9A0E C6 4F           .O    ldab #4f
3016 9A10 F7 0B 99        ...   stb 0b99
3017 9A13 C6 44           .D    ldab #44
3018 9A15 F7 0B 98        ...   stb 0b98
3019 9A18 C6 44           .D    ldab #44
3020 9A1A F7 0B 97        ...   stb 0b97
3021 9A1D C6 53           .S    ldab #53
3022 9A1F F7 0B 96        ...   stb 0b96
3023 9A22 C6 20           .     ldab #20
3024 9A24 F7 0B 95        ...   stb 0b95
3025 9A27 C6 31           .1    ldab #31
3026 9A29 F7 0B 94        ...   stb 0b94
3027 9A2C C6 2F           ./    ldab #2f
3028 9A2E F7 0B 93        ...   stb 0b93
3029 9A31 F6 00 5D        ..]   ldab 005d
3030 9A34 F7 0B 92        ...   stb 0b92
3031 9A37 F6 00 5E        ..^   ldab 005e
3032 9A3A F7 0B 91        ...   stb 0b91
3033 9A3D F6 00 5F        .._   ldab 005f
3034 9A40 F7 0B 90        ...   stb 0b90
3035 9A43 BD BE 01        ...   jsr be01
3036 9A46 39              9     rts
3037 9A47 BD BE 4B        ..K   jsr be4b
3038 9A4A F6 00 06        ...   ldab 0006
3039 9A4D 4F              O     clra
3040 9A4E BD E7 95        ...   jsr e795
3041 9A51 F6 00 5E        ..^   ldab 005e
3042 9A54 F7 0B 99        ...   stb 0b99
3043 9A57 F6 00 5F        .._   ldab 005f
3044 9A5A F7 0B 98        ...   stb 0b98
3045 9A5D C6 20           .     ldab #20
3046 9A5F F7 0B 97        ...   stb 0b97
3047 9A62 F6 00 1F        ...   ldab 001f
3048 9A65 C4 40           .@    andb #40
3049 9A67 27 45           'E    beq 45
3050 9A69 FC 00 27        ..'   ldd 0027
3051 9A6C BD E7 45        ..E   jsr e745
3052 9A6F F6 00 5A        ..Z   ldab 005a
3053 9A72 F7 0B 96        ...   stb 0b96
3054 9A75 F6 00 5D        ..]   ldab 005d
3055 9A78 F7 0B 95        ...   stb 0b95
3056 9A7B F6 00 5E        ..^   ldab 005e
3057 9A7E F7 0B 94        ...   stb 0b94
3058 9A81 F6 00 5F        .._   ldab 005f
3059 9A84 F7 0B 93        ...   stb 0b93
3060 9A87 F6 00 19        ...   ldab 0019
3061 9A8A C4 10           ..    andb #10
3062 9A8C 27 07           '.    beq 07
3063 9A8E C6 2A           .*    ldab #2a
3064 9A90 F7 0B 92        ...   stb 0b92
3065 9A93 20 05            .    bra 05
3066 9A95 C6 20           .     ldab #20
3067 9A97 F7 0B 92        ...   stb 0b92
3068 9A9A FC 00 46        ..F   ldd 0046
3069 9A9D BD E7 45        ..E   jsr e745
3070 9AA0 F6 00 5E        ..^   ldab 005e
3071 9AA3 F7 0B 91        ...   stb 0b91
3072 9AA6 F6 00 5F        .._   ldab 005f
3073 9AA9 F7 0B 90        ...   stb 0b90
3074 9AAC 20 1E            .    bra 1e
3075 9AAE C6 58           .X    ldab #58
3076 9AB0 F7 0B 96        ...   stb 0b96
3077 9AB3 C6 58           .X    ldab #58
3078 9AB5 F7 0B 95        ...   stb 0b95
3079 9AB8 C6 58           .X    ldab #58
3080 9ABA F7 0B 94        ...   stb 0b94
3081 9ABD C6 58           .X    ldab #58
3082 9ABF F7 0B 93        ...   stb 0b93
3083 9AC2 C6 58           .X    ldab #58
3084 9AC4 F7 0B 91        ...   stb 0b91
3085 9AC7 C6 58           .X    ldab #58
3086 9AC9 F7 0B 90        ...   stb 0b90
3087 9ACC F6 00 13        ...   ldab 0013
3088 9ACF C1 01           ..    cmpb #01
3089 9AD1 23 4C           #L    bls 4c
3090 9AD3 F6 0B 91        ...   ldab 0b91
3091 9AD6 F7 0B 90        ...   stb 0b90
3092 9AD9 F6 0B 92        ...   ldab 0b92
3093 9ADC F7 0B 91        ...   stb 0b91
3094 9ADF F6 0B 93        ...   ldab 0b93
3095 9AE2 F7 0B 92        ...   stb 0b92
3096 9AE5 F6 0B 94        ...   ldab 0b94
3097 9AE8 F7 0B 93        ...   stb 0b93
3098 9AEB F6 00 13        ...   ldab 0013
3099 9AEE C1 02           ..    cmpb #02
3100 9AF0 26 07           &.    bne 07
3101 9AF2 C6 2E           ..    ldab #2e
3102 9AF4 F7 0B 94        ...   stb 0b94
3103 9AF7 20 26            &    bra 26
3104 9AF9 C1 04           ..    cmpb #04
3105 9AFB 26 0D           &.    bne 0d
3106 9AFD F6 0B 95        ...   ldab 0b95
3107 9B00 F7 0B 94        ...   stb 0b94
3108 9B03 C6 2E           ..    ldab #2e
3109 9B05 F7 0B 95        ...   stb 0b95
3110 9B08 20 15            .    bra 15
3111 9B0A C1 08           ..    cmpb #08
3112 9B0C 26 11           &.    bne 11
3113 9B0E F6 0B 95        ...   ldab 0b95
3114 9B11 F7 0B 94        ...   stb 0b94
3115 9B14 F6 0B 96        ...   ldab 0b96
3116 9B17 F7 0B 95        ...   stb 0b95
3117 9B1A C6 2E           ..    ldab #2e
3118 9B1C F7 0B 96        ...   stb 0b96
3119 9B1F F6 00 2C        ..,   ldab 002c
3120 9B22 26 3E           &>    bne 3e
3121 9B24 BD BE 69        ..i   jsr be69
3122 9B27 F6 00 13        ...   ldab 0013
3123 9B2A C1 01           ..    cmpb #01
3124 9B2C 23 2C           #,    bls 2c
3125 9B2E CE 10 28        ..(   ldx #1028
3126 9B31 1C 00           ..    bset add,x 00,x
3127 9B33 40              @     nega
3128 9B34 F6 00 1F        ...   ldab 001f
3129 9B37 C4 40           .@    andb #40
3130 9B39 27 0E           '.    beq 0e
3131 9B3B CE 00 01        ...   ldx #0001
3132 9B3E 3C              <     pshx
3133 9B3F F6 00 5F        .._   ldab 005f
3134 9B42 4F              O     clra
3135 9B43 BD BD B5        ...   jsr bdb5
3136 9B46 38              8     pulx
3137 9B47 20 0B            .    bra 0b
3138 9B49 CE 00 01        ...   ldx #0001
3139 9B4C 3C              <     pshx
3140 9B4D CC 00 58        ..X   ldd #0058
3141 9B50 BD BD B5        ...   jsr bdb5
3142 9B53 38              8     pulx
3143 9B54 CE 10 28        ..(   ldx #1028
3144 9B57 1D 00           ..    bclr add,x 00,x
3145 9B59 40              @     nega
3146 9B5A BD BE 10        ...   jsr be10
3147 9B5D C6 03           ..    ldab #03
3148 9B5F F7 00 2C        ..,   stb 002c
3149 9B62 39              9     rts
3150 9B63 BD BE 4B        ..K   jsr be4b
3151 9B66 FC 00 0D        ...   ldd 000d
3152 9B69 BD E7 45        ..E   jsr e745
3153 9B6C C6 44           .D    ldab #44
3154 9B6E F7 0B 99        ...   stb 0b99
3155 9B71 C6 53           .S    ldab #53
3156 9B73 F7 0B 98        ...   stb 0b98
3157 9B76 C6 43           .C    ldab #43
3158 9B78 F7 0B 97        ...   stb 0b97
3159 9B7B C6 4E           .N    ldab #4e
3160 9B7D F7 0B 96        ...   stb 0b96
3161 9B80 C6 54           .T    ldab #54
3162 9B82 F7 0B 95        ...   stb 0b95
3163 9B85 C6 20           .     ldab #20
3164 9B87 F7 0B 94        ...   stb 0b94
3165 9B8A F6 00 5A        ..Z   ldab 005a
3166 9B8D F7 0B 93        ...   stb 0b93
3167 9B90 F6 00 5D        ..]   ldab 005d
3168 9B93 F7 0B 92        ...   stb 0b92
3169 9B96 F6 00 5E        ..^   ldab 005e
3170 9B99 F7 0B 91        ...   stb 0b91
3171 9B9C F6 00 5F        .._   ldab 005f
3172 9B9F F7 0B 90        ...   stb 0b90
3173 9BA2 F6 00 13        ...   ldab 0013
3174 9BA5 C1 01           ..    cmpb #01
3175 9BA7 23 3C           #<    bls 3c
3176 9BA9 F6 0B 91        ...   ldab 0b91
3177 9BAC F7 0B 90        ...   stb 0b90
3178 9BAF F6 00 13        ...   ldab 0013
3179 9BB2 C1 02           ..    cmpb #02
3180 9BB4 26 07           &.    bne 07
3181 9BB6 C6 2E           ..    ldab #2e
3182 9BB8 F7 0B 91        ...   stb 0b91
3183 9BBB 20 28            (    bra 28
3184 9BBD C1 04           ..    cmpb #04
3185 9BBF 26 0D           &.    bne 0d
3186 9BC1 F6 0B 92        ...   ldab 0b92
3187 9BC4 F7 0B 91        ...   stb 0b91
3188 9BC7 C6 2E           ..    ldab #2e
3189 9BC9 F7 0B 92        ...   stb 0b92
3190 9BCC 20 17            .    bra 17
3191 9BCE C1 08           ..    cmpb #08
3192 9BD0 26 13           &.    bne 13
3193 9BD2 F6 0B 92        ...   ldab 0b92
3194 9BD5 F7 0B 91        ...   stb 0b91
3195 9BD8 F6 0B 93        ...   ldab 0b93
3196 9BDB F7 0B 92        ...   stb 0b92
3197 9BDE C6 2E           ..    ldab #2e
3198 9BE0 F7 0B 93        ...   stb 0b93
3199 9BE3 20 00            .    bra 00
3200 9BE5 F6 00 2C        ..,   ldab 002c
3201 9BE8 26 2A           &*    bne 2a
3202 9BEA BD BE 69        ..i   jsr be69
3203 9BED F6 00 13        ...   ldab 0013
3204 9BF0 C1 01           ..    cmpb #01
3205 9BF2 23 18           #.    bls 18
3206 9BF4 CE 10 28        ..(   ldx #1028
3207 9BF7 1C 00           ..    bset add,x 00,x
3208 9BF9 40              @     nega
3209 9BFA CE 00 01        ...   ldx #0001
3210 9BFD 3C              <     pshx
3211 9BFE F6 00 5F        .._   ldab 005f
3212 9C01 4F              O     clra
3213 9C02 BD BD B5        ...   jsr bdb5
3214 9C05 38              8     pulx
3215 9C06 CE 10 28        ..(   ldx #1028
3216 9C09 1D 00           ..    bclr add,x 00,x
3217 9C0B 40              @     nega
3218 9C0C BD BE 10        ...   jsr be10
3219 9C0F C6 03           ..    ldab #03
3220 9C11 F7 00 2C        ..,   stb 002c
3221 9C14 39              9     rts
3222 9C15 BD BE 4B        ..K   jsr be4b
3223 9C18 F6 00 48        ..H   ldab 0048
3224 9C1B 4F              O     clra
3225 9C1C BD FE 16        ...   jsr fe16
3226 9C1F 00              .     test
3227 9C20 00              .     test
3228 9C21 00              .     test
3229 9C22 0A              .     clv
3230 9C23 9D 29 9C        .).   jsr 29
3231 9C26 3B              ;     rti
3232 9C27 9C 53 9C        .S.   cmpx 53
3233 9C2A 6B              k     illegal
3234 9C2B 9C 83 9C        ...   cmpx 83
3235 9C2E 9B 9C B2        ...   adda 9c
3236 9C31 9C C9 9C        ...   cmpx c9
3237 9C34 E0 9C           ..    subb 9c,x
3238 9C36 F7 9D 0E        ...   stb 9d0e
3239 9C39 9D 23 F6        .#.   jsr 23
3240 9C3C 00              .     test
3241 9C3D 67 C4           g.    asr c4,x
3242 9C3F 02              .     idiv
3243 9C40 27 08           '.    beq 08
3244 9C42 CC AF 00        ...   ldd #af00
3245 9C45 BD C0 BA        ...   jsr c0ba
3246 9C48 20 06            .    bra 06
3247 9C4A CC AF 0B        ...   ldd #af0b
3248 9C4D BD C0 BA        ...   jsr c0ba
3249 9C50 7E 9D 29        ~.)   jmp 9d29
3250 9C53 F6 00 67        ..g   ldab 0067
3251 9C56 C4 10           ..    andb #10
3252 9C58 27 08           '.    beq 08
3253 9C5A CC AF 42        ..B   ldd #af42
3254 9C5D BD C0 BA        ...   jsr c0ba
3255 9C60 20 06            .    bra 06
3256 9C62 CC AF 4D        ..M   ldd #af4d
3257 9C65 BD C0 BA        ...   jsr c0ba
3258 9C68 7E 9D 29        ~.)   jmp 9d29
3259 9C6B F6 00 67        ..g   ldab 0067
3260 9C6E C4 20           .     andb #20
3261 9C70 27 08           '.    beq 08
3262 9C72 CC AF 58        ..X   ldd #af58
3263 9C75 BD C0 BA        ...   jsr c0ba
3264 9C78 20 06            .    bra 06
3265 9C7A CC AF 63        ..c   ldd #af63
3266 9C7D BD C0 BA        ...   jsr c0ba
3267 9C80 7E 9D 29        ~.)   jmp 9d29
3268 9C83 F6 00 67        ..g   ldab 0067
3269 9C86 C4 01           ..    andb #01
3270 9C88 27 08           '.    beq 08
3271 9C8A CC AE EA        ...   ldd #aeea
3272 9C8D BD C0 BA        ...   jsr c0ba
3273 9C90 20 06            .    bra 06
3274 9C92 CC AE F5        ...   ldd #aef5
3275 9C95 BD C0 BA        ...   jsr c0ba
3276 9C98 7E 9D 29        ~.)   jmp 9d29
3277 9C9B F6 00 67        ..g   ldab 0067
3278 9C9E C4 04           ..    andb #04
3279 9CA0 27 08           '.    beq 08
3280 9CA2 CC AF 16        ...   ldd #af16
3281 9CA5 BD C0 BA        ...   jsr c0ba
3282 9CA8 20 06            .    bra 06
3283 9CAA CC AF 21        ..!   ldd #af21
3284 9CAD BD C0 BA        ...   jsr c0ba
3285 9CB0 20 77            w    bra 77
3286 9CB2 F6 00 67        ..g   ldab 0067
3287 9CB5 C4 08           ..    andb #08
3288 9CB7 27 08           '.    beq 08
3289 9CB9 CC AF 2C        ..,   ldd #af2c
3290 9CBC BD C0 BA        ...   jsr c0ba
3291 9CBF 20 06            .    bra 06
3292 9CC1 CC AF 37        ..7   ldd #af37
3293 9CC4 BD C0 BA        ...   jsr c0ba
3294 9CC7 20 60            `    bra 60
3295 9CC9 F6 00 67        ..g   ldab 0067
3296 9CCC C4 40           .@    andb #40
3297 9CCE 27 08           '.    beq 08
3298 9CD0 CC AF 84        ...   ldd #af84
3299 9CD3 BD C0 BA        ...   jsr c0ba
3300 9CD6 20 06            .    bra 06
3301 9CD8 CC AF 8F        ...   ldd #af8f
3302 9CDB BD C0 BA        ...   jsr c0ba
3303 9CDE 20 49            I    bra 49
3304 9CE0 F6 0E 70        ..p   ldab 0e70
3305 9CE3 C1 01           ..    cmpb #01
3306 9CE5 26 08           &.    bne 08
3307 9CE7 CC AE BE        ...   ldd #aebe
3308 9CEA BD C0 BA        ...   jsr c0ba
3309 9CED 20 06            .    bra 06
3310 9CEF CC AE C9        ...   ldd #aec9
3311 9CF2 BD C0 BA        ...   jsr c0ba
3312 9CF5 20 32            2    bra 32
3313 9CF7 F6 0E 6F        ..o   ldab 0e6f
3314 9CFA C1 01           ..    cmpb #01
3315 9CFC 26 08           &.    bne 08
3316 9CFE CC AE D4        ...   ldd #aed4
3317 9D01 BD C0 BA        ...   jsr c0ba
3318 9D04 20 06            .    bra 06
3319 9D06 CC AE DF        ...   ldd #aedf
3320 9D09 BD C0 BA        ...   jsr c0ba
3321 9D0C 20 1B            .    bra 1b
3322 9D0E F6 00 67        ..g   ldab 0067
3323 9D11 2C 08           ,.    bge 08
3324 9D13 CC AF 6E        ..n   ldd #af6e
3325 9D16 BD C0 BA        ...   jsr c0ba
3326 9D19 20 06            .    bra 06
3327 9D1B CC AF 79        ..y   ldd #af79
3328 9D1E BD C0 BA        ...   jsr c0ba
3329 9D21 20 06            .    bra 06
3330 9D23 CC AF B0        ...   ldd #afb0
3331 9D26 BD C0 BA        ...   jsr c0ba
3332 9D29 39              9     rts
3333 9D2A BD BE 4B        ..K   jsr be4b
3334 9D2D F6 00 22        .."   ldab 0022
3335 9D30 4F              O     clra
3336 9D31 BD E7 95        ...   jsr e795
3337 9D34 F6 00 5E        ..^   ldab 005e
3338 9D37 F7 0B 99        ...   stb 0b99
3339 9D3A F6 00 5F        .._   ldab 005f
3340 9D3D F7 0B 98        ...   stb 0b98
3341 9D40 C6 20           .     ldab #20
3342 9D42 F7 0B 97        ...   stb 0b97
3343 9D45 F6 00 24        ..$   ldab 0024
3344 9D48 4F              O     clra
3345 9D49 BD E7 95        ...   jsr e795
3346 9D4C C6 50           .P    ldab #50
3347 9D4E F7 0B 96        ...   stb 0b96
3348 9D51 F6 00 5E        ..^   ldab 005e
3349 9D54 F7 0B 95        ...   stb 0b95
3350 9D57 F6 00 5F        .._   ldab 005f
3351 9D5A F7 0B 94        ...   stb 0b94
3352 9D5D C6 20           .     ldab #20
3353 9D5F F7 0B 93        ...   stb 0b93
3354 9D62 F6 00 2A        ..*   ldab 002a
3355 9D65 4F              O     clra
3356 9D66 BD E7 95        ...   jsr e795
3357 9D69 C6 46           .F    ldab #46
3358 9D6B F7 0B 92        ...   stb 0b92
3359 9D6E F6 00 5E        ..^   ldab 005e
3360 9D71 F7 0B 91        ...   stb 0b91
3361 9D74 F6 00 5F        .._   ldab 005f
3362 9D77 F7 0B 90        ...   stb 0b90
3363 9D7A BD BE 01        ...   jsr be01
3364 9D7D 39              9     rts
3365 9D7E BD BE 4B        ..K   jsr be4b
3366 9D81 F6 00 60        ..`   ldab 0060
3367 9D84 4F              O     clra
3368 9D85 C3 0A 90        ...   addd #0a90
3369 9D88 8F              .     xgdx
3370 9D89 E6 00           ..    ldab 00,x
3371 9D8B F7 0B 99        ...   stb 0b99
3372 9D8E F6 00 60        ..`   ldab 0060
3373 9D91 4F              O     clra
3374 9D92 C3 0A 91        ...   addd #0a91
3375 9D95 8F              .     xgdx
3376 9D96 E6 00           ..    ldab 00,x
3377 9D98 F7 0B 98        ...   stb 0b98
3378 9D9B F6 00 60        ..`   ldab 0060
3379 9D9E 4F              O     clra
3380 9D9F C3 0A 92        ...   addd #0a92
3381 9DA2 8F              .     xgdx
3382 9DA3 E6 00           ..    ldab 00,x
3383 9DA5 F7 0B 97        ...   stb 0b97
3384 9DA8 F6 00 60        ..`   ldab 0060
3385 9DAB 4F              O     clra
3386 9DAC C3 0A 94        ...   addd #0a94
3387 9DAF 8F              .     xgdx
3388 9DB0 E6 00           ..    ldab 00,x
3389 9DB2 F7 0B 95        ...   stb 0b95
3390 9DB5 F6 00 60        ..`   ldab 0060
3391 9DB8 4F              O     clra
3392 9DB9 C3 0A 95        ...   addd #0a95
3393 9DBC 8F              .     xgdx
3394 9DBD E6 00           ..    ldab 00,x
3395 9DBF F7 0B 94        ...   stb 0b94
3396 9DC2 F6 00 60        ..`   ldab 0060
3397 9DC5 4F              O     clra
3398 9DC6 C3 0A 96        ...   addd #0a96
3399 9DC9 8F              .     xgdx
3400 9DCA E6 00           ..    ldab 00,x
3401 9DCC F7 0B 93        ...   stb 0b93
3402 9DCF C6 20           .     ldab #20
3403 9DD1 F7 0B 92        ...   stb 0b92
3404 9DD4 C6 20           .     ldab #20
3405 9DD6 F7 0B 91        ...   stb 0b91
3406 9DD9 F6 00 54        ..T   ldab 0054
3407 9DDC 4F              O     clra
3408 9DDD C3 B4 8F        ...   addd #b48f
3409 9DE0 8F              .     xgdx
3410 9DE1 E6 00           ..    ldab 00,x
3411 9DE3 F7 0B 90        ...   stb 0b90
3412 9DE6 F6 00 38        ..8   ldab 0038
3413 9DE9 C1 03           ..    cmpb #03
3414 9DEB 24 0F           $.    bcc 0f
3415 9DED F6 00 60        ..`   ldab 0060
3416 9DF0 4F              O     clra
3417 9DF1 C3 0A 93        ...   addd #0a93
3418 9DF4 8F              .     xgdx
3419 9DF5 E6 00           ..    ldab 00,x
3420 9DF7 F7 0B 96        ...   stb 0b96
3421 9DFA 20 05            .    bra 05
3422 9DFC C6 1F           ..    ldab #1f
3423 9DFE F7 0B 96        ...   stb 0b96
3424 9E01 BD BE 01        ...   jsr be01
3425 9E04 F6 00 38        ..8   ldab 0038
3426 9E07 26 05           &.    bne 05
3427 9E09 C6 05           ..    ldab #05
3428 9E0B F7 00 38        ..8   stb 0038
3429 9E0E 39              9     rts
3430 9E0F BD BE 4B        ..K   jsr be4b
3431 9E12 F6 00 48        ..H   ldab 0048
3432 9E15 26 15           &.    bne 15
3433 9E17 F6 00 66        ..f   ldab 0066
3434 9E1A 27 08           '.    beq 08
3435 9E1C CC AF C6        ...   ldd #afc6
3436 9E1F BD C0 BA        ...   jsr c0ba
3437 9E22 20 06            .    bra 06
3438 9E24 CC AF D1        ...   ldd #afd1
3439 9E27 BD C0 BA        ...   jsr c0ba
3440 9E2A 20 5C            \    bra 5c
3441 9E2C C6 4D           .M    ldab #4d
3442 9E2E F7 0B 99        ...   stb 0b99
3443 9E31 C6 45           .E    ldab #45
3444 9E33 F7 0B 98        ...   stb 0b98
3445 9E36 C6 4E           .N    ldab #4e
3446 9E38 F7 0B 97        ...   stb 0b97
3447 9E3B C6 55           .U    ldab #55
3448 9E3D F7 0B 96        ...   stb 0b96
3449 9E40 C6 20           .     ldab #20
3450 9E42 F7 0B 95        ...   stb 0b95
3451 9E45 F6 00 48        ..H   ldab 0048
3452 9E48 CB 30           .0    addb #30
3453 9E4A F7 0B 94        ...   stb 0b94
3454 9E4D F6 00 48        ..H   ldab 0048
3455 9E50 C1 0A           ..    cmpb #0a
3456 9E52 26 05           &.    bne 05
3457 9E54 C6 30           .0    ldab #30
3458 9E56 F7 0B 94        ...   stb 0b94
3459 9E59 C6 20           .     ldab #20
3460 9E5B F7 0B 93        ...   stb 0b93
3461 9E5E C6 4F           .O    ldab #4f
3462 9E60 F7 0B 92        ...   stb 0b92
3463 9E63 F6 00 48        ..H   ldab 0048
3464 9E66 4F              O     clra
3465 9E67 C3 00 68        ..h   addd #0068
3466 9E6A 8F              .     xgdx
3467 9E6B E6 00           ..    ldab 00,x
3468 9E6D 27 0C           '.    beq 0c
3469 9E6F C6 4E           .N    ldab #4e
3470 9E71 F7 0B 91        ...   stb 0b91
3471 9E74 C6 20           .     ldab #20
3472 9E76 F7 0B 90        ...   stb 0b90
3473 9E79 20 0A            .    bra 0a
3474 9E7B C6 46           .F    ldab #46
3475 9E7D F7 0B 91        ...   stb 0b91
3476 9E80 C6 46           .F    ldab #46
3477 9E82 F7 0B 90        ...   stb 0b90
3478 9E85 BD BE 01        ...   jsr be01
3479 9E88 39              9     rts
3480 9E89 BD BE 4B        ..K   jsr be4b
3481 9E8C F6 00 48        ..H   ldab 0048
3482 9E8F 4F              O     clra
3483 9E90 BD FE 16        ...   jsr fe16
3484 9E93 00              .     test
3485 9E94 01              .     nop
3486 9E95 00              .     test
3487 9E96 2D A1           -.    blt a1
3488 9E98 C4 9E           ..    andb #9e
3489 9E9A F5 9E FE        ...   bitb 9efe
3490 9E9D 9F 07 9F        ...   sts 07
3491 9EA0 10              .     sba
3492 9EA1 9F 19 9F        ...   sts 19
3493 9EA4 3B              ;     rti
3494 9EA5 9F 44 9F        .D.   sts 44
3495 9EA8 52              R     illegal
3496 9EA9 9F 5B 9F        .[.   sts 5b
3497 9EAC 69              i     rol
3498 9EAD 9F 72 9F        .r.   sts 72
3499 9EB0 80 9F           ..    suba #9f
3500 9EB2 89 9F           ..    adca #9f
3501 9EB4 97 9F A0        ...   sta 9f
3502 9EB7 9F AE 9F        ...   sts ae
3503 9EBA B7 9F C5        ...   sta 9fc5
3504 9EBD 9F DD 9F        ...   sts dd
3505 9EC0 EB A0           ..    addb a0,x
3506 9EC2 03              .     fdiv
3507 9EC3 A0 11           ..    suba 11,x
3508 9EC5 A0 29           .)    suba 29,x
3509 9EC7 A0 37           .7    suba 37,x
3510 9EC9 A0 54           .T    suba 54,x
3511 9ECB A0 62           .b    suba 62,x
3512 9ECD A0 7F           ..    suba 7f,x
3513 9ECF A0 8D           ..    suba 8d,x
3514 9ED1 A0 96           ..    suba 96,x
3515 9ED3 A0 A4           ..    suba a4,x
3516 9ED5 A0 AD           ..    suba ad,x
3517 9ED7 A0 BC           ..    suba bc,x
3518 9ED9 A0 C5           ..    suba c5,x
3519 9EDB A0 D4           ..    suba d4,x
3520 9EDD A0 DD           ..    suba dd,x
3521 9EDF A0 EC           ..    suba ec,x
3522 9EE1 A0 F5           ..    suba f5,x
3523 9EE3 A1 04           ..    cmpa 04,x
3524 9EE5 A1 26           .&    cmpa 26,x
3525 9EE7 A1 34           .4    cmpa 34,x
3526 9EE9 A1 55           .U    cmpa 55,x
3527 9EEB A1 62           .b    cmpa 62,x
3528 9EED A1 83           ..    cmpa 83,x
3529 9EEF A1 90           ..    cmpa 90,x
3530 9EF1 A1 B1           ..    cmpa b1,x
3531 9EF3 A1 BE           ..    cmpa be,x
3532 9EF5 CC B2 90        ...   ldd #b290
3533 9EF8 BD C0 BA        ...   jsr c0ba
3534 9EFB 7E A1 C4        ~..   jmp a1c4
3535 9EFE CC 0C BC        ...   ldd #0cbc
3536 9F01 BD C0 BA        ...   jsr c0ba
3537 9F04 7E A1 C4        ~..   jmp a1c4
3538 9F07 CC B2 A2        ...   ldd #b2a2
3539 9F0A BD C0 BA        ...   jsr c0ba
3540 9F0D 7E A1 C4        ~..   jmp a1c4
3541 9F10 CC 0C CC        ...   ldd #0ccc
3542 9F13 BD C0 BA        ...   jsr c0ba
3543 9F16 7E A1 C4        ~..   jmp a1c4
3544 9F19 C6 41           .A    ldab #41
3545 9F1B F7 0B 99        ...   stb 0b99
3546 9F1E C6 55           .U    ldab #55
3547 9F20 F7 0B 98        ...   stb 0b98
3548 9F23 C6 44           .D    ldab #44
3549 9F25 F7 0B 97        ...   stb 0b97
3550 9F28 C6 54           .T    ldab #54
3551 9F2A F7 0B 96        ...   stb 0b96
3552 9F2D CE 00 00        ...   ldx #0000
3553 9F30 3C              <     pshx
3554 9F31 FC 0C E7        ...   ldd 0ce7
3555 9F34 BD A2 D4        ...   jsr a2d4
3556 9F37 38              8     pulx
3557 9F38 7E A1 C4        ~..   jmp a1c4
3558 9F3B CC B2 C6        ...   ldd #b2c6
3559 9F3E BD C0 BA        ...   jsr c0ba
3560 9F41 7E A1 C4        ~..   jmp a1c4
3561 9F44 FE 0D E9        ...   ldx 0de9
3562 9F47 3C              <     pshx
3563 9F48 FC 0D E7        ...   ldd 0de7
3564 9F4B BD A3 41        ..A   jsr a341
3565 9F4E 38              8     pulx
3566 9F4F 7E A1 C4        ~..   jmp a1c4
3567 9F52 CC B2 D8        ...   ldd #b2d8
3568 9F55 BD C0 BA        ...   jsr c0ba
3569 9F58 7E A1 C4        ~..   jmp a1c4
3570 9F5B FE 0D ED        ...   ldx 0ded
3571 9F5E 3C              <     pshx
3572 9F5F FC 0D EB        ...   ldd 0deb
3573 9F62 BD A3 41        ..A   jsr a341
3574 9F65 38              8     pulx
3575 9F66 7E A1 C4        ~..   jmp a1c4
3576 9F69 CC B2 EA        ...   ldd #b2ea
3577 9F6C BD C0 BA        ...   jsr c0ba
3578 9F6F 7E A1 C4        ~..   jmp a1c4
3579 9F72 FE 0D F1        ...   ldx 0df1
3580 9F75 3C              <     pshx
3581 9F76 FC 0D EF        ...   ldd 0def
3582 9F79 BD A3 41        ..A   jsr a341
3583 9F7C 38              8     pulx
3584 9F7D 7E A1 C4        ~..   jmp a1c4
3585 9F80 CC B2 FC        ...   ldd #b2fc
3586 9F83 BD C0 BA        ...   jsr c0ba
3587 9F86 7E A1 C4        ~..   jmp a1c4
3588 9F89 FE 0D F9        ...   ldx 0df9
3589 9F8C 3C              <     pshx
3590 9F8D FC 0D F7        ...   ldd 0df7
3591 9F90 BD A3 41        ..A   jsr a341
3592 9F93 38              8     pulx
3593 9F94 7E A1 C4        ~..   jmp a1c4
3594 9F97 CC B3 0E        ...   ldd #b30e
3595 9F9A BD C0 BA        ...   jsr c0ba
3596 9F9D 7E A1 C4        ~..   jmp a1c4
3597 9FA0 FE 0D FD        ...   ldx 0dfd
3598 9FA3 3C              <     pshx
3599 9FA4 FC 0D FB        ...   ldd 0dfb
3600 9FA7 BD A3 41        ..A   jsr a341
3601 9FAA 38              8     pulx
3602 9FAB 7E A1 C4        ~..   jmp a1c4
3603 9FAE CC B3 35        ..5   ldd #b335
3604 9FB1 BD C0 BA        ...   jsr c0ba
3605 9FB4 7E A1 C4        ~..   jmp a1c4
3606 9FB7 FE 0D F5        ...   ldx 0df5
3607 9FBA 3C              <     pshx
3608 9FBB FC 0D F3        ...   ldd 0df3
3609 9FBE BD A3 41        ..A   jsr a341
3610 9FC1 38              8     pulx
3611 9FC2 7E A1 C4        ~..   jmp a1c4
3612 9FC5 C6 24           .$    ldab #24
3613 9FC7 F7 0B 99        ...   stb 0b99
3614 9FCA C6 31           .1    ldab #31
3615 9FCC F7 0B 98        ...   stb 0b98
3616 9FCF CE 00 00        ...   ldx #0000
3617 9FD2 3C              <     pshx
3618 9FD3 FC 0C DD        ...   ldd 0cdd
3619 9FD6 BD A2 D4        ...   jsr a2d4
3620 9FD9 38              8     pulx
3621 9FDA 7E A1 C4        ~..   jmp a1c4
3622 9FDD FE 0C F5        ...   ldx 0cf5
3623 9FE0 3C              <     pshx
3624 9FE1 FC 0C F3        ...   ldd 0cf3
3625 9FE4 BD A3 41        ..A   jsr a341
3626 9FE7 38              8     pulx
3627 9FE8 7E A1 C4        ~..   jmp a1c4
3628 9FEB C6 24           .$    ldab #24
3629 9FED F7 0B 99        ...   stb 0b99
3630 9FF0 C6 32           .2    ldab #32
3631 9FF2 F7 0B 98        ...   stb 0b98
3632 9FF5 CE 00 00        ...   ldx #0000
3633 9FF8 3C              <     pshx
3634 9FF9 FC 0C DF        ...   ldd 0cdf
3635 9FFC BD A2 D4        ...   jsr a2d4
3636 9FFF 38              8     pulx
3637 A000 7E A1 C4        ~..   jmp a1c4
3638 A003 FE 0C F9        ...   ldx 0cf9
3639 A006 3C              <     pshx
3640 A007 FC 0C F7        ...   ldd 0cf7
3641 A00A BD A3 41        ..A   jsr a341
3642 A00D 38              8     pulx
3643 A00E 7E A1 C4        ~..   jmp a1c4
3644 A011 C6 24           .$    ldab #24
3645 A013 F7 0B 99        ...   stb 0b99
3646 A016 C6 35           .5    ldab #35
3647 A018 F7 0B 98        ...   stb 0b98
3648 A01B CE 00 00        ...   ldx #0000
3649 A01E 3C              <     pshx
3650 A01F FC 0C E1        ...   ldd 0ce1
3651 A022 BD A2 D4        ...   jsr a2d4
3652 A025 38              8     pulx
3653 A026 7E A1 C4        ~..   jmp a1c4
3654 A029 FE 0C FD        ...   ldx 0cfd
3655 A02C 3C              <     pshx
3656 A02D FC 0C FB        ...   ldd 0cfb
3657 A030 BD A3 41        ..A   jsr a341
3658 A033 38              8     pulx
3659 A034 7E A1 C4        ~..   jmp a1c4
3660 A037 C6 24           .$    ldab #24
3661 A039 F7 0B 99        ...   stb 0b99
3662 A03C C6 31           .1    ldab #31
3663 A03E F7 0B 98        ...   stb 0b98
3664 A041 C6 30           .0    ldab #30
3665 A043 F7 0B 97        ...   stb 0b97
3666 A046 CE 00 00        ...   ldx #0000
3667 A049 3C              <     pshx
3668 A04A FC 0C E3        ...   ldd 0ce3
3669 A04D BD A2 D4        ...   jsr a2d4
3670 A050 38              8     pulx
3671 A051 7E A1 C4        ~..   jmp a1c4
3672 A054 FE 0D 01        ...   ldx 0d01
3673 A057 3C              <     pshx
3674 A058 FC 0C FF        ...   ldd 0cff
3675 A05B BD A3 41        ..A   jsr a341
3676 A05E 38              8     pulx
3677 A05F 7E A1 C4        ~..   jmp a1c4
3678 A062 C6 24           .$    ldab #24
3679 A064 F7 0B 99        ...   stb 0b99
3680 A067 C6 32           .2    ldab #32
3681 A069 F7 0B 98        ...   stb 0b98
3682 A06C C6 30           .0    ldab #30
3683 A06E F7 0B 97        ...   stb 0b97
3684 A071 CE 00 00        ...   ldx #0000
3685 A074 3C              <     pshx
3686 A075 FC 0C E5        ...   ldd 0ce5
3687 A078 BD A2 D4        ...   jsr a2d4
3688 A07B 38              8     pulx
3689 A07C 7E A1 C4        ~..   jmp a1c4
3690 A07F FE 0D 05        ...   ldx 0d05
3691 A082 3C              <     pshx
3692 A083 FC 0D 03        ...   ldd 0d03
3693 A086 BD A3 41        ..A   jsr a341
3694 A089 38              8     pulx
3695 A08A 7E A1 C4        ~..   jmp a1c4
3696 A08D CC B3 B7        ...   ldd #b3b7
3697 A090 BD C0 BA        ...   jsr c0ba
3698 A093 7E A1 C4        ~..   jmp a1c4
3699 A096 CE 00 01        ...   ldx #0001
3700 A099 3C              <     pshx
3701 A09A FC 0C F1        ...   ldd 0cf1
3702 A09D BD A2 D4        ...   jsr a2d4
3703 A0A0 38              8     pulx
3704 A0A1 7E A1 C4        ~..   jmp a1c4
3705 A0A4 CC B3 CE        ...   ldd #b3ce
3706 A0A7 BD C0 BA        ...   jsr c0ba
3707 A0AA 7E A1 C4        ~..   jmp a1c4
3708 A0AD FE 0C E9        ...   ldx 0ce9
3709 A0B0 3C              <     pshx
3710 A0B1 F6 0C DC        ...   ldab 0cdc
3711 A0B4 4F              O     clra
3712 A0B5 BD A3 1A        ...   jsr a31a
3713 A0B8 38              8     pulx
3714 A0B9 7E A1 C4        ~..   jmp a1c4
3715 A0BC CC B3 E0        ...   ldd #b3e0
3716 A0BF BD C0 BA        ...   jsr c0ba
3717 A0C2 7E A1 C4        ~..   jmp a1c4
3718 A0C5 FE 0C EB        ...   ldx 0ceb
3719 A0C8 3C              <     pshx
3720 A0C9 F6 0C DB        ...   ldab 0cdb
3721 A0CC 4F              O     clra
3722 A0CD BD A3 1A        ...   jsr a31a
3723 A0D0 38              8     pulx
3724 A0D1 7E A1 C4        ~..   jmp a1c4
3725 A0D4 CC B3 F2        ...   ldd #b3f2
3726 A0D7 BD C0 BA        ...   jsr c0ba
3727 A0DA 7E A1 C4        ~..   jmp a1c4
3728 A0DD FE 0C ED        ...   ldx 0ced
3729 A0E0 3C              <     pshx
3730 A0E1 F6 0C DA        ...   ldab 0cda
3731 A0E4 4F              O     clra
3732 A0E5 BD A3 1A        ...   jsr a31a
3733 A0E8 38              8     pulx
3734 A0E9 7E A1 C4        ~..   jmp a1c4
3735 A0EC CC B4 04        ...   ldd #b404
3736 A0EF BD C0 BA        ...   jsr c0ba
3737 A0F2 7E A1 C4        ~..   jmp a1c4
3738 A0F5 FE 0C EF        ...   ldx 0cef
3739 A0F8 3C              <     pshx
3740 A0F9 F6 0C D9        ...   ldab 0cd9
3741 A0FC 4F              O     clra
3742 A0FD BD A3 1A        ...   jsr a31a
3743 A100 38              8     pulx
3744 A101 7E A1 C4        ~..   jmp a1c4
3745 A104 C6 57           .W    ldab #57
3746 A106 F7 0B 99        ...   stb 0b99
3747 A109 C6 53           .S    ldab #53
3748 A10B F7 0B 98        ...   stb 0b98
3749 A10E C6 4E           .N    ldab #4e
3750 A110 F7 0B 97        ...   stb 0b97
3751 A113 C6 4B           .K    ldab #4b
3752 A115 F7 0B 96        ...   stb 0b96
3753 A118 CE 00 00        ...   ldx #0000
3754 A11B 3C              <     pshx
3755 A11C FC 0D 07        ...   ldd 0d07
3756 A11F BD A2 D4        ...   jsr a2d4
3757 A122 38              8     pulx
3758 A123 7E A1 C4        ~..   jmp a1c4
3759 A126 FE 0D 11        ...   ldx 0d11
3760 A129 3C              <     pshx
3761 A12A FC 0D 0F        ...   ldd 0d0f
3762 A12D BD A3 41        ..A   jsr a341
3763 A130 38              8     pulx
3764 A131 7E A1 C4        ~..   jmp a1c4
3765 A134 C6 53           .S    ldab #53
3766 A136 F7 0B 99        ...   stb 0b99
3767 A139 C6 48           .H    ldab #48
3768 A13B F7 0B 98        ...   stb 0b98
3769 A13E C6 50           .P    ldab #50
3770 A140 F7 0B 97        ...   stb 0b97
3771 A143 C6 52           .R    ldab #52
3772 A145 F7 0B 96        ...   stb 0b96
3773 A148 CE 00 00        ...   ldx #0000
3774 A14B 3C              <     pshx
3775 A14C FC 0D 09        ...   ldd 0d09
3776 A14F BD A2 D4        ...   jsr a2d4
3777 A152 38              8     pulx
3778 A153 20 6F            o    bra 6f
3779 A155 FE 0D 15        ...   ldx 0d15
3780 A158 3C              <     pshx
3781 A159 FC 0D 13        ...   ldd 0d13
3782 A15C BD A3 41        ..A   jsr a341
3783 A15F 38              8     pulx
3784 A160 20 62            b    bra 62
3785 A162 C6 50           .P    ldab #50
3786 A164 F7 0B 99        ...   stb 0b99
3787 A167 C6 52           .R    ldab #52
3788 A169 F7 0B 98        ...   stb 0b98
3789 A16C C6 4D           .M    ldab #4d
3790 A16E F7 0B 97        ...   stb 0b97
3791 A171 C6 4F           .O    ldab #4f
3792 A173 F7 0B 96        ...   stb 0b96
3793 A176 CE 00 00        ...   ldx #0000
3794 A179 3C              <     pshx
3795 A17A FC 0D 0B        ...   ldd 0d0b
3796 A17D BD A2 D4        ...   jsr a2d4
3797 A180 38              8     pulx
3798 A181 20 41            A    bra 41
3799 A183 FE 0D 19        ...   ldx 0d19
3800 A186 3C              <     pshx
3801 A187 FC 0D 17        ...   ldd 0d17
3802 A18A BD A3 41        ..A   jsr a341
3803 A18D 38              8     pulx
3804 A18E 20 34            4    bra 34
3805 A190 C6 46           .F    ldab #46
3806 A192 F7 0B 99        ...   stb 0b99
3807 A195 C6 52           .R    ldab #52
3808 A197 F7 0B 98        ...   stb 0b98
3809 A19A C6 45           .E    ldab #45
3810 A19C F7 0B 97        ...   stb 0b97
3811 A19F C6 45           .E    ldab #45
3812 A1A1 F7 0B 96        ...   stb 0b96
3813 A1A4 CE 00 00        ...   ldx #0000
3814 A1A7 3C              <     pshx
3815 A1A8 FC 0D 0D        ...   ldd 0d0d
3816 A1AB BD A2 D4        ...   jsr a2d4
3817 A1AE 38              8     pulx
3818 A1AF 20 13            .    bra 13
3819 A1B1 FE 0D 1D        ...   ldx 0d1d
3820 A1B4 3C              <     pshx
3821 A1B5 FC 0D 1B        ...   ldd 0d1b
3822 A1B8 BD A3 41        ..A   jsr a341
3823 A1BB 38              8     pulx
3824 A1BC 20 06            .    bra 06
3825 A1BE CC B4 84        ...   ldd #b484
3826 A1C1 BD C0 BA        ...   jsr c0ba
3827 A1C4 F6 00 48        ..H   ldab 0048
3828 A1C7 C1 2E           ..    cmpb #2e
3829 A1C9 23 74           #t    bls 74
3830 A1CB F6 00 48        ..H   ldab 0048
3831 A1CE C1 92           ..    cmpb #92
3832 A1D0 24 6D           $m    bcc 6d
3833 A1D2 F6 00 48        ..H   ldab 0048
3834 A1D5 4F              O     clra
3835 A1D6 05              .     asld
3836 A1D7 C3 08 6C        ..l   addd #086c
3837 A1DA 8F              .     xgdx
3838 A1DB EC 00           ..    ldd 00,x
3839 A1DD C4 80           ..    andb #80
3840 A1DF 26 0E           &.    bne 0e
3841 A1E1 7C 00 48        |.H   inc 0048
3842 A1E4 F6 00 48        ..H   ldab 0048
3843 A1E7 C1 92           ..    cmpb #92
3844 A1E9 26 02           &.    bne 02
3845 A1EB 20 02            .    bra 02
3846 A1ED 20 E3            .    bra e3
3847 A1EF F6 00 48        ..H   ldab 0048
3848 A1F2 4F              O     clra
3849 A1F3 C3 FF D2        ...   addd #ffd2
3850 A1F6 BD E7 95        ...   jsr e795
3851 A1F9 F6 00 5E        ..^   ldab 005e
3852 A1FC F7 0B 99        ...   stb 0b99
3853 A1FF F6 00 5F        .._   ldab 005f
3854 A202 F7 0B 98        ...   stb 0b98
3855 A205 F6 00 48        ..H   ldab 0048
3856 A208 4F              O     clra
3857 A209 05              .     asld
3858 A20A C3 0C C3        ...   addd #0cc3
3859 A20D 8F              .     xgdx
3860 A20E EC 00           ..    ldd 00,x
3861 A210 BD E7 45        ..E   jsr e745
3862 A213 F6 00 57        ..W   ldab 0057
3863 A216 F7 0B 94        ...   stb 0b94
3864 A219 F6 00 5A        ..Z   ldab 005a
3865 A21C F7 0B 93        ...   stb 0b93
3866 A21F F6 00 5D        ..]   ldab 005d
3867 A222 F7 0B 92        ...   stb 0b92
3868 A225 F6 00 5E        ..^   ldab 005e
3869 A228 F7 0B 91        ...   stb 0b91
3870 A22B F6 00 5F        .._   ldab 005f
3871 A22E F7 0B 90        ...   stb 0b90
3872 A231 5F              _     clrb
3873 A232 4F              O     clra
3874 A233 8D 27           .'    bsr dest 27
3875 A235 F6 00 48        ..H   ldab 0048
3876 A238 C1 92           ..    cmpb #92
3877 A23A 26 03           &.    bne 03
3878 A23C 7F 00 2C        ..,   clr 002c
3879 A23F F6 00 48        ..H   ldab 0048
3880 A242 C1 92           ..    cmpb #92
3881 A244 26 15           &.    bne 15
3882 A246 F6 00 1F        ...   ldab 001f
3883 A249 C4 10           ..    andb #10
3884 A24B 27 08           '.    beq 08
3885 A24D CC AF 9A        ...   ldd #af9a
3886 A250 BD C0 BA        ...   jsr c0ba
3887 A253 20 06            .    bra 06
3888 A255 CC AF A5        ...   ldd #afa5
3889 A258 BD C0 BA        ...   jsr c0ba
3890 A25B 39              9     rts
3891 A25C 37              7     pshb
3892 A25D 36              6     psha
3893 A25E F6 00 2C        ..,   ldab 002c
3894 A261 26 6F           &o    bne 6f
3895 A263 BD BE 69        ..i   jsr be69
3896 A266 30              0     tsx
3897 A267 E6 01           ..    ldab 01,x
3898 A269 27 5F           '_    beq 5f
3899 A26B F6 00 13        ...   ldab 0013
3900 A26E C1 01           ..    cmpb #01
3901 A270 23 58           #X    bls 58
3902 A272 CE 10 28        ..(   ldx #1028
3903 A275 1C 00           ..    bset add,x 00,x
3904 A277 40              @     nega
3905 A278 CE 00 01        ...   ldx #0001
3906 A27B 3C              <     pshx
3907 A27C F6 0B 90        ...   ldab 0b90
3908 A27F 4F              O     clra
3909 A280 BD BD B5        ...   jsr bdb5
3910 A283 38              8     pulx
3911 A284 CE 10 28        ..(   ldx #1028
3912 A287 1D 00           ..    bclr add,x 00,x
3913 A289 40              @     nega
3914 A28A F6 0B 91        ...   ldab 0b91
3915 A28D F7 0B 90        ...   stb 0b90
3916 A290 F6 00 13        ...   ldab 0013
3917 A293 C1 02           ..    cmpb #02
3918 A295 26 07           &.    bne 07
3919 A297 C6 2E           ..    ldab #2e
3920 A299 F7 0B 91        ...   stb 0b91
3921 A29C 20 2C            ,    bra 2c
3922 A29E F6 00 13        ...   ldab 0013
3923 A2A1 C1 04           ..    cmpb #04
3924 A2A3 26 0D           &.    bne 0d
3925 A2A5 F6 0B 92        ...   ldab 0b92
3926 A2A8 F7 0B 91        ...   stb 0b91
3927 A2AB C6 2E           ..    ldab #2e
3928 A2AD F7 0B 92        ...   stb 0b92
3929 A2B0 20 18            .    bra 18
3930 A2B2 F6 00 13        ...   ldab 0013
3931 A2B5 C1 08           ..    cmpb #08
3932 A2B7 26 11           &.    bne 11
3933 A2B9 F6 0B 92        ...   ldab 0b92
3934 A2BC F7 0B 91        ...   stb 0b91
3935 A2BF F6 0B 93        ...   ldab 0b93
3936 A2C2 F7 0B 92        ...   stb 0b92
3937 A2C5 C6 2E           ..    ldab #2e
3938 A2C7 F7 0B 93        ...   stb 0b93
3939 A2CA BD BE 10        ...   jsr be10
3940 A2CD C6 03           ..    ldab #03
3941 A2CF F7 00 2C        ..,   stb 002c
3942 A2D2 38              8     pulx
3943 A2D3 39              9     rts
3944 A2D4 37              7     pshb
3945 A2D5 36              6     psha
3946 A2D6 30              0     tsx
3947 A2D7 EC 00           ..    ldd 00,x
3948 A2D9 BD E7 45        ..E   jsr e745
3949 A2DC F6 00 57        ..W   ldab 0057
3950 A2DF F7 0B 94        ...   stb 0b94
3951 A2E2 F6 00 5A        ..Z   ldab 005a
3952 A2E5 F7 0B 93        ...   stb 0b93
3953 A2E8 F6 00 5D        ..]   ldab 005d
3954 A2EB F7 0B 92        ...   stb 0b92
3955 A2EE F6 00 5E        ..^   ldab 005e
3956 A2F1 F7 0B 91        ...   stb 0b91
3957 A2F4 F6 00 5F        .._   ldab 005f
3958 A2F7 F7 0B 90        ...   stb 0b90
3959 A2FA 30              0     tsx
3960 A2FB E6 05           ..    ldab 05,x
3961 A2FD 27 14           '.    beq 14
3962 A2FF F6 00 17        ...   ldab 0017
3963 A302 C4 08           ..    andb #08
3964 A304 26 05           &.    bne 05
3965 A306 C6 24           .$    ldab #24
3966 A308 F7 0B 95        ...   stb 0b95
3967 A30B CC 00 01        ...   ldd #0001
3968 A30E BD A2 5C        ..\   jsr a25c
3969 A311 20 05            .    bra 05
3970 A313 5F              _     clrb
3971 A314 4F              O     clra
3972 A315 BD A2 5C        ..\   jsr a25c
3973 A318 38              8     pulx
3974 A319 39              9     rts
3975 A31A 37              7     pshb
3976 A31B 36              6     psha
3977 A31C 30              0     tsx
3978 A31D E6 01           ..    ldab 01,x
3979 A31F 4F              O     clra
3980 A320 BD E7 95        ...   jsr e795
3981 A323 F6 00 5D        ..]   ldab 005d
3982 A326 F7 0B 99        ...   stb 0b99
3983 A329 F6 00 5E        ..^   ldab 005e
3984 A32C F7 0B 98        ...   stb 0b98
3985 A32F F6 00 5F        .._   ldab 005f
3986 A332 F7 0B 97        ...   stb 0b97
3987 A335 CE 00 01        ...   ldx #0001
3988 A338 3C              <     pshx
3989 A339 30              0     tsx
3990 A33A EC 06           ..    ldd 06,x
3991 A33C 8D 96           ..    bsr dest 96
3992 A33E 38              8     pulx
3993 A33F 38              8     pulx
3994 A340 39              9     rts
3995 A341 38              8     pulx
3996 A342 37              7     pshb
3997 A343 36              6     psha
3998 A344 3C              <     pshx
3999 A345 30              0     tsx
4000 A346 EC 04           ..    ldd 04,x
4001 A348 37              7     pshb
4002 A349 36              6     psha
4003 A34A EC 02           ..    ldd 02,x
4004 A34C BD E6 21        ..!   jsr e621
4005 A34F 38              8     pulx
4006 A350 C6 20           .     ldab #20
4007 A352 F7 0B 99        ...   stb 0b99
4008 A355 F6 00 17        ...   ldab 0017
4009 A358 C4 08           ..    andb #08
4010 A35A 26 05           &.    bne 05
4011 A35C C6 24           .$    ldab #24
4012 A35E F7 0B 98        ...   stb 0b98
4013 A361 CC 00 01        ...   ldd #0001
4014 A364 BD A2 5C        ..\   jsr a25c
4015 A367 38              8     pulx
4016 A368 31              1     ins
4017 A369 31              1     ins
4018 A36A 6E 00           n.    jmp 00,x
4019 A36C BD BE 4B        ..K   jsr be4b
4020 A36F CC AF DC        ...   ldd #afdc
4021 A372 BD C0 BA        ...   jsr c0ba
4022 A375 CC 01 F4        ...   ldd #01f4
4023 A378 BD E5 71        ..q   jsr e571
4024 A37B 39              9     rts
4025 A37C FC 00 52        ..R   ldd 0052
4026 A37F FD 0B B5        ...   stad 0bb5
4027 A382 8D E8           ..    bsr dest e8
4028 A384 39              9     rts
4029 A385 F6 00 1F        ...   ldab 001f
4030 A388 C4 40           .@    andb #40
4031 A38A 27 73           's    beq 73
4032 A38C F6 00 06        ...   ldab 0006
4033 A38F 4F              O     clra
4034 A390 05              .     asld
4035 A391 C3 08 00        ...   addd #0800
4036 A394 8F              .     xgdx
4037 A395 EC 00           ..    ldd 00,x
4038 A397 5F              _     clrb
4039 A398 84 C0           ..    anda #c0
4040 A39A FA 00 28        ..(   orb 0028
4041 A39D BA 00 27        ..'   ora 0027
4042 A3A0 FD 00 27        ..'   stad 0027
4043 A3A3 FC 00 27        ..'   ldd 0027
4044 A3A6 37              7     pshb
4045 A3A7 36              6     psha
4046 A3A8 F6 00 06        ...   ldab 0006
4047 A3AB 4F              O     clra
4048 A3AC 05              .     asld
4049 A3AD C3 08 00        ...   addd #0800
4050 A3B0 38              8     pulx
4051 A3B1 8F              .     xgdx
4052 A3B2 ED 00           ..    stad 00,x
4053 A3B4 FC 00 27        ..'   ldd 0027
4054 A3B7 43              C     coma
4055 A3B8 53              S     comb
4056 A3B9 37              7     pshb
4057 A3BA 36              6     psha
4058 A3BB F6 00 06        ...   ldab 0006
4059 A3BE 4F              O     clra
4060 A3BF 05              .     asld
4061 A3C0 C3 0B F1        ...   addd #0bf1
4062 A3C3 38              8     pulx
4063 A3C4 8F              .     xgdx
4064 A3C5 ED 00           ..    stad 00,x
4065 A3C7 F6 00 06        ...   ldab 0006
4066 A3CA 4F              O     clra
4067 A3CB 05              .     asld
4068 A3CC C3 08 C8        ...   addd #08c8
4069 A3CF 8F              .     xgdx
4070 A3D0 EC 00           ..    ldd 00,x
4071 A3D2 C4 80           ..    andb #80
4072 A3D4 84 F7           ..    anda #f7
4073 A3D6 FA 00 47        ..G   orb 0047
4074 A3D9 BA 00 46        ..F   ora 0046
4075 A3DC FD 00 46        ..F   stad 0046
4076 A3DF F6 00 19        ...   ldab 0019
4077 A3E2 C4 10           ..    andb #10
4078 A3E4 27 06           '.    beq 06
4079 A3E6 CE 00 46        ..F   ldx #0046
4080 A3E9 1C 00           ..    bset add,x 00,x
4081 A3EB 08              .     inx
4082 A3EC FC 00 46        ..F   ldd 0046
4083 A3EF 37              7     pshb
4084 A3F0 36              6     psha
4085 A3F1 F6 00 06        ...   ldab 0006
4086 A3F4 4F              O     clra
4087 A3F5 05              .     asld
4088 A3F6 C3 08 C8        ...   addd #08c8
4089 A3F9 38              8     pulx
4090 A3FA 8F              .     xgdx
4091 A3FB ED 00           ..    stad 00,x
4092 A3FD 20 22            "    bra 22
4093 A3FF CC 2A FF        .*.   ldd #2aff
4094 A402 37              7     pshb
4095 A403 36              6     psha
4096 A404 F6 00 06        ...   ldab 0006
4097 A407 4F              O     clra
4098 A408 05              .     asld
4099 A409 C3 08 00        ...   addd #0800
4100 A40C 38              8     pulx
4101 A40D 8F              .     xgdx
4102 A40E ED 00           ..    stad 00,x
4103 A410 CC D5 00        ...   ldd #d500
4104 A413 37              7     pshb
4105 A414 36              6     psha
4106 A415 F6 00 06        ...   ldab 0006
4107 A418 4F              O     clra
4108 A419 05              .     asld
4109 A41A C3 0B F1        ...   addd #0bf1
4110 A41D 38              8     pulx
4111 A41E 8F              .     xgdx
4112 A41F ED 00           ..    stad 00,x
4113 A421 F6 00 1F        ...   ldab 001f
4114 A424 C4 40           .@    andb #40
4115 A426 27 26           '&    beq 26
4116 A428 F6 00 06        ...   ldab 0006
4117 A42B 4F              O     clra
4118 A42C 05              .     asld
4119 A42D C3 08 00        ...   addd #0800
4120 A430 8F              .     xgdx
4121 A431 EC 00           ..    ldd 00,x
4122 A433 C4 FF           ..    andb #ff
4123 A435 84 3F           .?    anda #3f
4124 A437 FD 00 27        ..'   stad 0027
4125 A43A F6 00 06        ...   ldab 0006
4126 A43D 4F              O     clra
4127 A43E 05              .     asld
4128 A43F C3 08 C8        ...   addd #08c8
4129 A442 8F              .     xgdx
4130 A443 EC 00           ..    ldd 00,x
4131 A445 C4 7F           ..    andb #7f
4132 A447 4F              O     clra
4133 A448 FD 00 46        ..F   stad 0046
4134 A44B BD A3 6C        ..l   jsr a36c
4135 A44E 39              9     rts
4136 A44F FC 00 0D        ...   ldd 000d
4137 A452 FD 0B B7        ...   stad 0bb7
4138 A455 BD A3 6C        ..l   jsr a36c
4139 A458 39              9     rts
4140 A459 3C              <     pshx
4141 A45A F6 00 67        ..g   ldab 0067
4142 A45D C4 02           ..    andb #02
4143 A45F 27 08           '.    beq 08
4144 A461 CE 00 67        ..g   ldx #0067
4145 A464 1D 00           ..    bclr add,x 00,x
4146 A466 4D              M     tsta
4147 A467 20 0C            .    bra 0c
4148 A469 CE 00 67        ..g   ldx #0067
4149 A46C 1D 00           ..    bclr add,x 00,x
4150 A46E 10              .     sba
4151 A46F CE 00 67        ..g   ldx #0067
4152 A472 1D 00           ..    bclr add,x 00,x
4153 A474 20 F6            .    bra f6
4154 A476 00              .     test
4155 A477 67 C4           g.    asr c4,x
4156 A479 10              .     sba
4157 A47A 26 06           &.    bne 06
4158 A47C CE 00 67        ..g   ldx #0067
4159 A47F 1D 00           ..    bclr add,x 00,x
4160 A481 20 F6            .    bra f6
4161 A483 00              .     test
4162 A484 67 C4           g.    asr c4,x
4163 A486 01              .     nop
4164 A487 27 14           '.    beq 14
4165 A489 CE 00 67        ..g   ldx #0067
4166 A48C 1D 00           ..    bclr add,x 00,x
4167 A48E 02              .     idiv
4168 A48F CE 00 67        ..g   ldx #0067
4169 A492 1D 00           ..    bclr add,x 00,x
4170 A494 10              .     sba
4171 A495 CE 00 67        ..g   ldx #0067
4172 A498 1D 00           ..    bclr add,x 00,x
4173 A49A 20 20                 bra 20
4174 A49C 06              .     tap
4175 A49D CE 00 67        ..g   ldx #0067
4176 A4A0 1D 00           ..    bclr add,x 00,x
4177 A4A2 08              .     inx
4178 A4A3 F6 00 67        ..g   ldab 0067
4179 A4A6 C4 04           ..    andb #04
4180 A4A8 27 12           '.    beq 12
4181 A4AA CE 00 67        ..g   ldx #0067
4182 A4AD 1D 00           ..    bclr add,x 00,x
4183 A4AF 02              .     idiv
4184 A4B0 CE 00 67        ..g   ldx #0067
4185 A4B3 1D 00           ..    bclr add,x 00,x
4186 A4B5 10              .     sba
4187 A4B6 CE 00 67        ..g   ldx #0067
4188 A4B9 1D 00           ..    bclr add,x 00,x
4189 A4BB 20 F6            .    bra f6
4190 A4BD 00              .     test
4191 A4BE 67 C4           g.    asr c4,x
4192 A4C0 08              .     inx
4193 A4C1 26 06           &.    bne 06
4194 A4C3 CE 00 67        ..g   ldx #0067
4195 A4C6 1D 00           ..    bclr add,x 00,x
4196 A4C8 40              @     nega
4197 A4C9 F6 00 67        ..g   ldab 0067
4198 A4CC F7 0B C0        ...   stb 0bc0
4199 A4CF F6 0E 70        ..p   ldab 0e70
4200 A4D2 F7 0E 6E        ..n   stb 0e6e
4201 A4D5 F6 0E 6D        ..m   ldab 0e6d
4202 A4D8 26 39           &9    bne 39
4203 A4DA F6 0E 6F        ..o   ldab 0e6f
4204 A4DD 27 34           '4    beq 34
4205 A4DF 7F 00 06        ...   clr 0006
4206 A4E2 F6 00 06        ...   ldab 0006
4207 A4E5 C1 3F           .?    cmpb #3f
4208 A4E7 24 2A           $*    bcc 2a
4209 A4E9 F6 00 06        ...   ldab 0006
4210 A4EC 4F              O     clra
4211 A4ED CE 00 05        ...   ldx #0005
4212 A4F0 02              .     idiv
4213 A4F1 5D              ]     tstb
4214 A4F2 27 1A           '.    beq 1a
4215 A4F4 F6 00 06        ...   ldab 0006
4216 A4F7 4F              O     clra
4217 A4F8 C3 08 00        ...   addd #0800
4218 A4FB 30              0     tsx
4219 A4FC ED 00           ..    stad 00,x
4220 A4FE EC 00           ..    ldd 00,x
4221 A500 37              7     pshb
4222 A501 36              6     psha
4223 A502 F6 00 06        ...   ldab 0006
4224 A505 4F              O     clra
4225 A506 05              .     asld
4226 A507 C3 08 C8        ...   addd #08c8
4227 A50A 38              8     pulx
4228 A50B 8F              .     xgdx
4229 A50C ED 00           ..    stad 00,x
4230 A50E 7C 00 06        |..   inc 0006
4231 A511 20 CF            .    bra cf
4232 A513 F6 0E 6F        ..o   ldab 0e6f
4233 A516 F7 0E 6D        ..m   stb 0e6d
4234 A519 BD A3 6C        ..l   jsr a36c
4235 A51C 38              8     pulx
4236 A51D 39              9     rts
4237 A51E F6 00 22        .."   ldab 0022
4238 A521 4F              O     clra
4239 A522 BD FE 16        ...   jsr fe16
4240 A525 00              .     test
4241 A526 01              .     nop
4242 A527 00              .     test
4243 A528 04              .     lsrd
4244 A529 A5 79           .y    bita 79,x
4245 A52B A5 35           .5    bita 35,x
4246 A52D A5 43           .C    bita 43,x
4247 A52F A5 51           .Q    bita 51,x
4248 A531 A5 5F           ._    bita 5f,x
4249 A533 A5 6D           .m    bita 6d,x
4250 A535 F6 00 24        ..$   ldab 0024
4251 A538 F7 0B AF        ...   stb 0baf
4252 A53B F6 00 2A        ..*   ldab 002a
4253 A53E F7 0B B4        ...   stb 0bb4
4254 A541 20 36            6    bra 36
4255 A543 F6 00 24        ..$   ldab 0024
4256 A546 F7 0B AE        ...   stb 0bae
4257 A549 F6 00 2A        ..*   ldab 002a
4258 A54C F7 0B B3        ...   stb 0bb3
4259 A54F 20 28            (    bra 28
4260 A551 F6 00 24        ..$   ldab 0024
4261 A554 F7 0B AD        ...   stb 0bad
4262 A557 F6 00 2A        ..*   ldab 002a
4263 A55A F7 0B B2        ...   stb 0bb2
4264 A55D 20 1A            .    bra 1a
4265 A55F F6 00 24        ..$   ldab 0024
4266 A562 F7 0B AC        ...   stb 0bac
4267 A565 F6 00 2A        ..*   ldab 002a
4268 A568 F7 0B B1        ...   stb 0bb1
4269 A56B 20 0C            .    bra 0c
4270 A56D F6 00 24        ..$   ldab 0024
4271 A570 F7 0B AB        ...   stb 0bab
4272 A573 F6 00 2A        ..*   ldab 002a
4273 A576 F7 0B B0        ...   stb 0bb0
4274 A579 BD A3 6C        ..l   jsr a36c
4275 A57C 39              9     rts
4276 A57D 7F 00 54        ..T   clr 0054
4277 A580 F6 00 54        ..T   ldab 0054
4278 A583 C1 FF           ..    cmpb #ff
4279 A585 24 1B           $.    bcc 1b
4280 A587 F6 00 54        ..T   ldab 0054
4281 A58A 4F              O     clra
4282 A58B C3 0A 90        ...   addd #0a90
4283 A58E 8F              .     xgdx
4284 A58F E6 00           ..    ldab 00,x
4285 A591 37              7     pshb
4286 A592 F6 00 54        ..T   ldab 0054
4287 A595 4F              O     clra
4288 A596 C3 09 90        ...   addd #0990
4289 A599 8F              .     xgdx
4290 A59A 33              3     pulb
4291 A59B E7 00           ..    stb 00,x
4292 A59D 7C 00 54        |.T   inc 0054
4293 A5A0 20 DE            .    bra de
4294 A5A2 F6 00 61        ..a   ldab 0061
4295 A5A5 F7 0B BF        ...   stb 0bbf
4296 A5A8 BD A3 6C        ..l   jsr a36c
4297 A5AB 39              9     rts
4298 A5AC 7F 00 54        ..T   clr 0054
4299 A5AF F6 00 54        ..T   ldab 0054
4300 A5B2 C1 10           ..    cmpb #10
4301 A5B4 24 1B           $.    bcc 1b
4302 A5B6 F6 00 54        ..T   ldab 0054
4303 A5B9 4F              O     clra
4304 A5BA C3 0A 90        ...   addd #0a90
4305 A5BD 8F              .     xgdx
4306 A5BE E6 00           ..    ldab 00,x
4307 A5C0 37              7     pshb
4308 A5C1 F6 00 54        ..T   ldab 0054
4309 A5C4 4F              O     clra
4310 A5C5 C3 0C B9        ...   addd #0cb9
4311 A5C8 8F              .     xgdx
4312 A5C9 33              3     pulb
4313 A5CA E7 00           ..    stb 00,x
4314 A5CC 7C 00 54        |.T   inc 0054
4315 A5CF 20 DE            .    bra de
4316 A5D1 BD A3 6C        ..l   jsr a36c
4317 A5D4 39              9     rts
4318 A5D5 7F 00 54        ..T   clr 0054
4319 A5D8 F6 00 54        ..T   ldab 0054
4320 A5DB C1 10           ..    cmpb #10
4321 A5DD 24 1B           $.    bcc 1b
4322 A5DF F6 00 54        ..T   ldab 0054
4323 A5E2 4F              O     clra
4324 A5E3 C3 0A 90        ...   addd #0a90
4325 A5E6 8F              .     xgdx
4326 A5E7 E6 00           ..    ldab 00,x
4327 A5E9 37              7     pshb
4328 A5EA F6 00 54        ..T   ldab 0054
4329 A5ED 4F              O     clra
4330 A5EE C3 0C C9        ...   addd #0cc9
4331 A5F1 8F              .     xgdx
4332 A5F2 33              3     pulb
4333 A5F3 E7 00           ..    stb 00,x
4334 A5F5 7C 00 54        |.T   inc 0054
4335 A5F8 20 DE            .    bra de
4336 A5FA BD A3 6C        ..l   jsr a36c
4337 A5FD 39              9     rts
4338 A5FE 7F 00 54        ..T   clr 0054
4339 A601 F6 00 54        ..T   ldab 0054
4340 A604 C1 05           ..    cmpb #05
4341 A606 24 1B           $.    bcc 1b
4342 A608 F6 00 54        ..T   ldab 0054
4343 A60B 4F              O     clra
4344 A60C C3 00 62        ..b   addd #0062
4345 A60F 8F              .     xgdx
4346 A610 E6 00           ..    ldab 00,x
4347 A612 37              7     pshb
4348 A613 F6 00 54        ..T   ldab 0054
4349 A616 4F              O     clra
4350 A617 C3 0B A4        ...   addd #0ba4
4351 A61A 8F              .     xgdx
4352 A61B 33              3     pulb
4353 A61C E7 00           ..    stb 00,x
4354 A61E 7C 00 54        |.T   inc 0054
4355 A621 20 DE            .    bra de
4356 A623 7F 00 54        ..T   clr 0054
4357 A626 F6 00 54        ..T   ldab 0054
4358 A629 C1 0B           ..    cmpb #0b
4359 A62B 24 1B           $.    bcc 1b
4360 A62D F6 00 54        ..T   ldab 0054
4361 A630 4F              O     clra
4362 A631 C3 00 68        ..h   addd #0068
4363 A634 8F              .     xgdx
4364 A635 E6 00           ..    ldab 00,x
4365 A637 37              7     pshb
4366 A638 F6 00 54        ..T   ldab 0054
4367 A63B 4F              O     clra
4368 A63C C3 0B E4        ...   addd #0be4
4369 A63F 8F              .     xgdx
4370 A640 33              3     pulb
4371 A641 E7 00           ..    stb 00,x
4372 A643 7C 00 54        |.T   inc 0054
4373 A646 20 DE            .    bra de
4374 A648 8D 04           ..    bsr dest 04
4375 A64A BD A3 6C        ..l   jsr a36c
4376 A64D 39              9     rts
4377 A64E BD AB 0C        ...   jsr ab0c
4378 A651 C6 20           .     ldab #20
4379 A653 F7 0B A3        ...   stb 0ba3
4380 A656 C6 20           .     ldab #20
4381 A658 F7 0B 9A        ...   stb 0b9a
4382 A65B C6 01           ..    ldab #01
4383 A65D F7 00 54        ..T   stb 0054
4384 A660 F6 00 54        ..T   ldab 0054
4385 A663 C1 09           ..    cmpb #09
4386 A665 25 03           %.    bcs 03
4387 A667 7E A7 1E        ~..   jmp a71e
4388 A66A F6 00 54        ..T   ldab 0054
4389 A66D 4F              O     clra
4390 A66E BD FE 16        ...   jsr fe16
4391 A671 00              .     test
4392 A672 01              .     nop
4393 A673 00              .     test
4394 A674 07              .     tpa
4395 A675 A6 ED           ..    ldaa ed,x
4396 A677 A6 87           ..    ldaa 87,x
4397 A679 A6 95           ..    ldaa 95,x
4398 A67B A6 A1           ..    ldaa a1,x
4399 A67D A6 AF           ..    ldaa af,x
4400 A67F A6 BB           ..    ldaa bb,x
4401 A681 A6 C9           ..    ldaa c9,x
4402 A683 A6 D5           ..    ldaa d5,x
4403 A685 A6 E3           ..    ldaa e3,x
4404 A687 F6 00 62        ..b   ldab 0062
4405 A68A 54              T     lsrb
4406 A68B 54              T     lsrb
4407 A68C 54              T     lsrb
4408 A68D 54              T     lsrb
4409 A68E C8 04           ..    eorb #04
4410 A690 F7 00 5F        .._   stb 005f
4411 A693 20 58            X    bra 58
4412 A695 F6 00 62        ..b   ldab 0062
4413 A698 C4 0F           ..    andb #0f
4414 A69A C8 0D           ..    eorb #0d
4415 A69C F7 00 5F        .._   stb 005f
4416 A69F 20 4C            L    bra 4c
4417 A6A1 F6 00 63        ..c   ldab 0063
4418 A6A4 54              T     lsrb
4419 A6A5 54              T     lsrb
4420 A6A6 54              T     lsrb
4421 A6A7 54              T     lsrb
4422 A6A8 C8 04           ..    eorb #04
4423 A6AA F7 00 5F        .._   stb 005f
4424 A6AD 20 3E            >    bra 3e
4425 A6AF F6 00 63        ..c   ldab 0063
4426 A6B2 C4 0F           ..    andb #0f
4427 A6B4 C8 05           ..    eorb #05
4428 A6B6 F7 00 5F        .._   stb 005f
4429 A6B9 20 32            2    bra 32
4430 A6BB F6 00 64        ..d   ldab 0064
4431 A6BE 54              T     lsrb
4432 A6BF 54              T     lsrb
4433 A6C0 54              T     lsrb
4434 A6C1 54              T     lsrb
4435 A6C2 C8 05           ..    eorb #05
4436 A6C4 F7 00 5F        .._   stb 005f
4437 A6C7 20 24            $    bra 24
4438 A6C9 F6 00 64        ..d   ldab 0064
4439 A6CC C4 0F           ..    andb #0f
4440 A6CE C8 04           ..    eorb #04
4441 A6D0 F7 00 5F        .._   stb 005f
4442 A6D3 20 18            .    bra 18
4443 A6D5 F6 00 65        ..e   ldab 0065
4444 A6D8 54              T     lsrb
4445 A6D9 54              T     lsrb
4446 A6DA 54              T     lsrb
4447 A6DB 54              T     lsrb
4448 A6DC C8 05           ..    eorb #05
4449 A6DE F7 00 5F        .._   stb 005f
4450 A6E1 20 0A            .    bra 0a
4451 A6E3 F6 00 65        ..e   ldab 0065
4452 A6E6 C4 0F           ..    andb #0f
4453 A6E8 C8 03           ..    eorb #03
4454 A6EA F7 00 5F        .._   stb 005f
4455 A6ED F6 00 5F        .._   ldab 005f
4456 A6F0 C1 09           ..    cmpb #09
4457 A6F2 23 13           #.    bls 13
4458 A6F4 F6 00 5F        .._   ldab 005f
4459 A6F7 CB 37           .7    addb #37
4460 A6F9 37              7     pshb
4461 A6FA F6 00 54        ..T   ldab 0054
4462 A6FD 4F              O     clra
4463 A6FE C3 0B 9A        ...   addd #0b9a
4464 A701 8F              .     xgdx
4465 A702 33              3     pulb
4466 A703 E7 00           ..    stb 00,x
4467 A705 20 11            .    bra 11
4468 A707 F6 00 5F        .._   ldab 005f
4469 A70A CB 30           .0    addb #30
4470 A70C 37              7     pshb
4471 A70D F6 00 54        ..T   ldab 0054
4472 A710 4F              O     clra
4473 A711 C3 0B 9A        ...   addd #0b9a
4474 A714 8F              .     xgdx
4475 A715 33              3     pulb
4476 A716 E7 00           ..    stb 00,x
4477 A718 7C 00 54        |.T   inc 0054
4478 A71B 7E A6 60        ~.`   jmp a660
4479 A71E 39              9     rts
4480 A71F F6 00 48        ..H   ldab 0048
4481 A722 26 11           &.    bne 11
4482 A724 F6 00 66        ..f   ldab 0066
4483 A727 26 07           &.    bne 07
4484 A729 C6 01           ..    ldab #01
4485 A72B F7 00 66        ..f   stb 0066
4486 A72E 20 03            .    bra 03
4487 A730 7F 00 66        ..f   clr 0066
4488 A733 20 29            )    bra 29
4489 A735 F6 00 48        ..H   ldab 0048
4490 A738 4F              O     clra
4491 A739 C3 00 68        ..h   addd #0068
4492 A73C 8F              .     xgdx
4493 A73D E6 00           ..    ldab 00,x
4494 A73F 26 10           &.    bne 10
4495 A741 C6 01           ..    ldab #01
4496 A743 37              7     pshb
4497 A744 F6 00 48        ..H   ldab 0048
4498 A747 4F              O     clra
4499 A748 C3 00 68        ..h   addd #0068
4500 A74B 8F              .     xgdx
4501 A74C 33              3     pulb
4502 A74D E7 00           ..    stb 00,x
4503 A74F 20 0D            .    bra 0d
4504 A751 5F              _     clrb
4505 A752 37              7     pshb
4506 A753 F6 00 48        ..H   ldab 0048
4507 A756 4F              O     clra
4508 A757 C3 00 68        ..h   addd #0068
4509 A75A 8F              .     xgdx
4510 A75B 33              3     pulb
4511 A75C E7 00           ..    stb 00,x
4512 A75E 39              9     rts
4513 A75F F6 00 48        ..H   ldab 0048
4514 A762 4F              O     clra
4515 A763 BD FE 16        ...   jsr fe16
4516 A766 00              .     test
4517 A767 00              .     test
4518 A768 00              .     test
4519 A769 09              .     dex
4520 A76A A7 DC           ..    sta dc,x
4521 A76C A7 80           ..    sta 80,x
4522 A76E A7 87           ..    sta 87,x
4523 A770 A7 8E           ..    sta 8e,x
4524 A772 A7 95           ..    sta 95,x
4525 A774 A7 9C           ..    sta 9c,x
4526 A776 A7 A3           ..    sta a3,x
4527 A778 A7 AA           ..    sta aa,x
4528 A77A A7 B1           ..    sta b1,x
4529 A77C A7 C4           ..    sta c4,x
4530 A77E A7 D7           ..    sta d7,x
4531 A780 C6 02           ..    ldab #02
4532 A782 F7 00 02        ...   stb 0002
4533 A785 20 55            U    bra 55
4534 A787 C6 10           ..    ldab #10
4535 A789 F7 00 02        ...   stb 0002
4536 A78C 20 4E            N    bra 4e
4537 A78E C6 20           .     ldab #20
4538 A790 F7 00 02        ...   stb 0002
4539 A793 20 47            G    bra 47
4540 A795 C6 01           ..    ldab #01
4541 A797 F7 00 02        ...   stb 0002
4542 A79A 20 40            @    bra 40
4543 A79C C6 04           ..    ldab #04
4544 A79E F7 00 02        ...   stb 0002
4545 A7A1 20 39            9    bra 39
4546 A7A3 C6 08           ..    ldab #08
4547 A7A5 F7 00 02        ...   stb 0002
4548 A7A8 20 32            2    bra 32
4549 A7AA C6 40           .@    ldab #40
4550 A7AC F7 00 02        ...   stb 0002
4551 A7AF 20 2B            +    bra 2b
4552 A7B1 F6 0E 70        ..p   ldab 0e70
4553 A7B4 C1 01           ..    cmpb #01
4554 A7B6 26 05           &.    bne 05
4555 A7B8 7F 0E 70        ..p   clr 0e70
4556 A7BB 20 05            .    bra 05
4557 A7BD C6 01           ..    ldab #01
4558 A7BF F7 0E 70        ..p   stb 0e70
4559 A7C2 20 18            .    bra 18
4560 A7C4 F6 0E 6F        ..o   ldab 0e6f
4561 A7C7 C1 01           ..    cmpb #01
4562 A7C9 26 05           &.    bne 05
4563 A7CB 7F 0E 6F        ..o   clr 0e6f
4564 A7CE 20 05            .    bra 05
4565 A7D0 C6 01           ..    ldab #01
4566 A7D2 F7 0E 6F        ..o   stb 0e6f
4567 A7D5 20 05            .    bra 05
4568 A7D7 C6 80           ..    ldab #80
4569 A7D9 F7 00 02        ...   stb 0002
4570 A7DC F6 00 48        ..H   ldab 0048
4571 A7DF C1 0A           ..    cmpb #0a
4572 A7E1 24 2B           $+    bcc 2b
4573 A7E3 F6 00 48        ..H   ldab 0048
4574 A7E6 C1 07           ..    cmpb #07
4575 A7E8 27 24           '$    beq 24
4576 A7EA F6 00 48        ..H   ldab 0048
4577 A7ED C1 08           ..    cmpb #08
4578 A7EF 27 1D           '.    beq 1d
4579 A7F1 F6 00 67        ..g   ldab 0067
4580 A7F4 F4 00 02        ...   andb 0002
4581 A7F7 26 0B           &.    bne 0b
4582 A7F9 F6 00 02        ...   ldab 0002
4583 A7FC FA 00 67        ..g   orb 0067
4584 A7FF F7 00 67        ..g   stb 0067
4585 A802 20 0A            .    bra 0a
4586 A804 F6 00 02        ...   ldab 0002
4587 A807 53              S     comb
4588 A808 F4 00 67        ..g   andb 0067
4589 A80B F7 00 67        ..g   stb 0067
4590 A80E 39              9     rts
4591 A80F 7F 00 54        ..T   clr 0054
4592 A812 F6 00 54        ..T   ldab 0054
4593 A815 C1 04           ..    cmpb #04
4594 A817 24 4A           $J    bcc 4a
4595 A819 CC 01 F4        ...   ldd #01f4
4596 A81C BD E5 71        ..q   jsr e571
4597 A81F F6 0B 93        ...   ldab 0b93
4598 A822 F7 00 5F        .._   stb 005f
4599 A825 F6 0B 94        ...   ldab 0b94
4600 A828 F7 00 5E        ..^   stb 005e
4601 A82B F6 0B 95        ...   ldab 0b95
4602 A82E F7 00 5D        ..]   stb 005d
4603 A831 F6 0B 96        ...   ldab 0b96
4604 A834 F7 00 5A        ..Z   stb 005a
4605 A837 BD BE 4B        ..K   jsr be4b
4606 A83A BD BE 01        ...   jsr be01
4607 A83D CC 01 F4        ...   ldd #01f4
4608 A840 BD E5 71        ..q   jsr e571
4609 A843 F6 00 5F        .._   ldab 005f
4610 A846 F7 0B 93        ...   stb 0b93
4611 A849 F6 00 5E        ..^   ldab 005e
4612 A84C F7 0B 94        ...   stb 0b94
4613 A84F F6 00 5D        ..]   ldab 005d
4614 A852 F7 0B 95        ...   stb 0b95
4615 A855 F6 00 5A        ..Z   ldab 005a
4616 A858 F7 0B 96        ...   stb 0b96
4617 A85B BD BE 01        ...   jsr be01
4618 A85E 7C 00 54        |.T   inc 0054
4619 A861 20 AF            .    bra af
4620 A863 39              9     rts
4621 A864 F6 00 09        ...   ldab 0009
4622 A867 C1 01           ..    cmpb #01
4623 A869 26 20           &     bne 20
4624 A86B F6 00 61        ..a   ldab 0061
4625 A86E 4F              O     clra
4626 A86F C3 00 01        ...   addd #0001
4627 A872 37              7     pshb
4628 A873 36              6     psha
4629 A874 F6 00 60        ..`   ldab 0060
4630 A877 4F              O     clra
4631 A878 30              0     tsx
4632 A879 A3 00           ..    subd 00,x
4633 A87B 31              1     ins
4634 A87C 31              1     ins
4635 A87D 2C 0A           ,.    bge 0a
4636 A87F F6 00 60        ..`   ldab 0060
4637 A882 C1 F9           ..    cmpb #f9
4638 A884 24 03           $.    bcc 03
4639 A886 7C 00 60        |.`   inc 0060
4640 A889 20 0A            .    bra 0a
4641 A88B F6 00 60        ..`   ldab 0060
4642 A88E C1 09           ..    cmpb #09
4643 A890 24 03           $.    bcc 03
4644 A892 7C 00 60        |.`   inc 0060
4645 A895 39              9     rts
4646 A896 F6 00 36        ..6   ldab 0036
4647 A899 26 39           &9    bne 39
4648 A89B F6 00 54        ..T   ldab 0054
4649 A89E C1 27           .'    cmpb #27
4650 A8A0 24 20           $     bcc 20
4651 A8A2 7C 00 54        |.T   inc 0054
4652 A8A5 F6 00 09        ...   ldab 0009
4653 A8A8 C1 01           ..    cmpb #01
4654 A8AA 26 0C           &.    bne 0c
4655 A8AC F6 00 54        ..T   ldab 0054
4656 A8AF C1 27           .'    cmpb #27
4657 A8B1 26 03           &.    bne 03
4658 A8B3 7F 00 54        ..T   clr 0054
4659 A8B6 20 0A            .    bra 0a
4660 A8B8 F6 00 54        ..T   ldab 0054
4661 A8BB C1 24           .$    cmpb #24
4662 A8BD 26 03           &.    bne 03
4663 A8BF 7F 00 54        ..T   clr 0054
4664 A8C2 F6 00 54        ..T   ldab 0054
4665 A8C5 4F              O     clra
4666 A8C6 C3 B4 8F        ...   addd #b48f
4667 A8C9 8F              .     xgdx
4668 A8CA E6 00           ..    ldab 00,x
4669 A8CC F7 0B 90        ...   stb 0b90
4670 A8CF C6 02           ..    ldab #02
4671 A8D1 F7 00 36        ..6   stb 0036
4672 A8D4 39              9     rts
4673 A8D5 F6 00 60        ..`   ldab 0060
4674 A8D8 C1 00           ..    cmpb #00
4675 A8DA 23 05           #.    bls 05
4676 A8DC 7A 00 60        z.`   dec 0060
4677 A8DF 20 03            .    bra 03
4678 A8E1 7F 00 60        ..`   clr 0060
4679 A8E4 39              9     rts
4680 A8E5 F6 00 36        ..6   ldab 0036
4681 A8E8 26 36           &6    bne 36
4682 A8EA F6 00 54        ..T   ldab 0054
4683 A8ED C1 00           ..    cmpb #00
4684 A8EF 25 1D           %.    bcs 1d
4685 A8F1 F6 00 54        ..T   ldab 0054
4686 A8F4 26 15           &.    bne 15
4687 A8F6 F6 00 09        ...   ldab 0009
4688 A8F9 C1 01           ..    cmpb #01
4689 A8FB 26 07           &.    bne 07
4690 A8FD C6 26           .&    ldab #26
4691 A8FF F7 00 54        ..T   stb 0054
4692 A902 20 05            .    bra 05
4693 A904 C6 23           .#    ldab #23
4694 A906 F7 00 54        ..T   stb 0054
4695 A909 20 03            .    bra 03
4696 A90B 7A 00 54        z.T   dec 0054
4697 A90E F6 00 54        ..T   ldab 0054
4698 A911 4F              O     clra
4699 A912 C3 B4 8F        ...   addd #b48f
4700 A915 8F              .     xgdx
4701 A916 E6 00           ..    ldab 00,x
4702 A918 F7 0B 90        ...   stb 0b90
4703 A91B C6 02           ..    ldab #02
4704 A91D F7 00 36        ..6   stb 0036
4705 A920 39              9     rts
4706 A921 F6 0B 90        ...   ldab 0b90
4707 A924 F7 0B 96        ...   stb 0b96
4708 A927 F6 0B 96        ...   ldab 0b96
4709 A92A 37              7     pshb
4710 A92B F6 00 60        ..`   ldab 0060
4711 A92E 4F              O     clra
4712 A92F C3 0A 93        ...   addd #0a93
4713 A932 8F              .     xgdx
4714 A933 33              3     pulb
4715 A934 E7 00           ..    stb 00,x
4716 A936 F6 00 09        ...   ldab 0009
4717 A939 C1 01           ..    cmpb #01
4718 A93B 26 32           &2    bne 32
4719 A93D F6 00 61        ..a   ldab 0061
4720 A940 4F              O     clra
4721 A941 C3 00 01        ...   addd #0001
4722 A944 37              7     pshb
4723 A945 36              6     psha
4724 A946 F6 00 60        ..`   ldab 0060
4725 A949 4F              O     clra
4726 A94A 30              0     tsx
4727 A94B A3 00           ..    subd 00,x
4728 A94D 31              1     ins
4729 A94E 31              1     ins
4730 A94F 26 0A           &.    bne 0a
4731 A951 F6 00 60        ..`   ldab 0060
4732 A954 C1 FA           ..    cmpb #fa
4733 A956 24 03           $.    bcc 03
4734 A958 7C 00 61        |.a   inc 0061
4735 A95B F6 00 60        ..`   ldab 0060
4736 A95E F1 00 61        ..a   cmpb 0061
4737 A961 22 0A           ".    bhi 0a
4738 A963 F6 00 60        ..`   ldab 0060
4739 A966 C1 F9           ..    cmpb #f9
4740 A968 24 03           $.    bcc 03
4741 A96A 7C 00 60        |.`   inc 0060
4742 A96D 20 0A            .    bra 0a
4743 A96F F6 00 60        ..`   ldab 0060
4744 A972 C1 09           ..    cmpb #09
4745 A974 24 03           $.    bcc 03
4746 A976 7C 00 60        |.`   inc 0060
4747 A979 39              9     rts
4748 A97A F6 00 60        ..`   ldab 0060
4749 A97D 26 24           &$    bne 24
4750 A97F F6 00 60        ..`   ldab 0060
4751 A982 CB 03           ..    addb #03
4752 A984 F7 00 54        ..T   stb 0054
4753 A987 F6 00 54        ..T   ldab 0054
4754 A98A C1 FF           ..    cmpb #ff
4755 A98C 24 13           $.    bcc 13
4756 A98E C6 20           .     ldab #20
4757 A990 37              7     pshb
4758 A991 F6 00 54        ..T   ldab 0054
4759 A994 4F              O     clra
4760 A995 C3 0A 90        ...   addd #0a90
4761 A998 8F              .     xgdx
4762 A999 33              3     pulb
4763 A99A E7 00           ..    stb 00,x
4764 A99C 7C 00 54        |.T   inc 0054
4765 A99F 20 E6            .    bra e6
4766 A9A1 20 22            "    bra 22
4767 A9A3 F6 00 60        ..`   ldab 0060
4768 A9A6 CB 04           ..    addb #04
4769 A9A8 F7 00 54        ..T   stb 0054
4770 A9AB F6 00 54        ..T   ldab 0054
4771 A9AE C1 FF           ..    cmpb #ff
4772 A9B0 24 13           $.    bcc 13
4773 A9B2 C6 20           .     ldab #20
4774 A9B4 37              7     pshb
4775 A9B5 F6 00 54        ..T   ldab 0054
4776 A9B8 4F              O     clra
4777 A9B9 C3 0A 90        ...   addd #0a90
4778 A9BC 8F              .     xgdx
4779 A9BD 33              3     pulb
4780 A9BE E7 00           ..    stb 00,x
4781 A9C0 7C 00 54        |.T   inc 0054
4782 A9C3 20 E6            .    bra e6
4783 A9C5 F6 00 60        ..`   ldab 0060
4784 A9C8 F7 00 61        ..a   stb 0061
4785 A9CB 7F 00 54        ..T   clr 0054
4786 A9CE 39              9     rts
4787 A9CF C6 50           .P    ldab #50
4788 A9D1 F7 09 90        ...   stb 0990
4789 A9D4 C6 29           .)    ldab #29
4790 A9D6 F7 09 91        ...   stb 0991
4791 A9D9 C6 20           .     ldab #20
4792 A9DB F7 09 92        ...   stb 0992
4793 A9DE 7F 00 54        ..T   clr 0054
4794 A9E1 F6 00 54        ..T   ldab 0054
4795 A9E4 C1 FF           ..    cmpb #ff
4796 A9E6 24 1B           $.    bcc 1b
4797 A9E8 F6 00 54        ..T   ldab 0054
4798 A9EB 4F              O     clra
4799 A9EC C3 09 90        ...   addd #0990
4800 A9EF 8F              .     xgdx
4801 A9F0 E6 00           ..    ldab 00,x
4802 A9F2 37              7     pshb
4803 A9F3 F6 00 54        ..T   ldab 0054
4804 A9F6 4F              O     clra
4805 A9F7 C3 0A 90        ...   addd #0a90
4806 A9FA 8F              .     xgdx
4807 A9FB 33              3     pulb
4808 A9FC E7 00           ..    stb 00,x
4809 A9FE 7C 00 54        |.T   inc 0054
4810 AA01 20 DE            .    bra de
4811 AA03 F6 0B BF        ...   ldab 0bbf
4812 AA06 F7 00 61        ..a   stb 0061
4813 AA09 39              9     rts
4814 AA0A C6 53           .S    ldab #53
4815 AA0C F7 0C B9        ...   stb 0cb9
4816 AA0F C6 29           .)    ldab #29
4817 AA11 F7 0C BA        ...   stb 0cba
4818 AA14 C6 20           .     ldab #20
4819 AA16 F7 0C BB        ...   stb 0cbb
4820 AA19 7F 00 54        ..T   clr 0054
4821 AA1C F6 00 54        ..T   ldab 0054
4822 AA1F C1 10           ..    cmpb #10
4823 AA21 24 1B           $.    bcc 1b
4824 AA23 F6 00 54        ..T   ldab 0054
4825 AA26 4F              O     clra
4826 AA27 C3 0C B9        ...   addd #0cb9
4827 AA2A 8F              .     xgdx
4828 AA2B E6 00           ..    ldab 00,x
4829 AA2D 37              7     pshb
4830 AA2E F6 00 54        ..T   ldab 0054
4831 AA31 4F              O     clra
4832 AA32 C3 0A 90        ...   addd #0a90
4833 AA35 8F              .     xgdx
4834 AA36 33              3     pulb
4835 AA37 E7 00           ..    stb 00,x
4836 AA39 7C 00 54        |.T   inc 0054
4837 AA3C 20 DE            .    bra de
4838 AA3E 39              9     rts
4839 AA3F C6 49           .I    ldab #49
4840 AA41 F7 0C C9        ...   stb 0cc9
4841 AA44 C6 29           .)    ldab #29
4842 AA46 F7 0C CA        ...   stb 0cca
4843 AA49 C6 20           .     ldab #20
4844 AA4B F7 0C CB        ...   stb 0ccb
4845 AA4E 7F 00 54        ..T   clr 0054
4846 AA51 F6 00 54        ..T   ldab 0054
4847 AA54 C1 10           ..    cmpb #10
4848 AA56 24 1B           $.    bcc 1b
4849 AA58 F6 00 54        ..T   ldab 0054
4850 AA5B 4F              O     clra
4851 AA5C C3 0C C9        ...   addd #0cc9
4852 AA5F 8F              .     xgdx
4853 AA60 E6 00           ..    ldab 00,x
4854 AA62 37              7     pshb
4855 AA63 F6 00 54        ..T   ldab 0054
4856 AA66 4F              O     clra
4857 AA67 C3 0A 90        ...   addd #0a90
4858 AA6A 8F              .     xgdx
4859 AA6B 33              3     pulb
4860 AA6C E7 00           ..    stb 00,x
4861 AA6E 7C 00 54        |.T   inc 0054
4862 AA71 20 DE            .    bra de
4863 AA73 39              9     rts
4864 AA74 7F 00 54        ..T   clr 0054
4865 AA77 F6 00 54        ..T   ldab 0054
4866 AA7A C1 0B           ..    cmpb #0b
4867 AA7C 24 1B           $.    bcc 1b
4868 AA7E F6 00 54        ..T   ldab 0054
4869 AA81 4F              O     clra
4870 AA82 C3 0B E4        ...   addd #0be4
4871 AA85 8F              .     xgdx
4872 AA86 E6 00           ..    ldab 00,x
4873 AA88 37              7     pshb
4874 AA89 F6 00 54        ..T   ldab 0054
4875 AA8C 4F              O     clra
4876 AA8D C3 00 68        ..h   addd #0068
4877 AA90 8F              .     xgdx
4878 AA91 33              3     pulb
4879 AA92 E7 00           ..    stb 00,x
4880 AA94 7C 00 54        |.T   inc 0054
4881 AA97 20 DE            .    bra de
4882 AA99 39              9     rts
4883 AA9A F6 00 22        .."   ldab 0022
4884 AA9D C1 06           ..    cmpb #06
4885 AA9F 24 0F           $.    bcc 0f
4886 AAA1 7C 00 22        |."   inc 0022
4887 AAA4 F6 00 22        .."   ldab 0022
4888 AAA7 C1 05           ..    cmpb #05
4889 AAA9 23 05           #.    bls 05
4890 AAAB C6 01           ..    ldab #01
4891 AAAD F7 00 22        .."   stb 0022
4892 AAB0 F6 00 22        .."   ldab 0022
4893 AAB3 4F              O     clra
4894 AAB4 BD FE 16        ...   jsr fe16
4895 AAB7 00              .     test
4896 AAB8 01              .     nop
4897 AAB9 00              .     test
4898 AABA 04              .     lsrd
4899 AABB AB 0B           ..    adda 0b,x
4900 AABD AA C7           ..    ora c7,x
4901 AABF AA D5           ..    ora d5,x
4902 AAC1 AA E3           ..    ora e3,x
4903 AAC3 AA F1           ..    ora f1,x
4904 AAC5 AA FF           ..    ora ff,x
4905 AAC7 F6 0B AF        ...   ldab 0baf
4906 AACA F7 00 24        ..$   stb 0024
4907 AACD F6 0B B4        ...   ldab 0bb4
4908 AAD0 F7 00 2A        ..*   stb 002a
4909 AAD3 20 36            6    bra 36
4910 AAD5 F6 0B AE        ...   ldab 0bae
4911 AAD8 F7 00 24        ..$   stb 0024
4912 AADB F6 0B B3        ...   ldab 0bb3
4913 AADE F7 00 2A        ..*   stb 002a
4914 AAE1 20 28            (    bra 28
4915 AAE3 F6 0B AD        ...   ldab 0bad
4916 AAE6 F7 00 24        ..$   stb 0024
4917 AAE9 F6 0B B2        ...   ldab 0bb2
4918 AAEC F7 00 2A        ..*   stb 002a
4919 AAEF 20 1A            .    bra 1a
4920 AAF1 F6 0B AC        ...   ldab 0bac
4921 AAF4 F7 00 24        ..$   stb 0024
4922 AAF7 F6 0B B1        ...   ldab 0bb1
4923 AAFA F7 00 2A        ..*   stb 002a
4924 AAFD 20 0C            .    bra 0c
4925 AAFF F6 0B AB        ...   ldab 0bab
4926 AB02 F7 00 24        ..$   stb 0024
4927 AB05 F6 0B B0        ...   ldab 0bb0
4928 AB08 F7 00 2A        ..*   stb 002a
4929 AB0B 39              9     rts
4930 AB0C C6 03           ..    ldab #03
4931 AB0E F7 00 18        ...   stb 0018
4932 AB11 7F 00 1C        ...   clr 001c
4933 AB14 F6 00 1C        ...   ldab 001c
4934 AB17 C1 04           ..    cmpb #04
4935 AB19 24 6D           $m    bcc 6d
4936 AB1B C6 07           ..    ldab #07
4937 AB1D F7 00 55        ..U   stb 0055
4938 AB20 7F 00 54        ..T   clr 0054
4939 AB23 F6 00 54        ..T   ldab 0054
4940 AB26 C1 08           ..    cmpb #08
4941 AB28 24 56           $V    bcc 56
4942 AB2A F6 00 1C        ...   ldab 001c
4943 AB2D 4F              O     clra
4944 AB2E C3 0B A4        ...   addd #0ba4
4945 AB31 8F              .     xgdx
4946 AB32 E6 00           ..    ldab 00,x
4947 AB34 37              7     pshb
4948 AB35 F6 00 54        ..T   ldab 0054
4949 AB38 4F              O     clra
4950 AB39 C3 B4 B7        ...   addd #b4b7
4951 AB3C 8F              .     xgdx
4952 AB3D E6 00           ..    ldab 00,x
4953 AB3F 30              0     tsx
4954 AB40 E4 00           ..    andb 00,x
4955 AB42 31              1     ins
4956 AB43 27 1A           '.    beq 1a
4957 AB45 F6 00 55        ..U   ldab 0055
4958 AB48 4F              O     clra
4959 AB49 C3 B4 B7        ...   addd #b4b7
4960 AB4C 8F              .     xgdx
4961 AB4D E6 00           ..    ldab 00,x
4962 AB4F 37              7     pshb
4963 AB50 F6 00 18        ...   ldab 0018
4964 AB53 4F              O     clra
4965 AB54 C3 00 62        ..b   addd #0062
4966 AB57 8F              .     xgdx
4967 AB58 33              3     pulb
4968 AB59 EA 00           ..    orb 00,x
4969 AB5B E7 00           ..    stb 00,x
4970 AB5D 20 19            .    bra 19
4971 AB5F F6 00 55        ..U   ldab 0055
4972 AB62 4F              O     clra
4973 AB63 C3 B4 B7        ...   addd #b4b7
4974 AB66 8F              .     xgdx
4975 AB67 E6 00           ..    ldab 00,x
4976 AB69 53              S     comb
4977 AB6A 37              7     pshb
4978 AB6B F6 00 18        ...   ldab 0018
4979 AB6E 4F              O     clra
4980 AB6F C3 00 62        ..b   addd #0062
4981 AB72 8F              .     xgdx
4982 AB73 33              3     pulb
4983 AB74 E4 00           ..    andb 00,x
4984 AB76 E7 00           ..    stb 00,x
4985 AB78 7A 00 55        z.U   dec 0055
4986 AB7B 7C 00 54        |.T   inc 0054
4987 AB7E 20 A3            .    bra a3
4988 AB80 7A 00 18        z..   dec 0018
4989 AB83 7C 00 1C        |..   inc 001c
4990 AB86 20 8C            .    bra 8c
4991 AB88 39              9     rts
4992 AB89 CC B0 8C        ...   ldd #b08c
4993 AB8C BD C0 BA        ...   jsr c0ba
4994 AB8F CC 01 F4        ...   ldd #01f4
4995 AB92 BD E5 71        ..q   jsr e571
4996 AB95 BD D4 79        ..y   jsr d479
4997 AB98 BD E8 9A        ...   jsr e89a
4998 AB9B BD E9 EA        ...   jsr e9ea
4999 AB9E 7F 0B C1        ...   clr 0bc1
5000 ABA1 39              9     rts
5001 ABA2 7F 00 05        ...   clr 0005
5002 ABA5 F6 00 05        ...   ldab 0005
5003 ABA8 C1 64           .d    cmpb #64
5004 ABAA 25 03           %.    bcs 03
5005 ABAC 7E AC 81        ~..   jmp ac81
5006 ABAF F6 00 05        ...   ldab 0005
5007 ABB2 F7 00 06        ...   stb 0006
5008 ABB5 F6 00 05        ...   ldab 0005
5009 ABB8 4F              O     clra
5010 ABB9 CE 00 05        ...   ldx #0005
5011 ABBC 02              .     idiv
5012 ABBD 5D              ]     tstb
5013 ABBE 26 03           &.    bne 03
5014 ABC0 7E AC 7B        ~.{   jmp ac7b
5015 ABC3 F6 00 06        ...   ldab 0006
5016 ABC6 BD D7 A0        ...   jsr d7a0
5017 ABC9 83 00 00        ...   subd #0000
5018 ABCC 27 03           '.    beq 03
5019 ABCE 7E AC 7B        ~.{   jmp ac7b
5020 ABD1 BD D3 11        ...   jsr d311
5021 ABD4 83 00 00        ...   subd #0000
5022 ABD7 27 2B           '+    beq 2b
5023 ABD9 F6 00 05        ...   ldab 0005
5024 ABDC 4F              O     clra
5025 ABDD 05              .     asld
5026 ABDE C3 08 00        ...   addd #0800
5027 ABE1 8F              .     xgdx
5028 ABE2 EC 00           ..    ldd 00,x
5029 ABE4 C4 FF           ..    andb #ff
5030 ABE6 84 3F           .?    anda #3f
5031 ABE8 83 27 10        .'.   subd #2710
5032 ABEB 24 15           $.    bcc 15
5033 ABED CC 01 00        ...   ldd #0100
5034 ABF0 37              7     pshb
5035 ABF1 36              6     psha
5036 ABF2 F6 00 05        ...   ldab 0005
5037 ABF5 4F              O     clra
5038 ABF6 05              .     asld
5039 ABF7 C3 08 C8        ...   addd #08c8
5040 ABFA 38              8     pulx
5041 ABFB 8F              .     xgdx
5042 ABFC AA 00           ..    ora 00,x
5043 ABFE EA 01           ..    orb 01,x
5044 AC00 ED 00           ..    stad 00,x
5045 AC02 20 29            )    bra 29
5046 AC04 F6 00 05        ...   ldab 0005
5047 AC07 4F              O     clra
5048 AC08 05              .     asld
5049 AC09 C3 08 00        ...   addd #0800
5050 AC0C 8F              .     xgdx
5051 AC0D EC 00           ..    ldd 00,x
5052 AC0F C4 FF           ..    andb #ff
5053 AC11 84 3F           .?    anda #3f
5054 AC13 83 27 0F        .'.   subd #270f
5055 AC16 23 15           #.    bls 15
5056 AC18 CC 01 00        ...   ldd #0100
5057 AC1B 37              7     pshb
5058 AC1C 36              6     psha
5059 AC1D F6 00 05        ...   ldab 0005
5060 AC20 4F              O     clra
5061 AC21 05              .     asld
5062 AC22 C3 08 C8        ...   addd #08c8
5063 AC25 38              8     pulx
5064 AC26 8F              .     xgdx
5065 AC27 AA 00           ..    ora 00,x
5066 AC29 EA 01           ..    orb 01,x
5067 AC2B ED 00           ..    stad 00,x
5068 AC2D F6 00 05        ...   ldab 0005
5069 AC30 4F              O     clra
5070 AC31 05              .     asld
5071 AC32 C3 08 C8        ...   addd #08c8
5072 AC35 8F              .     xgdx
5073 AC36 EC 00           ..    ldd 00,x
5074 AC38 84 01           ..    anda #01
5075 AC3A 27 06           '.    beq 06
5076 AC3C CE 00 19        ...   ldx #0019
5077 AC3F 1C 00           ..    bset add,x 00,x
5078 AC41 04              .     lsrd
5079 AC42 F6 00 05        ...   ldab 0005
5080 AC45 4F              O     clra
5081 AC46 05              .     asld
5082 AC47 C3 08 00        ...   addd #0800
5083 AC4A 8F              .     xgdx
5084 AC4B EC 00           ..    ldd 00,x
5085 AC4D 84 80           ..    anda #80
5086 AC4F 27 2A           '*    beq 2a
5087 AC51 F6 00 05        ...   ldab 0005
5088 AC54 4F              O     clra
5089 AC55 05              .     asld
5090 AC56 C3 08 C8        ...   addd #08c8
5091 AC59 8F              .     xgdx
5092 AC5A EC 00           ..    ldd 00,x
5093 AC5C 84 02           ..    anda #02
5094 AC5E 27 06           '.    beq 06
5095 AC60 CE 00 19        ...   ldx #0019
5096 AC63 1C 00           ..    bset add,x 00,x
5097 AC65 01              .     nop
5098 AC66 F6 00 05        ...   ldab 0005
5099 AC69 4F              O     clra
5100 AC6A 05              .     asld
5101 AC6B C3 08 C8        ...   addd #08c8
5102 AC6E 8F              .     xgdx
5103 AC6F EC 00           ..    ldd 00,x
5104 AC71 84 04           ..    anda #04
5105 AC73 27 06           '.    beq 06
5106 AC75 CE 00 19        ...   ldx #0019
5107 AC78 1C 00           ..    bset add,x 00,x
5108 AC7A 02              .     idiv
5109 AC7B 7C 00 05        |..   inc 0005
5110 AC7E 7E AB A5        ~..   jmp aba5
5111 AC81 F6 00 19        ...   ldab 0019
5112 AC84 C4 07           ..    andb #07
5113 AC86 26 0A           &.    bne 0a
5114 AC88 F6 0B C1        ...   ldab 0bc1
5115 AC8B C4 7F           ..    andb #7f
5116 AC8D 26 03           &.    bne 03
5117 AC8F 5F              _     clrb
5118 AC90 20 02            .    bra 02
5119 AC92 C6 01           ..    ldab #01
5120 AC94 5D              ]     tstb
5121 AC95 26 05           &.    bne 05
5122 AC97 C6 0D           ..    ldab #0d
5123 AC99 F7 00 48        ..H   stb 0048
5124 AC9C 39              9     rts
5125 AC9D 08              .     inx
5126 AC9E 07              .     tpa
5127 AC9F 06              .     tap
5128 ACA0 05              .     asld
5129 ACA1 04              .     lsrd
5130 ACA2 03              .     fdiv
5131 ACA3 02              .     idiv
5132 ACA4 01              .     nop
5133 ACA5 0B              .     sev
5134 ACA6 0A              .     clv
5135 ACA7 09              .     dex
5136
5137 ACA8 20 20                 bra 20
5138 ACAA 50              P     negb
5139 ACAB 52              R     illegal
5140 ACAC 49              I     rola
5141 ACAD 43              C     coma
5142 ACAE 45              E     illegal
5143 ACAF 20 20                 bra 20
5144 ACB1 20 00            .    bra 00
5145 ACB3 20 20                 bra 20
5146 ACB5 20 50            P    bra 50
5147 ACB7 52              R     illegal
5148 ACB8 49              I     rola
5149 ACB9 58              X     aslb
5150 ACBA 20 20                 bra 20
5151 ACBC 20 00            .    bra 00
5152 ACBE 20 20                 bra 20
5153 ACC0 50              P     negb
5154 ACC1 52              R     illegal
5155 ACC2 45              E     illegal
5156 ACC3 49              I     rola
5157 ACC4 53              S     comb
5158 ACC5 20 20                 bra 20
5159 ACC7 20 00            .    bra 00
5160 ACC9 20 20                 bra 20
5161 ACCB 50              P     negb
5162 ACCC 52              R     illegal
5163 ACCD 45              E     illegal
5164 ACCE 43              C     coma
5165 ACCF 49              I     rola
5166 ACD0 4F              O     clra
5167 ACD1 20 20                 bra 20
5168 ACD3 00              .     test
5169 ACD4 20 20                 bra 20
5170 ACD6 43              C     coma
5171 ACD7 48              H     asla
5172 ACD8 41              A     illegal
5173 ACD9 4E              N     illegal
5174 ACDA 47              G     asra
5175 ACDB 45              E     illegal
5176 ACDC 20 20                 bra 20
5177 ACDE 00              .     test
5178 ACDF 20 20                 bra 20
5179 ACE1 43              C     coma
5180 ACE2 41              A     illegal
5181 ACE3 4D              M     tsta
5182 ACE4 42              B     illegal
5183 ACE5 49              I     rola
5184 ACE6 4F              O     clra
5185 ACE7 20 20                 bra 20
5186 ACE9 00              .     test
5187 ACEA 20 4D            M    bra 4d
5188 ACEC 4F              O     clra
5189 ACED 4E              N     illegal
5190 ACEE 4E              N     illegal
5191 ACEF 41              A     illegal
5192 ACF0 49              I     rola
5193 ACF1 45              E     illegal
5194 ACF2 20 20                 bra 20
5195 ACF4 00              .     test
5196 ACF5 20 20                 bra 20
5197 ACF7 54              T     lsrb
5198 ACF8 48              H     asla
5199 ACF9 41              A     illegal
5200 ACFA 4E              N     illegal
5201 ACFB 4B              K     illegal
5202 ACFC 53              S     comb
5203 ACFD 20 20                 bra 20
5204 ACFF 00              .     test
5205 AD00 20 20                 bra 20
5206 AD02 4D              M     tsta
5207 AD03 45              E     illegal
5208 AD04 52              R     illegal
5209 AD05 43              C     coma
5210 AD06 49              I     rola
5211 AD07 20 20                 bra 20
5212 AD09 20 00            .    bra 00
5213 AD0B 20 20                 bra 20
5214 AD0D 44              D     lsra
5215 AD0E 41              A     illegal
5216 AD0F 4E              N     illegal
5217 AD10 4B              K     illegal
5218 AD11 45              E     illegal
5219 AD12 20 20                 bra 20
5220 AD14 20 00            .    bra 00
5221 AD16 20 20                 bra 20
5222 AD18 47              G     asra
5223 AD19 52              R     illegal
5224 AD1A 41              A     illegal
5225 AD1B 43              C     coma
5226 AD1C 49              I     rola
5227 AD1D 41              A     illegal
5228 AD1E 53              S     comb
5229 AD1F 20 00            .    bra 00
5230 AD21 20 20                 bra 20
5231 AD23 53              S     comb
5232 AD24 45              E     illegal
5233 AD25 4C              L     inca
5234 AD26 45              E     illegal
5235 AD27 43              C     coma
5236 AD28 54              T     lsrb
5237 AD29 20 20                 bra 20
5238 AD2B 00              .     test
5239 AD2C 20 20                 bra 20
5240 AD2E 4F              O     clra
5241 AD2F 54              T     lsrb
5242 AD30 48              H     asla
5243 AD31 45              E     illegal
5244 AD32 52              R     illegal
5245 AD33 20 20                 bra 20
5246 AD35 20 00            .    bra 00
5247 AD37 20 20                 bra 20
5248 AD39 20 49            I    bra 49
5249 AD3B 54              T     lsrb
5250 AD3C 45              E     illegal
5251 AD3D 4D              M     tsta
5252 AD3E 20 20                 bra 20
5253 AD40 20 00            .    bra 00
5254 AD42 20 20                 bra 20
5255 AD44 46              F     rora
5256 AD45 41              A     illegal
5257 AD46 49              I     rola
5258 AD47 54              T     lsrb
5259 AD48 45              E     illegal
5260 AD49 53              S     comb
5261 AD4A 20 20                 bra 20
5262 AD4C 00              .     test
5263 AD4D 20 20                 bra 20
5264 AD4F 41              A     illegal
5265 AD50 55              U     illegal
5266 AD51 54              T     lsrb
5267 AD52 52              R     illegal
5268 AD53 45              E     illegal
5269 AD54 20 20                 bra 20
5270 AD56 20 00            .    bra 00
5271 AD58 20 20                 bra 20
5272 AD5A 43              C     coma
5273 AD5B 48              H     asla
5274 AD5C 4F              O     clra
5275 AD5D 49              I     rola
5276 AD5E 58              X     aslb
5277 AD5F 20 20                 bra 20
5278 AD61 20 00            .    bra 00
5279 AD63 20 20                 bra 20
5280 AD65 42              B     illegal
5281 AD66 49              I     rola
5282 AD67 54              T     lsrb
5283 AD68 54              T     lsrb
5284 AD69 45              E     illegal
5285 AD6A 20 20                 bra 20
5286 AD6C 20 00            .    bra 00
5287 AD6E 20 20                 bra 20
5288 AD70 41              A     illegal
5289 AD71 4E              N     illegal
5290 AD72 44              D     lsra
5291 AD73 45              E     illegal
5292 AD74 52              R     illegal
5293 AD75 45              E     illegal
5294 AD76 20 20                 bra 20
5295 AD78 00              .     test
5296 AD79 20 20                 bra 20
5297 AD7B 20 57            W    bra 57
5298 AD7D 41              A     illegal
5299 AD7E 48              H     asla
5300 AD7F 4C              L     inca
5301 AD80 20 20                 bra 20
5302 AD82 20 00            .    bra 00
5303 AD84 20 20                 bra 20
5304 AD86 50              P     negb
5305 AD87 55              U     illegal
5306 AD88 4C              L     inca
5307 AD89 53              S     comb
5308 AD8A 45              E     illegal
5309 AD8B 20 20                 bra 20
5310 AD8D 20 00            .    bra 00
5311 AD8F 20 20                 bra 20
5312 AD91 45              E     illegal
5313 AD92 58              X     aslb
5314 AD93 54              T     lsrb
5315 AD94 52              R     illegal
5316 AD95 41              A     illegal
5317 AD96 20 20                 bra 20
5318 AD98 20 00            .    bra 00
5319 AD9A 20 53            S    bra 53
5320 AD9C 45              E     illegal
5321 AD9D 4C              L     inca
5322 AD9E 45              E     illegal
5323 AD9F 43              C     coma
5324 ADA0 43              C     coma
5325 ADA1 49              I     rola
5326 ADA2 4F              O     clra
5327 ADA3 4E              N     illegal
5328 ADA4 00              .     test
5329 ADA5 20 45            E    bra 45
5330 ADA7 58              X     aslb
5331 ADA8 41              A     illegal
5332 ADA9 43              C     coma
5333 ADAA 54              T     lsrb
5334 ADAB 20 43            C    bra 43
5335 ADAD 4F              O     clra
5336 ADAE 49              I     rola
5337 ADAF 4E              N     illegal
5338 ADB0 53              S     comb
5339 ADB1 20 4F            O    bra 4f
5340 ADB3 4E              N     illegal
5341 ADB4 4C              L     inca
5342 ADB5 59              Y     rolb
5343 ADB6 20 00            .    bra 00
5344 ADB8 20 4D            M    bra 4d
5345 ADBA 4F              O     clra
5346 ADBB 4E              N     illegal
5347 ADBC 4E              N     illegal
5348 ADBD 41              A     illegal
5349 ADBE 49              I     rola
5350 ADBF 45              E     illegal
5351 ADC0 20 45            E    bra 45
5352 ADC2 58              X     aslb
5353 ADC3 41              A     illegal
5354 ADC4 43              C     coma
5355 ADC5 54              T     lsrb
5356 ADC6 45              E     illegal
5357 ADC7 20 53            S    bra 53
5358 ADC9 45              E     illegal
5359 ADCA 55              U     illegal
5360 ADCB 4C              L     inca
5361 ADCC 45              E     illegal
5362 ADCD 4D              M     tsta
5363 ADCE 45              E     illegal
5364 ADCF 4E              N     illegal
5365 ADD0 54              T     lsrb
5366 ADD1 20 00            .    bra 00
5367 ADD3 20 4E            N    bra 4e
5368 ADD5 49              I     rola
5369 ADD6 43              C     coma
5370 ADD7 48              H     asla
5371 ADD8 54              T     lsrb
5372 ADD9 20 55            U    bra 55
5373 ADDB 45              E     illegal
5374 ADDC 42              B     illegal
5375 ADDD 45              E     illegal
5376 ADDE 52              R     illegal
5377 ADDF 5A              Z     decb
5378 ADE0 41              A     illegal
5379 ADE1 48              H     asla
5380 ADE2 4C              L     inca
5381 ADE3 45              E     illegal
5382 ADE4 4E              N     illegal
5383 ADE5 20 00            .    bra 00
5384 ADE7 20 49            I    bra 49
5385 ADE9 4E              N     illegal
5386 ADEA 54              T     lsrb
5387 ADEB 52              R     illegal
5388 ADEC 4F              O     clra
5389 ADED 44              D     lsra
5390 ADEE 55              U     illegal
5391 ADEF 5A              Z     decb
5392 ADF0 43              C     coma
5393 ADF1 41              A     illegal
5394 ADF2 20 50            P    bra 50
5395 ADF4 52              R     illegal
5396 ADF5 45              E     illegal
5397 ADF6 43              C     coma
5398 ADF7 49              I     rola
5399 ADF8 4F              O     clra
5400 ADF9 20 45            E    bra 45
5401 ADFB 58              X     aslb
5402 ADFC 41              A     illegal
5403 ADFD 43              C     coma
5404 ADFE 54              T     lsrb
5405 ADFF 4F              O     clra
5406 AE00 20 00            .    bra 00
5407 AE02 20 43            C    bra 43
5408 AE04 4F              O     clra
5409 AE05 49              I     rola
5410 AE06 4E              N     illegal
5411 AE07 53              S     comb
5412 AE08 20 4F            O    bra 4f
5413 AE0A 4E              N     illegal
5414 AE0B 4C              L     inca
5415 AE0C 59              Y     rolb
5416 AE0D 20 00            .    bra 00
5417 AE0F 20 4D            M    bra 4d
5418 AE11 4F              O     clra
5419 AE12 4E              N     illegal
5420 AE13 4E              N     illegal
5421 AE14 41              A     illegal
5422 AE15 49              I     rola
5423 AE16 45              E     illegal
5424 AE17 20 53            S    bra 53
5425 AE19 45              E     illegal
5426 AE1A 55              U     illegal
5427 AE1B 4C              L     inca
5428 AE1C 45              E     illegal
5429 AE1D 4D              M     tsta
5430 AE1E 45              E     illegal
5431 AE1F 4E              N     illegal
5432 AE20 54              T     lsrb
5433 AE21 20 00            .    bra 00
5434 AE23 20 4E            N    bra 4e
5435 AE25 55              U     illegal
5436 AE26 52              R     illegal
5437 AE27 20 4D            M    bra 4d
5438 AE29 55              U     illegal
5439 AE2A 4E              N     illegal
5440 AE2B 5A              Z     decb
5441 AE2C 45              E     illegal
5442 AE2D 4E              N     illegal
5443 AE2E 20 00            .    bra 00
5444 AE30 20 4D            M    bra 4d
5445 AE32 4F              O     clra
5446 AE33 4E              N     illegal
5447 AE34 45              E     illegal
5448 AE35 44              D     lsra
5449 AE36 41              A     illegal
5450 AE37 20 55            U    bra 55
5451 AE39 4E              N     illegal
5452 AE3A 49              I     rola
5453 AE3B 43              C     coma
5454 AE3C 41              A     illegal
5455 AE3D 4D              M     tsta
5456 AE3E 45              E     illegal
5457 AE3F 4E              N     illegal
5458 AE40 54              T     lsrb
5459 AE41 45              E     illegal
5460 AE42 20 00            .    bra 00
5461 AE44 20 4D            M    bra 4d
5462 AE46 41              A     illegal
5463 AE47 43              C     coma
5464 AE48 48              H     asla
5465 AE49 49              I     rola
5466 AE4A 4E              N     illegal
5467 AE4B 45              E     illegal
5468 AE4C 20 4F            O    bra 4f
5469 AE4E 55              U     illegal
5470 AE4F 54              T     lsrb
5471 AE50 20 4F            O    bra 4f
5472 AE52 46              F     rora
5473 AE53 20 4F            O    bra 4f
5474 AE55 52              R     illegal
5475 AE56 44              D     lsra
5476 AE57 45              E     illegal
5477 AE58 52              R     illegal
5478 AE59 20 00            .    bra 00
5479 AE5B 20 48            H    bra 48
5480 AE5D 4F              O     clra
5481 AE5E 52              R     illegal
5482 AE5F 53              S     comb
5483 AE60 20 44            D    bra 44
5484 AE62 45              E     illegal
5485 AE63 20 53            S    bra 53
5486 AE65 45              E     illegal
5487 AE66 52              R     illegal
5488 AE67 56              V     rorb
5489 AE68 49              I     rola
5490 AE69 43              C     coma
5491 AE6A 45              E     illegal
5492 AE6B 20 00            .    bra 00
5493 AE6D 20 41            A    bra 41
5494 AE6F 55              U     illegal
5495 AE70 53              S     comb
5496 AE71 53              S     comb
5497 AE72 45              E     illegal
5498 AE73 52              R     illegal
5499 AE74 20 42            B    bra 42
5500 AE76 45              E     illegal
5501 AE77 54              T     lsrb
5502 AE78 52              R     illegal
5503 AE79 49              I     rola
5504 AE7A 45              E     illegal
5505 AE7B 42              B     illegal
5506 AE7C 20 00            .    bra 00
5507 AE7E 20 46            F    bra 46
5508 AE80 55              U     illegal
5509 AE81 45              E     illegal
5510 AE82 52              R     illegal
5511 AE83 41              A     illegal
5512 AE84 20 44            D    bra 44
5513 AE86 45              E     illegal
5514 AE87 20 53            S    bra 53
5515 AE89 45              E     illegal
5516 AE8A 52              R     illegal
5517 AE8B 56              V     rorb
5518 AE8C 49              I     rola
5519 AE8D 43              C     coma
5520 AE8E 49              I     rola
5521 AE8F 4F              O     clra
5522 AE90 20 00            .    bra 00
5523
5524 AE92 2D 20           -     blt 20
5525 AE94 20 20                 bra 20
5526 AE96 20 20                 bra 20
5527 AE98 20 20                 bra 20
5528 AE9A 20 20                 bra 20
5529 AE9C 00              .     test
5530
5531 AE9D 53              S     comb
5532 AE9E 45              E     illegal
5533 AE9F 54              T     lsrb
5534 AEA0 20 50            P    bra 50
5535 AEA2 52              R     illegal
5536 AEA3 49              I     rola
5537 AEA4 43              C     coma
5538 AEA5 45              E     illegal
5539 AEA6 3F              ?     swi
5540 AEA7 00              .     test
5541
5542 AEA8 20 20                 bra 20
5543 AEAA 53              S     comb
5544 AEAB 59              Y     rolb
5545 AEAC 53              S     comb
5546 AEAD 54              T     lsrb
5547 AEAE 45              E     illegal
5548 AEAF 4D              M     tsta
5549 AEB0 20 20                 bra 20
5550 AEB2 00              .     test
5551
5552 AEB3 20 20                 bra 20
5553 AEB5 20 20                 bra 20
5554 AEB7 4F              O     clra
5555 AEB8 4B              K     illegal
5556 AEB9 20 20                 bra 20
5557 AEBB 20 20                 bra 20
5558 AEBD 00              .     test
5559
5560 AEBE 24 35           $5    bcc 35
5561 AEC0 20 45            E    bra 45
5562 AEC2 4E              N     illegal
5563 AEC3 41              A     illegal
5564 AEC4 42              B     illegal
5565 AEC5 4C              L     inca
5566 AEC6 45              E     illegal
5567 AEC7 20 00            .    bra 00
5568
5569 AEC9 24 35           $5    bcc 35
5570 AECB 20 44            D    bra 44
5571 AECD 49              I     rola
5572 AECE 53              S     comb
5573 AECF 41              A     illegal
5574 AED0 42              B     illegal
5575 AED1 4C              L     inca
5576 AED2 45              E     illegal
5577 AED3 00              .     test
5578
5579 AED4 53              S     comb
5580 AED5 4F              O     clra
5581 AED6 44              D     lsra
5582 AED7 41              A     illegal
5583 AED8 20 56            V    bra 56
5584 AEDA 45              E     illegal
5585 AEDB 4E              N     illegal
5586 AEDC 44              D     lsra
5587 AEDD 20 00            .    bra 00
5588 AEDF 53              S     comb
5589 AEE0 4E              N     illegal
5590 AEE1 41              A     illegal
5591 AEE2 43              C     coma
5592 AEE3 4B              K     illegal
5593 AEE4 20 56            V    bra 56
5594 AEE6 45              E     illegal
5595 AEE7 4E              N     illegal
5596 AEE8 44              D     lsra
5597 AEE9 00              .     test
5598
5599 AEEA 44              D     lsra
5600 AEEB 55              U     illegal
5601 AEEC 4D              M     tsta
5602 AEED 42              B     illegal
5603 AEEE 20 4D            M    bra 4d
5604 AEF0 45              E     illegal
5605 AEF1 43              C     coma
5606 AEF2 20 59            Y    bra 59
5607 AEF4 00              .     test
5608 AEF5 44              D     lsra
5609 AEF6 55              U     illegal
5610 AEF7 4D              M     tsta
5611 AEF8 42              B     illegal
5612 AEF9 20 4D            M    bra 4d
5613 AEFB 45              E     illegal
5614 AEFC 43              C     coma
5615 AEFD 20 4E            N    bra 4e
5616 AEFF 00              .     test
5617 AF00 4C              L     inca
5618 AF01 4E              N     illegal
5619 AF02 4B              K     illegal
5620 AF03 20 4D            M    bra 4d
5621 AF05 53              S     comb
5622 AF06 54              T     lsrb
5623 AF07 52              R     illegal
5624 AF08 20 59            Y    bra 59
5625 AF0A 00              .     test
5626 AF0B 4C              L     inca
5627 AF0C 4E              N     illegal
5628 AF0D 4B              K     illegal
5629 AF0E 20 4D            M    bra 4d
5630 AF10 53              S     comb
5631 AF11 54              T     lsrb
5632 AF12 52              R     illegal
5633 AF13 20 4E            N    bra 4e
5634 AF15 00              .     test
5635 AF16 43              C     coma
5636 AF17 41              A     illegal
5637 AF18 52              R     illegal
5638 AF19 44              D     lsra
5639 AF1A 20 52            R    bra 52
5640 AF1C 44              D     lsra
5641 AF1D 52              R     illegal
5642 AF1E 20 59            Y    bra 59
5643 AF20 00              .     test
5644 AF21 43              C     coma
5645 AF22 41              A     illegal
5646 AF23 52              R     illegal
5647 AF24 44              D     lsra
5648 AF25 20 52            R    bra 52
5649 AF27 44              D     lsra
5650 AF28 52              R     illegal
5651 AF29 20 4E            N    bra 4e
5652 AF2B 00              .     test
5653 AF2C 42              B     illegal
5654 AF2D 49              I     rola
5655 AF2E 4C              L     inca
5656 AF2F 4C              L     inca
5657 AF30 20 56            V    bra 56
5658 AF32 41              A     illegal
5659 AF33 4C              L     inca
5660 AF34 20 59            Y    bra 59
5661 AF36 00              .     test
5662 AF37 42              B     illegal
5663 AF38 49              I     rola
5664 AF39 4C              L     inca
5665 AF3A 4C              L     inca
5666 AF3B 20 56            V    bra 56
5667 AF3D 41              A     illegal
5668 AF3E 4C              L     inca
5669 AF3F 20 4E            N    bra 4e
5670 AF41 00              .     test
5671 AF42 50              P     negb
5672 AF43 52              R     illegal
5673 AF44 43              C     coma
5674 AF45 20 48            H    bra 48
5675 AF47 4F              O     clra
5676 AF48 4C              L     inca
5677 AF49 44              D     lsra
5678 AF4A 20 59            Y    bra 59
5679 AF4C 00              .     test
5680 AF4D 50              P     negb
5681 AF4E 52              R     illegal
5682 AF4F 43              C     coma
5683 AF50 20 48            H    bra 48
5684 AF52 4F              O     clra
5685 AF53 4C              L     inca
5686 AF54 44              D     lsra
5687 AF55 20 4E            N    bra 4e
5688 AF57 00              .     test
5689 AF58 50              P     negb
5690 AF59 52              R     illegal
5691 AF5A 43              C     coma
5692 AF5B 20 44            D    bra 44
5693 AF5D 49              I     rola
5694 AF5E 53              S     comb
5695 AF5F 50              P     negb
5696 AF60 20 59            Y    bra 59
5697 AF62 00              .     test
5698 AF63 50              P     negb
5699 AF64 52              R     illegal
5700 AF65 43              C     coma
5701 AF66 20 44            D    bra 44
5702 AF68 49              I     rola
5703 AF69 53              S     comb
5704 AF6A 50              P     negb
5705 AF6B 20 4E            N    bra 4e
5706 AF6D 00              .     test
5707 AF6E 46              F     rora
5708 AF6F 52              R     illegal
5709 AF70 45              E     illegal
5710 AF71 45              E     illegal
5711 AF72 20 56            V    bra 56
5712 AF74 4E              N     illegal
5713 AF75 44              D     lsra
5714 AF76 20 59            Y    bra 59
5715 AF78 00              .     test
5716 AF79 46              F     rora
5717 AF7A 52              R     illegal
5718 AF7B 45              E     illegal
5719 AF7C 45              E     illegal
5720 AF7D 20 56            V    bra 56
5721 AF7F 4E              N     illegal
5722 AF80 44              D     lsra
5723 AF81 20 4E            N    bra 4e
5724 AF83 00              .     test
5725 AF84 24 31           $1    bcc 31
5726 AF86 20 43            C    bra 43
5727 AF88 48              H     asla
5728 AF89 4E              N     illegal
5729 AF8A 47              G     asra
5730 AF8B 52              R     illegal
5731 AF8C 20 59            Y    bra 59
5732 AF8E 00              .     test
5733 AF8F 24 31           $1    bcc 31
5734 AF91 20 43            C    bra 43
5735 AF93 48              H     asla
5736 AF94 4E              N     illegal
5737 AF95 47              G     asra
5738 AF96 52              R     illegal
5739 AF97 20 4E            N    bra 4e
5740 AF99 00              .     test
5741 AF9A 43              C     coma
5742 AF9B 4C              L     inca
5743 AF9C 52              R     illegal
5744 AF9D 20 4D            M    bra 4d
5745 AF9F 49              I     rola
5746 AFA0 53              S     comb
5747 AFA1 20 20                 bra 20
5748 AFA3 59              Y     rolb
5749 AFA4 00              .     test
5750 AFA5 43              C     coma
5751 AFA6 4C              L     inca
5752 AFA7 52              R     illegal
5753 AFA8 20 4D            M    bra 4d
5754 AFAA 49              I     rola
5755 AFAB 53              S     comb
5756 AFAC 20 20                 bra 20
5757 AFAE 4E              N     illegal
5758 AFAF 00              .     test
5759 AFB0 48              H     asla
5760 AFB1 49              I     rola
5761 AFB2 54              T     lsrb
5762 AFB3 20 4B            K    bra 4b
5763 AFB5 45              E     illegal
5764 AFB6 59              Y     rolb
5765 AFB7 22 30           "0    bhi 30
5766 AFB9 22 00           ".    bhi 00
5767 AFBB 45              E     illegal
5768 AFBC 4E              N     illegal
5769 AFBD 54              T     lsrb
5770 AFBE 45              E     illegal
5771 AFBF 52              R     illegal
5772 AFC0 20 43            C    bra 43
5773 AFC2 4F              O     clra
5774 AFC3 44              D     lsra
5775 AFC4 45              E     illegal
5776 AFC5 00              .     test
5777 AFC6 53              S     comb
5778 AFC7 45              E     illegal
5779 AFC8 43              C     coma
5780 AFC9 55              U     illegal
5781 AFCA 52              R     illegal
5782 AFCB 45              E     illegal
5783 AFCC 20 4F            O    bra 4f
5784 AFCE 4E              N     illegal
5785 AFCF 20 00            .    bra 00
5786 AFD1 53              S     comb
5787 AFD2 45              E     illegal
5788 AFD3 43              C     coma
5789 AFD4 55              U     illegal
5790 AFD5 52              R     illegal
5791 AFD6 45              E     illegal
5792 AFD7 20 4F            O    bra 4f
5793 AFD9 46              F     rora
5794 AFDA 46              F     rora
5795 AFDB 00              .     test
5796 AFDC 2D 20           -     blt 20
5797 AFDE 53              S     comb
5798 AFDF 41              A     illegal
5799 AFE0 56              V     rorb
5800 AFE1 49              I     rola
5801 AFE2 4E              N     illegal
5802 AFE3 47              G     asra
5803 AFE4 20 2D            -    bra 2d
5804 AFE6 00              .     test
5805 AFE7 2D 50           -P    blt 50
5806 AFE9 52              R     illegal
5807 AFEA 49              I     rola
5808 AFEB 4E              N     illegal
5809 AFEC 54              T     lsrb
5810 AFED 49              I     rola
5811 AFEE 4E              N     illegal
5812 AFEF 47              G     asra
5813 AFF0 2D 00           -.    blt 00
5814
5815 AFF2 4F              O     clra
5816 AFF3 56              V     rorb
5817 AFF4 45              E     illegal
5818 AFF5 52              R     illegal
5819 AFF6 20 43            C    bra 43
5820 AFF8 52              R     illegal
5821 AFF9 4E              N     illegal
5822 AFFA 54              T     lsrb
5823 AFFB 3D              =     mul
5824 AFFC 00              .     test
5825
5826 AFFD 48              H     asla
5827 AFFE 4F              O     clra
5828 AFFF 4D              M     tsta
5829 B000 45              E     illegal
5830 B001 20 46            F    bra 46
5831 B003 41              A     illegal
5832 B004 49              I     rola
5833 B005 4C              L     inca
5834 B006 3D              =     mul
5835 B007 00              .     test
5836 B008 43              C     coma
5837 B009 48              H     asla
5838 B00A 4B              K     illegal
5839 B00B 20 50            P    bra 50
5840 B00D 52              R     illegal
5841 B00E 49              I     rola
5842 B00F 43              C     coma
5843 B010 45              E     illegal
5844 B011 53              S     comb
5845 B012 00              .     test
5846
5847 B013 48              H     asla
5848 B014 49              I     rola
5849 B015 54              T     lsrb
5850 B016 20 52            R    bra 52
5851 B018 45              E     illegal
5852 B019 53              S     comb
5853 B01A 45              E     illegal
5854 B01B 54              T     lsrb
5855 B01C 20 00            .    bra 00
5856
5857 B01E 43              C     coma
5858 B01F 4F              O     clra
5859 B020 49              I     rola
5860 B021 4E              N     illegal
5861 B022 20 20                 bra 20
5862 B024 20 4A            J    bra 4a
5863 B026 41              A     illegal
5864 B027 4D              M     tsta
5865 B028 00              .     test
5866
5867 B029 42              B     illegal
5868 B02A 41              A     illegal
5869 B02B 44              D     lsra
5870 B02C 20 53            S    bra 53
5871 B02E 45              E     illegal
5872 B02F 4E              N     illegal
5873 B030 53              S     comb
5874 B031 4F              O     clra
5875 B032 52              R     illegal
5876 B033 00              .     test
5877
5878 B034 43              C     coma
5879 B035 48              H     asla
5880 B036 47              G     asra
5881 B037 52              R     illegal
5882 B038 20 50            P    bra 50
5883 B03A 57              W     asrb
5884 B03B 52              R     illegal
5885 B03C 55              U     illegal
5886 B03D 50              P     negb
5887 B03E 00              .     test
5888
5889 B03F 4C              L     inca
5890 B040 49              I     rola
5891 B041 4E              N     illegal
5892 B042 4B              K     illegal
5893 B043 20 50            P    bra 50
5894 B045 57              W     asrb
5895 B046 52              R     illegal
5896 B047 55              U     illegal
5897 B048 50              P     negb
5898 B049 00              .     test
5899
5900 B04A 43              C     coma
5901 B04B 41              A     illegal
5902 B04C 52              R     illegal
5903 B04D 44              D     lsra
5904 B04E 20 50            P    bra 50
5905 B050 57              W     asrb
5906 B051 52              R     illegal
5907 B052 55              U     illegal
5908 B053 50              P     negb
5909 B054 00              .     test
5910
5911 B055 42              B     illegal
5912 B056 49              I     rola
5913 B057 4C              L     inca
5914 B058 4C              L     inca
5915 B059 20 45            E    bra 45
5916 B05B 52              R     illegal
5917 B05C 52              R     illegal
5918 B05D 4F              O     clra
5919 B05E 52              R     illegal
5920 B05F 00              .     test
5921
5922 B060 54              T     lsrb
5923 B061 55              U     illegal
5924 B062 42              B     illegal
5925 B063 45              E     illegal
5926 B064 20 45            E    bra 45
5927 B066 52              R     illegal
5928 B067 52              R     illegal
5929 B068 4F              O     clra
5930 B069 52              R     illegal
5931 B06A 00              .     test
5932 B06B 4E              N     illegal
5933 B06C 4F              O     clra
5934 B06D 20 20                 bra 20
5935 B06F 43              C     coma
5936 B070 48              H     asla
5937 B071 41              A     illegal
5938 B072 4E              N     illegal
5939 B073 47              G     asra
5940 B074 45              E     illegal
5941 B075 00              .     test
5942 B076 20 4E            N    bra 4e
5943 B078 4F              O     clra
5944 B079 20 46            F    bra 46
5945 B07B 49              I     rola
5946 B07C 56              V     rorb
5947 B07D 45              E     illegal
5948 B07E 53              S     comb
5949 B07F 20 00            .    bra 00
5950
5951 B081 4E              N     illegal
5952 B082 4F              O     clra
5953 B083 20 20                 bra 20
5954 B085 41              A     illegal
5955 B086 43              C     coma
5956 B087 43              C     coma
5957 B088 45              E     illegal
5958 B089 53              S     comb
5959 B08A 53              S     comb
5960 B08B 00              .     test
5961 B08C 4E              N     illegal
5962 B08D 4F              O     clra
5963 B08E 20 20                 bra 20
5964 B090 45              E     illegal
5965 B091 52              R     illegal
5966 B092 52              R     illegal
5967 B093 4F              O     clra
5968 B094 52              R     illegal
5969 B095 53              S     comb
5970 B096 00              .     test
5971 B097 54              T     lsrb
5972 B098 45              E     illegal
5973 B099 53              S     comb
5974 B09A 54              T     lsrb
5975 B09B 20 20                 bra 20
5976 B09D 56              V     rorb
5977 B09E 45              E     illegal
5978 B09F 4E              N     illegal
5979 B0A0 44              D     lsra
5980 B0A1 00              .     test
5981 B0A2 4D              M     tsta
5982 B0A3 54              T     lsrb
5983 B0A4 52              R     illegal
5984 B0A5 20 46            F    bra 46
5985 B0A7 55              U     illegal
5986 B0A8 4E              N     illegal
5987 B0A9 43              C     coma
5988 B0AA 54              T     lsrb
5989 B0AB 3F              ?     swi
5990 B0AC 00              .     test
5991 B0AD 50              P     negb
5992 B0AE 52              R     illegal
5993 B0AF 4F              O     clra
5994 B0B0 47              G     asra
5995 B0B1 52              R     illegal
5996 B0B2 41              A     illegal
5997 B0B3 4D              M     tsta
5998 B0B4 20 20                 bra 20
5999 B0B6 3F              ?     swi
6000 B0B7 00              .     test
6001 B0B8 53              S     comb
6002 B0B9 45              E     illegal
6003 B0BA 4C              L     inca
6004 B0BB 45              E     illegal
6005 B0BC 43              C     coma
6006 B0BD 54              T     lsrb
6007 B0BE 49              I     rola
6008 B0BF 4F              O     clra
6009 B0C0 4E              N     illegal
6010 B0C1 3F              ?     swi
6011 B0C2 00              .     test
6012
6013 B0C3 14              .     bset
6014 B0C4 00              .     test
6015 B0C5 14              .     bset
6016 B0C6 C8 05           ..    eorb #05
6017 B0C8 00              .     test
6018 B0C9 05              .     asld
6019 B0CA 00              .     test
6020 B0CB 02              .     idiv
6021 B0CC 00              .     test
6022 B0CD 02              .     idiv
6023 B0CE 00              .     test
6024 B0CF 01              .     nop
6025 B0D0 00              .     test
6026 B0D1 01              .     nop
6027 B0D2 00              .     test
6028 B0D3 01              .     nop
6029 B0D4 0C              .     clc
6030 B0D5 17              .     tba
6031 B0D6 22 2E           ".    bhi 2e
6032 B0D8 39              9     rts
6033 B0D9 44              D     lsra
6034 B0DA 4F              O     clra
6035 B0DB 0B              .     sev
6036 B0DC 16              .     tab
6037 B0DD 21 2C           !,    brn 2c
6038 B0DF 38              8     pulx
6039 B0E0 43              C     coma
6040 B0E1 4E              N     illegal
6041 B0E2 59              Y     rolb
6042 B0E3 15              .     bclr
6043 B0E4 20 2B            +    bra 2b
6044 B0E6 36              6     psha
6045 B0E7 42              B     illegal
6046 B0E8 4D              M     tsta
6047 B0E9 58              X     aslb
6048 B0EA 63 1F           c.    com 1f,x
6049 B0EC 2A 35           *5    bpl 35
6050 B0EE 40              @     nega
6051 B0EF 4C              L     inca
6052 B0F0 57              W     asrb
6053 B0F1 62              b     illegal
6054 B0F2 09              .     dex
6055 B0F3 29 34           )4    bvs 34
6056 B0F5 3F              ?     swi
6057 B0F6 4A              J     deca
6058 B0F7 56              V     rorb
6059 B0F8 61              a     illegal
6060 B0F9 08              .     inx
6061 B0FA 13              .     brclr
6062 B0FB 33              3     pulb
6063 B0FC 3E              >     wai
6064 B0FD 49              I     rola
6065 B0FE 54              T     lsrb
6066 B0FF 60 07           `.    neg 07,x
6067 B101 12              .     brset
6068 B102 1D 3D           .=    bclr add,x 3d,x
6069 B104 48              H     asla
6070 B105 53              S     comb
6071 B106 5E              ^     illegal
6072 B107 06              .     tap
6073 B108 11              .     cba
6074 B109 1C 27           .'    bset add,x 27,x
6075 B10B 47              G     asra
6076 B10C 52              R     illegal
6077 B10D 5D              ]     tstb
6078 B10E 04              .     lsrd
6079 B10F 10              .     sba
6080 B110 1B              .     aba
6081 B111 26 31           &1    bne 31
6082 B113 51              Q     illegal
6083 B114 5C              \     incb
6084 B115 03              .     fdiv
6085 B116 0E              .     cli
6086 B117 1A              .     illegal
6087 B118 25 30           %0    bcs 30
6088 B11A 3B              ;     rti
6089 B11B 5B              [     illegal
6090 B11C 02              .     idiv
6091 B11D 0D              .     sec
6092 B11E 18              .     illegal
6093 B11F 24 2F           $/    bcc 2f
6094 B121 3A              :     abx
6095 B122 45              E     illegal
6096
6097 table of powers of 2
6098
6099 B123 00 01 02 04 08
6100 B128 10 20 40 80
6101
6102 B12C 00
6103 B12D 00              .     test
6104 B12E 2A 2A           **    bpl 2a
6105 B130 45              E     illegal
6106 B131 52              R     illegal
6107 B132 52              R     illegal
6108 B133 4F              O     clra
6109 B134 52              R     illegal
6110 B135 2A 2A           **    bpl 2a
6111 B137 2A 00           *.    bpl 00
6112 B139 2A 2A           **    bpl 2a
6113 B13B 2A 2A           **    bpl 2a
6114 B13D 2A 2A           **    bpl 2a
6115 B13F 2A 2A           **    bpl 2a
6116 B141 2A 2A           **    bpl 2a
6117 B143 00              .     test
6118 B144 4F              O     clra
6119 B145 4F              O     clra
6120 B146 4F              O     clra
6121 B147 4F              O     clra
6122 B148 4F              O     clra
6123 B149 4F              O     clra
6124 B14A 4F              O     clra
6125 B14B 4F              O     clra
6126 B14C 4F              O     clra
6127 B14D 4F              O     clra
6128 B14E 00              .     test
6129 B14F 52              R     illegal
6130 B150 41              A     illegal
6131 B151 4D              M     tsta
6132 B152 20 20                 bra 20
6133 B154 20 46            F    bra 46
6134 B156 41              A     illegal
6135 B157 49              I     rola
6136 B158 4C              L     inca
6137 B159 00              .     test
6138 B15A 50              P     negb
6139 B15B 32              2     pula
6140 B15C 20 20                 bra 20
6141 B15E 20 20                 bra 20
6142 B160 46              F     rora
6143 B161 41              A     illegal
6144 B162 49              I     rola
6145 B163 4C              L     inca
6146 B164 00              .     test
6147 B165 50              P     negb
6148 B166 32              2     pula
6149 B167 2D 50           -P    blt 50
6150 B169 33              3     pulb
6151 B16A 20 46            F    bra 46
6152 B16C 41              A     illegal
6153 B16D 49              I     rola
6154 B16E 4C              L     inca
6155 B16F 00              .     test
6156 B170 50              P     negb
6157 B171 32              2     pula
6158 B172 2D 50           -P    blt 50
6159 B174 38              8     pulx
6160 B175 20 46            F    bra 46
6161 B177 41              A     illegal
6162 B178 49              I     rola
6163 B179 4C              L     inca
6164 B17A 00              .     test
6165 B17B 50              P     negb
6166 B17C 32              2     pula
6167 B17D 2D 50           -P    blt 50
6168 B17F 39              9     rts
6169 B180 20 46            F    bra 46
6170 B182 41              A     illegal
6171 B183 49              I     rola
6172 B184 4C              L     inca
6173 B185 00              .     test
6174 B186 50              P     negb
6175 B187 33              3     pulb
6176 B188 2D 50           -P    blt 50
6177 B18A 34              4     des
6178 B18B 20 46            F    bra 46
6179 B18D 41              A     illegal
6180 B18E 49              I     rola
6181 B18F 4C              L     inca
6182 B190 00              .     test
6183 B191 50              P     negb
6184 B192 35              5     txs
6185 B193 20 20                 bra 20
6186 B195 20 20                 bra 20
6187 B197 46              F     rora
6188 B198 41              A     illegal
6189 B199 49              I     rola
6190 B19A 4C              L     inca
6191 B19B 00              .     test
6192 B19C 50              P     negb
6193 B19D 35              5     txs
6194 B19E 2D 50           -P    blt 50
6195 B1A0 37              7     pshb
6196 B1A1 20 46            F    bra 46
6197 B1A3 41              A     illegal
6198 B1A4 49              I     rola
6199 B1A5 4C              L     inca
6200 B1A6 00              .     test
6201 B1A7 50              P     negb
6202 B1A8 37              7     pshb
6203 B1A9 20 20                 bra 20
6204 B1AB 20 20                 bra 20
6205 B1AD 46              F     rora
6206 B1AE 41              A     illegal
6207 B1AF 49              I     rola
6208 B1B0 4C              L     inca
6209 B1B1 00              .     test
6210 B1B2 50              P     negb
6211 B1B3 37              7     pshb
6212 B1B4 2D 50           -P    blt 50
6213 B1B6 38              8     pulx
6214 B1B7 20 46            F    bra 46
6215 B1B9 41              A     illegal
6216 B1BA 49              I     rola
6217 B1BB 4C              L     inca
6218 B1BC 00              .     test
6219 B1BD 2D 20           -     blt 20
6220 B1BF 50              P     negb
6221 B1C0 41              A     illegal
6222 B1C1 53              S     comb
6223 B1C2 53              S     comb
6224 B1C3 45              E     illegal
6225 B1C4 44              D     lsra
6226 B1C5 20 2D            -    bra 2d
6227 B1C7 00              .     test
6228 B1C8 09              .     dex
6229 B1C9 12              .     brset
6230 B1CA 1B              .     aba
6231 B1CB 24 2C           $,    bcc 2c
6232 B1CD 35              5     txs
6233 B1CE 3E              >     wai
6234 B1CF 47              G     asra
6235 B1D0 54              T     lsrb
6236 B1D1 48              H     asla
6237 B1D2 41              A     illegal
6238 B1D3 4E              N     illegal
6239 B1D4 4B              K     illegal
6240 B1D5 20 59            Y    bra 59
6241 B1D7 4F              O     clra
6242 B1D8 55              U     illegal
6243 B1D9 20 46            F    bra 46
6244 B1DB 4F              O     clra
6245 B1DC 52              R     illegal
6246 B1DD 20 59            Y    bra 59
6247 B1DF 4F              O     clra
6248 B1E0 55              U     illegal
6249 B1E1 52              R     illegal
6250 B1E2 20 50            P    bra 50
6251 B1E4 41              A     illegal
6252 B1E5 54              T     lsrb
6253 B1E6 52              R     illegal
6254 B1E7 4F              O     clra
6255 B1E8 4E              N     illegal
6256 B1E9 41              A     illegal
6257 B1EA 47              G     asra
6258 B1EB 45              E     illegal
6259 B1EC 20 20                 bra 20
6260 B1EE 00              .     test
6261
6262 B1EF 20 52            R    bra 52
6263 B1F1 4F              O     clra
6264 B1F2 57              W     asrb
6265 B1F3 45              E     illegal
6266 B1F4 20 49            I    bra 49
6267 B1F6 4E              N     illegal
6268 B1F7 54              T     lsrb
6269 B1F8 20 00            .    bra 00
6270
6271 B1FA 43              C     coma
6272 B1FB 4F              O     clra
6273 B1FC 50              P     negb
6274 B1FD 59              Y     rolb
6275 B1FE 52              R     illegal
6276 B1FF 49              I     rola
6277 B200 47              G     asra
6278 B201 48              H     asla
6279 B202 54              T     lsrb
6280 B203 20 00            .    bra 00
6281
6282 B205 20 20                 bra 20
6283 B207 20 31            1    bra 31
6284 B209 39              9     rts
6285 B20A 39              9     rts
6286 B20B 33              3     pulb
6287 B20C 20 20                 bra 20
6288 B20E 20 00            .    bra 00
6289
6290 B210 35              5     txs
6291 B211 39              9     rts
6292 B212 30              0     tsx
6293 B213 30              0     tsx
6294 B214 20 56            V    bra 56
6295 B216 45              E     illegal
6296 B217 52              R     illegal
6297 B218 20 35            5    bra 35
6298 B21A 00              .     test
6299
6300 B21B 20 20                 bra 20
6301 B21D 20 20                 bra 20
6302 B21F 20 20                 bra 20
6303 B221 20 20                 bra 20
6304 B223 20 52            R    bra 52
6305 B225 4F              O     clra
6306 B226 57              W     asrb
6307 B227 45              E     illegal
6308 B228 20 20                 bra 20
6309 B22A 49              I     rola
6310 B22B 4E              N     illegal
6311 B22C 54              T     lsrb
6312 B22D 45              E     illegal
6313 B22E 52              R     illegal
6314 B22F 4E              N     illegal
6315 B230 41              A     illegal
6316 B231 54              T     lsrb
6317 B232 49              I     rola
6318 B233 4F              O     clra
6319 B234 4E              N     illegal
6320 B235 41              A     illegal
6321 B236 4C              L     inca
6322 B237 00              .     test
6323 B238 20 20                 bra 20
6324 B23A 20 20                 bra 20
6325 B23C 20 20                 bra 20
6326 B23E 20 20                 bra 20
6327 B240 2D 2D           --    blt 2d
6328 B242 2D 2D           --    blt 2d
6329 B244 2D 2D           --    blt 2d
6330 B246 2D 2D           --    blt 2d
6331 B248 2D 2D           --    blt 2d
6332 B24A 2D 2D           --    blt 2d
6333 B24C 2D 2D           --    blt 2d
6334 B24E 2D 2D           --    blt 2d
6335 B250 2D 2D           --    blt 2d
6336 B252 2D 2D           --    blt 2d
6337 B254 2D 00           -.    blt 00
6338 B256 20 20                 bra 20
6339 B258 20 20                 bra 20
6340 B25A 20 20                 bra 20
6341 B25C 20 20                 bra 20
6342 B25E 35              5     txs
6343 B25F 39              9     rts
6344 B260 30              0     tsx
6345 B261 30              0     tsx
6346 B262 20 53            S    bra 53
6347 B264 4F              O     clra
6348 B265 46              F     rora
6349 B266 54              T     lsrb
6350 B267 57              W     asrb
6351 B268 41              A     illegal
6352 B269 52              R     illegal
6353 B26A 45              E     illegal
6354 B26B 20 56            V    bra 56
6355 B26D 45              E     illegal
6356 B26E 52              R     illegal
6357 B26F 2E 20           .     bgt 20
6358 B271 35              5     txs
6359 B272 20 20                 bra 20
6360 B274 00              .     test
6361 B275 20 20                 bra 20
6362 B277 20 20                 bra 20
6363 B279 20 20                 bra 20
6364 B27B 20 20                 bra 20
6365 B27D 20 20                 bra 20
6366 B27F 20 41            A    bra 41
6367 B281 43              C     coma
6368 B282 43              C     coma
6369 B283 4F              O     clra
6370 B284 55              U     illegal
6371 B285 4E              N     illegal
6372 B286 54              T     lsrb
6373 B287 20 20                 bra 20
6374 B289 52              R     illegal
6375 B28A 45              E     illegal
6376 B28B 43              C     coma
6377 B28C 4F              O     clra
6378 B28D 52              R     illegal
6379 B28E 44              D     lsra
6380 B28F 00              .     test
6381 B290 53              S     comb
6382 B291 45              E     illegal
6383 B292 52              R     illegal
6384 B293 49              I     rola
6385 B294 41              A     illegal
6386 B295 4C              L     inca
6387 B296 20 20                 bra 20
6388 B298 23 20           #     bls 20
6389 B29A 20 20                 bra 20
6390 B29C 20 20                 bra 20
6391 B29E 20 2D            -    bra 2d
6392 B2A0 20 00            .    bra 00
6393 B2A2 4D              M     tsta
6394 B2A3 41              A     illegal
6395 B2A4 43              C     coma
6396 B2A5 48              H     asla
6397 B2A6 49              I     rola
6398 B2A7 4E              N     illegal
6399 B2A8 45              E     illegal
6400 B2A9 20 49            I    bra 49
6401 B2AB 44              D     lsra
6402 B2AC 20 20                 bra 20
6403 B2AE 20 20                 bra 20
6404 B2B0 20 2D            -    bra 2d
6405 B2B2 20 00            .    bra 00
6406 B2B4 41              A     illegal
6407 B2B5 55              U     illegal
6408 B2B6 44              D     lsra
6409 B2B7 49              I     rola
6410 B2B8 54              T     lsrb
6411 B2B9 20 4E            N    bra 4e
6412 B2BB 55              U     illegal
6413 B2BC 4D              M     tsta
6414 B2BD 42              B     illegal
6415 B2BE 45              E     illegal
6416 B2BF 52              R     illegal
6417 B2C0 20 20                 bra 20
6418 B2C2 20 20                 bra 20
6419 B2C4 20 00            .    bra 00
6420 B2C6 53              S     comb
6421 B2C7 41              A     illegal
6422 B2C8 4C              L     inca
6423 B2C9 45              E     illegal
6424 B2CA 53              S     comb
6425 B2CB 20 20                 bra 20
6426 B2CD 28 52           (R    bvc 52
6427 B2CF 29 20           )     bvs 20
6428 B2D1 20 20                 bra 20
6429 B2D3 20 20                 bra 20
6430 B2D5 2D 20           -     blt 20
6431 B2D7 00              .     test
6432 B2D8 53              S     comb
6433 B2D9 41              A     illegal
6434 B2DA 4C              L     inca
6435 B2DB 45              E     illegal
6436 B2DC 53              S     comb
6437 B2DD 20 20                 bra 20
6438 B2DF 28 4E           (N    bvc 4e
6439 B2E1 29 20           )     bvs 20
6440 B2E3 20 20                 bra 20
6441 B2E5 20 20                 bra 20
6442 B2E7 2D 20           -     blt 20
6443 B2E9 00              .     test
6444 B2EA 42              B     illegal
6445 B2EB 41              A     illegal
6446 B2EC 47              G     asra
6447 B2ED 20 54            T    bra 54
6448 B2EF 4F              O     clra
6449 B2F0 54              T     lsrb
6450 B2F1 41              A     illegal
6451 B2F2 4C              L     inca
6452 B2F3 20 20                 bra 20
6453 B2F5 20 20                 bra 20
6454 B2F7 20 20                 bra 20
6455 B2F9 2D 20           -     blt 20
6456 B2FB 00              .     test
6457 B2FC 43              C     coma
6458 B2FD 41              A     illegal
6459 B2FE 53              S     comb
6460 B2FF 48              H     asla
6461 B300 20 42            B    bra 42
6462 B302 4F              O     clra
6463 B303 58              X     aslb
6464 B304 20 20                 bra 20
6465 B306 20 20                 bra 20
6466 B308 20 20                 bra 20
6467 B30A 20 2D            -    bra 2d
6468 B30C 20 00            .    bra 00
6469 B30E 43              C     coma
6470 B30F 41              A     illegal
6471 B310 52              R     illegal
6472 B311 44              D     lsra
6473 B312 20 53            S    bra 53
6474 B314 41              A     illegal
6475 B315 4C              L     inca
6476 B316 45              E     illegal
6477 B317 53              S     comb
6478 B318 20 20                 bra 20
6479 B31A 20 20                 bra 20
6480 B31C 20 2D            -    bra 2d
6481 B31E 20 00            .    bra 00
6482 B320 42              B     illegal
6483 B321 49              I     rola
6484 B322 4C              L     inca
6485 B323 4C              L     inca
6486 B324 53              S     comb
6487 B325 20 49            I    bra 49
6488 B327 4E              N     illegal
6489 B328 20 53            S    bra 53
6490 B32A 54              T     lsrb
6491 B32B 41              A     illegal
6492 B32C 43              C     coma
6493 B32D 4B              K     illegal
6494 B32E 45              E     illegal
6495 B32F 52              R     illegal
6496 B330 00              .     test
6497 B331 20 20                 bra 20
6498 B333 20 20                 bra 20
6499 B335 42              B     illegal
6500 B336 49              I     rola
6501 B337 4C              L     inca
6502 B338 4C              L     inca
6503 B339 20 54            T    bra 54
6504 B33B 4F              O     clra
6505 B33C 54              T     lsrb
6506 B33D 41              A     illegal
6507 B33E 4C              L     inca
6508 B33F 20 2D            -    bra 2d
6509 B341 20 20                 bra 20
6510 B343 20 20                 bra 20
6511 B345 20 20                 bra 20
6512 B347 20 20                 bra 20
6513 B349 00              .     test
6514 B34A 20 20                 bra 20
6515 B34C 20 20                 bra 20
6516 B34E 4F              O     clra
6517 B34F 4E              N     illegal
6518 B350 45              E     illegal
6519 B351 53              S     comb
6520 B352 20 20                 bra 20
6521 B354 20 20                 bra 20
6522 B356 20 20                 bra 20
6523 B358 20 2D            -    bra 2d
6524 B35A 20 00            .    bra 00
6525 B35C 20 20                 bra 20
6526 B35E 20 20                 bra 20
6527 B360 54              T     lsrb
6528 B361 57              W     asrb
6529 B362 4F              O     clra
6530 B363 53              S     comb
6531 B364 20 20                 bra 20
6532 B366 20 20                 bra 20
6533 B368 20 20                 bra 20
6534 B36A 20 2D            -    bra 2d
6535 B36C 20 00            .    bra 00
6536 B36E 20 20                 bra 20
6537 B370 20 20                 bra 20
6538 B372 46              F     rora
6539 B373 49              I     rola
6540 B374 56              V     rorb
6541 B375 45              E     illegal
6542 B376 53              S     comb
6543 B377 20 20                 bra 20
6544 B379 20 20                 bra 20
6545 B37B 20 20                 bra 20
6546 B37D 2D 20           -     blt 20
6547 B37F 00              .     test
6548 B380 20 20                 bra 20
6549 B382 20 20                 bra 20
6550 B384 54              T     lsrb
6551 B385 45              E     illegal
6552 B386 4E              N     illegal
6553 B387 53              S     comb
6554 B388 20 20                 bra 20
6555 B38A 20 20                 bra 20
6556 B38C 20 20                 bra 20
6557 B38E 20 2D            -    bra 2d
6558 B390 20 00            .    bra 00
6559 B392 20 20                 bra 20
6560 B394 20 20                 bra 20
6561 B396 54              T     lsrb
6562 B397 57              W     asrb
6563 B398 45              E     illegal
6564 B399 4E              N     illegal
6565 B39A 54              T     lsrb
6566 B39B 49              I     rola
6567 B39C 45              E     illegal
6568 B39D 53              S     comb
6569 B39E 20 20                 bra 20
6570 B3A0 20 2D            -    bra 2d
6571 B3A2 20 00            .    bra 00
6572 B3A4 43              C     coma
6573 B3A5 4F              O     clra
6574 B3A6 49              I     rola
6575 B3A7 4E              N     illegal
6576 B3A8 53              S     comb
6577 B3A9 20 49            I    bra 49
6578 B3AB 4E              N     illegal
6579 B3AC 20 54            T    bra 54
6580 B3AE 55              U     illegal
6581 B3AF 42              B     illegal
6582 B3B0 45              E     illegal
6583 B3B1 53              S     comb
6584 B3B2 00              .     test
6585 B3B3 20 20                 bra 20
6586 B3B5 20 20                 bra 20
6587 B3B7 54              T     lsrb
6588 B3B8 55              U     illegal
6589 B3B9 42              B     illegal
6590 B3BA 45              E     illegal
6591 B3BB 20 54            T    bra 54
6592 B3BD 4F              O     clra
6593 B3BE 54              T     lsrb
6594 B3BF 41              A     illegal
6595 B3C0 4C              L     inca
6596 B3C1 20 2D            -    bra 2d
6597 B3C3 20 20                 bra 20
6598 B3C5 20 20                 bra 20
6599 B3C7 20 20                 bra 20
6600 B3C9 00              .     test
6601 B3CA 20 20                 bra 20
6602 B3CC 20 20                 bra 20
6603 B3CE 24 31           $1    bcc 31
6604 B3D0 20 43            C    bra 43
6605 B3D2 4F              O     clra
6606 B3D3 49              I     rola
6607 B3D4 4E              N     illegal
6608 B3D5 20 20                 bra 20
6609 B3D7 20 20                 bra 20
6610 B3D9 2D 20           -     blt 20
6611 B3DB 00              .     test
6612 B3DC 20 20                 bra 20
6613 B3DE 20 20                 bra 20
6614 B3E0 51              Q     illegal
6615 B3E1 55              U     illegal
6616 B3E2 41              A     illegal
6617 B3E3 52              R     illegal
6618 B3E4 54              T     lsrb
6619 B3E5 45              E     illegal
6620 B3E6 52              R     illegal
6621 B3E7 53              S     comb
6622 B3E8 20 20                 bra 20
6623 B3EA 20 2D            -    bra 2d
6624 B3EC 20 00            .    bra 00
6625 B3EE 20 20                 bra 20
6626 B3F0 20 20                 bra 20
6627 B3F2 44              D     lsra
6628 B3F3 49              I     rola
6629 B3F4 4D              M     tsta
6630 B3F5 45              E     illegal
6631 B3F6 53              S     comb
6632 B3F7 20 20                 bra 20
6633 B3F9 20 20                 bra 20
6634 B3FB 20 20                 bra 20
6635 B3FD 2D 20           -     blt 20
6636 B3FF 00              .     test
6637 B400 20 20                 bra 20
6638 B402 20 20                 bra 20
6639 B404 4E              N     illegal
6640 B405 49              I     rola
6641 B406 43              C     coma
6642 B407 4B              K     illegal
6643 B408 45              E     illegal
6644 B409 4C              L     inca
6645 B40A 53              S     comb
6646 B40B 20 20                 bra 20
6647 B40D 20 20                 bra 20
6648 B40F 2D 20           -     blt 20
6649 B411 00              .     test
6650 B412 57              W     asrb
6651 B413 49              I     rola
6652 B414 4E              N     illegal
6653 B415 2D 53           -S    blt 53
6654 B417 4E              N     illegal
6655 B418 4B              K     illegal
6656 B419 20 56            V    bra 56
6657 B41B 45              E     illegal
6658 B41C 4E              N     illegal
6659 B41D 44              D     lsra
6660 B41E 53              S     comb
6661 B41F 20 20                 bra 20
6662 B421 2D 20           -     blt 20
6663 B423 00              .     test
6664 B424 53              S     comb
6665 B425 48              H     asla
6666 B426 4F              O     clra
6667 B427 50              P     negb
6668 B428 50              P     negb
6669 B429 45              E     illegal
6670 B42A 52              R     illegal
6671 B42B 20 56            V    bra 56
6672 B42D 45              E     illegal
6673 B42E 4E              N     illegal
6674 B42F 44              D     lsra
6675 B430 53              S     comb
6676 B431 20 20                 bra 20
6677 B433 2D 20           -     blt 20
6678 B435 00              .     test
6679 B436 50              P     negb
6680 B437 52              R     illegal
6681 B438 4F              O     clra
6682 B439 4D              M     tsta
6683 B43A 4F              O     clra
6684 B43B 20 56            V    bra 56
6685 B43D 45              E     illegal
6686 B43E 4E              N     illegal
6687 B43F 44              D     lsra
6688 B440 53              S     comb
6689 B441 20 20                 bra 20
6690 B443 20 20                 bra 20
6691 B445 2D 20           -     blt 20
6692 B447 00              .     test
6693 B448 46              F     rora
6694 B449 52              R     illegal
6695 B44A 45              E     illegal
6696 B44B 45              E     illegal
6697 B44C 20 20                 bra 20
6698 B44E 56              V     rorb
6699 B44F 45              E     illegal
6700 B450 4E              N     illegal
6701 B451 44              D     lsra
6702 B452 53              S     comb
6703 B453 20 20                 bra 20
6704 B455 20 20                 bra 20
6705 B457 2D 20           -     blt 20
6706 B459 00              .     test
6707 B45A 56              V     rorb
6708 B45B 45              E     illegal
6709 B45C 4E              N     illegal
6710 B45D 44              D     lsra
6711 B45E 53              S     comb
6712 B45F 20 50            P    bra 50
6713 B461 45              E     illegal
6714 B462 52              R     illegal
6715 B463 20 50            P    bra 50
6716 B465 52              R     illegal
6717 B466 4F              O     clra
6718 B467 44              D     lsra
6719 B468 55              U     illegal
6720 B469 43              C     coma
6721 B46A 54              T     lsrb
6722 B46B 20 43            C    bra 43
6723 B46D 4F              O     clra
6724 B46E 44              D     lsra
6725 B46F 45              E     illegal
6726 B470 00              .     test
6727
6728 B471 20 20                 bra 20
6729 B473 20 20                 bra 20
6730 B475 43              C     coma
6731 B476 4F              O     clra
6732 B477 44              D     lsra
6733 B478 45              E     illegal
6734 B479 20 00            .    bra 00
6735 B47B 56              V     rorb
6736 B47C 45              E     illegal
6737 B47D 4E              N     illegal
6738 B47E 44              D     lsra
6739 B47F 53              S     comb
6740 B480 20 2D            -    bra 2d
6741 B482 20 00            .    bra 00
6742 B484 56              V     rorb
6743 B485 45              E     illegal
6744 B486 4E              N     illegal
6745 B487 44              D     lsra
6746 B488 53              S     comb
6747 B489 2F 43           /C    ble 43
6748 B48B 4F              O     clra
6749 B48C 44              D     lsra
6750 B48D 45              E     illegal
6751 B48E 00              .     test
6752 B48F 41              A     illegal
6753 B490 42              B     illegal
6754 B491 43              C     coma
6755 B492 44              D     lsra
6756 B493 45              E     illegal
6757 B494 46              F     rora
6758 B495 47              G     asra
6759 B496 48              H     asla
6760 B497 49              I     rola
6761 B498 4A              J     deca
6762 B499 4B              K     illegal
6763 B49A 4C              L     inca
6764 B49B 4D              M     tsta
6765 B49C 4E              N     illegal
6766 B49D 4F              O     clra
6767 B49E 50              P     negb
6768 B49F 51              Q     illegal
6769 B4A0 52              R     illegal
6770 B4A1 53              S     comb
6771 B4A2 54              T     lsrb
6772 B4A3 55              U     illegal
6773 B4A4 56              V     rorb
6774 B4A5 57              W     asrb
6775 B4A6 58              X     aslb
6776 B4A7 59              Y     rolb
6777 B4A8 5A              Z     decb
6778 B4A9 30              0     tsx
6779 B4AA 31              1     ins
6780 B4AB 32              2     pula
6781 B4AC 33              3     pulb
6782 B4AD 34              4     des
6783 B4AE 35              5     txs
6784 B4AF 36              6     psha
6785 B4B0 37              7     pshb
6786 B4B1 38              8     pulx
6787 B4B2 39              9     rts
6788 B4B3 24 2A           $*    bcc 2a
6789 B4B5 20 00            .    bra 00
6790 B4B7 01              .     nop
6791 B4B8 02              .     idiv
6792 B4B9 04              .     lsrd
6793 B4BA 08              .     inx
6794 B4BB 10              .     sba
6795 B4BC 20 40            @    bra 40
6796 B4BE 80 FF           ..    suba #ff
6797 B4C0 FF FF FF        ...   stx ffff
6798 B4C3 FF FF FF        ...   stx ffff
6799 B4C6 FF FF FF        ...   stx ffff
6800 B4C9 FF FF FF        ...   stx ffff
6801 B4CC FF FF FF        ...   stx ffff
6802 B4CF FF FF FF        ...   stx ffff
6803 B4D2 FF FF FF        ...   stx ffff
6804 B4D5 FF FF FF        ...   stx ffff
6805 B4D8 FF FF FF        ...   stx ffff
6806 B4DB FF FF FF        ...   stx ffff
6807 B4DE FF FF FF        ...   stx ffff
6808 B4E1 FF FF FF        ...   stx ffff
6809 B4E4 FF FF FF        ...   stx ffff
6810 B4E7 FF FF FF        ...   stx ffff
6811 B4EA FF FF FF        ...   stx ffff
6812 B4ED FF FF FF        ...   stx ffff
6813 B4F0 FF FF FF        ...   stx ffff
6814 B4F3 FF FF FF        ...   stx ffff
6815 B4F6 FF FF FF        ...   stx ffff
6816 B4F9 FF FF FF        ...   stx ffff
6817 B4FC FF FF FF        ...   stx ffff
6818 B4FF FF FF FF        ...   stx ffff
6819 B502 FF FF FF        ...   stx ffff
6820 B505 FF FF FF        ...   stx ffff
6821 B508 FF FF FF        ...   stx ffff
6822 B50B FF FF FF        ...   stx ffff
6823 B50E FF FF FF        ...   stx ffff
6824 B511 FF FF FF        ...   stx ffff
6825 B514 FF FF FF        ...   stx ffff
6826 B517 FF FF FF        ...   stx ffff
6827 B51A FF FF FF        ...   stx ffff
6828 B51D FF FF FF        ...   stx ffff
6829 B520 FF FF FF        ...   stx ffff
6830 B523 FF FF FF        ...   stx ffff
6831 B526 FF FF FF        ...   stx ffff
6832 B529 FF FF FF        ...   stx ffff
6833 B52C FF FF FF        ...   stx ffff
6834 B52F FF FF FF        ...   stx ffff
6835 B532 FF FF FF        ...   stx ffff
6836 B535 FF FF FF        ...   stx ffff
6837 B538 FF FF FF        ...   stx ffff
6838 B53B FF FF FF        ...   stx ffff
6839 B53E FF FF FF        ...   stx ffff
6840 B541 FF FF FF        ...   stx ffff
6841 B544 FF FF FF        ...   stx ffff
6842 B547 FF FF FF        ...   stx ffff
6843 B54A FF FF FF        ...   stx ffff
6844 B54D FF FF FF        ...   stx ffff
6845 B550 FF FF FF        ...   stx ffff
6846 B553 FF FF FF        ...   stx ffff
6847 B556 FF FF FF        ...   stx ffff
6848 B559 FF FF FF        ...   stx ffff
6849 B55C FF FF FF        ...   stx ffff
6850 B55F FF FF FF        ...   stx ffff
6851 B562 FF FF FF        ...   stx ffff
6852 B565 FF FF FF        ...   stx ffff
6853 B568 FF FF FF        ...   stx ffff
6854 B56B FF FF FF        ...   stx ffff
6855 B56E FF FF FF        ...   stx ffff
6856 B571 FF FF FF        ...   stx ffff
6857 B574 FF FF FF        ...   stx ffff
6858 B577 FF FF FF        ...   stx ffff
6859 B57A FF FF FF        ...   stx ffff
6860 B57D FF FF FF        ...   stx ffff
6861 B580 FF FF FF        ...   stx ffff
6862 B583 FF FF FF        ...   stx ffff
6863 B586 FF FF FF        ...   stx ffff
6864 B589 FF FF FF        ...   stx ffff
6865 B58C FF FF FF        ...   stx ffff
6866 B58F FF FF FF        ...   stx ffff
6867 B592 FF FF FF        ...   stx ffff
6868 B595 FF FF FF        ...   stx ffff
6869 B598 FF FF FF        ...   stx ffff
6870 B59B FF FF FF        ...   stx ffff
6871 B59E FF FF FF        ...   stx ffff
6872 B5A1 FF FF FF        ...   stx ffff
6873 B5A4 FF FF FF        ...   stx ffff
6874 B5A7 FF FF FF        ...   stx ffff
6875 B5AA FF FF FF        ...   stx ffff
6876 B5AD FF FF FF        ...   stx ffff
6877 B5B0 FF FF FF        ...   stx ffff
6878 B5B3 FF FF FF        ...   stx ffff
6879 B5B6 FF FF FF        ...   stx ffff
6880 B5B9 FF FF FF        ...   stx ffff
6881 B5BC FF FF FF        ...   stx ffff
6882 B5BF FF FF FF        ...   stx ffff
6883 B5C2 FF FF FF        ...   stx ffff
6884 B5C5 FF FF FF        ...   stx ffff
6885 B5C8 FF FF FF        ...   stx ffff
6886 B5CB FF FF FF        ...   stx ffff
6887 B5CE FF FF FF        ...   stx ffff
6888 B5D1 FF FF FF        ...   stx ffff
6889 B5D4 FF FF FF        ...   stx ffff
6890 B5D7 FF FF FF        ...   stx ffff
6891 B5DA FF FF FF        ...   stx ffff
6892 B5DD FF FF FF        ...   stx ffff
6893 B5E0 FF FF FF        ...   stx ffff
6894 B5E3 FF FF FF        ...   stx ffff
6895 B5E6 FF FF FF        ...   stx ffff
6896 B5E9 FF FF FF        ...   stx ffff
6897 B5EC FF FF FF        ...   stx ffff
6898 B5EF FF FF FF        ...   stx ffff
6899 B5F2 FF FF FF        ...   stx ffff
6900 B5F5 FF FF FF        ...   stx ffff
6901 B5F8 FF FF FF        ...   stx ffff
6902 B5FB FF FF FF        ...   stx ffff
6903 B5FE FF FF FF        ...   stx ffff
6904 B601 FF FF FF        ...   stx ffff
6905 B604 FF FF FF        ...   stx ffff
6906 B607 FF FF FF        ...   stx ffff
6907 B60A FF FF FF        ...   stx ffff
6908 B60D FF FF FF        ...   stx ffff
6909 B610 FF FF FF        ...   stx ffff
6910 B613 FF FF FF        ...   stx ffff
6911 B616 FF FF FF        ...   stx ffff
6912 B619 FF FF FF        ...   stx ffff
6913 B61C FF FF FF        ...   stx ffff
6914 B61F FF FF FF        ...   stx ffff
6915 B622 FF FF FF        ...   stx ffff
6916 B625 FF FF FF        ...   stx ffff
6917 B628 FF FF FF        ...   stx ffff
6918 B62B FF FF FF        ...   stx ffff
6919 B62E FF FF FF        ...   stx ffff
6920 B631 FF FF FF        ...   stx ffff
6921 B634 FF FF FF        ...   stx ffff
6922 B637 FF FF FF        ...   stx ffff
6923 B63A FF FF FF        ...   stx ffff
6924 B63D FF FF FF        ...   stx ffff
6925 B640 FF FF FF        ...   stx ffff
6926 B643 FF FF FF        ...   stx ffff
6927 B646 FF FF FF        ...   stx ffff
6928 B649 FF FF FF        ...   stx ffff
6929 B64C FF FF FF        ...   stx ffff
6930 B64F FF FF FF        ...   stx ffff
6931 B652 FF FF FF        ...   stx ffff
6932 B655 FF FF FF        ...   stx ffff
6933 B658 FF FF FF        ...   stx ffff
6934 B65B FF FF FF        ...   stx ffff
6935 B65E FF FF FF        ...   stx ffff
6936 B661 FF FF FF        ...   stx ffff
6937 B664 FF FF FF        ...   stx ffff
6938 B667 FF FF FF        ...   stx ffff
6939 B66A FF FF FF        ...   stx ffff
6940 B66D FF FF FF        ...   stx ffff
6941 B670 FF FF FF        ...   stx ffff
6942 B673 FF FF FF        ...   stx ffff
6943 B676 FF FF FF        ...   stx ffff
6944 B679 FF FF FF        ...   stx ffff
6945 B67C FF FF FF        ...   stx ffff
6946 B67F FF FF FF        ...   stx ffff
6947 B682 FF FF FF        ...   stx ffff
6948 B685 FF FF FF        ...   stx ffff
6949 B688 FF FF FF        ...   stx ffff
6950 B68B FF FF FF        ...   stx ffff
6951 B68E FF FF FF        ...   stx ffff
6952 B691 FF FF FF        ...   stx ffff
6953 B694 FF FF FF        ...   stx ffff
6954 B697 FF FF FF        ...   stx ffff
6955 B69A FF FF FF        ...   stx ffff
6956 B69D FF FF FF        ...   stx ffff
6957 B6A0 FF FF FF        ...   stx ffff
6958 B6A3 FF FF FF        ...   stx ffff
6959 B6A6 FF FF FF        ...   stx ffff
6960 B6A9 FF FF FF        ...   stx ffff
6961 B6AC FF FF FF        ...   stx ffff
6962 B6AF FF FF FF        ...   stx ffff
6963 B6B2 FF FF FF        ...   stx ffff
6964 B6B5 FF FF FF        ...   stx ffff
6965 B6B8 FF FF FF        ...   stx ffff
6966 B6BB FF FF FF        ...   stx ffff
6967 B6BE FF FF FF        ...   stx ffff
6968 B6C1 FF FF FF        ...   stx ffff
6969 B6C4 FF FF FF        ...   stx ffff
6970 B6C7 FF FF FF        ...   stx ffff
6971 B6CA FF FF FF        ...   stx ffff
6972 B6CD FF FF FF        ...   stx ffff
6973 B6D0 FF FF FF        ...   stx ffff
6974 B6D3 FF FF FF        ...   stx ffff
6975 B6D6 FF FF FF        ...   stx ffff
6976 B6D9 FF FF FF        ...   stx ffff
6977 B6DC FF FF FF        ...   stx ffff
6978 B6DF FF FF FF        ...   stx ffff
6979 B6E2 FF FF FF        ...   stx ffff
6980 B6E5 FF FF FF        ...   stx ffff
6981 B6E8 FF FF FF        ...   stx ffff
6982 B6EB FF FF FF        ...   stx ffff
6983 B6EE FF FF FF        ...   stx ffff
6984 B6F1 FF FF FF        ...   stx ffff
6985 B6F4 FF FF FF        ...   stx ffff
6986 B6F7 FF FF FF        ...   stx ffff
6987 B6FA FF FF FF        ...   stx ffff
6988 B6FD FF FF FF        ...   stx ffff
6989 B700 FF FF FF        ...   stx ffff
6990 B703 FF FF FF        ...   stx ffff
6991 B706 FF FF FF        ...   stx ffff
6992 B709 FF FF FF        ...   stx ffff
6993 B70C FF FF FF        ...   stx ffff
6994 B70F FF FF FF        ...   stx ffff
6995 B712 FF FF FF        ...   stx ffff
6996 B715 FF FF FF        ...   stx ffff
6997 B718 FF FF FF        ...   stx ffff
6998 B71B FF FF FF        ...   stx ffff
6999 B71E FF FF FF        ...   stx ffff
7000 B721 FF FF FF        ...   stx ffff
7001 B724 FF FF FF        ...   stx ffff
7002 B727 FF FF FF        ...   stx ffff
7003 B72A FF FF FF        ...   stx ffff
7004 B72D FF FF FF        ...   stx ffff
7005 B730 FF FF FF        ...   stx ffff
7006 B733 FF FF FF        ...   stx ffff
7007 B736 FF FF FF        ...   stx ffff
7008 B739 FF FF FF        ...   stx ffff
7009 B73C FF FF FF        ...   stx ffff
7010 B73F FF FF FF        ...   stx ffff
7011 B742 FF FF FF        ...   stx ffff
7012 B745 FF FF FF        ...   stx ffff
7013 B748 FF FF FF        ...   stx ffff
7014 B74B FF FF FF        ...   stx ffff
7015 B74E FF FF FF        ...   stx ffff
7016 B751 FF FF FF        ...   stx ffff
7017 B754 FF FF FF        ...   stx ffff
7018 B757 FF FF FF        ...   stx ffff
7019 B75A FF FF FF        ...   stx ffff
7020 B75D FF FF FF        ...   stx ffff
7021 B760 FF FF FF        ...   stx ffff
7022 B763 FF FF FF        ...   stx ffff
7023 B766 FF FF FF        ...   stx ffff
7024 B769 FF FF FF        ...   stx ffff
7025 B76C FF FF FF        ...   stx ffff
7026 B76F FF FF FF        ...   stx ffff
7027 B772 FF FF FF        ...   stx ffff
7028 B775 FF FF FF        ...   stx ffff
7029 B778 FF FF FF        ...   stx ffff
7030 B77B FF FF FF        ...   stx ffff
7031 B77E FF FF FF        ...   stx ffff
7032 B781 FF FF FF        ...   stx ffff
7033 B784 FF FF FF        ...   stx ffff
7034 B787 FF FF FF        ...   stx ffff
7035 B78A FF FF FF        ...   stx ffff
7036 B78D FF FF FF        ...   stx ffff
7037 B790 FF FF FF        ...   stx ffff
7038 B793 FF FF FF        ...   stx ffff
7039 B796 FF FF FF        ...   stx ffff
7040 B799 FF FF FF        ...   stx ffff
7041 B79C FF FF FF        ...   stx ffff
7042 B79F FF FF FF        ...   stx ffff
7043 B7A2 FF FF FF        ...   stx ffff
7044 B7A5 FF FF FF        ...   stx ffff
7045 B7A8 FF FF FF        ...   stx ffff
7046 B7AB FF FF FF        ...   stx ffff
7047 B7AE FF FF FF        ...   stx ffff
7048 B7B1 FF FF FF        ...   stx ffff
7049 B7B4 FF FF FF        ...   stx ffff
7050 B7B7 FF FF FF        ...   stx ffff
7051 B7BA FF FF FF        ...   stx ffff
7052 B7BD FF FF FF        ...   stx ffff
7053 B7C0 FF FF FF        ...   stx ffff
7054 B7C3 FF FF FF        ...   stx ffff
7055 B7C6 FF FF FF        ...   stx ffff
7056 B7C9 FF FF FF        ...   stx ffff
7057 B7CC FF FF FF        ...   stx ffff
7058 B7CF FF FF FF        ...   stx ffff
7059 B7D2 FF FF FF        ...   stx ffff
7060 B7D5 FF FF FF        ...   stx ffff
7061 B7D8 FF FF FF        ...   stx ffff
7062 B7DB FF FF FF        ...   stx ffff
7063 B7DE FF FF FF        ...   stx ffff
7064 B7E1 FF FF FF        ...   stx ffff
7065 B7E4 FF FF FF        ...   stx ffff
7066 B7E7 FF FF FF        ...   stx ffff
7067 B7EA FF FF FF        ...   stx ffff
7068 B7ED FF FF FF        ...   stx ffff
7069 B7F0 FF FF FF        ...   stx ffff
7070 B7F3 FF FF FF        ...   stx ffff
7071 B7F6 FF FF FF        ...   stx ffff
7072 B7F9 FF FF FF        ...   stx ffff
7073 B7FC FF FF FF        ...   stx ffff
7074 B7FF FF 34 F6        .4.   stx 34f6
7075 B802 0E              .     cli
7076 B803 6D C1           m.    tst c1,x
7077 B805 01              .     nop
7078 B806 27 03           '.    beq 03
7079 B808 7E B9 2A        ~.*   jmp b92a
7080 B80B F6 0E 02        ...   ldab 0e02
7081 B80E C1 05           ..    cmpb #05
7082 B810 27 03           '.    beq 03
7083 B812 7E B9 2A        ~.*   jmp b92a
7084 B815 F6 0E 03        ...   ldab 0e03
7085 B818 C1 05           ..    cmpb #05
7086 B81A 27 03           '.    beq 03
7087 B81C 7E B9 2A        ~.*   jmp b92a
7088 B81F F6 0E 04        ...   ldab 0e04
7089 B822 C1 05           ..    cmpb #05
7090 B824 27 03           '.    beq 03
7091 B826 7E B9 2A        ~.*   jmp b92a
7092 B829 F6 00 12        ...   ldab 0012
7093 B82C C4 20           .     andb #20
7094 B82E 27 03           '.    beq 03
7095 B830 7E B9 2A        ~.*   jmp b92a
7096 B833 30              0     tsx
7097 B834 6F 00           o.    clr 00,x
7098 B836 F6 0E 6A        ..j   ldab 0e6a
7099 B839 C1 00           ..    cmpb #00
7100 B83B 22 33           "3    bhi 33
7101 B83D C6 64           .d    ldab #64
7102 B83F F7 0E 6A        ..j   stb 0e6a
7103 B842 7C 0E 05        |..   inc 0e05
7104 B845 F6 0E 05        ...   ldab 0e05
7105 B848 C1 64           .d    cmpb #64
7106 B84A 23 03           #.    bls 03
7107 B84C 7F 0E 05        ...   clr 0e05
7108 B84F F6 0E 05        ...   ldab 0e05
7109 B852 BD D4 68        ..h   jsr d468
7110 B855 83 00 00        ...   subd #0000
7111 B858 27 0B           '.    beq 0b
7112 B85A F6 0E 05        ...   ldab 0e05
7113 B85D BD D7 A0        ...   jsr d7a0
7114 B860 83 00 00        ...   subd #0000
7115 B863 27 09           '.    beq 09
7116 B865 30              0     tsx
7117 B866 6C 00           l.    inc 00,x
7118 B868 E6 00           ..    ldab 00,x
7119 B86A C1 6E           .n    cmpb #6e
7120 B86C 2D D4           -.    blt d4
7121 B86E 20 0A            .    bra 0a
7122 B870 F6 0E 6A        ..j   ldab 0e6a
7123 B873 C1 00           ..    cmpb #00
7124 B875 23 03           #.    bls 03
7125 B877 7A 0E 6A        z.j   dec 0e6a
7126 B87A F6 0E 05        ...   ldab 0e05
7127 B87D BD D4 68        ..h   jsr d468
7128 B880 83 00 00        ...   subd #0000
7129 B883 26 03           &.    bne 03
7130 B885 7E B9 0A        ~..   jmp b90a
7131 B888 F6 0E 05        ...   ldab 0e05
7132 B88B BD D7 A0        ...   jsr d7a0
7133 B88E 83 00 00        ...   subd #0000
7134 B891 26 77           &w    bne 77
7135 B893 BD BE 4B        ..K   jsr be4b
7136 B896 C6 20           .     ldab #20
7137 B898 F7 0B 9A        ...   stb 0b9a
7138 B89B C6 20           .     ldab #20
7139 B89D F7 0B 99        ...   stb 0b99
7140 B8A0 C6 20           .     ldab #20
7141 B8A2 F7 0B 98        ...   stb 0b98
7142 B8A5 F6 0E 05        ...   ldab 0e05
7143 B8A8 4F              O     clra
7144 B8A9 CE 00 0A        ...   ldx #000a
7145 B8AC 02              .     idiv
7146 B8AD 8F              .     xgdx
7147 B8AE CB 30           .0    addb #30
7148 B8B0 F7 0B 97        ...   stb 0b97
7149 B8B3 F6 0E 05        ...   ldab 0e05
7150 B8B6 4F              O     clra
7151 B8B7 CE 00 0A        ...   ldx #000a
7152 B8BA 02              .     idiv
7153 B8BB CB 30           .0    addb #30
7154 B8BD F7 0B 96        ...   stb 0b96
7155 B8C0 C6 20           .     ldab #20
7156 B8C2 F7 0B 95        ...   stb 0b95
7157 B8C5 C6 20           .     ldab #20
7158 B8C7 F7 0B 94        ...   stb 0b94
7159 B8CA F6 0E 05        ...   ldab 0e05
7160 B8CD 4F              O     clra
7161 B8CE C3 0E 06        ...   addd #0e06
7162 B8D1 8F              .     xgdx
7163 B8D2 E6 00           ..    ldab 00,x
7164 B8D4 4F              O     clra
7165 B8D5 CE 00 0A        ...   ldx #000a
7166 B8D8 02              .     idiv
7167 B8D9 8F              .     xgdx
7168 B8DA CB 30           .0    addb #30
7169 B8DC F7 0B 93        ...   stb 0b93
7170 B8DF F6 0E 05        ...   ldab 0e05
7171 B8E2 4F              O     clra
7172 B8E3 C3 0E 06        ...   addd #0e06
7173 B8E6 8F              .     xgdx
7174 B8E7 E6 00           ..    ldab 00,x
7175 B8E9 4F              O     clra
7176 B8EA CE 00 0A        ...   ldx #000a
7177 B8ED 02              .     idiv
7178 B8EE CB 30           .0    addb #30
7179 B8F0 F7 0B 92        ...   stb 0b92
7180 B8F3 C6 20           .     ldab #20
7181 B8F5 F7 0B 91        ...   stb 0b91
7182 B8F8 C6 20           .     ldab #20
7183 B8FA F7 0B 90        ...   stb 0b90
7184 B8FD 7F 00 2C        ..,   clr 002c
7185 B900 BD BE 01        ...   jsr be01
7186 B903 C6 0A           ..    ldab #0a
7187 B905 F7 00 2C        ..,   stb 002c
7188 B908 20 1D            .    bra 1d
7189 B90A BD BE 4B        ..K   jsr be4b
7190 B90D C6 57           .W    ldab #57
7191 B90F F7 0B 96        ...   stb 0b96
7192 B912 C6 42           .B    ldab #42
7193 B914 F7 0B 95        ...   stb 0b95
7194 B917 C6 42           .B    ldab #42
7195 B919 F7 0B 94        ...   stb 0b94
7196 B91C 7F 00 2C        ..,   clr 002c
7197 B91F BD BE 01        ...   jsr be01
7198 B922 C6 0A           ..    ldab #0a
7199 B924 F7 00 2C        ..,   stb 002c
7200 B927 7E BA 81        ~..   jmp ba81
7201 B92A F6 0E 6D        ..m   ldab 0e6d
7202 B92D C1 01           ..    cmpb #01
7203 B92F 27 03           '.    beq 03
7204 B931 7E BA 81        ~..   jmp ba81
7205 B934 F6 0E 00        ...   ldab 0e00
7206 B937 C1 05           ..    cmpb #05
7207 B939 27 03           '.    beq 03
7208 B93B 7E BA 81        ~..   jmp ba81
7209 B93E F6 0E 01        ...   ldab 0e01
7210 B941 C1 05           ..    cmpb #05
7211 B943 27 03           '.    beq 03
7212 B945 7E BA 81        ~..   jmp ba81
7213 B948 F6 0E 02        ...   ldab 0e02
7214 B94B C1 05           ..    cmpb #05
7215 B94D 27 03           '.    beq 03
7216 B94F 7E BA 81        ~..   jmp ba81
7217 B952 F6 00 12        ...   ldab 0012
7218 B955 C4 20           .     andb #20
7219 B957 26 03           &.    bne 03
7220 B959 7E BA 81        ~..   jmp ba81
7221 B95C F6 0E 04        ...   ldab 0e04
7222 B95F C1 05           ..    cmpb #05
7223 B961 26 79           &y    bne 79
7224 B963 F6 0E 03        ...   ldab 0e03
7225 B966 C1 05           ..    cmpb #05
7226 B968 26 72           &r    bne 72
7227 B96A 30              0     tsx
7228 B96B 6F 00           o.    clr 00,x
7229 B96D 30              0     tsx
7230 B96E E6 00           ..    ldab 00,x
7231 B970 C1 64           .d    cmpb #64
7232 B972 2C 16           ,.    bge 16
7233 B974 5F              _     clrb
7234 B975 37              7     pshb
7235 B976 30              0     tsx
7236 B977 E6 01           ..    ldab 01,x
7237 B979 4F              O     clra
7238 B97A 5D              ]     tstb
7239 B97B 2C 01           ,.    bge 01
7240 B97D 4A              J     deca
7241 B97E C3 0E 06        ...   addd #0e06
7242 B981 8F              .     xgdx
7243 B982 33              3     pulb
7244 B983 E7 00           ..    stb 00,x
7245 B985 30              0     tsx
7246 B986 6C 00           l.    inc 00,x
7247 B988 20 E3            .    bra e3
7248 B98A 7F 0D FF        ...   clr 0dff
7249 B98D 7F 0E 00        ...   clr 0e00
7250 B990 7F 0E 01        ...   clr 0e01
7251 B993 7F 0E 02        ...   clr 0e02
7252 B996 7F 0E 03        ...   clr 0e03
7253 B999 7F 0E 04        ...   clr 0e04
7254 B99C C6 41           .A    ldab #41
7255 B99E F7 0B 99        ...   stb 0b99
7256 B9A1 C6 4C           .L    ldab #4c
7257 B9A3 F7 0B 98        ...   stb 0b98
7258 B9A6 C6 4C           .L    ldab #4c
7259 B9A8 F7 0B 97        ...   stb 0b97
7260 B9AB C6 20           .     ldab #20
7261 B9AD F7 0B 96        ...   stb 0b96
7262 B9B0 C6 43           .C    ldab #43
7263 B9B2 F7 0B 95        ...   stb 0b95
7264 B9B5 C6 4C           .L    ldab #4c
7265 B9B7 F7 0B 94        ...   stb 0b94
7266 B9BA C6 45           .E    ldab #45
7267 B9BC F7 0B 93        ...   stb 0b93
7268 B9BF C6 41           .A    ldab #41
7269 B9C1 F7 0B 92        ...   stb 0b92
7270 B9C4 C6 52           .R    ldab #52
7271 B9C6 F7 0B 91        ...   stb 0b91
7272 B9C9 C6 20           .     ldab #20
7273 B9CB F7 0B 90        ...   stb 0b90
7274 B9CE 7F 00 2C        ..,   clr 002c
7275 B9D1 BD BE 01        ...   jsr be01
7276 B9D4 C6 1E           ..    ldab #1e
7277 B9D6 F7 00 2C        ..,   stb 002c
7278 B9D9 7E BA 81        ~..   jmp ba81
7279 B9DC F6 0E 04        ...   ldab 0e04
7280 B9DF C1 01           ..    cmpb #01
7281 B9E1 27 0A           '.    beq 0a
7282 B9E3 F6 0E 04        ...   ldab 0e04
7283 B9E6 C1 02           ..    cmpb #02
7284 B9E8 27 03           '.    beq 03
7285 B9EA 7E BA 81        ~..   jmp ba81
7286 B9ED F6 0E 03        ...   ldab 0e03
7287 B9F0 C1 00           ..    cmpb #00
7288 B9F2 22 03           ".    bhi 03
7289 B9F4 7E BA 81        ~..   jmp ba81
7290 B9F7 F6 0E 03        ...   ldab 0e03
7291 B9FA C1 05           ..    cmpb #05
7292 B9FC 26 03           &.    bne 03
7293 B9FE 7E BA 81        ~..   jmp ba81
7294 BA01 F6 0E 03        ...   ldab 0e03
7295 BA04 C1 07           ..    cmpb #07
7296 BA06 24 79           $y    bcc 79
7297 BA08 F6 0E 03        ...   ldab 0e03
7298 BA0B 86 0A           ..    ldaa #0a
7299 BA0D 3D              =     mul
7300 BA0E FB 0E 04        ...   addb 0e04
7301 BA11 30              0     tsx
7302 BA12 E7 00           ..    stb 00,x
7303 BA14 E6 00           ..    ldab 00,x
7304 BA16 C1 64           .d    cmpb #64
7305 BA18 2C 67           ,g    bge 67
7306 BA1A E6 00           ..    ldab 00,x
7307 BA1C 2D 63           -c    blt 63
7308 BA1E 5F              _     clrb
7309 BA1F 37              7     pshb
7310 BA20 30              0     tsx
7311 BA21 E6 01           ..    ldab 01,x
7312 BA23 4F              O     clra
7313 BA24 5D              ]     tstb
7314 BA25 2C 01           ,.    bge 01
7315 BA27 4A              J     deca
7316 BA28 C3 0E 06        ...   addd #0e06
7317 BA2B 8F              .     xgdx
7318 BA2C 33              3     pulb
7319 BA2D E7 00           ..    stb 00,x
7320 BA2F F6 0E 03        ...   ldab 0e03
7321 BA32 CB 30           .0    addb #30
7322 BA34 F7 0B 99        ...   stb 0b99
7323 BA37 F6 0E 04        ...   ldab 0e04
7324 BA3A CB 30           .0    addb #30
7325 BA3C F7 0B 98        ...   stb 0b98
7326 BA3F C6 20           .     ldab #20
7327 BA41 F7 0B 97        ...   stb 0b97
7328 BA44 C6 43           .C    ldab #43
7329 BA46 F7 0B 96        ...   stb 0b96
7330 BA49 C6 4C           .L    ldab #4c
7331 BA4B F7 0B 95        ...   stb 0b95
7332 BA4E C6 45           .E    ldab #45
7333 BA50 F7 0B 94        ...   stb 0b94
7334 BA53 C6 41           .A    ldab #41
7335 BA55 F7 0B 93        ...   stb 0b93
7336 BA58 C6 52           .R    ldab #52
7337 BA5A F7 0B 92        ...   stb 0b92
7338 BA5D C6 45           .E    ldab #45
7339 BA5F F7 0B 91        ...   stb 0b91
7340 BA62 C6 44           .D    ldab #44
7341 BA64 F7 0B 90        ...   stb 0b90
7342 BA67 7F 0E 00        ...   clr 0e00
7343 BA6A 7F 0E 01        ...   clr 0e01
7344 BA6D 7F 0E 02        ...   clr 0e02
7345 BA70 7F 0E 03        ...   clr 0e03
7346 BA73 7F 0E 04        ...   clr 0e04
7347 BA76 7F 00 2C        ..,   clr 002c
7348 BA79 BD BE 01        ...   jsr be01
7349 BA7C C6 1E           ..    ldab #1e
7350 BA7E F7 00 2C        ..,   stb 002c
7351 BA81 31              1     ins
7352 BA82 39              9     rts
7353 BA83 F6 18 00        ...   ldab 1800
7354 BA86 C4 7F           ..    andb #7f
7355 BA88 F7 00 23        ..#   stb 0023
7356 BA8B F6 00 23        ..#   ldab 0023
7357 BA8E F1 00 12        ...   cmpb 0012
7358 BA91 27 06           '.    beq 06
7359 BA93 F6 00 23        ..#   ldab 0023
7360 BA96 F7 00 12        ...   stb 0012
7361 BA99 F6 20 00        . .   ldab 2000
7362 BA9C F1 00 20        ..    cmpb 0020
7363 BA9F 27 08           '.    beq 08
7364 BAA1 F6 20 00        . .   ldab 2000
7365 BAA4 F7 00 20        ..    stb 0020
7366 BAA7 20 0E            .    bra 0e
7367 BAA9 F6 00 20        ..    ldab 0020
7368 BAAC F7 00 11        ...   stb 0011
7369 BAAF F6 00 11        ...   ldab 0011
7370 BAB2 C4 03           ..    andb #03
7371 BAB4 F7 00 2B        ..+   stb 002b
7372 BAB7 F6 00 1B        ...   ldab 001b
7373 BABA C4 04           ..    andb #04
7374 BABC 37              7     pshb
7375 BABD F6 10 0A        ...   ldab 100a
7376 BAC0 C4 04           ..    andb #04
7377 BAC2 30              0     tsx
7378 BAC3 E0 00           ..    subb 00,x
7379 BAC5 31              1     ins
7380 BAC6 27 17           '.    beq 17
7381 BAC8 F6 10 0A        ...   ldab 100a
7382 BACB C4 04           ..    andb #04
7383 BACD 27 08           '.    beq 08
7384 BACF CE 00 1B        ...   ldx #001b
7385 BAD2 1C 00           ..    bset add,x 00,x
7386 BAD4 04              .     lsrd
7387 BAD5 20 06            .    bra 06
7388 BAD7 CE 00 1B        ...   ldx #001b
7389 BADA 1D 00           ..    bclr add,x 00,x
7390 BADC 04              .     lsrd
7391 BADD 20 15            .    bra 15
7392 BADF F6 10 0A        ...   ldab 100a
7393 BAE2 C4 04           ..    andb #04
7394 BAE4 27 08           '.    beq 08
7395 BAE6 CE 00 1D        ...   ldx #001d
7396 BAE9 1C 00           ..    bset add,x 00,x
7397 BAEB 04              .     lsrd
7398 BAEC 20 06            .    bra 06
7399 BAEE CE 00 1D        ...   ldx #001d
7400 BAF1 1D 00           ..    bclr add,x 00,x
7401 BAF3 04              .     lsrd
7402 BAF4 CE 10 08        ...   ldx #1008
7403 BAF7 1D 00           ..    bclr add,x 00,x
7404 BAF9 20 CE            .    bra ce
7405 BAFB 10              .     sba
7406 BAFC 28 1C           (.    bvc 1c
7407 BAFE 00              .     test
7408 BAFF 40              @     nega
7409 BB00 CE 00 14        ...   ldx #0014
7410 BB03 1C 00           ..    bset add,x 00,x
7411 BB05 04              .     lsrd
7412 BB06 F6 00 14        ...   ldab 0014
7413 BB09 F7 38 00        .8.   stb 3800
7414 BB0C CE 00 14        ...   ldx #0014
7415 BB0F 1D 00           ..    bclr add,x 00,x
7416 BB11 04              .     lsrd
7417 BB12 F6 00 14        ...   ldab 0014
7418 BB15 F7 38 00        .8.   stb 3800
7419 BB18 CE 00 00        ...   ldx #0000
7420 BB1B 3C              <     pshx
7421 BB1C 5F              _     clrb
7422 BB1D 4F              O     clra
7423 BB1E BD BD B5        ...   jsr bdb5
7424 BB21 38              8     pulx
7425 BB22 F7 00 5B        ..[   stb 005b
7426 BB25 CE 10 28        ..(   ldx #1028
7427 BB28 1D 00           ..    bclr add,x 00,x
7428 BB2A 40              @     nega
7429 BB2B CE 10 08        ...   ldx #1008
7430 BB2E 1C 00           ..    bset add,x 00,x
7431 BB30 20 CE            .    bra ce
7432 BB32 10              .     sba
7433 BB33 28 1C           (.    bvc 1c
7434 BB35 00              .     test
7435 BB36 40              @     nega
7436 BB37 CE 00 14        ...   ldx #0014
7437 BB3A 1C 00           ..    bset add,x 00,x
7438 BB3C 04              .     lsrd
7439 BB3D F6 00 14        ...   ldab 0014
7440 BB40 F7 38 00        .8.   stb 3800
7441 BB43 CE 00 14        ...   ldx #0014
7442 BB46 1D 00           ..    bclr add,x 00,x
7443 BB48 04              .     lsrd
7444 BB49 F6 00 14        ...   ldab 0014
7445 BB4C F7 38 00        .8.   stb 3800
7446 BB4F CE 00 00        ...   ldx #0000
7447 BB52 3C              <     pshx
7448 BB53 5F              _     clrb
7449 BB54 4F              O     clra
7450 BB55 BD BD B5        ...   jsr bdb5
7451 BB58 38              8     pulx
7452 BB59 F7 00 56        ..V   stb 0056
7453 BB5C CE 10 28        ..(   ldx #1028
7454 BB5F 1D 00           ..    bclr add,x 00,x
7455 BB61 40              @     nega
7456 BB62 39              9     rts
7457 BB63 F6 00 00        ...   ldab 0000
7458 BB66 27 03           '.    beq 03
7459 BB68 7E BD B4        ~..   jmp bdb4
7460 BB6B F6 00 2E        ...   ldab 002e
7461 BB6E 27 03           '.    beq 03
7462 BB70 7E BD B4        ~..   jmp bdb4
7463 BB73 BD BA 83        ...   jsr ba83
7464 BB76 F6 00 5B        ..[   ldab 005b
7465 BB79 F1 00 56        ..V   cmpb 0056
7466 BB7C 26 0B           &.    bne 0b
7467 BB7E F6 00 56        ..V   ldab 0056
7468 BB81 27 06           '.    beq 06
7469 BB83 7F 00 29        ..)   clr 0029
7470 BB86 7E BD AF        ~..   jmp bdaf
7471 BB89 F6 00 5B        ..[   ldab 005b
7472 BB8C 27 34           '4    beq 34
7473 BB8E F6 00 5B        ..[   ldab 005b
7474 BB91 F7 00 5F        .._   stb 005f
7475 BB94 7F 00 1C        ...   clr 001c
7476 BB97 F6 00 1C        ...   ldab 001c
7477 BB9A C1 08           ..    cmpb #08
7478 BB9C 24 15           $.    bcc 15
7479 BB9E F6 00 5F        .._   ldab 005f
7480 BBA1 C4 01           ..    andb #01
7481 BBA3 27 02           '.    beq 02
7482 BBA5 20 0C            .    bra 0c
7483 BBA7 F6 00 5F        .._   ldab 005f
7484 BBAA 54              T     lsrb
7485 BBAB F7 00 5F        .._   stb 005f
7486 BBAE 7C 00 1C        |..   inc 001c
7487 BBB1 20 E4            .    bra e4
7488 BBB3 F6 00 1C        ...   ldab 001c
7489 BBB6 4F              O     clra
7490 BBB7 C3 AC 9D        ...   addd #ac9d
7491 BBBA 8F              .     xgdx
7492 BBBB E6 00           ..    ldab 00,x
7493 BBBD F7 00 16        ...   stb 0016
7494 BBC0 20 3C            <    bra 3c
7495 BBC2 F6 00 56        ..V   ldab 0056
7496 BBC5 27 34           '4    beq 34
7497 BBC7 F6 00 56        ..V   ldab 0056
7498 BBCA F7 00 5F        .._   stb 005f
7499 BBCD 7F 00 1C        ...   clr 001c
7500 BBD0 F6 00 1C        ...   ldab 001c
7501 BBD3 C1 08           ..    cmpb #08
7502 BBD5 24 15           $.    bcc 15
7503 BBD7 F6 00 5F        .._   ldab 005f
7504 BBDA C4 01           ..    andb #01
7505 BBDC 27 02           '.    beq 02
7506 BBDE 20 0C            .    bra 0c
7507 BBE0 F6 00 5F        .._   ldab 005f
7508 BBE3 54              T     lsrb
7509 BBE4 F7 00 5F        .._   stb 005f
7510 BBE7 7C 00 1C        |..   inc 001c
7511 BBEA 20 E4            .    bra e4
7512 BBEC F6 00 1C        ...   ldab 001c
7513 BBEF 4F              O     clra
7514 BBF0 C3 AC A0        ...   addd #aca0
7515 BBF3 8F              .     xgdx
7516 BBF4 E6 00           ..    ldab 00,x
7517 BBF6 F7 00 16        ...   stb 0016
7518 BBF9 20 03            .    bra 03
7519 BBFB 7F 00 16        ...   clr 0016
7520 BBFE F6 00 5B        ..[   ldab 005b
7521 BC01 FA 00 56        ..V   orb 0056
7522 BC04 F7 00 5F        .._   stb 005f
7523 BC07 7F 00 5E        ..^   clr 005e
7524 BC0A 7F 00 1C        ...   clr 001c
7525 BC0D F6 00 1C        ...   ldab 001c
7526 BC10 C1 08           ..    cmpb #08
7527 BC12 24 16           $.    bcc 16
7528 BC14 F6 00 5F        .._   ldab 005f
7529 BC17 C4 01           ..    andb #01
7530 BC19 27 03           '.    beq 03
7531 BC1B 7C 00 5E        |.^   inc 005e
7532 BC1E F6 00 5F        .._   ldab 005f
7533 BC21 54              T     lsrb
7534 BC22 F7 00 5F        .._   stb 005f
7535 BC25 7C 00 1C        |..   inc 001c
7536 BC28 20 E3            .    bra e3
7537 BC2A F6 00 5E        ..^   ldab 005e
7538 BC2D C1 01           ..    cmpb #01
7539 BC2F 22 05           ".    bhi 05
7540 BC31 F6 00 16        ...   ldab 0016
7541 BC34 26 0F           &.    bne 0f
7542 BC36 7F 00 29        ..)   clr 0029
7543 BC39 CE 00 1B        ...   ldx #001b
7544 BC3C 1C 00           ..    bset add,x 00,x
7545 BC3E 10              .     sba
7546 BC3F 7F 00 37        ..7   clr 0037
7547 BC42 7E BD AF        ~..   jmp bdaf
7548 BC45 F6 00 16        ...   ldab 0016
7549 BC48 F1 00 29        ..)   cmpb 0029
7550 BC4B 27 2D           '-    beq 2d
7551 BC4D F6 00 16        ...   ldab 0016
7552 BC50 F7 00 29        ..)   stb 0029
7553 BC53 F6 0E 00        ...   ldab 0e00
7554 BC56 F7 0D FF        ...   stb 0dff
7555 BC59 F6 0E 01        ...   ldab 0e01
7556 BC5C F7 0E 00        ...   stb 0e00
7557 BC5F F6 0E 02        ...   ldab 0e02
7558 BC62 F7 0E 01        ...   stb 0e01
7559 BC65 F6 0E 03        ...   ldab 0e03
7560 BC68 F7 0E 02        ...   stb 0e02
7561 BC6B F6 0E 04        ...   ldab 0e04
7562 BC6E F7 0E 03        ...   stb 0e03
7563 BC71 F6 00 29        ..)   ldab 0029
7564 BC74 F7 0E 04        ...   stb 0e04
7565 BC77 7E BD AF        ~..   jmp bdaf
7566 BC7A F6 00 12        ...   ldab 0012
7567 BC7D C4 20           .     andb #20
7568 BC7F 27 3B           ';    beq 3b
7569 BC81 F6 00 29        ..)   ldab 0029
7570 BC84 27 33           '3    beq 33
7571 BC86 F6 00 1B        ...   ldab 001b
7572 BC89 C4 10           ..    andb #10
7573 BC8B 27 2C           ',    beq 2c
7574 BC8D F6 00 42        ..B   ldab 0042
7575 BC90 27 15           '.    beq 15
7576 BC92 F6 00 09        ...   ldab 0009
7577 BC95 27 08           '.    beq 08
7578 BC97 F6 00 29        ..)   ldab 0029
7579 BC9A F7 00 0A        ...   stb 000a
7580 BC9D 20 06            .    bra 06
7581 BC9F F6 00 29        ..)   ldab 0029
7582 BCA2 F7 00 09        ...   stb 0009
7583 BCA5 20 06            .    bra 06
7584 BCA7 F6 00 29        ..)   ldab 0029
7585 BCAA F7 00 42        ..B   stb 0042
7586 BCAD BD E5 AA        ...   jsr e5aa
7587 BCB0 7F 00 2C        ..,   clr 002c
7588 BCB3 CE 00 1B        ...   ldx #001b
7589 BCB6 1D 00           ..    bclr add,x 00,x
7590 BCB8 10              .     sba
7591 BCB9 7E BD AF        ~..   jmp bdaf
7592 BCBC F6 00 1B        ...   ldab 001b
7593 BCBF C4 10           ..    andb #10
7594 BCC1 26 03           &.    bne 03
7595 BCC3 7E BD 91        ~..   jmp bd91
7596 BCC6 F6 00 21        ..!   ldab 0021
7597 BCC9 C4 20           .     andb #20
7598 BCCB 27 03           '.    beq 03
7599 BCCD 7E BD 91        ~..   jmp bd91
7600 BCD0 F6 00 29        ..)   ldab 0029
7601 BCD3 C1 0B           ..    cmpb #0b
7602 BCD5 26 03           &.    bne 03
7603 BCD7 7E BD 5C        ~.\   jmp bd5c
7604 BCDA 7F 00 49        ..I   clr 0049
7605 BCDD F6 00 3A        ..:   ldab 003a
7606 BCE0 26 32           &2    bne 32
7607 BCE2 F6 00 29        ..)   ldab 0029
7608 BCE5 C1 0A           ..    cmpb #0a
7609 BCE7 26 05           &.    bne 05
7610 BCE9 7F 00 1E        ...   clr 001e
7611 BCEC 20 06            .    bra 06
7612 BCEE F6 00 29        ..)   ldab 0029
7613 BCF1 F7 00 1E        ...   stb 001e
7614 BCF4 C6 32           .2    ldab #32
7615 BCF6 F7 00 3A        ..:   stb 003a
7616 BCF9 BD BE 4B        ..K   jsr be4b
7617 BCFC F6 00 1E        ...   ldab 001e
7618 BCFF CB 30           .0    addb #30
7619 BD01 F7 0B 95        ...   stb 0b95
7620 BD04 BD E5 AA        ...   jsr e5aa
7621 BD07 7F 00 2C        ..,   clr 002c
7622 BD0A BD BE 01        ...   jsr be01
7623 BD0D C6 32           .2    ldab #32
7624 BD0F F7 00 2C        ..,   stb 002c
7625 BD12 20 46            F    bra 46
7626 BD14 F6 00 29        ..)   ldab 0029
7627 BD17 C1 05           ..    cmpb #05
7628 BD19 27 07           '.    beq 07
7629 BD1B F6 00 29        ..)   ldab 0029
7630 BD1E C1 0A           ..    cmpb #0a
7631 BD20 26 05           &.    bne 05
7632 BD22 7F 00 2C        ..,   clr 002c
7633 BD25 20 2D            -    bra 2d
7634 BD27 F6 00 1E        ...   ldab 001e
7635 BD2A 58              X     aslb
7636 BD2B 58              X     aslb
7637 BD2C 58              X     aslb
7638 BD2D F7 00 06        ...   stb 0006
7639 BD30 F6 00 1E        ...   ldab 001e
7640 BD33 58              X     aslb
7641 BD34 FB 00 06        ...   addb 0006
7642 BD37 F7 00 06        ...   stb 0006
7643 BD3A F6 00 29        ..)   ldab 0029
7644 BD3D FB 00 06        ...   addb 0006
7645 BD40 F7 00 06        ...   stb 0006
7646 BD43 F6 00 29        ..)   ldab 0029
7647 BD46 CB 30           .0    addb #30
7648 BD48 F7 0B 94        ...   stb 0b94
7649 BD4B BD BE 01        ...   jsr be01
7650 BD4E CE 00 1B        ...   ldx #001b
7651 BD51 1D 00           ..    bclr add,x 00,x
7652 BD53 40              @     nega
7653 BD54 7F 00 3A        ..:   clr 003a
7654 BD57 BD E5 AA        ...   jsr e5aa
7655 BD5A 20 2D            -    bra 2d
7656 BD5C C6 19           ..    ldab #19
7657 BD5E F7 00 37        ..7   stb 0037
7658 BD61 F6 00 3A        ..:   ldab 003a
7659 BD64 27 08           '.    beq 08
7660 BD66 7F 00 3A        ..:   clr 003a
7661 BD69 7F 00 2C        ..,   clr 002c
7662 BD6C 20 18            .    bra 18
7663 BD6E 7C 00 49        |.I   inc 0049
7664 BD71 F6 00 49        ..I   ldab 0049
7665 BD74 C1 02           ..    cmpb #02
7666 BD76 25 0E           %.    bcs 0e
7667 BD78 7F 00 49        ..I   clr 0049
7668 BD7B CE 00 1B        ...   ldx #001b
7669 BD7E 1C 00           ..    bset add,x 00,x
7670 BD80 01              .     nop
7671 BD81 C6 3C           .<    ldab #3c
7672 BD83 F7 00 4F        ..O   stb 004f
7673 BD86 BD E5 AA        ...   jsr e5aa
7674 BD89 CE 00 1B        ...   ldx #001b
7675 BD8C 1D 00           ..    bclr add,x 00,x
7676 BD8E 10              .     sba
7677 BD8F 20 1E            .    bra 1e
7678 BD91 F6 00 1B        ...   ldab 001b
7679 BD94 C4 10           ..    andb #10
7680 BD96 26 17           &.    bne 17
7681 BD98 F6 00 29        ..)   ldab 0029
7682 BD9B C1 0B           ..    cmpb #0b
7683 BD9D 26 10           &.    bne 10
7684 BD9F F6 00 37        ..7   ldab 0037
7685 BDA2 26 0B           &.    bne 0b
7686 BDA4 BD DD D5        ...   jsr ddd5
7687 BDA7 7F 00 49        ..I   clr 0049
7688 BDAA C6 14           ..    ldab #14
7689 BDAC F7 00 2C        ..,   stb 002c
7690 BDAF C6 01           ..    ldab #01
7691 BDB1 F7 00 00        ...   stb 0000
7692 BDB4 39              9     rts
7693 BDB5 37              7     pshb
7694 BDB6 36              6     psha
7695 BDB7 3C              <     pshx
7696 BDB8 5F              _     clrb
7697 BDB9 4F              O     clra
7698 BDBA 30              0     tsx
7699 BDBB ED 00           ..    stad 00,x
7700 BDBD E6 07           ..    ldab 07,x
7701 BDBF 27 0E           '.    beq 0e
7702 BDC1 CE 00 14        ...   ldx #0014
7703 BDC4 1C 00           ..    bset add,x 00,x
7704 BDC6 08              .     inx
7705 BDC7 F6 00 14        ...   ldab 0014
7706 BDCA F7 38 00        .8.   stb 3800
7707 BDCD 20 0C            .    bra 0c
7708 BDCF CE 00 14        ...   ldx #0014
7709 BDD2 1D 00           ..    bclr add,x 00,x
7710 BDD4 08              .     inx
7711 BDD5 F6 00 14        ...   ldab 0014
7712 BDD8 F7 38 00        .8.   stb 3800
7713 BDDB 30              0     tsx
7714 BDDC E6 03           ..    ldab 03,x
7715 BDDE F7 10 2A        ..*   stb 102a
7716 BDE1 F6 10 29        ..)   ldab 1029
7717 BDE4 2D 0F           -.    blt 0f
7718 BDE6 38              8     pulx
7719 BDE7 08              .     inx
7720 BDE8 3C              <     pshx
7721 BDE9 30              0     tsx
7722 BDEA EC 00           ..    ldd 00,x
7723 BDEC 83 FF FF        ...   subd #ffff
7724 BDEF 26 02           &.    bne 02
7725 BDF1 20 02            .    bra 02
7726 BDF3 20 EC            .    bra ec
7727 BDF5 F6 10 2A        ..*   ldab 102a
7728 BDF8 30              0     tsx
7729 BDF9 E7 03           ..    stb 03,x
7730 BDFB E6 03           ..    ldab 03,x
7731 BDFD 4F              O     clra
7732 BDFE 38              8     pulx
7733 BDFF 38              8     pulx
7734 BE00 39              9     rts
7735 BE01 F6 00 2C        ..,   ldab 002c
7736 BE04 26 09           &.    bne 09
7737 BE06 8D 61           .a    bsr dest 61
7738 BE08 8D 06           ..    bsr dest 06
7739 BE0A C6 03           ..    ldab #03
7740 BE0C F7 00 2C        ..,   stb 002c
7741 BE0F 39              9     rts
7742 BE10 CE 10 28        ..(   ldx #1028
7743 BE13 1C 00           ..    bset add,x 00,x
7744 BE15 40              @     nega
7745 BE16 7F 00 1C        ...   clr 001c
7746 BE19 F6 00 1C        ...   ldab 001c
7747 BE1C C1 0A           ..    cmpb #0a
7748 BE1E 24 19           $.    bcc 19
7749 BE20 CE 00 01        ...   ldx #0001
7750 BE23 3C              <     pshx
7751 BE24 F6 00 1C        ...   ldab 001c
7752 BE27 4F              O     clra
7753 BE28 C3 0B 90        ...   addd #0b90
7754 BE2B 8F              .     xgdx
7755 BE2C E6 00           ..    ldab 00,x
7756 BE2E C4 7F           ..    andb #7f
7757 BE30 4F              O     clra
7758 BE31 8D 82           ..    bsr dest 82
7759 BE33 38              8     pulx
7760 BE34 7C 00 1C        |..   inc 001c
7761 BE37 20 E0            .    bra e0
7762 BE39 CE 00 01        ...   ldx #0001
7763 BE3C 3C              <     pshx
7764 BE3D CC 00 FF        ...   ldd #00ff
7765 BE40 BD BD B5        ...   jsr bdb5
7766 BE43 38              8     pulx
7767 BE44 CE 10 28        ..(   ldx #1028
7768 BE47 1D 00           ..    bclr add,x 00,x
7769 BE49 40              @     nega
7770 BE4A 39              9     rts
7771 BE4B 7F 00 1C        ...   clr 001c
7772 BE4E F6 00 1C        ...   ldab 001c
7773 BE51 C1 0A           ..    cmpb #0a
7774 BE53 24 13           $.    bcc 13
7775 BE55 C6 20           .     ldab #20
7776 BE57 37              7     pshb
7777 BE58 F6 00 1C        ...   ldab 001c
7778 BE5B 4F              O     clra
7779 BE5C C3 0B 90        ...   addd #0b90
7780 BE5F 8F              .     xgdx
7781 BE60 33              3     pulb
7782 BE61 E7 00           ..    stb 00,x
7783 BE63 7C 00 1C        |..   inc 001c
7784 BE66 20 E6            .    bra e6
7785 BE68 39              9     rts
7786
7787 BE69 CE 10 00        ...   ldx #1000            ;
7788 BE6C 1D 00           ..    bclr add,x 00,x      ;
7789 BE6E 80 BD           ..    suba #bd             ;
7790 BE70 E5 96           ..    bitb 96,x
7791 BE72 CE 10 00        ...   ldx #1000
7792 BE75 1C 00           ..    bset add,x 00,x
7793 BE77 80 CE           ..    suba #ce
7794 BE79 10              .     sba
7795 BE7A 28 1C           (.    bvc 1c
7796 BE7C 00              .     test
7797 BE7D 40              @     nega
7798 BE7E BD E5 96        ...   jsr e596
7799 BE81 CE 00 01        ...   ldx #0001
7800 BE84 3C              <     pshx
7801 BE85 CC 00 CA        ...   ldd #00ca
7802 BE88 BD BD B5        ...   jsr bdb5
7803 BE8B 38              8     pulx
7804 BE8C CE 00 01        ...   ldx #0001
7805 BE8F 3C              <     pshx
7806 BE90 CC 00 E0        ...   ldd #00e0
7807 BE93 BD BD B5        ...   jsr bdb5
7808 BE96 38              8     pulx
7809 BE97 CE 10 28        ..(   ldx #1028
7810 BE9A 1D 00           ..    bclr add,x 00,x
7811 BE9C 40              @     nega
7812 BE9D 39              9     rts
7813
7814 BE9E 37              7     pshb
7815 BE9F 36              6     psha
7816 BEA0 8D A9           ..    bsr dest a9
7817 BEA2 30              0     tsx
7818 BEA3 E6 05           ..    ldab 05,x
7819 BEA5 26 1B           &.    bne 1b
7820 BEA7 F6 00 06        ...   ldab 0006
7821 BEAA 4F              O     clra
7822 BEAB CE 00 0A        ...   ldx #000a
7823 BEAE 02              .     idiv
7824 BEAF 8F              .     xgdx
7825 BEB0 CB 30           .0    addb #30
7826 BEB2 F7 0B 99        ...   stb 0b99
7827 BEB5 F6 00 06        ...   ldab 0006
7828 BEB8 4F              O     clra
7829 BEB9 CE 00 0A        ...   ldx #000a
7830 BEBC 02              .     idiv
7831 BEBD CB 30           .0    addb #30
7832 BEBF F7 0B 98        ...   stb 0b98
7833 BEC2 30              0     tsx
7834 BEC3 EC 00           ..    ldd 00,x
7835 BEC5 C4 FF           ..    andb #ff
7836 BEC7 84 3F           .?    anda #3f
7837 BEC9 ED 00           ..    stad 00,x
7838 BECB EC 00           ..    ldd 00,x
7839 BECD CE 03 E8        ...   ldx #03e8
7840 BED0 02              .     idiv
7841 BED1 8F              .     xgdx
7842 BED2 CB 30           .0    addb #30
7843 BED4 37              7     pshb
7844 BED5 30              0     tsx
7845 BED6 E6 06           ..    ldab 06,x
7846 BED8 4F              O     clra
7847 BED9 C3 0B 95        ...   addd #0b95
7848 BEDC 8F              .     xgdx
7849 BEDD 33              3     pulb
7850 BEDE E7 00           ..    stb 00,x
7851 BEE0 30              0     tsx
7852 BEE1 EC 00           ..    ldd 00,x
7853 BEE3 CE 03 E8        ...   ldx #03e8
7854 BEE6 02              .     idiv
7855 BEE7 CE 00 64        ..d   ldx #0064
7856 BEEA 02              .     idiv
7857 BEEB 8F              .     xgdx
7858 BEEC CB 30           .0    addb #30
7859 BEEE 37              7     pshb
7860 BEEF 30              0     tsx
7861 BEF0 E6 06           ..    ldab 06,x
7862 BEF2 4F              O     clra
7863 BEF3 C3 0B 94        ...   addd #0b94
7864 BEF6 8F              .     xgdx
7865 BEF7 33              3     pulb
7866 BEF8 E7 00           ..    stb 00,x
7867 BEFA 30              0     tsx
7868 BEFB EC 00           ..    ldd 00,x
7869 BEFD CE 00 64        ..d   ldx #0064
7870 BF00 02              .     idiv
7871 BF01 CE 00 0A        ...   ldx #000a
7872 BF04 02              .     idiv
7873 BF05 8F              .     xgdx
7874 BF06 CB 30           .0    addb #30
7875 BF08 37              7     pshb
7876 BF09 30              0     tsx
7877 BF0A E6 06           ..    ldab 06,x
7878 BF0C 4F              O     clra
7879 BF0D C3 0B 93        ...   addd #0b93
7880 BF10 8F              .     xgdx
7881 BF11 33              3     pulb
7882 BF12 E7 00           ..    stb 00,x
7883 BF14 30              0     tsx
7884 BF15 EC 00           ..    ldd 00,x
7885 BF17 CE 00 0A        ...   ldx #000a
7886 BF1A 02              .     idiv
7887 BF1B CB 30           .0    addb #30
7888 BF1D 37              7     pshb
7889 BF1E 30              0     tsx
7890 BF1F E6 06           ..    ldab 06,x
7891 BF21 4F              O     clra
7892 BF22 C3 0B 92        ...   addd #0b92
7893 BF25 8F              .     xgdx
7894 BF26 33              3     pulb
7895 BF27 E7 00           ..    stb 00,x
7896 BF29 F6 00 13        ...   ldab 0013
7897 BF2C C1 01           ..    cmpb #01
7898 BF2E 22 03           ".    bhi 03
7899 BF30 7E BF DE        ~..   jmp bfde
7900 BF33 30              0     tsx
7901 BF34 E6 05           ..    ldab 05,x
7902 BF36 4F              O     clra
7903 BF37 C3 0B 92        ...   addd #0b92
7904 BF3A 8F              .     xgdx
7905 BF3B E6 00           ..    ldab 00,x
7906 BF3D 37              7     pshb
7907 BF3E 30              0     tsx
7908 BF3F E6 06           ..    ldab 06,x
7909 BF41 4F              O     clra
7910 BF42 C3 0B 91        ...   addd #0b91
7911 BF45 8F              .     xgdx
7912 BF46 33              3     pulb
7913 BF47 E7 00           ..    stb 00,x
7914 BF49 30              0     tsx
7915 BF4A E6 05           ..    ldab 05,x
7916 BF4C 4F              O     clra
7917 BF4D C3 0B 93        ...   addd #0b93
7918 BF50 8F              .     xgdx
7919 BF51 E6 00           ..    ldab 00,x
7920 BF53 37              7     pshb
7921 BF54 30              0     tsx
7922 BF55 E6 06           ..    ldab 06,x
7923 BF57 4F              O     clra
7924 BF58 C3 0B 92        ...   addd #0b92
7925 BF5B 8F              .     xgdx
7926 BF5C 33              3     pulb
7927 BF5D E7 00           ..    stb 00,x
7928 BF5F F6 00 13        ...   ldab 0013
7929 BF62 C1 02           ..    cmpb #02
7930 BF64 26 10           &.    bne 10
7931 BF66 C6 2E           ..    ldab #2e
7932 BF68 37              7     pshb
7933 BF69 30              0     tsx
7934 BF6A E6 06           ..    ldab 06,x
7935 BF6C 4F              O     clra
7936 BF6D C3 0B 93        ...   addd #0b93
7937 BF70 8F              .     xgdx
7938 BF71 33              3     pulb
7939 BF72 E7 00           ..    stb 00,x
7940 BF74 20 68            h    bra 68
7941 BF76 C1 04           ..    cmpb #04
7942 BF78 26 26           &&    bne 26
7943 BF7A 30              0     tsx
7944 BF7B E6 05           ..    ldab 05,x
7945 BF7D 4F              O     clra
7946 BF7E C3 0B 94        ...   addd #0b94
7947 BF81 8F              .     xgdx
7948 BF82 E6 00           ..    ldab 00,x
7949 BF84 37              7     pshb
7950 BF85 30              0     tsx
7951 BF86 E6 06           ..    ldab 06,x
7952 BF88 4F              O     clra
7953 BF89 C3 0B 93        ...   addd #0b93
7954 BF8C 8F              .     xgdx
7955 BF8D 33              3     pulb
7956 BF8E E7 00           ..    stb 00,x
7957 BF90 C6 2E           ..    ldab #2e
7958 BF92 37              7     pshb
7959 BF93 30              0     tsx
7960 BF94 E6 06           ..    ldab 06,x
7961 BF96 4F              O     clra
7962 BF97 C3 0B 94        ...   addd #0b94
7963 BF9A 8F              .     xgdx
7964 BF9B 33              3     pulb
7965 BF9C E7 00           ..    stb 00,x
7966 BF9E 20 3E            >    bra 3e
7967 BFA0 C1 08           ..    cmpb #08
7968 BFA2 26 3A           &:    bne 3a
7969 BFA4 30              0     tsx
7970 BFA5 E6 05           ..    ldab 05,x
7971 BFA7 4F              O     clra
7972 BFA8 C3 0B 94        ...   addd #0b94
7973 BFAB 8F              .     xgdx
7974 BFAC E6 00           ..    ldab 00,x
7975 BFAE 37              7     pshb
7976 BFAF 30              0     tsx
7977 BFB0 E6 06           ..    ldab 06,x
7978 BFB2 4F              O     clra
7979 BFB3 C3 0B 93        ...   addd #0b93
7980 BFB6 8F              .     xgdx
7981 BFB7 33              3     pulb
7982 BFB8 E7 00           ..    stb 00,x
7983 BFBA 30              0     tsx
7984 BFBB E6 05           ..    ldab 05,x
7985 BFBD 4F              O     clra
7986 BFBE C3 0B 95        ...   addd #0b95
7987 BFC1 8F              .     xgdx
7988 BFC2 E6 00           ..    ldab 00,x
7989 BFC4 37              7     pshb
7990 BFC5 30              0     tsx
7991 BFC6 E6 06           ..    ldab 06,x
7992 BFC8 4F              O     clra
7993 BFC9 C3 0B 94        ...   addd #0b94
7994 BFCC 8F              .     xgdx
7995 BFCD 33              3     pulb
7996 BFCE E7 00           ..    stb 00,x
7997 BFD0 C6 2E           ..    ldab #2e
7998 BFD2 37              7     pshb
7999 BFD3 30              0     tsx
8000 BFD4 E6 06           ..    ldab 06,x
8001 BFD6 4F              O     clra
8002 BFD7 C3 0B 95        ...   addd #0b95
8003 BFDA 8F              .     xgdx
8004 BFDB 33              3     pulb
8005 BFDC E7 00           ..    stb 00,x
8006 BFDE F6 0B C0        ...   ldab 0bc0
8007 BFE1 C4 01           ..    andb #01
8008 BFE3 26 0E           &.    bne 0e
8009 BFE5 F6 0B C0        ...   ldab 0bc0
8010 BFE8 C4 04           ..    andb #04
8011 BFEA 26 07           &.    bne 07
8012 BFEC F6 0B C0        ...   ldab 0bc0
8013 BFEF C4 08           ..    andb #08
8014 BFF1 27 15           '.    beq 15
8015 BFF3 F6 00 17        ...   ldab 0017
8016 BFF6 C4 08           ..    andb #08
8017 BFF8 26 0E           &.    bne 0e
8018 BFFA C6 24           .$    ldab #24
8019 BFFC 37              7     pshb
8020 BFFD 30              0     tsx
8021 BFFE E6 06           ..    ldab 06,x
8022 C000 4F              O     clra
8023 C001 C3 0B 96        ...   addd #0b96
8024 C004 8F              .     xgdx
8025 C005 33              3     pulb
8026 C006 E7 00           ..    stb 00,x
8027 C008 BD BE 69        ..i   jsr be69
8028 C00B F6 00 13        ...   ldab 0013
8029 C00E C1 01           ..    cmpb #01
8030 C010 23 17           #.    bls 17
8031 C012 CE 10 28        ..(   ldx #1028
8032 C015 1C 00           ..    bset add,x 00,x
8033 C017 40              @     nega
8034 C018 CE 00 01        ...   ldx #0001
8035 C01B 3C              <     pshx
8036 C01C CC 00 20        ..    ldd #0020
8037 C01F BD BD B5        ...   jsr bdb5
8038 C022 38              8     pulx
8039 C023 CE 10 28        ..(   ldx #1028
8040 C026 1D 00           ..    bclr add,x 00,x
8041 C028 40              @     nega
8042 C029 BD BE 10        ...   jsr be10
8043 C02C 38              8     pulx
8044 C02D 39              9     rts
8045
8046 C02E 37              7     pshb
8047 C02F 36              6     psha
8048 C030 3C              <     pshx
8049 C031 F6 00 2C        ..,   ldab 002c
8050 C034 27 03           '.    beq 03
8051 C036 7E C0 B7        ~..   jmp c0b7
8052 C039 FC 00 03        ...   ldd 0003
8053 C03C 30              0     tsx
8054 C03D A3 02           ..    subd 02,x
8055 C03F 25 0A           %.    bcs 0a
8056 C041 E6 07           ..    ldab 07,x
8057 C043 4F              O     clra
8058 C044 E3 02           ..    addd 02,x
8059 C046 B3 00 03        ...   subd 0003
8060 C049 24 06           $.    bcc 06
8061 C04B 30              0     tsx
8062 C04C EC 02           ..    ldd 02,x
8063 C04E FD 00 03        ...   stad 0003
8064 C051 FE 00 03        ...   ldx 0003
8065 C054 08              .     inx
8066 C055 FF 00 03        ...   stx 0003
8067 C058 09              .     dex
8068 C059 8F              .     xgdx
8069 C05A 30              0     tsx
8070 C05B ED 00           ..    stad 00,x
8071 C05D C6 09           ..    ldab #09
8072 C05F F7 00 18        ...   stb 0018
8073 C062 F6 00 18        ...   ldab 0018
8074 C065 C1 FF           ..    cmpb #ff
8075 C067 24 46           $F    bcc 46
8076 C069 30              0     tsx
8077 C06A E6 07           ..    ldab 07,x
8078 C06C 4F              O     clra
8079 C06D E3 02           ..    addd 02,x
8080 C06F A3 00           ..    subd 00,x
8081 C071 24 05           $.    bcc 05
8082 C073 30              0     tsx
8083 C074 EC 02           ..    ldd 02,x
8084 C076 ED 00           ..    stad 00,x
8085 C078 30              0     tsx
8086 C079 EE 00           ..    ldx 00,x
8087 C07B E6 00           ..    ldab 00,x
8088 C07D C1 40           .@    cmpb #40
8089 C07F 24 13           $.    bcc 13
8090 C081 30              0     tsx
8091 C082 EE 00           ..    ldx 00,x
8092 C084 E6 00           ..    ldab 00,x
8093 C086 37              7     pshb
8094 C087 F6 00 18        ...   ldab 0018
8095 C08A 4F              O     clra
8096 C08B C3 0B 90        ...   addd #0b90
8097 C08E 8F              .     xgdx
8098 C08F 33              3     pulb
8099 C090 E7 00           ..    stb 00,x
8100 C092 20 13            .    bra 13
8101 C094 30              0     tsx
8102 C095 EE 00           ..    ldx 00,x
8103 C097 E6 00           ..    ldab 00,x
8104 C099 CB C0           ..    addb #c0
8105 C09B 37              7     pshb
8106 C09C F6 00 18        ...   ldab 0018
8107 C09F 4F              O     clra
8108 C0A0 C3 0B 90        ...   addd #0b90
8109 C0A3 8F              .     xgdx
8110 C0A4 33              3     pulb
8111 C0A5 E7 00           ..    stb 00,x
8112 C0A7 38              8     pulx
8113 C0A8 08              .     inx
8114 C0A9 3C              <     pshx
8115 C0AA 7A 00 18        z..   dec 0018
8116 C0AD 20 B3            .    bra b3
8117 C0AF BD BE 01        ...   jsr be01
8118 C0B2 C6 03           ..    ldab #03
8119 C0B4 F7 00 2C        ..,   stb 002c
8120 C0B7 38              8     pulx
8121 C0B8 38              8     pulx
8122 C0B9 39              9     rts
8123
8124 ;Display a string.  D points to the string, which is NULL-terminated
8125
8126 display:
8127 C0BA 37              7     pshb
8128 C0BB 36              6     psha
8129 C0BC F6 00 1F        ...   ldab 001f
8130 C0BF C4 04           ..    andb #04
8131 C0C1 26 03           &.    bne 03
8132 C0C3 7F 00 2C        ..,   clr 002c
8133 C0C6 F6 00 2C        ..,   ldab 002c
8134 C0C9 26 13           &.    bne 13
8135 C0CB 5F              _     clrb
8136 C0CC 4F              O     clra
8137 C0CD FD 00 03        ...   stad 0003
8138 C0D0 7F 00 2C        ..,   clr 002c
8139 C0D3 CE 00 09        ...   ldx #0009
8140 C0D6 3C              <     pshx
8141 C0D7 30              0     tsx
8142 C0D8 EC 02           ..    ldd 02,x
8143 C0DA BD C0 2E        ...   jsr c02e
8144 C0DD 38              8     pulx
8145 C0DE 38              8     pulx
8146 C0DF 39              9     rts
8147
8148 C0E0 F6 00 15        ...   ldab 0015
8149 C0E3 2C 02           ,.    bge 02
8150 C0E5 20 F9            .    bra f9
8151 C0E7 CE 00 1D        ...   ldx #001d
8152 C0EA 1C 00           ..    bset add,x 00,x
8153 C0EC 20 BD            .    bra bd
8154 C0EE D7 30 83        .0.   stab 30
8155 C0F1 00              .     test
8156 C0F2 00              .     test
8157 C0F3 27 09           '.    beq 09
8158 C0F5 CE 00 1D        ...   ldx #001d
8159 C0F8 1D 00           ..    bclr add,x 00,x
8160 C0FA 20 5F            _    bra 5f
8161 C0FC 4F              O     clra
8162 C0FD 39              9     rts
8163
8164 C0FE CE 00 14        ...   ldx #0014
8165 C101 1C 00           ..    bset add,x 00,x
8166 C103 01              .     nop
8167 C104 F6 00 14        ...   ldab 0014
8168 C107 F7 38 00        .8.   stb 3800
8169 C10A F6 00 15        ...   ldab 0015
8170 C10D C4 1F           ..    andb #1f
8171 C10F 26 03           &.    bne 03
8172 C111 7E C3 1B        ~..   jmp c31b
8173 C114 C6 14           ..    ldab #14
8174 C116 F7 00 31        ..1   stb 0031
8175 C119 F6 00 15        ...   ldab 0015
8176 C11C 2D 15           -.    blt 15
8177 C11E F6 00 31        ..1   ldab 0031
8178 C121 C1 0A           ..    cmpb #0a
8179 C123 22 0C           ".    bhi 0c
8180 C125 BD C5 D3        ...   jsr c5d3
8181 C128 CE 00 1D        ...   ldx #001d
8182 C12B 1D 00           ..    bclr add,x 00,x
8183 C12D 20 5F            _    bra 5f
8184 C12F 4F              O     clra
8185 C130 39              9     rts
8186
8187 C131 20 E6            .    bra e6
8188 C133 FC 00 3E        ..>   ldd 003e
8189 C136 F3 00 40        ..@   addd 0040
8190 C139 FD 00 40        ..@   stad 0040
8191 C13C 5F              _     clrb
8192 C13D 4F              O     clra
8193 C13E FD 00 3E        ..>   stad 003e
8194 C141 F6 00 15        ...   ldab 0015
8195 C144 C4 1F           ..    andb #1f
8196 C146 4F              O     clra
8197 C147 BD FE 32        ..2   jsr fe32
8198 C14A C1 64           .d    cmpb #64
8199 C14C 00              .     test
8200 C14D 01              .     nop
8201 C14E C1 BA           ..    cmpb #ba
8202 C150 00              .     test
8203 C151 01              .     nop
8204 C152 C2 10           ..    sbcb #10
8205 C154 00              .     test
8206 C155 02              .     idiv
8207 C156 C2 66           .f    sbcb #66
8208 C158 00              .     test
8209 C159 04              .     lsrd
8210 C15A C2 BB           ..    sbcb #bb
8211 C15C 00              .     test
8212 C15D 08              .     inx
8213 C15E C3 0E FF        ...   addd #0eff
8214 C161 F0 00 00        ...   subb 0000
8215 C164 FC 0C DD        ...   ldd 0cdd
8216 C167 83 FF FF        ...   subd #ffff
8217 C16A 26 05           &.    bne 05
8218 C16C 5F              _     clrb
8219 C16D 4F              O     clra
8220 C16E FD 0C DD        ...   stad 0cdd
8221 C171 FE 0C DD        ...   ldx 0cdd
8222 C174 08              .     inx
8223 C175 FF 0C DD        ...   stx 0cdd
8224 C178 CE 00 64        ..d   ldx #0064
8225 C17B 3C              <     pshx
8226 C17C CC 00 00        ...   ldd #0000
8227 C17F 37              7     pshb
8228 C180 36              6     psha
8229 C181 CC 0C F3        ...   ldd #0cf3
8230 C184 BD FB DF        ...   jsr fbdf
8231 C187 31              1     ins
8232 C188 31              1     ins
8233 C189 FE 0C F5        ...   ldx 0cf5
8234 C18C 3C              <     pshx
8235 C18D FC 0C F3        ...   ldd 0cf3
8236 C190 37              7     pshb
8237 C191 36              6     psha
8238 C192 CE FF 9C        ...   ldx #ff9c
8239 C195 3C              <     pshx
8240 C196 CC 00 63        ..c   ldd #0063
8241 C199 30              0     tsx
8242 C19A A3 02           ..    subd 02,x
8243 C19C 32              2     pula
8244 C19D 33              3     pulb
8245 C19E 26 02           &.    bne 02
8246 C1A0 A3 04           ..    subd 04,x
8247 C1A2 38              8     pulx
8248 C1A3 38              8     pulx
8249 C1A4 24 11           $.    bcc 11
8250 C1A6 CE 00 64        ..d   ldx #0064
8251 C1A9 3C              <     pshx
8252 C1AA CC FF 9C        ...   ldd #ff9c
8253 C1AD 37              7     pshb
8254 C1AE 36              6     psha
8255 C1AF CC 0C F3        ...   ldd #0cf3
8256 C1B2 BD FB DF        ...   jsr fbdf
8257 C1B5 31              1     ins
8258 C1B6 31              1     ins
8259 C1B7 7E C3 0E        ~..   jmp c30e
8260 C1BA FC 0C DF        ...   ldd 0cdf
8261 C1BD 83 FF FF        ...   subd #ffff
8262 C1C0 26 05           &.    bne 05
8263 C1C2 5F              _     clrb
8264 C1C3 4F              O     clra
8265 C1C4 FD 0C DF        ...   stad 0cdf
8266 C1C7 FE 0C DF        ...   ldx 0cdf
8267 C1CA 08              .     inx
8268 C1CB FF 0C DF        ...   stx 0cdf
8269 C1CE CE 00 C8        ...   ldx #00c8
8270 C1D1 3C              <     pshx
8271 C1D2 CC 00 00        ...   ldd #0000
8272 C1D5 37              7     pshb
8273 C1D6 36              6     psha
8274 C1D7 CC 0C F7        ...   ldd #0cf7
8275 C1DA BD FB DF        ...   jsr fbdf
8276 C1DD 31              1     ins
8277 C1DE 31              1     ins
8278 C1DF FE 0C F9        ...   ldx 0cf9
8279 C1E2 3C              <     pshx
8280 C1E3 FC 0C F7        ...   ldd 0cf7
8281 C1E6 37              7     pshb
8282 C1E7 36              6     psha
8283 C1E8 CE FF 38        ..8   ldx #ff38
8284 C1EB 3C              <     pshx
8285 C1EC CC 00 C7        ...   ldd #00c7
8286 C1EF 30              0     tsx
8287 C1F0 A3 02           ..    subd 02,x
8288 C1F2 32              2     pula
8289 C1F3 33              3     pulb
8290 C1F4 26 02           &.    bne 02
8291 C1F6 A3 04           ..    subd 04,x
8292 C1F8 38              8     pulx
8293 C1F9 38              8     pulx
8294 C1FA 24 11           $.    bcc 11
8295 C1FC CE 00 C8        ...   ldx #00c8
8296 C1FF 3C              <     pshx
8297 C200 CC FF 38        ..8   ldd #ff38
8298 C203 37              7     pshb
8299 C204 36              6     psha
8300 C205 CC 0C F7        ...   ldd #0cf7
8301 C208 BD FB DF        ...   jsr fbdf
8302 C20B 31              1     ins
8303 C20C 31              1     ins
8304 C20D 7E C3 0E        ~..   jmp c30e
8305 C210 FC 0C E1        ...   ldd 0ce1
8306 C213 83 FF FF        ...   subd #ffff
8307 C216 26 05           &.    bne 05
8308 C218 5F              _     clrb
8309 C219 4F              O     clra
8310 C21A FD 0C E1        ...   stad 0ce1
8311 C21D FE 0C E1        ...   ldx 0ce1
8312 C220 08              .     inx
8313 C221 FF 0C E1        ...   stx 0ce1
8314 C224 CE 01 F4        ...   ldx #01f4
8315 C227 3C              <     pshx
8316 C228 CC 00 00        ...   ldd #0000
8317 C22B 37              7     pshb
8318 C22C 36              6     psha
8319 C22D CC 0C FB        ...   ldd #0cfb
8320 C230 BD FB DF        ...   jsr fbdf
8321 C233 31              1     ins
8322 C234 31              1     ins
8323 C235 FE 0C FD        ...   ldx 0cfd
8324 C238 3C              <     pshx
8325 C239 FC 0C FB        ...   ldd 0cfb
8326 C23C 37              7     pshb
8327 C23D 36              6     psha
8328 C23E CE FE 0C        ...   ldx #fe0c
8329 C241 3C              <     pshx
8330 C242 CC 01 F3        ...   ldd #01f3
8331 C245 30              0     tsx
8332 C246 A3 02           ..    subd 02,x
8333 C248 32              2     pula
8334 C249 33              3     pulb
8335 C24A 26 02           &.    bne 02
8336 C24C A3 04           ..    subd 04,x
8337 C24E 38              8     pulx
8338 C24F 38              8     pulx
8339 C250 24 11           $.    bcc 11
8340 C252 CE 01 F4        ...   ldx #01f4
8341 C255 3C              <     pshx
8342 C256 CC FE 0C        ...   ldd #fe0c
8343 C259 37              7     pshb
8344 C25A 36              6     psha
8345 C25B CC 0C FB        ...   ldd #0cfb
8346 C25E BD FB DF        ...   jsr fbdf
8347 C261 31              1     ins
8348 C262 31              1     ins
8349 C263 7E C3 0E        ~..   jmp c30e
8350 C266 FC 0C E3        ...   ldd 0ce3
8351 C269 83 FF FF        ...   subd #ffff
8352 C26C 26 05           &.    bne 05
8353 C26E 5F              _     clrb
8354 C26F 4F              O     clra
8355 C270 FD 0C E3        ...   stad 0ce3
8356 C273 FE 0C E3        ...   ldx 0ce3
8357 C276 08              .     inx
8358 C277 FF 0C E3        ...   stx 0ce3
8359 C27A CE 03 E8        ...   ldx #03e8
8360 C27D 3C              <     pshx
8361 C27E CC 00 00        ...   ldd #0000
8362 C281 37              7     pshb
8363 C282 36              6     psha
8364 C283 CC 0C FF        ...   ldd #0cff
8365 C286 BD FB DF        ...   jsr fbdf
8366 C289 31              1     ins
8367 C28A 31              1     ins
8368 C28B FE 0D 01        ...   ldx 0d01
8369 C28E 3C              <     pshx
8370 C28F FC 0C FF        ...   ldd 0cff
8371 C292 37              7     pshb
8372 C293 36              6     psha
8373 C294 CE FC 18        ...   ldx #fc18
8374 C297 3C              <     pshx
8375 C298 CC 03 E7        ...   ldd #03e7
8376 C29B 30              0     tsx
8377 C29C A3 02           ..    subd 02,x
8378 C29E 32              2     pula
8379 C29F 33              3     pulb
8380 C2A0 26 02           &.    bne 02
8381 C2A2 A3 04           ..    subd 04,x
8382 C2A4 38              8     pulx
8383 C2A5 38              8     pulx
8384 C2A6 24 11           $.    bcc 11
8385 C2A8 CE 03 E8        ...   ldx #03e8
8386 C2AB 3C              <     pshx
8387 C2AC CC FC 18        ...   ldd #fc18
8388 C2AF 37              7     pshb
8389 C2B0 36              6     psha
8390 C2B1 CC 0C FF        ...   ldd #0cff
8391 C2B4 BD FB DF        ...   jsr fbdf
8392 C2B7 31              1     ins
8393 C2B8 31              1     ins
8394 C2B9 20 53            S    bra 53
8395 C2BB FC 0C E5        ...   ldd 0ce5
8396 C2BE 83 C3 4F        ..O   subd #c34f
8397 C2C1 26 05           &.    bne 05
8398 C2C3 5F              _     clrb
8399 C2C4 4F              O     clra
8400 C2C5 FD 0C E5        ...   stad 0ce5
8401 C2C8 FE 0C E5        ...   ldx 0ce5
8402 C2CB 08              .     inx
8403 C2CC FF 0C E5        ...   stx 0ce5
8404 C2CF CE 07 D0        ...   ldx #07d0
8405 C2D2 3C              <     pshx
8406 C2D3 CC 00 00        ...   ldd #0000
8407 C2D6 37              7     pshb
8408 C2D7 36              6     psha
8409 C2D8 CC 0D 03        ...   ldd #0d03
8410 C2DB BD FB DF        ...   jsr fbdf
8411 C2DE 31              1     ins
8412 C2DF 31              1     ins
8413 C2E0 FE 0D 05        ...   ldx 0d05
8414 C2E3 3C              <     pshx
8415 C2E4 FC 0D 03        ...   ldd 0d03
8416 C2E7 37              7     pshb
8417 C2E8 36              6     psha
8418 C2E9 CE D9 30        ..0   ldx #d930
8419 C2EC 3C              <     pshx
8420 C2ED CC 05 F5        ...   ldd #05f5
8421 C2F0 30              0     tsx
8422 C2F1 A3 02           ..    subd 02,x
8423 C2F3 32              2     pula
8424 C2F4 33              3     pulb
8425 C2F5 26 02           &.    bne 02
8426 C2F7 A3 04           ..    subd 04,x
8427 C2F9 38              8     pulx
8428 C2FA 38              8     pulx
8429 C2FB 24 11           $.    bcc 11
8430 C2FD CE 26 D0        .&.   ldx #26d0
8431 C300 3C              <     pshx
8432 C301 CC FA 0A        ...   ldd #fa0a
8433 C304 37              7     pshb
8434 C305 36              6     psha
8435 C306 CC 0D 03        ...   ldd #0d03
8436 C309 BD FB DF        ...   jsr fbdf
8437 C30C 31              1     ins
8438 C30D 31              1     ins
8439 C30E F6 00 15        ...   ldab 0015
8440 C311 2C 02           ,.    bge 02
8441 C313 20 F9            .    bra f9
8442 C315 CE 00 15        ...   ldx #0015
8443 C318 1D 00           ..    bclr add,x 00,x
8444 C31A 1F CE 00 1D     ....  brclr ce,x 00 1d
8445 C31E 1D 00           ..    bclr add,x 00,x
8446 C320 20 CC            .    bra cc
8447 C322 00              .     test
8448 C323 01              .     nop
8449 C324 39              9     rts
8450
8451 C325 F6 10 00        ...   ldab 1000
8452 C328 C4 01           ..    andb #01
8453 C32A 26 13           &.    bne 13
8454 C32C 7C 00 7D        |.}   inc 007d
8455 C32F F6 00 7D        ..}   ldab 007d
8456 C332 C1 05           ..    cmpb #05
8457 C334 23 03           #.    bls 03
8458 C336 7F 00 7D        ..}   clr 007d
8459 C339 7F 00 7E        ..~   clr 007e
8460 C33C 7E C4 2F        ~./   jmp c42f
8461 C33F 7C 00 7E        |.~   inc 007e
8462 C342 F6 00 7E        ..~   ldab 007e
8463 C345 C1 07           ..    cmpb #07
8464 C347 23 17           #.    bls 17
8465 C349 7F 00 7D        ..}   clr 007d
8466 C34C 7F 00 7E        ..~   clr 007e
8467 C34F 7F 00 7C        ..|   clr 007c
8468 C352 F6 00 15        ...   ldab 0015
8469 C355 2C 03           ,.    bge 03
8470 C357 7F 00 2C        ..,   clr 002c
8471 C35A CE 00 15        ...   ldx #0015
8472 C35D 1D 00           ..    bclr add,x 00,x
8473 C35F 80 F6           ..    suba #f6
8474 C361 00              .     test
8475 C362 7E 26 03        ~&.   jmp 2603
8476 C365 7E C4 2F        ~./   jmp c42f
8477 C368 F6 00 7D        ..}   ldab 007d
8478 C36B C1 01           ..    cmpb #01
8479 C36D 22 03           ".    bhi 03
8480 C36F 7E C4 2F        ~./   jmp c42f
8481 C372 CE 00 15        ...   ldx #0015
8482 C375 1C 00           ..    bset add,x 00,x
8483 C377 80 CE           ..    suba #ce
8484 C379 0B              .     sev
8485 C37A C1 1D           ..    cmpb #1d
8486 C37C 00              .     test
8487 C37D 08              .     inx
8488 C37E F6 00 1D        ...   ldab 001d
8489 C381 C4 20           .     andb #20
8490 C383 27 03           '.    beq 03
8491 C385 7E C4 29        ~.)   jmp c429
8492 C388 C6 02           ..    ldab #02
8493 C38A F7 00 2C        ..,   stb 002c
8494 C38D 7F 00 3A        ..:   clr 003a
8495 C390 CE 00 1B        ...   ldx #001b
8496 C393 1D 00           ..    bclr add,x 00,x
8497 C395 40              @     nega
8498 C396 7F 00 25        ..%   clr 0025
8499 C399 CE 00 21        ..!   ldx #0021
8500 C39C 1D 00           ..    bclr add,x 00,x
8501 C39E 08              .     inx
8502 C39F CE 00 14        ...   ldx #0014
8503 C3A2 1D 00           ..    bclr add,x 00,x
8504 C3A4 01              .     nop
8505 C3A5 F6 00 14        ...   ldab 0014
8506 C3A8 F7 38 00        .8.   stb 3800
8507 C3AB 7C 00 7C        |.|   inc 007c
8508 C3AE CE 00 15        ...   ldx #0015
8509 C3B1 1D 00           ..    bclr add,x 00,x
8510 C3B3 1F F6 00 7C     ...|  brclr f6,x 00 7c
8511 C3B7 C1 01           ..    cmpb #01
8512 C3B9 26 0E           &.    bne 0e
8513 C3BB CE 00 15        ...   ldx #0015
8514 C3BE 1C 00           ..    bset add,x 00,x
8515 C3C0 01              .     nop
8516 C3C1 CC 00 64        ..d   ldd #0064
8517 C3C4 FD 00 3E        ..>   stad 003e
8518 C3C7 20 60            `    bra 60
8519 C3C9 F6 00 7C        ..|   ldab 007c
8520 C3CC C1 02           ..    cmpb #02
8521 C3CE 26 0E           &.    bne 0e
8522 C3D0 CE 00 15        ...   ldx #0015
8523 C3D3 1C 00           ..    bset add,x 00,x
8524 C3D5 02              .     idiv
8525 C3D6 CC 00 C8        ...   ldd #00c8
8526 C3D9 FD 00 3E        ..>   stad 003e
8527 C3DC 20 4B            K    bra 4b
8528 C3DE F6 00 7C        ..|   ldab 007c
8529 C3E1 C1 02           ..    cmpb #02
8530 C3E3 23 15           #.    bls 15
8531 C3E5 F6 00 7C        ..|   ldab 007c
8532 C3E8 C1 06           ..    cmpb #06
8533 C3EA 24 0E           $.    bcc 0e
8534 C3EC CE 00 15        ...   ldx #0015
8535 C3EF 1C 00           ..    bset add,x 00,x
8536 C3F1 04              .     lsrd
8537 C3F2 CC 01 F4        ...   ldd #01f4
8538 C3F5 FD 00 3E        ..>   stad 003e
8539 C3F8 20 2F            /    bra 2f
8540 C3FA F6 00 7C        ..|   ldab 007c
8541 C3FD C1 05           ..    cmpb #05
8542 C3FF 23 15           #.    bls 15
8543 C401 F6 00 7C        ..|   ldab 007c
8544 C404 C1 0B           ..    cmpb #0b
8545 C406 24 0E           $.    bcc 0e
8546 C408 CE 00 15        ...   ldx #0015
8547 C40B 1C 00           ..    bset add,x 00,x
8548 C40D 08              .     inx
8549 C40E CC 03 E8        ...   ldd #03e8
8550 C411 FD 00 3E        ..>   stad 003e
8551 C414 20 13            .    bra 13
8552 C416 F6 00 7C        ..|   ldab 007c
8553 C419 C1 0B           ..    cmpb #0b
8554 C41B 23 0C           #.    bls 0c
8555 C41D CE 00 15        ...   ldx #0015
8556 C420 1C 00           ..    bset add,x 00,x
8557 C422 10              .     sba
8558 C423 CC 07 D0        ...   ldd #07d0
8559 C426 FD 00 3E        ..>   stad 003e
8560 C429 7F 00 7D        ..}   clr 007d
8561 C42C 7F 00 7E        ..~   clr 007e
8562 C42F 39              9     rts
8563
8564 C430 F6 00 01        ...   ldab 0001
8565 C433 53              S     comb
8566 C434 F4 00 1A        ...   andb 001a
8567 C437 F7 00 1A        ...   stb 001a
8568 C43A F6 00 1A        ...   ldab 001a
8569 C43D F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8570 C440 CC 00 64        ..d   ldd #0064
8571 C443 BD E5 71        ..q   jsr e571
8572 C446 F6 00 01        ...   ldab 0001
8573 C449 FA 00 1A        ...   orb 001a
8574 C44C F7 00 1A        ...   stb 001a
8575 C44F F6 00 1A        ...   ldab 001a
8576 C452 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8577 C455 39              9     rts
8578
8579 C456 FC 00 40        ..@   ldd 0040
8580 C459 26 03           &.    bne 03
8581 C45B 7E C5 C6        ~..   jmp c5c6
8582 C45E CE 00 1A        ...   ldx #001a
8583 C461 1C 00           ..    bset add,x 00,x
8584 C463 01              .     nop
8585 C464 F6 00 1A        ...   ldab 001a
8586 C467 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8587 C46A CC 03 E8        ...   ldd #03e8
8588 C46D BD E5 71        ..q   jsr e571
8589 C470 FC 00 40        ..@   ldd 0040
8590 C473 83 00 00        ...   subd #0000
8591 C476 22 03           ".    bhi 03
8592 C478 7E C5 B0        ~..   jmp c5b0
8593 C47B F6 00 1B        ...   ldab 001b
8594 C47E C4 20           .     andb #20
8595 C480 27 1B           '.    beq 1b
8596 C482 FC 00 40        ..@   ldd 0040
8597 C485 83 03 E8        ...   subd #03e8
8598 C488 25 13           %.    bcs 13
8599 C48A C6 28           .(    ldab #28
8600 C48C F7 00 01        ...   stb 0001
8601 C48F CC FC 18        ...   ldd #fc18
8602 C492 F3 00 40        ..@   addd 0040
8603 C495 FD 00 40        ..@   stad 0040
8604 C498 8D 96           ..    bsr dest 96
8605 C49A 7E C5 7C        ~.|   jmp c57c
8606 C49D F6 00 1B        ...   ldab 001b
8607 C4A0 C4 20           .     andb #20
8608 C4A2 27 1C           '.    beq 1c
8609 C4A4 FC 00 40        ..@   ldd 0040
8610 C4A7 83 00 64        ..d   subd #0064
8611 C4AA 25 14           %.    bcs 14
8612 C4AC C6 30           .0    ldab #30
8613 C4AE F7 00 01        ...   stb 0001
8614 C4B1 CC FF 9C        ...   ldd #ff9c
8615 C4B4 F3 00 40        ..@   addd 0040
8616 C4B7 FD 00 40        ..@   stad 0040
8617 C4BA BD C4 30        ..0   jsr c430
8618 C4BD 7E C5 7C        ~.|   jmp c57c
8619 C4C0 FC 0B DD        ...   ldd 0bdd
8620 C4C3 27 3C           '<    beq 3c
8621 C4C5 FC 00 40        ..@   ldd 0040
8622 C4C8 B3 0B DD        ...   subd 0bdd
8623 C4CB 25 34           %4    bcs 34
8624 C4CD F6 0C DB        ...   ldab 0cdb
8625 C4D0 26 07           &.    bne 07
8626 C4D2 F6 00 1B        ...   ldab 001b
8627 C4D5 C4 20           .     andb #20
8628 C4D7 27 28           '(    beq 28
8629 C4D9 FC 0B DD        ...   ldd 0bdd
8630 C4DC 53              S     comb
8631 C4DD 43              C     coma
8632 C4DE F9 00 41        ..A   adcb 0041
8633 C4E1 B9 00 40        ..@   adca 0040
8634 C4E4 FD 00 40        ..@   stad 0040
8635 C4E7 F6 0B DA        ...   ldab 0bda
8636 C4EA F7 00 01        ...   stb 0001
8637 C4ED BD C4 30        ..0   jsr c430
8638 C4F0 F6 00 1B        ...   ldab 001b
8639 C4F3 C4 20           .     andb #20
8640 C4F5 26 08           &.    bne 08
8641 C4F7 F6 0C DB        ...   ldab 0cdb
8642 C4FA 27 03           '.    beq 03
8643 C4FC 7A 0C DB        z..   dec 0cdb
8644 C4FF 20 7B            {    bra 7b
8645 C501 FC 0B DF        ...   ldd 0bdf
8646 C504 27 3C           '<    beq 3c
8647 C506 FC 00 40        ..@   ldd 0040
8648 C509 B3 0B DF        ...   subd 0bdf
8649 C50C 25 34           %4    bcs 34
8650 C50E F6 0C DA        ...   ldab 0cda
8651 C511 26 07           &.    bne 07
8652 C513 F6 00 1B        ...   ldab 001b
8653 C516 C4 20           .     andb #20
8654 C518 27 28           '(    beq 28
8655 C51A FC 0B DF        ...   ldd 0bdf
8656 C51D 53              S     comb
8657 C51E 43              C     coma
8658 C51F F9 00 41        ..A   adcb 0041
8659 C522 B9 00 40        ..@   adca 0040
8660 C525 FD 00 40        ..@   stad 0040
8661 C528 F6 0B DB        ...   ldab 0bdb
8662 C52B F7 00 01        ...   stb 0001
8663 C52E BD C4 30        ..0   jsr c430
8664 C531 F6 00 1B        ...   ldab 001b
8665 C534 C4 20           .     andb #20
8666 C536 26 08           &.    bne 08
8667 C538 F6 0C DA        ...   ldab 0cda
8668 C53B 27 03           '.    beq 03
8669 C53D 7A 0C DA        z..   dec 0cda
8670 C540 20 3A            :    bra 3a
8671 C542 FC 0B E1        ...   ldd 0be1
8672 C545 27 30           '0    beq 30
8673 C547 FC 00 40        ..@   ldd 0040
8674 C54A B3 0B E1        ...   subd 0be1
8675 C54D 25 28           %(    bcs 28
8676 C54F FC 0B E1        ...   ldd 0be1
8677 C552 53              S     comb
8678 C553 43              C     coma
8679 C554 F9 00 41        ..A   adcb 0041
8680 C557 B9 00 40        ..@   adca 0040
8681 C55A FD 00 40        ..@   stad 0040
8682 C55D F6 0B DC        ...   ldab 0bdc
8683 C560 F7 00 01        ...   stb 0001
8684 C563 BD C4 30        ..0   jsr c430
8685 C566 F6 00 1B        ...   ldab 001b
8686 C569 C4 20           .     andb #20
8687 C56B 26 08           &.    bne 08
8688 C56D F6 0C D9        ...   ldab 0cd9
8689 C570 27 03           '.    beq 03
8690 C572 7A 0C D9        z..   dec 0cd9
8691 C575 20 05            .    bra 05
8692 C577 5F              _     clrb
8693 C578 4F              O     clra
8694 C579 FD 00 40        ..@   stad 0040
8695 C57C CC 01 2C        ..,   ldd #012c
8696 C57F BD E5 71        ..q   jsr e571
8697 C582 F6 00 1B        ...   ldab 001b
8698 C585 C4 20           .     andb #20
8699 C587 26 24           &$    bne 24
8700 C589 CE 00 1A        ...   ldx #001a
8701 C58C 1D 00           ..    bclr add,x 00,x
8702 C58E 01              .     nop
8703 C58F F6 00 1A        ...   ldab 001a
8704 C592 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8705 C595 CC 00 0C        ...   ldd #000c
8706 C598 BD E5 71        ..q   jsr e571
8707 C59B CE 00 1A        ...   ldx #001a
8708 C59E 1C 00           ..    bset add,x 00,x
8709 C5A0 01              .     nop
8710 C5A1 F6 00 1A        ...   ldab 001a
8711 C5A4 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8712 C5A7 CC 00 23        ..#   ldd #0023
8713 C5AA BD E5 71        ..q   jsr e571
8714 C5AD 7E C4 70        ~.p   jmp c470
8715 C5B0 F6 0B C0        ...   ldab 0bc0
8716 C5B3 C4 04           ..    andb #04
8717 C5B5 27 0F           '.    beq 0f
8718 C5B7 F6 00 1B        ...   ldab 001b
8719 C5BA C4 20           .     andb #20
8720 C5BC 27 08           '.    beq 08
8721 C5BE C6 38           .8    ldab #38
8722 C5C0 F7 00 01        ...   stb 0001
8723 C5C3 BD C4 30        ..0   jsr c430
8724 C5C6 CE 00 21        ..!   ldx #0021
8725 C5C9 1D 00           ..    bclr add,x 00,x
8726 C5CB 10              .     sba
8727 C5CC CE 00 1B        ...   ldx #001b
8728 C5CF 1D 00           ..    bclr add,x 00,x
8729 C5D1 20 39            9    bra 39
8730 C5D3 F6 00 15        ...   ldab 0015
8731 C5D6 C4 1F           ..    andb #1f
8732 C5D8 26 03           &.    bne 03
8733 C5DA 7E C6 7C        ~.|   jmp c67c
8734 C5DD CC 00 C8        ...   ldd #00c8
8735 C5E0 BD E5 71        ..q   jsr e571
8736 C5E3 FC 00 3E        ..>   ldd 003e
8737 C5E6 27 58           'X    beq 58
8738 C5E8 F6 00 15        ...   ldab 0015
8739 C5EB C4 1F           ..    andb #1f
8740 C5ED 4F              O     clra
8741 C5EE BD FE 32        ..2   jsr fe32
8742 C5F1 C6 0B           ..    ldab #0b
8743 C5F3 00              .     test
8744 C5F4 01              .     nop
8745 C5F5 C6 16           ..    ldab #16
8746 C5F7 00              .     test
8747 C5F8 01              .     nop
8748 C5F9 C6 21           .!    ldab #21
8749 C5FB 00              .     test
8750 C5FC 02              .     idiv
8751 C5FD C6 2C           .,    ldab #2c
8752 C5FF 00              .     test
8753 C600 04              .     lsrd
8754 C601 C6 37           .7    ldab #37
8755 C603 00              .     test
8756 C604 08              .     inx
8757 C605 C6 40           .@    ldab #40
8758 C607 FF F0 00        ...   stx f000
8759 C60A 00              .     test
8760 C60B CC FF 9C        ...   ldd #ff9c
8761 C60E F3 00 3E        ..>   addd 003e
8762 C611 FD 00 3E        ..>   stad 003e
8763 C614 20 2A            *    bra 2a
8764 C616 CC FF 38        ..8   ldd #ff38
8765 C619 F3 00 3E        ..>   addd 003e
8766 C61C FD 00 3E        ..>   stad 003e
8767 C61F 20 1F            .    bra 1f
8768 C621 CC FE 0C        ...   ldd #fe0c
8769 C624 F3 00 3E        ..>   addd 003e
8770 C627 FD 00 3E        ..>   stad 003e
8771 C62A 20 14            .    bra 14
8772 C62C CC FC 18        ...   ldd #fc18
8773 C62F F3 00 3E        ..>   addd 003e
8774 C632 FD 00 3E        ..>   stad 003e
8775 C635 20 09            .    bra 09
8776 C637 CC F8 30        ..0   ldd #f830
8777 C63A F3 00 3E        ..>   addd 003e
8778 C63D FD 00 3E        ..>   stad 003e
8779 C640 CE 00 14        ...   ldx #0014
8780 C643 1D 00           ..    bclr add,x 00,x
8781 C645 02              .     idiv
8782 C646 F6 00 14        ...   ldab 0014
8783 C649 F7 38 00        .8.   stb 3800
8784 C64C CC 00 1E        ...   ldd #001e
8785 C64F BD E5 71        ..q   jsr e571
8786 C652 CE 00 15        ...   ldx #0015
8787 C655 1D 00           ..    bclr add,x 00,x
8788 C657 1F CE 00 14     ....  brclr ce,x 00 14
8789 C65B 1C 00           ..    bset add,x 00,x
8790 C65D 02              .     idiv
8791 C65E F6 00 14        ...   ldab 0014
8792 C661 F7 38 00        .8.   stb 3800
8793 C664 CC 00 19        ...   ldd #0019
8794 C667 BD E5 71        ..q   jsr e571
8795 C66A CE 00 14        ...   ldx #0014
8796 C66D 1C 00           ..    bset add,x 00,x
8797 C66F 01              .     nop
8798 C670 F6 00 14        ...   ldab 0014
8799 C673 F7 38 00        .8.   stb 3800
8800 C676 CC 00 19        ...   ldd #0019
8801 C679 BD E5 71        ..q   jsr e571
8802 C67C 39              9     rts
8803
8804 C67D F6 00 30        ..0   ldab 0030
8805 C680 26 55           &U    bne 55
8806 C682 F6 0B C0        ...   ldab 0bc0
8807 C685 C4 04           ..    andb #04
8808 C687 26 4E           &N    bne 4e
8809 C689 C6 27           .'    ldab #27
8810 C68B F7 10 2D        ..-   stb 102d
8811 C68E C6 07           ..    ldab #07
8812 C690 F7 10 2B        ..+   stb 102b
8813 C693 CE 00 1A        ...   ldx #001a
8814 C696 1C 00           ..    bset add,x 00,x
8815 C698 04              .     lsrd
8816 C699 F6 00 1A        ...   ldab 001a
8817 C69C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8818 C69F CC 00 14        ...   ldd #0014
8819 C6A2 BD E5 71        ..q   jsr e571
8820 C6A5 F6 0B C0        ...   ldab 0bc0
8821 C6A8 C4 01           ..    andb #01
8822 C6AA 27 06           '.    beq 06
8823 C6AC CE 0B C1        ...   ldx #0bc1
8824 C6AF 1C 00           ..    bset add,x 00,x
8825 C6B1 01              .     nop
8826 C6B2 F6 0B C0        ...   ldab 0bc0
8827 C6B5 C4 04           ..    andb #04
8828 C6B7 27 06           '.    beq 06
8829 C6B9 CE 0B C1        ...   ldx #0bc1
8830 C6BC 1C 00           ..    bset add,x 00,x
8831 C6BE 02              .     idiv
8832 C6BF CE 00 1A        ...   ldx #001a
8833 C6C2 1D 00           ..    bclr add,x 00,x
8834 C6C4 04              .     lsrd
8835 C6C5 F6 00 1A        ...   ldab 001a
8836 C6C8 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8837 C6CB C6 96           ..    ldab #96
8838 C6CD F7 00 30        ..0   stb 0030
8839 C6D0 C6 1E           ..    ldab #1e
8840 C6D2 F7 00 35        ..5   stb 0035
8841 C6D5 20 5D            ]    bra 5d
8842 C6D7 F6 18 00        ...   ldab 1800
8843 C6DA 2D 2A           -*    blt 2a
8844 C6DC F6 00 07        ...   ldab 0007
8845 C6DF 26 25           &%    bne 25
8846 C6E1 CE 00 1A        ...   ldx #001a
8847 C6E4 1D 00           ..    bclr add,x 00,x
8848 C6E6 02              .     idiv
8849 C6E7 F6 00 1A        ...   ldab 001a
8850 C6EA F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8851 C6ED C6 64           .d    ldab #64
8852 C6EF F7 00 2D        ..-   stb 002d
8853 C6F2 CC 00 32        ..2   ldd #0032
8854 C6F5 BD E5 71        ..q   jsr e571
8855 C6F8 CE 00 1A        ...   ldx #001a
8856 C6FB 1C 00           ..    bset add,x 00,x
8857 C6FD 02              .     idiv
8858 C6FE F6 00 1A        ...   ldab 001a
8859 C701 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8860 C704 20 2E            .    bra 2e
8861 C706 F6 00 2D        ..-   ldab 002d
8862 C709 26 29           &)    bne 29
8863 C70B CE 00 1A        ...   ldx #001a
8864 C70E 1D 00           ..    bclr add,x 00,x
8865 C710 01              .     nop
8866 C711 F6 00 1A        ...   ldab 001a
8867 C714 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8868 C717 CC 00 0C        ...   ldd #000c
8869 C71A BD E5 71        ..q   jsr e571
8870 C71D CE 00 1A        ...   ldx #001a
8871 C720 1C 00           ..    bset add,x 00,x
8872 C722 01              .     nop
8873 C723 F6 00 1A        ...   ldab 001a
8874 C726 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8875 C729 CC 00 23        ..#   ldd #0023
8876 C72C BD E5 71        ..q   jsr e571
8877 C72F C6 64           .d    ldab #64
8878 C731 F7 00 2D        ..-   stb 002d
8879 C734 F6 00 21        ..!   ldab 0021
8880 C737 C4 10           ..    andb #10
8881 C739 27 45           'E    beq 45
8882 C73B F6 00 11        ...   ldab 0011
8883 C73E C4 04           ..    andb #04
8884 C740 26 1A           &.    bne 1a
8885 C742 FC 00 40        ..@   ldd 0040
8886 C745 F3 00 3E        ..>   addd 003e
8887 C748 B3 00 50        ..P   subd 0050
8888 C74B 25 0F           %.    bcs 0f
8889 C74D F6 0B C0        ...   ldab 0bc0
8890 C750 C4 04           ..    andb #04
8891 C752 26 08           &.    bne 08
8892 C754 CE 00 21        ..!   ldx #0021
8893 C757 1D 00           ..    bclr add,x 00,x
8894 C759 10              .     sba
8895 C75A 20 24            $    bra 24
8896 C75C F6 0B C0        ...   ldab 0bc0
8897 C75F C4 08           ..    andb #08
8898 C761 27 03           '.    beq 03
8899 C763 BD C5 D3        ...   jsr c5d3
8900 C766 FC 0B DD        ...   ldd 0bdd
8901 C769 26 12           &.    bne 12
8902 C76B FC 0B DF        ...   ldd 0bdf
8903 C76E 26 0D           &.    bne 0d
8904 C770 FC 0B E1        ...   ldd 0be1
8905 C773 26 08           &.    bne 08
8906 C775 CE 00 21        ..!   ldx #0021
8907 C778 1D 00           ..    bclr add,x 00,x
8908 C77A 10              .     sba
8909 C77B 20 03            .    bra 03
8910 C77D BD C4 56        ..V   jsr c456
8911 C780 F6 00 15        ...   ldab 0015
8912 C783 2D 08           -.    blt 08
8913 C785 CE 00 21        ..!   ldx #0021
8914 C788 1C 00           ..    bset add,x 00,x
8915 C78A 08              .     inx
8916 C78B 20 06            .    bra 06
8917 C78D CE 00 21        ..!   ldx #0021
8918 C790 1D 00           ..    bclr add,x 00,x
8919 C792 08              .     inx
8920 C793 39              9     rts
8921
8922 ;proc(a,b) var local
8923 ;local=0
8924 ;while b<>0
8925 ;
8926 ;endwhile
8927 ;return local
8928
8929 C794 37              7     pshb
8930 C795 36              6     psha
8931 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
8932 C797 30              0     tsx
8933 C798 6F 00           o.    clr 00,x
8934 loop:
8935 C79A 30              0     tsx
8936 C79B E6 02           ..    ldab 02,x
8937 C79D 27 1A           '.    beq exit     ;c7b9
8938 C79F 30              0     tsx
8939 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
8940 C7A4 30              0     tsx
8941 C7A5 E6 00           ..    ldab 00,x
8942 C7A7 27 05           '.    beq else     ;c7ae
8943 C7A9 30              0     tsx
8944 C7AA 6A 00           j.    dec 00,x
8945 C7AC 20 03            .    bra skip     ;c7b1
8946 else:
8947 C7AE 30              0     tsx
8948 C7AF 6C 00           l.    inc 00,x
8949 skip:
8950 C7B1 30              0     tsx
8951 C7B2 E6 02           ..    ldab 02,x
8952 C7B4 54              T     lsrb
8953 C7B5 E7 02           ..    stb 02,x
8954 C7B7 20 E1            .    bra loop     ;c79a
8955 exit:
8956 C7B9 30              0     tsx
8957 C7BA E6 00           ..    ldab 00,x
8958 C7BC 4F              O     clra
8959 C7BD 38              8     pulx
8960 C7BE 31              1     ins
8961 C7BF 39              9     rts
8962
8963 C7C0 F6 10 2F        ../   ldab 102f            ;sci data
8964 C7C3 4F              O     clra
8965 C7C4 8D CE           ..    bsr c794
8966 C7C6 83 00 00        ...   subd #0000
8967 C7C9 27 05           '.    beq 05
8968 C7CB F6 10 2C        ..,   ldab 102c
8969 C7CE 2D 10           -.    blt 10
8970 C7D0 F6 10 2F        ../   ldab 102f            ;sci data
8971 C7D3 4F              O     clra
8972 C7D4 8D BE           ..    bsr c794
8973 C7D6 83 00 00        ...   subd #0000
8974 C7D9 26 09           &.    bne 09
8975 C7DB F6 10 2C        ..,   ldab 102c
8976 C7DE 2D 04           -.    blt 04
8977 C7E0 CC 00 01        ...   ldd #0001
8978 C7E3 39              9     rts
8979
8980 C7E4 5F              _     clrb
8981 C7E5 4F              O     clra
8982 C7E6 39              9     rts
8983
8984
8985 ;this might send a byte to the serial port
8986
8987 C7E7 37              7     pshb
8988 C7E8 36              6     psha
8989 C7E9 C6 32           .2    ldab #32
8990 C7EB F7 00 31        ..1   stb 0031
8991 C7EE 30              0     tsx
8992 C7EF E6 01           ..    ldab 01,x
8993 C7F1 F7 00 43        ..C   stb 0043
8994 C7F4 F6 10 2E        ...   ldab 102e    ;SCI status
8995 C7F7 2D 02           -.    blt 02
8996 C7F9 20 F9            .    bra f9
8997 C7FB 30              0     tsx
8998 C7FC E6 01           ..    ldab 01,x
8999 C7FE 4F              O     clra
9000 C7FF 8D 93           ..    bsr dest 93
9001 C801 83 00 00        ...   subd #0000
9002 C804 27 08           '.    beq 08
9003 C806 CE 10 2C        ..,   ldx #102c
9004 C809 1C 00           ..    bset add,x 00,x
9005 C80B 40              @     nega
9006 C80C 20 06            .    bra 06
9007 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9008 C811 1D 00           ..    bclr add,x 00,x
9009 C813 40              @     nega
9010 C814 30              0     tsx
9011 C815 E6 01           ..    ldab 01,x
9012 C817 F7 10 2F        ../   stb 102f             ;sci data
9013 C81A 38              8     pulx
9014 C81B 39              9     rts
9015
9016
9017 C81C 34              4     des
9018 C81D F6 0B C0        ...   ldab 0bc0
9019 C820 C4 01           ..    andb #01
9020 C822 26 0A           &.    bne 0a
9021 C824 F6 0B C0        ...   ldab 0bc0
9022 C827 C4 04           ..    andb #04
9023 C829 26 03           &.    bne 03
9024 C82B 7E CB FF        ~..   jmp cbff
9025 C82E C6 96           ..    ldab #96
9026 C830 F7 00 30        ..0   stb 0030
9027 C833 F6 10 2E        ...   ldab 102e
9028 C836 C4 02           ..    andb #02
9029 C838 26 0B           &.    bne 0b
9030 C83A F6 10 2F        ../   ldab 102f            ;sci data
9031 C83D F1 00 26        ..&   cmpb 0026
9032 C840 26 03           &.    bne 03
9033 C842 7E C9 1B        ~..   jmp c91b
9034 C845 F6 10 2F        ../   ldab 102f            ;sci data
9035 C848 C4 63           .c    andb #63
9036 C84A C1 23           .#    cmpb #23
9037 C84C 27 03           '.    beq 03
9038 C84E 7E C8 E7        ~..   jmp c8e7
9039 C851 F6 00 1A        ...   ldab 001a
9040 C854 C4 01           ..    andb #01
9041 C856 26 03           &.    bne 03
9042 C858 7E C8 E7        ~..   jmp c8e7
9043 C85B F6 00 21        ..!   ldab 0021
9044 C85E C4 F8           ..    andb #f8
9045 C860 37              7     pshb
9046 C861 F6 10 2F        ../   ldab 102f            ;sci data
9047 C864 C4 1C           ..    andb #1c
9048 C866 54              T     lsrb
9049 C867 54              T     lsrb
9050 C868 30              0     tsx
9051 C869 EA 00           ..    orb 00,x
9052 C86B 31              1     ins
9053 C86C F7 00 21        ..!   stb 0021
9054 C86F F6 00 21        ..!   ldab 0021
9055 C872 F4 0B D7        ...   andb 0bd7
9056 C875 27 08           '.    beq 08
9057 C877 CE 00 17        ...   ldx #0017
9058 C87A 1C 00           ..    bset add,x 00,x
9059 C87C 20 20                 bra 20
9060 C87E 18              .     illegal
9061 C87F F6 00 17        ...   ldab 0017
9062 C882 C4 20           .     andb #20
9063 C884 27 11           '.    beq 11
9064 C886 CE 00 17        ...   ldx #0017
9065 C889 1D 00           ..    bclr add,x 00,x
9066 C88B 20 C6            .    bra c6
9067 C88D 04              .     lsrd
9068 C88E F7 0C DB        ...   stb 0cdb
9069 C891 CE 0B C1        ...   ldx #0bc1
9070 C894 1C 00           ..    bset add,x 00,x
9071 C896 40              @     nega
9072 C897 F6 00 21        ..!   ldab 0021
9073 C89A F4 0B D8        ...   andb 0bd8
9074 C89D 27 08           '.    beq 08
9075 C89F CE 00 17        ...   ldx #0017
9076 C8A2 1C 00           ..    bset add,x 00,x
9077 C8A4 40              @     nega
9078 C8A5 20 18            .    bra 18
9079 C8A7 F6 00 17        ...   ldab 0017
9080 C8AA C4 40           .@    andb #40
9081 C8AC 27 11           '.    beq 11
9082 C8AE CE 00 17        ...   ldx #0017
9083 C8B1 1D 00           ..    bclr add,x 00,x
9084 C8B3 40              @     nega
9085 C8B4 C6 04           ..    ldab #04
9086 C8B6 F7 0C DA        ...   stb 0cda
9087 C8B9 CE 0B C1        ...   ldx #0bc1
9088 C8BC 1C 00           ..    bset add,x 00,x
9089 C8BE 40              @     nega
9090 C8BF F6 00 21        ..!   ldab 0021
9091 C8C2 F4 0B D9        ...   andb 0bd9
9092 C8C5 27 08           '.    beq 08
9093 C8C7 CE 00 17        ...   ldx #0017
9094 C8CA 1C 00           ..    bset add,x 00,x
9095 C8CC 80 20           .     suba #20
9096 C8CE 16              .     tab
9097 C8CF F6 00 17        ...   ldab 0017
9098 C8D2 2C 11           ,.    bge 11
9099 C8D4 CE 00 17        ...   ldx #0017
9100 C8D7 1D 00           ..    bclr add,x 00,x
9101 C8D9 80 C6           ..    suba #c6
9102 C8DB 04              .     lsrd
9103 C8DC F7 0C D9        ...   stb 0cd9
9104 C8DF CE 0B C1        ...   ldx #0bc1
9105 C8E2 1C 00           ..    bset add,x 00,x
9106 C8E4 40              @     nega
9107 C8E5 20 31            1    bra 31
9108 C8E7 F6 10 2F        ../   ldab 102f            ;sci data
9109 C8EA F7 00 26        ..&   stb 0026
9110 C8ED CE 00 1A        ...   ldx #001a
9111 C8F0 1C 00           ..    bset add,x 00,x
9112 C8F2 02              .     idiv
9113 C8F3 F6 00 1A        ...   ldab 001a
9114 C8F6 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9115 C8F9 F6 00 3D        ..=   ldab 003d
9116 C8FC C4 04           ..    andb #04
9117 C8FE 26 18           &.    bne 18
9118 C900 CC 00 03        ...   ldd #0003
9119 C903 BD E5 71        ..q   jsr e571
9120 C906 CE 00 1A        ...   ldx #001a
9121 C909 1D 00           ..    bclr add,x 00,x
9122 C90B 02              .     idiv
9123 C90C F6 00 1A        ...   ldab 001a
9124 C90F F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9125 C912 7C 00 3D        |.=   inc 003d
9126 C915 7E CE 46        ~.F   jmp ce46
9127 C918 7E CB DA        ~..   jmp cbda
9128 C91B F6 00 08        ...   ldab 0008
9129 C91E 26 03           &.    bne 03
9130 C920 7E CA 5F        ~._   jmp ca5f
9131 C923 F6 00 17        ...   ldab 0017
9132 C926 C4 04           ..    andb #04
9133 C928 26 03           &.    bne 03
9134 C92A 7E CA 5F        ~._   jmp ca5f
9135 C92D F6 00 17        ...   ldab 0017
9136 C930 C4 08           ..    andb #08
9137 C932 26 03           &.    bne 03
9138 C934 7E CA 5F        ~._   jmp ca5f
9139 C937 F6 10 2F        ../   ldab 102f            ;sci data
9140 C93A C1 FF           ..    cmpb #ff
9141 C93C 27 07           '.    beq 07
9142 C93E F6 00 08        ...   ldab 0008
9143 C941 C1 0E           ..    cmpb #0e
9144 C943 25 12           %.    bcs 12
9145 C945 CE 00 17        ...   ldx #0017
9146 C948 1D 00           ..    bclr add,x 00,x
9147 C94A 04              .     lsrd
9148 C94B 7F 00 08        ...   clr 0008
9149 C94E BD CE 48        ..H   jsr ce48
9150 C951 7F 00 2C        ..,   clr 002c
9151 C954 7E CA 5C        ~.\   jmp ca5c
9152 C957 F6 00 08        ...   ldab 0008
9153 C95A 4F              O     clra
9154 C95B BD FE 16        ...   jsr fe16
9155 C95E 00              .     test
9156 C95F 01              .     nop
9157 C960 00              .     test
9158 C961 0C              .     clc
9159 C962 CA 59           .Y    orab #59
9160 C964 C9 7E           .~    adcb #7e
9161 C966 C9 87           ..    adcb #87
9162 C968 C9 DF           ..    adcb #df
9163 C96A C9 F3           ..    adcb #f3
9164 C96C CA 07           ..    orab #07
9165 C96E CA 1B           ..    orab #1b
9166 C970 CA 23           .#    orab #23
9167 C972 CA 2B           .+    orab #2b
9168 C974 CA 33           .3    orab #33
9169 C976 CA 3B           .;    orab #3b
9170 C978 CA 43           .C    orab #43
9171 C97A CA 4B           .K    orab #4b
9172 C97C CA 53           .S    orab #53
9173 C97E F6 10 2F        ../   ldab 102f            ;sci data
9174 C981 F7 0B C2        ...   stb 0bc2
9175 C984 7E CA 59        ~.Y   jmp ca59
9176 C987 F6 10 2F        ../   ldab 102f            ;sci data
9177 C98A F7 0B E3        ...   stb 0be3
9178 C98D F6 10 2F        ../   ldab 102f            ;sci data
9179 C990 C4 0F           ..    andb #0f
9180 C992 C1 01           ..    cmpb #01
9181 C994 26 07           &.    bne 07
9182 C996 C6 02           ..    ldab #02
9183 C998 F7 00 13        ...   stb 0013
9184 C99B 20 1B            .    bra 1b
9185 C99D C1 02           ..    cmpb #02
9186 C99F 26 07           &.    bne 07
9187 C9A1 C6 04           ..    ldab #04
9188 C9A3 F7 00 13        ...   stb 0013
9189 C9A6 20 10            .    bra 10
9190 C9A8 C1 03           ..    cmpb #03
9191 C9AA 26 07           &.    bne 07
9192 C9AC C6 08           ..    ldab #08
9193 C9AE F7 00 13        ...   stb 0013
9194 C9B1 20 05            .    bra 05
9195 C9B3 C6 01           ..    ldab #01
9196 C9B5 F7 00 13        ...   stb 0013
9197 C9B8 F6 10 2F        ../   ldab 102f            ;sci data
9198 C9BB C4 F0           ..    andb #f0
9199 C9BD 54              T     lsrb
9200 C9BE 54              T     lsrb
9201 C9BF 54              T     lsrb
9202 C9C0 54              T     lsrb
9203 C9C1 F7 0B C3        ...   stb 0bc3
9204 C9C4 F6 0B C2        ...   ldab 0bc2
9205 C9C7 F7 0B AA        ...   stb 0baa
9206 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9207 ;while 0bc3^<>0
9208 ;  obaa^:=0baa^*10
9209 ;  obc3^:=0bc3-1
9210 ;endwhile
9211 C9CA F6 0B C3        ...   ldab 0bc3
9212 C9CD 27 0E           '.    beq c9dd
9213 C9CF F6 0B AA        ...   ldab 0baa
9214 C9D2 86 0A           ..    ldaa #0a
9215 C9D4 3D              =     mul
9216 C9D5 F7 0B AA        ...   stb 0baa
9217 C9D8 7A 0B C3        z..   dec 0bc3
9218 C9DB 20 ED            .    bra c9ca
9219
9220 C9DD 20 7A            z    bra 7a
9221 C9DF F6 10 2F        ../   ldab 102f            ;sci data
9222 C9E2 F7 0B C4        ...   stb 0bc4
9223 C9E5 F6 0B C4        ...   ldab 0bc4
9224 C9E8 C1 80           ..    cmpb #80
9225 C9EA 26 05           &.    bne 05
9226 C9EC C6 0F           ..    ldab #0f
9227 C9EE F7 0B C4        ...   stb 0bc4
9228 C9F1 20 66            f    bra 66
9229 C9F3 F6 10 2F        ../   ldab 102f            ;sci data
9230 C9F6 F7 0B C5        ...   stb 0bc5
9231 C9F9 F6 0B C5        ...   ldab 0bc5
9232 C9FC C1 80           ..    cmpb #80
9233 C9FE 26 05           &.    bne 05
9234 CA00 C6 0F           ..    ldab #0f
9235 CA02 F7 0B C5        ...   stb 0bc5
9236 CA05 20 52            R    bra 52
9237 CA07 F6 10 2F        ../   ldab 102f            ;sci data
9238 CA0A F7 0B C6        ...   stb 0bc6
9239 CA0D F6 0B C6        ...   ldab 0bc6
9240 CA10 C1 80           ..    cmpb #80
9241 CA12 26 05           &.    bne ca19
9242 CA14 C6 0F           ..    ldab #0f
9243 CA16 F7 0B C6        ...   stb 0bc6
9244 CA19 20 3E            >    bra 3e
9245 ;!!!where does this lot get called?
9246 CA1B F6 10 2F        ../   ldab 102f            ;sci data
9247 CA1E F7 0B C7        ...   stb 0bc7
9248 CA21 20 36            6    bra 36
9249 CA23 F6 10 2F        ../   ldab 102f            ;sci data
9250 CA26 F7 0B C8        ...   stb 0bc8
9251 CA29 20 2E            .    bra 2e
9252 CA2B F6 10 2F        ../   ldab 102f            ;sci data
9253 CA2E F7 0B C9        ...   stb 0bc9
9254 CA31 20 26            &    bra 26
9255 CA33 F6 10 2F        ../   ldab 102f            ;sci data
9256 CA36 F7 0B CA        ...   stb 0bca
9257 CA39 20 1E            .    bra 1e
9258 CA3B F6 10 2F        ../   ldab 102f            ;sci data
9259 CA3E F7 0B CB        ...   stb 0bcb
9260 CA41 20 16            .    bra 16
9261 CA43 F6 10 2F        ../   ldab 102f            ;sci data
9262 CA46 F7 0B CC        ...   stb 0bcc
9263 CA49 20 0E            .    bra 0e
9264 CA4B F6 10 2F        ../   ldab 102f            ;sci data
9265 CA4E F7 0B CD        ...   stb 0bcd
9266 CA51 20 06            .    bra 06
9267 CA53 F6 10 2F        ../   ldab 102f            ;sci data
9268 CA56 F7 0B CE        ...   stb 0bce
9269 CA59 7C 00 08        |..   inc 0008
9270 CA5C 7E CB DA        ~..   jmp cbda
9271 CA5F F6 10 2F        ../   ldab 102f            ;sci data
9272 CA62 C4 EF           ..    andb #ef
9273 CA64 C1 E2           ..    cmpb #e2
9274 CA66 26 1A           &.    bne 1a
9275 CA68 CE 00 17        ...   ldx #0017
9276 CA6B 1C 00           ..    bset add,x 00,x
9277 CA6D 08              .     inx
9278 CA6E CE 00 17        ...   ldx #0017
9279 CA71 1C 00           ..    bset add,x 00,x
9280 CA73 04              .     lsrd
9281 CA74 C6 01           ..    ldab #01
9282 CA76 F7 00 08        ...   stb 0008
9283 CA79 CE 0B C1        ...   ldx #0bc1
9284 CA7C 1D 00           ..    bclr add,x 00,x
9285 CA7E 01              .     nop
9286 CA7F 7E CB DA        ~..   jmp cbda
9287 CA82 F6 10 2F        ../   ldab 102f            ;sci data
9288 CA85 C4 02           ..    andb #02
9289 CA87 27 03           '.    beq 03
9290 CA89 7E CB 6C        ~.l   jmp cb6c
9291 CA8C F6 10 2F        ../   ldab 102f            ;sci data
9292 CA8F 2C 38           ,8    bge 38
9293 CA91 F6 00 17        ...   ldab 0017
9294 CA94 C4 08           ..    andb #08
9295 CA96 26 31           &1    bne 31
9296 CA98 F6 10 2F        ../   ldab 102f            ;sci data
9297 CA9B C4 78           .x    andb #78
9298 CA9D 54              T     lsrb
9299 CA9E 54              T     lsrb
9300 CA9F 54              T     lsrb
9301 CAA0 4F              O     clra
9302 CAA1 C3 0B C7        ...   addd #0bc7
9303 CAA4 8F              .     xgdx
9304 CAA5 E6 00           ..    ldab 00,x
9305 CAA7 4F              O     clra
9306 CAA8 37              7     pshb
9307 CAA9 36              6     psha
9308 CAAA F6 0B AA        ...   ldab 0baa
9309 CAAD 4F              O     clra
9310 CAAE BD FB BA        ...   jsr fbba
9311 CAB1 F3 00 40        ..@   addd 0040
9312 CAB4 FD 00 40        ..@   stad 0040
9313 CAB7 CE 00 1B        ...   ldx #001b
9314 CABA 1C 00           ..    bset add,x 00,x
9315 CABC 20 CE            .    bra ce
9316 CABE 00              .     test
9317 CABF 1B              .     aba
9318 CAC0 1D 00           ..    bclr add,x 00,x
9319 CAC2 40              @     nega
9320 CAC3 7F 00 25        ..%   clr 0025
9321 CAC6 7E CB 64        ~.d   jmp cb64
9322 CAC9 F6 00 17        ...   ldab 0017
9323 CACC C4 08           ..    andb #08
9324 CACE 26 4A           &J    bne 4a
9325 CAD0 F6 10 2F        ../   ldab 102f            ;sci data
9326 CAD3 C4 60           .`    andb #60
9327 CAD5 54              T     lsrb
9328 CAD6 54              T     lsrb
9329 CAD7 54              T     lsrb
9330 CAD8 4F              O     clra
9331 CAD9 C3 0B C7        ...   addd #0bc7
9332 CADC 8F              .     xgdx
9333 CADD E6 00           ..    ldab 00,x
9334 CADF 4F              O     clra
9335 CAE0 37              7     pshb
9336 CAE1 36              6     psha
9337 CAE2 F6 0B AA        ...   ldab 0baa
9338 CAE5 4F              O     clra
9339 CAE6 BD FB BA        ...   jsr fbba
9340 CAE9 FD 0B BD        ...   stad 0bbd
9341 CAEC FC 0B BD        ...   ldd 0bbd
9342 CAEF F3 00 40        ..@   addd 0040
9343 CAF2 FD 00 40        ..@   stad 0040
9344 CAF5 F6 00 21        ..!   ldab 0021
9345 CAF8 C4 F8           ..    andb #f8
9346 CAFA 37              7     pshb
9347 CAFB F6 10 2F        ../   ldab 102f            ;sci data
9348 CAFE C4 1C           ..    andb #1c
9349 CB00 54              T     lsrb
9350 CB01 54              T     lsrb
9351 CB02 30              0     tsx
9352 CB03 EA 00           ..    orb 00,x
9353 CB05 31              1     ins
9354 CB06 F7 00 21        ..!   stb 0021
9355 CB09 F6 10 2F        ../   ldab 102f            ;sci data
9356 CB0C F7 0B BC        ...   stb 0bbc
9357 CB0F CE 00 1B        ...   ldx #001b
9358 CB12 1D 00           ..    bclr add,x 00,x
9359 CB14 40              @     nega
9360 CB15 7F 00 25        ..%   clr 0025
9361 CB18 20 4A            J    bra 4a
9362 CB1A F6 10 2F        ../   ldab 102f            ;sci data
9363 CB1D C4 E0           ..    andb #e0
9364 CB1F 54              T     lsrb
9365 CB20 54              T     lsrb
9366 CB21 54              T     lsrb
9367 CB22 54              T     lsrb
9368 CB23 54              T     lsrb
9369 CB24 4F              O     clra
9370 CB25 C3 0B C7        ...   addd #0bc7
9371 CB28 8F              .     xgdx
9372 CB29 E6 00           ..    ldab 00,x
9373 CB2B 4F              O     clra
9374 CB2C 37              7     pshb
9375 CB2D 36              6     psha
9376 CB2E F6 0B AA        ...   ldab 0baa
9377 CB31 4F              O     clra
9378 CB32 BD FB BA        ...   jsr fbba
9379 CB35 FD 0B BD        ...   stad 0bbd
9380 CB38 FC 0B BD        ...   ldd 0bbd
9381 CB3B F3 00 40        ..@   addd 0040
9382 CB3E FD 00 40        ..@   stad 0040
9383 CB41 F6 00 21        ..!   ldab 0021
9384 CB44 C4 F8           ..    andb #f8
9385 CB46 37              7     pshb
9386 CB47 F6 10 2F        ../   ldab 102f            ;sci data
9387 CB4A C4 1C           ..    andb #1c
9388 CB4C 54              T     lsrb
9389 CB4D 54              T     lsrb
9390 CB4E 30              0     tsx
9391 CB4F EA 00           ..    orb 00,x
9392 CB51 31              1     ins
9393 CB52 F7 00 21        ..!   stb 0021
9394 CB55 F6 10 2F        ../   ldab 102f            ;sci data
9395 CB58 F7 0B BC        ...   stb 0bbc
9396 CB5B CE 00 1B        ...   ldx #001b
9397 CB5E 1D 00           ..    bclr add,x 00,x
9398 CB60 40              @     nega
9399 CB61 7F 00 25        ..%   clr 0025
9400 CB64 7F 00 2C        ..,   clr 002c
9401 CB67 7F 00 3A        ..:   clr 003a
9402 CB6A 20 6E            n    bra 6e
9403 CB6C F6 10 2F        ../   ldab 102f            ;sci data
9404 CB6F C4 03           ..    andb #03
9405 CB71 C1 02           ..    cmpb #02
9406 CB73 26 0F           &.    bne 0f
9407 CB75 F6 00 21        ..!   ldab 0021
9408 CB78 C4 08           ..    andb #08
9409 CB7A 27 08           '.    beq 08
9410 CB7C CE 00 21        ..!   ldx #0021
9411 CB7F 1C 00           ..    bset add,x 00,x
9412 CB81 10              .     sba
9413 CB82 20 56            V    bra 56
9414 CB84 F6 10 2F        ../   ldab 102f            ;sci data
9415 CB87 C4 EF           ..    andb #ef
9416 CB89 C1 E3           ..    cmpb #e3
9417 CB8B 26 08           &.    bne 08
9418 CB8D CE 0B C1        ...   ldx #0bc1
9419 CB90 1D 00           ..    bclr add,x 00,x
9420 CB92 02              .     idiv
9421 CB93 20 45            E    bra 45
9422 CB95 F6 10 2F        ../   ldab 102f            ;sci data
9423 CB98 C4 EF           ..    andb #ef
9424 CB9A C1 63           .c    cmpb #63
9425 CB9C 26 1C           &.    bne 1c
9426 CB9E CE 0B C1        ...   ldx #0bc1
9427 CBA1 1D 00           ..    bclr add,x 00,x
9428 CBA3 01              .     nop
9429 CBA4 F6 0B C0        ...   ldab 0bc0
9430 CBA7 C4 01           ..    andb #01
9431 CBA9 27 0D           '.    beq 0d
9432 CBAB F6 0B C0        ...   ldab 0bc0
9433 CBAE C4 04           ..    andb #04
9434 CBB0 27 06           '.    beq 06
9435 CBB2 CE 0B C1        ...   ldx #0bc1
9436 CBB5 1D 00           ..    bclr add,x 00,x
9437 CBB7 02              .     idiv
9438 CBB8 20 20                 bra 20
9439 CBBA F6 10 2F        ../   ldab 102f            ;sci data
9440 CBBD C4 EF           ..    andb #ef
9441 CBBF C1 67           .g    cmpb #67
9442 CBC1 26 08           &.    bne 08
9443 CBC3 CE 0B C1        ...   ldx #0bc1
9444 CBC6 1C 00           ..    bset add,x 00,x
9445 CBC8 20 20                 bra 20
9446 CBCA 0F              .     sei
9447 CBCB F6 10 2F        ../   ldab 102f            ;sci data
9448 CBCE C4 EF           ..    andb #ef
9449 CBD0 C1 27           .'    cmpb #27
9450 CBD2 26 06           &.    bne 06
9451 CBD4 CE 0B C1        ...   ldx #0bc1
9452 CBD7 1C 00           ..    bset add,x 00,x
9453 CBD9 10              .     sba
9454 CBDA CE 00 1A        ...   ldx #001a
9455 CBDD 1C 00           ..    bset add,x 00,x
9456 CBDF 02              .     idiv
9457 CBE0 F6 00 1A        ...   ldab 001a
9458 CBE3 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9459 CBE6 F6 00 17        ...   ldab 0017
9460 CBE9 C4 04           ..    andb #04
9461 CBEB 26 05           &.    bne 05
9462 CBED C6 06           ..    ldab #06
9463 CBEF F7 00 07        ...   stb 0007
9464 CBF2 F6 00 26        ..&   ldab 0026
9465 CBF5 53              S     comb
9466 CBF6 F7 00 26        ..&   stb 0026
9467 CBF9 7F 00 3D        ..=   clr 003d
9468 CBFC 7E CE 46        ~.F   jmp ce46
9469 CBFF F6 0B C0        ...   ldab 0bc0
9470 CC02 C4 02           ..    andb #02
9471 CC04 26 03           &.    bne 03
9472 CC06 7E CE 3B        ~.;   jmp ce3b
9473 CC09 F6 10 2F        ../   ldab 102f            ;sci data
9474 CC0C C4 E0           ..    andb #e0
9475 CC0E C1 20           .     cmpb #20
9476 CC10 27 03           '.    beq 03
9477 CC12 7E CE 3B        ~.;   jmp ce3b
9478 CC15 C6 32           .2    ldab #32
9479 CC17 F7 00 2F        ../   stb 002f
9480 CC1A CE 00 1B        ...   ldx #001b
9481 CC1D 1C 00           ..    bset add,x 00,x
9482 CC1F 02              .     idiv
9483 CC20 F6 10 2E        ...   ldab 102e
9484 CC23 C4 02           ..    andb #02
9485 CC25 26 08           &.    bne 08
9486 CC27 BD C7 C0        ...   jsr c7c0
9487 CC2A 83 00 00        ...   subd #0000
9488 CC2D 26 0F           &.    bne 0f
9489 CC2F F6 10 2F        ../   ldab 102f            ;sci data
9490 CC32 30              0     tsx
9491 CC33 E7 00           ..    stb 00,x
9492 CC35 CC 00 FF        ...   ldd #00ff
9493 CC38 BD C7 E7        ...   jsr c7e7
9494 CC3B 7E CE 39        ~.9   jmp ce39
9495 CC3E F6 10 2F        ../   ldab 102f            ;sci data
9496 CC41 C1 3F           .?    cmpb #3f
9497 CC43 26 0A           &.    bne 0a
9498 CC45 F6 00 43        ..C   ldab 0043
9499 CC48 4F              O     clra
9500 CC49 BD C7 E7        ...   jsr c7e7
9501 CC4C 7E CE 39        ~.9   jmp ce39
9502 CC4F F6 00 08        ...   ldab 0008
9503 CC52 26 03           &.    bne 03
9504 CC54 7E CD 94        ~..   jmp cd94
9505 CC57 F6 10 2F        ../   ldab 102f            ;sci data
9506 CC5A C4 F0           ..    andb #f0
9507 CC5C C1 20           .     cmpb #20
9508 CC5E 27 03           '.    beq 03
9509 CC60 7E CD 94        ~..   jmp cd94
9510 CC63 F6 10 2F        ../   ldab 102f            ;sci data
9511 CC66 C4 0F           ..    andb #0f
9512 CC68 30              0     tsx
9513 CC69 E7 00           ..    stb 00,x
9514 CC6B F6 00 08        ...   ldab 0008
9515 CC6E 4F              O     clra
9516 CC6F BD FE 16        ...   jsr fe16
9517 CC72 00              .     test
9518 CC73 01              .     nop
9519 CC74 00              .     test
9520 CC75 07              .     tpa
9521 CC76 CD              .     illegal
9522 CC77 7A CC 88        z..   dec cc88
9523 CC7A CC A2 CC        ...   ldd #a2cc
9524 CC7D CA CC           ..    orab #cc
9525 CC7F EE CD           ..    ldx cd,x
9526 CC81 19              .     daa
9527 CC82 CD              .     illegal
9528 CC83 21 CD           !.    brn cd
9529 CC85 30              0     tsx
9530 CC86 CD              .     illegal
9531 CC87 38              8     pulx
9532 CC88 F6 00 17        ...   ldab 0017
9533 CC8B C4 01           ..    andb #01
9534 CC8D 27 09           '.    beq 09
9535 CC8F 30              0     tsx
9536 CC90 E6 00           ..    ldab 00,x
9537 CC92 4F              O     clra
9538 CC93 FD 00 76        ..v   stad 0076
9539 CC96 20 07            .    bra 07
9540 CC98 30              0     tsx
9541 CC99 E6 00           ..    ldab 00,x
9542 CC9B 4F              O     clra
9543 CC9C FD 00 40        ..@   stad 0040
9544 CC9F 7E CD 7A        ~.z   jmp cd7a
9545 CCA2 F6 00 17        ...   ldab 0017
9546 CCA5 C4 01           ..    andb #01
9547 CCA7 27 10           '.    beq 10
9548 CCA9 30              0     tsx
9549 CCAA E6 00           ..    ldab 00,x
9550 CCAC 4F              O     clra
9551 CCAD 05              .     asld
9552 CCAE 05              .     asld
9553 CCAF 05              .     asld
9554 CCB0 05              .     asld
9555 CCB1 F3 00 76        ..v   addd 0076
9556 CCB4 FD 00 76        ..v   stad 0076
9557 CCB7 20 0E            .    bra 0e
9558 CCB9 30              0     tsx
9559 CCBA E6 00           ..    ldab 00,x
9560 CCBC 4F              O     clra
9561 CCBD 05              .     asld
9562 CCBE 05              .     asld
9563 CCBF 05              .     asld
9564 CCC0 05              .     asld
9565 CCC1 F3 00 40        ..@   addd 0040
9566 CCC4 FD 00 40        ..@   stad 0040
9567 CCC7 7E CD 7A        ~.z   jmp cd7a
9568 CCCA F6 00 17        ...   ldab 0017
9569 CCCD C4 01           ..    andb #01
9570 CCCF 27 0E           '.    beq 0e
9571 CCD1 30              0     tsx
9572 CCD2 E6 00           ..    ldab 00,x
9573 CCD4 4F              O     clra
9574 CCD5 17              .     tba
9575 CCD6 5F              _     clrb
9576 CCD7 F3 00 76        ..v   addd 0076
9577 CCDA FD 00 76        ..v   stad 0076
9578 CCDD 20 0C            .    bra 0c
9579 CCDF 30              0     tsx
9580 CCE0 E6 00           ..    ldab 00,x
9581 CCE2 4F              O     clra
9582 CCE3 17              .     tba
9583 CCE4 5F              _     clrb
9584 CCE5 F3 00 40        ..@   addd 0040
9585 CCE8 FD 00 40        ..@   stad 0040
9586 CCEB 7E CD 7A        ~.z   jmp cd7a
9587 CCEE F6 00 17        ...   ldab 0017
9588 CCF1 C4 01           ..    andb #01
9589 CCF3 27 12           '.    beq 12
9590 CCF5 30              0     tsx
9591 CCF6 E6 00           ..    ldab 00,x
9592 CCF8 4F              O     clra
9593 CCF9 17              .     tba
9594 CCFA 48              H     asla
9595 CCFB 48              H     asla
9596 CCFC 48              H     asla
9597 CCFD 48              H     asla
9598 CCFE 5F              _     clrb
9599 CCFF F3 00 76        ..v   addd 0076
9600 CD02 FD 00 76        ..v   stad 0076
9601 CD05 20 10            .    bra 10
9602 CD07 30              0     tsx
9603 CD08 E6 00           ..    ldab 00,x
9604 CD0A 4F              O     clra
9605 CD0B 17              .     tba
9606 CD0C 48              H     asla
9607 CD0D 48              H     asla
9608 CD0E 48              H     asla
9609 CD0F 48              H     asla
9610 CD10 5F              _     clrb
9611 CD11 F3 00 40        ..@   addd 0040
9612 CD14 FD 00 40        ..@   stad 0040
9613 CD17 20 61            a    bra 61
9614 CD19 30              0     tsx
9615 CD1A E6 00           ..    ldab 00,x
9616 CD1C F7 0B AA        ...   stb 0baa
9617 CD1F 20 59            Y    bra 59
9618 CD21 30              0     tsx
9619 CD22 E6 00           ..    ldab 00,x
9620 CD24 58              X     aslb
9621 CD25 58              X     aslb
9622 CD26 58              X     aslb
9623 CD27 58              X     aslb
9624 CD28 FB 0B AA        ...   addb 0baa
9625 CD2B F7 0B AA        ...   stb 0baa
9626 CD2E 20 4A            J    bra 4a
9627 CD30 30              0     tsx
9628 CD31 E6 00           ..    ldab 00,x
9629 CD33 F7 00 13        ...   stb 0013
9630 CD36 20 42            B    bra 42
9631 CD38 F6 10 2F        ../   ldab 102f            ;sci data
9632 CD3B C4 01           ..    andb #01
9633 CD3D 27 08           '.    beq 08
9634 CD3F CE 00 21        ..!   ldx #0021
9635 CD42 1C 00           ..    bset add,x 00,x
9636 CD44 40              @     nega
9637 CD45 20 06            .    bra 06
9638 CD47 CE 00 21        ..!   ldx #0021
9639 CD4A 1D 00           ..    bclr add,x 00,x
9640 CD4C 40              @     nega
9641 CD4D F6 00 17        ...   ldab 0017
9642 CD50 C4 01           ..    andb #01
9643 CD52 27 17           '.    beq 17
9644 CD54 F6 0B AA        ...   ldab 0baa
9645 CD57 4F              O     clra
9646 CD58 37              7     pshb
9647 CD59 36              6     psha
9648 CD5A FC 00 76        ..v   ldd 0076
9649 CD5D BD FB BA        ...   jsr fbba
9650 CD60 FD 00 76        ..v   stad 0076
9651 CD63 CE 00 17        ...   ldx #0017
9652 CD66 1D 00           ..    bclr add,x 00,x
9653 CD68 01              .     nop
9654 CD69 20 0F            .    bra 0f
9655 CD6B F6 0B AA        ...   ldab 0baa
9656 CD6E 4F              O     clra
9657 CD6F 37              7     pshb
9658 CD70 36              6     psha
9659 CD71 FC 00 40        ..@   ldd 0040
9660 CD74 BD FB BA        ...   jsr fbba
9661 CD77 FD 00 40        ..@   stad 0040
9662 CD7A F6 00 08        ...   ldab 0008
9663 CD7D C1 09           ..    cmpb #09
9664 CD7F 26 08           &.    bne 08
9665 CD81 7F 00 2C        ..,   clr 002c
9666 CD84 7F 00 08        ...   clr 0008
9667 CD87 20 03            .    bra 03
9668 CD89 7C 00 08        |..   inc 0008
9669 CD8C 5F              _     clrb
9670 CD8D 4F              O     clra
9671 CD8E BD C7 E7        ...   jsr c7e7
9672 CD91 7E CE 39        ~.9   jmp ce39
9673 CD94 F6 10 2F        ../   ldab 102f            ;sci data
9674 CD97 4F              O     clra
9675 CD98 BD FE 32        ..2   jsr fe32
9676 CD9B CD              .     illegal
9677 CD9C B1 00 31        ..1   cmpa 0031
9678 CD9F CD              .     illegal
9679 CDA0 DB 00 01        ...   addb 00
9680 CDA3 CE 20 00        . .   ldx #2000
9681 CDA6 01              .     nop
9682 CDA7 CE 28 00        .(.   ldx #2800
9683 CDAA 05              .     asld
9684 CDAB CE 34 FF        .4.   ldx #34ff
9685 CDAE C8 00           ..    eorb #00
9686 CDB0 00              .     test
9687 CDB1 F6 00 21        ..!   ldab 0021
9688 CDB4 2C 08           ,.    bge 08
9689 CDB6 CC 00 80        ...   ldd #0080
9690 CDB9 BD C7 E7        ...   jsr c7e7
9691 CDBC 20 1B            .    bra 1b
9692 CDBE 5F              _     clrb
9693 CDBF 4F              O     clra
9694 CDC0 BD C7 E7        ...   jsr c7e7
9695 CDC3 F6 00 1F        ...   ldab 001f
9696 CDC6 C4 08           ..    andb #08
9697 CDC8 27 0C           '.    beq 0c
9698 CDCA F6 0B C0        ...   ldab 0bc0
9699 CDCD C4 10           ..    andb #10
9700 CDCF 27 05           '.    beq 05
9701 CDD1 7C 00 75        |.u   inc 0075
9702 CDD4 20 03            .    bra 03
9703 CDD6 7F 00 75        ..u   clr 0075
9704 CDD9 20 5E            ^    bra 5e
9705 CDDB F6 00 1D        ...   ldab 001d
9706 CDDE C4 02           ..    andb #02
9707 CDE0 27 07           '.    beq 07
9708 CDE2 F6 00 19        ...   ldab 0019
9709 CDE5 C4 08           ..    andb #08
9710 CDE7 26 19           &.    bne 19
9711 CDE9 CC 00 FE        ...   ldd #00fe
9712 CDEC BD C7 E7        ...   jsr c7e7
9713 CDEF F6 00 1F        ...   ldab 001f
9714 CDF2 C4 08           ..    andb #08
9715 CDF4 27 0A           '.    beq 0a
9716 CDF6 F6 0B C0        ...   ldab 0bc0
9717 CDF9 C4 10           ..    andb #10
9718 CDFB 27 03           '.    beq 03
9719 CDFD 7C 00 75        |.u   inc 0075
9720 CE00 20 1C            .    bra 1c
9721 CE02 FC 00 44        ..D   ldd 0044
9722 CE05 37              7     pshb
9723 CE06 36              6     psha
9724 CE07 F6 0B AA        ...   ldab 0baa
9725 CE0A 4F              O     clra
9726 CE0B 38              8     pulx
9727 CE0C 8F              .     xgdx
9728 CE0D 02              .     idiv
9729 CE0E 8F              .     xgdx
9730 CE0F BD C7 E7        ...   jsr c7e7
9731 CE12 CE 00 19        ...   ldx #0019
9732 CE15 1D 00           ..    bclr add,x 00,x
9733 CE17 08              .     inx
9734 CE18 CE 00 1F        ...   ldx #001f
9735 CE1B 1C 00           ..    bset add,x 00,x
9736 CE1D 08              .     inx
9737 CE1E 20 19            .    bra 19
9738 CE20 CE 00 1D        ...   ldx #001d
9739 CE23 1D 00           ..    bclr add,x 00,x
9740 CE25 02              .     idiv
9741 CE26 20 11            .    bra 11
9742 CE28 C6 01           ..    ldab #01
9743 CE2A F7 00 08        ...   stb 0008
9744 CE2D 5F              _     clrb
9745 CE2E 4F              O     clra
9746 CE2F BD C7 E7        ...   jsr c7e7
9747 CE32 20 05            .    bra 05
9748 CE34 5F              _     clrb
9749 CE35 4F              O     clra
9750 CE36 BD C7 E7        ...   jsr c7e7
9751 CE39 20 0B            .    bra 0b
9752 CE3B F6 10 2E        ...   ldab 102e
9753 CE3E 30              0     tsx
9754 CE3F E7 00           ..    stb 00,x
9755 CE41 F6 10 2F        ../   ldab 102f            ;sci data
9756 CE44 E7 00           ..    stb 00,x
9757 CE46 31              1     ins
9758 CE47 3B              ;     rti
9759 CE48 F6 0B C4        ...   ldab 0bc4
9760 CE4B F1 0B C5        ...   cmpb 0bc5
9761 CE4E 25 53           %S    bcs 53
9762 CE50 F6 0B C5        ...   ldab 0bc5
9763 CE53 F1 0B C6        ...   cmpb 0bc6
9764 CE56 25 4B           %K    bcs 4b
9765 CE58 F6 0B C4        ...   ldab 0bc4
9766 CE5B 4F              O     clra
9767 CE5C C3 0B C7        ...   addd #0bc7
9768 CE5F 8F              .     xgdx
9769 CE60 E6 00           ..    ldab 00,x
9770 CE62 4F              O     clra
9771 CE63 FD 0B DD        ...   stad 0bdd
9772 CE66 F6 0B C5        ...   ldab 0bc5
9773 CE69 4F              O     clra
9774 CE6A C3 0B C7        ...   addd #0bc7
9775 CE6D 8F              .     xgdx
9776 CE6E E6 00           ..    ldab 00,x
9777 CE70 4F              O     clra
9778 CE71 FD 0B DF        ...   stad 0bdf
9779 CE74 F6 0B C6        ...   ldab 0bc6
9780 CE77 4F              O     clra
9781 CE78 C3 0B C7        ...   addd #0bc7
9782 CE7B 8F              .     xgdx
9783 CE7C E6 00           ..    ldab 00,x
9784 CE7E 4F              O     clra
9785 CE7F FD 0B E1        ...   stad 0be1
9786 CE82 C6 01           ..    ldab #01
9787 CE84 F7 0B D7        ...   stb 0bd7
9788 CE87 C6 04           ..    ldab #04
9789 CE89 F7 0B D8        ...   stb 0bd8
9790 CE8C C6 02           ..    ldab #02
9791 CE8E F7 0B D9        ...   stb 0bd9
9792 CE91 C6 20           .     ldab #20
9793 CE93 F7 0B DA        ...   stb 0bda
9794 CE96 C6 08           ..    ldab #08
9795 CE98 F7 0B DB        ...   stb 0bdb
9796 CE9B C6 10           ..    ldab #10
9797 CE9D F7 0B DC        ...   stb 0bdc
9798 CEA0 7E D0 66        ~.f   jmp d066
9799 CEA3 F6 0B C4        ...   ldab 0bc4
9800 CEA6 F1 0B C6        ...   cmpb 0bc6
9801 CEA9 25 53           %S    bcs 53
9802 CEAB F6 0B C6        ...   ldab 0bc6
9803 CEAE F1 0B C5        ...   cmpb 0bc5
9804 CEB1 25 4B           %K    bcs 4b
9805 CEB3 F6 0B C4        ...   ldab 0bc4
9806 CEB6 4F              O     clra
9807 CEB7 C3 0B C7        ...   addd #0bc7
9808 CEBA 8F              .     xgdx
9809 CEBB E6 00           ..    ldab 00,x
9810 CEBD 4F              O     clra
9811 CEBE FD 0B DD        ...   stad 0bdd
9812 CEC1 F6 0B C6        ...   ldab 0bc6
9813 CEC4 4F              O     clra
9814 CEC5 C3 0B C7        ...   addd #0bc7
9815 CEC8 8F              .     xgdx
9816 CEC9 E6 00           ..    ldab 00,x
9817 CECB 4F              O     clra
9818 CECC FD 0B DF        ...   stad 0bdf
9819 CECF F6 0B C5        ...   ldab 0bc5
9820 CED2 4F              O     clra
9821 CED3 C3 0B C7        ...   addd #0bc7
9822 CED6 8F              .     xgdx
9823 CED7 E6 00           ..    ldab 00,x
9824 CED9 4F              O     clra
9825 CEDA FD 0B E1        ...   stad 0be1
9826 CEDD C6 01           ..    ldab #01
9827 CEDF F7 0B D7        ...   stb 0bd7
9828 CEE2 C6 02           ..    ldab #02
9829 CEE4 F7 0B D8        ...   stb 0bd8
9830 CEE7 C6 04           ..    ldab #04
9831 CEE9 F7 0B D9        ...   stb 0bd9
9832 CEEC C6 20           .     ldab #20
9833 CEEE F7 0B DA        ...   stb 0bda
9834 CEF1 C6 10           ..    ldab #10
9835 CEF3 F7 0B DB        ...   stb 0bdb
9836 CEF6 C6 08           ..    ldab #08
9837 CEF8 F7 0B DC        ...   stb 0bdc
9838 CEFB 7E D0 66        ~.f   jmp d066
9839 CEFE F6 0B C5        ...   ldab 0bc5
9840 CF01 F1 0B C4        ...   cmpb 0bc4
9841 CF04 25 53           %S    bcs 53
9842 CF06 F6 0B C4        ...   ldab 0bc4
9843 CF09 F1 0B C6        ...   cmpb 0bc6
9844 CF0C 25 4B           %K    bcs 4b
9845 CF0E F6 0B C5        ...   ldab 0bc5
9846 CF11 4F              O     clra
9847 CF12 C3 0B C7        ...   addd #0bc7
9848 CF15 8F              .     xgdx
9849 CF16 E6 00           ..    ldab 00,x
9850 CF18 4F              O     clra
9851 CF19 FD 0B DD        ...   stad 0bdd
9852 CF1C F6 0B C4        ...   ldab 0bc4
9853 CF1F 4F              O     clra
9854 CF20 C3 0B C7        ...   addd #0bc7
9855 CF23 8F              .     xgdx
9856 CF24 E6 00           ..    ldab 00,x
9857 CF26 4F              O     clra
9858 CF27 FD 0B DF        ...   stad 0bdf
9859 CF2A F6 0B C6        ...   ldab 0bc6
9860 CF2D 4F              O     clra
9861 CF2E C3 0B C7        ...   addd #0bc7
9862 CF31 8F              .     xgdx
9863 CF32 E6 00           ..    ldab 00,x
9864 CF34 4F              O     clra
9865 CF35 FD 0B E1        ...   stad 0be1
9866 CF38 C6 04           ..    ldab #04
9867 CF3A F7 0B D7        ...   stb 0bd7
9868 CF3D C6 01           ..    ldab #01
9869 CF3F F7 0B D8        ...   stb 0bd8
9870 CF42 C6 02           ..    ldab #02
9871 CF44 F7 0B D9        ...   stb 0bd9
9872 CF47 C6 08           ..    ldab #08
9873 CF49 F7 0B DA        ...   stb 0bda
9874 CF4C C6 20           .     ldab #20
9875 CF4E F7 0B DB        ...   stb 0bdb
9876 CF51 C6 10           ..    ldab #10
9877 CF53 F7 0B DC        ...   stb 0bdc
9878 CF56 7E D0 66        ~.f   jmp d066
9879 CF59 F6 0B C5        ...   ldab 0bc5
9880 CF5C F1 0B C6        ...   cmpb 0bc6
9881 CF5F 25 53           %S    bcs 53
9882 CF61 F6 0B C6        ...   ldab 0bc6
9883 CF64 F1 0B C4        ...   cmpb 0bc4
9884 CF67 25 4B           %K    bcs 4b
9885 CF69 F6 0B C5        ...   ldab 0bc5
9886 CF6C 4F              O     clra
9887 CF6D C3 0B C7        ...   addd #0bc7
9888 CF70 8F              .     xgdx
9889 CF71 E6 00           ..    ldab 00,x
9890 CF73 4F              O     clra
9891 CF74 FD 0B DD        ...   stad 0bdd
9892 CF77 F6 0B C6        ...   ldab 0bc6
9893 CF7A 4F              O     clra
9894 CF7B C3 0B C7        ...   addd #0bc7
9895 CF7E 8F              .     xgdx
9896 CF7F E6 00           ..    ldab 00,x
9897 CF81 4F              O     clra
9898 CF82 FD 0B DF        ...   stad 0bdf
9899 CF85 F6 0B C4        ...   ldab 0bc4
9900 CF88 4F              O     clra
9901 CF89 C3 0B C7        ...   addd #0bc7
9902 CF8C 8F              .     xgdx
9903 CF8D E6 00           ..    ldab 00,x
9904 CF8F 4F              O     clra
9905 CF90 FD 0B E1        ...   stad 0be1
9906 CF93 C6 04           ..    ldab #04
9907 CF95 F7 0B D7        ...   stb 0bd7
9908 CF98 C6 02           ..    ldab #02
9909 CF9A F7 0B D8        ...   stb 0bd8
9910 CF9D C6 01           ..    ldab #01
9911 CF9F F7 0B D9        ...   stb 0bd9
9912 CFA2 C6 08           ..    ldab #08
9913 CFA4 F7 0B DA        ...   stb 0bda
9914 CFA7 C6 10           ..    ldab #10
9915 CFA9 F7 0B DB        ...   stb 0bdb
9916 CFAC C6 20           .     ldab #20
9917 CFAE F7 0B DC        ...   stb 0bdc
9918 CFB1 7E D0 66        ~.f   jmp d066
9919 CFB4 F6 0B C6        ...   ldab 0bc6
9920 CFB7 F1 0B C4        ...   cmpb 0bc4
9921 CFBA 25 52           %R    bcs 52
9922 CFBC F6 0B C4        ...   ldab 0bc4
9923 CFBF F1 0B C5        ...   cmpb 0bc5
9924 CFC2 25 4A           %J    bcs 4a
9925 CFC4 F6 0B C6        ...   ldab 0bc6
9926 CFC7 4F              O     clra
9927 CFC8 C3 0B C7        ...   addd #0bc7
9928 CFCB 8F              .     xgdx
9929 CFCC E6 00           ..    ldab 00,x
9930 CFCE 4F              O     clra
9931 CFCF FD 0B DD        ...   stad 0bdd
9932 CFD2 F6 0B C4        ...   ldab 0bc4
9933 CFD5 4F              O     clra
9934 CFD6 C3 0B C7        ...   addd #0bc7
9935 CFD9 8F              .     xgdx
9936 CFDA E6 00           ..    ldab 00,x
9937 CFDC 4F              O     clra
9938 CFDD FD 0B DF        ...   stad 0bdf
9939 CFE0 F6 0B C5        ...   ldab 0bc5
9940 CFE3 4F              O     clra
9941 CFE4 C3 0B C7        ...   addd #0bc7
9942 CFE7 8F              .     xgdx
9943 CFE8 E6 00           ..    ldab 00,x
9944 CFEA 4F              O     clra
9945 CFEB FD 0B E1        ...   stad 0be1
9946 CFEE C6 02           ..    ldab #02
9947 CFF0 F7 0B D7        ...   stb 0bd7
9948 CFF3 C6 01           ..    ldab #01
9949 CFF5 F7 0B D8        ...   stb 0bd8
9950 CFF8 C6 04           ..    ldab #04
9951 CFFA F7 0B D9        ...   stb 0bd9
9952 CFFD C6 10           ..    ldab #10
9953 CFFF F7 0B DA        ...   stb 0bda
9954 D002 C6 20           .     ldab #20
9955 D004 F7 0B DB        ...   stb 0bdb
9956 D007 C6 08           ..    ldab #08
9957 D009 F7 0B DC        ...   stb 0bdc
9958 D00C 20 58            X    bra 58
9959 D00E F6 0B C6        ...   ldab 0bc6
9960 D011 F1 0B C5        ...   cmpb 0bc5
9961 D014 25 50           %P    bcs 50
9962 D016 F6 0B C5        ...   ldab 0bc5
9963 D019 F1 0B C4        ...   cmpb 0bc4
9964 D01C 25 48           %H    bcs 48
9965 D01E F6 0B C6        ...   ldab 0bc6
9966 D021 4F              O     clra
9967 D022 C3 0B C7        ...   addd #0bc7
9968 D025 8F              .     xgdx
9969 D026 E6 00           ..    ldab 00,x
9970 D028 4F              O     clra
9971 D029 FD 0B DD        ...   stad 0bdd
9972 D02C F6 0B C5        ...   ldab 0bc5
9973 D02F 4F              O     clra
9974 D030 C3 0B C7        ...   addd #0bc7
9975 D033 8F              .     xgdx
9976 D034 E6 00           ..    ldab 00,x
9977 D036 4F              O     clra
9978 D037 FD 0B DF        ...   stad 0bdf
9979 D03A F6 0B C4        ...   ldab 0bc4
9980 D03D 4F              O     clra
9981 D03E C3 0B C7        ...   addd #0bc7
9982 D041 8F              .     xgdx
9983 D042 E6 00           ..    ldab 00,x
9984 D044 4F              O     clra
9985 D045 FD 0B E1        ...   stad 0be1
9986 D048 C6 02           ..    ldab #02
9987 D04A F7 0B D7        ...   stb 0bd7
9988 D04D C6 04           ..    ldab #04
9989 D04F F7 0B D8        ...   stb 0bd8
9990 D052 C6 01           ..    ldab #01
9991 D054 F7 0B D9        ...   stb 0bd9
9992 D057 C6 10           ..    ldab #10
9993 D059 F7 0B DA        ...   stb 0bda
9994 D05C C6 08           ..    ldab #08
9995 D05E F7 0B DB        ...   stb 0bdb
9996 D061 C6 20           .     ldab #20
9997 D063 F7 0B DC        ...   stb 0bdc
9998 D066 F6 0B AA        ...   ldab 0baa
9999 D069 4F              O     clra
10000 D06A 37              7     pshb
10001 D06B 36              6     psha
10002 D06C FC 0B DD        ...   ldd 0bdd
10003 D06F BD FB BA        ...   jsr fbba
10004 D072 FD 0B DD        ...   stad 0bdd
10005 D075 F6 0B AA        ...   ldab 0baa
10006 D078 4F              O     clra
10007 D079 37              7     pshb
10008 D07A 36              6     psha
10009 D07B FC 0B DF        ...   ldd 0bdf
10010 D07E BD FB BA        ...   jsr fbba
10011 D081 FD 0B DF        ...   stad 0bdf
10012 D084 F6 0B AA        ...   ldab 0baa
10013 D087 4F              O     clra
10014 D088 37              7     pshb
10015 D089 36              6     psha
10016 D08A FC 0B E1        ...   ldd 0be1
10017 D08D BD FB BA        ...   jsr fbba
10018 D090 FD 0B E1        ...   stad 0be1
10019 D093 39              9     rts
10020
10021 D094 34              4     des
10022 D095 30              0     tsx
10023 D096 6F 00           o.    clr 00,x
10024 D098 30              0     tsx
10025 D099 E6 00           ..    ldab 00,x
10026 D09B C1 10           ..    cmpb #10
10027 D09D 24 1B           $.    bcc 1b
10028 D09F 30              0     tsx
10029 D0A0 E6 00           ..    ldab 00,x
10030 D0A2 4F              O     clra
10031 D0A3 C3 B0 C3        ...   addd #b0c3
10032 D0A6 8F              .     xgdx
10033 D0A7 E6 00           ..    ldab 00,x
10034 D0A9 37              7     pshb
10035 D0AA 30              0     tsx
10036 D0AB E6 01           ..    ldab 01,x
10037 D0AD 4F              O     clra
10038 D0AE C3 0B C7        ...   addd #0bc7
10039 D0B1 8F              .     xgdx
10040 D0B2 33              3     pulb
10041 D0B3 E7 00           ..    stb 00,x
10042 D0B5 30              0     tsx
10043 D0B6 6C 00           l.    inc 00,x
10044 D0B8 20 DE            .    bra de
10045 D0BA C6 05           ..    ldab #05
10046 D0BC F7 0B AA        ...   stb 0baa
10047 D0BF C6 04           ..    ldab #04
10048 D0C1 F7 00 13        ...   stb 0013
10049 D0C4 C6 01           ..    ldab #01
10050 D0C6 F7 0B C4        ...   stb 0bc4
10051 D0C9 C6 03           ..    ldab #03
10052 D0CB F7 0B C5        ...   stb 0bc5
10053 D0CE C6 02           ..    ldab #02
10054 D0D0 F7 0B C6        ...   stb 0bc6
10055 D0D3 CC 00 19        ...   ldd #0019
10056 D0D6 FD 0B DD        ...   stad 0bdd
10057 D0D9 CC 00 0A        ...   ldd #000a
10058 D0DC FD 0B DF        ...   stad 0bdf
10059 D0DF CC 00 05        ...   ldd #0005
10060 D0E2 FD 0B E1        ...   stad 0be1
10061 D0E5 C6 01           ..    ldab #01
10062 D0E7 F7 0B D7        ...   stb 0bd7
10063 D0EA C6 02           ..    ldab #02
10064 D0EC F7 0B D8        ...   stb 0bd8
10065 D0EF C6 04           ..    ldab #04
10066 D0F1 F7 0B D9        ...   stb 0bd9
10067 D0F4 C6 20           .     ldab #20
10068 D0F6 F7 0B DA        ...   stb 0bda
10069 D0F9 C6 10           ..    ldab #10
10070 D0FB F7 0B DB        ...   stb 0bdb
10071 D0FE C6 08           ..    ldab #08
10072 D100 F7 0B DC        ...   stb 0bdc
10073 D103 31              1     ins
10074 D104 39              9     rts
10075
10076 D105 34              4     des
10077 D106 CE 00 1A        ...   ldx #001a
10078 D109 1C 00           ..    bset add,x 00,x
10079 D10B 80 F6           ..    suba #f6
10080 D10D 00              .     test
10081 D10E 1A              .     illegal
10082 D10F F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10083 D112 C6 C8           ..    ldab #c8
10084 D114 30              0     tsx
10085 D115 E7 00           ..    stb 00,x
10086 D117 30              0     tsx
10087 D118 E6 00           ..    ldab 00,x
10088 D11A C1 00           ..    cmpb #00
10089 D11C 23 05           #.    bls 05
10090 D11E 30              0     tsx
10091 D11F 6A 00           j.    dec 00,x
10092 D121 20 F4            .    bra f4
10093 D123 CE 10 00        ...   ldx #1000
10094 D126 1C 00           ..    bset add,x 00,x
10095 D128 40              @     nega
10096 D129 CE 00 14        ...   ldx #0014
10097 D12C 1D 00           ..    bclr add,x 00,x
10098 D12E 20 CE            .    bra ce
10099 D130 00              .     test
10100 D131 14              .     bset
10101 D132 1D 00           ..    bclr add,x 00,x
10102 D134 40              @     nega
10103 D135 F6 00 14        ...   ldab 0014
10104 D138 F7 38 00        .8.   stb 3800
10105 D13B 31              1     ins
10106 D13C 39              9     rts
10107
10108 D13D F6 00 06        ...   ldab 0006
10109 D140 4F              O     clra
10110 D141 CE 00 0A        ...   ldx #000a
10111 D144 02              .     idiv
10112 D145 8F              .     xgdx
10113 D146 CB 01           ..    addb #01
10114 D148 F7 00 5F        .._   stb 005f
10115 D14B F6 00 06        ...   ldab 0006
10116 D14E 4F              O     clra
10117 D14F CE 00 0A        ...   ldx #000a
10118 D152 02              .     idiv
10119 D153 F7 00 5E        ..^   stb 005e
10120 D156 F6 00 5E        ..^   ldab 005e
10121 D159 C1 05           ..    cmpb #05
10122 D15B 23 03           #.    bls 03
10123 D15D 7A 00 5E        z.^   dec 005e
10124 D160 F6 00 5E        ..^   ldab 005e
10125 D163 4F              O     clra
10126 D164 C3 B1 23        ..#   addd #b123
10127 D167 8F              .     xgdx
10128 D168 E6 00           ..    ldab 00,x
10129 D16A 4F              O     clra
10130 D16B 37              7     pshb
10131 D16C 36              6     psha
10132 D16D F6 00 5F        .._   ldab 005f
10133 D170 4F              O     clra
10134 D171 C3 B1 23        ..#   addd #b123
10135 D174 8F              .     xgdx
10136 D175 E6 00           ..    ldab 00,x
10137 D177 4F              O     clra
10138 D178 17              .     tba
10139 D179 5F              _     clrb
10140 D17A 30              0     tsx
10141 D17B E3 00           ..    addd 00,x
10142 D17D 38              8     pulx
10143 D17E FD 00 58        ..X   stad 0058
10144 D181 7F 00 1C        ...   clr 001c
10145 D184 F6 00 1C        ...   ldab 001c
10146 D187 C1 10           ..    cmpb #10
10147 D189 24 37           $7    bcc 37
10148 D18B F6 00 58        ..X   ldab 0058
10149 D18E 2C 0E           ,.    bge 0e
10150 D190 CE 00 14        ...   ldx #0014
10151 D193 1C 00           ..    bset add,x 00,x
10152 D195 10              .     sba
10153 D196 F6 00 14        ...   ldab 0014
10154 D199 F7 38 00        .8.   stb 3800
10155 D19C 20 0C            .    bra 0c
10156 D19E CE 00 14        ...   ldx #0014
10157 D1A1 1D 00           ..    bclr add,x 00,x
10158 D1A3 10              .     sba
10159 D1A4 F6 00 14        ...   ldab 0014
10160 D1A7 F7 38 00        .8.   stb 3800
10161 D1AA CE 10 00        ...   ldx #1000
10162 D1AD 1C 00           ..    bset add,x 00,x
10163 D1AF 20 CE            .    bra ce
10164 D1B1 10              .     sba
10165 D1B2 00              .     test
10166 D1B3 1D 00           ..    bclr add,x 00,x
10167 D1B5 20 FC            .    bra fc
10168 D1B7 00              .     test
10169 D1B8 58              X     aslb
10170 D1B9 05              .     asld
10171 D1BA FD 00 58        ..X   stad 0058
10172 D1BD 7C 00 1C        |..   inc 001c
10173 D1C0 20 C2            .    bra c2
10174 D1C2 F6 00 5F        .._   ldab 005f
10175 D1C5 C1 09           ..    cmpb #09
10176 D1C7 26 0E           &.    bne 0e
10177 D1C9 CE 00 14        ...   ldx #0014
10178 D1CC 1C 00           ..    bset add,x 00,x
10179 D1CE 20 F6            .    bra f6
10180 D1D0 00              .     test
10181 D1D1 14              .     bset
10182 D1D2 F7 38 00        .8.   stb 3800
10183 D1D5 20 13            .    bra 13
10184 D1D7 F6 00 5F        .._   ldab 005f
10185 D1DA C1 0A           ..    cmpb #0a
10186 D1DC 26 0C           &.    bne 0c
10187 D1DE CE 00 14        ...   ldx #0014
10188 D1E1 1C 00           ..    bset add,x 00,x
10189 D1E3 40              @     nega
10190 D1E4 F6 00 14        ...   ldab 0014
10191 D1E7 F7 38 00        .8.   stb 3800
10192 D1EA CE 10 00        ...   ldx #1000
10193 D1ED 1D 00           ..    bclr add,x 00,x
10194 D1EF 40              @     nega
10195 D1F0 CE 00 1A        ...   ldx #001a
10196 D1F3 1D 00           ..    bclr add,x 00,x
10197 D1F5 80 F6           ..    suba #f6
10198 D1F7 00              .     test
10199 D1F8 1A              .     illegal
10200 D1F9 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10201 D1FC 39              9     rts
10202
10203 D1FD CC 40 00        .@.   ldd #4000
10204 D200 37              7     pshb
10205 D201 36              6     psha
10206 D202 F6 00 06        ...   ldab 0006
10207 D205 4F              O     clra
10208 D206 05              .     asld
10209 D207 C3 08 00        ...   addd #0800
10210 D20A 38              8     pulx
10211 D20B 8F              .     xgdx
10212 D20C AA 00           ..    ora 00,x
10213 D20E EA 01           ..    orb 01,x
10214 D210 ED 00           ..    stad 00,x
10215 D212 39              9     rts
10216
10217 D213 F6 00 1F        ...   ldab 001f
10218 D216 C4 04           ..    andb #04
10219 D218 26 12           &.    bne 12
10220 D21A F6 0B C0        ...   ldab 0bc0
10221 D21D C4 10           ..    andb #10
10222 D21F 26 0B           &.    bne 0b
10223 D221 CE 00 00        ...   ldx #0000
10224 D224 3C              <     pshx
10225 D225 FC 00 44        ..D   ldd 0044
10226 D228 BD BE 9E        ...   jsr be9e
10227 D22B 38              8     pulx
10228 D22C BD D3 11        ...   jsr d311
10229 D22F 83 00 00        ...   subd #0000
10230 D232 27 13           '.    beq 13
10231 D234 F6 00 06        ...   ldab 0006
10232 D237 BD D4 68        ..h   jsr d468
10233 D23A 83 00 00        ...   subd #0000
10234 D23D 27 05           '.    beq 05
10235 D23F 8D BC           ..    bsr dest bc
10236 D241 BD D6 3C        ..<   jsr d63c
10237 D244 5F              _     clrb
10238 D245 4F              O     clra
10239 D246 39              9     rts
10240
10241 D247 BD D1 3D        ..=   jsr d13d
10242 D24A C6 3C           .<    ldab #3c
10243 D24C F7 00 2E        ...   stb 002e
10244 D24F C6 41           .A    ldab #41
10245 D251 F7 00 31        ..1   stb 0031
10246 D254 CE 00 1B        ...   ldx #001b
10247 D257 1D 00           ..    bclr add,x 00,x
10248 D259 08              .     inx
10249 D25A F6 00 1B        ...   ldab 001b
10250 D25D C4 08           ..    andb #08
10251 D25F 26 22           &"    bne 22
10252 D261 F6 00 2E        ...   ldab 002e
10253 D264 C1 35           .5    cmpb #35
10254 D266 23 10           #.    bls 10
10255 D268 BD D5 70        ..p   jsr d570
10256 D26B 83 00 00        ...   subd #0000
10257 D26E 27 06           '.    beq 06
10258 D270 CE 00 1B        ...   ldx #001b
10259 D273 1C 00           ..    bset add,x 00,x
10260 D275 08              .     inx
10261 D276 20 0B            .    bra 0b
10262 D278 BD D1 05        ...   jsr d105
10263 D27B 8D 80           ..    bsr dest 80
10264 D27D BD D6 3C        ..<   jsr d63c
10265 D280 5F              _     clrb
10266 D281 4F              O     clra
10267 D282 39              9     rts
10268
10269 D283 F6 00 2E        ...   ldab 002e
10270 D286 C1 36           .6    cmpb #36
10271 D288 24 56           $V    bcc 56
10272 D28A BD D5 F7        ...   jsr d5f7
10273 D28D 83 00 00        ...   subd #0000
10274 D290 27 4E           'N    beq 4e
10275 D292 BD D5 B0        ...   jsr d5b0
10276 D295 83 00 00        ...   subd #0000
10277 D298 27 46           'F    beq 46
10278 D29A BD D1 05        ...   jsr d105
10279 D29D F6 00 2E        ...   ldab 002e
10280 D2A0 C1 32           .2    cmpb #32
10281 D2A2 22 07           ".    bhi 07
10282 D2A4 8D 6B           .k    bsr dest 6b
10283 D2A6 83 00 00        ...   subd #0000
10284 D2A9 27 0C           '.    beq 0c
10285 D2AB BD D1 05        ...   jsr d105
10286 D2AE BD D1 FD        ...   jsr d1fd
10287 D2B1 BD D6 3C        ..<   jsr d63c
10288 D2B4 5F              _     clrb
10289 D2B5 4F              O     clra
10290 D2B6 39              9     rts
10291
10292 D2B7 F6 00 06        ...   ldab 0006
10293 D2BA 4F              O     clra
10294 D2BB C3 0E 06        ...   addd #0e06
10295 D2BE 8F              .     xgdx
10296 D2BF 6C 00           l.    inc 00,x
10297 D2C1 F6 00 06        ...   ldab 0006
10298 D2C4 4F              O     clra
10299 D2C5 C3 0E 06        ...   addd #0e06
10300 D2C8 8F              .     xgdx
10301 D2C9 E6 00           ..    ldab 00,x
10302 D2CB C1 64           .d    cmpb #64
10303 D2CD 23 0D           #.    bls 0d
10304 D2CF 5F              _     clrb
10305 D2D0 37              7     pshb
10306 D2D1 F6 00 06        ...   ldab 0006
10307 D2D4 4F              O     clra
10308 D2D5 C3 0E 06        ...   addd #0e06
10309 D2D8 8F              .     xgdx
10310 D2D9 33              3     pulb
10311 D2DA E7 00           ..    stb 00,x
10312 D2DC CC 00 01        ...   ldd #0001
10313 D2DF 39              9     rts
10314
10315 D2E0 F6 00 2E        ...   ldab 002e
10316 D2E3 26 14           &.    bne 14
10317 D2E5 BD D5 F7        ...   jsr d5f7
10318 D2E8 83 00 00        ...   subd #0000
10319 D2EB 26 0C           &.    bne 0c
10320 D2ED BD D1 05        ...   jsr d105
10321 D2F0 BD D1 FD        ...   jsr d1fd
10322 D2F3 BD D6 26        ..&   jsr d626
10323 D2F6 5F              _     clrb
10324 D2F7 4F              O     clra
10325 D2F8 39              9     rts
10326
10327 D2F9 F6 00 2E        ...   ldab 002e
10328 D2FC 26 0C           &.    bne 0c
10329 D2FE BD D1 05        ...   jsr d105
10330 D301 BD D1 FD        ...   jsr d1fd
10331 D304 BD D6 3C        ..<   jsr d63c
10332 D307 5F              _     clrb
10333 D308 4F              O     clra
10334 D309 39              9     rts
10335
10336 D30A 7E D2 5A        ~.Z   jmp d25a
10337 D30D BD E6 1B        ...   jsr e61b
10338 D310 39              9     rts
10339
10340 D311 BD D1 3D        ..=   jsr d13d
10341 D314 7F 00 1C        ...   clr 001c
10342 D317 7F 00 18        ...   clr 0018
10343 D31A F6 10 0A        ...   ldab 100a
10344 D31D C4 02           ..    andb #02
10345 D31F 27 13           '.    beq 13
10346 D321 7C 00 1C        |..   inc 001c
10347 D324 F6 00 1C        ...   ldab 001c
10348 D327 C1 FF           ..    cmpb #ff
10349 D329 26 07           &.    bne 07
10350 D32B BD D1 05        ...   jsr d105
10351 D32E CC 00 01        ...   ldd #0001
10352 D331 39              9     rts
10353
10354 D332 20 10            .    bra 10
10355 D334 7C 00 18        |..   inc 0018
10356 D337 F6 00 18        ...   ldab 0018
10357 D33A C1 08           ..    cmpb #08
10358 D33C 26 06           &.    bne 06
10359 D33E BD D1 05        ...   jsr d105
10360 D341 5F              _     clrb
10361 D342 4F              O     clra
10362 D343 39              9     rts
10363
10364 D344 20 D4            .    bra d4
10365 D346 3C              <     pshx
10366 D347 3C              <     pshx
10367 D348 3C              <     pshx
10368 D349 34              4     des
10369 D34A F6 0E 6D        ..m   ldab 0e6d
10370 D34D C1 01           ..    cmpb #01
10371 D34F 27 03           '.    beq 03
10372 D351 7E D4 07        ~..   jmp d407
10373 D354 F6 00 06        ...   ldab 0006
10374 D357 4F              O     clra
10375 D358 05              .     asld
10376 D359 C3 08 C8        ...   addd #08c8
10377 D35C 8F              .     xgdx
10378 D35D EC 00           ..    ldd 00,x
10379 D35F C4 7F           ..    andb #7f
10380 D361 4F              O     clra
10381 D362 FD 0E 6B        ..k   stad 0e6b
10382 D365 7F 00 06        ...   clr 0006
10383 D368 F6 00 06        ...   ldab 0006
10384 D36B C1 3E           .>    cmpb #3e
10385 D36D 26 03           &.    bne 03
10386 D36F 7E D4 02        ~..   jmp d402
10387 D372 BD 97 6F        ..o   jsr 976f
10388 D375 F6 00 06        ...   ldab 0006
10389 D378 4F              O     clra
10390 D379 05              .     asld
10391 D37A C3 08 C8        ...   addd #08c8
10392 D37D 8F              .     xgdx
10393 D37E EC 00           ..    ldd 00,x
10394 D380 C4 7F           ..    andb #7f
10395 D382 4F              O     clra
10396 D383 B3 0E 6B        ..k   subd 0e6b
10397 D386 26 77           &w    bne 77
10398 D388 F6 00 06        ...   ldab 0006
10399 D38B 4F              O     clra
10400 D38C CE 00 0A        ...   ldx #000a
10401 D38F 02              .     idiv
10402 D390 30              0     tsx
10403 D391 E7 01           ..    stb 01,x
10404 D393 E6 01           ..    ldab 01,x
10405 D395 C1 01           ..    cmpb #01
10406 D397 26 07           &.    bne 07
10407 D399 C6 40           .@    ldab #40
10408 D39B 30              0     tsx
10409 D39C E7 00           ..    stb 00,x
10410 D39E 20 0C            .    bra 0c
10411 D3A0 30              0     tsx
10412 D3A1 E6 01           ..    ldab 01,x
10413 D3A3 C1 02           ..    cmpb #02
10414 D3A5 26 05           &.    bne 05
10415 D3A7 C6 80           ..    ldab #80
10416 D3A9 30              0     tsx
10417 D3AA E7 00           ..    stb 00,x
10418 D3AC BD D1 3D        ..=   jsr d13d
10419 D3AF 5F              _     clrb
10420 D3B0 4F              O     clra
10421 D3B1 30              0     tsx
10422 D3B2 ED 03           ..    stad 03,x
10423 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10424 ;decrement 03/04.   Do this 10 times.
10425 D3B4 CC 00 0A        ...   ldd #000a
10426 D3B7 ED 05           ..    stad 05,x
10427 loop:
10428 D3B9 30              0     tsx
10429 D3BA EC 05           ..    ldd 05,x
10430 D3BC 2F 23           /#    ble 23
10431 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10432 D3C1 30              0     tsx
10433 D3C2 E4 00           ..    andb 00,x
10434 D3C4 26 09           &.    bne d3cf
10435 D3C6 30              0     tsx
10436 D3C7 6C 04           l.    inc 04,x
10437 D3C9 26 0C           &.    bne 0c
10438 D3CB 6C 03           l.    inc 03,x
10439 D3CD 20 08            .    bra d3d7
10440 D3CF 30              0     tsx
10441 D3D0 EC 03           ..    ldd 03,x
10442 D3D2 83 00 01        ...   subd #0001
10443 D3D5 ED 03           ..    stad 03,x
10444 D3D7 30              0     tsx
10445 D3D8 EC 05           ..    ldd 05,x
10446 D3DA 83 00 01        ...   subd #0001
10447 D3DD ED 05           ..    stad 05,x
10448 D3DF 20 D8            .    bra loop     ;d3b9
10449 D3E1 BD D1 05        ...   jsr d105
10450 D3E4 30              0     tsx
10451 D3E5 EC 03           ..    ldd 03,x
10452 D3E7 2C 16           ,.    bge 16
10453 D3E9 F6 00 06        ...   ldab 0006
10454 D3EC 8D 7A           .z    bsr dest 7a
10455 D3EE 83 00 00        ...   subd #0000
10456 D3F1 27 0C           '.    beq 0c
10457 D3F3 BD D5 61        ..a   jsr d561
10458 D3F6 83 00 00        ...   subd #0000
10459 D3F9 26 04           &.    bne 04
10460 D3FB 5F              _     clrb
10461 D3FC 4F              O     clra
10462 D3FD 20 64            d    bra 64
10463 D3FF 7E D3 68        ~.h   jmp d368
10464 D402 CC 00 01        ...   ldd #0001
10465 D405 20 5C            \    bra 5c
10466 D407 F6 00 06        ...   ldab 0006
10467 D40A C1 13           ..    cmpb #13
10468 D40C 27 1C           '.    beq 1c
10469 D40E F6 00 06        ...   ldab 0006
10470 D411 C1 1D           ..    cmpb #1d
10471 D413 27 15           '.    beq 15
10472 D415 F6 00 06        ...   ldab 0006
10473 D418 C1 27           .'    cmpb #27
10474 D41A 27 0E           '.    beq 0e
10475 D41C F6 00 06        ...   ldab 0006
10476 D41F C1 31           .1    cmpb #31
10477 D421 27 07           '.    beq 07
10478 D423 F6 00 06        ...   ldab 0006
10479 D426 C1 3B           .;    cmpb #3b
10480 D428 26 37           &7    bne 37
10481 D42A BD D1 3D        ..=   jsr d13d
10482 D42D 7F 00 1C        ...   clr 001c
10483 D430 7F 00 18        ...   clr 0018
10484 D433 F6 18 00        ...   ldab 1800
10485 D436 C4 40           .@    andb #40
10486 D438 26 14           &.    bne 14
10487 D43A 7C 00 1C        |..   inc 001c
10488 D43D F6 00 1C        ...   ldab 001c
10489 D440 C1 FF           ..    cmpb #ff
10490 D442 26 08           &.    bne 08
10491 D444 BD D1 05        ...   jsr d105
10492 D447 CC 00 01        ...   ldd #0001
10493 D44A 20 17            .    bra 17
10494 D44C 20 11            .    bra 11
10495 D44E 7C 00 18        |..   inc 0018
10496 D451 F6 00 18        ...   ldab 0018
10497 D454 C1 08           ..    cmpb #08
10498 D456 26 07           &.    bne 07
10499 D458 BD D1 05        ...   jsr d105
10500 D45B 5F              _     clrb
10501 D45C 4F              O     clra
10502 D45D 20 04            .    bra 04
10503 D45F 20 D2            .    bra d2
10504 D461 5F              _     clrb
10505 D462 4F              O     clra
10506 D463 38              8     pulx
10507 D464 38              8     pulx
10508 D465 38              8     pulx
10509 D466 31              1     ins
10510 D467 39              9     rts
10511
10512 D468 37              7     pshb
10513 D469 30              0     tsx
10514 D46A E6 00           ..    ldab 00,x
10515 D46C 4F              O     clra
10516 D46D 05              .     asld
10517 D46E C3 08 00        ...   addd #0800
10518 D471 8F              .     xgdx
10519 D472 EC 00           ..    ldd 00,x
10520 D474 5F              _     clrb
10521 D475 84 80           ..    anda #80
10522 D477 31              1     ins
10523 D478 39              9     rts
10524
10525 D479 7F 00 1C        ...   clr 001c
10526 D47C F6 00 1C        ...   ldab 001c
10527 D47F C1 64           .d    cmpb #64
10528 D481 24 1A           $.    bcc 1a
10529 D483 CC FF 7F        ...   ldd #ff7f
10530 D486 37              7     pshb
10531 D487 36              6     psha
10532 D488 F6 00 1C        ...   ldab 001c
10533 D48B 4F              O     clra
10534 D48C 05              .     asld
10535 D48D C3 08 C8        ...   addd #08c8
10536 D490 38              8     pulx
10537 D491 8F              .     xgdx
10538 D492 A4 00           ..    anda 00,x
10539 D494 E4 01           ..    andb 01,x
10540 D496 ED 00           ..    stad 00,x
10541 D498 7C 00 1C        |..   inc 001c
10542 D49B 20 DF            .    bra df
10543 D49D 7F 00 05        ...   clr 0005
10544 D4A0 F6 00 05        ...   ldab 0005
10545 D4A3 C1 50           .P    cmpb #50
10546 D4A5 25 03           %.    bcs 03
10547 D4A7 7E D5 60        ~.`   jmp d560
10548 D4AA F6 00 05        ...   ldab 0005
10549 D4AD 4F              O     clra
10550 D4AE C3 B0 D3        ...   addd #b0d3
10551 D4B1 8F              .     xgdx
10552 D4B2 E6 00           ..    ldab 00,x
10553 D4B4 F7 00 06        ...   stb 0006
10554 D4B7 BD D3 11        ...   jsr d311
10555 D4BA 83 00 00        ...   subd #0000
10556 D4BD 27 03           '.    beq 03
10557 D4BF 7E D5 45        ~.E   jmp d545
10558 D4C2 F6 00 06        ...   ldab 0006
10559 D4C5 BD D7 A0        ...   jsr d7a0
10560 D4C8 83 00 00        ...   subd #0000
10561 D4CB 26 78           &x    bne 78
10562 D4CD BD D5 B0        ...   jsr d5b0
10563 D4D0 83 00 00        ...   subd #0000
10564 D4D3 26 06           &.    bne 06
10565 D4D5 BD D1 FD        ...   jsr d1fd
10566 D4D8 BD D6 3C        ..<   jsr d63c
10567 D4DB CC 80 00        ...   ldd #8000
10568 D4DE 37              7     pshb
10569 D4DF 36              6     psha
10570 D4E0 F6 00 06        ...   ldab 0006
10571 D4E3 4F              O     clra
10572 D4E4 05              .     asld
10573 D4E5 C3 08 00        ...   addd #0800
10574 D4E8 38              8     pulx
10575 D4E9 8F              .     xgdx
10576 D4EA AA 00           ..    ora 00,x
10577 D4EC EA 01           ..    orb 01,x
10578 D4EE ED 00           ..    stad 00,x
10579 D4F0 F6 00 06        ...   ldab 0006
10580 D4F3 4F              O     clra
10581 D4F4 05              .     asld
10582 D4F5 C3 08 00        ...   addd #0800
10583 D4F8 8F              .     xgdx
10584 D4F9 EC 00           ..    ldd 00,x
10585 D4FB C4 FF           ..    andb #ff
10586 D4FD 84 3F           .?    anda #3f
10587 D4FF 83 27 0F        .'.   subd #270f
10588 D502 23 1A           #.    bls 1a
10589 D504 BD D1 FD        ...   jsr d1fd
10590 D507 CC 01 00        ...   ldd #0100
10591 D50A 37              7     pshb
10592 D50B 36              6     psha
10593 D50C F6 00 06        ...   ldab 0006
10594 D50F 4F              O     clra
10595 D510 05              .     asld
10596 D511 C3 08 C8        ...   addd #08c8
10597 D514 38              8     pulx
10598 D515 8F              .     xgdx
10599 D516 AA 00           ..    ora 00,x
10600 D518 EA 01           ..    orb 01,x
10601 D51A ED 00           ..    stad 00,x
10602 D51C 20 25            %    bra 25
10603 D51E F6 00 06        ...   ldab 0006
10604 D521 4F              O     clra
10605 D522 05              .     asld
10606 D523 C3 08 C8        ...   addd #08c8
10607 D526 8F              .     xgdx
10608 D527 EC 00           ..    ldd 00,x
10609 D529 C4 7F           ..    andb #7f
10610 D52B F7 00 06        ...   stb 0006
10611 D52E CC 00 80        ...   ldd #0080
10612 D531 37              7     pshb
10613 D532 36              6     psha
10614 D533 F6 00 06        ...   ldab 0006
10615 D536 4F              O     clra
10616 D537 05              .     asld
10617 D538 C3 08 C8        ...   addd #08c8
10618 D53B 38              8     pulx
10619 D53C 8F              .     xgdx
10620 D53D AA 00           ..    ora 00,x
10621 D53F EA 01           ..    orb 01,x
10622 D541 ED 00           ..    stad 00,x
10623 D543 20 15            .    bra 15
10624 D545 CC 7F FF        ...   ldd #7fff
10625 D548 37              7     pshb
10626 D549 36              6     psha
10627 D54A F6 00 06        ...   ldab 0006
10628 D54D 4F              O     clra
10629 D54E 05              .     asld
10630 D54F C3 08 00        ...   addd #0800
10631 D552 38              8     pulx
10632 D553 8F              .     xgdx
10633 D554 A4 00           ..    anda 00,x
10634 D556 E4 01           ..    andb 01,x
10635 D558 ED 00           ..    stad 00,x
10636 D55A 7C 00 05        |..   inc 0005
10637 D55D 7E D4 A0        ~..   jmp d4a0
10638 D560 39              9     rts
10639
10640 D561 F6 00 06        ...   ldab 0006
10641 D564 4F              O     clra
10642 D565 05              .     asld
10643 D566 C3 08 00        ...   addd #0800
10644 D569 8F              .     xgdx
10645 D56A EC 00           ..    ldd 00,x
10646 D56C 5F              _     clrb
10647 D56D 84 40           .@    anda #40
10648 D56F 39              9     rts
10649
10650 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10651 ;loops, return 1 (fault?), else return 0 (OK?).
10652 ;005f is the row number in this routine.  scratch variable?
10653 ;looks like 0006 is the slot number.
10654 ;this is called twice
10655 D570 F6 00 06        ...   ldab 0006
10656 D573 4F              O     clra
10657 D574 CE 00 0A        ...   ldx #000a
10658 D577 02              .     idiv
10659 D578 F7 00 5F        .._   stb 005f
10660 D57B F6 00 5F        .._   ldab 005f
10661 D57E C1 05           ..    cmpb #05
10662 D580 23 03           #.    bls d585
10663 D582 7A 00 5F        z._   dec 005f
10664 D585 F6 00 5F        .._   ldab 005f    ;row number
10665 D588 4F              O     clra
10666 D589 C3 B1 23        ..#   addd #b123
10667 D58C 8F              .     xgdx
10668 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10669 D58F F7 00 5E        ..^   stb 005e
10670 D592 7F 00 1C        ...   clr 001c
10671 loop:
10672 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10673 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10674 D59B 27 10           '.    beq d5ad
10675 D59D 7C 00 1C        |..   inc 001c
10676 D5A0 F6 00 1C        ...   ldab 001c
10677 D5A3 C1 05           ..    cmpb #05
10678 D5A5 26 04           &.    bne d5ab
10679 D5A7 CC 00 01        ...   ldd #0001
10680 D5AA 39              9     rts
10681
10682 D5AB 20 E8            .    bra loop     ;d595
10683 D5AD 5F              _     clrb
10684 D5AE 4F              O     clra
10685 D5AF 39              9     rts
10686
10687 ;This does almost the same - check the home sensor for this row (slot number
10688 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
10689 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
10690 ;If it is ever 0, return 0.
10691 ;005f is the row number
10692 ;005e is the bit mask for this row
10693 D5B0 F6 00 06        ...   ldab 0006
10694 D5B3 4F              O     clra
10695 D5B4 CE 00 0A        ...   ldx #000a
10696 D5B7 02              .     idiv
10697 D5B8 F7 00 5F        .._   stb 005f
10698 D5BB F6 00 5F        .._   ldab 005f
10699 D5BE C1 05           ..    cmpb #05
10700 D5C0 23 03           #.    bls 03
10701 D5C2 7A 00 5F        z._   dec 005f
10702 D5C5 F6 00 5F        .._   ldab 005f
10703 D5C8 4F              O     clra
10704 D5C9 C3 B1 23        ..#   addd #b123
10705 D5CC 8F              .     xgdx
10706 D5CD E6 00           ..    ldab 00,x
10707 D5CF F7 00 5E        ..^   stb 005e
10708 D5D2 7F 00 1C        ...   clr 001c
10709 loop:
10710 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10711 D5D8 F4 00 5E        ..^   andb 005e
10712 D5DB 26 17           &.    bne d5f4
10713 D5DD F6 10 0A        ...   ldab 100a
10714 D5E0 C4 01           ..    andb #01
10715 D5E2 27 10           '.    beq d5f4
10716 D5E4 7C 00 1C        |..   inc 001c
10717 D5E7 F6 00 1C        ...   ldab 001c
10718 D5EA C1 05           ..    cmpb #05
10719 D5EC 26 04           &.    bne d5f2
10720 D5EE CC 00 01        ...   ldd #0001
10721 D5F1 39              9     rts
10722
10723 D5F2 20 E1            .    bra loop     ;d5d5
10724 D5F4 5F              _     clrb
10725 D5F5 4F              O     clra
10726 D5F6 39              9     rts
10727
10728 D5F7 C6 07           ..    ldab #07
10729 D5F9 F7 00 1C        ...   stb 001c
10730 D5FC 7F 00 18        ...   clr 0018
10731 D5FF F6 00 1C        ...   ldab 001c
10732 D602 27 1E           '.    beq 1e
10733 D604 7A 00 1C        z..   dec 001c
10734 D607 F6 10 0A        ...   ldab 100a
10735 D60A C4 01           ..    andb #01
10736 D60C 26 12           &.    bne 12
10737 D60E C6 07           ..    ldab #07
10738 D610 F7 00 1C        ...   stb 001c
10739 D613 7C 00 18        |..   inc 0018
10740 D616 F6 00 18        ...   ldab 0018
10741 D619 C1 05           ..    cmpb #05
10742 D61B 26 03           &.    bne 03
10743 D61D 5F              _     clrb
10744 D61E 4F              O     clra
10745 D61F 39              9     rts
10746
10747 D620 20 DD            .    bra dd
10748 D622 CC 00 01        ...   ldd #0001
10749 D625 39              9     rts
10750 D626 CC 02 00        ...   ldd #0200
10751 D629 37              7     pshb
10752 D62A 36              6     psha
10753 D62B F6 00 06        ...   ldab 0006
10754 D62E 4F              O     clra
10755 D62F 05              .     asld
10756 D630 C3 08 C8        ...   addd #08c8
10757 D633 38              8     pulx
10758 D634 8F              .     xgdx
10759 D635 AA 00           ..    ora 00,x
10760 D637 EA 01           ..    orb 01,x
10761 D639 ED 00           ..    stad 00,x
10762 D63B 39              9     rts
10763
10764 D63C CC 04 00        ...   ldd #0400
10765 D63F 37              7     pshb
10766 D640 36              6     psha
10767 D641 F6 00 06        ...   ldab 0006
10768 D644 4F              O     clra
10769 D645 05              .     asld
10770 D646 C3 08 C8        ...   addd #08c8
10771 D649 38              8     pulx
10772 D64A 8F              .     xgdx
10773 D64B AA 00           ..    ora 00,x
10774 D64D EA 01           ..    orb 01,x
10775 D64F ED 00           ..    stad 00,x
10776 D651 39              9     rts
10777
10778 D652 CE 00 1A        ...   ldx #001a
10779 D655 1C 00           ..    bset add,x 00,x
10780 D657 01              .     nop
10781 D658 F6 00 1A        ...   ldab 001a
10782 D65B F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10783 D65E CE 00 14        ...   ldx #0014
10784 D661 1D 00           ..    bclr add,x 00,x
10785 D663 01              .     nop
10786 D664 F6 00 14        ...   ldab 0014
10787 D667 F7 38 00        .8.   stb 3800
10788 D66A 39              9     rts
10789
10790 D66B F6 0B C0        ...   ldab 0bc0
10791 D66E C4 08           ..    andb #08
10792 D670 27 07           '.    beq 07
10793 D672 F6 00 7D        ..}   ldab 007d
10794 D675 27 02           '.    beq 02
10795 D677 20 F9            .    bra f9
10796 D679 F6 00 15        ...   ldab 0015
10797 D67C 2D 77           -w    blt 77
10798 D67E FC 00 40        ..@   ldd 0040
10799 D681 F3 00 3E        ..>   addd 003e
10800 D684 B3 00 0F        ...   subd 000f
10801 D687 24 4F           $O    bcc 4f
10802 D689 F6 0B C0        ...   ldab 0bc0
10803 D68C C4 01           ..    andb #01
10804 D68E 26 07           &.    bne 07
10805 D690 F6 0B C0        ...   ldab 0bc0
10806 D693 C4 04           ..    andb #04
10807 D695 27 0C           '.    beq 0c
10808 D697 CE 00 1A        ...   ldx #001a
10809 D69A 1D 00           ..    bclr add,x 00,x
10810 D69C 01              .     nop
10811 D69D F6 00 1A        ...   ldab 001a
10812 D6A0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10813 D6A3 F6 0B C0        ...   ldab 0bc0
10814 D6A6 C4 08           ..    andb #08
10815 D6A8 27 20           '     beq 20
10816 D6AA F6 0C D9        ...   ldab 0cd9
10817 D6AD C1 03           ..    cmpb #03
10818 D6AF 23 19           #.    bls 19
10819 D6B1 FC 0B EF        ...   ldd 0bef
10820 D6B4 83 00 64        ..d   subd #0064
10821 D6B7 25 11           %.    bcs 11
10822 D6B9 CE 00 14        ...   ldx #0014
10823 D6BC 1C 00           ..    bset add,x 00,x
10824 D6BE 02              .     idiv
10825 D6BF F6 00 14        ...   ldab 0014
10826 D6C2 F7 38 00        .8.   stb 3800
10827 D6C5 BD C0 E0        ...   jsr c0e0
10828 D6C8 20 0C            .    bra 0c
10829 D6CA CE 00 14        ...   ldx #0014
10830 D6CD 1D 00           ..    bclr add,x 00,x
10831 D6CF 01              .     nop
10832 D6D0 F6 00 14        ...   ldab 0014
10833 D6D3 F7 38 00        .8.   stb 3800
10834 D6D6 20 05            .    bra 05
10835 D6D8 BD D6 52        ..R   jsr d652
10836 D6DB 8D 53           .S    bsr dest 53
10837 D6DD F6 0B C0        ...   ldab 0bc0
10838 D6E0 C4 08           ..    andb #08
10839 D6E2 27 11           '.    beq 11
10840 D6E4 F6 0B C0        ...   ldab 0bc0
10841 D6E7 C4 40           .@    andb #40
10842 D6E9 27 0A           '.    beq 0a
10843 D6EB F6 00 15        ...   ldab 0015
10844 D6EE C4 01           ..    andb #01
10845 D6F0 27 03           '.    beq 03
10846 D6F2 BD C0 E0        ...   jsr c0e0
10847 D6F5 39              9     rts
10848
10849 D6F6 F6 0C DB        ...   ldab 0cdb
10850 D6F9 4F              O     clra
10851 D6FA 37              7     pshb
10852 D6FB 36              6     psha
10853 D6FC FC 0B DD        ...   ldd 0bdd
10854 D6FF BD FB BA        ...   jsr fbba
10855 D702 FD 0C EB        ...   stad 0ceb
10856 D705 F6 0C DA        ...   ldab 0cda
10857 D708 4F              O     clra
10858 D709 37              7     pshb
10859 D70A 36              6     psha
10860 D70B FC 0B DF        ...   ldd 0bdf
10861 D70E BD FB BA        ...   jsr fbba
10862 D711 FD 0C ED        ...   stad 0ced
10863 D714 F6 0C D9        ...   ldab 0cd9
10864 D717 4F              O     clra
10865 D718 37              7     pshb
10866 D719 36              6     psha
10867 D71A FC 0B E1        ...   ldd 0be1
10868 D71D BD FB BA        ...   jsr fbba
10869 D720 FD 0C EF        ...   stad 0cef
10870 D723 FC 0C EB        ...   ldd 0ceb
10871 D726 F3 0C ED        ...   addd 0ced
10872 D729 F3 0C EF        ...   addd 0cef
10873 D72C FD 0B EF        ...   stad 0bef
10874 D72F 39              9     rts
10875
10876 D730 F6 00 15        ...   ldab 0015
10877 D733 C4 1F           ..    andb #1f
10878 D735 27 49           'I    beq 49
10879 D737 FC 00 40        ..@   ldd 0040
10880 D73A F3 00 3E        ..>   addd 003e
10881 D73D B3 0B EF        ...   subd 0bef
10882 D740 23 19           #.    bls 19
10883 D742 CC B0 6B        ..k   ldd #b06b
10884 D745 BD C0 BA        ...   jsr c0ba
10885 D748 CC 01 F4        ...   ldd #01f4
10886 D74B BD E5 71        ..q   jsr e571
10887 D74E BD C5 D3        ...   jsr c5d3
10888 D751 CC 01 F4        ...   ldd #01f4
10889 D754 BD E5 71        ..q   jsr e571
10890 D757 CC 00 01        ...   ldd #0001
10891 D75A 39              9     rts
10892
10893 D75B F6 00 15        ...   ldab 0015
10894 D75E C4 04           ..    andb #04
10895 D760 27 1E           '.    beq 1e
10896 D762 F6 0E 6E        ..n   ldab 0e6e
10897 D765 26 19           &.    bne 19
10898 D767 CC B0 76        ..v   ldd #b076
10899 D76A BD C0 BA        ...   jsr c0ba
10900 D76D CC 01 F4        ...   ldd #01f4
10901 D770 BD E5 71        ..q   jsr e571
10902 D773 BD C5 D3        ...   jsr c5d3
10903 D776 CC 01 F4        ...   ldd #01f4
10904 D779 BD E5 71        ..q   jsr e571
10905 D77C CC 00 01        ...   ldd #0001
10906 D77F 39              9     rts
10907
10908 D780 5F              _     clrb
10909 D781 4F              O     clra
10910 D782 39              9     rts
10911
10912 D783 F6 00 06        ...   ldab 0006
10913 D786 4F              O     clra
10914 D787 CE 00 0A        ...   ldx #000a
10915 D78A 02              .     idiv
10916 D78B C1 04           ..    cmpb #04
10917 D78D 26 0E           &.    bne 0e
10918 D78F F6 00 1D        ...   ldab 001d
10919 D792 C4 04           ..    andb #04
10920 D794 27 03           '.    beq 03
10921 D796 5F              _     clrb
10922 D797 4F              O     clra
10923 D798 39              9     rts
10924
10925 D799 CC 00 01        ...   ldd #0001
10926 D79C 39              9     rts
10927
10928 D79D 5F              _     clrb
10929 D79E 4F              O     clra
10930 D79F 39              9     rts
10931
10932 D7A0 37              7     pshb
10933 D7A1 30              0     tsx
10934 D7A2 E6 00           ..    ldab 00,x
10935 D7A4 C1 09           ..    cmpb #09
10936 D7A6 27 18           '.    beq 18
10937 D7A8 E6 00           ..    ldab 00,x
10938 D7AA C1 45           .E    cmpb #45
10939 D7AC 27 12           '.    beq 12
10940 D7AE E6 00           ..    ldab 00,x
10941 D7B0 C1 4F           .O    cmpb #4f
10942 D7B2 27 0C           '.    beq 0c
10943 D7B4 E6 00           ..    ldab 00,x
10944 D7B6 C1 59           .Y    cmpb #59
10945 D7B8 27 06           '.    beq 06
10946 D7BA E6 00           ..    ldab 00,x
10947 D7BC C1 63           .c    cmpb #63
10948 D7BE 26 05           &.    bne 05
10949 D7C0 CC 00 01        ...   ldd #0001
10950 D7C3 20 38            8    bra 38
10951 D7C5 F6 0E 6D        ..m   ldab 0e6d
10952 D7C8 C1 01           ..    cmpb #01
10953 D7CA 26 2F           &/    bne 2f
10954 D7CC 30              0     tsx
10955 D7CD E6 00           ..    ldab 00,x
10956 D7CF 4F              O     clra
10957 D7D0 CE 00 0A        ...   ldx #000a
10958 D7D3 02              .     idiv
10959 D7D4 C1 01           ..    cmpb #01
10960 D7D6 27 11           '.    beq 11
10961 D7D8 30              0     tsx
10962 D7D9 E6 00           ..    ldab 00,x
10963 D7DB 4F              O     clra
10964 D7DC CE 00 0A        ...   ldx #000a
10965 D7DF 02              .     idiv
10966 D7E0 C1 02           ..    cmpb #02
10967 D7E2 27 05           '.    beq 05
10968 D7E4 CC 00 01        ...   ldd #0001
10969 D7E7 20 14            .    bra 14
10970 D7E9 30              0     tsx
10971 D7EA E6 00           ..    ldab 00,x
10972 D7EC C1 0B           ..    cmpb #0b
10973 D7EE 25 06           %.    bcs 06
10974 D7F0 E6 00           ..    ldab 00,x
10975 D7F2 C1 3E           .>    cmpb #3e
10976 D7F4 23 05           #.    bls 05
10977 D7F6 CC 00 01        ...   ldd #0001
10978 D7F9 20 02            .    bra 02
10979 D7FB 5F              _     clrb
10980 D7FC 4F              O     clra
10981 D7FD 31              1     ins
10982 D7FE 39              9     rts
10983
10984 D7FF 7F 00 1C        ...   clr 001c
10985 D802 F6 00 1C        ...   ldab 001c
10986 D805 4F              O     clra
10987 D806 B3 00 4D        ..M   subd 004d
10988 D809 24 05           $.    bcc 05
10989 D80B 7C 00 1C        |..   inc 001c
10990 D80E 20 F2            .    bra f2
10991 D810 F6 00 1C        ...   ldab 001c
10992 D813 4F              O     clra
10993 D814 05              .     asld
10994 D815 C3 0D 1F        ...   addd #0d1f
10995 D818 8F              .     xgdx
10996 D819 EC 00           ..    ldd 00,x
10997 D81B 83 FF FF        ...   subd #ffff
10998 D81E 26 10           &.    bne 10
10999 D820 5F              _     clrb
11000 D821 4F              O     clra
11001 D822 37              7     pshb
11002 D823 36              6     psha
11003 D824 F6 00 1C        ...   ldab 001c
11004 D827 4F              O     clra
11005 D828 05              .     asld
11006 D829 C3 0D 1F        ...   addd #0d1f
11007 D82C 38              8     pulx
11008 D82D 8F              .     xgdx
11009 D82E ED 00           ..    stad 00,x
11010 D830 F6 00 1C        ...   ldab 001c
11011 D833 4F              O     clra
11012 D834 05              .     asld
11013 D835 C3 0D 1F        ...   addd #0d1f
11014 D838 8F              .     xgdx
11015 D839 6C 01           l.    inc 01,x
11016 D83B 26 02           &.    bne 02
11017 D83D 6C 00           l.    inc 00,x
11018 D83F 39              9     rts
11019
11020 D840 FC 00 44        ..D   ldd 0044
11021 D843 26 03           &.    bne 03
11022 D845 7E D8 D2        ~..   jmp d8d2
11023 D848 FC 00 44        ..D   ldd 0044
11024 D84B 37              7     pshb
11025 D84C 36              6     psha
11026 D84D 4F              O     clra
11027 D84E 5F              _     clrb
11028 D84F 37              7     pshb
11029 D850 36              6     psha
11030 D851 CC 0D EB        ...   ldd #0deb
11031 D854 BD FB DF        ...   jsr fbdf
11032 D857 31              1     ins
11033 D858 31              1     ins
11034 D859 FE 0D ED        ...   ldx 0ded
11035 D85C 3C              <     pshx
11036 D85D FC 0D EB        ...   ldd 0deb
11037 D860 37              7     pshb
11038 D861 36              6     psha
11039 D862 CE E1 00        ...   ldx #e100
11040 D865 3C              <     pshx
11041 D866 CC 05 F5        ...   ldd #05f5
11042 D869 37              7     pshb
11043 D86A 36              6     psha
11044 D86B 30              0     tsx
11045 D86C EC 06           ..    ldd 06,x
11046 D86E A3 02           ..    subd 02,x
11047 D870 EC 04           ..    ldd 04,x
11048 D872 E2 01           ..    sbcb 01,x
11049 D874 A2 00           ..    sbca 00,x
11050 D876 38              8     pulx
11051 D877 38              8     pulx
11052 D878 38              8     pulx
11053 D879 38              8     pulx
11054 D87A 25 11           %.    bcs 11
11055 D87C CE 1F 00        ...   ldx #1f00
11056 D87F 3C              <     pshx
11057 D880 CC FA 0A        ...   ldd #fa0a
11058 D883 37              7     pshb
11059 D884 36              6     psha
11060 D885 CC 0D EB        ...   ldd #0deb
11061 D888 BD FB DF        ...   jsr fbdf
11062 D88B 31              1     ins
11063 D88C 31              1     ins
11064 D88D FC 00 44        ..D   ldd 0044
11065 D890 37              7     pshb
11066 D891 36              6     psha
11067 D892 4F              O     clra
11068 D893 5F              _     clrb
11069 D894 37              7     pshb
11070 D895 36              6     psha
11071 D896 CC 0D E7        ...   ldd #0de7
11072 D899 BD FB DF        ...   jsr fbdf
11073 D89C 31              1     ins
11074 D89D 31              1     ins
11075 D89E FE 0D E9        ...   ldx 0de9
11076 D8A1 3C              <     pshx
11077 D8A2 FC 0D E7        ...   ldd 0de7
11078 D8A5 37              7     pshb
11079 D8A6 36              6     psha
11080 D8A7 CE E1 00        ...   ldx #e100
11081 D8AA 3C              <     pshx
11082 D8AB CC 05 F5        ...   ldd #05f5
11083 D8AE 37              7     pshb
11084 D8AF 36              6     psha
11085 D8B0 30              0     tsx
11086 D8B1 EC 06           ..    ldd 06,x
11087 D8B3 A3 02           ..    subd 02,x
11088 D8B5 EC 04           ..    ldd 04,x
11089 D8B7 E2 01           ..    sbcb 01,x
11090 D8B9 A2 00           ..    sbca 00,x
11091 D8BB 38              8     pulx
11092 D8BC 38              8     pulx
11093 D8BD 38              8     pulx
11094 D8BE 38              8     pulx
11095 D8BF 25 11           %.    bcs 11
11096 D8C1 CE 1F 00        ...   ldx #1f00
11097 D8C4 3C              <     pshx
11098 D8C5 CC FA 0A        ...   ldd #fa0a
11099 D8C8 37              7     pshb
11100 D8C9 36              6     psha
11101 D8CA CC 0D E7        ...   ldd #0de7
11102 D8CD BD FB DF        ...   jsr fbdf
11103 D8D0 31              1     ins
11104 D8D1 31              1     ins
11105 D8D2 39              9     rts
11106
11107 D8D3 7F 00 18        ...   clr 0018
11108 D8D6 F6 00 18        ...   ldab 0018
11109 D8D9 C1 10           ..    cmpb #10
11110 D8DB 24 0B           $.    bcc 0b
11111 D8DD CC 00 32        ..2   ldd #0032
11112 D8E0 BD E5 71        ..q   jsr e571
11113 D8E3 7C 00 18        |..   inc 0018
11114 D8E6 20 EE            .    bra ee
11115 D8E8 39              9     rts
11116
11117 D8E9 F6 00 2B        ..+   ldab 002b
11118 D8EC C1 00           ..    cmpb #00
11119 D8EE 26 18           &.    bne 18
11120 D8F0 CC AD 84        ...   ldd #ad84
11121 D8F3 BD C0 BA        ...   jsr c0ba
11122 D8F6 8D DB           ..    bsr dest db
11123 D8F8 CC AD 8F        ...   ldd #ad8f
11124 D8FB BD C0 BA        ...   jsr c0ba
11125 D8FE 8D D3           ..    bsr dest d3
11126 D900 CC AD 9A        ...   ldd #ad9a
11127 D903 BD C0 BA        ...   jsr c0ba
11128 D906 20 4E            N    bra 4e
11129 D908 C1 01           ..    cmpb #01
11130 D90A 26 18           &.    bne 18
11131 D90C CC AD 63        ..c   ldd #ad63
11132 D90F BD C0 BA        ...   jsr c0ba
11133 D912 8D BF           ..    bsr dest bf
11134 D914 CC AD 6E        ..n   ldd #ad6e
11135 D917 BD C0 BA        ...   jsr c0ba
11136 D91A 8D B7           ..    bsr dest b7
11137 D91C CC AD 79        ..y   ldd #ad79
11138 D91F BD C0 BA        ...   jsr c0ba
11139 D922 20 32            2    bra 32
11140 D924 C1 02           ..    cmpb #02
11141 D926 26 18           &.    bne 18
11142 D928 CC AD 42        ..B   ldd #ad42
11143 D92B BD C0 BA        ...   jsr c0ba
11144 D92E 8D A3           ..    bsr dest a3
11145 D930 CC AD 4D        ..M   ldd #ad4d
11146 D933 BD C0 BA        ...   jsr c0ba
11147 D936 8D 9B           ..    bsr dest 9b
11148 D938 CC AD 58        ..X   ldd #ad58
11149 D93B BD C0 BA        ...   jsr c0ba
11150 D93E 20 16            .    bra 16
11151 D940 CC AD 21        ..!   ldd #ad21
11152 D943 BD C0 BA        ...   jsr c0ba
11153 D946 8D 8B           ..    bsr dest 8b
11154 D948 CC AD 2C        ..,   ldd #ad2c
11155 D94B BD C0 BA        ...   jsr c0ba
11156 D94E 8D 83           ..    bsr dest 83
11157 D950 CC AD 37        ..7   ldd #ad37
11158 D953 BD C0 BA        ...   jsr c0ba
11159 D956 BD D8 D3        ...   jsr d8d3
11160 D959 39              9     rts
11161
11162 D95A F6 00 06        ...   ldab 0006
11163 D95D F1 0B AF        ...   cmpb 0baf
11164 D960 26 0D           &.    bne 0d
11165 D962 BD D7 FF        ...   jsr d7ff
11166 D965 F6 0B B4        ...   ldab 0bb4
11167 D968 F7 00 06        ...   stb 0006
11168 D96B 8D 55           .U    bsr dest 55
11169 D96D 20 52            R    bra 52
11170 D96F F6 00 06        ...   ldab 0006
11171 D972 F1 0B AE        ...   cmpb 0bae
11172 D975 26 0D           &.    bne 0d
11173 D977 BD D7 FF        ...   jsr d7ff
11174 D97A F6 0B B3        ...   ldab 0bb3
11175 D97D F7 00 06        ...   stb 0006
11176 D980 8D 40           .@    bsr dest 40
11177 D982 20 3D            =    bra 3d
11178 D984 F6 00 06        ...   ldab 0006
11179 D987 F1 0B AD        ...   cmpb 0bad
11180 D98A 26 0D           &.    bne 0d
11181 D98C BD D7 FF        ...   jsr d7ff
11182 D98F F6 0B B2        ...   ldab 0bb2
11183 D992 F7 00 06        ...   stb 0006
11184 D995 8D 2B           .+    bsr dest 2b
11185 D997 20 28            (    bra 28
11186 D999 F6 00 06        ...   ldab 0006
11187 D99C F1 0B AC        ...   cmpb 0bac
11188 D99F 26 0D           &.    bne 0d
11189 D9A1 BD D7 FF        ...   jsr d7ff
11190 D9A4 F6 0B B1        ...   ldab 0bb1
11191 D9A7 F7 00 06        ...   stb 0006
11192 D9AA 8D 16           ..    bsr dest 16
11193 D9AC 20 13            .    bra 13
11194 D9AE F6 00 06        ...   ldab 0006
11195 D9B1 F1 0B AB        ...   cmpb 0bab
11196 D9B4 26 0B           &.    bne 0b
11197 D9B6 BD D7 FF        ...   jsr d7ff
11198 D9B9 F6 0B B0        ...   ldab 0bb0
11199 D9BC F7 00 06        ...   stb 0006
11200 D9BF 8D 01           ..    bsr dest 01
11201 D9C1 39              9     rts
11202
11203 D9C2 CC 03 E8        ...   ldd #03e8
11204 D9C5 BD E5 71        ..q   jsr e571
11205 D9C8 BD D7 83        ...   jsr d783
11206 D9CB 83 00 00        ...   subd #0000
11207 D9CE 27 0B           '.    beq 0b
11208 D9D0 7F 00 06        ...   clr 0006
11209 D9D3 5F              _     clrb
11210 D9D4 4F              O     clra
11211 D9D5 FD 00 4D        ..M   stad 004d
11212 D9D8 7E DA 63        ~.c   jmp da63
11213 D9DB BD D2 13        ...   jsr d213
11214 D9DE 83 00 00        ...   subd #0000
11215 D9E1 26 0A           &.    bne 0a
11216 D9E3 7F 00 06        ...   clr 0006
11217 D9E6 5F              _     clrb
11218 D9E7 4F              O     clra
11219 D9E8 FD 00 4D        ..M   stad 004d
11220 D9EB 20 76            v    bra 76
11221 D9ED FC 0D 0B        ...   ldd 0d0b
11222 D9F0 83 FF FF        ...   subd #ffff
11223 D9F3 26 05           &.    bne 05
11224 D9F5 5F              _     clrb
11225 D9F6 4F              O     clra
11226 D9F7 FD 0D 0B        ...   stad 0d0b
11227 D9FA FE 0D 0B        ...   ldx 0d0b
11228 D9FD 08              .     inx
11229 D9FE FF 0D 0B        ...   stx 0d0b
11230 DA01 F6 00 06        ...   ldab 0006
11231 DA04 4F              O     clra
11232 DA05 05              .     asld
11233 DA06 C3 08 C8        ...   addd #08c8
11234 DA09 8F              .     xgdx
11235 DA0A EC 00           ..    ldd 00,x
11236 DA0C C4 7F           ..    andb #7f
11237 DA0E 4F              O     clra
11238 DA0F FD 00 4D        ..M   stad 004d
11239 DA12 F6 00 06        ...   ldab 0006
11240 DA15 4F              O     clra
11241 DA16 05              .     asld
11242 DA17 C3 08 00        ...   addd #0800
11243 DA1A 8F              .     xgdx
11244 DA1B EC 00           ..    ldd 00,x
11245 DA1D C4 FF           ..    andb #ff
11246 DA1F 84 3F           .?    anda #3f
11247 DA21 37              7     pshb
11248 DA22 36              6     psha
11249 DA23 4F              O     clra
11250 DA24 5F              _     clrb
11251 DA25 37              7     pshb
11252 DA26 36              6     psha
11253 DA27 CC 0D 17        ...   ldd #0d17
11254 DA2A BD FB DF        ...   jsr fbdf
11255 DA2D 31              1     ins
11256 DA2E 31              1     ins
11257 DA2F FE 0D 19        ...   ldx 0d19
11258 DA32 3C              <     pshx
11259 DA33 FC 0D 17        ...   ldd 0d17
11260 DA36 37              7     pshb
11261 DA37 36              6     psha
11262 DA38 CE E1 00        ...   ldx #e100
11263 DA3B 3C              <     pshx
11264 DA3C CC 05 F5        ...   ldd #05f5
11265 DA3F 37              7     pshb
11266 DA40 36              6     psha
11267 DA41 30              0     tsx
11268 DA42 EC 06           ..    ldd 06,x
11269 DA44 A3 02           ..    subd 02,x
11270 DA46 EC 04           ..    ldd 04,x
11271 DA48 E2 01           ..    sbcb 01,x
11272 DA4A A2 00           ..    sbca 00,x
11273 DA4C 38              8     pulx
11274 DA4D 38              8     pulx
11275 DA4E 38              8     pulx
11276 DA4F 38              8     pulx
11277 DA50 25 11           %.    bcs 11
11278 DA52 CE 1F 00        ...   ldx #1f00
11279 DA55 3C              <     pshx
11280 DA56 CC FA 0A        ...   ldd #fa0a
11281 DA59 37              7     pshb
11282 DA5A 36              6     psha
11283 DA5B CC 0D 17        ...   ldd #0d17
11284 DA5E BD FB DF        ...   jsr fbdf
11285 DA61 31              1     ins
11286 DA62 31              1     ins
11287 DA63 39              9     rts
11288
11289 DA64 FE 0B B9        ...   ldx 0bb9
11290 DA67 08              .     inx
11291 DA68 FF 0B B9        ...   stx 0bb9
11292 DA6B FC 0B B5        ...   ldd 0bb5
11293 DA6E CE 00 32        ..2   ldx #0032
11294 DA71 02              .     idiv
11295 DA72 8F              .     xgdx
11296 DA73 37              7     pshb
11297 DA74 36              6     psha
11298 DA75 CC 00 C3        ...   ldd #00c3
11299 DA78 BD FB BA        ...   jsr fbba
11300 DA7B B3 0B B9        ...   subd 0bb9
11301 DA7E 24 05           $.    bcc 05
11302 DA80 5F              _     clrb
11303 DA81 4F              O     clra
11304 DA82 FD 0B B9        ...   stad 0bb9
11305 DA85 FC 0B B9        ...   ldd 0bb9
11306 DA88 37              7     pshb
11307 DA89 36              6     psha
11308 DA8A CC 00 0A        ...   ldd #000a
11309 DA8D BD FB BA        ...   jsr fbba
11310 DA90 37              7     pshb
11311 DA91 36              6     psha
11312 DA92 FC 0B B5        ...   ldd 0bb5
11313 DA95 CE 00 32        ..2   ldx #0032
11314 DA98 02              .     idiv
11315 DA99 8F              .     xgdx
11316 DA9A 38              8     pulx
11317 DA9B 8F              .     xgdx
11318 DA9C 02              .     idiv
11319 DA9D 8F              .     xgdx
11320 DA9E 37              7     pshb
11321 DA9F 36              6     psha
11322 DAA0 CC 00 0A        ...   ldd #000a
11323 DAA3 BD FB BA        ...   jsr fbba
11324 DAA6 CE 00 0A        ...   ldx #000a
11325 DAA9 02              .     idiv
11326 DAAA 8F              .     xgdx
11327 DAAB FD 00 4A        ..J   stad 004a
11328 DAAE FC 00 4A        ..J   ldd 004a
11329 DAB1 BD FE 32        ..2   jsr fe32
11330 DAB4 DA CA 00        ...   orab ca
11331 DAB7 6E DA           n.    jmp da,x
11332 DAB9 CA 02           ..    orab #02
11333 DABB 80 DA           ..    suba #da
11334 DABD CA 01           ..    orab #01
11335 DABF C2 DA           ..    sbcb #da
11336 DAC1 CA 01           ..    orab #01
11337 DAC3 C2 DB           ..    sbcb #db
11338 DAC5 43              C     coma
11339 DAC6 F9 8E 00        ...   adcb 8e00
11340 DAC9 00              .     test
11341 DACA FC 0D 07        ...   ldd 0d07
11342 DACD 83 FF FF        ...   subd #ffff
11343 DAD0 26 05           &.    bne 05
11344 DAD2 5F              _     clrb
11345 DAD3 4F              O     clra
11346 DAD4 FD 0D 07        ...   stad 0d07
11347 DAD7 FE 0D 07        ...   ldx 0d07
11348 DADA 08              .     inx
11349 DADB FF 0D 07        ...   stx 0d07
11350 DADE F6 00 06        ...   ldab 0006
11351 DAE1 4F              O     clra
11352 DAE2 05              .     asld
11353 DAE3 C3 08 00        ...   addd #0800
11354 DAE6 8F              .     xgdx
11355 DAE7 EC 00           ..    ldd 00,x
11356 DAE9 C4 FF           ..    andb #ff
11357 DAEB 84 3F           .?    anda #3f
11358 DAED 37              7     pshb
11359 DAEE 36              6     psha
11360 DAEF 4F              O     clra
11361 DAF0 5F              _     clrb
11362 DAF1 37              7     pshb
11363 DAF2 36              6     psha
11364 DAF3 CC 0D 0F        ...   ldd #0d0f
11365 DAF6 BD FB DF        ...   jsr fbdf
11366 DAF9 31              1     ins
11367 DAFA 31              1     ins
11368 DAFB FE 0D 11        ...   ldx 0d11
11369 DAFE 3C              <     pshx
11370 DAFF FC 0D 0F        ...   ldd 0d0f
11371 DB02 37              7     pshb
11372 DB03 36              6     psha
11373 DB04 CE E1 00        ...   ldx #e100
11374 DB07 3C              <     pshx
11375 DB08 CC 05 F5        ...   ldd #05f5
11376 DB0B 37              7     pshb
11377 DB0C 36              6     psha
11378 DB0D 30              0     tsx
11379 DB0E EC 06           ..    ldd 06,x
11380 DB10 A3 02           ..    subd 02,x
11381 DB12 EC 04           ..    ldd 04,x
11382 DB14 E2 01           ..    sbcb 01,x
11383 DB16 A2 00           ..    sbca 00,x
11384 DB18 38              8     pulx
11385 DB19 38              8     pulx
11386 DB1A 38              8     pulx
11387 DB1B 38              8     pulx
11388 DB1C 25 11           %.    bcs 11
11389 DB1E CE 1F 00        ...   ldx #1f00
11390 DB21 3C              <     pshx
11391 DB22 CC FA 0A        ...   ldd #fa0a
11392 DB25 37              7     pshb
11393 DB26 36              6     psha
11394 DB27 CC 0D 0F        ...   ldd #0d0f
11395 DB2A BD FB DF        ...   jsr fbdf
11396 DB2D 31              1     ins
11397 DB2E 31              1     ins
11398 DB2F 5F              _     clrb
11399 DB30 4F              O     clra
11400 DB31 FD 00 44        ..D   stad 0044
11401 DB34 CE 00 1B        ...   ldx #001b
11402 DB37 1D 00           ..    bclr add,x 00,x
11403 DB39 01              .     nop
11404 DB3A 7F 00 4F        ..O   clr 004f
11405 DB3D CE 00 11        ...   ldx #0011
11406 DB40 1C 00           ..    bset add,x 00,x
11407 DB42 10              .     sba
11408 DB43 39              9     rts
11409
11410 DB44 F6 00 2B        ..+   ldab 002b
11411 DB47 C1 00           ..    cmpb #00
11412 DB49 26 08           &.    bne 08
11413 DB4B CC AC DF        ...   ldd #acdf
11414 DB4E BD C0 BA        ...   jsr c0ba
11415 DB51 20 1E            .    bra 1e
11416 DB53 C1 01           ..    cmpb #01
11417 DB55 26 08           &.    bne 08
11418 DB57 CC AC D4        ...   ldd #acd4
11419 DB5A BD C0 BA        ...   jsr c0ba
11420 DB5D 20 12            .    bra 12
11421 DB5F C1 02           ..    cmpb #02
11422 DB61 26 08           &.    bne 08
11423 DB63 CC AC EA        ...   ldd #acea
11424 DB66 BD C0 BA        ...   jsr c0ba
11425 DB69 20 06            .    bra 06
11426 DB6B CC AC D4        ...   ldd #acd4
11427 DB6E BD C0 BA        ...   jsr c0ba
11428 DB71 BD D8 D3        ...   jsr d8d3
11429 DB74 CE 00 01        ...   ldx #0001
11430 DB77 3C              <     pshx
11431 DB78 FC 00 40        ..@   ldd 0040
11432 DB7B F3 00 3E        ..>   addd 003e
11433 DB7E BD BE 9E        ...   jsr be9e
11434 DB81 38              8     pulx
11435 DB82 FC 00 40        ..@   ldd 0040
11436 DB85 27 05           '.    beq 05
11437 DB87 BD C4 56        ..V   jsr c456
11438 DB8A 20 06            .    bra 06
11439 DB8C CC 02 58        ..X   ldd #0258
11440 DB8F BD E5 71        ..q   jsr e571
11441 DB92 FC 00 3E        ..>   ldd 003e
11442 DB95 27 03           '.    beq 03
11443 DB97 BD C5 D3        ...   jsr c5d3
11444 DB9A F6 00 2B        ..+   ldab 002b
11445 DB9D C1 00           ..    cmpb #00
11446 DB9F 26 08           &.    bne 08
11447 DBA1 CC AD 16        ...   ldd #ad16
11448 DBA4 BD C0 BA        ...   jsr c0ba
11449 DBA7 20 1E            .    bra 1e
11450 DBA9 C1 01           ..    cmpb #01
11451 DBAB 26 08           &.    bne 08
11452 DBAD CC AD 0B        ...   ldd #ad0b
11453 DBB0 BD C0 BA        ...   jsr c0ba
11454 DBB3 20 12            .    bra 12
11455 DBB5 C1 02           ..    cmpb #02
11456 DBB7 26 08           &.    bne 08
11457 DBB9 CC AD 00        ...   ldd #ad00
11458 DBBC BD C0 BA        ...   jsr c0ba
11459 DBBF 20 06            .    bra 06
11460 DBC1 CC AC F5        ...   ldd #acf5
11461 DBC4 BD C0 BA        ...   jsr c0ba
11462 DBC7 BD D8 D3        ...   jsr d8d3
11463 DBCA 39              9     rts
11464
11465 DBCB F6 00 1B        ...   ldab 001b
11466 DBCE C4 01           ..    andb #01
11467 DBD0 26 03           &.    bne 03
11468 DBD2 7E DC 98        ~..   jmp dc98
11469 DBD5 F6 00 06        ...   ldab 0006
11470 DBD8 4F              O     clra
11471 DBD9 05              .     asld
11472 DBDA C3 08 C8        ...   addd #08c8
11473 DBDD 8F              .     xgdx
11474 DBDE EC 00           ..    ldd 00,x
11475 DBE0 84 08           ..    anda #08
11476 DBE2 26 03           &.    bne 03
11477 DBE4 7E DC 98        ~..   jmp dc98
11478 DBE7 BD D7 FF        ...   jsr d7ff
11479 DBEA CC 03 E8        ...   ldd #03e8
11480 DBED BD E5 71        ..q   jsr e571
11481 DBF0 BD D3 46        ..F   jsr d346
11482 DBF3 83 00 00        ...   subd #0000
11483 DBF6 26 08           &.    bne 08
11484 DBF8 BD D7 83        ...   jsr d783
11485 DBFB 83 00 00        ...   subd #0000
11486 DBFE 27 17           '.    beq 17
11487 DC00 5F              _     clrb
11488 DC01 4F              O     clra
11489 DC02 FD 00 4D        ..M   stad 004d
11490 DC05 FC 00 44        ..D   ldd 0044
11491 DC08 F3 0B B7        ...   addd 0bb7
11492 DC0B 04              .     lsrd
11493 DC0C F3 00 40        ..@   addd 0040
11494 DC0F B3 0B B7        ...   subd 0bb7
11495 DC12 FD 00 40        ..@   stad 0040
11496 DC15 20 78            x    bra 78
11497 DC17 BD D2 13        ...   jsr d213
11498 DC1A 83 00 00        ...   subd #0000
11499 DC1D 26 17           &.    bne 17
11500 DC1F 5F              _     clrb
11501 DC20 4F              O     clra
11502 DC21 FD 00 4D        ..M   stad 004d
11503 DC24 FC 00 44        ..D   ldd 0044
11504 DC27 F3 0B B7        ...   addd 0bb7
11505 DC2A 04              .     lsrd
11506 DC2B F3 00 40        ..@   addd 0040
11507 DC2E B3 0B B7        ...   subd 0bb7
11508 DC31 FD 00 40        ..@   stad 0040
11509 DC34 20 59            Y    bra 59
11510 DC36 FC 0D 09        ...   ldd 0d09
11511 DC39 83 FF FF        ...   subd #ffff
11512 DC3C 26 05           &.    bne 05
11513 DC3E 5F              _     clrb
11514 DC3F 4F              O     clra
11515 DC40 FD 0D 09        ...   stad 0d09
11516 DC43 FE 0D 09        ...   ldx 0d09
11517 DC46 08              .     inx
11518 DC47 FF 0D 09        ...   stx 0d09
11519 DC4A FC 0B B7        ...   ldd 0bb7
11520 DC4D 37              7     pshb
11521 DC4E 36              6     psha
11522 DC4F 4F              O     clra
11523 DC50 5F              _     clrb
11524 DC51 37              7     pshb
11525 DC52 36              6     psha
11526 DC53 CC 0D 13        ...   ldd #0d13
11527 DC56 BD FB DF        ...   jsr fbdf
11528 DC59 31              1     ins
11529 DC5A 31              1     ins
11530 DC5B FE 0D 15        ...   ldx 0d15
11531 DC5E 3C              <     pshx
11532 DC5F FC 0D 13        ...   ldd 0d13
11533 DC62 37              7     pshb
11534 DC63 36              6     psha
11535 DC64 CE E1 00        ...   ldx #e100
11536 DC67 3C              <     pshx
11537 DC68 CC 05 F5        ...   ldd #05f5
11538 DC6B 37              7     pshb
11539 DC6C 36              6     psha
11540 DC6D 30              0     tsx
11541 DC6E EC 06           ..    ldd 06,x
11542 DC70 A3 02           ..    subd 02,x
11543 DC72 EC 04           ..    ldd 04,x
11544 DC74 E2 01           ..    sbcb 01,x
11545 DC76 A2 00           ..    sbca 00,x
11546 DC78 38              8     pulx
11547 DC79 38              8     pulx
11548 DC7A 38              8     pulx
11549 DC7B 38              8     pulx
11550 DC7C 25 11           %.    bcs 11
11551 DC7E CE 1F 00        ...   ldx #1f00
11552 DC81 3C              <     pshx
11553 DC82 CC FA 0A        ...   ldd #fa0a
11554 DC85 37              7     pshb
11555 DC86 36              6     psha
11556 DC87 CC 0D 13        ...   ldd #0d13
11557 DC8A BD FB DF        ...   jsr fbdf
11558 DC8D 31              1     ins
11559 DC8E 31              1     ins
11560 DC8F CE 00 1B        ...   ldx #001b
11561 DC92 1D 00           ..    bclr add,x 00,x
11562 DC94 01              .     nop
11563 DC95 7F 00 4F        ..O   clr 004f
11564 DC98 F6 00 11        ...   ldab 0011
11565 DC9B C4 08           ..    andb #08
11566 DC9D 26 03           &.    bne 03
11567 DC9F BD D9 5A        ..Z   jsr d95a
11568 DCA2 39              9     rts
11569
11570 DCA3 CE 0B BC        ...   ldx #0bbc
11571 DCA6 1D 00           ..    bclr add,x 00,x
11572 DCA8 1C F6           ..    bset add,x f6,x
11573 DCAA 0B              .     sev
11574 DCAB BC C4 03        ...   cmpx c403
11575 DCAE 26 48           &H    bne 48
11576 DCB0 FC 0B BD        ...   ldd 0bbd
11577 DCB3 37              7     pshb
11578 DCB4 36              6     psha
11579 DCB5 4F              O     clra
11580 DCB6 5F              _     clrb
11581 DCB7 37              7     pshb
11582 DCB8 36              6     psha
11583 DCB9 CC 0D F7        ...   ldd #0df7
11584 DCBC BD FB DF        ...   jsr fbdf
11585 DCBF 31              1     ins
11586 DCC0 31              1     ins
11587 DCC1 FE 0D F9        ...   ldx 0df9
11588 DCC4 3C              <     pshx
11589 DCC5 FC 0D F7        ...   ldd 0df7
11590 DCC8 37              7     pshb
11591 DCC9 36              6     psha
11592 DCCA CE E1 00        ...   ldx #e100
11593 DCCD 3C              <     pshx
11594 DCCE CC 05 F5        ...   ldd #05f5
11595 DCD1 37              7     pshb
11596 DCD2 36              6     psha
11597 DCD3 30              0     tsx
11598 DCD4 EC 06           ..    ldd 06,x
11599 DCD6 A3 02           ..    subd 02,x
11600 DCD8 EC 04           ..    ldd 04,x
11601 DCDA E2 01           ..    sbcb 01,x
11602 DCDC A2 00           ..    sbca 00,x
11603 DCDE 38              8     pulx
11604 DCDF 38              8     pulx
11605 DCE0 38              8     pulx
11606 DCE1 38              8     pulx
11607 DCE2 25 11           %.    bcs 11
11608 DCE4 CE 1F 00        ...   ldx #1f00
11609 DCE7 3C              <     pshx
11610 DCE8 CC FA 0A        ...   ldd #fa0a
11611 DCEB 37              7     pshb
11612 DCEC 36              6     psha
11613 DCED CC 0D F7        ...   ldd #0df7
11614 DCF0 BD FB DF        ...   jsr fbdf
11615 DCF3 31              1     ins
11616 DCF4 31              1     ins
11617 DCF5 7E DD D4        ~..   jmp ddd4
11618 DCF8 F6 0B BC        ...   ldab 0bbc
11619 DCFB C4 03           ..    andb #03
11620 DCFD C1 01           ..    cmpb #01
11621 DCFF 27 03           '.    beq 03
11622 DD01 7E DD D4        ~..   jmp ddd4
11623 DD04 F6 0B BC        ...   ldab 0bbc
11624 DD07 C4 E0           ..    andb #e0
11625 DD09 54              T     lsrb
11626 DD0A 54              T     lsrb
11627 DD0B 54              T     lsrb
11628 DD0C 54              T     lsrb
11629 DD0D 54              T     lsrb
11630 DD0E F7 0B BC        ...   stb 0bbc
11631 DD11 F6 0B BC        ...   ldab 0bbc
11632 DD14 F1 0B C4        ...   cmpb 0bc4
11633 DD17 26 33           &3    bne 33
11634 DD19 F6 0B D7        ...   ldab 0bd7
11635 DD1C C1 01           ..    cmpb #01
11636 DD1E 26 0A           &.    bne 0a
11637 DD20 7C 0C DB        |..   inc 0cdb
11638 DD23 C6 03           ..    ldab #03
11639 DD25 F7 00 48        ..H   stb 0048
11640 DD28 20 20                 bra 20
11641 DD2A F6 0B D8        ...   ldab 0bd8
11642 DD2D C1 01           ..    cmpb #01
11643 DD2F 26 0A           &.    bne 0a
11644 DD31 7C 0C DA        |..   inc 0cda
11645 DD34 C6 02           ..    ldab #02
11646 DD36 F7 00 48        ..H   stb 0048
11647 DD39 20 0F            .    bra 0f
11648 DD3B F6 0B D9        ...   ldab 0bd9
11649 DD3E C1 01           ..    cmpb #01
11650 DD40 26 08           &.    bne 08
11651 DD42 7C 0C D9        |..   inc 0cd9
11652 DD45 C6 01           ..    ldab #01
11653 DD47 F7 00 48        ..H   stb 0048
11654 DD4A 20 74            t    bra 74
11655 DD4C F6 0B BC        ...   ldab 0bbc
11656 DD4F F1 0B C5        ...   cmpb 0bc5
11657 DD52 26 33           &3    bne 33
11658 DD54 F6 0B D7        ...   ldab 0bd7
11659 DD57 C1 04           ..    cmpb #04
11660 DD59 26 0A           &.    bne 0a
11661 DD5B 7C 0C DB        |..   inc 0cdb
11662 DD5E C6 03           ..    ldab #03
11663 DD60 F7 00 48        ..H   stb 0048
11664 DD63 20 20                 bra 20
11665 DD65 F6 0B D8        ...   ldab 0bd8
11666 DD68 C1 04           ..    cmpb #04
11667 DD6A 26 0A           &.    bne 0a
11668 DD6C 7C 0C DA        |..   inc 0cda
11669 DD6F C6 02           ..    ldab #02
11670 DD71 F7 00 48        ..H   stb 0048
11671 DD74 20 0F            .    bra 0f
11672 DD76 F6 0B D9        ...   ldab 0bd9
11673 DD79 C1 04           ..    cmpb #04
11674 DD7B 26 08           &.    bne 08
11675 DD7D 7C 0C D9        |..   inc 0cd9
11676 DD80 C6 01           ..    ldab #01
11677 DD82 F7 00 48        ..H   stb 0048
11678 DD85 20 39            9    bra 39
11679 DD87 F6 0B BC        ...   ldab 0bbc
11680 DD8A F1 0B C6        ...   cmpb 0bc6
11681 DD8D 26 31           &1    bne 31
11682 DD8F F6 0B D7        ...   ldab 0bd7
11683 DD92 C1 02           ..    cmpb #02
11684 DD94 26 0A           &.    bne 0a
11685 DD96 7C 0C DB        |..   inc 0cdb
11686 DD99 C6 03           ..    ldab #03
11687 DD9B F7 00 48        ..H   stb 0048
11688 DD9E 20 20                 bra 20
11689 DDA0 F6 0B D8        ...   ldab 0bd8
11690 DDA3 C1 02           ..    cmpb #02
11691 DDA5 26 0A           &.    bne 0a
11692 DDA7 7C 0C DA        |..   inc 0cda
11693 DDAA C6 02           ..    ldab #02
11694 DDAC F7 00 48        ..H   stb 0048
11695 DDAF 20 0F            .    bra 0f
11696 DDB1 F6 0B D9        ...   ldab 0bd9
11697 DDB4 C1 02           ..    cmpb #02
11698 DDB6 26 08           &.    bne 08
11699 DDB8 7C 0C D9        |..   inc 0cd9
11700 DDBB C6 01           ..    ldab #01
11701 DDBD F7 00 48        ..H   stb 0048
11702 DDC0 F6 00 17        ...   ldab 0017
11703 DDC3 C4 08           ..    andb #08
11704 DDC5 26 0D           &.    bne 0d
11705 DDC7 F6 0B BC        ...   ldab 0bbc
11706 DDCA 26 08           &.    bne 08
11707 DDCC 7C 0C DC        |..   inc 0cdc
11708 DDCF C6 04           ..    ldab #04
11709 DDD1 F7 00 48        ..H   stb 0048
11710 DDD4 39              9     rts
11711
11712 DDD5 BD BE 69        ..i   jsr be69
11713 DDD8 C6 03           ..    ldab #03
11714 DDDA F7 00 1C        ...   stb 001c
11715 DDDD F6 00 1C        ...   ldab 001c
11716 DDE0 C1 0D           ..    cmpb #0d
11717 DDE2 24 1C           $.    bcc 1c
11718 DDE4 F6 00 1C        ...   ldab 001c
11719 DDE7 4F              O     clra
11720 DDE8 C3 0C B9        ...   addd #0cb9
11721 DDEB 8F              .     xgdx
11722 DDEC E6 00           ..    ldab 00,x
11723 DDEE 37              7     pshb
11724 DDEF CC 0B 9C        ...   ldd #0b9c
11725 DDF2 F0 00 1C        ...   subb 001c
11726 DDF5 82 00           ..    sbca #00
11727 DDF7 8F              .     xgdx
11728 DDF8 33              3     pulb
11729 DDF9 E7 00           ..    stb 00,x
11730 DDFB 7C 00 1C        |..   inc 001c
11731 DDFE 20 DD            .    bra dd
11732 DE00 BD BE 10        ...   jsr be10
11733 DE03 C6 14           ..    ldab #14
11734 DE05 F7 00 2C        ..,   stb 002c
11735 DE08 39              9     rts
11736
11737 DE09 CC 0B 9A        ...   ldd #0b9a
11738 DE0C BD C0 BA        ...   jsr c0ba
11739 DE0F C6 14           ..    ldab #14
11740 DE11 F7 00 2C        ..,   stb 002c
11741 DE14 39              9     rts
11742
11743 DE15 F6 00 1B        ...   ldab 001b
11744 DE18 C4 01           ..    andb #01
11745 DE1A 26 03           &.    bne 03
11746 DE1C 7E DE A4        ~..   jmp dea4
11747 DE1F F6 00 06        ...   ldab 0006
11748 DE22 4F              O     clra
11749 DE23 05              .     asld
11750 DE24 C3 08 C8        ...   addd #08c8
11751 DE27 8F              .     xgdx
11752 DE28 EC 00           ..    ldd 00,x
11753 DE2A 84 08           ..    anda #08
11754 DE2C 27 76           'v    beq 76
11755 DE2E F6 00 11        ...   ldab 0011
11756 DE31 C4 08           ..    andb #08
11757 DE33 26 33           &3    bne 33
11758 DE35 F6 00 06        ...   ldab 0006
11759 DE38 F1 0B AF        ...   cmpb 0baf
11760 DE3B 27 20           '     beq 20
11761 DE3D F6 00 06        ...   ldab 0006
11762 DE40 F1 0B AE        ...   cmpb 0bae
11763 DE43 27 18           '.    beq 18
11764 DE45 F6 00 06        ...   ldab 0006
11765 DE48 F1 0B AD        ...   cmpb 0bad
11766 DE4B 27 10           '.    beq 10
11767 DE4D F6 00 06        ...   ldab 0006
11768 DE50 F1 0B AC        ...   cmpb 0bac
11769 DE53 27 08           '.    beq 08
11770 DE55 F6 00 06        ...   ldab 0006
11771 DE58 F1 0B AB        ...   cmpb 0bab
11772 DE5B 26 0B           &.    bne 0b
11773 DE5D CE 00 1B        ...   ldx #001b
11774 DE60 1D 00           ..    bclr add,x 00,x
11775 DE62 01              .     nop
11776 DE63 7F 00 4F        ..O   clr 004f
11777 DE66 20 3C            <    bra 3c
11778 DE68 FC 00 44        ..D   ldd 0044
11779 DE6B B3 0B B7        ...   subd 0bb7
11780 DE6E 23 2B           #+    bls 2b
11781 DE70 FC 00 40        ..@   ldd 0040
11782 DE73 F3 00 3E        ..>   addd 003e
11783 DE76 37              7     pshb
11784 DE77 36              6     psha
11785 DE78 FC 00 44        ..D   ldd 0044
11786 DE7B B3 0B B7        ...   subd 0bb7
11787 DE7E F3 00 44        ..D   addd 0044
11788 DE81 30              0     tsx
11789 DE82 A3 00           ..    subd 00,x
11790 DE84 31              1     ins
11791 DE85 31              1     ins
11792 DE86 22 13           ".    bhi 13
11793 DE88 FC 0B B7        ...   ldd 0bb7
11794 DE8B 27 0E           '.    beq 0e
11795 DE8D FC 00 44        ..D   ldd 0044
11796 DE90 B3 0B B7        ...   subd 0bb7
11797 DE93 F3 00 44        ..D   addd 0044
11798 DE96 FD 00 44        ..D   stad 0044
11799 DE99 20 09            .    bra 09
11800 DE9B CE 00 1B        ...   ldx #001b
11801 DE9E 1D 00           ..    bclr add,x 00,x
11802 DEA0 01              .     nop
11803 DEA1 7F 00 4F        ..O   clr 004f
11804 DEA4 39              9     rts
11805
11806 DEA5 F6 00 2B        ..+   ldab 002b
11807 DEA8 C1 00           ..    cmpb #00
11808 DEAA 26 0D           &.    bne 0d
11809 DEAC CE 00 12        ...   ldx #0012
11810 DEAF 3C              <     pshx
11811 DEB0 CC AE 7E        ..~   ldd #ae7e
11812 DEB3 BD C0 2E        ...   jsr c02e
11813 DEB6 38              8     pulx
11814 DEB7 20 2D            -    bra 2d
11815 DEB9 C1 01           ..    cmpb #01
11816 DEBB 26 0D           &.    bne 0d
11817 DEBD CE 00 0F        ...   ldx #000f
11818 DEC0 3C              <     pshx
11819 DEC1 CC AE 6D        ..m   ldd #ae6d
11820 DEC4 BD C0 2E        ...   jsr c02e
11821 DEC7 38              8     pulx
11822 DEC8 20 1C            .    bra 1c
11823 DECA C1 02           ..    cmpb #02
11824 DECC 26 0D           &.    bne 0d
11825 DECE CE 00 10        ...   ldx #0010
11826 DED1 3C              <     pshx
11827 DED2 CC AE 5B        ..[   ldd #ae5b
11828 DED5 BD C0 2E        ...   jsr c02e
11829 DED8 38              8     pulx
11830 DED9 20 0B            .    bra 0b
11831 DEDB CE 00 15        ...   ldx #0015
11832 DEDE 3C              <     pshx
11833 DEDF CC AE 44        ..D   ldd #ae44
11834 DEE2 BD C0 2E        ...   jsr c02e
11835 DEE5 38              8     pulx
11836 DEE6 39              9     rts
11837
11838 DEE7 F6 0B C0        ...   ldab 0bc0
11839 DEEA C4 01           ..    andb #01
11840 DEEC 26 07           &.    bne 07
11841 DEEE F6 0B C0        ...   ldab 0bc0
11842 DEF1 C4 04           ..    andb #04
11843 DEF3 27 15           '.    beq 15
11844 DEF5 C6 FF           ..    ldab #ff
11845 DEF7 F7 0B BC        ...   stb 0bbc
11846 DEFA F6 00 15        ...   ldab 0015
11847 DEFD 2D 03           -.    blt 03
11848 DEFF BD C6 7D        ..}   jsr c67d
11849 DF02 BD D6 6B        ..k   jsr d66b
11850 DF05 BD DC A3        ...   jsr dca3
11851 DF08 20 25            %    bra 25
11852 DF0A F6 0B C0        ...   ldab 0bc0
11853 DF0D C4 02           ..    andb #02
11854 DF0F 27 1E           '.    beq 1e
11855 DF11 F6 00 2F        ../   ldab 002f
11856 DF14 26 19           &.    bne 19
11857 DF16 F6 00 1B        ...   ldab 001b
11858 DF19 C4 02           ..    andb #02
11859 DF1B 26 12           &.    bne 12
11860 DF1D CC 00 FF        ...   ldd #00ff
11861 DF20 BD C7 E7        ...   jsr c7e7
11862 DF23 CE 00 1B        ...   ldx #001b
11863 DF26 1C 00           ..    bset add,x 00,x
11864 DF28 02              .     idiv
11865 DF29 CE 0B C1        ...   ldx #0bc1
11866 DF2C 1C 00           ..    bset add,x 00,x
11867 DF2E 04              .     lsrd
11868 DF2F F6 00 21        ..!   ldab 0021
11869 DF32 C4 20           .     andb #20
11870 DF34 27 07           '.    beq 07
11871 DF36 BD D6 52        ..R   jsr d652
11872 DF39 BD DE A5        ...   jsr dea5
11873 DF3C 39              9     rts
11874
11875 DF3D F6 00 4F        ..O   ldab 004f
11876 DF40 26 06           &.    bne 06
11877 DF42 CE 00 1B        ...   ldx #001b
11878 DF45 1D 00           ..    bclr add,x 00,x
11879 DF47 01              .     nop
11880 DF48 F6 00 25        ..%   ldab 0025
11881 DF4B 26 20           &     bne 20
11882 DF4D F6 00 1B        ...   ldab 001b
11883 DF50 C4 40           .@    andb #40
11884 DF52 27 19           '.    beq 19
11885 DF54 BD D6 52        ..R   jsr d652
11886 DF57 FC 00 40        ..@   ldd 0040
11887 DF5A 26 05           &.    bne 05
11888 DF5C FC 00 3E        ..>   ldd 003e
11889 DF5F 27 03           '.    beq 03
11890 DF61 BD DB 44        ..D   jsr db44
11891 DF64 BD D6 6B        ..k   jsr d66b
11892 DF67 CE 00 1B        ...   ldx #001b
11893 DF6A 1D 00           ..    bclr add,x 00,x
11894 DF6C 40              @     nega
11895 DF6D F6 00 2C        ..,   ldab 002c
11896 DF70 27 03           '.    beq 03
11897 DF72 7E E0 66        ~.f   jmp e066
11898 DF75 F6 00 34        ..4   ldab 0034
11899 DF78 26 0B           &.    bne 0b
11900 DF7A BD BE 69        ..i   jsr be69
11901 DF7D C6 32           .2    ldab #32
11902 DF7F F7 00 34        ..4   stb 0034
11903 DF82 7E E0 63        ~.c   jmp e063
11904 DF85 FC 00 40        ..@   ldd 0040
11905 DF88 26 05           &.    bne 05
11906 DF8A FC 00 3E        ..>   ldd 003e
11907 DF8D 27 16           '.    beq 16
11908 DF8F CE 00 01        ...   ldx #0001
11909 DF92 3C              <     pshx
11910 DF93 FC 00 40        ..@   ldd 0040
11911 DF96 F3 00 3E        ..>   addd 003e
11912 DF99 BD BE 9E        ...   jsr be9e
11913 DF9C 38              8     pulx
11914 DF9D C6 05           ..    ldab #05
11915 DF9F F7 00 2C        ..,   stb 002c
11916 DFA2 7E E0 63        ~.c   jmp e063
11917 DFA5 F6 0C D9        ...   ldab 0cd9
11918 DFA8 C1 04           ..    cmpb #04
11919 DFAA 24 07           $.    bcc 07
11920 DFAC F6 0B C0        ...   ldab 0bc0
11921 DFAF C4 01           ..    andb #01
11922 DFB1 26 07           &.    bne 07
11923 DFB3 F6 00 21        ..!   ldab 0021
11924 DFB6 C4 40           .@    andb #40
11925 DFB8 27 43           'C    beq 43
11926 DFBA F6 00 2B        ..+   ldab 002b
11927 DFBD C1 00           ..    cmpb #00
11928 DFBF 26 0D           &.    bne 0d
11929 DFC1 CE 00 19        ...   ldx #0019
11930 DFC4 3C              <     pshx
11931 DFC5 CC AD E7        ...   ldd #ade7
11932 DFC8 BD C0 2E        ...   jsr c02e
11933 DFCB 38              8     pulx
11934 DFCC 20 2D            -    bra 2d
11935 DFCE C1 01           ..    cmpb #01
11936 DFD0 26 0D           &.    bne 0d
11937 DFD2 CE 00 12        ...   ldx #0012
11938 DFD5 3C              <     pshx
11939 DFD6 CC AD D3        ...   ldd #add3
11940 DFD9 BD C0 2E        ...   jsr c02e
11941 DFDC 38              8     pulx
11942 DFDD 20 1C            .    bra 1c
11943 DFDF C1 02           ..    cmpb #02
11944 DFE1 26 0D           &.    bne 0d
11945 DFE3 CE 00 19        ...   ldx #0019
11946 DFE6 3C              <     pshx
11947 DFE7 CC AD B8        ...   ldd #adb8
11948 DFEA BD C0 2E        ...   jsr c02e
11949 DFED 38              8     pulx
11950 DFEE 20 0B            .    bra 0b
11951 DFF0 CE 00 11        ...   ldx #0011
11952 DFF3 3C              <     pshx
11953 DFF4 CC AD A5        ...   ldd #ada5
11954 DFF7 BD C0 2E        ...   jsr c02e
11955 DFFA 38              8     pulx
11956 DFFB 20 66            f    bra 66
11957 DFFD F6 0B C0        ...   ldab 0bc0
11958 E000 C4 08           ..    andb #08
11959 E002 27 52           'R    beq 52
11960 E004 F6 0B C1        ...   ldab 0bc1
11961 E007 C4 08           ..    andb #08
11962 E009 26 08           &.    bne 08
11963 E00B FC 0B EF        ...   ldd 0bef
11964 E00E 83 00 64        ..d   subd #0064
11965 E011 24 43           $C    bcc 43
11966 E013 F6 00 2B        ..+   ldab 002b
11967 E016 C1 00           ..    cmpb #00
11968 E018 26 0D           &.    bne 0d
11969 E01A CE 00 12        ...   ldx #0012
11970 E01D 3C              <     pshx
11971 E01E CC AE 30        ..0   ldd #ae30
11972 E021 BD C0 2E        ...   jsr c02e
11973 E024 38              8     pulx
11974 E025 20 2D            -    bra 2d
11975 E027 C1 01           ..    cmpb #01
11976 E029 26 0D           &.    bne 0d
11977 E02B CE 00 0B        ...   ldx #000b
11978 E02E 3C              <     pshx
11979 E02F CC AE 23        ..#   ldd #ae23
11980 E032 BD C0 2E        ...   jsr c02e
11981 E035 38              8     pulx
11982 E036 20 1C            .    bra 1c
11983 E038 C1 02           ..    cmpb #02
11984 E03A 26 0D           &.    bne 0d
11985 E03C CE 00 12        ...   ldx #0012
11986 E03F 3C              <     pshx
11987 E040 CC AE 0F        ...   ldd #ae0f
11988 E043 BD C0 2E        ...   jsr c02e
11989 E046 38              8     pulx
11990 E047 20 0B            .    bra 0b
11991 E049 CE 00 0B        ...   ldx #000b
11992 E04C 3C              <     pshx
11993 E04D CC AE 02        ...   ldd #ae02
11994 E050 BD C0 2E        ...   jsr c02e
11995 E053 38              8     pulx
11996 E054 20 0D            .    bra 0d
11997 E056 F6 0B BF        ...   ldab 0bbf
11998 E059 4F              O     clra
11999 E05A 37              7     pshb
12000 E05B 36              6     psha
12001 E05C CC 09 93        ...   ldd #0993
12002 E05F BD C0 2E        ...   jsr c02e
12003 E062 38              8     pulx
12004 E063 7E E5 6A        ~.j   jmp e56a
12005 E066 F6 00 06        ...   ldab 0006
12006 E069 26 03           &.    bne 03
12007 E06B 7E E5 6A        ~.j   jmp e56a
12008 E06E CE 00 1D        ...   ldx #001d
12009 E071 1C 00           ..    bset add,x 00,x
12010 E073 40              @     nega
12011 E074 BD E7 C7        ...   jsr e7c7
12012 E077 F6 00 06        ...   ldab 0006
12013 E07A C1 59           .Y    cmpb #59
12014 E07C 26 06           &.    bne 06
12015 E07E BD DE 09        ...   jsr de09
12016 E081 7E E5 5E        ~.^   jmp e55e
12017 E084 F6 00 06        ...   ldab 0006
12018 E087 BD D4 68        ..h   jsr d468
12019 E08A 83 00 00        ...   subd #0000
12020 E08D 27 18           '.    beq 18
12021 E08F BD D5 61        ..a   jsr d561
12022 E092 83 00 00        ...   subd #0000
12023 E095 26 10           &.    bne 10
12024 E097 BD D3 46        ..F   jsr d346
12025 E09A 83 00 00        ...   subd #0000
12026 E09D 26 08           &.    bne 08
12027 E09F BD D7 83        ...   jsr d783
12028 E0A2 83 00 00        ...   subd #0000
12029 E0A5 27 09           '.    beq 09
12030 E0A7 BD E5 D1        ...   jsr e5d1
12031 E0AA BD D8 E9        ...   jsr d8e9
12032 E0AD 7E E5 5E        ~.^   jmp e55e
12033 E0B0 F6 00 06        ...   ldab 0006
12034 E0B3 4F              O     clra
12035 E0B4 05              .     asld
12036 E0B5 C3 08 00        ...   addd #0800
12037 E0B8 8F              .     xgdx
12038 E0B9 EC 00           ..    ldd 00,x
12039 E0BB C4 FF           ..    andb #ff
12040 E0BD 84 3F           .?    anda #3f
12041 E0BF FD 00 44        ..D   stad 0044
12042 E0C2 F6 00 06        ...   ldab 0006
12043 E0C5 4F              O     clra
12044 E0C6 05              .     asld
12045 E0C7 C3 08 C8        ...   addd #08c8
12046 E0CA 8F              .     xgdx
12047 E0CB EC 00           ..    ldd 00,x
12048 E0CD C4 7F           ..    andb #7f
12049 E0CF 4F              O     clra
12050 E0D0 FD 00 4D        ..M   stad 004d
12051 E0D3 F6 0B C0        ...   ldab 0bc0
12052 E0D6 2C 05           ,.    bge 05
12053 E0D8 5F              _     clrb
12054 E0D9 4F              O     clra
12055 E0DA FD 00 44        ..D   stad 0044
12056 E0DD F6 0B C0        ...   ldab 0bc0
12057 E0E0 C4 02           ..    andb #02
12058 E0E2 26 03           &.    bne 03
12059 E0E4 BD DE 15        ...   jsr de15
12060 E0E7 F6 00 11        ...   ldab 0011
12061 E0EA C4 20           .     andb #20
12062 E0EC 26 1A           &.    bne 1a
12063 E0EE F6 0B C0        ...   ldab 0bc0
12064 E0F1 C4 02           ..    andb #02
12065 E0F3 26 13           &.    bne 13
12066 E0F5 FC 00 40        ..@   ldd 0040
12067 E0F8 F3 00 3E        ..>   addd 003e
12068 E0FB B3 00 44        ..D   subd 0044
12069 E0FE 25 08           %.    bcs 08
12070 E100 F6 0B C0        ...   ldab 0bc0
12071 E103 2D 03           -.    blt 03
12072 E105 BD DA 64        ..d   jsr da64
12073 E108 FC 00 40        ..@   ldd 0040
12074 E10B F3 00 3E        ..>   addd 003e
12075 E10E B3 00 44        ..D   subd 0044
12076 E111 24 50           $P    bcc 50
12077 E113 F6 0B C0        ...   ldab 0bc0
12078 E116 C4 10           ..    andb #10
12079 E118 26 49           &I    bne 49
12080 E11A F6 00 2B        ..+   ldab 002b
12081 E11D C1 00           ..    cmpb #00
12082 E11F 26 08           &.    bne 08
12083 E121 CC AC C9        ...   ldd #acc9
12084 E124 BD C0 BA        ...   jsr c0ba
12085 E127 20 1E            .    bra 1e
12086 E129 C1 01           ..    cmpb #01
12087 E12B 26 08           &.    bne 08
12088 E12D CC AC BE        ...   ldd #acbe
12089 E130 BD C0 BA        ...   jsr c0ba
12090 E133 20 12            .    bra 12
12091 E135 C1 02           ..    cmpb #02
12092 E137 26 08           &.    bne 08
12093 E139 CC AC B3        ...   ldd #acb3
12094 E13C BD C0 BA        ...   jsr c0ba
12095 E13F 20 06            .    bra 06
12096 E141 CC AC A8        ...   ldd #aca8
12097 E144 BD C0 BA        ...   jsr c0ba
12098 E147 BD D8 D3        ...   jsr d8d3
12099 E14A CE 00 00        ...   ldx #0000
12100 E14D 3C              <     pshx
12101 E14E FC 00 44        ..D   ldd 0044
12102 E151 BD BE 9E        ...   jsr be9e
12103 E154 38              8     pulx
12104 E155 BD E5 D1        ...   jsr e5d1
12105 E158 BD D8 D3        ...   jsr d8d3
12106 E15B C6 0C           ..    ldab #0c
12107 E15D F7 00 2C        ..,   stb 002c
12108 E160 7E E5 5E        ~.^   jmp e55e
12109 E163 F6 0B C0        ...   ldab 0bc0
12110 E166 C4 01           ..    andb #01
12111 E168 26 11           &.    bne 11
12112 E16A F6 0B C0        ...   ldab 0bc0
12113 E16D C4 04           ..    andb #04
12114 E16F 26 0A           &.    bne 0a
12115 E171 F6 0B C0        ...   ldab 0bc0
12116 E174 C4 0F           ..    andb #0f
12117 E176 27 03           '.    beq 03
12118 E178 7E E3 35        ~.5   jmp e335
12119 E17B FC 00 40        ..@   ldd 0040
12120 E17E F3 00 3E        ..>   addd 003e
12121 E181 B3 00 44        ..D   subd 0044
12122 E184 FD 10 16        ...   stad 1016
12123 E187 F6 00 15        ...   ldab 0015
12124 E18A C4 01           ..    andb #01
12125 E18C 27 08           '.    beq 08
12126 E18E FC 10 16        ...   ldd 1016
12127 E191 83 00 64        ..d   subd #0064
12128 E194 25 3C           %<    bcs 3c
12129 E196 F6 00 15        ...   ldab 0015
12130 E199 C4 02           ..    andb #02
12131 E19B 27 08           '.    beq 08
12132 E19D FC 10 16        ...   ldd 1016
12133 E1A0 83 00 C8        ...   subd #00c8
12134 E1A3 25 2D           %-    bcs 2d
12135 E1A5 F6 00 15        ...   ldab 0015
12136 E1A8 C4 04           ..    andb #04
12137 E1AA 27 08           '.    beq 08
12138 E1AC FC 10 16        ...   ldd 1016
12139 E1AF 83 01 F4        ...   subd #01f4
12140 E1B2 25 1E           %.    bcs 1e
12141 E1B4 F6 00 15        ...   ldab 0015
12142 E1B7 C4 08           ..    andb #08
12143 E1B9 27 08           '.    beq 08
12144 E1BB FC 10 16        ...   ldd 1016
12145 E1BE 83 03 E8        ...   subd #03e8
12146 E1C1 25 0F           %.    bcs 0f
12147 E1C3 F6 00 15        ...   ldab 0015
12148 E1C6 C4 10           ..    andb #10
12149 E1C8 27 13           '.    beq 13
12150 E1CA FC 10 16        ...   ldd 1016
12151 E1CD 83 07 D0        ...   subd #07d0
12152 E1D0 24 0B           $.    bcc 0b
12153 E1D2 BD C0 E0        ...   jsr c0e0
12154 E1D5 83 00 00        ...   subd #0000
12155 E1D8 26 01           &.    bne 01
12156 E1DA 39              9     rts
12157
12158 E1DB 20 03            .    bra 03
12159 E1DD BD C5 D3        ...   jsr c5d3
12160 E1E0 BD D6 52        ..R   jsr d652
12161 E1E3 FC 00 40        ..@   ldd 0040
12162 E1E6 B3 00 44        ..D   subd 0044
12163 E1E9 F3 00 3E        ..>   addd 003e
12164 E1EC FD 00 40        ..@   stad 0040
12165 E1EF 5F              _     clrb
12166 E1F0 4F              O     clra
12167 E1F1 FD 00 3E        ..>   stad 003e
12168 E1F4 CE 00 1B        ...   ldx #001b
12169 E1F7 1C 00           ..    bset add,x 00,x
12170 E1F9 80 BD           ..    suba #bd
12171 E1FB D2 13 83        ...   sbcb 13
12172 E1FE 00              .     test
12173 E1FF 00              .     test
12174 E200 26 12           &.    bne 12
12175 E202 BD E5 D1        ...   jsr e5d1
12176 E205 BD D8 E9        ...   jsr d8e9
12177 E208 FC 00 40        ..@   ldd 0040
12178 E20B F3 00 44        ..D   addd 0044
12179 E20E FD 00 40        ..@   stad 0040
12180 E211 7E E3 29        ~.)   jmp e329
12181 E214 BD DB CB        ...   jsr dbcb
12182 E217 F6 00 1B        ...   ldab 001b
12183 E21A C4 20           .     andb #20
12184 E21C 27 45           'E    beq 45
12185 E21E FC 00 44        ..D   ldd 0044
12186 E221 37              7     pshb
12187 E222 36              6     psha
12188 E223 4F              O     clra
12189 E224 5F              _     clrb
12190 E225 37              7     pshb
12191 E226 36              6     psha
12192 E227 CC 0D FB        ...   ldd #0dfb
12193 E22A BD FB DF        ...   jsr fbdf
12194 E22D 31              1     ins
12195 E22E 31              1     ins
12196 E22F FE 0D FD        ...   ldx 0dfd
12197 E232 3C              <     pshx
12198 E233 FC 0D FB        ...   ldd 0dfb
12199 E236 37              7     pshb
12200 E237 36              6     psha
12201 E238 CE E1 00        ...   ldx #e100
12202 E23B 3C              <     pshx
12203 E23C CC 05 F5        ...   ldd #05f5
12204 E23F 37              7     pshb
12205 E240 36              6     psha
12206 E241 30              0     tsx
12207 E242 EC 06           ..    ldd 06,x
12208 E244 A3 02           ..    subd 02,x
12209 E246 EC 04           ..    ldd 04,x
12210 E248 E2 01           ..    sbcb 01,x
12211 E24A A2 00           ..    sbca 00,x
12212 E24C 38              8     pulx
12213 E24D 38              8     pulx
12214 E24E 38              8     pulx
12215 E24F 38              8     pulx
12216 E250 25 11           %.    bcs 11
12217 E252 CE 1F 00        ...   ldx #1f00
12218 E255 3C              <     pshx
12219 E256 CC FA 0A        ...   ldd #fa0a
12220 E259 37              7     pshb
12221 E25A 36              6     psha
12222 E25B CC 0D FB        ...   ldd #0dfb
12223 E25E BD FB DF        ...   jsr fbdf
12224 E261 31              1     ins
12225 E262 31              1     ins
12226 E263 F6 0B C0        ...   ldab 0bc0
12227 E266 2C 78           ,x    bge 78
12228 E268 F6 00 06        ...   ldab 0006
12229 E26B 4F              O     clra
12230 E26C 05              .     asld
12231 E26D C3 08 00        ...   addd #0800
12232 E270 8F              .     xgdx
12233 E271 EC 00           ..    ldd 00,x
12234 E273 C4 FF           ..    andb #ff
12235 E275 26 02           &.    bne 02
12236 E277 84 3F           .?    anda #3f
12237 E279 27 65           'e    beq 65
12238 E27B FC 0D 0D        ...   ldd 0d0d
12239 E27E 83 FF FF        ...   subd #ffff
12240 E281 26 05           &.    bne 05
12241 E283 5F              _     clrb
12242 E284 4F              O     clra
12243 E285 FD 0D 0D        ...   stad 0d0d
12244 E288 FE 0D 0D        ...   ldx 0d0d
12245 E28B 08              .     inx
12246 E28C FF 0D 0D        ...   stx 0d0d
12247 E28F F6 00 06        ...   ldab 0006
12248 E292 4F              O     clra
12249 E293 05              .     asld
12250 E294 C3 08 00        ...   addd #0800
12251 E297 8F              .     xgdx
12252 E298 EC 00           ..    ldd 00,x
12253 E29A C4 FF           ..    andb #ff
12254 E29C 84 3F           .?    anda #3f
12255 E29E 37              7     pshb
12256 E29F 36              6     psha
12257 E2A0 4F              O     clra
12258 E2A1 5F              _     clrb
12259 E2A2 37              7     pshb
12260 E2A3 36              6     psha
12261 E2A4 CC 0D 1B        ...   ldd #0d1b
12262 E2A7 BD FB DF        ...   jsr fbdf
12263 E2AA 31              1     ins
12264 E2AB 31              1     ins
12265 E2AC FE 0D 1D        ...   ldx 0d1d
12266 E2AF 3C              <     pshx
12267 E2B0 FC 0D 1B        ...   ldd 0d1b
12268 E2B3 37              7     pshb
12269 E2B4 36              6     psha
12270 E2B5 CE E1 00        ...   ldx #e100
12271 E2B8 3C              <     pshx
12272 E2B9 CC 05 F5        ...   ldd #05f5
12273 E2BC 37              7     pshb
12274 E2BD 36              6     psha
12275 E2BE 30              0     tsx
12276 E2BF EC 06           ..    ldd 06,x
12277 E2C1 A3 02           ..    subd 02,x
12278 E2C3 EC 04           ..    ldd 04,x
12279 E2C5 E2 01           ..    sbcb 01,x
12280 E2C7 A2 00           ..    sbca 00,x
12281 E2C9 38              8     pulx
12282 E2CA 38              8     pulx
12283 E2CB 38              8     pulx
12284 E2CC 38              8     pulx
12285 E2CD 25 11           %.    bcs 11
12286 E2CF CE 1F 00        ...   ldx #1f00
12287 E2D2 3C              <     pshx
12288 E2D3 CC FA 0A        ...   ldd #fa0a
12289 E2D6 37              7     pshb
12290 E2D7 36              6     psha
12291 E2D8 CC 0D 1B        ...   ldd #0d1b
12292 E2DB BD FB DF        ...   jsr fbdf
12293 E2DE 31              1     ins
12294 E2DF 31              1     ins
12295 E2E0 F6 00 11        ...   ldab 0011
12296 E2E3 C4 10           ..    andb #10
12297 E2E5 26 14           &.    bne 14
12298 E2E7 FC 00 40        ..@   ldd 0040
12299 E2EA 27 0F           '.    beq 0f
12300 E2EC FC 00 40        ..@   ldd 0040
12301 E2EF B3 00 50        ..P   subd 0050
12302 E2F2 24 15           $.    bcc 15
12303 E2F4 F6 00 11        ...   ldab 0011
12304 E2F7 C4 10           ..    andb #10
12305 E2F9 26 0E           &.    bne 0e
12306 E2FB BD DB 44        ..D   jsr db44
12307 E2FE CE 00 1B        ...   ldx #001b
12308 E301 1D 00           ..    bclr add,x 00,x
12309 E303 40              @     nega
12310 E304 7F 00 25        ..%   clr 0025
12311 E307 20 1A            .    bra 1a
12312 E309 7F 00 2C        ..,   clr 002c
12313 E30C CC 01 F4        ...   ldd #01f4
12314 E30F BD E5 71        ..q   jsr e571
12315 E312 BD E5 AA        ...   jsr e5aa
12316 E315 BD D8 E9        ...   jsr d8e9
12317 E318 CE 00 1B        ...   ldx #001b
12318 E31B 1C 00           ..    bset add,x 00,x
12319 E31D 40              @     nega
12320 E31E C6 0A           ..    ldab #0a
12321 E320 F7 00 25        ..%   stb 0025
12322 E323 BD D7 FF        ...   jsr d7ff
12323 E326 BD D8 40        ..@   jsr d840
12324 E329 BD E8 9A        ...   jsr e89a
12325 E32C CE 0B C1        ...   ldx #0bc1
12326 E32F 1D 00           ..    bclr add,x 00,x
12327 E331 08              .     inx
12328 E332 7E E5 5E        ~.^   jmp e55e
12329 E335 F6 0B C0        ...   ldab 0bc0
12330 E338 C4 02           ..    andb #02
12331 E33A 26 03           &.    bne 03
12332 E33C 7E E5 5E        ~.^   jmp e55e
12333 E33F 5F              _     clrb
12334 E340 4F              O     clra
12335 E341 FD 00 76        ..v   stad 0076
12336 E344 CE 00 17        ...   ldx #0017
12337 E347 1D 00           ..    bclr add,x 00,x
12338 E349 01              .     nop
12339 E34A CE 00 17        ...   ldx #0017
12340 E34D 1D 00           ..    bclr add,x 00,x
12341 E34F 02              .     idiv
12342 E350 FC 00 44        ..D   ldd 0044
12343 E353 26 1C           &.    bne 1c
12344 E355 F6 0B C0        ...   ldab 0bc0
12345 E358 C4 10           ..    andb #10
12346 E35A 26 08           &.    bne 08
12347 E35C CE 00 21        ..!   ldx #0021
12348 E35F 1C 00           ..    bset add,x 00,x
12349 E361 80 20           .     suba #20
12350 E363 0B              .     sev
12351 E364 CE 00 21        ..!   ldx #0021
12352 E367 1D 00           ..    bclr add,x 00,x
12353 E369 80 C6           ..    suba #c6
12354 E36B 05              .     asld
12355 E36C F7 00 75        ..u   stb 0075
12356 E36F 20 57            W    bra 57
12357 E371 F6 0B C0        ...   ldab 0bc0
12358 E374 C4 10           ..    andb #10
12359 E376 27 50           'P    beq 50
12360 E378 FC 00 40        ..@   ldd 0040
12361 E37B 26 4B           &K    bne 4b
12362 E37D F6 0B C0        ...   ldab 0bc0
12363 E380 C4 20           .     andb #20
12364 E382 27 3E           '>    beq 3e
12365 E384 CE 00 17        ...   ldx #0017
12366 E387 1C 00           ..    bset add,x 00,x
12367 E389 01              .     nop
12368 E38A F6 00 2B        ..+   ldab 002b
12369 E38D C1 00           ..    cmpb #00
12370 E38F 26 08           &.    bne 08
12371 E391 CC AC C9        ...   ldd #acc9
12372 E394 BD C0 BA        ...   jsr c0ba
12373 E397 20 1E            .    bra 1e
12374 E399 C1 01           ..    cmpb #01
12375 E39B 26 08           &.    bne 08
12376 E39D CC AC BE        ...   ldd #acbe
12377 E3A0 BD C0 BA        ...   jsr c0ba
12378 E3A3 20 12            .    bra 12
12379 E3A5 C1 02           ..    cmpb #02
12380 E3A7 26 08           &.    bne 08
12381 E3A9 CC AC B3        ...   ldd #acb3
12382 E3AC BD C0 BA        ...   jsr c0ba
12383 E3AF 20 06            .    bra 06
12384 E3B1 CC AC A8        ...   ldd #aca8
12385 E3B4 BD C0 BA        ...   jsr c0ba
12386 E3B7 BD D8 D3        ...   jsr d8d3
12387 E3BA CE 00 17        ...   ldx #0017
12388 E3BD 1C 00           ..    bset add,x 00,x
12389 E3BF 02              .     idiv
12390 E3C0 20 06            .    bra 06
12391 E3C2 CE 00 1F        ...   ldx #001f
12392 E3C5 1C 00           ..    bset add,x 00,x
12393 E3C7 08              .     inx
12394 E3C8 CE 00 1D        ...   ldx #001d
12395 E3CB 1C 00           ..    bset add,x 00,x
12396 E3CD 02              .     idiv
12397 E3CE CE 00 19        ...   ldx #0019
12398 E3D1 1C 00           ..    bset add,x 00,x
12399 E3D3 08              .     inx
12400 E3D4 C6 32           .2    ldab #32
12401 E3D6 F7 00 31        ..1   stb 0031
12402 E3D9 C6 19           ..    ldab #19
12403 E3DB F7 00 36        ..6   stb 0036
12404 E3DE F6 00 1D        ...   ldab 001d
12405 E3E1 C4 02           ..    andb #02
12406 E3E3 26 03           &.    bne 03
12407 E3E5 7E E4 6E        ~.n   jmp e46e
12408 E3E8 F6 00 75        ..u   ldab 0075
12409 E3EB C1 04           ..    cmpb #04
12410 E3ED 22 05           ".    bhi 05
12411 E3EF F6 00 36        ..6   ldab 0036
12412 E3F2 26 3C           &<    bne 3c
12413 E3F4 7F 00 06        ...   clr 0006
12414 E3F7 5F              _     clrb
12415 E3F8 4F              O     clra
12416 E3F9 FD 00 76        ..v   stad 0076
12417 E3FC 7F 00 2E        ...   clr 002e
12418 E3FF 7F 00 2C        ..,   clr 002c
12419 E402 7F 00 75        ..u   clr 0075
12420 E405 CE 00 17        ...   ldx #0017
12421 E408 1D 00           ..    bclr add,x 00,x
12422 E40A 01              .     nop
12423 E40B CE 00 19        ...   ldx #0019
12424 E40E 1D 00           ..    bclr add,x 00,x
12425 E410 08              .     inx
12426 E411 CE 00 1B        ...   ldx #001b
12427 E414 1D 00           ..    bclr add,x 00,x
12428 E416 80 CE           ..    suba #ce
12429 E418 00              .     test
12430 E419 1D 1D           ..    bclr add,x 1d,x
12431 E41B 00              .     test
12432 E41C 40              @     nega
12433 E41D CE 00 1D        ...   ldx #001d
12434 E420 1D 00           ..    bclr add,x 00,x
12435 E422 02              .     idiv
12436 E423 CE 00 1F        ...   ldx #001f
12437 E426 1D 00           ..    bclr add,x 00,x
12438 E428 08              .     inx
12439 E429 CE 00 21        ..!   ldx #0021
12440 E42C 1D 00           ..    bclr add,x 00,x
12441 E42E 80 39           .9    suba #39
12442 E430 F6 0B C0        ...   ldab 0bc0
12443 E433 C4 20           .     andb #20
12444 E435 27 34           '4    beq 34
12445 E437 F6 00 17        ...   ldab 0017
12446 E43A C4 01           ..    andb #01
12447 E43C 26 2D           &-    bne 2d
12448 E43E F6 00 17        ...   ldab 0017
12449 E441 C4 02           ..    andb #02
12450 E443 27 26           '&    beq 26
12451 E445 CE 00 00        ...   ldx #0000
12452 E448 3C              <     pshx
12453 E449 FC 00 76        ..v   ldd 0076
12454 E44C BD BE 9E        ...   jsr be9e
12455 E44F 38              8     pulx
12456 E450 FC 00 76        ..v   ldd 0076
12457 E453 26 06           &.    bne 06
12458 E455 CE 00 17        ...   ldx #0017
12459 E458 1D 00           ..    bclr add,x 00,x
12460 E45A 02              .     idiv
12461 E45B F6 00 17        ...   ldab 0017
12462 E45E C4 02           ..    andb #02
12463 E460 27 09           '.    beq 09
12464 E462 BD E5 D1        ...   jsr e5d1
12465 E465 CE 00 17        ...   ldx #0017
12466 E468 1D 00           ..    bclr add,x 00,x
12467 E46A 02              .     idiv
12468 E46B 7E E3 DE        ~..   jmp e3de
12469 E46E CE 00 21        ..!   ldx #0021
12470 E471 1D 00           ..    bclr add,x 00,x
12471 E473 80 CE           ..    suba #ce
12472 E475 00              .     test
12473 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12474 E47A BD D2 13        ...   jsr d213
12475 E47D 83 00 00        ...   subd #0000
12476 E480 26 0F           &.    bne 0f
12477 E482 CC 00 80        ...   ldd #0080
12478 E485 BD C7 E7        ...   jsr c7e7
12479 E488 BD E5 D1        ...   jsr e5d1
12480 E48B BD D8 E9        ...   jsr d8e9
12481 E48E 7E E5 5E        ~.^   jmp e55e
12482 E491 F6 00 2B        ..+   ldab 002b
12483 E494 C1 00           ..    cmpb #00
12484 E496 26 08           &.    bne 08
12485 E498 CC AD 16        ...   ldd #ad16
12486 E49B BD C0 BA        ...   jsr c0ba
12487 E49E 20 1E            .    bra 1e
12488 E4A0 C1 01           ..    cmpb #01
12489 E4A2 26 08           &.    bne 08
12490 E4A4 CC AD 0B        ...   ldd #ad0b
12491 E4A7 BD C0 BA        ...   jsr c0ba
12492 E4AA 20 12            .    bra 12
12493 E4AC C1 02           ..    cmpb #02
12494 E4AE 26 08           &.    bne 08
12495 E4B0 CC AD 00        ...   ldd #ad00
12496 E4B3 BD C0 BA        ...   jsr c0ba
12497 E4B6 20 06            .    bra 06
12498 E4B8 CC AC F5        ...   ldd #acf5
12499 E4BB BD C0 BA        ...   jsr c0ba
12500 E4BE BD D8 D3        ...   jsr d8d3
12501 E4C1 CE 00 01        ...   ldx #0001
12502 E4C4 3C              <     pshx
12503 E4C5 FC 00 40        ..@   ldd 0040
12504 E4C8 BD BE 9E        ...   jsr be9e
12505 E4CB 38              8     pulx
12506 E4CC 5F              _     clrb
12507 E4CD 4F              O     clra
12508 E4CE BD C7 E7        ...   jsr c7e7
12509 E4D1 F6 0B C0        ...   ldab 0bc0
12510 E4D4 2D 03           -.    blt 03
12511 E4D6 7E E5 58        ~.X   jmp e558
12512 E4D9 F6 0B C0        ...   ldab 0bc0
12513 E4DC C4 10           ..    andb #10
12514 E4DE 26 78           &x    bne 78
12515 E4E0 F6 00 06        ...   ldab 0006
12516 E4E3 4F              O     clra
12517 E4E4 05              .     asld
12518 E4E5 C3 08 00        ...   addd #0800
12519 E4E8 8F              .     xgdx
12520 E4E9 EC 00           ..    ldd 00,x
12521 E4EB C4 FF           ..    andb #ff
12522 E4ED 26 02           &.    bne 02
12523 E4EF 84 3F           .?    anda #3f
12524 E4F1 27 65           'e    beq 65
12525 E4F3 FC 0D 0D        ...   ldd 0d0d
12526 E4F6 83 FF FF        ...   subd #ffff
12527 E4F9 26 05           &.    bne 05
12528 E4FB 5F              _     clrb
12529 E4FC 4F              O     clra
12530 E4FD FD 0D 0D        ...   stad 0d0d
12531 E500 FE 0D 0D        ...   ldx 0d0d
12532 E503 08              .     inx
12533 E504 FF 0D 0D        ...   stx 0d0d
12534 E507 F6 00 06        ...   ldab 0006
12535 E50A 4F              O     clra
12536 E50B 05              .     asld
12537 E50C C3 08 00        ...   addd #0800
12538 E50F 8F              .     xgdx
12539 E510 EC 00           ..    ldd 00,x
12540 E512 C4 FF           ..    andb #ff
12541 E514 84 3F           .?    anda #3f
12542 E516 37              7     pshb
12543 E517 36              6     psha
12544 E518 4F              O     clra
12545 E519 5F              _     clrb
12546 E51A 37              7     pshb
12547 E51B 36              6     psha
12548 E51C CC 0D 1B        ...   ldd #0d1b
12549 E51F BD FB DF        ...   jsr fbdf
12550 E522 31              1     ins
12551 E523 31              1     ins
12552 E524 FE 0D 1D        ...   ldx 0d1d
12553 E527 3C              <     pshx
12554 E528 FC 0D 1B        ...   ldd 0d1b
12555 E52B 37              7     pshb
12556 E52C 36              6     psha
12557 E52D CE E1 00        ...   ldx #e100
12558 E530 3C              <     pshx
12559 E531 CC 05 F5        ...   ldd #05f5
12560 E534 37              7     pshb
12561 E535 36              6     psha
12562 E536 30              0     tsx
12563 E537 EC 06           ..    ldd 06,x
12564 E539 A3 02           ..    subd 02,x
12565 E53B EC 04           ..    ldd 04,x
12566 E53D E2 01           ..    sbcb 01,x
12567 E53F A2 00           ..    sbca 00,x
12568 E541 38              8     pulx
12569 E542 38              8     pulx
12570 E543 38              8     pulx
12571 E544 38              8     pulx
12572 E545 25 11           %.    bcs 11
12573 E547 CE 1F 00        ...   ldx #1f00
12574 E54A 3C              <     pshx
12575 E54B CC FA 0A        ...   ldd #fa0a
12576 E54E 37              7     pshb
12577 E54F 36              6     psha
12578 E550 CC 0D 1B        ...   ldd #0d1b
12579 E553 BD FB DF        ...   jsr fbdf
12580 E556 31              1     ins
12581 E557 31              1     ins
12582 E558 BD D7 FF        ...   jsr d7ff
12583 E55B BD D8 40        ..@   jsr d840
12584 E55E 7F 00 06        ...   clr 0006
12585 E561 7F 00 2E        ...   clr 002e
12586 E564 CE 00 1B        ...   ldx #001b
12587 E567 1D 00           ..    bclr add,x 00,x
12588 E569 80 CE           ..    suba #ce
12589 E56B 00              .     test
12590 E56C 1D 1D           ..    bclr add,x 1d,x
12591 E56E 00              .     test
12592 E56F 40              @     nega
12593 E570 39              9     rts
12594
12595 ;!!! Is this a delay routine?  It gets called between displaying strings
12596 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12597 E571 37              7     pshb
12598 E572 36              6     psha
12599 E573 34              4     des
12600 E574 30              0     tsx
12601 E575 EC 01           ..    ldd 01,x
12602 E577 83 00 01        ...   subd #0001
12603 E57A ED 01           ..    stad 01,x
12604 E57C 2D 15           -.    blt 15
12605 E57E C6 41           .A    ldab #41
12606 E580 30              0     tsx
12607 E581 E7 00           ..    stb 00,x
12608 E583 30              0     tsx
12609 E584 E6 00           ..    ldab 00,x
12610 E586 6A 00           j.    dec 00,x
12611 E588 C1 00           ..    cmpb #00
12612 E58A 23 02           #.    bls 02
12613 E58C 20 F5            .    bra f5
12614 E58E BD E6 1B        ...   jsr e61b
12615 E591 20 E1            .    bra e1
12616 E593 38              8     pulx         ;this must just be a standard 'pull 3
12617 E594 31              1     ins          ;bytes and I don't care where they go'
12618                                         ;to clean up the stack.
12619 E595 39              9     rts
12620
12621 E596 34              4     des
12622 E597 C6 32           .2    ldab #32
12623 E599 30              0     tsx
12624 E59A E7 00           ..    stb 00,x
12625 E59C 30              0     tsx
12626 E59D E6 00           ..    ldab 00,x
12627 E59F C1 00           ..    cmpb #00
12628 E5A1 23 05           #.    bls e5a8
12629 E5A3 30              0     tsx
12630 E5A4 6A 00           j.    dec 00,x
12631 E5A6 20 F4            .    bra e59c
12632 E5A8 31              1     ins
12633 E5A9 39              9     rts
12634
12635 E5AA F6 00 33        ..3   ldab 0033
12636 E5AD 27 0C           '.    beq 0c
12637 E5AF F6 00 29        ..)   ldab 0029
12638 E5B2 27 05           '.    beq 05
12639 E5B4 C6 02           ..    ldab #02
12640 E5B6 F7 00 33        ..3   stb 0033
12641 E5B9 20 15            .    bra 15
12642 E5BB C6 03           ..    ldab #03
12643 E5BD F7 00 32        ..2   stb 0032
12644 E5C0 FC 00 3B        ..;   ldd 003b
12645 E5C3 27 06           '.    beq 06
12646 E5C5 CC 02 33        ..3   ldd #0233
12647 E5C8 FD 00 3B        ..;   stad 003b
12648 E5CB C6 02           ..    ldab #02
12649 E5CD F7 00 33        ..3   stb 0033
12650 E5D0 39              9     rts
12651
12652 E5D1 C6 0B           ..    ldab #0b
12653 E5D3 F7 00 32        ..2   stb 0032
12654 E5D6 39              9     rts
12655
12656 E5D7 37              7     pshb
12657 E5D8 36              6     psha
12658 E5D9 3C              <     pshx
12659 E5DA 3C              <     pshx
12660 E5DB 5F              _     clrb
12661 E5DC 4F              O     clra
12662 E5DD 30              0     tsx
12663 E5DE ED 00           ..    stad 00,x
12664 E5E0 CC 00 64        ..d   ldd #0064
12665 E5E3 ED 02           ..    stad 02,x
12666 E5E5 30              0     tsx
12667 E5E6 EC 02           ..    ldd 02,x
12668 E5E8 2F 21           /!    ble 21
12669 E5EA 30              0     tsx
12670 E5EB EE 04           ..    ldx 04,x
12671 E5ED E6 00           ..    ldab 00,x
12672 E5EF 30              0     tsx
12673 E5F0 E4 09           ..    andb 09,x
12674 E5F2 27 05           '.    beq 05
12675 E5F4 38              8     pulx
12676 E5F5 08              .     inx
12677 E5F6 3C              <     pshx
12678 E5F7 20 08            .    bra 08
12679 E5F9 30              0     tsx
12680 E5FA EC 00           ..    ldd 00,x
12681 E5FC 83 00 01        ...   subd #0001
12682 E5FF ED 00           ..    stad 00,x
12683 E601 30              0     tsx
12684 E602 EC 02           ..    ldd 02,x
12685 E604 83 00 01        ...   subd #0001
12686 E607 ED 02           ..    stad 02,x
12687 E609 20 DA            .    bra da
12688 E60B 30              0     tsx
12689 E60C EC 00           ..    ldd 00,x
12690 E60E 2F 04           /.    ble 04
12691 E610 5F              _     clrb
12692 E611 4F              O     clra
12693 E612 20 03            .    bra 03
12694 E614 CC 00 01        ...   ldd #0001
12695 E617 38              8     pulx
12696 E618 38              8     pulx
12697 E619 38              8     pulx
12698 E61A 39              9     rts
12699
12700 E61B C6 0A           ..    ldab #0a
12701 E61D F7 00 31        ..1   stb 0031
12702 E620 39              9     rts
12703
12704 E621 38              8     pulx
12705 E622 37              7     pshb
12706 E623 36              6     psha
12707 E624 3C              <     pshx
12708 E625 BD BE 4B        ..K   jsr be4b
12709 E628 30              0     tsx
12710 E629 EC 04           ..    ldd 04,x
12711 E62B 37              7     pshb
12712 E62C 36              6     psha
12713 E62D EC 02           ..    ldd 02,x
12714 E62F 37              7     pshb
12715 E630 36              6     psha
12716 E631 CE 96 80        ...   ldx #9680
12717 E634 3C              <     pshx
12718 E635 CC 00 98        ...   ldd #0098
12719 E638 BD FC 4C        ..L   jsr fc4c
12720 E63B 31              1     ins
12721 E63C 33              3     pulb
12722 E63D CB 30           .0    addb #30
12723 E63F F7 0B 97        ...   stb 0b97
12724 E642 30              0     tsx
12725 E643 EC 04           ..    ldd 04,x
12726 E645 37              7     pshb
12727 E646 36              6     psha
12728 E647 EC 02           ..    ldd 02,x
12729 E649 37              7     pshb
12730 E64A 36              6     psha
12731 E64B CE 96 80        ...   ldx #9680
12732 E64E 3C              <     pshx
12733 E64F CC 00 98        ...   ldd #0098
12734 E652 BD FC 5C        ..\   jsr fc5c
12735 E655 37              7     pshb
12736 E656 36              6     psha
12737 E657 CE 42 40        .B@   ldx #4240
12738 E65A 3C              <     pshx
12739 E65B CC 00 0F        ...   ldd #000f
12740 E65E BD FC 4C        ..L   jsr fc4c
12741 E661 31              1     ins
12742 E662 33              3     pulb
12743 E663 CB 30           .0    addb #30
12744 E665 F7 0B 96        ...   stb 0b96
12745 E668 30              0     tsx
12746 E669 EC 04           ..    ldd 04,x
12747 E66B 37              7     pshb
12748 E66C 36              6     psha
12749 E66D EC 02           ..    ldd 02,x
12750 E66F 37              7     pshb
12751 E670 36              6     psha
12752 E671 CE 42 40        .B@   ldx #4240
12753 E674 3C              <     pshx
12754 E675 CC 00 0F        ...   ldd #000f
12755 E678 BD FC 5C        ..\   jsr fc5c
12756 E67B 37              7     pshb
12757 E67C 36              6     psha
12758 E67D CE 86 A0        ...   ldx #86a0
12759 E680 3C              <     pshx
12760 E681 CC 00 01        ...   ldd #0001
12761 E684 BD FC 4C        ..L   jsr fc4c
12762 E687 31              1     ins
12763 E688 33              3     pulb
12764 E689 CB 30           .0    addb #30
12765 E68B F7 0B 95        ...   stb 0b95
12766 E68E 30              0     tsx
12767 E68F EC 04           ..    ldd 04,x
12768 E691 37              7     pshb
12769 E692 36              6     psha
12770 E693 EC 02           ..    ldd 02,x
12771 E695 37              7     pshb
12772 E696 36              6     psha
12773 E697 CE 86 A0        ...   ldx #86a0
12774 E69A 3C              <     pshx
12775 E69B CC 00 01        ...   ldd #0001
12776 E69E BD FC 5C        ..\   jsr fc5c
12777 E6A1 37              7     pshb
12778 E6A2 36              6     psha
12779 E6A3 CE 27 10        .'.   ldx #2710
12780 E6A6 3C              <     pshx
12781 E6A7 CC 00 00        ...   ldd #0000
12782 E6AA BD FC 4C        ..L   jsr fc4c
12783 E6AD 31              1     ins
12784 E6AE 33              3     pulb
12785 E6AF CB 30           .0    addb #30
12786 E6B1 F7 0B 94        ...   stb 0b94
12787 E6B4 30              0     tsx
12788 E6B5 EC 04           ..    ldd 04,x
12789 E6B7 37              7     pshb
12790 E6B8 36              6     psha
12791 E6B9 EC 02           ..    ldd 02,x
12792 E6BB 37              7     pshb
12793 E6BC 36              6     psha
12794 E6BD CE 27 10        .'.   ldx #2710
12795 E6C0 3C              <     pshx
12796 E6C1 CC 00 00        ...   ldd #0000
12797 E6C4 BD FC 5C        ..\   jsr fc5c
12798 E6C7 37              7     pshb
12799 E6C8 36              6     psha
12800 E6C9 CE 03 E8        ...   ldx #03e8
12801 E6CC 3C              <     pshx
12802 E6CD CC 00 00        ...   ldd #0000
12803 E6D0 BD FC 4C        ..L   jsr fc4c
12804 E6D3 31              1     ins
12805 E6D4 33              3     pulb
12806 E6D5 CB 30           .0    addb #30
12807 E6D7 F7 0B 93        ...   stb 0b93
12808 E6DA 30              0     tsx
12809 E6DB EC 04           ..    ldd 04,x
12810 E6DD 37              7     pshb
12811 E6DE 36              6     psha
12812 E6DF EC 02           ..    ldd 02,x
12813 E6E1 37              7     pshb
12814 E6E2 36              6     psha
12815 E6E3 CE 03 E8        ...   ldx #03e8
12816 E6E6 3C              <     pshx
12817 E6E7 CC 00 00        ...   ldd #0000
12818 E6EA BD FC 5C        ..\   jsr fc5c
12819 E6ED 37              7     pshb
12820 E6EE 36              6     psha
12821 E6EF CE 00 64        ..d   ldx #0064
12822 E6F2 3C              <     pshx
12823 E6F3 CC 00 00        ...   ldd #0000
12824 E6F6 BD FC 4C        ..L   jsr fc4c
12825 E6F9 31              1     ins
12826 E6FA 33              3     pulb
12827 E6FB CB 30           .0    addb #30
12828 E6FD F7 0B 92        ...   stb 0b92
12829 E700 30              0     tsx
12830 E701 EC 04           ..    ldd 04,x
12831 E703 37              7     pshb
12832 E704 36              6     psha
12833 E705 EC 02           ..    ldd 02,x
12834 E707 37              7     pshb
12835 E708 36              6     psha
12836 E709 CE 00 64        ..d   ldx #0064
12837 E70C 3C              <     pshx
12838 E70D CC 00 00        ...   ldd #0000
12839 E710 BD FC 5C        ..\   jsr fc5c
12840 E713 37              7     pshb
12841 E714 36              6     psha
12842 E715 CE 00 0A        ...   ldx #000a
12843 E718 3C              <     pshx
12844 E719 CC 00 00        ...   ldd #0000
12845 E71C BD FC 4C        ..L   jsr fc4c
12846 E71F 31              1     ins
12847 E720 33              3     pulb
12848 E721 CB 30           .0    addb #30
12849 E723 F7 0B 91        ...   stb 0b91
12850 E726 30              0     tsx
12851 E727 EC 04           ..    ldd 04,x
12852 E729 37              7     pshb
12853 E72A 36              6     psha
12854 E72B EC 02           ..    ldd 02,x
12855 E72D 37              7     pshb
12856 E72E 36              6     psha
12857 E72F CE 00 0A        ...   ldx #000a
12858 E732 3C              <     pshx
12859 E733 CC 00 00        ...   ldd #0000
12860 E736 BD FC 5C        ..\   jsr fc5c
12861 E739 31              1     ins
12862 E73A 33              3     pulb
12863 E73B CB 30           .0    addb #30
12864 E73D F7 0B 90        ...   stb 0b90
12865 E740 38              8     pulx
12866 E741 31              1     ins
12867 E742 31              1     ins
12868 E743 6E 00           n.    jmp 00,x
12869 E745 37              7     pshb
12870 E746 36              6     psha
12871 E747 30              0     tsx
12872 E748 EC 00           ..    ldd 00,x
12873 E74A CE 27 10        .'.   ldx #2710
12874 E74D 02              .     idiv
12875 E74E 8F              .     xgdx
12876 E74F CB 30           .0    addb #30
12877 E751 F7 00 57        ..W   stb 0057
12878 E754 30              0     tsx
12879 E755 EC 00           ..    ldd 00,x
12880 E757 CE 27 10        .'.   ldx #2710
12881 E75A 02              .     idiv
12882 E75B CE 03 E8        ...   ldx #03e8
12883 E75E 02              .     idiv
12884 E75F 8F              .     xgdx
12885 E760 CB 30           .0    addb #30
12886 E762 F7 00 5A        ..Z   stb 005a
12887 E765 30              0     tsx
12888 E766 EC 00           ..    ldd 00,x
12889 E768 CE 03 E8        ...   ldx #03e8
12890 E76B 02              .     idiv
12891 E76C CE 00 64        ..d   ldx #0064
12892 E76F 02              .     idiv
12893 E770 8F              .     xgdx
12894 E771 CB 30           .0    addb #30
12895 E773 F7 00 5D        ..]   stb 005d
12896 E776 30              0     tsx
12897 E777 EC 00           ..    ldd 00,x
12898 E779 CE 00 64        ..d   ldx #0064
12899 E77C 02              .     idiv
12900 E77D CE 00 0A        ...   ldx #000a
12901 E780 02              .     idiv
12902 E781 8F              .     xgdx
12903 E782 CB 30           .0    addb #30
12904 E784 F7 00 5E        ..^   stb 005e
12905 E787 30              0     tsx
12906 E788 EC 00           ..    ldd 00,x
12907 E78A CE 00 0A        ...   ldx #000a
12908 E78D 02              .     idiv
12909 E78E CB 30           .0    addb #30
12910 E790 F7 00 5F        .._   stb 005f
12911 E793 38              8     pulx
12912 E794 39              9     rts
12913
12914 E795 37              7     pshb
12915 E796 36              6     psha
12916 E797 30              0     tsx
12917 E798 E6 01           ..    ldab 01,x
12918 E79A 4F              O     clra
12919 E79B CE 00 64        ..d   ldx #0064
12920 E79E 02              .     idiv
12921 E79F 8F              .     xgdx
12922 E7A0 CB 30           .0    addb #30
12923 E7A2 F7 00 5D        ..]   stb 005d
12924 E7A5 30              0     tsx
12925 E7A6 E6 01           ..    ldab 01,x
12926 E7A8 4F              O     clra
12927 E7A9 CE 00 64        ..d   ldx #0064
12928 E7AC 02              .     idiv
12929 E7AD 4F              O     clra
12930 E7AE CE 00 0A        ...   ldx #000a
12931 E7B1 02              .     idiv
12932 E7B2 8F              .     xgdx
12933 E7B3 CB 30           .0    addb #30
12934 E7B5 F7 00 5E        ..^   stb 005e
12935 E7B8 30              0     tsx
12936 E7B9 E6 01           ..    ldab 01,x
12937 E7BB 4F              O     clra
12938 E7BC CE 00 0A        ...   ldx #000a
12939 E7BF 02              .     idiv
12940 E7C0 CB 30           .0    addb #30
12941 E7C2 F7 00 5F        .._   stb 005f
12942 E7C5 38              8     pulx
12943 E7C6 39              9     rts
12944
12945 E7C7 F6 00 06        ...   ldab 0006
12946 E7CA 4F              O     clra
12947 E7CB CE 00 05        ...   ldx #0005
12948 E7CE 02              .     idiv
12949 E7CF 5D              ]     tstb
12950 E7D0 26 03           &.    bne 03
12951 E7D2 7E E8 99        ~..   jmp e899
12952 E7D5 F6 00 06        ...   ldab 0006
12953 E7D8 BD D7 A0        ...   jsr d7a0
12954 E7DB 83 00 00        ...   subd #0000
12955 E7DE 27 03           '.    beq 03
12956 E7E0 7E E8 99        ~..   jmp e899
12957 E7E3 F6 00 06        ...   ldab 0006
12958 E7E6 4F              O     clra
12959 E7E7 05              .     asld
12960 E7E8 C3 08 00        ...   addd #0800
12961 E7EB 8F              .     xgdx
12962 E7EC EC 00           ..    ldd 00,x
12963 E7EE C4 FF           ..    andb #ff
12964 E7F0 84 3F           .?    anda #3f
12965 E7F2 FD 10 16        ...   stad 1016
12966 E7F5 F6 00 06        ...   ldab 0006
12967 E7F8 4F              O     clra
12968 E7F9 05              .     asld
12969 E7FA C3 0B F1        ...   addd #0bf1
12970 E7FD 8F              .     xgdx
12971 E7FE EC 00           ..    ldd 00,x
12972 E800 C4 FF           ..    andb #ff
12973 E802 84 3F           .?    anda #3f
12974 E804 FD 10 18        ...   stad 1018
12975 E807 FC 10 16        ...   ldd 1016
12976 E80A 83 00 00        ...   subd #0000
12977 E80D 25 08           %.    bcs 08
12978 E80F FC 10 16        ...   ldd 1016
12979 E812 83 27 0F        .'.   subd #270f
12980 E815 23 35           #5    bls 35
12981 E817 F6 00 06        ...   ldab 0006
12982 E81A BD D4 68        ..h   jsr d468
12983 E81D 83 00 00        ...   subd #0000
12984 E820 27 2A           '*    beq 2a
12985 E822 CC 01 00        ...   ldd #0100
12986 E825 37              7     pshb
12987 E826 36              6     psha
12988 E827 F6 00 06        ...   ldab 0006
12989 E82A 4F              O     clra
12990 E82B 05              .     asld
12991 E82C C3 08 C8        ...   addd #08c8
12992 E82F 38              8     pulx
12993 E830 8F              .     xgdx
12994 E831 AA 00           ..    ora 00,x
12995 E833 EA 01           ..    orb 01,x
12996 E835 ED 00           ..    stad 00,x
12997 E837 CC 40 00        .@.   ldd #4000
12998 E83A 37              7     pshb
12999 E83B 36              6     psha
13000 E83C F6 00 06        ...   ldab 0006
13001 E83F 4F              O     clra
13002 E840 05              .     asld
13003 E841 C3 08 00        ...   addd #0800
13004 E844 38              8     pulx
13005 E845 8F              .     xgdx
13006 E846 AA 00           ..    ora 00,x
13007 E848 EA 01           ..    orb 01,x
13008 E84A ED 00           ..    stad 00,x
13009 E84C CE 10 16        ...   ldx #1016
13010 E84F 1D 00           ..    bclr add,x 00,x
13011 E851 C0 FC           ..    subb #fc
13012 E853 10              .     sba
13013 E854 18              .     illegal
13014 E855 43              C     coma
13015 E856 53              S     comb
13016 E857 FD 10 18        ...   stad 1018
13017 E85A CE 10 18        ...   ldx #1018
13018 E85D 1D 00           ..    bclr add,x 00,x
13019 E85F C0 FC           ..    subb #fc
13020 E861 10              .     sba
13021 E862 16              .     tab
13022 E863 37              7     pshb
13023 E864 36              6     psha
13024 E865 FC 10 18        ...   ldd 1018
13025 E868 30              0     tsx
13026 E869 A3 00           ..    subd 00,x
13027 E86B 31              1     ins
13028 E86C 31              1     ins
13029 E86D 27 2A           '*    beq 2a
13030 E86F CC 01 00        ...   ldd #0100
13031 E872 37              7     pshb
13032 E873 36              6     psha
13033 E874 F6 00 06        ...   ldab 0006
13034 E877 4F              O     clra
13035 E878 05              .     asld
13036 E879 C3 08 C8        ...   addd #08c8
13037 E87C 38              8     pulx
13038 E87D 8F              .     xgdx
13039 E87E AA 00           ..    ora 00,x
13040 E880 EA 01           ..    orb 01,x
13041 E882 ED 00           ..    stad 00,x
13042 E884 CC 40 00        .@.   ldd #4000
13043 E887 37              7     pshb
13044 E888 36              6     psha
13045 E889 F6 00 06        ...   ldab 0006
13046 E88C 4F              O     clra
13047 E88D 05              .     asld
13048 E88E C3 08 00        ...   addd #0800
13049 E891 38              8     pulx
13050 E892 8F              .     xgdx
13051 E893 AA 00           ..    ora 00,x
13052 E895 EA 01           ..    orb 01,x
13053 E897 ED 00           ..    stad 00,x
13054 E899 39              9     rts
13055
13056 E89A 5F              _     clrb
13057 E89B 4F              O     clra
13058 E89C FD 00 0F        ...   stad 000f
13059 E89F CC 3F FF        .?.   ldd #3fff
13060 E8A2 FD 00 50        ..P   stad 0050
13061 E8A5 7F 00 06        ...   clr 0006
13062 E8A8 F6 00 06        ...   ldab 0006
13063 E8AB C1 64           .d    cmpb #64
13064 E8AD 24 64           $d    bcc 64
13065 E8AF F6 00 06        ...   ldab 0006
13066 E8B2 4F              O     clra
13067 E8B3 CE 00 05        ...   ldx #0005
13068 E8B6 02              .     idiv
13069 E8B7 5D              ]     tstb
13070 E8B8 27 54           'T    beq 54
13071 E8BA F6 00 06        ...   ldab 0006
13072 E8BD BD D7 A0        ...   jsr d7a0
13073 E8C0 83 00 00        ...   subd #0000
13074 E8C3 26 49           &I    bne 49
13075 E8C5 F6 00 06        ...   ldab 0006
13076 E8C8 4F              O     clra
13077 E8C9 05              .     asld
13078 E8CA C3 08 00        ...   addd #0800
13079 E8CD 8F              .     xgdx
13080 E8CE EC 00           ..    ldd 00,x
13081 E8D0 C4 FF           ..    andb #ff
13082 E8D2 84 3F           .?    anda #3f
13083 E8D4 FD 10 16        ...   stad 1016
13084 E8D7 FC 10 16        ...   ldd 1016
13085 E8DA 83 27 10        .'.   subd #2710
13086 E8DD 24 2F           $/    bcc 2f
13087 E8DF F6 00 06        ...   ldab 0006
13088 E8E2 BD D4 68        ..h   jsr d468
13089 E8E5 83 00 00        ...   subd #0000
13090 E8E8 27 24           '$    beq 24
13091 E8EA BD D5 61        ..a   jsr d561
13092 E8ED 83 00 00        ...   subd #0000
13093 E8F0 26 1C           &.    bne 1c
13094 E8F2 FC 10 16        ...   ldd 1016
13095 E8F5 B3 00 0F        ...   subd 000f
13096 E8F8 23 06           #.    bls 06
13097 E8FA FC 10 16        ...   ldd 1016
13098 E8FD FD 00 0F        ...   stad 000f
13099 E900 FC 10 16        ...   ldd 1016
13100 E903 B3 00 50        ..P   subd 0050
13101 E906 24 06           $.    bcc 06
13102 E908 FC 10 16        ...   ldd 1016
13103 E90B FD 00 50        ..P   stad 0050
13104 E90E 7C 00 06        |..   inc 0006
13105 E911 20 95            .    bra 95
13106 E913 FC 0B B7        ...   ldd 0bb7
13107 E916 27 12           '.    beq 12
13108 E918 FC 00 0F        ...   ldd 000f
13109 E91B B3 0B B7        ...   subd 0bb7
13110 E91E 23 0A           #.    bls 0a
13111 E920 FC 00 0F        ...   ldd 000f
13112 E923 05              .     asld
13113 E924 B3 0B B7        ...   subd 0bb7
13114 E927 FD 00 0F        ...   stad 000f
13115 E92A 39              9     rts
13116
13117 E92B 34              4     des
13118 E92C 30              0     tsx
13119 E92D 6F 00           o.    clr 00,x
13120 E92F 30              0     tsx
13121 E930 E6 00           ..    ldab 00,x
13122 E932 C1 64           .d    cmpb #64
13123 E934 24 15           $.    bcc 15
13124 E936 5F              _     clrb
13125 E937 4F              O     clra
13126 E938 37              7     pshb
13127 E939 36              6     psha
13128 E93A 30              0     tsx
13129 E93B E6 02           ..    ldab 02,x
13130 E93D 4F              O     clra
13131 E93E 05              .     asld
13132 E93F C3 0D 1F        ...   addd #0d1f
13133 E942 38              8     pulx
13134 E943 8F              .     xgdx
13135 E944 ED 00           ..    stad 00,x
13136 E946 30              0     tsx
13137 E947 6C 00           l.    inc 00,x
13138 E949 20 E4            .    bra e4
13139 E94B 4F              O     clra
13140 E94C 5F              _     clrb
13141 E94D FD 0D F9        ...   stad 0df9
13142 E950 FD 0D F7        ...   stad 0df7
13143 E953 4F              O     clra
13144 E954 5F              _     clrb
13145 E955 FD 0D F5        ...   stad 0df5
13146 E958 FD 0D F3        ...   stad 0df3
13147 E95B 4F              O     clra
13148 E95C 5F              _     clrb
13149 E95D FD 0D F1        ...   stad 0df1
13150 E960 FD 0D EF        ...   stad 0def
13151 E963 4F              O     clra
13152 E964 5F              _     clrb
13153 E965 FD 0D FD        ...   stad 0dfd
13154 E968 FD 0D FB        ...   stad 0dfb
13155 E96B 4F              O     clra
13156 E96C 5F              _     clrb
13157 E96D FD 0D E9        ...   stad 0de9
13158 E970 FD 0D E7        ...   stad 0de7
13159 E973 5F              _     clrb
13160 E974 4F              O     clra
13161 E975 FD 0C DD        ...   stad 0cdd
13162 E978 5F              _     clrb
13163 E979 4F              O     clra
13164 E97A FD 0C DF        ...   stad 0cdf
13165 E97D 5F              _     clrb
13166 E97E 4F              O     clra
13167 E97F FD 0C E1        ...   stad 0ce1
13168 E982 5F              _     clrb
13169 E983 4F              O     clra
13170 E984 FD 0C E3        ...   stad 0ce3
13171 E987 5F              _     clrb
13172 E988 4F              O     clra
13173 E989 FD 0C E5        ...   stad 0ce5
13174 E98C 4F              O     clra
13175 E98D 5F              _     clrb
13176 E98E FD 0C F5        ...   stad 0cf5
13177 E991 FD 0C F3        ...   stad 0cf3
13178 E994 4F              O     clra
13179 E995 5F              _     clrb
13180 E996 FD 0C F9        ...   stad 0cf9
13181 E999 FD 0C F7        ...   stad 0cf7
13182 E99C 4F              O     clra
13183 E99D 5F              _     clrb
13184 E99E FD 0C FD        ...   stad 0cfd
13185 E9A1 FD 0C FB        ...   stad 0cfb
13186 E9A4 4F              O     clra
13187 E9A5 5F              _     clrb
13188 E9A6 FD 0D 01        ...   stad 0d01
13189 E9A9 FD 0C FF        ...   stad 0cff
13190 E9AC 4F              O     clra
13191 E9AD 5F              _     clrb
13192 E9AE FD 0D 05        ...   stad 0d05
13193 E9B1 FD 0D 03        ...   stad 0d03
13194 E9B4 5F              _     clrb
13195 E9B5 4F              O     clra
13196 E9B6 FD 0D 07        ...   stad 0d07
13197 E9B9 5F              _     clrb
13198 E9BA 4F              O     clra
13199 E9BB FD 0D 09        ...   stad 0d09
13200 E9BE 5F              _     clrb
13201 E9BF 4F              O     clra
13202 E9C0 FD 0D 0B        ...   stad 0d0b
13203 E9C3 5F              _     clrb
13204 E9C4 4F              O     clra
13205 E9C5 FD 0D 0D        ...   stad 0d0d
13206 E9C8 4F              O     clra
13207 E9C9 5F              _     clrb
13208 E9CA FD 0D 11        ...   stad 0d11
13209 E9CD FD 0D 0F        ...   stad 0d0f
13210 E9D0 4F              O     clra
13211 E9D1 5F              _     clrb
13212 E9D2 FD 0D 15        ...   stad 0d15
13213 E9D5 FD 0D 13        ...   stad 0d13
13214 E9D8 4F              O     clra
13215 E9D9 5F              _     clrb
13216 E9DA FD 0D 19        ...   stad 0d19
13217 E9DD FD 0D 17        ...   stad 0d17
13218 E9E0 4F              O     clra
13219 E9E1 5F              _     clrb
13220 E9E2 FD 0D 1D        ...   stad 0d1d
13221 E9E5 FD 0D 1B        ...   stad 0d1b
13222 E9E8 31              1     ins
13223 E9E9 39              9     rts
13224
13225 E9EA 7F 00 06        ...   clr 0006
13226 E9ED F6 00 06        ...   ldab 0006
13227 E9F0 C1 64           .d    cmpb #64
13228 E9F2 24 64           $d    bcc 64
13229 E9F4 F6 00 06        ...   ldab 0006
13230 E9F7 4F              O     clra
13231 E9F8 CE 00 05        ...   ldx #0005
13232 E9FB 02              .     idiv
13233 E9FC 5D              ]     tstb
13234 E9FD 27 54           'T    beq 54
13235 E9FF CC BF FF        ...   ldd #bfff
13236 EA02 37              7     pshb
13237 EA03 36              6     psha
13238 EA04 F6 00 06        ...   ldab 0006
13239 EA07 4F              O     clra
13240 EA08 05              .     asld
13241 EA09 C3 08 00        ...   addd #0800
13242 EA0C 38              8     pulx
13243 EA0D 8F              .     xgdx
13244 EA0E A4 00           ..    anda 00,x
13245 EA10 E4 01           ..    andb 01,x
13246 EA12 ED 00           ..    stad 00,x
13247 EA14 CC FE FF        ...   ldd #feff
13248 EA17 37              7     pshb
13249 EA18 36              6     psha
13250 EA19 F6 00 06        ...   ldab 0006
13251 EA1C 4F              O     clra
13252 EA1D 05              .     asld
13253 EA1E C3 08 C8        ...   addd #08c8
13254 EA21 38              8     pulx
13255 EA22 8F              .     xgdx
13256 EA23 A4 00           ..    anda 00,x
13257 EA25 E4 01           ..    andb 01,x
13258 EA27 ED 00           ..    stad 00,x
13259 EA29 CC FD FF        ...   ldd #fdff
13260 EA2C 37              7     pshb
13261 EA2D 36              6     psha
13262 EA2E F6 00 06        ...   ldab 0006
13263 EA31 4F              O     clra
13264 EA32 05              .     asld
13265 EA33 C3 08 C8        ...   addd #08c8
13266 EA36 38              8     pulx
13267 EA37 8F              .     xgdx
13268 EA38 A4 00           ..    anda 00,x
13269 EA3A E4 01           ..    andb 01,x
13270 EA3C ED 00           ..    stad 00,x
13271 EA3E CC FB FF        ...   ldd #fbff
13272 EA41 37              7     pshb
13273 EA42 36              6     psha
13274 EA43 F6 00 06        ...   ldab 0006
13275 EA46 4F              O     clra
13276 EA47 05              .     asld
13277 EA48 C3 08 C8        ...   addd #08c8
13278 EA4B 38              8     pulx
13279 EA4C 8F              .     xgdx
13280 EA4D A4 00           ..    anda 00,x
13281 EA4F E4 01           ..    andb 01,x
13282 EA51 ED 00           ..    stad 00,x
13283 EA53 7C 00 06        |..   inc 0006
13284 EA56 20 95            .    bra 95
13285 EA58 39              9     rts
13286
13287 EA59 34              4     des
13288 EA5A CE 00 04        ...   ldx #0004
13289 EA5D 3C              <     pshx
13290 EA5E CC 10 0A        ...   ldd #100a
13291 EA61 BD E5 D7        ...   jsr e5d7
13292 EA64 38              8     pulx
13293 EA65 83 00 00        ...   subd #0000
13294 EA68 27 3F           '?    beq 3f
13295 EA6A CE 00 01        ...   ldx #0001
13296 EA6D 3C              <     pshx
13297 EA6E CC 18 00        ...   ldd #1800
13298 EA71 BD E5 D7        ...   jsr e5d7
13299 EA74 38              8     pulx
13300 EA75 83 00 00        ...   subd #0000
13301 EA78 27 2F           '/    beq 2f
13302 EA7A CC 03 E8        ...   ldd #03e8
13303 EA7D BD E5 71        ..q   jsr e571
13304 EA80 7F 0B A8        ...   clr 0ba8
13305 EA83 F6 18 00        ...   ldab 1800
13306 EA86 C4 01           ..    andb #01
13307 EA88 26 1C           &.    bne 1c
13308 EA8A BD BE 4B        ..K   jsr be4b
13309 EA8D 0F              .     sei
13310 EA8E BD BE 01        ...   jsr be01
13311 EA91 0E              .     cli
13312 EA92 CC 01 F4        ...   ldd #01f4
13313 EA95 BD E5 71        ..q   jsr e571
13314 EA98 CC AF D1        ...   ldd #afd1
13315 EA9B BD C0 BA        ...   jsr c0ba
13316 EA9E CC 01 F4        ...   ldd #01f4
13317 EAA1 BD E5 71        ..q   jsr e571
13318 EAA4 20 DD            .    bra dd
13319 EAA6 BD BE 69        ..i   jsr be69
13320 EAA9 C6 01           ..    ldab #01
13321 EAAB F7 00 14        ...   stb 0014
13322 EAAE F6 00 14        ...   ldab 0014
13323 EAB1 F7 38 00        .8.   stb 3800
13324 EAB4 CC 00 1E        ...   ldd #001e
13325 EAB7 BD E5 71        ..q   jsr e571
13326 EABA CE 00 01        ...   ldx #0001
13327 EABD 3C              <     pshx
13328 EABE CC 10 00        ...   ldd #1000
13329 EAC1 BD E5 D7        ...   jsr e5d7
13330 EAC4 38              8     pulx
13331 EAC5 83 00 00        ...   subd #0000
13332 EAC8 27 10           '.    beq 10
13333 EACA CE 00 02        ...   ldx #0002
13334 EACD 3C              <     pshx
13335 EACE CC 10 00        ...   ldd #1000
13336 EAD1 BD E5 D7        ...   jsr e5d7
13337 EAD4 38              8     pulx
13338 EAD5 83 00 00        ...   subd #0000
13339 EAD8 27 03           '.    beq 03
13340 EADA 7E ED F8        ~..   jmp edf8
13341 EADD C6 02           ..    ldab #02
13342 EADF F7 00 14        ...   stb 0014
13343 EAE2 F6 00 14        ...   ldab 0014
13344 EAE5 F7 38 00        .8.   stb 3800
13345 EAE8 CC 00 1E        ...   ldd #001e
13346 EAEB BD E5 71        ..q   jsr e571
13347 EAEE CE 00 01        ...   ldx #0001
13348 EAF1 3C              <     pshx
13349 EAF2 CC 10 00        ...   ldd #1000
13350 EAF5 BD E5 D7        ...   jsr e5d7
13351 EAF8 38              8     pulx
13352 EAF9 83 00 00        ...   subd #0000
13353 EAFC 26 10           &.    bne 10
13354 EAFE CE 00 02        ...   ldx #0002
13355 EB01 3C              <     pshx
13356 EB02 CC 10 00        ...   ldd #1000
13357 EB05 BD E5 D7        ...   jsr e5d7
13358 EB08 38              8     pulx
13359 EB09 83 00 00        ...   subd #0000
13360 EB0C 26 03           &.    bne 03
13361 EB0E 7E ED F8        ~..   jmp edf8
13362 EB11 CC 5A 5A        .ZZ   ldd #5a5a
13363 EB14 FD 10 16        ...   stad 1016
13364 EB17 CC B1 39        ..9   ldd #b139
13365 EB1A BD C0 BA        ...   jsr c0ba
13366 EB1D CC 07 D0        ...   ldd #07d0
13367 EB20 BD E5 71        ..q   jsr e571
13368 EB23 CC B1 44        ..D   ldd #b144
13369 EB26 BD C0 BA        ...   jsr c0ba
13370 EB29 CC 07 D0        ...   ldd #07d0
13371 EB2C BD E5 71        ..q   jsr e571
13372 EB2F CC 00 14        ...   ldd #0014
13373 EB32 FD 00 3B        ..;   stad 003b
13374 EB35 FC 00 3B        ..;   ldd 003b
13375 EB38 27 47           'G    beq 47
13376 EB3A 30              0     tsx
13377 EB3B 6F 00           o.    clr 00,x
13378 EB3D 30              0     tsx
13379 EB3E E6 00           ..    ldab 00,x
13380 EB40 C1 0A           ..    cmpb #0a
13381 EB42 24 3B           $;    bcc 3b
13382 EB44 BD BE 4B        ..K   jsr be4b
13383 EB47 C6 2E           ..    ldab #2e
13384 EB49 37              7     pshb
13385 EB4A 30              0     tsx
13386 EB4B E6 01           ..    ldab 01,x
13387 EB4D 4F              O     clra
13388 EB4E C3 0B 90        ...   addd #0b90
13389 EB51 8F              .     xgdx
13390 EB52 33              3     pulb
13391 EB53 E7 00           ..    stb 00,x
13392 EB55 0F              .     sei
13393 EB56 BD BE 69        ..i   jsr be69
13394 EB59 CE 10 28        ..(   ldx #1028
13395 EB5C 1C 00           ..    bset add,x 00,x
13396 EB5E 40              @     nega
13397 EB5F CE 00 01        ...   ldx #0001
13398 EB62 3C              <     pshx
13399 EB63 CC 00 20        ..    ldd #0020
13400 EB66 BD BD B5        ...   jsr bdb5
13401 EB69 38              8     pulx
13402 EB6A CE 10 28        ..(   ldx #1028
13403 EB6D 1D 00           ..    bclr add,x 00,x
13404 EB6F 40              @     nega
13405 EB70 BD BE 10        ...   jsr be10
13406 EB73 0E              .     cli
13407 EB74 CC 00 07        ...   ldd #0007
13408 EB77 BD E5 71        ..q   jsr e571
13409 EB7A 30              0     tsx
13410 EB7B 6C 00           l.    inc 00,x
13411 EB7D 20 BE            .    bra be
13412 EB7F 20 B4            .    bra b4
13413 EB81 BD BE 69        ..i   jsr be69
13414 EB84 CC 08 00        ...   ldd #0800
13415 EB87 FD 00 73        ..s   stad 0073
13416 EB8A FC 00 73        ..s   ldd 0073
13417 EB8D 83 0F FF        ...   subd #0fff
13418 EB90 22 10           ".    bhi 10
13419 EB92 C6 AA           ..    ldab #aa
13420 EB94 FE 00 73        ..s   ldx 0073
13421 EB97 E7 00           ..    stb 00,x
13422 EB99 FE 00 73        ..s   ldx 0073
13423 EB9C 08              .     inx
13424 EB9D FF 00 73        ..s   stx 0073
13425 EBA0 20 E8            .    bra e8
13426 EBA2 CC 08 00        ...   ldd #0800
13427 EBA5 FD 00 73        ..s   stad 0073
13428 EBA8 FC 00 73        ..s   ldd 0073
13429 EBAB 83 0F FF        ...   subd #0fff
13430 EBAE 22 1A           ".    bhi 1a
13431 EBB0 FE 00 73        ..s   ldx 0073
13432 EBB3 E6 00           ..    ldab 00,x
13433 EBB5 C1 AA           ..    cmpb #aa
13434 EBB7 27 08           '.    beq 08
13435 EBB9 CE 10 16        ...   ldx #1016
13436 EBBC 1D 00           ..    bclr add,x 00,x
13437 EBBE FF 20 09        . .   stx 2009
13438 EBC1 FE 00 73        ..s   ldx 0073
13439 EBC4 08              .     inx
13440 EBC5 FF 00 73        ..s   stx 0073
13441 EBC8 20 DE            .    bra de
13442 EBCA CC 08 00        ...   ldd #0800
13443 EBCD FD 00 73        ..s   stad 0073
13444 EBD0 FC 00 73        ..s   ldd 0073
13445 EBD3 83 0F FF        ...   subd #0fff
13446 EBD6 22 10           ".    bhi 10
13447 EBD8 C6 55           .U    ldab #55
13448 EBDA FE 00 73        ..s   ldx 0073
13449 EBDD E7 00           ..    stb 00,x
13450 EBDF FE 00 73        ..s   ldx 0073
13451 EBE2 08              .     inx
13452 EBE3 FF 00 73        ..s   stx 0073
13453 EBE6 20 E8            .    bra e8
13454 EBE8 CC 08 00        ...   ldd #0800
13455 EBEB FD 00 73        ..s   stad 0073
13456 EBEE FC 00 73        ..s   ldd 0073
13457 EBF1 83 0F FF        ...   subd #0fff
13458 EBF4 22 1A           ".    bhi 1a
13459 EBF6 FE 00 73        ..s   ldx 0073
13460 EBF9 E6 00           ..    ldab 00,x
13461 EBFB C1 55           .U    cmpb #55
13462 EBFD 27 08           '.    beq 08
13463 EBFF CE 10 16        ...   ldx #1016
13464 EC02 1D 00           ..    bclr add,x 00,x
13465 EC04 FF 20 09        . .   stx 2009
13466 EC07 FE 00 73        ..s   ldx 0073
13467 EC0A 08              .     inx
13468 EC0B FF 00 73        ..s   stx 0073
13469 EC0E 20 DE            .    bra de
13470 EC10 CC 08 00        ...   ldd #0800
13471 EC13 FD 00 73        ..s   stad 0073
13472 EC16 FC 00 73        ..s   ldd 0073
13473 EC19 83 0F FF        ...   subd #0fff
13474 EC1C 22 0F           ".    bhi 0f
13475 EC1E 5F              _     clrb
13476 EC1F FE 00 73        ..s   ldx 0073
13477 EC22 E7 00           ..    stb 00,x
13478 EC24 FE 00 73        ..s   ldx 0073
13479 EC27 08              .     inx
13480 EC28 FF 00 73        ..s   stx 0073
13481 EC2B 20 E9            .    bra e9
13482 EC2D 7F 00 06        ...   clr 0006
13483 EC30 F6 00 06        ...   ldab 0006
13484 EC33 C1 64           .d    cmpb #64
13485 EC35 24 4D           $M    bcc 4d
13486 EC37 F6 00 06        ...   ldab 0006
13487 EC3A 4F              O     clra
13488 EC3B CE 00 05        ...   ldx #0005
13489 EC3E 02              .     idiv
13490 EC3F 5D              ]     tstb
13491 EC40 27 3D           '=    beq 3d
13492 EC42 CC 00 32        ..2   ldd #0032
13493 EC45 37              7     pshb
13494 EC46 36              6     psha
13495 EC47 F6 00 06        ...   ldab 0006
13496 EC4A 4F              O     clra
13497 EC4B 05              .     asld
13498 EC4C C3 08 00        ...   addd #0800
13499 EC4F 38              8     pulx
13500 EC50 8F              .     xgdx
13501 EC51 ED 00           ..    stad 00,x
13502 EC53 F6 00 06        ...   ldab 0006
13503 EC56 4F              O     clra
13504 EC57 05              .     asld
13505 EC58 C3 08 00        ...   addd #0800
13506 EC5B 8F              .     xgdx
13507 EC5C EC 00           ..    ldd 00,x
13508 EC5E 43              C     coma
13509 EC5F 53              S     comb
13510 EC60 37              7     pshb
13511 EC61 36              6     psha
13512 EC62 F6 00 06        ...   ldab 0006
13513 EC65 4F              O     clra
13514 EC66 05              .     asld
13515 EC67 C3 0B F1        ...   addd #0bf1
13516 EC6A 38              8     pulx
13517 EC6B 8F              .     xgdx
13518 EC6C ED 00           ..    stad 00,x
13519 EC6E CC 08 01        ...   ldd #0801
13520 EC71 37              7     pshb
13521 EC72 36              6     psha
13522 EC73 F6 00 06        ...   ldab 0006
13523 EC76 4F              O     clra
13524 EC77 05              .     asld
13525 EC78 C3 08 C8        ...   addd #08c8
13526 EC7B 38              8     pulx
13527 EC7C 8F              .     xgdx
13528 EC7D ED 00           ..    stad 00,x
13529 EC7F 7C 00 06        |..   inc 0006
13530 EC82 20 AC            .    bra ac
13531 EC84 C6 1D           ..    ldab #1d
13532 EC86 F7 0B BF        ...   stb 0bbf
13533 EC89 30              0     tsx
13534 EC8A 6F 00           o.    clr 00,x
13535 EC8C F6 0B BF        ...   ldab 0bbf
13536 EC8F 4F              O     clra
13537 EC90 C3 00 02        ...   addd #0002
13538 EC93 37              7     pshb
13539 EC94 36              6     psha
13540 EC95 30              0     tsx
13541 EC96 E6 02           ..    ldab 02,x
13542 EC98 4F              O     clra
13543 EC99 A3 00           ..    subd 00,x
13544 EC9B 31              1     ins
13545 EC9C 31              1     ins
13546 EC9D 2C 1B           ,.    bge 1b
13547 EC9F 30              0     tsx
13548 ECA0 E6 00           ..    ldab 00,x
13549 ECA2 4F              O     clra
13550 ECA3 C3 B1 D0        ...   addd #b1d0
13551 ECA6 8F              .     xgdx
13552 ECA7 E6 00           ..    ldab 00,x
13553 ECA9 37              7     pshb
13554 ECAA 30              0     tsx
13555 ECAB E6 01           ..    ldab 01,x
13556 ECAD 4F              O     clra
13557 ECAE C3 09 93        ...   addd #0993
13558 ECB1 8F              .     xgdx
13559 ECB2 33              3     pulb
13560 ECB3 E7 00           ..    stb 00,x
13561 ECB5 30              0     tsx
13562 ECB6 6C 00           l.    inc 00,x
13563 ECB8 20 D2            .    bra d2
13564 ECBA 7F 0B A8        ...   clr 0ba8
13565 ECBD CC 00 32        ..2   ldd #0032
13566 ECC0 FD 0B B5        ...   stad 0bb5
13567 ECC3 5F              _     clrb
13568 ECC4 4F              O     clra
13569 ECC5 FD 0B B7        ...   stad 0bb7
13570 ECC8 7F 00 06        ...   clr 0006
13571 ECCB BD A6 4E        ..N   jsr a64e
13572 ECCE C6 09           ..    ldab #09
13573 ECD0 F7 0B C0        ...   stb 0bc0
13574 ECD3 7F 0E 6D        ..m   clr 0e6d
13575 ECD6 C6 01           ..    ldab #01
13576 ECD8 F7 0E 6E        ..n   stb 0e6e
13577 ECDB 30              0     tsx
13578 ECDC 6F 00           o.    clr 00,x
13579 ECDE 30              0     tsx
13580 ECDF E6 00           ..    ldab 00,x
13581 ECE1 C1 0F           ..    cmpb #0f
13582 ECE3 24 21           $!    bcc 21
13583 ECE5 C6 30           .0    ldab #30
13584 ECE7 37              7     pshb
13585 ECE8 30              0     tsx
13586 ECE9 E6 01           ..    ldab 01,x
13587 ECEB 4F              O     clra
13588 ECEC C3 0C B9        ...   addd #0cb9
13589 ECEF 8F              .     xgdx
13590 ECF0 33              3     pulb
13591 ECF1 E7 00           ..    stb 00,x
13592 ECF3 C6 30           .0    ldab #30
13593 ECF5 37              7     pshb
13594 ECF6 30              0     tsx
13595 ECF7 E6 01           ..    ldab 01,x
13596 ECF9 4F              O     clra
13597 ECFA C3 0C C9        ...   addd #0cc9
13598 ECFD 8F              .     xgdx
13599 ECFE 33              3     pulb
13600 ECFF E7 00           ..    stb 00,x
13601 ED01 30              0     tsx
13602 ED02 6C 00           l.    inc 00,x
13603 ED04 20 D8            .    bra d8
13604 ED06 30              0     tsx
13605 ED07 6F 00           o.    clr 00,x
13606 ED09 30              0     tsx
13607 ED0A E6 00           ..    ldab 00,x
13608 ED0C C1 0B           ..    cmpb #0b
13609 ED0E 24 12           $.    bcc 12
13610 ED10 5F              _     clrb
13611 ED11 37              7     pshb
13612 ED12 30              0     tsx
13613 ED13 E6 01           ..    ldab 01,x
13614 ED15 4F              O     clra
13615 ED16 C3 0B E4        ...   addd #0be4
13616 ED19 8F              .     xgdx
13617 ED1A 33              3     pulb
13618 ED1B E7 00           ..    stb 00,x
13619 ED1D 30              0     tsx
13620 ED1E 6C 00           l.    inc 00,x
13621 ED20 20 E7            .    bra e7
13622 ED22 4F              O     clra
13623 ED23 5F              _     clrb
13624 ED24 FD 0D F9        ...   stad 0df9
13625 ED27 FD 0D F7        ...   stad 0df7
13626 ED2A 4F              O     clra
13627 ED2B 5F              _     clrb
13628 ED2C FD 0D F5        ...   stad 0df5
13629 ED2F FD 0D F3        ...   stad 0df3
13630 ED32 7F 0C D9        ...   clr 0cd9
13631 ED35 7F 0C DA        ...   clr 0cda
13632 ED38 7F 0C DB        ...   clr 0cdb
13633 ED3B 7F 0C DC        ...   clr 0cdc
13634 ED3E 4F              O     clra
13635 ED3F 5F              _     clrb
13636 ED40 FD 0D F1        ...   stad 0df1
13637 ED43 FD 0D EF        ...   stad 0def
13638 ED46 4F              O     clra
13639 ED47 5F              _     clrb
13640 ED48 FD 0D FD        ...   stad 0dfd
13641 ED4B FD 0D FB        ...   stad 0dfb
13642 ED4E 4F              O     clra
13643 ED4F 5F              _     clrb
13644 ED50 FD 0D E9        ...   stad 0de9
13645 ED53 FD 0D E7        ...   stad 0de7
13646 ED56 4F              O     clra
13647 ED57 5F              _     clrb
13648 ED58 FD 0D ED        ...   stad 0ded
13649 ED5B FD 0D EB        ...   stad 0deb
13650 ED5E 5F              _     clrb
13651 ED5F 4F              O     clra
13652 ED60 FD 0C DD        ...   stad 0cdd
13653 ED63 5F              _     clrb
13654 ED64 4F              O     clra
13655 ED65 FD 0C DF        ...   stad 0cdf
13656 ED68 5F              _     clrb
13657 ED69 4F              O     clra
13658 ED6A FD 0C E1        ...   stad 0ce1
13659 ED6D 5F              _     clrb
13660 ED6E 4F              O     clra
13661 ED6F FD 0C E3        ...   stad 0ce3
13662 ED72 5F              _     clrb
13663 ED73 4F              O     clra
13664 ED74 FD 0C E5        ...   stad 0ce5
13665 ED77 4F              O     clra
13666 ED78 5F              _     clrb
13667 ED79 FD 0C F5        ...   stad 0cf5
13668 ED7C FD 0C F3        ...   stad 0cf3
13669 ED7F 4F              O     clra
13670 ED80 5F              _     clrb
13671 ED81 FD 0C F9        ...   stad 0cf9
13672 ED84 FD 0C F7        ...   stad 0cf7
13673 ED87 4F              O     clra
13674 ED88 5F              _     clrb
13675 ED89 FD 0C FD        ...   stad 0cfd
13676 ED8C FD 0C FB        ...   stad 0cfb
13677 ED8F 4F              O     clra
13678 ED90 5F              _     clrb
13679 ED91 FD 0D 01        ...   stad 0d01
13680 ED94 FD 0C FF        ...   stad 0cff
13681 ED97 4F              O     clra
13682 ED98 5F              _     clrb
13683 ED99 FD 0D 05        ...   stad 0d05
13684 ED9C FD 0D 03        ...   stad 0d03
13685 ED9F 5F              _     clrb
13686 EDA0 4F              O     clra
13687 EDA1 FD 0D 07        ...   stad 0d07
13688 EDA4 5F              _     clrb
13689 EDA5 4F              O     clra
13690 EDA6 FD 0D 09        ...   stad 0d09
13691 EDA9 5F              _     clrb
13692 EDAA 4F              O     clra
13693 EDAB FD 0D 0B        ...   stad 0d0b
13694 EDAE 5F              _     clrb
13695 EDAF 4F              O     clra
13696 EDB0 FD 0D 0D        ...   stad 0d0d
13697 EDB3 4F              O     clra
13698 EDB4 5F              _     clrb
13699 EDB5 FD 0D 11        ...   stad 0d11
13700 EDB8 FD 0D 0F        ...   stad 0d0f
13701 EDBB 4F              O     clra
13702 EDBC 5F              _     clrb
13703 EDBD FD 0D 15        ...   stad 0d15
13704 EDC0 FD 0D 13        ...   stad 0d13
13705 EDC3 4F              O     clra
13706 EDC4 5F              _     clrb
13707 EDC5 FD 0D 19        ...   stad 0d19
13708 EDC8 FD 0D 17        ...   stad 0d17
13709 EDCB 4F              O     clra
13710 EDCC 5F              _     clrb
13711 EDCD FD 0D 1D        ...   stad 0d1d
13712 EDD0 FD 0D 1B        ...   stad 0d1b
13713 EDD3 7F 0B AF        ...   clr 0baf
13714 EDD6 7F 0B AE        ...   clr 0bae
13715 EDD9 7F 0B AD        ...   clr 0bad
13716 EDDC 7F 0B AC        ...   clr 0bac
13717 EDDF 7F 0B AB        ...   clr 0bab
13718 EDE2 7F 0B B4        ...   clr 0bb4
13719 EDE5 7F 0B B3        ...   clr 0bb3
13720 EDE8 7F 0B B2        ...   clr 0bb2
13721 EDEB 7F 0B B1        ...   clr 0bb1
13722 EDEE 7F 0B B0        ...   clr 0bb0
13723 EDF1 C6 05           ..    ldab #05
13724 EDF3 F7 08 00        ...   stb 0800
13725 EDF6 8D 21           .!    bsr dest 21
13726 EDF8 7F 00 14        ...   clr 0014
13727 EDFB F6 00 14        ...   ldab 0014
13728 EDFE F7 38 00        .8.   stb 3800
13729 EE01 31              1     ins
13730 EE02 39              9     rts
13731
13732 EE03 37              7     pshb
13733 EE04 36              6     psha
13734 EE05 30              0     tsx
13735 EE06 EC 00           ..    ldd 00,x
13736 EE08 BD C0 BA        ...   jsr c0ba
13737 EE0B CE 10 16        ...   ldx #1016
13738 EE0E 1D 01           ..    bclr add,x 01,x
13739 EE10 FF CC 05        ...   stx cc05
13740 EE13 DC BD E5        ...   ldd bd
13741 EE16 71              q     illegal
13742 EE17 38              8     pulx
13743 EE18 39              9     rts
13744
13745 EE19 BD E5 D1        ...   jsr e5d1
13746 EE1C CE 10 16        ...   ldx #1016
13747 EE1F 1D 01           ..    bclr add,x 01,x
13748 EE21 FF CE 10        ...   stx ce10
13749 EE24 16              .     tab
13750 EE25 1C 01           ..    bset add,x 01,x
13751 EE27 5A              Z     decb
13752 EE28 F6 10 16        ...   ldab 1016
13753 EE2B 26 0C           &.    bne 0c
13754 EE2D CC B1 4F        ..O   ldd #b14f
13755 EE30 BD C0 BA        ...   jsr c0ba
13756 EE33 CC 05 DC        ...   ldd #05dc
13757 EE36 BD E5 71        ..q   jsr e571
13758 EE39 C6 04           ..    ldab #04
13759 EE3B F7 00 1C        ...   stb 001c
13760 EE3E F6 00 1C        ...   ldab 001c
13761 EE41 C1 07           ..    cmpb #07
13762 EE43 24 57           $W    bcc 57
13763 EE45 F6 00 1C        ...   ldab 001c
13764 EE48 4F              O     clra
13765 EE49 C3 B1 23        ..#   addd #b123
13766 EE4C 8F              .     xgdx
13767 EE4D E6 00           ..    ldab 00,x
13768 EE4F 53              S     comb
13769 EE50 F4 00 1A        ...   andb 001a
13770 EE53 F7 00 1A        ...   stb 001a
13771 EE56 F6 00 1A        ...   ldab 001a
13772 EE59 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13773 EE5C CC 00 0A        ...   ldd #000a
13774 EE5F BD E5 71        ..q   jsr e571
13775 EE62 F6 18 00        ...   ldab 1800
13776 EE65 2C 07           ,.    bge 07
13777 EE67 CC B1 5A        ..Z   ldd #b15a
13778 EE6A 8D 97           ..    bsr dest 97
13779 EE6C 20 2E            .    bra 2e
13780 EE6E F6 00 1C        ...   ldab 001c
13781 EE71 4F              O     clra
13782 EE72 C3 B1 23        ..#   addd #b123
13783 EE75 8F              .     xgdx
13784 EE76 E6 00           ..    ldab 00,x
13785 EE78 FA 00 1A        ...   orb 001a
13786 EE7B F7 00 1A        ...   stb 001a
13787 EE7E F6 00 1A        ...   ldab 001a
13788 EE81 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13789 EE84 CC 00 0A        ...   ldd #000a
13790 EE87 BD E5 71        ..q   jsr e571
13791 EE8A F6 18 00        ...   ldab 1800
13792 EE8D 2D 08           -.    blt 08
13793 EE8F CC B1 5A        ..Z   ldd #b15a
13794 EE92 BD EE 03        ...   jsr ee03
13795 EE95 20 05            .    bra 05
13796 EE97 7C 00 1C        |..   inc 001c
13797 EE9A 20 A2            .    bra a2
13798 EE9C CE 10 00        ...   ldx #1000
13799 EE9F 1C 00           ..    bset add,x 00,x
13800 EEA1 08              .     inx
13801 EEA2 CE 10 08        ...   ldx #1008
13802 EEA5 1C 00           ..    bset add,x 00,x
13803 EEA7 02              .     idiv
13804 EEA8 CE 00 1A        ...   ldx #001a
13805 EEAB 1C 00           ..    bset add,x 00,x
13806 EEAD 40              @     nega
13807 EEAE F6 00 1A        ...   ldab 001a
13808 EEB1 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13809 EEB4 CC 00 0A        ...   ldd #000a
13810 EEB7 BD E5 71        ..q   jsr e571
13811 EEBA F6 10 08        ...   ldab 1008
13812 EEBD C4 01           ..    andb #01
13813 EEBF 26 06           &.    bne 06
13814 EEC1 CC B1 5A        ..Z   ldd #b15a
13815 EEC4 BD EE 03        ...   jsr ee03
13816 EEC7 CE 00 1A        ...   ldx #001a
13817 EECA 1D 00           ..    bclr add,x 00,x
13818 EECC 40              @     nega
13819 EECD F6 00 1A        ...   ldab 001a
13820 EED0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13821 EED3 CC 00 0A        ...   ldd #000a
13822 EED6 BD E5 71        ..q   jsr e571
13823 EED9 F6 10 08        ...   ldab 1008
13824 EEDC C4 01           ..    andb #01
13825 EEDE 27 06           '.    beq 06
13826 EEE0 CC B1 5A        ..Z   ldd #b15a
13827 EEE3 BD EE 03        ...   jsr ee03
13828 EEE6 CE 00 1A        ...   ldx #001a
13829 EEE9 1C 00           ..    bset add,x 00,x
13830 EEEB 02              .     idiv
13831 EEEC F6 00 1A        ...   ldab 001a
13832 EEEF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13833 EEF2 CC 00 0A        ...   ldd #000a
13834 EEF5 BD E5 71        ..q   jsr e571
13835 EEF8 F6 10 00        ...   ldab 1000
13836 EEFB C4 04           ..    andb #04
13837 EEFD 26 06           &.    bne 06
13838 EEFF CC B1 65        ..e   ldd #b165
13839 EF02 BD EE 03        ...   jsr ee03
13840 EF05 CE 00 1A        ...   ldx #001a
13841 EF08 1D 00           ..    bclr add,x 00,x
13842 EF0A 02              .     idiv
13843 EF0B F6 00 1A        ...   ldab 001a
13844 EF0E F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13845 EF11 CC 00 0A        ...   ldd #000a
13846 EF14 BD E5 71        ..q   jsr e571
13847 EF17 F6 10 00        ...   ldab 1000
13848 EF1A C4 04           ..    andb #04
13849 EF1C 27 06           '.    beq 06
13850 EF1E CC B1 65        ..e   ldd #b165
13851 EF21 BD EE 03        ...   jsr ee03
13852 EF24 CE 00 1A        ...   ldx #001a
13853 EF27 1C 00           ..    bset add,x 00,x
13854 EF29 01              .     nop
13855 EF2A F6 00 1A        ...   ldab 001a
13856 EF2D F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13857 EF30 CC 00 0A        ...   ldd #000a
13858 EF33 BD E5 71        ..q   jsr e571
13859 EF36 F6 18 00        ...   ldab 1800
13860 EF39 C4 20           .     andb #20
13861 EF3B 26 06           &.    bne 06
13862 EF3D CC B1 70        ..p   ldd #b170
13863 EF40 BD EE 03        ...   jsr ee03
13864 EF43 CE 00 1A        ...   ldx #001a
13865 EF46 1D 00           ..    bclr add,x 00,x
13866 EF48 01              .     nop
13867 EF49 F6 00 1A        ...   ldab 001a
13868 EF4C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13869 EF4F CC 00 0A        ...   ldd #000a
13870 EF52 BD E5 71        ..q   jsr e571
13871 EF55 F6 18 00        ...   ldab 1800
13872 EF58 C4 20           .     andb #20
13873 EF5A 27 06           '.    beq 06
13874 EF5C CC B1 70        ..p   ldd #b170
13875 EF5F BD EE 03        ...   jsr ee03
13876 EF62 CE 00 1A        ...   ldx #001a
13877 EF65 1C 00           ..    bset add,x 00,x
13878 EF67 04              .     lsrd
13879 EF68 F6 00 1A        ...   ldab 001a
13880 EF6B F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13881 EF6E CC 00 0A        ...   ldd #000a
13882 EF71 BD E5 71        ..q   jsr e571
13883 EF74 F6 10 0A        ...   ldab 100a
13884 EF77 C4 04           ..    andb #04
13885 EF79 26 06           &.    bne 06
13886 EF7B CC B1 7B        ..{   ldd #b17b
13887 EF7E BD EE 03        ...   jsr ee03
13888 EF81 CE 00 1A        ...   ldx #001a
13889 EF84 1D 00           ..    bclr add,x 00,x
13890 EF86 04              .     lsrd
13891 EF87 F6 00 1A        ...   ldab 001a
13892 EF8A F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13893 EF8D CC 00 0A        ...   ldd #000a
13894 EF90 BD E5 71        ..q   jsr e571
13895 EF93 F6 10 0A        ...   ldab 100a
13896 EF96 C4 04           ..    andb #04
13897 EF98 27 06           '.    beq 06
13898 EF9A CC B1 7B        ..{   ldd #b17b
13899 EF9D BD EE 03        ...   jsr ee03
13900 EFA0 CE 10 00        ...   ldx #1000
13901 EFA3 1C 00           ..    bset add,x 00,x
13902 EFA5 08              .     inx
13903 EFA6 CE 00 1A        ...   ldx #001a
13904 EFA9 1C 00           ..    bset add,x 00,x
13905 EFAB 40              @     nega
13906 EFAC F6 00 1A        ...   ldab 001a
13907 EFAF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13908 EFB2 CE 10 08        ...   ldx #1008
13909 EFB5 1C 00           ..    bset add,x 00,x
13910 EFB7 02              .     idiv
13911 EFB8 CC 00 0A        ...   ldd #000a
13912 EFBB BD E5 71        ..q   jsr e571
13913 EFBE F6 10 08        ...   ldab 1008
13914 EFC1 C4 01           ..    andb #01
13915 EFC3 26 06           &.    bne 06
13916 EFC5 CC B1 86        ...   ldd #b186
13917 EFC8 BD EE 03        ...   jsr ee03
13918 EFCB CE 10 08        ...   ldx #1008
13919 EFCE 1D 00           ..    bclr add,x 00,x
13920 EFD0 02              .     idiv
13921 EFD1 CC 00 0A        ...   ldd #000a
13922 EFD4 BD E5 71        ..q   jsr e571
13923 EFD7 F6 10 08        ...   ldab 1008
13924 EFDA C4 01           ..    andb #01
13925 EFDC 27 06           '.    beq 06
13926 EFDE CC B1 86        ...   ldd #b186
13927 EFE1 BD EE 03        ...   jsr ee03
13928 EFE4 CE 10 00        ...   ldx #1000
13929 EFE7 1D 00           ..    bclr add,x 00,x
13930 EFE9 08              .     inx
13931 EFEA CE 10 08        ...   ldx #1008
13932 EFED 1C 00           ..    bset add,x 00,x
13933 EFEF 02              .     idiv
13934 EFF0 CC 00 0A        ...   ldd #000a
13935 EFF3 BD E5 71        ..q   jsr e571
13936 EFF6 F6 10 08        ...   ldab 1008
13937 EFF9 C4 01           ..    andb #01
13938 EFFB 26 06           &.    bne 06
13939 EFFD CC B1 91        ...   ldd #b191
13940 F000 BD EE 03        ...   jsr ee03
13941 F003 CE 10 08        ...   ldx #1008
13942 F006 1D 00           ..    bclr add,x 00,x
13943 F008 02              .     idiv
13944 F009 CC 00 0A        ...   ldd #000a
13945 F00C BD E5 71        ..q   jsr e571
13946 F00F F6 10 08        ...   ldab 1008
13947 F012 C4 01           ..    andb #01
13948 F014 27 06           '.    beq 06
13949 F016 CC B1 91        ...   ldd #b191
13950 F019 BD EE 03        ...   jsr ee03
13951 F01C CE 00 14        ...   ldx #0014
13952 F01F 1C 00           ..    bset add,x 00,x
13953 F021 20 F6            .    bra f6
13954 F023 00              .     test
13955 F024 14              .     bset
13956 F025 F7 38 00        .8.   stb 3800
13957 F028 CC 00 0A        ...   ldd #000a
13958 F02B BD E5 71        ..q   jsr e571
13959 F02E F6 20 00        . .   ldab 2000
13960 F031 C4 40           .@    andb #40
13961 F033 26 06           &.    bne 06
13962 F035 CC B1 9C        ...   ldd #b19c
13963 F038 BD EE 03        ...   jsr ee03
13964 F03B CE 00 14        ...   ldx #0014
13965 F03E 1D 00           ..    bclr add,x 00,x
13966 F040 20 F6            .    bra f6
13967 F042 00              .     test
13968 F043 14              .     bset
13969 F044 F7 38 00        .8.   stb 3800
13970 F047 CC 00 0A        ...   ldd #000a
13971 F04A BD E5 71        ..q   jsr e571
13972 F04D F6 20 00        . .   ldab 2000
13973 F050 C4 40           .@    andb #40
13974 F052 27 06           '.    beq 06
13975 F054 CC B1 9C        ...   ldd #b19c
13976 F057 BD EE 03        ...   jsr ee03
13977 F05A CE 00 14        ...   ldx #0014
13978 F05D 1C 00           ..    bset add,x 00,x
13979 F05F 40              @     nega
13980 F060 F6 00 14        ...   ldab 0014
13981 F063 F7 38 00        .8.   stb 3800
13982 F066 CC 00 0A        ...   ldd #000a
13983 F069 BD E5 71        ..q   jsr e571
13984 F06C F6 20 00        . .   ldab 2000
13985 F06F 2C 06           ,.    bge 06
13986 F071 CC B1 9C        ...   ldd #b19c
13987 F074 BD EE 03        ...   jsr ee03
13988 F077 CE 00 14        ...   ldx #0014
13989 F07A 1D 00           ..    bclr add,x 00,x
13990 F07C 40              @     nega
13991 F07D F6 00 14        ...   ldab 0014
13992 F080 F7 38 00        .8.   stb 3800
13993 F083 CC 00 0A        ...   ldd #000a
13994 F086 BD E5 71        ..q   jsr e571
13995 F089 F6 20 00        . .   ldab 2000
13996 F08C 2D 06           -.    blt 06
13997 F08E CC B1 9C        ...   ldd #b19c
13998 F091 BD EE 03        ...   jsr ee03
13999 F094 7F 00 61        ..a   clr 0061
14000 F097 F6 00 61        ..a   ldab 0061
14001 F09A C1 08           ..    cmpb #08
14002 F09C 24 22           $"    bcc 22
14003 F09E F6 00 61        ..a   ldab 0061
14004 F0A1 4F              O     clra
14005 F0A2 C3 B1 C8        ...   addd #b1c8
14006 F0A5 8F              .     xgdx
14007 F0A6 E6 00           ..    ldab 00,x
14008 F0A8 F7 00 06        ...   stb 0006
14009 F0AB BD D3 11        ...   jsr d311
14010 F0AE 83 00 00        ...   subd #0000
14011 F0B1 27 08           '.    beq 08
14012 F0B3 CC B1 A7        ...   ldd #b1a7
14013 F0B6 BD EE 03        ...   jsr ee03
14014 F0B9 20 05            .    bra 05
14015 F0BB 7C 00 61        |.a   inc 0061
14016 F0BE 20 D7            .    bra d7
14017 F0C0 7F 00 61        ..a   clr 0061
14018 F0C3 F6 00 61        ..a   ldab 0061
14019 F0C6 C1 08           ..    cmpb #08
14020 F0C8 24 2B           $+    bcc 2b
14021 F0CA F6 00 61        ..a   ldab 0061
14022 F0CD 4F              O     clra
14023 F0CE C3 B1 C8        ...   addd #b1c8
14024 F0D1 8F              .     xgdx
14025 F0D2 E6 00           ..    ldab 00,x
14026 F0D4 F7 00 06        ...   stb 0006
14027 F0D7 BD D1 3D        ..=   jsr d13d
14028 F0DA BD D5 70        ..p   jsr d570
14029 F0DD 83 00 00        ...   subd #0000
14030 F0E0 26 0B           &.    bne 0b
14031 F0E2 BD D1 05        ...   jsr d105
14032 F0E5 CC B1 B2        ...   ldd #b1b2
14033 F0E8 BD EE 03        ...   jsr ee03
14034 F0EB 20 08            .    bra 08
14035 F0ED BD D1 05        ...   jsr d105
14036 F0F0 7C 00 61        |.a   inc 0061
14037 F0F3 20 CE            .    bra ce
14038 F0F5 7F 00 61        ..a   clr 0061
14039 F0F8 F6 00 61        ..a   ldab 0061
14040 F0FB C1 05           ..    cmpb #05
14041 F0FD 24 45           $E    bcc 45
14042 F0FF F6 00 61        ..a   ldab 0061
14043 F102 4F              O     clra
14044 F103 C3 B1 C8        ...   addd #b1c8
14045 F106 8F              .     xgdx
14046 F107 E6 00           ..    ldab 00,x
14047 F109 F7 00 06        ...   stb 0006
14048 F10C BD D1 3D        ..=   jsr d13d
14049 F10F CC 00 0A        ...   ldd #000a
14050 F112 BD E5 71        ..q   jsr e571
14051 F115 F6 18 00        ...   ldab 1800
14052 F118 C4 40           .@    andb #40
14053 F11A 26 0B           &.    bne 0b
14054 F11C BD D1 05        ...   jsr d105
14055 F11F CC B1 B2        ...   ldd #b1b2
14056 F122 BD EE 03        ...   jsr ee03
14057 F125 20 1D            .    bra 1d
14058 F127 BD D1 05        ...   jsr d105
14059 F12A CC 00 0A        ...   ldd #000a
14060 F12D BD E5 71        ..q   jsr e571
14061 F130 F6 18 00        ...   ldab 1800
14062 F133 C4 40           .@    andb #40
14063 F135 27 08           '.    beq 08
14064 F137 CC B1 B2        ...   ldd #b1b2
14065 F13A BD EE 03        ...   jsr ee03
14066 F13D 20 05            .    bra 05
14067 F13F 7C 00 61        |.a   inc 0061
14068 F142 20 B4            .    bra b4
14069 F144 FC 10 16        ...   ldd 1016
14070 F147 83 5A 5A        .ZZ   subd #5a5a
14071 F14A 26 0C           &.    bne 0c
14072 F14C CC B1 BD        ...   ldd #b1bd
14073 F14F BD C0 BA        ...   jsr c0ba
14074 F152 CC 05 DC        ...   ldd #05dc
14075 F155 BD E5 71        ..q   jsr e571
14076 F158 7E EE 1C        ~..   jmp ee1c
14077
14078 ;send a byte to the printer?
14079 ;it calls c7e7, which does things with the serial port
14080
14081 F15B 37              7     pshb
14082 F15C 36              6     psha
14083 F15D F6 00 19        ...   ldab 0019
14084 F160 C4 40           .@    andb #40
14085 F162 26 5B           &[    bne 5b
14086 F164 C6 FF           ..    ldab #ff
14087 F166 F7 00 39        ..9   stb 0039
14088 F169 F6 20 00        . .   ldab 2000
14089 F16C 2C 11           ,.    bge 11
14090 F16E F6 20 00        . .   ldab 2000
14091 F171 C4 40           .@    andb #40
14092 F173 27 0A           '.    beq 0a
14093 F175 F6 00 39        ..9   ldab 0039
14094 F178 27 05           '.    beq 05
14095 F17A BD E6 1B        ...   jsr e61b
14096 F17D 20 EA            .    bra ea
14097 F17F F6 00 39        ..9   ldab 0039
14098 F182 26 08           &.    bne 08
14099 F184 CE 00 19        ...   ldx #0019
14100 F187 1C 00           ..    bset add,x 00,x
14101 F189 40              @     nega
14102 F18A 20 33            3    bra 33
14103 F18C F6 20 00        . .   ldab 2000
14104 F18F C4 40           .@    andb #40
14105 F191 27 2C           ',    beq 2c
14106 F193 F6 00 1D        ...   ldab 001d
14107 F196 C4 01           ..    andb #01
14108 F198 27 1E           '.    beq 1e
14109 F19A 30              0     tsx
14110 F19B E6 01           ..    ldab 01,x
14111 F19D C1 30           .0    cmpb #30
14112 F19F 26 08           &.    bne 08
14113 F1A1 CC 00 20        ..    ldd #0020
14114 F1A4 BD C7 E7        ...   jsr c7e7
14115 F1A7 20 0D            .    bra 0d
14116 F1A9 30              0     tsx
14117 F1AA E6 01           ..    ldab 01,x
14118 F1AC 4F              O     clra
14119 F1AD BD C7 E7        ...   jsr c7e7
14120 F1B0 CE 00 1D        ...   ldx #001d
14121 F1B3 1D 00           ..    bclr add,x 00,x
14122 F1B5 01              .     nop
14123 F1B6 20 07            .    bra 07
14124 F1B8 30              0     tsx
14125 F1B9 E6 01           ..    ldab 01,x
14126 F1BB 4F              O     clra
14127 F1BC BD C7 E7        ...   jsr c7e7
14128 F1BF 38              8     pulx
14129 F1C0 39              9     rts
14130
14131 F1C1 37              7     pshb
14132 F1C2 36              6     psha
14133 F1C3 F6 20 00        . .   ldab 2000
14134 F1C6 C4 40           .@    andb #40
14135 F1C8 27 1C           '.    beq 1c
14136 F1CA 7F 00 18        ...   clr 0018
14137 F1CD F6 00 18        ...   ldab 0018
14138 F1D0 30              0     tsx
14139 F1D1 E1 05           ..    cmpb 05,x
14140 F1D3 24 11           $.    bcc 11
14141 F1D5 30              0     tsx
14142 F1D6 EE 00           ..    ldx 00,x
14143 F1D8 E6 00           ..    ldab 00,x
14144 F1DA 4F              O     clra
14145 F1DB BD F1 5B        ..[   jsr f15b
14146 F1DE 38              8     pulx
14147 F1DF 08              .     inx
14148 F1E0 3C              <     pshx
14149 F1E1 7C 00 18        |..   inc 0018
14150 F1E4 20 E7            .    bra e7
14151 F1E6 38              8     pulx
14152 F1E7 39              9     rts
14153
14154 ;send a string to the printer?  D is a pointer to a string, and some of them
14155 ;look *way* too long for the display.  Or does it scroll them?
14156
14157 F1E8 37              7     pshb
14158 F1E9 36              6     psha
14159 F1EA F6 20 00        . .   ldab 2000
14160 F1ED C4 40           .@    andb #40
14161 F1EF 27 1B           '.    beq 1b
14162 F1F1 CC 00 20        ..    ldd #0020
14163 F1F4 BD F1 5B        ..[   jsr f15b
14164 F1F7 30              0     tsx
14165 F1F8 EE 00           ..    ldx 00,x
14166 F1FA E6 00           ..    ldab 00,x
14167 F1FC 27 0E           '.    beq 0e
14168 F1FE 30              0     tsx
14169 F1FF EE 00           ..    ldx 00,x
14170 F201 E6 00           ..    ldab 00,x
14171 F203 4F              O     clra
14172 F204 BD F1 5B        ..[   jsr f15b
14173 F207 38              8     pulx
14174 F208 08              .     inx
14175 F209 3C              <     pshx
14176 F20A 20 EB            .    bra eb
14177 F20C 38              8     pulx
14178 F20D 39              9     rts
14179
14180 F20E 37              7     pshb
14181 F20F 36              6     psha
14182 F210 F6 20 00        . .   ldab 2000
14183 F213 C4 40           .@    andb #40
14184 F215 27 34           '4    beq 34
14185 F217 CE 00 1D        ...   ldx #001d
14186 F21A 1C 00           ..    bset add,x 00,x
14187 F21C 01              .     nop
14188 F21D 30              0     tsx
14189 F21E E6 01           ..    ldab 01,x
14190 F220 4F              O     clra
14191 F221 BD E7 95        ...   jsr e795
14192 F224 F6 00 5D        ..]   ldab 005d
14193 F227 4F              O     clra
14194 F228 BD F1 5B        ..[   jsr f15b
14195 F22B F6 00 5E        ..^   ldab 005e
14196 F22E 4F              O     clra
14197 F22F BD F1 5B        ..[   jsr f15b
14198 F232 CE 00 1D        ...   ldx #001d
14199 F235 1D 00           ..    bclr add,x 00,x
14200 F237 01              .     nop
14201 F238 F6 00 5F        .._   ldab 005f
14202 F23B 4F              O     clra
14203 F23C BD F1 5B        ..[   jsr f15b
14204 F23F CC 00 20        ..    ldd #0020
14205 F242 BD F1 5B        ..[   jsr f15b
14206 F245 CC 00 20        ..    ldd #0020
14207 F248 BD F1 5B        ..[   jsr f15b
14208 F24B 38              8     pulx
14209 F24C 39              9     rts
14210
14211 F24D 37              7     pshb
14212 F24E 36              6     psha
14213 F24F F6 20 00        . .   ldab 2000
14214 F252 C4 40           .@    andb #40
14215 F254 27 41           'A    beq 41
14216 F256 CE 00 1D        ...   ldx #001d
14217 F259 1C 00           ..    bset add,x 00,x
14218 F25B 01              .     nop
14219 F25C 30              0     tsx
14220 F25D EC 00           ..    ldd 00,x
14221 F25F BD E7 45        ..E   jsr e745
14222 F262 F6 00 57        ..W   ldab 0057
14223 F265 4F              O     clra
14224 F266 BD F1 5B        ..[   jsr f15b
14225 F269 F6 00 5A        ..Z   ldab 005a
14226 F26C 4F              O     clra
14227 F26D BD F1 5B        ..[   jsr f15b
14228 F270 F6 00 5D        ..]   ldab 005d
14229 F273 4F              O     clra
14230 F274 BD F1 5B        ..[   jsr f15b
14231 F277 F6 00 5E        ..^   ldab 005e
14232 F27A 4F              O     clra
14233 F27B BD F1 5B        ..[   jsr f15b
14234 F27E CE 00 1D        ...   ldx #001d
14235 F281 1D 00           ..    bclr add,x 00,x
14236 F283 01              .     nop
14237 F284 F6 00 5F        .._   ldab 005f
14238 F287 4F              O     clra
14239 F288 BD F1 5B        ..[   jsr f15b
14240 F28B CC 00 20        ..    ldd #0020
14241 F28E BD F1 5B        ..[   jsr f15b
14242 F291 CC 00 20        ..    ldd #0020
14243 F294 BD F1 5B        ..[   jsr f15b
14244 F297 38              8     pulx
14245 F298 39              9     rts
14246 F299 37              7     pshb
14247 F29A 36              6     psha
14248 F29B F6 20 00        . .   ldab 2000
14249 F29E C4 40           .@    andb #40
14250 F2A0 27 7B           '{    beq 7b
14251 F2A2 F6 00 17        ...   ldab 0017
14252 F2A5 C4 08           ..    andb #08
14253 F2A7 26 06           &.    bne 06
14254 F2A9 CC 00 24        ..$   ldd #0024
14255 F2AC BD F1 5B        ..[   jsr f15b
14256 F2AF CE 00 1D        ...   ldx #001d
14257 F2B2 1C 00           ..    bset add,x 00,x
14258 F2B4 01              .     nop
14259 F2B5 30              0     tsx
14260 F2B6 EC 00           ..    ldd 00,x
14261 F2B8 BD E7 45        ..E   jsr e745
14262 F2BB F6 00 57        ..W   ldab 0057
14263 F2BE 4F              O     clra
14264 F2BF BD F1 5B        ..[   jsr f15b
14265 F2C2 F6 00 5A        ..Z   ldab 005a
14266 F2C5 4F              O     clra
14267 F2C6 BD F1 5B        ..[   jsr f15b
14268 F2C9 F6 00 13        ...   ldab 0013
14269 F2CC C1 08           ..    cmpb #08
14270 F2CE 26 0C           &.    bne 0c
14271 F2D0 CC 00 2E        ...   ldd #002e
14272 F2D3 BD F1 5B        ..[   jsr f15b
14273 F2D6 CE 00 1D        ...   ldx #001d
14274 F2D9 1D 00           ..    bclr add,x 00,x
14275 F2DB 01              .     nop
14276 F2DC F6 00 5D        ..]   ldab 005d
14277 F2DF 4F              O     clra
14278 F2E0 BD F1 5B        ..[   jsr f15b
14279 F2E3 F6 00 13        ...   ldab 0013
14280 F2E6 C1 04           ..    cmpb #04
14281 F2E8 26 0C           &.    bne 0c
14282 F2EA CC 00 2E        ...   ldd #002e
14283 F2ED BD F1 5B        ..[   jsr f15b
14284 F2F0 CE 00 1D        ...   ldx #001d
14285 F2F3 1D 00           ..    bclr add,x 00,x
14286 F2F5 01              .     nop
14287 F2F6 F6 00 5E        ..^   ldab 005e
14288 F2F9 4F              O     clra
14289 F2FA BD F1 5B        ..[   jsr f15b
14290 F2FD F6 00 13        ...   ldab 0013
14291 F300 C1 02           ..    cmpb #02
14292 F302 26 06           &.    bne 06
14293 F304 CC 00 2E        ...   ldd #002e
14294 F307 BD F1 5B        ..[   jsr f15b
14295 F30A CE 00 1D        ...   ldx #001d
14296 F30D 1D 00           ..    bclr add,x 00,x
14297 F30F 01              .     nop
14298 F310 F6 00 5F        .._   ldab 005f
14299 F313 4F              O     clra
14300 F314 BD F1 5B        ..[   jsr f15b
14301 F317 CC 00 0A        ...   ldd #000a
14302 F31A BD F1 5B        ..[   jsr f15b
14303 F31D 38              8     pulx
14304 F31E 39              9     rts
14305
14306 F31F 38              8     pulx
14307 F320 37              7     pshb
14308 F321 36              6     psha
14309 F322 3C              <     pshx
14310 F323 F6 20 00        . .   ldab 2000
14311 F326 C4 40           .@    andb #40
14312 F328 26 03           &.    bne 03
14313 F32A 7E F3 BC        ~..   jmp f3bc
14314 F32D F6 00 17        ...   ldab 0017
14315 F330 C4 08           ..    andb #08
14316 F332 26 06           &.    bne 06
14317 F334 CC 00 24        ..$   ldd #0024
14318 F337 BD F1 5B        ..[   jsr f15b
14319 F33A CE 00 1D        ...   ldx #001d
14320 F33D 1C 00           ..    bset add,x 00,x
14321 F33F 01              .     nop
14322 F340 30              0     tsx
14323 F341 EC 04           ..    ldd 04,x
14324 F343 37              7     pshb
14325 F344 36              6     psha
14326 F345 EC 02           ..    ldd 02,x
14327 F347 BD E6 21        ..!   jsr e621
14328 F34A 38              8     pulx
14329 F34B C6 07           ..    ldab #07
14330 F34D F7 00 18        ...   stb 0018
14331 F350 F6 00 18        ...   ldab 0018
14332 F353 C1 FF           ..    cmpb #ff
14333 F355 24 5F           $_    bcc 5f
14334 F357 F6 00 18        ...   ldab 0018
14335 F35A 4F              O     clra
14336 F35B C3 0B 90        ...   addd #0b90
14337 F35E 8F              .     xgdx
14338 F35F E6 00           ..    ldab 00,x
14339 F361 4F              O     clra
14340 F362 BD F1 5B        ..[   jsr f15b
14341 F365 F6 00 18        ...   ldab 0018
14342 F368 C1 03           ..    cmpb #03
14343 F36A 26 15           &.    bne 15
14344 F36C F6 00 13        ...   ldab 0013
14345 F36F C1 08           ..    cmpb #08
14346 F371 26 0C           &.    bne 0c
14347 F373 CC 00 2E        ...   ldd #002e
14348 F376 BD F1 5B        ..[   jsr f15b
14349 F379 CE 00 1D        ...   ldx #001d
14350 F37C 1D 00           ..    bclr add,x 00,x
14351 F37E 01              .     nop
14352 F37F 20 30            0    bra 30
14353 F381 C1 02           ..    cmpb #02
14354 F383 26 15           &.    bne 15
14355 F385 F6 00 13        ...   ldab 0013
14356 F388 C1 04           ..    cmpb #04
14357 F38A 26 0C           &.    bne 0c
14358 F38C CC 00 2E        ...   ldd #002e
14359 F38F BD F1 5B        ..[   jsr f15b
14360 F392 CE 00 1D        ...   ldx #001d
14361 F395 1D 00           ..    bclr add,x 00,x
14362 F397 01              .     nop
14363 F398 20 17            .    bra 17
14364 F39A C1 01           ..    cmpb #01
14365 F39C 26 13           &.    bne 13
14366 F39E F6 00 13        ...   ldab 0013
14367 F3A1 C1 02           ..    cmpb #02
14368 F3A3 26 06           &.    bne 06
14369 F3A5 CC 00 2E        ...   ldd #002e
14370 F3A8 BD F1 5B        ..[   jsr f15b
14371 F3AB CE 00 1D        ...   ldx #001d
14372 F3AE 1D 00           ..    bclr add,x 00,x
14373 F3B0 01              .     nop
14374 F3B1 7A 00 18        z..   dec 0018
14375 F3B4 20 9A            .    bra 9a
14376 F3B6 CC 00 0A        ...   ldd #000a
14377 F3B9 BD F1 5B        ..[   jsr f15b
14378 F3BC 38              8     pulx
14379 F3BD 31              1     ins
14380 F3BE 31              1     ins
14381 F3BF 6E 00           n.    jmp 00,x
14382
14383 F3C1 37              7     pshb
14384 F3C2 36              6     psha
14385 F3C3 F6 20 00        . .   ldab 2000
14386 F3C6 C4 40           .@    andb #40
14387 F3C8 27 49           'I    beq 49
14388 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14389 F3CD BD F1 E8        ...   jsr f1e8
14390 F3D0 30              0     tsx
14391 F3D1 E6 01           ..    ldab 01,x
14392 F3D3 4F              O     clra
14393 F3D4 CE 00 0A        ...   ldx #000a
14394 F3D7 02              .     idiv
14395 F3D8 8F              .     xgdx
14396 F3D9 CB 30           .0    addb #30
14397 F3DB F7 00 5E        ..^   stb 005e
14398 F3DE 30              0     tsx
14399 F3DF E6 01           ..    ldab 01,x
14400 F3E1 4F              O     clra
14401 F3E2 CE 00 0A        ...   ldx #000a
14402 F3E5 02              .     idiv
14403 F3E6 CB 30           .0    addb #30
14404 F3E8 F7 00 5F        .._   stb 005f     ;5e and 5f now param in ascii
14405 F3EB F6 00 5E        ..^   ldab 005e
14406 F3EE 4F              O     clra
14407 F3EF BD F1 5B        ..[   jsr f15b
14408 F3F2 F6 00 5F        .._   ldab 005f
14409 F3F5 4F              O     clra
14410 F3F6 BD F1 5B        ..[   jsr f15b
14411 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14412 F3FC BD F1 E8        ...   jsr f1e8
14413 F3FF 30              0     tsx
14414 F400 E6 01           ..    ldab 01,x
14415 F402 4F              O     clra
14416 F403 05              .     asld
14417 F404 C3 0D 1F        ...   addd #0d1f
14418 F407 8F              .     xgdx
14419 F408 EC 00           ..    ldd 00,x
14420 F40A BD F2 4D        ..M   jsr f24d
14421 F40D CC 00 0A        ...   ldd #000a
14422 F410 BD F1 5B        ..[   jsr f15b
14423 F413 38              8     pulx
14424 F414 39              9     rts
14425
14426 F415 F6 0B C0        ...   ldab 0bc0
14427 F418 C4 02           ..    andb #02
14428 F41A 27 15           '.    beq 15
14429 F41C CE 00 21        ..!   ldx #0021
14430 F41F 1C 00           ..    bset add,x 00,x
14431 F421 80 F6           ..    suba #f6
14432 F423 00              .     test
14433 F424 1D C4           ..    bclr add,x c4,x
14434 F426 02              .     idiv
14435 F427 27 02           '.    beq 02
14436 F429 20 F7            .    bra f7
14437 F42B CE 00 21        ..!   ldx #0021
14438 F42E 1D 00           ..    bclr add,x 00,x
14439 F430 80 C6           ..    suba #c6
14440 F432 10              .     sba
14441 F433 F7 10 2C        ..,   stb 102c
14442 F436 C6 2E           ..    ldab #2e
14443 F438 F7 10 2D        ..-   stb 102d
14444 F43B C6 05           ..    ldab #05
14445 F43D F7 10 2B        ..+   stb 102b
14446 F440 CC 03 E8        ...   ldd #03e8
14447 F443 BD E5 71        ..q   jsr e571
14448 F446 CE 10 00        ...   ldx #1000
14449 F449 1D 00           ..    bclr add,x 00,x
14450 F44B 08              .     inx
14451 F44C CE 00 19        ...   ldx #0019
14452 F44F 1D 00           ..    bclr add,x 00,x
14453 F451 40              @     nega
14454 F452 CE 00 1D        ...   ldx #001d
14455 F455 1D 00           ..    bclr add,x 00,x
14456 F457 01              .     nop
14457 F458 CC 00 18        ...   ldd #0018
14458 F45B BD F1 5B        ..[   jsr f15b
14459 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14460 F461 BD F1 E8        ...   jsr f1e8
14461 F464 CC 00 0A        ...   ldd #000a
14462 F467 BD F1 5B        ..[   jsr f15b
14463 F46A CC B2 38        ..8   ldd #b238
14464 F46D BD F1 E8        ...   jsr f1e8
14465 F470 CC 00 0A        ...   ldd #000a
14466 F473 BD F1 5B        ..[   jsr f15b
14467 F476 CC B2 56        ..V   ldd #b256
14468 F479 BD F1 E8        ...   jsr f1e8
14469 F47C CC 00 0A        ...   ldd #000a
14470 F47F BD F1 5B        ..[   jsr f15b
14471 F482 CC 00 0A        ...   ldd #000a
14472 F485 BD F1 5B        ..[   jsr f15b
14473 F488 CC B2 75        ..u   ldd #b275
14474 F48B BD F1 E8        ...   jsr f1e8
14475 F48E CC 00 0A        ...   ldd #000a
14476 F491 BD F1 5B        ..[   jsr f15b
14477 F494 CC B2 38        ..8   ldd #b238
14478 F497 BD F1 E8        ...   jsr f1e8
14479 F49A CC 00 0A        ...   ldd #000a
14480 F49D BD F1 5B        ..[   jsr f15b
14481 F4A0 CC 00 0A        ...   ldd #000a
14482 F4A3 BD F1 5B        ..[   jsr f15b
14483 F4A6 CC B2 90        ...   ldd #b290
14484 F4A9 BD F1 E8        ...   jsr f1e8
14485 F4AC CE 00 0A        ...   ldx #000a
14486 F4AF 3C              <     pshx
14487 F4B0 CC 0C BC        ...   ldd #0cbc
14488 F4B3 BD F1 C1        ...   jsr f1c1
14489 F4B6 38              8     pulx
14490 F4B7 CC 00 0A        ...   ldd #000a
14491 F4BA BD F1 5B        ..[   jsr f15b
14492 F4BD CC B2 A2        ...   ldd #b2a2
14493 F4C0 BD F1 E8        ...   jsr f1e8
14494 F4C3 CE 00 0A        ...   ldx #000a
14495 F4C6 3C              <     pshx
14496 F4C7 CC 0C CC        ...   ldd #0ccc
14497 F4CA BD F1 C1        ...   jsr f1c1
14498 F4CD 38              8     pulx
14499 F4CE CC 00 0A        ...   ldd #000a
14500 F4D1 BD F1 5B        ..[   jsr f15b
14501 F4D4 CC B2 B4        ...   ldd #b2b4
14502 F4D7 BD F1 E8        ...   jsr f1e8
14503 F4DA FC 0C E7        ...   ldd 0ce7
14504 F4DD BD F2 4D        ..M   jsr f24d
14505 F4E0 CC 00 0A        ...   ldd #000a
14506 F4E3 BD F1 5B        ..[   jsr f15b
14507 F4E6 CC 00 0A        ...   ldd #000a
14508 F4E9 BD F1 5B        ..[   jsr f15b
14509 F4EC CC B2 C6        ...   ldd #b2c6
14510 F4EF BD F1 E8        ...   jsr f1e8
14511 F4F2 FE 0D E9        ...   ldx 0de9
14512 F4F5 3C              <     pshx
14513 F4F6 FC 0D E7        ...   ldd 0de7
14514 F4F9 BD F3 1F        ...   jsr f31f
14515 F4FC 38              8     pulx
14516 F4FD CC B2 D8        ...   ldd #b2d8
14517 F500 BD F1 E8        ...   jsr f1e8
14518 F503 FE 0D ED        ...   ldx 0ded
14519 F506 3C              <     pshx
14520 F507 FC 0D EB        ...   ldd 0deb
14521 F50A BD F3 1F        ...   jsr f31f
14522 F50D 38              8     pulx
14523 F50E CC B2 EA        ...   ldd #b2ea
14524 F511 BD F1 E8        ...   jsr f1e8
14525 F514 FE 0D F1        ...   ldx 0df1
14526 F517 3C              <     pshx
14527 F518 FC 0D EF        ...   ldd 0def
14528 F51B BD F3 1F        ...   jsr f31f
14529 F51E 38              8     pulx
14530 F51F CC B2 FC        ...   ldd #b2fc
14531 F522 BD F1 E8        ...   jsr f1e8
14532 F525 FE 0D F9        ...   ldx 0df9
14533 F528 3C              <     pshx
14534 F529 FC 0D F7        ...   ldd 0df7
14535 F52C BD F3 1F        ...   jsr f31f
14536 F52F 38              8     pulx
14537 F530 CC B3 0E        ...   ldd #b30e
14538 F533 BD F1 E8        ...   jsr f1e8
14539 F536 FE 0D FD        ...   ldx 0dfd
14540 F539 3C              <     pshx
14541 F53A FC 0D FB        ...   ldd 0dfb
14542 F53D BD F3 1F        ...   jsr f31f
14543 F540 38              8     pulx
14544 F541 CC 00 0A        ...   ldd #000a
14545 F544 BD F1 5B        ..[   jsr f15b
14546 F547 CC B3 20        ..    ldd #b320
14547 F54A BD F1 E8        ...   jsr f1e8
14548 F54D CC 00 0A        ...   ldd #000a
14549 F550 BD F1 5B        ..[   jsr f15b
14550 F553 CC B3 31        ..1   ldd #b331
14551 F556 BD F1 E8        ...   jsr f1e8
14552 F559 FE 0D F5        ...   ldx 0df5
14553 F55C 3C              <     pshx
14554 F55D FC 0D F3        ...   ldd 0df3
14555 F560 BD F3 1F        ...   jsr f31f
14556 F563 38              8     pulx
14557 F564 CC B3 4A        ..J   ldd #b34a
14558 F567 BD F1 E8        ...   jsr f1e8
14559 F56A FC 0C DD        ...   ldd 0cdd
14560 F56D BD F2 4D        ..M   jsr f24d
14561 F570 FE 0C F5        ...   ldx 0cf5
14562 F573 3C              <     pshx
14563 F574 FC 0C F3        ...   ldd 0cf3
14564 F577 BD F3 1F        ...   jsr f31f
14565 F57A 38              8     pulx
14566 F57B CC B3 5C        ..\   ldd #b35c
14567 F57E BD F1 E8        ...   jsr f1e8
14568 F581 FC 0C DF        ...   ldd 0cdf
14569 F584 BD F2 4D        ..M   jsr f24d
14570 F587 FE 0C F9        ...   ldx 0cf9
14571 F58A 3C              <     pshx
14572 F58B FC 0C F7        ...   ldd 0cf7
14573 F58E BD F3 1F        ...   jsr f31f
14574 F591 38              8     pulx
14575 F592 CC B3 6E        ..n   ldd #b36e
14576 F595 BD F1 E8        ...   jsr f1e8
14577 F598 FC 0C E1        ...   ldd 0ce1
14578 F59B BD F2 4D        ..M   jsr f24d
14579 F59E FE 0C FD        ...   ldx 0cfd
14580 F5A1 3C              <     pshx
14581 F5A2 FC 0C FB        ...   ldd 0cfb
14582 F5A5 BD F3 1F        ...   jsr f31f
14583 F5A8 38              8     pulx
14584 F5A9 CC B3 80        ...   ldd #b380
14585 F5AC BD F1 E8        ...   jsr f1e8
14586 F5AF FC 0C E3        ...   ldd 0ce3
14587 F5B2 BD F2 4D        ..M   jsr f24d
14588 F5B5 FE 0D 01        ...   ldx 0d01
14589 F5B8 3C              <     pshx
14590 F5B9 FC 0C FF        ...   ldd 0cff
14591 F5BC BD F3 1F        ...   jsr f31f
14592 F5BF 38              8     pulx
14593 F5C0 CC B3 92        ...   ldd #b392
14594 F5C3 BD F1 E8        ...   jsr f1e8
14595 F5C6 FC 0C E5        ...   ldd 0ce5
14596 F5C9 BD F2 4D        ..M   jsr f24d
14597 F5CC FE 0D 05        ...   ldx 0d05
14598 F5CF 3C              <     pshx
14599 F5D0 FC 0D 03        ...   ldd 0d03
14600 F5D3 BD F3 1F        ...   jsr f31f
14601 F5D6 38              8     pulx
14602 F5D7 CC 00 0A        ...   ldd #000a
14603 F5DA BD F1 5B        ..[   jsr f15b
14604 F5DD CC B3 A4        ...   ldd #b3a4
14605 F5E0 BD F1 E8        ...   jsr f1e8
14606 F5E3 CC 00 0A        ...   ldd #000a
14607 F5E6 BD F1 5B        ..[   jsr f15b
14608 F5E9 CC B3 B3        ...   ldd #b3b3
14609 F5EC BD F1 E8        ...   jsr f1e8
14610 F5EF FC 0C F1        ...   ldd 0cf1
14611 F5F2 BD F2 99        ...   jsr f299
14612 F5F5 CC B3 CA        ...   ldd #b3ca
14613 F5F8 BD F1 E8        ...   jsr f1e8
14614 F5FB F6 0C DC        ...   ldab 0cdc
14615 F5FE 4F              O     clra
14616 F5FF BD F2 0E        ...   jsr f20e
14617 F602 FC 0C E9        ...   ldd 0ce9
14618 F605 BD F2 99        ...   jsr f299
14619 F608 CC B3 DC        ...   ldd #b3dc
14620 F60B BD F1 E8        ...   jsr f1e8
14621 F60E F6 0C DB        ...   ldab 0cdb
14622 F611 4F              O     clra
14623 F612 BD F2 0E        ...   jsr f20e
14624 F615 FC 0C EB        ...   ldd 0ceb
14625 F618 BD F2 99        ...   jsr f299
14626 F61B CC B3 EE        ...   ldd #b3ee
14627 F61E BD F1 E8        ...   jsr f1e8
14628 F621 F6 0C DA        ...   ldab 0cda
14629 F624 4F              O     clra
14630 F625 BD F2 0E        ...   jsr f20e
14631 F628 FC 0C ED        ...   ldd 0ced
14632 F62B BD F2 99        ...   jsr f299
14633 F62E CC B4 00        ...   ldd #b400
14634 F631 BD F1 E8        ...   jsr f1e8
14635 F634 F6 0C D9        ...   ldab 0cd9
14636 F637 4F              O     clra
14637 F638 BD F2 0E        ...   jsr f20e
14638 F63B FC 0C EF        ...   ldd 0cef
14639 F63E BD F2 99        ...   jsr f299
14640 F641 CC 00 0A        ...   ldd #000a
14641 F644 BD F1 5B        ..[   jsr f15b
14642 F647 CC B4 12        ...   ldd #b412
14643 F64A BD F1 E8        ...   jsr f1e8
14644 F64D FC 0D 07        ...   ldd 0d07
14645 F650 BD F2 4D        ..M   jsr f24d
14646 F653 FE 0D 11        ...   ldx 0d11
14647 F656 3C              <     pshx
14648 F657 FC 0D 0F        ...   ldd 0d0f
14649 F65A BD F3 1F        ...   jsr f31f
14650 F65D 38              8     pulx
14651 F65E CC B4 24        ..$   ldd #b424
14652 F661 BD F1 E8        ...   jsr f1e8
14653 F664 FC 0D 09        ...   ldd 0d09
14654 F667 BD F2 4D        ..M   jsr f24d
14655 F66A FE 0D 15        ...   ldx 0d15
14656 F66D 3C              <     pshx
14657 F66E FC 0D 13        ...   ldd 0d13
14658 F671 BD F3 1F        ...   jsr f31f
14659 F674 38              8     pulx
14660 F675 CC B4 36        ..6   ldd #b436
14661 F678 BD F1 E8        ...   jsr f1e8
14662 F67B FC 0D 0B        ...   ldd 0d0b
14663 F67E BD F2 4D        ..M   jsr f24d
14664 F681 FE 0D 19        ...   ldx 0d19
14665 F684 3C              <     pshx
14666 F685 FC 0D 17        ...   ldd 0d17
14667 F688 BD F3 1F        ...   jsr f31f
14668 F68B 38              8     pulx
14669 F68C CC B4 48        ..H   ldd #b448
14670 F68F BD F1 E8        ...   jsr f1e8
14671 F692 FC 0D 0D        ...   ldd 0d0d
14672 F695 BD F2 4D        ..M   jsr f24d
14673 F698 FE 0D 1D        ...   ldx 0d1d
14674 F69B 3C              <     pshx
14675 F69C FC 0D 1B        ...   ldd 0d1b
14676 F69F BD F3 1F        ...   jsr f31f
14677 F6A2 38              8     pulx
14678 F6A3 CC 00 0A        ...   ldd #000a
14679 F6A6 BD F1 5B        ..[   jsr f15b
14680 F6A9 CC B4 5A        ..Z   ldd #b45a
14681 F6AC BD F1 E8        ...   jsr f1e8
14682 F6AF CC 00 0A        ...   ldd #000a
14683 F6B2 BD F1 5B        ..[   jsr f15b
14684 F6B5 C6 01           ..    ldab #01
14685 F6B7 F7 00 54        ..T   stb 0054
14686 F6BA F6 00 54        ..T   ldab 0054
14687 F6BD C1 63           .c    cmpb #63
14688 F6BF 22 1B           ".    bhi 1b
14689 F6C1 F6 00 54        ..T   ldab 0054
14690 F6C4 4F              O     clra
14691 F6C5 05              .     asld
14692 F6C6 C3 08 C8        ...   addd #08c8
14693 F6C9 8F              .     xgdx
14694 F6CA EC 00           ..    ldd 00,x
14695 F6CC C4 80           ..    andb #80
14696 F6CE 27 07           '.    beq 07
14697 F6D0 F6 00 54        ..T   ldab 0054
14698 F6D3 4F              O     clra
14699 F6D4 BD F3 C1        ...   jsr f3c1
14700 F6D7 7C 00 54        |.T   inc 0054
14701 F6DA 20 DE            .    bra de
14702 F6DC CC 00 0A        ...   ldd #000a
14703 F6DF BD F1 5B        ..[   jsr f15b
14704 F6E2 F6 00 19        ...   ldab 0019
14705 F6E5 C4 40           .@    andb #40
14706 F6E7 26 07           &.    bne 07
14707 F6E9 FE 0C E7        ...   ldx 0ce7
14708 F6EC 08              .     inx
14709 F6ED FF 0C E7        ...   stx 0ce7
14710 F6F0 CE 00 1D        ...   ldx #001d
14711 F6F3 1D 00           ..    bclr add,x 00,x
14712 F6F5 01              .     nop
14713 F6F6 CC 03 E8        ...   ldd #03e8
14714 F6F9 BD E5 71        ..q   jsr e571
14715 F6FC C6 03           ..    ldab #03
14716 F6FE F7 10 2B        ..+   stb 102b
14717 F701 CE 10 00        ...   ldx #1000
14718 F704 1C 00           ..    bset add,x 00,x
14719 F706 08              .     inx
14720 F707 F6 0B C0        ...   ldab 0bc0
14721 F70A C4 02           ..    andb #02
14722 F70C 27 06           '.    beq 06
14723 F70E CC 00 80        ...   ldd #0080
14724 F711 BD C7 E7        ...   jsr c7e7
14725 F714 7F 00 38        ..8   clr 0038
14726 F717 39              9     rts
14727 F718 3C              <     pshx
14728 F719 F6 0B C0        ...   ldab 0bc0
14729 F71C C4 08           ..    andb #08
14730 F71E 27 03           '.    beq 03
14731 F720 BD C3 25        ..%   jsr c325
14732 F723 7C 00 0C        |..   inc 000c
14733 F726 F6 00 0C        ...   ldab 000c
14734 F729 C1 02           ..    cmpb #02
14735 F72B 26 13           &.    bne 13
14736 F72D 7F 00 0C        ...   clr 000c
14737 F730 F6 00 07        ...   ldab 0007
14738 F733 27 03           '.    beq 03
14739 F735 7A 00 07        z..   dec 0007
14740 F738 F6 00 00        ...   ldab 0000
14741 F73B 27 03           '.    beq 03
14742 F73D 7A 00 00        z..   dec 0000
14743 F740 7C 00 0B        |..   inc 000b
14744 F743 F6 00 0B        ...   ldab 000b
14745 F746 C1 08           ..    cmpb #08
14746 F748 26 37           &7    bne 37
14747 F74A 7F 00 0B        ...   clr 000b
14748 F74D FC 00 3B        ..;   ldd 003b
14749 F750 27 07           '.    beq 07
14750 F752 FE 00 3B        ..;   ldx 003b
14751 F755 09              .     dex
14752 F756 FF 00 3B        ..;   stx 003b
14753 F759 CC 00 2C        ..,   ldd #002c
14754 F75C 30              0     tsx
14755 F75D ED 00           ..    stad 00,x
14756 F75F 30              0     tsx
14757 F760 EC 00           ..    ldd 00,x
14758 F762 37              7     pshb
14759 F763 36              6     psha
14760 F764 CC 00 3A        ..:   ldd #003a
14761 F767 30              0     tsx
14762 F768 A3 00           ..    subd 00,x
14763 F76A 31              1     ins
14764 F76B 31              1     ins
14765 F76C 25 13           %.    bcs 13
14766 F76E 30              0     tsx
14767 F76F EE 00           ..    ldx 00,x
14768 F771 E6 00           ..    ldab 00,x
14769 F773 27 07           '.    beq 07
14770 F775 30              0     tsx
14771 F776 EE 00           ..    ldx 00,x
14772 F778 6A 00           j.    dec 00,x
14773 F77A E6 00           ..    ldab 00,x
14774 F77C 38              8     pulx
14775 F77D 08              .     inx
14776 F77E 3C              <     pshx
14777 F77F 20 DE            .    bra de
14778 F781 F6 00 32        ..2   ldab 0032
14779 F784 27 07           '.    beq 07
14780 F786 F6 00 32        ..2   ldab 0032
14781 F789 C4 02           ..    andb #02
14782 F78B 26 08           &.    bne 08
14783 F78D CE 10 00        ...   ldx #1000
14784 F790 1D 00           ..    bclr add,x 00,x
14785 F792 10              .     sba
14786 F793 20 0D            .    bra 0d
14787 F795 F6 00 32        ..2   ldab 0032
14788 F798 C4 01           ..    andb #01
14789 F79A 26 06           &.    bne 06
14790 F79C CE 10 00        ...   ldx #1000
14791 F79F 1C 00           ..    bset add,x 00,x
14792 F7A1 10              .     sba
14793 F7A2 7C 00 4C        |.L   inc 004c
14794 F7A5 F6 00 4C        ..L   ldab 004c
14795 F7A8 C1 4B           .K    cmpb #4b
14796 F7AA 26 13           &.    bne 13
14797 F7AC 7F 00 4C        ..L   clr 004c
14798 F7AF F6 00 4F        ..O   ldab 004f
14799 F7B2 27 03           '.    beq 03
14800 F7B4 7A 00 4F        z.O   dec 004f
14801 F7B7 F6 00 25        ..%   ldab 0025
14802 F7BA 27 03           '.    beq 03
14803 F7BC 7A 00 25        z.%   dec 0025
14804 F7BF F6 00 31        ..1   ldab 0031
14805 F7C2 26 03           &.    bne 03
14806 F7C4 BD FE 69        ..i   jsr fe69
14807 F7C7 F6 00 7F        ...   ldab 007f
14808 F7CA 27 03           '.    beq 03
14809 F7CC BD FE 69        ..i   jsr fe69
14810 F7CF C6 40           .@    ldab #40
14811 F7D1 F7 10 25        ..%   stb 1025
14812 F7D4 38              8     pulx
14813 F7D5 3B              ;     rti
14814
14815 main:
14816
14817 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
14818 F7D9 5F              _     clrb         ;0 -> B
14819 F7DA F7 38 00        .8.   stb 3800     ;B -> 3800
14820 F7DD C6 7F           ..    ldab #7f     ;7F -> B
14821 F7DF F7 00 1A        ...   stb 001a     ;B -> 001a
14822 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
14823 F7E4 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14824 F7E7 C6 07           ..    ldab #07     ;7 -> B
14825 F7E9 F7 10 3C        ..<   stb 103c
14826 F7EC C6 81           ..    ldab #81     ;81 -> B
14827 F7EE F7 10 26        ..&   stb 1026
14828 F7F1 5F              _     clrb         ;0 -> B
14829 F7F2 F7 10 30        ..0   stb 1030
14830 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B
14831 F7F7 F7 10 00        ...   stb 1000
14832 F7FA C6 3E           .>    ldab #3e     ;3e -> B
14833 F7FC F7 10 09        ...   stb 1009
14834 F7FF C6 12           ..    ldab #12     ;12 -> B
14835 F801 F7 10 28        ..(   stb 1028
14836
14837 F804 BD BE 69        ..i   jsr be69
14838 F807 BD EA 59        ..Y   jsr ea59
14839 F80A CC 00 64        ..d   ldd #0064
14840 F80D BD E5 71        ..q   jsr e571
14841 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
14842 F813 BD C0 BA        ...   jsr c0ba
14843 F816 CC 01 F4        ...   ldd #01f4
14844 F819 BD E5 71        ..q   jsr e571
14845 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
14846 F81F BD C0 BA        ...   jsr c0ba
14847 F822 CC 01 F4        ...   ldd #01f4
14848 F825 BD E5 71        ..q   jsr e571
14849 F828 CC B2 05        ...   ldd #b205    "   1993   "
14850 F82B BD C0 BA        ...   jsr c0ba
14851 F82E CC 01 F4        ...   ldd #01f4
14852 F831 BD E5 71        ..q   jsr e571
14853 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
14854 F837 BD C0 BA        ...   jsr c0ba
14855 F83A CC 00 0A        ...   ldd #000a
14856 F83D BD E5 71        ..q   jsr e571
14857 F840 7F 00 7F        ...   clr 007f
14858 F843 7F 00 21        ..!   clr 0021
14859 F846 7F 00 1F        ...   clr 001f
14860 F849 7F 00 1D        ...   clr 001d
14861 F84C 7F 00 1B        ...   clr 001b
14862 F84F 7F 00 19        ...   clr 0019
14863 F852 F6 0B C0        ...   ldab 0bc0
14864 F855 C4 01           ..    andb #01
14865 F857 27 08           '.    beq 08
14866 F859 CE 0B C1        ...   ldx #0bc1
14867 F85C 1C 00           ..    bset add,x 00,x
14868 F85E 01              .     nop
14869 F85F 20 06            .    bra 06
14870 F861 CE 0B C1        ...   ldx #0bc1
14871 F864 1D 00           ..    bclr add,x 00,x
14872 F866 01              .     nop
14873 F867 F6 0B C0        ...   ldab 0bc0
14874 F86A C4 04           ..    andb #04
14875 F86C 27 08           '.    beq 08
14876 F86E CE 0B C1        ...   ldx #0bc1
14877 F871 1C 00           ..    bset add,x 00,x
14878 F873 02              .     idiv
14879 F874 20 06            .    bra 06
14880 F876 CE 0B C1        ...   ldx #0bc1
14881 F879 1D 00           ..    bclr add,x 00,x
14882 F87B 02              .     idiv
14883 F87C CE 0B C1        ...   ldx #0bc1
14884 F87F 1D 00           ..    bclr add,x 00,x
14885 F881 04              .     lsrd
14886 F882 F6 0B C0        ...   ldab 0bc0
14887 F885 C4 02           ..    andb #02
14888 F887 27 2D           '-    beq 2d
14889 F889 C6 3C           .<    ldab #3c
14890 F88B F7 00 31        ..1   stb 0031
14891 F88E 0E              .     cli
14892 F88F CC 00 FF        ...   ldd #00ff
14893 F892 BD C7 E7        ...   jsr c7e7
14894 F895 5F              _     clrb
14895 F896 4F              O     clra
14896 F897 FD 00 40        ..@   stad 0040
14897 F89A C6 10           ..    ldab #10
14898 F89C F7 10 2C        ..,   stb 102c
14899 F89F C6 2E           ..    ldab #2e
14900 F8A1 F7 10 2D        ..-   stb 102d
14901 F8A4 C6 03           ..    ldab #03
14902 F8A6 F7 10 2B        ..+   stb 102b
14903 F8A9 C6 46           .F    ldab #46
14904 F8AB F7 00 2F        ../   stb 002f
14905 F8AE CC 07 D0        ...   ldd #07d0
14906 F8B1 BD E5 71        ..q   jsr e571
14907 F8B4 20 2B            +    bra 2b
14908 F8B6 BD D0 94        ...   jsr d094
14909 F8B9 C6 27           .'    ldab #27
14910 F8BB F7 10 2D        ..-   stb 102d
14911 F8BE C6 07           ..    ldab #07
14912 F8C0 F7 10 2B        ..+   stb 102b
14913 F8C3 CE 00 1A        ...   ldx #001a
14914 F8C6 1C 00           ..    bset add,x 00,x
14915 F8C8 04              .     lsrd
14916 F8C9 F6 00 1A        ...   ldab 001a
14917 F8CC F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14918 F8CF CC 07 D0        ...   ldd #07d0
14919 F8D2 BD E5 71        ..q   jsr e571
14920 F8D5 CE 00 1A        ...   ldx #001a
14921 F8D8 1D 00           ..    bclr add,x 00,x
14922 F8DA 04              .     lsrd
14923 F8DB F6 00 1A        ...   ldab 001a
14924 F8DE F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14925 F8E1 7F 0E 6A        ..j   clr 0e6a
14926 F8E4 BD D4 79        ..y   jsr d479
14927 F8E7 BD E8 9A        ...   jsr e89a
14928 F8EA 7F 00 06        ...   clr 0006
14929 F8ED CE 00 1D        ...   ldx #001d
14930 F8F0 1C 00           ..    bset add,x 00,x
14931 F8F2 10              .     sba
14932 F8F3 CC 05 DC        ...   ldd #05dc
14933 F8F6 BD E5 71        ..q   jsr e571
14934 F8F9 C6 1E           ..    ldab #1e
14935 F8FB F7 00 35        ..5   stb 0035
14936 F8FE 0E              .     cli
14937 F8FF BD E6 1B        ...   jsr e61b
14938 F902 BD D1 05        ...   jsr d105
14939 F905 F6 10 0A        ...   ldab 100a
14940 F908 C4 08           ..    andb #08
14941 F90A 27 46           'F    beq 46
14942 F90C F6 10 0A        ...   ldab 100a
14943 F90F C4 08           ..    andb #08
14944 F911 27 11           '.    beq 11
14945 F913 CE 00 1A        ...   ldx #001a
14946 F916 1C 00           ..    bset add,x 00,x
14947 F918 04              .     lsrd
14948 F919 F6 00 1A        ...   ldab 001a
14949 F91C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14950 F91F BD E6 1B        ...   jsr e61b
14951 F922 20 E8            .    bra e8
14952 F924 BD D0 94        ...   jsr d094
14953 F927 F6 0B C0        ...   ldab 0bc0
14954 F92A C4 01           ..    andb #01
14955 F92C 27 06           '.    beq 06
14956 F92E CE 0B C1        ...   ldx #0bc1
14957 F931 1C 00           ..    bset add,x 00,x
14958 F933 01              .     nop
14959 F934 F6 0B C0        ...   ldab 0bc0
14960 F937 C4 04           ..    andb #04
14961 F939 27 06           '.    beq 06
14962 F93B CE 0B C1        ...   ldx #0bc1
14963 F93E 1C 00           ..    bset add,x 00,x
14964 F940 02              .     idiv
14965 F941 CE 00 1A        ...   ldx #001a
14966 F944 1D 00           ..    bclr add,x 00,x
14967 F946 04              .     lsrd
14968 F947 F6 00 1A        ...   ldab 001a
14969 F94A F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14970 F94D C6 1E           ..    ldab #1e
14971 F94F F7 00 35        ..5   stb 0035
14972 F952 F6 0B C0        ...   ldab 0bc0
14973 F955 C4 08           ..    andb #08
14974 F957 27 16           '.    beq 16
14975 F959 CE 00 02        ...   ldx #0002
14976 F95C 3C              <     pshx
14977 F95D CC 10 00        ...   ldd #1000
14978 F960 BD E5 D7        ...   jsr e5d7
14979 F963 38              8     pulx
14980 F964 83 00 00        ...   subd #0000
14981 F967 27 06           '.    beq 06
14982 F969 CE 0B C1        ...   ldx #0bc1
14983 F96C 1C 00           ..    bset add,x 00,x
14984 F96E 08              .     inx
14985 F96F F6 0B C1        ...   ldab 0bc1
14986 F972 C4 07           ..    andb #07
14987 F974 27 0D           '.    beq 0d
14988 F976 F6 00 35        ..5   ldab 0035
14989 F979 26 08           &.    bne 08
14990 F97B CE 00 21        ..!   ldx #0021
14991 F97E 1C 00           ..    bset add,x 00,x
14992 F980 20 20                 bra 20
14993 F982 06              .     tap
14994 F983 CE 00 21        ..!   ldx #0021
14995 F986 1D 00           ..    bclr add,x 00,x
14996 F988 20 BD            .    bra bd
14997 F98A BB 63 BD        .c.   adda 63bd
14998 F98D B8 00 F6        ...   eora 00f6
14999 F990 0B              .     sev
15000 F991 C0 C4           ..    subb #c4
15001 F993 01              .     nop
15002 F994 27 0B           '.    beq 0b
15003 F996 FC 00 40        ..@   ldd 0040
15004 F999 F3 00 3E        ..>   addd 003e
15005 F99C 26 03           &.    bne 03
15006 F99E BD D6 F6        ...   jsr d6f6
15007 F9A1 F6 00 12        ...   ldab 0012
15008 F9A4 C4 20           .     andb #20
15009 F9A6 27 08           '.    beq 08
15010 F9A8 F6 00 35        ..5   ldab 0035
15011 F9AB 26 03           &.    bne 03
15012 F9AD 7E FA 79        ~.y   jmp fa79
15013 F9B0 CE 00 1F        ...   ldx #001f
15014 F9B3 1D 00           ..    bclr add,x 00,x
15015 F9B5 04              .     lsrd
15016 F9B6 CE 00 1D        ...   ldx #001d
15017 F9B9 1C 00           ..    bset add,x 00,x
15018 F9BB 10              .     sba
15019 F9BC F6 00 1F        ...   ldab 001f
15020 F9BF C4 20           .     andb #20
15021 F9C1 26 03           &.    bne 03
15022 F9C3 7E FA 74        ~.t   jmp fa74
15023 F9C6 F6 0B C0        ...   ldab 0bc0
15024 F9C9 C4 01           ..    andb #01
15025 F9CB 27 08           '.    beq 08
15026 F9CD CE 0B C1        ...   ldx #0bc1
15027 F9D0 1C 00           ..    bset add,x 00,x
15028 F9D2 01              .     nop
15029 F9D3 20 06            .    bra 06
15030 F9D5 CE 0B C1        ...   ldx #0bc1
15031 F9D8 1D 00           ..    bclr add,x 00,x
15032 F9DA 01              .     nop
15033 F9DB F6 0B C0        ...   ldab 0bc0
15034 F9DE C4 04           ..    andb #04
15035 F9E0 27 08           '.    beq 08
15036 F9E2 CE 0B C1        ...   ldx #0bc1
15037 F9E5 1C 00           ..    bset add,x 00,x
15038 F9E7 02              .     idiv
15039 F9E8 20 06            .    bra 06
15040 F9EA CE 0B C1        ...   ldx #0bc1
15041 F9ED 1D 00           ..    bclr add,x 00,x
15042 F9EF 02              .     idiv
15043 F9F0 CE 0B C1        ...   ldx #0bc1
15044 F9F3 1D 00           ..    bclr add,x 00,x
15045 F9F5 04              .     lsrd
15046 F9F6 CE 00 1B        ...   ldx #001b
15047 F9F9 1D 00           ..    bclr add,x 00,x
15048 F9FB 02              .     idiv
15049 F9FC F6 0B C0        ...   ldab 0bc0
15050 F9FF C4 02           ..    andb #02
15051 FA01 27 27           ''    beq 27
15052 FA03 C6 3C           .<    ldab #3c
15053 FA05 F7 00 31        ..1   stb 0031
15054 FA08 0E              .     cli
15055 FA09 CC 00 FF        ...   ldd #00ff
15056 FA0C BD C7 E7        ...   jsr c7e7
15057 FA0F 5F              _     clrb
15058 FA10 4F              O     clra
15059 FA11 FD 00 40        ..@   stad 0040
15060 FA14 C6 10           ..    ldab #10
15061 FA16 F7 10 2C        ..,   stb 102c
15062 FA19 C6 2E           ..    ldab #2e
15063 FA1B F7 10 2D        ..-   stb 102d
15064 FA1E C6 03           ..    ldab #03
15065 FA20 F7 10 2B        ..+   stb 102b
15066 FA23 C6 46           .F    ldab #46
15067 FA25 F7 00 2F        ../   stb 002f
15068 FA28 20 31            1    bra 31
15069 FA2A CE 00 21        ..!   ldx #0021
15070 FA2D 1D 00           ..    bclr add,x 00,x
15071 FA2F 40              @     nega
15072 FA30 BD D0 94        ...   jsr d094
15073 FA33 C6 27           .'    ldab #27
15074 FA35 F7 10 2D        ..-   stb 102d
15075 FA38 C6 07           ..    ldab #07
15076 FA3A F7 10 2B        ..+   stb 102b
15077 FA3D CE 00 1A        ...   ldx #001a
15078 FA40 1C 00           ..    bset add,x 00,x
15079 FA42 04              .     lsrd
15080 FA43 F6 00 1A        ...   ldab 001a
15081 FA46 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15082 FA49 CC 00 32        ..2   ldd #0032
15083 FA4C BD E5 71        ..q   jsr e571
15084 FA4F CE 00 1A        ...   ldx #001a
15085 FA52 1D 00           ..    bclr add,x 00,x
15086 FA54 04              .     lsrd
15087 FA55 F6 00 1A        ...   ldab 001a
15088 FA58 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15089 FA5B BD D4 79        ..y   jsr d479
15090 FA5E BD E8 9A        ...   jsr e89a
15091 FA61 BD BE 69        ..i   jsr be69
15092 FA64 7F 00 06        ...   clr 0006
15093 FA67 CE 00 1F        ...   ldx #001f
15094 FA6A 1D 00           ..    bclr add,x 00,x
15095 FA6C 20 C6            .    bra c6
15096 FA6E 1E F7 00 35     ...5  brset f7,x 00 35
15097 FA72 20 03            .    bra 03
15098 FA74 BD DE E7        ...   jsr dee7
15099 FA77 20 66            f    bra 66
15100 FA79 F6 00 12        ...   ldab 0012
15101 FA7C C4 20           .     andb #20
15102 FA7E 27 5F           '_    beq 5f
15103 FA80 F6 00 1F        ...   ldab 001f
15104 FA83 C4 20           .     andb #20
15105 FA85 26 03           &.    bne 03
15106 FA87 BD E5 AA        ...   jsr e5aa
15107 FA8A CE 00 1F        ...   ldx #001f
15108 FA8D 1C 00           ..    bset add,x 00,x
15109 FA8F 20 F6            .    bra f6
15110 FA91 00              .     test
15111 FA92 12              .     brset
15112 FA93 C4 01           ..    andb #01
15113 FA95 26 33           &3    bne 33
15114 FA97 F6 00 1D        ...   ldab 001d
15115 FA9A C4 08           ..    andb #08
15116 FA9C 27 2A           '*    beq 2a
15117 FA9E F6 00 1F        ...   ldab 001f
15118 FAA1 C4 04           ..    andb #04
15119 FAA3 26 14           &.    bne 14
15120 FAA5 CE 00 1F        ...   ldx #001f
15121 FAA8 1C 00           ..    bset add,x 00,x
15122 FAAA 04              .     lsrd
15123 FAAB CE 00 1F        ...   ldx #001f
15124 FAAE 1C 00           ..    bset add,x 00,x
15125 FAB0 80 CC           ..    suba #cc
15126 FAB2 02              .     idiv
15127 FAB3 33              3     pulb
15128 FAB4 FD 00 3B        ..;   stad 003b
15129 FAB7 20 09            .    bra 09
15130 FAB9 BD E5 AA        ...   jsr e5aa
15131 FABC CE 00 1F        ...   ldx #001f
15132 FABF 1D 00           ..    bclr add,x 00,x
15133 FAC1 04              .     lsrd
15134 FAC2 CE 00 1D        ...   ldx #001d
15135 FAC5 1D 00           ..    bclr add,x 00,x
15136 FAC7 08              .     inx
15137 FAC8 20 06            .    bra 06
15138 FACA CE 00 1D        ...   ldx #001d
15139 FACD 1C 00           ..    bset add,x 00,x
15140 FACF 08              .     inx
15141 FAD0 F6 00 1F        ...   ldab 001f
15142 FAD3 C4 04           ..    andb #04
15143 FAD5 26 05           &.    bne 05
15144 FAD7 BD 81 00        ...   jsr 8100
15145 FADA 20 03            .    bra 03
15146 FADC BD 84 A0        ...   jsr 84a0
15147 FADF 7E F8 FF        ~..   jmp f8ff
15148 FAE2 CC B1 2E        ...   ldd #b12e
15149 FAE5 BD C0 BA        ...   jsr c0ba
15150 FAE8 CC 07 D0        ...   ldd #07d0
15151 FAEB BD E5 71        ..q   jsr e571
15152 FAEE 3B              ;     rti
15153 FAEF CC B1 2E        ...   ldd #b12e
15154 FAF2 BD C0 BA        ...   jsr c0ba
15155 FAF5 CC 07 D0        ...   ldd #07d0
15156 FAF8 BD E5 71        ..q   jsr e571
15157 FAFB 3B              ;     rti
15158 FAFC CC B1 2E        ...   ldd #b12e
15159 FAFF BD C0 BA        ...   jsr c0ba
15160 FB02 CC 07 D0        ...   ldd #07d0
15161 FB05 BD E5 71        ..q   jsr e571
15162 FB08 3B              ;     rti
15163 FB09 CC B1 2E        ...   ldd #b12e
15164 FB0C BD C0 BA        ...   jsr c0ba
15165 FB0F CC 07 D0        ...   ldd #07d0
15166 FB12 BD E5 71        ..q   jsr e571
15167 FB15 3B              ;     rti
15168 FB16 CC B1 2E        ...   ldd #b12e
15169 FB19 BD C0 BA        ...   jsr c0ba
15170 FB1C CC 07 D0        ...   ldd #07d0
15171 FB1F BD E5 71        ..q   jsr e571
15172 FB22 3B              ;     rti
15173 FB23 CC B1 2E        ...   ldd #b12e
15174 FB26 BD C0 BA        ...   jsr c0ba
15175 FB29 CC 07 D0        ...   ldd #07d0
15176 FB2C BD E5 71        ..q   jsr e571
15177 FB2F 3B              ;     rti
15178 FB30 CC B1 2E        ...   ldd #b12e
15179 FB33 BD C0 BA        ...   jsr c0ba
15180 FB36 CC 07 D0        ...   ldd #07d0
15181 FB39 BD E5 71        ..q   jsr e571
15182 FB3C 3B              ;     rti
15183 FB3D CC B1 2E        ...   ldd #b12e
15184 FB40 BD C0 BA        ...   jsr c0ba
15185 FB43 CC 07 D0        ...   ldd #07d0
15186 FB46 BD E5 71        ..q   jsr e571
15187 FB49 3B              ;     rti
15188 FB4A CC B1 2E        ...   ldd #b12e
15189 FB4D BD C0 BA        ...   jsr c0ba
15190 FB50 CC 07 D0        ...   ldd #07d0
15191 FB53 BD E5 71        ..q   jsr e571
15192 FB56 3B              ;     rti
15193 FB57 CC B1 2E        ...   ldd #b12e
15194 FB5A BD C0 BA        ...   jsr c0ba
15195 FB5D CC 07 D0        ...   ldd #07d0
15196 FB60 BD E5 71        ..q   jsr e571
15197 FB63 3B              ;     rti
15198 FB64 CC B1 2E        ...   ldd #b12e
15199 FB67 BD C0 BA        ...   jsr c0ba
15200 FB6A CC 07 D0        ...   ldd #07d0
15201 FB6D BD E5 71        ..q   jsr e571
15202 FB70 3B              ;     rti
15203 FB71 CC B1 2E        ...   ldd #b12e
15204 FB74 BD C0 BA        ...   jsr c0ba
15205 FB77 CC 07 D0        ...   ldd #07d0
15206 FB7A BD E5 71        ..q   jsr e571
15207 FB7D 3B              ;     rti
15208 FB7E CC B1 2E        ...   ldd #b12e
15209 FB81 BD C0 BA        ...   jsr c0ba
15210 FB84 CC 07 D0        ...   ldd #07d0
15211 FB87 BD E5 71        ..q   jsr e571
15212 FB8A 3B              ;     rti
15213 FB8B CC B1 2E        ...   ldd #b12e
15214 FB8E BD C0 BA        ...   jsr c0ba
15215 FB91 CC 07 D0        ...   ldd #07d0
15216 FB94 BD E5 71        ..q   jsr e571
15217 FB97 3B              ;     rti
15218 FB98 CC B1 2E        ...   ldd #b12e
15219 FB9B BD C0 BA        ...   jsr c0ba
15220 FB9E CC 07 D0        ...   ldd #07d0
15221 FBA1 BD E5 71        ..q   jsr e571
15222 FBA4 3B              ;     rti
15223 FBA5 CC B1 2E        ...   ldd #b12e
15224 FBA8 BD C0 BA        ...   jsr c0ba
15225 FBAB CC 07 D0        ...   ldd #07d0
15226 FBAE BD E5 71        ..q   jsr e571
15227 FBB1 3B              ;     rti
15228 FBB2 BD FE 69        ..i   jsr fe69
15229 FBB5 3B              ;     rti
15230 FBB6 BD FE 69        ..i   jsr fe69
15231 FBB9 3B              ;     rti
15232 FBBA 3C              <     pshx
15233 FBBB 37              7     pshb
15234 FBBC 30              0     tsx
15235 FBBD E6 06           ..    ldab 06,x
15236 FBBF 3D              =     mul
15237 FBC0 A6 00           ..    ldaa 00,x
15238 FBC2 37              7     pshb
15239 FBC3 E6 05           ..    ldab 05,x
15240 FBC5 3D              =     mul
15241 FBC6 32              2     pula
15242 FBC7 1B              .     aba
15243 FBC8 33              3     pulb
15244 FBC9 36              6     psha
15245 FBCA A6 06           ..    ldaa 06,x
15246 FBCC 3D              =     mul
15247 FBCD 37              7     pshb
15248 FBCE AB 00           ..    adda 00,x
15249 FBD0 36              6     psha
15250 FBD1 EC 03           ..    ldd 03,x
15251 FBD3 ED 05           ..    stad 05,x
15252 FBD5 38              8     pulx
15253 FBD6 8F              .     xgdx
15254 FBD7 83 00 00        ...   subd #0000
15255 FBDA 31              1     ins
15256 FBDB 38              8     pulx
15257 FBDC 31              1     ins
15258 FBDD 31              1     ins
15259 FBDE 39              9     rts
15260 FBDF BD FB E8        ...   jsr fbe8
15261 FBE2 BD FC 25        ..%   jsr fc25
15262 FBE5 7E FC 04        ~..   jmp fc04
15263 FBE8 3C              <     pshx
15264 FBE9 8F              .     xgdx
15265 FBEA EC 02           ..    ldd 02,x
15266 FBEC 37              7     pshb
15267 FBED 36              6     psha
15268 FBEE EC 00           ..    ldd 00,x
15269 FBF0 37              7     pshb
15270 FBF1 36              6     psha
15271 FBF2 34              4     des
15272 FBF3 34              4     des
15273 FBF4 34              4     des
15274 FBF5 34              4     des
15275 FBF6 3C              <     pshx
15276 FBF7 30              0     tsx
15277 FBF8 EC 12           ..    ldd 12,x
15278 FBFA ED 04           ..    stad 04,x
15279 FBFC EC 0C           ..    ldd 0c,x
15280 FBFE ED 02           ..    stad 02,x
15281 FC00 EC 10           ..    ldd 10,x
15282 FC02 38              8     pulx
15283 FC03 39              9     rts
15284 FC04 ED 00           ..    stad 00,x
15285 FC06 3C              <     pshx
15286 FC07 30              0     tsx
15287 FC08 EC 08           ..    ldd 08,x
15288 FC0A ED 0A           ..    stad 0a,x
15289 FC0C EC 02           ..    ldd 02,x
15290 FC0E ED 0C           ..    stad 0c,x
15291 FC10 38              8     pulx
15292 FC11 ED 02           ..    stad 02,x
15293 FC13 EC 00           ..    ldd 00,x
15294 FC15 26 06           &.    bne 06
15295 FC17 6D 02           m.    tst 02,x
15296 FC19 26 02           &.    bne 02
15297 FC1B 6D 03           m.    tst 03,x
15298 FC1D 31              1     ins
15299 FC1E 31              1     ins
15300 FC1F 38              8     pulx
15301 FC20 31              1     ins
15302 FC21 31              1     ins
15303 FC22 31              1     ins
15304 FC23 31              1     ins
15305 FC24 39              9     rts
15306 FC25 3C              <     pshx
15307 FC26 30              0     tsx
15308 FC27 E3 06           ..    addd 06,x
15309 FC29 37              7     pshb
15310 FC2A 36              6     psha
15311 FC2B EC 02           ..    ldd 02,x
15312 FC2D ED 06           ..    stad 06,x
15313 FC2F EC 04           ..    ldd 04,x
15314 FC31 E3 08           ..    addd 08,x
15315 FC33 ED 08           ..    stad 08,x
15316 FC35 32              2     pula
15317 FC36 33              3     pulb
15318 FC37 C9 00           ..    adcb #00
15319 FC39 89 00           ..    adca #00
15320 FC3B 83 00 00        ...   subd #0000
15321 FC3E 26 06           &.    bne 06
15322 FC40 6D 08           m.    tst 08,x
15323 FC42 26 02           &.    bne 02
15324 FC44 6D 09           m.    tst 09,x
15325 FC46 38              8     pulx
15326 FC47 31              1     ins
15327 FC48 31              1     ins
15328 FC49 31              1     ins
15329 FC4A 31              1     ins
15330 FC4B 39              9     rts
15331 FC4C 3C              <     pshx
15332 FC4D 3C              <     pshx
15333 FC4E 37              7     pshb
15334 FC4F 36              6     psha
15335 FC50 3C              <     pshx
15336 FC51 3C              <     pshx
15337 FC52 3C              <     pshx
15338 FC53 18 3C           .<    pshy
15339 FC55 30              0     tsx
15340 FC56 4F              O     clra
15341 FC57 A7 04           ..    sta 04,x
15342 FC59 7E FC 6D        ~.m   jmp fc6d
15343 FC5C 3C              <     pshx
15344 FC5D 3C              <     pshx
15345 FC5E 37              7     pshb
15346 FC5F 36              6     psha
15347 FC60 3C              <     pshx
15348 FC61 3C              <     pshx
15349 FC62 3C              <     pshx
15350 FC63 18 3C           .<    pshy
15351 FC65 30              0     tsx
15352 FC66 86 01           ..    ldaa #01
15353 FC68 A7 04           ..    sta 04,x
15354 FC6A 7E FC 6D        ~.m   jmp fc6d
15355 FC6D 1A EE 0E        ...   ldy 0e,x
15356 FC70 EC 08           ..    ldd 08,x
15357 FC72 ED 0E           ..    stad 0e,x
15358 FC74 EC 14           ..    ldd 14,x
15359 FC76 ED 0C           ..    stad 0c,x
15360 FC78 EC 12           ..    ldd 12,x
15361 FC7A ED 0A           ..    stad 0a,x
15362 FC7C 1A EF 12        ...   sty 12,x
15363 FC7F 4F              O     clra
15364 FC80 5F              _     clrb
15365 FC81 ED 08           ..    stad 08,x
15366 FC83 ED 06           ..    stad 06,x
15367 FC85 EC 0A           ..    ldd 0a,x
15368 FC87 1A A3 0E        ...   cmpd 0e,x
15369 FC8A 22 23           "#    bhi 23
15370 FC8C 27 15           '.    beq 15
15371 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15372 FC92 CC 00 00        ...   ldd #0000
15373 FC95 ED 14           ..    stad 14,x
15374 FC97 7E FE 04        ~..   jmp fe04
15375 FC9A EC 0C           ..    ldd 0c,x
15376 FC9C ED 14           ..    stad 14,x
15377 FC9E EC 0A           ..    ldd 0a,x
15378 FCA0 7E FD E3        ~..   jmp fde3
15379 FCA3 83 00 00        ...   subd #0000
15380 FCA6 27 12           '.    beq 12
15381 FCA8 EC 0C           ..    ldd 0c,x
15382 FCAA 1A A3 10        ...   cmpd 10,x
15383 FCAD 25 DF           %.    bcs df
15384 FCAF 6D 0E           m.    tst 0e,x
15385 FCB1 26 70           &p    bne 70
15386 FCB3 6D 0F           m.    tst 0f,x
15387 FCB5 27 1A           '.    beq 1a
15388 FCB7 7E FD A4        ~..   jmp fda4
15389 FCBA 3C              <     pshx
15390 FCBB 3C              <     pshx
15391 FCBC 18 38           .8    puly
15392 FCBE EC 0C           ..    ldd 0c,x
15393 FCC0 EE 10           ..    ldx 10,x
15394 FCC2 02              .     idiv
15395 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15396 FCC8 8F              .     xgdx
15397 FCC9 38              8     pulx
15398 FCCA ED 14           ..    stad 14,x
15399 FCCC 4F              O     clra
15400 FCCD 5F              _     clrb
15401 FCCE 7E FD E3        ~..   jmp fde3
15402 FCD1 3C              <     pshx
15403 FCD2 3C              <     pshx
15404 FCD3 18 38           .8    puly
15405 FCD5 EC 0A           ..    ldd 0a,x
15406 FCD7 EE 10           ..    ldx 10,x
15407 FCD9 3C              <     pshx
15408 FCDA 02              .     idiv
15409 FCDB CD EF 0A        ...   stx 02x,y
15410 FCDE 38              8     pulx
15411 FCDF 3C              <     pshx
15412 FCE0 03              .     fdiv
15413 FCE1 CD EF 0E        ...   stx 02x,y
15414 FCE4 38              8     pulx
15415 FCE5 18 E3 0C        ...   addd 0c,y
15416 FCE8 24 1B           $.    bcc 1b
15417 FCEA 18 ED 0C        ...   stad 0c,y
15418 FCED 4F              O     clra
15419 FCEE C6 01           ..    ldab #01
15420 FCF0 3C              <     pshx
15421 FCF1 03              .     fdiv
15422 FCF2 8F              .     xgdx
15423 FCF3 18 E3 0E        ...   addd 0e,y
15424 FCF6 24 03           $.    bcc 03
15425 FCF8 18 6C 0A        .l.   inc 0a,y
15426 FCFB 18 ED 0E        ...   stad 0e,y
15427 FCFE 8F              .     xgdx
15428 FCFF 38              8     pulx
15429 FD00 18 E3 0C        ...   addd 0c,y
15430 FD03 25 E5           %.    bcs e5
15431 FD05 02              .     idiv
15432 FD06 8F              .     xgdx
15433 FD07 18 E3 0E        ...   addd 0e,y
15434 FD0A 24 03           $.    bcc 03
15435 FD0C 18 6C 0A        .l.   inc 0a,y
15436 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15437 FD14 8F              .     xgdx
15438 FD15 18 6F 0A        .o.   clr 0a,y
15439 FD18 18 6F 0B        .o.   clr 0b,y
15440 FD1B 38              8     pulx
15441 FD1C ED 14           ..    stad 14,x
15442 FD1E EC 0A           ..    ldd 0a,x
15443 FD20 7E FD E3        ~..   jmp fde3
15444 FD23 86 08           ..    ldaa #08
15445 FD25 A7 05           ..    sta 05,x
15446 FD27 69              i     rol
15447 FD28 0D              .     sec
15448 FD29 69              i     rol
15449 FD2A 0C              .     clc
15450 FD2B 69              i     rol
15451 FD2C 0B              .     sev
15452 FD2D 69              i     rol
15453 FD2E 0A              .     clv
15454 FD2F 69              i     rol
15455 FD30 09              .     dex
15456 FD31 EC 0B           ..    ldd 0b,x
15457 FD33 A3 10           ..    subd 10,x
15458 FD35 ED 14           ..    stad 14,x
15459 FD37 EC 09           ..    ldd 09,x
15460 FD39 E2 0F           ..    sbcb 0f,x
15461 FD3B A2 0E           ..    sbca 0e,x
15462 FD3D 25 06           %.    bcs 06
15463 FD3F ED 09           ..    stad 09,x
15464 FD41 EC 14           ..    ldd 14,x
15465 FD43 ED 0B           ..    stad 0b,x
15466 FD45 6A 05           j.    dec 05,x
15467 FD47 26 DE           &.    bne de
15468 FD49 69              i     rol
15469 FD4A 0D              .     sec
15470 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
15471 FD4F EC 0B           ..    ldd 0b,x
15472 FD51 ED 14           ..    stad 14,x
15473 FD53 EC 09           ..    ldd 09,x
15474 FD55 7E FD E3        ~..   jmp fde3
15475 FD58 4F              O     clra
15476 FD59 E6 0D           ..    ldab 0d,x
15477 FD5B 53              S     comb
15478 FD5C ED 14           ..    stad 14,x
15479 FD5E 5F              _     clrb
15480 FD5F 7E FD E3        ~..   jmp fde3
15481 FD62 86 10           ..    ldaa #10
15482 FD64 A7 05           ..    sta 05,x
15483 FD66 69              i     rol
15484 FD67 0D              .     sec
15485 FD68 69              i     rol
15486 FD69 0C              .     clc
15487 FD6A 69              i     rol
15488 FD6B 0B              .     sev
15489 FD6C 69              i     rol
15490 FD6D 0A              .     clv
15491 FD6E 69              i     rol
15492 FD6F 09              .     dex
15493 FD70 69              i     rol
15494 FD71 08              .     inx
15495 FD72 EC 0A           ..    ldd 0a,x
15496 FD74 A3 10           ..    subd 10,x
15497 FD76 ED 14           ..    stad 14,x
15498 FD78 EC 08           ..    ldd 08,x
15499 FD7A E2 0F           ..    sbcb 0f,x
15500 FD7C 82 00           ..    sbca #00
15501 FD7E 25 06           %.    bcs 06
15502 FD80 ED 08           ..    stad 08,x
15503 FD82 EC 14           ..    ldd 14,x
15504 FD84 ED 0A           ..    stad 0a,x
15505 FD86 6A 05           j.    dec 05,x
15506 FD88 26 DC           &.    bne dc
15507 FD8A 69              i     rol
15508 FD8B 0D              .     sec
15509 FD8C 69              i     rol
15510 FD8D 0C              .     clc
15511 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15512 FD92 EC 0A           ..    ldd 0a,x
15513 FD94 ED 14           ..    stad 14,x
15514 FD96 EC 08           ..    ldd 08,x
15515 FD98 20 49            I    bra 49
15516 FD9A EC 0C           ..    ldd 0c,x
15517 FD9C 43              C     coma
15518 FD9D 53              S     comb
15519 FD9E ED 14           ..    stad 14,x
15520 FDA0 4F              O     clra
15521 FDA1 5F              _     clrb
15522 FDA2 20 3F            ?    bra 3f
15523 FDA4 2B BC           +.    bmi bc
15524 FDA6 86 10           ..    ldaa #10
15525 FDA8 A7 05           ..    sta 05,x
15526 FDAA 69              i     rol
15527 FDAB 0D              .     sec
15528 FDAC 69              i     rol
15529 FDAD 0C              .     clc
15530 FDAE 69              i     rol
15531 FDAF 0B              .     sev
15532 FDB0 69              i     rol
15533 FDB1 0A              .     clv
15534 FDB2 69              i     rol
15535 FDB3 07              .     tpa
15536 FDB4 EC 0A           ..    ldd 0a,x
15537 FDB6 A3 10           ..    subd 10,x
15538 FDB8 ED 14           ..    stad 14,x
15539 FDBA A6 07           ..    ldaa 07,x
15540 FDBC A2 0F           ..    sbca 0f,x
15541 FDBE 25 06           %.    bcs 06
15542 FDC0 A7 07           ..    sta 07,x
15543 FDC2 EC 14           ..    ldd 14,x
15544 FDC4 ED 0A           ..    stad 0a,x
15545 FDC6 6A 05           j.    dec 05,x
15546 FDC8 26 E0           &.    bne e0
15547 FDCA 69              i     rol
15548 FDCB 0D              .     sec
15549 FDCC 69              i     rol
15550 FDCD 0C              .     clc
15551 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
15552 FDD2 EC 0A           ..    ldd 0a,x
15553 FDD4 ED 14           ..    stad 14,x
15554 FDD6 4F              O     clra
15555 FDD7 E6 07           ..    ldab 07,x
15556 FDD9 20 08            .    bra 08
15557 FDDB EC 0C           ..    ldd 0c,x
15558 FDDD 43              C     coma
15559 FDDE 53              S     comb
15560 FDDF ED 14           ..    stad 14,x
15561 FDE1 4F              O     clra
15562 FDE2 5F              _     clrb
15563 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
15564 FDE7 43              C     coma
15565 FDE8 53              S     comb
15566 FDE9 63 14           c.    com 14,x
15567 FDEB 63 15           c.    com 15,x
15568 FDED 6C 15           l.    inc 15,x
15569 FDEF 26 08           &.    bne 08
15570 FDF1 6C 14           l.    inc 14,x
15571 FDF3 26 04           &.    bne 04
15572 FDF5 5C              \     incb
15573 FDF6 26 01           &.    bne 01
15574 FDF8 4C              L     inca
15575 FDF9 83 00 00        ...   subd #0000
15576 FDFC 26 06           &.    bne 06
15577 FDFE 6D 14           m.    tst 14,x
15578 FE00 26 02           &.    bne 02
15579 FE02 6D 15           m.    tst 15,x
15580 FE04 18 38           .8    puly
15581 FE06 38              8     pulx
15582 FE07 31              1     ins
15583 FE08 31              1     ins
15584 FE09 31              1     ins
15585 FE0A 31              1     ins
15586 FE0B 31              1     ins
15587 FE0C 31              1     ins
15588 FE0D 31              1     ins
15589 FE0E 31              1     ins
15590 FE0F 31              1     ins
15591 FE10 31              1     ins
15592 FE11 31              1     ins
15593 FE12 31              1     ins
15594 FE13 31              1     ins
15595 FE14 31              1     ins
15596 FE15 39              9     rts
15597 FE16 38              8     pulx
15598 FE17 A3 00           ..    subd 00,x
15599 FE19 2D 05           -.    blt 05
15600 FE1B 1A A3 02        ...   cmpd 02,x
15601 FE1E 2F 03           /.    ble 03
15602 FE20 CC FF FF        ...   ldd #ffff
15603 FE23 3C              <     pshx
15604 FE24 05              .     asld
15605 FE25 30              0     tsx
15606 FE26 E3 00           ..    addd 00,x
15607 FE28 C3 00 06        ...   addd #0006
15608 FE2B 8F              .     xgdx
15609 FE2C EC 00           ..    ldd 00,x
15610 FE2E 30              0     tsx
15611 FE2F ED 00           ..    stad 00,x
15612 FE31 39              9     rts
15613 FE32 38              8     pulx
15614 FE33 6D 04           m.    tst 04,x
15615 FE35 26 04           &.    bne 04
15616 FE37 6D 05           m.    tst 05,x
15617 FE39 27 0A           '.    beq 0a
15618 FE3B A3 02           ..    subd 02,x
15619 FE3D 27 06           '.    beq 06
15620 FE3F 08              .     inx
15621 FE40 08              .     inx
15622 FE41 08              .     inx
15623 FE42 08              .     inx
15624 FE43 20 EE            .    bra ee
15625 FE45 EE 00           ..    ldx 00,x
15626 FE47 6E 00           n.    jmp 00,x
15627
15628         reset:
15629
15630 FE49 86 40           .@    ldaa #40     ;40 -> A
15631 FE4B B7 10 24        ..$   sta 1024     ;A -> 1024
15632 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
15633 FE50 B7 10 39        ..9   sta 1039     ;A -> 1024
15634 FE53 8E 00 EF        ...   lds #00ef
15635 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
15636 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
15637 FE5C 24 05           $.    bcc fe63     ;        finished
15638 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
15639 FE60 08              .     inx          ;        increment X
15640 FE61 20 F6            .    bra fe59     ;repeat
15641 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
15642 FE66 7E FE 6D        ~.m   jmp fe6d     ;
15643
15644 FE69 0F              .     sei          ;inhibit interrupts
15645 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
15646
15647 FE6D 20 FE            .    bra fe6d     ;loop forever
15648                                         ;[SAF] - wait for interrupts?
15649
15650 FE6F FF FF FF        ...   stx ffff
15651 FE72 FF FF FF        ...   stx ffff
15652 FE75 FF FF FF        ...   stx ffff
15653 FE78 FF FF FF        ...   stx ffff
15654 FE7B FF FF FF        ...   stx ffff
15655 FE7E FF FF FF        ...   stx ffff
15656 FE81 FF FF FF        ...   stx ffff
15657 FE84 FF FF FF        ...   stx ffff
15658 FE87 FF FF FF        ...   stx ffff
15659 FE8A FF FF FF        ...   stx ffff
15660 FE8D FF FF FF        ...   stx ffff
15661 FE90 FF FF FF        ...   stx ffff
15662 FE93 FF FF FF        ...   stx ffff
15663 FE96 FF FF FF        ...   stx ffff
15664 FE99 FF FF FF        ...   stx ffff
15665 FE9C FF FF FF        ...   stx ffff
15666 FE9F FF FF FF        ...   stx ffff
15667 FEA2 FF FF FF        ...   stx ffff
15668 FEA5 FF FF FF        ...   stx ffff
15669 FEA8 FF FF FF        ...   stx ffff
15670 FEAB FF FF FF        ...   stx ffff
15671 FEAE FF FF FF        ...   stx ffff
15672 FEB1 FF FF FF        ...   stx ffff
15673 FEB4 FF FF FF        ...   stx ffff
15674 FEB7 FF FF FF        ...   stx ffff
15675 FEBA FF FF FF        ...   stx ffff
15676 FEBD FF FF FF        ...   stx ffff
15677 FEC0 FF FF FF        ...   stx ffff
15678 FEC3 FF FF FF        ...   stx ffff
15679 FEC6 FF FF FF        ...   stx ffff
15680 FEC9 FF FF FF        ...   stx ffff
15681 FECC FF FF FF        ...   stx ffff
15682 FECF FF FF FF        ...   stx ffff
15683 FED2 FF FF FF        ...   stx ffff
15684 FED5 FF FF FF        ...   stx ffff
15685 FED8 FF FF FF        ...   stx ffff
15686 FEDB FF FF FF        ...   stx ffff
15687 FEDE FF FF FF        ...   stx ffff
15688 FEE1 FF FF FF        ...   stx ffff
15689 FEE4 FF FF FF        ...   stx ffff
15690 FEE7 FF FF FF        ...   stx ffff
15691 FEEA FF FF FF        ...   stx ffff
15692 FEED FF FF FF        ...   stx ffff
15693 FEF0 FF FF FF        ...   stx ffff
15694 FEF3 FF FF FF        ...   stx ffff
15695 FEF6 FF FF FF        ...   stx ffff
15696 FEF9 FF FF FF        ...   stx ffff
15697 FEFC FF FF FF        ...   stx ffff
15698 FEFF FF FF FF        ...   stx ffff
15699 FF02 FF FF FF        ...   stx ffff
15700 FF05 FF FF FF        ...   stx ffff
15701 FF08 FF FF FF        ...   stx ffff
15702 FF0B FF FF FF        ...   stx ffff
15703 FF0E FF FF FF        ...   stx ffff
15704 FF11 FF FF FF        ...   stx ffff
15705 FF14 FF FF FF        ...   stx ffff
15706 FF17 FF FF FF        ...   stx ffff
15707 FF1A FF FF FF        ...   stx ffff
15708 FF1D FF FF FF        ...   stx ffff
15709 FF20 FF FF FF        ...   stx ffff
15710 FF23 FF FF FF        ...   stx ffff
15711 FF26 FF FF FF        ...   stx ffff
15712 FF29 FF FF FF        ...   stx ffff
15713 FF2C FF FF FF        ...   stx ffff
15714 FF2F FF FF FF        ...   stx ffff
15715 FF32 FF FF FF        ...   stx ffff
15716 FF35 FF FF FF        ...   stx ffff
15717 FF38 FF FF FF        ...   stx ffff
15718 FF3B FF FF FF        ...   stx ffff
15719 FF3E FF FF FF        ...   stx ffff
15720 FF41 FF FF FF        ...   stx ffff
15721 FF44 FF FF FF        ...   stx ffff
15722 FF47 FF FF FF        ...   stx ffff
15723 FF4A FF FF FF        ...   stx ffff
15724 FF4D FF FF FF        ...   stx ffff
15725 FF50 FF FF FF        ...   stx ffff
15726 FF53 FF FF FF        ...   stx ffff
15727 FF56 FF FF FF        ...   stx ffff
15728 FF59 FF FF FF        ...   stx ffff
15729 FF5C FF FF FF        ...   stx ffff
15730 FF5F FF FF FF        ...   stx ffff
15731 FF62 FF FF FF        ...   stx ffff
15732 FF65 FF FF FF        ...   stx ffff
15733 FF68 FF FF FF        ...   stx ffff
15734 FF6B FF FF FF        ...   stx ffff
15735 FF6E FF FF FF        ...   stx ffff
15736 FF71 FF FF FF        ...   stx ffff
15737 FF74 FF FF FF        ...   stx ffff
15738 FF77 FF FF FF        ...   stx ffff
15739 FF7A FF FF FF        ...   stx ffff
15740 FF7D FF FF FF        ...   stx ffff
15741 FF80 FF FF FF        ...   stx ffff
15742 FF83 FF FF FF        ...   stx ffff
15743 FF86 FF FF FF        ...   stx ffff
15744 FF89 FF FF FF        ...   stx ffff
15745 FF8C FF FF FF        ...   stx ffff
15746 FF8F FF FF FF        ...   stx ffff
15747 FF92 FF FF FF        ...   stx ffff
15748 FF95 FF FF FF        ...   stx ffff
15749 FF98 FF FF FF        ...   stx ffff
15750 FF9B FF FF FF        ...   stx ffff
15751 FF9E FF FF FF        ...   stx ffff
15752 FFA1 FF FF FF        ...   stx ffff
15753 FFA4 FF FF FF        ...   stx ffff
15754 FFA7 FF FF FF        ...   stx ffff
15755 FFAA FF FF FF        ...   stx ffff
15756 FFAD FF FF FF        ...   stx ffff
15757 FFB0 FF FF FF        ...   stx ffff
15758 FFB3 FF FF FF        ...   stx ffff
15759 FFB6 FF FF FF        ...   stx ffff
15760 FFB9 FF FF FF        ...   stx ffff
15761 FFBC FF FF FF        ...   stx ffff
15762 FFBF FF FF FF        ...   stx ffff
15763 FFC2 FF FF FF        ...   stx ffff
15764 FFC5 FF FF FF        ...   stx ffff
15765 FFC8 FF FF FF        ...   stx ffff
15766 FFCB FF FF FF        ...   stx ffff
15767 FFCE FF FF FF        ...   stx ffff
15768 FFD1 FF FF FF        ...   stx ffff
15769 FFD4 FF FF
15770
15771 FFD6    ;vectors
15772         .word   c81c
15773         .word   fae2
15774         .word   faef
15775         .word   fafc
15776         .word   fb09
15777         .word   fb16
15778         .word   fb23
15779         .word   fb30
15780         .word   fb3d
15781         .word   fb4a
15782         .word   fb57
15783         .word   fb64
15784         .word   fb71
15785         .word   f718
15786         .word   fb7e
15787         .word   fb8b
15788         .word   fb98
15789         .word   fba5
15790         .word   fbb2
15791         .word   fbb6
15792         .word   fe49
15793 \1a