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             ;jump5
 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             ;jump7
 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             ;jump4
 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             ;jump3
 330 81DF BD BE 4B        ..K   jsr be4b             ;jump1
 331 81E2 CC B0 81        ...   ldd #b081            ;"NO  ACCESS"
 332 81E5 BD C0 BA        ...   jsr c0ba             ;display:
 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             ;jump1
 341 81FD F6 00 48        ..H   ldab 0048
 342 8200 26 03           &.    bne 03
 343 8202 BD AB A2        ...   jsr aba2             ;jump8
 344 8205 F6 00 48        ..H   ldab 0048
 345 8208 4F              O     clra
 346 8209 BD FE 16        ...   jsr fe16             ;jump2
 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             ;display:
 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             ;jump10
 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             ;jump11
 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             ;display:
 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             ;jump10
 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             ;jump11
 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             ;display:
 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             ;jump10
 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             ;jump11
 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             ;display:
 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             ;display:
 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             ;display:
 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             ;display:
 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             ;display:
 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             ;display:
 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             ;display:
 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    "HIT RESET "
 608 846E BD C0 BA        ...   jsr c0ba              ;display:
 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             ;display:
 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             ;display:
 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
 630 84A0 FC 00 3B        ..;   ldd 003b
 631 84A3 26 03           &.    bne 03
 632 84A5 7E 85 96        ~..   jmp 8596
 633 84A8 F6 00 1F        ...   ldab 001f
 634 84AB 2C 40           ,@    bge 40
 635 84AD BD D6 52        ..R   jsr d652             ;jump5
 636 84B0 7F 00 42        ..B   clr 0042
 637 84B3 7F 00 09        ...   clr 0009
 638 84B6 7F 00 0A        ...   clr 000a
 639 84B9 7F 00 06        ...   clr 0006
 640 84BC 5F              _     clrb
 641 84BD 4F              O     clra
 642 84BE FD 00 40        ..@   stad 0040
 643 84C1 5F              _     clrb
 644 84C2 4F              O     clra
 645 84C3 FD 00 3E        ..>   stad 003e
 646 84C6 BD E5 AA        ...   jsr e5aa             ;jump12
 647 84C9 CE 00 1F        ...   ldx #001f
 648 84CC 1D 00           ..    bclr add,x 00,x
 649 84CE 80 CE           ..    suba #ce
 650 84D0 00              .     test
 651 84D1 1F 1C 00 02     ....  brclr 1c,x 00 02
 652 84D5 CE 00 1D        ...   ldx #001d
 653 84D8 1C 00           ..    bset add,x 00,x
 654 84DA 10              .     sba
 655 84DB CE 00 17        ...   ldx #0017
 656 84DE 1D 00           ..    bclr add,x 00,x
 657 84E0 20 CE            .    bra ce
 658 84E2 00              .     test
 659 84E3 17              .     tba
 660 84E4 1D 00           ..    bclr add,x 00,x
 661 84E6 40              @     nega
 662 84E7 CE 00 17        ...   ldx #0017
 663 84EA 1D 00           ..    bclr add,x 00,x
 664 84EC 80 F6           ..    suba #f6
 665 84EE 0B              .     sev
 666 84EF A9 C4           ..    adca c4,x
 667 84F1 02              .     idiv
 668 84F2 27 20           '     beq 20
 669 84F4 F6 00 42        ..B   ldab 0042
 670 84F7 4F              O     clra
 671 84F8 C3 0B E4        ...   addd #0be4
 672 84FB 8F              .     xgdx
 673 84FC E6 00           ..    ldab 00,x
 674 84FE 27 14           '.    beq 14
 675 8500 BD BE 4B        ..K   jsr be4b             ;jump1
 676 8503 CC B0 81        ...   ldd #b081            ;"NO  ACCESS"
 677 8506 BD C0 BA        ...   jsr c0ba             ;display:
 678 8509 CC 02 58        ..X   ldd #0258
 679 850C BD E5 71        ..q   jsr e571             ;jump13
 680 850F BD 85 AF        ...   jsr 85af             ;jump14
 681 8512 20 6C            l    bra 6c
 682 8514 F6 00 42        ..B   ldab 0042
 683 8517 4F              O     clra
 684 8518 BD FE 16        ...   jsr fe16             ;jump2
 685 851B 00              .     test
 686 851C 00              .     test
 687 851D 00              .     test
 688 851E 0B              .     sev
 689 851F 85 80           ..    bita #80
 690 8521 85 39           .9    bita #39
 691 8523 85 4A           .J    bita #4a
 692 8525 85 4F           .O    bita #4f
 693 8527 85 54           .T    bita #54
 694 8529 85 59           .Y    bita #59
 695 852B 85 5E           .^    bita #5e
 696 852D 85 63           .c    bita #63
 697 852F 85 68           .h    bita #68
 698 8531 85 6D           .m    bita #6d
 699 8533 85 72           .r    bita #72
 700 8535 85 77           .w    bita #77
 701 8537 85 7C           .|    bita #7c
 702 8539 CC AE 92        ...   ldd #ae92    "-         "
 703 853C BD C0 BA        ...   jsr c0ba             ;display:
 704 853F 7F 00 42        ..B   clr 0042
 705 8542 CE 00 1F        ...   ldx #001f
 706 8545 1C 00           ..    bset add,x 00,x
 707 8547 02              .     idiv
 708 8548 20 36            6    bra 36
 709 854A BD 86 84        ...   jsr 8684             ;jump15
 710 854D 20 31            1    bra 31
 711 854F BD 88 2E        ...   jsr 882e             ;jump16
 712 8552 20 2C            ,    bra 2c
 713 8554 BD 88 B8        ...   jsr 88b8
 714 8557 20 27            '    bra 27
 715 8559 BD 8C B4        ...   jsr 8cb4
 716 855C 20 22            "    bra 22
 717 855E BD 8E 35        ..5   jsr 8e35
 718 8561 20 1D            .    bra 1d
 719 8563 BD 8F 0D        ...   jsr 8f0d
 720 8566 20 18            .    bra 18
 721 8568 BD 90 D1        ...   jsr 90d1
 722 856B 20 13            .    bra 13
 723 856D BD 92 EE        ...   jsr 92ee
 724 8570 20 0E            .    bra 0e
 725 8572 BD 93 A5        ...   jsr 93a5
 726 8575 20 09            .    bra 09
 727 8577 BD 94 DD        ...   jsr 94dd
 728 857A 20 04            .    bra 04
 729 857C 8D 31           .1    bsr dest 31
 730 857E 20 00            .    bra 00
 731 8580 7F 00 0A        ...   clr 000a
 732 8583 F6 00 42        ..B   ldab 0042
 733 8586 C1 0A           ..    cmpb #0a
 734 8588 27 0A           '.    beq 0a
 735 858A F6 00 42        ..B   ldab 0042
 736 858D C1 07           ..    cmpb #07
 737 858F 27 03           '.    beq 03
 738 8591 7F 00 09        ...   clr 0009
 739 8594 20 18            .    bra 18
 740 8596 CE 00 1F        ...   ldx #001f
 741 8599 1D 00           ..    bclr add,x 00,x
 742 859B 04              .     lsrd
 743 859C CE 00 1F        ...   ldx #001f
 744 859F 1C 00           ..    bset add,x 00,x
 745 85A1 80 CE           ..    suba #ce
 746 85A3 00              .     test
 747 85A4 1D 1C           ..    bclr add,x 1c,x
 748 85A6 00              .     test
 749 85A7 10              .     sba
 750 85A8 BD BE 69        ..i   jsr be69             ;jump3
 751 85AB BD E5 AA        ...   jsr e5aa             ;jump12
 752 85AE 39              9     rts
 753
 754 jump14:
 755 85AF 7F 00 42        ..B   clr 0042
 756 85B2 7F 00 06        ...   clr 0006
 757 85B5 CE 00 1F        ...   ldx #001f
 758 85B8 1C 00           ..    bset add,x 00,x
 759 85BA 02              .     idiv
 760 85BB BD BE 69        ..i   jsr be69             ;jump3
 761 85BE 39              9     rts
 762
 763 85BF F6 00 12        ...   ldab 0012
 764 85C2 C4 1E           ..    andb #1e
 765 85C4 4F              O     clra
 766 85C5 BD FE 32        ..2   jsr fe32
 767 85C8 85 DE           ..    bita #de
 768 85CA 00              .     test
 769 85CB 0E              .     cli
 770 85CC 86 08           ..    ldaa #08
 771 85CE 00              .     test
 772 85CF 08              .     inx
 773 85D0 86 32           .2    ldaa #32
 774 85D2 00              .     test
 775 85D3 04              .     lsrd
 776 85D4 86 5C           .\    ldaa #5c
 777 85D6 00              .     test
 778 85D7 02              .     idiv
 779 85D8 86 83           ..    ldaa #83
 780 85DA FF E4 00        ...   stx e400
 781 85DD 00              .     test
 782 85DE F6 0B DC        ...   ldab 0bdc
 783 85E1 F7 00 01        ...   stb 0001
 784 85E4 BD C4 30        ..0   jsr c430
 785 85E7 C6 01           ..    ldab #01
 786 85E9 F7 00 48        ..H   stb 0048
 787 85EC 7F 00 2C        ..,   clr 002c
 788 85EF F6 0C D9        ...   ldab 0cd9
 789 85F2 27 03           '.    beq 03
 790 85F4 7A 0C D9        z..   dec 0cd9
 791 85F7 BD 97 F6        ...   jsr 97f6
 792 85FA CC 01 5E        ..^   ldd #015e
 793 85FD BD E5 71        ..q   jsr e571             ;jump13
 794 8600 CC 02 33        ..3   ldd #0233
 795 8603 FD 00 3B        ..;   stad 003b
 796 8606 20 7B            {    bra 7b
 797 8608 F6 0B DB        ...   ldab 0bdb
 798 860B F7 00 01        ...   stb 0001
 799 860E BD C4 30        ..0   jsr c430
 800 8611 C6 02           ..    ldab #02
 801 8613 F7 00 48        ..H   stb 0048
 802 8616 7F 00 2C        ..,   clr 002c
 803 8619 F6 0C DA        ...   ldab 0cda
 804 861C 27 03           '.    beq 03
 805 861E 7A 0C DA        z..   dec 0cda
 806 8621 BD 97 F6        ...   jsr 97f6
 807 8624 CC 01 5E        ..^   ldd #015e
 808 8627 BD E5 71        ..q   jsr e571             ;jump13
 809 862A CC 02 33        ..3   ldd #0233
 810 862D FD 00 3B        ..;   stad 003b
 811 8630 20 51            Q    bra 51
 812 8632 F6 0B DA        ...   ldab 0bda
 813 8635 F7 00 01        ...   stb 0001
 814 8638 BD C4 30        ..0   jsr c430
 815 863B C6 03           ..    ldab #03
 816 863D F7 00 48        ..H   stb 0048
 817 8640 7F 00 2C        ..,   clr 002c
 818 8643 F6 0C DB        ...   ldab 0cdb
 819 8646 27 03           '.    beq 03
 820 8648 7A 0C DB        z..   dec 0cdb
 821 864B BD 97 F6        ...   jsr 97f6
 822 864E CC 01 5E        ..^   ldd #015e
 823 8651 BD E5 71        ..q   jsr e571             ;jump13
 824 8654 CC 02 33        ..3   ldd #0233
 825 8657 FD 00 3B        ..;   stad 003b
 826 865A 20 27            '    bra 27
 827 865C C6 40           .@    ldab #40
 828 865E F7 00 01        ...   stb 0001
 829 8661 BD C4 30        ..0   jsr c430
 830 8664 C6 04           ..    ldab #04
 831 8666 F7 00 48        ..H   stb 0048
 832 8669 7F 00 2C        ..,   clr 002c
 833 866C F6 0C DC        ...   ldab 0cdc
 834 866F 27 03           '.    beq 03
 835 8671 7A 0C DC        z..   dec 0cdc
 836 8674 BD 97 F6        ...   jsr 97f6
 837 8677 CC 01 5E        ..^   ldd #015e
 838 867A BD E5 71        ..q   jsr e571             ;jump13
 839 867D CC 02 33        ..3   ldd #0233
 840 8680 FD 00 3B        ..;   stad 003b
 841 8683 39              9     rts
 842
 843 jump15:
 844 8684 F6 00 1F        ...   ldab 001f
 845 8687 C4 02           ..    andb #02
 846 8689 27 2B           '+    beq 2b
 847 868B CE 00 1F        ...   ldx #001f
 848 868E 1D 00           ..    bclr add,x 00,x
 849 8690 02              .     idiv
 850 8691 C6 01           ..    ldab #01
 851 8693 F7 00 48        ..H   stb 0048
 852 8696 F6 0B C0        ...   ldab 0bc0
 853 8699 C4 01           ..    andb #01
 854 869B 27 16           '.    beq 16
 855 869D C6 27           .'    ldab #27
 856 869F F7 10 2D        ..-   stb 102d
 857 86A2 C6 07           ..    ldab #07
 858 86A4 F7 10 2B        ..+   stb 102b
 859 86A7 CE 00 1A        ...   ldx #001a
 860 86AA 1D 00           ..    bclr add,x 00,x
 861 86AC 01              .     nop
 862 86AD F6 00 1A        ...   ldab 001a
 863 86B0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 864 86B3 7E 87 E8        ~..   jmp 87e8
 865 86B6 F6 00 09        ...   ldab 0009
 866 86B9 4F              O     clra
 867 86BA BD FE 32        ..2   jsr fe32
 868 86BD 86 D7           ..    ldaa #d7
 869 86BF 00              .     test
 870 86C0 00              .     test
 871 86C1 87              .     illegal
 872 86C2 39              9     rts
 873
 874 86C3 00              .     test
 875 86C4 01              .     nop
 876 86C5 87              .     illegal
 877 86C6 75              u     illegal
 878 86C7 00              .     test
 879 86C8 01              .     nop
 880 86C9 87              .     illegal
 881 86CA C5 00           ..    bitb #00
 882 86CC 08              .     inx
 883 86CD 87              .     illegal
 884 86CE D9 00 01        ...   adcb 00
 885 86D1 87              .     illegal
 886 86D2 E8 FF           ..    eorb ff,x
 887 86D4 F5 00 00        ...   bitb 0000
 888 86D7 C6 FF           ..    ldab #ff
 889 86D9 F7 0B BC        ...   stb 0bbc
 890 86DC F6 18 00        ...   ldab 1800
 891 86DF 2D 29           -)    blt 29
 892 86E1 F6 00 07        ...   ldab 0007
 893 86E4 26 24           &$    bne 24
 894 86E6 CE 00 1A        ...   ldx #001a
 895 86E9 1D 00           ..    bclr add,x 00,x
 896 86EB 02              .     idiv
 897 86EC F6 00 1A        ...   ldab 001a
 898 86EF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 899 86F2 CC 00 32        ..2   ldd #0032
 900 86F5 BD E5 71        ..q   jsr e571             ;jump13
 901 86F8 CE 00 1A        ...   ldx #001a
 902 86FB 1C 00           ..    bset add,x 00,x
 903 86FD 02              .     idiv
 904 86FE F6 00 1A        ...   ldab 001a
 905 8701 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
 906 8704 CC 02 33        ..3   ldd #0233
 907 8707 FD 00 3B        ..;   stad 003b
 908 870A 5F              _     clrb
 909 870B 4F              O     clra
 910 870C FD 00 40        ..@   stad 0040
 911 870F 5F              _     clrb
 912 8710 4F              O     clra
 913 8711 FD 00 3E        ..>   stad 003e
 914 8714 F6 0B C0        ...   ldab 0bc0
 915 8717 C4 01           ..    andb #01
 916 8719 27 03           '.    beq 03
 917 871B BD 85 BF        ...   jsr 85bf
 918 871E BD DC A3        ...   jsr dca3
 919 8721 BD 97 F6        ...   jsr 97f6
 920 8724 CE 00 17        ...   ldx #0017
 921 8727 1D 00           ..    bclr add,x 00,x
 922 8729 20 CE            .    bra ce
 923 872B 00              .     test
 924 872C 17              .     tba
 925 872D 1D 00           ..    bclr add,x 00,x
 926 872F 40              @     nega
 927 8730 CE 00 17        ...   ldx #0017
 928 8733 1D 00           ..    bclr add,x 00,x
 929 8735 80 7E           .~    suba #7e
 930 8737 87              .     illegal
 931 8738 E8 F6           ..    eorb f6,x
 932 873A 00              .     test
 933 873B 36              6     psha
 934 873C 26 2F           &/    bne 2f
 935 873E F6 00 48        ..H   ldab 0048
 936 8741 4F              O     clra
 937 8742 BD FE 16        ...   jsr fe16             ;jump2
 938 8745 00              .     test
 939 8746 01              .     nop
 940 8747 00              .     test
 941 8748 03              .     fdiv
 942 8749 87              .     illegal
 943 874A 65              e     illegal
 944 874B 87              .     illegal
 945 874C 53              S     comb
 946 874D 87              .     illegal
 947 874E 58              X     aslb
 948 874F 87              .     illegal
 949 8750 5D              ]     tstb
 950 8751 87              .     illegal
 951 8752 62              b     illegal
 952 8753 7C 0C D9        |..   inc 0cd9
 953 8756 20 0D            .    bra 0d
 954 8758 7C 0C DA        |..   inc 0cda
 955 875B 20 08            .    bra 08
 956 875D 7C 0C DB        |..   inc 0cdb
 957 8760 20 03            .    bra 03
 958 8762 7C 0C DC        |..   inc 0cdc
 959 8765 BD 97 F6        ...   jsr 97f6
 960 8768 C6 02           ..    ldab #02
 961 876A F7 00 36        ..6   stb 0036
 962 876D CE 00 1B        ...   ldx #001b
 963 8770 1C 00           ..    bset add,x 00,x
 964 8772 10              .     sba
 965 8773 20 73            s    bra 73
 966 8775 F6 00 36        ..6   ldab 0036
 967 8778 26 43           &C    bne 43
 968 877A F6 00 48        ..H   ldab 0048
 969 877D 4F              O     clra
 970 877E BD FE 16        ...   jsr fe16             ;jump2
 971 8781 00              .     test
 972 8782 01              .     nop
 973 8783 00              .     test
 974 8784 03              .     fdiv
 975 8785 87              .     illegal
 976 8786 B5 87 8F        ...   bita 878f
 977 8789 87              .     illegal
 978 878A 99 87 A3        ...   adca 87
 979 878D 87              .     illegal
 980 878E AD F6           ..    jsr f6,x
 981 8790 0C              .     clc
 982 8791 D9 27 03        .'.   adcb 27
 983 8794 7A 0C D9        z..   dec 0cd9
 984 8797 20 1C            .    bra 1c
 985 8799 F6 0C DA        ...   ldab 0cda
 986 879C 27 03           '.    beq 03
 987 879E 7A 0C DA        z..   dec 0cda
 988 87A1 20 12            .    bra 12
 989 87A3 F6 0C DB        ...   ldab 0cdb
 990 87A6 27 03           '.    beq 03
 991 87A8 7A 0C DB        z..   dec 0cdb
 992 87AB 20 08            .    bra 08
 993 87AD F6 0C DC        ...   ldab 0cdc
 994 87B0 27 03           '.    beq 03
 995 87B2 7A 0C DC        z..   dec 0cdc
 996 87B5 BD 97 F6        ...   jsr 97f6
 997 87B8 C6 02           ..    ldab #02
 998 87BA F7 00 36        ..6   stb 0036
 999 87BD CE 00 1B        ...   ldx #001b
1000 87C0 1C 00           ..    bset add,x 00,x
1001 87C2 10              .     sba
1002 87C3 20 23            #    bra 23
1003 87C5 7C 00 48        |.H   inc 0048
1004 87C8 F6 00 48        ..H   ldab 0048
1005 87CB C1 04           ..    cmpb #04
1006 87CD 23 05           #.    bls 05
1007 87CF C6 01           ..    ldab #01
1008 87D1 F7 00 48        ..H   stb 0048
1009 87D4 BD 97 F6        ...   jsr 97f6
1010 87D7 20 0F            .    bra 0f
1011 87D9 CE 00 1A        ...   ldx #001a
1012 87DC 1C 00           ..    bset add,x 00,x
1013 87DE 01              .     nop
1014 87DF F6 00 1A        ...   ldab 001a
1015 87E2 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
1016 87E5 BD 85 AF        ...   jsr 85af             ;jump14
1017 87E8 39              9     rts
1018
1019 87E9 7F 00 05        ...   clr 0005
1020 87EC 7F 00 54        ..T   clr 0054
1021 87EF F6 00 54        ..T   ldab 0054
1022 87F2 C1 50           .P    cmpb #50
1023 87F4 24 2E           $.    bcc 2e
1024 87F6 F6 00 54        ..T   ldab 0054
1025 87F9 4F              O     clra
1026 87FA C3 B0 D3        ...   addd #b0d3
1027 87FD 8F              .     xgdx
1028 87FE E6 00           ..    ldab 00,x
1029 8800 F7 00 06        ...   stb 0006
1030 8803 F6 00 06        ...   ldab 0006
1031 8806 BD D7 A0        ...   jsr d7a0             ;jump10
1032 8809 83 00 00        ...   subd #0000
1033 880C 26 11           &.    bne 11
1034 880E BD D3 11        ...   jsr d311
1035 8811 83 00 00        ...   subd #0000
1036 8814 26 03           &.    bne 03
1037 8816 7C 00 05        |..   inc 0005
1038 8819 CC 00 05        ...   ldd #0005
1039 881C BD E5 71        ..q   jsr e571             ;jump13
1040 881F 7C 00 54        |.T   inc 0054
1041 8822 20 CB            .    bra cb
1042 8824 BD 99 81        ...   jsr 9981
1043 8827 CC 07 D0        ...   ldd #07d0
1044 882A BD E5 71        ..q   jsr e571             ;jump13
1045 882D 39              9     rts
1046
1047 jump16:
1048 882E F6 00 1F        ...   ldab 001f
1049 8831 C4 02           ..    andb #02
1050 8833 27 12           '.    beq 12
1051 8835 FC 0B B5        ...   ldd 0bb5
1052 8838 C4 FF           ..    andb #ff
1053 883A 84 01           ..    anda #01
1054 883C FD 00 52        ..R   stad 0052
1055 883F CE 00 1F        ...   ldx #001f
1056 8842 1D 00           ..    bclr add,x 00,x
1057 8844 02              .     idiv
1058 8845 20 70            p    bra 70
1059 8847 F6 00 09        ...   ldab 0009
1060 884A 4F              O     clra
1061 884B BD FE 32        ..2   jsr fe32
1062 884E 88 68           .h    eora #68
1063 8850 00              .     test
1064 8851 00              .     test
1065 8852 88 6D           .m    eora #6d
1066 8854 00              .     test
1067 8855 01              .     nop
1068 8856 88 83           ..    eora #83
1069 8858 00              .     test
1070 8859 01              .     nop
1071 885A 88 A7           ..    eora #a7
1072 885C 00              .     test
1073 885D 08              .     inx
1074 885E 88 B4           ..    eora #b4
1075 8860 00              .     test
1076 8861 01              .     nop
1077 8862 88 B7           ..    eora #b7
1078 8864 FF F5 00        ...   stx f500
1079 8867 00              .     test
1080 8868 BD 9A 05        ...   jsr 9a05
1081 886B 20 4A            J    bra 4a
1082 886D FC 00 52        ..R   ldd 0052
1083 8870 83 01 F4        ...   subd #01f4
1084 8873 24 09           $.    bcc 09
1085 8875 FC 00 52        ..R   ldd 0052
1086 8878 C3 00 32        ..2   addd #0032
1087 887B FD 00 52        ..R   stad 0052
1088 887E BD 9A 05        ...   jsr 9a05
1089 8881 20 34            4    bra 34
1090 8883 FC 00 52        ..R   ldd 0052
1091 8886 83 00 32        ..2   subd #0032
1092 8889 23 17           #.    bls 17
1093 888B FC 00 52        ..R   ldd 0052
1094 888E C3 FF CE        ...   addd #ffce
1095 8891 FD 00 52        ..R   stad 0052
1096 8894 FC 00 52        ..R   ldd 0052
1097 8897 83 00 32        ..2   subd #0032
1098 889A 24 06           $.    bcc 06
1099 889C CC 00 32        ..2   ldd #0032
1100 889F FD 00 52        ..R   stad 0052
1101 88A2 BD 9A 05        ...   jsr 9a05
1102 88A5 20 10            .    bra 10
1103 88A7 BD A3 7C        ..|   jsr a37c
1104 88AA 5F              _     clrb
1105 88AB 4F              O     clra
1106 88AC FD 0B B9        ...   stad 0bb9
1107 88AF BD 85 AF        ...   jsr 85af             ;jump14
1108 88B2 20 03            .    bra 03
1109 88B4 BD 85 AF        ...   jsr 85af             ;jump14
1110 88B7 39              9     rts
1111
1112 88B8 F6 00 1F        ...   ldab 001f
1113 88BB C4 02           ..    andb #02
1114 88BD 26 0A           &.    bne 0a
1115 88BF F6 00 3A        ..:   ldab 003a
1116 88C2 26 28           &(    bne 28
1117 88C4 F6 00 1D        ...   ldab 001d
1118 88C7 2D 23           -#    blt 23
1119 88C9 7F 00 2C        ..,   clr 002c
1120 88CC CC AE 9D        ...   ldd #ae9d    "SET PRICE?"
1121 88CF BD C0 BA        ...   jsr c0ba             ;display:
1122 88D2 CE 00 1F        ...   ldx #001f
1123 88D5 1D 00           ..    bclr add,x 00,x
1124 88D7 02              .     idiv
1125 88D8 CE 00 1F        ...   ldx #001f
1126 88DB 1D 00           ..    bclr add,x 00,x
1127 88DD 40              @     nega
1128 88DE CE 00 1D        ...   ldx #001d
1129 88E1 1D 00           ..    bclr add,x 00,x
1130 88E3 80 7F           ..    suba #7f
1131 88E5 00              .     test
1132 88E6 54              T     lsrb
1133 88E7 C6 32           .2    ldab #32
1134 88E9 F7 00 3A        ..:   stb 003a
1135 88EC F6 00 09        ...   ldab 0009
1136 88EF 26 03           &.    bne 03
1137 88F1 7E 89 E1        ~..   jmp 89e1
1138 88F4 F6 00 1D        ...   ldab 001d
1139 88F7 2C 03           ,.    bge 03
1140 88F9 7E 89 E1        ~..   jmp 89e1
1141 88FC F6 00 09        ...   ldab 0009
1142 88FF C1 0B           ..    cmpb #0b
1143 8901 26 06           &.    bne 06
1144 8903 BD 85 AF        ...   jsr 85af             ;jump14
1145 8906 7E 89 DE        ~..   jmp 89de
1146 8909 F6 00 54        ..T   ldab 0054
1147 890C 26 26           &&    bne 26
1148 890E BD BE 4B        ..K   jsr be4b             ;jump1
1149 8911 F6 00 09        ...   ldab 0009
1150 8914 C1 0A           ..    cmpb #0a
1151 8916 26 03           &.    bne 03
1152 8918 7F 00 09        ...   clr 0009
1153 891B F6 00 09        ...   ldab 0009
1154 891E CB 30           .0    addb #30
1155 8920 37              7     pshb
1156 8921 CC 0B 95        ...   ldd #0b95
1157 8924 F0 00 54        ..T   subb 0054
1158 8927 82 00           ..    sbca #00
1159 8929 8F              .     xgdx
1160 892A 33              3     pulb
1161 892B E7 00           ..    stb 00,x
1162 892D C6 32           .2    ldab #32
1163 892F F7 00 3A        ..:   stb 003a
1164 8932 20 37            7    bra 37
1165 8934 F6 00 54        ..T   ldab 0054
1166 8937 C1 01           ..    cmpb #01
1167 8939 26 27           &'    bne 27
1168 893B F6 00 09        ...   ldab 0009
1169 893E C1 05           ..    cmpb #05
1170 8940 27 20           '     beq 20
1171 8942 F6 00 09        ...   ldab 0009
1172 8945 C1 0A           ..    cmpb #0a
1173 8947 27 19           '.    beq 19
1174 8949 F6 00 09        ...   ldab 0009
1175 894C CB 30           .0    addb #30
1176 894E 37              7     pshb
1177 894F CC 0B 95        ...   ldd #0b95
1178 8952 F0 00 54        ..T   subb 0054
1179 8955 82 00           ..    sbca #00
1180 8957 8F              .     xgdx
1181 8958 33              3     pulb
1182 8959 E7 00           ..    stb 00,x
1183 895B C6 32           .2    ldab #32
1184 895D F7 00 3A        ..:   stb 003a
1185 8960 20 09            .    bra 09
1186 8962 CE 00 1F        ...   ldx #001f
1187 8965 1C 00           ..    bset add,x 00,x
1188 8967 02              .     idiv
1189 8968 7F 00 3A        ..:   clr 003a
1190 896B BD BE 01        ...   jsr be01
1191 896E 7C 00 54        |.T   inc 0054
1192 8971 F6 00 54        ..T   ldab 0054
1193 8974 C1 02           ..    cmpb #02
1194 8976 26 60           &`    bne 60
1195 8978 CE 00 1D        ...   ldx #001d
1196 897B 1C 00           ..    bset add,x 00,x
1197 897D 80 F6           ..    suba #f6
1198 897F 0B              .     sev
1199 8980 94 CB D0        ...   anda cb
1200 8983 37              7     pshb
1201 8984 F6 0B 95        ...   ldab 0b95
1202 8987 CB D0           ..    addb #d0
1203 8989 86 0A           ..    ldaa #0a
1204 898B 3D              =     mul
1205 898C 30              0     tsx
1206 898D EB 00           ..    addb 00,x
1207 898F 31              1     ins
1208 8990 F7 00 06        ...   stb 0006
1209 8993 C6 32           .2    ldab #32
1210 8995 F7 00 3A        ..:   stb 003a
1211 8998 F6 00 06        ...   ldab 0006
1212 899B BD D7 A0        ...   jsr d7a0             ;jump10
1213 899E 83 00 00        ...   subd #0000
1214 89A1 26 27           &'    bne 27
1215 89A3 BD D3 11        ...   jsr d311
1216 89A6 83 00 00        ...   subd #0000
1217 89A9 26 0B           &.    bne 0b
1218 89AB CE 00 1F        ...   ldx #001f
1219 89AE 1C 00           ..    bset add,x 00,x
1220 89B0 40              @     nega
1221 89B1 BD 8C 73        ..s   jsr 8c73
1222 89B4 20 0F            .    bra 0f
1223 89B6 CE 00 1F        ...   ldx #001f
1224 89B9 1D 00           ..    bclr add,x 00,x
1225 89BB 40              @     nega
1226 89BC CC 2A FF        .*.   ldd #2aff
1227 89BF FD 00 27        ..'   stad 0027
1228 89C2 BD A3 85        ...   jsr a385
1229 89C5 BD 9A 47        ..G   jsr 9a47
1230 89C8 20 0C            .    bra 0c
1231 89CA CE 00 1D        ...   ldx #001d
1232 89CD 1D 00           ..    bclr add,x 00,x
1233 89CF 80 CE           ..    suba #ce
1234 89D1 00              .     test
1235 89D2 1F 1C 00 02     ....  brclr 1c,x 00 02
1236 89D6 20 06            .    bra 06
1237 89D8 CE 00 1D        ...   ldx #001d
1238 89DB 1D 00           ..    bclr add,x 00,x
1239 89DD 80 7E           .~    suba #7e
1240 89DF 8C 72 F6        .r.   cpx #72f6
1241 89E2 00              .     test
1242 89E3 1D 2D           .-    bclr add,x 2d,x
1243 89E5 03              .     fdiv
1244 89E6 7E 8C 72        ~.r   jmp 8c72
1245 89E9 F6 00 09        ...   ldab 0009
1246 89EC 4F              O     clra
1247 89ED BD FE 16        ...   jsr fe16             ;jump2
1248 89F0 00              .     test
1249 89F1 00              .     test
1250 89F2 00              .     test
1251 89F3 0B              .     sev
1252 89F4 8C 72 8A        .r.   cpx #728a
1253 89F7 0E              .     cli
1254 89F8 8A 14           ..    ora #14
1255 89FA 8A AA           ..    ora #aa
1256 89FC 8B 5E           .^    adda #5e
1257 89FE 8B 9E           ..    adda #9e
1258 8A00 8B DB           ..    adda #db
1259 8A02 8C 72 8C        .r.   cpx #728c
1260 8A05 72              r     illegal
1261 8A06 8C 72 8B        .r.   cpx #728b
1262 8A09 FC 8C 67        ..g   ldd 8c67
1263 8A0C 8C 6F BD        .o.   cpx #6fbd
1264 8A0F 9A 47 7E        .G~   ora 47
1265 8A12 8C 72 F6        .r.   cpx #72f6
1266 8A15 00              .     test
1267 8A16 36              6     psha
1268 8A17 27 03           '.    beq 03
1269 8A19 7E 8A 9B        ~..   jmp 8a9b
1270 8A1C F6 00 1F        ...   ldab 001f
1271 8A1F C4 40           .@    andb #40
1272 8A21 27 78           'x    beq 78
1273 8A23 F6 0B C0        ...   ldab 0bc0
1274 8A26 C4 02           ..    andb #02
1275 8A28 27 52           'R    beq 52
1276 8A2A F6 0B AA        ...   ldab 0baa
1277 8A2D C1 32           .2    cmpb #32
1278 8A2F 24 22           $"    bcc 22
1279 8A31 F6 0B AA        ...   ldab 0baa
1280 8A34 4F              O     clra
1281 8A35 F3 00 27        ..'   addd 0027
1282 8A38 FD 00 27        ..'   stad 0027
1283 8A3B F6 0B AA        ...   ldab 0baa
1284 8A3E 4F              O     clra
1285 8A3F 37              7     pshb
1286 8A40 36              6     psha
1287 8A41 CC 00 FA        ...   ldd #00fa
1288 8A44 BD FB BA        ...   jsr fbba
1289 8A47 B3 00 27        ..'   subd 0027
1290 8A4A 24 05           $.    bcc 05
1291 8A4C 5F              _     clrb
1292 8A4D 4F              O     clra
1293 8A4E FD 00 27        ..'   stad 0027
1294 8A51 20 27            '    bra 27
1295 8A53 F6 0B AA        ...   ldab 0baa
1296 8A56 C1 32           .2    cmpb #32
1297 8A58 26 20           &     bne 20
1298 8A5A F6 0B AA        ...   ldab 0baa
1299 8A5D 4F              O     clra
1300 8A5E F3 00 27        ..'   addd 0027
1301 8A61 FD 00 27        ..'   stad 0027
1302 8A64 F6 0B AA        ...   ldab 0baa
1303 8A67 4F              O     clra
1304 8A68 37              7     pshb
1305 8A69 36              6     psha
1306 8A6A CC 00 C7        ...   ldd #00c7
1307 8A6D BD FB BA        ...   jsr fbba
1308 8A70 B3 00 27        ..'   subd 0027
1309 8A73 24 05           $.    bcc 05
1310 8A75 5F              _     clrb
1311 8A76 4F              O     clra
1312 8A77 FD 00 27        ..'   stad 0027
1313 8A7A 20 17            .    bra 17
1314 8A7C F6 0B AA        ...   ldab 0baa
1315 8A7F 4F              O     clra
1316 8A80 F3 00 27        ..'   addd 0027
1317 8A83 FD 00 27        ..'   stad 0027
1318 8A86 FC 00 27        ..'   ldd 0027
1319 8A89 83 27 0F        .'.   subd #270f
1320 8A8C 23 05           #.    bls 05
1321 8A8E 5F              _     clrb
1322 8A8F 4F              O     clra
1323 8A90 FD 00 27        ..'   stad 0027
1324 8A93 BD 9A 47        ..G   jsr 9a47
1325 8A96 C6 02           ..    ldab #02
1326 8A98 F7 00 36        ..6   stb 0036
1327 8A9B CE 00 1B        ...   ldx #001b
1328 8A9E 1C 00           ..    bset add,x 00,x
1329 8AA0 10              .     sba
1330 8AA1 CC 02 33        ..3   ldd #0233
1331 8AA4 FD 00 3B        ..;   stad 003b
1332 8AA7 7E 8C 72        ~.r   jmp 8c72
1333 8AAA F6 00 36        ..6   ldab 0036
1334 8AAD 27 03           '.    beq 03
1335 8AAF 7E 8B 4F        ~.O   jmp 8b4f
1336 8AB2 F6 00 1F        ...   ldab 001f
1337 8AB5 C4 40           .@    andb #40
1338 8AB7 26 03           &.    bne 03
1339 8AB9 7E 8B 4F        ~.O   jmp 8b4f
1340 8ABC F6 0B C0        ...   ldab 0bc0
1341 8ABF C4 02           ..    andb #02
1342 8AC1 27 57           'W    beq 57
1343 8AC3 FC 00 27        ..'   ldd 0027
1344 8AC6 26 18           &.    bne 18
1345 8AC8 F6 0B AA        ...   ldab 0baa
1346 8ACB C1 32           .2    cmpb #32
1347 8ACD 24 11           $.    bcc 11
1348 8ACF F6 0B AA        ...   ldab 0baa
1349 8AD2 4F              O     clra
1350 8AD3 37              7     pshb
1351 8AD4 36              6     psha
1352 8AD5 CC 00 FA        ...   ldd #00fa
1353 8AD8 BD FB BA        ...   jsr fbba
1354 8ADB FD 00 27        ..'   stad 0027
1355 8ADE 20 38            8    bra 38
1356 8AE0 FC 00 27        ..'   ldd 0027
1357 8AE3 26 18           &.    bne 18
1358 8AE5 F6 0B AA        ...   ldab 0baa
1359 8AE8 C1 32           .2    cmpb #32
1360 8AEA 26 11           &.    bne 11
1361 8AEC F6 0B AA        ...   ldab 0baa
1362 8AEF 4F              O     clra
1363 8AF0 37              7     pshb
1364 8AF1 36              6     psha
1365 8AF2 CC 00 C7        ...   ldd #00c7
1366 8AF5 BD FB BA        ...   jsr fbba
1367 8AF8 FD 00 27        ..'   stad 0027
1368 8AFB 20 1B            .    bra 1b
1369 8AFD F6 0B AA        ...   ldab 0baa
1370 8B00 4F              O     clra
1371 8B01 B3 00 27        ..'   subd 0027
1372 8B04 22 0D           ".    bhi 0d
1373 8B06 FC 00 27        ..'   ldd 0027
1374 8B09 F0 0B AA        ...   subb 0baa
1375 8B0C 82 00           ..    sbca #00
1376 8B0E FD 00 27        ..'   stad 0027
1377 8B11 20 05            .    bra 05
1378 8B13 5F              _     clrb
1379 8B14 4F              O     clra
1380 8B15 FD 00 27        ..'   stad 0027
1381 8B18 20 2D            -    bra 2d
1382 8B1A FC 00 27        ..'   ldd 0027
1383 8B1D 26 0D           &.    bne 0d
1384 8B1F CC 27 10        .'.   ldd #2710
1385 8B22 F0 0B AA        ...   subb 0baa
1386 8B25 82 00           ..    sbca #00
1387 8B27 FD 00 27        ..'   stad 0027
1388 8B2A 20 1B            .    bra 1b
1389 8B2C F6 0B AA        ...   ldab 0baa
1390 8B2F 4F              O     clra
1391 8B30 B3 00 27        ..'   subd 0027
1392 8B33 22 0D           ".    bhi 0d
1393 8B35 FC 00 27        ..'   ldd 0027
1394 8B38 F0 0B AA        ...   subb 0baa
1395 8B3B 82 00           ..    sbca #00
1396 8B3D FD 00 27        ..'   stad 0027
1397 8B40 20 05            .    bra 05
1398 8B42 5F              _     clrb
1399 8B43 4F              O     clra
1400 8B44 FD 00 27        ..'   stad 0027
1401 8B47 BD 9A 47        ..G   jsr 9a47
1402 8B4A C6 02           ..    ldab #02
1403 8B4C F7 00 36        ..6   stb 0036
1404 8B4F CE 00 1B        ...   ldx #001b
1405 8B52 1C 00           ..    bset add,x 00,x
1406 8B54 10              .     sba
1407 8B55 CC 02 33        ..3   ldd #0233
1408 8B58 FD 00 3B        ..;   stad 003b
1409 8B5B 7E 8C 72        ~.r   jmp 8c72
1410 8B5E F6 00 36        ..6   ldab 0036
1411 8B61 26 2C           &,    bne 2c
1412 8B63 F6 00 1F        ...   ldab 001f
1413 8B66 C4 40           .@    andb #40
1414 8B68 27 25           '%    beq 25
1415 8B6A FC 00 46        ..F   ldd 0046
1416 8B6D 83 00 64        ..d   subd #0064
1417 8B70 24 15           $.    bcc 15
1418 8B72 FE 00 46        ..F   ldx 0046
1419 8B75 08              .     inx
1420 8B76 FF 00 46        ..F   stx 0046
1421 8B79 FC 00 46        ..F   ldd 0046
1422 8B7C 83 00 64        ..d   subd #0064
1423 8B7F 25 06           %.    bcs 06
1424 8B81 CC 00 01        ...   ldd #0001
1425 8B84 FD 00 46        ..F   stad 0046
1426 8B87 BD 9A 47        ..G   jsr 9a47
1427 8B8A C6 02           ..    ldab #02
1428 8B8C F7 00 36        ..6   stb 0036
1429 8B8F CE 00 1B        ...   ldx #001b
1430 8B92 1C 00           ..    bset add,x 00,x
1431 8B94 10              .     sba
1432 8B95 CC 02 33        ..3   ldd #0233
1433 8B98 FD 00 3B        ..;   stad 003b
1434 8B9B 7E 8C 72        ~.r   jmp 8c72
1435 8B9E F6 00 36        ..6   ldab 0036
1436 8BA1 26 29           &)    bne 29
1437 8BA3 F6 00 1F        ...   ldab 001f
1438 8BA6 C4 40           .@    andb #40
1439 8BA8 27 22           '"    beq 22
1440 8BAA FC 00 46        ..F   ldd 0046
1441 8BAD 83 00 00        ...   subd #0000
1442 8BB0 23 12           #.    bls 12
1443 8BB2 FE 00 46        ..F   ldx 0046
1444 8BB5 09              .     dex
1445 8BB6 FF 00 46        ..F   stx 0046
1446 8BB9 FC 00 46        ..F   ldd 0046
1447 8BBC 26 06           &.    bne 06
1448 8BBE CC 00 63        ..c   ldd #0063
1449 8BC1 FD 00 46        ..F   stad 0046
1450 8BC4 BD 9A 47        ..G   jsr 9a47
1451 8BC7 C6 02           ..    ldab #02
1452 8BC9 F7 00 36        ..6   stb 0036
1453 8BCC CE 00 1B        ...   ldx #001b
1454 8BCF 1C 00           ..    bset add,x 00,x
1455 8BD1 10              .     sba
1456 8BD2 CC 02 33        ..3   ldd #0233
1457 8BD5 FD 00 3B        ..;   stad 003b
1458 8BD8 7E 8C 72        ~.r   jmp 8c72
1459 8BDB F6 00 1F        ...   ldab 001f
1460 8BDE C4 40           .@    andb #40
1461 8BE0 27 15           '.    beq 15
1462 8BE2 F6 00 19        ...   ldab 0019
1463 8BE5 C4 10           ..    andb #10
1464 8BE7 27 08           '.    beq 08
1465 8BE9 CE 00 19        ...   ldx #0019
1466 8BEC 1D 00           ..    bclr add,x 00,x
1467 8BEE 10              .     sba
1468 8BEF 20 06            .    bra 06
1469 8BF1 CE 00 19        ...   ldx #0019
1470 8BF4 1C 00           ..    bset add,x 00,x
1471 8BF6 10              .     sba
1472 8BF7 BD 9A 47        ..G   jsr 9a47
1473 8BFA 20 76            v    bra 76
1474 8BFC BD A3 85        ...   jsr a385
1475 8BFF F6 00 06        ...   ldab 0006
1476 8C02 C1 64           .d    cmpb #64
1477 8C04 24 24           $$    bcc 24
1478 8C06 BD 97 6F        ..o   jsr 976f
1479 8C09 F6 00 06        ...   ldab 0006
1480 8C0C BD D7 A0        ...   jsr d7a0             ;jump10
1481 8C0F 83 00 00        ...   subd #0000
1482 8C12 27 16           '.    beq 16
1483 8C14 F6 00 06        ...   ldab 0006
1484 8C17 C1 09           ..    cmpb #09
1485 8C19 26 03           &.    bne 03
1486 8C1B BD 97 6F        ..o   jsr 976f
1487 8C1E F6 00 06        ...   ldab 0006
1488 8C21 C1 45           .E    cmpb #45
1489 8C23 26 05           &.    bne 05
1490 8C25 C6 01           ..    ldab #01
1491 8C27 F7 00 06        ...   stb 0006
1492 8C2A F6 0E 6D        ..m   ldab 0e6d
1493 8C2D C1 01           ..    cmpb #01
1494 8C2F 26 11           &.    bne 11
1495 8C31 F6 00 06        ...   ldab 0006
1496 8C34 4F              O     clra
1497 8C35 05              .     asld
1498 8C36 C3 08 C8        ...   addd #08c8
1499 8C39 8F              .     xgdx
1500 8C3A EC 00           ..    ldd 00,x
1501 8C3C C4 7F           ..    andb #7f
1502 8C3E 4F              O     clra
1503 8C3F FD 00 46        ..F   stad 0046
1504 8C42 BD D3 11        ...   jsr d311
1505 8C45 83 00 00        ...   subd #0000
1506 8C48 26 12           &.    bne 12
1507 8C4A CE 00 1F        ...   ldx #001f
1508 8C4D 1C 00           ..    bset add,x 00,x
1509 8C4F 40              @     nega
1510 8C50 FC 00 27        ..'   ldd 0027
1511 8C53 83 27 0F        .'.   subd #270f
1512 8C56 23 02           #.    bls 02
1513 8C58 8D 19           ..    bsr dest 19
1514 8C5A 20 06            .    bra 06
1515 8C5C CE 00 1F        ...   ldx #001f
1516 8C5F 1D 00           ..    bclr add,x 00,x
1517 8C61 40              @     nega
1518 8C62 BD 9A 47        ..G   jsr 9a47
1519 8C65 20 0B            .    bra 0b
1520 8C67 BD A3 85        ...   jsr a385
1521 8C6A BD 85 AF        ...   jsr 85af             ;jump14
1522 8C6D 20 03            .    bra 03
1523 8C6F BD 85 AF        ...   jsr 85af             ;jump14
1524 8C72 39              9     rts
1525
1526 8C73 F6 00 06        ...   ldab 0006
1527 8C76 4F              O     clra
1528 8C77 05              .     asld
1529 8C78 C3 08 00        ...   addd #0800
1530 8C7B 8F              .     xgdx
1531 8C7C EC 00           ..    ldd 00,x
1532 8C7E C4 FF           ..    andb #ff
1533 8C80 84 3F           .?    anda #3f
1534 8C82 FD 00 27        ..'   stad 0027
1535 8C85 F6 00 06        ...   ldab 0006
1536 8C88 4F              O     clra
1537 8C89 05              .     asld
1538 8C8A C3 08 C8        ...   addd #08c8
1539 8C8D 8F              .     xgdx
1540 8C8E EC 00           ..    ldd 00,x
1541 8C90 C4 7F           ..    andb #7f
1542 8C92 4F              O     clra
1543 8C93 FD 00 46        ..F   stad 0046
1544 8C96 F6 00 06        ...   ldab 0006
1545 8C99 4F              O     clra
1546 8C9A 05              .     asld
1547 8C9B C3 08 C8        ...   addd #08c8
1548 8C9E 8F              .     xgdx
1549 8C9F EC 00           ..    ldd 00,x
1550 8CA1 84 08           ..    anda #08
1551 8CA3 27 08           '.    beq 08
1552 8CA5 CE 00 19        ...   ldx #0019
1553 8CA8 1C 00           ..    bset add,x 00,x
1554 8CAA 10              .     sba
1555 8CAB 20 06            .    bra 06
1556 8CAD CE 00 19        ...   ldx #0019
1557 8CB0 1D 00           ..    bclr add,x 00,x
1558 8CB2 10              .     sba
1559 8CB3 39              9     rts
1560
1561 8CB4 F6 00 1F        ...   ldab 001f
1562 8CB7 C4 02           ..    andb #02
1563 8CB9 27 12           '.    beq 12
1564 8CBB FC 0B B7        ...   ldd 0bb7
1565 8CBE FD 00 0D        ...   stad 000d
1566 8CC1 CE 00 1F        ...   ldx #001f
1567 8CC4 1D 00           ..    bclr add,x 00,x
1568 8CC6 02              .     idiv
1569 8CC7 7F 00 36        ..6   clr 0036
1570 8CCA 7E 8E 34        ~.4   jmp 8e34
1571 8CCD F6 00 09        ...   ldab 0009
1572 8CD0 4F              O     clra
1573 8CD1 BD FE 32        ..2   jsr fe32
1574 8CD4 8C EE 00        ...   cpx #ee00
1575 8CD7 00              .     test
1576 8CD8 8C F4 00        ...   cpx #f400
1577 8CDB 01              .     nop
1578 8CDC 8D 80           ..    bsr dest 80
1579 8CDE 00              .     test
1580 8CDF 01              .     nop
1581 8CE0 8E 29 00        .).   lds #2900
1582 8CE3 08              .     inx
1583 8CE4 8E 31 00        .1.   lds #3100
1584 8CE7 01              .     nop
1585 8CE8 8E 34 FF        .4.   lds #34ff
1586 8CEB F5 00 00        ...   bitb 0000
1587 8CEE BD 9B 63        ..c   jsr 9b63
1588 8CF1 7E 8E 34        ~.4   jmp 8e34
1589 8CF4 F6 00 36        ..6   ldab 0036
1590 8CF7 26 78           &x    bne 78
1591 8CF9 F6 0B C0        ...   ldab 0bc0
1592 8CFC C4 02           ..    andb #02
1593 8CFE 27 52           'R    beq 52
1594 8D00 F6 0B AA        ...   ldab 0baa
1595 8D03 C1 32           .2    cmpb #32
1596 8D05 24 22           $"    bcc 22
1597 8D07 F6 0B AA        ...   ldab 0baa
1598 8D0A 4F              O     clra
1599 8D0B F3 00 0D        ...   addd 000d
1600 8D0E FD 00 0D        ...   stad 000d
1601 8D11 F6 0B AA        ...   ldab 0baa
1602 8D14 4F              O     clra
1603 8D15 37              7     pshb
1604 8D16 36              6     psha
1605 8D17 CC 00 FA        ...   ldd #00fa
1606 8D1A BD FB BA        ...   jsr fbba
1607 8D1D B3 00 0D        ...   subd 000d
1608 8D20 24 05           $.    bcc 05
1609 8D22 5F              _     clrb
1610 8D23 4F              O     clra
1611 8D24 FD 00 0D        ...   stad 000d
1612 8D27 20 27            '    bra 27
1613 8D29 F6 0B AA        ...   ldab 0baa
1614 8D2C C1 32           .2    cmpb #32
1615 8D2E 26 20           &     bne 20
1616 8D30 F6 0B AA        ...   ldab 0baa
1617 8D33 4F              O     clra
1618 8D34 F3 00 0D        ...   addd 000d
1619 8D37 FD 00 0D        ...   stad 000d
1620 8D3A F6 0B AA        ...   ldab 0baa
1621 8D3D 4F              O     clra
1622 8D3E 37              7     pshb
1623 8D3F 36              6     psha
1624 8D40 CC 00 C7        ...   ldd #00c7
1625 8D43 BD FB BA        ...   jsr fbba
1626 8D46 B3 00 0D        ...   subd 000d
1627 8D49 24 05           $.    bcc 05
1628 8D4B 5F              _     clrb
1629 8D4C 4F              O     clra
1630 8D4D FD 00 0D        ...   stad 000d
1631 8D50 20 17            .    bra 17
1632 8D52 F6 0B AA        ...   ldab 0baa
1633 8D55 4F              O     clra
1634 8D56 F3 00 0D        ...   addd 000d
1635 8D59 FD 00 0D        ...   stad 000d
1636 8D5C FC 00 0D        ...   ldd 000d
1637 8D5F 83 27 0F        .'.   subd #270f
1638 8D62 23 05           #.    bls 05
1639 8D64 5F              _     clrb
1640 8D65 4F              O     clra
1641 8D66 FD 00 0D        ...   stad 000d
1642 8D69 BD 9B 63        ..c   jsr 9b63
1643 8D6C C6 02           ..    ldab #02
1644 8D6E F7 00 36        ..6   stb 0036
1645 8D71 CE 00 1B        ...   ldx #001b
1646 8D74 1C 00           ..    bset add,x 00,x
1647 8D76 10              .     sba
1648 8D77 CC 02 33        ..3   ldd #0233
1649 8D7A FD 00 3B        ..;   stad 003b
1650 8D7D 7E 8E 34        ~.4   jmp 8e34
1651 8D80 F6 00 36        ..6   ldab 0036
1652 8D83 27 03           '.    beq 03
1653 8D85 7E 8E 1B        ~..   jmp 8e1b
1654 8D88 F6 0B C0        ...   ldab 0bc0
1655 8D8B C4 02           ..    andb #02
1656 8D8D 27 57           'W    beq 57
1657 8D8F FC 00 0D        ...   ldd 000d
1658 8D92 26 18           &.    bne 18
1659 8D94 F6 0B AA        ...   ldab 0baa
1660 8D97 C1 32           .2    cmpb #32
1661 8D99 24 11           $.    bcc 11
1662 8D9B F6 0B AA        ...   ldab 0baa
1663 8D9E 4F              O     clra
1664 8D9F 37              7     pshb
1665 8DA0 36              6     psha
1666 8DA1 CC 00 FA        ...   ldd #00fa
1667 8DA4 BD FB BA        ...   jsr fbba
1668 8DA7 FD 00 0D        ...   stad 000d
1669 8DAA 20 38            8    bra 38
1670 8DAC FC 00 0D        ...   ldd 000d
1671 8DAF 26 18           &.    bne 18
1672 8DB1 F6 0B AA        ...   ldab 0baa
1673 8DB4 C1 32           .2    cmpb #32
1674 8DB6 26 11           &.    bne 11
1675 8DB8 F6 0B AA        ...   ldab 0baa
1676 8DBB 4F              O     clra
1677 8DBC 37              7     pshb
1678 8DBD 36              6     psha
1679 8DBE CC 00 C7        ...   ldd #00c7
1680 8DC1 BD FB BA        ...   jsr fbba
1681 8DC4 FD 00 0D        ...   stad 000d
1682 8DC7 20 1B            .    bra 1b
1683 8DC9 F6 0B AA        ...   ldab 0baa
1684 8DCC 4F              O     clra
1685 8DCD B3 00 0D        ...   subd 000d
1686 8DD0 22 0D           ".    bhi 0d
1687 8DD2 FC 00 0D        ...   ldd 000d
1688 8DD5 F0 0B AA        ...   subb 0baa
1689 8DD8 82 00           ..    sbca #00
1690 8DDA FD 00 0D        ...   stad 000d
1691 8DDD 20 05            .    bra 05
1692 8DDF 5F              _     clrb
1693 8DE0 4F              O     clra
1694 8DE1 FD 00 0D        ...   stad 000d
1695 8DE4 20 2D            -    bra 2d
1696 8DE6 FC 00 0D        ...   ldd 000d
1697 8DE9 26 0D           &.    bne 0d
1698 8DEB CC 27 10        .'.   ldd #2710
1699 8DEE F0 0B AA        ...   subb 0baa
1700 8DF1 82 00           ..    sbca #00
1701 8DF3 FD 00 0D        ...   stad 000d
1702 8DF6 20 1B            .    bra 1b
1703 8DF8 F6 0B AA        ...   ldab 0baa
1704 8DFB 4F              O     clra
1705 8DFC B3 00 0D        ...   subd 000d
1706 8DFF 22 0D           ".    bhi 0d
1707 8E01 FC 00 0D        ...   ldd 000d
1708 8E04 F0 0B AA        ...   subb 0baa
1709 8E07 82 00           ..    sbca #00
1710 8E09 FD 00 0D        ...   stad 000d
1711 8E0C 20 05            .    bra 05
1712 8E0E 5F              _     clrb
1713 8E0F 4F              O     clra
1714 8E10 FD 00 0D        ...   stad 000d
1715 8E13 BD 9B 63        ..c   jsr 9b63
1716 8E16 C6 02           ..    ldab #02
1717 8E18 F7 00 36        ..6   stb 0036
1718 8E1B CE 00 1B        ...   ldx #001b
1719 8E1E 1C 00           ..    bset add,x 00,x
1720 8E20 10              .     sba
1721 8E21 CC 02 33        ..3   ldd #0233
1722 8E24 FD 00 3B        ..;   stad 003b
1723 8E27 20 0B            .    bra 0b
1724 8E29 BD A4 4F        ..O   jsr a44f
1725 8E2C BD 85 AF        ...   jsr 85af             ;jump14
1726 8E2F 20 03            .    bra 03
1727 8E31 BD 85 AF        ...   jsr 85af             ;jump14
1728 8E34 39              9     rts
1729
1730 8E35 F6 00 1F        ...   ldab 001f
1731 8E38 C4 02           ..    andb #02
1732 8E3A 27 1E           '.    beq 1e
1733 8E3C 7F 00 48        ..H   clr 0048
1734 8E3F F6 0B C0        ...   ldab 0bc0
1735 8E42 F7 00 67        ..g   stb 0067
1736 8E45 F6 0E 6D        ..m   ldab 0e6d
1737 8E48 F7 0E 6F        ..o   stb 0e6f
1738 8E4B F6 0E 6E        ..n   ldab 0e6e
1739 8E4E F7 0E 70        ..p   stb 0e70
1740 8E51 CE 00 1F        ...   ldx #001f
1741 8E54 1D 00           ..    bclr add,x 00,x
1742 8E56 02              .     idiv
1743 8E57 7E 8F 0C        ~..   jmp 8f0c
1744 8E5A F6 00 09        ...   ldab 0009
1745 8E5D 4F              O     clra
1746 8E5E BD FE 32        ..2   jsr fe32
1747 8E61 8E 7B 00        .{.   lds #7b00
1748 8E64 00              .     test
1749 8E65 8E 81 00        ...   lds #8100
1750 8E68 01              .     nop
1751 8E69 8E 87 00        ...   lds #8700
1752 8E6C 04              .     lsrd
1753 8E6D 8F              .     xgdx
1754 8E6E 01              .     nop
1755 8E6F 00              .     test
1756 8E70 05              .     asld
1757 8E71 8F              .     xgdx
1758 8E72 09              .     dex
1759 8E73 00              .     test
1760 8E74 01              .     nop
1761 8E75 8F              .     xgdx
1762 8E76 0C              .     clc
1763 8E77 FF F5 00        ...   stx f500
1764 8E7A 00              .     test
1765 8E7B BD 9C 15        ...   jsr 9c15
1766 8E7E 7E 8F 0C        ~..   jmp 8f0c
1767 8E81 BD A7 5F        .._   jsr a75f
1768 8E84 7E 8F 0C        ~..   jmp 8f0c
1769 8E87 F6 00 48        ..H   ldab 0048
1770 8E8A C1 08           ..    cmpb #08
1771 8E8C 25 05           %.    bcs 05
1772 8E8E F6 00 67        ..g   ldab 0067
1773 8E91 2D 03           -.    blt 03
1774 8E93 BD A4 59        ..Y   jsr a459
1775 8E96 F6 00 48        ..H   ldab 0048
1776 8E99 C1 0A           ..    cmpb #0a
1777 8E9B 24 5F           $_    bcc 5f
1778 8E9D 7C 00 48        |.H   inc 0048
1779 8EA0 F6 00 48        ..H   ldab 0048
1780 8EA3 C1 01           ..    cmpb #01
1781 8EA5 26 0F           &.    bne 0f
1782 8EA7 F6 00 67        ..g   ldab 0067
1783 8EAA C4 02           ..    andb #02
1784 8EAC 26 08           &.    bne 08
1785 8EAE F6 00 48        ..H   ldab 0048
1786 8EB1 CB 02           ..    addb #02
1787 8EB3 F7 00 48        ..H   stb 0048
1788 8EB6 F6 00 48        ..H   ldab 0048
1789 8EB9 C1 02           ..    cmpb #02
1790 8EBB 26 0A           &.    bne 0a
1791 8EBD F6 00 67        ..g   ldab 0067
1792 8EC0 C4 10           ..    andb #10
1793 8EC2 26 03           &.    bne 03
1794 8EC4 7C 00 48        |.H   inc 0048
1795 8EC7 F6 00 48        ..H   ldab 0048
1796 8ECA C1 06           ..    cmpb #06
1797 8ECC 26 0F           &.    bne 0f
1798 8ECE F6 00 67        ..g   ldab 0067
1799 8ED1 C4 08           ..    andb #08
1800 8ED3 26 08           &.    bne 08
1801 8ED5 C6 02           ..    ldab #02
1802 8ED7 FB 00 48        ..H   addb 0048
1803 8EDA F7 00 48        ..H   stb 0048
1804 8EDD F6 00 48        ..H   ldab 0048
1805 8EE0 C1 0A           ..    cmpb #0a
1806 8EE2 26 08           &.    bne 08
1807 8EE4 F6 00 67        ..g   ldab 0067
1808 8EE7 2D 03           -.    blt 03
1809 8EE9 7C 00 48        |.H   inc 0048
1810 8EEC F6 00 48        ..H   ldab 0048
1811 8EEF C1 0A           ..    cmpb #0a
1812 8EF1 23 09           #.    bls 09
1813 8EF3 7F 00 48        ..H   clr 0048
1814 8EF6 F6 0B C0        ...   ldab 0bc0
1815 8EF9 F7 00 67        ..g   stb 0067
1816 8EFC BD 9C 15        ...   jsr 9c15
1817 8EFF 20 0B            .    bra 0b
1818 8F01 BD A4 59        ..Y   jsr a459
1819 8F04 BD 85 AF        ...   jsr 85af             ;jump14
1820 8F07 20 03            .    bra 03
1821 8F09 BD 85 AF        ...   jsr 85af             ;jump14
1822 8F0C 39              9     rts
1823
1824 8F0D F6 00 1F        ...   ldab 001f
1825 8F10 C4 02           ..    andb #02
1826 8F12 27 1D           '.    beq 1d
1827 8F14 C6 01           ..    ldab #01
1828 8F16 F7 00 22        .."   stb 0022
1829 8F19 F6 0B AF        ...   ldab 0baf
1830 8F1C F7 00 24        ..$   stb 0024
1831 8F1F F6 0B B4        ...   ldab 0bb4
1832 8F22 F7 00 2A        ..*   stb 002a
1833 8F25 CE 00 1F        ...   ldx #001f
1834 8F28 1D 00           ..    bclr add,x 00,x
1835 8F2A 02              .     idiv
1836 8F2B 7F 00 36        ..6   clr 0036
1837 8F2E 7E 90 D0        ~..   jmp 90d0
1838 8F31 F6 00 09        ...   ldab 0009
1839 8F34 4F              O     clra
1840 8F35 BD FE 16        ...   jsr fe16             ;jump2
1841 8F38 00              .     test
1842 8F39 00              .     test
1843 8F3A 00              .     test
1844 8F3B 0B              .     sev
1845 8F3C 90 D0 8F        ...   suba d0
1846 8F3F 56              V     rorb
1847 8F40 8F              .     xgdx
1848 8F41 5C              \     incb
1849 8F42 8F              .     xgdx
1850 8F43 B3 90 0C        ...   subd 900c
1851 8F46 90 62 90        .b.   suba 62
1852 8F49 BA 90 D0        ...   ora 90d0
1853 8F4C 90 D0 90        ...   suba d0
1854 8F4F D0 90 D0        ...   subb 90
1855 8F52 90 C5 90        ...   suba c5
1856 8F55 CD              .     illegal
1857 8F56 BD 9D 2A        ..*   jsr 9d2a
1858 8F59 7E 90 D0        ~..   jmp 90d0
1859 8F5C F6 00 36        ..6   ldab 0036
1860 8F5F 26 43           &C    bne 43
1861 8F61 F6 00 24        ..$   ldab 0024
1862 8F64 C1 64           .d    cmpb #64
1863 8F66 24 34           $4    bcc 34
1864 8F68 7C 00 24        |.$   inc 0024
1865 8F6B F6 00 24        ..$   ldab 0024
1866 8F6E F7 00 06        ...   stb 0006
1867 8F71 F6 00 06        ...   ldab 0006
1868 8F74 BD D7 A0        ...   jsr d7a0             ;jump10
1869 8F77 83 00 00        ...   subd #0000
1870 8F7A 27 03           '.    beq 03
1871 8F7C 7C 00 24        |.$   inc 0024
1872 8F7F F6 00 24        ..$   ldab 0024
1873 8F82 C1 64           .d    cmpb #64
1874 8F84 26 03           &.    bne 03
1875 8F86 7F 00 24        ..$   clr 0024
1876 8F89 F6 00 24        ..$   ldab 0024
1877 8F8C 4F              O     clra
1878 8F8D CE 00 05        ...   ldx #0005
1879 8F90 02              .     idiv
1880 8F91 5D              ]     tstb
1881 8F92 26 08           &.    bne 08
1882 8F94 F6 00 24        ..$   ldab 0024
1883 8F97 27 03           '.    beq 03
1884 8F99 7C 00 24        |.$   inc 0024
1885 8F9C BD 9D 2A        ..*   jsr 9d2a
1886 8F9F C6 02           ..    ldab #02
1887 8FA1 F7 00 36        ..6   stb 0036
1888 8FA4 CE 00 1B        ...   ldx #001b
1889 8FA7 1C 00           ..    bset add,x 00,x
1890 8FA9 10              .     sba
1891 8FAA CC 02 33        ..3   ldd #0233
1892 8FAD FD 00 3B        ..;   stad 003b
1893 8FB0 7E 90 D0        ~..   jmp 90d0
1894 8FB3 F6 00 36        ..6   ldab 0036
1895 8FB6 26 45           &E    bne 45
1896 8FB8 F6 00 24        ..$   ldab 0024
1897 8FBB C1 00           ..    cmpb #00
1898 8FBD 23 2C           #,    bls 2c
1899 8FBF 7A 00 24        z.$   dec 0024
1900 8FC2 F6 00 24        ..$   ldab 0024
1901 8FC5 4F              O     clra
1902 8FC6 CE 00 05        ...   ldx #0005
1903 8FC9 02              .     idiv
1904 8FCA 5D              ]     tstb
1905 8FCB 26 08           &.    bne 08
1906 8FCD F6 00 24        ..$   ldab 0024
1907 8FD0 27 03           '.    beq 03
1908 8FD2 7A 00 24        z.$   dec 0024
1909 8FD5 F6 00 24        ..$   ldab 0024
1910 8FD8 F7 00 06        ...   stb 0006
1911 8FDB F6 00 06        ...   ldab 0006
1912 8FDE BD D7 A0        ...   jsr d7a0             ;jump10
1913 8FE1 83 00 00        ...   subd #0000
1914 8FE4 27 03           '.    beq 03
1915 8FE6 7A 00 24        z.$   dec 0024
1916 8FE9 20 0A            .    bra 0a
1917 8FEB F6 00 24        ..$   ldab 0024
1918 8FEE 26 05           &.    bne 05
1919 8FF0 C6 62           .b    ldab #62
1920 8FF2 F7 00 24        ..$   stb 0024
1921 8FF5 BD 9D 2A        ..*   jsr 9d2a
1922 8FF8 C6 02           ..    ldab #02
1923 8FFA F7 00 36        ..6   stb 0036
1924 8FFD CE 00 1B        ...   ldx #001b
1925 9000 1C 00           ..    bset add,x 00,x
1926 9002 10              .     sba
1927 9003 CC 02 33        ..3   ldd #0233
1928 9006 FD 00 3B        ..;   stad 003b
1929 9009 7E 90 D0        ~..   jmp 90d0
1930 900C F6 00 36        ..6   ldab 0036
1931 900F 26 43           &C    bne 43
1932 9011 F6 00 2A        ..*   ldab 002a
1933 9014 C1 64           .d    cmpb #64
1934 9016 24 34           $4    bcc 34
1935 9018 7C 00 2A        |.*   inc 002a
1936 901B F6 00 2A        ..*   ldab 002a
1937 901E F7 00 06        ...   stb 0006
1938 9021 F6 00 06        ...   ldab 0006
1939 9024 BD D7 A0        ...   jsr d7a0             ;jump10
1940 9027 83 00 00        ...   subd #0000
1941 902A 27 03           '.    beq 03
1942 902C 7C 00 2A        |.*   inc 002a
1943 902F F6 00 2A        ..*   ldab 002a
1944 9032 C1 64           .d    cmpb #64
1945 9034 26 03           &.    bne 03
1946 9036 7F 00 2A        ..*   clr 002a
1947 9039 F6 00 2A        ..*   ldab 002a
1948 903C 4F              O     clra
1949 903D CE 00 05        ...   ldx #0005
1950 9040 02              .     idiv
1951 9041 5D              ]     tstb
1952 9042 26 08           &.    bne 08
1953 9044 F6 00 2A        ..*   ldab 002a
1954 9047 27 03           '.    beq 03
1955 9049 7C 00 2A        |.*   inc 002a
1956 904C BD 9D 2A        ..*   jsr 9d2a
1957 904F C6 02           ..    ldab #02
1958 9051 F7 00 36        ..6   stb 0036
1959 9054 CE 00 1B        ...   ldx #001b
1960 9057 1C 00           ..    bset add,x 00,x
1961 9059 10              .     sba
1962 905A CC 02 33        ..3   ldd #0233
1963 905D FD 00 3B        ..;   stad 003b
1964 9060 20 6E            n    bra 6e
1965 9062 F6 00 36        ..6   ldab 0036
1966 9065 26 45           &E    bne 45
1967 9067 F6 00 2A        ..*   ldab 002a
1968 906A C1 00           ..    cmpb #00
1969 906C 23 2C           #,    bls 2c
1970 906E 7A 00 2A        z.*   dec 002a
1971 9071 F6 00 2A        ..*   ldab 002a
1972 9074 4F              O     clra
1973 9075 CE 00 05        ...   ldx #0005
1974 9078 02              .     idiv
1975 9079 5D              ]     tstb
1976 907A 26 08           &.    bne 08
1977 907C F6 00 2A        ..*   ldab 002a
1978 907F 27 03           '.    beq 03
1979 9081 7A 00 2A        z.*   dec 002a
1980 9084 F6 00 2A        ..*   ldab 002a
1981 9087 F7 00 06        ...   stb 0006
1982 908A F6 00 06        ...   ldab 0006
1983 908D BD D7 A0        ...   jsr d7a0             ;jump10
1984 9090 83 00 00        ...   subd #0000
1985 9093 27 03           '.    beq 03
1986 9095 7A 00 2A        z.*   dec 002a
1987 9098 20 0A            .    bra 0a
1988 909A F6 00 2A        ..*   ldab 002a
1989 909D 26 05           &.    bne 05
1990 909F C6 62           .b    ldab #62
1991 90A1 F7 00 2A        ..*   stb 002a
1992 90A4 BD 9D 2A        ..*   jsr 9d2a
1993 90A7 C6 02           ..    ldab #02
1994 90A9 F7 00 36        ..6   stb 0036
1995 90AC CE 00 1B        ...   ldx #001b
1996 90AF 1C 00           ..    bset add,x 00,x
1997 90B1 10              .     sba
1998 90B2 CC 02 33        ..3   ldd #0233
1999 90B5 FD 00 3B        ..;   stad 003b
2000 90B8 20 16            .    bra 16
2001 90BA BD A5 1E        ...   jsr a51e
2002 90BD BD AA 9A        ...   jsr aa9a
2003 90C0 BD 9D 2A        ..*   jsr 9d2a
2004 90C3 20 0B            .    bra 0b
2005 90C5 BD A5 1E        ...   jsr a51e
2006 90C8 BD 85 AF        ...   jsr 85af             ;jump14
2007 90CB 20 03            .    bra 03
2008 90CD BD 85 AF        ...   jsr 85af             ;jump14
2009 90D0 39              9     rts
2010
2011 90D1 F6 00 1F        ...   ldab 001f
2012 90D4 C4 02           ..    andb #02
2013 90D6 27 14           '.    beq 14
2014 90D8 CE 00 1F        ...   ldx #001f
2015 90DB 1D 00           ..    bclr add,x 00,x
2016 90DD 02              .     idiv
2017 90DE CE 00 19        ...   ldx #0019
2018 90E1 1C 00           ..    bset add,x 00,x
2019 90E3 80 7F           ..    suba #7f
2020 90E5 00              .     test
2021 90E6 09              .     dex
2022 90E7 7F 00 0A        ...   clr 000a
2023 90EA 20 40            @    bra 40
2024 90EC F6 00 09        ...   ldab 0009
2025 90EF 4F              O     clra
2026 90F0 BD FE 32        ..2   jsr fe32
2027 90F3 91 0D 00        ...   cmpa 0d
2028 90F6 00              .     test
2029 90F7 91 15 00        ...   cmpa 15
2030 90FA 01              .     nop
2031 90FB 91 19 00        ...   cmpa 19
2032 90FE 01              .     nop
2033 90FF 91 1E 00        ...   cmpa 1e
2034 9102 01              .     nop
2035 9103 91 23 00        .#.   cmpa 23
2036 9106 08              .     inx
2037 9107 91 26 FF        .&.   cmpa 26
2038 910A F5 00 00        ...   bitb 0000
2039 910D CC B0 AD        ...   ldd #b0ad
2040 9110 BD C0 BA        ...   jsr c0ba             ;display:
2041 9113 20 17            .    bra 17
2042 9115 8D 16           ..    bsr dest 16
2043 9117 20 13            .    bra 13
2044 9119 BD 91 C6        ...   jsr 91c6
2045 911C 20 0E            .    bra 0e
2046 911E BD 92 5A        ..Z   jsr 925a
2047 9121 20 09            .    bra 09
2048 9123 BD 85 AF        ...   jsr 85af             ;jump14
2049 9126 7F 00 09        ...   clr 0009
2050 9129 7F 00 0A        ...   clr 000a
2051 912C 39              9     rts
2052
2053 912D F6 00 19        ...   ldab 0019
2054 9130 2C 28           ,(    bge 28
2055 9132 BD A9 CF        ...   jsr a9cf
2056 9135 C6 50           .P    ldab #50
2057 9137 F7 0A 90        ...   stb 0a90
2058 913A C6 20           .     ldab #20
2059 913C F7 0B 8D        ...   stb 0b8d
2060 913F C6 20           .     ldab #20
2061 9141 F7 0B 8E        ...   stb 0b8e
2062 9144 C6 28           .(    ldab #28
2063 9146 F7 0B 8F        ...   stb 0b8f
2064 9149 7F 00 54        ..T   clr 0054
2065 914C 7F 00 60        ..`   clr 0060
2066 914F CE 00 19        ...   ldx #0019
2067 9152 1D 00           ..    bclr add,x 00,x
2068 9154 80 7F           ..    suba #7f
2069 9156 00              .     test
2070 9157 36              6     psha
2071 9158 20 6B            k    bra 6b
2072 915A F6 00 0A        ...   ldab 000a
2073 915D 4F              O     clra
2074 915E BD FE 16        ...   jsr fe16             ;jump2
2075 9161 00              .     test
2076 9162 00              .     test
2077 9163 00              .     test
2078 9164 0B              .     sev
2079 9165 91 C5 91        ...   cmpa c5
2080 9168 7F 91 84        ...   clr 9184
2081 916B 91 89 91        ...   cmpa 89
2082 916E 8E 91 9F        ...   lds #919f
2083 9171 91 B0 91        ...   cmpa b0
2084 9174 C5 91           ..    bitb #91
2085 9176 C5 91           ..    bitb #91
2086 9178 C5 91           ..    bitb #91
2087 917A B5 91 BA        ...   bita 91ba
2088 917D 91 C2 BD        ...   cmpa c2
2089 9180 9D 7E 20        .~    jsr 7e
2090 9183 41              A     illegal
2091 9184 BD A8 64        ..d   jsr a864
2092 9187 20 3C            <    bra 3c
2093 9189 BD A8 D5        ...   jsr a8d5
2094 918C 20 37            7    bra 37
2095 918E BD A8 96        ...   jsr a896
2096 9191 CE 00 1B        ...   ldx #001b
2097 9194 1C 00           ..    bset add,x 00,x
2098 9196 10              .     sba
2099 9197 CC 02 33        ..3   ldd #0233
2100 919A FD 00 3B        ..;   stad 003b
2101 919D 20 26            &    bra 26
2102 919F BD A8 E5        ...   jsr a8e5
2103 91A2 CE 00 1B        ...   ldx #001b
2104 91A5 1C 00           ..    bset add,x 00,x
2105 91A7 10              .     sba
2106 91A8 CC 02 33        ..3   ldd #0233
2107 91AB FD 00 3B        ..;   stad 003b
2108 91AE 20 15            .    bra 15
2109 91B0 BD A9 21        ..!   jsr a921
2110 91B3 20 10            .    bra 10
2111 91B5 BD A9 7A        ..z   jsr a97a
2112 91B8 20 0B            .    bra 0b
2113 91BA BD A5 7D        ..}   jsr a57d
2114 91BD BD 85 AF        ...   jsr 85af             ;jump14
2115 91C0 20 03            .    bra 03
2116 91C2 BD 85 AF        ...   jsr 85af             ;jump14
2117 91C5 39              9     rts
2118
2119 91C6 F6 00 19        ...   ldab 0019
2120 91C9 2C 28           ,(    bge 28
2121 91CB BD AA 0A        ...   jsr aa0a
2122 91CE C6 53           .S    ldab #53
2123 91D0 F7 0A 90        ...   stb 0a90
2124 91D3 C6 20           .     ldab #20
2125 91D5 F7 0A 9D        ...   stb 0a9d
2126 91D8 C6 20           .     ldab #20
2127 91DA F7 0A 9E        ...   stb 0a9e
2128 91DD C6 28           .(    ldab #28
2129 91DF F7 0A 9F        ...   stb 0a9f
2130 91E2 7F 00 54        ..T   clr 0054
2131 91E5 7F 00 60        ..`   clr 0060
2132 91E8 CE 00 19        ...   ldx #0019
2133 91EB 1D 00           ..    bclr add,x 00,x
2134 91ED 80 7F           ..    suba #7f
2135 91EF 00              .     test
2136 91F0 36              6     psha
2137 91F1 20 66            f    bra 66
2138 91F3 F6 00 0A        ...   ldab 000a
2139 91F6 4F              O     clra
2140 91F7 BD FE 16        ...   jsr fe16             ;jump2
2141 91FA 00              .     test
2142 91FB 00              .     test
2143 91FC 00              .     test
2144 91FD 0B              .     sev
2145 91FE 92 59 92        .Y.   sbca 59
2146 9201 18              .     illegal
2147 9202 92 1D 92        ...   sbca 1d
2148 9205 22 92           ".    bhi 92
2149 9207 27 92           '.    beq 92
2150 9209 38              8     pulx
2151 920A 92 49 92        .I.   sbca 49
2152 920D 59              Y     rolb
2153 920E 92 59 92        .Y.   sbca 59
2154 9211 59              Y     rolb
2155 9212 92 59 92        .Y.   sbca 59
2156 9215 4E              N     illegal
2157 9216 92 56 BD        .V.   sbca 56
2158 9219 9D 7E 20        .~    jsr 7e
2159 921C 3C              <     pshx
2160 921D BD A8 64        ..d   jsr a864
2161 9220 20 37            7    bra 37
2162 9222 BD A8 D5        ...   jsr a8d5
2163 9225 20 32            2    bra 32
2164 9227 BD A8 96        ...   jsr a896
2165 922A CE 00 1B        ...   ldx #001b
2166 922D 1C 00           ..    bset add,x 00,x
2167 922F 10              .     sba
2168 9230 CC 02 33        ..3   ldd #0233
2169 9233 FD 00 3B        ..;   stad 003b
2170 9236 20 21            !    bra 21
2171 9238 BD A8 E5        ...   jsr a8e5
2172 923B CE 00 1B        ...   ldx #001b
2173 923E 1C 00           ..    bset add,x 00,x
2174 9240 10              .     sba
2175 9241 CC 02 33        ..3   ldd #0233
2176 9244 FD 00 3B        ..;   stad 003b
2177 9247 20 10            .    bra 10
2178 9249 BD A9 21        ..!   jsr a921
2179 924C 20 0B            .    bra 0b
2180 924E BD A5 AC        ...   jsr a5ac
2181 9251 BD 85 AF        ...   jsr 85af             ;jump14
2182 9254 20 03            .    bra 03
2183 9256 BD 85 AF        ...   jsr 85af             ;jump14
2184 9259 39              9     rts
2185
2186
2187 925A F6 00 19        ...   ldab 0019
2188 925D 2C 28           ,(    bge 28
2189 925F BD AA 3F        ..?   jsr aa3f
2190 9262 C6 49           .I    ldab #49
2191 9264 F7 0A 90        ...   stb 0a90
2192 9267 C6 20           .     ldab #20
2193 9269 F7 0A 9D        ...   stb 0a9d
2194 926C C6 20           .     ldab #20
2195 926E F7 0A 9E        ...   stb 0a9e
2196 9271 C6 28           .(    ldab #28
2197 9273 F7 0A 9F        ...   stb 0a9f
2198 9276 7F 00 54        ..T   clr 0054
2199 9279 7F 00 60        ..`   clr 0060
2200 927C CE 00 19        ...   ldx #0019
2201 927F 1D 00           ..    bclr add,x 00,x
2202 9281 80 7F           ..    suba #7f
2203 9283 00              .     test
2204 9284 36              6     psha
2205 9285 20 66            f    bra 66
2206 9287 F6 00 0A        ...   ldab 000a
2207 928A 4F              O     clra
2208 928B BD FE 16        ...   jsr fe16             ;jump2
2209 928E 00              .     test
2210 928F 00              .     test
2211 9290 00              .     test
2212 9291 0B              .     sev
2213 9292 92 ED 92        ...   sbca ed
2214 9295 AC 92           ..    cpx 92,x
2215 9297 B1 92 B6        ...   cmpa 92b6
2216 929A 92 BB 92        ...   sbca bb
2217 929D CC 92 DD        ...   ldd #92dd
2218 92A0 92 ED 92        ...   sbca ed
2219 92A3 ED 92           ..    stad 92,x
2220 92A5 ED 92           ..    stad 92,x
2221 92A7 ED 92           ..    stad 92,x
2222 92A9 E2 92           ..    sbcb 92,x
2223 92AB EA BD           ..    orb bd,x
2224 92AD 9D 7E 20        .~    jsr 7e
2225 92B0 3C              <     pshx
2226 92B1 BD A8 64        ..d   jsr a864
2227 92B4 20 37            7    bra 37
2228 92B6 BD A8 D5        ...   jsr a8d5
2229 92B9 20 32            2    bra 32
2230 92BB BD A8 96        ...   jsr a896
2231 92BE CE 00 1B        ...   ldx #001b
2232 92C1 1C 00           ..    bset add,x 00,x
2233 92C3 10              .     sba
2234 92C4 CC 02 33        ..3   ldd #0233
2235 92C7 FD 00 3B        ..;   stad 003b
2236 92CA 20 21            !    bra 21
2237 92CC BD A8 E5        ...   jsr a8e5
2238 92CF CE 00 1B        ...   ldx #001b
2239 92D2 1C 00           ..    bset add,x 00,x
2240 92D4 10              .     sba
2241 92D5 CC 02 33        ..3   ldd #0233
2242 92D8 FD 00 3B        ..;   stad 003b
2243 92DB 20 10            .    bra 10
2244 92DD BD A9 21        ..!   jsr a921
2245 92E0 20 0B            .    bra 0b
2246 92E2 BD A5 D5        ...   jsr a5d5
2247 92E5 BD 85 AF        ...   jsr 85af             ;jump14
2248 92E8 20 03            .    bra 03
2249 92EA BD 85 AF        ...   jsr 85af             ;jump14
2250 92ED 39              9     rts
2251
2252 92EE F6 0C DC        ...   ldab 0cdc
2253 92F1 4F              O     clra
2254 92F2 37              7     pshb
2255 92F3 36              6     psha
2256 92F4 CC 00 64        ..d   ldd #0064
2257 92F7 BD FB BA        ...   jsr fbba
2258 92FA FD 0C E9        ...   stad 0ce9
2259 92FD BD D6 F6        ...   jsr d6f6
2260 9300 FC 0C E9        ...   ldd 0ce9
2261 9303 F3 0B EF        ...   addd 0bef
2262 9306 FD 0C F1        ...   stad 0cf1
2263 9309 FE 0C F5        ...   ldx 0cf5
2264 930C 3C              <     pshx
2265 930D FC 0C F3        ...   ldd 0cf3
2266 9310 37              7     pshb
2267 9311 36              6     psha
2268 9312 FE 0C F9        ...   ldx 0cf9
2269 9315 3C              <     pshx
2270 9316 FC 0C F7        ...   ldd 0cf7
2271 9319 BD FC 25        ..%   jsr fc25
2272 931C 37              7     pshb
2273 931D 36              6     psha
2274 931E FE 0C FD        ...   ldx 0cfd
2275 9321 3C              <     pshx
2276 9322 FC 0C FB        ...   ldd 0cfb
2277 9325 BD FC 25        ..%   jsr fc25
2278 9328 37              7     pshb
2279 9329 36              6     psha
2280 932A FE 0D 01        ...   ldx 0d01
2281 932D 3C              <     pshx
2282 932E FC 0C FF        ...   ldd 0cff
2283 9331 BD FC 25        ..%   jsr fc25
2284 9334 37              7     pshb
2285 9335 36              6     psha
2286 9336 FE 0D 05        ...   ldx 0d05
2287 9339 3C              <     pshx
2288 933A FC 0D 03        ...   ldd 0d03
2289 933D BD FC 25        ..%   jsr fc25
2290 9340 FD 0D F3        ...   stad 0df3
2291 9343 32              2     pula
2292 9344 33              3     pulb
2293 9345 FD 0D F5        ...   stad 0df5
2294 9348 FE 0D F9        ...   ldx 0df9
2295 934B 3C              <     pshx
2296 934C FC 0D F7        ...   ldd 0df7
2297 934F 37              7     pshb
2298 9350 36              6     psha
2299 9351 FE 0D F5        ...   ldx 0df5
2300 9354 3C              <     pshx
2301 9355 FC 0D F3        ...   ldd 0df3
2302 9358 BD FC 25        ..%   jsr fc25
2303 935B FD 0D EF        ...   stad 0def
2304 935E 32              2     pula
2305 935F 33              3     pulb
2306 9360 FD 0D F1        ...   stad 0df1
2307 9363 F6 20 00        . .   ldab 2000
2308 9366 C4 40           .@    andb #40
2309 9368 27 37           '7    beq 37
2310 936A F6 00 1F        ...   ldab 001f
2311 936D C4 02           ..    andb #02
2312 936F 27 1F           '.    beq 1f
2313 9371 BD 97 E9        ...   jsr 97e9
2314 9374 CE 00 1F        ...   ldx #001f
2315 9377 1D 00           ..    bclr add,x 00,x
2316 9379 02              .     idiv
2317 937A CE 00 1F        ...   ldx #001f
2318 937D 1D 00           ..    bclr add,x 00,x
2319 937F 10              .     sba
2320 9380 CC 02 33        ..3   ldd #0233
2321 9383 FD 00 3B        ..;   stad 003b
2322 9386 7F 00 09        ...   clr 0009
2323 9389 C6 92           ..    ldab #92
2324 938B F7 00 48        ..H   stb 0048
2325 938E 20 0F            .    bra 0f
2326 9390 F6 00 19        ...   ldab 0019
2327 9393 C4 40           .@    andb #40
2328 9395 26 05           &.    bne 05
2329 9397 BD 98 BF        ...   jsr 98bf
2330 939A 20 03            .    bra 03
2331 939C BD 85 AF        ...   jsr 85af             ;jump14
2332 939F 20 03            .    bra 03
2333 93A1 BD 98 FF        ...   jsr 98ff
2334 93A4 39              9     rts
2335
2336 93A5 F6 00 1F        ...   ldab 001f
2337 93A8 C4 02           ..    andb #02
2338 93AA 26 0A           &.    bne 0a
2339 93AC F6 00 3A        ..:   ldab 003a
2340 93AF 26 2B           &+    bne 2b
2341 93B1 F6 00 1D        ...   ldab 001d
2342 93B4 2D 26           -&    blt 26
2343 93B6 CC AF BB        ...   ldd #afbb
2344 93B9 BD C0 BA        ...   jsr c0ba             ;display:
2345 93BC CE 00 1F        ...   ldx #001f
2346 93BF 1D 00           ..    bclr add,x 00,x
2347 93C1 02              .     idiv
2348 93C2 CE 00 1D        ...   ldx #001d
2349 93C5 1D 00           ..    bclr add,x 00,x
2350 93C7 80 C6           ..    suba #c6
2351 93C9 32              2     pula
2352 93CA F7 00 3A        ..:   stb 003a
2353 93CD F6 0B A8        ...   ldab 0ba8
2354 93D0 F7 00 66        ..f   stb 0066
2355 93D3 BD AA 74        ..t   jsr aa74
2356 93D6 7F 00 48        ..H   clr 0048
2357 93D9 7F 00 54        ..T   clr 0054
2358 93DC F6 00 09        ...   ldab 0009
2359 93DF 26 03           &.    bne 03
2360 93E1 7E 94 92        ~..   jmp 9492
2361 93E4 F6 00 1D        ...   ldab 001d
2362 93E7 2C 03           ,.    bge 03
2363 93E9 7E 94 92        ~..   jmp 9492
2364 93EC F6 00 09        ...   ldab 0009
2365 93EF C1 0B           ..    cmpb #0b
2366 93F1 26 06           &.    bne 06
2367 93F3 BD 85 AF        ...   jsr 85af             ;jump14
2368 93F6 7E 94 90        ~..   jmp 9490
2369 93F9 F6 00 09        ...   ldab 0009
2370 93FC C1 0A           ..    cmpb #0a
2371 93FE 26 03           &.    bne 03
2372 9400 7F 00 09        ...   clr 0009
2373 9403 F6 00 09        ...   ldab 0009
2374 9406 CB 30           .0    addb #30
2375 9408 37              7     pshb
2376 9409 F6 00 54        ..T   ldab 0054
2377 940C 4F              O     clra
2378 940D C3 00 62        ..b   addd #0062
2379 9410 8F              .     xgdx
2380 9411 33              3     pulb
2381 9412 E7 00           ..    stb 00,x
2382 9414 BD BE 4B        ..K   jsr be4b             ;jump1
2383 9417 F6 00 54        ..T   ldab 0054
2384 941A 26 06           &.    bne 06
2385 941C F6 00 62        ..b   ldab 0062
2386 941F F7 0B 96        ...   stb 0b96
2387 9422 F6 00 54        ..T   ldab 0054
2388 9425 C1 01           ..    cmpb #01
2389 9427 26 0C           &.    bne 0c
2390 9429 F6 00 62        ..b   ldab 0062
2391 942C F7 0B 96        ...   stb 0b96
2392 942F F6 00 63        ..c   ldab 0063
2393 9432 F7 0B 95        ...   stb 0b95
2394 9435 F6 00 54        ..T   ldab 0054
2395 9438 C1 02           ..    cmpb #02
2396 943A 26 12           &.    bne 12
2397 943C F6 00 62        ..b   ldab 0062
2398 943F F7 0B 96        ...   stb 0b96
2399 9442 F6 00 63        ..c   ldab 0063
2400 9445 F7 0B 95        ...   stb 0b95
2401 9448 F6 00 64        ..d   ldab 0064
2402 944B F7 0B 94        ...   stb 0b94
2403 944E F6 00 54        ..T   ldab 0054
2404 9451 C1 03           ..    cmpb #03
2405 9453 26 18           &.    bne 18
2406 9455 F6 00 62        ..b   ldab 0062
2407 9458 F7 0B 96        ...   stb 0b96
2408 945B F6 00 63        ..c   ldab 0063
2409 945E F7 0B 95        ...   stb 0b95
2410 9461 F6 00 64        ..d   ldab 0064
2411 9464 F7 0B 94        ...   stb 0b94
2412 9467 F6 00 65        ..e   ldab 0065
2413 946A F7 0B 93        ...   stb 0b93
2414 946D BD BE 01        ...   jsr be01
2415 9470 7C 00 54        |.T   inc 0054
2416 9473 F6 00 54        ..T   ldab 0054
2417 9476 C1 04           ..    cmpb #04
2418 9478 26 0B           &.    bne 0b
2419 947A CE 00 1D        ...   ldx #001d
2420 947D 1C 00           ..    bset add,x 00,x
2421 947F 80 BD           ..    suba #bd
2422 9481 A8 0F           ..    eora 0f,x
2423 9483 20 06            .    bra 06
2424 9485 CE 00 1D        ...   ldx #001d
2425 9488 1D 00           ..    bclr add,x 00,x
2426 948A 80 C6           ..    suba #c6
2427 948C 32              2     pula
2428 948D F7 00 3A        ..:   stb 003a
2429 9490 20 4A            J    bra 4a
2430 9492 F6 00 1D        ...   ldab 001d
2431 9495 2C 45           ,E    bge 45
2432 9497 F6 00 09        ...   ldab 0009
2433 949A 4F              O     clra
2434 949B BD FE 32        ..2   jsr fe32
2435 949E 94 B8 00        ...   anda b8
2436 94A1 00              .     test
2437 94A2 94 BD 00        ...   anda bd
2438 94A5 01              .     nop
2439 94A6 94 C2 00        ...   anda c2
2440 94A9 04              .     lsrd
2441 94AA 94 D1 00        ...   anda d1
2442 94AD 05              .     asld
2443 94AE 94 D9 00        ...   anda d9
2444 94B1 01              .     nop
2445 94B2 94 DC FF        ...   anda dc
2446 94B5 F5 00 00        ...   bitb 0000
2447 94B8 BD 9E 0F        ...   jsr 9e0f
2448 94BB 20 1F            .    bra 1f
2449 94BD BD A7 1F        ...   jsr a71f
2450 94C0 20 1A            .    bra 1a
2451 94C2 7C 00 48        |.H   inc 0048
2452 94C5 F6 00 48        ..H   ldab 0048
2453 94C8 C1 0A           ..    cmpb #0a
2454 94CA 23 03           #.    bls 03
2455 94CC 7F 00 48        ..H   clr 0048
2456 94CF 20 0B            .    bra 0b
2457 94D1 BD A5 FE        ...   jsr a5fe
2458 94D4 BD 85 AF        ...   jsr 85af             ;jump14
2459 94D7 20 03            .    bra 03
2460 94D9 BD 85 AF        ...   jsr 85af             ;jump14
2461 94DC 39              9     rts
2462
2463 94DD F6 00 1F        ...   ldab 001f
2464 94E0 C4 02           ..    andb #02
2465 94E2 27 14           '.    beq 14
2466 94E4 CE 00 1F        ...   ldx #001f
2467 94E7 1D 00           ..    bclr add,x 00,x
2468 94E9 02              .     idiv
2469 94EA CE 00 19        ...   ldx #0019
2470 94ED 1C 00           ..    bset add,x 00,x
2471 94EF 80 7F           ..    suba #7f
2472 94F1 00              .     test
2473 94F2 09              .     dex
2474 94F3 7F 00 0A        ...   clr 000a
2475 94F6 20 46            F    bra 46
2476 94F8 F6 00 09        ...   ldab 0009
2477 94FB 4F              O     clra
2478 94FC BD FE 32        ..2   jsr fe32
2479 94FF 95 19 00        ...   bita 19
2480 9502 00              .     test
2481 9503 95 21 00        .!.   bita 21
2482 9506 01              .     nop
2483 9507 95 2C 00        .,.   bita 2c
2484 950A 01              .     nop
2485 950B 95 30 00        .0.   bita 30
2486 950E 01              .     nop
2487 950F 95 35 00        .5.   bita 35
2488 9512 08              .     inx
2489 9513 95 38 FF        .8.   bita 38
2490 9516 F5 00 00        ...   bitb 0000
2491 9519 CC B0 A2        ...   ldd #b0a2
2492 951C BD C0 BA        ...   jsr c0ba             ;display:
2493 951F 20 1D            .    bra 1d
2494 9521 BD 87 E9        ...   jsr 87e9
2495 9524 CE 00 1F        ...   ldx #001f
2496 9527 1C 00           ..    bset add,x 00,x
2497 9529 02              .     idiv
2498 952A 20 12            .    bra 12
2499 952C 8D 11           ..    bsr dest 11
2500 952E 20 0E            .    bra 0e
2501 9530 BD 96 88        ...   jsr 9688
2502 9533 20 09            .    bra 09
2503 9535 BD 85 AF        ...   jsr 85af             ;jump14
2504 9538 7F 00 09        ...   clr 0009
2505 953B 7F 00 0A        ...   clr 000a
2506 953E 39              9     rts
2507
2508 953F F6 00 19        ...   ldab 0019
2509 9542 2D 0A           -.    blt 0a
2510 9544 F6 00 3A        ..:   ldab 003a
2511 9547 26 22           &"    bne 22
2512 9549 F6 00 1D        ...   ldab 001d
2513 954C 2D 1D           -.    blt 1d
2514 954E 7F 00 2C        ..,   clr 002c
2515 9551 CC B0 B8        ...   ldd #b0b8
2516 9554 BD C0 BA        ...   jsr c0ba             ;display:
2517 9557 CE 00 19        ...   ldx #0019
2518 955A 1D 00           ..    bclr add,x 00,x
2519 955C 80 CE           ..    suba #ce
2520 955E 00              .     test
2521 955F 1D 1D           ..    bclr add,x 1d,x
2522 9561 00              .     test
2523 9562 80 7F           ..    suba #7f
2524 9564 00              .     test
2525 9565 54              T     lsrb
2526 9566 C6 32           .2    ldab #32
2527 9568 F7 00 3A        ..:   stb 003a
2528 956B F6 00 0A        ...   ldab 000a
2529 956E 26 03           &.    bne 03
2530 9570 7E 96 5C        ~.\   jmp 965c
2531 9573 F6 00 1D        ...   ldab 001d
2532 9576 2C 03           ,.    bge 03
2533 9578 7E 96 5C        ~.\   jmp 965c
2534 957B F6 00 0A        ...   ldab 000a
2535 957E C1 0B           ..    cmpb #0b
2536 9580 26 09           &.    bne 09
2537 9582 CE 00 1F        ...   ldx #001f
2538 9585 1C 00           ..    bset add,x 00,x
2539 9587 02              .     idiv
2540 9588 7E 96 5A        ~.Z   jmp 965a
2541 958B F6 00 54        ..T   ldab 0054
2542 958E 26 26           &&    bne 26
2543 9590 BD BE 4B        ..K   jsr be4b             ;jump1
2544 9593 F6 00 0A        ...   ldab 000a
2545 9596 C1 0A           ..    cmpb #0a
2546 9598 26 03           &.    bne 03
2547 959A 7F 00 0A        ...   clr 000a
2548 959D F6 00 0A        ...   ldab 000a
2549 95A0 CB 30           .0    addb #30
2550 95A2 37              7     pshb
2551 95A3 CC 0B 95        ...   ldd #0b95
2552 95A6 F0 00 54        ..T   subb 0054
2553 95A9 82 00           ..    sbca #00
2554 95AB 8F              .     xgdx
2555 95AC 33              3     pulb
2556 95AD E7 00           ..    stb 00,x
2557 95AF C6 32           .2    ldab #32
2558 95B1 F7 00 3A        ..:   stb 003a
2559 95B4 20 37            7    bra 37
2560 95B6 F6 00 54        ..T   ldab 0054
2561 95B9 C1 01           ..    cmpb #01
2562 95BB 26 27           &'    bne 27
2563 95BD F6 00 0A        ...   ldab 000a
2564 95C0 C1 05           ..    cmpb #05
2565 95C2 27 20           '     beq 20
2566 95C4 F6 00 0A        ...   ldab 000a
2567 95C7 C1 0A           ..    cmpb #0a
2568 95C9 27 19           '.    beq 19
2569 95CB F6 00 0A        ...   ldab 000a
2570 95CE CB 30           .0    addb #30
2571 95D0 37              7     pshb
2572 95D1 CC 0B 95        ...   ldd #0b95
2573 95D4 F0 00 54        ..T   subb 0054
2574 95D7 82 00           ..    sbca #00
2575 95D9 8F              .     xgdx
2576 95DA 33              3     pulb
2577 95DB E7 00           ..    stb 00,x
2578 95DD C6 32           .2    ldab #32
2579 95DF F7 00 3A        ..:   stb 003a
2580 95E2 20 09            .    bra 09
2581 95E4 CE 00 19        ...   ldx #0019
2582 95E7 1C 00           ..    bset add,x 00,x
2583 95E9 80 7F           ..    suba #7f
2584 95EB 00              .     test
2585 95EC 3A              :     abx
2586 95ED BD BE 01        ...   jsr be01
2587 95F0 7C 00 54        |.T   inc 0054
2588 95F3 F6 00 54        ..T   ldab 0054
2589 95F6 C1 02           ..    cmpb #02
2590 95F8 26 5A           &Z    bne 5a
2591 95FA CE 00 1D        ...   ldx #001d
2592 95FD 1C 00           ..    bset add,x 00,x
2593 95FF 80 F6           ..    suba #f6
2594 9601 0B              .     sev
2595 9602 94 CB D0        ...   anda cb
2596 9605 37              7     pshb
2597 9606 F6 0B 95        ...   ldab 0b95
2598 9609 CB D0           ..    addb #d0
2599 960B 86 0A           ..    ldaa #0a
2600 960D 3D              =     mul
2601 960E 30              0     tsx
2602 960F EB 00           ..    addb 00,x
2603 9611 31              1     ins
2604 9612 F7 00 06        ...   stb 0006
2605 9615 C6 32           .2    ldab #32
2606 9617 F7 00 3A        ..:   stb 003a
2607 961A F6 00 06        ...   ldab 0006
2608 961D BD D7 A0        ...   jsr d7a0             ;jump10
2609 9620 83 00 00        ...   subd #0000
2610 9623 26 21           &!    bne 21
2611 9625 BD D3 11        ...   jsr d311
2612 9628 83 00 00        ...   subd #0000
2613 962B 26 0B           &.    bne 0b
2614 962D CE 00 1F        ...   ldx #001f
2615 9630 1C 00           ..    bset add,x 00,x
2616 9632 40              @     nega
2617 9633 BD 8C 73        ..s   jsr 8c73
2618 9636 20 06            .    bra 06
2619 9638 CE 00 1F        ...   ldx #001f
2620 963B 1D 00           ..    bclr add,x 00,x
2621 963D 40              @     nega
2622 963E 7F 00 2C        ..,   clr 002c
2623 9641 BD 9A 47        ..G   jsr 9a47
2624 9644 20 0C            .    bra 0c
2625 9646 CE 00 1D        ...   ldx #001d
2626 9649 1D 00           ..    bclr add,x 00,x
2627 964B 80 CE           ..    suba #ce
2628 964D 00              .     test
2629 964E 19              .     daa
2630 964F 1C 00           ..    bset add,x 00,x
2631 9651 80 20           .     suba #20
2632 9653 06              .     tap
2633 9654 CE 00 1D        ...   ldx #001d
2634 9657 1D 00           ..    bclr add,x 00,x
2635 9659 80 20           .     suba #20
2636 965B 2B F6           +.    bmi f6
2637 965D 00              .     test
2638 965E 1D 2C           .,    bclr add,x 2c,x
2639 9660 26 BD           &.    bne bd
2640 9662 D2 13 83        ...   sbcb 13
2641 9665 00              .     test
2642 9666 00              .     test
2643 9667 26 0F           &.    bne 0f
2644 9669 CC 00 64        ..d   ldd #0064
2645 966C BD E5 71        ..q   jsr e571             ;jump13
2646 966F BD E5 D1        ...   jsr e5d1
2647 9672 CC 03 84        ...   ldd #0384
2648 9675 BD E5 71        ..q   jsr e571             ;jump13
2649 9678 7F 00 2E        ...   clr 002e
2650 967B CE 00 1D        ...   ldx #001d
2651 967E 1D 00           ..    bclr add,x 00,x
2652 9680 80 CE           ..    suba #ce
2653 9682 00              .     test
2654 9683 1F 1C 00 02     ....  brclr 1c,x 00 02
2655 9687 39              9     rts
2656
2657 9688 34              4     des
2658 9689 F6 00 19        ...   ldab 0019
2659 968C 2C 19           ,.    bge 19
2660 968E CE 00 19        ...   ldx #0019
2661 9691 1D 00           ..    bclr add,x 00,x
2662 9693 80 CC           ..    suba #cc
2663 9695 B0 97 BD        ...   suba 97bd
2664 9698 C0 BA           ..    subb #ba
2665 969A C6 0A           ..    ldab #0a
2666 969C F7 00 38        ..8   stb 0038
2667 969F 7F 00 05        ...   clr 0005
2668 96A2 C6 01           ..    ldab #01
2669 96A4 F7 00 06        ...   stb 0006
2670 96A7 F6 00 0A        ...   ldab 000a
2671 96AA C1 0B           ..    cmpb #0b
2672 96AC 26 0C           &.    bne 0c
2673 96AE CC 02 33        ..3   ldd #0233
2674 96B1 FD 00 3B        ..;   stad 003b
2675 96B4 CE 00 1F        ...   ldx #001f
2676 96B7 1C 00           ..    bset add,x 00,x
2677 96B9 02              .     idiv
2678 96BA F6 00 38        ..8   ldab 0038
2679 96BD 27 03           '.    beq 03
2680 96BF 7E 97 6D        ~.m   jmp 976d
2681 96C2 F6 00 06        ...   ldab 0006
2682 96C5 C1 63           .c    cmpb #63
2683 96C7 23 03           #.    bls 03
2684 96C9 7E 97 6D        ~.m   jmp 976d
2685 96CC F6 00 06        ...   ldab 0006
2686 96CF C1 63           .c    cmpb #63
2687 96D1 26 0F           &.    bne 0f
2688 96D3 BD 99 C3        ...   jsr 99c3
2689 96D6 CC 07 D0        ...   ldd #07d0
2690 96D9 BD E5 71        ..q   jsr e571             ;jump13
2691 96DC CE 00 1F        ...   ldx #001f
2692 96DF 1C 00           ..    bset add,x 00,x
2693 96E1 02              .     idiv
2694 96E2 BD D3 11        ...   jsr d311
2695 96E5 83 00 00        ...   subd #0000
2696 96E8 26 0B           &.    bne 0b
2697 96EA CE 00 1F        ...   ldx #001f
2698 96ED 1C 00           ..    bset add,x 00,x
2699 96EF 40              @     nega
2700 96F0 BD 8C 73        ..s   jsr 8c73
2701 96F3 20 06            .    bra 06
2702 96F5 CE 00 1F        ...   ldx #001f
2703 96F8 1D 00           ..    bclr add,x 00,x
2704 96FA 40              @     nega
2705 96FB BD 9A 47        ..G   jsr 9a47
2706 96FE F6 00 06        ...   ldab 0006
2707 9701 C1 63           .c    cmpb #63
2708 9703 26 03           &.    bne 03
2709 9705 7F 00 2C        ..,   clr 002c
2710 9708 BD D2 13        ...   jsr d213
2711 970B 83 00 00        ...   subd #0000
2712 970E 27 03           '.    beq 03
2713 9710 7C 00 05        |..   inc 0005
2714 9713 7F 00 2E        ...   clr 002e
2715 9716 C6 05           ..    ldab #05
2716 9718 F7 00 38        ..8   stb 0038
2717 971B CC 02 33        ..3   ldd #0233
2718 971E FD 00 3B        ..;   stad 003b
2719 9721 30              0     tsx
2720 9722 6F 00           o.    clr 00,x
2721 9724 F6 0E 6D        ..m   ldab 0e6d
2722 9727 27 0C           '.    beq 0c
2723 9729 F6 00 06        ...   ldab 0006
2724 972C C1 3E           .>    cmpb #3e
2725 972E 26 05           &.    bne 05
2726 9730 C6 01           ..    ldab #01
2727 9732 30              0     tsx
2728 9733 E7 00           ..    stb 00,x
2729 9735 8D 38           .8    bsr dest 38
2730 9737 F6 0E 6D        ..m   ldab 0e6d
2731 973A 27 0C           '.    beq 0c
2732 973C 30              0     tsx
2733 973D E6 00           ..    ldab 00,x
2734 973F C1 01           ..    cmpb #01
2735 9741 26 05           &.    bne 05
2736 9743 C6 45           .E    ldab #45
2737 9745 F7 00 06        ...   stb 0006
2738 9748 F6 00 06        ...   ldab 0006
2739 974B BD D7 A0        ...   jsr d7a0             ;jump10
2740 974E 83 00 00        ...   subd #0000
2741 9751 27 15           '.    beq 15
2742 9753 F6 00 06        ...   ldab 0006
2743 9756 C1 09           ..    cmpb #09
2744 9758 26 02           &.    bne 02
2745 975A 8D 13           ..    bsr dest 13
2746 975C F6 00 06        ...   ldab 0006
2747 975F C1 45           .E    cmpb #45
2748 9761 26 05           &.    bne 05
2749 9763 C6 63           .c    ldab #63
2750 9765 F7 00 06        ...   stb 0006
2751 9768 5F              _     clrb
2752 9769 4F              O     clra
2753 976A FD 00 40        ..@   stad 0040
2754 976D 31              1     ins
2755 976E 39              9     rts
2756
2757 976F F6 0E 6D        ..m   ldab 0e6d
2758 9772 C1 01           ..    cmpb #01
2759 9774 26 41           &A    bne 41
2760 9776 F6 00 06        ...   ldab 0006
2761 9779 4F              O     clra
2762 977A CE 00 0A        ...   ldx #000a
2763 977D 02              .     idiv
2764 977E C1 01           ..    cmpb #01
2765 9780 26 05           &.    bne 05
2766 9782 7C 00 06        |..   inc 0006
2767 9785 20 1B            .    bra 1b
2768 9787 F6 00 06        ...   ldab 0006
2769 978A 4F              O     clra
2770 978B CE 00 0A        ...   ldx #000a
2771 978E 02              .     idiv
2772 978F C1 02           ..    cmpb #02
2773 9791 26 0A           &.    bne 0a
2774 9793 C6 09           ..    ldab #09
2775 9795 FB 00 06        ...   addb 0006
2776 9798 F7 00 06        ...   stb 0006
2777 979B 20 05            .    bra 05
2778 979D C6 0B           ..    ldab #0b
2779 979F F7 00 06        ...   stb 0006
2780 97A2 F6 00 06        ...   ldab 0006
2781 97A5 C1 3E           .>    cmpb #3e
2782 97A7 22 07           ".    bhi 07
2783 97A9 F6 00 06        ...   ldab 0006
2784 97AC C1 0B           ..    cmpb #0b
2785 97AE 24 05           $.    bcc 05
2786 97B0 C6 0B           ..    ldab #0b
2787 97B2 F7 00 06        ...   stb 0006
2788 97B5 20 31            1    bra 31
2789 97B7 F6 00 06        ...   ldab 0006
2790 97BA CB 0A           ..    addb #0a
2791 97BC F7 00 06        ...   stb 0006
2792 97BF F6 00 06        ...   ldab 0006
2793 97C2 C1 64           .d    cmpb #64
2794 97C4 23 22           #"    bls 22
2795 97C6 F6 00 06        ...   ldab 0006
2796 97C9 CB 9C           ..    addb #9c
2797 97CB CB 01           ..    addb #01
2798 97CD F7 00 06        ...   stb 0006
2799 97D0 F6 00 06        ...   ldab 0006
2800 97D3 C1 05           ..    cmpb #05
2801 97D5 26 05           &.    bne 05
2802 97D7 C6 06           ..    ldab #06
2803 97D9 F7 00 06        ...   stb 0006
2804 97DC F6 00 06        ...   ldab 0006
2805 97DF C1 0A           ..    cmpb #0a
2806 97E1 26 05           &.    bne 05
2807 97E3 C6 01           ..    ldab #01
2808 97E5 F7 00 06        ...   stb 0006
2809 97E8 39              9     rts
2810
2811 97E9 BD BE 4B        ..K   jsr be4b             ;jump1
2812 97EC CC AF E7        ...   ldd #afe7
2813 97EF BD C0 BA        ...   jsr c0ba             ;display:
2814 97F2 BD F4 15        ...   jsr f415
2815 97F5 39              9     rts
2816
2817 97F6 BD BE 4B        ..K   jsr be4b             ;jump1
2818 97F9 F6 00 48        ..H   ldab 0048
2819 97FC 4F              O     clra
2820 97FD BD FE 16        ...   jsr fe16             ;jump2
2821 9800 00              .     test
2822 9801 01              .     nop
2823 9802 00              .     test
2824 9803 03              .     fdiv
2825 9804 98 80 98        ...   eora 80
2826 9807 0E              .     cli
2827 9808 98 2B 98        .+.   eora 2b
2828 980B 48              H     asla
2829 980C 98 65 F6        .e.   eora 65
2830 980F 0C              .     clc
2831 9810 D9 4F BD        .O.   adcb 4f
2832 9813 E7 95           ..    stb 95,x
2833 9815 C6 4E           .N    ldab #4e
2834 9817 F7 0B 99        ...   stb 0b99
2835 981A C6 49           .I    ldab #49
2836 981C F7 0B 98        ...   stb 0b98
2837 981F C6 4B           .K    ldab #4b
2838 9821 F7 0B 97        ...   stb 0b97
2839 9824 C6 4C           .L    ldab #4c
2840 9826 F7 0B 96        ...   stb 0b96
2841 9829 20 55            U    bra 55
2842 982B F6 0C DA        ...   ldab 0cda
2843 982E 4F              O     clra
2844 982F BD E7 95        ...   jsr e795
2845 9832 C6 44           .D    ldab #44
2846 9834 F7 0B 99        ...   stb 0b99
2847 9837 C6 49           .I    ldab #49
2848 9839 F7 0B 98        ...   stb 0b98
2849 983C C6 4D           .M    ldab #4d
2850 983E F7 0B 97        ...   stb 0b97
2851 9841 C6 45           .E    ldab #45
2852 9843 F7 0B 96        ...   stb 0b96
2853 9846 20 38            8    bra 38
2854 9848 F6 0C DB        ...   ldab 0cdb
2855 984B 4F              O     clra
2856 984C BD E7 95        ...   jsr e795
2857 984F C6 51           .Q    ldab #51
2858 9851 F7 0B 99        ...   stb 0b99
2859 9854 C6 55           .U    ldab #55
2860 9856 F7 0B 98        ...   stb 0b98
2861 9859 C6 54           .T    ldab #54
2862 985B F7 0B 97        ...   stb 0b97
2863 985E C6 52           .R    ldab #52
2864 9860 F7 0B 96        ...   stb 0b96
2865 9863 20 1B            .    bra 1b
2866 9865 F6 0C DC        ...   ldab 0cdc
2867 9868 4F              O     clra
2868 9869 BD E7 95        ...   jsr e795
2869 986C C6 44           .D    ldab #44
2870 986E F7 0B 99        ...   stb 0b99
2871 9871 C6 4F           .O    ldab #4f
2872 9873 F7 0B 98        ...   stb 0b98
2873 9876 C6 4C           .L    ldab #4c
2874 9878 F7 0B 97        ...   stb 0b97
2875 987B C6 52           .R    ldab #52
2876 987D F7 0B 96        ...   stb 0b96
2877 9880 C6 53           .S    ldab #53
2878 9882 F7 0B 95        ...   stb 0b95
2879 9885 C6 20           .     ldab #20
2880 9887 F7 0B 94        ...   stb 0b94
2881 988A C6 20           .     ldab #20
2882 988C F7 0B 93        ...   stb 0b93
2883 988F F6 00 5D        ..]   ldab 005d
2884 9892 F7 0B 92        ...   stb 0b92
2885 9895 F6 00 5E        ..^   ldab 005e
2886 9898 F7 0B 91        ...   stb 0b91
2887 989B F6 00 5F        .._   ldab 005f
2888 989E F7 0B 90        ...   stb 0b90
2889 98A1 BD BE 01        ...   jsr be01
2890 98A4 39              9     rts
2891
2892 jump11:
2893 98A5 BD BE 4B        ..K   jsr be4b             ;jump1
2894 98A8 F6 00 54        ..T   ldab 0054
2895 98AB 4F              O     clra
2896 98AC BD E7 95        ...   jsr e795
2897 98AF F6 00 5E        ..^   ldab 005e
2898 98B2 F7 0B 95        ...   stb 0b95
2899 98B5 F6 00 5F        .._   ldab 005f
2900 98B8 F7 0B 94        ...   stb 0b94
2901 98BB BD BE 01        ...   jsr be01
2902 98BE 39              9     rts
2903
2904 98BF F6 00 09        ...   ldab 0009
2905 98C2 C1 00           ..    cmpb #00
2906 98C4 26 05           &.    bne 05
2907 98C6 BD 9E 89        ...   jsr 9e89
2908 98C9 20 33            3    bra 33
2909 98CB C1 01           ..    cmpb #01
2910 98CD 26 1E           &.    bne 1e
2911 98CF F6 00 48        ..H   ldab 0048
2912 98D2 C1 92           ..    cmpb #92
2913 98D4 26 15           &.    bne 15
2914 98D6 F6 00 1F        ...   ldab 001f
2915 98D9 C4 10           ..    andb #10
2916 98DB 26 08           &.    bne 08
2917 98DD CE 00 1F        ...   ldx #001f
2918 98E0 1C 00           ..    bset add,x 00,x
2919 98E2 10              .     sba
2920 98E3 20 06            .    bra 06
2921 98E5 CE 00 1F        ...   ldx #001f
2922 98E8 1D 00           ..    bclr add,x 00,x
2923 98EA 10              .     sba
2924 98EB 20 11            .    bra 11
2925 98ED C1 0B           ..    cmpb #0b
2926 98EF 26 0D           &.    bne 0d
2927 98F1 F6 00 1F        ...   ldab 001f
2928 98F4 C4 10           ..    andb #10
2929 98F6 27 03           '.    beq 03
2930 98F8 BD E9 2B        ..+   jsr e92b
2931 98FB BD 85 AF        ...   jsr 85af             ;jump14
2932 98FE 39              9     rts
2933
2934 98FF F6 00 1F        ...   ldab 001f
2935 9902 C4 02           ..    andb #02
2936 9904 27 13           '.    beq 13
2937 9906 C6 01           ..    ldab #01
2938 9908 F7 00 48        ..H   stb 0048
2939 990B CE 00 1F        ...   ldx #001f
2940 990E 1D 00           ..    bclr add,x 00,x
2941 9910 10              .     sba
2942 9911 CE 00 1F        ...   ldx #001f
2943 9914 1D 00           ..    bclr add,x 00,x
2944 9916 02              .     idiv
2945 9917 20 67            g    bra 67
2946 9919 F6 00 09        ...   ldab 0009
2947 991C 4F              O     clra
2948 991D BD FE 32        ..2   jsr fe32
2949 9920 99 36 00        .6.   adca 36
2950 9923 00              .     test
2951 9924 99 3B 00        .;.   adca 3b
2952 9927 01              .     nop
2953 9928 99 59 00        .Y.   adca 59
2954 992B 09              .     dex
2955 992C 99 73 00        .s.   adca 73
2956 992F 01              .     nop
2957 9930 99 80 FF        ...   adca 80
2958 9933 F5 00 00        ...   bitb 0000
2959 9936 BD 9E 89        ...   jsr 9e89
2960 9939 20 45            E    bra 45
2961 993B F6 00 48        ..H   ldab 0048
2962 993E C1 92           ..    cmpb #92
2963 9940 26 15           &.    bne 15
2964 9942 F6 00 1F        ...   ldab 001f
2965 9945 C4 10           ..    andb #10
2966 9947 26 08           &.    bne 08
2967 9949 CE 00 1F        ...   ldx #001f
2968 994C 1C 00           ..    bset add,x 00,x
2969 994E 10              .     sba
2970 994F 20 06            .    bra 06
2971 9951 CE 00 1F        ...   ldx #001f
2972 9954 1D 00           ..    bclr add,x 00,x
2973 9956 10              .     sba
2974 9957 20 27            '    bra 27
2975 9959 7C 00 48        |.H   inc 0048
2976 995C F6 00 48        ..H   ldab 0048
2977 995F C1 92           ..    cmpb #92
2978 9961 23 0B           #.    bls 0b
2979 9963 C6 01           ..    ldab #01
2980 9965 F7 00 48        ..H   stb 0048
2981 9968 CE 00 1F        ...   ldx #001f
2982 996B 1D 00           ..    bclr add,x 00,x
2983 996D 10              .     sba
2984 996E BD 9E 89        ...   jsr 9e89
2985 9971 20 0D            .    bra 0d
2986 9973 F6 00 1F        ...   ldab 001f
2987 9976 C4 10           ..    andb #10
2988 9978 27 03           '.    beq 03
2989 997A BD E9 2B        ..+   jsr e92b
2990 997D BD 85 AF        ...   jsr 85af             ;jump14
2991 9980 39              9     rts
2992
2993 9981 BD BE 4B        ..K   jsr be4b             ;jump1
2994 9984 F6 00 05        ...   ldab 0005
2995 9987 4F              O     clra
2996 9988 BD E7 95        ...   jsr e795
2997 998B C6 4D           .M    ldab #4d
2998 998D F7 0B 99        ...   stb 0b99
2999 9990 C6 4F           .O    ldab #4f
3000 9992 F7 0B 98        ...   stb 0b98
3001 9995 C6 54           .T    ldab #54
3002 9997 F7 0B 97        ...   stb 0b97
3003 999A C6 4F           .O    ldab #4f
3004 999C F7 0B 96        ...   stb 0b96
3005 999F C6 52           .R    ldab #52
3006 99A1 F7 0B 95        ...   stb 0b95
3007 99A4 C6 53           .S    ldab #53
3008 99A6 F7 0B 94        ...   stb 0b94
3009 99A9 C6 20           .     ldab #20
3010 99AB F7 0B 93        ...   stb 0b93
3011 99AE C6 20           .     ldab #20
3012 99B0 F7 0B 92        ...   stb 0b92
3013 99B3 F6 00 5E        ..^   ldab 005e
3014 99B6 F7 0B 91        ...   stb 0b91
3015 99B9 F6 00 5F        .._   ldab 005f
3016 99BC F7 0B 90        ...   stb 0b90
3017 99BF BD BE 01        ...   jsr be01
3018 99C2 39              9     rts
3019
3020 99C3 BD BE 4B        ..K   jsr be4b             ;jump1
3021 99C6 F6 00 05        ...   ldab 0005
3022 99C9 4F              O     clra
3023 99CA BD E7 95        ...   jsr e795
3024 99CD C6 56           .V    ldab #56
3025 99CF F7 0B 99        ...   stb 0b99
3026 99D2 C6 45           .E    ldab #45
3027 99D4 F7 0B 98        ...   stb 0b98
3028 99D7 C6 4E           .N    ldab #4e
3029 99D9 F7 0B 97        ...   stb 0b97
3030 99DC C6 44           .D    ldab #44
3031 99DE F7 0B 96        ...   stb 0b96
3032 99E1 C6 53           .S    ldab #53
3033 99E3 F7 0B 95        ...   stb 0b95
3034 99E6 C6 20           .     ldab #20
3035 99E8 F7 0B 94        ...   stb 0b94
3036 99EB C6 20           .     ldab #20
3037 99ED F7 0B 93        ...   stb 0b93
3038 99F0 C6 20           .     ldab #20
3039 99F2 F7 0B 92        ...   stb 0b92
3040 99F5 F6 00 5E        ..^   ldab 005e
3041 99F8 F7 0B 91        ...   stb 0b91
3042 99FB F6 00 5F        .._   ldab 005f
3043 99FE F7 0B 90        ...   stb 0b90
3044 9A01 BD BE 01        ...   jsr be01
3045 9A04 39              9     rts
3046
3047 9A05 BD BE 4B        ..K   jsr be4b             ;jump1
3048 9A08 FC 00 52        ..R   ldd 0052
3049 9A0B BD E7 45        ..E   jsr e745
3050 9A0E C6 4F           .O    ldab #4f
3051 9A10 F7 0B 99        ...   stb 0b99
3052 9A13 C6 44           .D    ldab #44
3053 9A15 F7 0B 98        ...   stb 0b98
3054 9A18 C6 44           .D    ldab #44
3055 9A1A F7 0B 97        ...   stb 0b97
3056 9A1D C6 53           .S    ldab #53
3057 9A1F F7 0B 96        ...   stb 0b96
3058 9A22 C6 20           .     ldab #20
3059 9A24 F7 0B 95        ...   stb 0b95
3060 9A27 C6 31           .1    ldab #31
3061 9A29 F7 0B 94        ...   stb 0b94
3062 9A2C C6 2F           ./    ldab #2f
3063 9A2E F7 0B 93        ...   stb 0b93
3064 9A31 F6 00 5D        ..]   ldab 005d
3065 9A34 F7 0B 92        ...   stb 0b92
3066 9A37 F6 00 5E        ..^   ldab 005e
3067 9A3A F7 0B 91        ...   stb 0b91
3068 9A3D F6 00 5F        .._   ldab 005f
3069 9A40 F7 0B 90        ...   stb 0b90
3070 9A43 BD BE 01        ...   jsr be01
3071 9A46 39              9     rts
3072
3073 9A47 BD BE 4B        ..K   jsr be4b             ;jump1
3074 9A4A F6 00 06        ...   ldab 0006
3075 9A4D 4F              O     clra
3076 9A4E BD E7 95        ...   jsr e795
3077 9A51 F6 00 5E        ..^   ldab 005e
3078 9A54 F7 0B 99        ...   stb 0b99
3079 9A57 F6 00 5F        .._   ldab 005f
3080 9A5A F7 0B 98        ...   stb 0b98
3081 9A5D C6 20           .     ldab #20
3082 9A5F F7 0B 97        ...   stb 0b97
3083 9A62 F6 00 1F        ...   ldab 001f
3084 9A65 C4 40           .@    andb #40
3085 9A67 27 45           'E    beq 45
3086 9A69 FC 00 27        ..'   ldd 0027
3087 9A6C BD E7 45        ..E   jsr e745
3088 9A6F F6 00 5A        ..Z   ldab 005a
3089 9A72 F7 0B 96        ...   stb 0b96
3090 9A75 F6 00 5D        ..]   ldab 005d
3091 9A78 F7 0B 95        ...   stb 0b95
3092 9A7B F6 00 5E        ..^   ldab 005e
3093 9A7E F7 0B 94        ...   stb 0b94
3094 9A81 F6 00 5F        .._   ldab 005f
3095 9A84 F7 0B 93        ...   stb 0b93
3096 9A87 F6 00 19        ...   ldab 0019
3097 9A8A C4 10           ..    andb #10
3098 9A8C 27 07           '.    beq 07
3099 9A8E C6 2A           .*    ldab #2a
3100 9A90 F7 0B 92        ...   stb 0b92
3101 9A93 20 05            .    bra 05
3102 9A95 C6 20           .     ldab #20
3103 9A97 F7 0B 92        ...   stb 0b92
3104 9A9A FC 00 46        ..F   ldd 0046
3105 9A9D BD E7 45        ..E   jsr e745
3106 9AA0 F6 00 5E        ..^   ldab 005e
3107 9AA3 F7 0B 91        ...   stb 0b91
3108 9AA6 F6 00 5F        .._   ldab 005f
3109 9AA9 F7 0B 90        ...   stb 0b90
3110 9AAC 20 1E            .    bra 1e
3111 9AAE C6 58           .X    ldab #58
3112 9AB0 F7 0B 96        ...   stb 0b96
3113 9AB3 C6 58           .X    ldab #58
3114 9AB5 F7 0B 95        ...   stb 0b95
3115 9AB8 C6 58           .X    ldab #58
3116 9ABA F7 0B 94        ...   stb 0b94
3117 9ABD C6 58           .X    ldab #58
3118 9ABF F7 0B 93        ...   stb 0b93
3119 9AC2 C6 58           .X    ldab #58
3120 9AC4 F7 0B 91        ...   stb 0b91
3121 9AC7 C6 58           .X    ldab #58
3122 9AC9 F7 0B 90        ...   stb 0b90
3123 9ACC F6 00 13        ...   ldab 0013
3124 9ACF C1 01           ..    cmpb #01
3125 9AD1 23 4C           #L    bls 4c
3126 9AD3 F6 0B 91        ...   ldab 0b91
3127 9AD6 F7 0B 90        ...   stb 0b90
3128 9AD9 F6 0B 92        ...   ldab 0b92
3129 9ADC F7 0B 91        ...   stb 0b91
3130 9ADF F6 0B 93        ...   ldab 0b93
3131 9AE2 F7 0B 92        ...   stb 0b92
3132 9AE5 F6 0B 94        ...   ldab 0b94
3133 9AE8 F7 0B 93        ...   stb 0b93
3134 9AEB F6 00 13        ...   ldab 0013
3135 9AEE C1 02           ..    cmpb #02
3136 9AF0 26 07           &.    bne 07
3137 9AF2 C6 2E           ..    ldab #2e
3138 9AF4 F7 0B 94        ...   stb 0b94
3139 9AF7 20 26            &    bra 26
3140 9AF9 C1 04           ..    cmpb #04
3141 9AFB 26 0D           &.    bne 0d
3142 9AFD F6 0B 95        ...   ldab 0b95
3143 9B00 F7 0B 94        ...   stb 0b94
3144 9B03 C6 2E           ..    ldab #2e
3145 9B05 F7 0B 95        ...   stb 0b95
3146 9B08 20 15            .    bra 15
3147 9B0A C1 08           ..    cmpb #08
3148 9B0C 26 11           &.    bne 11
3149 9B0E F6 0B 95        ...   ldab 0b95
3150 9B11 F7 0B 94        ...   stb 0b94
3151 9B14 F6 0B 96        ...   ldab 0b96
3152 9B17 F7 0B 95        ...   stb 0b95
3153 9B1A C6 2E           ..    ldab #2e
3154 9B1C F7 0B 96        ...   stb 0b96
3155 9B1F F6 00 2C        ..,   ldab 002c
3156 9B22 26 3E           &>    bne 3e
3157 9B24 BD BE 69        ..i   jsr be69             ;jump3
3158 9B27 F6 00 13        ...   ldab 0013
3159 9B2A C1 01           ..    cmpb #01
3160 9B2C 23 2C           #,    bls 2c
3161 9B2E CE 10 28        ..(   ldx #1028
3162 9B31 1C 00           ..    bset add,x 00,x
3163 9B33 40              @     nega
3164 9B34 F6 00 1F        ...   ldab 001f
3165 9B37 C4 40           .@    andb #40
3166 9B39 27 0E           '.    beq 0e
3167 9B3B CE 00 01        ...   ldx #0001
3168 9B3E 3C              <     pshx
3169 9B3F F6 00 5F        .._   ldab 005f
3170 9B42 4F              O     clra
3171 9B43 BD BD B5        ...   jsr bdb5
3172 9B46 38              8     pulx
3173 9B47 20 0B            .    bra 0b
3174 9B49 CE 00 01        ...   ldx #0001
3175 9B4C 3C              <     pshx
3176 9B4D CC 00 58        ..X   ldd #0058
3177 9B50 BD BD B5        ...   jsr bdb5
3178 9B53 38              8     pulx
3179 9B54 CE 10 28        ..(   ldx #1028
3180 9B57 1D 00           ..    bclr add,x 00,x
3181 9B59 40              @     nega
3182 9B5A BD BE 10        ...   jsr be10
3183 9B5D C6 03           ..    ldab #03
3184 9B5F F7 00 2C        ..,   stb 002c
3185 9B62 39              9     rts
3186
3187 9B63 BD BE 4B        ..K   jsr be4b             ;jump1
3188 9B66 FC 00 0D        ...   ldd 000d
3189 9B69 BD E7 45        ..E   jsr e745
3190 9B6C C6 44           .D    ldab #44
3191 9B6E F7 0B 99        ...   stb 0b99
3192 9B71 C6 53           .S    ldab #53
3193 9B73 F7 0B 98        ...   stb 0b98
3194 9B76 C6 43           .C    ldab #43
3195 9B78 F7 0B 97        ...   stb 0b97
3196 9B7B C6 4E           .N    ldab #4e
3197 9B7D F7 0B 96        ...   stb 0b96
3198 9B80 C6 54           .T    ldab #54
3199 9B82 F7 0B 95        ...   stb 0b95
3200 9B85 C6 20           .     ldab #20
3201 9B87 F7 0B 94        ...   stb 0b94
3202 9B8A F6 00 5A        ..Z   ldab 005a
3203 9B8D F7 0B 93        ...   stb 0b93
3204 9B90 F6 00 5D        ..]   ldab 005d
3205 9B93 F7 0B 92        ...   stb 0b92
3206 9B96 F6 00 5E        ..^   ldab 005e
3207 9B99 F7 0B 91        ...   stb 0b91
3208 9B9C F6 00 5F        .._   ldab 005f
3209 9B9F F7 0B 90        ...   stb 0b90
3210 9BA2 F6 00 13        ...   ldab 0013
3211 9BA5 C1 01           ..    cmpb #01
3212 9BA7 23 3C           #<    bls 3c
3213 9BA9 F6 0B 91        ...   ldab 0b91
3214 9BAC F7 0B 90        ...   stb 0b90
3215 9BAF F6 00 13        ...   ldab 0013
3216 9BB2 C1 02           ..    cmpb #02
3217 9BB4 26 07           &.    bne 07
3218 9BB6 C6 2E           ..    ldab #2e
3219 9BB8 F7 0B 91        ...   stb 0b91
3220 9BBB 20 28            (    bra 28
3221 9BBD C1 04           ..    cmpb #04
3222 9BBF 26 0D           &.    bne 0d
3223 9BC1 F6 0B 92        ...   ldab 0b92
3224 9BC4 F7 0B 91        ...   stb 0b91
3225 9BC7 C6 2E           ..    ldab #2e
3226 9BC9 F7 0B 92        ...   stb 0b92
3227 9BCC 20 17            .    bra 17
3228 9BCE C1 08           ..    cmpb #08
3229 9BD0 26 13           &.    bne 13
3230 9BD2 F6 0B 92        ...   ldab 0b92
3231 9BD5 F7 0B 91        ...   stb 0b91
3232 9BD8 F6 0B 93        ...   ldab 0b93
3233 9BDB F7 0B 92        ...   stb 0b92
3234 9BDE C6 2E           ..    ldab #2e
3235 9BE0 F7 0B 93        ...   stb 0b93
3236 9BE3 20 00            .    bra 00
3237 9BE5 F6 00 2C        ..,   ldab 002c
3238 9BE8 26 2A           &*    bne 2a
3239 9BEA BD BE 69        ..i   jsr be69             ;jump3
3240 9BED F6 00 13        ...   ldab 0013
3241 9BF0 C1 01           ..    cmpb #01
3242 9BF2 23 18           #.    bls 18
3243 9BF4 CE 10 28        ..(   ldx #1028
3244 9BF7 1C 00           ..    bset add,x 00,x
3245 9BF9 40              @     nega
3246 9BFA CE 00 01        ...   ldx #0001
3247 9BFD 3C              <     pshx
3248 9BFE F6 00 5F        .._   ldab 005f
3249 9C01 4F              O     clra
3250 9C02 BD BD B5        ...   jsr bdb5
3251 9C05 38              8     pulx
3252 9C06 CE 10 28        ..(   ldx #1028
3253 9C09 1D 00           ..    bclr add,x 00,x
3254 9C0B 40              @     nega
3255 9C0C BD BE 10        ...   jsr be10
3256 9C0F C6 03           ..    ldab #03
3257 9C11 F7 00 2C        ..,   stb 002c
3258 9C14 39              9     rts
3259
3260 9C15 BD BE 4B        ..K   jsr be4b             ;jump1
3261 9C18 F6 00 48        ..H   ldab 0048
3262 9C1B 4F              O     clra
3263 9C1C BD FE 16        ...   jsr fe16             ;jump2
3264 9C1F 00              .     test
3265 9C20 00              .     test
3266 9C21 00              .     test
3267 9C22 0A              .     clv
3268 9C23 9D 29 9C        .).   jsr 29
3269 9C26 3B              ;     rti
3270 9C27 9C 53 9C        .S.   cmpx 53
3271 9C2A 6B              k     illegal
3272 9C2B 9C 83 9C        ...   cmpx 83
3273 9C2E 9B 9C B2        ...   adda 9c
3274 9C31 9C C9 9C        ...   cmpx c9
3275 9C34 E0 9C           ..    subb 9c,x
3276 9C36 F7 9D 0E        ...   stb 9d0e
3277 9C39 9D 23 F6        .#.   jsr 23
3278 9C3C 00              .     test
3279 9C3D 67 C4           g.    asr c4,x
3280 9C3F 02              .     idiv
3281 9C40 27 08           '.    beq 08
3282 9C42 CC AF 00        ...   ldd #af00
3283 9C45 BD C0 BA        ...   jsr c0ba             ;display:
3284 9C48 20 06            .    bra 06
3285 9C4A CC AF 0B        ...   ldd #af0b
3286 9C4D BD C0 BA        ...   jsr c0ba             ;display:
3287 9C50 7E 9D 29        ~.)   jmp 9d29
3288 9C53 F6 00 67        ..g   ldab 0067
3289 9C56 C4 10           ..    andb #10
3290 9C58 27 08           '.    beq 08
3291 9C5A CC AF 42        ..B   ldd #af42
3292 9C5D BD C0 BA        ...   jsr c0ba             ;display:
3293 9C60 20 06            .    bra 06
3294 9C62 CC AF 4D        ..M   ldd #af4d
3295 9C65 BD C0 BA        ...   jsr c0ba             ;display:
3296 9C68 7E 9D 29        ~.)   jmp 9d29
3297 9C6B F6 00 67        ..g   ldab 0067
3298 9C6E C4 20           .     andb #20
3299 9C70 27 08           '.    beq 08
3300 9C72 CC AF 58        ..X   ldd #af58
3301 9C75 BD C0 BA        ...   jsr c0ba             ;display:
3302 9C78 20 06            .    bra 06
3303 9C7A CC AF 63        ..c   ldd #af63
3304 9C7D BD C0 BA        ...   jsr c0ba             ;display:
3305 9C80 7E 9D 29        ~.)   jmp 9d29
3306 9C83 F6 00 67        ..g   ldab 0067
3307 9C86 C4 01           ..    andb #01
3308 9C88 27 08           '.    beq 08
3309 9C8A CC AE EA        ...   ldd #aeea
3310 9C8D BD C0 BA        ...   jsr c0ba             ;display:
3311 9C90 20 06            .    bra 06
3312 9C92 CC AE F5        ...   ldd #aef5
3313 9C95 BD C0 BA        ...   jsr c0ba             ;display:
3314 9C98 7E 9D 29        ~.)   jmp 9d29
3315 9C9B F6 00 67        ..g   ldab 0067
3316 9C9E C4 04           ..    andb #04
3317 9CA0 27 08           '.    beq 08
3318 9CA2 CC AF 16        ...   ldd #af16
3319 9CA5 BD C0 BA        ...   jsr c0ba             ;display:
3320 9CA8 20 06            .    bra 06
3321 9CAA CC AF 21        ..!   ldd #af21
3322 9CAD BD C0 BA        ...   jsr c0ba             ;display:
3323 9CB0 20 77            w    bra 77
3324 9CB2 F6 00 67        ..g   ldab 0067
3325 9CB5 C4 08           ..    andb #08
3326 9CB7 27 08           '.    beq 08
3327 9CB9 CC AF 2C        ..,   ldd #af2c
3328 9CBC BD C0 BA        ...   jsr c0ba             ;display:
3329 9CBF 20 06            .    bra 06
3330 9CC1 CC AF 37        ..7   ldd #af37
3331 9CC4 BD C0 BA        ...   jsr c0ba             ;display:
3332 9CC7 20 60            `    bra 60
3333 9CC9 F6 00 67        ..g   ldab 0067
3334 9CCC C4 40           .@    andb #40
3335 9CCE 27 08           '.    beq 08
3336 9CD0 CC AF 84        ...   ldd #af84
3337 9CD3 BD C0 BA        ...   jsr c0ba             ;display:
3338 9CD6 20 06            .    bra 06
3339 9CD8 CC AF 8F        ...   ldd #af8f
3340 9CDB BD C0 BA        ...   jsr c0ba             ;display:
3341 9CDE 20 49            I    bra 49
3342 9CE0 F6 0E 70        ..p   ldab 0e70
3343 9CE3 C1 01           ..    cmpb #01
3344 9CE5 26 08           &.    bne 08
3345 9CE7 CC AE BE        ...   ldd #aebe
3346 9CEA BD C0 BA        ...   jsr c0ba             ;display:
3347 9CED 20 06            .    bra 06
3348 9CEF CC AE C9        ...   ldd #aec9
3349 9CF2 BD C0 BA        ...   jsr c0ba             ;display:
3350 9CF5 20 32            2    bra 32
3351 9CF7 F6 0E 6F        ..o   ldab 0e6f
3352 9CFA C1 01           ..    cmpb #01
3353 9CFC 26 08           &.    bne 08
3354 9CFE CC AE D4        ...   ldd #aed4
3355 9D01 BD C0 BA        ...   jsr c0ba             ;display:
3356 9D04 20 06            .    bra 06
3357 9D06 CC AE DF        ...   ldd #aedf
3358 9D09 BD C0 BA        ...   jsr c0ba             ;display:
3359 9D0C 20 1B            .    bra 1b
3360 9D0E F6 00 67        ..g   ldab 0067
3361 9D11 2C 08           ,.    bge 08
3362 9D13 CC AF 6E        ..n   ldd #af6e
3363 9D16 BD C0 BA        ...   jsr c0ba             ;display:
3364 9D19 20 06            .    bra 06
3365 9D1B CC AF 79        ..y   ldd #af79
3366 9D1E BD C0 BA        ...   jsr c0ba             ;display:
3367 9D21 20 06            .    bra 06
3368 9D23 CC AF B0        ...   ldd #afb0
3369 9D26 BD C0 BA        ...   jsr c0ba             ;display:
3370 9D29 39              9     rts
3371
3372 9D2A BD BE 4B        ..K   jsr be4b             ;jump1
3373 9D2D F6 00 22        .."   ldab 0022
3374 9D30 4F              O     clra
3375 9D31 BD E7 95        ...   jsr e795
3376 9D34 F6 00 5E        ..^   ldab 005e
3377 9D37 F7 0B 99        ...   stb 0b99
3378 9D3A F6 00 5F        .._   ldab 005f
3379 9D3D F7 0B 98        ...   stb 0b98
3380 9D40 C6 20           .     ldab #20
3381 9D42 F7 0B 97        ...   stb 0b97
3382 9D45 F6 00 24        ..$   ldab 0024
3383 9D48 4F              O     clra
3384 9D49 BD E7 95        ...   jsr e795
3385 9D4C C6 50           .P    ldab #50
3386 9D4E F7 0B 96        ...   stb 0b96
3387 9D51 F6 00 5E        ..^   ldab 005e
3388 9D54 F7 0B 95        ...   stb 0b95
3389 9D57 F6 00 5F        .._   ldab 005f
3390 9D5A F7 0B 94        ...   stb 0b94
3391 9D5D C6 20           .     ldab #20
3392 9D5F F7 0B 93        ...   stb 0b93
3393 9D62 F6 00 2A        ..*   ldab 002a
3394 9D65 4F              O     clra
3395 9D66 BD E7 95        ...   jsr e795
3396 9D69 C6 46           .F    ldab #46
3397 9D6B F7 0B 92        ...   stb 0b92
3398 9D6E F6 00 5E        ..^   ldab 005e
3399 9D71 F7 0B 91        ...   stb 0b91
3400 9D74 F6 00 5F        .._   ldab 005f
3401 9D77 F7 0B 90        ...   stb 0b90
3402 9D7A BD BE 01        ...   jsr be01
3403 9D7D 39              9     rts
3404
3405 9D7E BD BE 4B        ..K   jsr be4b             ;jump1
3406 9D81 F6 00 60        ..`   ldab 0060
3407 9D84 4F              O     clra
3408 9D85 C3 0A 90        ...   addd #0a90
3409 9D88 8F              .     xgdx
3410 9D89 E6 00           ..    ldab 00,x
3411 9D8B F7 0B 99        ...   stb 0b99
3412 9D8E F6 00 60        ..`   ldab 0060
3413 9D91 4F              O     clra
3414 9D92 C3 0A 91        ...   addd #0a91
3415 9D95 8F              .     xgdx
3416 9D96 E6 00           ..    ldab 00,x
3417 9D98 F7 0B 98        ...   stb 0b98
3418 9D9B F6 00 60        ..`   ldab 0060
3419 9D9E 4F              O     clra
3420 9D9F C3 0A 92        ...   addd #0a92
3421 9DA2 8F              .     xgdx
3422 9DA3 E6 00           ..    ldab 00,x
3423 9DA5 F7 0B 97        ...   stb 0b97
3424 9DA8 F6 00 60        ..`   ldab 0060
3425 9DAB 4F              O     clra
3426 9DAC C3 0A 94        ...   addd #0a94
3427 9DAF 8F              .     xgdx
3428 9DB0 E6 00           ..    ldab 00,x
3429 9DB2 F7 0B 95        ...   stb 0b95
3430 9DB5 F6 00 60        ..`   ldab 0060
3431 9DB8 4F              O     clra
3432 9DB9 C3 0A 95        ...   addd #0a95
3433 9DBC 8F              .     xgdx
3434 9DBD E6 00           ..    ldab 00,x
3435 9DBF F7 0B 94        ...   stb 0b94
3436 9DC2 F6 00 60        ..`   ldab 0060
3437 9DC5 4F              O     clra
3438 9DC6 C3 0A 96        ...   addd #0a96
3439 9DC9 8F              .     xgdx
3440 9DCA E6 00           ..    ldab 00,x
3441 9DCC F7 0B 93        ...   stb 0b93
3442 9DCF C6 20           .     ldab #20
3443 9DD1 F7 0B 92        ...   stb 0b92
3444 9DD4 C6 20           .     ldab #20
3445 9DD6 F7 0B 91        ...   stb 0b91
3446 9DD9 F6 00 54        ..T   ldab 0054
3447 9DDC 4F              O     clra
3448 9DDD C3 B4 8F        ...   addd #b48f
3449 9DE0 8F              .     xgdx
3450 9DE1 E6 00           ..    ldab 00,x
3451 9DE3 F7 0B 90        ...   stb 0b90
3452 9DE6 F6 00 38        ..8   ldab 0038
3453 9DE9 C1 03           ..    cmpb #03
3454 9DEB 24 0F           $.    bcc 0f
3455 9DED F6 00 60        ..`   ldab 0060
3456 9DF0 4F              O     clra
3457 9DF1 C3 0A 93        ...   addd #0a93
3458 9DF4 8F              .     xgdx
3459 9DF5 E6 00           ..    ldab 00,x
3460 9DF7 F7 0B 96        ...   stb 0b96
3461 9DFA 20 05            .    bra 05
3462 9DFC C6 1F           ..    ldab #1f
3463 9DFE F7 0B 96        ...   stb 0b96
3464 9E01 BD BE 01        ...   jsr be01
3465 9E04 F6 00 38        ..8   ldab 0038
3466 9E07 26 05           &.    bne 05
3467 9E09 C6 05           ..    ldab #05
3468 9E0B F7 00 38        ..8   stb 0038
3469 9E0E 39              9     rts
3470
3471 9E0F BD BE 4B        ..K   jsr be4b             ;jump1
3472 9E12 F6 00 48        ..H   ldab 0048
3473 9E15 26 15           &.    bne 15
3474 9E17 F6 00 66        ..f   ldab 0066
3475 9E1A 27 08           '.    beq 08
3476 9E1C CC AF C6        ...   ldd #afc6
3477 9E1F BD C0 BA        ...   jsr c0ba             ;display:
3478 9E22 20 06            .    bra 06
3479 9E24 CC AF D1        ...   ldd #afd1
3480 9E27 BD C0 BA        ...   jsr c0ba             ;display:
3481 9E2A 20 5C            \    bra 5c
3482 9E2C C6 4D           .M    ldab #4d
3483 9E2E F7 0B 99        ...   stb 0b99
3484 9E31 C6 45           .E    ldab #45
3485 9E33 F7 0B 98        ...   stb 0b98
3486 9E36 C6 4E           .N    ldab #4e
3487 9E38 F7 0B 97        ...   stb 0b97
3488 9E3B C6 55           .U    ldab #55
3489 9E3D F7 0B 96        ...   stb 0b96
3490 9E40 C6 20           .     ldab #20
3491 9E42 F7 0B 95        ...   stb 0b95
3492 9E45 F6 00 48        ..H   ldab 0048
3493 9E48 CB 30           .0    addb #30
3494 9E4A F7 0B 94        ...   stb 0b94
3495 9E4D F6 00 48        ..H   ldab 0048
3496 9E50 C1 0A           ..    cmpb #0a
3497 9E52 26 05           &.    bne 05
3498 9E54 C6 30           .0    ldab #30
3499 9E56 F7 0B 94        ...   stb 0b94
3500 9E59 C6 20           .     ldab #20
3501 9E5B F7 0B 93        ...   stb 0b93
3502 9E5E C6 4F           .O    ldab #4f
3503 9E60 F7 0B 92        ...   stb 0b92
3504 9E63 F6 00 48        ..H   ldab 0048
3505 9E66 4F              O     clra
3506 9E67 C3 00 68        ..h   addd #0068
3507 9E6A 8F              .     xgdx
3508 9E6B E6 00           ..    ldab 00,x
3509 9E6D 27 0C           '.    beq 0c
3510 9E6F C6 4E           .N    ldab #4e
3511 9E71 F7 0B 91        ...   stb 0b91
3512 9E74 C6 20           .     ldab #20
3513 9E76 F7 0B 90        ...   stb 0b90
3514 9E79 20 0A            .    bra 0a
3515 9E7B C6 46           .F    ldab #46
3516 9E7D F7 0B 91        ...   stb 0b91
3517 9E80 C6 46           .F    ldab #46
3518 9E82 F7 0B 90        ...   stb 0b90
3519 9E85 BD BE 01        ...   jsr be01
3520 9E88 39              9     rts
3521
3522 9E89 BD BE 4B        ..K   jsr be4b             ;jump1
3523 9E8C F6 00 48        ..H   ldab 0048
3524 9E8F 4F              O     clra
3525 9E90 BD FE 16        ...   jsr fe16             ;jump2
3526 9E93 00              .     test
3527 9E94 01              .     nop
3528 9E95 00              .     test
3529 9E96 2D A1           -.    blt a1
3530 9E98 C4 9E           ..    andb #9e
3531 9E9A F5 9E FE        ...   bitb 9efe
3532 9E9D 9F 07 9F        ...   sts 07
3533 9EA0 10              .     sba
3534 9EA1 9F 19 9F        ...   sts 19
3535 9EA4 3B              ;     rti
3536 9EA5 9F 44 9F        .D.   sts 44
3537 9EA8 52              R     illegal
3538 9EA9 9F 5B 9F        .[.   sts 5b
3539 9EAC 69              i     rol
3540 9EAD 9F 72 9F        .r.   sts 72
3541 9EB0 80 9F           ..    suba #9f
3542 9EB2 89 9F           ..    adca #9f
3543 9EB4 97 9F A0        ...   sta 9f
3544 9EB7 9F AE 9F        ...   sts ae
3545 9EBA B7 9F C5        ...   sta 9fc5
3546 9EBD 9F DD 9F        ...   sts dd
3547 9EC0 EB A0           ..    addb a0,x
3548 9EC2 03              .     fdiv
3549 9EC3 A0 11           ..    suba 11,x
3550 9EC5 A0 29           .)    suba 29,x
3551 9EC7 A0 37           .7    suba 37,x
3552 9EC9 A0 54           .T    suba 54,x
3553 9ECB A0 62           .b    suba 62,x
3554 9ECD A0 7F           ..    suba 7f,x
3555 9ECF A0 8D           ..    suba 8d,x
3556 9ED1 A0 96           ..    suba 96,x
3557 9ED3 A0 A4           ..    suba a4,x
3558 9ED5 A0 AD           ..    suba ad,x
3559 9ED7 A0 BC           ..    suba bc,x
3560 9ED9 A0 C5           ..    suba c5,x
3561 9EDB A0 D4           ..    suba d4,x
3562 9EDD A0 DD           ..    suba dd,x
3563 9EDF A0 EC           ..    suba ec,x
3564 9EE1 A0 F5           ..    suba f5,x
3565 9EE3 A1 04           ..    cmpa 04,x
3566 9EE5 A1 26           .&    cmpa 26,x
3567 9EE7 A1 34           .4    cmpa 34,x
3568 9EE9 A1 55           .U    cmpa 55,x
3569 9EEB A1 62           .b    cmpa 62,x
3570 9EED A1 83           ..    cmpa 83,x
3571 9EEF A1 90           ..    cmpa 90,x
3572 9EF1 A1 B1           ..    cmpa b1,x
3573 9EF3 A1 BE           ..    cmpa be,x
3574 9EF5 CC B2 90        ...   ldd #b290
3575 9EF8 BD C0 BA        ...   jsr c0ba             ;display:
3576 9EFB 7E A1 C4        ~..   jmp a1c4
3577 9EFE CC 0C BC        ...   ldd #0cbc
3578 9F01 BD C0 BA        ...   jsr c0ba             ;display:
3579 9F04 7E A1 C4        ~..   jmp a1c4
3580 9F07 CC B2 A2        ...   ldd #b2a2
3581 9F0A BD C0 BA        ...   jsr c0ba             ;display:
3582 9F0D 7E A1 C4        ~..   jmp a1c4
3583 9F10 CC 0C CC        ...   ldd #0ccc
3584 9F13 BD C0 BA        ...   jsr c0ba             ;display:
3585 9F16 7E A1 C4        ~..   jmp a1c4
3586 9F19 C6 41           .A    ldab #41
3587 9F1B F7 0B 99        ...   stb 0b99
3588 9F1E C6 55           .U    ldab #55
3589 9F20 F7 0B 98        ...   stb 0b98
3590 9F23 C6 44           .D    ldab #44
3591 9F25 F7 0B 97        ...   stb 0b97
3592 9F28 C6 54           .T    ldab #54
3593 9F2A F7 0B 96        ...   stb 0b96
3594 9F2D CE 00 00        ...   ldx #0000
3595 9F30 3C              <     pshx
3596 9F31 FC 0C E7        ...   ldd 0ce7
3597 9F34 BD A2 D4        ...   jsr a2d4
3598 9F37 38              8     pulx
3599 9F38 7E A1 C4        ~..   jmp a1c4
3600 9F3B CC B2 C6        ...   ldd #b2c6
3601 9F3E BD C0 BA        ...   jsr c0ba             ;display:
3602 9F41 7E A1 C4        ~..   jmp a1c4
3603 9F44 FE 0D E9        ...   ldx 0de9
3604 9F47 3C              <     pshx
3605 9F48 FC 0D E7        ...   ldd 0de7
3606 9F4B BD A3 41        ..A   jsr a341
3607 9F4E 38              8     pulx
3608 9F4F 7E A1 C4        ~..   jmp a1c4
3609 9F52 CC B2 D8        ...   ldd #b2d8
3610 9F55 BD C0 BA        ...   jsr c0ba             ;display:
3611 9F58 7E A1 C4        ~..   jmp a1c4
3612 9F5B FE 0D ED        ...   ldx 0ded
3613 9F5E 3C              <     pshx
3614 9F5F FC 0D EB        ...   ldd 0deb
3615 9F62 BD A3 41        ..A   jsr a341
3616 9F65 38              8     pulx
3617 9F66 7E A1 C4        ~..   jmp a1c4
3618 9F69 CC B2 EA        ...   ldd #b2ea
3619 9F6C BD C0 BA        ...   jsr c0ba             ;display:
3620 9F6F 7E A1 C4        ~..   jmp a1c4
3621 9F72 FE 0D F1        ...   ldx 0df1
3622 9F75 3C              <     pshx
3623 9F76 FC 0D EF        ...   ldd 0def
3624 9F79 BD A3 41        ..A   jsr a341
3625 9F7C 38              8     pulx
3626 9F7D 7E A1 C4        ~..   jmp a1c4
3627 9F80 CC B2 FC        ...   ldd #b2fc
3628 9F83 BD C0 BA        ...   jsr c0ba             ;display:
3629 9F86 7E A1 C4        ~..   jmp a1c4
3630 9F89 FE 0D F9        ...   ldx 0df9
3631 9F8C 3C              <     pshx
3632 9F8D FC 0D F7        ...   ldd 0df7
3633 9F90 BD A3 41        ..A   jsr a341
3634 9F93 38              8     pulx
3635 9F94 7E A1 C4        ~..   jmp a1c4
3636 9F97 CC B3 0E        ...   ldd #b30e
3637 9F9A BD C0 BA        ...   jsr c0ba             ;display:
3638 9F9D 7E A1 C4        ~..   jmp a1c4
3639 9FA0 FE 0D FD        ...   ldx 0dfd
3640 9FA3 3C              <     pshx
3641 9FA4 FC 0D FB        ...   ldd 0dfb
3642 9FA7 BD A3 41        ..A   jsr a341
3643 9FAA 38              8     pulx
3644 9FAB 7E A1 C4        ~..   jmp a1c4
3645 9FAE CC B3 35        ..5   ldd #b335
3646 9FB1 BD C0 BA        ...   jsr c0ba             ;display:
3647 9FB4 7E A1 C4        ~..   jmp a1c4
3648 9FB7 FE 0D F5        ...   ldx 0df5
3649 9FBA 3C              <     pshx
3650 9FBB FC 0D F3        ...   ldd 0df3
3651 9FBE BD A3 41        ..A   jsr a341
3652 9FC1 38              8     pulx
3653 9FC2 7E A1 C4        ~..   jmp a1c4
3654 9FC5 C6 24           .$    ldab #24
3655 9FC7 F7 0B 99        ...   stb 0b99
3656 9FCA C6 31           .1    ldab #31
3657 9FCC F7 0B 98        ...   stb 0b98
3658 9FCF CE 00 00        ...   ldx #0000
3659 9FD2 3C              <     pshx
3660 9FD3 FC 0C DD        ...   ldd 0cdd
3661 9FD6 BD A2 D4        ...   jsr a2d4
3662 9FD9 38              8     pulx
3663 9FDA 7E A1 C4        ~..   jmp a1c4
3664 9FDD FE 0C F5        ...   ldx 0cf5
3665 9FE0 3C              <     pshx
3666 9FE1 FC 0C F3        ...   ldd 0cf3
3667 9FE4 BD A3 41        ..A   jsr a341
3668 9FE7 38              8     pulx
3669 9FE8 7E A1 C4        ~..   jmp a1c4
3670 9FEB C6 24           .$    ldab #24
3671 9FED F7 0B 99        ...   stb 0b99
3672 9FF0 C6 32           .2    ldab #32
3673 9FF2 F7 0B 98        ...   stb 0b98
3674 9FF5 CE 00 00        ...   ldx #0000
3675 9FF8 3C              <     pshx
3676 9FF9 FC 0C DF        ...   ldd 0cdf
3677 9FFC BD A2 D4        ...   jsr a2d4
3678 9FFF 38              8     pulx
3679 A000 7E A1 C4        ~..   jmp a1c4
3680 A003 FE 0C F9        ...   ldx 0cf9
3681 A006 3C              <     pshx
3682 A007 FC 0C F7        ...   ldd 0cf7
3683 A00A BD A3 41        ..A   jsr a341
3684 A00D 38              8     pulx
3685 A00E 7E A1 C4        ~..   jmp a1c4
3686 A011 C6 24           .$    ldab #24
3687 A013 F7 0B 99        ...   stb 0b99
3688 A016 C6 35           .5    ldab #35
3689 A018 F7 0B 98        ...   stb 0b98
3690 A01B CE 00 00        ...   ldx #0000
3691 A01E 3C              <     pshx
3692 A01F FC 0C E1        ...   ldd 0ce1
3693 A022 BD A2 D4        ...   jsr a2d4
3694 A025 38              8     pulx
3695 A026 7E A1 C4        ~..   jmp a1c4
3696 A029 FE 0C FD        ...   ldx 0cfd
3697 A02C 3C              <     pshx
3698 A02D FC 0C FB        ...   ldd 0cfb
3699 A030 BD A3 41        ..A   jsr a341
3700 A033 38              8     pulx
3701 A034 7E A1 C4        ~..   jmp a1c4
3702 A037 C6 24           .$    ldab #24
3703 A039 F7 0B 99        ...   stb 0b99
3704 A03C C6 31           .1    ldab #31
3705 A03E F7 0B 98        ...   stb 0b98
3706 A041 C6 30           .0    ldab #30
3707 A043 F7 0B 97        ...   stb 0b97
3708 A046 CE 00 00        ...   ldx #0000
3709 A049 3C              <     pshx
3710 A04A FC 0C E3        ...   ldd 0ce3
3711 A04D BD A2 D4        ...   jsr a2d4
3712 A050 38              8     pulx
3713 A051 7E A1 C4        ~..   jmp a1c4
3714 A054 FE 0D 01        ...   ldx 0d01
3715 A057 3C              <     pshx
3716 A058 FC 0C FF        ...   ldd 0cff
3717 A05B BD A3 41        ..A   jsr a341
3718 A05E 38              8     pulx
3719 A05F 7E A1 C4        ~..   jmp a1c4
3720 A062 C6 24           .$    ldab #24
3721 A064 F7 0B 99        ...   stb 0b99
3722 A067 C6 32           .2    ldab #32
3723 A069 F7 0B 98        ...   stb 0b98
3724 A06C C6 30           .0    ldab #30
3725 A06E F7 0B 97        ...   stb 0b97
3726 A071 CE 00 00        ...   ldx #0000
3727 A074 3C              <     pshx
3728 A075 FC 0C E5        ...   ldd 0ce5
3729 A078 BD A2 D4        ...   jsr a2d4
3730 A07B 38              8     pulx
3731 A07C 7E A1 C4        ~..   jmp a1c4
3732 A07F FE 0D 05        ...   ldx 0d05
3733 A082 3C              <     pshx
3734 A083 FC 0D 03        ...   ldd 0d03
3735 A086 BD A3 41        ..A   jsr a341
3736 A089 38              8     pulx
3737 A08A 7E A1 C4        ~..   jmp a1c4
3738 A08D CC B3 B7        ...   ldd #b3b7
3739 A090 BD C0 BA        ...   jsr c0ba             ;display:
3740 A093 7E A1 C4        ~..   jmp a1c4
3741 A096 CE 00 01        ...   ldx #0001
3742 A099 3C              <     pshx
3743 A09A FC 0C F1        ...   ldd 0cf1
3744 A09D BD A2 D4        ...   jsr a2d4
3745 A0A0 38              8     pulx
3746 A0A1 7E A1 C4        ~..   jmp a1c4
3747 A0A4 CC B3 CE        ...   ldd #b3ce
3748 A0A7 BD C0 BA        ...   jsr c0ba             ;display:
3749 A0AA 7E A1 C4        ~..   jmp a1c4
3750 A0AD FE 0C E9        ...   ldx 0ce9
3751 A0B0 3C              <     pshx
3752 A0B1 F6 0C DC        ...   ldab 0cdc
3753 A0B4 4F              O     clra
3754 A0B5 BD A3 1A        ...   jsr a31a
3755 A0B8 38              8     pulx
3756 A0B9 7E A1 C4        ~..   jmp a1c4
3757 A0BC CC B3 E0        ...   ldd #b3e0
3758 A0BF BD C0 BA        ...   jsr c0ba             ;display:
3759 A0C2 7E A1 C4        ~..   jmp a1c4
3760 A0C5 FE 0C EB        ...   ldx 0ceb
3761 A0C8 3C              <     pshx
3762 A0C9 F6 0C DB        ...   ldab 0cdb
3763 A0CC 4F              O     clra
3764 A0CD BD A3 1A        ...   jsr a31a
3765 A0D0 38              8     pulx
3766 A0D1 7E A1 C4        ~..   jmp a1c4
3767 A0D4 CC B3 F2        ...   ldd #b3f2
3768 A0D7 BD C0 BA        ...   jsr c0ba             ;display:
3769 A0DA 7E A1 C4        ~..   jmp a1c4
3770 A0DD FE 0C ED        ...   ldx 0ced
3771 A0E0 3C              <     pshx
3772 A0E1 F6 0C DA        ...   ldab 0cda
3773 A0E4 4F              O     clra
3774 A0E5 BD A3 1A        ...   jsr a31a
3775 A0E8 38              8     pulx
3776 A0E9 7E A1 C4        ~..   jmp a1c4
3777 A0EC CC B4 04        ...   ldd #b404
3778 A0EF BD C0 BA        ...   jsr c0ba             ;display:
3779 A0F2 7E A1 C4        ~..   jmp a1c4
3780 A0F5 FE 0C EF        ...   ldx 0cef
3781 A0F8 3C              <     pshx
3782 A0F9 F6 0C D9        ...   ldab 0cd9
3783 A0FC 4F              O     clra
3784 A0FD BD A3 1A        ...   jsr a31a
3785 A100 38              8     pulx
3786 A101 7E A1 C4        ~..   jmp a1c4
3787 A104 C6 57           .W    ldab #57
3788 A106 F7 0B 99        ...   stb 0b99
3789 A109 C6 53           .S    ldab #53
3790 A10B F7 0B 98        ...   stb 0b98
3791 A10E C6 4E           .N    ldab #4e
3792 A110 F7 0B 97        ...   stb 0b97
3793 A113 C6 4B           .K    ldab #4b
3794 A115 F7 0B 96        ...   stb 0b96
3795 A118 CE 00 00        ...   ldx #0000
3796 A11B 3C              <     pshx
3797 A11C FC 0D 07        ...   ldd 0d07
3798 A11F BD A2 D4        ...   jsr a2d4
3799 A122 38              8     pulx
3800 A123 7E A1 C4        ~..   jmp a1c4
3801 A126 FE 0D 11        ...   ldx 0d11
3802 A129 3C              <     pshx
3803 A12A FC 0D 0F        ...   ldd 0d0f
3804 A12D BD A3 41        ..A   jsr a341
3805 A130 38              8     pulx
3806 A131 7E A1 C4        ~..   jmp a1c4
3807 A134 C6 53           .S    ldab #53
3808 A136 F7 0B 99        ...   stb 0b99
3809 A139 C6 48           .H    ldab #48
3810 A13B F7 0B 98        ...   stb 0b98
3811 A13E C6 50           .P    ldab #50
3812 A140 F7 0B 97        ...   stb 0b97
3813 A143 C6 52           .R    ldab #52
3814 A145 F7 0B 96        ...   stb 0b96
3815 A148 CE 00 00        ...   ldx #0000
3816 A14B 3C              <     pshx
3817 A14C FC 0D 09        ...   ldd 0d09
3818 A14F BD A2 D4        ...   jsr a2d4
3819 A152 38              8     pulx
3820 A153 20 6F            o    bra 6f
3821 A155 FE 0D 15        ...   ldx 0d15
3822 A158 3C              <     pshx
3823 A159 FC 0D 13        ...   ldd 0d13
3824 A15C BD A3 41        ..A   jsr a341
3825 A15F 38              8     pulx
3826 A160 20 62            b    bra 62
3827 A162 C6 50           .P    ldab #50
3828 A164 F7 0B 99        ...   stb 0b99
3829 A167 C6 52           .R    ldab #52
3830 A169 F7 0B 98        ...   stb 0b98
3831 A16C C6 4D           .M    ldab #4d
3832 A16E F7 0B 97        ...   stb 0b97
3833 A171 C6 4F           .O    ldab #4f
3834 A173 F7 0B 96        ...   stb 0b96
3835 A176 CE 00 00        ...   ldx #0000
3836 A179 3C              <     pshx
3837 A17A FC 0D 0B        ...   ldd 0d0b
3838 A17D BD A2 D4        ...   jsr a2d4
3839 A180 38              8     pulx
3840 A181 20 41            A    bra 41
3841 A183 FE 0D 19        ...   ldx 0d19
3842 A186 3C              <     pshx
3843 A187 FC 0D 17        ...   ldd 0d17
3844 A18A BD A3 41        ..A   jsr a341
3845 A18D 38              8     pulx
3846 A18E 20 34            4    bra 34
3847 A190 C6 46           .F    ldab #46
3848 A192 F7 0B 99        ...   stb 0b99
3849 A195 C6 52           .R    ldab #52
3850 A197 F7 0B 98        ...   stb 0b98
3851 A19A C6 45           .E    ldab #45
3852 A19C F7 0B 97        ...   stb 0b97
3853 A19F C6 45           .E    ldab #45
3854 A1A1 F7 0B 96        ...   stb 0b96
3855 A1A4 CE 00 00        ...   ldx #0000
3856 A1A7 3C              <     pshx
3857 A1A8 FC 0D 0D        ...   ldd 0d0d
3858 A1AB BD A2 D4        ...   jsr a2d4
3859 A1AE 38              8     pulx
3860 A1AF 20 13            .    bra 13
3861 A1B1 FE 0D 1D        ...   ldx 0d1d
3862 A1B4 3C              <     pshx
3863 A1B5 FC 0D 1B        ...   ldd 0d1b
3864 A1B8 BD A3 41        ..A   jsr a341
3865 A1BB 38              8     pulx
3866 A1BC 20 06            .    bra 06
3867 A1BE CC B4 84        ...   ldd #b484
3868 A1C1 BD C0 BA        ...   jsr c0ba             ;display:
3869 A1C4 F6 00 48        ..H   ldab 0048
3870 A1C7 C1 2E           ..    cmpb #2e
3871 A1C9 23 74           #t    bls 74
3872 A1CB F6 00 48        ..H   ldab 0048
3873 A1CE C1 92           ..    cmpb #92
3874 A1D0 24 6D           $m    bcc 6d
3875 A1D2 F6 00 48        ..H   ldab 0048
3876 A1D5 4F              O     clra
3877 A1D6 05              .     asld
3878 A1D7 C3 08 6C        ..l   addd #086c
3879 A1DA 8F              .     xgdx
3880 A1DB EC 00           ..    ldd 00,x
3881 A1DD C4 80           ..    andb #80
3882 A1DF 26 0E           &.    bne 0e
3883 A1E1 7C 00 48        |.H   inc 0048
3884 A1E4 F6 00 48        ..H   ldab 0048
3885 A1E7 C1 92           ..    cmpb #92
3886 A1E9 26 02           &.    bne 02
3887 A1EB 20 02            .    bra 02
3888 A1ED 20 E3            .    bra e3
3889 A1EF F6 00 48        ..H   ldab 0048
3890 A1F2 4F              O     clra
3891 A1F3 C3 FF D2        ...   addd #ffd2
3892 A1F6 BD E7 95        ...   jsr e795
3893 A1F9 F6 00 5E        ..^   ldab 005e
3894 A1FC F7 0B 99        ...   stb 0b99
3895 A1FF F6 00 5F        .._   ldab 005f
3896 A202 F7 0B 98        ...   stb 0b98
3897 A205 F6 00 48        ..H   ldab 0048
3898 A208 4F              O     clra
3899 A209 05              .     asld
3900 A20A C3 0C C3        ...   addd #0cc3
3901 A20D 8F              .     xgdx
3902 A20E EC 00           ..    ldd 00,x
3903 A210 BD E7 45        ..E   jsr e745
3904 A213 F6 00 57        ..W   ldab 0057
3905 A216 F7 0B 94        ...   stb 0b94
3906 A219 F6 00 5A        ..Z   ldab 005a
3907 A21C F7 0B 93        ...   stb 0b93
3908 A21F F6 00 5D        ..]   ldab 005d
3909 A222 F7 0B 92        ...   stb 0b92
3910 A225 F6 00 5E        ..^   ldab 005e
3911 A228 F7 0B 91        ...   stb 0b91
3912 A22B F6 00 5F        .._   ldab 005f
3913 A22E F7 0B 90        ...   stb 0b90
3914 A231 5F              _     clrb
3915 A232 4F              O     clra
3916 A233 8D 27           .'    bsr dest 27
3917 A235 F6 00 48        ..H   ldab 0048
3918 A238 C1 92           ..    cmpb #92
3919 A23A 26 03           &.    bne 03
3920 A23C 7F 00 2C        ..,   clr 002c
3921 A23F F6 00 48        ..H   ldab 0048
3922 A242 C1 92           ..    cmpb #92
3923 A244 26 15           &.    bne 15
3924 A246 F6 00 1F        ...   ldab 001f
3925 A249 C4 10           ..    andb #10
3926 A24B 27 08           '.    beq 08
3927 A24D CC AF 9A        ...   ldd #af9a
3928 A250 BD C0 BA        ...   jsr c0ba             ;display:
3929 A253 20 06            .    bra 06
3930 A255 CC AF A5        ...   ldd #afa5
3931 A258 BD C0 BA        ...   jsr c0ba             ;display:
3932 A25B 39              9     rts
3933 A25C 37              7     pshb
3934 A25D 36              6     psha
3935 A25E F6 00 2C        ..,   ldab 002c
3936 A261 26 6F           &o    bne 6f
3937 A263 BD BE 69        ..i   jsr be69             ;jump3
3938 A266 30              0     tsx
3939 A267 E6 01           ..    ldab 01,x
3940 A269 27 5F           '_    beq 5f
3941 A26B F6 00 13        ...   ldab 0013
3942 A26E C1 01           ..    cmpb #01
3943 A270 23 58           #X    bls 58
3944 A272 CE 10 28        ..(   ldx #1028
3945 A275 1C 00           ..    bset add,x 00,x
3946 A277 40              @     nega
3947 A278 CE 00 01        ...   ldx #0001
3948 A27B 3C              <     pshx
3949 A27C F6 0B 90        ...   ldab 0b90
3950 A27F 4F              O     clra
3951 A280 BD BD B5        ...   jsr bdb5
3952 A283 38              8     pulx
3953 A284 CE 10 28        ..(   ldx #1028
3954 A287 1D 00           ..    bclr add,x 00,x
3955 A289 40              @     nega
3956 A28A F6 0B 91        ...   ldab 0b91
3957 A28D F7 0B 90        ...   stb 0b90
3958 A290 F6 00 13        ...   ldab 0013
3959 A293 C1 02           ..    cmpb #02
3960 A295 26 07           &.    bne 07
3961 A297 C6 2E           ..    ldab #2e
3962 A299 F7 0B 91        ...   stb 0b91
3963 A29C 20 2C            ,    bra 2c
3964 A29E F6 00 13        ...   ldab 0013
3965 A2A1 C1 04           ..    cmpb #04
3966 A2A3 26 0D           &.    bne 0d
3967 A2A5 F6 0B 92        ...   ldab 0b92
3968 A2A8 F7 0B 91        ...   stb 0b91
3969 A2AB C6 2E           ..    ldab #2e
3970 A2AD F7 0B 92        ...   stb 0b92
3971 A2B0 20 18            .    bra 18
3972 A2B2 F6 00 13        ...   ldab 0013
3973 A2B5 C1 08           ..    cmpb #08
3974 A2B7 26 11           &.    bne 11
3975 A2B9 F6 0B 92        ...   ldab 0b92
3976 A2BC F7 0B 91        ...   stb 0b91
3977 A2BF F6 0B 93        ...   ldab 0b93
3978 A2C2 F7 0B 92        ...   stb 0b92
3979 A2C5 C6 2E           ..    ldab #2e
3980 A2C7 F7 0B 93        ...   stb 0b93
3981 A2CA BD BE 10        ...   jsr be10
3982 A2CD C6 03           ..    ldab #03
3983 A2CF F7 00 2C        ..,   stb 002c
3984 A2D2 38              8     pulx
3985 A2D3 39              9     rts
3986 A2D4 37              7     pshb
3987 A2D5 36              6     psha
3988 A2D6 30              0     tsx
3989 A2D7 EC 00           ..    ldd 00,x
3990 A2D9 BD E7 45        ..E   jsr e745
3991 A2DC F6 00 57        ..W   ldab 0057
3992 A2DF F7 0B 94        ...   stb 0b94
3993 A2E2 F6 00 5A        ..Z   ldab 005a
3994 A2E5 F7 0B 93        ...   stb 0b93
3995 A2E8 F6 00 5D        ..]   ldab 005d
3996 A2EB F7 0B 92        ...   stb 0b92
3997 A2EE F6 00 5E        ..^   ldab 005e
3998 A2F1 F7 0B 91        ...   stb 0b91
3999 A2F4 F6 00 5F        .._   ldab 005f
4000 A2F7 F7 0B 90        ...   stb 0b90
4001 A2FA 30              0     tsx
4002 A2FB E6 05           ..    ldab 05,x
4003 A2FD 27 14           '.    beq 14
4004 A2FF F6 00 17        ...   ldab 0017
4005 A302 C4 08           ..    andb #08
4006 A304 26 05           &.    bne 05
4007 A306 C6 24           .$    ldab #24
4008 A308 F7 0B 95        ...   stb 0b95
4009 A30B CC 00 01        ...   ldd #0001
4010 A30E BD A2 5C        ..\   jsr a25c
4011 A311 20 05            .    bra 05
4012 A313 5F              _     clrb
4013 A314 4F              O     clra
4014 A315 BD A2 5C        ..\   jsr a25c
4015 A318 38              8     pulx
4016 A319 39              9     rts
4017 A31A 37              7     pshb
4018 A31B 36              6     psha
4019 A31C 30              0     tsx
4020 A31D E6 01           ..    ldab 01,x
4021 A31F 4F              O     clra
4022 A320 BD E7 95        ...   jsr e795
4023 A323 F6 00 5D        ..]   ldab 005d
4024 A326 F7 0B 99        ...   stb 0b99
4025 A329 F6 00 5E        ..^   ldab 005e
4026 A32C F7 0B 98        ...   stb 0b98
4027 A32F F6 00 5F        .._   ldab 005f
4028 A332 F7 0B 97        ...   stb 0b97
4029 A335 CE 00 01        ...   ldx #0001
4030 A338 3C              <     pshx
4031 A339 30              0     tsx
4032 A33A EC 06           ..    ldd 06,x
4033 A33C 8D 96           ..    bsr dest 96
4034 A33E 38              8     pulx
4035 A33F 38              8     pulx
4036 A340 39              9     rts
4037 A341 38              8     pulx
4038 A342 37              7     pshb
4039 A343 36              6     psha
4040 A344 3C              <     pshx
4041 A345 30              0     tsx
4042 A346 EC 04           ..    ldd 04,x
4043 A348 37              7     pshb
4044 A349 36              6     psha
4045 A34A EC 02           ..    ldd 02,x
4046 A34C BD E6 21        ..!   jsr e621
4047 A34F 38              8     pulx
4048 A350 C6 20           .     ldab #20
4049 A352 F7 0B 99        ...   stb 0b99
4050 A355 F6 00 17        ...   ldab 0017
4051 A358 C4 08           ..    andb #08
4052 A35A 26 05           &.    bne 05
4053 A35C C6 24           .$    ldab #24
4054 A35E F7 0B 98        ...   stb 0b98
4055 A361 CC 00 01        ...   ldd #0001
4056 A364 BD A2 5C        ..\   jsr a25c
4057 A367 38              8     pulx
4058 A368 31              1     ins
4059 A369 31              1     ins
4060 A36A 6E 00           n.    jmp 00,x
4061 A36C BD BE 4B        ..K   jsr be4b             ;jump1
4062 A36F CC AF DC        ...   ldd #afdc
4063 A372 BD C0 BA        ...   jsr c0ba             ;display:
4064 A375 CC 01 F4        ...   ldd #01f4
4065 A378 BD E5 71        ..q   jsr e571             ;jump13
4066 A37B 39              9     rts
4067 A37C FC 00 52        ..R   ldd 0052
4068 A37F FD 0B B5        ...   stad 0bb5
4069 A382 8D E8           ..    bsr dest e8
4070 A384 39              9     rts
4071 A385 F6 00 1F        ...   ldab 001f
4072 A388 C4 40           .@    andb #40
4073 A38A 27 73           's    beq 73
4074 A38C F6 00 06        ...   ldab 0006
4075 A38F 4F              O     clra
4076 A390 05              .     asld
4077 A391 C3 08 00        ...   addd #0800
4078 A394 8F              .     xgdx
4079 A395 EC 00           ..    ldd 00,x
4080 A397 5F              _     clrb
4081 A398 84 C0           ..    anda #c0
4082 A39A FA 00 28        ..(   orb 0028
4083 A39D BA 00 27        ..'   ora 0027
4084 A3A0 FD 00 27        ..'   stad 0027
4085 A3A3 FC 00 27        ..'   ldd 0027
4086 A3A6 37              7     pshb
4087 A3A7 36              6     psha
4088 A3A8 F6 00 06        ...   ldab 0006
4089 A3AB 4F              O     clra
4090 A3AC 05              .     asld
4091 A3AD C3 08 00        ...   addd #0800
4092 A3B0 38              8     pulx
4093 A3B1 8F              .     xgdx
4094 A3B2 ED 00           ..    stad 00,x
4095 A3B4 FC 00 27        ..'   ldd 0027
4096 A3B7 43              C     coma
4097 A3B8 53              S     comb
4098 A3B9 37              7     pshb
4099 A3BA 36              6     psha
4100 A3BB F6 00 06        ...   ldab 0006
4101 A3BE 4F              O     clra
4102 A3BF 05              .     asld
4103 A3C0 C3 0B F1        ...   addd #0bf1
4104 A3C3 38              8     pulx
4105 A3C4 8F              .     xgdx
4106 A3C5 ED 00           ..    stad 00,x
4107 A3C7 F6 00 06        ...   ldab 0006
4108 A3CA 4F              O     clra
4109 A3CB 05              .     asld
4110 A3CC C3 08 C8        ...   addd #08c8
4111 A3CF 8F              .     xgdx
4112 A3D0 EC 00           ..    ldd 00,x
4113 A3D2 C4 80           ..    andb #80
4114 A3D4 84 F7           ..    anda #f7
4115 A3D6 FA 00 47        ..G   orb 0047
4116 A3D9 BA 00 46        ..F   ora 0046
4117 A3DC FD 00 46        ..F   stad 0046
4118 A3DF F6 00 19        ...   ldab 0019
4119 A3E2 C4 10           ..    andb #10
4120 A3E4 27 06           '.    beq 06
4121 A3E6 CE 00 46        ..F   ldx #0046
4122 A3E9 1C 00           ..    bset add,x 00,x
4123 A3EB 08              .     inx
4124 A3EC FC 00 46        ..F   ldd 0046
4125 A3EF 37              7     pshb
4126 A3F0 36              6     psha
4127 A3F1 F6 00 06        ...   ldab 0006
4128 A3F4 4F              O     clra
4129 A3F5 05              .     asld
4130 A3F6 C3 08 C8        ...   addd #08c8
4131 A3F9 38              8     pulx
4132 A3FA 8F              .     xgdx
4133 A3FB ED 00           ..    stad 00,x
4134 A3FD 20 22            "    bra 22
4135 A3FF CC 2A FF        .*.   ldd #2aff
4136 A402 37              7     pshb
4137 A403 36              6     psha
4138 A404 F6 00 06        ...   ldab 0006
4139 A407 4F              O     clra
4140 A408 05              .     asld
4141 A409 C3 08 00        ...   addd #0800
4142 A40C 38              8     pulx
4143 A40D 8F              .     xgdx
4144 A40E ED 00           ..    stad 00,x
4145 A410 CC D5 00        ...   ldd #d500
4146 A413 37              7     pshb
4147 A414 36              6     psha
4148 A415 F6 00 06        ...   ldab 0006
4149 A418 4F              O     clra
4150 A419 05              .     asld
4151 A41A C3 0B F1        ...   addd #0bf1
4152 A41D 38              8     pulx
4153 A41E 8F              .     xgdx
4154 A41F ED 00           ..    stad 00,x
4155 A421 F6 00 1F        ...   ldab 001f
4156 A424 C4 40           .@    andb #40
4157 A426 27 26           '&    beq 26
4158 A428 F6 00 06        ...   ldab 0006
4159 A42B 4F              O     clra
4160 A42C 05              .     asld
4161 A42D C3 08 00        ...   addd #0800
4162 A430 8F              .     xgdx
4163 A431 EC 00           ..    ldd 00,x
4164 A433 C4 FF           ..    andb #ff
4165 A435 84 3F           .?    anda #3f
4166 A437 FD 00 27        ..'   stad 0027
4167 A43A F6 00 06        ...   ldab 0006
4168 A43D 4F              O     clra
4169 A43E 05              .     asld
4170 A43F C3 08 C8        ...   addd #08c8
4171 A442 8F              .     xgdx
4172 A443 EC 00           ..    ldd 00,x
4173 A445 C4 7F           ..    andb #7f
4174 A447 4F              O     clra
4175 A448 FD 00 46        ..F   stad 0046
4176 A44B BD A3 6C        ..l   jsr a36c
4177 A44E 39              9     rts
4178 A44F FC 00 0D        ...   ldd 000d
4179 A452 FD 0B B7        ...   stad 0bb7
4180 A455 BD A3 6C        ..l   jsr a36c
4181 A458 39              9     rts
4182 A459 3C              <     pshx
4183 A45A F6 00 67        ..g   ldab 0067
4184 A45D C4 02           ..    andb #02
4185 A45F 27 08           '.    beq 08
4186 A461 CE 00 67        ..g   ldx #0067
4187 A464 1D 00           ..    bclr add,x 00,x
4188 A466 4D              M     tsta
4189 A467 20 0C            .    bra 0c
4190 A469 CE 00 67        ..g   ldx #0067
4191 A46C 1D 00           ..    bclr add,x 00,x
4192 A46E 10              .     sba
4193 A46F CE 00 67        ..g   ldx #0067
4194 A472 1D 00           ..    bclr add,x 00,x
4195 A474 20 F6            .    bra f6
4196 A476 00              .     test
4197 A477 67 C4           g.    asr c4,x
4198 A479 10              .     sba
4199 A47A 26 06           &.    bne 06
4200 A47C CE 00 67        ..g   ldx #0067
4201 A47F 1D 00           ..    bclr add,x 00,x
4202 A481 20 F6            .    bra f6
4203 A483 00              .     test
4204 A484 67 C4           g.    asr c4,x
4205 A486 01              .     nop
4206 A487 27 14           '.    beq 14
4207 A489 CE 00 67        ..g   ldx #0067
4208 A48C 1D 00           ..    bclr add,x 00,x
4209 A48E 02              .     idiv
4210 A48F CE 00 67        ..g   ldx #0067
4211 A492 1D 00           ..    bclr add,x 00,x
4212 A494 10              .     sba
4213 A495 CE 00 67        ..g   ldx #0067
4214 A498 1D 00           ..    bclr add,x 00,x
4215 A49A 20 20                 bra 20
4216 A49C 06              .     tap
4217 A49D CE 00 67        ..g   ldx #0067
4218 A4A0 1D 00           ..    bclr add,x 00,x
4219 A4A2 08              .     inx
4220 A4A3 F6 00 67        ..g   ldab 0067
4221 A4A6 C4 04           ..    andb #04
4222 A4A8 27 12           '.    beq 12
4223 A4AA CE 00 67        ..g   ldx #0067
4224 A4AD 1D 00           ..    bclr add,x 00,x
4225 A4AF 02              .     idiv
4226 A4B0 CE 00 67        ..g   ldx #0067
4227 A4B3 1D 00           ..    bclr add,x 00,x
4228 A4B5 10              .     sba
4229 A4B6 CE 00 67        ..g   ldx #0067
4230 A4B9 1D 00           ..    bclr add,x 00,x
4231 A4BB 20 F6            .    bra f6
4232 A4BD 00              .     test
4233 A4BE 67 C4           g.    asr c4,x
4234 A4C0 08              .     inx
4235 A4C1 26 06           &.    bne 06
4236 A4C3 CE 00 67        ..g   ldx #0067
4237 A4C6 1D 00           ..    bclr add,x 00,x
4238 A4C8 40              @     nega
4239 A4C9 F6 00 67        ..g   ldab 0067
4240 A4CC F7 0B C0        ...   stb 0bc0
4241 A4CF F6 0E 70        ..p   ldab 0e70
4242 A4D2 F7 0E 6E        ..n   stb 0e6e
4243 A4D5 F6 0E 6D        ..m   ldab 0e6d
4244 A4D8 26 39           &9    bne 39
4245 A4DA F6 0E 6F        ..o   ldab 0e6f
4246 A4DD 27 34           '4    beq 34
4247 A4DF 7F 00 06        ...   clr 0006
4248 A4E2 F6 00 06        ...   ldab 0006
4249 A4E5 C1 3F           .?    cmpb #3f
4250 A4E7 24 2A           $*    bcc 2a
4251 A4E9 F6 00 06        ...   ldab 0006
4252 A4EC 4F              O     clra
4253 A4ED CE 00 05        ...   ldx #0005
4254 A4F0 02              .     idiv
4255 A4F1 5D              ]     tstb
4256 A4F2 27 1A           '.    beq 1a
4257 A4F4 F6 00 06        ...   ldab 0006
4258 A4F7 4F              O     clra
4259 A4F8 C3 08 00        ...   addd #0800
4260 A4FB 30              0     tsx
4261 A4FC ED 00           ..    stad 00,x
4262 A4FE EC 00           ..    ldd 00,x
4263 A500 37              7     pshb
4264 A501 36              6     psha
4265 A502 F6 00 06        ...   ldab 0006
4266 A505 4F              O     clra
4267 A506 05              .     asld
4268 A507 C3 08 C8        ...   addd #08c8
4269 A50A 38              8     pulx
4270 A50B 8F              .     xgdx
4271 A50C ED 00           ..    stad 00,x
4272 A50E 7C 00 06        |..   inc 0006
4273 A511 20 CF            .    bra cf
4274 A513 F6 0E 6F        ..o   ldab 0e6f
4275 A516 F7 0E 6D        ..m   stb 0e6d
4276 A519 BD A3 6C        ..l   jsr a36c
4277 A51C 38              8     pulx
4278 A51D 39              9     rts
4279 A51E F6 00 22        .."   ldab 0022
4280 A521 4F              O     clra
4281 A522 BD FE 16        ...   jsr fe16             ;jump2
4282 A525 00              .     test
4283 A526 01              .     nop
4284 A527 00              .     test
4285 A528 04              .     lsrd
4286 A529 A5 79           .y    bita 79,x
4287 A52B A5 35           .5    bita 35,x
4288 A52D A5 43           .C    bita 43,x
4289 A52F A5 51           .Q    bita 51,x
4290 A531 A5 5F           ._    bita 5f,x
4291 A533 A5 6D           .m    bita 6d,x
4292 A535 F6 00 24        ..$   ldab 0024
4293 A538 F7 0B AF        ...   stb 0baf
4294 A53B F6 00 2A        ..*   ldab 002a
4295 A53E F7 0B B4        ...   stb 0bb4
4296 A541 20 36            6    bra 36
4297 A543 F6 00 24        ..$   ldab 0024
4298 A546 F7 0B AE        ...   stb 0bae
4299 A549 F6 00 2A        ..*   ldab 002a
4300 A54C F7 0B B3        ...   stb 0bb3
4301 A54F 20 28            (    bra 28
4302 A551 F6 00 24        ..$   ldab 0024
4303 A554 F7 0B AD        ...   stb 0bad
4304 A557 F6 00 2A        ..*   ldab 002a
4305 A55A F7 0B B2        ...   stb 0bb2
4306 A55D 20 1A            .    bra 1a
4307 A55F F6 00 24        ..$   ldab 0024
4308 A562 F7 0B AC        ...   stb 0bac
4309 A565 F6 00 2A        ..*   ldab 002a
4310 A568 F7 0B B1        ...   stb 0bb1
4311 A56B 20 0C            .    bra 0c
4312 A56D F6 00 24        ..$   ldab 0024
4313 A570 F7 0B AB        ...   stb 0bab
4314 A573 F6 00 2A        ..*   ldab 002a
4315 A576 F7 0B B0        ...   stb 0bb0
4316 A579 BD A3 6C        ..l   jsr a36c
4317 A57C 39              9     rts
4318 A57D 7F 00 54        ..T   clr 0054
4319 A580 F6 00 54        ..T   ldab 0054
4320 A583 C1 FF           ..    cmpb #ff
4321 A585 24 1B           $.    bcc 1b
4322 A587 F6 00 54        ..T   ldab 0054
4323 A58A 4F              O     clra
4324 A58B C3 0A 90        ...   addd #0a90
4325 A58E 8F              .     xgdx
4326 A58F E6 00           ..    ldab 00,x
4327 A591 37              7     pshb
4328 A592 F6 00 54        ..T   ldab 0054
4329 A595 4F              O     clra
4330 A596 C3 09 90        ...   addd #0990
4331 A599 8F              .     xgdx
4332 A59A 33              3     pulb
4333 A59B E7 00           ..    stb 00,x
4334 A59D 7C 00 54        |.T   inc 0054
4335 A5A0 20 DE            .    bra de
4336 A5A2 F6 00 61        ..a   ldab 0061
4337 A5A5 F7 0B BF        ...   stb 0bbf
4338 A5A8 BD A3 6C        ..l   jsr a36c
4339 A5AB 39              9     rts
4340 A5AC 7F 00 54        ..T   clr 0054
4341 A5AF F6 00 54        ..T   ldab 0054
4342 A5B2 C1 10           ..    cmpb #10
4343 A5B4 24 1B           $.    bcc 1b
4344 A5B6 F6 00 54        ..T   ldab 0054
4345 A5B9 4F              O     clra
4346 A5BA C3 0A 90        ...   addd #0a90
4347 A5BD 8F              .     xgdx
4348 A5BE E6 00           ..    ldab 00,x
4349 A5C0 37              7     pshb
4350 A5C1 F6 00 54        ..T   ldab 0054
4351 A5C4 4F              O     clra
4352 A5C5 C3 0C B9        ...   addd #0cb9
4353 A5C8 8F              .     xgdx
4354 A5C9 33              3     pulb
4355 A5CA E7 00           ..    stb 00,x
4356 A5CC 7C 00 54        |.T   inc 0054
4357 A5CF 20 DE            .    bra de
4358 A5D1 BD A3 6C        ..l   jsr a36c
4359 A5D4 39              9     rts
4360 A5D5 7F 00 54        ..T   clr 0054
4361 A5D8 F6 00 54        ..T   ldab 0054
4362 A5DB C1 10           ..    cmpb #10
4363 A5DD 24 1B           $.    bcc 1b
4364 A5DF F6 00 54        ..T   ldab 0054
4365 A5E2 4F              O     clra
4366 A5E3 C3 0A 90        ...   addd #0a90
4367 A5E6 8F              .     xgdx
4368 A5E7 E6 00           ..    ldab 00,x
4369 A5E9 37              7     pshb
4370 A5EA F6 00 54        ..T   ldab 0054
4371 A5ED 4F              O     clra
4372 A5EE C3 0C C9        ...   addd #0cc9
4373 A5F1 8F              .     xgdx
4374 A5F2 33              3     pulb
4375 A5F3 E7 00           ..    stb 00,x
4376 A5F5 7C 00 54        |.T   inc 0054
4377 A5F8 20 DE            .    bra de
4378 A5FA BD A3 6C        ..l   jsr a36c
4379 A5FD 39              9     rts
4380 A5FE 7F 00 54        ..T   clr 0054
4381 A601 F6 00 54        ..T   ldab 0054
4382 A604 C1 05           ..    cmpb #05
4383 A606 24 1B           $.    bcc 1b
4384 A608 F6 00 54        ..T   ldab 0054
4385 A60B 4F              O     clra
4386 A60C C3 00 62        ..b   addd #0062
4387 A60F 8F              .     xgdx
4388 A610 E6 00           ..    ldab 00,x
4389 A612 37              7     pshb
4390 A613 F6 00 54        ..T   ldab 0054
4391 A616 4F              O     clra
4392 A617 C3 0B A4        ...   addd #0ba4
4393 A61A 8F              .     xgdx
4394 A61B 33              3     pulb
4395 A61C E7 00           ..    stb 00,x
4396 A61E 7C 00 54        |.T   inc 0054
4397 A621 20 DE            .    bra de
4398 A623 7F 00 54        ..T   clr 0054
4399 A626 F6 00 54        ..T   ldab 0054
4400 A629 C1 0B           ..    cmpb #0b
4401 A62B 24 1B           $.    bcc 1b
4402 A62D F6 00 54        ..T   ldab 0054
4403 A630 4F              O     clra
4404 A631 C3 00 68        ..h   addd #0068
4405 A634 8F              .     xgdx
4406 A635 E6 00           ..    ldab 00,x
4407 A637 37              7     pshb
4408 A638 F6 00 54        ..T   ldab 0054
4409 A63B 4F              O     clra
4410 A63C C3 0B E4        ...   addd #0be4
4411 A63F 8F              .     xgdx
4412 A640 33              3     pulb
4413 A641 E7 00           ..    stb 00,x
4414 A643 7C 00 54        |.T   inc 0054
4415 A646 20 DE            .    bra de
4416 A648 8D 04           ..    bsr dest 04
4417 A64A BD A3 6C        ..l   jsr a36c
4418 A64D 39              9     rts
4419 A64E BD AB 0C        ...   jsr ab0c
4420 A651 C6 20           .     ldab #20
4421 A653 F7 0B A3        ...   stb 0ba3
4422 A656 C6 20           .     ldab #20
4423 A658 F7 0B 9A        ...   stb 0b9a
4424 A65B C6 01           ..    ldab #01
4425 A65D F7 00 54        ..T   stb 0054
4426 A660 F6 00 54        ..T   ldab 0054
4427 A663 C1 09           ..    cmpb #09
4428 A665 25 03           %.    bcs 03
4429 A667 7E A7 1E        ~..   jmp a71e
4430 A66A F6 00 54        ..T   ldab 0054
4431 A66D 4F              O     clra
4432 A66E BD FE 16        ...   jsr fe16             ;jump2
4433 A671 00              .     test
4434 A672 01              .     nop
4435 A673 00              .     test
4436 A674 07              .     tpa
4437 A675 A6 ED           ..    ldaa ed,x
4438 A677 A6 87           ..    ldaa 87,x
4439 A679 A6 95           ..    ldaa 95,x
4440 A67B A6 A1           ..    ldaa a1,x
4441 A67D A6 AF           ..    ldaa af,x
4442 A67F A6 BB           ..    ldaa bb,x
4443 A681 A6 C9           ..    ldaa c9,x
4444 A683 A6 D5           ..    ldaa d5,x
4445 A685 A6 E3           ..    ldaa e3,x
4446 A687 F6 00 62        ..b   ldab 0062
4447 A68A 54              T     lsrb
4448 A68B 54              T     lsrb
4449 A68C 54              T     lsrb
4450 A68D 54              T     lsrb
4451 A68E C8 04           ..    eorb #04
4452 A690 F7 00 5F        .._   stb 005f
4453 A693 20 58            X    bra 58
4454 A695 F6 00 62        ..b   ldab 0062
4455 A698 C4 0F           ..    andb #0f
4456 A69A C8 0D           ..    eorb #0d
4457 A69C F7 00 5F        .._   stb 005f
4458 A69F 20 4C            L    bra 4c
4459 A6A1 F6 00 63        ..c   ldab 0063
4460 A6A4 54              T     lsrb
4461 A6A5 54              T     lsrb
4462 A6A6 54              T     lsrb
4463 A6A7 54              T     lsrb
4464 A6A8 C8 04           ..    eorb #04
4465 A6AA F7 00 5F        .._   stb 005f
4466 A6AD 20 3E            >    bra 3e
4467 A6AF F6 00 63        ..c   ldab 0063
4468 A6B2 C4 0F           ..    andb #0f
4469 A6B4 C8 05           ..    eorb #05
4470 A6B6 F7 00 5F        .._   stb 005f
4471 A6B9 20 32            2    bra 32
4472 A6BB F6 00 64        ..d   ldab 0064
4473 A6BE 54              T     lsrb
4474 A6BF 54              T     lsrb
4475 A6C0 54              T     lsrb
4476 A6C1 54              T     lsrb
4477 A6C2 C8 05           ..    eorb #05
4478 A6C4 F7 00 5F        .._   stb 005f
4479 A6C7 20 24            $    bra 24
4480 A6C9 F6 00 64        ..d   ldab 0064
4481 A6CC C4 0F           ..    andb #0f
4482 A6CE C8 04           ..    eorb #04
4483 A6D0 F7 00 5F        .._   stb 005f
4484 A6D3 20 18            .    bra 18
4485 A6D5 F6 00 65        ..e   ldab 0065
4486 A6D8 54              T     lsrb
4487 A6D9 54              T     lsrb
4488 A6DA 54              T     lsrb
4489 A6DB 54              T     lsrb
4490 A6DC C8 05           ..    eorb #05
4491 A6DE F7 00 5F        .._   stb 005f
4492 A6E1 20 0A            .    bra 0a
4493 A6E3 F6 00 65        ..e   ldab 0065
4494 A6E6 C4 0F           ..    andb #0f
4495 A6E8 C8 03           ..    eorb #03
4496 A6EA F7 00 5F        .._   stb 005f
4497 A6ED F6 00 5F        .._   ldab 005f
4498 A6F0 C1 09           ..    cmpb #09
4499 A6F2 23 13           #.    bls 13
4500 A6F4 F6 00 5F        .._   ldab 005f
4501 A6F7 CB 37           .7    addb #37
4502 A6F9 37              7     pshb
4503 A6FA F6 00 54        ..T   ldab 0054
4504 A6FD 4F              O     clra
4505 A6FE C3 0B 9A        ...   addd #0b9a
4506 A701 8F              .     xgdx
4507 A702 33              3     pulb
4508 A703 E7 00           ..    stb 00,x
4509 A705 20 11            .    bra 11
4510 A707 F6 00 5F        .._   ldab 005f
4511 A70A CB 30           .0    addb #30
4512 A70C 37              7     pshb
4513 A70D F6 00 54        ..T   ldab 0054
4514 A710 4F              O     clra
4515 A711 C3 0B 9A        ...   addd #0b9a
4516 A714 8F              .     xgdx
4517 A715 33              3     pulb
4518 A716 E7 00           ..    stb 00,x
4519 A718 7C 00 54        |.T   inc 0054
4520 A71B 7E A6 60        ~.`   jmp a660
4521 A71E 39              9     rts
4522 A71F F6 00 48        ..H   ldab 0048
4523 A722 26 11           &.    bne 11
4524 A724 F6 00 66        ..f   ldab 0066
4525 A727 26 07           &.    bne 07
4526 A729 C6 01           ..    ldab #01
4527 A72B F7 00 66        ..f   stb 0066
4528 A72E 20 03            .    bra 03
4529 A730 7F 00 66        ..f   clr 0066
4530 A733 20 29            )    bra 29
4531 A735 F6 00 48        ..H   ldab 0048
4532 A738 4F              O     clra
4533 A739 C3 00 68        ..h   addd #0068
4534 A73C 8F              .     xgdx
4535 A73D E6 00           ..    ldab 00,x
4536 A73F 26 10           &.    bne 10
4537 A741 C6 01           ..    ldab #01
4538 A743 37              7     pshb
4539 A744 F6 00 48        ..H   ldab 0048
4540 A747 4F              O     clra
4541 A748 C3 00 68        ..h   addd #0068
4542 A74B 8F              .     xgdx
4543 A74C 33              3     pulb
4544 A74D E7 00           ..    stb 00,x
4545 A74F 20 0D            .    bra 0d
4546 A751 5F              _     clrb
4547 A752 37              7     pshb
4548 A753 F6 00 48        ..H   ldab 0048
4549 A756 4F              O     clra
4550 A757 C3 00 68        ..h   addd #0068
4551 A75A 8F              .     xgdx
4552 A75B 33              3     pulb
4553 A75C E7 00           ..    stb 00,x
4554 A75E 39              9     rts
4555 A75F F6 00 48        ..H   ldab 0048
4556 A762 4F              O     clra
4557 A763 BD FE 16        ...   jsr fe16             ;jump2
4558 A766 00              .     test
4559 A767 00              .     test
4560 A768 00              .     test
4561 A769 09              .     dex
4562 A76A A7 DC           ..    sta dc,x
4563 A76C A7 80           ..    sta 80,x
4564 A76E A7 87           ..    sta 87,x
4565 A770 A7 8E           ..    sta 8e,x
4566 A772 A7 95           ..    sta 95,x
4567 A774 A7 9C           ..    sta 9c,x
4568 A776 A7 A3           ..    sta a3,x
4569 A778 A7 AA           ..    sta aa,x
4570 A77A A7 B1           ..    sta b1,x
4571 A77C A7 C4           ..    sta c4,x
4572 A77E A7 D7           ..    sta d7,x
4573 A780 C6 02           ..    ldab #02
4574 A782 F7 00 02        ...   stb 0002
4575 A785 20 55            U    bra 55
4576 A787 C6 10           ..    ldab #10
4577 A789 F7 00 02        ...   stb 0002
4578 A78C 20 4E            N    bra 4e
4579 A78E C6 20           .     ldab #20
4580 A790 F7 00 02        ...   stb 0002
4581 A793 20 47            G    bra 47
4582 A795 C6 01           ..    ldab #01
4583 A797 F7 00 02        ...   stb 0002
4584 A79A 20 40            @    bra 40
4585 A79C C6 04           ..    ldab #04
4586 A79E F7 00 02        ...   stb 0002
4587 A7A1 20 39            9    bra 39
4588 A7A3 C6 08           ..    ldab #08
4589 A7A5 F7 00 02        ...   stb 0002
4590 A7A8 20 32            2    bra 32
4591 A7AA C6 40           .@    ldab #40
4592 A7AC F7 00 02        ...   stb 0002
4593 A7AF 20 2B            +    bra 2b
4594 A7B1 F6 0E 70        ..p   ldab 0e70
4595 A7B4 C1 01           ..    cmpb #01
4596 A7B6 26 05           &.    bne 05
4597 A7B8 7F 0E 70        ..p   clr 0e70
4598 A7BB 20 05            .    bra 05
4599 A7BD C6 01           ..    ldab #01
4600 A7BF F7 0E 70        ..p   stb 0e70
4601 A7C2 20 18            .    bra 18
4602 A7C4 F6 0E 6F        ..o   ldab 0e6f
4603 A7C7 C1 01           ..    cmpb #01
4604 A7C9 26 05           &.    bne 05
4605 A7CB 7F 0E 6F        ..o   clr 0e6f
4606 A7CE 20 05            .    bra 05
4607 A7D0 C6 01           ..    ldab #01
4608 A7D2 F7 0E 6F        ..o   stb 0e6f
4609 A7D5 20 05            .    bra 05
4610 A7D7 C6 80           ..    ldab #80
4611 A7D9 F7 00 02        ...   stb 0002
4612 A7DC F6 00 48        ..H   ldab 0048
4613 A7DF C1 0A           ..    cmpb #0a
4614 A7E1 24 2B           $+    bcc 2b
4615 A7E3 F6 00 48        ..H   ldab 0048
4616 A7E6 C1 07           ..    cmpb #07
4617 A7E8 27 24           '$    beq 24
4618 A7EA F6 00 48        ..H   ldab 0048
4619 A7ED C1 08           ..    cmpb #08
4620 A7EF 27 1D           '.    beq 1d
4621 A7F1 F6 00 67        ..g   ldab 0067
4622 A7F4 F4 00 02        ...   andb 0002
4623 A7F7 26 0B           &.    bne 0b
4624 A7F9 F6 00 02        ...   ldab 0002
4625 A7FC FA 00 67        ..g   orb 0067
4626 A7FF F7 00 67        ..g   stb 0067
4627 A802 20 0A            .    bra 0a
4628 A804 F6 00 02        ...   ldab 0002
4629 A807 53              S     comb
4630 A808 F4 00 67        ..g   andb 0067
4631 A80B F7 00 67        ..g   stb 0067
4632 A80E 39              9     rts
4633
4634 A80F 7F 00 54        ..T   clr 0054
4635 A812 F6 00 54        ..T   ldab 0054
4636 A815 C1 04           ..    cmpb #04
4637 A817 24 4A           $J    bcc 4a
4638 A819 CC 01 F4        ...   ldd #01f4
4639 A81C BD E5 71        ..q   jsr e571             ;jump13
4640 A81F F6 0B 93        ...   ldab 0b93
4641 A822 F7 00 5F        .._   stb 005f
4642 A825 F6 0B 94        ...   ldab 0b94
4643 A828 F7 00 5E        ..^   stb 005e
4644 A82B F6 0B 95        ...   ldab 0b95
4645 A82E F7 00 5D        ..]   stb 005d
4646 A831 F6 0B 96        ...   ldab 0b96
4647 A834 F7 00 5A        ..Z   stb 005a
4648 A837 BD BE 4B        ..K   jsr be4b             ;jump1
4649 A83A BD BE 01        ...   jsr be01
4650 A83D CC 01 F4        ...   ldd #01f4
4651 A840 BD E5 71        ..q   jsr e571             ;jump13
4652 A843 F6 00 5F        .._   ldab 005f
4653 A846 F7 0B 93        ...   stb 0b93
4654 A849 F6 00 5E        ..^   ldab 005e
4655 A84C F7 0B 94        ...   stb 0b94
4656 A84F F6 00 5D        ..]   ldab 005d
4657 A852 F7 0B 95        ...   stb 0b95
4658 A855 F6 00 5A        ..Z   ldab 005a
4659 A858 F7 0B 96        ...   stb 0b96
4660 A85B BD BE 01        ...   jsr be01
4661 A85E 7C 00 54        |.T   inc 0054
4662 A861 20 AF            .    bra af
4663 A863 39              9     rts
4664
4665 A864 F6 00 09        ...   ldab 0009
4666 A867 C1 01           ..    cmpb #01
4667 A869 26 20           &     bne 20
4668 A86B F6 00 61        ..a   ldab 0061
4669 A86E 4F              O     clra
4670 A86F C3 00 01        ...   addd #0001
4671 A872 37              7     pshb
4672 A873 36              6     psha
4673 A874 F6 00 60        ..`   ldab 0060
4674 A877 4F              O     clra
4675 A878 30              0     tsx
4676 A879 A3 00           ..    subd 00,x
4677 A87B 31              1     ins
4678 A87C 31              1     ins
4679 A87D 2C 0A           ,.    bge 0a
4680 A87F F6 00 60        ..`   ldab 0060
4681 A882 C1 F9           ..    cmpb #f9
4682 A884 24 03           $.    bcc 03
4683 A886 7C 00 60        |.`   inc 0060
4684 A889 20 0A            .    bra 0a
4685 A88B F6 00 60        ..`   ldab 0060
4686 A88E C1 09           ..    cmpb #09
4687 A890 24 03           $.    bcc 03
4688 A892 7C 00 60        |.`   inc 0060
4689 A895 39              9     rts
4690
4691 A896 F6 00 36        ..6   ldab 0036
4692 A899 26 39           &9    bne 39
4693 A89B F6 00 54        ..T   ldab 0054
4694 A89E C1 27           .'    cmpb #27
4695 A8A0 24 20           $     bcc 20
4696 A8A2 7C 00 54        |.T   inc 0054
4697 A8A5 F6 00 09        ...   ldab 0009
4698 A8A8 C1 01           ..    cmpb #01
4699 A8AA 26 0C           &.    bne 0c
4700 A8AC F6 00 54        ..T   ldab 0054
4701 A8AF C1 27           .'    cmpb #27
4702 A8B1 26 03           &.    bne 03
4703 A8B3 7F 00 54        ..T   clr 0054
4704 A8B6 20 0A            .    bra 0a
4705 A8B8 F6 00 54        ..T   ldab 0054
4706 A8BB C1 24           .$    cmpb #24
4707 A8BD 26 03           &.    bne 03
4708 A8BF 7F 00 54        ..T   clr 0054
4709 A8C2 F6 00 54        ..T   ldab 0054
4710 A8C5 4F              O     clra
4711 A8C6 C3 B4 8F        ...   addd #b48f
4712 A8C9 8F              .     xgdx
4713 A8CA E6 00           ..    ldab 00,x
4714 A8CC F7 0B 90        ...   stb 0b90
4715 A8CF C6 02           ..    ldab #02
4716 A8D1 F7 00 36        ..6   stb 0036
4717 A8D4 39              9     rts
4718
4719 A8D5 F6 00 60        ..`   ldab 0060
4720 A8D8 C1 00           ..    cmpb #00
4721 A8DA 23 05           #.    bls 05
4722 A8DC 7A 00 60        z.`   dec 0060
4723 A8DF 20 03            .    bra 03
4724 A8E1 7F 00 60        ..`   clr 0060
4725 A8E4 39              9     rts
4726
4727 A8E5 F6 00 36        ..6   ldab 0036
4728 A8E8 26 36           &6    bne 36
4729 A8EA F6 00 54        ..T   ldab 0054
4730 A8ED C1 00           ..    cmpb #00
4731 A8EF 25 1D           %.    bcs 1d
4732 A8F1 F6 00 54        ..T   ldab 0054
4733 A8F4 26 15           &.    bne 15
4734 A8F6 F6 00 09        ...   ldab 0009
4735 A8F9 C1 01           ..    cmpb #01
4736 A8FB 26 07           &.    bne 07
4737 A8FD C6 26           .&    ldab #26
4738 A8FF F7 00 54        ..T   stb 0054
4739 A902 20 05            .    bra 05
4740 A904 C6 23           .#    ldab #23
4741 A906 F7 00 54        ..T   stb 0054
4742 A909 20 03            .    bra 03
4743 A90B 7A 00 54        z.T   dec 0054
4744 A90E F6 00 54        ..T   ldab 0054
4745 A911 4F              O     clra
4746 A912 C3 B4 8F        ...   addd #b48f
4747 A915 8F              .     xgdx
4748 A916 E6 00           ..    ldab 00,x
4749 A918 F7 0B 90        ...   stb 0b90
4750 A91B C6 02           ..    ldab #02
4751 A91D F7 00 36        ..6   stb 0036
4752 A920 39              9     rts
4753
4754 A921 F6 0B 90        ...   ldab 0b90
4755 A924 F7 0B 96        ...   stb 0b96
4756 A927 F6 0B 96        ...   ldab 0b96
4757 A92A 37              7     pshb
4758 A92B F6 00 60        ..`   ldab 0060
4759 A92E 4F              O     clra
4760 A92F C3 0A 93        ...   addd #0a93
4761 A932 8F              .     xgdx
4762 A933 33              3     pulb
4763 A934 E7 00           ..    stb 00,x
4764 A936 F6 00 09        ...   ldab 0009
4765 A939 C1 01           ..    cmpb #01
4766 A93B 26 32           &2    bne 32
4767 A93D F6 00 61        ..a   ldab 0061
4768 A940 4F              O     clra
4769 A941 C3 00 01        ...   addd #0001
4770 A944 37              7     pshb
4771 A945 36              6     psha
4772 A946 F6 00 60        ..`   ldab 0060
4773 A949 4F              O     clra
4774 A94A 30              0     tsx
4775 A94B A3 00           ..    subd 00,x
4776 A94D 31              1     ins
4777 A94E 31              1     ins
4778 A94F 26 0A           &.    bne 0a
4779 A951 F6 00 60        ..`   ldab 0060
4780 A954 C1 FA           ..    cmpb #fa
4781 A956 24 03           $.    bcc 03
4782 A958 7C 00 61        |.a   inc 0061
4783 A95B F6 00 60        ..`   ldab 0060
4784 A95E F1 00 61        ..a   cmpb 0061
4785 A961 22 0A           ".    bhi 0a
4786 A963 F6 00 60        ..`   ldab 0060
4787 A966 C1 F9           ..    cmpb #f9
4788 A968 24 03           $.    bcc 03
4789 A96A 7C 00 60        |.`   inc 0060
4790 A96D 20 0A            .    bra 0a
4791 A96F F6 00 60        ..`   ldab 0060
4792 A972 C1 09           ..    cmpb #09
4793 A974 24 03           $.    bcc 03
4794 A976 7C 00 60        |.`   inc 0060
4795 A979 39              9     rts
4796
4797 A97A F6 00 60        ..`   ldab 0060
4798 A97D 26 24           &$    bne 24
4799 A97F F6 00 60        ..`   ldab 0060
4800 A982 CB 03           ..    addb #03
4801 A984 F7 00 54        ..T   stb 0054
4802 A987 F6 00 54        ..T   ldab 0054
4803 A98A C1 FF           ..    cmpb #ff
4804 A98C 24 13           $.    bcc 13
4805 A98E C6 20           .     ldab #20
4806 A990 37              7     pshb
4807 A991 F6 00 54        ..T   ldab 0054
4808 A994 4F              O     clra
4809 A995 C3 0A 90        ...   addd #0a90
4810 A998 8F              .     xgdx
4811 A999 33              3     pulb
4812 A99A E7 00           ..    stb 00,x
4813 A99C 7C 00 54        |.T   inc 0054
4814 A99F 20 E6            .    bra e6
4815 A9A1 20 22            "    bra 22
4816 A9A3 F6 00 60        ..`   ldab 0060
4817 A9A6 CB 04           ..    addb #04
4818 A9A8 F7 00 54        ..T   stb 0054
4819 A9AB F6 00 54        ..T   ldab 0054
4820 A9AE C1 FF           ..    cmpb #ff
4821 A9B0 24 13           $.    bcc 13
4822 A9B2 C6 20           .     ldab #20
4823 A9B4 37              7     pshb
4824 A9B5 F6 00 54        ..T   ldab 0054
4825 A9B8 4F              O     clra
4826 A9B9 C3 0A 90        ...   addd #0a90
4827 A9BC 8F              .     xgdx
4828 A9BD 33              3     pulb
4829 A9BE E7 00           ..    stb 00,x
4830 A9C0 7C 00 54        |.T   inc 0054
4831 A9C3 20 E6            .    bra e6
4832 A9C5 F6 00 60        ..`   ldab 0060
4833 A9C8 F7 00 61        ..a   stb 0061
4834 A9CB 7F 00 54        ..T   clr 0054
4835 A9CE 39              9     rts
4836
4837 A9CF C6 50           .P    ldab #50
4838 A9D1 F7 09 90        ...   stb 0990
4839 A9D4 C6 29           .)    ldab #29
4840 A9D6 F7 09 91        ...   stb 0991
4841 A9D9 C6 20           .     ldab #20
4842 A9DB F7 09 92        ...   stb 0992
4843 A9DE 7F 00 54        ..T   clr 0054
4844 A9E1 F6 00 54        ..T   ldab 0054
4845 A9E4 C1 FF           ..    cmpb #ff
4846 A9E6 24 1B           $.    bcc 1b
4847 A9E8 F6 00 54        ..T   ldab 0054
4848 A9EB 4F              O     clra
4849 A9EC C3 09 90        ...   addd #0990
4850 A9EF 8F              .     xgdx
4851 A9F0 E6 00           ..    ldab 00,x
4852 A9F2 37              7     pshb
4853 A9F3 F6 00 54        ..T   ldab 0054
4854 A9F6 4F              O     clra
4855 A9F7 C3 0A 90        ...   addd #0a90
4856 A9FA 8F              .     xgdx
4857 A9FB 33              3     pulb
4858 A9FC E7 00           ..    stb 00,x
4859 A9FE 7C 00 54        |.T   inc 0054
4860 AA01 20 DE            .    bra de
4861 AA03 F6 0B BF        ...   ldab 0bbf
4862 AA06 F7 00 61        ..a   stb 0061
4863 AA09 39              9     rts
4864
4865 AA0A C6 53           .S    ldab #53
4866 AA0C F7 0C B9        ...   stb 0cb9
4867 AA0F C6 29           .)    ldab #29
4868 AA11 F7 0C BA        ...   stb 0cba
4869 AA14 C6 20           .     ldab #20
4870 AA16 F7 0C BB        ...   stb 0cbb
4871 AA19 7F 00 54        ..T   clr 0054
4872 AA1C F6 00 54        ..T   ldab 0054
4873 AA1F C1 10           ..    cmpb #10
4874 AA21 24 1B           $.    bcc 1b
4875 AA23 F6 00 54        ..T   ldab 0054
4876 AA26 4F              O     clra
4877 AA27 C3 0C B9        ...   addd #0cb9
4878 AA2A 8F              .     xgdx
4879 AA2B E6 00           ..    ldab 00,x
4880 AA2D 37              7     pshb
4881 AA2E F6 00 54        ..T   ldab 0054
4882 AA31 4F              O     clra
4883 AA32 C3 0A 90        ...   addd #0a90
4884 AA35 8F              .     xgdx
4885 AA36 33              3     pulb
4886 AA37 E7 00           ..    stb 00,x
4887 AA39 7C 00 54        |.T   inc 0054
4888 AA3C 20 DE            .    bra de
4889 AA3E 39              9     rts
4890
4891 AA3F C6 49           .I    ldab #49
4892 AA41 F7 0C C9        ...   stb 0cc9
4893 AA44 C6 29           .)    ldab #29
4894 AA46 F7 0C CA        ...   stb 0cca
4895 AA49 C6 20           .     ldab #20
4896 AA4B F7 0C CB        ...   stb 0ccb
4897 AA4E 7F 00 54        ..T   clr 0054
4898 AA51 F6 00 54        ..T   ldab 0054
4899 AA54 C1 10           ..    cmpb #10
4900 AA56 24 1B           $.    bcc 1b
4901 AA58 F6 00 54        ..T   ldab 0054
4902 AA5B 4F              O     clra
4903 AA5C C3 0C C9        ...   addd #0cc9
4904 AA5F 8F              .     xgdx
4905 AA60 E6 00           ..    ldab 00,x
4906 AA62 37              7     pshb
4907 AA63 F6 00 54        ..T   ldab 0054
4908 AA66 4F              O     clra
4909 AA67 C3 0A 90        ...   addd #0a90
4910 AA6A 8F              .     xgdx
4911 AA6B 33              3     pulb
4912 AA6C E7 00           ..    stb 00,x
4913 AA6E 7C 00 54        |.T   inc 0054
4914 AA71 20 DE            .    bra de
4915 AA73 39              9     rts
4916
4917 AA74 7F 00 54        ..T   clr 0054
4918 AA77 F6 00 54        ..T   ldab 0054
4919 AA7A C1 0B           ..    cmpb #0b
4920 AA7C 24 1B           $.    bcc 1b
4921 AA7E F6 00 54        ..T   ldab 0054
4922 AA81 4F              O     clra
4923 AA82 C3 0B E4        ...   addd #0be4
4924 AA85 8F              .     xgdx
4925 AA86 E6 00           ..    ldab 00,x
4926 AA88 37              7     pshb
4927 AA89 F6 00 54        ..T   ldab 0054
4928 AA8C 4F              O     clra
4929 AA8D C3 00 68        ..h   addd #0068
4930 AA90 8F              .     xgdx
4931 AA91 33              3     pulb
4932 AA92 E7 00           ..    stb 00,x
4933 AA94 7C 00 54        |.T   inc 0054
4934 AA97 20 DE            .    bra de
4935 AA99 39              9     rts
4936
4937 AA9A F6 00 22        .."   ldab 0022
4938 AA9D C1 06           ..    cmpb #06
4939 AA9F 24 0F           $.    bcc 0f
4940 AAA1 7C 00 22        |."   inc 0022
4941 AAA4 F6 00 22        .."   ldab 0022
4942 AAA7 C1 05           ..    cmpb #05
4943 AAA9 23 05           #.    bls 05
4944 AAAB C6 01           ..    ldab #01
4945 AAAD F7 00 22        .."   stb 0022
4946 AAB0 F6 00 22        .."   ldab 0022
4947 AAB3 4F              O     clra
4948 AAB4 BD FE 16        ...   jsr fe16             ;jump2
4949 AAB7 00              .     test
4950 AAB8 01              .     nop
4951 AAB9 00              .     test
4952 AABA 04              .     lsrd
4953 AABB AB 0B           ..    adda 0b,x
4954 AABD AA C7           ..    ora c7,x
4955 AABF AA D5           ..    ora d5,x
4956 AAC1 AA E3           ..    ora e3,x
4957 AAC3 AA F1           ..    ora f1,x
4958 AAC5 AA FF           ..    ora ff,x
4959 AAC7 F6 0B AF        ...   ldab 0baf
4960 AACA F7 00 24        ..$   stb 0024
4961 AACD F6 0B B4        ...   ldab 0bb4
4962 AAD0 F7 00 2A        ..*   stb 002a
4963 AAD3 20 36            6    bra 36
4964 AAD5 F6 0B AE        ...   ldab 0bae
4965 AAD8 F7 00 24        ..$   stb 0024
4966 AADB F6 0B B3        ...   ldab 0bb3
4967 AADE F7 00 2A        ..*   stb 002a
4968 AAE1 20 28            (    bra 28
4969 AAE3 F6 0B AD        ...   ldab 0bad
4970 AAE6 F7 00 24        ..$   stb 0024
4971 AAE9 F6 0B B2        ...   ldab 0bb2
4972 AAEC F7 00 2A        ..*   stb 002a
4973 AAEF 20 1A            .    bra 1a
4974 AAF1 F6 0B AC        ...   ldab 0bac
4975 AAF4 F7 00 24        ..$   stb 0024
4976 AAF7 F6 0B B1        ...   ldab 0bb1
4977 AAFA F7 00 2A        ..*   stb 002a
4978 AAFD 20 0C            .    bra 0c
4979 AAFF F6 0B AB        ...   ldab 0bab
4980 AB02 F7 00 24        ..$   stb 0024
4981 AB05 F6 0B B0        ...   ldab 0bb0
4982 AB08 F7 00 2A        ..*   stb 002a
4983 AB0B 39              9     rts
4984
4985 AB0C C6 03           ..    ldab #03
4986 AB0E F7 00 18        ...   stb 0018
4987 AB11 7F 00 1C        ...   clr 001c
4988 AB14 F6 00 1C        ...   ldab 001c
4989 AB17 C1 04           ..    cmpb #04
4990 AB19 24 6D           $m    bcc 6d
4991 AB1B C6 07           ..    ldab #07
4992 AB1D F7 00 55        ..U   stb 0055
4993 AB20 7F 00 54        ..T   clr 0054
4994 AB23 F6 00 54        ..T   ldab 0054
4995 AB26 C1 08           ..    cmpb #08
4996 AB28 24 56           $V    bcc 56
4997 AB2A F6 00 1C        ...   ldab 001c
4998 AB2D 4F              O     clra
4999 AB2E C3 0B A4        ...   addd #0ba4
5000 AB31 8F              .     xgdx
5001 AB32 E6 00           ..    ldab 00,x
5002 AB34 37              7     pshb
5003 AB35 F6 00 54        ..T   ldab 0054
5004 AB38 4F              O     clra
5005 AB39 C3 B4 B7        ...   addd #b4b7
5006 AB3C 8F              .     xgdx
5007 AB3D E6 00           ..    ldab 00,x
5008 AB3F 30              0     tsx
5009 AB40 E4 00           ..    andb 00,x
5010 AB42 31              1     ins
5011 AB43 27 1A           '.    beq 1a
5012 AB45 F6 00 55        ..U   ldab 0055
5013 AB48 4F              O     clra
5014 AB49 C3 B4 B7        ...   addd #b4b7
5015 AB4C 8F              .     xgdx
5016 AB4D E6 00           ..    ldab 00,x
5017 AB4F 37              7     pshb
5018 AB50 F6 00 18        ...   ldab 0018
5019 AB53 4F              O     clra
5020 AB54 C3 00 62        ..b   addd #0062
5021 AB57 8F              .     xgdx
5022 AB58 33              3     pulb
5023 AB59 EA 00           ..    orb 00,x
5024 AB5B E7 00           ..    stb 00,x
5025 AB5D 20 19            .    bra 19
5026 AB5F F6 00 55        ..U   ldab 0055
5027 AB62 4F              O     clra
5028 AB63 C3 B4 B7        ...   addd #b4b7
5029 AB66 8F              .     xgdx
5030 AB67 E6 00           ..    ldab 00,x
5031 AB69 53              S     comb
5032 AB6A 37              7     pshb
5033 AB6B F6 00 18        ...   ldab 0018
5034 AB6E 4F              O     clra
5035 AB6F C3 00 62        ..b   addd #0062
5036 AB72 8F              .     xgdx
5037 AB73 33              3     pulb
5038 AB74 E4 00           ..    andb 00,x
5039 AB76 E7 00           ..    stb 00,x
5040 AB78 7A 00 55        z.U   dec 0055
5041 AB7B 7C 00 54        |.T   inc 0054
5042 AB7E 20 A3            .    bra a3
5043 AB80 7A 00 18        z..   dec 0018
5044 AB83 7C 00 1C        |..   inc 001c
5045 AB86 20 8C            .    bra 8c
5046 AB88 39              9     rts
5047
5048 jump7:
5049 AB89 CC B0 8C        ...   ldd #b08c
5050 AB8C BD C0 BA        ...   jsr c0ba             ;display:
5051 AB8F CC 01 F4        ...   ldd #01f4
5052 AB92 BD E5 71        ..q   jsr e571             ;jump13
5053 AB95 BD D4 79        ..y   jsr d479
5054 AB98 BD E8 9A        ...   jsr e89a
5055 AB9B BD E9 EA        ...   jsr e9ea
5056 AB9E 7F 0B C1        ...   clr 0bc1
5057 ABA1 39              9     rts
5058
5059 jump8:
5060 ABA2 7F 00 05        ...   clr 0005
5061 ABA5 F6 00 05        ...   ldab 0005
5062 ABA8 C1 64           .d    cmpb #64
5063 ABAA 25 03           %.    bcs 03
5064 ABAC 7E AC 81        ~..   jmp ac81
5065 ABAF F6 00 05        ...   ldab 0005
5066 ABB2 F7 00 06        ...   stb 0006
5067 ABB5 F6 00 05        ...   ldab 0005
5068 ABB8 4F              O     clra
5069 ABB9 CE 00 05        ...   ldx #0005
5070 ABBC 02              .     idiv
5071 ABBD 5D              ]     tstb
5072 ABBE 26 03           &.    bne 03
5073 ABC0 7E AC 7B        ~.{   jmp ac7b
5074 ABC3 F6 00 06        ...   ldab 0006
5075 ABC6 BD D7 A0        ...   jsr d7a0             ;jump10
5076 ABC9 83 00 00        ...   subd #0000
5077 ABCC 27 03           '.    beq 03
5078 ABCE 7E AC 7B        ~.{   jmp ac7b
5079 ABD1 BD D3 11        ...   jsr d311
5080 ABD4 83 00 00        ...   subd #0000
5081 ABD7 27 2B           '+    beq 2b
5082 ABD9 F6 00 05        ...   ldab 0005
5083 ABDC 4F              O     clra
5084 ABDD 05              .     asld
5085 ABDE C3 08 00        ...   addd #0800
5086 ABE1 8F              .     xgdx
5087 ABE2 EC 00           ..    ldd 00,x
5088 ABE4 C4 FF           ..    andb #ff
5089 ABE6 84 3F           .?    anda #3f
5090 ABE8 83 27 10        .'.   subd #2710
5091 ABEB 24 15           $.    bcc 15
5092 ABED CC 01 00        ...   ldd #0100
5093 ABF0 37              7     pshb
5094 ABF1 36              6     psha
5095 ABF2 F6 00 05        ...   ldab 0005
5096 ABF5 4F              O     clra
5097 ABF6 05              .     asld
5098 ABF7 C3 08 C8        ...   addd #08c8
5099 ABFA 38              8     pulx
5100 ABFB 8F              .     xgdx
5101 ABFC AA 00           ..    ora 00,x
5102 ABFE EA 01           ..    orb 01,x
5103 AC00 ED 00           ..    stad 00,x
5104 AC02 20 29            )    bra 29
5105 AC04 F6 00 05        ...   ldab 0005
5106 AC07 4F              O     clra
5107 AC08 05              .     asld
5108 AC09 C3 08 00        ...   addd #0800
5109 AC0C 8F              .     xgdx
5110 AC0D EC 00           ..    ldd 00,x
5111 AC0F C4 FF           ..    andb #ff
5112 AC11 84 3F           .?    anda #3f
5113 AC13 83 27 0F        .'.   subd #270f
5114 AC16 23 15           #.    bls 15
5115 AC18 CC 01 00        ...   ldd #0100
5116 AC1B 37              7     pshb
5117 AC1C 36              6     psha
5118 AC1D F6 00 05        ...   ldab 0005
5119 AC20 4F              O     clra
5120 AC21 05              .     asld
5121 AC22 C3 08 C8        ...   addd #08c8
5122 AC25 38              8     pulx
5123 AC26 8F              .     xgdx
5124 AC27 AA 00           ..    ora 00,x
5125 AC29 EA 01           ..    orb 01,x
5126 AC2B ED 00           ..    stad 00,x
5127 AC2D F6 00 05        ...   ldab 0005
5128 AC30 4F              O     clra
5129 AC31 05              .     asld
5130 AC32 C3 08 C8        ...   addd #08c8
5131 AC35 8F              .     xgdx
5132 AC36 EC 00           ..    ldd 00,x
5133 AC38 84 01           ..    anda #01
5134 AC3A 27 06           '.    beq 06
5135 AC3C CE 00 19        ...   ldx #0019
5136 AC3F 1C 00           ..    bset add,x 00,x
5137 AC41 04              .     lsrd
5138 AC42 F6 00 05        ...   ldab 0005
5139 AC45 4F              O     clra
5140 AC46 05              .     asld
5141 AC47 C3 08 00        ...   addd #0800
5142 AC4A 8F              .     xgdx
5143 AC4B EC 00           ..    ldd 00,x
5144 AC4D 84 80           ..    anda #80
5145 AC4F 27 2A           '*    beq 2a
5146 AC51 F6 00 05        ...   ldab 0005
5147 AC54 4F              O     clra
5148 AC55 05              .     asld
5149 AC56 C3 08 C8        ...   addd #08c8
5150 AC59 8F              .     xgdx
5151 AC5A EC 00           ..    ldd 00,x
5152 AC5C 84 02           ..    anda #02
5153 AC5E 27 06           '.    beq 06
5154 AC60 CE 00 19        ...   ldx #0019
5155 AC63 1C 00           ..    bset add,x 00,x
5156 AC65 01              .     nop
5157 AC66 F6 00 05        ...   ldab 0005
5158 AC69 4F              O     clra
5159 AC6A 05              .     asld
5160 AC6B C3 08 C8        ...   addd #08c8
5161 AC6E 8F              .     xgdx
5162 AC6F EC 00           ..    ldd 00,x
5163 AC71 84 04           ..    anda #04
5164 AC73 27 06           '.    beq 06
5165 AC75 CE 00 19        ...   ldx #0019
5166 AC78 1C 00           ..    bset add,x 00,x
5167 AC7A 02              .     idiv
5168 AC7B 7C 00 05        |..   inc 0005
5169 AC7E 7E AB A5        ~..   jmp aba5
5170 AC81 F6 00 19        ...   ldab 0019
5171 AC84 C4 07           ..    andb #07
5172 AC86 26 0A           &.    bne 0a
5173 AC88 F6 0B C1        ...   ldab 0bc1
5174 AC8B C4 7F           ..    andb #7f
5175 AC8D 26 03           &.    bne 03
5176 AC8F 5F              _     clrb
5177 AC90 20 02            .    bra 02
5178 AC92 C6 01           ..    ldab #01
5179 AC94 5D              ]     tstb
5180 AC95 26 05           &.    bne 05
5181 AC97 C6 0D           ..    ldab #0d
5182 AC99 F7 00 48        ..H   stb 0048
5183 AC9C 39              9     rts
5184
5185 AC9D 08              .     inx
5186 AC9E 07              .     tpa
5187 AC9F 06              .     tap
5188 ACA0 05              .     asld
5189 ACA1 04              .     lsrd
5190 ACA2 03              .     fdiv
5191 ACA3 02              .     idiv
5192 ACA4 01              .     nop
5193 ACA5 0B              .     sev
5194 ACA6 0A              .     clv
5195 ACA7 09              .     dex
5196
5197 ACA8 20 20                 bra 20
5198 ACAA 50              P     negb
5199 ACAB 52              R     illegal
5200 ACAC 49              I     rola
5201 ACAD 43              C     coma
5202 ACAE 45              E     illegal
5203 ACAF 20 20                 bra 20
5204 ACB1 20 00            .    bra 00
5205 ACB3 20 20                 bra 20
5206 ACB5 20 50            P    bra 50
5207 ACB7 52              R     illegal
5208 ACB8 49              I     rola
5209 ACB9 58              X     aslb
5210 ACBA 20 20                 bra 20
5211 ACBC 20 00            .    bra 00
5212 ACBE 20 20                 bra 20
5213 ACC0 50              P     negb
5214 ACC1 52              R     illegal
5215 ACC2 45              E     illegal
5216 ACC3 49              I     rola
5217 ACC4 53              S     comb
5218 ACC5 20 20                 bra 20
5219 ACC7 20 00            .    bra 00
5220 ACC9 20 20                 bra 20
5221 ACCB 50              P     negb
5222 ACCC 52              R     illegal
5223 ACCD 45              E     illegal
5224 ACCE 43              C     coma
5225 ACCF 49              I     rola
5226 ACD0 4F              O     clra
5227 ACD1 20 20                 bra 20
5228 ACD3 00              .     test
5229 ACD4 20 20                 bra 20
5230 ACD6 43              C     coma
5231 ACD7 48              H     asla
5232 ACD8 41              A     illegal
5233 ACD9 4E              N     illegal
5234 ACDA 47              G     asra
5235 ACDB 45              E     illegal
5236 ACDC 20 20                 bra 20
5237 ACDE 00              .     test
5238 ACDF 20 20                 bra 20
5239 ACE1 43              C     coma
5240 ACE2 41              A     illegal
5241 ACE3 4D              M     tsta
5242 ACE4 42              B     illegal
5243 ACE5 49              I     rola
5244 ACE6 4F              O     clra
5245 ACE7 20 20                 bra 20
5246 ACE9 00              .     test
5247 ACEA 20 4D            M    bra 4d
5248 ACEC 4F              O     clra
5249 ACED 4E              N     illegal
5250 ACEE 4E              N     illegal
5251 ACEF 41              A     illegal
5252 ACF0 49              I     rola
5253 ACF1 45              E     illegal
5254 ACF2 20 20                 bra 20
5255 ACF4 00              .     test
5256 ACF5 20 20                 bra 20
5257 ACF7 54              T     lsrb
5258 ACF8 48              H     asla
5259 ACF9 41              A     illegal
5260 ACFA 4E              N     illegal
5261 ACFB 4B              K     illegal
5262 ACFC 53              S     comb
5263 ACFD 20 20                 bra 20
5264 ACFF 00              .     test
5265 AD00 20 20                 bra 20
5266 AD02 4D              M     tsta
5267 AD03 45              E     illegal
5268 AD04 52              R     illegal
5269 AD05 43              C     coma
5270 AD06 49              I     rola
5271 AD07 20 20                 bra 20
5272 AD09 20 00            .    bra 00
5273 AD0B 20 20                 bra 20
5274 AD0D 44              D     lsra
5275 AD0E 41              A     illegal
5276 AD0F 4E              N     illegal
5277 AD10 4B              K     illegal
5278 AD11 45              E     illegal
5279 AD12 20 20                 bra 20
5280 AD14 20 00            .    bra 00
5281 AD16 20 20                 bra 20
5282 AD18 47              G     asra
5283 AD19 52              R     illegal
5284 AD1A 41              A     illegal
5285 AD1B 43              C     coma
5286 AD1C 49              I     rola
5287 AD1D 41              A     illegal
5288 AD1E 53              S     comb
5289 AD1F 20 00            .    bra 00
5290 AD21 20 20                 bra 20
5291 AD23 53              S     comb
5292 AD24 45              E     illegal
5293 AD25 4C              L     inca
5294 AD26 45              E     illegal
5295 AD27 43              C     coma
5296 AD28 54              T     lsrb
5297 AD29 20 20                 bra 20
5298 AD2B 00              .     test
5299 AD2C 20 20                 bra 20
5300 AD2E 4F              O     clra
5301 AD2F 54              T     lsrb
5302 AD30 48              H     asla
5303 AD31 45              E     illegal
5304 AD32 52              R     illegal
5305 AD33 20 20                 bra 20
5306 AD35 20 00            .    bra 00
5307 AD37 20 20                 bra 20
5308 AD39 20 49            I    bra 49
5309 AD3B 54              T     lsrb
5310 AD3C 45              E     illegal
5311 AD3D 4D              M     tsta
5312 AD3E 20 20                 bra 20
5313 AD40 20 00            .    bra 00
5314 AD42 20 20                 bra 20
5315 AD44 46              F     rora
5316 AD45 41              A     illegal
5317 AD46 49              I     rola
5318 AD47 54              T     lsrb
5319 AD48 45              E     illegal
5320 AD49 53              S     comb
5321 AD4A 20 20                 bra 20
5322 AD4C 00              .     test
5323 AD4D 20 20                 bra 20
5324 AD4F 41              A     illegal
5325 AD50 55              U     illegal
5326 AD51 54              T     lsrb
5327 AD52 52              R     illegal
5328 AD53 45              E     illegal
5329 AD54 20 20                 bra 20
5330 AD56 20 00            .    bra 00
5331 AD58 20 20                 bra 20
5332 AD5A 43              C     coma
5333 AD5B 48              H     asla
5334 AD5C 4F              O     clra
5335 AD5D 49              I     rola
5336 AD5E 58              X     aslb
5337 AD5F 20 20                 bra 20
5338 AD61 20 00            .    bra 00
5339 AD63 20 20                 bra 20
5340 AD65 42              B     illegal
5341 AD66 49              I     rola
5342 AD67 54              T     lsrb
5343 AD68 54              T     lsrb
5344 AD69 45              E     illegal
5345 AD6A 20 20                 bra 20
5346 AD6C 20 00            .    bra 00
5347 AD6E 20 20                 bra 20
5348 AD70 41              A     illegal
5349 AD71 4E              N     illegal
5350 AD72 44              D     lsra
5351 AD73 45              E     illegal
5352 AD74 52              R     illegal
5353 AD75 45              E     illegal
5354 AD76 20 20                 bra 20
5355 AD78 00              .     test
5356 AD79 20 20                 bra 20
5357 AD7B 20 57            W    bra 57
5358 AD7D 41              A     illegal
5359 AD7E 48              H     asla
5360 AD7F 4C              L     inca
5361 AD80 20 20                 bra 20
5362 AD82 20 00            .    bra 00
5363 AD84 20 20                 bra 20
5364 AD86 50              P     negb
5365 AD87 55              U     illegal
5366 AD88 4C              L     inca
5367 AD89 53              S     comb
5368 AD8A 45              E     illegal
5369 AD8B 20 20                 bra 20
5370 AD8D 20 00            .    bra 00
5371 AD8F 20 20                 bra 20
5372 AD91 45              E     illegal
5373 AD92 58              X     aslb
5374 AD93 54              T     lsrb
5375 AD94 52              R     illegal
5376 AD95 41              A     illegal
5377 AD96 20 20                 bra 20
5378 AD98 20 00            .    bra 00
5379 AD9A 20 53            S    bra 53
5380 AD9C 45              E     illegal
5381 AD9D 4C              L     inca
5382 AD9E 45              E     illegal
5383 AD9F 43              C     coma
5384 ADA0 43              C     coma
5385 ADA1 49              I     rola
5386 ADA2 4F              O     clra
5387 ADA3 4E              N     illegal
5388 ADA4 00              .     test
5389 ADA5 20 45            E    bra 45
5390 ADA7 58              X     aslb
5391 ADA8 41              A     illegal
5392 ADA9 43              C     coma
5393 ADAA 54              T     lsrb
5394 ADAB 20 43            C    bra 43
5395 ADAD 4F              O     clra
5396 ADAE 49              I     rola
5397 ADAF 4E              N     illegal
5398 ADB0 53              S     comb
5399 ADB1 20 4F            O    bra 4f
5400 ADB3 4E              N     illegal
5401 ADB4 4C              L     inca
5402 ADB5 59              Y     rolb
5403 ADB6 20 00            .    bra 00
5404 ADB8 20 4D            M    bra 4d
5405 ADBA 4F              O     clra
5406 ADBB 4E              N     illegal
5407 ADBC 4E              N     illegal
5408 ADBD 41              A     illegal
5409 ADBE 49              I     rola
5410 ADBF 45              E     illegal
5411 ADC0 20 45            E    bra 45
5412 ADC2 58              X     aslb
5413 ADC3 41              A     illegal
5414 ADC4 43              C     coma
5415 ADC5 54              T     lsrb
5416 ADC6 45              E     illegal
5417 ADC7 20 53            S    bra 53
5418 ADC9 45              E     illegal
5419 ADCA 55              U     illegal
5420 ADCB 4C              L     inca
5421 ADCC 45              E     illegal
5422 ADCD 4D              M     tsta
5423 ADCE 45              E     illegal
5424 ADCF 4E              N     illegal
5425 ADD0 54              T     lsrb
5426 ADD1 20 00            .    bra 00
5427 ADD3 20 4E            N    bra 4e
5428 ADD5 49              I     rola
5429 ADD6 43              C     coma
5430 ADD7 48              H     asla
5431 ADD8 54              T     lsrb
5432 ADD9 20 55            U    bra 55
5433 ADDB 45              E     illegal
5434 ADDC 42              B     illegal
5435 ADDD 45              E     illegal
5436 ADDE 52              R     illegal
5437 ADDF 5A              Z     decb
5438 ADE0 41              A     illegal
5439 ADE1 48              H     asla
5440 ADE2 4C              L     inca
5441 ADE3 45              E     illegal
5442 ADE4 4E              N     illegal
5443 ADE5 20 00            .    bra 00
5444 ADE7 20 49            I    bra 49
5445 ADE9 4E              N     illegal
5446 ADEA 54              T     lsrb
5447 ADEB 52              R     illegal
5448 ADEC 4F              O     clra
5449 ADED 44              D     lsra
5450 ADEE 55              U     illegal
5451 ADEF 5A              Z     decb
5452 ADF0 43              C     coma
5453 ADF1 41              A     illegal
5454 ADF2 20 50            P    bra 50
5455 ADF4 52              R     illegal
5456 ADF5 45              E     illegal
5457 ADF6 43              C     coma
5458 ADF7 49              I     rola
5459 ADF8 4F              O     clra
5460 ADF9 20 45            E    bra 45
5461 ADFB 58              X     aslb
5462 ADFC 41              A     illegal
5463 ADFD 43              C     coma
5464 ADFE 54              T     lsrb
5465 ADFF 4F              O     clra
5466 AE00 20 00            .    bra 00
5467 AE02 20 43            C    bra 43
5468 AE04 4F              O     clra
5469 AE05 49              I     rola
5470 AE06 4E              N     illegal
5471 AE07 53              S     comb
5472 AE08 20 4F            O    bra 4f
5473 AE0A 4E              N     illegal
5474 AE0B 4C              L     inca
5475 AE0C 59              Y     rolb
5476 AE0D 20 00            .    bra 00
5477 AE0F 20 4D            M    bra 4d
5478 AE11 4F              O     clra
5479 AE12 4E              N     illegal
5480 AE13 4E              N     illegal
5481 AE14 41              A     illegal
5482 AE15 49              I     rola
5483 AE16 45              E     illegal
5484 AE17 20 53            S    bra 53
5485 AE19 45              E     illegal
5486 AE1A 55              U     illegal
5487 AE1B 4C              L     inca
5488 AE1C 45              E     illegal
5489 AE1D 4D              M     tsta
5490 AE1E 45              E     illegal
5491 AE1F 4E              N     illegal
5492 AE20 54              T     lsrb
5493 AE21 20 00            .    bra 00
5494 AE23 20 4E            N    bra 4e
5495 AE25 55              U     illegal
5496 AE26 52              R     illegal
5497 AE27 20 4D            M    bra 4d
5498 AE29 55              U     illegal
5499 AE2A 4E              N     illegal
5500 AE2B 5A              Z     decb
5501 AE2C 45              E     illegal
5502 AE2D 4E              N     illegal
5503 AE2E 20 00            .    bra 00
5504 AE30 20 4D            M    bra 4d
5505 AE32 4F              O     clra
5506 AE33 4E              N     illegal
5507 AE34 45              E     illegal
5508 AE35 44              D     lsra
5509 AE36 41              A     illegal
5510 AE37 20 55            U    bra 55
5511 AE39 4E              N     illegal
5512 AE3A 49              I     rola
5513 AE3B 43              C     coma
5514 AE3C 41              A     illegal
5515 AE3D 4D              M     tsta
5516 AE3E 45              E     illegal
5517 AE3F 4E              N     illegal
5518 AE40 54              T     lsrb
5519 AE41 45              E     illegal
5520 AE42 20 00            .    bra 00
5521 AE44 20 4D            M    bra 4d
5522 AE46 41              A     illegal
5523 AE47 43              C     coma
5524 AE48 48              H     asla
5525 AE49 49              I     rola
5526 AE4A 4E              N     illegal
5527 AE4B 45              E     illegal
5528 AE4C 20 4F            O    bra 4f
5529 AE4E 55              U     illegal
5530 AE4F 54              T     lsrb
5531 AE50 20 4F            O    bra 4f
5532 AE52 46              F     rora
5533 AE53 20 4F            O    bra 4f
5534 AE55 52              R     illegal
5535 AE56 44              D     lsra
5536 AE57 45              E     illegal
5537 AE58 52              R     illegal
5538 AE59 20 00            .    bra 00
5539 AE5B 20 48            H    bra 48
5540 AE5D 4F              O     clra
5541 AE5E 52              R     illegal
5542 AE5F 53              S     comb
5543 AE60 20 44            D    bra 44
5544 AE62 45              E     illegal
5545 AE63 20 53            S    bra 53
5546 AE65 45              E     illegal
5547 AE66 52              R     illegal
5548 AE67 56              V     rorb
5549 AE68 49              I     rola
5550 AE69 43              C     coma
5551 AE6A 45              E     illegal
5552 AE6B 20 00            .    bra 00
5553 AE6D 20 41            A    bra 41
5554 AE6F 55              U     illegal
5555 AE70 53              S     comb
5556 AE71 53              S     comb
5557 AE72 45              E     illegal
5558 AE73 52              R     illegal
5559 AE74 20 42            B    bra 42
5560 AE76 45              E     illegal
5561 AE77 54              T     lsrb
5562 AE78 52              R     illegal
5563 AE79 49              I     rola
5564 AE7A 45              E     illegal
5565 AE7B 42              B     illegal
5566 AE7C 20 00            .    bra 00
5567 AE7E 20 46            F    bra 46
5568 AE80 55              U     illegal
5569 AE81 45              E     illegal
5570 AE82 52              R     illegal
5571 AE83 41              A     illegal
5572 AE84 20 44            D    bra 44
5573 AE86 45              E     illegal
5574 AE87 20 53            S    bra 53
5575 AE89 45              E     illegal
5576 AE8A 52              R     illegal
5577 AE8B 56              V     rorb
5578 AE8C 49              I     rola
5579 AE8D 43              C     coma
5580 AE8E 49              I     rola
5581 AE8F 4F              O     clra
5582 AE90 20 00            .    bra 00
5583
5584 AE92 2D 20           -     blt 20
5585 AE94 20 20                 bra 20
5586 AE96 20 20                 bra 20
5587 AE98 20 20                 bra 20
5588 AE9A 20 20                 bra 20
5589 AE9C 00              .     test
5590
5591 AE9D 53              S     comb
5592 AE9E 45              E     illegal
5593 AE9F 54              T     lsrb
5594 AEA0 20 50            P    bra 50
5595 AEA2 52              R     illegal
5596 AEA3 49              I     rola
5597 AEA4 43              C     coma
5598 AEA5 45              E     illegal
5599 AEA6 3F              ?     swi
5600 AEA7 00              .     test
5601
5602 AEA8 20 20                 bra 20
5603 AEAA 53              S     comb
5604 AEAB 59              Y     rolb
5605 AEAC 53              S     comb
5606 AEAD 54              T     lsrb
5607 AEAE 45              E     illegal
5608 AEAF 4D              M     tsta
5609 AEB0 20 20                 bra 20
5610 AEB2 00              .     test
5611
5612 AEB3 20 20                 bra 20
5613 AEB5 20 20                 bra 20
5614 AEB7 4F              O     clra
5615 AEB8 4B              K     illegal
5616 AEB9 20 20                 bra 20
5617 AEBB 20 20                 bra 20
5618 AEBD 00              .     test
5619
5620 AEBE 24 35           $5    bcc 35
5621 AEC0 20 45            E    bra 45
5622 AEC2 4E              N     illegal
5623 AEC3 41              A     illegal
5624 AEC4 42              B     illegal
5625 AEC5 4C              L     inca
5626 AEC6 45              E     illegal
5627 AEC7 20 00            .    bra 00
5628
5629 AEC9 24 35           $5    bcc 35
5630 AECB 20 44            D    bra 44
5631 AECD 49              I     rola
5632 AECE 53              S     comb
5633 AECF 41              A     illegal
5634 AED0 42              B     illegal
5635 AED1 4C              L     inca
5636 AED2 45              E     illegal
5637 AED3 00              .     test
5638
5639 AED4 53              S     comb
5640 AED5 4F              O     clra
5641 AED6 44              D     lsra
5642 AED7 41              A     illegal
5643 AED8 20 56            V    bra 56
5644 AEDA 45              E     illegal
5645 AEDB 4E              N     illegal
5646 AEDC 44              D     lsra
5647 AEDD 20 00            .    bra 00
5648 AEDF 53              S     comb
5649 AEE0 4E              N     illegal
5650 AEE1 41              A     illegal
5651 AEE2 43              C     coma
5652 AEE3 4B              K     illegal
5653 AEE4 20 56            V    bra 56
5654 AEE6 45              E     illegal
5655 AEE7 4E              N     illegal
5656 AEE8 44              D     lsra
5657 AEE9 00              .     test
5658
5659 AEEA 44              D     lsra
5660 AEEB 55              U     illegal
5661 AEEC 4D              M     tsta
5662 AEED 42              B     illegal
5663 AEEE 20 4D            M    bra 4d
5664 AEF0 45              E     illegal
5665 AEF1 43              C     coma
5666 AEF2 20 59            Y    bra 59
5667 AEF4 00              .     test
5668 AEF5 44              D     lsra
5669 AEF6 55              U     illegal
5670 AEF7 4D              M     tsta
5671 AEF8 42              B     illegal
5672 AEF9 20 4D            M    bra 4d
5673 AEFB 45              E     illegal
5674 AEFC 43              C     coma
5675 AEFD 20 4E            N    bra 4e
5676 AEFF 00              .     test
5677 AF00 4C              L     inca
5678 AF01 4E              N     illegal
5679 AF02 4B              K     illegal
5680 AF03 20 4D            M    bra 4d
5681 AF05 53              S     comb
5682 AF06 54              T     lsrb
5683 AF07 52              R     illegal
5684 AF08 20 59            Y    bra 59
5685 AF0A 00              .     test
5686 AF0B 4C              L     inca
5687 AF0C 4E              N     illegal
5688 AF0D 4B              K     illegal
5689 AF0E 20 4D            M    bra 4d
5690 AF10 53              S     comb
5691 AF11 54              T     lsrb
5692 AF12 52              R     illegal
5693 AF13 20 4E            N    bra 4e
5694 AF15 00              .     test
5695 AF16 43              C     coma
5696 AF17 41              A     illegal
5697 AF18 52              R     illegal
5698 AF19 44              D     lsra
5699 AF1A 20 52            R    bra 52
5700 AF1C 44              D     lsra
5701 AF1D 52              R     illegal
5702 AF1E 20 59            Y    bra 59
5703 AF20 00              .     test
5704 AF21 43              C     coma
5705 AF22 41              A     illegal
5706 AF23 52              R     illegal
5707 AF24 44              D     lsra
5708 AF25 20 52            R    bra 52
5709 AF27 44              D     lsra
5710 AF28 52              R     illegal
5711 AF29 20 4E            N    bra 4e
5712 AF2B 00              .     test
5713 AF2C 42              B     illegal
5714 AF2D 49              I     rola
5715 AF2E 4C              L     inca
5716 AF2F 4C              L     inca
5717 AF30 20 56            V    bra 56
5718 AF32 41              A     illegal
5719 AF33 4C              L     inca
5720 AF34 20 59            Y    bra 59
5721 AF36 00              .     test
5722 AF37 42              B     illegal
5723 AF38 49              I     rola
5724 AF39 4C              L     inca
5725 AF3A 4C              L     inca
5726 AF3B 20 56            V    bra 56
5727 AF3D 41              A     illegal
5728 AF3E 4C              L     inca
5729 AF3F 20 4E            N    bra 4e
5730 AF41 00              .     test
5731 AF42 50              P     negb
5732 AF43 52              R     illegal
5733 AF44 43              C     coma
5734 AF45 20 48            H    bra 48
5735 AF47 4F              O     clra
5736 AF48 4C              L     inca
5737 AF49 44              D     lsra
5738 AF4A 20 59            Y    bra 59
5739 AF4C 00              .     test
5740 AF4D 50              P     negb
5741 AF4E 52              R     illegal
5742 AF4F 43              C     coma
5743 AF50 20 48            H    bra 48
5744 AF52 4F              O     clra
5745 AF53 4C              L     inca
5746 AF54 44              D     lsra
5747 AF55 20 4E            N    bra 4e
5748 AF57 00              .     test
5749 AF58 50              P     negb
5750 AF59 52              R     illegal
5751 AF5A 43              C     coma
5752 AF5B 20 44            D    bra 44
5753 AF5D 49              I     rola
5754 AF5E 53              S     comb
5755 AF5F 50              P     negb
5756 AF60 20 59            Y    bra 59
5757 AF62 00              .     test
5758 AF63 50              P     negb
5759 AF64 52              R     illegal
5760 AF65 43              C     coma
5761 AF66 20 44            D    bra 44
5762 AF68 49              I     rola
5763 AF69 53              S     comb
5764 AF6A 50              P     negb
5765 AF6B 20 4E            N    bra 4e
5766 AF6D 00              .     test
5767 AF6E 46              F     rora
5768 AF6F 52              R     illegal
5769 AF70 45              E     illegal
5770 AF71 45              E     illegal
5771 AF72 20 56            V    bra 56
5772 AF74 4E              N     illegal
5773 AF75 44              D     lsra
5774 AF76 20 59            Y    bra 59
5775 AF78 00              .     test
5776 AF79 46              F     rora
5777 AF7A 52              R     illegal
5778 AF7B 45              E     illegal
5779 AF7C 45              E     illegal
5780 AF7D 20 56            V    bra 56
5781 AF7F 4E              N     illegal
5782 AF80 44              D     lsra
5783 AF81 20 4E            N    bra 4e
5784 AF83 00              .     test
5785 AF84 24 31           $1    bcc 31
5786 AF86 20 43            C    bra 43
5787 AF88 48              H     asla
5788 AF89 4E              N     illegal
5789 AF8A 47              G     asra
5790 AF8B 52              R     illegal
5791 AF8C 20 59            Y    bra 59
5792 AF8E 00              .     test
5793 AF8F 24 31           $1    bcc 31
5794 AF91 20 43            C    bra 43
5795 AF93 48              H     asla
5796 AF94 4E              N     illegal
5797 AF95 47              G     asra
5798 AF96 52              R     illegal
5799 AF97 20 4E            N    bra 4e
5800 AF99 00              .     test
5801 AF9A 43              C     coma
5802 AF9B 4C              L     inca
5803 AF9C 52              R     illegal
5804 AF9D 20 4D            M    bra 4d
5805 AF9F 49              I     rola
5806 AFA0 53              S     comb
5807 AFA1 20 20                 bra 20
5808 AFA3 59              Y     rolb
5809 AFA4 00              .     test
5810 AFA5 43              C     coma
5811 AFA6 4C              L     inca
5812 AFA7 52              R     illegal
5813 AFA8 20 4D            M    bra 4d
5814 AFAA 49              I     rola
5815 AFAB 53              S     comb
5816 AFAC 20 20                 bra 20
5817 AFAE 4E              N     illegal
5818 AFAF 00              .     test
5819 AFB0 48              H     asla
5820 AFB1 49              I     rola
5821 AFB2 54              T     lsrb
5822 AFB3 20 4B            K    bra 4b
5823 AFB5 45              E     illegal
5824 AFB6 59              Y     rolb
5825 AFB7 22 30           "0    bhi 30
5826 AFB9 22 00           ".    bhi 00
5827 AFBB 45              E     illegal
5828 AFBC 4E              N     illegal
5829 AFBD 54              T     lsrb
5830 AFBE 45              E     illegal
5831 AFBF 52              R     illegal
5832 AFC0 20 43            C    bra 43
5833 AFC2 4F              O     clra
5834 AFC3 44              D     lsra
5835 AFC4 45              E     illegal
5836 AFC5 00              .     test
5837 AFC6 53              S     comb
5838 AFC7 45              E     illegal
5839 AFC8 43              C     coma
5840 AFC9 55              U     illegal
5841 AFCA 52              R     illegal
5842 AFCB 45              E     illegal
5843 AFCC 20 4F            O    bra 4f
5844 AFCE 4E              N     illegal
5845 AFCF 20 00            .    bra 00
5846 AFD1 53              S     comb
5847 AFD2 45              E     illegal
5848 AFD3 43              C     coma
5849 AFD4 55              U     illegal
5850 AFD5 52              R     illegal
5851 AFD6 45              E     illegal
5852 AFD7 20 4F            O    bra 4f
5853 AFD9 46              F     rora
5854 AFDA 46              F     rora
5855 AFDB 00              .     test
5856 AFDC 2D 20           -     blt 20
5857 AFDE 53              S     comb
5858 AFDF 41              A     illegal
5859 AFE0 56              V     rorb
5860 AFE1 49              I     rola
5861 AFE2 4E              N     illegal
5862 AFE3 47              G     asra
5863 AFE4 20 2D            -    bra 2d
5864 AFE6 00              .     test
5865 AFE7 2D 50           -P    blt 50
5866 AFE9 52              R     illegal
5867 AFEA 49              I     rola
5868 AFEB 4E              N     illegal
5869 AFEC 54              T     lsrb
5870 AFED 49              I     rola
5871 AFEE 4E              N     illegal
5872 AFEF 47              G     asra
5873 AFF0 2D 00           -.    blt 00
5874
5875 AFF2 4F              O     clra
5876 AFF3 56              V     rorb
5877 AFF4 45              E     illegal
5878 AFF5 52              R     illegal
5879 AFF6 20 43            C    bra 43
5880 AFF8 52              R     illegal
5881 AFF9 4E              N     illegal
5882 AFFA 54              T     lsrb
5883 AFFB 3D              =     mul
5884 AFFC 00              .     test
5885
5886 AFFD 48              H     asla
5887 AFFE 4F              O     clra
5888 AFFF 4D              M     tsta
5889 B000 45              E     illegal
5890 B001 20 46            F    bra 46
5891 B003 41              A     illegal
5892 B004 49              I     rola
5893 B005 4C              L     inca
5894 B006 3D              =     mul
5895 B007 00              .     test
5896 B008 43              C     coma
5897 B009 48              H     asla
5898 B00A 4B              K     illegal
5899 B00B 20 50            P    bra 50
5900 B00D 52              R     illegal
5901 B00E 49              I     rola
5902 B00F 43              C     coma
5903 B010 45              E     illegal
5904 B011 53              S     comb
5905 B012 00              .     test
5906
5907 B013 48              H     asla
5908 B014 49              I     rola
5909 B015 54              T     lsrb
5910 B016 20 52            R    bra 52
5911 B018 45              E     illegal
5912 B019 53              S     comb
5913 B01A 45              E     illegal
5914 B01B 54              T     lsrb
5915 B01C 20 00            .    bra 00
5916
5917 B01E 43              C     coma
5918 B01F 4F              O     clra
5919 B020 49              I     rola
5920 B021 4E              N     illegal
5921 B022 20 20                 bra 20
5922 B024 20 4A            J    bra 4a
5923 B026 41              A     illegal
5924 B027 4D              M     tsta
5925 B028 00              .     test
5926
5927 B029 42              B     illegal
5928 B02A 41              A     illegal
5929 B02B 44              D     lsra
5930 B02C 20 53            S    bra 53
5931 B02E 45              E     illegal
5932 B02F 4E              N     illegal
5933 B030 53              S     comb
5934 B031 4F              O     clra
5935 B032 52              R     illegal
5936 B033 00              .     test
5937
5938 B034 43              C     coma
5939 B035 48              H     asla
5940 B036 47              G     asra
5941 B037 52              R     illegal
5942 B038 20 50            P    bra 50
5943 B03A 57              W     asrb
5944 B03B 52              R     illegal
5945 B03C 55              U     illegal
5946 B03D 50              P     negb
5947 B03E 00              .     test
5948
5949 B03F 4C              L     inca
5950 B040 49              I     rola
5951 B041 4E              N     illegal
5952 B042 4B              K     illegal
5953 B043 20 50            P    bra 50
5954 B045 57              W     asrb
5955 B046 52              R     illegal
5956 B047 55              U     illegal
5957 B048 50              P     negb
5958 B049 00              .     test
5959
5960 B04A 43              C     coma
5961 B04B 41              A     illegal
5962 B04C 52              R     illegal
5963 B04D 44              D     lsra
5964 B04E 20 50            P    bra 50
5965 B050 57              W     asrb
5966 B051 52              R     illegal
5967 B052 55              U     illegal
5968 B053 50              P     negb
5969 B054 00              .     test
5970
5971 B055 42              B     illegal
5972 B056 49              I     rola
5973 B057 4C              L     inca
5974 B058 4C              L     inca
5975 B059 20 45            E    bra 45
5976 B05B 52              R     illegal
5977 B05C 52              R     illegal
5978 B05D 4F              O     clra
5979 B05E 52              R     illegal
5980 B05F 00              .     test
5981
5982 B060 54              T     lsrb
5983 B061 55              U     illegal
5984 B062 42              B     illegal
5985 B063 45              E     illegal
5986 B064 20 45            E    bra 45
5987 B066 52              R     illegal
5988 B067 52              R     illegal
5989 B068 4F              O     clra
5990 B069 52              R     illegal
5991 B06A 00              .     test
5992 B06B 4E              N     illegal
5993 B06C 4F              O     clra
5994 B06D 20 20                 bra 20
5995 B06F 43              C     coma
5996 B070 48              H     asla
5997 B071 41              A     illegal
5998 B072 4E              N     illegal
5999 B073 47              G     asra
6000 B074 45              E     illegal
6001 B075 00              .     test
6002 B076 20 4E            N    bra 4e
6003 B078 4F              O     clra
6004 B079 20 46            F    bra 46
6005 B07B 49              I     rola
6006 B07C 56              V     rorb
6007 B07D 45              E     illegal
6008 B07E 53              S     comb
6009 B07F 20 00            .    bra 00
6010
6011 B081 4E              N     illegal
6012 B082 4F              O     clra
6013 B083 20 20                 bra 20
6014 B085 41              A     illegal
6015 B086 43              C     coma
6016 B087 43              C     coma
6017 B088 45              E     illegal
6018 B089 53              S     comb
6019 B08A 53              S     comb
6020 B08B 00              .     test
6021 B08C 4E              N     illegal
6022 B08D 4F              O     clra
6023 B08E 20 20                 bra 20
6024 B090 45              E     illegal
6025 B091 52              R     illegal
6026 B092 52              R     illegal
6027 B093 4F              O     clra
6028 B094 52              R     illegal
6029 B095 53              S     comb
6030 B096 00              .     test
6031 B097 54              T     lsrb
6032 B098 45              E     illegal
6033 B099 53              S     comb
6034 B09A 54              T     lsrb
6035 B09B 20 20                 bra 20
6036 B09D 56              V     rorb
6037 B09E 45              E     illegal
6038 B09F 4E              N     illegal
6039 B0A0 44              D     lsra
6040 B0A1 00              .     test
6041 B0A2 4D              M     tsta
6042 B0A3 54              T     lsrb
6043 B0A4 52              R     illegal
6044 B0A5 20 46            F    bra 46
6045 B0A7 55              U     illegal
6046 B0A8 4E              N     illegal
6047 B0A9 43              C     coma
6048 B0AA 54              T     lsrb
6049 B0AB 3F              ?     swi
6050 B0AC 00              .     test
6051 B0AD 50              P     negb
6052 B0AE 52              R     illegal
6053 B0AF 4F              O     clra
6054 B0B0 47              G     asra
6055 B0B1 52              R     illegal
6056 B0B2 41              A     illegal
6057 B0B3 4D              M     tsta
6058 B0B4 20 20                 bra 20
6059 B0B6 3F              ?     swi
6060 B0B7 00              .     test
6061 B0B8 53              S     comb
6062 B0B9 45              E     illegal
6063 B0BA 4C              L     inca
6064 B0BB 45              E     illegal
6065 B0BC 43              C     coma
6066 B0BD 54              T     lsrb
6067 B0BE 49              I     rola
6068 B0BF 4F              O     clra
6069 B0C0 4E              N     illegal
6070 B0C1 3F              ?     swi
6071 B0C2 00              .     test
6072
6073 B0C3 14              .     bset
6074 B0C4 00              .     test
6075 B0C5 14              .     bset
6076 B0C6 C8 05           ..    eorb #05
6077 B0C8 00              .     test
6078 B0C9 05              .     asld
6079 B0CA 00              .     test
6080 B0CB 02              .     idiv
6081 B0CC 00              .     test
6082 B0CD 02              .     idiv
6083 B0CE 00              .     test
6084 B0CF 01              .     nop
6085 B0D0 00              .     test
6086 B0D1 01              .     nop
6087 B0D2 00              .     test
6088 B0D3 01              .     nop
6089 B0D4 0C              .     clc
6090 B0D5 17              .     tba
6091 B0D6 22 2E           ".    bhi 2e
6092 B0D8 39              9     rts
6093
6094 B0D9 44              D     lsra
6095 B0DA 4F              O     clra
6096 B0DB 0B              .     sev
6097 B0DC 16              .     tab
6098 B0DD 21 2C           !,    brn 2c
6099 B0DF 38              8     pulx
6100 B0E0 43              C     coma
6101 B0E1 4E              N     illegal
6102 B0E2 59              Y     rolb
6103 B0E3 15              .     bclr
6104 B0E4 20 2B            +    bra 2b
6105 B0E6 36              6     psha
6106 B0E7 42              B     illegal
6107 B0E8 4D              M     tsta
6108 B0E9 58              X     aslb
6109 B0EA 63 1F           c.    com 1f,x
6110 B0EC 2A 35           *5    bpl 35
6111 B0EE 40              @     nega
6112 B0EF 4C              L     inca
6113 B0F0 57              W     asrb
6114 B0F1 62              b     illegal
6115 B0F2 09              .     dex
6116 B0F3 29 34           )4    bvs 34
6117 B0F5 3F              ?     swi
6118 B0F6 4A              J     deca
6119 B0F7 56              V     rorb
6120 B0F8 61              a     illegal
6121 B0F9 08              .     inx
6122 B0FA 13              .     brclr
6123 B0FB 33              3     pulb
6124 B0FC 3E              >     wai
6125 B0FD 49              I     rola
6126 B0FE 54              T     lsrb
6127 B0FF 60 07           `.    neg 07,x
6128 B101 12              .     brset
6129 B102 1D 3D           .=    bclr add,x 3d,x
6130 B104 48              H     asla
6131 B105 53              S     comb
6132 B106 5E              ^     illegal
6133 B107 06              .     tap
6134 B108 11              .     cba
6135 B109 1C 27           .'    bset add,x 27,x
6136 B10B 47              G     asra
6137 B10C 52              R     illegal
6138 B10D 5D              ]     tstb
6139 B10E 04              .     lsrd
6140 B10F 10              .     sba
6141 B110 1B              .     aba
6142 B111 26 31           &1    bne 31
6143 B113 51              Q     illegal
6144 B114 5C              \     incb
6145 B115 03              .     fdiv
6146 B116 0E              .     cli
6147 B117 1A              .     illegal
6148 B118 25 30           %0    bcs 30
6149 B11A 3B              ;     rti
6150 B11B 5B              [     illegal
6151 B11C 02              .     idiv
6152 B11D 0D              .     sec
6153 B11E 18              .     illegal
6154 B11F 24 2F           $/    bcc 2f
6155 B121 3A              :     abx
6156 B122 45              E     illegal
6157
6158 table of powers of 2
6159
6160 B123 00 01 02 04 08
6161 B128 10 20 40 80
6162
6163 B12C 00
6164 B12D 00              .     test
6165 B12E 2A 2A           **    bpl 2a       ;"**ERROR***"
6166 B130 45              E     illegal
6167 B131 52              R     illegal
6168 B132 52              R     illegal
6169 B133 4F              O     clra
6170 B134 52              R     illegal
6171 B135 2A 2A           **    bpl 2a
6172 B137 2A 00           *.    bpl 00
6173
6174 B139 2A 2A           **    bpl 2a
6175 B13B 2A 2A           **    bpl 2a
6176 B13D 2A 2A           **    bpl 2a
6177 B13F 2A 2A           **    bpl 2a
6178 B141 2A 2A           **    bpl 2a
6179 B143 00              .     test
6180 B144 4F              O     clra
6181 B145 4F              O     clra
6182 B146 4F              O     clra
6183 B147 4F              O     clra
6184 B148 4F              O     clra
6185 B149 4F              O     clra
6186 B14A 4F              O     clra
6187 B14B 4F              O     clra
6188 B14C 4F              O     clra
6189 B14D 4F              O     clra
6190 B14E 00              .     test
6191 B14F 52              R     illegal
6192 B150 41              A     illegal
6193 B151 4D              M     tsta
6194 B152 20 20                 bra 20
6195 B154 20 46            F    bra 46
6196 B156 41              A     illegal
6197 B157 49              I     rola
6198 B158 4C              L     inca
6199 B159 00              .     test
6200 B15A 50              P     negb
6201 B15B 32              2     pula
6202 B15C 20 20                 bra 20
6203 B15E 20 20                 bra 20
6204 B160 46              F     rora
6205 B161 41              A     illegal
6206 B162 49              I     rola
6207 B163 4C              L     inca
6208 B164 00              .     test
6209 B165 50              P     negb
6210 B166 32              2     pula
6211 B167 2D 50           -P    blt 50
6212 B169 33              3     pulb
6213 B16A 20 46            F    bra 46
6214 B16C 41              A     illegal
6215 B16D 49              I     rola
6216 B16E 4C              L     inca
6217 B16F 00              .     test
6218 B170 50              P     negb
6219 B171 32              2     pula
6220 B172 2D 50           -P    blt 50
6221 B174 38              8     pulx
6222 B175 20 46            F    bra 46
6223 B177 41              A     illegal
6224 B178 49              I     rola
6225 B179 4C              L     inca
6226 B17A 00              .     test
6227 B17B 50              P     negb
6228 B17C 32              2     pula
6229 B17D 2D 50           -P    blt 50
6230 B17F 39              9     rts
6231
6232 B180 20 46            F    bra 46
6233 B182 41              A     illegal
6234 B183 49              I     rola
6235 B184 4C              L     inca
6236 B185 00              .     test
6237 B186 50              P     negb
6238 B187 33              3     pulb
6239 B188 2D 50           -P    blt 50
6240 B18A 34              4     des
6241 B18B 20 46            F    bra 46
6242 B18D 41              A     illegal
6243 B18E 49              I     rola
6244 B18F 4C              L     inca
6245 B190 00              .     test
6246 B191 50              P     negb
6247 B192 35              5     txs
6248 B193 20 20                 bra 20
6249 B195 20 20                 bra 20
6250 B197 46              F     rora
6251 B198 41              A     illegal
6252 B199 49              I     rola
6253 B19A 4C              L     inca
6254 B19B 00              .     test
6255 B19C 50              P     negb
6256 B19D 35              5     txs
6257 B19E 2D 50           -P    blt 50
6258 B1A0 37              7     pshb
6259 B1A1 20 46            F    bra 46
6260 B1A3 41              A     illegal
6261 B1A4 49              I     rola
6262 B1A5 4C              L     inca
6263 B1A6 00              .     test
6264 B1A7 50              P     negb
6265 B1A8 37              7     pshb
6266 B1A9 20 20                 bra 20
6267 B1AB 20 20                 bra 20
6268 B1AD 46              F     rora
6269 B1AE 41              A     illegal
6270 B1AF 49              I     rola
6271 B1B0 4C              L     inca
6272 B1B1 00              .     test
6273 B1B2 50              P     negb
6274 B1B3 37              7     pshb
6275 B1B4 2D 50           -P    blt 50
6276 B1B6 38              8     pulx
6277 B1B7 20 46            F    bra 46
6278 B1B9 41              A     illegal
6279 B1BA 49              I     rola
6280 B1BB 4C              L     inca
6281 B1BC 00              .     test
6282 B1BD 2D 20           -     blt 20
6283 B1BF 50              P     negb
6284 B1C0 41              A     illegal
6285 B1C1 53              S     comb
6286 B1C2 53              S     comb
6287 B1C3 45              E     illegal
6288 B1C4 44              D     lsra
6289 B1C5 20 2D            -    bra 2d
6290 B1C7 00              .     test
6291 B1C8 09              .     dex
6292 B1C9 12              .     brset
6293 B1CA 1B              .     aba
6294 B1CB 24 2C           $,    bcc 2c
6295 B1CD 35              5     txs
6296 B1CE 3E              >     wai
6297 B1CF 47              G     asra
6298 B1D0 54              T     lsrb
6299 B1D1 48              H     asla
6300 B1D2 41              A     illegal
6301 B1D3 4E              N     illegal
6302 B1D4 4B              K     illegal
6303 B1D5 20 59            Y    bra 59
6304 B1D7 4F              O     clra
6305 B1D8 55              U     illegal
6306 B1D9 20 46            F    bra 46
6307 B1DB 4F              O     clra
6308 B1DC 52              R     illegal
6309 B1DD 20 59            Y    bra 59
6310 B1DF 4F              O     clra
6311 B1E0 55              U     illegal
6312 B1E1 52              R     illegal
6313 B1E2 20 50            P    bra 50
6314 B1E4 41              A     illegal
6315 B1E5 54              T     lsrb
6316 B1E6 52              R     illegal
6317 B1E7 4F              O     clra
6318 B1E8 4E              N     illegal
6319 B1E9 41              A     illegal
6320 B1EA 47              G     asra
6321 B1EB 45              E     illegal
6322 B1EC 20 20                 bra 20
6323 B1EE 00              .     test
6324
6325 B1EF 20 52            R    bra 52
6326 B1F1 4F              O     clra
6327 B1F2 57              W     asrb
6328 B1F3 45              E     illegal
6329 B1F4 20 49            I    bra 49
6330 B1F6 4E              N     illegal
6331 B1F7 54              T     lsrb
6332 B1F8 20 00            .    bra 00
6333
6334 B1FA 43              C     coma
6335 B1FB 4F              O     clra
6336 B1FC 50              P     negb
6337 B1FD 59              Y     rolb
6338 B1FE 52              R     illegal
6339 B1FF 49              I     rola
6340 B200 47              G     asra
6341 B201 48              H     asla
6342 B202 54              T     lsrb
6343 B203 20 00            .    bra 00
6344
6345 B205 20 20                 bra 20
6346 B207 20 31            1    bra 31
6347 B209 39              9     rts
6348 B20A 39              9     rts
6349 B20B 33              3     pulb
6350 B20C 20 20                 bra 20
6351 B20E 20 00            .    bra 00
6352
6353 B210 35              5     txs
6354 B211 39              9     rts
6355 B212 30              0     tsx
6356 B213 30              0     tsx
6357 B214 20 56            V    bra 56
6358 B216 45              E     illegal
6359 B217 52              R     illegal
6360 B218 20 35            5    bra 35
6361 B21A 00              .     test
6362
6363 B21B 20 20                 bra 20
6364 B21D 20 20                 bra 20
6365 B21F 20 20                 bra 20
6366 B221 20 20                 bra 20
6367 B223 20 52            R    bra 52
6368 B225 4F              O     clra
6369 B226 57              W     asrb
6370 B227 45              E     illegal
6371 B228 20 20                 bra 20
6372 B22A 49              I     rola
6373 B22B 4E              N     illegal
6374 B22C 54              T     lsrb
6375 B22D 45              E     illegal
6376 B22E 52              R     illegal
6377 B22F 4E              N     illegal
6378 B230 41              A     illegal
6379 B231 54              T     lsrb
6380 B232 49              I     rola
6381 B233 4F              O     clra
6382 B234 4E              N     illegal
6383 B235 41              A     illegal
6384 B236 4C              L     inca
6385 B237 00              .     test
6386 B238 20 20                 bra 20
6387 B23A 20 20                 bra 20
6388 B23C 20 20                 bra 20
6389 B23E 20 20                 bra 20
6390 B240 2D 2D           --    blt 2d
6391 B242 2D 2D           --    blt 2d
6392 B244 2D 2D           --    blt 2d
6393 B246 2D 2D           --    blt 2d
6394 B248 2D 2D           --    blt 2d
6395 B24A 2D 2D           --    blt 2d
6396 B24C 2D 2D           --    blt 2d
6397 B24E 2D 2D           --    blt 2d
6398 B250 2D 2D           --    blt 2d
6399 B252 2D 2D           --    blt 2d
6400 B254 2D 00           -.    blt 00
6401 B256 20 20                 bra 20
6402 B258 20 20                 bra 20
6403 B25A 20 20                 bra 20
6404 B25C 20 20                 bra 20
6405 B25E 35              5     txs
6406 B25F 39              9     rts
6407 B260 30              0     tsx
6408 B261 30              0     tsx
6409 B262 20 53            S    bra 53
6410 B264 4F              O     clra
6411 B265 46              F     rora
6412 B266 54              T     lsrb
6413 B267 57              W     asrb
6414 B268 41              A     illegal
6415 B269 52              R     illegal
6416 B26A 45              E     illegal
6417 B26B 20 56            V    bra 56
6418 B26D 45              E     illegal
6419 B26E 52              R     illegal
6420 B26F 2E 20           .     bgt 20
6421 B271 35              5     txs
6422 B272 20 20                 bra 20
6423 B274 00              .     test
6424 B275 20 20                 bra 20
6425 B277 20 20                 bra 20
6426 B279 20 20                 bra 20
6427 B27B 20 20                 bra 20
6428 B27D 20 20                 bra 20
6429 B27F 20 41            A    bra 41
6430 B281 43              C     coma
6431 B282 43              C     coma
6432 B283 4F              O     clra
6433 B284 55              U     illegal
6434 B285 4E              N     illegal
6435 B286 54              T     lsrb
6436 B287 20 20                 bra 20
6437 B289 52              R     illegal
6438 B28A 45              E     illegal
6439 B28B 43              C     coma
6440 B28C 4F              O     clra
6441 B28D 52              R     illegal
6442 B28E 44              D     lsra
6443 B28F 00              .     test
6444 B290 53              S     comb
6445 B291 45              E     illegal
6446 B292 52              R     illegal
6447 B293 49              I     rola
6448 B294 41              A     illegal
6449 B295 4C              L     inca
6450 B296 20 20                 bra 20
6451 B298 23 20           #     bls 20
6452 B29A 20 20                 bra 20
6453 B29C 20 20                 bra 20
6454 B29E 20 2D            -    bra 2d
6455 B2A0 20 00            .    bra 00
6456 B2A2 4D              M     tsta
6457 B2A3 41              A     illegal
6458 B2A4 43              C     coma
6459 B2A5 48              H     asla
6460 B2A6 49              I     rola
6461 B2A7 4E              N     illegal
6462 B2A8 45              E     illegal
6463 B2A9 20 49            I    bra 49
6464 B2AB 44              D     lsra
6465 B2AC 20 20                 bra 20
6466 B2AE 20 20                 bra 20
6467 B2B0 20 2D            -    bra 2d
6468 B2B2 20 00            .    bra 00
6469 B2B4 41              A     illegal
6470 B2B5 55              U     illegal
6471 B2B6 44              D     lsra
6472 B2B7 49              I     rola
6473 B2B8 54              T     lsrb
6474 B2B9 20 4E            N    bra 4e
6475 B2BB 55              U     illegal
6476 B2BC 4D              M     tsta
6477 B2BD 42              B     illegal
6478 B2BE 45              E     illegal
6479 B2BF 52              R     illegal
6480 B2C0 20 20                 bra 20
6481 B2C2 20 20                 bra 20
6482 B2C4 20 00            .    bra 00
6483 B2C6 53              S     comb
6484 B2C7 41              A     illegal
6485 B2C8 4C              L     inca
6486 B2C9 45              E     illegal
6487 B2CA 53              S     comb
6488 B2CB 20 20                 bra 20
6489 B2CD 28 52           (R    bvc 52
6490 B2CF 29 20           )     bvs 20
6491 B2D1 20 20                 bra 20
6492 B2D3 20 20                 bra 20
6493 B2D5 2D 20           -     blt 20
6494 B2D7 00              .     test
6495 B2D8 53              S     comb
6496 B2D9 41              A     illegal
6497 B2DA 4C              L     inca
6498 B2DB 45              E     illegal
6499 B2DC 53              S     comb
6500 B2DD 20 20                 bra 20
6501 B2DF 28 4E           (N    bvc 4e
6502 B2E1 29 20           )     bvs 20
6503 B2E3 20 20                 bra 20
6504 B2E5 20 20                 bra 20
6505 B2E7 2D 20           -     blt 20
6506 B2E9 00              .     test
6507 B2EA 42              B     illegal
6508 B2EB 41              A     illegal
6509 B2EC 47              G     asra
6510 B2ED 20 54            T    bra 54
6511 B2EF 4F              O     clra
6512 B2F0 54              T     lsrb
6513 B2F1 41              A     illegal
6514 B2F2 4C              L     inca
6515 B2F3 20 20                 bra 20
6516 B2F5 20 20                 bra 20
6517 B2F7 20 20                 bra 20
6518 B2F9 2D 20           -     blt 20
6519 B2FB 00              .     test
6520 B2FC 43              C     coma
6521 B2FD 41              A     illegal
6522 B2FE 53              S     comb
6523 B2FF 48              H     asla
6524 B300 20 42            B    bra 42
6525 B302 4F              O     clra
6526 B303 58              X     aslb
6527 B304 20 20                 bra 20
6528 B306 20 20                 bra 20
6529 B308 20 20                 bra 20
6530 B30A 20 2D            -    bra 2d
6531 B30C 20 00            .    bra 00
6532 B30E 43              C     coma
6533 B30F 41              A     illegal
6534 B310 52              R     illegal
6535 B311 44              D     lsra
6536 B312 20 53            S    bra 53
6537 B314 41              A     illegal
6538 B315 4C              L     inca
6539 B316 45              E     illegal
6540 B317 53              S     comb
6541 B318 20 20                 bra 20
6542 B31A 20 20                 bra 20
6543 B31C 20 2D            -    bra 2d
6544 B31E 20 00            .    bra 00
6545 B320 42              B     illegal
6546 B321 49              I     rola
6547 B322 4C              L     inca
6548 B323 4C              L     inca
6549 B324 53              S     comb
6550 B325 20 49            I    bra 49
6551 B327 4E              N     illegal
6552 B328 20 53            S    bra 53
6553 B32A 54              T     lsrb
6554 B32B 41              A     illegal
6555 B32C 43              C     coma
6556 B32D 4B              K     illegal
6557 B32E 45              E     illegal
6558 B32F 52              R     illegal
6559 B330 00              .     test
6560 B331 20 20                 bra 20
6561 B333 20 20                 bra 20
6562 B335 42              B     illegal
6563 B336 49              I     rola
6564 B337 4C              L     inca
6565 B338 4C              L     inca
6566 B339 20 54            T    bra 54
6567 B33B 4F              O     clra
6568 B33C 54              T     lsrb
6569 B33D 41              A     illegal
6570 B33E 4C              L     inca
6571 B33F 20 2D            -    bra 2d
6572 B341 20 20                 bra 20
6573 B343 20 20                 bra 20
6574 B345 20 20                 bra 20
6575 B347 20 20                 bra 20
6576 B349 00              .     test
6577 B34A 20 20                 bra 20
6578 B34C 20 20                 bra 20
6579 B34E 4F              O     clra
6580 B34F 4E              N     illegal
6581 B350 45              E     illegal
6582 B351 53              S     comb
6583 B352 20 20                 bra 20
6584 B354 20 20                 bra 20
6585 B356 20 20                 bra 20
6586 B358 20 2D            -    bra 2d
6587 B35A 20 00            .    bra 00
6588 B35C 20 20                 bra 20
6589 B35E 20 20                 bra 20
6590 B360 54              T     lsrb
6591 B361 57              W     asrb
6592 B362 4F              O     clra
6593 B363 53              S     comb
6594 B364 20 20                 bra 20
6595 B366 20 20                 bra 20
6596 B368 20 20                 bra 20
6597 B36A 20 2D            -    bra 2d
6598 B36C 20 00            .    bra 00
6599 B36E 20 20                 bra 20
6600 B370 20 20                 bra 20
6601 B372 46              F     rora
6602 B373 49              I     rola
6603 B374 56              V     rorb
6604 B375 45              E     illegal
6605 B376 53              S     comb
6606 B377 20 20                 bra 20
6607 B379 20 20                 bra 20
6608 B37B 20 20                 bra 20
6609 B37D 2D 20           -     blt 20
6610 B37F 00              .     test
6611 B380 20 20                 bra 20
6612 B382 20 20                 bra 20
6613 B384 54              T     lsrb
6614 B385 45              E     illegal
6615 B386 4E              N     illegal
6616 B387 53              S     comb
6617 B388 20 20                 bra 20
6618 B38A 20 20                 bra 20
6619 B38C 20 20                 bra 20
6620 B38E 20 2D            -    bra 2d
6621 B390 20 00            .    bra 00
6622 B392 20 20                 bra 20
6623 B394 20 20                 bra 20
6624 B396 54              T     lsrb
6625 B397 57              W     asrb
6626 B398 45              E     illegal
6627 B399 4E              N     illegal
6628 B39A 54              T     lsrb
6629 B39B 49              I     rola
6630 B39C 45              E     illegal
6631 B39D 53              S     comb
6632 B39E 20 20                 bra 20
6633 B3A0 20 2D            -    bra 2d
6634 B3A2 20 00            .    bra 00
6635 B3A4 43              C     coma
6636 B3A5 4F              O     clra
6637 B3A6 49              I     rola
6638 B3A7 4E              N     illegal
6639 B3A8 53              S     comb
6640 B3A9 20 49            I    bra 49
6641 B3AB 4E              N     illegal
6642 B3AC 20 54            T    bra 54
6643 B3AE 55              U     illegal
6644 B3AF 42              B     illegal
6645 B3B0 45              E     illegal
6646 B3B1 53              S     comb
6647 B3B2 00              .     test
6648 B3B3 20 20                 bra 20
6649 B3B5 20 20                 bra 20
6650 B3B7 54              T     lsrb
6651 B3B8 55              U     illegal
6652 B3B9 42              B     illegal
6653 B3BA 45              E     illegal
6654 B3BB 20 54            T    bra 54
6655 B3BD 4F              O     clra
6656 B3BE 54              T     lsrb
6657 B3BF 41              A     illegal
6658 B3C0 4C              L     inca
6659 B3C1 20 2D            -    bra 2d
6660 B3C3 20 20                 bra 20
6661 B3C5 20 20                 bra 20
6662 B3C7 20 20                 bra 20
6663 B3C9 00              .     test
6664 B3CA 20 20                 bra 20
6665 B3CC 20 20                 bra 20
6666 B3CE 24 31           $1    bcc 31
6667 B3D0 20 43            C    bra 43
6668 B3D2 4F              O     clra
6669 B3D3 49              I     rola
6670 B3D4 4E              N     illegal
6671 B3D5 20 20                 bra 20
6672 B3D7 20 20                 bra 20
6673 B3D9 2D 20           -     blt 20
6674 B3DB 00              .     test
6675 B3DC 20 20                 bra 20
6676 B3DE 20 20                 bra 20
6677 B3E0 51              Q     illegal
6678 B3E1 55              U     illegal
6679 B3E2 41              A     illegal
6680 B3E3 52              R     illegal
6681 B3E4 54              T     lsrb
6682 B3E5 45              E     illegal
6683 B3E6 52              R     illegal
6684 B3E7 53              S     comb
6685 B3E8 20 20                 bra 20
6686 B3EA 20 2D            -    bra 2d
6687 B3EC 20 00            .    bra 00
6688 B3EE 20 20                 bra 20
6689 B3F0 20 20                 bra 20
6690 B3F2 44              D     lsra
6691 B3F3 49              I     rola
6692 B3F4 4D              M     tsta
6693 B3F5 45              E     illegal
6694 B3F6 53              S     comb
6695 B3F7 20 20                 bra 20
6696 B3F9 20 20                 bra 20
6697 B3FB 20 20                 bra 20
6698 B3FD 2D 20           -     blt 20
6699 B3FF 00              .     test
6700 B400 20 20                 bra 20
6701 B402 20 20                 bra 20
6702 B404 4E              N     illegal
6703 B405 49              I     rola
6704 B406 43              C     coma
6705 B407 4B              K     illegal
6706 B408 45              E     illegal
6707 B409 4C              L     inca
6708 B40A 53              S     comb
6709 B40B 20 20                 bra 20
6710 B40D 20 20                 bra 20
6711 B40F 2D 20           -     blt 20
6712 B411 00              .     test
6713 B412 57              W     asrb
6714 B413 49              I     rola
6715 B414 4E              N     illegal
6716 B415 2D 53           -S    blt 53
6717 B417 4E              N     illegal
6718 B418 4B              K     illegal
6719 B419 20 56            V    bra 56
6720 B41B 45              E     illegal
6721 B41C 4E              N     illegal
6722 B41D 44              D     lsra
6723 B41E 53              S     comb
6724 B41F 20 20                 bra 20
6725 B421 2D 20           -     blt 20
6726 B423 00              .     test
6727 B424 53              S     comb
6728 B425 48              H     asla
6729 B426 4F              O     clra
6730 B427 50              P     negb
6731 B428 50              P     negb
6732 B429 45              E     illegal
6733 B42A 52              R     illegal
6734 B42B 20 56            V    bra 56
6735 B42D 45              E     illegal
6736 B42E 4E              N     illegal
6737 B42F 44              D     lsra
6738 B430 53              S     comb
6739 B431 20 20                 bra 20
6740 B433 2D 20           -     blt 20
6741 B435 00              .     test
6742 B436 50              P     negb
6743 B437 52              R     illegal
6744 B438 4F              O     clra
6745 B439 4D              M     tsta
6746 B43A 4F              O     clra
6747 B43B 20 56            V    bra 56
6748 B43D 45              E     illegal
6749 B43E 4E              N     illegal
6750 B43F 44              D     lsra
6751 B440 53              S     comb
6752 B441 20 20                 bra 20
6753 B443 20 20                 bra 20
6754 B445 2D 20           -     blt 20
6755 B447 00              .     test
6756 B448 46              F     rora
6757 B449 52              R     illegal
6758 B44A 45              E     illegal
6759 B44B 45              E     illegal
6760 B44C 20 20                 bra 20
6761 B44E 56              V     rorb
6762 B44F 45              E     illegal
6763 B450 4E              N     illegal
6764 B451 44              D     lsra
6765 B452 53              S     comb
6766 B453 20 20                 bra 20
6767 B455 20 20                 bra 20
6768 B457 2D 20           -     blt 20
6769 B459 00              .     test
6770 B45A 56              V     rorb
6771 B45B 45              E     illegal
6772 B45C 4E              N     illegal
6773 B45D 44              D     lsra
6774 B45E 53              S     comb
6775 B45F 20 50            P    bra 50
6776 B461 45              E     illegal
6777 B462 52              R     illegal
6778 B463 20 50            P    bra 50
6779 B465 52              R     illegal
6780 B466 4F              O     clra
6781 B467 44              D     lsra
6782 B468 55              U     illegal
6783 B469 43              C     coma
6784 B46A 54              T     lsrb
6785 B46B 20 43            C    bra 43
6786 B46D 4F              O     clra
6787 B46E 44              D     lsra
6788 B46F 45              E     illegal
6789 B470 00              .     test
6790
6791 B471 20 20                 bra 20
6792 B473 20 20                 bra 20
6793 B475 43              C     coma
6794 B476 4F              O     clra
6795 B477 44              D     lsra
6796 B478 45              E     illegal
6797 B479 20 00            .    bra 00
6798 B47B 56              V     rorb
6799 B47C 45              E     illegal
6800 B47D 4E              N     illegal
6801 B47E 44              D     lsra
6802 B47F 53              S     comb
6803 B480 20 2D            -    bra 2d
6804 B482 20 00            .    bra 00
6805 B484 56              V     rorb
6806 B485 45              E     illegal
6807 B486 4E              N     illegal
6808 B487 44              D     lsra
6809 B488 53              S     comb
6810 B489 2F 43           /C    ble 43
6811 B48B 4F              O     clra
6812 B48C 44              D     lsra
6813 B48D 45              E     illegal
6814 B48E 00              .     test
6815 B48F 41              A     illegal
6816 B490 42              B     illegal
6817 B491 43              C     coma
6818 B492 44              D     lsra
6819 B493 45              E     illegal
6820 B494 46              F     rora
6821 B495 47              G     asra
6822 B496 48              H     asla
6823 B497 49              I     rola
6824 B498 4A              J     deca
6825 B499 4B              K     illegal
6826 B49A 4C              L     inca
6827 B49B 4D              M     tsta
6828 B49C 4E              N     illegal
6829 B49D 4F              O     clra
6830 B49E 50              P     negb
6831 B49F 51              Q     illegal
6832 B4A0 52              R     illegal
6833 B4A1 53              S     comb
6834 B4A2 54              T     lsrb
6835 B4A3 55              U     illegal
6836 B4A4 56              V     rorb
6837 B4A5 57              W     asrb
6838 B4A6 58              X     aslb
6839 B4A7 59              Y     rolb
6840 B4A8 5A              Z     decb
6841 B4A9 30              0     tsx
6842 B4AA 31              1     ins
6843 B4AB 32              2     pula
6844 B4AC 33              3     pulb
6845 B4AD 34              4     des
6846 B4AE 35              5     txs
6847 B4AF 36              6     psha
6848 B4B0 37              7     pshb
6849 B4B1 38              8     pulx
6850 B4B2 39              9     rts
6851 B4B3 24 2A           $*    bcc 2a
6852 B4B5 20 00            .    bra 00
6853 B4B7 01              .     nop
6854 B4B8 02              .     idiv
6855 B4B9 04              .     lsrd
6856 B4BA 08              .     inx
6857 B4BB 10              .     sba
6858 B4BC 20 40            @    bra 40
6859 B4BE 80 FF           ..    suba #ff
6860 B4C0 FF FF FF        ...   stx ffff
6861 B4C3 FF FF FF        ...   stx ffff
6862 B4C6 FF FF FF        ...   stx ffff
6863 B4C9 FF FF FF        ...   stx ffff
6864 B4CC FF FF FF        ...   stx ffff
6865 B4CF FF FF FF        ...   stx ffff
6866 B4D2 FF FF FF        ...   stx ffff
6867 B4D5 FF FF FF        ...   stx ffff
6868 B4D8 FF FF FF        ...   stx ffff
6869 B4DB FF FF FF        ...   stx ffff
6870 B4DE FF FF FF        ...   stx ffff
6871 B4E1 FF FF FF        ...   stx ffff
6872 B4E4 FF FF FF        ...   stx ffff
6873 B4E7 FF FF FF        ...   stx ffff
6874 B4EA FF FF FF        ...   stx ffff
6875 B4ED FF FF FF        ...   stx ffff
6876 B4F0 FF FF FF        ...   stx ffff
6877 B4F3 FF FF FF        ...   stx ffff
6878 B4F6 FF FF FF        ...   stx ffff
6879 B4F9 FF FF FF        ...   stx ffff
6880 B4FC FF FF FF        ...   stx ffff
6881 B4FF FF FF FF        ...   stx ffff
6882 B502 FF FF FF        ...   stx ffff
6883 B505 FF FF FF        ...   stx ffff
6884 B508 FF FF FF        ...   stx ffff
6885 B50B FF FF FF        ...   stx ffff
6886 B50E FF FF FF        ...   stx ffff
6887 B511 FF FF FF        ...   stx ffff
6888 B514 FF FF FF        ...   stx ffff
6889 B517 FF FF FF        ...   stx ffff
6890 B51A FF FF FF        ...   stx ffff
6891 B51D FF FF FF        ...   stx ffff
6892 B520 FF FF FF        ...   stx ffff
6893 B523 FF FF FF        ...   stx ffff
6894 B526 FF FF FF        ...   stx ffff
6895 B529 FF FF FF        ...   stx ffff
6896 B52C FF FF FF        ...   stx ffff
6897 B52F FF FF FF        ...   stx ffff
6898 B532 FF FF FF        ...   stx ffff
6899 B535 FF FF FF        ...   stx ffff
6900 B538 FF FF FF        ...   stx ffff
6901 B53B FF FF FF        ...   stx ffff
6902 B53E FF FF FF        ...   stx ffff
6903 B541 FF FF FF        ...   stx ffff
6904 B544 FF FF FF        ...   stx ffff
6905 B547 FF FF FF        ...   stx ffff
6906 B54A FF FF FF        ...   stx ffff
6907 B54D FF FF FF        ...   stx ffff
6908 B550 FF FF FF        ...   stx ffff
6909 B553 FF FF FF        ...   stx ffff
6910 B556 FF FF FF        ...   stx ffff
6911 B559 FF FF FF        ...   stx ffff
6912 B55C FF FF FF        ...   stx ffff
6913 B55F FF FF FF        ...   stx ffff
6914 B562 FF FF FF        ...   stx ffff
6915 B565 FF FF FF        ...   stx ffff
6916 B568 FF FF FF        ...   stx ffff
6917 B56B FF FF FF        ...   stx ffff
6918 B56E FF FF FF        ...   stx ffff
6919 B571 FF FF FF        ...   stx ffff
6920 B574 FF FF FF        ...   stx ffff
6921 B577 FF FF FF        ...   stx ffff
6922 B57A FF FF FF        ...   stx ffff
6923 B57D FF FF FF        ...   stx ffff
6924 B580 FF FF FF        ...   stx ffff
6925 B583 FF FF FF        ...   stx ffff
6926 B586 FF FF FF        ...   stx ffff
6927 B589 FF FF FF        ...   stx ffff
6928 B58C FF FF FF        ...   stx ffff
6929 B58F FF FF FF        ...   stx ffff
6930 B592 FF FF FF        ...   stx ffff
6931 B595 FF FF FF        ...   stx ffff
6932 B598 FF FF FF        ...   stx ffff
6933 B59B FF FF FF        ...   stx ffff
6934 B59E FF FF FF        ...   stx ffff
6935 B5A1 FF FF FF        ...   stx ffff
6936 B5A4 FF FF FF        ...   stx ffff
6937 B5A7 FF FF FF        ...   stx ffff
6938 B5AA FF FF FF        ...   stx ffff
6939 B5AD FF FF FF        ...   stx ffff
6940 B5B0 FF FF FF        ...   stx ffff
6941 B5B3 FF FF FF        ...   stx ffff
6942 B5B6 FF FF FF        ...   stx ffff
6943 B5B9 FF FF FF        ...   stx ffff
6944 B5BC FF FF FF        ...   stx ffff
6945 B5BF FF FF FF        ...   stx ffff
6946 B5C2 FF FF FF        ...   stx ffff
6947 B5C5 FF FF FF        ...   stx ffff
6948 B5C8 FF FF FF        ...   stx ffff
6949 B5CB FF FF FF        ...   stx ffff
6950 B5CE FF FF FF        ...   stx ffff
6951 B5D1 FF FF FF        ...   stx ffff
6952 B5D4 FF FF FF        ...   stx ffff
6953 B5D7 FF FF FF        ...   stx ffff
6954 B5DA FF FF FF        ...   stx ffff
6955 B5DD FF FF FF        ...   stx ffff
6956 B5E0 FF FF FF        ...   stx ffff
6957 B5E3 FF FF FF        ...   stx ffff
6958 B5E6 FF FF FF        ...   stx ffff
6959 B5E9 FF FF FF        ...   stx ffff
6960 B5EC FF FF FF        ...   stx ffff
6961 B5EF FF FF FF        ...   stx ffff
6962 B5F2 FF FF FF        ...   stx ffff
6963 B5F5 FF FF FF        ...   stx ffff
6964 B5F8 FF FF FF        ...   stx ffff
6965 B5FB FF FF FF        ...   stx ffff
6966 B5FE FF FF FF        ...   stx ffff
6967 B601 FF FF FF        ...   stx ffff
6968 B604 FF FF FF        ...   stx ffff
6969 B607 FF FF FF        ...   stx ffff
6970 B60A FF FF FF        ...   stx ffff
6971 B60D FF FF FF        ...   stx ffff
6972 B610 FF FF FF        ...   stx ffff
6973 B613 FF FF FF        ...   stx ffff
6974 B616 FF FF FF        ...   stx ffff
6975 B619 FF FF FF        ...   stx ffff
6976 B61C FF FF FF        ...   stx ffff
6977 B61F FF FF FF        ...   stx ffff
6978 B622 FF FF FF        ...   stx ffff
6979 B625 FF FF FF        ...   stx ffff
6980 B628 FF FF FF        ...   stx ffff
6981 B62B FF FF FF        ...   stx ffff
6982 B62E FF FF FF        ...   stx ffff
6983 B631 FF FF FF        ...   stx ffff
6984 B634 FF FF FF        ...   stx ffff
6985 B637 FF FF FF        ...   stx ffff
6986 B63A FF FF FF        ...   stx ffff
6987 B63D FF FF FF        ...   stx ffff
6988 B640 FF FF FF        ...   stx ffff
6989 B643 FF FF FF        ...   stx ffff
6990 B646 FF FF FF        ...   stx ffff
6991 B649 FF FF FF        ...   stx ffff
6992 B64C FF FF FF        ...   stx ffff
6993 B64F FF FF FF        ...   stx ffff
6994 B652 FF FF FF        ...   stx ffff
6995 B655 FF FF FF        ...   stx ffff
6996 B658 FF FF FF        ...   stx ffff
6997 B65B FF FF FF        ...   stx ffff
6998 B65E FF FF FF        ...   stx ffff
6999 B661 FF FF FF        ...   stx ffff
7000 B664 FF FF FF        ...   stx ffff
7001 B667 FF FF FF        ...   stx ffff
7002 B66A FF FF FF        ...   stx ffff
7003 B66D FF FF FF        ...   stx ffff
7004 B670 FF FF FF        ...   stx ffff
7005 B673 FF FF FF        ...   stx ffff
7006 B676 FF FF FF        ...   stx ffff
7007 B679 FF FF FF        ...   stx ffff
7008 B67C FF FF FF        ...   stx ffff
7009 B67F FF FF FF        ...   stx ffff
7010 B682 FF FF FF        ...   stx ffff
7011 B685 FF FF FF        ...   stx ffff
7012 B688 FF FF FF        ...   stx ffff
7013 B68B FF FF FF        ...   stx ffff
7014 B68E FF FF FF        ...   stx ffff
7015 B691 FF FF FF        ...   stx ffff
7016 B694 FF FF FF        ...   stx ffff
7017 B697 FF FF FF        ...   stx ffff
7018 B69A FF FF FF        ...   stx ffff
7019 B69D FF FF FF        ...   stx ffff
7020 B6A0 FF FF FF        ...   stx ffff
7021 B6A3 FF FF FF        ...   stx ffff
7022 B6A6 FF FF FF        ...   stx ffff
7023 B6A9 FF FF FF        ...   stx ffff
7024 B6AC FF FF FF        ...   stx ffff
7025 B6AF FF FF FF        ...   stx ffff
7026 B6B2 FF FF FF        ...   stx ffff
7027 B6B5 FF FF FF        ...   stx ffff
7028 B6B8 FF FF FF        ...   stx ffff
7029 B6BB FF FF FF        ...   stx ffff
7030 B6BE FF FF FF        ...   stx ffff
7031 B6C1 FF FF FF        ...   stx ffff
7032 B6C4 FF FF FF        ...   stx ffff
7033 B6C7 FF FF FF        ...   stx ffff
7034 B6CA FF FF FF        ...   stx ffff
7035 B6CD FF FF FF        ...   stx ffff
7036 B6D0 FF FF FF        ...   stx ffff
7037 B6D3 FF FF FF        ...   stx ffff
7038 B6D6 FF FF FF        ...   stx ffff
7039 B6D9 FF FF FF        ...   stx ffff
7040 B6DC FF FF FF        ...   stx ffff
7041 B6DF FF FF FF        ...   stx ffff
7042 B6E2 FF FF FF        ...   stx ffff
7043 B6E5 FF FF FF        ...   stx ffff
7044 B6E8 FF FF FF        ...   stx ffff
7045 B6EB FF FF FF        ...   stx ffff
7046 B6EE FF FF FF        ...   stx ffff
7047 B6F1 FF FF FF        ...   stx ffff
7048 B6F4 FF FF FF        ...   stx ffff
7049 B6F7 FF FF FF        ...   stx ffff
7050 B6FA FF FF FF        ...   stx ffff
7051 B6FD FF FF FF        ...   stx ffff
7052 B700 FF FF FF        ...   stx ffff
7053 B703 FF FF FF        ...   stx ffff
7054 B706 FF FF FF        ...   stx ffff
7055 B709 FF FF FF        ...   stx ffff
7056 B70C FF FF FF        ...   stx ffff
7057 B70F FF FF FF        ...   stx ffff
7058 B712 FF FF FF        ...   stx ffff
7059 B715 FF FF FF        ...   stx ffff
7060 B718 FF FF FF        ...   stx ffff
7061 B71B FF FF FF        ...   stx ffff
7062 B71E FF FF FF        ...   stx ffff
7063 B721 FF FF FF        ...   stx ffff
7064 B724 FF FF FF        ...   stx ffff
7065 B727 FF FF FF        ...   stx ffff
7066 B72A FF FF FF        ...   stx ffff
7067 B72D FF FF FF        ...   stx ffff
7068 B730 FF FF FF        ...   stx ffff
7069 B733 FF FF FF        ...   stx ffff
7070 B736 FF FF FF        ...   stx ffff
7071 B739 FF FF FF        ...   stx ffff
7072 B73C FF FF FF        ...   stx ffff
7073 B73F FF FF FF        ...   stx ffff
7074 B742 FF FF FF        ...   stx ffff
7075 B745 FF FF FF        ...   stx ffff
7076 B748 FF FF FF        ...   stx ffff
7077 B74B FF FF FF        ...   stx ffff
7078 B74E FF FF FF        ...   stx ffff
7079 B751 FF FF FF        ...   stx ffff
7080 B754 FF FF FF        ...   stx ffff
7081 B757 FF FF FF        ...   stx ffff
7082 B75A FF FF FF        ...   stx ffff
7083 B75D FF FF FF        ...   stx ffff
7084 B760 FF FF FF        ...   stx ffff
7085 B763 FF FF FF        ...   stx ffff
7086 B766 FF FF FF        ...   stx ffff
7087 B769 FF FF FF        ...   stx ffff
7088 B76C FF FF FF        ...   stx ffff
7089 B76F FF FF FF        ...   stx ffff
7090 B772 FF FF FF        ...   stx ffff
7091 B775 FF FF FF        ...   stx ffff
7092 B778 FF FF FF        ...   stx ffff
7093 B77B FF FF FF        ...   stx ffff
7094 B77E FF FF FF        ...   stx ffff
7095 B781 FF FF FF        ...   stx ffff
7096 B784 FF FF FF        ...   stx ffff
7097 B787 FF FF FF        ...   stx ffff
7098 B78A FF FF FF        ...   stx ffff
7099 B78D FF FF FF        ...   stx ffff
7100 B790 FF FF FF        ...   stx ffff
7101 B793 FF FF FF        ...   stx ffff
7102 B796 FF FF FF        ...   stx ffff
7103 B799 FF FF FF        ...   stx ffff
7104 B79C FF FF FF        ...   stx ffff
7105 B79F FF FF FF        ...   stx ffff
7106 B7A2 FF FF FF        ...   stx ffff
7107 B7A5 FF FF FF        ...   stx ffff
7108 B7A8 FF FF FF        ...   stx ffff
7109 B7AB FF FF FF        ...   stx ffff
7110 B7AE FF FF FF        ...   stx ffff
7111 B7B1 FF FF FF        ...   stx ffff
7112 B7B4 FF FF FF        ...   stx ffff
7113 B7B7 FF FF FF        ...   stx ffff
7114 B7BA FF FF FF        ...   stx ffff
7115 B7BD FF FF FF        ...   stx ffff
7116 B7C0 FF FF FF        ...   stx ffff
7117 B7C3 FF FF FF        ...   stx ffff
7118 B7C6 FF FF FF        ...   stx ffff
7119 B7C9 FF FF FF        ...   stx ffff
7120 B7CC FF FF FF        ...   stx ffff
7121 B7CF FF FF FF        ...   stx ffff
7122 B7D2 FF FF FF        ...   stx ffff
7123 B7D5 FF FF FF        ...   stx ffff
7124 B7D8 FF FF FF        ...   stx ffff
7125 B7DB FF FF FF        ...   stx ffff
7126 B7DE FF FF FF        ...   stx ffff
7127 B7E1 FF FF FF        ...   stx ffff
7128 B7E4 FF FF FF        ...   stx ffff
7129 B7E7 FF FF FF        ...   stx ffff
7130 B7EA FF FF FF        ...   stx ffff
7131 B7ED FF FF FF        ...   stx ffff
7132 B7F0 FF FF FF        ...   stx ffff
7133 B7F3 FF FF FF        ...   stx ffff
7134 B7F6 FF FF FF        ...   stx ffff
7135 B7F9 FF FF FF        ...   stx ffff
7136 B7FC FF FF FF        ...   stx ffff
7137 B7FF FF 34 F6        .4.   stx 34f6
7138 B802 0E              .     cli
7139 B803 6D C1           m.    tst c1,x
7140 B805 01              .     nop
7141 B806 27 03           '.    beq 03
7142 B808 7E B9 2A        ~.*   jmp b92a
7143 B80B F6 0E 02        ...   ldab 0e02
7144 B80E C1 05           ..    cmpb #05
7145 B810 27 03           '.    beq 03
7146 B812 7E B9 2A        ~.*   jmp b92a
7147 B815 F6 0E 03        ...   ldab 0e03
7148 B818 C1 05           ..    cmpb #05
7149 B81A 27 03           '.    beq 03
7150 B81C 7E B9 2A        ~.*   jmp b92a
7151 B81F F6 0E 04        ...   ldab 0e04
7152 B822 C1 05           ..    cmpb #05
7153 B824 27 03           '.    beq 03
7154 B826 7E B9 2A        ~.*   jmp b92a
7155 B829 F6 00 12        ...   ldab 0012
7156 B82C C4 20           .     andb #20
7157 B82E 27 03           '.    beq 03
7158 B830 7E B9 2A        ~.*   jmp b92a
7159 B833 30              0     tsx
7160 B834 6F 00           o.    clr 00,x
7161 B836 F6 0E 6A        ..j   ldab 0e6a
7162 B839 C1 00           ..    cmpb #00
7163 B83B 22 33           "3    bhi 33
7164 B83D C6 64           .d    ldab #64
7165 B83F F7 0E 6A        ..j   stb 0e6a
7166 B842 7C 0E 05        |..   inc 0e05
7167 B845 F6 0E 05        ...   ldab 0e05
7168 B848 C1 64           .d    cmpb #64
7169 B84A 23 03           #.    bls 03
7170 B84C 7F 0E 05        ...   clr 0e05
7171 B84F F6 0E 05        ...   ldab 0e05
7172 B852 BD D4 68        ..h   jsr d468
7173 B855 83 00 00        ...   subd #0000
7174 B858 27 0B           '.    beq 0b
7175 B85A F6 0E 05        ...   ldab 0e05
7176 B85D BD D7 A0        ...   jsr d7a0             ;jump10
7177 B860 83 00 00        ...   subd #0000
7178 B863 27 09           '.    beq 09
7179 B865 30              0     tsx
7180 B866 6C 00           l.    inc 00,x
7181 B868 E6 00           ..    ldab 00,x
7182 B86A C1 6E           .n    cmpb #6e
7183 B86C 2D D4           -.    blt d4
7184 B86E 20 0A            .    bra 0a
7185 B870 F6 0E 6A        ..j   ldab 0e6a
7186 B873 C1 00           ..    cmpb #00
7187 B875 23 03           #.    bls 03
7188 B877 7A 0E 6A        z.j   dec 0e6a
7189 B87A F6 0E 05        ...   ldab 0e05
7190 B87D BD D4 68        ..h   jsr d468
7191 B880 83 00 00        ...   subd #0000
7192 B883 26 03           &.    bne 03
7193 B885 7E B9 0A        ~..   jmp b90a
7194 B888 F6 0E 05        ...   ldab 0e05
7195 B88B BD D7 A0        ...   jsr d7a0             ;jump10
7196 B88E 83 00 00        ...   subd #0000
7197 B891 26 77           &w    bne 77
7198 B893 BD BE 4B        ..K   jsr be4b             ;jump1
7199 B896 C6 20           .     ldab #20
7200 B898 F7 0B 9A        ...   stb 0b9a
7201 B89B C6 20           .     ldab #20
7202 B89D F7 0B 99        ...   stb 0b99
7203 B8A0 C6 20           .     ldab #20
7204 B8A2 F7 0B 98        ...   stb 0b98
7205 B8A5 F6 0E 05        ...   ldab 0e05
7206 B8A8 4F              O     clra
7207 B8A9 CE 00 0A        ...   ldx #000a
7208 B8AC 02              .     idiv
7209 B8AD 8F              .     xgdx
7210 B8AE CB 30           .0    addb #30
7211 B8B0 F7 0B 97        ...   stb 0b97
7212 B8B3 F6 0E 05        ...   ldab 0e05
7213 B8B6 4F              O     clra
7214 B8B7 CE 00 0A        ...   ldx #000a
7215 B8BA 02              .     idiv
7216 B8BB CB 30           .0    addb #30
7217 B8BD F7 0B 96        ...   stb 0b96
7218 B8C0 C6 20           .     ldab #20
7219 B8C2 F7 0B 95        ...   stb 0b95
7220 B8C5 C6 20           .     ldab #20
7221 B8C7 F7 0B 94        ...   stb 0b94
7222 B8CA F6 0E 05        ...   ldab 0e05
7223 B8CD 4F              O     clra
7224 B8CE C3 0E 06        ...   addd #0e06
7225 B8D1 8F              .     xgdx
7226 B8D2 E6 00           ..    ldab 00,x
7227 B8D4 4F              O     clra
7228 B8D5 CE 00 0A        ...   ldx #000a
7229 B8D8 02              .     idiv
7230 B8D9 8F              .     xgdx
7231 B8DA CB 30           .0    addb #30
7232 B8DC F7 0B 93        ...   stb 0b93
7233 B8DF F6 0E 05        ...   ldab 0e05
7234 B8E2 4F              O     clra
7235 B8E3 C3 0E 06        ...   addd #0e06
7236 B8E6 8F              .     xgdx
7237 B8E7 E6 00           ..    ldab 00,x
7238 B8E9 4F              O     clra
7239 B8EA CE 00 0A        ...   ldx #000a
7240 B8ED 02              .     idiv
7241 B8EE CB 30           .0    addb #30
7242 B8F0 F7 0B 92        ...   stb 0b92
7243 B8F3 C6 20           .     ldab #20
7244 B8F5 F7 0B 91        ...   stb 0b91
7245 B8F8 C6 20           .     ldab #20
7246 B8FA F7 0B 90        ...   stb 0b90
7247 B8FD 7F 00 2C        ..,   clr 002c
7248 B900 BD BE 01        ...   jsr be01
7249 B903 C6 0A           ..    ldab #0a
7250 B905 F7 00 2C        ..,   stb 002c
7251 B908 20 1D            .    bra 1d
7252 B90A BD BE 4B        ..K   jsr be4b             ;jump1
7253 B90D C6 57           .W    ldab #57
7254 B90F F7 0B 96        ...   stb 0b96
7255 B912 C6 42           .B    ldab #42
7256 B914 F7 0B 95        ...   stb 0b95
7257 B917 C6 42           .B    ldab #42
7258 B919 F7 0B 94        ...   stb 0b94
7259 B91C 7F 00 2C        ..,   clr 002c
7260 B91F BD BE 01        ...   jsr be01
7261 B922 C6 0A           ..    ldab #0a
7262 B924 F7 00 2C        ..,   stb 002c
7263 B927 7E BA 81        ~..   jmp ba81
7264 B92A F6 0E 6D        ..m   ldab 0e6d
7265 B92D C1 01           ..    cmpb #01
7266 B92F 27 03           '.    beq 03
7267 B931 7E BA 81        ~..   jmp ba81
7268 B934 F6 0E 00        ...   ldab 0e00
7269 B937 C1 05           ..    cmpb #05
7270 B939 27 03           '.    beq 03
7271 B93B 7E BA 81        ~..   jmp ba81
7272 B93E F6 0E 01        ...   ldab 0e01
7273 B941 C1 05           ..    cmpb #05
7274 B943 27 03           '.    beq 03
7275 B945 7E BA 81        ~..   jmp ba81
7276 B948 F6 0E 02        ...   ldab 0e02
7277 B94B C1 05           ..    cmpb #05
7278 B94D 27 03           '.    beq 03
7279 B94F 7E BA 81        ~..   jmp ba81
7280 B952 F6 00 12        ...   ldab 0012
7281 B955 C4 20           .     andb #20
7282 B957 26 03           &.    bne 03
7283 B959 7E BA 81        ~..   jmp ba81
7284 B95C F6 0E 04        ...   ldab 0e04
7285 B95F C1 05           ..    cmpb #05
7286 B961 26 79           &y    bne 79
7287 B963 F6 0E 03        ...   ldab 0e03
7288 B966 C1 05           ..    cmpb #05
7289 B968 26 72           &r    bne 72
7290 B96A 30              0     tsx
7291 B96B 6F 00           o.    clr 00,x
7292 B96D 30              0     tsx
7293 B96E E6 00           ..    ldab 00,x
7294 B970 C1 64           .d    cmpb #64
7295 B972 2C 16           ,.    bge 16
7296 B974 5F              _     clrb
7297 B975 37              7     pshb
7298 B976 30              0     tsx
7299 B977 E6 01           ..    ldab 01,x
7300 B979 4F              O     clra
7301 B97A 5D              ]     tstb
7302 B97B 2C 01           ,.    bge 01
7303 B97D 4A              J     deca
7304 B97E C3 0E 06        ...   addd #0e06
7305 B981 8F              .     xgdx
7306 B982 33              3     pulb
7307 B983 E7 00           ..    stb 00,x
7308 B985 30              0     tsx
7309 B986 6C 00           l.    inc 00,x
7310 B988 20 E3            .    bra e3
7311 B98A 7F 0D FF        ...   clr 0dff
7312 B98D 7F 0E 00        ...   clr 0e00
7313 B990 7F 0E 01        ...   clr 0e01
7314 B993 7F 0E 02        ...   clr 0e02
7315 B996 7F 0E 03        ...   clr 0e03
7316 B999 7F 0E 04        ...   clr 0e04
7317 B99C C6 41           .A    ldab #41
7318 B99E F7 0B 99        ...   stb 0b99
7319 B9A1 C6 4C           .L    ldab #4c
7320 B9A3 F7 0B 98        ...   stb 0b98
7321 B9A6 C6 4C           .L    ldab #4c
7322 B9A8 F7 0B 97        ...   stb 0b97
7323 B9AB C6 20           .     ldab #20
7324 B9AD F7 0B 96        ...   stb 0b96
7325 B9B0 C6 43           .C    ldab #43
7326 B9B2 F7 0B 95        ...   stb 0b95
7327 B9B5 C6 4C           .L    ldab #4c
7328 B9B7 F7 0B 94        ...   stb 0b94
7329 B9BA C6 45           .E    ldab #45
7330 B9BC F7 0B 93        ...   stb 0b93
7331 B9BF C6 41           .A    ldab #41
7332 B9C1 F7 0B 92        ...   stb 0b92
7333 B9C4 C6 52           .R    ldab #52
7334 B9C6 F7 0B 91        ...   stb 0b91
7335 B9C9 C6 20           .     ldab #20
7336 B9CB F7 0B 90        ...   stb 0b90
7337 B9CE 7F 00 2C        ..,   clr 002c
7338 B9D1 BD BE 01        ...   jsr be01
7339 B9D4 C6 1E           ..    ldab #1e
7340 B9D6 F7 00 2C        ..,   stb 002c
7341 B9D9 7E BA 81        ~..   jmp ba81
7342 B9DC F6 0E 04        ...   ldab 0e04
7343 B9DF C1 01           ..    cmpb #01
7344 B9E1 27 0A           '.    beq 0a
7345 B9E3 F6 0E 04        ...   ldab 0e04
7346 B9E6 C1 02           ..    cmpb #02
7347 B9E8 27 03           '.    beq 03
7348 B9EA 7E BA 81        ~..   jmp ba81
7349 B9ED F6 0E 03        ...   ldab 0e03
7350 B9F0 C1 00           ..    cmpb #00
7351 B9F2 22 03           ".    bhi 03
7352 B9F4 7E BA 81        ~..   jmp ba81
7353 B9F7 F6 0E 03        ...   ldab 0e03
7354 B9FA C1 05           ..    cmpb #05
7355 B9FC 26 03           &.    bne 03
7356 B9FE 7E BA 81        ~..   jmp ba81
7357 BA01 F6 0E 03        ...   ldab 0e03
7358 BA04 C1 07           ..    cmpb #07
7359 BA06 24 79           $y    bcc 79
7360 BA08 F6 0E 03        ...   ldab 0e03
7361 BA0B 86 0A           ..    ldaa #0a
7362 BA0D 3D              =     mul
7363 BA0E FB 0E 04        ...   addb 0e04
7364 BA11 30              0     tsx
7365 BA12 E7 00           ..    stb 00,x
7366 BA14 E6 00           ..    ldab 00,x
7367 BA16 C1 64           .d    cmpb #64
7368 BA18 2C 67           ,g    bge 67
7369 BA1A E6 00           ..    ldab 00,x
7370 BA1C 2D 63           -c    blt 63
7371 BA1E 5F              _     clrb
7372 BA1F 37              7     pshb
7373 BA20 30              0     tsx
7374 BA21 E6 01           ..    ldab 01,x
7375 BA23 4F              O     clra
7376 BA24 5D              ]     tstb
7377 BA25 2C 01           ,.    bge 01
7378 BA27 4A              J     deca
7379 BA28 C3 0E 06        ...   addd #0e06
7380 BA2B 8F              .     xgdx
7381 BA2C 33              3     pulb
7382 BA2D E7 00           ..    stb 00,x
7383 BA2F F6 0E 03        ...   ldab 0e03
7384 BA32 CB 30           .0    addb #30
7385 BA34 F7 0B 99        ...   stb 0b99
7386 BA37 F6 0E 04        ...   ldab 0e04
7387 BA3A CB 30           .0    addb #30
7388 BA3C F7 0B 98        ...   stb 0b98
7389 BA3F C6 20           .     ldab #20
7390 BA41 F7 0B 97        ...   stb 0b97
7391 BA44 C6 43           .C    ldab #43
7392 BA46 F7 0B 96        ...   stb 0b96
7393 BA49 C6 4C           .L    ldab #4c
7394 BA4B F7 0B 95        ...   stb 0b95
7395 BA4E C6 45           .E    ldab #45
7396 BA50 F7 0B 94        ...   stb 0b94
7397 BA53 C6 41           .A    ldab #41
7398 BA55 F7 0B 93        ...   stb 0b93
7399 BA58 C6 52           .R    ldab #52
7400 BA5A F7 0B 92        ...   stb 0b92
7401 BA5D C6 45           .E    ldab #45
7402 BA5F F7 0B 91        ...   stb 0b91
7403 BA62 C6 44           .D    ldab #44
7404 BA64 F7 0B 90        ...   stb 0b90
7405 BA67 7F 0E 00        ...   clr 0e00
7406 BA6A 7F 0E 01        ...   clr 0e01
7407 BA6D 7F 0E 02        ...   clr 0e02
7408 BA70 7F 0E 03        ...   clr 0e03
7409 BA73 7F 0E 04        ...   clr 0e04
7410 BA76 7F 00 2C        ..,   clr 002c
7411 BA79 BD BE 01        ...   jsr be01
7412 BA7C C6 1E           ..    ldab #1e
7413 BA7E F7 00 2C        ..,   stb 002c
7414 BA81 31              1     ins
7415 BA82 39              9     rts
7416 BA83 F6 18 00        ...   ldab 1800
7417 BA86 C4 7F           ..    andb #7f
7418 BA88 F7 00 23        ..#   stb 0023
7419 BA8B F6 00 23        ..#   ldab 0023
7420 BA8E F1 00 12        ...   cmpb 0012
7421 BA91 27 06           '.    beq 06
7422 BA93 F6 00 23        ..#   ldab 0023
7423 BA96 F7 00 12        ...   stb 0012
7424 BA99 F6 20 00        . .   ldab 2000
7425 BA9C F1 00 20        ..    cmpb 0020
7426 BA9F 27 08           '.    beq 08
7427 BAA1 F6 20 00        . .   ldab 2000
7428 BAA4 F7 00 20        ..    stb 0020
7429 BAA7 20 0E            .    bra 0e
7430 BAA9 F6 00 20        ..    ldab 0020
7431 BAAC F7 00 11        ...   stb 0011
7432 BAAF F6 00 11        ...   ldab 0011
7433 BAB2 C4 03           ..    andb #03
7434 BAB4 F7 00 2B        ..+   stb 002b
7435 BAB7 F6 00 1B        ...   ldab 001b
7436 BABA C4 04           ..    andb #04
7437 BABC 37              7     pshb
7438 BABD F6 10 0A        ...   ldab 100a
7439 BAC0 C4 04           ..    andb #04
7440 BAC2 30              0     tsx
7441 BAC3 E0 00           ..    subb 00,x
7442 BAC5 31              1     ins
7443 BAC6 27 17           '.    beq 17
7444 BAC8 F6 10 0A        ...   ldab 100a
7445 BACB C4 04           ..    andb #04
7446 BACD 27 08           '.    beq 08
7447 BACF CE 00 1B        ...   ldx #001b
7448 BAD2 1C 00           ..    bset add,x 00,x
7449 BAD4 04              .     lsrd
7450 BAD5 20 06            .    bra 06
7451 BAD7 CE 00 1B        ...   ldx #001b
7452 BADA 1D 00           ..    bclr add,x 00,x
7453 BADC 04              .     lsrd
7454 BADD 20 15            .    bra 15
7455 BADF F6 10 0A        ...   ldab 100a
7456 BAE2 C4 04           ..    andb #04
7457 BAE4 27 08           '.    beq 08
7458 BAE6 CE 00 1D        ...   ldx #001d
7459 BAE9 1C 00           ..    bset add,x 00,x
7460 BAEB 04              .     lsrd
7461 BAEC 20 06            .    bra 06
7462 BAEE CE 00 1D        ...   ldx #001d
7463 BAF1 1D 00           ..    bclr add,x 00,x
7464 BAF3 04              .     lsrd
7465 BAF4 CE 10 08        ...   ldx #1008
7466 BAF7 1D 00           ..    bclr add,x 00,x
7467 BAF9 20 CE            .    bra ce
7468 BAFB 10              .     sba
7469 BAFC 28 1C           (.    bvc 1c
7470 BAFE 00              .     test
7471 BAFF 40              @     nega
7472 BB00 CE 00 14        ...   ldx #0014
7473 BB03 1C 00           ..    bset add,x 00,x
7474 BB05 04              .     lsrd
7475 BB06 F6 00 14        ...   ldab 0014
7476 BB09 F7 38 00        .8.   stb 3800
7477 BB0C CE 00 14        ...   ldx #0014
7478 BB0F 1D 00           ..    bclr add,x 00,x
7479 BB11 04              .     lsrd
7480 BB12 F6 00 14        ...   ldab 0014
7481 BB15 F7 38 00        .8.   stb 3800
7482 BB18 CE 00 00        ...   ldx #0000
7483 BB1B 3C              <     pshx
7484 BB1C 5F              _     clrb
7485 BB1D 4F              O     clra
7486 BB1E BD BD B5        ...   jsr bdb5
7487 BB21 38              8     pulx
7488 BB22 F7 00 5B        ..[   stb 005b
7489 BB25 CE 10 28        ..(   ldx #1028
7490 BB28 1D 00           ..    bclr add,x 00,x
7491 BB2A 40              @     nega
7492 BB2B CE 10 08        ...   ldx #1008
7493 BB2E 1C 00           ..    bset add,x 00,x
7494 BB30 20 CE            .    bra ce
7495 BB32 10              .     sba
7496 BB33 28 1C           (.    bvc 1c
7497 BB35 00              .     test
7498 BB36 40              @     nega
7499 BB37 CE 00 14        ...   ldx #0014
7500 BB3A 1C 00           ..    bset add,x 00,x
7501 BB3C 04              .     lsrd
7502 BB3D F6 00 14        ...   ldab 0014
7503 BB40 F7 38 00        .8.   stb 3800
7504 BB43 CE 00 14        ...   ldx #0014
7505 BB46 1D 00           ..    bclr add,x 00,x
7506 BB48 04              .     lsrd
7507 BB49 F6 00 14        ...   ldab 0014
7508 BB4C F7 38 00        .8.   stb 3800
7509 BB4F CE 00 00        ...   ldx #0000
7510 BB52 3C              <     pshx
7511 BB53 5F              _     clrb
7512 BB54 4F              O     clra
7513 BB55 BD BD B5        ...   jsr bdb5
7514 BB58 38              8     pulx
7515 BB59 F7 00 56        ..V   stb 0056
7516 BB5C CE 10 28        ..(   ldx #1028
7517 BB5F 1D 00           ..    bclr add,x 00,x
7518 BB61 40              @     nega
7519 BB62 39              9     rts
7520 BB63 F6 00 00        ...   ldab 0000
7521 BB66 27 03           '.    beq 03
7522 BB68 7E BD B4        ~..   jmp bdb4
7523 BB6B F6 00 2E        ...   ldab 002e
7524 BB6E 27 03           '.    beq 03
7525 BB70 7E BD B4        ~..   jmp bdb4
7526 BB73 BD BA 83        ...   jsr ba83
7527 BB76 F6 00 5B        ..[   ldab 005b
7528 BB79 F1 00 56        ..V   cmpb 0056
7529 BB7C 26 0B           &.    bne 0b
7530 BB7E F6 00 56        ..V   ldab 0056
7531 BB81 27 06           '.    beq 06
7532 BB83 7F 00 29        ..)   clr 0029
7533 BB86 7E BD AF        ~..   jmp bdaf
7534 BB89 F6 00 5B        ..[   ldab 005b
7535 BB8C 27 34           '4    beq 34
7536 BB8E F6 00 5B        ..[   ldab 005b
7537 BB91 F7 00 5F        .._   stb 005f
7538 BB94 7F 00 1C        ...   clr 001c
7539 BB97 F6 00 1C        ...   ldab 001c
7540 BB9A C1 08           ..    cmpb #08
7541 BB9C 24 15           $.    bcc 15
7542 BB9E F6 00 5F        .._   ldab 005f
7543 BBA1 C4 01           ..    andb #01
7544 BBA3 27 02           '.    beq 02
7545 BBA5 20 0C            .    bra 0c
7546 BBA7 F6 00 5F        .._   ldab 005f
7547 BBAA 54              T     lsrb
7548 BBAB F7 00 5F        .._   stb 005f
7549 BBAE 7C 00 1C        |..   inc 001c
7550 BBB1 20 E4            .    bra e4
7551 BBB3 F6 00 1C        ...   ldab 001c
7552 BBB6 4F              O     clra
7553 BBB7 C3 AC 9D        ...   addd #ac9d
7554 BBBA 8F              .     xgdx
7555 BBBB E6 00           ..    ldab 00,x
7556 BBBD F7 00 16        ...   stb 0016
7557 BBC0 20 3C            <    bra 3c
7558 BBC2 F6 00 56        ..V   ldab 0056
7559 BBC5 27 34           '4    beq 34
7560 BBC7 F6 00 56        ..V   ldab 0056
7561 BBCA F7 00 5F        .._   stb 005f
7562 BBCD 7F 00 1C        ...   clr 001c
7563 BBD0 F6 00 1C        ...   ldab 001c
7564 BBD3 C1 08           ..    cmpb #08
7565 BBD5 24 15           $.    bcc 15
7566 BBD7 F6 00 5F        .._   ldab 005f
7567 BBDA C4 01           ..    andb #01
7568 BBDC 27 02           '.    beq 02
7569 BBDE 20 0C            .    bra 0c
7570 BBE0 F6 00 5F        .._   ldab 005f
7571 BBE3 54              T     lsrb
7572 BBE4 F7 00 5F        .._   stb 005f
7573 BBE7 7C 00 1C        |..   inc 001c
7574 BBEA 20 E4            .    bra e4
7575 BBEC F6 00 1C        ...   ldab 001c
7576 BBEF 4F              O     clra
7577 BBF0 C3 AC A0        ...   addd #aca0
7578 BBF3 8F              .     xgdx
7579 BBF4 E6 00           ..    ldab 00,x
7580 BBF6 F7 00 16        ...   stb 0016
7581 BBF9 20 03            .    bra 03
7582 BBFB 7F 00 16        ...   clr 0016
7583 BBFE F6 00 5B        ..[   ldab 005b
7584 BC01 FA 00 56        ..V   orb 0056
7585 BC04 F7 00 5F        .._   stb 005f
7586 BC07 7F 00 5E        ..^   clr 005e
7587 BC0A 7F 00 1C        ...   clr 001c
7588 BC0D F6 00 1C        ...   ldab 001c
7589 BC10 C1 08           ..    cmpb #08
7590 BC12 24 16           $.    bcc 16
7591 BC14 F6 00 5F        .._   ldab 005f
7592 BC17 C4 01           ..    andb #01
7593 BC19 27 03           '.    beq 03
7594 BC1B 7C 00 5E        |.^   inc 005e
7595 BC1E F6 00 5F        .._   ldab 005f
7596 BC21 54              T     lsrb
7597 BC22 F7 00 5F        .._   stb 005f
7598 BC25 7C 00 1C        |..   inc 001c
7599 BC28 20 E3            .    bra e3
7600 BC2A F6 00 5E        ..^   ldab 005e
7601 BC2D C1 01           ..    cmpb #01
7602 BC2F 22 05           ".    bhi 05
7603 BC31 F6 00 16        ...   ldab 0016
7604 BC34 26 0F           &.    bne 0f
7605 BC36 7F 00 29        ..)   clr 0029
7606 BC39 CE 00 1B        ...   ldx #001b
7607 BC3C 1C 00           ..    bset add,x 00,x
7608 BC3E 10              .     sba
7609 BC3F 7F 00 37        ..7   clr 0037
7610 BC42 7E BD AF        ~..   jmp bdaf
7611 BC45 F6 00 16        ...   ldab 0016
7612 BC48 F1 00 29        ..)   cmpb 0029
7613 BC4B 27 2D           '-    beq 2d
7614 BC4D F6 00 16        ...   ldab 0016
7615 BC50 F7 00 29        ..)   stb 0029
7616 BC53 F6 0E 00        ...   ldab 0e00
7617 BC56 F7 0D FF        ...   stb 0dff
7618 BC59 F6 0E 01        ...   ldab 0e01
7619 BC5C F7 0E 00        ...   stb 0e00
7620 BC5F F6 0E 02        ...   ldab 0e02
7621 BC62 F7 0E 01        ...   stb 0e01
7622 BC65 F6 0E 03        ...   ldab 0e03
7623 BC68 F7 0E 02        ...   stb 0e02
7624 BC6B F6 0E 04        ...   ldab 0e04
7625 BC6E F7 0E 03        ...   stb 0e03
7626 BC71 F6 00 29        ..)   ldab 0029
7627 BC74 F7 0E 04        ...   stb 0e04
7628 BC77 7E BD AF        ~..   jmp bdaf
7629 BC7A F6 00 12        ...   ldab 0012
7630 BC7D C4 20           .     andb #20
7631 BC7F 27 3B           ';    beq 3b
7632 BC81 F6 00 29        ..)   ldab 0029
7633 BC84 27 33           '3    beq 33
7634 BC86 F6 00 1B        ...   ldab 001b
7635 BC89 C4 10           ..    andb #10
7636 BC8B 27 2C           ',    beq 2c
7637 BC8D F6 00 42        ..B   ldab 0042
7638 BC90 27 15           '.    beq 15
7639 BC92 F6 00 09        ...   ldab 0009
7640 BC95 27 08           '.    beq 08
7641 BC97 F6 00 29        ..)   ldab 0029
7642 BC9A F7 00 0A        ...   stb 000a
7643 BC9D 20 06            .    bra 06
7644 BC9F F6 00 29        ..)   ldab 0029
7645 BCA2 F7 00 09        ...   stb 0009
7646 BCA5 20 06            .    bra 06
7647 BCA7 F6 00 29        ..)   ldab 0029
7648 BCAA F7 00 42        ..B   stb 0042
7649 BCAD BD E5 AA        ...   jsr e5aa             ;jump12
7650 BCB0 7F 00 2C        ..,   clr 002c
7651 BCB3 CE 00 1B        ...   ldx #001b
7652 BCB6 1D 00           ..    bclr add,x 00,x
7653 BCB8 10              .     sba
7654 BCB9 7E BD AF        ~..   jmp bdaf
7655 BCBC F6 00 1B        ...   ldab 001b
7656 BCBF C4 10           ..    andb #10
7657 BCC1 26 03           &.    bne 03
7658 BCC3 7E BD 91        ~..   jmp bd91
7659 BCC6 F6 00 21        ..!   ldab 0021
7660 BCC9 C4 20           .     andb #20
7661 BCCB 27 03           '.    beq 03
7662 BCCD 7E BD 91        ~..   jmp bd91
7663 BCD0 F6 00 29        ..)   ldab 0029
7664 BCD3 C1 0B           ..    cmpb #0b
7665 BCD5 26 03           &.    bne 03
7666 BCD7 7E BD 5C        ~.\   jmp bd5c
7667 BCDA 7F 00 49        ..I   clr 0049
7668 BCDD F6 00 3A        ..:   ldab 003a
7669 BCE0 26 32           &2    bne 32
7670 BCE2 F6 00 29        ..)   ldab 0029
7671 BCE5 C1 0A           ..    cmpb #0a
7672 BCE7 26 05           &.    bne 05
7673 BCE9 7F 00 1E        ...   clr 001e
7674 BCEC 20 06            .    bra 06
7675 BCEE F6 00 29        ..)   ldab 0029
7676 BCF1 F7 00 1E        ...   stb 001e
7677 BCF4 C6 32           .2    ldab #32
7678 BCF6 F7 00 3A        ..:   stb 003a
7679 BCF9 BD BE 4B        ..K   jsr be4b             ;jump1
7680 BCFC F6 00 1E        ...   ldab 001e
7681 BCFF CB 30           .0    addb #30
7682 BD01 F7 0B 95        ...   stb 0b95
7683 BD04 BD E5 AA        ...   jsr e5aa             ;jump12
7684 BD07 7F 00 2C        ..,   clr 002c
7685 BD0A BD BE 01        ...   jsr be01
7686 BD0D C6 32           .2    ldab #32
7687 BD0F F7 00 2C        ..,   stb 002c
7688 BD12 20 46            F    bra 46
7689 BD14 F6 00 29        ..)   ldab 0029
7690 BD17 C1 05           ..    cmpb #05
7691 BD19 27 07           '.    beq 07
7692 BD1B F6 00 29        ..)   ldab 0029
7693 BD1E C1 0A           ..    cmpb #0a
7694 BD20 26 05           &.    bne 05
7695 BD22 7F 00 2C        ..,   clr 002c
7696 BD25 20 2D            -    bra 2d
7697 BD27 F6 00 1E        ...   ldab 001e
7698 BD2A 58              X     aslb
7699 BD2B 58              X     aslb
7700 BD2C 58              X     aslb
7701 BD2D F7 00 06        ...   stb 0006
7702 BD30 F6 00 1E        ...   ldab 001e
7703 BD33 58              X     aslb
7704 BD34 FB 00 06        ...   addb 0006
7705 BD37 F7 00 06        ...   stb 0006
7706 BD3A F6 00 29        ..)   ldab 0029
7707 BD3D FB 00 06        ...   addb 0006
7708 BD40 F7 00 06        ...   stb 0006
7709 BD43 F6 00 29        ..)   ldab 0029
7710 BD46 CB 30           .0    addb #30
7711 BD48 F7 0B 94        ...   stb 0b94
7712 BD4B BD BE 01        ...   jsr be01
7713 BD4E CE 00 1B        ...   ldx #001b
7714 BD51 1D 00           ..    bclr add,x 00,x
7715 BD53 40              @     nega
7716 BD54 7F 00 3A        ..:   clr 003a
7717 BD57 BD E5 AA        ...   jsr e5aa             ;jump12
7718 BD5A 20 2D            -    bra 2d
7719 BD5C C6 19           ..    ldab #19
7720 BD5E F7 00 37        ..7   stb 0037
7721 BD61 F6 00 3A        ..:   ldab 003a
7722 BD64 27 08           '.    beq 08
7723 BD66 7F 00 3A        ..:   clr 003a
7724 BD69 7F 00 2C        ..,   clr 002c
7725 BD6C 20 18            .    bra 18
7726 BD6E 7C 00 49        |.I   inc 0049
7727 BD71 F6 00 49        ..I   ldab 0049
7728 BD74 C1 02           ..    cmpb #02
7729 BD76 25 0E           %.    bcs 0e
7730 BD78 7F 00 49        ..I   clr 0049
7731 BD7B CE 00 1B        ...   ldx #001b
7732 BD7E 1C 00           ..    bset add,x 00,x
7733 BD80 01              .     nop
7734 BD81 C6 3C           .<    ldab #3c
7735 BD83 F7 00 4F        ..O   stb 004f
7736 BD86 BD E5 AA        ...   jsr e5aa             ;jump12
7737 BD89 CE 00 1B        ...   ldx #001b
7738 BD8C 1D 00           ..    bclr add,x 00,x
7739 BD8E 10              .     sba
7740 BD8F 20 1E            .    bra 1e
7741 BD91 F6 00 1B        ...   ldab 001b
7742 BD94 C4 10           ..    andb #10
7743 BD96 26 17           &.    bne 17
7744 BD98 F6 00 29        ..)   ldab 0029
7745 BD9B C1 0B           ..    cmpb #0b
7746 BD9D 26 10           &.    bne 10
7747 BD9F F6 00 37        ..7   ldab 0037
7748 BDA2 26 0B           &.    bne 0b
7749 BDA4 BD DD D5        ...   jsr ddd5
7750 BDA7 7F 00 49        ..I   clr 0049
7751 BDAA C6 14           ..    ldab #14
7752 BDAC F7 00 2C        ..,   stb 002c
7753 BDAF C6 01           ..    ldab #01
7754 BDB1 F7 00 00        ...   stb 0000
7755 BDB4 39              9     rts
7756 BDB5 37              7     pshb
7757 BDB6 36              6     psha
7758 BDB7 3C              <     pshx
7759 BDB8 5F              _     clrb
7760 BDB9 4F              O     clra
7761 BDBA 30              0     tsx
7762 BDBB ED 00           ..    stad 00,x
7763 BDBD E6 07           ..    ldab 07,x
7764 BDBF 27 0E           '.    beq 0e
7765 BDC1 CE 00 14        ...   ldx #0014
7766 BDC4 1C 00           ..    bset add,x 00,x
7767 BDC6 08              .     inx
7768 BDC7 F6 00 14        ...   ldab 0014
7769 BDCA F7 38 00        .8.   stb 3800
7770 BDCD 20 0C            .    bra 0c
7771 BDCF CE 00 14        ...   ldx #0014
7772 BDD2 1D 00           ..    bclr add,x 00,x
7773 BDD4 08              .     inx
7774 BDD5 F6 00 14        ...   ldab 0014
7775 BDD8 F7 38 00        .8.   stb 3800
7776 BDDB 30              0     tsx
7777 BDDC E6 03           ..    ldab 03,x
7778 BDDE F7 10 2A        ..*   stb 102a
7779 BDE1 F6 10 29        ..)   ldab 1029
7780 BDE4 2D 0F           -.    blt 0f
7781 BDE6 38              8     pulx
7782 BDE7 08              .     inx
7783 BDE8 3C              <     pshx
7784 BDE9 30              0     tsx
7785 BDEA EC 00           ..    ldd 00,x
7786 BDEC 83 FF FF        ...   subd #ffff
7787 BDEF 26 02           &.    bne 02
7788 BDF1 20 02            .    bra 02
7789 BDF3 20 EC            .    bra ec
7790 BDF5 F6 10 2A        ..*   ldab 102a
7791 BDF8 30              0     tsx
7792 BDF9 E7 03           ..    stb 03,x
7793 BDFB E6 03           ..    ldab 03,x
7794 BDFD 4F              O     clra
7795 BDFE 38              8     pulx
7796 BDFF 38              8     pulx
7797 BE00 39              9     rts
7798 BE01 F6 00 2C        ..,   ldab 002c
7799 BE04 26 09           &.    bne 09
7800 BE06 8D 61           .a    bsr dest 61
7801 BE08 8D 06           ..    bsr dest 06
7802 BE0A C6 03           ..    ldab #03
7803 BE0C F7 00 2C        ..,   stb 002c
7804 BE0F 39              9     rts
7805 BE10 CE 10 28        ..(   ldx #1028
7806 BE13 1C 00           ..    bset add,x 00,x
7807 BE15 40              @     nega
7808 BE16 7F 00 1C        ...   clr 001c
7809 BE19 F6 00 1C        ...   ldab 001c
7810 BE1C C1 0A           ..    cmpb #0a
7811 BE1E 24 19           $.    bcc 19
7812 BE20 CE 00 01        ...   ldx #0001
7813 BE23 3C              <     pshx
7814 BE24 F6 00 1C        ...   ldab 001c
7815 BE27 4F              O     clra
7816 BE28 C3 0B 90        ...   addd #0b90
7817 BE2B 8F              .     xgdx
7818 BE2C E6 00           ..    ldab 00,x
7819 BE2E C4 7F           ..    andb #7f
7820 BE30 4F              O     clra
7821 BE31 8D 82           ..    bsr dest 82
7822 BE33 38              8     pulx
7823 BE34 7C 00 1C        |..   inc 001c
7824 BE37 20 E0            .    bra e0
7825 BE39 CE 00 01        ...   ldx #0001
7826 BE3C 3C              <     pshx
7827 BE3D CC 00 FF        ...   ldd #00ff
7828 BE40 BD BD B5        ...   jsr bdb5
7829 BE43 38              8     pulx
7830 BE44 CE 10 28        ..(   ldx #1028
7831 BE47 1D 00           ..    bclr add,x 00,x
7832 BE49 40              @     nega
7833 BE4A 39              9     rts
7834
7835 jump1:
7836 BE4B 7F 00 1C        ...   clr 001c
7837 BE4E F6 00 1C        ...   ldab 001c
7838 BE51 C1 0A           ..    cmpb #0a
7839 BE53 24 13           $.    bcc 13
7840 BE55 C6 20           .     ldab #20
7841 BE57 37              7     pshb
7842 BE58 F6 00 1C        ...   ldab 001c
7843 BE5B 4F              O     clra
7844 BE5C C3 0B 90        ...   addd #0b90
7845 BE5F 8F              .     xgdx
7846 BE60 33              3     pulb
7847 BE61 E7 00           ..    stb 00,x
7848 BE63 7C 00 1C        |..   inc 001c
7849 BE66 20 E6            .    bra e6
7850 BE68 39              9     rts
7851
7852 jump3:
7853 BE69 CE 10 00        ...   ldx #1000            ;
7854 BE6C 1D 00           ..    bclr add,x 00,x      ;
7855 BE6E 80 BD           ..    suba #bd             ;
7856 BE70 E5 96           ..    bitb 96,x
7857 BE72 CE 10 00        ...   ldx #1000
7858 BE75 1C 00           ..    bset add,x 00,x
7859 BE77 80 CE           ..    suba #ce
7860 BE79 10              .     sba
7861 BE7A 28 1C           (.    bvc 1c
7862 BE7C 00              .     test
7863 BE7D 40              @     nega
7864 BE7E BD E5 96        ...   jsr e596
7865 BE81 CE 00 01        ...   ldx #0001
7866 BE84 3C              <     pshx
7867 BE85 CC 00 CA        ...   ldd #00ca
7868 BE88 BD BD B5        ...   jsr bdb5
7869 BE8B 38              8     pulx
7870 BE8C CE 00 01        ...   ldx #0001
7871 BE8F 3C              <     pshx
7872 BE90 CC 00 E0        ...   ldd #00e0
7873 BE93 BD BD B5        ...   jsr bdb5
7874 BE96 38              8     pulx
7875 BE97 CE 10 28        ..(   ldx #1028
7876 BE9A 1D 00           ..    bclr add,x 00,x
7877 BE9C 40              @     nega
7878 BE9D 39              9     rts
7879
7880 BE9E 37              7     pshb
7881 BE9F 36              6     psha
7882 BEA0 8D A9           ..    bsr dest a9
7883 BEA2 30              0     tsx
7884 BEA3 E6 05           ..    ldab 05,x
7885 BEA5 26 1B           &.    bne 1b
7886 BEA7 F6 00 06        ...   ldab 0006
7887 BEAA 4F              O     clra
7888 BEAB CE 00 0A        ...   ldx #000a
7889 BEAE 02              .     idiv
7890 BEAF 8F              .     xgdx
7891 BEB0 CB 30           .0    addb #30
7892 BEB2 F7 0B 99        ...   stb 0b99
7893 BEB5 F6 00 06        ...   ldab 0006
7894 BEB8 4F              O     clra
7895 BEB9 CE 00 0A        ...   ldx #000a
7896 BEBC 02              .     idiv
7897 BEBD CB 30           .0    addb #30
7898 BEBF F7 0B 98        ...   stb 0b98
7899 BEC2 30              0     tsx
7900 BEC3 EC 00           ..    ldd 00,x
7901 BEC5 C4 FF           ..    andb #ff
7902 BEC7 84 3F           .?    anda #3f
7903 BEC9 ED 00           ..    stad 00,x
7904 BECB EC 00           ..    ldd 00,x
7905 BECD CE 03 E8        ...   ldx #03e8
7906 BED0 02              .     idiv
7907 BED1 8F              .     xgdx
7908 BED2 CB 30           .0    addb #30
7909 BED4 37              7     pshb
7910 BED5 30              0     tsx
7911 BED6 E6 06           ..    ldab 06,x
7912 BED8 4F              O     clra
7913 BED9 C3 0B 95        ...   addd #0b95
7914 BEDC 8F              .     xgdx
7915 BEDD 33              3     pulb
7916 BEDE E7 00           ..    stb 00,x
7917 BEE0 30              0     tsx
7918 BEE1 EC 00           ..    ldd 00,x
7919 BEE3 CE 03 E8        ...   ldx #03e8
7920 BEE6 02              .     idiv
7921 BEE7 CE 00 64        ..d   ldx #0064
7922 BEEA 02              .     idiv
7923 BEEB 8F              .     xgdx
7924 BEEC CB 30           .0    addb #30
7925 BEEE 37              7     pshb
7926 BEEF 30              0     tsx
7927 BEF0 E6 06           ..    ldab 06,x
7928 BEF2 4F              O     clra
7929 BEF3 C3 0B 94        ...   addd #0b94
7930 BEF6 8F              .     xgdx
7931 BEF7 33              3     pulb
7932 BEF8 E7 00           ..    stb 00,x
7933 BEFA 30              0     tsx
7934 BEFB EC 00           ..    ldd 00,x
7935 BEFD CE 00 64        ..d   ldx #0064
7936 BF00 02              .     idiv
7937 BF01 CE 00 0A        ...   ldx #000a
7938 BF04 02              .     idiv
7939 BF05 8F              .     xgdx
7940 BF06 CB 30           .0    addb #30
7941 BF08 37              7     pshb
7942 BF09 30              0     tsx
7943 BF0A E6 06           ..    ldab 06,x
7944 BF0C 4F              O     clra
7945 BF0D C3 0B 93        ...   addd #0b93
7946 BF10 8F              .     xgdx
7947 BF11 33              3     pulb
7948 BF12 E7 00           ..    stb 00,x
7949 BF14 30              0     tsx
7950 BF15 EC 00           ..    ldd 00,x
7951 BF17 CE 00 0A        ...   ldx #000a
7952 BF1A 02              .     idiv
7953 BF1B CB 30           .0    addb #30
7954 BF1D 37              7     pshb
7955 BF1E 30              0     tsx
7956 BF1F E6 06           ..    ldab 06,x
7957 BF21 4F              O     clra
7958 BF22 C3 0B 92        ...   addd #0b92
7959 BF25 8F              .     xgdx
7960 BF26 33              3     pulb
7961 BF27 E7 00           ..    stb 00,x
7962 BF29 F6 00 13        ...   ldab 0013
7963 BF2C C1 01           ..    cmpb #01
7964 BF2E 22 03           ".    bhi 03
7965 BF30 7E BF DE        ~..   jmp bfde
7966 BF33 30              0     tsx
7967 BF34 E6 05           ..    ldab 05,x
7968 BF36 4F              O     clra
7969 BF37 C3 0B 92        ...   addd #0b92
7970 BF3A 8F              .     xgdx
7971 BF3B E6 00           ..    ldab 00,x
7972 BF3D 37              7     pshb
7973 BF3E 30              0     tsx
7974 BF3F E6 06           ..    ldab 06,x
7975 BF41 4F              O     clra
7976 BF42 C3 0B 91        ...   addd #0b91
7977 BF45 8F              .     xgdx
7978 BF46 33              3     pulb
7979 BF47 E7 00           ..    stb 00,x
7980 BF49 30              0     tsx
7981 BF4A E6 05           ..    ldab 05,x
7982 BF4C 4F              O     clra
7983 BF4D C3 0B 93        ...   addd #0b93
7984 BF50 8F              .     xgdx
7985 BF51 E6 00           ..    ldab 00,x
7986 BF53 37              7     pshb
7987 BF54 30              0     tsx
7988 BF55 E6 06           ..    ldab 06,x
7989 BF57 4F              O     clra
7990 BF58 C3 0B 92        ...   addd #0b92
7991 BF5B 8F              .     xgdx
7992 BF5C 33              3     pulb
7993 BF5D E7 00           ..    stb 00,x
7994 BF5F F6 00 13        ...   ldab 0013
7995 BF62 C1 02           ..    cmpb #02
7996 BF64 26 10           &.    bne 10
7997 BF66 C6 2E           ..    ldab #2e
7998 BF68 37              7     pshb
7999 BF69 30              0     tsx
8000 BF6A E6 06           ..    ldab 06,x
8001 BF6C 4F              O     clra
8002 BF6D C3 0B 93        ...   addd #0b93
8003 BF70 8F              .     xgdx
8004 BF71 33              3     pulb
8005 BF72 E7 00           ..    stb 00,x
8006 BF74 20 68            h    bra 68
8007 BF76 C1 04           ..    cmpb #04
8008 BF78 26 26           &&    bne 26
8009 BF7A 30              0     tsx
8010 BF7B E6 05           ..    ldab 05,x
8011 BF7D 4F              O     clra
8012 BF7E C3 0B 94        ...   addd #0b94
8013 BF81 8F              .     xgdx
8014 BF82 E6 00           ..    ldab 00,x
8015 BF84 37              7     pshb
8016 BF85 30              0     tsx
8017 BF86 E6 06           ..    ldab 06,x
8018 BF88 4F              O     clra
8019 BF89 C3 0B 93        ...   addd #0b93
8020 BF8C 8F              .     xgdx
8021 BF8D 33              3     pulb
8022 BF8E E7 00           ..    stb 00,x
8023 BF90 C6 2E           ..    ldab #2e
8024 BF92 37              7     pshb
8025 BF93 30              0     tsx
8026 BF94 E6 06           ..    ldab 06,x
8027 BF96 4F              O     clra
8028 BF97 C3 0B 94        ...   addd #0b94
8029 BF9A 8F              .     xgdx
8030 BF9B 33              3     pulb
8031 BF9C E7 00           ..    stb 00,x
8032 BF9E 20 3E            >    bra 3e
8033 BFA0 C1 08           ..    cmpb #08
8034 BFA2 26 3A           &:    bne 3a
8035 BFA4 30              0     tsx
8036 BFA5 E6 05           ..    ldab 05,x
8037 BFA7 4F              O     clra
8038 BFA8 C3 0B 94        ...   addd #0b94
8039 BFAB 8F              .     xgdx
8040 BFAC E6 00           ..    ldab 00,x
8041 BFAE 37              7     pshb
8042 BFAF 30              0     tsx
8043 BFB0 E6 06           ..    ldab 06,x
8044 BFB2 4F              O     clra
8045 BFB3 C3 0B 93        ...   addd #0b93
8046 BFB6 8F              .     xgdx
8047 BFB7 33              3     pulb
8048 BFB8 E7 00           ..    stb 00,x
8049 BFBA 30              0     tsx
8050 BFBB E6 05           ..    ldab 05,x
8051 BFBD 4F              O     clra
8052 BFBE C3 0B 95        ...   addd #0b95
8053 BFC1 8F              .     xgdx
8054 BFC2 E6 00           ..    ldab 00,x
8055 BFC4 37              7     pshb
8056 BFC5 30              0     tsx
8057 BFC6 E6 06           ..    ldab 06,x
8058 BFC8 4F              O     clra
8059 BFC9 C3 0B 94        ...   addd #0b94
8060 BFCC 8F              .     xgdx
8061 BFCD 33              3     pulb
8062 BFCE E7 00           ..    stb 00,x
8063 BFD0 C6 2E           ..    ldab #2e
8064 BFD2 37              7     pshb
8065 BFD3 30              0     tsx
8066 BFD4 E6 06           ..    ldab 06,x
8067 BFD6 4F              O     clra
8068 BFD7 C3 0B 95        ...   addd #0b95
8069 BFDA 8F              .     xgdx
8070 BFDB 33              3     pulb
8071 BFDC E7 00           ..    stb 00,x
8072 BFDE F6 0B C0        ...   ldab 0bc0
8073 BFE1 C4 01           ..    andb #01
8074 BFE3 26 0E           &.    bne 0e
8075 BFE5 F6 0B C0        ...   ldab 0bc0
8076 BFE8 C4 04           ..    andb #04
8077 BFEA 26 07           &.    bne 07
8078 BFEC F6 0B C0        ...   ldab 0bc0
8079 BFEF C4 08           ..    andb #08
8080 BFF1 27 15           '.    beq 15
8081 BFF3 F6 00 17        ...   ldab 0017
8082 BFF6 C4 08           ..    andb #08
8083 BFF8 26 0E           &.    bne 0e
8084 BFFA C6 24           .$    ldab #24
8085 BFFC 37              7     pshb
8086 BFFD 30              0     tsx
8087 BFFE E6 06           ..    ldab 06,x
8088 C000 4F              O     clra
8089 C001 C3 0B 96        ...   addd #0b96
8090 C004 8F              .     xgdx
8091 C005 33              3     pulb
8092 C006 E7 00           ..    stb 00,x
8093 C008 BD BE 69        ..i   jsr be69             ;jump3
8094 C00B F6 00 13        ...   ldab 0013
8095 C00E C1 01           ..    cmpb #01
8096 C010 23 17           #.    bls 17
8097 C012 CE 10 28        ..(   ldx #1028
8098 C015 1C 00           ..    bset add,x 00,x
8099 C017 40              @     nega
8100 C018 CE 00 01        ...   ldx #0001
8101 C01B 3C              <     pshx
8102 C01C CC 00 20        ..    ldd #0020
8103 C01F BD BD B5        ...   jsr bdb5
8104 C022 38              8     pulx
8105 C023 CE 10 28        ..(   ldx #1028
8106 C026 1D 00           ..    bclr add,x 00,x
8107 C028 40              @     nega
8108 C029 BD BE 10        ...   jsr be10
8109 C02C 38              8     pulx
8110 C02D 39              9     rts
8111
8112 C02E 37              7     pshb
8113 C02F 36              6     psha
8114 C030 3C              <     pshx
8115 C031 F6 00 2C        ..,   ldab 002c
8116 C034 27 03           '.    beq 03
8117 C036 7E C0 B7        ~..   jmp c0b7
8118 C039 FC 00 03        ...   ldd 0003
8119 C03C 30              0     tsx
8120 C03D A3 02           ..    subd 02,x
8121 C03F 25 0A           %.    bcs 0a
8122 C041 E6 07           ..    ldab 07,x
8123 C043 4F              O     clra
8124 C044 E3 02           ..    addd 02,x
8125 C046 B3 00 03        ...   subd 0003
8126 C049 24 06           $.    bcc 06
8127 C04B 30              0     tsx
8128 C04C EC 02           ..    ldd 02,x
8129 C04E FD 00 03        ...   stad 0003
8130 C051 FE 00 03        ...   ldx 0003
8131 C054 08              .     inx
8132 C055 FF 00 03        ...   stx 0003
8133 C058 09              .     dex
8134 C059 8F              .     xgdx
8135 C05A 30              0     tsx
8136 C05B ED 00           ..    stad 00,x
8137 C05D C6 09           ..    ldab #09
8138 C05F F7 00 18        ...   stb 0018
8139 C062 F6 00 18        ...   ldab 0018
8140 C065 C1 FF           ..    cmpb #ff
8141 C067 24 46           $F    bcc 46
8142 C069 30              0     tsx
8143 C06A E6 07           ..    ldab 07,x
8144 C06C 4F              O     clra
8145 C06D E3 02           ..    addd 02,x
8146 C06F A3 00           ..    subd 00,x
8147 C071 24 05           $.    bcc 05
8148 C073 30              0     tsx
8149 C074 EC 02           ..    ldd 02,x
8150 C076 ED 00           ..    stad 00,x
8151 C078 30              0     tsx
8152 C079 EE 00           ..    ldx 00,x
8153 C07B E6 00           ..    ldab 00,x
8154 C07D C1 40           .@    cmpb #40
8155 C07F 24 13           $.    bcc 13
8156 C081 30              0     tsx
8157 C082 EE 00           ..    ldx 00,x
8158 C084 E6 00           ..    ldab 00,x
8159 C086 37              7     pshb
8160 C087 F6 00 18        ...   ldab 0018
8161 C08A 4F              O     clra
8162 C08B C3 0B 90        ...   addd #0b90
8163 C08E 8F              .     xgdx
8164 C08F 33              3     pulb
8165 C090 E7 00           ..    stb 00,x
8166 C092 20 13            .    bra 13
8167 C094 30              0     tsx
8168 C095 EE 00           ..    ldx 00,x
8169 C097 E6 00           ..    ldab 00,x
8170 C099 CB C0           ..    addb #c0
8171 C09B 37              7     pshb
8172 C09C F6 00 18        ...   ldab 0018
8173 C09F 4F              O     clra
8174 C0A0 C3 0B 90        ...   addd #0b90
8175 C0A3 8F              .     xgdx
8176 C0A4 33              3     pulb
8177 C0A5 E7 00           ..    stb 00,x
8178 C0A7 38              8     pulx
8179 C0A8 08              .     inx
8180 C0A9 3C              <     pshx
8181 C0AA 7A 00 18        z..   dec 0018
8182 C0AD 20 B3            .    bra b3
8183 C0AF BD BE 01        ...   jsr be01
8184 C0B2 C6 03           ..    ldab #03
8185 C0B4 F7 00 2C        ..,   stb 002c
8186 C0B7 38              8     pulx
8187 C0B8 38              8     pulx
8188 C0B9 39              9     rts
8189
8190 ;Display a string.  D points to the string, which is NULL-terminated
8191
8192 display:
8193 C0BA 37              7     pshb
8194 C0BB 36              6     psha
8195 C0BC F6 00 1F        ...   ldab 001f
8196 C0BF C4 04           ..    andb #04
8197 C0C1 26 03           &.    bne 03
8198 C0C3 7F 00 2C        ..,   clr 002c
8199 C0C6 F6 00 2C        ..,   ldab 002c
8200 C0C9 26 13           &.    bne 13
8201 C0CB 5F              _     clrb
8202 C0CC 4F              O     clra
8203 C0CD FD 00 03        ...   stad 0003
8204 C0D0 7F 00 2C        ..,   clr 002c
8205 C0D3 CE 00 09        ...   ldx #0009
8206 C0D6 3C              <     pshx
8207 C0D7 30              0     tsx
8208 C0D8 EC 02           ..    ldd 02,x
8209 C0DA BD C0 2E        ...   jsr c02e
8210 C0DD 38              8     pulx
8211 C0DE 38              8     pulx
8212 C0DF 39              9     rts
8213
8214 C0E0 F6 00 15        ...   ldab 0015
8215 C0E3 2C 02           ,.    bge 02
8216 C0E5 20 F9            .    bra f9
8217 C0E7 CE 00 1D        ...   ldx #001d
8218 C0EA 1C 00           ..    bset add,x 00,x
8219 C0EC 20 BD            .    bra bd
8220 C0EE D7 30 83        .0.   stab 30
8221 C0F1 00              .     test
8222 C0F2 00              .     test
8223 C0F3 27 09           '.    beq 09
8224 C0F5 CE 00 1D        ...   ldx #001d
8225 C0F8 1D 00           ..    bclr add,x 00,x
8226 C0FA 20 5F            _    bra 5f
8227 C0FC 4F              O     clra
8228 C0FD 39              9     rts
8229
8230 C0FE CE 00 14        ...   ldx #0014
8231 C101 1C 00           ..    bset add,x 00,x
8232 C103 01              .     nop
8233 C104 F6 00 14        ...   ldab 0014
8234 C107 F7 38 00        .8.   stb 3800
8235 C10A F6 00 15        ...   ldab 0015
8236 C10D C4 1F           ..    andb #1f
8237 C10F 26 03           &.    bne 03
8238 C111 7E C3 1B        ~..   jmp c31b
8239 C114 C6 14           ..    ldab #14
8240 C116 F7 00 31        ..1   stb 0031
8241 C119 F6 00 15        ...   ldab 0015
8242 C11C 2D 15           -.    blt 15
8243 C11E F6 00 31        ..1   ldab 0031
8244 C121 C1 0A           ..    cmpb #0a
8245 C123 22 0C           ".    bhi 0c
8246 C125 BD C5 D3        ...   jsr c5d3             ;jump6
8247 C128 CE 00 1D        ...   ldx #001d
8248 C12B 1D 00           ..    bclr add,x 00,x
8249 C12D 20 5F            _    bra 5f
8250 C12F 4F              O     clra
8251 C130 39              9     rts
8252
8253 C131 20 E6            .    bra e6
8254 C133 FC 00 3E        ..>   ldd 003e
8255 C136 F3 00 40        ..@   addd 0040
8256 C139 FD 00 40        ..@   stad 0040
8257 C13C 5F              _     clrb
8258 C13D 4F              O     clra
8259 C13E FD 00 3E        ..>   stad 003e
8260 C141 F6 00 15        ...   ldab 0015
8261 C144 C4 1F           ..    andb #1f
8262 C146 4F              O     clra
8263 C147 BD FE 32        ..2   jsr fe32
8264 C14A C1 64           .d    cmpb #64
8265 C14C 00              .     test
8266 C14D 01              .     nop
8267 C14E C1 BA           ..    cmpb #ba
8268 C150 00              .     test
8269 C151 01              .     nop
8270 C152 C2 10           ..    sbcb #10
8271 C154 00              .     test
8272 C155 02              .     idiv
8273 C156 C2 66           .f    sbcb #66
8274 C158 00              .     test
8275 C159 04              .     lsrd
8276 C15A C2 BB           ..    sbcb #bb
8277 C15C 00              .     test
8278 C15D 08              .     inx
8279 C15E C3 0E FF        ...   addd #0eff
8280 C161 F0 00 00        ...   subb 0000
8281 C164 FC 0C DD        ...   ldd 0cdd
8282 C167 83 FF FF        ...   subd #ffff
8283 C16A 26 05           &.    bne 05
8284 C16C 5F              _     clrb
8285 C16D 4F              O     clra
8286 C16E FD 0C DD        ...   stad 0cdd
8287 C171 FE 0C DD        ...   ldx 0cdd
8288 C174 08              .     inx
8289 C175 FF 0C DD        ...   stx 0cdd
8290 C178 CE 00 64        ..d   ldx #0064
8291 C17B 3C              <     pshx
8292 C17C CC 00 00        ...   ldd #0000
8293 C17F 37              7     pshb
8294 C180 36              6     psha
8295 C181 CC 0C F3        ...   ldd #0cf3
8296 C184 BD FB DF        ...   jsr fbdf
8297 C187 31              1     ins
8298 C188 31              1     ins
8299 C189 FE 0C F5        ...   ldx 0cf5
8300 C18C 3C              <     pshx
8301 C18D FC 0C F3        ...   ldd 0cf3
8302 C190 37              7     pshb
8303 C191 36              6     psha
8304 C192 CE FF 9C        ...   ldx #ff9c
8305 C195 3C              <     pshx
8306 C196 CC 00 63        ..c   ldd #0063
8307 C199 30              0     tsx
8308 C19A A3 02           ..    subd 02,x
8309 C19C 32              2     pula
8310 C19D 33              3     pulb
8311 C19E 26 02           &.    bne 02
8312 C1A0 A3 04           ..    subd 04,x
8313 C1A2 38              8     pulx
8314 C1A3 38              8     pulx
8315 C1A4 24 11           $.    bcc 11
8316 C1A6 CE 00 64        ..d   ldx #0064
8317 C1A9 3C              <     pshx
8318 C1AA CC FF 9C        ...   ldd #ff9c
8319 C1AD 37              7     pshb
8320 C1AE 36              6     psha
8321 C1AF CC 0C F3        ...   ldd #0cf3
8322 C1B2 BD FB DF        ...   jsr fbdf
8323 C1B5 31              1     ins
8324 C1B6 31              1     ins
8325 C1B7 7E C3 0E        ~..   jmp c30e
8326 C1BA FC 0C DF        ...   ldd 0cdf
8327 C1BD 83 FF FF        ...   subd #ffff
8328 C1C0 26 05           &.    bne 05
8329 C1C2 5F              _     clrb
8330 C1C3 4F              O     clra
8331 C1C4 FD 0C DF        ...   stad 0cdf
8332 C1C7 FE 0C DF        ...   ldx 0cdf
8333 C1CA 08              .     inx
8334 C1CB FF 0C DF        ...   stx 0cdf
8335 C1CE CE 00 C8        ...   ldx #00c8
8336 C1D1 3C              <     pshx
8337 C1D2 CC 00 00        ...   ldd #0000
8338 C1D5 37              7     pshb
8339 C1D6 36              6     psha
8340 C1D7 CC 0C F7        ...   ldd #0cf7
8341 C1DA BD FB DF        ...   jsr fbdf
8342 C1DD 31              1     ins
8343 C1DE 31              1     ins
8344 C1DF FE 0C F9        ...   ldx 0cf9
8345 C1E2 3C              <     pshx
8346 C1E3 FC 0C F7        ...   ldd 0cf7
8347 C1E6 37              7     pshb
8348 C1E7 36              6     psha
8349 C1E8 CE FF 38        ..8   ldx #ff38
8350 C1EB 3C              <     pshx
8351 C1EC CC 00 C7        ...   ldd #00c7
8352 C1EF 30              0     tsx
8353 C1F0 A3 02           ..    subd 02,x
8354 C1F2 32              2     pula
8355 C1F3 33              3     pulb
8356 C1F4 26 02           &.    bne 02
8357 C1F6 A3 04           ..    subd 04,x
8358 C1F8 38              8     pulx
8359 C1F9 38              8     pulx
8360 C1FA 24 11           $.    bcc 11
8361 C1FC CE 00 C8        ...   ldx #00c8
8362 C1FF 3C              <     pshx
8363 C200 CC FF 38        ..8   ldd #ff38
8364 C203 37              7     pshb
8365 C204 36              6     psha
8366 C205 CC 0C F7        ...   ldd #0cf7
8367 C208 BD FB DF        ...   jsr fbdf
8368 C20B 31              1     ins
8369 C20C 31              1     ins
8370 C20D 7E C3 0E        ~..   jmp c30e
8371 C210 FC 0C E1        ...   ldd 0ce1
8372 C213 83 FF FF        ...   subd #ffff
8373 C216 26 05           &.    bne 05
8374 C218 5F              _     clrb
8375 C219 4F              O     clra
8376 C21A FD 0C E1        ...   stad 0ce1
8377 C21D FE 0C E1        ...   ldx 0ce1
8378 C220 08              .     inx
8379 C221 FF 0C E1        ...   stx 0ce1
8380 C224 CE 01 F4        ...   ldx #01f4
8381 C227 3C              <     pshx
8382 C228 CC 00 00        ...   ldd #0000
8383 C22B 37              7     pshb
8384 C22C 36              6     psha
8385 C22D CC 0C FB        ...   ldd #0cfb
8386 C230 BD FB DF        ...   jsr fbdf
8387 C233 31              1     ins
8388 C234 31              1     ins
8389 C235 FE 0C FD        ...   ldx 0cfd
8390 C238 3C              <     pshx
8391 C239 FC 0C FB        ...   ldd 0cfb
8392 C23C 37              7     pshb
8393 C23D 36              6     psha
8394 C23E CE FE 0C        ...   ldx #fe0c
8395 C241 3C              <     pshx
8396 C242 CC 01 F3        ...   ldd #01f3
8397 C245 30              0     tsx
8398 C246 A3 02           ..    subd 02,x
8399 C248 32              2     pula
8400 C249 33              3     pulb
8401 C24A 26 02           &.    bne 02
8402 C24C A3 04           ..    subd 04,x
8403 C24E 38              8     pulx
8404 C24F 38              8     pulx
8405 C250 24 11           $.    bcc 11
8406 C252 CE 01 F4        ...   ldx #01f4
8407 C255 3C              <     pshx
8408 C256 CC FE 0C        ...   ldd #fe0c
8409 C259 37              7     pshb
8410 C25A 36              6     psha
8411 C25B CC 0C FB        ...   ldd #0cfb
8412 C25E BD FB DF        ...   jsr fbdf
8413 C261 31              1     ins
8414 C262 31              1     ins
8415 C263 7E C3 0E        ~..   jmp c30e
8416 C266 FC 0C E3        ...   ldd 0ce3
8417 C269 83 FF FF        ...   subd #ffff
8418 C26C 26 05           &.    bne 05
8419 C26E 5F              _     clrb
8420 C26F 4F              O     clra
8421 C270 FD 0C E3        ...   stad 0ce3
8422 C273 FE 0C E3        ...   ldx 0ce3
8423 C276 08              .     inx
8424 C277 FF 0C E3        ...   stx 0ce3
8425 C27A CE 03 E8        ...   ldx #03e8
8426 C27D 3C              <     pshx
8427 C27E CC 00 00        ...   ldd #0000
8428 C281 37              7     pshb
8429 C282 36              6     psha
8430 C283 CC 0C FF        ...   ldd #0cff
8431 C286 BD FB DF        ...   jsr fbdf
8432 C289 31              1     ins
8433 C28A 31              1     ins
8434 C28B FE 0D 01        ...   ldx 0d01
8435 C28E 3C              <     pshx
8436 C28F FC 0C FF        ...   ldd 0cff
8437 C292 37              7     pshb
8438 C293 36              6     psha
8439 C294 CE FC 18        ...   ldx #fc18
8440 C297 3C              <     pshx
8441 C298 CC 03 E7        ...   ldd #03e7
8442 C29B 30              0     tsx
8443 C29C A3 02           ..    subd 02,x
8444 C29E 32              2     pula
8445 C29F 33              3     pulb
8446 C2A0 26 02           &.    bne 02
8447 C2A2 A3 04           ..    subd 04,x
8448 C2A4 38              8     pulx
8449 C2A5 38              8     pulx
8450 C2A6 24 11           $.    bcc 11
8451 C2A8 CE 03 E8        ...   ldx #03e8
8452 C2AB 3C              <     pshx
8453 C2AC CC FC 18        ...   ldd #fc18
8454 C2AF 37              7     pshb
8455 C2B0 36              6     psha
8456 C2B1 CC 0C FF        ...   ldd #0cff
8457 C2B4 BD FB DF        ...   jsr fbdf
8458 C2B7 31              1     ins
8459 C2B8 31              1     ins
8460 C2B9 20 53            S    bra 53
8461 C2BB FC 0C E5        ...   ldd 0ce5
8462 C2BE 83 C3 4F        ..O   subd #c34f
8463 C2C1 26 05           &.    bne 05
8464 C2C3 5F              _     clrb
8465 C2C4 4F              O     clra
8466 C2C5 FD 0C E5        ...   stad 0ce5
8467 C2C8 FE 0C E5        ...   ldx 0ce5
8468 C2CB 08              .     inx
8469 C2CC FF 0C E5        ...   stx 0ce5
8470 C2CF CE 07 D0        ...   ldx #07d0
8471 C2D2 3C              <     pshx
8472 C2D3 CC 00 00        ...   ldd #0000
8473 C2D6 37              7     pshb
8474 C2D7 36              6     psha
8475 C2D8 CC 0D 03        ...   ldd #0d03
8476 C2DB BD FB DF        ...   jsr fbdf
8477 C2DE 31              1     ins
8478 C2DF 31              1     ins
8479 C2E0 FE 0D 05        ...   ldx 0d05
8480 C2E3 3C              <     pshx
8481 C2E4 FC 0D 03        ...   ldd 0d03
8482 C2E7 37              7     pshb
8483 C2E8 36              6     psha
8484 C2E9 CE D9 30        ..0   ldx #d930
8485 C2EC 3C              <     pshx
8486 C2ED CC 05 F5        ...   ldd #05f5
8487 C2F0 30              0     tsx
8488 C2F1 A3 02           ..    subd 02,x
8489 C2F3 32              2     pula
8490 C2F4 33              3     pulb
8491 C2F5 26 02           &.    bne 02
8492 C2F7 A3 04           ..    subd 04,x
8493 C2F9 38              8     pulx
8494 C2FA 38              8     pulx
8495 C2FB 24 11           $.    bcc 11
8496 C2FD CE 26 D0        .&.   ldx #26d0
8497 C300 3C              <     pshx
8498 C301 CC FA 0A        ...   ldd #fa0a
8499 C304 37              7     pshb
8500 C305 36              6     psha
8501 C306 CC 0D 03        ...   ldd #0d03
8502 C309 BD FB DF        ...   jsr fbdf
8503 C30C 31              1     ins
8504 C30D 31              1     ins
8505 C30E F6 00 15        ...   ldab 0015
8506 C311 2C 02           ,.    bge 02
8507 C313 20 F9            .    bra f9
8508 C315 CE 00 15        ...   ldx #0015
8509 C318 1D 00           ..    bclr add,x 00,x
8510 C31A 1F CE 00 1D     ....  brclr ce,x 00 1d
8511 C31E 1D 00           ..    bclr add,x 00,x
8512 C320 20 CC            .    bra cc
8513 C322 00              .     test
8514 C323 01              .     nop
8515 C324 39              9     rts
8516
8517 C325 F6 10 00        ...   ldab 1000
8518 C328 C4 01           ..    andb #01
8519 C32A 26 13           &.    bne 13
8520 C32C 7C 00 7D        |.}   inc 007d
8521 C32F F6 00 7D        ..}   ldab 007d
8522 C332 C1 05           ..    cmpb #05
8523 C334 23 03           #.    bls 03
8524 C336 7F 00 7D        ..}   clr 007d
8525 C339 7F 00 7E        ..~   clr 007e
8526 C33C 7E C4 2F        ~./   jmp c42f
8527 C33F 7C 00 7E        |.~   inc 007e
8528 C342 F6 00 7E        ..~   ldab 007e
8529 C345 C1 07           ..    cmpb #07
8530 C347 23 17           #.    bls 17
8531 C349 7F 00 7D        ..}   clr 007d
8532 C34C 7F 00 7E        ..~   clr 007e
8533 C34F 7F 00 7C        ..|   clr 007c
8534 C352 F6 00 15        ...   ldab 0015
8535 C355 2C 03           ,.    bge 03
8536 C357 7F 00 2C        ..,   clr 002c
8537 C35A CE 00 15        ...   ldx #0015
8538 C35D 1D 00           ..    bclr add,x 00,x
8539 C35F 80 F6           ..    suba #f6
8540 C361 00              .     test
8541 C362 7E 26 03        ~&.   jmp 2603
8542 C365 7E C4 2F        ~./   jmp c42f
8543 C368 F6 00 7D        ..}   ldab 007d
8544 C36B C1 01           ..    cmpb #01
8545 C36D 22 03           ".    bhi 03
8546 C36F 7E C4 2F        ~./   jmp c42f
8547 C372 CE 00 15        ...   ldx #0015
8548 C375 1C 00           ..    bset add,x 00,x
8549 C377 80 CE           ..    suba #ce
8550 C379 0B              .     sev
8551 C37A C1 1D           ..    cmpb #1d
8552 C37C 00              .     test
8553 C37D 08              .     inx
8554 C37E F6 00 1D        ...   ldab 001d
8555 C381 C4 20           .     andb #20
8556 C383 27 03           '.    beq 03
8557 C385 7E C4 29        ~.)   jmp c429
8558 C388 C6 02           ..    ldab #02
8559 C38A F7 00 2C        ..,   stb 002c
8560 C38D 7F 00 3A        ..:   clr 003a
8561 C390 CE 00 1B        ...   ldx #001b
8562 C393 1D 00           ..    bclr add,x 00,x
8563 C395 40              @     nega
8564 C396 7F 00 25        ..%   clr 0025
8565 C399 CE 00 21        ..!   ldx #0021
8566 C39C 1D 00           ..    bclr add,x 00,x
8567 C39E 08              .     inx
8568 C39F CE 00 14        ...   ldx #0014
8569 C3A2 1D 00           ..    bclr add,x 00,x
8570 C3A4 01              .     nop
8571 C3A5 F6 00 14        ...   ldab 0014
8572 C3A8 F7 38 00        .8.   stb 3800
8573 C3AB 7C 00 7C        |.|   inc 007c
8574 C3AE CE 00 15        ...   ldx #0015
8575 C3B1 1D 00           ..    bclr add,x 00,x
8576 C3B3 1F F6 00 7C     ...|  brclr f6,x 00 7c
8577 C3B7 C1 01           ..    cmpb #01
8578 C3B9 26 0E           &.    bne 0e
8579 C3BB CE 00 15        ...   ldx #0015
8580 C3BE 1C 00           ..    bset add,x 00,x
8581 C3C0 01              .     nop
8582 C3C1 CC 00 64        ..d   ldd #0064
8583 C3C4 FD 00 3E        ..>   stad 003e
8584 C3C7 20 60            `    bra 60
8585 C3C9 F6 00 7C        ..|   ldab 007c
8586 C3CC C1 02           ..    cmpb #02
8587 C3CE 26 0E           &.    bne 0e
8588 C3D0 CE 00 15        ...   ldx #0015
8589 C3D3 1C 00           ..    bset add,x 00,x
8590 C3D5 02              .     idiv
8591 C3D6 CC 00 C8        ...   ldd #00c8
8592 C3D9 FD 00 3E        ..>   stad 003e
8593 C3DC 20 4B            K    bra 4b
8594 C3DE F6 00 7C        ..|   ldab 007c
8595 C3E1 C1 02           ..    cmpb #02
8596 C3E3 23 15           #.    bls 15
8597 C3E5 F6 00 7C        ..|   ldab 007c
8598 C3E8 C1 06           ..    cmpb #06
8599 C3EA 24 0E           $.    bcc 0e
8600 C3EC CE 00 15        ...   ldx #0015
8601 C3EF 1C 00           ..    bset add,x 00,x
8602 C3F1 04              .     lsrd
8603 C3F2 CC 01 F4        ...   ldd #01f4
8604 C3F5 FD 00 3E        ..>   stad 003e
8605 C3F8 20 2F            /    bra 2f
8606 C3FA F6 00 7C        ..|   ldab 007c
8607 C3FD C1 05           ..    cmpb #05
8608 C3FF 23 15           #.    bls 15
8609 C401 F6 00 7C        ..|   ldab 007c
8610 C404 C1 0B           ..    cmpb #0b
8611 C406 24 0E           $.    bcc 0e
8612 C408 CE 00 15        ...   ldx #0015
8613 C40B 1C 00           ..    bset add,x 00,x
8614 C40D 08              .     inx
8615 C40E CC 03 E8        ...   ldd #03e8
8616 C411 FD 00 3E        ..>   stad 003e
8617 C414 20 13            .    bra 13
8618 C416 F6 00 7C        ..|   ldab 007c
8619 C419 C1 0B           ..    cmpb #0b
8620 C41B 23 0C           #.    bls 0c
8621 C41D CE 00 15        ...   ldx #0015
8622 C420 1C 00           ..    bset add,x 00,x
8623 C422 10              .     sba
8624 C423 CC 07 D0        ...   ldd #07d0
8625 C426 FD 00 3E        ..>   stad 003e
8626 C429 7F 00 7D        ..}   clr 007d
8627 C42C 7F 00 7E        ..~   clr 007e
8628 C42F 39              9     rts
8629
8630 C430 F6 00 01        ...   ldab 0001
8631 C433 53              S     comb
8632 C434 F4 00 1A        ...   andb 001a
8633 C437 F7 00 1A        ...   stb 001a
8634 C43A F6 00 1A        ...   ldab 001a
8635 C43D F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8636 C440 CC 00 64        ..d   ldd #0064
8637 C443 BD E5 71        ..q   jsr e571             ;jump13
8638 C446 F6 00 01        ...   ldab 0001
8639 C449 FA 00 1A        ...   orb 001a
8640 C44C F7 00 1A        ...   stb 001a
8641 C44F F6 00 1A        ...   ldab 001a
8642 C452 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8643 C455 39              9     rts
8644
8645 C456 FC 00 40        ..@   ldd 0040
8646 C459 26 03           &.    bne 03
8647 C45B 7E C5 C6        ~..   jmp c5c6
8648 C45E CE 00 1A        ...   ldx #001a
8649 C461 1C 00           ..    bset add,x 00,x
8650 C463 01              .     nop
8651 C464 F6 00 1A        ...   ldab 001a
8652 C467 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8653 C46A CC 03 E8        ...   ldd #03e8
8654 C46D BD E5 71        ..q   jsr e571             ;jump13
8655 C470 FC 00 40        ..@   ldd 0040
8656 C473 83 00 00        ...   subd #0000
8657 C476 22 03           ".    bhi 03
8658 C478 7E C5 B0        ~..   jmp c5b0
8659 C47B F6 00 1B        ...   ldab 001b
8660 C47E C4 20           .     andb #20
8661 C480 27 1B           '.    beq 1b
8662 C482 FC 00 40        ..@   ldd 0040
8663 C485 83 03 E8        ...   subd #03e8
8664 C488 25 13           %.    bcs 13
8665 C48A C6 28           .(    ldab #28
8666 C48C F7 00 01        ...   stb 0001
8667 C48F CC FC 18        ...   ldd #fc18
8668 C492 F3 00 40        ..@   addd 0040
8669 C495 FD 00 40        ..@   stad 0040
8670 C498 8D 96           ..    bsr dest 96
8671 C49A 7E C5 7C        ~.|   jmp c57c
8672 C49D F6 00 1B        ...   ldab 001b
8673 C4A0 C4 20           .     andb #20
8674 C4A2 27 1C           '.    beq 1c
8675 C4A4 FC 00 40        ..@   ldd 0040
8676 C4A7 83 00 64        ..d   subd #0064
8677 C4AA 25 14           %.    bcs 14
8678 C4AC C6 30           .0    ldab #30
8679 C4AE F7 00 01        ...   stb 0001
8680 C4B1 CC FF 9C        ...   ldd #ff9c
8681 C4B4 F3 00 40        ..@   addd 0040
8682 C4B7 FD 00 40        ..@   stad 0040
8683 C4BA BD C4 30        ..0   jsr c430
8684 C4BD 7E C5 7C        ~.|   jmp c57c
8685 C4C0 FC 0B DD        ...   ldd 0bdd
8686 C4C3 27 3C           '<    beq 3c
8687 C4C5 FC 00 40        ..@   ldd 0040
8688 C4C8 B3 0B DD        ...   subd 0bdd
8689 C4CB 25 34           %4    bcs 34
8690 C4CD F6 0C DB        ...   ldab 0cdb
8691 C4D0 26 07           &.    bne 07
8692 C4D2 F6 00 1B        ...   ldab 001b
8693 C4D5 C4 20           .     andb #20
8694 C4D7 27 28           '(    beq 28
8695 C4D9 FC 0B DD        ...   ldd 0bdd
8696 C4DC 53              S     comb
8697 C4DD 43              C     coma
8698 C4DE F9 00 41        ..A   adcb 0041
8699 C4E1 B9 00 40        ..@   adca 0040
8700 C4E4 FD 00 40        ..@   stad 0040
8701 C4E7 F6 0B DA        ...   ldab 0bda
8702 C4EA F7 00 01        ...   stb 0001
8703 C4ED BD C4 30        ..0   jsr c430
8704 C4F0 F6 00 1B        ...   ldab 001b
8705 C4F3 C4 20           .     andb #20
8706 C4F5 26 08           &.    bne 08
8707 C4F7 F6 0C DB        ...   ldab 0cdb
8708 C4FA 27 03           '.    beq 03
8709 C4FC 7A 0C DB        z..   dec 0cdb
8710 C4FF 20 7B            {    bra 7b
8711 C501 FC 0B DF        ...   ldd 0bdf
8712 C504 27 3C           '<    beq 3c
8713 C506 FC 00 40        ..@   ldd 0040
8714 C509 B3 0B DF        ...   subd 0bdf
8715 C50C 25 34           %4    bcs 34
8716 C50E F6 0C DA        ...   ldab 0cda
8717 C511 26 07           &.    bne 07
8718 C513 F6 00 1B        ...   ldab 001b
8719 C516 C4 20           .     andb #20
8720 C518 27 28           '(    beq 28
8721 C51A FC 0B DF        ...   ldd 0bdf
8722 C51D 53              S     comb
8723 C51E 43              C     coma
8724 C51F F9 00 41        ..A   adcb 0041
8725 C522 B9 00 40        ..@   adca 0040
8726 C525 FD 00 40        ..@   stad 0040
8727 C528 F6 0B DB        ...   ldab 0bdb
8728 C52B F7 00 01        ...   stb 0001
8729 C52E BD C4 30        ..0   jsr c430
8730 C531 F6 00 1B        ...   ldab 001b
8731 C534 C4 20           .     andb #20
8732 C536 26 08           &.    bne 08
8733 C538 F6 0C DA        ...   ldab 0cda
8734 C53B 27 03           '.    beq 03
8735 C53D 7A 0C DA        z..   dec 0cda
8736 C540 20 3A            :    bra 3a
8737 C542 FC 0B E1        ...   ldd 0be1
8738 C545 27 30           '0    beq 30
8739 C547 FC 00 40        ..@   ldd 0040
8740 C54A B3 0B E1        ...   subd 0be1
8741 C54D 25 28           %(    bcs 28
8742 C54F FC 0B E1        ...   ldd 0be1
8743 C552 53              S     comb
8744 C553 43              C     coma
8745 C554 F9 00 41        ..A   adcb 0041
8746 C557 B9 00 40        ..@   adca 0040
8747 C55A FD 00 40        ..@   stad 0040
8748 C55D F6 0B DC        ...   ldab 0bdc
8749 C560 F7 00 01        ...   stb 0001
8750 C563 BD C4 30        ..0   jsr c430
8751 C566 F6 00 1B        ...   ldab 001b
8752 C569 C4 20           .     andb #20
8753 C56B 26 08           &.    bne 08
8754 C56D F6 0C D9        ...   ldab 0cd9
8755 C570 27 03           '.    beq 03
8756 C572 7A 0C D9        z..   dec 0cd9
8757 C575 20 05            .    bra 05
8758 C577 5F              _     clrb
8759 C578 4F              O     clra
8760 C579 FD 00 40        ..@   stad 0040
8761 C57C CC 01 2C        ..,   ldd #012c
8762 C57F BD E5 71        ..q   jsr e571             ;jump13
8763 C582 F6 00 1B        ...   ldab 001b
8764 C585 C4 20           .     andb #20
8765 C587 26 24           &$    bne 24
8766 C589 CE 00 1A        ...   ldx #001a
8767 C58C 1D 00           ..    bclr add,x 00,x
8768 C58E 01              .     nop
8769 C58F F6 00 1A        ...   ldab 001a
8770 C592 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8771 C595 CC 00 0C        ...   ldd #000c
8772 C598 BD E5 71        ..q   jsr e571             ;jump13
8773 C59B CE 00 1A        ...   ldx #001a
8774 C59E 1C 00           ..    bset add,x 00,x
8775 C5A0 01              .     nop
8776 C5A1 F6 00 1A        ...   ldab 001a
8777 C5A4 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8778 C5A7 CC 00 23        ..#   ldd #0023
8779 C5AA BD E5 71        ..q   jsr e571             ;jump13
8780 C5AD 7E C4 70        ~.p   jmp c470
8781 C5B0 F6 0B C0        ...   ldab 0bc0
8782 C5B3 C4 04           ..    andb #04
8783 C5B5 27 0F           '.    beq 0f
8784 C5B7 F6 00 1B        ...   ldab 001b
8785 C5BA C4 20           .     andb #20
8786 C5BC 27 08           '.    beq 08
8787 C5BE C6 38           .8    ldab #38
8788 C5C0 F7 00 01        ...   stb 0001
8789 C5C3 BD C4 30        ..0   jsr c430
8790 C5C6 CE 00 21        ..!   ldx #0021
8791 C5C9 1D 00           ..    bclr add,x 00,x
8792 C5CB 10              .     sba
8793 C5CC CE 00 1B        ...   ldx #001b
8794 C5CF 1D 00           ..    bclr add,x 00,x
8795 C5D1 20 39            9    bra 39
8796
8797 jump6:
8798 C5D3 F6 00 15        ...   ldab 0015
8799 C5D6 C4 1F           ..    andb #1f
8800 C5D8 26 03           &.    bne 03
8801 C5DA 7E C6 7C        ~.|   jmp c67c
8802 C5DD CC 00 C8        ...   ldd #00c8
8803 C5E0 BD E5 71        ..q   jsr e571             ;jump13
8804 C5E3 FC 00 3E        ..>   ldd 003e
8805 C5E6 27 58           'X    beq 58
8806 C5E8 F6 00 15        ...   ldab 0015
8807 C5EB C4 1F           ..    andb #1f
8808 C5ED 4F              O     clra
8809 C5EE BD FE 32        ..2   jsr fe32
8810 C5F1 C6 0B           ..    ldab #0b
8811 C5F3 00              .     test
8812 C5F4 01              .     nop
8813 C5F5 C6 16           ..    ldab #16
8814 C5F7 00              .     test
8815 C5F8 01              .     nop
8816 C5F9 C6 21           .!    ldab #21
8817 C5FB 00              .     test
8818 C5FC 02              .     idiv
8819 C5FD C6 2C           .,    ldab #2c
8820 C5FF 00              .     test
8821 C600 04              .     lsrd
8822 C601 C6 37           .7    ldab #37
8823 C603 00              .     test
8824 C604 08              .     inx
8825 C605 C6 40           .@    ldab #40
8826 C607 FF F0 00        ...   stx f000
8827 C60A 00              .     test
8828 C60B CC FF 9C        ...   ldd #ff9c
8829 C60E F3 00 3E        ..>   addd 003e
8830 C611 FD 00 3E        ..>   stad 003e
8831 C614 20 2A            *    bra 2a
8832 C616 CC FF 38        ..8   ldd #ff38
8833 C619 F3 00 3E        ..>   addd 003e
8834 C61C FD 00 3E        ..>   stad 003e
8835 C61F 20 1F            .    bra 1f
8836 C621 CC FE 0C        ...   ldd #fe0c
8837 C624 F3 00 3E        ..>   addd 003e
8838 C627 FD 00 3E        ..>   stad 003e
8839 C62A 20 14            .    bra 14
8840 C62C CC FC 18        ...   ldd #fc18
8841 C62F F3 00 3E        ..>   addd 003e
8842 C632 FD 00 3E        ..>   stad 003e
8843 C635 20 09            .    bra 09
8844 C637 CC F8 30        ..0   ldd #f830
8845 C63A F3 00 3E        ..>   addd 003e
8846 C63D FD 00 3E        ..>   stad 003e
8847 C640 CE 00 14        ...   ldx #0014
8848 C643 1D 00           ..    bclr add,x 00,x
8849 C645 02              .     idiv
8850 C646 F6 00 14        ...   ldab 0014
8851 C649 F7 38 00        .8.   stb 3800
8852 C64C CC 00 1E        ...   ldd #001e
8853 C64F BD E5 71        ..q   jsr e571             ;jump13
8854 C652 CE 00 15        ...   ldx #0015
8855 C655 1D 00           ..    bclr add,x 00,x
8856 C657 1F CE 00 14     ....  brclr ce,x 00 14
8857 C65B 1C 00           ..    bset add,x 00,x
8858 C65D 02              .     idiv
8859 C65E F6 00 14        ...   ldab 0014
8860 C661 F7 38 00        .8.   stb 3800
8861 C664 CC 00 19        ...   ldd #0019
8862 C667 BD E5 71        ..q   jsr e571             ;jump13
8863 C66A CE 00 14        ...   ldx #0014
8864 C66D 1C 00           ..    bset add,x 00,x
8865 C66F 01              .     nop
8866 C670 F6 00 14        ...   ldab 0014
8867 C673 F7 38 00        .8.   stb 3800
8868 C676 CC 00 19        ...   ldd #0019
8869 C679 BD E5 71        ..q   jsr e571             ;jump13
8870 C67C 39              9     rts
8871
8872 C67D F6 00 30        ..0   ldab 0030
8873 C680 26 55           &U    bne 55
8874 C682 F6 0B C0        ...   ldab 0bc0
8875 C685 C4 04           ..    andb #04
8876 C687 26 4E           &N    bne 4e
8877 C689 C6 27           .'    ldab #27
8878 C68B F7 10 2D        ..-   stb 102d
8879 C68E C6 07           ..    ldab #07
8880 C690 F7 10 2B        ..+   stb 102b
8881 C693 CE 00 1A        ...   ldx #001a
8882 C696 1C 00           ..    bset add,x 00,x
8883 C698 04              .     lsrd
8884 C699 F6 00 1A        ...   ldab 001a
8885 C69C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8886 C69F CC 00 14        ...   ldd #0014
8887 C6A2 BD E5 71        ..q   jsr e571             ;jump13
8888 C6A5 F6 0B C0        ...   ldab 0bc0
8889 C6A8 C4 01           ..    andb #01
8890 C6AA 27 06           '.    beq 06
8891 C6AC CE 0B C1        ...   ldx #0bc1
8892 C6AF 1C 00           ..    bset add,x 00,x
8893 C6B1 01              .     nop
8894 C6B2 F6 0B C0        ...   ldab 0bc0
8895 C6B5 C4 04           ..    andb #04
8896 C6B7 27 06           '.    beq 06
8897 C6B9 CE 0B C1        ...   ldx #0bc1
8898 C6BC 1C 00           ..    bset add,x 00,x
8899 C6BE 02              .     idiv
8900 C6BF CE 00 1A        ...   ldx #001a
8901 C6C2 1D 00           ..    bclr add,x 00,x
8902 C6C4 04              .     lsrd
8903 C6C5 F6 00 1A        ...   ldab 001a
8904 C6C8 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8905 C6CB C6 96           ..    ldab #96
8906 C6CD F7 00 30        ..0   stb 0030
8907 C6D0 C6 1E           ..    ldab #1e
8908 C6D2 F7 00 35        ..5   stb 0035
8909 C6D5 20 5D            ]    bra 5d
8910 C6D7 F6 18 00        ...   ldab 1800
8911 C6DA 2D 2A           -*    blt 2a
8912 C6DC F6 00 07        ...   ldab 0007
8913 C6DF 26 25           &%    bne 25
8914 C6E1 CE 00 1A        ...   ldx #001a
8915 C6E4 1D 00           ..    bclr add,x 00,x
8916 C6E6 02              .     idiv
8917 C6E7 F6 00 1A        ...   ldab 001a
8918 C6EA F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8919 C6ED C6 64           .d    ldab #64
8920 C6EF F7 00 2D        ..-   stb 002d
8921 C6F2 CC 00 32        ..2   ldd #0032
8922 C6F5 BD E5 71        ..q   jsr e571             ;jump13
8923 C6F8 CE 00 1A        ...   ldx #001a
8924 C6FB 1C 00           ..    bset add,x 00,x
8925 C6FD 02              .     idiv
8926 C6FE F6 00 1A        ...   ldab 001a
8927 C701 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8928 C704 20 2E            .    bra 2e
8929 C706 F6 00 2D        ..-   ldab 002d
8930 C709 26 29           &)    bne 29
8931 C70B CE 00 1A        ...   ldx #001a
8932 C70E 1D 00           ..    bclr add,x 00,x
8933 C710 01              .     nop
8934 C711 F6 00 1A        ...   ldab 001a
8935 C714 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8936 C717 CC 00 0C        ...   ldd #000c
8937 C71A BD E5 71        ..q   jsr e571             ;jump13
8938 C71D CE 00 1A        ...   ldx #001a
8939 C720 1C 00           ..    bset add,x 00,x
8940 C722 01              .     nop
8941 C723 F6 00 1A        ...   ldab 001a
8942 C726 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
8943 C729 CC 00 23        ..#   ldd #0023
8944 C72C BD E5 71        ..q   jsr e571             ;jump13
8945 C72F C6 64           .d    ldab #64
8946 C731 F7 00 2D        ..-   stb 002d
8947 C734 F6 00 21        ..!   ldab 0021
8948 C737 C4 10           ..    andb #10
8949 C739 27 45           'E    beq 45
8950 C73B F6 00 11        ...   ldab 0011
8951 C73E C4 04           ..    andb #04
8952 C740 26 1A           &.    bne 1a
8953 C742 FC 00 40        ..@   ldd 0040
8954 C745 F3 00 3E        ..>   addd 003e
8955 C748 B3 00 50        ..P   subd 0050
8956 C74B 25 0F           %.    bcs 0f
8957 C74D F6 0B C0        ...   ldab 0bc0
8958 C750 C4 04           ..    andb #04
8959 C752 26 08           &.    bne 08
8960 C754 CE 00 21        ..!   ldx #0021
8961 C757 1D 00           ..    bclr add,x 00,x
8962 C759 10              .     sba
8963 C75A 20 24            $    bra 24
8964 C75C F6 0B C0        ...   ldab 0bc0
8965 C75F C4 08           ..    andb #08
8966 C761 27 03           '.    beq 03
8967 C763 BD C5 D3        ...   jsr c5d3             ;jump6
8968 C766 FC 0B DD        ...   ldd 0bdd
8969 C769 26 12           &.    bne 12
8970 C76B FC 0B DF        ...   ldd 0bdf
8971 C76E 26 0D           &.    bne 0d
8972 C770 FC 0B E1        ...   ldd 0be1
8973 C773 26 08           &.    bne 08
8974 C775 CE 00 21        ..!   ldx #0021
8975 C778 1D 00           ..    bclr add,x 00,x
8976 C77A 10              .     sba
8977 C77B 20 03            .    bra 03
8978 C77D BD C4 56        ..V   jsr c456
8979 C780 F6 00 15        ...   ldab 0015
8980 C783 2D 08           -.    blt 08
8981 C785 CE 00 21        ..!   ldx #0021
8982 C788 1C 00           ..    bset add,x 00,x
8983 C78A 08              .     inx
8984 C78B 20 06            .    bra 06
8985 C78D CE 00 21        ..!   ldx #0021
8986 C790 1D 00           ..    bclr add,x 00,x
8987 C792 08              .     inx
8988 C793 39              9     rts
8989
8990 ;proc(a,b) var local
8991 ;local=0
8992 ;while b<>0
8993 ;
8994 ;endwhile
8995 ;return local
8996
8997 C794 37              7     pshb
8998 C795 36              6     psha
8999 C796 34              4     des          ;stack: 0=local, 1=A, 2=B
9000 C797 30              0     tsx
9001 C798 6F 00           o.    clr 00,x
9002 loop:
9003 C79A 30              0     tsx
9004 C79B E6 02           ..    ldab 02,x
9005 C79D 27 1A           '.    beq exit     ;c7b9
9006 C79F 30              0     tsx
9007 C7A0 1F 02 01 0D     ....  brclr 02,x 01 skip   ;c7b1
9008 C7A4 30              0     tsx
9009 C7A5 E6 00           ..    ldab 00,x
9010 C7A7 27 05           '.    beq else     ;c7ae
9011 C7A9 30              0     tsx
9012 C7AA 6A 00           j.    dec 00,x
9013 C7AC 20 03            .    bra skip     ;c7b1
9014 else:
9015 C7AE 30              0     tsx
9016 C7AF 6C 00           l.    inc 00,x
9017 skip:
9018 C7B1 30              0     tsx
9019 C7B2 E6 02           ..    ldab 02,x
9020 C7B4 54              T     lsrb
9021 C7B5 E7 02           ..    stb 02,x
9022 C7B7 20 E1            .    bra loop     ;c79a
9023 exit:
9024 C7B9 30              0     tsx
9025 C7BA E6 00           ..    ldab 00,x
9026 C7BC 4F              O     clra
9027 C7BD 38              8     pulx
9028 C7BE 31              1     ins
9029 C7BF 39              9     rts
9030
9031 C7C0 F6 10 2F        ../   ldab 102f            ;sci data
9032 C7C3 4F              O     clra
9033 C7C4 8D CE           ..    bsr c794
9034 C7C6 83 00 00        ...   subd #0000
9035 C7C9 27 05           '.    beq 05
9036 C7CB F6 10 2C        ..,   ldab 102c
9037 C7CE 2D 10           -.    blt 10
9038 C7D0 F6 10 2F        ../   ldab 102f            ;sci data
9039 C7D3 4F              O     clra
9040 C7D4 8D BE           ..    bsr c794
9041 C7D6 83 00 00        ...   subd #0000
9042 C7D9 26 09           &.    bne 09
9043 C7DB F6 10 2C        ..,   ldab 102c
9044 C7DE 2D 04           -.    blt 04
9045 C7E0 CC 00 01        ...   ldd #0001
9046 C7E3 39              9     rts
9047
9048 C7E4 5F              _     clrb
9049 C7E5 4F              O     clra
9050 C7E6 39              9     rts
9051
9052
9053 ;this might send a byte to the serial port
9054
9055 C7E7 37              7     pshb
9056 C7E8 36              6     psha
9057 C7E9 C6 32           .2    ldab #32
9058 C7EB F7 00 31        ..1   stb 0031
9059 C7EE 30              0     tsx
9060 C7EF E6 01           ..    ldab 01,x
9061 C7F1 F7 00 43        ..C   stb 0043
9062 C7F4 F6 10 2E        ...   ldab 102e    ;SCI status
9063 C7F7 2D 02           -.    blt 02
9064 C7F9 20 F9            .    bra f9
9065 C7FB 30              0     tsx
9066 C7FC E6 01           ..    ldab 01,x
9067 C7FE 4F              O     clra
9068 C7FF 8D 93           ..    bsr dest 93
9069 C801 83 00 00        ...   subd #0000
9070 C804 27 08           '.    beq 08
9071 C806 CE 10 2C        ..,   ldx #102c
9072 C809 1C 00           ..    bset add,x 00,x
9073 C80B 40              @     nega
9074 C80C 20 06            .    bra 06
9075 C80E CE 10 2C        ..,   ldx #102c    ;SCI control 1
9076 C811 1D 00           ..    bclr add,x 00,x
9077 C813 40              @     nega
9078 C814 30              0     tsx
9079 C815 E6 01           ..    ldab 01,x
9080 C817 F7 10 2F        ../   stb 102f             ;sci data
9081 C81A 38              8     pulx
9082 C81B 39              9     rts
9083
9084
9085 C81C 34              4     des
9086 C81D F6 0B C0        ...   ldab 0bc0
9087 C820 C4 01           ..    andb #01
9088 C822 26 0A           &.    bne 0a
9089 C824 F6 0B C0        ...   ldab 0bc0
9090 C827 C4 04           ..    andb #04
9091 C829 26 03           &.    bne 03
9092 C82B 7E CB FF        ~..   jmp cbff
9093 C82E C6 96           ..    ldab #96
9094 C830 F7 00 30        ..0   stb 0030
9095 C833 F6 10 2E        ...   ldab 102e
9096 C836 C4 02           ..    andb #02
9097 C838 26 0B           &.    bne 0b
9098 C83A F6 10 2F        ../   ldab 102f            ;sci data
9099 C83D F1 00 26        ..&   cmpb 0026
9100 C840 26 03           &.    bne 03
9101 C842 7E C9 1B        ~..   jmp c91b
9102 C845 F6 10 2F        ../   ldab 102f            ;sci data
9103 C848 C4 63           .c    andb #63
9104 C84A C1 23           .#    cmpb #23
9105 C84C 27 03           '.    beq 03
9106 C84E 7E C8 E7        ~..   jmp c8e7
9107 C851 F6 00 1A        ...   ldab 001a
9108 C854 C4 01           ..    andb #01
9109 C856 26 03           &.    bne 03
9110 C858 7E C8 E7        ~..   jmp c8e7
9111 C85B F6 00 21        ..!   ldab 0021
9112 C85E C4 F8           ..    andb #f8
9113 C860 37              7     pshb
9114 C861 F6 10 2F        ../   ldab 102f            ;sci data
9115 C864 C4 1C           ..    andb #1c
9116 C866 54              T     lsrb
9117 C867 54              T     lsrb
9118 C868 30              0     tsx
9119 C869 EA 00           ..    orb 00,x
9120 C86B 31              1     ins
9121 C86C F7 00 21        ..!   stb 0021
9122 C86F F6 00 21        ..!   ldab 0021
9123 C872 F4 0B D7        ...   andb 0bd7
9124 C875 27 08           '.    beq 08
9125 C877 CE 00 17        ...   ldx #0017
9126 C87A 1C 00           ..    bset add,x 00,x
9127 C87C 20 20                 bra 20
9128 C87E 18              .     illegal
9129 C87F F6 00 17        ...   ldab 0017
9130 C882 C4 20           .     andb #20
9131 C884 27 11           '.    beq 11
9132 C886 CE 00 17        ...   ldx #0017
9133 C889 1D 00           ..    bclr add,x 00,x
9134 C88B 20 C6            .    bra c6
9135 C88D 04              .     lsrd
9136 C88E F7 0C DB        ...   stb 0cdb
9137 C891 CE 0B C1        ...   ldx #0bc1
9138 C894 1C 00           ..    bset add,x 00,x
9139 C896 40              @     nega
9140 C897 F6 00 21        ..!   ldab 0021
9141 C89A F4 0B D8        ...   andb 0bd8
9142 C89D 27 08           '.    beq 08
9143 C89F CE 00 17        ...   ldx #0017
9144 C8A2 1C 00           ..    bset add,x 00,x
9145 C8A4 40              @     nega
9146 C8A5 20 18            .    bra 18
9147 C8A7 F6 00 17        ...   ldab 0017
9148 C8AA C4 40           .@    andb #40
9149 C8AC 27 11           '.    beq 11
9150 C8AE CE 00 17        ...   ldx #0017
9151 C8B1 1D 00           ..    bclr add,x 00,x
9152 C8B3 40              @     nega
9153 C8B4 C6 04           ..    ldab #04
9154 C8B6 F7 0C DA        ...   stb 0cda
9155 C8B9 CE 0B C1        ...   ldx #0bc1
9156 C8BC 1C 00           ..    bset add,x 00,x
9157 C8BE 40              @     nega
9158 C8BF F6 00 21        ..!   ldab 0021
9159 C8C2 F4 0B D9        ...   andb 0bd9
9160 C8C5 27 08           '.    beq 08
9161 C8C7 CE 00 17        ...   ldx #0017
9162 C8CA 1C 00           ..    bset add,x 00,x
9163 C8CC 80 20           .     suba #20
9164 C8CE 16              .     tab
9165 C8CF F6 00 17        ...   ldab 0017
9166 C8D2 2C 11           ,.    bge 11
9167 C8D4 CE 00 17        ...   ldx #0017
9168 C8D7 1D 00           ..    bclr add,x 00,x
9169 C8D9 80 C6           ..    suba #c6
9170 C8DB 04              .     lsrd
9171 C8DC F7 0C D9        ...   stb 0cd9
9172 C8DF CE 0B C1        ...   ldx #0bc1
9173 C8E2 1C 00           ..    bset add,x 00,x
9174 C8E4 40              @     nega
9175 C8E5 20 31            1    bra 31
9176 C8E7 F6 10 2F        ../   ldab 102f            ;sci data
9177 C8EA F7 00 26        ..&   stb 0026
9178 C8ED CE 00 1A        ...   ldx #001a
9179 C8F0 1C 00           ..    bset add,x 00,x
9180 C8F2 02              .     idiv
9181 C8F3 F6 00 1A        ...   ldab 001a
9182 C8F6 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9183 C8F9 F6 00 3D        ..=   ldab 003d
9184 C8FC C4 04           ..    andb #04
9185 C8FE 26 18           &.    bne 18
9186 C900 CC 00 03        ...   ldd #0003
9187 C903 BD E5 71        ..q   jsr e571             ;jump13
9188 C906 CE 00 1A        ...   ldx #001a
9189 C909 1D 00           ..    bclr add,x 00,x
9190 C90B 02              .     idiv
9191 C90C F6 00 1A        ...   ldab 001a
9192 C90F F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9193 C912 7C 00 3D        |.=   inc 003d
9194 C915 7E CE 46        ~.F   jmp ce46
9195 C918 7E CB DA        ~..   jmp cbda
9196 C91B F6 00 08        ...   ldab 0008
9197 C91E 26 03           &.    bne 03
9198 C920 7E CA 5F        ~._   jmp ca5f
9199 C923 F6 00 17        ...   ldab 0017
9200 C926 C4 04           ..    andb #04
9201 C928 26 03           &.    bne 03
9202 C92A 7E CA 5F        ~._   jmp ca5f
9203 C92D F6 00 17        ...   ldab 0017
9204 C930 C4 08           ..    andb #08
9205 C932 26 03           &.    bne 03
9206 C934 7E CA 5F        ~._   jmp ca5f
9207 C937 F6 10 2F        ../   ldab 102f            ;sci data
9208 C93A C1 FF           ..    cmpb #ff
9209 C93C 27 07           '.    beq 07
9210 C93E F6 00 08        ...   ldab 0008
9211 C941 C1 0E           ..    cmpb #0e
9212 C943 25 12           %.    bcs 12
9213 C945 CE 00 17        ...   ldx #0017
9214 C948 1D 00           ..    bclr add,x 00,x
9215 C94A 04              .     lsrd
9216 C94B 7F 00 08        ...   clr 0008
9217 C94E BD CE 48        ..H   jsr ce48
9218 C951 7F 00 2C        ..,   clr 002c
9219 C954 7E CA 5C        ~.\   jmp ca5c
9220 C957 F6 00 08        ...   ldab 0008
9221 C95A 4F              O     clra
9222 C95B BD FE 16        ...   jsr fe16             ;jump2
9223 C95E 00              .     test
9224 C95F 01              .     nop
9225 C960 00              .     test
9226 C961 0C              .     clc
9227 C962 CA 59           .Y    orab #59
9228 C964 C9 7E           .~    adcb #7e
9229 C966 C9 87           ..    adcb #87
9230 C968 C9 DF           ..    adcb #df
9231 C96A C9 F3           ..    adcb #f3
9232 C96C CA 07           ..    orab #07
9233 C96E CA 1B           ..    orab #1b
9234 C970 CA 23           .#    orab #23
9235 C972 CA 2B           .+    orab #2b
9236 C974 CA 33           .3    orab #33
9237 C976 CA 3B           .;    orab #3b
9238 C978 CA 43           .C    orab #43
9239 C97A CA 4B           .K    orab #4b
9240 C97C CA 53           .S    orab #53
9241 C97E F6 10 2F        ../   ldab 102f            ;sci data
9242 C981 F7 0B C2        ...   stb 0bc2
9243 C984 7E CA 59        ~.Y   jmp ca59
9244 C987 F6 10 2F        ../   ldab 102f            ;sci data
9245 C98A F7 0B E3        ...   stb 0be3
9246 C98D F6 10 2F        ../   ldab 102f            ;sci data
9247 C990 C4 0F           ..    andb #0f
9248 C992 C1 01           ..    cmpb #01
9249 C994 26 07           &.    bne 07
9250 C996 C6 02           ..    ldab #02
9251 C998 F7 00 13        ...   stb 0013
9252 C99B 20 1B            .    bra 1b
9253 C99D C1 02           ..    cmpb #02
9254 C99F 26 07           &.    bne 07
9255 C9A1 C6 04           ..    ldab #04
9256 C9A3 F7 00 13        ...   stb 0013
9257 C9A6 20 10            .    bra 10
9258 C9A8 C1 03           ..    cmpb #03
9259 C9AA 26 07           &.    bne 07
9260 C9AC C6 08           ..    ldab #08
9261 C9AE F7 00 13        ...   stb 0013
9262 C9B1 20 05            .    bra 05
9263 C9B3 C6 01           ..    ldab #01
9264 C9B5 F7 00 13        ...   stb 0013
9265 C9B8 F6 10 2F        ../   ldab 102f            ;sci data
9266 C9BB C4 F0           ..    andb #f0
9267 C9BD 54              T     lsrb
9268 C9BE 54              T     lsrb
9269 C9BF 54              T     lsrb
9270 C9C0 54              T     lsrb
9271 C9C1 F7 0B C3        ...   stb 0bc3
9272 C9C4 F6 0B C2        ...   ldab 0bc2
9273 C9C7 F7 0B AA        ...   stb 0baa
9274 ;;0baa^:=pow(10,0bc3^)  0bc3 is the top 4 bits from the serial port.
9275 ;while 0bc3^<>0
9276 ;  obaa^:=0baa^*10
9277 ;  obc3^:=0bc3-1
9278 ;endwhile
9279 C9CA F6 0B C3        ...   ldab 0bc3
9280 C9CD 27 0E           '.    beq c9dd
9281 C9CF F6 0B AA        ...   ldab 0baa
9282 C9D2 86 0A           ..    ldaa #0a
9283 C9D4 3D              =     mul
9284 C9D5 F7 0B AA        ...   stb 0baa
9285 C9D8 7A 0B C3        z..   dec 0bc3
9286 C9DB 20 ED            .    bra c9ca
9287
9288 C9DD 20 7A            z    bra 7a
9289 C9DF F6 10 2F        ../   ldab 102f            ;sci data
9290 C9E2 F7 0B C4        ...   stb 0bc4
9291 C9E5 F6 0B C4        ...   ldab 0bc4
9292 C9E8 C1 80           ..    cmpb #80
9293 C9EA 26 05           &.    bne 05
9294 C9EC C6 0F           ..    ldab #0f
9295 C9EE F7 0B C4        ...   stb 0bc4
9296 C9F1 20 66            f    bra 66
9297 C9F3 F6 10 2F        ../   ldab 102f            ;sci data
9298 C9F6 F7 0B C5        ...   stb 0bc5
9299 C9F9 F6 0B C5        ...   ldab 0bc5
9300 C9FC C1 80           ..    cmpb #80
9301 C9FE 26 05           &.    bne 05
9302 CA00 C6 0F           ..    ldab #0f
9303 CA02 F7 0B C5        ...   stb 0bc5
9304 CA05 20 52            R    bra 52
9305 CA07 F6 10 2F        ../   ldab 102f            ;sci data
9306 CA0A F7 0B C6        ...   stb 0bc6
9307 CA0D F6 0B C6        ...   ldab 0bc6
9308 CA10 C1 80           ..    cmpb #80
9309 CA12 26 05           &.    bne ca19
9310 CA14 C6 0F           ..    ldab #0f
9311 CA16 F7 0B C6        ...   stb 0bc6
9312 CA19 20 3E            >    bra 3e
9313 ;!!!where does this lot get called?
9314 CA1B F6 10 2F        ../   ldab 102f            ;sci data
9315 CA1E F7 0B C7        ...   stb 0bc7
9316 CA21 20 36            6    bra 36
9317 CA23 F6 10 2F        ../   ldab 102f            ;sci data
9318 CA26 F7 0B C8        ...   stb 0bc8
9319 CA29 20 2E            .    bra 2e
9320 CA2B F6 10 2F        ../   ldab 102f            ;sci data
9321 CA2E F7 0B C9        ...   stb 0bc9
9322 CA31 20 26            &    bra 26
9323 CA33 F6 10 2F        ../   ldab 102f            ;sci data
9324 CA36 F7 0B CA        ...   stb 0bca
9325 CA39 20 1E            .    bra 1e
9326 CA3B F6 10 2F        ../   ldab 102f            ;sci data
9327 CA3E F7 0B CB        ...   stb 0bcb
9328 CA41 20 16            .    bra 16
9329 CA43 F6 10 2F        ../   ldab 102f            ;sci data
9330 CA46 F7 0B CC        ...   stb 0bcc
9331 CA49 20 0E            .    bra 0e
9332 CA4B F6 10 2F        ../   ldab 102f            ;sci data
9333 CA4E F7 0B CD        ...   stb 0bcd
9334 CA51 20 06            .    bra 06
9335 CA53 F6 10 2F        ../   ldab 102f            ;sci data
9336 CA56 F7 0B CE        ...   stb 0bce
9337 CA59 7C 00 08        |..   inc 0008
9338 CA5C 7E CB DA        ~..   jmp cbda
9339 CA5F F6 10 2F        ../   ldab 102f            ;sci data
9340 CA62 C4 EF           ..    andb #ef
9341 CA64 C1 E2           ..    cmpb #e2
9342 CA66 26 1A           &.    bne 1a
9343 CA68 CE 00 17        ...   ldx #0017
9344 CA6B 1C 00           ..    bset add,x 00,x
9345 CA6D 08              .     inx
9346 CA6E CE 00 17        ...   ldx #0017
9347 CA71 1C 00           ..    bset add,x 00,x
9348 CA73 04              .     lsrd
9349 CA74 C6 01           ..    ldab #01
9350 CA76 F7 00 08        ...   stb 0008
9351 CA79 CE 0B C1        ...   ldx #0bc1
9352 CA7C 1D 00           ..    bclr add,x 00,x
9353 CA7E 01              .     nop
9354 CA7F 7E CB DA        ~..   jmp cbda
9355 CA82 F6 10 2F        ../   ldab 102f            ;sci data
9356 CA85 C4 02           ..    andb #02
9357 CA87 27 03           '.    beq 03
9358 CA89 7E CB 6C        ~.l   jmp cb6c
9359 CA8C F6 10 2F        ../   ldab 102f            ;sci data
9360 CA8F 2C 38           ,8    bge 38
9361 CA91 F6 00 17        ...   ldab 0017
9362 CA94 C4 08           ..    andb #08
9363 CA96 26 31           &1    bne 31
9364 CA98 F6 10 2F        ../   ldab 102f            ;sci data
9365 CA9B C4 78           .x    andb #78
9366 CA9D 54              T     lsrb
9367 CA9E 54              T     lsrb
9368 CA9F 54              T     lsrb
9369 CAA0 4F              O     clra
9370 CAA1 C3 0B C7        ...   addd #0bc7
9371 CAA4 8F              .     xgdx
9372 CAA5 E6 00           ..    ldab 00,x
9373 CAA7 4F              O     clra
9374 CAA8 37              7     pshb
9375 CAA9 36              6     psha
9376 CAAA F6 0B AA        ...   ldab 0baa
9377 CAAD 4F              O     clra
9378 CAAE BD FB BA        ...   jsr fbba
9379 CAB1 F3 00 40        ..@   addd 0040
9380 CAB4 FD 00 40        ..@   stad 0040
9381 CAB7 CE 00 1B        ...   ldx #001b
9382 CABA 1C 00           ..    bset add,x 00,x
9383 CABC 20 CE            .    bra ce
9384 CABE 00              .     test
9385 CABF 1B              .     aba
9386 CAC0 1D 00           ..    bclr add,x 00,x
9387 CAC2 40              @     nega
9388 CAC3 7F 00 25        ..%   clr 0025
9389 CAC6 7E CB 64        ~.d   jmp cb64
9390 CAC9 F6 00 17        ...   ldab 0017
9391 CACC C4 08           ..    andb #08
9392 CACE 26 4A           &J    bne 4a
9393 CAD0 F6 10 2F        ../   ldab 102f            ;sci data
9394 CAD3 C4 60           .`    andb #60
9395 CAD5 54              T     lsrb
9396 CAD6 54              T     lsrb
9397 CAD7 54              T     lsrb
9398 CAD8 4F              O     clra
9399 CAD9 C3 0B C7        ...   addd #0bc7
9400 CADC 8F              .     xgdx
9401 CADD E6 00           ..    ldab 00,x
9402 CADF 4F              O     clra
9403 CAE0 37              7     pshb
9404 CAE1 36              6     psha
9405 CAE2 F6 0B AA        ...   ldab 0baa
9406 CAE5 4F              O     clra
9407 CAE6 BD FB BA        ...   jsr fbba
9408 CAE9 FD 0B BD        ...   stad 0bbd
9409 CAEC FC 0B BD        ...   ldd 0bbd
9410 CAEF F3 00 40        ..@   addd 0040
9411 CAF2 FD 00 40        ..@   stad 0040
9412 CAF5 F6 00 21        ..!   ldab 0021
9413 CAF8 C4 F8           ..    andb #f8
9414 CAFA 37              7     pshb
9415 CAFB F6 10 2F        ../   ldab 102f            ;sci data
9416 CAFE C4 1C           ..    andb #1c
9417 CB00 54              T     lsrb
9418 CB01 54              T     lsrb
9419 CB02 30              0     tsx
9420 CB03 EA 00           ..    orb 00,x
9421 CB05 31              1     ins
9422 CB06 F7 00 21        ..!   stb 0021
9423 CB09 F6 10 2F        ../   ldab 102f            ;sci data
9424 CB0C F7 0B BC        ...   stb 0bbc
9425 CB0F CE 00 1B        ...   ldx #001b
9426 CB12 1D 00           ..    bclr add,x 00,x
9427 CB14 40              @     nega
9428 CB15 7F 00 25        ..%   clr 0025
9429 CB18 20 4A            J    bra 4a
9430 CB1A F6 10 2F        ../   ldab 102f            ;sci data
9431 CB1D C4 E0           ..    andb #e0
9432 CB1F 54              T     lsrb
9433 CB20 54              T     lsrb
9434 CB21 54              T     lsrb
9435 CB22 54              T     lsrb
9436 CB23 54              T     lsrb
9437 CB24 4F              O     clra
9438 CB25 C3 0B C7        ...   addd #0bc7
9439 CB28 8F              .     xgdx
9440 CB29 E6 00           ..    ldab 00,x
9441 CB2B 4F              O     clra
9442 CB2C 37              7     pshb
9443 CB2D 36              6     psha
9444 CB2E F6 0B AA        ...   ldab 0baa
9445 CB31 4F              O     clra
9446 CB32 BD FB BA        ...   jsr fbba
9447 CB35 FD 0B BD        ...   stad 0bbd
9448 CB38 FC 0B BD        ...   ldd 0bbd
9449 CB3B F3 00 40        ..@   addd 0040
9450 CB3E FD 00 40        ..@   stad 0040
9451 CB41 F6 00 21        ..!   ldab 0021
9452 CB44 C4 F8           ..    andb #f8
9453 CB46 37              7     pshb
9454 CB47 F6 10 2F        ../   ldab 102f            ;sci data
9455 CB4A C4 1C           ..    andb #1c
9456 CB4C 54              T     lsrb
9457 CB4D 54              T     lsrb
9458 CB4E 30              0     tsx
9459 CB4F EA 00           ..    orb 00,x
9460 CB51 31              1     ins
9461 CB52 F7 00 21        ..!   stb 0021
9462 CB55 F6 10 2F        ../   ldab 102f            ;sci data
9463 CB58 F7 0B BC        ...   stb 0bbc
9464 CB5B CE 00 1B        ...   ldx #001b
9465 CB5E 1D 00           ..    bclr add,x 00,x
9466 CB60 40              @     nega
9467 CB61 7F 00 25        ..%   clr 0025
9468 CB64 7F 00 2C        ..,   clr 002c
9469 CB67 7F 00 3A        ..:   clr 003a
9470 CB6A 20 6E            n    bra 6e
9471 CB6C F6 10 2F        ../   ldab 102f            ;sci data
9472 CB6F C4 03           ..    andb #03
9473 CB71 C1 02           ..    cmpb #02
9474 CB73 26 0F           &.    bne 0f
9475 CB75 F6 00 21        ..!   ldab 0021
9476 CB78 C4 08           ..    andb #08
9477 CB7A 27 08           '.    beq 08
9478 CB7C CE 00 21        ..!   ldx #0021
9479 CB7F 1C 00           ..    bset add,x 00,x
9480 CB81 10              .     sba
9481 CB82 20 56            V    bra 56
9482 CB84 F6 10 2F        ../   ldab 102f            ;sci data
9483 CB87 C4 EF           ..    andb #ef
9484 CB89 C1 E3           ..    cmpb #e3
9485 CB8B 26 08           &.    bne 08
9486 CB8D CE 0B C1        ...   ldx #0bc1
9487 CB90 1D 00           ..    bclr add,x 00,x
9488 CB92 02              .     idiv
9489 CB93 20 45            E    bra 45
9490 CB95 F6 10 2F        ../   ldab 102f            ;sci data
9491 CB98 C4 EF           ..    andb #ef
9492 CB9A C1 63           .c    cmpb #63
9493 CB9C 26 1C           &.    bne 1c
9494 CB9E CE 0B C1        ...   ldx #0bc1
9495 CBA1 1D 00           ..    bclr add,x 00,x
9496 CBA3 01              .     nop
9497 CBA4 F6 0B C0        ...   ldab 0bc0
9498 CBA7 C4 01           ..    andb #01
9499 CBA9 27 0D           '.    beq 0d
9500 CBAB F6 0B C0        ...   ldab 0bc0
9501 CBAE C4 04           ..    andb #04
9502 CBB0 27 06           '.    beq 06
9503 CBB2 CE 0B C1        ...   ldx #0bc1
9504 CBB5 1D 00           ..    bclr add,x 00,x
9505 CBB7 02              .     idiv
9506 CBB8 20 20                 bra 20
9507 CBBA F6 10 2F        ../   ldab 102f            ;sci data
9508 CBBD C4 EF           ..    andb #ef
9509 CBBF C1 67           .g    cmpb #67
9510 CBC1 26 08           &.    bne 08
9511 CBC3 CE 0B C1        ...   ldx #0bc1
9512 CBC6 1C 00           ..    bset add,x 00,x
9513 CBC8 20 20                 bra 20
9514 CBCA 0F              .     sei
9515 CBCB F6 10 2F        ../   ldab 102f            ;sci data
9516 CBCE C4 EF           ..    andb #ef
9517 CBD0 C1 27           .'    cmpb #27
9518 CBD2 26 06           &.    bne 06
9519 CBD4 CE 0B C1        ...   ldx #0bc1
9520 CBD7 1C 00           ..    bset add,x 00,x
9521 CBD9 10              .     sba
9522 CBDA CE 00 1A        ...   ldx #001a
9523 CBDD 1C 00           ..    bset add,x 00,x
9524 CBDF 02              .     idiv
9525 CBE0 F6 00 1A        ...   ldab 001a
9526 CBE3 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
9527 CBE6 F6 00 17        ...   ldab 0017
9528 CBE9 C4 04           ..    andb #04
9529 CBEB 26 05           &.    bne 05
9530 CBED C6 06           ..    ldab #06
9531 CBEF F7 00 07        ...   stb 0007
9532 CBF2 F6 00 26        ..&   ldab 0026
9533 CBF5 53              S     comb
9534 CBF6 F7 00 26        ..&   stb 0026
9535 CBF9 7F 00 3D        ..=   clr 003d
9536 CBFC 7E CE 46        ~.F   jmp ce46
9537 CBFF F6 0B C0        ...   ldab 0bc0
9538 CC02 C4 02           ..    andb #02
9539 CC04 26 03           &.    bne 03
9540 CC06 7E CE 3B        ~.;   jmp ce3b
9541 CC09 F6 10 2F        ../   ldab 102f            ;sci data
9542 CC0C C4 E0           ..    andb #e0
9543 CC0E C1 20           .     cmpb #20
9544 CC10 27 03           '.    beq 03
9545 CC12 7E CE 3B        ~.;   jmp ce3b
9546 CC15 C6 32           .2    ldab #32
9547 CC17 F7 00 2F        ../   stb 002f
9548 CC1A CE 00 1B        ...   ldx #001b
9549 CC1D 1C 00           ..    bset add,x 00,x
9550 CC1F 02              .     idiv
9551 CC20 F6 10 2E        ...   ldab 102e
9552 CC23 C4 02           ..    andb #02
9553 CC25 26 08           &.    bne 08
9554 CC27 BD C7 C0        ...   jsr c7c0
9555 CC2A 83 00 00        ...   subd #0000
9556 CC2D 26 0F           &.    bne 0f
9557 CC2F F6 10 2F        ../   ldab 102f            ;sci data
9558 CC32 30              0     tsx
9559 CC33 E7 00           ..    stb 00,x
9560 CC35 CC 00 FF        ...   ldd #00ff
9561 CC38 BD C7 E7        ...   jsr c7e7
9562 CC3B 7E CE 39        ~.9   jmp ce39
9563 CC3E F6 10 2F        ../   ldab 102f            ;sci data
9564 CC41 C1 3F           .?    cmpb #3f
9565 CC43 26 0A           &.    bne 0a
9566 CC45 F6 00 43        ..C   ldab 0043
9567 CC48 4F              O     clra
9568 CC49 BD C7 E7        ...   jsr c7e7
9569 CC4C 7E CE 39        ~.9   jmp ce39
9570 CC4F F6 00 08        ...   ldab 0008
9571 CC52 26 03           &.    bne 03
9572 CC54 7E CD 94        ~..   jmp cd94
9573 CC57 F6 10 2F        ../   ldab 102f            ;sci data
9574 CC5A C4 F0           ..    andb #f0
9575 CC5C C1 20           .     cmpb #20
9576 CC5E 27 03           '.    beq 03
9577 CC60 7E CD 94        ~..   jmp cd94
9578 CC63 F6 10 2F        ../   ldab 102f            ;sci data
9579 CC66 C4 0F           ..    andb #0f
9580 CC68 30              0     tsx
9581 CC69 E7 00           ..    stb 00,x
9582 CC6B F6 00 08        ...   ldab 0008
9583 CC6E 4F              O     clra
9584 CC6F BD FE 16        ...   jsr fe16             ;jump2
9585 CC72 00              .     test
9586 CC73 01              .     nop
9587 CC74 00              .     test
9588 CC75 07              .     tpa
9589 CC76 CD              .     illegal
9590 CC77 7A CC 88        z..   dec cc88
9591 CC7A CC A2 CC        ...   ldd #a2cc
9592 CC7D CA CC           ..    orab #cc
9593 CC7F EE CD           ..    ldx cd,x
9594 CC81 19              .     daa
9595 CC82 CD              .     illegal
9596 CC83 21 CD           !.    brn cd
9597 CC85 30              0     tsx
9598 CC86 CD              .     illegal
9599 CC87 38              8     pulx
9600 CC88 F6 00 17        ...   ldab 0017
9601 CC8B C4 01           ..    andb #01
9602 CC8D 27 09           '.    beq 09
9603 CC8F 30              0     tsx
9604 CC90 E6 00           ..    ldab 00,x
9605 CC92 4F              O     clra
9606 CC93 FD 00 76        ..v   stad 0076
9607 CC96 20 07            .    bra 07
9608 CC98 30              0     tsx
9609 CC99 E6 00           ..    ldab 00,x
9610 CC9B 4F              O     clra
9611 CC9C FD 00 40        ..@   stad 0040
9612 CC9F 7E CD 7A        ~.z   jmp cd7a
9613 CCA2 F6 00 17        ...   ldab 0017
9614 CCA5 C4 01           ..    andb #01
9615 CCA7 27 10           '.    beq 10
9616 CCA9 30              0     tsx
9617 CCAA E6 00           ..    ldab 00,x
9618 CCAC 4F              O     clra
9619 CCAD 05              .     asld
9620 CCAE 05              .     asld
9621 CCAF 05              .     asld
9622 CCB0 05              .     asld
9623 CCB1 F3 00 76        ..v   addd 0076
9624 CCB4 FD 00 76        ..v   stad 0076
9625 CCB7 20 0E            .    bra 0e
9626 CCB9 30              0     tsx
9627 CCBA E6 00           ..    ldab 00,x
9628 CCBC 4F              O     clra
9629 CCBD 05              .     asld
9630 CCBE 05              .     asld
9631 CCBF 05              .     asld
9632 CCC0 05              .     asld
9633 CCC1 F3 00 40        ..@   addd 0040
9634 CCC4 FD 00 40        ..@   stad 0040
9635 CCC7 7E CD 7A        ~.z   jmp cd7a
9636 CCCA F6 00 17        ...   ldab 0017
9637 CCCD C4 01           ..    andb #01
9638 CCCF 27 0E           '.    beq 0e
9639 CCD1 30              0     tsx
9640 CCD2 E6 00           ..    ldab 00,x
9641 CCD4 4F              O     clra
9642 CCD5 17              .     tba
9643 CCD6 5F              _     clrb
9644 CCD7 F3 00 76        ..v   addd 0076
9645 CCDA FD 00 76        ..v   stad 0076
9646 CCDD 20 0C            .    bra 0c
9647 CCDF 30              0     tsx
9648 CCE0 E6 00           ..    ldab 00,x
9649 CCE2 4F              O     clra
9650 CCE3 17              .     tba
9651 CCE4 5F              _     clrb
9652 CCE5 F3 00 40        ..@   addd 0040
9653 CCE8 FD 00 40        ..@   stad 0040
9654 CCEB 7E CD 7A        ~.z   jmp cd7a
9655 CCEE F6 00 17        ...   ldab 0017
9656 CCF1 C4 01           ..    andb #01
9657 CCF3 27 12           '.    beq 12
9658 CCF5 30              0     tsx
9659 CCF6 E6 00           ..    ldab 00,x
9660 CCF8 4F              O     clra
9661 CCF9 17              .     tba
9662 CCFA 48              H     asla
9663 CCFB 48              H     asla
9664 CCFC 48              H     asla
9665 CCFD 48              H     asla
9666 CCFE 5F              _     clrb
9667 CCFF F3 00 76        ..v   addd 0076
9668 CD02 FD 00 76        ..v   stad 0076
9669 CD05 20 10            .    bra 10
9670 CD07 30              0     tsx
9671 CD08 E6 00           ..    ldab 00,x
9672 CD0A 4F              O     clra
9673 CD0B 17              .     tba
9674 CD0C 48              H     asla
9675 CD0D 48              H     asla
9676 CD0E 48              H     asla
9677 CD0F 48              H     asla
9678 CD10 5F              _     clrb
9679 CD11 F3 00 40        ..@   addd 0040
9680 CD14 FD 00 40        ..@   stad 0040
9681 CD17 20 61            a    bra 61
9682 CD19 30              0     tsx
9683 CD1A E6 00           ..    ldab 00,x
9684 CD1C F7 0B AA        ...   stb 0baa
9685 CD1F 20 59            Y    bra 59
9686 CD21 30              0     tsx
9687 CD22 E6 00           ..    ldab 00,x
9688 CD24 58              X     aslb
9689 CD25 58              X     aslb
9690 CD26 58              X     aslb
9691 CD27 58              X     aslb
9692 CD28 FB 0B AA        ...   addb 0baa
9693 CD2B F7 0B AA        ...   stb 0baa
9694 CD2E 20 4A            J    bra 4a
9695 CD30 30              0     tsx
9696 CD31 E6 00           ..    ldab 00,x
9697 CD33 F7 00 13        ...   stb 0013
9698 CD36 20 42            B    bra 42
9699 CD38 F6 10 2F        ../   ldab 102f            ;sci data
9700 CD3B C4 01           ..    andb #01
9701 CD3D 27 08           '.    beq 08
9702 CD3F CE 00 21        ..!   ldx #0021
9703 CD42 1C 00           ..    bset add,x 00,x
9704 CD44 40              @     nega
9705 CD45 20 06            .    bra 06
9706 CD47 CE 00 21        ..!   ldx #0021
9707 CD4A 1D 00           ..    bclr add,x 00,x
9708 CD4C 40              @     nega
9709 CD4D F6 00 17        ...   ldab 0017
9710 CD50 C4 01           ..    andb #01
9711 CD52 27 17           '.    beq 17
9712 CD54 F6 0B AA        ...   ldab 0baa
9713 CD57 4F              O     clra
9714 CD58 37              7     pshb
9715 CD59 36              6     psha
9716 CD5A FC 00 76        ..v   ldd 0076
9717 CD5D BD FB BA        ...   jsr fbba
9718 CD60 FD 00 76        ..v   stad 0076
9719 CD63 CE 00 17        ...   ldx #0017
9720 CD66 1D 00           ..    bclr add,x 00,x
9721 CD68 01              .     nop
9722 CD69 20 0F            .    bra 0f
9723 CD6B F6 0B AA        ...   ldab 0baa
9724 CD6E 4F              O     clra
9725 CD6F 37              7     pshb
9726 CD70 36              6     psha
9727 CD71 FC 00 40        ..@   ldd 0040
9728 CD74 BD FB BA        ...   jsr fbba
9729 CD77 FD 00 40        ..@   stad 0040
9730 CD7A F6 00 08        ...   ldab 0008
9731 CD7D C1 09           ..    cmpb #09
9732 CD7F 26 08           &.    bne 08
9733 CD81 7F 00 2C        ..,   clr 002c
9734 CD84 7F 00 08        ...   clr 0008
9735 CD87 20 03            .    bra 03
9736 CD89 7C 00 08        |..   inc 0008
9737 CD8C 5F              _     clrb
9738 CD8D 4F              O     clra
9739 CD8E BD C7 E7        ...   jsr c7e7
9740 CD91 7E CE 39        ~.9   jmp ce39
9741 CD94 F6 10 2F        ../   ldab 102f            ;sci data
9742 CD97 4F              O     clra
9743 CD98 BD FE 32        ..2   jsr fe32
9744 CD9B CD              .     illegal
9745 CD9C B1 00 31        ..1   cmpa 0031
9746 CD9F CD              .     illegal
9747 CDA0 DB 00 01        ...   addb 00
9748 CDA3 CE 20 00        . .   ldx #2000
9749 CDA6 01              .     nop
9750 CDA7 CE 28 00        .(.   ldx #2800
9751 CDAA 05              .     asld
9752 CDAB CE 34 FF        .4.   ldx #34ff
9753 CDAE C8 00           ..    eorb #00
9754 CDB0 00              .     test
9755 CDB1 F6 00 21        ..!   ldab 0021
9756 CDB4 2C 08           ,.    bge 08
9757 CDB6 CC 00 80        ...   ldd #0080
9758 CDB9 BD C7 E7        ...   jsr c7e7
9759 CDBC 20 1B            .    bra 1b
9760 CDBE 5F              _     clrb
9761 CDBF 4F              O     clra
9762 CDC0 BD C7 E7        ...   jsr c7e7
9763 CDC3 F6 00 1F        ...   ldab 001f
9764 CDC6 C4 08           ..    andb #08
9765 CDC8 27 0C           '.    beq 0c
9766 CDCA F6 0B C0        ...   ldab 0bc0
9767 CDCD C4 10           ..    andb #10
9768 CDCF 27 05           '.    beq 05
9769 CDD1 7C 00 75        |.u   inc 0075
9770 CDD4 20 03            .    bra 03
9771 CDD6 7F 00 75        ..u   clr 0075
9772 CDD9 20 5E            ^    bra 5e
9773 CDDB F6 00 1D        ...   ldab 001d
9774 CDDE C4 02           ..    andb #02
9775 CDE0 27 07           '.    beq 07
9776 CDE2 F6 00 19        ...   ldab 0019
9777 CDE5 C4 08           ..    andb #08
9778 CDE7 26 19           &.    bne 19
9779 CDE9 CC 00 FE        ...   ldd #00fe
9780 CDEC BD C7 E7        ...   jsr c7e7
9781 CDEF F6 00 1F        ...   ldab 001f
9782 CDF2 C4 08           ..    andb #08
9783 CDF4 27 0A           '.    beq 0a
9784 CDF6 F6 0B C0        ...   ldab 0bc0
9785 CDF9 C4 10           ..    andb #10
9786 CDFB 27 03           '.    beq 03
9787 CDFD 7C 00 75        |.u   inc 0075
9788 CE00 20 1C            .    bra 1c
9789 CE02 FC 00 44        ..D   ldd 0044
9790 CE05 37              7     pshb
9791 CE06 36              6     psha
9792 CE07 F6 0B AA        ...   ldab 0baa
9793 CE0A 4F              O     clra
9794 CE0B 38              8     pulx
9795 CE0C 8F              .     xgdx
9796 CE0D 02              .     idiv
9797 CE0E 8F              .     xgdx
9798 CE0F BD C7 E7        ...   jsr c7e7
9799 CE12 CE 00 19        ...   ldx #0019
9800 CE15 1D 00           ..    bclr add,x 00,x
9801 CE17 08              .     inx
9802 CE18 CE 00 1F        ...   ldx #001f
9803 CE1B 1C 00           ..    bset add,x 00,x
9804 CE1D 08              .     inx
9805 CE1E 20 19            .    bra 19
9806 CE20 CE 00 1D        ...   ldx #001d
9807 CE23 1D 00           ..    bclr add,x 00,x
9808 CE25 02              .     idiv
9809 CE26 20 11            .    bra 11
9810 CE28 C6 01           ..    ldab #01
9811 CE2A F7 00 08        ...   stb 0008
9812 CE2D 5F              _     clrb
9813 CE2E 4F              O     clra
9814 CE2F BD C7 E7        ...   jsr c7e7
9815 CE32 20 05            .    bra 05
9816 CE34 5F              _     clrb
9817 CE35 4F              O     clra
9818 CE36 BD C7 E7        ...   jsr c7e7
9819 CE39 20 0B            .    bra 0b
9820 CE3B F6 10 2E        ...   ldab 102e
9821 CE3E 30              0     tsx
9822 CE3F E7 00           ..    stb 00,x
9823 CE41 F6 10 2F        ../   ldab 102f            ;sci data
9824 CE44 E7 00           ..    stb 00,x
9825 CE46 31              1     ins
9826 CE47 3B              ;     rti
9827 CE48 F6 0B C4        ...   ldab 0bc4
9828 CE4B F1 0B C5        ...   cmpb 0bc5
9829 CE4E 25 53           %S    bcs 53
9830 CE50 F6 0B C5        ...   ldab 0bc5
9831 CE53 F1 0B C6        ...   cmpb 0bc6
9832 CE56 25 4B           %K    bcs 4b
9833 CE58 F6 0B C4        ...   ldab 0bc4
9834 CE5B 4F              O     clra
9835 CE5C C3 0B C7        ...   addd #0bc7
9836 CE5F 8F              .     xgdx
9837 CE60 E6 00           ..    ldab 00,x
9838 CE62 4F              O     clra
9839 CE63 FD 0B DD        ...   stad 0bdd
9840 CE66 F6 0B C5        ...   ldab 0bc5
9841 CE69 4F              O     clra
9842 CE6A C3 0B C7        ...   addd #0bc7
9843 CE6D 8F              .     xgdx
9844 CE6E E6 00           ..    ldab 00,x
9845 CE70 4F              O     clra
9846 CE71 FD 0B DF        ...   stad 0bdf
9847 CE74 F6 0B C6        ...   ldab 0bc6
9848 CE77 4F              O     clra
9849 CE78 C3 0B C7        ...   addd #0bc7
9850 CE7B 8F              .     xgdx
9851 CE7C E6 00           ..    ldab 00,x
9852 CE7E 4F              O     clra
9853 CE7F FD 0B E1        ...   stad 0be1
9854 CE82 C6 01           ..    ldab #01
9855 CE84 F7 0B D7        ...   stb 0bd7
9856 CE87 C6 04           ..    ldab #04
9857 CE89 F7 0B D8        ...   stb 0bd8
9858 CE8C C6 02           ..    ldab #02
9859 CE8E F7 0B D9        ...   stb 0bd9
9860 CE91 C6 20           .     ldab #20
9861 CE93 F7 0B DA        ...   stb 0bda
9862 CE96 C6 08           ..    ldab #08
9863 CE98 F7 0B DB        ...   stb 0bdb
9864 CE9B C6 10           ..    ldab #10
9865 CE9D F7 0B DC        ...   stb 0bdc
9866 CEA0 7E D0 66        ~.f   jmp d066
9867 CEA3 F6 0B C4        ...   ldab 0bc4
9868 CEA6 F1 0B C6        ...   cmpb 0bc6
9869 CEA9 25 53           %S    bcs 53
9870 CEAB F6 0B C6        ...   ldab 0bc6
9871 CEAE F1 0B C5        ...   cmpb 0bc5
9872 CEB1 25 4B           %K    bcs 4b
9873 CEB3 F6 0B C4        ...   ldab 0bc4
9874 CEB6 4F              O     clra
9875 CEB7 C3 0B C7        ...   addd #0bc7
9876 CEBA 8F              .     xgdx
9877 CEBB E6 00           ..    ldab 00,x
9878 CEBD 4F              O     clra
9879 CEBE FD 0B DD        ...   stad 0bdd
9880 CEC1 F6 0B C6        ...   ldab 0bc6
9881 CEC4 4F              O     clra
9882 CEC5 C3 0B C7        ...   addd #0bc7
9883 CEC8 8F              .     xgdx
9884 CEC9 E6 00           ..    ldab 00,x
9885 CECB 4F              O     clra
9886 CECC FD 0B DF        ...   stad 0bdf
9887 CECF F6 0B C5        ...   ldab 0bc5
9888 CED2 4F              O     clra
9889 CED3 C3 0B C7        ...   addd #0bc7
9890 CED6 8F              .     xgdx
9891 CED7 E6 00           ..    ldab 00,x
9892 CED9 4F              O     clra
9893 CEDA FD 0B E1        ...   stad 0be1
9894 CEDD C6 01           ..    ldab #01
9895 CEDF F7 0B D7        ...   stb 0bd7
9896 CEE2 C6 02           ..    ldab #02
9897 CEE4 F7 0B D8        ...   stb 0bd8
9898 CEE7 C6 04           ..    ldab #04
9899 CEE9 F7 0B D9        ...   stb 0bd9
9900 CEEC C6 20           .     ldab #20
9901 CEEE F7 0B DA        ...   stb 0bda
9902 CEF1 C6 10           ..    ldab #10
9903 CEF3 F7 0B DB        ...   stb 0bdb
9904 CEF6 C6 08           ..    ldab #08
9905 CEF8 F7 0B DC        ...   stb 0bdc
9906 CEFB 7E D0 66        ~.f   jmp d066
9907 CEFE F6 0B C5        ...   ldab 0bc5
9908 CF01 F1 0B C4        ...   cmpb 0bc4
9909 CF04 25 53           %S    bcs 53
9910 CF06 F6 0B C4        ...   ldab 0bc4
9911 CF09 F1 0B C6        ...   cmpb 0bc6
9912 CF0C 25 4B           %K    bcs 4b
9913 CF0E F6 0B C5        ...   ldab 0bc5
9914 CF11 4F              O     clra
9915 CF12 C3 0B C7        ...   addd #0bc7
9916 CF15 8F              .     xgdx
9917 CF16 E6 00           ..    ldab 00,x
9918 CF18 4F              O     clra
9919 CF19 FD 0B DD        ...   stad 0bdd
9920 CF1C F6 0B C4        ...   ldab 0bc4
9921 CF1F 4F              O     clra
9922 CF20 C3 0B C7        ...   addd #0bc7
9923 CF23 8F              .     xgdx
9924 CF24 E6 00           ..    ldab 00,x
9925 CF26 4F              O     clra
9926 CF27 FD 0B DF        ...   stad 0bdf
9927 CF2A F6 0B C6        ...   ldab 0bc6
9928 CF2D 4F              O     clra
9929 CF2E C3 0B C7        ...   addd #0bc7
9930 CF31 8F              .     xgdx
9931 CF32 E6 00           ..    ldab 00,x
9932 CF34 4F              O     clra
9933 CF35 FD 0B E1        ...   stad 0be1
9934 CF38 C6 04           ..    ldab #04
9935 CF3A F7 0B D7        ...   stb 0bd7
9936 CF3D C6 01           ..    ldab #01
9937 CF3F F7 0B D8        ...   stb 0bd8
9938 CF42 C6 02           ..    ldab #02
9939 CF44 F7 0B D9        ...   stb 0bd9
9940 CF47 C6 08           ..    ldab #08
9941 CF49 F7 0B DA        ...   stb 0bda
9942 CF4C C6 20           .     ldab #20
9943 CF4E F7 0B DB        ...   stb 0bdb
9944 CF51 C6 10           ..    ldab #10
9945 CF53 F7 0B DC        ...   stb 0bdc
9946 CF56 7E D0 66        ~.f   jmp d066
9947 CF59 F6 0B C5        ...   ldab 0bc5
9948 CF5C F1 0B C6        ...   cmpb 0bc6
9949 CF5F 25 53           %S    bcs 53
9950 CF61 F6 0B C6        ...   ldab 0bc6
9951 CF64 F1 0B C4        ...   cmpb 0bc4
9952 CF67 25 4B           %K    bcs 4b
9953 CF69 F6 0B C5        ...   ldab 0bc5
9954 CF6C 4F              O     clra
9955 CF6D C3 0B C7        ...   addd #0bc7
9956 CF70 8F              .     xgdx
9957 CF71 E6 00           ..    ldab 00,x
9958 CF73 4F              O     clra
9959 CF74 FD 0B DD        ...   stad 0bdd
9960 CF77 F6 0B C6        ...   ldab 0bc6
9961 CF7A 4F              O     clra
9962 CF7B C3 0B C7        ...   addd #0bc7
9963 CF7E 8F              .     xgdx
9964 CF7F E6 00           ..    ldab 00,x
9965 CF81 4F              O     clra
9966 CF82 FD 0B DF        ...   stad 0bdf
9967 CF85 F6 0B C4        ...   ldab 0bc4
9968 CF88 4F              O     clra
9969 CF89 C3 0B C7        ...   addd #0bc7
9970 CF8C 8F              .     xgdx
9971 CF8D E6 00           ..    ldab 00,x
9972 CF8F 4F              O     clra
9973 CF90 FD 0B E1        ...   stad 0be1
9974 CF93 C6 04           ..    ldab #04
9975 CF95 F7 0B D7        ...   stb 0bd7
9976 CF98 C6 02           ..    ldab #02
9977 CF9A F7 0B D8        ...   stb 0bd8
9978 CF9D C6 01           ..    ldab #01
9979 CF9F F7 0B D9        ...   stb 0bd9
9980 CFA2 C6 08           ..    ldab #08
9981 CFA4 F7 0B DA        ...   stb 0bda
9982 CFA7 C6 10           ..    ldab #10
9983 CFA9 F7 0B DB        ...   stb 0bdb
9984 CFAC C6 20           .     ldab #20
9985 CFAE F7 0B DC        ...   stb 0bdc
9986 CFB1 7E D0 66        ~.f   jmp d066
9987 CFB4 F6 0B C6        ...   ldab 0bc6
9988 CFB7 F1 0B C4        ...   cmpb 0bc4
9989 CFBA 25 52           %R    bcs 52
9990 CFBC F6 0B C4        ...   ldab 0bc4
9991 CFBF F1 0B C5        ...   cmpb 0bc5
9992 CFC2 25 4A           %J    bcs 4a
9993 CFC4 F6 0B C6        ...   ldab 0bc6
9994 CFC7 4F              O     clra
9995 CFC8 C3 0B C7        ...   addd #0bc7
9996 CFCB 8F              .     xgdx
9997 CFCC E6 00           ..    ldab 00,x
9998 CFCE 4F              O     clra
9999 CFCF FD 0B DD        ...   stad 0bdd
10000 CFD2 F6 0B C4        ...   ldab 0bc4
10001 CFD5 4F              O     clra
10002 CFD6 C3 0B C7        ...   addd #0bc7
10003 CFD9 8F              .     xgdx
10004 CFDA E6 00           ..    ldab 00,x
10005 CFDC 4F              O     clra
10006 CFDD FD 0B DF        ...   stad 0bdf
10007 CFE0 F6 0B C5        ...   ldab 0bc5
10008 CFE3 4F              O     clra
10009 CFE4 C3 0B C7        ...   addd #0bc7
10010 CFE7 8F              .     xgdx
10011 CFE8 E6 00           ..    ldab 00,x
10012 CFEA 4F              O     clra
10013 CFEB FD 0B E1        ...   stad 0be1
10014 CFEE C6 02           ..    ldab #02
10015 CFF0 F7 0B D7        ...   stb 0bd7
10016 CFF3 C6 01           ..    ldab #01
10017 CFF5 F7 0B D8        ...   stb 0bd8
10018 CFF8 C6 04           ..    ldab #04
10019 CFFA F7 0B D9        ...   stb 0bd9
10020 CFFD C6 10           ..    ldab #10
10021 CFFF F7 0B DA        ...   stb 0bda
10022 D002 C6 20           .     ldab #20
10023 D004 F7 0B DB        ...   stb 0bdb
10024 D007 C6 08           ..    ldab #08
10025 D009 F7 0B DC        ...   stb 0bdc
10026 D00C 20 58            X    bra 58
10027 D00E F6 0B C6        ...   ldab 0bc6
10028 D011 F1 0B C5        ...   cmpb 0bc5
10029 D014 25 50           %P    bcs 50
10030 D016 F6 0B C5        ...   ldab 0bc5
10031 D019 F1 0B C4        ...   cmpb 0bc4
10032 D01C 25 48           %H    bcs 48
10033 D01E F6 0B C6        ...   ldab 0bc6
10034 D021 4F              O     clra
10035 D022 C3 0B C7        ...   addd #0bc7
10036 D025 8F              .     xgdx
10037 D026 E6 00           ..    ldab 00,x
10038 D028 4F              O     clra
10039 D029 FD 0B DD        ...   stad 0bdd
10040 D02C F6 0B C5        ...   ldab 0bc5
10041 D02F 4F              O     clra
10042 D030 C3 0B C7        ...   addd #0bc7
10043 D033 8F              .     xgdx
10044 D034 E6 00           ..    ldab 00,x
10045 D036 4F              O     clra
10046 D037 FD 0B DF        ...   stad 0bdf
10047 D03A F6 0B C4        ...   ldab 0bc4
10048 D03D 4F              O     clra
10049 D03E C3 0B C7        ...   addd #0bc7
10050 D041 8F              .     xgdx
10051 D042 E6 00           ..    ldab 00,x
10052 D044 4F              O     clra
10053 D045 FD 0B E1        ...   stad 0be1
10054 D048 C6 02           ..    ldab #02
10055 D04A F7 0B D7        ...   stb 0bd7
10056 D04D C6 04           ..    ldab #04
10057 D04F F7 0B D8        ...   stb 0bd8
10058 D052 C6 01           ..    ldab #01
10059 D054 F7 0B D9        ...   stb 0bd9
10060 D057 C6 10           ..    ldab #10
10061 D059 F7 0B DA        ...   stb 0bda
10062 D05C C6 08           ..    ldab #08
10063 D05E F7 0B DB        ...   stb 0bdb
10064 D061 C6 20           .     ldab #20
10065 D063 F7 0B DC        ...   stb 0bdc
10066 D066 F6 0B AA        ...   ldab 0baa
10067 D069 4F              O     clra
10068 D06A 37              7     pshb
10069 D06B 36              6     psha
10070 D06C FC 0B DD        ...   ldd 0bdd
10071 D06F BD FB BA        ...   jsr fbba
10072 D072 FD 0B DD        ...   stad 0bdd
10073 D075 F6 0B AA        ...   ldab 0baa
10074 D078 4F              O     clra
10075 D079 37              7     pshb
10076 D07A 36              6     psha
10077 D07B FC 0B DF        ...   ldd 0bdf
10078 D07E BD FB BA        ...   jsr fbba
10079 D081 FD 0B DF        ...   stad 0bdf
10080 D084 F6 0B AA        ...   ldab 0baa
10081 D087 4F              O     clra
10082 D088 37              7     pshb
10083 D089 36              6     psha
10084 D08A FC 0B E1        ...   ldd 0be1
10085 D08D BD FB BA        ...   jsr fbba
10086 D090 FD 0B E1        ...   stad 0be1
10087 D093 39              9     rts
10088
10089 D094 34              4     des
10090 D095 30              0     tsx
10091 D096 6F 00           o.    clr 00,x
10092 D098 30              0     tsx
10093 D099 E6 00           ..    ldab 00,x
10094 D09B C1 10           ..    cmpb #10
10095 D09D 24 1B           $.    bcc 1b
10096 D09F 30              0     tsx
10097 D0A0 E6 00           ..    ldab 00,x
10098 D0A2 4F              O     clra
10099 D0A3 C3 B0 C3        ...   addd #b0c3
10100 D0A6 8F              .     xgdx
10101 D0A7 E6 00           ..    ldab 00,x
10102 D0A9 37              7     pshb
10103 D0AA 30              0     tsx
10104 D0AB E6 01           ..    ldab 01,x
10105 D0AD 4F              O     clra
10106 D0AE C3 0B C7        ...   addd #0bc7
10107 D0B1 8F              .     xgdx
10108 D0B2 33              3     pulb
10109 D0B3 E7 00           ..    stb 00,x
10110 D0B5 30              0     tsx
10111 D0B6 6C 00           l.    inc 00,x
10112 D0B8 20 DE            .    bra de
10113 D0BA C6 05           ..    ldab #05
10114 D0BC F7 0B AA        ...   stb 0baa
10115 D0BF C6 04           ..    ldab #04
10116 D0C1 F7 00 13        ...   stb 0013
10117 D0C4 C6 01           ..    ldab #01
10118 D0C6 F7 0B C4        ...   stb 0bc4
10119 D0C9 C6 03           ..    ldab #03
10120 D0CB F7 0B C5        ...   stb 0bc5
10121 D0CE C6 02           ..    ldab #02
10122 D0D0 F7 0B C6        ...   stb 0bc6
10123 D0D3 CC 00 19        ...   ldd #0019
10124 D0D6 FD 0B DD        ...   stad 0bdd
10125 D0D9 CC 00 0A        ...   ldd #000a
10126 D0DC FD 0B DF        ...   stad 0bdf
10127 D0DF CC 00 05        ...   ldd #0005
10128 D0E2 FD 0B E1        ...   stad 0be1
10129 D0E5 C6 01           ..    ldab #01
10130 D0E7 F7 0B D7        ...   stb 0bd7
10131 D0EA C6 02           ..    ldab #02
10132 D0EC F7 0B D8        ...   stb 0bd8
10133 D0EF C6 04           ..    ldab #04
10134 D0F1 F7 0B D9        ...   stb 0bd9
10135 D0F4 C6 20           .     ldab #20
10136 D0F6 F7 0B DA        ...   stb 0bda
10137 D0F9 C6 10           ..    ldab #10
10138 D0FB F7 0B DB        ...   stb 0bdb
10139 D0FE C6 08           ..    ldab #08
10140 D100 F7 0B DC        ...   stb 0bdc
10141 D103 31              1     ins
10142 D104 39              9     rts
10143
10144 D105 34              4     des
10145 D106 CE 00 1A        ...   ldx #001a
10146 D109 1C 00           ..    bset add,x 00,x
10147 D10B 80 F6           ..    suba #f6
10148 D10D 00              .     test
10149 D10E 1A              .     illegal
10150 D10F F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10151 D112 C6 C8           ..    ldab #c8
10152 D114 30              0     tsx
10153 D115 E7 00           ..    stb 00,x
10154 D117 30              0     tsx
10155 D118 E6 00           ..    ldab 00,x
10156 D11A C1 00           ..    cmpb #00
10157 D11C 23 05           #.    bls 05
10158 D11E 30              0     tsx
10159 D11F 6A 00           j.    dec 00,x
10160 D121 20 F4            .    bra f4
10161 D123 CE 10 00        ...   ldx #1000
10162 D126 1C 00           ..    bset add,x 00,x
10163 D128 40              @     nega
10164 D129 CE 00 14        ...   ldx #0014
10165 D12C 1D 00           ..    bclr add,x 00,x
10166 D12E 20 CE            .    bra ce
10167 D130 00              .     test
10168 D131 14              .     bset
10169 D132 1D 00           ..    bclr add,x 00,x
10170 D134 40              @     nega
10171 D135 F6 00 14        ...   ldab 0014
10172 D138 F7 38 00        .8.   stb 3800
10173 D13B 31              1     ins
10174 D13C 39              9     rts
10175
10176 D13D F6 00 06        ...   ldab 0006
10177 D140 4F              O     clra
10178 D141 CE 00 0A        ...   ldx #000a
10179 D144 02              .     idiv
10180 D145 8F              .     xgdx
10181 D146 CB 01           ..    addb #01
10182 D148 F7 00 5F        .._   stb 005f
10183 D14B F6 00 06        ...   ldab 0006
10184 D14E 4F              O     clra
10185 D14F CE 00 0A        ...   ldx #000a
10186 D152 02              .     idiv
10187 D153 F7 00 5E        ..^   stb 005e
10188 D156 F6 00 5E        ..^   ldab 005e
10189 D159 C1 05           ..    cmpb #05
10190 D15B 23 03           #.    bls 03
10191 D15D 7A 00 5E        z.^   dec 005e
10192 D160 F6 00 5E        ..^   ldab 005e
10193 D163 4F              O     clra
10194 D164 C3 B1 23        ..#   addd #b123
10195 D167 8F              .     xgdx
10196 D168 E6 00           ..    ldab 00,x
10197 D16A 4F              O     clra
10198 D16B 37              7     pshb
10199 D16C 36              6     psha
10200 D16D F6 00 5F        .._   ldab 005f
10201 D170 4F              O     clra
10202 D171 C3 B1 23        ..#   addd #b123
10203 D174 8F              .     xgdx
10204 D175 E6 00           ..    ldab 00,x
10205 D177 4F              O     clra
10206 D178 17              .     tba
10207 D179 5F              _     clrb
10208 D17A 30              0     tsx
10209 D17B E3 00           ..    addd 00,x
10210 D17D 38              8     pulx
10211 D17E FD 00 58        ..X   stad 0058
10212 D181 7F 00 1C        ...   clr 001c
10213 D184 F6 00 1C        ...   ldab 001c
10214 D187 C1 10           ..    cmpb #10
10215 D189 24 37           $7    bcc 37
10216 D18B F6 00 58        ..X   ldab 0058
10217 D18E 2C 0E           ,.    bge 0e
10218 D190 CE 00 14        ...   ldx #0014
10219 D193 1C 00           ..    bset add,x 00,x
10220 D195 10              .     sba
10221 D196 F6 00 14        ...   ldab 0014
10222 D199 F7 38 00        .8.   stb 3800
10223 D19C 20 0C            .    bra 0c
10224 D19E CE 00 14        ...   ldx #0014
10225 D1A1 1D 00           ..    bclr add,x 00,x
10226 D1A3 10              .     sba
10227 D1A4 F6 00 14        ...   ldab 0014
10228 D1A7 F7 38 00        .8.   stb 3800
10229 D1AA CE 10 00        ...   ldx #1000
10230 D1AD 1C 00           ..    bset add,x 00,x
10231 D1AF 20 CE            .    bra ce
10232 D1B1 10              .     sba
10233 D1B2 00              .     test
10234 D1B3 1D 00           ..    bclr add,x 00,x
10235 D1B5 20 FC            .    bra fc
10236 D1B7 00              .     test
10237 D1B8 58              X     aslb
10238 D1B9 05              .     asld
10239 D1BA FD 00 58        ..X   stad 0058
10240 D1BD 7C 00 1C        |..   inc 001c
10241 D1C0 20 C2            .    bra c2
10242 D1C2 F6 00 5F        .._   ldab 005f
10243 D1C5 C1 09           ..    cmpb #09
10244 D1C7 26 0E           &.    bne 0e
10245 D1C9 CE 00 14        ...   ldx #0014
10246 D1CC 1C 00           ..    bset add,x 00,x
10247 D1CE 20 F6            .    bra f6
10248 D1D0 00              .     test
10249 D1D1 14              .     bset
10250 D1D2 F7 38 00        .8.   stb 3800
10251 D1D5 20 13            .    bra 13
10252 D1D7 F6 00 5F        .._   ldab 005f
10253 D1DA C1 0A           ..    cmpb #0a
10254 D1DC 26 0C           &.    bne 0c
10255 D1DE CE 00 14        ...   ldx #0014
10256 D1E1 1C 00           ..    bset add,x 00,x
10257 D1E3 40              @     nega
10258 D1E4 F6 00 14        ...   ldab 0014
10259 D1E7 F7 38 00        .8.   stb 3800
10260 D1EA CE 10 00        ...   ldx #1000
10261 D1ED 1D 00           ..    bclr add,x 00,x
10262 D1EF 40              @     nega
10263 D1F0 CE 00 1A        ...   ldx #001a
10264 D1F3 1D 00           ..    bclr add,x 00,x
10265 D1F5 80 F6           ..    suba #f6
10266 D1F7 00              .     test
10267 D1F8 1A              .     illegal
10268 D1F9 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10269 D1FC 39              9     rts
10270
10271 D1FD CC 40 00        .@.   ldd #4000
10272 D200 37              7     pshb
10273 D201 36              6     psha
10274 D202 F6 00 06        ...   ldab 0006
10275 D205 4F              O     clra
10276 D206 05              .     asld
10277 D207 C3 08 00        ...   addd #0800
10278 D20A 38              8     pulx
10279 D20B 8F              .     xgdx
10280 D20C AA 00           ..    ora 00,x
10281 D20E EA 01           ..    orb 01,x
10282 D210 ED 00           ..    stad 00,x
10283 D212 39              9     rts
10284
10285 D213 F6 00 1F        ...   ldab 001f
10286 D216 C4 04           ..    andb #04
10287 D218 26 12           &.    bne 12
10288 D21A F6 0B C0        ...   ldab 0bc0
10289 D21D C4 10           ..    andb #10
10290 D21F 26 0B           &.    bne 0b
10291 D221 CE 00 00        ...   ldx #0000
10292 D224 3C              <     pshx
10293 D225 FC 00 44        ..D   ldd 0044
10294 D228 BD BE 9E        ...   jsr be9e
10295 D22B 38              8     pulx
10296 D22C BD D3 11        ...   jsr d311
10297 D22F 83 00 00        ...   subd #0000
10298 D232 27 13           '.    beq 13
10299 D234 F6 00 06        ...   ldab 0006
10300 D237 BD D4 68        ..h   jsr d468
10301 D23A 83 00 00        ...   subd #0000
10302 D23D 27 05           '.    beq 05
10303 D23F 8D BC           ..    bsr dest bc
10304 D241 BD D6 3C        ..<   jsr d63c
10305 D244 5F              _     clrb
10306 D245 4F              O     clra
10307 D246 39              9     rts
10308
10309 D247 BD D1 3D        ..=   jsr d13d
10310 D24A C6 3C           .<    ldab #3c
10311 D24C F7 00 2E        ...   stb 002e
10312 D24F C6 41           .A    ldab #41
10313 D251 F7 00 31        ..1   stb 0031
10314 D254 CE 00 1B        ...   ldx #001b
10315 D257 1D 00           ..    bclr add,x 00,x
10316 D259 08              .     inx
10317 D25A F6 00 1B        ...   ldab 001b
10318 D25D C4 08           ..    andb #08
10319 D25F 26 22           &"    bne 22
10320 D261 F6 00 2E        ...   ldab 002e
10321 D264 C1 35           .5    cmpb #35
10322 D266 23 10           #.    bls 10
10323 D268 BD D5 70        ..p   jsr d570
10324 D26B 83 00 00        ...   subd #0000
10325 D26E 27 06           '.    beq 06
10326 D270 CE 00 1B        ...   ldx #001b
10327 D273 1C 00           ..    bset add,x 00,x
10328 D275 08              .     inx
10329 D276 20 0B            .    bra 0b
10330 D278 BD D1 05        ...   jsr d105
10331 D27B 8D 80           ..    bsr dest 80
10332 D27D BD D6 3C        ..<   jsr d63c
10333 D280 5F              _     clrb
10334 D281 4F              O     clra
10335 D282 39              9     rts
10336
10337 D283 F6 00 2E        ...   ldab 002e
10338 D286 C1 36           .6    cmpb #36
10339 D288 24 56           $V    bcc 56
10340 D28A BD D5 F7        ...   jsr d5f7
10341 D28D 83 00 00        ...   subd #0000
10342 D290 27 4E           'N    beq 4e
10343 D292 BD D5 B0        ...   jsr d5b0
10344 D295 83 00 00        ...   subd #0000
10345 D298 27 46           'F    beq 46
10346 D29A BD D1 05        ...   jsr d105
10347 D29D F6 00 2E        ...   ldab 002e
10348 D2A0 C1 32           .2    cmpb #32
10349 D2A2 22 07           ".    bhi 07
10350 D2A4 8D 6B           .k    bsr dest 6b
10351 D2A6 83 00 00        ...   subd #0000
10352 D2A9 27 0C           '.    beq 0c
10353 D2AB BD D1 05        ...   jsr d105
10354 D2AE BD D1 FD        ...   jsr d1fd
10355 D2B1 BD D6 3C        ..<   jsr d63c
10356 D2B4 5F              _     clrb
10357 D2B5 4F              O     clra
10358 D2B6 39              9     rts
10359
10360 D2B7 F6 00 06        ...   ldab 0006
10361 D2BA 4F              O     clra
10362 D2BB C3 0E 06        ...   addd #0e06
10363 D2BE 8F              .     xgdx
10364 D2BF 6C 00           l.    inc 00,x
10365 D2C1 F6 00 06        ...   ldab 0006
10366 D2C4 4F              O     clra
10367 D2C5 C3 0E 06        ...   addd #0e06
10368 D2C8 8F              .     xgdx
10369 D2C9 E6 00           ..    ldab 00,x
10370 D2CB C1 64           .d    cmpb #64
10371 D2CD 23 0D           #.    bls 0d
10372 D2CF 5F              _     clrb
10373 D2D0 37              7     pshb
10374 D2D1 F6 00 06        ...   ldab 0006
10375 D2D4 4F              O     clra
10376 D2D5 C3 0E 06        ...   addd #0e06
10377 D2D8 8F              .     xgdx
10378 D2D9 33              3     pulb
10379 D2DA E7 00           ..    stb 00,x
10380 D2DC CC 00 01        ...   ldd #0001
10381 D2DF 39              9     rts
10382
10383 D2E0 F6 00 2E        ...   ldab 002e
10384 D2E3 26 14           &.    bne 14
10385 D2E5 BD D5 F7        ...   jsr d5f7
10386 D2E8 83 00 00        ...   subd #0000
10387 D2EB 26 0C           &.    bne 0c
10388 D2ED BD D1 05        ...   jsr d105
10389 D2F0 BD D1 FD        ...   jsr d1fd
10390 D2F3 BD D6 26        ..&   jsr d626
10391 D2F6 5F              _     clrb
10392 D2F7 4F              O     clra
10393 D2F8 39              9     rts
10394
10395 D2F9 F6 00 2E        ...   ldab 002e
10396 D2FC 26 0C           &.    bne 0c
10397 D2FE BD D1 05        ...   jsr d105
10398 D301 BD D1 FD        ...   jsr d1fd
10399 D304 BD D6 3C        ..<   jsr d63c
10400 D307 5F              _     clrb
10401 D308 4F              O     clra
10402 D309 39              9     rts
10403
10404 D30A 7E D2 5A        ~.Z   jmp d25a
10405 D30D BD E6 1B        ...   jsr e61b             ;jump4
10406 D310 39              9     rts
10407
10408 D311 BD D1 3D        ..=   jsr d13d
10409 D314 7F 00 1C        ...   clr 001c
10410 D317 7F 00 18        ...   clr 0018
10411 D31A F6 10 0A        ...   ldab 100a
10412 D31D C4 02           ..    andb #02
10413 D31F 27 13           '.    beq 13
10414 D321 7C 00 1C        |..   inc 001c
10415 D324 F6 00 1C        ...   ldab 001c
10416 D327 C1 FF           ..    cmpb #ff
10417 D329 26 07           &.    bne 07
10418 D32B BD D1 05        ...   jsr d105
10419 D32E CC 00 01        ...   ldd #0001
10420 D331 39              9     rts
10421
10422 D332 20 10            .    bra 10
10423 D334 7C 00 18        |..   inc 0018
10424 D337 F6 00 18        ...   ldab 0018
10425 D33A C1 08           ..    cmpb #08
10426 D33C 26 06           &.    bne 06
10427 D33E BD D1 05        ...   jsr d105
10428 D341 5F              _     clrb
10429 D342 4F              O     clra
10430 D343 39              9     rts
10431
10432 D344 20 D4            .    bra d4
10433 D346 3C              <     pshx
10434 D347 3C              <     pshx
10435 D348 3C              <     pshx
10436 D349 34              4     des
10437 D34A F6 0E 6D        ..m   ldab 0e6d
10438 D34D C1 01           ..    cmpb #01
10439 D34F 27 03           '.    beq 03
10440 D351 7E D4 07        ~..   jmp d407
10441 D354 F6 00 06        ...   ldab 0006
10442 D357 4F              O     clra
10443 D358 05              .     asld
10444 D359 C3 08 C8        ...   addd #08c8
10445 D35C 8F              .     xgdx
10446 D35D EC 00           ..    ldd 00,x
10447 D35F C4 7F           ..    andb #7f
10448 D361 4F              O     clra
10449 D362 FD 0E 6B        ..k   stad 0e6b
10450 D365 7F 00 06        ...   clr 0006
10451 D368 F6 00 06        ...   ldab 0006
10452 D36B C1 3E           .>    cmpb #3e
10453 D36D 26 03           &.    bne 03
10454 D36F 7E D4 02        ~..   jmp d402
10455 D372 BD 97 6F        ..o   jsr 976f
10456 D375 F6 00 06        ...   ldab 0006
10457 D378 4F              O     clra
10458 D379 05              .     asld
10459 D37A C3 08 C8        ...   addd #08c8
10460 D37D 8F              .     xgdx
10461 D37E EC 00           ..    ldd 00,x
10462 D380 C4 7F           ..    andb #7f
10463 D382 4F              O     clra
10464 D383 B3 0E 6B        ..k   subd 0e6b
10465 D386 26 77           &w    bne 77
10466 D388 F6 00 06        ...   ldab 0006
10467 D38B 4F              O     clra
10468 D38C CE 00 0A        ...   ldx #000a
10469 D38F 02              .     idiv
10470 D390 30              0     tsx
10471 D391 E7 01           ..    stb 01,x
10472 D393 E6 01           ..    ldab 01,x
10473 D395 C1 01           ..    cmpb #01
10474 D397 26 07           &.    bne 07
10475 D399 C6 40           .@    ldab #40
10476 D39B 30              0     tsx
10477 D39C E7 00           ..    stb 00,x
10478 D39E 20 0C            .    bra 0c
10479 D3A0 30              0     tsx
10480 D3A1 E6 01           ..    ldab 01,x
10481 D3A3 C1 02           ..    cmpb #02
10482 D3A5 26 05           &.    bne 05
10483 D3A7 C6 80           ..    ldab #80
10484 D3A9 30              0     tsx
10485 D3AA E7 00           ..    stb 00,x
10486 D3AC BD D1 3D        ..=   jsr d13d
10487 D3AF 5F              _     clrb
10488 D3B0 4F              O     clra
10489 D3B1 30              0     tsx
10490 D3B2 ED 03           ..    stad 03,x
10491 ;look at the home sensors for this row.  If it is 0, increment 03/04 else
10492 ;decrement 03/04.   Do this 10 times.
10493 D3B4 CC 00 0A        ...   ldd #000a
10494 D3B7 ED 05           ..    stad 05,x
10495 loop:
10496 D3B9 30              0     tsx
10497 D3BA EC 05           ..    ldd 05,x
10498 D3BC 2F 23           /#    ble 23
10499 D3BE F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10500 D3C1 30              0     tsx
10501 D3C2 E4 00           ..    andb 00,x
10502 D3C4 26 09           &.    bne d3cf
10503 D3C6 30              0     tsx
10504 D3C7 6C 04           l.    inc 04,x
10505 D3C9 26 0C           &.    bne 0c
10506 D3CB 6C 03           l.    inc 03,x
10507 D3CD 20 08            .    bra d3d7
10508 D3CF 30              0     tsx
10509 D3D0 EC 03           ..    ldd 03,x
10510 D3D2 83 00 01        ...   subd #0001
10511 D3D5 ED 03           ..    stad 03,x
10512 D3D7 30              0     tsx
10513 D3D8 EC 05           ..    ldd 05,x
10514 D3DA 83 00 01        ...   subd #0001
10515 D3DD ED 05           ..    stad 05,x
10516 D3DF 20 D8            .    bra loop     ;d3b9
10517 D3E1 BD D1 05        ...   jsr d105
10518 D3E4 30              0     tsx
10519 D3E5 EC 03           ..    ldd 03,x
10520 D3E7 2C 16           ,.    bge 16
10521 D3E9 F6 00 06        ...   ldab 0006
10522 D3EC 8D 7A           .z    bsr dest 7a
10523 D3EE 83 00 00        ...   subd #0000
10524 D3F1 27 0C           '.    beq 0c
10525 D3F3 BD D5 61        ..a   jsr d561
10526 D3F6 83 00 00        ...   subd #0000
10527 D3F9 26 04           &.    bne 04
10528 D3FB 5F              _     clrb
10529 D3FC 4F              O     clra
10530 D3FD 20 64            d    bra 64
10531 D3FF 7E D3 68        ~.h   jmp d368
10532 D402 CC 00 01        ...   ldd #0001
10533 D405 20 5C            \    bra 5c
10534 D407 F6 00 06        ...   ldab 0006
10535 D40A C1 13           ..    cmpb #13
10536 D40C 27 1C           '.    beq 1c
10537 D40E F6 00 06        ...   ldab 0006
10538 D411 C1 1D           ..    cmpb #1d
10539 D413 27 15           '.    beq 15
10540 D415 F6 00 06        ...   ldab 0006
10541 D418 C1 27           .'    cmpb #27
10542 D41A 27 0E           '.    beq 0e
10543 D41C F6 00 06        ...   ldab 0006
10544 D41F C1 31           .1    cmpb #31
10545 D421 27 07           '.    beq 07
10546 D423 F6 00 06        ...   ldab 0006
10547 D426 C1 3B           .;    cmpb #3b
10548 D428 26 37           &7    bne 37
10549 D42A BD D1 3D        ..=   jsr d13d
10550 D42D 7F 00 1C        ...   clr 001c
10551 D430 7F 00 18        ...   clr 0018
10552 D433 F6 18 00        ...   ldab 1800
10553 D436 C4 40           .@    andb #40
10554 D438 26 14           &.    bne 14
10555 D43A 7C 00 1C        |..   inc 001c
10556 D43D F6 00 1C        ...   ldab 001c
10557 D440 C1 FF           ..    cmpb #ff
10558 D442 26 08           &.    bne 08
10559 D444 BD D1 05        ...   jsr d105
10560 D447 CC 00 01        ...   ldd #0001
10561 D44A 20 17            .    bra 17
10562 D44C 20 11            .    bra 11
10563 D44E 7C 00 18        |..   inc 0018
10564 D451 F6 00 18        ...   ldab 0018
10565 D454 C1 08           ..    cmpb #08
10566 D456 26 07           &.    bne 07
10567 D458 BD D1 05        ...   jsr d105
10568 D45B 5F              _     clrb
10569 D45C 4F              O     clra
10570 D45D 20 04            .    bra 04
10571 D45F 20 D2            .    bra d2
10572 D461 5F              _     clrb
10573 D462 4F              O     clra
10574 D463 38              8     pulx
10575 D464 38              8     pulx
10576 D465 38              8     pulx
10577 D466 31              1     ins
10578 D467 39              9     rts
10579
10580 D468 37              7     pshb
10581 D469 30              0     tsx
10582 D46A E6 00           ..    ldab 00,x
10583 D46C 4F              O     clra
10584 D46D 05              .     asld
10585 D46E C3 08 00        ...   addd #0800
10586 D471 8F              .     xgdx
10587 D472 EC 00           ..    ldd 00,x
10588 D474 5F              _     clrb
10589 D475 84 80           ..    anda #80
10590 D477 31              1     ins
10591 D478 39              9     rts
10592
10593 D479 7F 00 1C        ...   clr 001c
10594 D47C F6 00 1C        ...   ldab 001c
10595 D47F C1 64           .d    cmpb #64
10596 D481 24 1A           $.    bcc 1a
10597 D483 CC FF 7F        ...   ldd #ff7f
10598 D486 37              7     pshb
10599 D487 36              6     psha
10600 D488 F6 00 1C        ...   ldab 001c
10601 D48B 4F              O     clra
10602 D48C 05              .     asld
10603 D48D C3 08 C8        ...   addd #08c8
10604 D490 38              8     pulx
10605 D491 8F              .     xgdx
10606 D492 A4 00           ..    anda 00,x
10607 D494 E4 01           ..    andb 01,x
10608 D496 ED 00           ..    stad 00,x
10609 D498 7C 00 1C        |..   inc 001c
10610 D49B 20 DF            .    bra df
10611 D49D 7F 00 05        ...   clr 0005
10612 D4A0 F6 00 05        ...   ldab 0005
10613 D4A3 C1 50           .P    cmpb #50
10614 D4A5 25 03           %.    bcs 03
10615 D4A7 7E D5 60        ~.`   jmp d560
10616 D4AA F6 00 05        ...   ldab 0005
10617 D4AD 4F              O     clra
10618 D4AE C3 B0 D3        ...   addd #b0d3
10619 D4B1 8F              .     xgdx
10620 D4B2 E6 00           ..    ldab 00,x
10621 D4B4 F7 00 06        ...   stb 0006
10622 D4B7 BD D3 11        ...   jsr d311
10623 D4BA 83 00 00        ...   subd #0000
10624 D4BD 27 03           '.    beq 03
10625 D4BF 7E D5 45        ~.E   jmp d545
10626 D4C2 F6 00 06        ...   ldab 0006
10627 D4C5 BD D7 A0        ...   jsr d7a0             ;jump10
10628 D4C8 83 00 00        ...   subd #0000
10629 D4CB 26 78           &x    bne 78
10630 D4CD BD D5 B0        ...   jsr d5b0
10631 D4D0 83 00 00        ...   subd #0000
10632 D4D3 26 06           &.    bne 06
10633 D4D5 BD D1 FD        ...   jsr d1fd
10634 D4D8 BD D6 3C        ..<   jsr d63c
10635 D4DB CC 80 00        ...   ldd #8000
10636 D4DE 37              7     pshb
10637 D4DF 36              6     psha
10638 D4E0 F6 00 06        ...   ldab 0006
10639 D4E3 4F              O     clra
10640 D4E4 05              .     asld
10641 D4E5 C3 08 00        ...   addd #0800
10642 D4E8 38              8     pulx
10643 D4E9 8F              .     xgdx
10644 D4EA AA 00           ..    ora 00,x
10645 D4EC EA 01           ..    orb 01,x
10646 D4EE ED 00           ..    stad 00,x
10647 D4F0 F6 00 06        ...   ldab 0006
10648 D4F3 4F              O     clra
10649 D4F4 05              .     asld
10650 D4F5 C3 08 00        ...   addd #0800
10651 D4F8 8F              .     xgdx
10652 D4F9 EC 00           ..    ldd 00,x
10653 D4FB C4 FF           ..    andb #ff
10654 D4FD 84 3F           .?    anda #3f
10655 D4FF 83 27 0F        .'.   subd #270f
10656 D502 23 1A           #.    bls 1a
10657 D504 BD D1 FD        ...   jsr d1fd
10658 D507 CC 01 00        ...   ldd #0100
10659 D50A 37              7     pshb
10660 D50B 36              6     psha
10661 D50C F6 00 06        ...   ldab 0006
10662 D50F 4F              O     clra
10663 D510 05              .     asld
10664 D511 C3 08 C8        ...   addd #08c8
10665 D514 38              8     pulx
10666 D515 8F              .     xgdx
10667 D516 AA 00           ..    ora 00,x
10668 D518 EA 01           ..    orb 01,x
10669 D51A ED 00           ..    stad 00,x
10670 D51C 20 25            %    bra 25
10671 D51E F6 00 06        ...   ldab 0006
10672 D521 4F              O     clra
10673 D522 05              .     asld
10674 D523 C3 08 C8        ...   addd #08c8
10675 D526 8F              .     xgdx
10676 D527 EC 00           ..    ldd 00,x
10677 D529 C4 7F           ..    andb #7f
10678 D52B F7 00 06        ...   stb 0006
10679 D52E CC 00 80        ...   ldd #0080
10680 D531 37              7     pshb
10681 D532 36              6     psha
10682 D533 F6 00 06        ...   ldab 0006
10683 D536 4F              O     clra
10684 D537 05              .     asld
10685 D538 C3 08 C8        ...   addd #08c8
10686 D53B 38              8     pulx
10687 D53C 8F              .     xgdx
10688 D53D AA 00           ..    ora 00,x
10689 D53F EA 01           ..    orb 01,x
10690 D541 ED 00           ..    stad 00,x
10691 D543 20 15            .    bra 15
10692 D545 CC 7F FF        ...   ldd #7fff
10693 D548 37              7     pshb
10694 D549 36              6     psha
10695 D54A F6 00 06        ...   ldab 0006
10696 D54D 4F              O     clra
10697 D54E 05              .     asld
10698 D54F C3 08 00        ...   addd #0800
10699 D552 38              8     pulx
10700 D553 8F              .     xgdx
10701 D554 A4 00           ..    anda 00,x
10702 D556 E4 01           ..    andb 01,x
10703 D558 ED 00           ..    stad 00,x
10704 D55A 7C 00 05        |..   inc 0005
10705 D55D 7E D4 A0        ~..   jmp d4a0
10706 D560 39              9     rts
10707
10708 D561 F6 00 06        ...   ldab 0006
10709 D564 4F              O     clra
10710 D565 05              .     asld
10711 D566 C3 08 00        ...   addd #0800
10712 D569 8F              .     xgdx
10713 D56A EC 00           ..    ldd 00,x
10714 D56C 5F              _     clrb
10715 D56D 84 40           .@    anda #40
10716 D56F 39              9     rts
10717
10718 ;Look at the home sensor for the row of this slot.  If it isn't 0 within 5
10719 ;loops, return 1 (fault?), else return 0 (OK?).
10720 ;005f is the row number in this routine.  scratch variable?
10721 ;looks like 0006 is the slot number.
10722 ;this is called twice
10723 D570 F6 00 06        ...   ldab 0006
10724 D573 4F              O     clra
10725 D574 CE 00 0A        ...   ldx #000a
10726 D577 02              .     idiv
10727 D578 F7 00 5F        .._   stb 005f
10728 D57B F6 00 5F        .._   ldab 005f
10729 D57E C1 05           ..    cmpb #05
10730 D580 23 03           #.    bls d585
10731 D582 7A 00 5F        z._   dec 005f
10732 D585 F6 00 5F        .._   ldab 005f    ;row number
10733 D588 4F              O     clra
10734 D589 C3 B1 23        ..#   addd #b123
10735 D58C 8F              .     xgdx
10736 D58D E6 00           ..    ldab 00,x    ;get bit for this row
10737 D58F F7 00 5E        ..^   stb 005e
10738 D592 7F 00 1C        ...   clr 001c
10739 loop:
10740 D595 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10741 D598 F4 00 5E        ..^   andb 005e    ;check home sensor for this row
10742 D59B 27 10           '.    beq d5ad
10743 D59D 7C 00 1C        |..   inc 001c
10744 D5A0 F6 00 1C        ...   ldab 001c
10745 D5A3 C1 05           ..    cmpb #05
10746 D5A5 26 04           &.    bne d5ab
10747 D5A7 CC 00 01        ...   ldd #0001
10748 D5AA 39              9     rts
10749
10750 D5AB 20 E8            .    bra loop     ;d595
10751 D5AD 5F              _     clrb
10752 D5AE 4F              O     clra
10753 D5AF 39              9     rts
10754
10755 ;This does almost the same - check the home sensor for this row (slot number
10756 ;is in 0006) up to 5 times.  If it is 1, return 0.  If it stays 0, return 0.
10757 ;(this is the reverse of the routine above).  But also check bit 0 of 100a.
10758 ;If it is ever 0, return 0.
10759 ;005f is the row number
10760 ;005e is the bit mask for this row
10761 D5B0 F6 00 06        ...   ldab 0006
10762 D5B3 4F              O     clra
10763 D5B4 CE 00 0A        ...   ldx #000a
10764 D5B7 02              .     idiv
10765 D5B8 F7 00 5F        .._   stb 005f
10766 D5BB F6 00 5F        .._   ldab 005f
10767 D5BE C1 05           ..    cmpb #05
10768 D5C0 23 03           #.    bls 03
10769 D5C2 7A 00 5F        z._   dec 005f
10770 D5C5 F6 00 5F        .._   ldab 005f
10771 D5C8 4F              O     clra
10772 D5C9 C3 B1 23        ..#   addd #b123
10773 D5CC 8F              .     xgdx
10774 D5CD E6 00           ..    ldab 00,x
10775 D5CF F7 00 5E        ..^   stb 005e
10776 D5D2 7F 00 1C        ...   clr 001c
10777 loop:
10778 D5D5 F6 28 00        .(.   ldab 2800    ;snack motor home sensors
10779 D5D8 F4 00 5E        ..^   andb 005e
10780 D5DB 26 17           &.    bne d5f4
10781 D5DD F6 10 0A        ...   ldab 100a
10782 D5E0 C4 01           ..    andb #01
10783 D5E2 27 10           '.    beq d5f4
10784 D5E4 7C 00 1C        |..   inc 001c
10785 D5E7 F6 00 1C        ...   ldab 001c
10786 D5EA C1 05           ..    cmpb #05
10787 D5EC 26 04           &.    bne d5f2
10788 D5EE CC 00 01        ...   ldd #0001
10789 D5F1 39              9     rts
10790
10791 D5F2 20 E1            .    bra loop     ;d5d5
10792 D5F4 5F              _     clrb
10793 D5F5 4F              O     clra
10794 D5F6 39              9     rts
10795
10796 D5F7 C6 07           ..    ldab #07
10797 D5F9 F7 00 1C        ...   stb 001c
10798 D5FC 7F 00 18        ...   clr 0018
10799 D5FF F6 00 1C        ...   ldab 001c
10800 D602 27 1E           '.    beq 1e
10801 D604 7A 00 1C        z..   dec 001c
10802 D607 F6 10 0A        ...   ldab 100a
10803 D60A C4 01           ..    andb #01
10804 D60C 26 12           &.    bne 12
10805 D60E C6 07           ..    ldab #07
10806 D610 F7 00 1C        ...   stb 001c
10807 D613 7C 00 18        |..   inc 0018
10808 D616 F6 00 18        ...   ldab 0018
10809 D619 C1 05           ..    cmpb #05
10810 D61B 26 03           &.    bne 03
10811 D61D 5F              _     clrb
10812 D61E 4F              O     clra
10813 D61F 39              9     rts
10814
10815 D620 20 DD            .    bra dd
10816 D622 CC 00 01        ...   ldd #0001
10817 D625 39              9     rts
10818 D626 CC 02 00        ...   ldd #0200
10819 D629 37              7     pshb
10820 D62A 36              6     psha
10821 D62B F6 00 06        ...   ldab 0006
10822 D62E 4F              O     clra
10823 D62F 05              .     asld
10824 D630 C3 08 C8        ...   addd #08c8
10825 D633 38              8     pulx
10826 D634 8F              .     xgdx
10827 D635 AA 00           ..    ora 00,x
10828 D637 EA 01           ..    orb 01,x
10829 D639 ED 00           ..    stad 00,x
10830 D63B 39              9     rts
10831
10832 D63C CC 04 00        ...   ldd #0400
10833 D63F 37              7     pshb
10834 D640 36              6     psha
10835 D641 F6 00 06        ...   ldab 0006
10836 D644 4F              O     clra
10837 D645 05              .     asld
10838 D646 C3 08 C8        ...   addd #08c8
10839 D649 38              8     pulx
10840 D64A 8F              .     xgdx
10841 D64B AA 00           ..    ora 00,x
10842 D64D EA 01           ..    orb 01,x
10843 D64F ED 00           ..    stad 00,x
10844 D651 39              9     rts
10845
10846 jump5:
10847 D652 CE 00 1A        ...   ldx #001a
10848 D655 1C 00           ..    bset add,x 00,x
10849 D657 01              .     nop
10850 D658 F6 00 1A        ...   ldab 001a
10851 D65B F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10852 D65E CE 00 14        ...   ldx #0014
10853 D661 1D 00           ..    bclr add,x 00,x
10854 D663 01              .     nop
10855 D664 F6 00 14        ...   ldab 0014
10856 D667 F7 38 00        .8.   stb 3800
10857 D66A 39              9     rts
10858
10859 D66B F6 0B C0        ...   ldab 0bc0
10860 D66E C4 08           ..    andb #08
10861 D670 27 07           '.    beq 07
10862 D672 F6 00 7D        ..}   ldab 007d
10863 D675 27 02           '.    beq 02
10864 D677 20 F9            .    bra f9
10865 D679 F6 00 15        ...   ldab 0015
10866 D67C 2D 77           -w    blt 77
10867 D67E FC 00 40        ..@   ldd 0040
10868 D681 F3 00 3E        ..>   addd 003e
10869 D684 B3 00 0F        ...   subd 000f
10870 D687 24 4F           $O    bcc 4f
10871 D689 F6 0B C0        ...   ldab 0bc0
10872 D68C C4 01           ..    andb #01
10873 D68E 26 07           &.    bne 07
10874 D690 F6 0B C0        ...   ldab 0bc0
10875 D693 C4 04           ..    andb #04
10876 D695 27 0C           '.    beq 0c
10877 D697 CE 00 1A        ...   ldx #001a
10878 D69A 1D 00           ..    bclr add,x 00,x
10879 D69C 01              .     nop
10880 D69D F6 00 1A        ...   ldab 001a
10881 D6A0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
10882 D6A3 F6 0B C0        ...   ldab 0bc0
10883 D6A6 C4 08           ..    andb #08
10884 D6A8 27 20           '     beq 20
10885 D6AA F6 0C D9        ...   ldab 0cd9
10886 D6AD C1 03           ..    cmpb #03
10887 D6AF 23 19           #.    bls 19
10888 D6B1 FC 0B EF        ...   ldd 0bef
10889 D6B4 83 00 64        ..d   subd #0064
10890 D6B7 25 11           %.    bcs 11
10891 D6B9 CE 00 14        ...   ldx #0014
10892 D6BC 1C 00           ..    bset add,x 00,x
10893 D6BE 02              .     idiv
10894 D6BF F6 00 14        ...   ldab 0014
10895 D6C2 F7 38 00        .8.   stb 3800
10896 D6C5 BD C0 E0        ...   jsr c0e0
10897 D6C8 20 0C            .    bra 0c
10898 D6CA CE 00 14        ...   ldx #0014
10899 D6CD 1D 00           ..    bclr add,x 00,x
10900 D6CF 01              .     nop
10901 D6D0 F6 00 14        ...   ldab 0014
10902 D6D3 F7 38 00        .8.   stb 3800
10903 D6D6 20 05            .    bra 05
10904 D6D8 BD D6 52        ..R   jsr d652             ;jump5
10905 D6DB 8D 53           .S    bsr dest 53
10906 D6DD F6 0B C0        ...   ldab 0bc0
10907 D6E0 C4 08           ..    andb #08
10908 D6E2 27 11           '.    beq 11
10909 D6E4 F6 0B C0        ...   ldab 0bc0
10910 D6E7 C4 40           .@    andb #40
10911 D6E9 27 0A           '.    beq 0a
10912 D6EB F6 00 15        ...   ldab 0015
10913 D6EE C4 01           ..    andb #01
10914 D6F0 27 03           '.    beq 03
10915 D6F2 BD C0 E0        ...   jsr c0e0
10916 D6F5 39              9     rts
10917
10918 D6F6 F6 0C DB        ...   ldab 0cdb
10919 D6F9 4F              O     clra
10920 D6FA 37              7     pshb
10921 D6FB 36              6     psha
10922 D6FC FC 0B DD        ...   ldd 0bdd
10923 D6FF BD FB BA        ...   jsr fbba
10924 D702 FD 0C EB        ...   stad 0ceb
10925 D705 F6 0C DA        ...   ldab 0cda
10926 D708 4F              O     clra
10927 D709 37              7     pshb
10928 D70A 36              6     psha
10929 D70B FC 0B DF        ...   ldd 0bdf
10930 D70E BD FB BA        ...   jsr fbba
10931 D711 FD 0C ED        ...   stad 0ced
10932 D714 F6 0C D9        ...   ldab 0cd9
10933 D717 4F              O     clra
10934 D718 37              7     pshb
10935 D719 36              6     psha
10936 D71A FC 0B E1        ...   ldd 0be1
10937 D71D BD FB BA        ...   jsr fbba
10938 D720 FD 0C EF        ...   stad 0cef
10939 D723 FC 0C EB        ...   ldd 0ceb
10940 D726 F3 0C ED        ...   addd 0ced
10941 D729 F3 0C EF        ...   addd 0cef
10942 D72C FD 0B EF        ...   stad 0bef
10943 D72F 39              9     rts
10944
10945 D730 F6 00 15        ...   ldab 0015
10946 D733 C4 1F           ..    andb #1f
10947 D735 27 49           'I    beq 49
10948 D737 FC 00 40        ..@   ldd 0040
10949 D73A F3 00 3E        ..>   addd 003e
10950 D73D B3 0B EF        ...   subd 0bef
10951 D740 23 19           #.    bls 19
10952 D742 CC B0 6B        ..k   ldd #b06b
10953 D745 BD C0 BA        ...   jsr c0ba             ;display:
10954 D748 CC 01 F4        ...   ldd #01f4
10955 D74B BD E5 71        ..q   jsr e571             ;jump13
10956 D74E BD C5 D3        ...   jsr c5d3             ;jump6
10957 D751 CC 01 F4        ...   ldd #01f4
10958 D754 BD E5 71        ..q   jsr e571             ;jump13
10959 D757 CC 00 01        ...   ldd #0001
10960 D75A 39              9     rts
10961
10962 D75B F6 00 15        ...   ldab 0015
10963 D75E C4 04           ..    andb #04
10964 D760 27 1E           '.    beq 1e
10965 D762 F6 0E 6E        ..n   ldab 0e6e
10966 D765 26 19           &.    bne 19
10967 D767 CC B0 76        ..v   ldd #b076
10968 D76A BD C0 BA        ...   jsr c0ba             ;display:
10969 D76D CC 01 F4        ...   ldd #01f4
10970 D770 BD E5 71        ..q   jsr e571             ;jump13
10971 D773 BD C5 D3        ...   jsr c5d3             ;jump6
10972 D776 CC 01 F4        ...   ldd #01f4
10973 D779 BD E5 71        ..q   jsr e571             ;jump13
10974 D77C CC 00 01        ...   ldd #0001
10975 D77F 39              9     rts
10976
10977 D780 5F              _     clrb
10978 D781 4F              O     clra
10979 D782 39              9     rts
10980
10981 D783 F6 00 06        ...   ldab 0006
10982 D786 4F              O     clra
10983 D787 CE 00 0A        ...   ldx #000a
10984 D78A 02              .     idiv
10985 D78B C1 04           ..    cmpb #04
10986 D78D 26 0E           &.    bne 0e
10987 D78F F6 00 1D        ...   ldab 001d
10988 D792 C4 04           ..    andb #04
10989 D794 27 03           '.    beq 03
10990 D796 5F              _     clrb
10991 D797 4F              O     clra
10992 D798 39              9     rts
10993
10994 D799 CC 00 01        ...   ldd #0001
10995 D79C 39              9     rts
10996
10997 D79D 5F              _     clrb
10998 D79E 4F              O     clra
10999 D79F 39              9     rts
11000
11001 jump10:
11002 D7A0 37              7     pshb
11003 D7A1 30              0     tsx
11004 D7A2 E6 00           ..    ldab 00,x
11005 D7A4 C1 09           ..    cmpb #09
11006 D7A6 27 18           '.    beq 18
11007 D7A8 E6 00           ..    ldab 00,x
11008 D7AA C1 45           .E    cmpb #45
11009 D7AC 27 12           '.    beq 12
11010 D7AE E6 00           ..    ldab 00,x
11011 D7B0 C1 4F           .O    cmpb #4f
11012 D7B2 27 0C           '.    beq 0c
11013 D7B4 E6 00           ..    ldab 00,x
11014 D7B6 C1 59           .Y    cmpb #59
11015 D7B8 27 06           '.    beq 06
11016 D7BA E6 00           ..    ldab 00,x
11017 D7BC C1 63           .c    cmpb #63
11018 D7BE 26 05           &.    bne 05
11019 D7C0 CC 00 01        ...   ldd #0001
11020 D7C3 20 38            8    bra 38
11021 D7C5 F6 0E 6D        ..m   ldab 0e6d
11022 D7C8 C1 01           ..    cmpb #01
11023 D7CA 26 2F           &/    bne 2f
11024 D7CC 30              0     tsx
11025 D7CD E6 00           ..    ldab 00,x
11026 D7CF 4F              O     clra
11027 D7D0 CE 00 0A        ...   ldx #000a
11028 D7D3 02              .     idiv
11029 D7D4 C1 01           ..    cmpb #01
11030 D7D6 27 11           '.    beq 11
11031 D7D8 30              0     tsx
11032 D7D9 E6 00           ..    ldab 00,x
11033 D7DB 4F              O     clra
11034 D7DC CE 00 0A        ...   ldx #000a
11035 D7DF 02              .     idiv
11036 D7E0 C1 02           ..    cmpb #02
11037 D7E2 27 05           '.    beq 05
11038 D7E4 CC 00 01        ...   ldd #0001
11039 D7E7 20 14            .    bra 14
11040 D7E9 30              0     tsx
11041 D7EA E6 00           ..    ldab 00,x
11042 D7EC C1 0B           ..    cmpb #0b
11043 D7EE 25 06           %.    bcs 06
11044 D7F0 E6 00           ..    ldab 00,x
11045 D7F2 C1 3E           .>    cmpb #3e
11046 D7F4 23 05           #.    bls 05
11047 D7F6 CC 00 01        ...   ldd #0001
11048 D7F9 20 02            .    bra 02
11049 D7FB 5F              _     clrb
11050 D7FC 4F              O     clra
11051 D7FD 31              1     ins
11052 D7FE 39              9     rts
11053
11054 D7FF 7F 00 1C        ...   clr 001c
11055 D802 F6 00 1C        ...   ldab 001c
11056 D805 4F              O     clra
11057 D806 B3 00 4D        ..M   subd 004d
11058 D809 24 05           $.    bcc 05
11059 D80B 7C 00 1C        |..   inc 001c
11060 D80E 20 F2            .    bra f2
11061 D810 F6 00 1C        ...   ldab 001c
11062 D813 4F              O     clra
11063 D814 05              .     asld
11064 D815 C3 0D 1F        ...   addd #0d1f
11065 D818 8F              .     xgdx
11066 D819 EC 00           ..    ldd 00,x
11067 D81B 83 FF FF        ...   subd #ffff
11068 D81E 26 10           &.    bne 10
11069 D820 5F              _     clrb
11070 D821 4F              O     clra
11071 D822 37              7     pshb
11072 D823 36              6     psha
11073 D824 F6 00 1C        ...   ldab 001c
11074 D827 4F              O     clra
11075 D828 05              .     asld
11076 D829 C3 0D 1F        ...   addd #0d1f
11077 D82C 38              8     pulx
11078 D82D 8F              .     xgdx
11079 D82E ED 00           ..    stad 00,x
11080 D830 F6 00 1C        ...   ldab 001c
11081 D833 4F              O     clra
11082 D834 05              .     asld
11083 D835 C3 0D 1F        ...   addd #0d1f
11084 D838 8F              .     xgdx
11085 D839 6C 01           l.    inc 01,x
11086 D83B 26 02           &.    bne 02
11087 D83D 6C 00           l.    inc 00,x
11088 D83F 39              9     rts
11089
11090 D840 FC 00 44        ..D   ldd 0044
11091 D843 26 03           &.    bne 03
11092 D845 7E D8 D2        ~..   jmp d8d2
11093 D848 FC 00 44        ..D   ldd 0044
11094 D84B 37              7     pshb
11095 D84C 36              6     psha
11096 D84D 4F              O     clra
11097 D84E 5F              _     clrb
11098 D84F 37              7     pshb
11099 D850 36              6     psha
11100 D851 CC 0D EB        ...   ldd #0deb
11101 D854 BD FB DF        ...   jsr fbdf
11102 D857 31              1     ins
11103 D858 31              1     ins
11104 D859 FE 0D ED        ...   ldx 0ded
11105 D85C 3C              <     pshx
11106 D85D FC 0D EB        ...   ldd 0deb
11107 D860 37              7     pshb
11108 D861 36              6     psha
11109 D862 CE E1 00        ...   ldx #e100
11110 D865 3C              <     pshx
11111 D866 CC 05 F5        ...   ldd #05f5
11112 D869 37              7     pshb
11113 D86A 36              6     psha
11114 D86B 30              0     tsx
11115 D86C EC 06           ..    ldd 06,x
11116 D86E A3 02           ..    subd 02,x
11117 D870 EC 04           ..    ldd 04,x
11118 D872 E2 01           ..    sbcb 01,x
11119 D874 A2 00           ..    sbca 00,x
11120 D876 38              8     pulx
11121 D877 38              8     pulx
11122 D878 38              8     pulx
11123 D879 38              8     pulx
11124 D87A 25 11           %.    bcs 11
11125 D87C CE 1F 00        ...   ldx #1f00
11126 D87F 3C              <     pshx
11127 D880 CC FA 0A        ...   ldd #fa0a
11128 D883 37              7     pshb
11129 D884 36              6     psha
11130 D885 CC 0D EB        ...   ldd #0deb
11131 D888 BD FB DF        ...   jsr fbdf
11132 D88B 31              1     ins
11133 D88C 31              1     ins
11134 D88D FC 00 44        ..D   ldd 0044
11135 D890 37              7     pshb
11136 D891 36              6     psha
11137 D892 4F              O     clra
11138 D893 5F              _     clrb
11139 D894 37              7     pshb
11140 D895 36              6     psha
11141 D896 CC 0D E7        ...   ldd #0de7
11142 D899 BD FB DF        ...   jsr fbdf
11143 D89C 31              1     ins
11144 D89D 31              1     ins
11145 D89E FE 0D E9        ...   ldx 0de9
11146 D8A1 3C              <     pshx
11147 D8A2 FC 0D E7        ...   ldd 0de7
11148 D8A5 37              7     pshb
11149 D8A6 36              6     psha
11150 D8A7 CE E1 00        ...   ldx #e100
11151 D8AA 3C              <     pshx
11152 D8AB CC 05 F5        ...   ldd #05f5
11153 D8AE 37              7     pshb
11154 D8AF 36              6     psha
11155 D8B0 30              0     tsx
11156 D8B1 EC 06           ..    ldd 06,x
11157 D8B3 A3 02           ..    subd 02,x
11158 D8B5 EC 04           ..    ldd 04,x
11159 D8B7 E2 01           ..    sbcb 01,x
11160 D8B9 A2 00           ..    sbca 00,x
11161 D8BB 38              8     pulx
11162 D8BC 38              8     pulx
11163 D8BD 38              8     pulx
11164 D8BE 38              8     pulx
11165 D8BF 25 11           %.    bcs 11
11166 D8C1 CE 1F 00        ...   ldx #1f00
11167 D8C4 3C              <     pshx
11168 D8C5 CC FA 0A        ...   ldd #fa0a
11169 D8C8 37              7     pshb
11170 D8C9 36              6     psha
11171 D8CA CC 0D E7        ...   ldd #0de7
11172 D8CD BD FB DF        ...   jsr fbdf
11173 D8D0 31              1     ins
11174 D8D1 31              1     ins
11175 D8D2 39              9     rts
11176
11177 D8D3 7F 00 18        ...   clr 0018
11178 D8D6 F6 00 18        ...   ldab 0018
11179 D8D9 C1 10           ..    cmpb #10
11180 D8DB 24 0B           $.    bcc 0b
11181 D8DD CC 00 32        ..2   ldd #0032
11182 D8E0 BD E5 71        ..q   jsr e571             ;jump13
11183 D8E3 7C 00 18        |..   inc 0018
11184 D8E6 20 EE            .    bra ee
11185 D8E8 39              9     rts
11186
11187 D8E9 F6 00 2B        ..+   ldab 002b
11188 D8EC C1 00           ..    cmpb #00
11189 D8EE 26 18           &.    bne 18
11190 D8F0 CC AD 84        ...   ldd #ad84
11191 D8F3 BD C0 BA        ...   jsr c0ba             ;display:
11192 D8F6 8D DB           ..    bsr dest db
11193 D8F8 CC AD 8F        ...   ldd #ad8f
11194 D8FB BD C0 BA        ...   jsr c0ba             ;display:
11195 D8FE 8D D3           ..    bsr dest d3
11196 D900 CC AD 9A        ...   ldd #ad9a
11197 D903 BD C0 BA        ...   jsr c0ba             ;display:
11198 D906 20 4E            N    bra 4e
11199 D908 C1 01           ..    cmpb #01
11200 D90A 26 18           &.    bne 18
11201 D90C CC AD 63        ..c   ldd #ad63
11202 D90F BD C0 BA        ...   jsr c0ba             ;display:
11203 D912 8D BF           ..    bsr dest bf
11204 D914 CC AD 6E        ..n   ldd #ad6e
11205 D917 BD C0 BA        ...   jsr c0ba             ;display:
11206 D91A 8D B7           ..    bsr dest b7
11207 D91C CC AD 79        ..y   ldd #ad79
11208 D91F BD C0 BA        ...   jsr c0ba             ;display:
11209 D922 20 32            2    bra 32
11210 D924 C1 02           ..    cmpb #02
11211 D926 26 18           &.    bne 18
11212 D928 CC AD 42        ..B   ldd #ad42
11213 D92B BD C0 BA        ...   jsr c0ba             ;display:
11214 D92E 8D A3           ..    bsr dest a3
11215 D930 CC AD 4D        ..M   ldd #ad4d
11216 D933 BD C0 BA        ...   jsr c0ba             ;display:
11217 D936 8D 9B           ..    bsr dest 9b
11218 D938 CC AD 58        ..X   ldd #ad58
11219 D93B BD C0 BA        ...   jsr c0ba             ;display:
11220 D93E 20 16            .    bra 16
11221 D940 CC AD 21        ..!   ldd #ad21
11222 D943 BD C0 BA        ...   jsr c0ba             ;display:
11223 D946 8D 8B           ..    bsr dest 8b
11224 D948 CC AD 2C        ..,   ldd #ad2c
11225 D94B BD C0 BA        ...   jsr c0ba             ;display:
11226 D94E 8D 83           ..    bsr dest 83
11227 D950 CC AD 37        ..7   ldd #ad37
11228 D953 BD C0 BA        ...   jsr c0ba             ;display:
11229 D956 BD D8 D3        ...   jsr d8d3
11230 D959 39              9     rts
11231
11232 D95A F6 00 06        ...   ldab 0006
11233 D95D F1 0B AF        ...   cmpb 0baf
11234 D960 26 0D           &.    bne 0d
11235 D962 BD D7 FF        ...   jsr d7ff
11236 D965 F6 0B B4        ...   ldab 0bb4
11237 D968 F7 00 06        ...   stb 0006
11238 D96B 8D 55           .U    bsr dest 55
11239 D96D 20 52            R    bra 52
11240 D96F F6 00 06        ...   ldab 0006
11241 D972 F1 0B AE        ...   cmpb 0bae
11242 D975 26 0D           &.    bne 0d
11243 D977 BD D7 FF        ...   jsr d7ff
11244 D97A F6 0B B3        ...   ldab 0bb3
11245 D97D F7 00 06        ...   stb 0006
11246 D980 8D 40           .@    bsr dest 40
11247 D982 20 3D            =    bra 3d
11248 D984 F6 00 06        ...   ldab 0006
11249 D987 F1 0B AD        ...   cmpb 0bad
11250 D98A 26 0D           &.    bne 0d
11251 D98C BD D7 FF        ...   jsr d7ff
11252 D98F F6 0B B2        ...   ldab 0bb2
11253 D992 F7 00 06        ...   stb 0006
11254 D995 8D 2B           .+    bsr dest 2b
11255 D997 20 28            (    bra 28
11256 D999 F6 00 06        ...   ldab 0006
11257 D99C F1 0B AC        ...   cmpb 0bac
11258 D99F 26 0D           &.    bne 0d
11259 D9A1 BD D7 FF        ...   jsr d7ff
11260 D9A4 F6 0B B1        ...   ldab 0bb1
11261 D9A7 F7 00 06        ...   stb 0006
11262 D9AA 8D 16           ..    bsr dest 16
11263 D9AC 20 13            .    bra 13
11264 D9AE F6 00 06        ...   ldab 0006
11265 D9B1 F1 0B AB        ...   cmpb 0bab
11266 D9B4 26 0B           &.    bne 0b
11267 D9B6 BD D7 FF        ...   jsr d7ff
11268 D9B9 F6 0B B0        ...   ldab 0bb0
11269 D9BC F7 00 06        ...   stb 0006
11270 D9BF 8D 01           ..    bsr dest 01
11271 D9C1 39              9     rts
11272
11273 D9C2 CC 03 E8        ...   ldd #03e8
11274 D9C5 BD E5 71        ..q   jsr e571             ;jump13
11275 D9C8 BD D7 83        ...   jsr d783
11276 D9CB 83 00 00        ...   subd #0000
11277 D9CE 27 0B           '.    beq 0b
11278 D9D0 7F 00 06        ...   clr 0006
11279 D9D3 5F              _     clrb
11280 D9D4 4F              O     clra
11281 D9D5 FD 00 4D        ..M   stad 004d
11282 D9D8 7E DA 63        ~.c   jmp da63
11283 D9DB BD D2 13        ...   jsr d213
11284 D9DE 83 00 00        ...   subd #0000
11285 D9E1 26 0A           &.    bne 0a
11286 D9E3 7F 00 06        ...   clr 0006
11287 D9E6 5F              _     clrb
11288 D9E7 4F              O     clra
11289 D9E8 FD 00 4D        ..M   stad 004d
11290 D9EB 20 76            v    bra 76
11291 D9ED FC 0D 0B        ...   ldd 0d0b
11292 D9F0 83 FF FF        ...   subd #ffff
11293 D9F3 26 05           &.    bne 05
11294 D9F5 5F              _     clrb
11295 D9F6 4F              O     clra
11296 D9F7 FD 0D 0B        ...   stad 0d0b
11297 D9FA FE 0D 0B        ...   ldx 0d0b
11298 D9FD 08              .     inx
11299 D9FE FF 0D 0B        ...   stx 0d0b
11300 DA01 F6 00 06        ...   ldab 0006
11301 DA04 4F              O     clra
11302 DA05 05              .     asld
11303 DA06 C3 08 C8        ...   addd #08c8
11304 DA09 8F              .     xgdx
11305 DA0A EC 00           ..    ldd 00,x
11306 DA0C C4 7F           ..    andb #7f
11307 DA0E 4F              O     clra
11308 DA0F FD 00 4D        ..M   stad 004d
11309 DA12 F6 00 06        ...   ldab 0006
11310 DA15 4F              O     clra
11311 DA16 05              .     asld
11312 DA17 C3 08 00        ...   addd #0800
11313 DA1A 8F              .     xgdx
11314 DA1B EC 00           ..    ldd 00,x
11315 DA1D C4 FF           ..    andb #ff
11316 DA1F 84 3F           .?    anda #3f
11317 DA21 37              7     pshb
11318 DA22 36              6     psha
11319 DA23 4F              O     clra
11320 DA24 5F              _     clrb
11321 DA25 37              7     pshb
11322 DA26 36              6     psha
11323 DA27 CC 0D 17        ...   ldd #0d17
11324 DA2A BD FB DF        ...   jsr fbdf
11325 DA2D 31              1     ins
11326 DA2E 31              1     ins
11327 DA2F FE 0D 19        ...   ldx 0d19
11328 DA32 3C              <     pshx
11329 DA33 FC 0D 17        ...   ldd 0d17
11330 DA36 37              7     pshb
11331 DA37 36              6     psha
11332 DA38 CE E1 00        ...   ldx #e100
11333 DA3B 3C              <     pshx
11334 DA3C CC 05 F5        ...   ldd #05f5
11335 DA3F 37              7     pshb
11336 DA40 36              6     psha
11337 DA41 30              0     tsx
11338 DA42 EC 06           ..    ldd 06,x
11339 DA44 A3 02           ..    subd 02,x
11340 DA46 EC 04           ..    ldd 04,x
11341 DA48 E2 01           ..    sbcb 01,x
11342 DA4A A2 00           ..    sbca 00,x
11343 DA4C 38              8     pulx
11344 DA4D 38              8     pulx
11345 DA4E 38              8     pulx
11346 DA4F 38              8     pulx
11347 DA50 25 11           %.    bcs 11
11348 DA52 CE 1F 00        ...   ldx #1f00
11349 DA55 3C              <     pshx
11350 DA56 CC FA 0A        ...   ldd #fa0a
11351 DA59 37              7     pshb
11352 DA5A 36              6     psha
11353 DA5B CC 0D 17        ...   ldd #0d17
11354 DA5E BD FB DF        ...   jsr fbdf
11355 DA61 31              1     ins
11356 DA62 31              1     ins
11357 DA63 39              9     rts
11358
11359 DA64 FE 0B B9        ...   ldx 0bb9
11360 DA67 08              .     inx
11361 DA68 FF 0B B9        ...   stx 0bb9
11362 DA6B FC 0B B5        ...   ldd 0bb5
11363 DA6E CE 00 32        ..2   ldx #0032
11364 DA71 02              .     idiv
11365 DA72 8F              .     xgdx
11366 DA73 37              7     pshb
11367 DA74 36              6     psha
11368 DA75 CC 00 C3        ...   ldd #00c3
11369 DA78 BD FB BA        ...   jsr fbba
11370 DA7B B3 0B B9        ...   subd 0bb9
11371 DA7E 24 05           $.    bcc 05
11372 DA80 5F              _     clrb
11373 DA81 4F              O     clra
11374 DA82 FD 0B B9        ...   stad 0bb9
11375 DA85 FC 0B B9        ...   ldd 0bb9
11376 DA88 37              7     pshb
11377 DA89 36              6     psha
11378 DA8A CC 00 0A        ...   ldd #000a
11379 DA8D BD FB BA        ...   jsr fbba
11380 DA90 37              7     pshb
11381 DA91 36              6     psha
11382 DA92 FC 0B B5        ...   ldd 0bb5
11383 DA95 CE 00 32        ..2   ldx #0032
11384 DA98 02              .     idiv
11385 DA99 8F              .     xgdx
11386 DA9A 38              8     pulx
11387 DA9B 8F              .     xgdx
11388 DA9C 02              .     idiv
11389 DA9D 8F              .     xgdx
11390 DA9E 37              7     pshb
11391 DA9F 36              6     psha
11392 DAA0 CC 00 0A        ...   ldd #000a
11393 DAA3 BD FB BA        ...   jsr fbba
11394 DAA6 CE 00 0A        ...   ldx #000a
11395 DAA9 02              .     idiv
11396 DAAA 8F              .     xgdx
11397 DAAB FD 00 4A        ..J   stad 004a
11398 DAAE FC 00 4A        ..J   ldd 004a
11399 DAB1 BD FE 32        ..2   jsr fe32
11400 DAB4 DA CA 00        ...   orab ca
11401 DAB7 6E DA           n.    jmp da,x
11402 DAB9 CA 02           ..    orab #02
11403 DABB 80 DA           ..    suba #da
11404 DABD CA 01           ..    orab #01
11405 DABF C2 DA           ..    sbcb #da
11406 DAC1 CA 01           ..    orab #01
11407 DAC3 C2 DB           ..    sbcb #db
11408 DAC5 43              C     coma
11409 DAC6 F9 8E 00        ...   adcb 8e00
11410 DAC9 00              .     test
11411 DACA FC 0D 07        ...   ldd 0d07
11412 DACD 83 FF FF        ...   subd #ffff
11413 DAD0 26 05           &.    bne 05
11414 DAD2 5F              _     clrb
11415 DAD3 4F              O     clra
11416 DAD4 FD 0D 07        ...   stad 0d07
11417 DAD7 FE 0D 07        ...   ldx 0d07
11418 DADA 08              .     inx
11419 DADB FF 0D 07        ...   stx 0d07
11420 DADE F6 00 06        ...   ldab 0006
11421 DAE1 4F              O     clra
11422 DAE2 05              .     asld
11423 DAE3 C3 08 00        ...   addd #0800
11424 DAE6 8F              .     xgdx
11425 DAE7 EC 00           ..    ldd 00,x
11426 DAE9 C4 FF           ..    andb #ff
11427 DAEB 84 3F           .?    anda #3f
11428 DAED 37              7     pshb
11429 DAEE 36              6     psha
11430 DAEF 4F              O     clra
11431 DAF0 5F              _     clrb
11432 DAF1 37              7     pshb
11433 DAF2 36              6     psha
11434 DAF3 CC 0D 0F        ...   ldd #0d0f
11435 DAF6 BD FB DF        ...   jsr fbdf
11436 DAF9 31              1     ins
11437 DAFA 31              1     ins
11438 DAFB FE 0D 11        ...   ldx 0d11
11439 DAFE 3C              <     pshx
11440 DAFF FC 0D 0F        ...   ldd 0d0f
11441 DB02 37              7     pshb
11442 DB03 36              6     psha
11443 DB04 CE E1 00        ...   ldx #e100
11444 DB07 3C              <     pshx
11445 DB08 CC 05 F5        ...   ldd #05f5
11446 DB0B 37              7     pshb
11447 DB0C 36              6     psha
11448 DB0D 30              0     tsx
11449 DB0E EC 06           ..    ldd 06,x
11450 DB10 A3 02           ..    subd 02,x
11451 DB12 EC 04           ..    ldd 04,x
11452 DB14 E2 01           ..    sbcb 01,x
11453 DB16 A2 00           ..    sbca 00,x
11454 DB18 38              8     pulx
11455 DB19 38              8     pulx
11456 DB1A 38              8     pulx
11457 DB1B 38              8     pulx
11458 DB1C 25 11           %.    bcs 11
11459 DB1E CE 1F 00        ...   ldx #1f00
11460 DB21 3C              <     pshx
11461 DB22 CC FA 0A        ...   ldd #fa0a
11462 DB25 37              7     pshb
11463 DB26 36              6     psha
11464 DB27 CC 0D 0F        ...   ldd #0d0f
11465 DB2A BD FB DF        ...   jsr fbdf
11466 DB2D 31              1     ins
11467 DB2E 31              1     ins
11468 DB2F 5F              _     clrb
11469 DB30 4F              O     clra
11470 DB31 FD 00 44        ..D   stad 0044
11471 DB34 CE 00 1B        ...   ldx #001b
11472 DB37 1D 00           ..    bclr add,x 00,x
11473 DB39 01              .     nop
11474 DB3A 7F 00 4F        ..O   clr 004f
11475 DB3D CE 00 11        ...   ldx #0011
11476 DB40 1C 00           ..    bset add,x 00,x
11477 DB42 10              .     sba
11478 DB43 39              9     rts
11479
11480 DB44 F6 00 2B        ..+   ldab 002b
11481 DB47 C1 00           ..    cmpb #00
11482 DB49 26 08           &.    bne 08
11483 DB4B CC AC DF        ...   ldd #acdf
11484 DB4E BD C0 BA        ...   jsr c0ba             ;display:
11485 DB51 20 1E            .    bra 1e
11486 DB53 C1 01           ..    cmpb #01
11487 DB55 26 08           &.    bne 08
11488 DB57 CC AC D4        ...   ldd #acd4
11489 DB5A BD C0 BA        ...   jsr c0ba             ;display:
11490 DB5D 20 12            .    bra 12
11491 DB5F C1 02           ..    cmpb #02
11492 DB61 26 08           &.    bne 08
11493 DB63 CC AC EA        ...   ldd #acea
11494 DB66 BD C0 BA        ...   jsr c0ba             ;display:
11495 DB69 20 06            .    bra 06
11496 DB6B CC AC D4        ...   ldd #acd4
11497 DB6E BD C0 BA        ...   jsr c0ba             ;display:
11498 DB71 BD D8 D3        ...   jsr d8d3
11499 DB74 CE 00 01        ...   ldx #0001
11500 DB77 3C              <     pshx
11501 DB78 FC 00 40        ..@   ldd 0040
11502 DB7B F3 00 3E        ..>   addd 003e
11503 DB7E BD BE 9E        ...   jsr be9e
11504 DB81 38              8     pulx
11505 DB82 FC 00 40        ..@   ldd 0040
11506 DB85 27 05           '.    beq 05
11507 DB87 BD C4 56        ..V   jsr c456
11508 DB8A 20 06            .    bra 06
11509 DB8C CC 02 58        ..X   ldd #0258
11510 DB8F BD E5 71        ..q   jsr e571             ;jump13
11511 DB92 FC 00 3E        ..>   ldd 003e
11512 DB95 27 03           '.    beq 03
11513 DB97 BD C5 D3        ...   jsr c5d3             ;jump6
11514 DB9A F6 00 2B        ..+   ldab 002b
11515 DB9D C1 00           ..    cmpb #00
11516 DB9F 26 08           &.    bne 08
11517 DBA1 CC AD 16        ...   ldd #ad16
11518 DBA4 BD C0 BA        ...   jsr c0ba             ;display:
11519 DBA7 20 1E            .    bra 1e
11520 DBA9 C1 01           ..    cmpb #01
11521 DBAB 26 08           &.    bne 08
11522 DBAD CC AD 0B        ...   ldd #ad0b
11523 DBB0 BD C0 BA        ...   jsr c0ba             ;display:
11524 DBB3 20 12            .    bra 12
11525 DBB5 C1 02           ..    cmpb #02
11526 DBB7 26 08           &.    bne 08
11527 DBB9 CC AD 00        ...   ldd #ad00
11528 DBBC BD C0 BA        ...   jsr c0ba             ;display:
11529 DBBF 20 06            .    bra 06
11530 DBC1 CC AC F5        ...   ldd #acf5
11531 DBC4 BD C0 BA        ...   jsr c0ba             ;display:
11532 DBC7 BD D8 D3        ...   jsr d8d3
11533 DBCA 39              9     rts
11534
11535 DBCB F6 00 1B        ...   ldab 001b
11536 DBCE C4 01           ..    andb #01
11537 DBD0 26 03           &.    bne 03
11538 DBD2 7E DC 98        ~..   jmp dc98
11539 DBD5 F6 00 06        ...   ldab 0006
11540 DBD8 4F              O     clra
11541 DBD9 05              .     asld
11542 DBDA C3 08 C8        ...   addd #08c8
11543 DBDD 8F              .     xgdx
11544 DBDE EC 00           ..    ldd 00,x
11545 DBE0 84 08           ..    anda #08
11546 DBE2 26 03           &.    bne 03
11547 DBE4 7E DC 98        ~..   jmp dc98
11548 DBE7 BD D7 FF        ...   jsr d7ff
11549 DBEA CC 03 E8        ...   ldd #03e8
11550 DBED BD E5 71        ..q   jsr e571             ;jump13
11551 DBF0 BD D3 46        ..F   jsr d346
11552 DBF3 83 00 00        ...   subd #0000
11553 DBF6 26 08           &.    bne 08
11554 DBF8 BD D7 83        ...   jsr d783
11555 DBFB 83 00 00        ...   subd #0000
11556 DBFE 27 17           '.    beq 17
11557 DC00 5F              _     clrb
11558 DC01 4F              O     clra
11559 DC02 FD 00 4D        ..M   stad 004d
11560 DC05 FC 00 44        ..D   ldd 0044
11561 DC08 F3 0B B7        ...   addd 0bb7
11562 DC0B 04              .     lsrd
11563 DC0C F3 00 40        ..@   addd 0040
11564 DC0F B3 0B B7        ...   subd 0bb7
11565 DC12 FD 00 40        ..@   stad 0040
11566 DC15 20 78            x    bra 78
11567 DC17 BD D2 13        ...   jsr d213
11568 DC1A 83 00 00        ...   subd #0000
11569 DC1D 26 17           &.    bne 17
11570 DC1F 5F              _     clrb
11571 DC20 4F              O     clra
11572 DC21 FD 00 4D        ..M   stad 004d
11573 DC24 FC 00 44        ..D   ldd 0044
11574 DC27 F3 0B B7        ...   addd 0bb7
11575 DC2A 04              .     lsrd
11576 DC2B F3 00 40        ..@   addd 0040
11577 DC2E B3 0B B7        ...   subd 0bb7
11578 DC31 FD 00 40        ..@   stad 0040
11579 DC34 20 59            Y    bra 59
11580 DC36 FC 0D 09        ...   ldd 0d09
11581 DC39 83 FF FF        ...   subd #ffff
11582 DC3C 26 05           &.    bne 05
11583 DC3E 5F              _     clrb
11584 DC3F 4F              O     clra
11585 DC40 FD 0D 09        ...   stad 0d09
11586 DC43 FE 0D 09        ...   ldx 0d09
11587 DC46 08              .     inx
11588 DC47 FF 0D 09        ...   stx 0d09
11589 DC4A FC 0B B7        ...   ldd 0bb7
11590 DC4D 37              7     pshb
11591 DC4E 36              6     psha
11592 DC4F 4F              O     clra
11593 DC50 5F              _     clrb
11594 DC51 37              7     pshb
11595 DC52 36              6     psha
11596 DC53 CC 0D 13        ...   ldd #0d13
11597 DC56 BD FB DF        ...   jsr fbdf
11598 DC59 31              1     ins
11599 DC5A 31              1     ins
11600 DC5B FE 0D 15        ...   ldx 0d15
11601 DC5E 3C              <     pshx
11602 DC5F FC 0D 13        ...   ldd 0d13
11603 DC62 37              7     pshb
11604 DC63 36              6     psha
11605 DC64 CE E1 00        ...   ldx #e100
11606 DC67 3C              <     pshx
11607 DC68 CC 05 F5        ...   ldd #05f5
11608 DC6B 37              7     pshb
11609 DC6C 36              6     psha
11610 DC6D 30              0     tsx
11611 DC6E EC 06           ..    ldd 06,x
11612 DC70 A3 02           ..    subd 02,x
11613 DC72 EC 04           ..    ldd 04,x
11614 DC74 E2 01           ..    sbcb 01,x
11615 DC76 A2 00           ..    sbca 00,x
11616 DC78 38              8     pulx
11617 DC79 38              8     pulx
11618 DC7A 38              8     pulx
11619 DC7B 38              8     pulx
11620 DC7C 25 11           %.    bcs 11
11621 DC7E CE 1F 00        ...   ldx #1f00
11622 DC81 3C              <     pshx
11623 DC82 CC FA 0A        ...   ldd #fa0a
11624 DC85 37              7     pshb
11625 DC86 36              6     psha
11626 DC87 CC 0D 13        ...   ldd #0d13
11627 DC8A BD FB DF        ...   jsr fbdf
11628 DC8D 31              1     ins
11629 DC8E 31              1     ins
11630 DC8F CE 00 1B        ...   ldx #001b
11631 DC92 1D 00           ..    bclr add,x 00,x
11632 DC94 01              .     nop
11633 DC95 7F 00 4F        ..O   clr 004f
11634 DC98 F6 00 11        ...   ldab 0011
11635 DC9B C4 08           ..    andb #08
11636 DC9D 26 03           &.    bne 03
11637 DC9F BD D9 5A        ..Z   jsr d95a
11638 DCA2 39              9     rts
11639
11640 DCA3 CE 0B BC        ...   ldx #0bbc
11641 DCA6 1D 00           ..    bclr add,x 00,x
11642 DCA8 1C F6           ..    bset add,x f6,x
11643 DCAA 0B              .     sev
11644 DCAB BC C4 03        ...   cmpx c403
11645 DCAE 26 48           &H    bne 48
11646 DCB0 FC 0B BD        ...   ldd 0bbd
11647 DCB3 37              7     pshb
11648 DCB4 36              6     psha
11649 DCB5 4F              O     clra
11650 DCB6 5F              _     clrb
11651 DCB7 37              7     pshb
11652 DCB8 36              6     psha
11653 DCB9 CC 0D F7        ...   ldd #0df7
11654 DCBC BD FB DF        ...   jsr fbdf
11655 DCBF 31              1     ins
11656 DCC0 31              1     ins
11657 DCC1 FE 0D F9        ...   ldx 0df9
11658 DCC4 3C              <     pshx
11659 DCC5 FC 0D F7        ...   ldd 0df7
11660 DCC8 37              7     pshb
11661 DCC9 36              6     psha
11662 DCCA CE E1 00        ...   ldx #e100
11663 DCCD 3C              <     pshx
11664 DCCE CC 05 F5        ...   ldd #05f5
11665 DCD1 37              7     pshb
11666 DCD2 36              6     psha
11667 DCD3 30              0     tsx
11668 DCD4 EC 06           ..    ldd 06,x
11669 DCD6 A3 02           ..    subd 02,x
11670 DCD8 EC 04           ..    ldd 04,x
11671 DCDA E2 01           ..    sbcb 01,x
11672 DCDC A2 00           ..    sbca 00,x
11673 DCDE 38              8     pulx
11674 DCDF 38              8     pulx
11675 DCE0 38              8     pulx
11676 DCE1 38              8     pulx
11677 DCE2 25 11           %.    bcs 11
11678 DCE4 CE 1F 00        ...   ldx #1f00
11679 DCE7 3C              <     pshx
11680 DCE8 CC FA 0A        ...   ldd #fa0a
11681 DCEB 37              7     pshb
11682 DCEC 36              6     psha
11683 DCED CC 0D F7        ...   ldd #0df7
11684 DCF0 BD FB DF        ...   jsr fbdf
11685 DCF3 31              1     ins
11686 DCF4 31              1     ins
11687 DCF5 7E DD D4        ~..   jmp ddd4
11688 DCF8 F6 0B BC        ...   ldab 0bbc
11689 DCFB C4 03           ..    andb #03
11690 DCFD C1 01           ..    cmpb #01
11691 DCFF 27 03           '.    beq 03
11692 DD01 7E DD D4        ~..   jmp ddd4
11693 DD04 F6 0B BC        ...   ldab 0bbc
11694 DD07 C4 E0           ..    andb #e0
11695 DD09 54              T     lsrb
11696 DD0A 54              T     lsrb
11697 DD0B 54              T     lsrb
11698 DD0C 54              T     lsrb
11699 DD0D 54              T     lsrb
11700 DD0E F7 0B BC        ...   stb 0bbc
11701 DD11 F6 0B BC        ...   ldab 0bbc
11702 DD14 F1 0B C4        ...   cmpb 0bc4
11703 DD17 26 33           &3    bne 33
11704 DD19 F6 0B D7        ...   ldab 0bd7
11705 DD1C C1 01           ..    cmpb #01
11706 DD1E 26 0A           &.    bne 0a
11707 DD20 7C 0C DB        |..   inc 0cdb
11708 DD23 C6 03           ..    ldab #03
11709 DD25 F7 00 48        ..H   stb 0048
11710 DD28 20 20                 bra 20
11711 DD2A F6 0B D8        ...   ldab 0bd8
11712 DD2D C1 01           ..    cmpb #01
11713 DD2F 26 0A           &.    bne 0a
11714 DD31 7C 0C DA        |..   inc 0cda
11715 DD34 C6 02           ..    ldab #02
11716 DD36 F7 00 48        ..H   stb 0048
11717 DD39 20 0F            .    bra 0f
11718 DD3B F6 0B D9        ...   ldab 0bd9
11719 DD3E C1 01           ..    cmpb #01
11720 DD40 26 08           &.    bne 08
11721 DD42 7C 0C D9        |..   inc 0cd9
11722 DD45 C6 01           ..    ldab #01
11723 DD47 F7 00 48        ..H   stb 0048
11724 DD4A 20 74            t    bra 74
11725 DD4C F6 0B BC        ...   ldab 0bbc
11726 DD4F F1 0B C5        ...   cmpb 0bc5
11727 DD52 26 33           &3    bne 33
11728 DD54 F6 0B D7        ...   ldab 0bd7
11729 DD57 C1 04           ..    cmpb #04
11730 DD59 26 0A           &.    bne 0a
11731 DD5B 7C 0C DB        |..   inc 0cdb
11732 DD5E C6 03           ..    ldab #03
11733 DD60 F7 00 48        ..H   stb 0048
11734 DD63 20 20                 bra 20
11735 DD65 F6 0B D8        ...   ldab 0bd8
11736 DD68 C1 04           ..    cmpb #04
11737 DD6A 26 0A           &.    bne 0a
11738 DD6C 7C 0C DA        |..   inc 0cda
11739 DD6F C6 02           ..    ldab #02
11740 DD71 F7 00 48        ..H   stb 0048
11741 DD74 20 0F            .    bra 0f
11742 DD76 F6 0B D9        ...   ldab 0bd9
11743 DD79 C1 04           ..    cmpb #04
11744 DD7B 26 08           &.    bne 08
11745 DD7D 7C 0C D9        |..   inc 0cd9
11746 DD80 C6 01           ..    ldab #01
11747 DD82 F7 00 48        ..H   stb 0048
11748 DD85 20 39            9    bra 39
11749 DD87 F6 0B BC        ...   ldab 0bbc
11750 DD8A F1 0B C6        ...   cmpb 0bc6
11751 DD8D 26 31           &1    bne 31
11752 DD8F F6 0B D7        ...   ldab 0bd7
11753 DD92 C1 02           ..    cmpb #02
11754 DD94 26 0A           &.    bne 0a
11755 DD96 7C 0C DB        |..   inc 0cdb
11756 DD99 C6 03           ..    ldab #03
11757 DD9B F7 00 48        ..H   stb 0048
11758 DD9E 20 20                 bra 20
11759 DDA0 F6 0B D8        ...   ldab 0bd8
11760 DDA3 C1 02           ..    cmpb #02
11761 DDA5 26 0A           &.    bne 0a
11762 DDA7 7C 0C DA        |..   inc 0cda
11763 DDAA C6 02           ..    ldab #02
11764 DDAC F7 00 48        ..H   stb 0048
11765 DDAF 20 0F            .    bra 0f
11766 DDB1 F6 0B D9        ...   ldab 0bd9
11767 DDB4 C1 02           ..    cmpb #02
11768 DDB6 26 08           &.    bne 08
11769 DDB8 7C 0C D9        |..   inc 0cd9
11770 DDBB C6 01           ..    ldab #01
11771 DDBD F7 00 48        ..H   stb 0048
11772 DDC0 F6 00 17        ...   ldab 0017
11773 DDC3 C4 08           ..    andb #08
11774 DDC5 26 0D           &.    bne 0d
11775 DDC7 F6 0B BC        ...   ldab 0bbc
11776 DDCA 26 08           &.    bne 08
11777 DDCC 7C 0C DC        |..   inc 0cdc
11778 DDCF C6 04           ..    ldab #04
11779 DDD1 F7 00 48        ..H   stb 0048
11780 DDD4 39              9     rts
11781
11782 DDD5 BD BE 69        ..i   jsr be69             ;jump3
11783 DDD8 C6 03           ..    ldab #03
11784 DDDA F7 00 1C        ...   stb 001c
11785 DDDD F6 00 1C        ...   ldab 001c
11786 DDE0 C1 0D           ..    cmpb #0d
11787 DDE2 24 1C           $.    bcc 1c
11788 DDE4 F6 00 1C        ...   ldab 001c
11789 DDE7 4F              O     clra
11790 DDE8 C3 0C B9        ...   addd #0cb9
11791 DDEB 8F              .     xgdx
11792 DDEC E6 00           ..    ldab 00,x
11793 DDEE 37              7     pshb
11794 DDEF CC 0B 9C        ...   ldd #0b9c
11795 DDF2 F0 00 1C        ...   subb 001c
11796 DDF5 82 00           ..    sbca #00
11797 DDF7 8F              .     xgdx
11798 DDF8 33              3     pulb
11799 DDF9 E7 00           ..    stb 00,x
11800 DDFB 7C 00 1C        |..   inc 001c
11801 DDFE 20 DD            .    bra dd
11802 DE00 BD BE 10        ...   jsr be10
11803 DE03 C6 14           ..    ldab #14
11804 DE05 F7 00 2C        ..,   stb 002c
11805 DE08 39              9     rts
11806
11807 DE09 CC 0B 9A        ...   ldd #0b9a
11808 DE0C BD C0 BA        ...   jsr c0ba             ;display:
11809 DE0F C6 14           ..    ldab #14
11810 DE11 F7 00 2C        ..,   stb 002c
11811 DE14 39              9     rts
11812
11813 DE15 F6 00 1B        ...   ldab 001b
11814 DE18 C4 01           ..    andb #01
11815 DE1A 26 03           &.    bne 03
11816 DE1C 7E DE A4        ~..   jmp dea4
11817 DE1F F6 00 06        ...   ldab 0006
11818 DE22 4F              O     clra
11819 DE23 05              .     asld
11820 DE24 C3 08 C8        ...   addd #08c8
11821 DE27 8F              .     xgdx
11822 DE28 EC 00           ..    ldd 00,x
11823 DE2A 84 08           ..    anda #08
11824 DE2C 27 76           'v    beq 76
11825 DE2E F6 00 11        ...   ldab 0011
11826 DE31 C4 08           ..    andb #08
11827 DE33 26 33           &3    bne 33
11828 DE35 F6 00 06        ...   ldab 0006
11829 DE38 F1 0B AF        ...   cmpb 0baf
11830 DE3B 27 20           '     beq 20
11831 DE3D F6 00 06        ...   ldab 0006
11832 DE40 F1 0B AE        ...   cmpb 0bae
11833 DE43 27 18           '.    beq 18
11834 DE45 F6 00 06        ...   ldab 0006
11835 DE48 F1 0B AD        ...   cmpb 0bad
11836 DE4B 27 10           '.    beq 10
11837 DE4D F6 00 06        ...   ldab 0006
11838 DE50 F1 0B AC        ...   cmpb 0bac
11839 DE53 27 08           '.    beq 08
11840 DE55 F6 00 06        ...   ldab 0006
11841 DE58 F1 0B AB        ...   cmpb 0bab
11842 DE5B 26 0B           &.    bne 0b
11843 DE5D CE 00 1B        ...   ldx #001b
11844 DE60 1D 00           ..    bclr add,x 00,x
11845 DE62 01              .     nop
11846 DE63 7F 00 4F        ..O   clr 004f
11847 DE66 20 3C            <    bra 3c
11848 DE68 FC 00 44        ..D   ldd 0044
11849 DE6B B3 0B B7        ...   subd 0bb7
11850 DE6E 23 2B           #+    bls 2b
11851 DE70 FC 00 40        ..@   ldd 0040
11852 DE73 F3 00 3E        ..>   addd 003e
11853 DE76 37              7     pshb
11854 DE77 36              6     psha
11855 DE78 FC 00 44        ..D   ldd 0044
11856 DE7B B3 0B B7        ...   subd 0bb7
11857 DE7E F3 00 44        ..D   addd 0044
11858 DE81 30              0     tsx
11859 DE82 A3 00           ..    subd 00,x
11860 DE84 31              1     ins
11861 DE85 31              1     ins
11862 DE86 22 13           ".    bhi 13
11863 DE88 FC 0B B7        ...   ldd 0bb7
11864 DE8B 27 0E           '.    beq 0e
11865 DE8D FC 00 44        ..D   ldd 0044
11866 DE90 B3 0B B7        ...   subd 0bb7
11867 DE93 F3 00 44        ..D   addd 0044
11868 DE96 FD 00 44        ..D   stad 0044
11869 DE99 20 09            .    bra 09
11870 DE9B CE 00 1B        ...   ldx #001b
11871 DE9E 1D 00           ..    bclr add,x 00,x
11872 DEA0 01              .     nop
11873 DEA1 7F 00 4F        ..O   clr 004f
11874 DEA4 39              9     rts
11875
11876 DEA5 F6 00 2B        ..+   ldab 002b
11877 DEA8 C1 00           ..    cmpb #00
11878 DEAA 26 0D           &.    bne 0d
11879 DEAC CE 00 12        ...   ldx #0012
11880 DEAF 3C              <     pshx
11881 DEB0 CC AE 7E        ..~   ldd #ae7e
11882 DEB3 BD C0 2E        ...   jsr c02e
11883 DEB6 38              8     pulx
11884 DEB7 20 2D            -    bra 2d
11885 DEB9 C1 01           ..    cmpb #01
11886 DEBB 26 0D           &.    bne 0d
11887 DEBD CE 00 0F        ...   ldx #000f
11888 DEC0 3C              <     pshx
11889 DEC1 CC AE 6D        ..m   ldd #ae6d
11890 DEC4 BD C0 2E        ...   jsr c02e
11891 DEC7 38              8     pulx
11892 DEC8 20 1C            .    bra 1c
11893 DECA C1 02           ..    cmpb #02
11894 DECC 26 0D           &.    bne 0d
11895 DECE CE 00 10        ...   ldx #0010
11896 DED1 3C              <     pshx
11897 DED2 CC AE 5B        ..[   ldd #ae5b
11898 DED5 BD C0 2E        ...   jsr c02e
11899 DED8 38              8     pulx
11900 DED9 20 0B            .    bra 0b
11901 DEDB CE 00 15        ...   ldx #0015
11902 DEDE 3C              <     pshx
11903 DEDF CC AE 44        ..D   ldd #ae44
11904 DEE2 BD C0 2E        ...   jsr c02e
11905 DEE5 38              8     pulx
11906 DEE6 39              9     rts
11907
11908 DEE7 F6 0B C0        ...   ldab 0bc0
11909 DEEA C4 01           ..    andb #01
11910 DEEC 26 07           &.    bne 07
11911 DEEE F6 0B C0        ...   ldab 0bc0
11912 DEF1 C4 04           ..    andb #04
11913 DEF3 27 15           '.    beq 15
11914 DEF5 C6 FF           ..    ldab #ff
11915 DEF7 F7 0B BC        ...   stb 0bbc
11916 DEFA F6 00 15        ...   ldab 0015
11917 DEFD 2D 03           -.    blt 03
11918 DEFF BD C6 7D        ..}   jsr c67d
11919 DF02 BD D6 6B        ..k   jsr d66b
11920 DF05 BD DC A3        ...   jsr dca3
11921 DF08 20 25            %    bra 25
11922 DF0A F6 0B C0        ...   ldab 0bc0
11923 DF0D C4 02           ..    andb #02
11924 DF0F 27 1E           '.    beq 1e
11925 DF11 F6 00 2F        ../   ldab 002f
11926 DF14 26 19           &.    bne 19
11927 DF16 F6 00 1B        ...   ldab 001b
11928 DF19 C4 02           ..    andb #02
11929 DF1B 26 12           &.    bne 12
11930 DF1D CC 00 FF        ...   ldd #00ff
11931 DF20 BD C7 E7        ...   jsr c7e7
11932 DF23 CE 00 1B        ...   ldx #001b
11933 DF26 1C 00           ..    bset add,x 00,x
11934 DF28 02              .     idiv
11935 DF29 CE 0B C1        ...   ldx #0bc1
11936 DF2C 1C 00           ..    bset add,x 00,x
11937 DF2E 04              .     lsrd
11938 DF2F F6 00 21        ..!   ldab 0021
11939 DF32 C4 20           .     andb #20
11940 DF34 27 07           '.    beq 07
11941 DF36 BD D6 52        ..R   jsr d652             ;jump5
11942 DF39 BD DE A5        ...   jsr dea5
11943 DF3C 39              9     rts
11944
11945 DF3D F6 00 4F        ..O   ldab 004f
11946 DF40 26 06           &.    bne 06
11947 DF42 CE 00 1B        ...   ldx #001b
11948 DF45 1D 00           ..    bclr add,x 00,x
11949 DF47 01              .     nop
11950 DF48 F6 00 25        ..%   ldab 0025
11951 DF4B 26 20           &     bne 20
11952 DF4D F6 00 1B        ...   ldab 001b
11953 DF50 C4 40           .@    andb #40
11954 DF52 27 19           '.    beq 19
11955 DF54 BD D6 52        ..R   jsr d652             ;jump5
11956 DF57 FC 00 40        ..@   ldd 0040
11957 DF5A 26 05           &.    bne 05
11958 DF5C FC 00 3E        ..>   ldd 003e
11959 DF5F 27 03           '.    beq 03
11960 DF61 BD DB 44        ..D   jsr db44
11961 DF64 BD D6 6B        ..k   jsr d66b
11962 DF67 CE 00 1B        ...   ldx #001b
11963 DF6A 1D 00           ..    bclr add,x 00,x
11964 DF6C 40              @     nega
11965 DF6D F6 00 2C        ..,   ldab 002c
11966 DF70 27 03           '.    beq 03
11967 DF72 7E E0 66        ~.f   jmp e066
11968 DF75 F6 00 34        ..4   ldab 0034
11969 DF78 26 0B           &.    bne 0b
11970 DF7A BD BE 69        ..i   jsr be69             ;jump3
11971 DF7D C6 32           .2    ldab #32
11972 DF7F F7 00 34        ..4   stb 0034
11973 DF82 7E E0 63        ~.c   jmp e063
11974 DF85 FC 00 40        ..@   ldd 0040
11975 DF88 26 05           &.    bne 05
11976 DF8A FC 00 3E        ..>   ldd 003e
11977 DF8D 27 16           '.    beq 16
11978 DF8F CE 00 01        ...   ldx #0001
11979 DF92 3C              <     pshx
11980 DF93 FC 00 40        ..@   ldd 0040
11981 DF96 F3 00 3E        ..>   addd 003e
11982 DF99 BD BE 9E        ...   jsr be9e
11983 DF9C 38              8     pulx
11984 DF9D C6 05           ..    ldab #05
11985 DF9F F7 00 2C        ..,   stb 002c
11986 DFA2 7E E0 63        ~.c   jmp e063
11987 DFA5 F6 0C D9        ...   ldab 0cd9
11988 DFA8 C1 04           ..    cmpb #04
11989 DFAA 24 07           $.    bcc 07
11990 DFAC F6 0B C0        ...   ldab 0bc0
11991 DFAF C4 01           ..    andb #01
11992 DFB1 26 07           &.    bne 07
11993 DFB3 F6 00 21        ..!   ldab 0021
11994 DFB6 C4 40           .@    andb #40
11995 DFB8 27 43           'C    beq 43
11996 DFBA F6 00 2B        ..+   ldab 002b
11997 DFBD C1 00           ..    cmpb #00
11998 DFBF 26 0D           &.    bne 0d
11999 DFC1 CE 00 19        ...   ldx #0019
12000 DFC4 3C              <     pshx
12001 DFC5 CC AD E7        ...   ldd #ade7
12002 DFC8 BD C0 2E        ...   jsr c02e
12003 DFCB 38              8     pulx
12004 DFCC 20 2D            -    bra 2d
12005 DFCE C1 01           ..    cmpb #01
12006 DFD0 26 0D           &.    bne 0d
12007 DFD2 CE 00 12        ...   ldx #0012
12008 DFD5 3C              <     pshx
12009 DFD6 CC AD D3        ...   ldd #add3
12010 DFD9 BD C0 2E        ...   jsr c02e
12011 DFDC 38              8     pulx
12012 DFDD 20 1C            .    bra 1c
12013 DFDF C1 02           ..    cmpb #02
12014 DFE1 26 0D           &.    bne 0d
12015 DFE3 CE 00 19        ...   ldx #0019
12016 DFE6 3C              <     pshx
12017 DFE7 CC AD B8        ...   ldd #adb8
12018 DFEA BD C0 2E        ...   jsr c02e
12019 DFED 38              8     pulx
12020 DFEE 20 0B            .    bra 0b
12021 DFF0 CE 00 11        ...   ldx #0011
12022 DFF3 3C              <     pshx
12023 DFF4 CC AD A5        ...   ldd #ada5
12024 DFF7 BD C0 2E        ...   jsr c02e
12025 DFFA 38              8     pulx
12026 DFFB 20 66            f    bra 66
12027 DFFD F6 0B C0        ...   ldab 0bc0
12028 E000 C4 08           ..    andb #08
12029 E002 27 52           'R    beq 52
12030 E004 F6 0B C1        ...   ldab 0bc1
12031 E007 C4 08           ..    andb #08
12032 E009 26 08           &.    bne 08
12033 E00B FC 0B EF        ...   ldd 0bef
12034 E00E 83 00 64        ..d   subd #0064
12035 E011 24 43           $C    bcc 43
12036 E013 F6 00 2B        ..+   ldab 002b
12037 E016 C1 00           ..    cmpb #00
12038 E018 26 0D           &.    bne 0d
12039 E01A CE 00 12        ...   ldx #0012
12040 E01D 3C              <     pshx
12041 E01E CC AE 30        ..0   ldd #ae30
12042 E021 BD C0 2E        ...   jsr c02e
12043 E024 38              8     pulx
12044 E025 20 2D            -    bra 2d
12045 E027 C1 01           ..    cmpb #01
12046 E029 26 0D           &.    bne 0d
12047 E02B CE 00 0B        ...   ldx #000b
12048 E02E 3C              <     pshx
12049 E02F CC AE 23        ..#   ldd #ae23
12050 E032 BD C0 2E        ...   jsr c02e
12051 E035 38              8     pulx
12052 E036 20 1C            .    bra 1c
12053 E038 C1 02           ..    cmpb #02
12054 E03A 26 0D           &.    bne 0d
12055 E03C CE 00 12        ...   ldx #0012
12056 E03F 3C              <     pshx
12057 E040 CC AE 0F        ...   ldd #ae0f
12058 E043 BD C0 2E        ...   jsr c02e
12059 E046 38              8     pulx
12060 E047 20 0B            .    bra 0b
12061 E049 CE 00 0B        ...   ldx #000b
12062 E04C 3C              <     pshx
12063 E04D CC AE 02        ...   ldd #ae02
12064 E050 BD C0 2E        ...   jsr c02e
12065 E053 38              8     pulx
12066 E054 20 0D            .    bra 0d
12067 E056 F6 0B BF        ...   ldab 0bbf
12068 E059 4F              O     clra
12069 E05A 37              7     pshb
12070 E05B 36              6     psha
12071 E05C CC 09 93        ...   ldd #0993
12072 E05F BD C0 2E        ...   jsr c02e
12073 E062 38              8     pulx
12074 E063 7E E5 6A        ~.j   jmp e56a
12075 E066 F6 00 06        ...   ldab 0006
12076 E069 26 03           &.    bne 03
12077 E06B 7E E5 6A        ~.j   jmp e56a
12078 E06E CE 00 1D        ...   ldx #001d
12079 E071 1C 00           ..    bset add,x 00,x
12080 E073 40              @     nega
12081 E074 BD E7 C7        ...   jsr e7c7
12082 E077 F6 00 06        ...   ldab 0006
12083 E07A C1 59           .Y    cmpb #59
12084 E07C 26 06           &.    bne 06
12085 E07E BD DE 09        ...   jsr de09
12086 E081 7E E5 5E        ~.^   jmp e55e
12087 E084 F6 00 06        ...   ldab 0006
12088 E087 BD D4 68        ..h   jsr d468
12089 E08A 83 00 00        ...   subd #0000
12090 E08D 27 18           '.    beq 18
12091 E08F BD D5 61        ..a   jsr d561
12092 E092 83 00 00        ...   subd #0000
12093 E095 26 10           &.    bne 10
12094 E097 BD D3 46        ..F   jsr d346
12095 E09A 83 00 00        ...   subd #0000
12096 E09D 26 08           &.    bne 08
12097 E09F BD D7 83        ...   jsr d783
12098 E0A2 83 00 00        ...   subd #0000
12099 E0A5 27 09           '.    beq 09
12100 E0A7 BD E5 D1        ...   jsr e5d1
12101 E0AA BD D8 E9        ...   jsr d8e9
12102 E0AD 7E E5 5E        ~.^   jmp e55e
12103 E0B0 F6 00 06        ...   ldab 0006
12104 E0B3 4F              O     clra
12105 E0B4 05              .     asld
12106 E0B5 C3 08 00        ...   addd #0800
12107 E0B8 8F              .     xgdx
12108 E0B9 EC 00           ..    ldd 00,x
12109 E0BB C4 FF           ..    andb #ff
12110 E0BD 84 3F           .?    anda #3f
12111 E0BF FD 00 44        ..D   stad 0044
12112 E0C2 F6 00 06        ...   ldab 0006
12113 E0C5 4F              O     clra
12114 E0C6 05              .     asld
12115 E0C7 C3 08 C8        ...   addd #08c8
12116 E0CA 8F              .     xgdx
12117 E0CB EC 00           ..    ldd 00,x
12118 E0CD C4 7F           ..    andb #7f
12119 E0CF 4F              O     clra
12120 E0D0 FD 00 4D        ..M   stad 004d
12121 E0D3 F6 0B C0        ...   ldab 0bc0
12122 E0D6 2C 05           ,.    bge 05
12123 E0D8 5F              _     clrb
12124 E0D9 4F              O     clra
12125 E0DA FD 00 44        ..D   stad 0044
12126 E0DD F6 0B C0        ...   ldab 0bc0
12127 E0E0 C4 02           ..    andb #02
12128 E0E2 26 03           &.    bne 03
12129 E0E4 BD DE 15        ...   jsr de15
12130 E0E7 F6 00 11        ...   ldab 0011
12131 E0EA C4 20           .     andb #20
12132 E0EC 26 1A           &.    bne 1a
12133 E0EE F6 0B C0        ...   ldab 0bc0
12134 E0F1 C4 02           ..    andb #02
12135 E0F3 26 13           &.    bne 13
12136 E0F5 FC 00 40        ..@   ldd 0040
12137 E0F8 F3 00 3E        ..>   addd 003e
12138 E0FB B3 00 44        ..D   subd 0044
12139 E0FE 25 08           %.    bcs 08
12140 E100 F6 0B C0        ...   ldab 0bc0
12141 E103 2D 03           -.    blt 03
12142 E105 BD DA 64        ..d   jsr da64
12143 E108 FC 00 40        ..@   ldd 0040
12144 E10B F3 00 3E        ..>   addd 003e
12145 E10E B3 00 44        ..D   subd 0044
12146 E111 24 50           $P    bcc 50
12147 E113 F6 0B C0        ...   ldab 0bc0
12148 E116 C4 10           ..    andb #10
12149 E118 26 49           &I    bne 49
12150 E11A F6 00 2B        ..+   ldab 002b
12151 E11D C1 00           ..    cmpb #00
12152 E11F 26 08           &.    bne 08
12153 E121 CC AC C9        ...   ldd #acc9
12154 E124 BD C0 BA        ...   jsr c0ba             ;display:
12155 E127 20 1E            .    bra 1e
12156 E129 C1 01           ..    cmpb #01
12157 E12B 26 08           &.    bne 08
12158 E12D CC AC BE        ...   ldd #acbe
12159 E130 BD C0 BA        ...   jsr c0ba             ;display:
12160 E133 20 12            .    bra 12
12161 E135 C1 02           ..    cmpb #02
12162 E137 26 08           &.    bne 08
12163 E139 CC AC B3        ...   ldd #acb3
12164 E13C BD C0 BA        ...   jsr c0ba             ;display:
12165 E13F 20 06            .    bra 06
12166 E141 CC AC A8        ...   ldd #aca8
12167 E144 BD C0 BA        ...   jsr c0ba             ;display:
12168 E147 BD D8 D3        ...   jsr d8d3
12169 E14A CE 00 00        ...   ldx #0000
12170 E14D 3C              <     pshx
12171 E14E FC 00 44        ..D   ldd 0044
12172 E151 BD BE 9E        ...   jsr be9e
12173 E154 38              8     pulx
12174 E155 BD E5 D1        ...   jsr e5d1
12175 E158 BD D8 D3        ...   jsr d8d3
12176 E15B C6 0C           ..    ldab #0c
12177 E15D F7 00 2C        ..,   stb 002c
12178 E160 7E E5 5E        ~.^   jmp e55e
12179 E163 F6 0B C0        ...   ldab 0bc0
12180 E166 C4 01           ..    andb #01
12181 E168 26 11           &.    bne 11
12182 E16A F6 0B C0        ...   ldab 0bc0
12183 E16D C4 04           ..    andb #04
12184 E16F 26 0A           &.    bne 0a
12185 E171 F6 0B C0        ...   ldab 0bc0
12186 E174 C4 0F           ..    andb #0f
12187 E176 27 03           '.    beq 03
12188 E178 7E E3 35        ~.5   jmp e335
12189 E17B FC 00 40        ..@   ldd 0040
12190 E17E F3 00 3E        ..>   addd 003e
12191 E181 B3 00 44        ..D   subd 0044
12192 E184 FD 10 16        ...   stad 1016
12193 E187 F6 00 15        ...   ldab 0015
12194 E18A C4 01           ..    andb #01
12195 E18C 27 08           '.    beq 08
12196 E18E FC 10 16        ...   ldd 1016
12197 E191 83 00 64        ..d   subd #0064
12198 E194 25 3C           %<    bcs 3c
12199 E196 F6 00 15        ...   ldab 0015
12200 E199 C4 02           ..    andb #02
12201 E19B 27 08           '.    beq 08
12202 E19D FC 10 16        ...   ldd 1016
12203 E1A0 83 00 C8        ...   subd #00c8
12204 E1A3 25 2D           %-    bcs 2d
12205 E1A5 F6 00 15        ...   ldab 0015
12206 E1A8 C4 04           ..    andb #04
12207 E1AA 27 08           '.    beq 08
12208 E1AC FC 10 16        ...   ldd 1016
12209 E1AF 83 01 F4        ...   subd #01f4
12210 E1B2 25 1E           %.    bcs 1e
12211 E1B4 F6 00 15        ...   ldab 0015
12212 E1B7 C4 08           ..    andb #08
12213 E1B9 27 08           '.    beq 08
12214 E1BB FC 10 16        ...   ldd 1016
12215 E1BE 83 03 E8        ...   subd #03e8
12216 E1C1 25 0F           %.    bcs 0f
12217 E1C3 F6 00 15        ...   ldab 0015
12218 E1C6 C4 10           ..    andb #10
12219 E1C8 27 13           '.    beq 13
12220 E1CA FC 10 16        ...   ldd 1016
12221 E1CD 83 07 D0        ...   subd #07d0
12222 E1D0 24 0B           $.    bcc 0b
12223 E1D2 BD C0 E0        ...   jsr c0e0
12224 E1D5 83 00 00        ...   subd #0000
12225 E1D8 26 01           &.    bne 01
12226 E1DA 39              9     rts
12227
12228 E1DB 20 03            .    bra 03
12229 E1DD BD C5 D3        ...   jsr c5d3             ;jump6
12230 E1E0 BD D6 52        ..R   jsr d652             ;jump5
12231 E1E3 FC 00 40        ..@   ldd 0040
12232 E1E6 B3 00 44        ..D   subd 0044
12233 E1E9 F3 00 3E        ..>   addd 003e
12234 E1EC FD 00 40        ..@   stad 0040
12235 E1EF 5F              _     clrb
12236 E1F0 4F              O     clra
12237 E1F1 FD 00 3E        ..>   stad 003e
12238 E1F4 CE 00 1B        ...   ldx #001b
12239 E1F7 1C 00           ..    bset add,x 00,x
12240 E1F9 80 BD           ..    suba #bd
12241 E1FB D2 13 83        ...   sbcb 13
12242 E1FE 00              .     test
12243 E1FF 00              .     test
12244 E200 26 12           &.    bne 12
12245 E202 BD E5 D1        ...   jsr e5d1
12246 E205 BD D8 E9        ...   jsr d8e9
12247 E208 FC 00 40        ..@   ldd 0040
12248 E20B F3 00 44        ..D   addd 0044
12249 E20E FD 00 40        ..@   stad 0040
12250 E211 7E E3 29        ~.)   jmp e329
12251 E214 BD DB CB        ...   jsr dbcb
12252 E217 F6 00 1B        ...   ldab 001b
12253 E21A C4 20           .     andb #20
12254 E21C 27 45           'E    beq 45
12255 E21E FC 00 44        ..D   ldd 0044
12256 E221 37              7     pshb
12257 E222 36              6     psha
12258 E223 4F              O     clra
12259 E224 5F              _     clrb
12260 E225 37              7     pshb
12261 E226 36              6     psha
12262 E227 CC 0D FB        ...   ldd #0dfb
12263 E22A BD FB DF        ...   jsr fbdf
12264 E22D 31              1     ins
12265 E22E 31              1     ins
12266 E22F FE 0D FD        ...   ldx 0dfd
12267 E232 3C              <     pshx
12268 E233 FC 0D FB        ...   ldd 0dfb
12269 E236 37              7     pshb
12270 E237 36              6     psha
12271 E238 CE E1 00        ...   ldx #e100
12272 E23B 3C              <     pshx
12273 E23C CC 05 F5        ...   ldd #05f5
12274 E23F 37              7     pshb
12275 E240 36              6     psha
12276 E241 30              0     tsx
12277 E242 EC 06           ..    ldd 06,x
12278 E244 A3 02           ..    subd 02,x
12279 E246 EC 04           ..    ldd 04,x
12280 E248 E2 01           ..    sbcb 01,x
12281 E24A A2 00           ..    sbca 00,x
12282 E24C 38              8     pulx
12283 E24D 38              8     pulx
12284 E24E 38              8     pulx
12285 E24F 38              8     pulx
12286 E250 25 11           %.    bcs 11
12287 E252 CE 1F 00        ...   ldx #1f00
12288 E255 3C              <     pshx
12289 E256 CC FA 0A        ...   ldd #fa0a
12290 E259 37              7     pshb
12291 E25A 36              6     psha
12292 E25B CC 0D FB        ...   ldd #0dfb
12293 E25E BD FB DF        ...   jsr fbdf
12294 E261 31              1     ins
12295 E262 31              1     ins
12296 E263 F6 0B C0        ...   ldab 0bc0
12297 E266 2C 78           ,x    bge 78
12298 E268 F6 00 06        ...   ldab 0006
12299 E26B 4F              O     clra
12300 E26C 05              .     asld
12301 E26D C3 08 00        ...   addd #0800
12302 E270 8F              .     xgdx
12303 E271 EC 00           ..    ldd 00,x
12304 E273 C4 FF           ..    andb #ff
12305 E275 26 02           &.    bne 02
12306 E277 84 3F           .?    anda #3f
12307 E279 27 65           'e    beq 65
12308 E27B FC 0D 0D        ...   ldd 0d0d
12309 E27E 83 FF FF        ...   subd #ffff
12310 E281 26 05           &.    bne 05
12311 E283 5F              _     clrb
12312 E284 4F              O     clra
12313 E285 FD 0D 0D        ...   stad 0d0d
12314 E288 FE 0D 0D        ...   ldx 0d0d
12315 E28B 08              .     inx
12316 E28C FF 0D 0D        ...   stx 0d0d
12317 E28F F6 00 06        ...   ldab 0006
12318 E292 4F              O     clra
12319 E293 05              .     asld
12320 E294 C3 08 00        ...   addd #0800
12321 E297 8F              .     xgdx
12322 E298 EC 00           ..    ldd 00,x
12323 E29A C4 FF           ..    andb #ff
12324 E29C 84 3F           .?    anda #3f
12325 E29E 37              7     pshb
12326 E29F 36              6     psha
12327 E2A0 4F              O     clra
12328 E2A1 5F              _     clrb
12329 E2A2 37              7     pshb
12330 E2A3 36              6     psha
12331 E2A4 CC 0D 1B        ...   ldd #0d1b
12332 E2A7 BD FB DF        ...   jsr fbdf
12333 E2AA 31              1     ins
12334 E2AB 31              1     ins
12335 E2AC FE 0D 1D        ...   ldx 0d1d
12336 E2AF 3C              <     pshx
12337 E2B0 FC 0D 1B        ...   ldd 0d1b
12338 E2B3 37              7     pshb
12339 E2B4 36              6     psha
12340 E2B5 CE E1 00        ...   ldx #e100
12341 E2B8 3C              <     pshx
12342 E2B9 CC 05 F5        ...   ldd #05f5
12343 E2BC 37              7     pshb
12344 E2BD 36              6     psha
12345 E2BE 30              0     tsx
12346 E2BF EC 06           ..    ldd 06,x
12347 E2C1 A3 02           ..    subd 02,x
12348 E2C3 EC 04           ..    ldd 04,x
12349 E2C5 E2 01           ..    sbcb 01,x
12350 E2C7 A2 00           ..    sbca 00,x
12351 E2C9 38              8     pulx
12352 E2CA 38              8     pulx
12353 E2CB 38              8     pulx
12354 E2CC 38              8     pulx
12355 E2CD 25 11           %.    bcs 11
12356 E2CF CE 1F 00        ...   ldx #1f00
12357 E2D2 3C              <     pshx
12358 E2D3 CC FA 0A        ...   ldd #fa0a
12359 E2D6 37              7     pshb
12360 E2D7 36              6     psha
12361 E2D8 CC 0D 1B        ...   ldd #0d1b
12362 E2DB BD FB DF        ...   jsr fbdf
12363 E2DE 31              1     ins
12364 E2DF 31              1     ins
12365 E2E0 F6 00 11        ...   ldab 0011
12366 E2E3 C4 10           ..    andb #10
12367 E2E5 26 14           &.    bne 14
12368 E2E7 FC 00 40        ..@   ldd 0040
12369 E2EA 27 0F           '.    beq 0f
12370 E2EC FC 00 40        ..@   ldd 0040
12371 E2EF B3 00 50        ..P   subd 0050
12372 E2F2 24 15           $.    bcc 15
12373 E2F4 F6 00 11        ...   ldab 0011
12374 E2F7 C4 10           ..    andb #10
12375 E2F9 26 0E           &.    bne 0e
12376 E2FB BD DB 44        ..D   jsr db44
12377 E2FE CE 00 1B        ...   ldx #001b
12378 E301 1D 00           ..    bclr add,x 00,x
12379 E303 40              @     nega
12380 E304 7F 00 25        ..%   clr 0025
12381 E307 20 1A            .    bra 1a
12382 E309 7F 00 2C        ..,   clr 002c
12383 E30C CC 01 F4        ...   ldd #01f4
12384 E30F BD E5 71        ..q   jsr e571             ;jump13
12385 E312 BD E5 AA        ...   jsr e5aa             ;jump12
12386 E315 BD D8 E9        ...   jsr d8e9
12387 E318 CE 00 1B        ...   ldx #001b
12388 E31B 1C 00           ..    bset add,x 00,x
12389 E31D 40              @     nega
12390 E31E C6 0A           ..    ldab #0a
12391 E320 F7 00 25        ..%   stb 0025
12392 E323 BD D7 FF        ...   jsr d7ff
12393 E326 BD D8 40        ..@   jsr d840
12394 E329 BD E8 9A        ...   jsr e89a
12395 E32C CE 0B C1        ...   ldx #0bc1
12396 E32F 1D 00           ..    bclr add,x 00,x
12397 E331 08              .     inx
12398 E332 7E E5 5E        ~.^   jmp e55e
12399 E335 F6 0B C0        ...   ldab 0bc0
12400 E338 C4 02           ..    andb #02
12401 E33A 26 03           &.    bne 03
12402 E33C 7E E5 5E        ~.^   jmp e55e
12403 E33F 5F              _     clrb
12404 E340 4F              O     clra
12405 E341 FD 00 76        ..v   stad 0076
12406 E344 CE 00 17        ...   ldx #0017
12407 E347 1D 00           ..    bclr add,x 00,x
12408 E349 01              .     nop
12409 E34A CE 00 17        ...   ldx #0017
12410 E34D 1D 00           ..    bclr add,x 00,x
12411 E34F 02              .     idiv
12412 E350 FC 00 44        ..D   ldd 0044
12413 E353 26 1C           &.    bne 1c
12414 E355 F6 0B C0        ...   ldab 0bc0
12415 E358 C4 10           ..    andb #10
12416 E35A 26 08           &.    bne 08
12417 E35C CE 00 21        ..!   ldx #0021
12418 E35F 1C 00           ..    bset add,x 00,x
12419 E361 80 20           .     suba #20
12420 E363 0B              .     sev
12421 E364 CE 00 21        ..!   ldx #0021
12422 E367 1D 00           ..    bclr add,x 00,x
12423 E369 80 C6           ..    suba #c6
12424 E36B 05              .     asld
12425 E36C F7 00 75        ..u   stb 0075
12426 E36F 20 57            W    bra 57
12427 E371 F6 0B C0        ...   ldab 0bc0
12428 E374 C4 10           ..    andb #10
12429 E376 27 50           'P    beq 50
12430 E378 FC 00 40        ..@   ldd 0040
12431 E37B 26 4B           &K    bne 4b
12432 E37D F6 0B C0        ...   ldab 0bc0
12433 E380 C4 20           .     andb #20
12434 E382 27 3E           '>    beq 3e
12435 E384 CE 00 17        ...   ldx #0017
12436 E387 1C 00           ..    bset add,x 00,x
12437 E389 01              .     nop
12438 E38A F6 00 2B        ..+   ldab 002b
12439 E38D C1 00           ..    cmpb #00
12440 E38F 26 08           &.    bne 08
12441 E391 CC AC C9        ...   ldd #acc9
12442 E394 BD C0 BA        ...   jsr c0ba             ;display:
12443 E397 20 1E            .    bra 1e
12444 E399 C1 01           ..    cmpb #01
12445 E39B 26 08           &.    bne 08
12446 E39D CC AC BE        ...   ldd #acbe
12447 E3A0 BD C0 BA        ...   jsr c0ba             ;display:
12448 E3A3 20 12            .    bra 12
12449 E3A5 C1 02           ..    cmpb #02
12450 E3A7 26 08           &.    bne 08
12451 E3A9 CC AC B3        ...   ldd #acb3
12452 E3AC BD C0 BA        ...   jsr c0ba             ;display:
12453 E3AF 20 06            .    bra 06
12454 E3B1 CC AC A8        ...   ldd #aca8
12455 E3B4 BD C0 BA        ...   jsr c0ba             ;display:
12456 E3B7 BD D8 D3        ...   jsr d8d3
12457 E3BA CE 00 17        ...   ldx #0017
12458 E3BD 1C 00           ..    bset add,x 00,x
12459 E3BF 02              .     idiv
12460 E3C0 20 06            .    bra 06
12461 E3C2 CE 00 1F        ...   ldx #001f
12462 E3C5 1C 00           ..    bset add,x 00,x
12463 E3C7 08              .     inx
12464 E3C8 CE 00 1D        ...   ldx #001d
12465 E3CB 1C 00           ..    bset add,x 00,x
12466 E3CD 02              .     idiv
12467 E3CE CE 00 19        ...   ldx #0019
12468 E3D1 1C 00           ..    bset add,x 00,x
12469 E3D3 08              .     inx
12470 E3D4 C6 32           .2    ldab #32
12471 E3D6 F7 00 31        ..1   stb 0031
12472 E3D9 C6 19           ..    ldab #19
12473 E3DB F7 00 36        ..6   stb 0036
12474 E3DE F6 00 1D        ...   ldab 001d
12475 E3E1 C4 02           ..    andb #02
12476 E3E3 26 03           &.    bne 03
12477 E3E5 7E E4 6E        ~.n   jmp e46e
12478 E3E8 F6 00 75        ..u   ldab 0075
12479 E3EB C1 04           ..    cmpb #04
12480 E3ED 22 05           ".    bhi 05
12481 E3EF F6 00 36        ..6   ldab 0036
12482 E3F2 26 3C           &<    bne 3c
12483 E3F4 7F 00 06        ...   clr 0006
12484 E3F7 5F              _     clrb
12485 E3F8 4F              O     clra
12486 E3F9 FD 00 76        ..v   stad 0076
12487 E3FC 7F 00 2E        ...   clr 002e
12488 E3FF 7F 00 2C        ..,   clr 002c
12489 E402 7F 00 75        ..u   clr 0075
12490 E405 CE 00 17        ...   ldx #0017
12491 E408 1D 00           ..    bclr add,x 00,x
12492 E40A 01              .     nop
12493 E40B CE 00 19        ...   ldx #0019
12494 E40E 1D 00           ..    bclr add,x 00,x
12495 E410 08              .     inx
12496 E411 CE 00 1B        ...   ldx #001b
12497 E414 1D 00           ..    bclr add,x 00,x
12498 E416 80 CE           ..    suba #ce
12499 E418 00              .     test
12500 E419 1D 1D           ..    bclr add,x 1d,x
12501 E41B 00              .     test
12502 E41C 40              @     nega
12503 E41D CE 00 1D        ...   ldx #001d
12504 E420 1D 00           ..    bclr add,x 00,x
12505 E422 02              .     idiv
12506 E423 CE 00 1F        ...   ldx #001f
12507 E426 1D 00           ..    bclr add,x 00,x
12508 E428 08              .     inx
12509 E429 CE 00 21        ..!   ldx #0021
12510 E42C 1D 00           ..    bclr add,x 00,x
12511 E42E 80 39           .9    suba #39
12512 E430 F6 0B C0        ...   ldab 0bc0
12513 E433 C4 20           .     andb #20
12514 E435 27 34           '4    beq 34
12515 E437 F6 00 17        ...   ldab 0017
12516 E43A C4 01           ..    andb #01
12517 E43C 26 2D           &-    bne 2d
12518 E43E F6 00 17        ...   ldab 0017
12519 E441 C4 02           ..    andb #02
12520 E443 27 26           '&    beq 26
12521 E445 CE 00 00        ...   ldx #0000
12522 E448 3C              <     pshx
12523 E449 FC 00 76        ..v   ldd 0076
12524 E44C BD BE 9E        ...   jsr be9e
12525 E44F 38              8     pulx
12526 E450 FC 00 76        ..v   ldd 0076
12527 E453 26 06           &.    bne 06
12528 E455 CE 00 17        ...   ldx #0017
12529 E458 1D 00           ..    bclr add,x 00,x
12530 E45A 02              .     idiv
12531 E45B F6 00 17        ...   ldab 0017
12532 E45E C4 02           ..    andb #02
12533 E460 27 09           '.    beq 09
12534 E462 BD E5 D1        ...   jsr e5d1
12535 E465 CE 00 17        ...   ldx #0017
12536 E468 1D 00           ..    bclr add,x 00,x
12537 E46A 02              .     idiv
12538 E46B 7E E3 DE        ~..   jmp e3de
12539 E46E CE 00 21        ..!   ldx #0021
12540 E471 1D 00           ..    bclr add,x 00,x
12541 E473 80 CE           ..    suba #ce
12542 E475 00              .     test
12543 E476 1F 1D 00 08     ....  brclr 1d,x 00 08
12544 E47A BD D2 13        ...   jsr d213
12545 E47D 83 00 00        ...   subd #0000
12546 E480 26 0F           &.    bne 0f
12547 E482 CC 00 80        ...   ldd #0080
12548 E485 BD C7 E7        ...   jsr c7e7
12549 E488 BD E5 D1        ...   jsr e5d1
12550 E48B BD D8 E9        ...   jsr d8e9
12551 E48E 7E E5 5E        ~.^   jmp e55e
12552 E491 F6 00 2B        ..+   ldab 002b
12553 E494 C1 00           ..    cmpb #00
12554 E496 26 08           &.    bne 08
12555 E498 CC AD 16        ...   ldd #ad16
12556 E49B BD C0 BA        ...   jsr c0ba             ;display:
12557 E49E 20 1E            .    bra 1e
12558 E4A0 C1 01           ..    cmpb #01
12559 E4A2 26 08           &.    bne 08
12560 E4A4 CC AD 0B        ...   ldd #ad0b
12561 E4A7 BD C0 BA        ...   jsr c0ba             ;display:
12562 E4AA 20 12            .    bra 12
12563 E4AC C1 02           ..    cmpb #02
12564 E4AE 26 08           &.    bne 08
12565 E4B0 CC AD 00        ...   ldd #ad00
12566 E4B3 BD C0 BA        ...   jsr c0ba             ;display:
12567 E4B6 20 06            .    bra 06
12568 E4B8 CC AC F5        ...   ldd #acf5
12569 E4BB BD C0 BA        ...   jsr c0ba             ;display:
12570 E4BE BD D8 D3        ...   jsr d8d3
12571 E4C1 CE 00 01        ...   ldx #0001
12572 E4C4 3C              <     pshx
12573 E4C5 FC 00 40        ..@   ldd 0040
12574 E4C8 BD BE 9E        ...   jsr be9e
12575 E4CB 38              8     pulx
12576 E4CC 5F              _     clrb
12577 E4CD 4F              O     clra
12578 E4CE BD C7 E7        ...   jsr c7e7
12579 E4D1 F6 0B C0        ...   ldab 0bc0
12580 E4D4 2D 03           -.    blt 03
12581 E4D6 7E E5 58        ~.X   jmp e558
12582 E4D9 F6 0B C0        ...   ldab 0bc0
12583 E4DC C4 10           ..    andb #10
12584 E4DE 26 78           &x    bne 78
12585 E4E0 F6 00 06        ...   ldab 0006
12586 E4E3 4F              O     clra
12587 E4E4 05              .     asld
12588 E4E5 C3 08 00        ...   addd #0800
12589 E4E8 8F              .     xgdx
12590 E4E9 EC 00           ..    ldd 00,x
12591 E4EB C4 FF           ..    andb #ff
12592 E4ED 26 02           &.    bne 02
12593 E4EF 84 3F           .?    anda #3f
12594 E4F1 27 65           'e    beq 65
12595 E4F3 FC 0D 0D        ...   ldd 0d0d
12596 E4F6 83 FF FF        ...   subd #ffff
12597 E4F9 26 05           &.    bne 05
12598 E4FB 5F              _     clrb
12599 E4FC 4F              O     clra
12600 E4FD FD 0D 0D        ...   stad 0d0d
12601 E500 FE 0D 0D        ...   ldx 0d0d
12602 E503 08              .     inx
12603 E504 FF 0D 0D        ...   stx 0d0d
12604 E507 F6 00 06        ...   ldab 0006
12605 E50A 4F              O     clra
12606 E50B 05              .     asld
12607 E50C C3 08 00        ...   addd #0800
12608 E50F 8F              .     xgdx
12609 E510 EC 00           ..    ldd 00,x
12610 E512 C4 FF           ..    andb #ff
12611 E514 84 3F           .?    anda #3f
12612 E516 37              7     pshb
12613 E517 36              6     psha
12614 E518 4F              O     clra
12615 E519 5F              _     clrb
12616 E51A 37              7     pshb
12617 E51B 36              6     psha
12618 E51C CC 0D 1B        ...   ldd #0d1b
12619 E51F BD FB DF        ...   jsr fbdf
12620 E522 31              1     ins
12621 E523 31              1     ins
12622 E524 FE 0D 1D        ...   ldx 0d1d
12623 E527 3C              <     pshx
12624 E528 FC 0D 1B        ...   ldd 0d1b
12625 E52B 37              7     pshb
12626 E52C 36              6     psha
12627 E52D CE E1 00        ...   ldx #e100
12628 E530 3C              <     pshx
12629 E531 CC 05 F5        ...   ldd #05f5
12630 E534 37              7     pshb
12631 E535 36              6     psha
12632 E536 30              0     tsx
12633 E537 EC 06           ..    ldd 06,x
12634 E539 A3 02           ..    subd 02,x
12635 E53B EC 04           ..    ldd 04,x
12636 E53D E2 01           ..    sbcb 01,x
12637 E53F A2 00           ..    sbca 00,x
12638 E541 38              8     pulx
12639 E542 38              8     pulx
12640 E543 38              8     pulx
12641 E544 38              8     pulx
12642 E545 25 11           %.    bcs 11
12643 E547 CE 1F 00        ...   ldx #1f00
12644 E54A 3C              <     pshx
12645 E54B CC FA 0A        ...   ldd #fa0a
12646 E54E 37              7     pshb
12647 E54F 36              6     psha
12648 E550 CC 0D 1B        ...   ldd #0d1b
12649 E553 BD FB DF        ...   jsr fbdf
12650 E556 31              1     ins
12651 E557 31              1     ins
12652 E558 BD D7 FF        ...   jsr d7ff
12653 E55B BD D8 40        ..@   jsr d840
12654 E55E 7F 00 06        ...   clr 0006
12655 E561 7F 00 2E        ...   clr 002e
12656 E564 CE 00 1B        ...   ldx #001b
12657 E567 1D 00           ..    bclr add,x 00,x
12658 E569 80 CE           ..    suba #ce
12659 E56B 00              .     test
12660 E56C 1D 1D           ..    bclr add,x 1d,x
12661 E56E 00              .     test
12662 E56F 40              @     nega
12663 E570 39              9     rts
12664
12665 ;!!! Is this a delay routine?  It gets called between displaying strings
12666 ;on startup.  Looks like a delay.  e61b just stores 0a at 0031 and returns.
12667 jump13:
12668 E571 37              7     pshb
12669 E572 36              6     psha
12670 E573 34              4     des
12671 E574 30              0     tsx
12672 E575 EC 01           ..    ldd 01,x
12673 E577 83 00 01        ...   subd #0001
12674 E57A ED 01           ..    stad 01,x
12675 E57C 2D 15           -.    blt 15
12676 E57E C6 41           .A    ldab #41
12677 E580 30              0     tsx
12678 E581 E7 00           ..    stb 00,x
12679 E583 30              0     tsx
12680 E584 E6 00           ..    ldab 00,x
12681 E586 6A 00           j.    dec 00,x
12682 E588 C1 00           ..    cmpb #00
12683 E58A 23 02           #.    bls 02
12684 E58C 20 F5            .    bra f5
12685 E58E BD E6 1B        ...   jsr e61b             ;jump4
12686 E591 20 E1            .    bra e1
12687 E593 38              8     pulx         ;this must just be a standard 'pull 3
12688 E594 31              1     ins          ;bytes and I don't care where they go'
12689                                         ;to clean up the stack.
12690 E595 39              9     rts
12691
12692 E596 34              4     des
12693 E597 C6 32           .2    ldab #32
12694 E599 30              0     tsx
12695 E59A E7 00           ..    stb 00,x
12696 E59C 30              0     tsx
12697 E59D E6 00           ..    ldab 00,x
12698 E59F C1 00           ..    cmpb #00
12699 E5A1 23 05           #.    bls e5a8
12700 E5A3 30              0     tsx
12701 E5A4 6A 00           j.    dec 00,x
12702 E5A6 20 F4            .    bra e59c
12703 E5A8 31              1     ins
12704 E5A9 39              9     rts
12705
12706 jump12:
12707 E5AA F6 00 33        ..3   ldab 0033
12708 E5AD 27 0C           '.    beq 0c
12709 E5AF F6 00 29        ..)   ldab 0029
12710 E5B2 27 05           '.    beq 05
12711 E5B4 C6 02           ..    ldab #02
12712 E5B6 F7 00 33        ..3   stb 0033
12713 E5B9 20 15            .    bra 15
12714 E5BB C6 03           ..    ldab #03
12715 E5BD F7 00 32        ..2   stb 0032
12716 E5C0 FC 00 3B        ..;   ldd 003b
12717 E5C3 27 06           '.    beq 06
12718 E5C5 CC 02 33        ..3   ldd #0233
12719 E5C8 FD 00 3B        ..;   stad 003b
12720 E5CB C6 02           ..    ldab #02
12721 E5CD F7 00 33        ..3   stb 0033
12722 E5D0 39              9     rts
12723
12724 E5D1 C6 0B           ..    ldab #0b
12725 E5D3 F7 00 32        ..2   stb 0032
12726 E5D6 39              9     rts
12727
12728 E5D7 37              7     pshb
12729 E5D8 36              6     psha
12730 E5D9 3C              <     pshx
12731 E5DA 3C              <     pshx
12732 E5DB 5F              _     clrb
12733 E5DC 4F              O     clra
12734 E5DD 30              0     tsx
12735 E5DE ED 00           ..    stad 00,x
12736 E5E0 CC 00 64        ..d   ldd #0064
12737 E5E3 ED 02           ..    stad 02,x
12738 E5E5 30              0     tsx
12739 E5E6 EC 02           ..    ldd 02,x
12740 E5E8 2F 21           /!    ble 21
12741 E5EA 30              0     tsx
12742 E5EB EE 04           ..    ldx 04,x
12743 E5ED E6 00           ..    ldab 00,x
12744 E5EF 30              0     tsx
12745 E5F0 E4 09           ..    andb 09,x
12746 E5F2 27 05           '.    beq 05
12747 E5F4 38              8     pulx
12748 E5F5 08              .     inx
12749 E5F6 3C              <     pshx
12750 E5F7 20 08            .    bra 08
12751 E5F9 30              0     tsx
12752 E5FA EC 00           ..    ldd 00,x
12753 E5FC 83 00 01        ...   subd #0001
12754 E5FF ED 00           ..    stad 00,x
12755 E601 30              0     tsx
12756 E602 EC 02           ..    ldd 02,x
12757 E604 83 00 01        ...   subd #0001
12758 E607 ED 02           ..    stad 02,x
12759 E609 20 DA            .    bra da
12760 E60B 30              0     tsx
12761 E60C EC 00           ..    ldd 00,x
12762 E60E 2F 04           /.    ble 04
12763 E610 5F              _     clrb
12764 E611 4F              O     clra
12765 E612 20 03            .    bra 03
12766 E614 CC 00 01        ...   ldd #0001
12767 E617 38              8     pulx
12768 E618 38              8     pulx
12769 E619 38              8     pulx
12770 E61A 39              9     rts
12771
12772 jump4:
12773 E61B C6 0A           ..    ldab #0a
12774 E61D F7 00 31        ..1   stb 0031
12775 E620 39              9     rts
12776
12777 E621 38              8     pulx
12778 E622 37              7     pshb
12779 E623 36              6     psha
12780 E624 3C              <     pshx
12781 E625 BD BE 4B        ..K   jsr be4b             ;jump1
12782 E628 30              0     tsx
12783 E629 EC 04           ..    ldd 04,x
12784 E62B 37              7     pshb
12785 E62C 36              6     psha
12786 E62D EC 02           ..    ldd 02,x
12787 E62F 37              7     pshb
12788 E630 36              6     psha
12789 E631 CE 96 80        ...   ldx #9680
12790 E634 3C              <     pshx
12791 E635 CC 00 98        ...   ldd #0098
12792 E638 BD FC 4C        ..L   jsr fc4c
12793 E63B 31              1     ins
12794 E63C 33              3     pulb
12795 E63D CB 30           .0    addb #30
12796 E63F F7 0B 97        ...   stb 0b97
12797 E642 30              0     tsx
12798 E643 EC 04           ..    ldd 04,x
12799 E645 37              7     pshb
12800 E646 36              6     psha
12801 E647 EC 02           ..    ldd 02,x
12802 E649 37              7     pshb
12803 E64A 36              6     psha
12804 E64B CE 96 80        ...   ldx #9680
12805 E64E 3C              <     pshx
12806 E64F CC 00 98        ...   ldd #0098
12807 E652 BD FC 5C        ..\   jsr fc5c
12808 E655 37              7     pshb
12809 E656 36              6     psha
12810 E657 CE 42 40        .B@   ldx #4240
12811 E65A 3C              <     pshx
12812 E65B CC 00 0F        ...   ldd #000f
12813 E65E BD FC 4C        ..L   jsr fc4c
12814 E661 31              1     ins
12815 E662 33              3     pulb
12816 E663 CB 30           .0    addb #30
12817 E665 F7 0B 96        ...   stb 0b96
12818 E668 30              0     tsx
12819 E669 EC 04           ..    ldd 04,x
12820 E66B 37              7     pshb
12821 E66C 36              6     psha
12822 E66D EC 02           ..    ldd 02,x
12823 E66F 37              7     pshb
12824 E670 36              6     psha
12825 E671 CE 42 40        .B@   ldx #4240
12826 E674 3C              <     pshx
12827 E675 CC 00 0F        ...   ldd #000f
12828 E678 BD FC 5C        ..\   jsr fc5c
12829 E67B 37              7     pshb
12830 E67C 36              6     psha
12831 E67D CE 86 A0        ...   ldx #86a0
12832 E680 3C              <     pshx
12833 E681 CC 00 01        ...   ldd #0001
12834 E684 BD FC 4C        ..L   jsr fc4c
12835 E687 31              1     ins
12836 E688 33              3     pulb
12837 E689 CB 30           .0    addb #30
12838 E68B F7 0B 95        ...   stb 0b95
12839 E68E 30              0     tsx
12840 E68F EC 04           ..    ldd 04,x
12841 E691 37              7     pshb
12842 E692 36              6     psha
12843 E693 EC 02           ..    ldd 02,x
12844 E695 37              7     pshb
12845 E696 36              6     psha
12846 E697 CE 86 A0        ...   ldx #86a0
12847 E69A 3C              <     pshx
12848 E69B CC 00 01        ...   ldd #0001
12849 E69E BD FC 5C        ..\   jsr fc5c
12850 E6A1 37              7     pshb
12851 E6A2 36              6     psha
12852 E6A3 CE 27 10        .'.   ldx #2710
12853 E6A6 3C              <     pshx
12854 E6A7 CC 00 00        ...   ldd #0000
12855 E6AA BD FC 4C        ..L   jsr fc4c
12856 E6AD 31              1     ins
12857 E6AE 33              3     pulb
12858 E6AF CB 30           .0    addb #30
12859 E6B1 F7 0B 94        ...   stb 0b94
12860 E6B4 30              0     tsx
12861 E6B5 EC 04           ..    ldd 04,x
12862 E6B7 37              7     pshb
12863 E6B8 36              6     psha
12864 E6B9 EC 02           ..    ldd 02,x
12865 E6BB 37              7     pshb
12866 E6BC 36              6     psha
12867 E6BD CE 27 10        .'.   ldx #2710
12868 E6C0 3C              <     pshx
12869 E6C1 CC 00 00        ...   ldd #0000
12870 E6C4 BD FC 5C        ..\   jsr fc5c
12871 E6C7 37              7     pshb
12872 E6C8 36              6     psha
12873 E6C9 CE 03 E8        ...   ldx #03e8
12874 E6CC 3C              <     pshx
12875 E6CD CC 00 00        ...   ldd #0000
12876 E6D0 BD FC 4C        ..L   jsr fc4c
12877 E6D3 31              1     ins
12878 E6D4 33              3     pulb
12879 E6D5 CB 30           .0    addb #30
12880 E6D7 F7 0B 93        ...   stb 0b93
12881 E6DA 30              0     tsx
12882 E6DB EC 04           ..    ldd 04,x
12883 E6DD 37              7     pshb
12884 E6DE 36              6     psha
12885 E6DF EC 02           ..    ldd 02,x
12886 E6E1 37              7     pshb
12887 E6E2 36              6     psha
12888 E6E3 CE 03 E8        ...   ldx #03e8
12889 E6E6 3C              <     pshx
12890 E6E7 CC 00 00        ...   ldd #0000
12891 E6EA BD FC 5C        ..\   jsr fc5c
12892 E6ED 37              7     pshb
12893 E6EE 36              6     psha
12894 E6EF CE 00 64        ..d   ldx #0064
12895 E6F2 3C              <     pshx
12896 E6F3 CC 00 00        ...   ldd #0000
12897 E6F6 BD FC 4C        ..L   jsr fc4c
12898 E6F9 31              1     ins
12899 E6FA 33              3     pulb
12900 E6FB CB 30           .0    addb #30
12901 E6FD F7 0B 92        ...   stb 0b92
12902 E700 30              0     tsx
12903 E701 EC 04           ..    ldd 04,x
12904 E703 37              7     pshb
12905 E704 36              6     psha
12906 E705 EC 02           ..    ldd 02,x
12907 E707 37              7     pshb
12908 E708 36              6     psha
12909 E709 CE 00 64        ..d   ldx #0064
12910 E70C 3C              <     pshx
12911 E70D CC 00 00        ...   ldd #0000
12912 E710 BD FC 5C        ..\   jsr fc5c
12913 E713 37              7     pshb
12914 E714 36              6     psha
12915 E715 CE 00 0A        ...   ldx #000a
12916 E718 3C              <     pshx
12917 E719 CC 00 00        ...   ldd #0000
12918 E71C BD FC 4C        ..L   jsr fc4c
12919 E71F 31              1     ins
12920 E720 33              3     pulb
12921 E721 CB 30           .0    addb #30
12922 E723 F7 0B 91        ...   stb 0b91
12923 E726 30              0     tsx
12924 E727 EC 04           ..    ldd 04,x
12925 E729 37              7     pshb
12926 E72A 36              6     psha
12927 E72B EC 02           ..    ldd 02,x
12928 E72D 37              7     pshb
12929 E72E 36              6     psha
12930 E72F CE 00 0A        ...   ldx #000a
12931 E732 3C              <     pshx
12932 E733 CC 00 00        ...   ldd #0000
12933 E736 BD FC 5C        ..\   jsr fc5c
12934 E739 31              1     ins
12935 E73A 33              3     pulb
12936 E73B CB 30           .0    addb #30
12937 E73D F7 0B 90        ...   stb 0b90
12938 E740 38              8     pulx
12939 E741 31              1     ins
12940 E742 31              1     ins
12941 E743 6E 00           n.    jmp 00,x
12942 E745 37              7     pshb
12943 E746 36              6     psha
12944 E747 30              0     tsx
12945 E748 EC 00           ..    ldd 00,x
12946 E74A CE 27 10        .'.   ldx #2710
12947 E74D 02              .     idiv
12948 E74E 8F              .     xgdx
12949 E74F CB 30           .0    addb #30
12950 E751 F7 00 57        ..W   stb 0057
12951 E754 30              0     tsx
12952 E755 EC 00           ..    ldd 00,x
12953 E757 CE 27 10        .'.   ldx #2710
12954 E75A 02              .     idiv
12955 E75B CE 03 E8        ...   ldx #03e8
12956 E75E 02              .     idiv
12957 E75F 8F              .     xgdx
12958 E760 CB 30           .0    addb #30
12959 E762 F7 00 5A        ..Z   stb 005a
12960 E765 30              0     tsx
12961 E766 EC 00           ..    ldd 00,x
12962 E768 CE 03 E8        ...   ldx #03e8
12963 E76B 02              .     idiv
12964 E76C CE 00 64        ..d   ldx #0064
12965 E76F 02              .     idiv
12966 E770 8F              .     xgdx
12967 E771 CB 30           .0    addb #30
12968 E773 F7 00 5D        ..]   stb 005d
12969 E776 30              0     tsx
12970 E777 EC 00           ..    ldd 00,x
12971 E779 CE 00 64        ..d   ldx #0064
12972 E77C 02              .     idiv
12973 E77D CE 00 0A        ...   ldx #000a
12974 E780 02              .     idiv
12975 E781 8F              .     xgdx
12976 E782 CB 30           .0    addb #30
12977 E784 F7 00 5E        ..^   stb 005e
12978 E787 30              0     tsx
12979 E788 EC 00           ..    ldd 00,x
12980 E78A CE 00 0A        ...   ldx #000a
12981 E78D 02              .     idiv
12982 E78E CB 30           .0    addb #30
12983 E790 F7 00 5F        .._   stb 005f
12984 E793 38              8     pulx
12985 E794 39              9     rts
12986
12987 E795 37              7     pshb
12988 E796 36              6     psha
12989 E797 30              0     tsx
12990 E798 E6 01           ..    ldab 01,x
12991 E79A 4F              O     clra
12992 E79B CE 00 64        ..d   ldx #0064
12993 E79E 02              .     idiv
12994 E79F 8F              .     xgdx
12995 E7A0 CB 30           .0    addb #30
12996 E7A2 F7 00 5D        ..]   stb 005d
12997 E7A5 30              0     tsx
12998 E7A6 E6 01           ..    ldab 01,x
12999 E7A8 4F              O     clra
13000 E7A9 CE 00 64        ..d   ldx #0064
13001 E7AC 02              .     idiv
13002 E7AD 4F              O     clra
13003 E7AE CE 00 0A        ...   ldx #000a
13004 E7B1 02              .     idiv
13005 E7B2 8F              .     xgdx
13006 E7B3 CB 30           .0    addb #30
13007 E7B5 F7 00 5E        ..^   stb 005e
13008 E7B8 30              0     tsx
13009 E7B9 E6 01           ..    ldab 01,x
13010 E7BB 4F              O     clra
13011 E7BC CE 00 0A        ...   ldx #000a
13012 E7BF 02              .     idiv
13013 E7C0 CB 30           .0    addb #30
13014 E7C2 F7 00 5F        .._   stb 005f
13015 E7C5 38              8     pulx
13016 E7C6 39              9     rts
13017
13018 E7C7 F6 00 06        ...   ldab 0006
13019 E7CA 4F              O     clra
13020 E7CB CE 00 05        ...   ldx #0005
13021 E7CE 02              .     idiv
13022 E7CF 5D              ]     tstb
13023 E7D0 26 03           &.    bne 03
13024 E7D2 7E E8 99        ~..   jmp e899
13025 E7D5 F6 00 06        ...   ldab 0006
13026 E7D8 BD D7 A0        ...   jsr d7a0             ;jump10
13027 E7DB 83 00 00        ...   subd #0000
13028 E7DE 27 03           '.    beq 03
13029 E7E0 7E E8 99        ~..   jmp e899
13030 E7E3 F6 00 06        ...   ldab 0006
13031 E7E6 4F              O     clra
13032 E7E7 05              .     asld
13033 E7E8 C3 08 00        ...   addd #0800
13034 E7EB 8F              .     xgdx
13035 E7EC EC 00           ..    ldd 00,x
13036 E7EE C4 FF           ..    andb #ff
13037 E7F0 84 3F           .?    anda #3f
13038 E7F2 FD 10 16        ...   stad 1016
13039 E7F5 F6 00 06        ...   ldab 0006
13040 E7F8 4F              O     clra
13041 E7F9 05              .     asld
13042 E7FA C3 0B F1        ...   addd #0bf1
13043 E7FD 8F              .     xgdx
13044 E7FE EC 00           ..    ldd 00,x
13045 E800 C4 FF           ..    andb #ff
13046 E802 84 3F           .?    anda #3f
13047 E804 FD 10 18        ...   stad 1018
13048 E807 FC 10 16        ...   ldd 1016
13049 E80A 83 00 00        ...   subd #0000
13050 E80D 25 08           %.    bcs 08
13051 E80F FC 10 16        ...   ldd 1016
13052 E812 83 27 0F        .'.   subd #270f
13053 E815 23 35           #5    bls 35
13054 E817 F6 00 06        ...   ldab 0006
13055 E81A BD D4 68        ..h   jsr d468
13056 E81D 83 00 00        ...   subd #0000
13057 E820 27 2A           '*    beq 2a
13058 E822 CC 01 00        ...   ldd #0100
13059 E825 37              7     pshb
13060 E826 36              6     psha
13061 E827 F6 00 06        ...   ldab 0006
13062 E82A 4F              O     clra
13063 E82B 05              .     asld
13064 E82C C3 08 C8        ...   addd #08c8
13065 E82F 38              8     pulx
13066 E830 8F              .     xgdx
13067 E831 AA 00           ..    ora 00,x
13068 E833 EA 01           ..    orb 01,x
13069 E835 ED 00           ..    stad 00,x
13070 E837 CC 40 00        .@.   ldd #4000
13071 E83A 37              7     pshb
13072 E83B 36              6     psha
13073 E83C F6 00 06        ...   ldab 0006
13074 E83F 4F              O     clra
13075 E840 05              .     asld
13076 E841 C3 08 00        ...   addd #0800
13077 E844 38              8     pulx
13078 E845 8F              .     xgdx
13079 E846 AA 00           ..    ora 00,x
13080 E848 EA 01           ..    orb 01,x
13081 E84A ED 00           ..    stad 00,x
13082 E84C CE 10 16        ...   ldx #1016
13083 E84F 1D 00           ..    bclr add,x 00,x
13084 E851 C0 FC           ..    subb #fc
13085 E853 10              .     sba
13086 E854 18              .     illegal
13087 E855 43              C     coma
13088 E856 53              S     comb
13089 E857 FD 10 18        ...   stad 1018
13090 E85A CE 10 18        ...   ldx #1018
13091 E85D 1D 00           ..    bclr add,x 00,x
13092 E85F C0 FC           ..    subb #fc
13093 E861 10              .     sba
13094 E862 16              .     tab
13095 E863 37              7     pshb
13096 E864 36              6     psha
13097 E865 FC 10 18        ...   ldd 1018
13098 E868 30              0     tsx
13099 E869 A3 00           ..    subd 00,x
13100 E86B 31              1     ins
13101 E86C 31              1     ins
13102 E86D 27 2A           '*    beq 2a
13103 E86F CC 01 00        ...   ldd #0100
13104 E872 37              7     pshb
13105 E873 36              6     psha
13106 E874 F6 00 06        ...   ldab 0006
13107 E877 4F              O     clra
13108 E878 05              .     asld
13109 E879 C3 08 C8        ...   addd #08c8
13110 E87C 38              8     pulx
13111 E87D 8F              .     xgdx
13112 E87E AA 00           ..    ora 00,x
13113 E880 EA 01           ..    orb 01,x
13114 E882 ED 00           ..    stad 00,x
13115 E884 CC 40 00        .@.   ldd #4000
13116 E887 37              7     pshb
13117 E888 36              6     psha
13118 E889 F6 00 06        ...   ldab 0006
13119 E88C 4F              O     clra
13120 E88D 05              .     asld
13121 E88E C3 08 00        ...   addd #0800
13122 E891 38              8     pulx
13123 E892 8F              .     xgdx
13124 E893 AA 00           ..    ora 00,x
13125 E895 EA 01           ..    orb 01,x
13126 E897 ED 00           ..    stad 00,x
13127 E899 39              9     rts
13128
13129 E89A 5F              _     clrb
13130 E89B 4F              O     clra
13131 E89C FD 00 0F        ...   stad 000f
13132 E89F CC 3F FF        .?.   ldd #3fff
13133 E8A2 FD 00 50        ..P   stad 0050
13134 E8A5 7F 00 06        ...   clr 0006
13135 E8A8 F6 00 06        ...   ldab 0006
13136 E8AB C1 64           .d    cmpb #64
13137 E8AD 24 64           $d    bcc 64
13138 E8AF F6 00 06        ...   ldab 0006
13139 E8B2 4F              O     clra
13140 E8B3 CE 00 05        ...   ldx #0005
13141 E8B6 02              .     idiv
13142 E8B7 5D              ]     tstb
13143 E8B8 27 54           'T    beq 54
13144 E8BA F6 00 06        ...   ldab 0006
13145 E8BD BD D7 A0        ...   jsr d7a0             ;jump10
13146 E8C0 83 00 00        ...   subd #0000
13147 E8C3 26 49           &I    bne 49
13148 E8C5 F6 00 06        ...   ldab 0006
13149 E8C8 4F              O     clra
13150 E8C9 05              .     asld
13151 E8CA C3 08 00        ...   addd #0800
13152 E8CD 8F              .     xgdx
13153 E8CE EC 00           ..    ldd 00,x
13154 E8D0 C4 FF           ..    andb #ff
13155 E8D2 84 3F           .?    anda #3f
13156 E8D4 FD 10 16        ...   stad 1016
13157 E8D7 FC 10 16        ...   ldd 1016
13158 E8DA 83 27 10        .'.   subd #2710
13159 E8DD 24 2F           $/    bcc 2f
13160 E8DF F6 00 06        ...   ldab 0006
13161 E8E2 BD D4 68        ..h   jsr d468
13162 E8E5 83 00 00        ...   subd #0000
13163 E8E8 27 24           '$    beq 24
13164 E8EA BD D5 61        ..a   jsr d561
13165 E8ED 83 00 00        ...   subd #0000
13166 E8F0 26 1C           &.    bne 1c
13167 E8F2 FC 10 16        ...   ldd 1016
13168 E8F5 B3 00 0F        ...   subd 000f
13169 E8F8 23 06           #.    bls 06
13170 E8FA FC 10 16        ...   ldd 1016
13171 E8FD FD 00 0F        ...   stad 000f
13172 E900 FC 10 16        ...   ldd 1016
13173 E903 B3 00 50        ..P   subd 0050
13174 E906 24 06           $.    bcc 06
13175 E908 FC 10 16        ...   ldd 1016
13176 E90B FD 00 50        ..P   stad 0050
13177 E90E 7C 00 06        |..   inc 0006
13178 E911 20 95            .    bra 95
13179 E913 FC 0B B7        ...   ldd 0bb7
13180 E916 27 12           '.    beq 12
13181 E918 FC 00 0F        ...   ldd 000f
13182 E91B B3 0B B7        ...   subd 0bb7
13183 E91E 23 0A           #.    bls 0a
13184 E920 FC 00 0F        ...   ldd 000f
13185 E923 05              .     asld
13186 E924 B3 0B B7        ...   subd 0bb7
13187 E927 FD 00 0F        ...   stad 000f
13188 E92A 39              9     rts
13189
13190 E92B 34              4     des
13191 E92C 30              0     tsx
13192 E92D 6F 00           o.    clr 00,x
13193 E92F 30              0     tsx
13194 E930 E6 00           ..    ldab 00,x
13195 E932 C1 64           .d    cmpb #64
13196 E934 24 15           $.    bcc 15
13197 E936 5F              _     clrb
13198 E937 4F              O     clra
13199 E938 37              7     pshb
13200 E939 36              6     psha
13201 E93A 30              0     tsx
13202 E93B E6 02           ..    ldab 02,x
13203 E93D 4F              O     clra
13204 E93E 05              .     asld
13205 E93F C3 0D 1F        ...   addd #0d1f
13206 E942 38              8     pulx
13207 E943 8F              .     xgdx
13208 E944 ED 00           ..    stad 00,x
13209 E946 30              0     tsx
13210 E947 6C 00           l.    inc 00,x
13211 E949 20 E4            .    bra e4
13212 E94B 4F              O     clra
13213 E94C 5F              _     clrb
13214 E94D FD 0D F9        ...   stad 0df9
13215 E950 FD 0D F7        ...   stad 0df7
13216 E953 4F              O     clra
13217 E954 5F              _     clrb
13218 E955 FD 0D F5        ...   stad 0df5
13219 E958 FD 0D F3        ...   stad 0df3
13220 E95B 4F              O     clra
13221 E95C 5F              _     clrb
13222 E95D FD 0D F1        ...   stad 0df1
13223 E960 FD 0D EF        ...   stad 0def
13224 E963 4F              O     clra
13225 E964 5F              _     clrb
13226 E965 FD 0D FD        ...   stad 0dfd
13227 E968 FD 0D FB        ...   stad 0dfb
13228 E96B 4F              O     clra
13229 E96C 5F              _     clrb
13230 E96D FD 0D E9        ...   stad 0de9
13231 E970 FD 0D E7        ...   stad 0de7
13232 E973 5F              _     clrb
13233 E974 4F              O     clra
13234 E975 FD 0C DD        ...   stad 0cdd
13235 E978 5F              _     clrb
13236 E979 4F              O     clra
13237 E97A FD 0C DF        ...   stad 0cdf
13238 E97D 5F              _     clrb
13239 E97E 4F              O     clra
13240 E97F FD 0C E1        ...   stad 0ce1
13241 E982 5F              _     clrb
13242 E983 4F              O     clra
13243 E984 FD 0C E3        ...   stad 0ce3
13244 E987 5F              _     clrb
13245 E988 4F              O     clra
13246 E989 FD 0C E5        ...   stad 0ce5
13247 E98C 4F              O     clra
13248 E98D 5F              _     clrb
13249 E98E FD 0C F5        ...   stad 0cf5
13250 E991 FD 0C F3        ...   stad 0cf3
13251 E994 4F              O     clra
13252 E995 5F              _     clrb
13253 E996 FD 0C F9        ...   stad 0cf9
13254 E999 FD 0C F7        ...   stad 0cf7
13255 E99C 4F              O     clra
13256 E99D 5F              _     clrb
13257 E99E FD 0C FD        ...   stad 0cfd
13258 E9A1 FD 0C FB        ...   stad 0cfb
13259 E9A4 4F              O     clra
13260 E9A5 5F              _     clrb
13261 E9A6 FD 0D 01        ...   stad 0d01
13262 E9A9 FD 0C FF        ...   stad 0cff
13263 E9AC 4F              O     clra
13264 E9AD 5F              _     clrb
13265 E9AE FD 0D 05        ...   stad 0d05
13266 E9B1 FD 0D 03        ...   stad 0d03
13267 E9B4 5F              _     clrb
13268 E9B5 4F              O     clra
13269 E9B6 FD 0D 07        ...   stad 0d07
13270 E9B9 5F              _     clrb
13271 E9BA 4F              O     clra
13272 E9BB FD 0D 09        ...   stad 0d09
13273 E9BE 5F              _     clrb
13274 E9BF 4F              O     clra
13275 E9C0 FD 0D 0B        ...   stad 0d0b
13276 E9C3 5F              _     clrb
13277 E9C4 4F              O     clra
13278 E9C5 FD 0D 0D        ...   stad 0d0d
13279 E9C8 4F              O     clra
13280 E9C9 5F              _     clrb
13281 E9CA FD 0D 11        ...   stad 0d11
13282 E9CD FD 0D 0F        ...   stad 0d0f
13283 E9D0 4F              O     clra
13284 E9D1 5F              _     clrb
13285 E9D2 FD 0D 15        ...   stad 0d15
13286 E9D5 FD 0D 13        ...   stad 0d13
13287 E9D8 4F              O     clra
13288 E9D9 5F              _     clrb
13289 E9DA FD 0D 19        ...   stad 0d19
13290 E9DD FD 0D 17        ...   stad 0d17
13291 E9E0 4F              O     clra
13292 E9E1 5F              _     clrb
13293 E9E2 FD 0D 1D        ...   stad 0d1d
13294 E9E5 FD 0D 1B        ...   stad 0d1b
13295 E9E8 31              1     ins
13296 E9E9 39              9     rts
13297
13298 E9EA 7F 00 06        ...   clr 0006
13299 E9ED F6 00 06        ...   ldab 0006
13300 E9F0 C1 64           .d    cmpb #64
13301 E9F2 24 64           $d    bcc 64
13302 E9F4 F6 00 06        ...   ldab 0006
13303 E9F7 4F              O     clra
13304 E9F8 CE 00 05        ...   ldx #0005
13305 E9FB 02              .     idiv
13306 E9FC 5D              ]     tstb
13307 E9FD 27 54           'T    beq 54
13308 E9FF CC BF FF        ...   ldd #bfff
13309 EA02 37              7     pshb
13310 EA03 36              6     psha
13311 EA04 F6 00 06        ...   ldab 0006
13312 EA07 4F              O     clra
13313 EA08 05              .     asld
13314 EA09 C3 08 00        ...   addd #0800
13315 EA0C 38              8     pulx
13316 EA0D 8F              .     xgdx
13317 EA0E A4 00           ..    anda 00,x
13318 EA10 E4 01           ..    andb 01,x
13319 EA12 ED 00           ..    stad 00,x
13320 EA14 CC FE FF        ...   ldd #feff
13321 EA17 37              7     pshb
13322 EA18 36              6     psha
13323 EA19 F6 00 06        ...   ldab 0006
13324 EA1C 4F              O     clra
13325 EA1D 05              .     asld
13326 EA1E C3 08 C8        ...   addd #08c8
13327 EA21 38              8     pulx
13328 EA22 8F              .     xgdx
13329 EA23 A4 00           ..    anda 00,x
13330 EA25 E4 01           ..    andb 01,x
13331 EA27 ED 00           ..    stad 00,x
13332 EA29 CC FD FF        ...   ldd #fdff
13333 EA2C 37              7     pshb
13334 EA2D 36              6     psha
13335 EA2E F6 00 06        ...   ldab 0006
13336 EA31 4F              O     clra
13337 EA32 05              .     asld
13338 EA33 C3 08 C8        ...   addd #08c8
13339 EA36 38              8     pulx
13340 EA37 8F              .     xgdx
13341 EA38 A4 00           ..    anda 00,x
13342 EA3A E4 01           ..    andb 01,x
13343 EA3C ED 00           ..    stad 00,x
13344 EA3E CC FB FF        ...   ldd #fbff
13345 EA41 37              7     pshb
13346 EA42 36              6     psha
13347 EA43 F6 00 06        ...   ldab 0006
13348 EA46 4F              O     clra
13349 EA47 05              .     asld
13350 EA48 C3 08 C8        ...   addd #08c8
13351 EA4B 38              8     pulx
13352 EA4C 8F              .     xgdx
13353 EA4D A4 00           ..    anda 00,x
13354 EA4F E4 01           ..    andb 01,x
13355 EA51 ED 00           ..    stad 00,x
13356 EA53 7C 00 06        |..   inc 0006
13357 EA56 20 95            .    bra 95
13358 EA58 39              9     rts
13359
13360 EA59 34              4     des
13361 EA5A CE 00 04        ...   ldx #0004
13362 EA5D 3C              <     pshx
13363 EA5E CC 10 0A        ...   ldd #100a
13364 EA61 BD E5 D7        ...   jsr e5d7
13365 EA64 38              8     pulx
13366 EA65 83 00 00        ...   subd #0000
13367 EA68 27 3F           '?    beq 3f
13368 EA6A CE 00 01        ...   ldx #0001
13369 EA6D 3C              <     pshx
13370 EA6E CC 18 00        ...   ldd #1800
13371 EA71 BD E5 D7        ...   jsr e5d7
13372 EA74 38              8     pulx
13373 EA75 83 00 00        ...   subd #0000
13374 EA78 27 2F           '/    beq 2f
13375 EA7A CC 03 E8        ...   ldd #03e8
13376 EA7D BD E5 71        ..q   jsr e571             ;jump13
13377 EA80 7F 0B A8        ...   clr 0ba8
13378 EA83 F6 18 00        ...   ldab 1800
13379 EA86 C4 01           ..    andb #01
13380 EA88 26 1C           &.    bne 1c
13381 EA8A BD BE 4B        ..K   jsr be4b             ;jump1
13382 EA8D 0F              .     sei
13383 EA8E BD BE 01        ...   jsr be01
13384 EA91 0E              .     cli
13385 EA92 CC 01 F4        ...   ldd #01f4
13386 EA95 BD E5 71        ..q   jsr e571             ;jump13
13387 EA98 CC AF D1        ...   ldd #afd1
13388 EA9B BD C0 BA        ...   jsr c0ba             ;display:
13389 EA9E CC 01 F4        ...   ldd #01f4
13390 EAA1 BD E5 71        ..q   jsr e571             ;jump13
13391 EAA4 20 DD            .    bra dd
13392 EAA6 BD BE 69        ..i   jsr be69             ;jump3
13393 EAA9 C6 01           ..    ldab #01
13394 EAAB F7 00 14        ...   stb 0014
13395 EAAE F6 00 14        ...   ldab 0014
13396 EAB1 F7 38 00        .8.   stb 3800
13397 EAB4 CC 00 1E        ...   ldd #001e
13398 EAB7 BD E5 71        ..q   jsr e571             ;jump13
13399 EABA CE 00 01        ...   ldx #0001
13400 EABD 3C              <     pshx
13401 EABE CC 10 00        ...   ldd #1000
13402 EAC1 BD E5 D7        ...   jsr e5d7
13403 EAC4 38              8     pulx
13404 EAC5 83 00 00        ...   subd #0000
13405 EAC8 27 10           '.    beq 10
13406 EACA CE 00 02        ...   ldx #0002
13407 EACD 3C              <     pshx
13408 EACE CC 10 00        ...   ldd #1000
13409 EAD1 BD E5 D7        ...   jsr e5d7
13410 EAD4 38              8     pulx
13411 EAD5 83 00 00        ...   subd #0000
13412 EAD8 27 03           '.    beq 03
13413 EADA 7E ED F8        ~..   jmp edf8
13414 EADD C6 02           ..    ldab #02
13415 EADF F7 00 14        ...   stb 0014
13416 EAE2 F6 00 14        ...   ldab 0014
13417 EAE5 F7 38 00        .8.   stb 3800
13418 EAE8 CC 00 1E        ...   ldd #001e
13419 EAEB BD E5 71        ..q   jsr e571             ;jump13
13420 EAEE CE 00 01        ...   ldx #0001
13421 EAF1 3C              <     pshx
13422 EAF2 CC 10 00        ...   ldd #1000
13423 EAF5 BD E5 D7        ...   jsr e5d7
13424 EAF8 38              8     pulx
13425 EAF9 83 00 00        ...   subd #0000
13426 EAFC 26 10           &.    bne 10
13427 EAFE CE 00 02        ...   ldx #0002
13428 EB01 3C              <     pshx
13429 EB02 CC 10 00        ...   ldd #1000
13430 EB05 BD E5 D7        ...   jsr e5d7
13431 EB08 38              8     pulx
13432 EB09 83 00 00        ...   subd #0000
13433 EB0C 26 03           &.    bne 03
13434 EB0E 7E ED F8        ~..   jmp edf8
13435 EB11 CC 5A 5A        .ZZ   ldd #5a5a
13436 EB14 FD 10 16        ...   stad 1016
13437 EB17 CC B1 39        ..9   ldd #b139
13438 EB1A BD C0 BA        ...   jsr c0ba             ;display:
13439 EB1D CC 07 D0        ...   ldd #07d0
13440 EB20 BD E5 71        ..q   jsr e571             ;jump13
13441 EB23 CC B1 44        ..D   ldd #b144
13442 EB26 BD C0 BA        ...   jsr c0ba             ;display:
13443 EB29 CC 07 D0        ...   ldd #07d0
13444 EB2C BD E5 71        ..q   jsr e571             ;jump13
13445 EB2F CC 00 14        ...   ldd #0014
13446 EB32 FD 00 3B        ..;   stad 003b
13447 EB35 FC 00 3B        ..;   ldd 003b
13448 EB38 27 47           'G    beq 47
13449 EB3A 30              0     tsx
13450 EB3B 6F 00           o.    clr 00,x
13451 EB3D 30              0     tsx
13452 EB3E E6 00           ..    ldab 00,x
13453 EB40 C1 0A           ..    cmpb #0a
13454 EB42 24 3B           $;    bcc 3b
13455 EB44 BD BE 4B        ..K   jsr be4b             ;jump1
13456 EB47 C6 2E           ..    ldab #2e
13457 EB49 37              7     pshb
13458 EB4A 30              0     tsx
13459 EB4B E6 01           ..    ldab 01,x
13460 EB4D 4F              O     clra
13461 EB4E C3 0B 90        ...   addd #0b90
13462 EB51 8F              .     xgdx
13463 EB52 33              3     pulb
13464 EB53 E7 00           ..    stb 00,x
13465 EB55 0F              .     sei
13466 EB56 BD BE 69        ..i   jsr be69             ;jump3
13467 EB59 CE 10 28        ..(   ldx #1028
13468 EB5C 1C 00           ..    bset add,x 00,x
13469 EB5E 40              @     nega
13470 EB5F CE 00 01        ...   ldx #0001
13471 EB62 3C              <     pshx
13472 EB63 CC 00 20        ..    ldd #0020
13473 EB66 BD BD B5        ...   jsr bdb5
13474 EB69 38              8     pulx
13475 EB6A CE 10 28        ..(   ldx #1028
13476 EB6D 1D 00           ..    bclr add,x 00,x
13477 EB6F 40              @     nega
13478 EB70 BD BE 10        ...   jsr be10
13479 EB73 0E              .     cli
13480 EB74 CC 00 07        ...   ldd #0007
13481 EB77 BD E5 71        ..q   jsr e571             ;jump13
13482 EB7A 30              0     tsx
13483 EB7B 6C 00           l.    inc 00,x
13484 EB7D 20 BE            .    bra be
13485 EB7F 20 B4            .    bra b4
13486 EB81 BD BE 69        ..i   jsr be69             ;jump3
13487 EB84 CC 08 00        ...   ldd #0800
13488 EB87 FD 00 73        ..s   stad 0073
13489 EB8A FC 00 73        ..s   ldd 0073
13490 EB8D 83 0F FF        ...   subd #0fff
13491 EB90 22 10           ".    bhi 10
13492 EB92 C6 AA           ..    ldab #aa
13493 EB94 FE 00 73        ..s   ldx 0073
13494 EB97 E7 00           ..    stb 00,x
13495 EB99 FE 00 73        ..s   ldx 0073
13496 EB9C 08              .     inx
13497 EB9D FF 00 73        ..s   stx 0073
13498 EBA0 20 E8            .    bra e8
13499 EBA2 CC 08 00        ...   ldd #0800
13500 EBA5 FD 00 73        ..s   stad 0073
13501 EBA8 FC 00 73        ..s   ldd 0073
13502 EBAB 83 0F FF        ...   subd #0fff
13503 EBAE 22 1A           ".    bhi 1a
13504 EBB0 FE 00 73        ..s   ldx 0073
13505 EBB3 E6 00           ..    ldab 00,x
13506 EBB5 C1 AA           ..    cmpb #aa
13507 EBB7 27 08           '.    beq 08
13508 EBB9 CE 10 16        ...   ldx #1016
13509 EBBC 1D 00           ..    bclr add,x 00,x
13510 EBBE FF 20 09        . .   stx 2009
13511 EBC1 FE 00 73        ..s   ldx 0073
13512 EBC4 08              .     inx
13513 EBC5 FF 00 73        ..s   stx 0073
13514 EBC8 20 DE            .    bra de
13515 EBCA CC 08 00        ...   ldd #0800
13516 EBCD FD 00 73        ..s   stad 0073
13517 EBD0 FC 00 73        ..s   ldd 0073
13518 EBD3 83 0F FF        ...   subd #0fff
13519 EBD6 22 10           ".    bhi 10
13520 EBD8 C6 55           .U    ldab #55
13521 EBDA FE 00 73        ..s   ldx 0073
13522 EBDD E7 00           ..    stb 00,x
13523 EBDF FE 00 73        ..s   ldx 0073
13524 EBE2 08              .     inx
13525 EBE3 FF 00 73        ..s   stx 0073
13526 EBE6 20 E8            .    bra e8
13527 EBE8 CC 08 00        ...   ldd #0800
13528 EBEB FD 00 73        ..s   stad 0073
13529 EBEE FC 00 73        ..s   ldd 0073
13530 EBF1 83 0F FF        ...   subd #0fff
13531 EBF4 22 1A           ".    bhi 1a
13532 EBF6 FE 00 73        ..s   ldx 0073
13533 EBF9 E6 00           ..    ldab 00,x
13534 EBFB C1 55           .U    cmpb #55
13535 EBFD 27 08           '.    beq 08
13536 EBFF CE 10 16        ...   ldx #1016
13537 EC02 1D 00           ..    bclr add,x 00,x
13538 EC04 FF 20 09        . .   stx 2009
13539 EC07 FE 00 73        ..s   ldx 0073
13540 EC0A 08              .     inx
13541 EC0B FF 00 73        ..s   stx 0073
13542 EC0E 20 DE            .    bra de
13543 EC10 CC 08 00        ...   ldd #0800
13544 EC13 FD 00 73        ..s   stad 0073
13545 EC16 FC 00 73        ..s   ldd 0073
13546 EC19 83 0F FF        ...   subd #0fff
13547 EC1C 22 0F           ".    bhi 0f
13548 EC1E 5F              _     clrb
13549 EC1F FE 00 73        ..s   ldx 0073
13550 EC22 E7 00           ..    stb 00,x
13551 EC24 FE 00 73        ..s   ldx 0073
13552 EC27 08              .     inx
13553 EC28 FF 00 73        ..s   stx 0073
13554 EC2B 20 E9            .    bra e9
13555 EC2D 7F 00 06        ...   clr 0006
13556 EC30 F6 00 06        ...   ldab 0006
13557 EC33 C1 64           .d    cmpb #64
13558 EC35 24 4D           $M    bcc 4d
13559 EC37 F6 00 06        ...   ldab 0006
13560 EC3A 4F              O     clra
13561 EC3B CE 00 05        ...   ldx #0005
13562 EC3E 02              .     idiv
13563 EC3F 5D              ]     tstb
13564 EC40 27 3D           '=    beq 3d
13565 EC42 CC 00 32        ..2   ldd #0032
13566 EC45 37              7     pshb
13567 EC46 36              6     psha
13568 EC47 F6 00 06        ...   ldab 0006
13569 EC4A 4F              O     clra
13570 EC4B 05              .     asld
13571 EC4C C3 08 00        ...   addd #0800
13572 EC4F 38              8     pulx
13573 EC50 8F              .     xgdx
13574 EC51 ED 00           ..    stad 00,x
13575 EC53 F6 00 06        ...   ldab 0006
13576 EC56 4F              O     clra
13577 EC57 05              .     asld
13578 EC58 C3 08 00        ...   addd #0800
13579 EC5B 8F              .     xgdx
13580 EC5C EC 00           ..    ldd 00,x
13581 EC5E 43              C     coma
13582 EC5F 53              S     comb
13583 EC60 37              7     pshb
13584 EC61 36              6     psha
13585 EC62 F6 00 06        ...   ldab 0006
13586 EC65 4F              O     clra
13587 EC66 05              .     asld
13588 EC67 C3 0B F1        ...   addd #0bf1
13589 EC6A 38              8     pulx
13590 EC6B 8F              .     xgdx
13591 EC6C ED 00           ..    stad 00,x
13592 EC6E CC 08 01        ...   ldd #0801
13593 EC71 37              7     pshb
13594 EC72 36              6     psha
13595 EC73 F6 00 06        ...   ldab 0006
13596 EC76 4F              O     clra
13597 EC77 05              .     asld
13598 EC78 C3 08 C8        ...   addd #08c8
13599 EC7B 38              8     pulx
13600 EC7C 8F              .     xgdx
13601 EC7D ED 00           ..    stad 00,x
13602 EC7F 7C 00 06        |..   inc 0006
13603 EC82 20 AC            .    bra ac
13604 EC84 C6 1D           ..    ldab #1d
13605 EC86 F7 0B BF        ...   stb 0bbf
13606 EC89 30              0     tsx
13607 EC8A 6F 00           o.    clr 00,x
13608 EC8C F6 0B BF        ...   ldab 0bbf
13609 EC8F 4F              O     clra
13610 EC90 C3 00 02        ...   addd #0002
13611 EC93 37              7     pshb
13612 EC94 36              6     psha
13613 EC95 30              0     tsx
13614 EC96 E6 02           ..    ldab 02,x
13615 EC98 4F              O     clra
13616 EC99 A3 00           ..    subd 00,x
13617 EC9B 31              1     ins
13618 EC9C 31              1     ins
13619 EC9D 2C 1B           ,.    bge 1b
13620 EC9F 30              0     tsx
13621 ECA0 E6 00           ..    ldab 00,x
13622 ECA2 4F              O     clra
13623 ECA3 C3 B1 D0        ...   addd #b1d0
13624 ECA6 8F              .     xgdx
13625 ECA7 E6 00           ..    ldab 00,x
13626 ECA9 37              7     pshb
13627 ECAA 30              0     tsx
13628 ECAB E6 01           ..    ldab 01,x
13629 ECAD 4F              O     clra
13630 ECAE C3 09 93        ...   addd #0993
13631 ECB1 8F              .     xgdx
13632 ECB2 33              3     pulb
13633 ECB3 E7 00           ..    stb 00,x
13634 ECB5 30              0     tsx
13635 ECB6 6C 00           l.    inc 00,x
13636 ECB8 20 D2            .    bra d2
13637 ECBA 7F 0B A8        ...   clr 0ba8
13638 ECBD CC 00 32        ..2   ldd #0032
13639 ECC0 FD 0B B5        ...   stad 0bb5
13640 ECC3 5F              _     clrb
13641 ECC4 4F              O     clra
13642 ECC5 FD 0B B7        ...   stad 0bb7
13643 ECC8 7F 00 06        ...   clr 0006
13644 ECCB BD A6 4E        ..N   jsr a64e
13645 ECCE C6 09           ..    ldab #09
13646 ECD0 F7 0B C0        ...   stb 0bc0
13647 ECD3 7F 0E 6D        ..m   clr 0e6d
13648 ECD6 C6 01           ..    ldab #01
13649 ECD8 F7 0E 6E        ..n   stb 0e6e
13650 ECDB 30              0     tsx
13651 ECDC 6F 00           o.    clr 00,x
13652 ECDE 30              0     tsx
13653 ECDF E6 00           ..    ldab 00,x
13654 ECE1 C1 0F           ..    cmpb #0f
13655 ECE3 24 21           $!    bcc 21
13656 ECE5 C6 30           .0    ldab #30
13657 ECE7 37              7     pshb
13658 ECE8 30              0     tsx
13659 ECE9 E6 01           ..    ldab 01,x
13660 ECEB 4F              O     clra
13661 ECEC C3 0C B9        ...   addd #0cb9
13662 ECEF 8F              .     xgdx
13663 ECF0 33              3     pulb
13664 ECF1 E7 00           ..    stb 00,x
13665 ECF3 C6 30           .0    ldab #30
13666 ECF5 37              7     pshb
13667 ECF6 30              0     tsx
13668 ECF7 E6 01           ..    ldab 01,x
13669 ECF9 4F              O     clra
13670 ECFA C3 0C C9        ...   addd #0cc9
13671 ECFD 8F              .     xgdx
13672 ECFE 33              3     pulb
13673 ECFF E7 00           ..    stb 00,x
13674 ED01 30              0     tsx
13675 ED02 6C 00           l.    inc 00,x
13676 ED04 20 D8            .    bra d8
13677 ED06 30              0     tsx
13678 ED07 6F 00           o.    clr 00,x
13679 ED09 30              0     tsx
13680 ED0A E6 00           ..    ldab 00,x
13681 ED0C C1 0B           ..    cmpb #0b
13682 ED0E 24 12           $.    bcc 12
13683 ED10 5F              _     clrb
13684 ED11 37              7     pshb
13685 ED12 30              0     tsx
13686 ED13 E6 01           ..    ldab 01,x
13687 ED15 4F              O     clra
13688 ED16 C3 0B E4        ...   addd #0be4
13689 ED19 8F              .     xgdx
13690 ED1A 33              3     pulb
13691 ED1B E7 00           ..    stb 00,x
13692 ED1D 30              0     tsx
13693 ED1E 6C 00           l.    inc 00,x
13694 ED20 20 E7            .    bra e7
13695 ED22 4F              O     clra
13696 ED23 5F              _     clrb
13697 ED24 FD 0D F9        ...   stad 0df9
13698 ED27 FD 0D F7        ...   stad 0df7
13699 ED2A 4F              O     clra
13700 ED2B 5F              _     clrb
13701 ED2C FD 0D F5        ...   stad 0df5
13702 ED2F FD 0D F3        ...   stad 0df3
13703 ED32 7F 0C D9        ...   clr 0cd9
13704 ED35 7F 0C DA        ...   clr 0cda
13705 ED38 7F 0C DB        ...   clr 0cdb
13706 ED3B 7F 0C DC        ...   clr 0cdc
13707 ED3E 4F              O     clra
13708 ED3F 5F              _     clrb
13709 ED40 FD 0D F1        ...   stad 0df1
13710 ED43 FD 0D EF        ...   stad 0def
13711 ED46 4F              O     clra
13712 ED47 5F              _     clrb
13713 ED48 FD 0D FD        ...   stad 0dfd
13714 ED4B FD 0D FB        ...   stad 0dfb
13715 ED4E 4F              O     clra
13716 ED4F 5F              _     clrb
13717 ED50 FD 0D E9        ...   stad 0de9
13718 ED53 FD 0D E7        ...   stad 0de7
13719 ED56 4F              O     clra
13720 ED57 5F              _     clrb
13721 ED58 FD 0D ED        ...   stad 0ded
13722 ED5B FD 0D EB        ...   stad 0deb
13723 ED5E 5F              _     clrb
13724 ED5F 4F              O     clra
13725 ED60 FD 0C DD        ...   stad 0cdd
13726 ED63 5F              _     clrb
13727 ED64 4F              O     clra
13728 ED65 FD 0C DF        ...   stad 0cdf
13729 ED68 5F              _     clrb
13730 ED69 4F              O     clra
13731 ED6A FD 0C E1        ...   stad 0ce1
13732 ED6D 5F              _     clrb
13733 ED6E 4F              O     clra
13734 ED6F FD 0C E3        ...   stad 0ce3
13735 ED72 5F              _     clrb
13736 ED73 4F              O     clra
13737 ED74 FD 0C E5        ...   stad 0ce5
13738 ED77 4F              O     clra
13739 ED78 5F              _     clrb
13740 ED79 FD 0C F5        ...   stad 0cf5
13741 ED7C FD 0C F3        ...   stad 0cf3
13742 ED7F 4F              O     clra
13743 ED80 5F              _     clrb
13744 ED81 FD 0C F9        ...   stad 0cf9
13745 ED84 FD 0C F7        ...   stad 0cf7
13746 ED87 4F              O     clra
13747 ED88 5F              _     clrb
13748 ED89 FD 0C FD        ...   stad 0cfd
13749 ED8C FD 0C FB        ...   stad 0cfb
13750 ED8F 4F              O     clra
13751 ED90 5F              _     clrb
13752 ED91 FD 0D 01        ...   stad 0d01
13753 ED94 FD 0C FF        ...   stad 0cff
13754 ED97 4F              O     clra
13755 ED98 5F              _     clrb
13756 ED99 FD 0D 05        ...   stad 0d05
13757 ED9C FD 0D 03        ...   stad 0d03
13758 ED9F 5F              _     clrb
13759 EDA0 4F              O     clra
13760 EDA1 FD 0D 07        ...   stad 0d07
13761 EDA4 5F              _     clrb
13762 EDA5 4F              O     clra
13763 EDA6 FD 0D 09        ...   stad 0d09
13764 EDA9 5F              _     clrb
13765 EDAA 4F              O     clra
13766 EDAB FD 0D 0B        ...   stad 0d0b
13767 EDAE 5F              _     clrb
13768 EDAF 4F              O     clra
13769 EDB0 FD 0D 0D        ...   stad 0d0d
13770 EDB3 4F              O     clra
13771 EDB4 5F              _     clrb
13772 EDB5 FD 0D 11        ...   stad 0d11
13773 EDB8 FD 0D 0F        ...   stad 0d0f
13774 EDBB 4F              O     clra
13775 EDBC 5F              _     clrb
13776 EDBD FD 0D 15        ...   stad 0d15
13777 EDC0 FD 0D 13        ...   stad 0d13
13778 EDC3 4F              O     clra
13779 EDC4 5F              _     clrb
13780 EDC5 FD 0D 19        ...   stad 0d19
13781 EDC8 FD 0D 17        ...   stad 0d17
13782 EDCB 4F              O     clra
13783 EDCC 5F              _     clrb
13784 EDCD FD 0D 1D        ...   stad 0d1d
13785 EDD0 FD 0D 1B        ...   stad 0d1b
13786 EDD3 7F 0B AF        ...   clr 0baf
13787 EDD6 7F 0B AE        ...   clr 0bae
13788 EDD9 7F 0B AD        ...   clr 0bad
13789 EDDC 7F 0B AC        ...   clr 0bac
13790 EDDF 7F 0B AB        ...   clr 0bab
13791 EDE2 7F 0B B4        ...   clr 0bb4
13792 EDE5 7F 0B B3        ...   clr 0bb3
13793 EDE8 7F 0B B2        ...   clr 0bb2
13794 EDEB 7F 0B B1        ...   clr 0bb1
13795 EDEE 7F 0B B0        ...   clr 0bb0
13796 EDF1 C6 05           ..    ldab #05
13797 EDF3 F7 08 00        ...   stb 0800
13798 EDF6 8D 21           .!    bsr dest 21
13799 EDF8 7F 00 14        ...   clr 0014
13800 EDFB F6 00 14        ...   ldab 0014
13801 EDFE F7 38 00        .8.   stb 3800
13802 EE01 31              1     ins
13803 EE02 39              9     rts
13804
13805 EE03 37              7     pshb
13806 EE04 36              6     psha
13807 EE05 30              0     tsx
13808 EE06 EC 00           ..    ldd 00,x
13809 EE08 BD C0 BA        ...   jsr c0ba             ;display:
13810 EE0B CE 10 16        ...   ldx #1016
13811 EE0E 1D 01           ..    bclr add,x 01,x
13812 EE10 FF CC 05        ...   stx cc05
13813 EE13 DC BD E5        ...   ldd bd
13814 EE16 71              q     illegal
13815 EE17 38              8     pulx
13816 EE18 39              9     rts
13817
13818 EE19 BD E5 D1        ...   jsr e5d1
13819 EE1C CE 10 16        ...   ldx #1016
13820 EE1F 1D 01           ..    bclr add,x 01,x
13821 EE21 FF CE 10        ...   stx ce10
13822 EE24 16              .     tab
13823 EE25 1C 01           ..    bset add,x 01,x
13824 EE27 5A              Z     decb
13825 EE28 F6 10 16        ...   ldab 1016
13826 EE2B 26 0C           &.    bne 0c
13827 EE2D CC B1 4F        ..O   ldd #b14f
13828 EE30 BD C0 BA        ...   jsr c0ba             ;display:
13829 EE33 CC 05 DC        ...   ldd #05dc
13830 EE36 BD E5 71        ..q   jsr e571             ;jump13
13831 EE39 C6 04           ..    ldab #04
13832 EE3B F7 00 1C        ...   stb 001c
13833 EE3E F6 00 1C        ...   ldab 001c
13834 EE41 C1 07           ..    cmpb #07
13835 EE43 24 57           $W    bcc 57
13836 EE45 F6 00 1C        ...   ldab 001c
13837 EE48 4F              O     clra
13838 EE49 C3 B1 23        ..#   addd #b123
13839 EE4C 8F              .     xgdx
13840 EE4D E6 00           ..    ldab 00,x
13841 EE4F 53              S     comb
13842 EE50 F4 00 1A        ...   andb 001a
13843 EE53 F7 00 1A        ...   stb 001a
13844 EE56 F6 00 1A        ...   ldab 001a
13845 EE59 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13846 EE5C CC 00 0A        ...   ldd #000a
13847 EE5F BD E5 71        ..q   jsr e571             ;jump13
13848 EE62 F6 18 00        ...   ldab 1800
13849 EE65 2C 07           ,.    bge 07
13850 EE67 CC B1 5A        ..Z   ldd #b15a
13851 EE6A 8D 97           ..    bsr dest 97
13852 EE6C 20 2E            .    bra 2e
13853 EE6E F6 00 1C        ...   ldab 001c
13854 EE71 4F              O     clra
13855 EE72 C3 B1 23        ..#   addd #b123
13856 EE75 8F              .     xgdx
13857 EE76 E6 00           ..    ldab 00,x
13858 EE78 FA 00 1A        ...   orb 001a
13859 EE7B F7 00 1A        ...   stb 001a
13860 EE7E F6 00 1A        ...   ldab 001a
13861 EE81 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13862 EE84 CC 00 0A        ...   ldd #000a
13863 EE87 BD E5 71        ..q   jsr e571             ;jump13
13864 EE8A F6 18 00        ...   ldab 1800
13865 EE8D 2D 08           -.    blt 08
13866 EE8F CC B1 5A        ..Z   ldd #b15a
13867 EE92 BD EE 03        ...   jsr ee03
13868 EE95 20 05            .    bra 05
13869 EE97 7C 00 1C        |..   inc 001c
13870 EE9A 20 A2            .    bra a2
13871 EE9C CE 10 00        ...   ldx #1000
13872 EE9F 1C 00           ..    bset add,x 00,x
13873 EEA1 08              .     inx
13874 EEA2 CE 10 08        ...   ldx #1008
13875 EEA5 1C 00           ..    bset add,x 00,x
13876 EEA7 02              .     idiv
13877 EEA8 CE 00 1A        ...   ldx #001a
13878 EEAB 1C 00           ..    bset add,x 00,x
13879 EEAD 40              @     nega
13880 EEAE F6 00 1A        ...   ldab 001a
13881 EEB1 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13882 EEB4 CC 00 0A        ...   ldd #000a
13883 EEB7 BD E5 71        ..q   jsr e571             ;jump13
13884 EEBA F6 10 08        ...   ldab 1008
13885 EEBD C4 01           ..    andb #01
13886 EEBF 26 06           &.    bne 06
13887 EEC1 CC B1 5A        ..Z   ldd #b15a
13888 EEC4 BD EE 03        ...   jsr ee03
13889 EEC7 CE 00 1A        ...   ldx #001a
13890 EECA 1D 00           ..    bclr add,x 00,x
13891 EECC 40              @     nega
13892 EECD F6 00 1A        ...   ldab 001a
13893 EED0 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13894 EED3 CC 00 0A        ...   ldd #000a
13895 EED6 BD E5 71        ..q   jsr e571             ;jump13
13896 EED9 F6 10 08        ...   ldab 1008
13897 EEDC C4 01           ..    andb #01
13898 EEDE 27 06           '.    beq 06
13899 EEE0 CC B1 5A        ..Z   ldd #b15a
13900 EEE3 BD EE 03        ...   jsr ee03
13901 EEE6 CE 00 1A        ...   ldx #001a
13902 EEE9 1C 00           ..    bset add,x 00,x
13903 EEEB 02              .     idiv
13904 EEEC F6 00 1A        ...   ldab 001a
13905 EEEF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13906 EEF2 CC 00 0A        ...   ldd #000a
13907 EEF5 BD E5 71        ..q   jsr e571             ;jump13
13908 EEF8 F6 10 00        ...   ldab 1000
13909 EEFB C4 04           ..    andb #04
13910 EEFD 26 06           &.    bne 06
13911 EEFF CC B1 65        ..e   ldd #b165
13912 EF02 BD EE 03        ...   jsr ee03
13913 EF05 CE 00 1A        ...   ldx #001a
13914 EF08 1D 00           ..    bclr add,x 00,x
13915 EF0A 02              .     idiv
13916 EF0B F6 00 1A        ...   ldab 001a
13917 EF0E F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13918 EF11 CC 00 0A        ...   ldd #000a
13919 EF14 BD E5 71        ..q   jsr e571             ;jump13
13920 EF17 F6 10 00        ...   ldab 1000
13921 EF1A C4 04           ..    andb #04
13922 EF1C 27 06           '.    beq 06
13923 EF1E CC B1 65        ..e   ldd #b165
13924 EF21 BD EE 03        ...   jsr ee03
13925 EF24 CE 00 1A        ...   ldx #001a
13926 EF27 1C 00           ..    bset add,x 00,x
13927 EF29 01              .     nop
13928 EF2A F6 00 1A        ...   ldab 001a
13929 EF2D F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13930 EF30 CC 00 0A        ...   ldd #000a
13931 EF33 BD E5 71        ..q   jsr e571             ;jump13
13932 EF36 F6 18 00        ...   ldab 1800
13933 EF39 C4 20           .     andb #20
13934 EF3B 26 06           &.    bne 06
13935 EF3D CC B1 70        ..p   ldd #b170
13936 EF40 BD EE 03        ...   jsr ee03
13937 EF43 CE 00 1A        ...   ldx #001a
13938 EF46 1D 00           ..    bclr add,x 00,x
13939 EF48 01              .     nop
13940 EF49 F6 00 1A        ...   ldab 001a
13941 EF4C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13942 EF4F CC 00 0A        ...   ldd #000a
13943 EF52 BD E5 71        ..q   jsr e571             ;jump13
13944 EF55 F6 18 00        ...   ldab 1800
13945 EF58 C4 20           .     andb #20
13946 EF5A 27 06           '.    beq 06
13947 EF5C CC B1 70        ..p   ldd #b170
13948 EF5F BD EE 03        ...   jsr ee03
13949 EF62 CE 00 1A        ...   ldx #001a
13950 EF65 1C 00           ..    bset add,x 00,x
13951 EF67 04              .     lsrd
13952 EF68 F6 00 1A        ...   ldab 001a
13953 EF6B F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13954 EF6E CC 00 0A        ...   ldd #000a
13955 EF71 BD E5 71        ..q   jsr e571             ;jump13
13956 EF74 F6 10 0A        ...   ldab 100a
13957 EF77 C4 04           ..    andb #04
13958 EF79 26 06           &.    bne 06
13959 EF7B CC B1 7B        ..{   ldd #b17b
13960 EF7E BD EE 03        ...   jsr ee03
13961 EF81 CE 00 1A        ...   ldx #001a
13962 EF84 1D 00           ..    bclr add,x 00,x
13963 EF86 04              .     lsrd
13964 EF87 F6 00 1A        ...   ldab 001a
13965 EF8A F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13966 EF8D CC 00 0A        ...   ldd #000a
13967 EF90 BD E5 71        ..q   jsr e571             ;jump13
13968 EF93 F6 10 0A        ...   ldab 100a
13969 EF96 C4 04           ..    andb #04
13970 EF98 27 06           '.    beq 06
13971 EF9A CC B1 7B        ..{   ldd #b17b
13972 EF9D BD EE 03        ...   jsr ee03
13973 EFA0 CE 10 00        ...   ldx #1000
13974 EFA3 1C 00           ..    bset add,x 00,x
13975 EFA5 08              .     inx
13976 EFA6 CE 00 1A        ...   ldx #001a
13977 EFA9 1C 00           ..    bset add,x 00,x
13978 EFAB 40              @     nega
13979 EFAC F6 00 1A        ...   ldab 001a
13980 EFAF F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
13981 EFB2 CE 10 08        ...   ldx #1008
13982 EFB5 1C 00           ..    bset add,x 00,x
13983 EFB7 02              .     idiv
13984 EFB8 CC 00 0A        ...   ldd #000a
13985 EFBB BD E5 71        ..q   jsr e571             ;jump13
13986 EFBE F6 10 08        ...   ldab 1008
13987 EFC1 C4 01           ..    andb #01
13988 EFC3 26 06           &.    bne 06
13989 EFC5 CC B1 86        ...   ldd #b186
13990 EFC8 BD EE 03        ...   jsr ee03
13991 EFCB CE 10 08        ...   ldx #1008
13992 EFCE 1D 00           ..    bclr add,x 00,x
13993 EFD0 02              .     idiv
13994 EFD1 CC 00 0A        ...   ldd #000a
13995 EFD4 BD E5 71        ..q   jsr e571             ;jump13
13996 EFD7 F6 10 08        ...   ldab 1008
13997 EFDA C4 01           ..    andb #01
13998 EFDC 27 06           '.    beq 06
13999 EFDE CC B1 86        ...   ldd #b186
14000 EFE1 BD EE 03        ...   jsr ee03
14001 EFE4 CE 10 00        ...   ldx #1000
14002 EFE7 1D 00           ..    bclr add,x 00,x
14003 EFE9 08              .     inx
14004 EFEA CE 10 08        ...   ldx #1008
14005 EFED 1C 00           ..    bset add,x 00,x
14006 EFEF 02              .     idiv
14007 EFF0 CC 00 0A        ...   ldd #000a
14008 EFF3 BD E5 71        ..q   jsr e571             ;jump13
14009 EFF6 F6 10 08        ...   ldab 1008
14010 EFF9 C4 01           ..    andb #01
14011 EFFB 26 06           &.    bne 06
14012 EFFD CC B1 91        ...   ldd #b191
14013 F000 BD EE 03        ...   jsr ee03
14014 F003 CE 10 08        ...   ldx #1008
14015 F006 1D 00           ..    bclr add,x 00,x
14016 F008 02              .     idiv
14017 F009 CC 00 0A        ...   ldd #000a
14018 F00C BD E5 71        ..q   jsr e571             ;jump13
14019 F00F F6 10 08        ...   ldab 1008
14020 F012 C4 01           ..    andb #01
14021 F014 27 06           '.    beq 06
14022 F016 CC B1 91        ...   ldd #b191
14023 F019 BD EE 03        ...   jsr ee03
14024 F01C CE 00 14        ...   ldx #0014
14025 F01F 1C 00           ..    bset add,x 00,x
14026 F021 20 F6            .    bra f6
14027 F023 00              .     test
14028 F024 14              .     bset
14029 F025 F7 38 00        .8.   stb 3800
14030 F028 CC 00 0A        ...   ldd #000a
14031 F02B BD E5 71        ..q   jsr e571             ;jump13
14032 F02E F6 20 00        . .   ldab 2000
14033 F031 C4 40           .@    andb #40
14034 F033 26 06           &.    bne 06
14035 F035 CC B1 9C        ...   ldd #b19c
14036 F038 BD EE 03        ...   jsr ee03
14037 F03B CE 00 14        ...   ldx #0014
14038 F03E 1D 00           ..    bclr add,x 00,x
14039 F040 20 F6            .    bra f6
14040 F042 00              .     test
14041 F043 14              .     bset
14042 F044 F7 38 00        .8.   stb 3800
14043 F047 CC 00 0A        ...   ldd #000a
14044 F04A BD E5 71        ..q   jsr e571             ;jump13
14045 F04D F6 20 00        . .   ldab 2000
14046 F050 C4 40           .@    andb #40
14047 F052 27 06           '.    beq 06
14048 F054 CC B1 9C        ...   ldd #b19c
14049 F057 BD EE 03        ...   jsr ee03
14050 F05A CE 00 14        ...   ldx #0014
14051 F05D 1C 00           ..    bset add,x 00,x
14052 F05F 40              @     nega
14053 F060 F6 00 14        ...   ldab 0014
14054 F063 F7 38 00        .8.   stb 3800
14055 F066 CC 00 0A        ...   ldd #000a
14056 F069 BD E5 71        ..q   jsr e571             ;jump13
14057 F06C F6 20 00        . .   ldab 2000
14058 F06F 2C 06           ,.    bge 06
14059 F071 CC B1 9C        ...   ldd #b19c
14060 F074 BD EE 03        ...   jsr ee03
14061 F077 CE 00 14        ...   ldx #0014
14062 F07A 1D 00           ..    bclr add,x 00,x
14063 F07C 40              @     nega
14064 F07D F6 00 14        ...   ldab 0014
14065 F080 F7 38 00        .8.   stb 3800
14066 F083 CC 00 0A        ...   ldd #000a
14067 F086 BD E5 71        ..q   jsr e571             ;jump13
14068 F089 F6 20 00        . .   ldab 2000
14069 F08C 2D 06           -.    blt 06
14070 F08E CC B1 9C        ...   ldd #b19c
14071 F091 BD EE 03        ...   jsr ee03
14072 F094 7F 00 61        ..a   clr 0061
14073 F097 F6 00 61        ..a   ldab 0061
14074 F09A C1 08           ..    cmpb #08
14075 F09C 24 22           $"    bcc 22
14076 F09E F6 00 61        ..a   ldab 0061
14077 F0A1 4F              O     clra
14078 F0A2 C3 B1 C8        ...   addd #b1c8
14079 F0A5 8F              .     xgdx
14080 F0A6 E6 00           ..    ldab 00,x
14081 F0A8 F7 00 06        ...   stb 0006
14082 F0AB BD D3 11        ...   jsr d311
14083 F0AE 83 00 00        ...   subd #0000
14084 F0B1 27 08           '.    beq 08
14085 F0B3 CC B1 A7        ...   ldd #b1a7
14086 F0B6 BD EE 03        ...   jsr ee03
14087 F0B9 20 05            .    bra 05
14088 F0BB 7C 00 61        |.a   inc 0061
14089 F0BE 20 D7            .    bra d7
14090 F0C0 7F 00 61        ..a   clr 0061
14091 F0C3 F6 00 61        ..a   ldab 0061
14092 F0C6 C1 08           ..    cmpb #08
14093 F0C8 24 2B           $+    bcc 2b
14094 F0CA F6 00 61        ..a   ldab 0061
14095 F0CD 4F              O     clra
14096 F0CE C3 B1 C8        ...   addd #b1c8
14097 F0D1 8F              .     xgdx
14098 F0D2 E6 00           ..    ldab 00,x
14099 F0D4 F7 00 06        ...   stb 0006
14100 F0D7 BD D1 3D        ..=   jsr d13d
14101 F0DA BD D5 70        ..p   jsr d570
14102 F0DD 83 00 00        ...   subd #0000
14103 F0E0 26 0B           &.    bne 0b
14104 F0E2 BD D1 05        ...   jsr d105
14105 F0E5 CC B1 B2        ...   ldd #b1b2
14106 F0E8 BD EE 03        ...   jsr ee03
14107 F0EB 20 08            .    bra 08
14108 F0ED BD D1 05        ...   jsr d105
14109 F0F0 7C 00 61        |.a   inc 0061
14110 F0F3 20 CE            .    bra ce
14111 F0F5 7F 00 61        ..a   clr 0061
14112 F0F8 F6 00 61        ..a   ldab 0061
14113 F0FB C1 05           ..    cmpb #05
14114 F0FD 24 45           $E    bcc 45
14115 F0FF F6 00 61        ..a   ldab 0061
14116 F102 4F              O     clra
14117 F103 C3 B1 C8        ...   addd #b1c8
14118 F106 8F              .     xgdx
14119 F107 E6 00           ..    ldab 00,x
14120 F109 F7 00 06        ...   stb 0006
14121 F10C BD D1 3D        ..=   jsr d13d
14122 F10F CC 00 0A        ...   ldd #000a
14123 F112 BD E5 71        ..q   jsr e571             ;jump13
14124 F115 F6 18 00        ...   ldab 1800
14125 F118 C4 40           .@    andb #40
14126 F11A 26 0B           &.    bne 0b
14127 F11C BD D1 05        ...   jsr d105
14128 F11F CC B1 B2        ...   ldd #b1b2
14129 F122 BD EE 03        ...   jsr ee03
14130 F125 20 1D            .    bra 1d
14131 F127 BD D1 05        ...   jsr d105
14132 F12A CC 00 0A        ...   ldd #000a
14133 F12D BD E5 71        ..q   jsr e571             ;jump13
14134 F130 F6 18 00        ...   ldab 1800
14135 F133 C4 40           .@    andb #40
14136 F135 27 08           '.    beq 08
14137 F137 CC B1 B2        ...   ldd #b1b2
14138 F13A BD EE 03        ...   jsr ee03
14139 F13D 20 05            .    bra 05
14140 F13F 7C 00 61        |.a   inc 0061
14141 F142 20 B4            .    bra b4
14142 F144 FC 10 16        ...   ldd 1016
14143 F147 83 5A 5A        .ZZ   subd #5a5a
14144 F14A 26 0C           &.    bne 0c
14145 F14C CC B1 BD        ...   ldd #b1bd
14146 F14F BD C0 BA        ...   jsr c0ba             ;display:
14147 F152 CC 05 DC        ...   ldd #05dc
14148 F155 BD E5 71        ..q   jsr e571             ;jump13
14149 F158 7E EE 1C        ~..   jmp ee1c
14150
14151 ;send a byte to the printer?
14152 ;it calls c7e7, which does things with the serial port
14153
14154 F15B 37              7     pshb
14155 F15C 36              6     psha
14156 F15D F6 00 19        ...   ldab 0019
14157 F160 C4 40           .@    andb #40
14158 F162 26 5B           &[    bne 5b
14159 F164 C6 FF           ..    ldab #ff
14160 F166 F7 00 39        ..9   stb 0039
14161 F169 F6 20 00        . .   ldab 2000
14162 F16C 2C 11           ,.    bge 11
14163 F16E F6 20 00        . .   ldab 2000
14164 F171 C4 40           .@    andb #40
14165 F173 27 0A           '.    beq 0a
14166 F175 F6 00 39        ..9   ldab 0039
14167 F178 27 05           '.    beq 05
14168 F17A BD E6 1B        ...   jsr e61b             ;jump4
14169 F17D 20 EA            .    bra ea
14170 F17F F6 00 39        ..9   ldab 0039
14171 F182 26 08           &.    bne 08
14172 F184 CE 00 19        ...   ldx #0019
14173 F187 1C 00           ..    bset add,x 00,x
14174 F189 40              @     nega
14175 F18A 20 33            3    bra 33
14176 F18C F6 20 00        . .   ldab 2000
14177 F18F C4 40           .@    andb #40
14178 F191 27 2C           ',    beq 2c
14179 F193 F6 00 1D        ...   ldab 001d
14180 F196 C4 01           ..    andb #01
14181 F198 27 1E           '.    beq 1e
14182 F19A 30              0     tsx
14183 F19B E6 01           ..    ldab 01,x
14184 F19D C1 30           .0    cmpb #30
14185 F19F 26 08           &.    bne 08
14186 F1A1 CC 00 20        ..    ldd #0020
14187 F1A4 BD C7 E7        ...   jsr c7e7
14188 F1A7 20 0D            .    bra 0d
14189 F1A9 30              0     tsx
14190 F1AA E6 01           ..    ldab 01,x
14191 F1AC 4F              O     clra
14192 F1AD BD C7 E7        ...   jsr c7e7
14193 F1B0 CE 00 1D        ...   ldx #001d
14194 F1B3 1D 00           ..    bclr add,x 00,x
14195 F1B5 01              .     nop
14196 F1B6 20 07            .    bra 07
14197 F1B8 30              0     tsx
14198 F1B9 E6 01           ..    ldab 01,x
14199 F1BB 4F              O     clra
14200 F1BC BD C7 E7        ...   jsr c7e7
14201 F1BF 38              8     pulx
14202 F1C0 39              9     rts
14203
14204 F1C1 37              7     pshb
14205 F1C2 36              6     psha
14206 F1C3 F6 20 00        . .   ldab 2000
14207 F1C6 C4 40           .@    andb #40
14208 F1C8 27 1C           '.    beq 1c
14209 F1CA 7F 00 18        ...   clr 0018
14210 F1CD F6 00 18        ...   ldab 0018
14211 F1D0 30              0     tsx
14212 F1D1 E1 05           ..    cmpb 05,x
14213 F1D3 24 11           $.    bcc 11
14214 F1D5 30              0     tsx
14215 F1D6 EE 00           ..    ldx 00,x
14216 F1D8 E6 00           ..    ldab 00,x
14217 F1DA 4F              O     clra
14218 F1DB BD F1 5B        ..[   jsr f15b
14219 F1DE 38              8     pulx
14220 F1DF 08              .     inx
14221 F1E0 3C              <     pshx
14222 F1E1 7C 00 18        |..   inc 0018
14223 F1E4 20 E7            .    bra e7
14224 F1E6 38              8     pulx
14225 F1E7 39              9     rts
14226
14227 ;send a string to the printer?  D is a pointer to a string, and some of them
14228 ;look *way* too long for the display.  Or does it scroll them?
14229
14230 F1E8 37              7     pshb
14231 F1E9 36              6     psha
14232 F1EA F6 20 00        . .   ldab 2000
14233 F1ED C4 40           .@    andb #40
14234 F1EF 27 1B           '.    beq 1b
14235 F1F1 CC 00 20        ..    ldd #0020
14236 F1F4 BD F1 5B        ..[   jsr f15b
14237 F1F7 30              0     tsx
14238 F1F8 EE 00           ..    ldx 00,x
14239 F1FA E6 00           ..    ldab 00,x
14240 F1FC 27 0E           '.    beq 0e
14241 F1FE 30              0     tsx
14242 F1FF EE 00           ..    ldx 00,x
14243 F201 E6 00           ..    ldab 00,x
14244 F203 4F              O     clra
14245 F204 BD F1 5B        ..[   jsr f15b
14246 F207 38              8     pulx
14247 F208 08              .     inx
14248 F209 3C              <     pshx
14249 F20A 20 EB            .    bra eb
14250 F20C 38              8     pulx
14251 F20D 39              9     rts
14252
14253 F20E 37              7     pshb
14254 F20F 36              6     psha
14255 F210 F6 20 00        . .   ldab 2000
14256 F213 C4 40           .@    andb #40
14257 F215 27 34           '4    beq 34
14258 F217 CE 00 1D        ...   ldx #001d
14259 F21A 1C 00           ..    bset add,x 00,x
14260 F21C 01              .     nop
14261 F21D 30              0     tsx
14262 F21E E6 01           ..    ldab 01,x
14263 F220 4F              O     clra
14264 F221 BD E7 95        ...   jsr e795
14265 F224 F6 00 5D        ..]   ldab 005d
14266 F227 4F              O     clra
14267 F228 BD F1 5B        ..[   jsr f15b
14268 F22B F6 00 5E        ..^   ldab 005e
14269 F22E 4F              O     clra
14270 F22F BD F1 5B        ..[   jsr f15b
14271 F232 CE 00 1D        ...   ldx #001d
14272 F235 1D 00           ..    bclr add,x 00,x
14273 F237 01              .     nop
14274 F238 F6 00 5F        .._   ldab 005f
14275 F23B 4F              O     clra
14276 F23C BD F1 5B        ..[   jsr f15b
14277 F23F CC 00 20        ..    ldd #0020
14278 F242 BD F1 5B        ..[   jsr f15b
14279 F245 CC 00 20        ..    ldd #0020
14280 F248 BD F1 5B        ..[   jsr f15b
14281 F24B 38              8     pulx
14282 F24C 39              9     rts
14283
14284 F24D 37              7     pshb
14285 F24E 36              6     psha
14286 F24F F6 20 00        . .   ldab 2000
14287 F252 C4 40           .@    andb #40
14288 F254 27 41           'A    beq 41
14289 F256 CE 00 1D        ...   ldx #001d
14290 F259 1C 00           ..    bset add,x 00,x
14291 F25B 01              .     nop
14292 F25C 30              0     tsx
14293 F25D EC 00           ..    ldd 00,x
14294 F25F BD E7 45        ..E   jsr e745
14295 F262 F6 00 57        ..W   ldab 0057
14296 F265 4F              O     clra
14297 F266 BD F1 5B        ..[   jsr f15b
14298 F269 F6 00 5A        ..Z   ldab 005a
14299 F26C 4F              O     clra
14300 F26D BD F1 5B        ..[   jsr f15b
14301 F270 F6 00 5D        ..]   ldab 005d
14302 F273 4F              O     clra
14303 F274 BD F1 5B        ..[   jsr f15b
14304 F277 F6 00 5E        ..^   ldab 005e
14305 F27A 4F              O     clra
14306 F27B BD F1 5B        ..[   jsr f15b
14307 F27E CE 00 1D        ...   ldx #001d
14308 F281 1D 00           ..    bclr add,x 00,x
14309 F283 01              .     nop
14310 F284 F6 00 5F        .._   ldab 005f
14311 F287 4F              O     clra
14312 F288 BD F1 5B        ..[   jsr f15b
14313 F28B CC 00 20        ..    ldd #0020
14314 F28E BD F1 5B        ..[   jsr f15b
14315 F291 CC 00 20        ..    ldd #0020
14316 F294 BD F1 5B        ..[   jsr f15b
14317 F297 38              8     pulx
14318 F298 39              9     rts
14319 F299 37              7     pshb
14320 F29A 36              6     psha
14321 F29B F6 20 00        . .   ldab 2000
14322 F29E C4 40           .@    andb #40
14323 F2A0 27 7B           '{    beq 7b
14324 F2A2 F6 00 17        ...   ldab 0017
14325 F2A5 C4 08           ..    andb #08
14326 F2A7 26 06           &.    bne 06
14327 F2A9 CC 00 24        ..$   ldd #0024
14328 F2AC BD F1 5B        ..[   jsr f15b
14329 F2AF CE 00 1D        ...   ldx #001d
14330 F2B2 1C 00           ..    bset add,x 00,x
14331 F2B4 01              .     nop
14332 F2B5 30              0     tsx
14333 F2B6 EC 00           ..    ldd 00,x
14334 F2B8 BD E7 45        ..E   jsr e745
14335 F2BB F6 00 57        ..W   ldab 0057
14336 F2BE 4F              O     clra
14337 F2BF BD F1 5B        ..[   jsr f15b
14338 F2C2 F6 00 5A        ..Z   ldab 005a
14339 F2C5 4F              O     clra
14340 F2C6 BD F1 5B        ..[   jsr f15b
14341 F2C9 F6 00 13        ...   ldab 0013
14342 F2CC C1 08           ..    cmpb #08
14343 F2CE 26 0C           &.    bne 0c
14344 F2D0 CC 00 2E        ...   ldd #002e
14345 F2D3 BD F1 5B        ..[   jsr f15b
14346 F2D6 CE 00 1D        ...   ldx #001d
14347 F2D9 1D 00           ..    bclr add,x 00,x
14348 F2DB 01              .     nop
14349 F2DC F6 00 5D        ..]   ldab 005d
14350 F2DF 4F              O     clra
14351 F2E0 BD F1 5B        ..[   jsr f15b
14352 F2E3 F6 00 13        ...   ldab 0013
14353 F2E6 C1 04           ..    cmpb #04
14354 F2E8 26 0C           &.    bne 0c
14355 F2EA CC 00 2E        ...   ldd #002e
14356 F2ED BD F1 5B        ..[   jsr f15b
14357 F2F0 CE 00 1D        ...   ldx #001d
14358 F2F3 1D 00           ..    bclr add,x 00,x
14359 F2F5 01              .     nop
14360 F2F6 F6 00 5E        ..^   ldab 005e
14361 F2F9 4F              O     clra
14362 F2FA BD F1 5B        ..[   jsr f15b
14363 F2FD F6 00 13        ...   ldab 0013
14364 F300 C1 02           ..    cmpb #02
14365 F302 26 06           &.    bne 06
14366 F304 CC 00 2E        ...   ldd #002e
14367 F307 BD F1 5B        ..[   jsr f15b
14368 F30A CE 00 1D        ...   ldx #001d
14369 F30D 1D 00           ..    bclr add,x 00,x
14370 F30F 01              .     nop
14371 F310 F6 00 5F        .._   ldab 005f
14372 F313 4F              O     clra
14373 F314 BD F1 5B        ..[   jsr f15b
14374 F317 CC 00 0A        ...   ldd #000a
14375 F31A BD F1 5B        ..[   jsr f15b
14376 F31D 38              8     pulx
14377 F31E 39              9     rts
14378
14379 F31F 38              8     pulx
14380 F320 37              7     pshb
14381 F321 36              6     psha
14382 F322 3C              <     pshx
14383 F323 F6 20 00        . .   ldab 2000
14384 F326 C4 40           .@    andb #40
14385 F328 26 03           &.    bne 03
14386 F32A 7E F3 BC        ~..   jmp f3bc
14387 F32D F6 00 17        ...   ldab 0017
14388 F330 C4 08           ..    andb #08
14389 F332 26 06           &.    bne 06
14390 F334 CC 00 24        ..$   ldd #0024
14391 F337 BD F1 5B        ..[   jsr f15b
14392 F33A CE 00 1D        ...   ldx #001d
14393 F33D 1C 00           ..    bset add,x 00,x
14394 F33F 01              .     nop
14395 F340 30              0     tsx
14396 F341 EC 04           ..    ldd 04,x
14397 F343 37              7     pshb
14398 F344 36              6     psha
14399 F345 EC 02           ..    ldd 02,x
14400 F347 BD E6 21        ..!   jsr e621
14401 F34A 38              8     pulx
14402 F34B C6 07           ..    ldab #07
14403 F34D F7 00 18        ...   stb 0018
14404 F350 F6 00 18        ...   ldab 0018
14405 F353 C1 FF           ..    cmpb #ff
14406 F355 24 5F           $_    bcc 5f
14407 F357 F6 00 18        ...   ldab 0018
14408 F35A 4F              O     clra
14409 F35B C3 0B 90        ...   addd #0b90
14410 F35E 8F              .     xgdx
14411 F35F E6 00           ..    ldab 00,x
14412 F361 4F              O     clra
14413 F362 BD F1 5B        ..[   jsr f15b
14414 F365 F6 00 18        ...   ldab 0018
14415 F368 C1 03           ..    cmpb #03
14416 F36A 26 15           &.    bne 15
14417 F36C F6 00 13        ...   ldab 0013
14418 F36F C1 08           ..    cmpb #08
14419 F371 26 0C           &.    bne 0c
14420 F373 CC 00 2E        ...   ldd #002e
14421 F376 BD F1 5B        ..[   jsr f15b
14422 F379 CE 00 1D        ...   ldx #001d
14423 F37C 1D 00           ..    bclr add,x 00,x
14424 F37E 01              .     nop
14425 F37F 20 30            0    bra 30
14426 F381 C1 02           ..    cmpb #02
14427 F383 26 15           &.    bne 15
14428 F385 F6 00 13        ...   ldab 0013
14429 F388 C1 04           ..    cmpb #04
14430 F38A 26 0C           &.    bne 0c
14431 F38C CC 00 2E        ...   ldd #002e
14432 F38F BD F1 5B        ..[   jsr f15b
14433 F392 CE 00 1D        ...   ldx #001d
14434 F395 1D 00           ..    bclr add,x 00,x
14435 F397 01              .     nop
14436 F398 20 17            .    bra 17
14437 F39A C1 01           ..    cmpb #01
14438 F39C 26 13           &.    bne 13
14439 F39E F6 00 13        ...   ldab 0013
14440 F3A1 C1 02           ..    cmpb #02
14441 F3A3 26 06           &.    bne 06
14442 F3A5 CC 00 2E        ...   ldd #002e
14443 F3A8 BD F1 5B        ..[   jsr f15b
14444 F3AB CE 00 1D        ...   ldx #001d
14445 F3AE 1D 00           ..    bclr add,x 00,x
14446 F3B0 01              .     nop
14447 F3B1 7A 00 18        z..   dec 0018
14448 F3B4 20 9A            .    bra 9a
14449 F3B6 CC 00 0A        ...   ldd #000a
14450 F3B9 BD F1 5B        ..[   jsr f15b
14451 F3BC 38              8     pulx
14452 F3BD 31              1     ins
14453 F3BE 31              1     ins
14454 F3BF 6E 00           n.    jmp 00,x
14455
14456 F3C1 37              7     pshb
14457 F3C2 36              6     psha
14458 F3C3 F6 20 00        . .   ldab 2000
14459 F3C6 C4 40           .@    andb #40
14460 F3C8 27 49           'I    beq 49
14461 F3CA CC B4 71        ..q   ldd #b471    "    CODE "
14462 F3CD BD F1 E8        ...   jsr f1e8
14463 F3D0 30              0     tsx
14464 F3D1 E6 01           ..    ldab 01,x
14465 F3D3 4F              O     clra
14466 F3D4 CE 00 0A        ...   ldx #000a
14467 F3D7 02              .     idiv
14468 F3D8 8F              .     xgdx
14469 F3D9 CB 30           .0    addb #30
14470 F3DB F7 00 5E        ..^   stb 005e
14471 F3DE 30              0     tsx
14472 F3DF E6 01           ..    ldab 01,x
14473 F3E1 4F              O     clra
14474 F3E2 CE 00 0A        ...   ldx #000a
14475 F3E5 02              .     idiv
14476 F3E6 CB 30           .0    addb #30
14477 F3E8 F7 00 5F        .._   stb 005f     ;5e and 5f now param in ascii
14478 F3EB F6 00 5E        ..^   ldab 005e
14479 F3EE 4F              O     clra
14480 F3EF BD F1 5B        ..[   jsr f15b
14481 F3F2 F6 00 5F        .._   ldab 005f
14482 F3F5 4F              O     clra
14483 F3F6 BD F1 5B        ..[   jsr f15b
14484 F3F9 CC B4 7B        ..{   ldd #b47b    "VENDS - "
14485 F3FC BD F1 E8        ...   jsr f1e8
14486 F3FF 30              0     tsx
14487 F400 E6 01           ..    ldab 01,x
14488 F402 4F              O     clra
14489 F403 05              .     asld
14490 F404 C3 0D 1F        ...   addd #0d1f
14491 F407 8F              .     xgdx
14492 F408 EC 00           ..    ldd 00,x
14493 F40A BD F2 4D        ..M   jsr f24d
14494 F40D CC 00 0A        ...   ldd #000a
14495 F410 BD F1 5B        ..[   jsr f15b
14496 F413 38              8     pulx
14497 F414 39              9     rts
14498
14499 F415 F6 0B C0        ...   ldab 0bc0
14500 F418 C4 02           ..    andb #02
14501 F41A 27 15           '.    beq 15
14502 F41C CE 00 21        ..!   ldx #0021
14503 F41F 1C 00           ..    bset add,x 00,x
14504 F421 80 F6           ..    suba #f6
14505 F423 00              .     test
14506 F424 1D C4           ..    bclr add,x c4,x
14507 F426 02              .     idiv
14508 F427 27 02           '.    beq 02
14509 F429 20 F7            .    bra f7
14510 F42B CE 00 21        ..!   ldx #0021
14511 F42E 1D 00           ..    bclr add,x 00,x
14512 F430 80 C6           ..    suba #c6
14513 F432 10              .     sba
14514 F433 F7 10 2C        ..,   stb 102c
14515 F436 C6 2E           ..    ldab #2e
14516 F438 F7 10 2D        ..-   stb 102d
14517 F43B C6 05           ..    ldab #05
14518 F43D F7 10 2B        ..+   stb 102b
14519 F440 CC 03 E8        ...   ldd #03e8
14520 F443 BD E5 71        ..q   jsr e571             ;jump13
14521 F446 CE 10 00        ...   ldx #1000
14522 F449 1D 00           ..    bclr add,x 00,x
14523 F44B 08              .     inx
14524 F44C CE 00 19        ...   ldx #0019
14525 F44F 1D 00           ..    bclr add,x 00,x
14526 F451 40              @     nega
14527 F452 CE 00 1D        ...   ldx #001d
14528 F455 1D 00           ..    bclr add,x 00,x
14529 F457 01              .     nop
14530 F458 CC 00 18        ...   ldd #0018
14531 F45B BD F1 5B        ..[   jsr f15b
14532 F45E CC B2 1B        ...   ldd #b21b    "         ROWE  INTERNATIONAL"
14533 F461 BD F1 E8        ...   jsr f1e8
14534 F464 CC 00 0A        ...   ldd #000a
14535 F467 BD F1 5B        ..[   jsr f15b
14536 F46A CC B2 38        ..8   ldd #b238
14537 F46D BD F1 E8        ...   jsr f1e8
14538 F470 CC 00 0A        ...   ldd #000a
14539 F473 BD F1 5B        ..[   jsr f15b
14540 F476 CC B2 56        ..V   ldd #b256
14541 F479 BD F1 E8        ...   jsr f1e8
14542 F47C CC 00 0A        ...   ldd #000a
14543 F47F BD F1 5B        ..[   jsr f15b
14544 F482 CC 00 0A        ...   ldd #000a
14545 F485 BD F1 5B        ..[   jsr f15b
14546 F488 CC B2 75        ..u   ldd #b275
14547 F48B BD F1 E8        ...   jsr f1e8
14548 F48E CC 00 0A        ...   ldd #000a
14549 F491 BD F1 5B        ..[   jsr f15b
14550 F494 CC B2 38        ..8   ldd #b238
14551 F497 BD F1 E8        ...   jsr f1e8
14552 F49A CC 00 0A        ...   ldd #000a
14553 F49D BD F1 5B        ..[   jsr f15b
14554 F4A0 CC 00 0A        ...   ldd #000a
14555 F4A3 BD F1 5B        ..[   jsr f15b
14556 F4A6 CC B2 90        ...   ldd #b290
14557 F4A9 BD F1 E8        ...   jsr f1e8
14558 F4AC CE 00 0A        ...   ldx #000a
14559 F4AF 3C              <     pshx
14560 F4B0 CC 0C BC        ...   ldd #0cbc
14561 F4B3 BD F1 C1        ...   jsr f1c1
14562 F4B6 38              8     pulx
14563 F4B7 CC 00 0A        ...   ldd #000a
14564 F4BA BD F1 5B        ..[   jsr f15b
14565 F4BD CC B2 A2        ...   ldd #b2a2
14566 F4C0 BD F1 E8        ...   jsr f1e8
14567 F4C3 CE 00 0A        ...   ldx #000a
14568 F4C6 3C              <     pshx
14569 F4C7 CC 0C CC        ...   ldd #0ccc
14570 F4CA BD F1 C1        ...   jsr f1c1
14571 F4CD 38              8     pulx
14572 F4CE CC 00 0A        ...   ldd #000a
14573 F4D1 BD F1 5B        ..[   jsr f15b
14574 F4D4 CC B2 B4        ...   ldd #b2b4
14575 F4D7 BD F1 E8        ...   jsr f1e8
14576 F4DA FC 0C E7        ...   ldd 0ce7
14577 F4DD BD F2 4D        ..M   jsr f24d
14578 F4E0 CC 00 0A        ...   ldd #000a
14579 F4E3 BD F1 5B        ..[   jsr f15b
14580 F4E6 CC 00 0A        ...   ldd #000a
14581 F4E9 BD F1 5B        ..[   jsr f15b
14582 F4EC CC B2 C6        ...   ldd #b2c6
14583 F4EF BD F1 E8        ...   jsr f1e8
14584 F4F2 FE 0D E9        ...   ldx 0de9
14585 F4F5 3C              <     pshx
14586 F4F6 FC 0D E7        ...   ldd 0de7
14587 F4F9 BD F3 1F        ...   jsr f31f
14588 F4FC 38              8     pulx
14589 F4FD CC B2 D8        ...   ldd #b2d8
14590 F500 BD F1 E8        ...   jsr f1e8
14591 F503 FE 0D ED        ...   ldx 0ded
14592 F506 3C              <     pshx
14593 F507 FC 0D EB        ...   ldd 0deb
14594 F50A BD F3 1F        ...   jsr f31f
14595 F50D 38              8     pulx
14596 F50E CC B2 EA        ...   ldd #b2ea
14597 F511 BD F1 E8        ...   jsr f1e8
14598 F514 FE 0D F1        ...   ldx 0df1
14599 F517 3C              <     pshx
14600 F518 FC 0D EF        ...   ldd 0def
14601 F51B BD F3 1F        ...   jsr f31f
14602 F51E 38              8     pulx
14603 F51F CC B2 FC        ...   ldd #b2fc
14604 F522 BD F1 E8        ...   jsr f1e8
14605 F525 FE 0D F9        ...   ldx 0df9
14606 F528 3C              <     pshx
14607 F529 FC 0D F7        ...   ldd 0df7
14608 F52C BD F3 1F        ...   jsr f31f
14609 F52F 38              8     pulx
14610 F530 CC B3 0E        ...   ldd #b30e
14611 F533 BD F1 E8        ...   jsr f1e8
14612 F536 FE 0D FD        ...   ldx 0dfd
14613 F539 3C              <     pshx
14614 F53A FC 0D FB        ...   ldd 0dfb
14615 F53D BD F3 1F        ...   jsr f31f
14616 F540 38              8     pulx
14617 F541 CC 00 0A        ...   ldd #000a
14618 F544 BD F1 5B        ..[   jsr f15b
14619 F547 CC B3 20        ..    ldd #b320
14620 F54A BD F1 E8        ...   jsr f1e8
14621 F54D CC 00 0A        ...   ldd #000a
14622 F550 BD F1 5B        ..[   jsr f15b
14623 F553 CC B3 31        ..1   ldd #b331
14624 F556 BD F1 E8        ...   jsr f1e8
14625 F559 FE 0D F5        ...   ldx 0df5
14626 F55C 3C              <     pshx
14627 F55D FC 0D F3        ...   ldd 0df3
14628 F560 BD F3 1F        ...   jsr f31f
14629 F563 38              8     pulx
14630 F564 CC B3 4A        ..J   ldd #b34a
14631 F567 BD F1 E8        ...   jsr f1e8
14632 F56A FC 0C DD        ...   ldd 0cdd
14633 F56D BD F2 4D        ..M   jsr f24d
14634 F570 FE 0C F5        ...   ldx 0cf5
14635 F573 3C              <     pshx
14636 F574 FC 0C F3        ...   ldd 0cf3
14637 F577 BD F3 1F        ...   jsr f31f
14638 F57A 38              8     pulx
14639 F57B CC B3 5C        ..\   ldd #b35c
14640 F57E BD F1 E8        ...   jsr f1e8
14641 F581 FC 0C DF        ...   ldd 0cdf
14642 F584 BD F2 4D        ..M   jsr f24d
14643 F587 FE 0C F9        ...   ldx 0cf9
14644 F58A 3C              <     pshx
14645 F58B FC 0C F7        ...   ldd 0cf7
14646 F58E BD F3 1F        ...   jsr f31f
14647 F591 38              8     pulx
14648 F592 CC B3 6E        ..n   ldd #b36e
14649 F595 BD F1 E8        ...   jsr f1e8
14650 F598 FC 0C E1        ...   ldd 0ce1
14651 F59B BD F2 4D        ..M   jsr f24d
14652 F59E FE 0C FD        ...   ldx 0cfd
14653 F5A1 3C              <     pshx
14654 F5A2 FC 0C FB        ...   ldd 0cfb
14655 F5A5 BD F3 1F        ...   jsr f31f
14656 F5A8 38              8     pulx
14657 F5A9 CC B3 80        ...   ldd #b380
14658 F5AC BD F1 E8        ...   jsr f1e8
14659 F5AF FC 0C E3        ...   ldd 0ce3
14660 F5B2 BD F2 4D        ..M   jsr f24d
14661 F5B5 FE 0D 01        ...   ldx 0d01
14662 F5B8 3C              <     pshx
14663 F5B9 FC 0C FF        ...   ldd 0cff
14664 F5BC BD F3 1F        ...   jsr f31f
14665 F5BF 38              8     pulx
14666 F5C0 CC B3 92        ...   ldd #b392
14667 F5C3 BD F1 E8        ...   jsr f1e8
14668 F5C6 FC 0C E5        ...   ldd 0ce5
14669 F5C9 BD F2 4D        ..M   jsr f24d
14670 F5CC FE 0D 05        ...   ldx 0d05
14671 F5CF 3C              <     pshx
14672 F5D0 FC 0D 03        ...   ldd 0d03
14673 F5D3 BD F3 1F        ...   jsr f31f
14674 F5D6 38              8     pulx
14675 F5D7 CC 00 0A        ...   ldd #000a
14676 F5DA BD F1 5B        ..[   jsr f15b
14677 F5DD CC B3 A4        ...   ldd #b3a4
14678 F5E0 BD F1 E8        ...   jsr f1e8
14679 F5E3 CC 00 0A        ...   ldd #000a
14680 F5E6 BD F1 5B        ..[   jsr f15b
14681 F5E9 CC B3 B3        ...   ldd #b3b3
14682 F5EC BD F1 E8        ...   jsr f1e8
14683 F5EF FC 0C F1        ...   ldd 0cf1
14684 F5F2 BD F2 99        ...   jsr f299
14685 F5F5 CC B3 CA        ...   ldd #b3ca
14686 F5F8 BD F1 E8        ...   jsr f1e8
14687 F5FB F6 0C DC        ...   ldab 0cdc
14688 F5FE 4F              O     clra
14689 F5FF BD F2 0E        ...   jsr f20e
14690 F602 FC 0C E9        ...   ldd 0ce9
14691 F605 BD F2 99        ...   jsr f299
14692 F608 CC B3 DC        ...   ldd #b3dc
14693 F60B BD F1 E8        ...   jsr f1e8
14694 F60E F6 0C DB        ...   ldab 0cdb
14695 F611 4F              O     clra
14696 F612 BD F2 0E        ...   jsr f20e
14697 F615 FC 0C EB        ...   ldd 0ceb
14698 F618 BD F2 99        ...   jsr f299
14699 F61B CC B3 EE        ...   ldd #b3ee
14700 F61E BD F1 E8        ...   jsr f1e8
14701 F621 F6 0C DA        ...   ldab 0cda
14702 F624 4F              O     clra
14703 F625 BD F2 0E        ...   jsr f20e
14704 F628 FC 0C ED        ...   ldd 0ced
14705 F62B BD F2 99        ...   jsr f299
14706 F62E CC B4 00        ...   ldd #b400
14707 F631 BD F1 E8        ...   jsr f1e8
14708 F634 F6 0C D9        ...   ldab 0cd9
14709 F637 4F              O     clra
14710 F638 BD F2 0E        ...   jsr f20e
14711 F63B FC 0C EF        ...   ldd 0cef
14712 F63E BD F2 99        ...   jsr f299
14713 F641 CC 00 0A        ...   ldd #000a
14714 F644 BD F1 5B        ..[   jsr f15b
14715 F647 CC B4 12        ...   ldd #b412
14716 F64A BD F1 E8        ...   jsr f1e8
14717 F64D FC 0D 07        ...   ldd 0d07
14718 F650 BD F2 4D        ..M   jsr f24d
14719 F653 FE 0D 11        ...   ldx 0d11
14720 F656 3C              <     pshx
14721 F657 FC 0D 0F        ...   ldd 0d0f
14722 F65A BD F3 1F        ...   jsr f31f
14723 F65D 38              8     pulx
14724 F65E CC B4 24        ..$   ldd #b424
14725 F661 BD F1 E8        ...   jsr f1e8
14726 F664 FC 0D 09        ...   ldd 0d09
14727 F667 BD F2 4D        ..M   jsr f24d
14728 F66A FE 0D 15        ...   ldx 0d15
14729 F66D 3C              <     pshx
14730 F66E FC 0D 13        ...   ldd 0d13
14731 F671 BD F3 1F        ...   jsr f31f
14732 F674 38              8     pulx
14733 F675 CC B4 36        ..6   ldd #b436
14734 F678 BD F1 E8        ...   jsr f1e8
14735 F67B FC 0D 0B        ...   ldd 0d0b
14736 F67E BD F2 4D        ..M   jsr f24d
14737 F681 FE 0D 19        ...   ldx 0d19
14738 F684 3C              <     pshx
14739 F685 FC 0D 17        ...   ldd 0d17
14740 F688 BD F3 1F        ...   jsr f31f
14741 F68B 38              8     pulx
14742 F68C CC B4 48        ..H   ldd #b448
14743 F68F BD F1 E8        ...   jsr f1e8
14744 F692 FC 0D 0D        ...   ldd 0d0d
14745 F695 BD F2 4D        ..M   jsr f24d
14746 F698 FE 0D 1D        ...   ldx 0d1d
14747 F69B 3C              <     pshx
14748 F69C FC 0D 1B        ...   ldd 0d1b
14749 F69F BD F3 1F        ...   jsr f31f
14750 F6A2 38              8     pulx
14751 F6A3 CC 00 0A        ...   ldd #000a
14752 F6A6 BD F1 5B        ..[   jsr f15b
14753 F6A9 CC B4 5A        ..Z   ldd #b45a
14754 F6AC BD F1 E8        ...   jsr f1e8
14755 F6AF CC 00 0A        ...   ldd #000a
14756 F6B2 BD F1 5B        ..[   jsr f15b
14757 F6B5 C6 01           ..    ldab #01
14758 F6B7 F7 00 54        ..T   stb 0054
14759 F6BA F6 00 54        ..T   ldab 0054
14760 F6BD C1 63           .c    cmpb #63
14761 F6BF 22 1B           ".    bhi 1b
14762 F6C1 F6 00 54        ..T   ldab 0054
14763 F6C4 4F              O     clra
14764 F6C5 05              .     asld
14765 F6C6 C3 08 C8        ...   addd #08c8
14766 F6C9 8F              .     xgdx
14767 F6CA EC 00           ..    ldd 00,x
14768 F6CC C4 80           ..    andb #80
14769 F6CE 27 07           '.    beq 07
14770 F6D0 F6 00 54        ..T   ldab 0054
14771 F6D3 4F              O     clra
14772 F6D4 BD F3 C1        ...   jsr f3c1
14773 F6D7 7C 00 54        |.T   inc 0054
14774 F6DA 20 DE            .    bra de
14775 F6DC CC 00 0A        ...   ldd #000a
14776 F6DF BD F1 5B        ..[   jsr f15b
14777 F6E2 F6 00 19        ...   ldab 0019
14778 F6E5 C4 40           .@    andb #40
14779 F6E7 26 07           &.    bne 07
14780 F6E9 FE 0C E7        ...   ldx 0ce7
14781 F6EC 08              .     inx
14782 F6ED FF 0C E7        ...   stx 0ce7
14783 F6F0 CE 00 1D        ...   ldx #001d
14784 F6F3 1D 00           ..    bclr add,x 00,x
14785 F6F5 01              .     nop
14786 F6F6 CC 03 E8        ...   ldd #03e8
14787 F6F9 BD E5 71        ..q   jsr e571             ;jump13
14788 F6FC C6 03           ..    ldab #03
14789 F6FE F7 10 2B        ..+   stb 102b
14790 F701 CE 10 00        ...   ldx #1000
14791 F704 1C 00           ..    bset add,x 00,x
14792 F706 08              .     inx
14793 F707 F6 0B C0        ...   ldab 0bc0
14794 F70A C4 02           ..    andb #02
14795 F70C 27 06           '.    beq 06
14796 F70E CC 00 80        ...   ldd #0080
14797 F711 BD C7 E7        ...   jsr c7e7
14798 F714 7F 00 38        ..8   clr 0038
14799 F717 39              9     rts
14800 F718 3C              <     pshx
14801 F719 F6 0B C0        ...   ldab 0bc0
14802 F71C C4 08           ..    andb #08
14803 F71E 27 03           '.    beq 03
14804 F720 BD C3 25        ..%   jsr c325
14805 F723 7C 00 0C        |..   inc 000c
14806 F726 F6 00 0C        ...   ldab 000c
14807 F729 C1 02           ..    cmpb #02
14808 F72B 26 13           &.    bne 13
14809 F72D 7F 00 0C        ...   clr 000c
14810 F730 F6 00 07        ...   ldab 0007
14811 F733 27 03           '.    beq 03
14812 F735 7A 00 07        z..   dec 0007
14813 F738 F6 00 00        ...   ldab 0000
14814 F73B 27 03           '.    beq 03
14815 F73D 7A 00 00        z..   dec 0000
14816 F740 7C 00 0B        |..   inc 000b
14817 F743 F6 00 0B        ...   ldab 000b
14818 F746 C1 08           ..    cmpb #08
14819 F748 26 37           &7    bne 37
14820 F74A 7F 00 0B        ...   clr 000b
14821 F74D FC 00 3B        ..;   ldd 003b
14822 F750 27 07           '.    beq 07
14823 F752 FE 00 3B        ..;   ldx 003b
14824 F755 09              .     dex
14825 F756 FF 00 3B        ..;   stx 003b
14826 F759 CC 00 2C        ..,   ldd #002c
14827 F75C 30              0     tsx
14828 F75D ED 00           ..    stad 00,x
14829 F75F 30              0     tsx
14830 F760 EC 00           ..    ldd 00,x
14831 F762 37              7     pshb
14832 F763 36              6     psha
14833 F764 CC 00 3A        ..:   ldd #003a
14834 F767 30              0     tsx
14835 F768 A3 00           ..    subd 00,x
14836 F76A 31              1     ins
14837 F76B 31              1     ins
14838 F76C 25 13           %.    bcs 13
14839 F76E 30              0     tsx
14840 F76F EE 00           ..    ldx 00,x
14841 F771 E6 00           ..    ldab 00,x
14842 F773 27 07           '.    beq 07
14843 F775 30              0     tsx
14844 F776 EE 00           ..    ldx 00,x
14845 F778 6A 00           j.    dec 00,x
14846 F77A E6 00           ..    ldab 00,x
14847 F77C 38              8     pulx
14848 F77D 08              .     inx
14849 F77E 3C              <     pshx
14850 F77F 20 DE            .    bra de
14851 F781 F6 00 32        ..2   ldab 0032
14852 F784 27 07           '.    beq 07
14853 F786 F6 00 32        ..2   ldab 0032
14854 F789 C4 02           ..    andb #02
14855 F78B 26 08           &.    bne 08
14856 F78D CE 10 00        ...   ldx #1000
14857 F790 1D 00           ..    bclr add,x 00,x
14858 F792 10              .     sba
14859 F793 20 0D            .    bra 0d
14860 F795 F6 00 32        ..2   ldab 0032
14861 F798 C4 01           ..    andb #01
14862 F79A 26 06           &.    bne 06
14863 F79C CE 10 00        ...   ldx #1000
14864 F79F 1C 00           ..    bset add,x 00,x
14865 F7A1 10              .     sba
14866 F7A2 7C 00 4C        |.L   inc 004c
14867 F7A5 F6 00 4C        ..L   ldab 004c
14868 F7A8 C1 4B           .K    cmpb #4b
14869 F7AA 26 13           &.    bne 13
14870 F7AC 7F 00 4C        ..L   clr 004c
14871 F7AF F6 00 4F        ..O   ldab 004f
14872 F7B2 27 03           '.    beq 03
14873 F7B4 7A 00 4F        z.O   dec 004f
14874 F7B7 F6 00 25        ..%   ldab 0025
14875 F7BA 27 03           '.    beq 03
14876 F7BC 7A 00 25        z.%   dec 0025
14877 F7BF F6 00 31        ..1   ldab 0031
14878 F7C2 26 03           &.    bne 03
14879 F7C4 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
14880 F7C7 F6 00 7F        ...   ldab 007f
14881 F7CA 27 03           '.    beq 03
14882 F7CC BD FE 69        ..i   jsr fe69             ;inhibit interrupts
14883 F7CF C6 40           .@    ldab #40
14884 F7D1 F7 10 25        ..%   stb 1025
14885 F7D4 38              8     pulx
14886 F7D5 3B              ;     rti
14887
14888 main:
14889
14890 F7D6 7F 00 14        ...   clr 0014     ;0 -> 0014
14891 F7D9 5F              _     clrb         ;0 -> B
14892 F7DA F7 38 00        .8.   stb 3800     ;B -> 3800
14893 F7DD C6 7F           ..    ldab #7f     ;7F -> B
14894 F7DF F7 00 1A        ...   stb 001a     ;B -> 001a
14895 F7E2 C6 7F           ..    ldab #7f     ;7F -> B
14896 F7E4 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14897 F7E7 C6 07           ..    ldab #07     ;7 -> B
14898 F7E9 F7 10 3C        ..<   stb 103c
14899 F7EC C6 81           ..    ldab #81     ;81 -> B
14900 F7EE F7 10 26        ..&   stb 1026
14901 F7F1 5F              _     clrb         ;0 -> B
14902 F7F2 F7 10 30        ..0   stb 1030
14903 F7F5 C6 C8           ..    ldab #c8     ;c8 -> B
14904 F7F7 F7 10 00        ...   stb 1000
14905 F7FA C6 3E           .>    ldab #3e     ;3e -> B
14906 F7FC F7 10 09        ...   stb 1009
14907 F7FF C6 12           ..    ldab #12     ;12 -> B
14908 F801 F7 10 28        ..(   stb 1028
14909
14910 F804 BD BE 69        ..i   jsr be69             ;jump3
14911 F807 BD EA 59        ..Y   jsr ea59
14912 F80A CC 00 64        ..d   ldd #0064
14913 F80D BD E5 71        ..q   jsr e571             ;jump13
14914 F810 CC B1 EF        ...   ldd #b1ef    " ROWE INT "
14915 F813 BD C0 BA        ...   jsr c0ba             ;display:
14916 F816 CC 01 F4        ...   ldd #01f4
14917 F819 BD E5 71        ..q   jsr e571             ;jump13
14918 F81C CC B1 FA        ...   ldd #b1fa    "COPYRIGHT "
14919 F81F BD C0 BA        ...   jsr c0ba             ;display:
14920 F822 CC 01 F4        ...   ldd #01f4
14921 F825 BD E5 71        ..q   jsr e571             ;jump13
14922 F828 CC B2 05        ...   ldd #b205    "   1993   "
14923 F82B BD C0 BA        ...   jsr c0ba             ;display:
14924 F82E CC 01 F4        ...   ldd #01f4
14925 F831 BD E5 71        ..q   jsr e571             ;jump13
14926 F834 CC B2 10        ...   ldd #b210    "5900 VER 5"
14927 F837 BD C0 BA        ...   jsr c0ba             ;display:
14928 F83A CC 00 0A        ...   ldd #000a
14929 F83D BD E5 71        ..q   jsr e571             ;jump13
14930 F840 7F 00 7F        ...   clr 007f
14931 F843 7F 00 21        ..!   clr 0021
14932 F846 7F 00 1F        ...   clr 001f
14933 F849 7F 00 1D        ...   clr 001d
14934 F84C 7F 00 1B        ...   clr 001b
14935 F84F 7F 00 19        ...   clr 0019
14936 F852 F6 0B C0        ...   ldab 0bc0
14937 F855 C4 01           ..    andb #01
14938 F857 27 08           '.    beq 08
14939 F859 CE 0B C1        ...   ldx #0bc1
14940 F85C 1C 00           ..    bset add,x 00,x
14941 F85E 01              .     nop
14942 F85F 20 06            .    bra 06
14943 F861 CE 0B C1        ...   ldx #0bc1
14944 F864 1D 00           ..    bclr add,x 00,x
14945 F866 01              .     nop
14946 F867 F6 0B C0        ...   ldab 0bc0
14947 F86A C4 04           ..    andb #04
14948 F86C 27 08           '.    beq 08
14949 F86E CE 0B C1        ...   ldx #0bc1
14950 F871 1C 00           ..    bset add,x 00,x
14951 F873 02              .     idiv
14952 F874 20 06            .    bra 06
14953 F876 CE 0B C1        ...   ldx #0bc1
14954 F879 1D 00           ..    bclr add,x 00,x
14955 F87B 02              .     idiv
14956 F87C CE 0B C1        ...   ldx #0bc1
14957 F87F 1D 00           ..    bclr add,x 00,x
14958 F881 04              .     lsrd
14959 F882 F6 0B C0        ...   ldab 0bc0
14960 F885 C4 02           ..    andb #02
14961 F887 27 2D           '-    beq 2d
14962 F889 C6 3C           .<    ldab #3c
14963 F88B F7 00 31        ..1   stb 0031
14964 F88E 0E              .     cli
14965 F88F CC 00 FF        ...   ldd #00ff
14966 F892 BD C7 E7        ...   jsr c7e7
14967 F895 5F              _     clrb
14968 F896 4F              O     clra
14969 F897 FD 00 40        ..@   stad 0040
14970 F89A C6 10           ..    ldab #10
14971 F89C F7 10 2C        ..,   stb 102c
14972 F89F C6 2E           ..    ldab #2e
14973 F8A1 F7 10 2D        ..-   stb 102d
14974 F8A4 C6 03           ..    ldab #03
14975 F8A6 F7 10 2B        ..+   stb 102b
14976 F8A9 C6 46           .F    ldab #46
14977 F8AB F7 00 2F        ../   stb 002f
14978 F8AE CC 07 D0        ...   ldd #07d0
14979 F8B1 BD E5 71        ..q   jsr e571             ;jump13
14980 F8B4 20 2B            +    bra 2b
14981 F8B6 BD D0 94        ...   jsr d094
14982 F8B9 C6 27           .'    ldab #27
14983 F8BB F7 10 2D        ..-   stb 102d
14984 F8BE C6 07           ..    ldab #07
14985 F8C0 F7 10 2B        ..+   stb 102b
14986 F8C3 CE 00 1A        ...   ldx #001a
14987 F8C6 1C 00           ..    bset add,x 00,x
14988 F8C8 04              .     lsrd
14989 F8C9 F6 00 1A        ...   ldab 001a
14990 F8CC F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14991 F8CF CC 07 D0        ...   ldd #07d0
14992 F8D2 BD E5 71        ..q   jsr e571             ;jump13
14993 F8D5 CE 00 1A        ...   ldx #001a
14994 F8D8 1D 00           ..    bclr add,x 00,x
14995 F8DA 04              .     lsrd
14996 F8DB F6 00 1A        ...   ldab 001a
14997 F8DE F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
14998 F8E1 7F 0E 6A        ..j   clr 0e6a
14999 F8E4 BD D4 79        ..y   jsr d479
15000 F8E7 BD E8 9A        ...   jsr e89a
15001 F8EA 7F 00 06        ...   clr 0006
15002 F8ED CE 00 1D        ...   ldx #001d
15003 F8F0 1C 00           ..    bset add,x 00,x
15004 F8F2 10              .     sba
15005 F8F3 CC 05 DC        ...   ldd #05dc
15006 F8F6 BD E5 71        ..q   jsr e571             ;jump13
15007 F8F9 C6 1E           ..    ldab #1e
15008 F8FB F7 00 35        ..5   stb 0035
15009 F8FE 0E              .     cli
15010 F8FF BD E6 1B        ...   jsr e61b             ;jump4
15011 F902 BD D1 05        ...   jsr d105
15012 F905 F6 10 0A        ...   ldab 100a
15013 F908 C4 08           ..    andb #08
15014 F90A 27 46           'F    beq 46
15015 F90C F6 10 0A        ...   ldab 100a
15016 F90F C4 08           ..    andb #08
15017 F911 27 11           '.    beq 11
15018 F913 CE 00 1A        ...   ldx #001a
15019 F916 1C 00           ..    bset add,x 00,x
15020 F918 04              .     lsrd
15021 F919 F6 00 1A        ...   ldab 001a
15022 F91C F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15023 F91F BD E6 1B        ...   jsr e61b             ;jump4
15024 F922 20 E8            .    bra e8
15025 F924 BD D0 94        ...   jsr d094
15026 F927 F6 0B C0        ...   ldab 0bc0
15027 F92A C4 01           ..    andb #01
15028 F92C 27 06           '.    beq 06
15029 F92E CE 0B C1        ...   ldx #0bc1
15030 F931 1C 00           ..    bset add,x 00,x
15031 F933 01              .     nop
15032 F934 F6 0B C0        ...   ldab 0bc0
15033 F937 C4 04           ..    andb #04
15034 F939 27 06           '.    beq 06
15035 F93B CE 0B C1        ...   ldx #0bc1
15036 F93E 1C 00           ..    bset add,x 00,x
15037 F940 02              .     idiv
15038 F941 CE 00 1A        ...   ldx #001a
15039 F944 1D 00           ..    bclr add,x 00,x
15040 F946 04              .     lsrd
15041 F947 F6 00 1A        ...   ldab 001a
15042 F94A F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15043 F94D C6 1E           ..    ldab #1e
15044 F94F F7 00 35        ..5   stb 0035
15045 F952 F6 0B C0        ...   ldab 0bc0
15046 F955 C4 08           ..    andb #08
15047 F957 27 16           '.    beq 16
15048 F959 CE 00 02        ...   ldx #0002
15049 F95C 3C              <     pshx
15050 F95D CC 10 00        ...   ldd #1000
15051 F960 BD E5 D7        ...   jsr e5d7
15052 F963 38              8     pulx
15053 F964 83 00 00        ...   subd #0000
15054 F967 27 06           '.    beq 06
15055 F969 CE 0B C1        ...   ldx #0bc1
15056 F96C 1C 00           ..    bset add,x 00,x
15057 F96E 08              .     inx
15058 F96F F6 0B C1        ...   ldab 0bc1
15059 F972 C4 07           ..    andb #07
15060 F974 27 0D           '.    beq 0d
15061 F976 F6 00 35        ..5   ldab 0035
15062 F979 26 08           &.    bne 08
15063 F97B CE 00 21        ..!   ldx #0021
15064 F97E 1C 00           ..    bset add,x 00,x
15065 F980 20 20                 bra 20
15066 F982 06              .     tap
15067 F983 CE 00 21        ..!   ldx #0021
15068 F986 1D 00           ..    bclr add,x 00,x
15069 F988 20 BD            .    bra bd
15070 F98A BB 63 BD        .c.   adda 63bd
15071 F98D B8 00 F6        ...   eora 00f6
15072 F990 0B              .     sev
15073 F991 C0 C4           ..    subb #c4
15074 F993 01              .     nop
15075 F994 27 0B           '.    beq 0b
15076 F996 FC 00 40        ..@   ldd 0040
15077 F999 F3 00 3E        ..>   addd 003e
15078 F99C 26 03           &.    bne 03
15079 F99E BD D6 F6        ...   jsr d6f6
15080 F9A1 F6 00 12        ...   ldab 0012
15081 F9A4 C4 20           .     andb #20
15082 F9A6 27 08           '.    beq 08
15083 F9A8 F6 00 35        ..5   ldab 0035
15084 F9AB 26 03           &.    bne 03
15085 F9AD 7E FA 79        ~.y   jmp fa79
15086 F9B0 CE 00 1F        ...   ldx #001f
15087 F9B3 1D 00           ..    bclr add,x 00,x
15088 F9B5 04              .     lsrd
15089 F9B6 CE 00 1D        ...   ldx #001d
15090 F9B9 1C 00           ..    bset add,x 00,x
15091 F9BB 10              .     sba
15092 F9BC F6 00 1F        ...   ldab 001f
15093 F9BF C4 20           .     andb #20
15094 F9C1 26 03           &.    bne 03
15095 F9C3 7E FA 74        ~.t   jmp fa74
15096 F9C6 F6 0B C0        ...   ldab 0bc0
15097 F9C9 C4 01           ..    andb #01
15098 F9CB 27 08           '.    beq 08
15099 F9CD CE 0B C1        ...   ldx #0bc1
15100 F9D0 1C 00           ..    bset add,x 00,x
15101 F9D2 01              .     nop
15102 F9D3 20 06            .    bra 06
15103 F9D5 CE 0B C1        ...   ldx #0bc1
15104 F9D8 1D 00           ..    bclr add,x 00,x
15105 F9DA 01              .     nop
15106 F9DB F6 0B C0        ...   ldab 0bc0
15107 F9DE C4 04           ..    andb #04
15108 F9E0 27 08           '.    beq 08
15109 F9E2 CE 0B C1        ...   ldx #0bc1
15110 F9E5 1C 00           ..    bset add,x 00,x
15111 F9E7 02              .     idiv
15112 F9E8 20 06            .    bra 06
15113 F9EA CE 0B C1        ...   ldx #0bc1
15114 F9ED 1D 00           ..    bclr add,x 00,x
15115 F9EF 02              .     idiv
15116 F9F0 CE 0B C1        ...   ldx #0bc1
15117 F9F3 1D 00           ..    bclr add,x 00,x
15118 F9F5 04              .     lsrd
15119 F9F6 CE 00 1B        ...   ldx #001b
15120 F9F9 1D 00           ..    bclr add,x 00,x
15121 F9FB 02              .     idiv
15122 F9FC F6 0B C0        ...   ldab 0bc0
15123 F9FF C4 02           ..    andb #02
15124 FA01 27 27           ''    beq 27
15125 FA03 C6 3C           .<    ldab #3c
15126 FA05 F7 00 31        ..1   stb 0031
15127 FA08 0E              .     cli
15128 FA09 CC 00 FF        ...   ldd #00ff
15129 FA0C BD C7 E7        ...   jsr c7e7
15130 FA0F 5F              _     clrb
15131 FA10 4F              O     clra
15132 FA11 FD 00 40        ..@   stad 0040
15133 FA14 C6 10           ..    ldab #10
15134 FA16 F7 10 2C        ..,   stb 102c
15135 FA19 C6 2E           ..    ldab #2e
15136 FA1B F7 10 2D        ..-   stb 102d
15137 FA1E C6 03           ..    ldab #03
15138 FA20 F7 10 2B        ..+   stb 102b
15139 FA23 C6 46           .F    ldab #46
15140 FA25 F7 00 2F        ../   stb 002f
15141 FA28 20 31            1    bra 31
15142 FA2A CE 00 21        ..!   ldx #0021
15143 FA2D 1D 00           ..    bclr add,x 00,x
15144 FA2F 40              @     nega
15145 FA30 BD D0 94        ...   jsr d094
15146 FA33 C6 27           .'    ldab #27
15147 FA35 F7 10 2D        ..-   stb 102d
15148 FA38 C6 07           ..    ldab #07
15149 FA3A F7 10 2B        ..+   stb 102b
15150 FA3D CE 00 1A        ...   ldx #001a
15151 FA40 1C 00           ..    bset add,x 00,x
15152 FA42 04              .     lsrd
15153 FA43 F6 00 1A        ...   ldab 001a
15154 FA46 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15155 FA49 CC 00 32        ..2   ldd #0032
15156 FA4C BD E5 71        ..q   jsr e571             ;jump13
15157 FA4F CE 00 1A        ...   ldx #001a
15158 FA52 1D 00           ..    bclr add,x 00,x
15159 FA54 04              .     lsrd
15160 FA55 F6 00 1A        ...   ldab 001a
15161 FA58 F7 30 00        .0.   stb 3000     ;snack motor drivers serial data is bit 7
15162 FA5B BD D4 79        ..y   jsr d479
15163 FA5E BD E8 9A        ...   jsr e89a
15164 FA61 BD BE 69        ..i   jsr be69             ;jump3
15165 FA64 7F 00 06        ...   clr 0006
15166 FA67 CE 00 1F        ...   ldx #001f
15167 FA6A 1D 00           ..    bclr add,x 00,x
15168 FA6C 20 C6            .    bra c6
15169 FA6E 1E F7 00 35     ...5  brset f7,x 00 35
15170 FA72 20 03            .    bra 03
15171 FA74 BD DE E7        ...   jsr dee7
15172 FA77 20 66            f    bra 66
15173 FA79 F6 00 12        ...   ldab 0012
15174 FA7C C4 20           .     andb #20
15175 FA7E 27 5F           '_    beq 5f
15176 FA80 F6 00 1F        ...   ldab 001f
15177 FA83 C4 20           .     andb #20
15178 FA85 26 03           &.    bne 03
15179 FA87 BD E5 AA        ...   jsr e5aa             ;jump12
15180 FA8A CE 00 1F        ...   ldx #001f
15181 FA8D 1C 00           ..    bset add,x 00,x
15182 FA8F 20 F6            .    bra f6
15183 FA91 00              .     test
15184 FA92 12              .     brset
15185 FA93 C4 01           ..    andb #01
15186 FA95 26 33           &3    bne 33
15187 FA97 F6 00 1D        ...   ldab 001d
15188 FA9A C4 08           ..    andb #08
15189 FA9C 27 2A           '*    beq 2a
15190 FA9E F6 00 1F        ...   ldab 001f
15191 FAA1 C4 04           ..    andb #04
15192 FAA3 26 14           &.    bne 14
15193 FAA5 CE 00 1F        ...   ldx #001f
15194 FAA8 1C 00           ..    bset add,x 00,x
15195 FAAA 04              .     lsrd
15196 FAAB CE 00 1F        ...   ldx #001f
15197 FAAE 1C 00           ..    bset add,x 00,x
15198 FAB0 80 CC           ..    suba #cc
15199 FAB2 02              .     idiv
15200 FAB3 33              3     pulb
15201 FAB4 FD 00 3B        ..;   stad 003b
15202 FAB7 20 09            .    bra 09
15203 FAB9 BD E5 AA        ...   jsr e5aa             ;jump12
15204 FABC CE 00 1F        ...   ldx #001f
15205 FABF 1D 00           ..    bclr add,x 00,x
15206 FAC1 04              .     lsrd
15207 FAC2 CE 00 1D        ...   ldx #001d
15208 FAC5 1D 00           ..    bclr add,x 00,x
15209 FAC7 08              .     inx
15210 FAC8 20 06            .    bra 06
15211 FACA CE 00 1D        ...   ldx #001d
15212 FACD 1C 00           ..    bset add,x 00,x
15213 FACF 08              .     inx
15214 FAD0 F6 00 1F        ...   ldab 001f
15215 FAD3 C4 04           ..    andb #04
15216 FAD5 26 05           &.    bne 05
15217 FAD7 BD 81 00        ...   jsr 8100
15218 FADA 20 03            .    bra 03
15219 FADC BD 84 A0        ...   jsr 84a0
15220 FADF 7E F8 FF        ~..   jmp f8ff
15221 FAE2 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15222 FAE5 BD C0 BA        ...   jsr c0ba             ;display:
15223 FAE8 CC 07 D0        ...   ldd #07d0
15224 FAEB BD E5 71        ..q   jsr e571             ;jump13
15225 FAEE 3B              ;     rti
15226 FAEF CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15227 FAF2 BD C0 BA        ...   jsr c0ba             ;display:
15228 FAF5 CC 07 D0        ...   ldd #07d0
15229 FAF8 BD E5 71        ..q   jsr e571             ;jump13
15230 FAFB 3B              ;     rti
15231 FAFC CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15232 FAFF BD C0 BA        ...   jsr c0ba             ;display:
15233 FB02 CC 07 D0        ...   ldd #07d0
15234 FB05 BD E5 71        ..q   jsr e571             ;jump13
15235 FB08 3B              ;     rti
15236 FB09 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15237 FB0C BD C0 BA        ...   jsr c0ba             ;display:
15238 FB0F CC 07 D0        ...   ldd #07d0
15239 FB12 BD E5 71        ..q   jsr e571             ;jump13
15240 FB15 3B              ;     rti
15241 FB16 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15242 FB19 BD C0 BA        ...   jsr c0ba             ;display:
15243 FB1C CC 07 D0        ...   ldd #07d0
15244 FB1F BD E5 71        ..q   jsr e571             ;jump13
15245 FB22 3B              ;     rti
15246 FB23 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15247 FB26 BD C0 BA        ...   jsr c0ba             ;display:
15248 FB29 CC 07 D0        ...   ldd #07d0
15249 FB2C BD E5 71        ..q   jsr e571             ;jump13
15250 FB2F 3B              ;     rti
15251 FB30 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15252 FB33 BD C0 BA        ...   jsr c0ba             ;display:
15253 FB36 CC 07 D0        ...   ldd #07d0
15254 FB39 BD E5 71        ..q   jsr e571             ;jump13
15255 FB3C 3B              ;     rti
15256 FB3D CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15257 FB40 BD C0 BA        ...   jsr c0ba             ;display:
15258 FB43 CC 07 D0        ...   ldd #07d0
15259 FB46 BD E5 71        ..q   jsr e571             ;jump13
15260 FB49 3B              ;     rti
15261 FB4A CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15262 FB4D BD C0 BA        ...   jsr c0ba             ;display:
15263 FB50 CC 07 D0        ...   ldd #07d0
15264 FB53 BD E5 71        ..q   jsr e571             ;jump13
15265 FB56 3B              ;     rti
15266 FB57 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15267 FB5A BD C0 BA        ...   jsr c0ba             ;display:
15268 FB5D CC 07 D0        ...   ldd #07d0
15269 FB60 BD E5 71        ..q   jsr e571             ;jump13
15270 FB63 3B              ;     rti
15271 FB64 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15272 FB67 BD C0 BA        ...   jsr c0ba             ;display:
15273 FB6A CC 07 D0        ...   ldd #07d0
15274 FB6D BD E5 71        ..q   jsr e571             ;jump13
15275 FB70 3B              ;     rti
15276 FB71 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15277 FB74 BD C0 BA        ...   jsr c0ba             ;display:
15278 FB77 CC 07 D0        ...   ldd #07d0
15279 FB7A BD E5 71        ..q   jsr e571             ;jump13
15280 FB7D 3B              ;     rti
15281 FB7E CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15282 FB81 BD C0 BA        ...   jsr c0ba             ;display:
15283 FB84 CC 07 D0        ...   ldd #07d0
15284 FB87 BD E5 71        ..q   jsr e571             ;jump13
15285 FB8A 3B              ;     rti
15286 FB8B CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15287 FB8E BD C0 BA        ...   jsr c0ba             ;display:
15288 FB91 CC 07 D0        ...   ldd #07d0
15289 FB94 BD E5 71        ..q   jsr e571             ;jump13
15290 FB97 3B              ;     rti
15291 FB98 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15292 FB9B BD C0 BA        ...   jsr c0ba             ;display:
15293 FB9E CC 07 D0        ...   ldd #07d0
15294 FBA1 BD E5 71        ..q   jsr e571             ;jump13
15295 FBA4 3B              ;     rti
15296 FBA5 CC B1 2E        ...   ldd #b12e            ;"**ERROR***"
15297 FBA8 BD C0 BA        ...   jsr c0ba             ;display:
15298 FBAB CC 07 D0        ...   ldd #07d0
15299 FBAE BD E5 71        ..q   jsr e571             ;jump13
15300 FBB1 3B              ;     rti
15301 FBB2 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15302 FBB5 3B              ;     rti
15303 FBB6 BD FE 69        ..i   jsr fe69             ;inhibit interrupts
15304 FBB9 3B              ;     rti
15305 FBBA 3C              <     pshx
15306 FBBB 37              7     pshb
15307 FBBC 30              0     tsx
15308 FBBD E6 06           ..    ldab 06,x
15309 FBBF 3D              =     mul
15310 FBC0 A6 00           ..    ldaa 00,x
15311 FBC2 37              7     pshb
15312 FBC3 E6 05           ..    ldab 05,x
15313 FBC5 3D              =     mul
15314 FBC6 32              2     pula
15315 FBC7 1B              .     aba
15316 FBC8 33              3     pulb
15317 FBC9 36              6     psha
15318 FBCA A6 06           ..    ldaa 06,x
15319 FBCC 3D              =     mul
15320 FBCD 37              7     pshb
15321 FBCE AB 00           ..    adda 00,x
15322 FBD0 36              6     psha
15323 FBD1 EC 03           ..    ldd 03,x
15324 FBD3 ED 05           ..    stad 05,x
15325 FBD5 38              8     pulx
15326 FBD6 8F              .     xgdx
15327 FBD7 83 00 00        ...   subd #0000
15328 FBDA 31              1     ins
15329 FBDB 38              8     pulx
15330 FBDC 31              1     ins
15331 FBDD 31              1     ins
15332 FBDE 39              9     rts
15333 FBDF BD FB E8        ...   jsr fbe8
15334 FBE2 BD FC 25        ..%   jsr fc25
15335 FBE5 7E FC 04        ~..   jmp fc04
15336 FBE8 3C              <     pshx
15337 FBE9 8F              .     xgdx
15338 FBEA EC 02           ..    ldd 02,x
15339 FBEC 37              7     pshb
15340 FBED 36              6     psha
15341 FBEE EC 00           ..    ldd 00,x
15342 FBF0 37              7     pshb
15343 FBF1 36              6     psha
15344 FBF2 34              4     des
15345 FBF3 34              4     des
15346 FBF4 34              4     des
15347 FBF5 34              4     des
15348 FBF6 3C              <     pshx
15349 FBF7 30              0     tsx
15350 FBF8 EC 12           ..    ldd 12,x
15351 FBFA ED 04           ..    stad 04,x
15352 FBFC EC 0C           ..    ldd 0c,x
15353 FBFE ED 02           ..    stad 02,x
15354 FC00 EC 10           ..    ldd 10,x
15355 FC02 38              8     pulx
15356 FC03 39              9     rts
15357 FC04 ED 00           ..    stad 00,x
15358 FC06 3C              <     pshx
15359 FC07 30              0     tsx
15360 FC08 EC 08           ..    ldd 08,x
15361 FC0A ED 0A           ..    stad 0a,x
15362 FC0C EC 02           ..    ldd 02,x
15363 FC0E ED 0C           ..    stad 0c,x
15364 FC10 38              8     pulx
15365 FC11 ED 02           ..    stad 02,x
15366 FC13 EC 00           ..    ldd 00,x
15367 FC15 26 06           &.    bne 06
15368 FC17 6D 02           m.    tst 02,x
15369 FC19 26 02           &.    bne 02
15370 FC1B 6D 03           m.    tst 03,x
15371 FC1D 31              1     ins
15372 FC1E 31              1     ins
15373 FC1F 38              8     pulx
15374 FC20 31              1     ins
15375 FC21 31              1     ins
15376 FC22 31              1     ins
15377 FC23 31              1     ins
15378 FC24 39              9     rts
15379 FC25 3C              <     pshx
15380 FC26 30              0     tsx
15381 FC27 E3 06           ..    addd 06,x
15382 FC29 37              7     pshb
15383 FC2A 36              6     psha
15384 FC2B EC 02           ..    ldd 02,x
15385 FC2D ED 06           ..    stad 06,x
15386 FC2F EC 04           ..    ldd 04,x
15387 FC31 E3 08           ..    addd 08,x
15388 FC33 ED 08           ..    stad 08,x
15389 FC35 32              2     pula
15390 FC36 33              3     pulb
15391 FC37 C9 00           ..    adcb #00
15392 FC39 89 00           ..    adca #00
15393 FC3B 83 00 00        ...   subd #0000
15394 FC3E 26 06           &.    bne 06
15395 FC40 6D 08           m.    tst 08,x
15396 FC42 26 02           &.    bne 02
15397 FC44 6D 09           m.    tst 09,x
15398 FC46 38              8     pulx
15399 FC47 31              1     ins
15400 FC48 31              1     ins
15401 FC49 31              1     ins
15402 FC4A 31              1     ins
15403 FC4B 39              9     rts
15404 FC4C 3C              <     pshx
15405 FC4D 3C              <     pshx
15406 FC4E 37              7     pshb
15407 FC4F 36              6     psha
15408 FC50 3C              <     pshx
15409 FC51 3C              <     pshx
15410 FC52 3C              <     pshx
15411 FC53 18 3C           .<    pshy
15412 FC55 30              0     tsx
15413 FC56 4F              O     clra
15414 FC57 A7 04           ..    sta 04,x
15415 FC59 7E FC 6D        ~.m   jmp fc6d
15416 FC5C 3C              <     pshx
15417 FC5D 3C              <     pshx
15418 FC5E 37              7     pshb
15419 FC5F 36              6     psha
15420 FC60 3C              <     pshx
15421 FC61 3C              <     pshx
15422 FC62 3C              <     pshx
15423 FC63 18 3C           .<    pshy
15424 FC65 30              0     tsx
15425 FC66 86 01           ..    ldaa #01
15426 FC68 A7 04           ..    sta 04,x
15427 FC6A 7E FC 6D        ~.m   jmp fc6d
15428 FC6D 1A EE 0E        ...   ldy 0e,x
15429 FC70 EC 08           ..    ldd 08,x
15430 FC72 ED 0E           ..    stad 0e,x
15431 FC74 EC 14           ..    ldd 14,x
15432 FC76 ED 0C           ..    stad 0c,x
15433 FC78 EC 12           ..    ldd 12,x
15434 FC7A ED 0A           ..    stad 0a,x
15435 FC7C 1A EF 12        ...   sty 12,x
15436 FC7F 4F              O     clra
15437 FC80 5F              _     clrb
15438 FC81 ED 08           ..    stad 08,x
15439 FC83 ED 06           ..    stad 06,x
15440 FC85 EC 0A           ..    ldd 0a,x
15441 FC87 1A A3 0E        ...   cmpd 0e,x
15442 FC8A 22 23           "#    bhi 23
15443 FC8C 27 15           '.    beq 15
15444 FC8E 1E 04 01 08     ....  brset 04,x 01 08
15445 FC92 CC 00 00        ...   ldd #0000
15446 FC95 ED 14           ..    stad 14,x
15447 FC97 7E FE 04        ~..   jmp fe04
15448 FC9A EC 0C           ..    ldd 0c,x
15449 FC9C ED 14           ..    stad 14,x
15450 FC9E EC 0A           ..    ldd 0a,x
15451 FCA0 7E FD E3        ~..   jmp fde3
15452 FCA3 83 00 00        ...   subd #0000
15453 FCA6 27 12           '.    beq 12
15454 FCA8 EC 0C           ..    ldd 0c,x
15455 FCAA 1A A3 10        ...   cmpd 10,x
15456 FCAD 25 DF           %.    bcs df
15457 FCAF 6D 0E           m.    tst 0e,x
15458 FCB1 26 70           &p    bne 70
15459 FCB3 6D 0F           m.    tst 0f,x
15460 FCB5 27 1A           '.    beq 1a
15461 FCB7 7E FD A4        ~..   jmp fda4
15462 FCBA 3C              <     pshx
15463 FCBB 3C              <     pshx
15464 FCBC 18 38           .8    puly
15465 FCBE EC 0C           ..    ldd 0c,x
15466 FCC0 EE 10           ..    ldx 10,x
15467 FCC2 02              .     idiv
15468 FCC3 18 1E 04 01 01  ..... brset 04,y 01 01
15469 FCC8 8F              .     xgdx
15470 FCC9 38              8     pulx
15471 FCCA ED 14           ..    stad 14,x
15472 FCCC 4F              O     clra
15473 FCCD 5F              _     clrb
15474 FCCE 7E FD E3        ~..   jmp fde3
15475 FCD1 3C              <     pshx
15476 FCD2 3C              <     pshx
15477 FCD3 18 38           .8    puly
15478 FCD5 EC 0A           ..    ldd 0a,x
15479 FCD7 EE 10           ..    ldx 10,x
15480 FCD9 3C              <     pshx
15481 FCDA 02              .     idiv
15482 FCDB CD EF 0A        ...   stx 02x,y
15483 FCDE 38              8     pulx
15484 FCDF 3C              <     pshx
15485 FCE0 03              .     fdiv
15486 FCE1 CD EF 0E        ...   stx 02x,y
15487 FCE4 38              8     pulx
15488 FCE5 18 E3 0C        ...   addd 0c,y
15489 FCE8 24 1B           $.    bcc 1b
15490 FCEA 18 ED 0C        ...   stad 0c,y
15491 FCED 4F              O     clra
15492 FCEE C6 01           ..    ldab #01
15493 FCF0 3C              <     pshx
15494 FCF1 03              .     fdiv
15495 FCF2 8F              .     xgdx
15496 FCF3 18 E3 0E        ...   addd 0e,y
15497 FCF6 24 03           $.    bcc 03
15498 FCF8 18 6C 0A        .l.   inc 0a,y
15499 FCFB 18 ED 0E        ...   stad 0e,y
15500 FCFE 8F              .     xgdx
15501 FCFF 38              8     pulx
15502 FD00 18 E3 0C        ...   addd 0c,y
15503 FD03 25 E5           %.    bcs e5
15504 FD05 02              .     idiv
15505 FD06 8F              .     xgdx
15506 FD07 18 E3 0E        ...   addd 0e,y
15507 FD0A 24 03           $.    bcc 03
15508 FD0C 18 6C 0A        .l.   inc 0a,y
15509 FD0F 18 1F 04 01 07  ..... brclr 04,y 01 07
15510 FD14 8F              .     xgdx
15511 FD15 18 6F 0A        .o.   clr 0a,y
15512 FD18 18 6F 0B        .o.   clr 0b,y
15513 FD1B 38              8     pulx
15514 FD1C ED 14           ..    stad 14,x
15515 FD1E EC 0A           ..    ldd 0a,x
15516 FD20 7E FD E3        ~..   jmp fde3
15517 FD23 86 08           ..    ldaa #08
15518 FD25 A7 05           ..    sta 05,x
15519 FD27 69              i     rol
15520 FD28 0D              .     sec
15521 FD29 69              i     rol
15522 FD2A 0C              .     clc
15523 FD2B 69              i     rol
15524 FD2C 0B              .     sev
15525 FD2D 69              i     rol
15526 FD2E 0A              .     clv
15527 FD2F 69              i     rol
15528 FD30 09              .     dex
15529 FD31 EC 0B           ..    ldd 0b,x
15530 FD33 A3 10           ..    subd 10,x
15531 FD35 ED 14           ..    stad 14,x
15532 FD37 EC 09           ..    ldd 09,x
15533 FD39 E2 0F           ..    sbcb 0f,x
15534 FD3B A2 0E           ..    sbca 0e,x
15535 FD3D 25 06           %.    bcs 06
15536 FD3F ED 09           ..    stad 09,x
15537 FD41 EC 14           ..    ldd 14,x
15538 FD43 ED 0B           ..    stad 0b,x
15539 FD45 6A 05           j.    dec 05,x
15540 FD47 26 DE           &.    bne de
15541 FD49 69              i     rol
15542 FD4A 0D              .     sec
15543 FD4B 1F 04 01 09     ....  brclr 04,x 01 09
15544 FD4F EC 0B           ..    ldd 0b,x
15545 FD51 ED 14           ..    stad 14,x
15546 FD53 EC 09           ..    ldd 09,x
15547 FD55 7E FD E3        ~..   jmp fde3
15548 FD58 4F              O     clra
15549 FD59 E6 0D           ..    ldab 0d,x
15550 FD5B 53              S     comb
15551 FD5C ED 14           ..    stad 14,x
15552 FD5E 5F              _     clrb
15553 FD5F 7E FD E3        ~..   jmp fde3
15554 FD62 86 10           ..    ldaa #10
15555 FD64 A7 05           ..    sta 05,x
15556 FD66 69              i     rol
15557 FD67 0D              .     sec
15558 FD68 69              i     rol
15559 FD69 0C              .     clc
15560 FD6A 69              i     rol
15561 FD6B 0B              .     sev
15562 FD6C 69              i     rol
15563 FD6D 0A              .     clv
15564 FD6E 69              i     rol
15565 FD6F 09              .     dex
15566 FD70 69              i     rol
15567 FD71 08              .     inx
15568 FD72 EC 0A           ..    ldd 0a,x
15569 FD74 A3 10           ..    subd 10,x
15570 FD76 ED 14           ..    stad 14,x
15571 FD78 EC 08           ..    ldd 08,x
15572 FD7A E2 0F           ..    sbcb 0f,x
15573 FD7C 82 00           ..    sbca #00
15574 FD7E 25 06           %.    bcs 06
15575 FD80 ED 08           ..    stad 08,x
15576 FD82 EC 14           ..    ldd 14,x
15577 FD84 ED 0A           ..    stad 0a,x
15578 FD86 6A 05           j.    dec 05,x
15579 FD88 26 DC           &.    bne dc
15580 FD8A 69              i     rol
15581 FD8B 0D              .     sec
15582 FD8C 69              i     rol
15583 FD8D 0C              .     clc
15584 FD8E 1F 04 01 08     ....  brclr 04,x 01 08
15585 FD92 EC 0A           ..    ldd 0a,x
15586 FD94 ED 14           ..    stad 14,x
15587 FD96 EC 08           ..    ldd 08,x
15588 FD98 20 49            I    bra 49
15589 FD9A EC 0C           ..    ldd 0c,x
15590 FD9C 43              C     coma
15591 FD9D 53              S     comb
15592 FD9E ED 14           ..    stad 14,x
15593 FDA0 4F              O     clra
15594 FDA1 5F              _     clrb
15595 FDA2 20 3F            ?    bra 3f
15596 FDA4 2B BC           +.    bmi bc
15597 FDA6 86 10           ..    ldaa #10
15598 FDA8 A7 05           ..    sta 05,x
15599 FDAA 69              i     rol
15600 FDAB 0D              .     sec
15601 FDAC 69              i     rol
15602 FDAD 0C              .     clc
15603 FDAE 69              i     rol
15604 FDAF 0B              .     sev
15605 FDB0 69              i     rol
15606 FDB1 0A              .     clv
15607 FDB2 69              i     rol
15608 FDB3 07              .     tpa
15609 FDB4 EC 0A           ..    ldd 0a,x
15610 FDB6 A3 10           ..    subd 10,x
15611 FDB8 ED 14           ..    stad 14,x
15612 FDBA A6 07           ..    ldaa 07,x
15613 FDBC A2 0F           ..    sbca 0f,x
15614 FDBE 25 06           %.    bcs 06
15615 FDC0 A7 07           ..    sta 07,x
15616 FDC2 EC 14           ..    ldd 14,x
15617 FDC4 ED 0A           ..    stad 0a,x
15618 FDC6 6A 05           j.    dec 05,x
15619 FDC8 26 E0           &.    bne e0
15620 FDCA 69              i     rol
15621 FDCB 0D              .     sec
15622 FDCC 69              i     rol
15623 FDCD 0C              .     clc
15624 FDCE 1F 04 01 09     ....  brclr 04,x 01 09
15625 FDD2 EC 0A           ..    ldd 0a,x
15626 FDD4 ED 14           ..    stad 14,x
15627 FDD6 4F              O     clra
15628 FDD7 E6 07           ..    ldab 07,x
15629 FDD9 20 08            .    bra 08
15630 FDDB EC 0C           ..    ldd 0c,x
15631 FDDD 43              C     coma
15632 FDDE 53              S     comb
15633 FDDF ED 14           ..    stad 14,x
15634 FDE1 4F              O     clra
15635 FDE2 5F              _     clrb
15636 FDE3 1F 04 80 12     ....  brclr 04,x 80 12
15637 FDE7 43              C     coma
15638 FDE8 53              S     comb
15639 FDE9 63 14           c.    com 14,x
15640 FDEB 63 15           c.    com 15,x
15641 FDED 6C 15           l.    inc 15,x
15642 FDEF 26 08           &.    bne 08
15643 FDF1 6C 14           l.    inc 14,x
15644 FDF3 26 04           &.    bne 04
15645 FDF5 5C              \     incb
15646 FDF6 26 01           &.    bne 01
15647 FDF8 4C              L     inca
15648 FDF9 83 00 00        ...   subd #0000
15649 FDFC 26 06           &.    bne 06
15650 FDFE 6D 14           m.    tst 14,x
15651 FE00 26 02           &.    bne 02
15652 FE02 6D 15           m.    tst 15,x
15653 FE04 18 38           .8    puly
15654 FE06 38              8     pulx
15655 FE07 31              1     ins
15656 FE08 31              1     ins
15657 FE09 31              1     ins
15658 FE0A 31              1     ins
15659 FE0B 31              1     ins
15660 FE0C 31              1     ins
15661 FE0D 31              1     ins
15662 FE0E 31              1     ins
15663 FE0F 31              1     ins
15664 FE10 31              1     ins
15665 FE11 31              1     ins
15666 FE12 31              1     ins
15667 FE13 31              1     ins
15668 FE14 31              1     ins
15669 FE15 39              9     rts
15670
15671 jump2:
15672 FE16 38              8     pulx
15673 FE17 A3 00           ..    subd 00,x
15674 FE19 2D 05           -.    blt 05
15675 FE1B 1A A3 02        ...   cmpd 02,x
15676 FE1E 2F 03           /.    ble 03
15677 FE20 CC FF FF        ...   ldd #ffff
15678 FE23 3C              <     pshx
15679 FE24 05              .     asld
15680 FE25 30              0     tsx
15681 FE26 E3 00           ..    addd 00,x
15682 FE28 C3 00 06        ...   addd #0006
15683 FE2B 8F              .     xgdx
15684 FE2C EC 00           ..    ldd 00,x
15685 FE2E 30              0     tsx
15686 FE2F ED 00           ..    stad 00,x
15687 FE31 39              9     rts
15688
15689 FE32 38              8     pulx
15690 FE33 6D 04           m.    tst 04,x
15691 FE35 26 04           &.    bne 04
15692 FE37 6D 05           m.    tst 05,x
15693 FE39 27 0A           '.    beq 0a
15694 FE3B A3 02           ..    subd 02,x
15695 FE3D 27 06           '.    beq 06
15696 FE3F 08              .     inx
15697 FE40 08              .     inx
15698 FE41 08              .     inx
15699 FE42 08              .     inx
15700 FE43 20 EE            .    bra ee
15701 FE45 EE 00           ..    ldx 00,x
15702 FE47 6E 00           n.    jmp 00,x
15703
15704         reset:
15705
15706 FE49 86 40           .@    ldaa #40     ;40 -> A
15707 FE4B B7 10 24        ..$   sta 1024     ;A -> 1024
15708 FE4E 86 A0           ..    ldaa #a0     ;a0 -> A
15709 FE50 B7 10 39        ..9   sta 1039     ;A -> 1024
15710 FE53 8E 00 EF        ...   lds #00ef
15711 FE56 CE 00 00        ...   ldx #0000    ;wipe 0000-007f  X=0000
15712 FE59 8C 00 80        ...   cpx #0080    ;loop: if X = 0080
15713 FE5C 24 05           $.    bcc fe63     ;        finished
15714 FE5E 6F 00           o.    clr 00,x     ;      else: load addr X with 0
15715 FE60 08              .     inx          ;        increment X
15716 FE61 20 F6            .    bra fe59     ;repeat
15717 FE63 BD F7 D6        ...   jsr f7d6     ;goto main:
15718 FE66 7E FE 6D        ~.m   jmp fe6d     ;
15719
15720 FE69 0F              .     sei          ;inhibit interrupts
15721 FE6A 7E FE 49        ~.I   jmp fe49     ;goto reset:
15722
15723 FE6D 20 FE            .    bra fe6d     ;loop forever
15724                                         ;[SAF] - wait for interrupts?
15725
15726 FE6F FF FF FF        ...   stx ffff
15727 FE72 FF FF FF        ...   stx ffff
15728 FE75 FF FF FF        ...   stx ffff
15729 FE78 FF FF FF        ...   stx ffff
15730 FE7B FF FF FF        ...   stx ffff
15731 FE7E FF FF FF        ...   stx ffff
15732 FE81 FF FF FF        ...   stx ffff
15733 FE84 FF FF FF        ...   stx ffff
15734 FE87 FF FF FF        ...   stx ffff
15735 FE8A FF FF FF        ...   stx ffff
15736 FE8D FF FF FF        ...   stx ffff
15737 FE90 FF FF FF        ...   stx ffff
15738 FE93 FF FF FF        ...   stx ffff
15739 FE96 FF FF FF        ...   stx ffff
15740 FE99 FF FF FF        ...   stx ffff
15741 FE9C FF FF FF        ...   stx ffff
15742 FE9F FF FF FF        ...   stx ffff
15743 FEA2 FF FF FF        ...   stx ffff
15744 FEA5 FF FF FF        ...   stx ffff
15745 FEA8 FF FF FF        ...   stx ffff
15746 FEAB FF FF FF        ...   stx ffff
15747 FEAE FF FF FF        ...   stx ffff
15748 FEB1 FF FF FF        ...   stx ffff
15749 FEB4 FF FF FF        ...   stx ffff
15750 FEB7 FF FF FF        ...   stx ffff
15751 FEBA FF FF FF        ...   stx ffff
15752 FEBD FF FF FF        ...   stx ffff
15753 FEC0 FF FF FF        ...   stx ffff
15754 FEC3 FF FF FF        ...   stx ffff
15755 FEC6 FF FF FF        ...   stx ffff
15756 FEC9 FF FF FF        ...   stx ffff
15757 FECC FF FF FF        ...   stx ffff
15758 FECF FF FF FF        ...   stx ffff
15759 FED2 FF FF FF        ...   stx ffff
15760 FED5 FF FF FF        ...   stx ffff
15761 FED8 FF FF FF        ...   stx ffff
15762 FEDB FF FF FF        ...   stx ffff
15763 FEDE FF FF FF        ...   stx ffff
15764 FEE1 FF FF FF        ...   stx ffff
15765 FEE4 FF FF FF        ...   stx ffff
15766 FEE7 FF FF FF        ...   stx ffff
15767 FEEA FF FF FF        ...   stx ffff
15768 FEED FF FF FF        ...   stx ffff
15769 FEF0 FF FF FF        ...   stx ffff
15770 FEF3 FF FF FF        ...   stx ffff
15771 FEF6 FF FF FF        ...   stx ffff
15772 FEF9 FF FF FF        ...   stx ffff
15773 FEFC FF FF FF        ...   stx ffff
15774 FEFF FF FF FF        ...   stx ffff
15775 FF02 FF FF FF        ...   stx ffff
15776 FF05 FF FF FF        ...   stx ffff
15777 FF08 FF FF FF        ...   stx ffff
15778 FF0B FF FF FF        ...   stx ffff
15779 FF0E FF FF FF        ...   stx ffff
15780 FF11 FF FF FF        ...   stx ffff
15781 FF14 FF FF FF        ...   stx ffff
15782 FF17 FF FF FF        ...   stx ffff
15783 FF1A FF FF FF        ...   stx ffff
15784 FF1D FF FF FF        ...   stx ffff
15785 FF20 FF FF FF        ...   stx ffff
15786 FF23 FF FF FF        ...   stx ffff
15787 FF26 FF FF FF        ...   stx ffff
15788 FF29 FF FF FF        ...   stx ffff
15789 FF2C FF FF FF        ...   stx ffff
15790 FF2F FF FF FF        ...   stx ffff
15791 FF32 FF FF FF        ...   stx ffff
15792 FF35 FF FF FF        ...   stx ffff
15793 FF38 FF FF FF        ...   stx ffff
15794 FF3B FF FF FF        ...   stx ffff
15795 FF3E FF FF FF        ...   stx ffff
15796 FF41 FF FF FF        ...   stx ffff
15797 FF44 FF FF FF        ...   stx ffff
15798 FF47 FF FF FF        ...   stx ffff
15799 FF4A FF FF FF        ...   stx ffff
15800 FF4D FF FF FF        ...   stx ffff
15801 FF50 FF FF FF        ...   stx ffff
15802 FF53 FF FF FF        ...   stx ffff
15803 FF56 FF FF FF        ...   stx ffff
15804 FF59 FF FF FF        ...   stx ffff
15805 FF5C FF FF FF        ...   stx ffff
15806 FF5F FF FF FF        ...   stx ffff
15807 FF62 FF FF FF        ...   stx ffff
15808 FF65 FF FF FF        ...   stx ffff
15809 FF68 FF FF FF        ...   stx ffff
15810 FF6B FF FF FF        ...   stx ffff
15811 FF6E FF FF FF        ...   stx ffff
15812 FF71 FF FF FF        ...   stx ffff
15813 FF74 FF FF FF        ...   stx ffff
15814 FF77 FF FF FF        ...   stx ffff
15815 FF7A FF FF FF        ...   stx ffff
15816 FF7D FF FF FF        ...   stx ffff
15817 FF80 FF FF FF        ...   stx ffff
15818 FF83 FF FF FF        ...   stx ffff
15819 FF86 FF FF FF        ...   stx ffff
15820 FF89 FF FF FF        ...   stx ffff
15821 FF8C FF FF FF        ...   stx ffff
15822 FF8F FF FF FF        ...   stx ffff
15823 FF92 FF FF FF        ...   stx ffff
15824 FF95 FF FF FF        ...   stx ffff
15825 FF98 FF FF FF        ...   stx ffff
15826 FF9B FF FF FF        ...   stx ffff
15827 FF9E FF FF FF        ...   stx ffff
15828 FFA1 FF FF FF        ...   stx ffff
15829 FFA4 FF FF FF        ...   stx ffff
15830 FFA7 FF FF FF        ...   stx ffff
15831 FFAA FF FF FF        ...   stx ffff
15832 FFAD FF FF FF        ...   stx ffff
15833 FFB0 FF FF FF        ...   stx ffff
15834 FFB3 FF FF FF        ...   stx ffff
15835 FFB6 FF FF FF        ...   stx ffff
15836 FFB9 FF FF FF        ...   stx ffff
15837 FFBC FF FF FF        ...   stx ffff
15838 FFBF FF FF FF        ...   stx ffff
15839 FFC2 FF FF FF        ...   stx ffff
15840 FFC5 FF FF FF        ...   stx ffff
15841 FFC8 FF FF FF        ...   stx ffff
15842 FFCB FF FF FF        ...   stx ffff
15843 FFCE FF FF FF        ...   stx ffff
15844 FFD1 FF FF FF        ...   stx ffff
15845 FFD4 FF FF
15846
15847 FFD6    ;vectors
15848         .word   c81c
15849         .word   fae2
15850         .word   faef
15851         .word   fafc
15852         .word   fb09
15853         .word   fb16
15854         .word   fb23
15855         .word   fb30
15856         .word   fb3d
15857         .word   fb4a
15858         .word   fb57
15859         .word   fb64
15860         .word   fb71
15861         .word   f718
15862         .word   fb7e
15863         .word   fb8b
15864         .word   fb98
15865         .word   fba5
15866         .word   fbb2
15867         .word   fbb6
15868         .word   fe49
15869 \1a