CBM Funet Archive/cbm-funet-archive-2003.iso/cbm/firmware/drives/new/1581/hacks/list1581.ls5

Text File | 1996-08-13 | 257KB | 9,417 lines

;----------------------------

; commodore-1581 rom v10/c

; modifyed tfss 1996.08.11.

;----------------------------

;

$8000  .byte $4d,$19 ; oRIGINAL rom crc sIGNATURE

$8002  .byte $cd,$01 ; sTART crc cALCULATE vALUE

;

$8004  a9 00      lda #$00

$8006  85 35      sta $35

$8008  20 62 a8   jsr $a862

$800b  a5 53      lda $53

$800d  10 09      bpl $8018

$800f  29 0f      and #$0f

$8011  c9 0f      cmp #$0f

$8013  f0 03      beq $8018

$8015  4c 78 96   jmp $9678

$8018  20 65 81   jsr $8165

$801b  b1 cd      lda ($cd),y

$801d  8d 8f 02   sta $028f

$8020  a2 0b      ldx #$0b

$8022  bd 78 db   lda $db78,x

$8025  cd 8f 02   cmp $028f

$8028  f0 08      beq $8032

$802a  ca         dex

$802b  10 f5      bpl $8022

$802d  a9 31      lda #$31

$802f  4c 7c 80   jmp $807c

$8032  8e 2a 02   stx $022a

$8035  e0 09      cpx #$09

$8037  90 03      bcc $803c

$8039  20 a2 80   jsr $80a2

$803c  ae 2a 02   ldx $022a

$803f  bd 84 db   lda $db84,x

$8042  85 40      sta $40

$8044  bd 90 db   lda $db90,x

$8047  85 41      sta $41

$8049  6c 40 00   jmp ($0040)

$804c  a9 00      lda #$00

$804e  85 35      sta $35

$8050  ad ab 02   lda $02ab

$8053  f0 03      beq $8058

$8055  4c 7c 80   jmp $807c

$8058  a0 00      ldy #$00

$805a  98         tya

$805b  85 4d      sta $4d

$805d  84 4e      sty $4e

$805f  84 cd      sty $cd

$8061  20 6d a8   jsr $a86d

$8064  20 e5 81   jsr $81e5

$8067  a9 00      lda #$00

$8069  85 6e      sta $6e

$806b  20 71 80   jsr $8071

$806e  4c 34 94   jmp $9434

$8071  a0 28      ldy #$28

$8073  a9 00      lda #$00

$8075  99 00 02   sta $0200,y

$8078  88         dey

$8079  10 fa      bpl $8075

$807b  60         rts

$807c  a0 00      ldy #$00

$807e  84 4d      sty $4d

$8080  84 4e      sty $4e

$8082  4c 3f ff   jmp $ff3f

$8085  a2 00      ldx #$00

$8087  8e 91 02   stx $0291

$808a  a9 3a      lda #$3a

$808c  20 1c 81   jsr $811c

$808f  f0 05      beq $8096

$8091  88         dey

$8092  88         dey

$8093  8c 91 02   sty $0291

$8096  4c 51 82   jmp $8251

$8099  a0 00      ldy #$00

$809b  a2 00      ldx #$00

$809d  a9 3a      lda #$3a

$809f  4c 1c 81   jmp $811c

$80a2  20 99 80   jsr $8099

$80a5  d0 05      bne $80ac

$80a7  a9 34      lda #$34

$80a9  4c 7c 80   jmp $807c

$80ac  88         dey

$80ad  88         dey

$80ae  8c 91 02   sty $0291

$80b1  8a         txa

$80b2  d0 f3      bne $80a7

$80b4  a9 3d      lda #$3d

$80b6  20 1c 81   jsr $811c

$80b9  8a         txa

$80ba  f0 02      beq $80be

$80bc  a9 40      lda #$40

$80be  09 21      ora #$21

$80c0  8d a2 02   sta $02a2

$80c3  e8         inx

$80c4  8e 2e 02   stx $022e

$80c7  8e 2f 02   stx $022f

$80ca  ad a1 02   lda $02a1

$80cd  f0 0d      beq $80dc

$80cf  a9 80      lda #$80

$80d1  0d a2 02   ora $02a2

$80d4  8d a2 02   sta $02a2

$80d7  a9 00      lda #$00

$80d9  8d a1 02   sta $02a1

$80dc  98         tya

$80dd  f0 29      beq $8108

$80df  9d 91 02   sta $0291,x

$80e2  ad 2e 02   lda $022e

$80e5  8d 30 02   sta $0230

$80e8  a9 8d      lda #$8d

$80ea  20 1c 81   jsr $811c

$80ed  e8         inx

$80ee  8e 2f 02   stx $022f

$80f1  ca         dex

$80f2  ad a1 02   lda $02a1

$80f5  f0 02      beq $80f9

$80f7  a9 08      lda #$08

$80f9  ec 2e 02   cpx $022e

$80fc  f0 02      beq $8100

$80fe  09 04      ora #$04

$8100  09 03      ora #$03

$8102  4d a2 02   eor $02a2

$8105  8d a2 02   sta $02a2

$8108  ad a2 02   lda $02a2

$810b  ae 2a 02   ldx $022a

$810e  3d 94 db   and $db94,x

$8111  d0 01      bne $8114

$8113  60         rts

$8114  8d ab 02   sta $02ab

$8117  a9 30      lda #$30

$8119  4c 7c 80   jmp $807c

$811c  8d 8f 02   sta $028f

$811f  c4 29      cpy $29

$8121  b0 2e      bcs $8151

$8123  b1 cd      lda ($cd),y

$8125  c8         iny

$8126  cd 8f 02   cmp $028f

$8129  f0 28      beq $8153

$812b  c9 2a      cmp #$2a

$812d  f0 04      beq $8133

$812f  c9 3f      cmp #$3f

$8131  d0 03      bne $8136

$8133  ee a1 02   inc $02a1

$8136  c9 2c      cmp #$2c

$8138  d0 e5      bne $811f

$813a  98         tya

$813b  9d 92 02   sta $0292,x

$813e  ad a1 02   lda $02a1

$8141  29 7f      and #$7f

$8143  f0 07      beq $814c

$8145  a9 80      lda #$80

$8147  95 f4      sta $f4,x

$8149  8d a1 02   sta $02a1

$814c  e8         inx

$814d  e0 04      cpx #$04

$814f  90 ce      bcc $811f

$8151  a0 00      ldy #$00

$8153  a5 29      lda $29

$8155  9d 92 02   sta $0292,x

$8158  ad a1 02   lda $02a1

$815b  29 7f      and #$7f

$815d  f0 04      beq $8163

$815f  a9 80      lda #$80

$8161  95 f4      sta $f4,x

$8163  98         tya

$8164  60         rts

$8165  a4 cd      ldy $cd

$8167  f0 36      beq $819f

$8169  88         dey

$816a  f0 32      beq $819e

$816c  ad 00 02   lda $0200

$816f  c9 55      cmp #$55

$8171  d0 07      bne $817a

$8173  ad 01 02   lda $0201

$8176  c9 30      cmp #$30

$8178  f0 04      beq $817e

$817a  b9 00 02   lda $0200,y

$817d  2c a9 00   bit $00a9

$8180  c9 0d      cmp #$0d

$8182  f0 1b      beq $819f

$8184  88         dey

$8185  ad 00 02   lda $0200

$8188  c9 55      cmp #$55

$818a  d0 07      bne $8193

$818c  ad 01 02   lda $0201

$818f  c9 30      cmp #$30

$8191  f0 04      beq $8197

$8193  b9 00 02   lda $0200,y

$8196  2c a9 00   bit $00a9

$8199  c9 0d      cmp #$0d

$819b  f0 02      beq $819f

$819d  c8         iny

$819e  c8         iny

$819f  84 29      sty $29

$81a1  c0 2a      cpy #$2a

$81a3  a0 ff      ldy #$ff

$81a5  90 08      bcc $81af

$81a7  8c 2a 02   sty $022a

$81aa  a9 32      lda #$32

$81ac  4c 7c 80   jmp $807c

$81af  a0 00      ldy #$00

$81b1  98         tya

$81b2  85 cd      sta $cd

$81b4  8d 6f 02   sta $026f

$81b7  8d 2d 02   sta $022d

$81ba  8d 33 02   sta $0233

$81bd  85 67      sta $67

$81bf  8d 30 02   sta $0230

$81c2  8d 2e 02   sta $022e

$81c5  8d 2f 02   sta $022f

$81c8  8d a1 02   sta $02a1

$81cb  8d ab 02   sta $02ab

$81ce  a2 05      ldx #$05

$81d0  9d 90 02   sta $0290,x

$81d3  95 e4      sta $e4,x

$81d5  95 e9      sta $e9,x

$81d7  95 ee      sta $ee,x

$81d9  95 f3      sta $f3,x

$81db  9d 96 02   sta $0296,x

$81de  9d 9b 02   sta $029b,x

$81e1  ca         dex

$81e2  d0 ec      bne $81d0

$81e4  60         rts

$81e5  a9 00      lda #$00

$81e7  8d ab 02   sta $02ab

$81ea  a5 79      lda $79

$81ec  29 df      and #$df

$81ee  85 79      sta $79

$81f0  60         rts

$81f1  a9 50      lda #$50

$81f3  8d ab 02   sta $02ab

$81f6  a5 79      lda $79

$81f8  09 40      ora #$40

$81fa  85 79      sta $79

$81fc  60         rts

$81fd  ad 2f 02   lda $022f

$8200  8d 2e 02   sta $022e

$8203  a9 01      lda #$01

$8205  8d 2f 02   sta $022f

$8208  8d 30 02   sta $0230

$820b  a2 00      ldx #$00

$820d  86 67      stx $67

$820f  bd 91 02   lda $0291,x

$8212  20 24 82   jsr $8224

$8215  a6 67      ldx $67

$8217  9d 91 02   sta $0291,x

$821a  98         tya

$821b  95 ef      sta $ef,x

$821d  e8         inx

$821e  ec 2f 02   cpx $022f

$8221  90 ea      bcc $820d

$8223  60         rts

$8224  aa         tax

$8225  a0 00      ldy #$00

$8227  a9 3a      lda #$3a

$8229  dd 01 02   cmp $0201,x

$822c  f0 0c      beq $823a

$822e  dd 00 02   cmp $0200,x

$8231  d0 17      bne $824a

$8233  e8         inx

$8234  98         tya

$8235  29 01      and #$01

$8237  a8         tay

$8238  8a         txa

$8239  60         rts

$823a  bd 00 02   lda $0200,x

$823d  e8         inx

$823e  e8         inx

$823f  c9 30      cmp #$30

$8241  f0 f2      beq $8235

$8243  c9 31      cmp #$31

$8245  d0 ed      bne $8234

$8247  4c 2d 80   jmp $802d

$824a  98         tya

$824b  09 80      ora #$80

$824d  29 81      and #$81

$824f  d0 e6      bne $8237

$8251  a9 00      lda #$00

$8253  8d a2 02   sta $02a2

$8256  ac 91 02   ldy $0291

$8259  b1 cd      lda ($cd),y

$825b  20 95 82   jsr $8295

$825e  10 0d      bpl $826d

$8260  c8         iny

$8261  c4 29      cpy $29

$8263  b0 05      bcs $826a

$8265  a4 29      ldy $29

$8267  88         dey

$8268  d0 ef      bne $8259

$826a  ce a2 02   dec $02a2

$826d  4c f6 81   jmp $81f6

$8270  a0 00      ldy #$00

$8272  ad 2e 02   lda $022e

$8275  cd 2f 02   cmp $022f

$8278  f0 16      beq $8290

$827a  ce 2f 02   dec $022f

$827d  ac 2f 02   ldy $022f

$8280  b9 91 02   lda $0291,y

$8283  a8         tay

$8284  b1 cd      lda ($cd),y

$8286  a0 05      ldy #$05

$8288  d9 ab db   cmp $dbab,y

$828b  f0 03      beq $8290

$828d  88         dey

$828e  d0 f8      bne $8288

$8290  98         tya

$8291  8d 33 02   sta $0233

$8294  60         rts

$8295  c9 30      cmp #$30

$8297  f0 06      beq $829f

$8299  c9 31      cmp #$31

$829b  f0 02      beq $829f

$829d  09 80      ora #$80

$829f  29 81      and #$81

$82a1  60         rts

$82a2  a9 00      lda #$00

$82a4  85 40      sta $40

$82a6  8d a4 02   sta $02a4

$82a9  8d a3 02   sta $02a3

$82ac  20 ae 84   jsr $84ae

$82af  f0 05      beq $82b6

$82b1  a9 74      lda #$74

$82b3  20 7c 80   jsr $807c

$82b6  4c f6 81   jmp $81f6

$82b9  20 a2 82   jsr $82a2

$82bc  a9 00      lda #$00

$82be  85 73      sta $73

$82c0  20 24 84   jsr $8424

$82c3  d0 0b      bne $82d0

$82c5  ce a3 02   dec $02a3

$82c8  10 f2      bpl $82bc

$82ca  60         rts

$82cb  20 89 84   jsr $8489

$82ce  f0 10      beq $82e0

$82d0  20 27 83   jsr $8327

$82d3  ad a5 02   lda $02a5

$82d6  f0 01      beq $82d9

$82d8  60         rts

$82d9  ad 6d 02   lda $026d

$82dc  30 ed      bmi $82cb

$82de  10 f0      bpl $82d0

$82e0  ad a5 02   lda $02a5

$82e3  f0 e0      beq $82c5

$82e5  60         rts

$82e6  20 77 84   jsr $8477

$82e9  f0 0e      beq $82f9

$82eb  d0 1c      bne $8309

$82ed  a9 00      lda #$00

$82ef  85 73      sta $73

$82f1  20 24 84   jsr $8424

$82f4  d0 13      bne $8309

$82f6  8d a5 02   sta $02a5

$82f9  ad a5 02   lda $02a5

$82fc  d0 28      bne $8326

$82fe  ce a3 02   dec $02a3

$8301  10 ea      bpl $82ed

$8303  60         rts

$8304  20 89 84   jsr $8489

$8307  f0 f0      beq $82f9

$8309  20 27 83   jsr $8327

$830c  ae 6d 02   ldx $026d

$830f  10 07      bpl $8318

$8311  ad a5 02   lda $02a5

$8314  f0 ee      beq $8304

$8316  d0 0e      bne $8326

$8318  ad 33 02   lda $0233

$831b  f0 09      beq $8326

$831d  b5 f4      lda $f4,x

$831f  29 07      and #$07

$8321  cd 33 02   cmp $0233

$8324  d0 de      bne $8304

$8326  60         rts

$8327  a2 ff      ldx #$ff

$8329  8e 6d 02   stx $026d

$832c  e8         inx

$832d  8e a1 02   stx $02a1

$8330  20 d7 83   jsr $83d7

$8333  f0 06      beq $833b

$8335  60         rts

$8336  20 e2 83   jsr $83e2

$8339  d0 fa      bne $8335

$833b  a9 00      lda #$00

$833d  55 ef      eor $ef,x

$833f  4a         lsr a

$8340  90 0b      bcc $834d

$8342  29 40      and #$40

$8344  f0 f0      beq $8336

$8346  a9 02      lda #$02

$8348  cd a3 02   cmp $02a3

$834b  f0 e9      beq $8336

$834d  bd 91 02   lda $0291,x

$8350  aa         tax

$8351  20 26 85   jsr $8526

$8354  a0 03      ldy #$03

$8356  4c 6c 83   jmp $836c

$8359  bd 00 02   lda $0200,x

$835c  d1 64      cmp ($64),y

$835e  f0 0a      beq $836a

$8360  c9 3f      cmp #$3f

$8362  d0 d2      bne $8336

$8364  b1 64      lda ($64),y

$8366  c9 a0      cmp #$a0

$8368  f0 cc      beq $8336

$836a  e8         inx

$836b  c8         iny

$836c  ec 90 02   cpx $0290

$836f  b0 0a      bcs $837b

$8371  bd 00 02   lda $0200,x

$8374  c9 2a      cmp #$2a

$8376  d0 e1      bne $8359

$8378  4c fa 83   jmp $83fa

$837b  c0 13      cpy #$13

$837d  b0 06      bcs $8385

$837f  b1 64      lda ($64),y

$8381  c9 a0      cmp #$a0

$8383  d0 b1      bne $8336

$8385  ae 30 02   ldx $0230

$8388  8e 6d 02   stx $026d

$838b  b5 f4      lda $f4,x

$838d  29 80      and #$80

$838f  8d a1 02   sta $02a1

$8392  ad 32 02   lda $0232

$8395  95 ea      sta $ea,x

$8397  a5 4e      lda $4e

$8399  95 e5      sta $e5,x

$839b  a0 00      ldy #$00

$839d  b1 64      lda ($64),y

$839f  c8         iny

$83a0  48         pha

$83a1  29 40      and #$40

$83a3  85 40      sta $40

$83a5  68         pla

$83a6  29 df      and #$df

$83a8  30 02      bmi $83ac

$83aa  09 20      ora #$20

$83ac  29 27      and #$27

$83ae  05 40      ora $40

$83b0  85 40      sta $40

$83b2  a9 80      lda #$80

$83b4  35 f4      and $f4,x

$83b6  05 40      ora $40

$83b8  95 f4      sta $f4,x

$83ba  b5 ef      lda $ef,x

$83bc  29 80      and #$80

$83be  95 ef      sta $ef,x

$83c0  b1 64      lda ($64),y

$83c2  9d 97 02   sta $0297,x

$83c5  c8         iny

$83c6  b1 64      lda ($64),y

$83c8  9d 9c 02   sta $029c,x

$83cb  ad 6f 02   lda $026f

$83ce  d0 07      bne $83d7

$83d0  a0 15      ldy #$15

$83d2  b1 64      lda ($64),y

$83d4  8d 6f 02   sta $026f

$83d7  a9 ff      lda #$ff

$83d9  8d a5 02   sta $02a5

$83dc  ad 2f 02   lda $022f

$83df  8d 30 02   sta $0230

$83e2  ce 30 02   dec $0230

$83e5  10 01      bpl $83e8

$83e7  60         rts

$83e8  ae 30 02   ldx $0230

$83eb  b5 f4      lda $f4,x

$83ed  30 05      bmi $83f4

$83ef  bd 97 02   lda $0297,x

$83f2  d0 ee      bne $83e2

$83f4  a9 00      lda #$00

$83f6  8d a5 02   sta $02a5

$83f9  60         rts

$83fa  86 3b      stx $3b

$83fc  ae 90 02   ldx $0290

$83ff  ca         dex

$8400  e4 3b      cpx $3b

$8402  f0 1a      beq $841e

$8404  a0 13      ldy #$13

$8406  88         dey

$8407  b1 64      lda ($64),y

$8409  c9 a0      cmp #$a0

$840b  f0 f9      beq $8406

$840d  bd 00 02   lda $0200,x

$8410  d1 64      cmp ($64),y

$8412  f0 04      beq $8418

$8414  c9 3f      cmp #$3f

$8416  d0 09      bne $8421

$8418  88         dey

$8419  ca         dex

$841a  e4 3b      cpx $3b

$841c  d0 ef      bne $840d

$841e  4c 85 83   jmp $8385

$8421  4c 36 83   jmp $8336

$8424  a0 00      ldy #$00

$8426  84 72      sty $72

$8428  88         dey

$8429  8c 6d 02   sty $026d

$842c  ad 2b 02   lda $022b

$842f  85 4d      sta $4d

$8431  ad e5 01   lda $01e5

$8434  85 4e      sta $4e

$8436  8d a6 02   sta $02a6

$8439  20 cf 93   jsr $93cf

$843c  ad a6 02   lda $02a6

$843f  d0 01      bne $8442

$8441  60         rts

$8442  a9 07      lda #$07

$8444  8d 31 02   sta $0231

$8447  a9 00      lda #$00

$8449  20 50 94   jsr $9450

$844c  8d a6 02   sta $02a6

$844f  20 42 94   jsr $9442

$8452  ce 31 02   dec $0231

$8455  a0 00      ldy #$00

$8457  b1 64      lda ($64),y

$8459  d0 14      bne $846f

$845b  a5 72      lda $72

$845d  d0 2a      bne $8489

$845f  20 79 9d   jsr $9d79

$8462  a5 4e      lda $4e

$8464  85 72      sta $72

$8466  a5 64      lda $64

$8468  a6 73      ldx $73

$846a  85 73      sta $73

$846c  f0 1b      beq $8489

$846e  60         rts

$846f  a2 01      ldx #$01

$8471  e4 73      cpx $73

$8473  d0 2c      bne $84a1

$8475  f0 12      beq $8489

$8477  ad 2b 02   lda $022b

$847a  85 4d      sta $4d

$847c  a5 71      lda $71

$847e  85 4e      sta $4e

$8480  20 cf 93   jsr $93cf

$8483  ad 32 02   lda $0232

$8486  20 22 94   jsr $9422

$8489  a9 ff      lda #$ff

$848b  8d 6d 02   sta $026d

$848e  ad 31 02   lda $0231

$8491  30 08      bmi $849b

$8493  a9 20      lda #$20

$8495  20 38 91   jsr $9138

$8498  4c 4f 84   jmp $844f

$849b  20 aa 93   jsr $93aa

$849e  4c 3c 84   jmp $843c

$84a1  a5 64      lda $64

$84a3  8d 32 02   sta $0232

$84a6  20 79 9d   jsr $9d79

$84a9  a5 4e      lda $4e

$84ab  85 71      sta $71

$84ad  60         rts

$84ae  a5 2d      lda $2d

$84b0  d0 31      bne $84e3

$84b2  a9 01      lda #$01

$84b4  24 25      bit $25

$84b6  f0 2b      beq $84e3

$84b8  20 cf b0   jsr $b0cf

$84bb  20 b3 b0   jsr $b0b3

$84be  a9 80      lda #$80

$84c0  8d a8 02   sta $02a8

$84c3  20 dc 8e   jsr $8edc

$84c6  a0 ff      ldy #$ff

$84c8  c9 02      cmp #$02

$84ca  f0 0a      beq $84d6

$84cc  c9 03      cmp #$03

$84ce  f0 06      beq $84d6

$84d0  c9 0f      cmp #$0f

$84d2  f0 02      beq $84d6

$84d4  a0 00      ldy #$00

$84d6  98         tya

$84d7  85 6e      sta $6e

$84d9  d0 08      bne $84e3

$84db  a9 80      lda #$80

$84dd  8d a8 02   sta $02a8

$84e0  20 03 8f   jsr $8f03

$84e3  24 8a      bit $8a

$84e5  10 04      bpl $84eb

$84e7  a9 ff      lda #$ff

$84e9  85 6e      sta $6e

$84eb  a5 6e      lda $6e

$84ed  60         rts

$84ee  48         pha

$84ef  20 26 85   jsr $8526

$84f2  20 08 85   jsr $8508

$84f5  68         pla

$84f6  38         sec

$84f7  ed 6c 02   sbc $026c

$84fa  aa         tax

$84fb  f0 0a      beq $8507

$84fd  90 08      bcc $8507

$84ff  a9 a0      lda #$a0

$8501  91 64      sta ($64),y

$8503  c8         iny

$8504  ca         dex

$8505  d0 fa      bne $8501

$8507  60         rts

$8508  98         tya

$8509  0a         asl a

$850a  a8         tay

$850b  b9 bb 00   lda $00bb,y

$850e  85 64      sta $64

$8510  b9 bc 00   lda $00bc,y

$8513  85 65      sta $65

$8515  a0 00      ldy #$00

$8517  bd 00 02   lda $0200,x

$851a  91 64      sta ($64),y

$851c  c8         iny

$851d  f0 06      beq $8525

$851f  e8         inx

$8520  ec 90 02   cpx $0290

$8523  90 f2      bcc $8517

$8525  60         rts

$8526  a9 00      lda #$00

$8528  8d 6c 02   sta $026c

$852b  8a         txa

$852c  48         pha

$852d  bd 00 02   lda $0200,x

$8530  c9 2c      cmp #$2c

$8532  f0 13      beq $8547

$8534  c9 3d      cmp #$3d

$8536  f0 0f      beq $8547

$8538  ee 6c 02   inc $026c

$853b  e8         inx

$853c  a9 0f      lda #$0f

$853e  cd 6c 02   cmp $026c

$8541  90 04      bcc $8547

$8543  e4 29      cpx $29

$8545  90 e6      bcc $852d

$8547  8e 90 02   stx $0290

$854a  68         pla

$854b  aa         tax

$854c  60         rts

$854d  a5 52      lda $52

$854f  48         pha

$8550  a5 50      lda $50

$8552  48         pha

$8553  20 5d 85   jsr $855d

$8556  68         pla

$8557  85 50      sta $50

$8559  68         pla

$855a  85 52      sta $52

$855c  60         rts

$855d  a9 11      lda #$11

$855f  85 52      sta $52

$8561  20 27 90   jsr $9027

$8564  20 42 94   jsr $9442

$8567  ad 6d 02   lda $026d

$856a  10 05      bpl $8571

$856c  20 6b 86   jsr $866b

$856f  18         clc

$8570  60         rts

$8571  ad a4 02   lda $02a4

$8574  f0 15      beq $858b

$8576  ce a4 02   dec $02a4

$8579  d0 03      bne $857e

$857b  4c 2d 80   jmp $802d

$857e  a9 00      lda #$00

$8580  8d 8e 02   sta $028e

$8583  8d a4 02   sta $02a4

$8586  20 27 86   jsr $8627

$8589  38         sec

$858a  60         rts

$858b  a2 18      ldx #$18

$858d  a0 1d      ldy #$1d

$858f  b1 64      lda ($64),y

$8591  8d 8e 02   sta $028e

$8594  f0 02      beq $8598

$8596  a2 16      ldx #$16

$8598  88         dey

$8599  b1 64      lda ($64),y

$859b  8d 8d 02   sta $028d

$859e  e0 16      cpx #$16

$85a0  f0 0a      beq $85ac

$85a2  c9 0a      cmp #$0a

$85a4  90 06      bcc $85ac

$85a6  ca         dex

$85a7  c9 64      cmp #$64

$85a9  90 01      bcc $85ac

$85ab  ca         dex

$85ac  20 1c 86   jsr $861c

$85af  b1 64      lda ($64),y

$85b1  48         pha

$85b2  0a         asl a

$85b3  10 05      bpl $85ba

$85b5  a9 3c      lda #$3c

$85b7  9d ad 02   sta $02ad,x

$85ba  68         pla

$85bb  29 0f      and #$0f

$85bd  a8         tay

$85be  b9 b7 db   lda $dbb7,y

$85c1  9d ac 02   sta $02ac,x

$85c4  ca         dex

$85c5  b9 b1 db   lda $dbb1,y

$85c8  9d ac 02   sta $02ac,x

$85cb  ca         dex

$85cc  b9 ab db   lda $dbab,y

$85cf  9d ac 02   sta $02ac,x

$85d2  ca         dex

$85d3  ca         dex

$85d4  b0 05      bcs $85db

$85d6  a9 2a      lda #$2a

$85d8  9d ad 02   sta $02ad,x

$85db  a9 a0      lda #$a0

$85dd  9d ac 02   sta $02ac,x

$85e0  ca         dex

$85e1  a0 12      ldy #$12

$85e3  b1 64      lda ($64),y

$85e5  9d ac 02   sta $02ac,x

$85e8  ca         dex

$85e9  88         dey

$85ea  c0 03      cpy #$03

$85ec  b0 f5      bcs $85e3

$85ee  a9 22      lda #$22

$85f0  9d ac 02   sta $02ac,x

$85f3  e8         inx

$85f4  e0 20      cpx #$20

$85f6  b0 0b      bcs $8603

$85f8  bd ac 02   lda $02ac,x

$85fb  c9 22      cmp #$22

$85fd  f0 04      beq $8603

$85ff  c9 a0      cmp #$a0

$8601  d0 f0      bne $85f3

$8603  a9 22      lda #$22

$8605  9d ac 02   sta $02ac,x

$8608  e8         inx

$8609  e0 20      cpx #$20

$860b  b0 0a      bcs $8617

$860d  a9 7f      lda #$7f

$860f  3d ac 02   and $02ac,x

$8612  9d ac 02   sta $02ac,x

$8615  10 f1      bpl $8608

$8617  20 04 83   jsr $8304

$861a  38         sec

$861b  60         rts

$861c  a0 1b      ldy #$1b

$861e  a9 20      lda #$20

$8620  99 ab 02   sta $02ab,y

$8623  88         dey

$8624  d0 fa      bne $8620

$8626  60         rts

$8627  20 ae 84   jsr $84ae

$862a  20 33 b6   jsr $b633

$862d  20 1c 86   jsr $861c

$8630  a9 ff      lda #$ff

$8632  85 40      sta $40

$8634  a9 00      lda #$00

$8636  8d 8d 02   sta $028d

$8639  8d 8e 02   sta $028e

$863c  a6 6c      ldx $6c

$863e  bd f1 01   lda $01f1,x

$8641  85 65      sta $65

$8643  ad 77 db   lda $db77

$8646  85 64      sta $64

$8648  a0 16      ldy #$16

$864a  b1 64      lda ($64),y

$864c  c9 a0      cmp #$a0

$864e  d0 02      bne $8652

$8650  a9 20      lda #$20

$8652  99 ae 02   sta $02ae,y

$8655  88         dey

$8656  10 f2      bpl $864a

$8658  a9 12      lda #$12

$865a  8d ac 02   sta $02ac

$865d  a9 22      lda #$22

$865f  8d ad 02   sta $02ad

$8662  8d be 02   sta $02be

$8665  a9 20      lda #$20

$8667  8d bf 02   sta $02bf

$866a  60         rts

$866b  20 1c 86   jsr $861c

$866e  a0 0b      ldy #$0b

$8670  b9 7c 86   lda $867c,y

$8673  99 ac 02   sta $02ac,y

$8676  88         dey

$8677  10 f7      bpl $8670

$8679  4c 5b b6   jmp $b65b

;

$867c  .text "BLOCKS FREE."

;

$8688  20 70 82   jsr $8270

$868b  20 0b 82   jsr $820b

$868e  20 a2 82   jsr $82a2

$8691  a9 00      lda #$00

$8693  85 55      sta $55

$8695  20 ed 82   jsr $82ed

$8698  30 6e      bmi $8708

$869a  20 f5 9c   jsr $9cf5

$869d  90 64      bcc $8703

$869f  a0 00      ldy #$00

$86a1  b1 64      lda ($64),y

$86a3  8d ee 01   sta $01ee

$86a6  29 40      and #$40

$86a8  d0 59      bne $8703

$86aa  20 3b 87   jsr $873b

$86ad  ad ee 01   lda $01ee

$86b0  29 07      and #$07

$86b2  c9 05      cmp #$05

$86b4  d0 25      bne $86db

$86b6  c8         iny

$86b7  b1 64      lda ($64),y

$86b9  85 4d      sta $4d

$86bb  c8         iny

$86bc  b1 64      lda ($64),y

$86be  85 4e      sta $4e

$86c0  a0 1c      ldy #$1c

$86c2  b1 64      lda ($64),y

$86c4  8d ee 01   sta $01ee

$86c7  c8         iny

$86c8  b1 64      lda ($64),y

$86ca  8d ed 01   sta $01ed

$86cd  20 b5 94   jsr $94b5

$86d0  20 46 b5   jsr $b546

$86d3  20 ef b2   jsr $b2ef

$86d6  d0 f5      bne $86cd

$86d8  4c ee db   jmp $dbee

$86db  a0 13      ldy #$13

$86dd  b1 64      lda ($64),y

$86df  f0 0a      beq $86eb

$86e1  85 4d      sta $4d

$86e3  c8         iny

$86e4  b1 64      lda ($64),y

$86e6  85 4e      sta $4e

$86e8  20 13 87   jsr $8713

$86eb  ae 6d 02   ldx $026d

$86ee  a9 20      lda #$20

$86f0  35 f4      and $f4,x

$86f2  d0 0d      bne $8701

$86f4  bd 97 02   lda $0297,x

$86f7  85 4d      sta $4d

$86f9  bd 9c 02   lda $029c,x

$86fc  85 4e      sta $4e

$86fe  20 13 87   jsr $8713

$8701  e6 55      inc $55

$8703  20 e6 82   jsr $82e6

$8706  10 92      bpl $869a

$8708  a5 55      lda $55

$870a  85 4d      sta $4d

$870c  a0 00      ldy #$00

$870e  a9 01      lda #$01

$8710  4c 5d 80   jmp $805d

$8713  20 46 b5   jsr $b546

$8716  20 cf 93   jsr $93cf

$8719  a9 00      lda #$00

$871b  20 22 94   jsr $9422

$871e  20 9b 90   jsr $909b

$8721  85 4d      sta $4d

$8723  20 9b 90   jsr $909b

$8726  85 4e      sta $4e

$8728  a5 4d      lda $4d

$872a  d0 06      bne $8732

$872c  20 15 b5   jsr $b515

$872f  4c 9e 91   jmp $919e

$8732  20 46 b5   jsr $b546

$8735  20 aa 93   jsr $93aa

$8738  4c 19 87   jmp $8719

$873b  a0 00      ldy #$00

$873d  98         tya

$873e  91 64      sta ($64),y

$8740  20 9a 9d   jsr $9d9a

$8743  4c ed 94   jmp $94ed

$8746  a5 90      lda $90

$8748  85 4d      sta $4d

$874a  a9 00      lda #$00

$874c  85 4e      sta $4e

$874e  20 88 95   jsr $9588

$8751  20 cf b0   jsr $b0cf

$8754  a9 c0      lda #$c0

$8756  20 9d 95   jsr $959d

$8759  a4 9b      ldy $9b

$875b  a9 00      lda #$00

$875d  85 9b      sta $9b

$875f  a9 f0      lda #$f0

$8761  20 9d 95   jsr $959d

$8764  84 9b      sty $9b

$8766  c9 02      cmp #$02

$8768  90 03      bcc $876d

$876a  4c 2d ff   jmp $ff2d

$876d  60         rts

$876e  a9 00      lda #$00

$8770  8d 00 0a   sta $0a00

$8773  a9 1f      lda #$1f

$8775  85 70      sta $70

$8777  20 99 80   jsr $8099

$877a  d0 03      bne $877f

$877c  4c 7e 89   jmp $897e

$877f  20 ac 80   jsr $80ac

$8782  20 0b 82   jsr $820b

$8785  ad a2 02   lda $02a2

$8788  29 55      and #$55

$878a  d0 0f      bne $879b

$878c  ae 91 02   ldx $0291

$878f  bd 00 02   lda $0200,x

$8792  c9 2a      cmp #$2a

$8794  d0 05      bne $879b

$8796  a9 30      lda #$30

$8798  4c 7c 80   jmp $807c

$879b  ad a2 02   lda $02a2

$879e  29 d9      and #$d9

$87a0  d0 f4      bne $8796

$87a2  20 b9 82   jsr $82b9

$87a5  ad 2f 02   lda $022f

$87a8  c9 03      cmp #$03

$87aa  90 42      bcc $87ee

$87ac  a5 ef      lda $ef

$87ae  c5 f0      cmp $f0

$87b0  d0 3c      bne $87ee

$87b2  a5 ea      lda $ea

$87b4  c5 eb      cmp $eb

$87b6  d0 36      bne $87ee

$87b8  a5 e5      lda $e5

$87ba  c5 e6      cmp $e6

$87bc  d0 30      bne $87ee

$87be  20 03 89   jsr $8903

$87c1  a9 01      lda #$01

$87c3  8d 30 02   sta $0230

$87c6  20 41 88   jsr $8841

$87c9  20 5f 90   jsr $905f

$87cc  b0 04      bcs $87d2

$87ce  c9 02      cmp #$02

$87d0  d0 05      bne $87d7

$87d2  a9 64      lda #$64

$87d4  20 7c 80   jsr $807c

$87d7  a9 12      lda #$12

$87d9  85 52      sta $52

$87db  a5 b9      lda $b9

$87dd  85 ba      sta $ba

$87df  a9 ff      lda #$ff

$87e1  85 b9      sta $b9

$87e3  20 cc 98   jsr $98cc

$87e6  a2 02      ldx #$02

$87e8  20 00 88   jsr $8800

$87eb  4c 4c 80   jmp $804c

$87ee  20 f4 87   jsr $87f4

$87f1  4c 4c 80   jmp $804c

$87f4  20 1e 89   jsr $891e

$87f7  20 e0 93   jsr $93e0

$87fa  20 ab 95   jsr $95ab

$87fd  ae 2e 02   ldx $022e

$8800  8e 30 02   stx $0230

$8803  20 41 88   jsr $8841

$8806  a9 11      lda #$11

$8808  85 52      sta $52

$880a  20 27 90   jsr $9027

$880d  20 5f 90   jsr $905f

$8810  d0 03      bne $8815

$8812  20 95 88   jsr $8895

$8815  a9 08      lda #$08

$8817  85 51      sta $51

$8819  4c 1f 88   jmp $881f

$881c  20 5c 8e   jsr $8e5c

$881f  20 76 88   jsr $8876

$8822  a9 80      lda #$80

$8824  20 e4 9c   jsr $9ce4

$8827  f0 f3      beq $881c

$8829  20 5f 90   jsr $905f

$882c  f0 03      beq $8831

$882e  20 5c 8e   jsr $8e5c

$8831  ae 30 02   ldx $0230

$8834  e8         inx

$8835  ec 2f 02   cpx $022f

$8838  90 c6      bcc $8800

$883a  a9 12      lda #$12

$883c  85 52      sta $52

$883e  4c 9f 99   jmp $999f

$8841  ae 30 02   ldx $0230

$8844  ad 2b 02   lda $022b

$8847  85 4d      sta $4d

$8849  b5 e5      lda $e5,x

$884b  85 4e      sta $4e

$884d  20 cf 93   jsr $93cf

$8850  ae 30 02   ldx $0230

$8853  b5 ea      lda $ea,x

$8855  20 22 94   jsr $9422

$8858  ae 30 02   ldx $0230

$885b  b5 f4      lda $f4,x

$885d  29 07      and #$07

$885f  8d 2d 02   sta $022d

$8862  a9 00      lda #$00

$8864  8d 6f 02   sta $026f

$8867  20 4d 98   jsr $984d

$886a  a0 01      ldy #$01

$886c  20 5f 90   jsr $905f

$886f  f0 01      beq $8872

$8871  c8         iny

$8872  98         tya

$8873  4c 22 94   jmp $9422

$8876  a9 11      lda #$11

$8878  85 52      sta $52

$887a  20 f4 92   jsr $92f4

$887d  85 54      sta $54

$887f  a6 50      ldx $50

$8881  bd 34 02   lda $0234,x

$8884  29 08      and #$08

$8886  85 51      sta $51

$8888  d0 0a      bne $8894

$888a  20 5f 90   jsr $905f

$888d  f0 05      beq $8894

$888f  a9 80      lda #$80

$8891  20 d5 9c   jsr $9cd5

$8894  60         rts

$8895  20 5c a1   jsr $a15c

$8898  20 6e a5   jsr $a56e

$889b  d0 04      bne $88a1

$889d  ad 00 01   lda $0100

$88a0  48         pha

$88a1  a5 6a      lda $6a

$88a3  48         pha

$88a4  a5 69      lda $69

$88a6  48         pha

$88a7  a9 12      lda #$12

$88a9  85 52      sta $52

$88ab  20 42 90   jsr $9042

$88ae  20 38 a4   jsr $a438

$88b1  85 6b      sta $6b

$88b3  68         pla

$88b4  85 69      sta $69

$88b6  68         pla

$88b7  85 6a      sta $6a

$88b9  20 6e a5   jsr $a56e

$88bc  d0 04      bne $88c2

$88be  68         pla

$88bf  8d 00 01   sta $0100

$88c2  4c dc a2   jmp $a2dc

$88c5  20 0b 82   jsr $820b

$88c8  a5 f0      lda $f0

$88ca  29 01      and #$01

$88cc  85 f0      sta $f0

$88ce  c5 ef      cmp $ef

$88d0  f0 02      beq $88d4

$88d2  09 80      ora #$80

$88d4  85 ef      sta $ef

$88d6  20 b9 82   jsr $82b9

$88d9  20 1e 89   jsr $891e

$88dc  a5 e6      lda $e6

$88de  85 4e      sta $4e

$88e0  20 94 9d   jsr $9d94

$88e3  20 ed 94   jsr $94ed

$88e6  a5 eb      lda $eb

$88e8  18         clc

$88e9  69 03      adc #$03

$88eb  20 22 94   jsr $9422

$88ee  20 11 9f   jsr $9f11

$88f1  a8         tay

$88f2  ae 91 02   ldx $0291

$88f5  a9 10      lda #$10

$88f7  20 ee 84   jsr $84ee

$88fa  20 9a 9d   jsr $9d9a

$88fd  20 ed 94   jsr $94ed

$8900  4c 4c 80   jmp $804c

$8903  a5 f5      lda $f5

$8905  29 07      and #$07

$8907  8d 2d 02   sta $022d

$890a  ae 2f 02   ldx $022f

$890d  ca         dex

$890e  ec 2e 02   cpx $022e

$8911  90 0a      bcc $891d

$8913  bd 97 02   lda $0297,x

$8916  d0 f5      bne $890d

$8918  a9 62      lda #$62

$891a  4c 7c 80   jmp $807c

$891d  60         rts

$891e  20 03 89   jsr $8903

$8921  bd 97 02   lda $0297,x

$8924  f0 05      beq $892b

$8926  a9 63      lda #$63

$8928  4c 7c 80   jmp $807c

$892b  ca         dex

$892c  10 f3      bpl $8921

$892e  60         rts

$892f  ad 01 02   lda $0201

$8932  c9 2d      cmp #$2d

$8934  d0 48      bne $897e

$8936  ad 03 02   lda $0203

$8939  85 40      sta $40

$893b  ad 04 02   lda $0204

$893e  85 41      sta $41

$8940  a0 00      ldy #$00

$8942  ad 02 02   lda $0202

$8945  c9 52      cmp #$52

$8947  f0 0b      beq $8954

$8949  c9 57      cmp #$57

$894b  f0 36      beq $8983

$894d  c9 45      cmp #$45

$894f  d0 2d      bne $897e

$8951  6c 40 00   jmp ($0040)

$8954  b1 40      lda ($40),y

$8956  85 54      sta $54

$8958  a5 29      lda $29

$895a  c9 06      cmp #$06

$895c  90 1a      bcc $8978

$895e  ae 05 02   ldx $0205

$8961  ca         dex

$8962  f0 14      beq $8978

$8964  8a         txa

$8965  18         clc

$8966  65 40      adc $40

$8968  e6 40      inc $40

$896a  8d 48 02   sta $0248

$896d  a5 40      lda $40

$896f  85 cf      sta $cf

$8971  a5 41      lda $41

$8973  85 d0      sta $d0

$8975  4c 9f 93   jmp $939f

$8978  20 27 90   jsr $9027

$897b  4c 96 93   jmp $9396

$897e  a9 31      lda #$31

$8980  4c 7c 80   jmp $807c

$8983  b9 06 02   lda $0206,y

$8986  91 40      sta ($40),y

$8988  c8         iny

$8989  cc 05 02   cpy $0205

$898c  90 f5      bcc $8983

$898e  60         rts

$898f  ac 01 02   ldy $0201

$8992  c0 30      cpy #$30

$8994  d0 36      bne $89cc

$8996  a5 29      lda $29

$8998  c9 03      cmp #$03

$899a  90 27      bcc $89c3

$899c  78         sei

$899d  ad 02 02   lda $0202

$89a0  85 7c      sta $7c

$89a2  29 1f      and #$1f

$89a4  aa         tax

$89a5  0a         asl a

$89a6  a8         tay

$89a7  b9 36 db   lda $db36,y

$89aa  85 46      sta $46

$89ac  b9 37 db   lda $db37,y

$89af  85 47      sta $47

$89b1  20 f6 81   jsr $81f6

$89b4  a5 76      lda $76

$89b6  29 fb      and #$fb

$89b8  85 76      sta $76

$89ba  20 c0 89   jsr $89c0

$89bd  4c 4c 80   jmp $804c

$89c0  6c 46 00   jmp ($0046)

$89c3  a9 ea      lda #$ea

$89c5  85 33      sta $33

$89c7  a9 ff      lda #$ff

$89c9  85 34      sta $34

$89cb  60         rts

$89cc  20 d2 89   jsr $89d2

$89cf  4c 4c 80   jmp $804c

$89d2  88         dey

$89d3  98         tya

$89d4  29 0f      and #$0f

$89d6  0a         asl a

$89d7  a8         tay

$89d8  b1 33      lda ($33),y

$89da  85 46      sta $46

$89dc  c8         iny

$89dd  b1 33      lda ($33),y

$89df  85 47      sta $47

$89e1  6c 46 00   jmp ($0046)

$89e4  a5 52      lda $52

$89e6  48         pha

$89e7  20 ae 84   jsr $84ae

$89ea  68         pla

$89eb  85 52      sta $52

$89ed  a6 29      ldx $29

$89ef  ca         dex

$89f0  d0 0d      bne $89ff

$89f2  a9 01      lda #$01

$89f4  20 5a 91   jsr $915a

$89f7  4c 35 8a   jmp $8a35

$89fa  a9 70      lda #$70

$89fc  4c 7c 80   jmp $807c

$89ff  a0 01      ldy #$01

$8a01  20 ac 8a   jsr $8aac

$8a04  ae 9c 02   ldx $029c

$8a07  e0 08      cpx #$08

$8a09  b0 ef      bcs $89fa

$8a0b  a9 00      lda #$00

$8a0d  85 40      sta $40

$8a0f  38         sec

$8a10  26 40      rol $40

$8a12  ca         dex

$8a13  10 fb      bpl $8a10

$8a15  a5 40      lda $40

$8a17  25 6d      and $6d

$8a19  d0 df      bne $89fa

$8a1b  a5 40      lda $40

$8a1d  05 6d      ora $6d

$8a1f  85 6d      sta $6d

$8a21  a9 00      lda #$00

$8a23  20 5a 91   jsr $915a

$8a26  a6 50      ldx $50

$8a28  ad 9c 02   lda $029c

$8a2b  95 d1      sta $d1,x

$8a2d  aa         tax

$8a2e  a9 00      lda #$00

$8a30  95 02      sta $02,x

$8a32  9d 72 02   sta $0272,x

$8a35  a6 52      ldx $52

$8a37  b5 a8      lda $a8,x

$8a39  09 40      ora #$40

$8a3b  95 a8      sta $a8,x

$8a3d  a4 50      ldy $50

$8a3f  a9 ff      lda #$ff

$8a41  99 42 02   sta $0242,y

$8a44  a9 89      lda #$89

$8a46  99 34 02   sta $0234,y

$8a49  b9 d1 00   lda $00d1,y

$8a4c  99 3b 02   sta $023b,y

$8a4f  0a         asl a

$8a50  aa         tax

$8a51  a9 01      lda #$01

$8a53  95 bb      sta $bb,x

$8a55  a9 0e      lda #$0e

$8a57  99 f9 00   sta $00f9,y

$8a5a  4c 4c 80   jmp $804c

$8a5d  a0 00      ldy #$00

$8a5f  a2 00      ldx #$00

$8a61  a9 2d      lda #$2d

$8a63  20 1c 81   jsr $811c

$8a66  d0 0a      bne $8a72

$8a68  a9 31      lda #$31

$8a6a  4c 7c 80   jmp $807c

$8a6d  a9 30      lda #$30

$8a6f  4c 7c 80   jmp $807c

$8a72  8a         txa

$8a73  d0 f8      bne $8a6d

$8a75  a2 09      ldx #$09

$8a77  b9 00 02   lda $0200,y

$8a7a  dd 61 8c   cmp $8c61,x

$8a7d  f0 05      beq $8a84

$8a7f  ca         dex

$8a80  10 f8      bpl $8a7a

$8a82  30 e4      bmi $8a68

$8a84  8a         txa

$8a85  09 80      ora #$80

$8a87  8d 2a 02   sta $022a

$8a8a  20 9f 8a   jsr $8a9f

$8a8d  ad 2a 02   lda $022a

$8a90  0a         asl a

$8a91  aa         tax

$8a92  bd 6c 8c   lda $8c6c,x

$8a95  85 41      sta $41

$8a97  bd 6b 8c   lda $8c6b,x

$8a9a  85 40      sta $40

$8a9c  6c 40 00   jmp ($0040)

$8a9f  a0 00      ldy #$00

$8aa1  a2 00      ldx #$00

$8aa3  a9 3a      lda #$3a

$8aa5  20 1c 81   jsr $811c

$8aa8  d0 02      bne $8aac

$8aaa  a0 03      ldy #$03

$8aac  b9 00 02   lda $0200,y

$8aaf  c9 20      cmp #$20

$8ab1  f0 08      beq $8abb

$8ab3  c9 1d      cmp #$1d

$8ab5  f0 04      beq $8abb

$8ab7  c9 2c      cmp #$2c

$8ab9  d0 06      bne $8ac1

$8abb  c8         iny

$8abc  c4 29      cpy $29

$8abe  90 ec      bcc $8aac

$8ac0  60         rts

$8ac1  20 d0 8a   jsr $8ad0

$8ac4  ee 2e 02   inc $022e

$8ac7  ac 30 02   ldy $0230

$8aca  e0 04      cpx #$04

$8acc  90 ed      bcc $8abb

$8ace  b0 9d      bcs $8a6d

$8ad0  a9 00      lda #$00

$8ad2  85 40      sta $40

$8ad4  85 41      sta $41

$8ad6  85 43      sta $43

$8ad8  a2 ff      ldx #$ff

$8ada  b9 00 02   lda $0200,y

$8add  c9 40      cmp #$40

$8adf  b0 17      bcs $8af8

$8ae1  c9 30      cmp #$30

$8ae3  90 13      bcc $8af8

$8ae5  29 0f      and #$0f

$8ae7  48         pha

$8ae8  a5 41      lda $41

$8aea  85 42      sta $42

$8aec  a5 40      lda $40

$8aee  85 41      sta $41

$8af0  68         pla

$8af1  85 40      sta $40

$8af3  c8         iny

$8af4  c4 29      cpy $29

$8af6  90 e2      bcc $8ada

$8af8  8c 30 02   sty $0230

$8afb  18         clc

$8afc  a9 00      lda #$00

$8afe  e8         inx

$8aff  e0 03      cpx #$03

$8b01  b0 0f      bcs $8b12

$8b03  b4 40      ldy $40,x

$8b05  88         dey

$8b06  30 f6      bmi $8afe

$8b08  7d 20 8b   adc $8b20,x

$8b0b  90 f8      bcc $8b05

$8b0d  18         clc

$8b0e  e6 43      inc $43

$8b10  d0 f3      bne $8b05

$8b12  48         pha

$8b13  ae 2e 02   ldx $022e

$8b16  a5 43      lda $43

$8b18  9d 97 02   sta $0297,x

$8b1b  68         pla

$8b1c  9d 9c 02   sta $029c,x

$8b1f  60         rts

;

$8b20  .byte $01,$0a,$64

;

$8b23  20 ae 84   jsr $84ae

$8b26  20 32 8c   jsr $8c32

$8b29  20 46 b5   jsr $b546

$8b2c  4c 50 80   jmp $8050

$8b2f  20 ae 84   jsr $84ae

$8b32  20 32 8c   jsr $8c32

$8b35  a5 4e      lda $4e

$8b37  48         pha

$8b38  20 46 b7   jsr $b746

$8b3b  f0 0b      beq $8b48

$8b3d  68         pla

$8b3e  c5 4e      cmp $4e

$8b40  d0 19      bne $8b5b

$8b42  20 72 b5   jsr $b572

$8b45  4c 50 80   jmp $8050

$8b48  68         pla

$8b49  a9 00      lda #$00

$8b4b  85 4e      sta $4e

$8b4d  e6 4d      inc $4d

$8b4f  a5 4d      lda $4d

$8b51  cd 2c 02   cmp $022c

$8b54  b0 0a      bcs $8b60

$8b56  20 46 b7   jsr $b746

$8b59  f0 ee      beq $8b49

$8b5b  a9 65      lda #$65

$8b5d  20 3f ff   jsr $ff3f

$8b60  a9 65      lda #$65

$8b62  20 7c 80   jsr $807c

$8b65  20 2f 8c   jsr $8c2f

$8b68  4c bd 93   jmp $93bd

$8b6b  20 69 90   jsr $9069

$8b6e  a1 bb      lda ($bb,x)

$8b70  60         rts

$8b71  20 65 8b   jsr $8b65

$8b74  a9 00      lda #$00

$8b76  20 22 94   jsr $9422

$8b79  20 6b 8b   jsr $8b6b

$8b7c  99 42 02   sta $0242,y

$8b7f  a9 89      lda #$89

$8b81  99 34 02   sta $0234,y

$8b84  60         rts

$8b85  20 71 8b   jsr $8b71

$8b88  20 48 93   jsr $9348

$8b8b  4c 4c 80   jmp $804c

$8b8e  20 44 8c   jsr $8c44

$8b91  20 bd 93   jsr $93bd

$8b94  20 74 8b   jsr $8b74

$8b97  4c a0 8b   jmp $8ba0

$8b9a  20 9f 8a   jsr $8a9f

$8b9d  20 71 8b   jsr $8b71

$8ba0  b9 42 02   lda $0242,y

$8ba3  99 3b 02   sta $023b,y

$8ba6  a9 ff      lda #$ff

$8ba8  99 42 02   sta $0242,y

$8bab  4c 4c 80   jmp $804c

$8bae  20 2f 8c   jsr $8c2f

$8bb1  20 42 94   jsr $9442

$8bb4  a8         tay

$8bb5  88         dey

$8bb6  c9 02      cmp #$02

$8bb8  b0 02      bcs $8bbc

$8bba  a0 01      ldy #$01

$8bbc  a9 00      lda #$00

$8bbe  20 22 94   jsr $9422

$8bc1  98         tya

$8bc2  20 b1 8e   jsr $8eb1

$8bc5  8a         txa

$8bc6  48         pha

$8bc7  20 c1 93   jsr $93c1

$8bca  68         pla

$8bcb  aa         tax

$8bcc  a4 50      ldy $50

$8bce  4c 09 8c   jmp $8c09

$8bd1  20 44 8c   jsr $8c44

$8bd4  4c dd 8b   jmp $8bdd

$8bd7  20 9f 8a   jsr $8a9f

$8bda  20 2f 8c   jsr $8c2f

$8bdd  20 c1 93   jsr $93c1

$8be0  4c 4c 80   jmp $804c

$8be3  20 65 8b   jsr $8b65

$8be6  a9 00      lda #$00

$8be8  85 40      sta $40

$8bea  a6 6c      ldx $6c

$8bec  bd f1 01   lda $01f1,x

$8bef  85 41      sta $41

$8bf1  20 f7 8b   jsr $8bf7

$8bf4  4c 4c 80   jmp $804c

$8bf7  6c 40 00   jmp ($0040)

$8bfa  20 0f 8c   jsr $8c0f

$8bfd  a5 6c      lda $6c

$8bff  0a         asl a

$8c00  aa         tax

$8c01  ad 9d 02   lda $029d

$8c04  95 bb      sta $bb,x

$8c06  20 69 90   jsr $9069

$8c09  20 4a 93   jsr $934a

$8c0c  4c 4c 80   jmp $804c

$8c0f  a6 67      ldx $67

$8c11  e6 67      inc $67

$8c13  bd 9c 02   lda $029c,x

$8c16  a8         tay

$8c17  88         dey

$8c18  88         dey

$8c19  c0 0d      cpy #$0d

$8c1b  90 05      bcc $8c22

$8c1d  a9 70      lda #$70

$8c1f  4c 7c 80   jmp $807c

$8c22  85 52      sta $52

$8c24  20 27 90   jsr $9027

$8c27  b0 f4      bcs $8c1d

$8c29  20 11 9f   jsr $9f11

$8c2c  85 6c      sta $6c

$8c2e  60         rts

$8c2f  20 0f 8c   jsr $8c0f

$8c32  a6 67      ldx $67

$8c34  bd 9e 02   lda $029e,x

$8c37  85 4e      sta $4e

$8c39  bd 9d 02   lda $029d,x

$8c3c  85 4d      sta $4d

$8c3e  20 b5 94   jsr $94b5

$8c41  4c f6 81   jmp $81f6

$8c44  20 0f 8c   jsr $8c0f

$8c47  a6 67      ldx $67

$8c49  bd 9e 02   lda $029e,x

$8c4c  85 4e      sta $4e

$8c4e  bd 9d 02   lda $029d,x

$8c51  85 4d      sta $4d

$8c53  20 f6 81   jsr $81f6

$8c56  a9 40      lda #$40

$8c58  8d a8 02   sta $02a8

$8c5b  60         rts

$8c5c  05 6d      ora $6d

$8c5e  85 6d      sta $6d

$8c60  60         rts

;

$8c61  .text "AFRWEPrw?*"

;

$8c6b  .byte $2f,$8b,$23,$8b,$85,$8b,$ae,$8b

$8c73  .byte $e3,$8b,$fa,$8b,$8e,$8b,$d1,$8b

$8c7b  .byte $7f,$8c,$84,$8c

;

$8c7f  a9 79      lda #$79

$8c81  4c 67 a8   jmp $a867

$8c84  a9 7a      lda #$7a

$8c86  4c 67 a8   jmp $a867

$8c89  20 c1 8c   jsr $8cc1

$8c8c  20 06 8d   jsr $8d06

$8c8f  a5 60      lda $60

$8c91  85 6b      sta $6b

$8c93  20 09 8d   jsr $8d09

$8c96  e6 6b      inc $6b

$8c98  e6 6b      inc $6b

$8c9a  20 6e a5   jsr $a56e

$8c9d  f0 0d      beq $8cac

$8c9f  a5 5b      lda $5b

$8ca1  85 69      sta $69

$8ca3  a5 60      lda $60

$8ca5  0a         asl a

$8ca6  18         clc

$8ca7  69 10      adc #$10

$8ca9  85 6a      sta $6a

$8cab  60         rts

$8cac  a5 60      lda $60

$8cae  0a         asl a

$8caf  18         clc

$8cb0  69 10      adc #$10

$8cb2  85 6a      sta $6a

$8cb4  20 0c 8d   jsr $8d0c

$8cb7  a5 60      lda $60

$8cb9  85 69      sta $69

$8cbb  a5 5b      lda $5b

$8cbd  8d 00 01   sta $0100

$8cc0  60         rts

$8cc1  20 38 8d   jsr $8d38

$8cc4  85 62      sta $62

$8cc6  a6 50      ldx $50

$8cc8  bd 49 02   lda $0249,x

$8ccb  85 60      sta $60

$8ccd  bd 50 02   lda $0250,x

$8cd0  85 61      sta $61

$8cd2  d0 04      bne $8cd8

$8cd4  a5 60      lda $60

$8cd6  f0 0b      beq $8ce3

$8cd8  a5 60      lda $60

$8cda  38         sec

$8cdb  e9 01      sbc #$01

$8cdd  85 60      sta $60

$8cdf  b0 02      bcs $8ce3

$8ce1  c6 61      dec $61

$8ce3  bd 5e 02   lda $025e,x

$8ce6  85 40      sta $40

$8ce8  46 40      lsr $40

$8cea  90 03      bcc $8cef

$8cec  20 4c 8d   jsr $8d4c

$8cef  20 44 8d   jsr $8d44

$8cf2  a5 40      lda $40

$8cf4  d0 f2      bne $8ce8

$8cf6  a5 68      lda $68

$8cf8  18         clc

$8cf9  65 5b      adc $5b

$8cfb  85 5b      sta $5b

$8cfd  90 06      bcc $8d05

$8cff  e6 5c      inc $5c

$8d01  d0 02      bne $8d05

$8d03  e6 5d      inc $5d

$8d05  60         rts

$8d06  a9 fe      lda #$fe

$8d08  2c a9 78   bit $78a9

$8d0b  2c a9 06   bit $06a9

$8d0e  85 40      sta $40

$8d10  a9 00      lda #$00

$8d12  85 60      sta $60

$8d14  85 61      sta $61

$8d16  a2 18      ldx #$18

$8d18  06 5b      asl $5b

$8d1a  26 5c      rol $5c

$8d1c  26 5d      rol $5d

$8d1e  26 60      rol $60

$8d20  26 61      rol $61

$8d22  a5 60      lda $60

$8d24  38         sec

$8d25  e5 40      sbc $40

$8d27  a8         tay

$8d28  a5 61      lda $61

$8d2a  e9 00      sbc #$00

$8d2c  90 06      bcc $8d34

$8d2e  e6 5b      inc $5b

$8d30  85 61      sta $61

$8d32  84 60      sty $60

$8d34  ca         dex

$8d35  d0 e1      bne $8d18

$8d37  60         rts

$8d38  a9 00      lda #$00

$8d3a  85 5b      sta $5b

$8d3c  85 5c      sta $5c

$8d3e  85 5d      sta $5d

$8d40  60         rts

$8d41  20 44 8d   jsr $8d44

$8d44  18         clc

$8d45  26 60      rol $60

$8d47  26 61      rol $61

$8d49  26 62      rol $62

$8d4b  60         rts

$8d4c  18         clc

$8d4d  a2 fd      ldx #$fd

$8d4f  b5 5e      lda $5e,x

$8d51  75 63      adc $63,x

$8d53  95 5e      sta $5e,x

$8d55  e8         inx

$8d56  d0 f7      bne $8d4f

$8d58  60         rts

$8d59  a2 00      ldx #$00

$8d5b  8a         txa

$8d5c  95 df      sta $df,x

$8d5e  e8         inx

$8d5f  e0 05      cpx #$05

$8d61  d0 f8      bne $8d5b

$8d63  a9 05      lda #$05

$8d65  95 df      sta $df,x

$8d67  60         rts

$8d68  a0 05      ldy #$05

$8d6a  a6 50      ldx $50

$8d6c  b9 df 00   lda $00df,y

$8d6f  96 df      stx $df,y

$8d71  c5 50      cmp $50

$8d73  f0 07      beq $8d7c

$8d75  88         dey

$8d76  30 e1      bmi $8d59

$8d78  aa         tax

$8d79  4c 6c 8d   jmp $8d6c

$8d7c  60         rts

$8d7d  20 68 8d   jsr $8d68

$8d80  a6 50      ldx $50

$8d82  b5 d1      lda $d1,x

$8d84  30 02      bmi $8d88

$8d86  b5 d8      lda $d8,x

$8d88  c9 ff      cmp #$ff

$8d8a  f0 18      beq $8da4

$8d8c  b5 d1      lda $d1,x

$8d8e  49 80      eor #$80

$8d90  95 d1      sta $d1,x

$8d92  48         pha

$8d93  b5 d8      lda $d8,x

$8d95  49 80      eor #$80

$8d97  95 d8      sta $d8,x

$8d99  a8         tay

$8d9a  68         pla

$8d9b  10 01      bpl $8d9e

$8d9d  98         tya

$8d9e  29 bf      and #$bf

$8da0  aa         tax

$8da1  4c ed 94   jmp $94ed

$8da4  b5 d1      lda $d1,x

$8da6  10 02      bpl $8daa

$8da8  b5 d8      lda $d8,x

$8daa  29 bf      and #$bf

$8dac  a8         tay

$8dad  20 04 92   jsr $9204

$8db0  10 05      bpl $8db7

$8db2  a9 70      lda #$70

$8db4  4c 7c 80   jmp $807c

$8db7  a6 50      ldx $50

$8db9  09 80      ora #$80

$8dbb  b4 d1      ldy $d1,x

$8dbd  10 04      bpl $8dc3

$8dbf  95 d1      sta $d1,x

$8dc1  30 02      bmi $8dc5

$8dc3  95 d8      sta $d8,x

$8dc5  a5 4d      lda $4d

$8dc7  48         pha

$8dc8  a5 4e      lda $4e

$8dca  48         pha

$8dcb  a9 01      lda #$01

$8dcd  85 42      sta $42

$8dcf  b5 d1      lda $d1,x

$8dd1  10 02      bpl $8dd5

$8dd3  b5 d8      lda $d8,x

$8dd5  29 bf      and #$bf

$8dd7  a8         tay

$8dd8  b9 f1 01   lda $01f1,y

$8ddb  85 43      sta $43

$8ddd  a0 00      ldy #$00

$8ddf  b1 42      lda ($42),y

$8de1  85 4e      sta $4e

$8de3  a9 00      lda #$00

$8de5  85 42      sta $42

$8de7  b5 d1      lda $d1,x

$8de9  10 02      bpl $8ded

$8deb  b5 d8      lda $d8,x

$8ded  29 bf      and #$bf

$8def  a8         tay

$8df0  b9 f1 01   lda $01f1,y

$8df3  85 43      sta $43

$8df5  a0 00      ldy #$00

$8df7  b1 42      lda ($42),y

$8df9  85 4d      sta $4d

$8dfb  f0 2a      beq $8e27

$8dfd  20 5f 90   jsr $905f

$8e00  f0 0b      beq $8e0d

$8e02  20 e9 9c   jsr $9ce9

$8e05  d0 06      bne $8e0d

$8e07  20 4d 8e   jsr $8e4d

$8e0a  4c 1e 8e   jmp $8e1e

$8e0d  a6 50      ldx $50

$8e0f  b5 d1      lda $d1,x

$8e11  49 80      eor #$80

$8e13  95 d1      sta $d1,x

$8e15  b5 d8      lda $d8,x

$8e17  49 80      eor #$80

$8e19  95 d8      sta $d8,x

$8e1b  20 94 9d   jsr $9d94

$8e1e  68         pla

$8e1f  85 4e      sta $4e

$8e21  68         pla

$8e22  85 4d      sta $4d

$8e24  4c 30 8e   jmp $8e30

$8e27  68         pla

$8e28  85 4e      sta $4e

$8e2a  68         pla

$8e2b  85 4d      sta $4d

$8e2d  20 4d 8e   jsr $8e4d

$8e30  20 11 9f   jsr $9f11

$8e33  aa         tax

$8e34  4c ed 94   jmp $94ed

$8e37  a9 70      lda #$70

$8e39  4c 7c 80   jmp $807c

$8e3c  20 68 8d   jsr $8d68

$8e3f  20 33 9f   jsr $9f33

$8e42  d0 08      bne $8e4c

$8e44  20 04 92   jsr $9204

$8e47  30 ee      bmi $8e37

$8e49  4c 3e 9f   jmp $9f3e

$8e4c  60         rts

$8e4d  a6 50      ldx $50

$8e4f  b5 d1      lda $d1,x

$8e51  49 80      eor #$80

$8e53  95 d1      sta $d1,x

$8e55  b5 d8      lda $d8,x

$8e57  49 80      eor #$80

$8e59  95 d8      sta $d8,x

$8e5b  60         rts

$8e5c  a2 12      ldx #$12

$8e5e  86 52      stx $52

$8e60  20 42 90   jsr $9042

$8e63  20 f6 81   jsr $81f6

$8e66  20 5f 90   jsr $905f

$8e69  90 05      bcc $8e70

$8e6b  a9 20      lda #$20

$8e6d  20 db 9c   jsr $9cdb

$8e70  a5 52      lda $52

$8e72  c9 0f      cmp #$0f

$8e74  f0 23      beq $8e99

$8e76  d0 08      bne $8e80

$8e78  a5 53      lda $53

$8e7a  29 8f      and #$8f

$8e7c  c9 0f      cmp #$0f

$8e7e  b0 19      bcs $8e99

$8e80  20 5f 90   jsr $905f

$8e83  b0 05      bcs $8e8a

$8e85  a5 54      lda $54

$8e87  4c 12 91   jmp $9112

$8e8a  d0 03      bne $8e8f

$8e8c  4c 33 a0   jmp $a033

$8e8f  a5 54      lda $54

$8e91  20 b1 8e   jsr $8eb1

$8e94  a4 50      ldy $50

$8e96  4c 4a 93   jmp $934a

$8e99  a9 05      lda #$05

$8e9b  85 50      sta $50

$8e9d  20 42 94   jsr $9442

$8ea0  c9 2a      cmp #$2a

$8ea2  f0 05      beq $8ea9

$8ea4  a5 54      lda $54

$8ea6  20 b1 8e   jsr $8eb1

$8ea9  a5 51      lda $51

$8eab  f0 01      beq $8eae

$8ead  60         rts

$8eae  e6 7b      inc $7b

$8eb0  60         rts

$8eb1  48         pha

$8eb2  20 11 9f   jsr $9f11

$8eb5  10 06      bpl $8ebd

$8eb7  68         pla

$8eb8  a9 61      lda #$61

$8eba  4c 7c 80   jmp $807c

$8ebd  0a         asl a

$8ebe  aa         tax

$8ebf  68         pla

$8ec0  81 bb      sta ($bb,x)

$8ec2  f6 bb      inc $bb,x

$8ec4  60         rts

$8ec5  20 85 80   jsr $8085

$8ec8  20 cf b0   jsr $b0cf

$8ecb  20 b3 b0   jsr $b0b3

$8ece  20 03 8f   jsr $8f03

$8ed1  2c fb 01   bit $01fb

$8ed4  50 03      bvc $8ed9

$8ed6  4c 38 a9   jmp $a938

$8ed9  4c 4c 80   jmp $804c

$8edc  20 04 92   jsr $9204

$8edf  85 6c      sta $6c

$8ee1  aa         tax

$8ee2  20 35 92   jsr $9235

$8ee5  a2 00      ldx #$00

$8ee7  86 4e      stx $4e

$8ee9  ae 2b 02   ldx $022b

$8eec  86 4d      stx $4d

$8eee  20 88 95   jsr $9588

$8ef1  a9 b0      lda #$b0

$8ef3  20 e4 94   jsr $94e4

$8ef6  a6 6c      ldx $6c

$8ef8  48         pha

$8ef9  a9 b6      lda #$b6

$8efb  20 9d 95   jsr $959d

$8efe  8d fa 01   sta $01fa

$8f01  68         pla

$8f02  60         rts

$8f03  ad fb 01   lda $01fb

$8f06  29 bf      and #$bf

$8f08  8d fb 01   sta $01fb

$8f0b  a5 8a      lda $8a

$8f0d  09 80      ora #$80

$8f0f  85 8a      sta $8a

$8f11  20 6e 92   jsr $926e

$8f14  20 dc 8e   jsr $8edc

$8f17  c9 02      cmp #$02

$8f19  b0 06      bcs $8f21

$8f1b  a5 91      lda $91

$8f1d  c9 02      cmp #$02

$8f1f  f0 03      beq $8f24

$8f21  4c b9 8f   jmp $8fb9

$8f24  20 de 94   jsr $94de

$8f27  a5 6c      lda $6c

$8f29  0a         asl a

$8f2a  aa         tax

$8f2b  a9 01      lda #$01

$8f2d  95 bb      sta $bb,x

$8f2f  a1 bb      lda ($bb,x)

$8f31  8d e5 01   sta $01e5

$8f34  a9 02      lda #$02

$8f36  95 bb      sta $bb,x

$8f38  a1 bb      lda ($bb,x)

$8f3a  85 6f      sta $6f

$8f3c  a9 00      lda #$00

$8f3e  8d 00 0a   sta $0a00

$8f41  20 4f b6   jsr $b64f

$8f44  a9 00      lda #$00

$8f46  85 25      sta $25

$8f48  85 6e      sta $6e

$8f4a  a0 02      ldy #$02

$8f4c  b1 31      lda ($31),y

$8f4e  cd eb 01   cmp $01eb

$8f51  d0 66      bne $8fb9

$8f53  c8         iny

$8f54  b1 31      lda ($31),y

$8f56  49 ff      eor #$ff

$8f58  cd eb 01   cmp $01eb

$8f5b  d0 5c      bne $8fb9

$8f5d  a5 8a      lda $8a

$8f5f  29 7f      and #$7f

$8f61  85 8a      sta $8a

$8f63  a0 04      ldy #$04

$8f65  b1 31      lda ($31),y

$8f67  85 1d      sta $1d

$8f69  c8         iny

$8f6a  b1 31      lda ($31),y

$8f6c  85 1e      sta $1e

$8f6e  c8         iny

$8f6f  b1 31      lda ($31),y

$8f71  85 8d      sta $8d

$8f73  29 20      and #$20

$8f75  8d 01 01   sta $0101

$8f78  c8         iny

$8f79  b1 31      lda ($31),y

$8f7b  10 08      bpl $8f85

$8f7d  ad fb 01   lda $01fb

$8f80  09 40      ora #$40

$8f82  8d fb 01   sta $01fb

$8f85  a5 4d      lda $4d

$8f87  48         pha

$8f88  a2 00      ldx #$00

$8f8a  8e a9 02   stx $02a9

$8f8d  8e aa 02   stx $02aa

$8f90  a6 90      ldx $90

$8f92  24 e8      bit $e8

$8f94  86 4d      stx $4d

$8f96  ec 2b 02   cpx $022b

$8f99  f0 f8      beq $8f93

$8f9b  ec 2c 02   cpx $022c

$8f9e  b0 13      bcs $8fb3

$8fa0  20 bd b5   jsr $b5bd

$8fa3  b1 31      lda ($31),y

$8fa5  18         clc

$8fa6  6d a9 02   adc $02a9

$8fa9  8d a9 02   sta $02a9

$8fac  90 e5      bcc $8f93

$8fae  ee aa 02   inc $02aa

$8fb1  d0 e0      bne $8f93

$8fb3  68         pla

$8fb4  85 4d      sta $4d

$8fb6  a2 00      ldx #$00

$8fb8  60         rts

$8fb9  a2 03      ldx #$03

$8fbb  8e e5 01   stx $01e5

$8fbe  a2 c0      ldx #$c0

$8fc0  86 8d      stx $8d

$8fc2  a2 00      ldx #$00

$8fc4  8e 01 01   stx $0101

$8fc7  86 25      stx $25

$8fc9  86 6e      stx $6e

$8fcb  8e a9 02   stx $02a9

$8fce  8e aa 02   stx $02aa

$8fd1  86 1d      stx $1d

$8fd3  86 1e      stx $1e

$8fd5  60         rts

$8fd6  20 85 95   jsr $9585

$8fd9  20 fe 8f   jsr $8ffe

$8fdc  20 ed 94   jsr $94ed

$8fdf  20 71 90   jsr $9071

$8fe2  85 4d      sta $4d

$8fe4  20 71 90   jsr $9071

$8fe7  85 4e      sta $4e

$8fe9  60         rts

$8fea  20 d6 8f   jsr $8fd6

$8fed  a5 4d      lda $4d

$8fef  d0 01      bne $8ff2

$8ff1  60         rts

$8ff2  20 7d 8d   jsr $8d7d

$8ff5  20 85 95   jsr $9585

$8ff8  20 fe 8f   jsr $8ffe

$8ffb  4c 7d 8d   jmp $8d7d

$8ffe  a9 80      lda #$80

$9000  d0 02      bne $9004

$9002  a9 90      lda #$90

$9004  85 28      sta $28

$9006  20 11 9f   jsr $9f11

$9009  aa         tax

$900a  20 71 94   jsr $9471

$900d  8a         txa

$900e  48         pha

$900f  0a         asl a

$9010  aa         tax

$9011  a9 00      lda #$00

$9013  95 bb      sta $bb,x

$9015  20 5f 90   jsr $905f

$9018  c9 04      cmp #$04

$901a  b0 08      bcs $9024

$901c  fe 49 02   inc $0249,x

$901f  d0 03      bne $9024

$9021  fe 50 02   inc $0250,x

$9024  68         pla

$9025  aa         tax

$9026  60         rts

$9027  a5 52      lda $52

$9029  c9 13      cmp #$13

$902b  90 02      bcc $902f

$902d  29 0f      and #$0f

$902f  c9 0f      cmp #$0f

$9031  d0 02      bne $9035

$9033  a9 10      lda #$10

$9035  aa         tax

$9036  38         sec

$9037  b5 a8      lda $a8,x

$9039  30 06      bmi $9041

$903b  29 0f      and #$0f

$903d  85 50      sta $50

$903f  aa         tax

$9040  18         clc

$9041  60         rts

$9042  a5 52      lda $52

$9044  c9 13      cmp #$13

$9046  90 02      bcc $904a

$9048  29 0f      and #$0f

$904a  aa         tax

$904b  b5 a8      lda $a8,x

$904d  a8         tay

$904e  0a         asl a

$904f  90 0a      bcc $905b

$9051  30 0a      bmi $905d

$9053  98         tya

$9054  29 0f      and #$0f

$9056  85 50      sta $50

$9058  aa         tax

$9059  18         clc

$905a  60         rts

$905b  30 f6      bmi $9053

$905d  38         sec

$905e  60         rts

$905f  a6 50      ldx $50

$9061  b5 f9      lda $f9,x

$9063  4a         lsr a

$9064  29 07      and #$07

$9066  c9 04      cmp #$04

$9068  60         rts

$9069  20 11 9f   jsr $9f11

$906c  0a         asl a

$906d  aa         tax

$906e  a4 50      ldy $50

$9070  60         rts

$9071  a6 50      ldx $50

$9073  b5 d1      lda $d1,x

$9075  10 02      bpl $9079

$9077  b5 d8      lda $d8,x

$9079  29 bf      and #$bf

$907b  0a         asl a

$907c  aa         tax

$907d  a4 50      ldy $50

$907f  b9 42 02   lda $0242,y

$9082  f0 12      beq $9096

$9084  a1 bb      lda ($bb,x)

$9086  48         pha

$9087  b5 bb      lda $bb,x

$9089  d9 42 02   cmp $0242,y

$908c  d0 04      bne $9092

$908e  a9 ff      lda #$ff

$9090  95 bb      sta $bb,x

$9092  68         pla

$9093  f6 bb      inc $bb,x

$9095  60         rts

$9096  a1 bb      lda ($bb,x)

$9098  f6 bb      inc $bb,x

$909a  60         rts

$909b  20 71 90   jsr $9071

$909e  d0 66      bne $9106

$90a0  85 54      sta $54

$90a2  b9 42 02   lda $0242,y

$90a5  f0 08      beq $90af

$90a7  a9 80      lda #$80

$90a9  99 34 02   sta $0234,y

$90ac  a5 54      lda $54

$90ae  60         rts

$90af  20 7d 8d   jsr $8d7d

$90b2  a9 00      lda #$00

$90b4  85 40      sta $40

$90b6  a6 50      ldx $50

$90b8  b5 d1      lda $d1,x

$90ba  10 02      bpl $90be

$90bc  b5 d8      lda $d8,x

$90be  29 bf      and #$bf

$90c0  0a         asl a

$90c1  aa         tax

$90c2  b5 bc      lda $bc,x

$90c4  85 65      sta $65

$90c6  a5 40      lda $40

$90c8  95 bb      sta $bb,x

$90ca  85 64      sta $64

$90cc  20 71 90   jsr $9071

$90cf  c9 00      cmp #$00

$90d1  f0 34      beq $9107

$90d3  85 4d      sta $4d

$90d5  20 71 90   jsr $9071

$90d8  85 4e      sta $4e

$90da  20 7d 8d   jsr $8d7d

$90dd  a6 50      ldx $50

$90df  b5 d1      lda $d1,x

$90e1  10 02      bpl $90e5

$90e3  b5 d8      lda $d8,x

$90e5  29 bf      and #$bf

$90e7  aa         tax

$90e8  a6 50      ldx $50

$90ea  b5 d1      lda $d1,x

$90ec  10 02      bpl $90f0

$90ee  b5 d8      lda $d8,x

$90f0  29 bf      and #$bf

$90f2  0a         asl a

$90f3  a8         tay

$90f4  a5 4d      lda $4d

$90f6  99 0b 00   sta $000b,y

$90f9  a5 4e      lda $4e

$90fb  99 0c 00   sta $000c,y

$90fe  20 fe 8f   jsr $8ffe

$9101  20 7d 8d   jsr $8d7d

$9104  a5 54      lda $54

$9106  60         rts

$9107  20 71 90   jsr $9071

$910a  a4 50      ldy $50

$910c  99 42 02   sta $0242,y

$910f  a5 54      lda $54

$9111  60         rts

$9112  20 b1 8e   jsr $8eb1

$9115  f0 01      beq $9118

$9117  60         rts

$9118  20 68 b6   jsr $b668

$911b  a9 00      lda #$00

$911d  20 22 94   jsr $9422

$9120  a5 4d      lda $4d

$9122  20 b1 8e   jsr $8eb1

$9125  a5 4e      lda $4e

$9127  20 b1 8e   jsr $8eb1

$912a  20 02 90   jsr $9002

$912d  20 7d 8d   jsr $8d7d

$9130  20 85 95   jsr $9585

$9133  a9 02      lda #$02

$9135  4c 22 94   jmp $9422

$9138  85 40      sta $40

$913a  20 42 94   jsr $9442

$913d  18         clc

$913e  65 40      adc $40

$9140  95 bb      sta $bb,x

$9142  85 64      sta $64

$9144  60         rts

$9145  ad fb 01   lda $01fb

$9148  29 7f      and #$7f

$914a  8d fb 01   sta $01fb

$914d  a9 00      lda #$00

$914f  6a         ror a

$9150  0d fb 01   ora $01fb

$9153  8d fb 01   sta $01fb

$9156  60         rts

$9157  38         sec

$9158  b0 01      bcs $915b

$915a  18         clc

$915b  08         php

$915c  85 40      sta $40

$915e  20 9e 91   jsr $919e

$9161  20 db 92   jsr $92db

$9164  85 50      sta $50

$9166  a6 52      ldx $52

$9168  28         plp

$9169  90 02      bcc $916d

$916b  09 80      ora #$80

$916d  95 a8      sta $a8,x

$916f  29 3f      and #$3f

$9171  a8         tay

$9172  a9 ff      lda #$ff

$9174  99 d1 00   sta $00d1,y

$9177  99 d8 00   sta $00d8,y

$917a  99 65 02   sta $0265,y

$917d  c6 40      dec $40

$917f  30 1c      bmi $919d

$9181  20 04 92   jsr $9204

$9184  10 08      bpl $918e

$9186  20 ce 91   jsr $91ce

$9189  a9 70      lda #$70

$918b  4c 7c 80   jmp $807c

$918e  99 d1 00   sta $00d1,y

$9191  c6 40      dec $40

$9193  30 08      bmi $919d

$9195  20 04 92   jsr $9204

$9198  30 ec      bmi $9186

$919a  99 d8 00   sta $00d8,y

$919d  60         rts

$919e  a5 52      lda $52

$91a0  c9 0f      cmp #$0f

$91a2  d0 01      bne $91a5

$91a4  60         rts

$91a5  a6 52      ldx $52

$91a7  b5 a8      lda $a8,x

$91a9  c9 ff      cmp #$ff

$91ab  f0 20      beq $91cd

$91ad  29 3f      and #$3f

$91af  85 50      sta $50

$91b1  a9 ff      lda #$ff

$91b3  95 a8      sta $a8,x

$91b5  a6 50      ldx $50

$91b7  a9 00      lda #$00

$91b9  9d 34 02   sta $0234,x

$91bc  20 ce 91   jsr $91ce

$91bf  a6 50      ldx $50

$91c1  a9 01      lda #$01

$91c3  ca         dex

$91c4  30 03      bmi $91c9

$91c6  0a         asl a

$91c7  d0 fa      bne $91c3

$91c9  05 70      ora $70

$91cb  85 70      sta $70

$91cd  60         rts

$91ce  a6 50      ldx $50

$91d0  b5 d1      lda $d1,x

$91d2  c9 ff      cmp #$ff

$91d4  f0 09      beq $91df

$91d6  48         pha

$91d7  a9 ff      lda #$ff

$91d9  95 d1      sta $d1,x

$91db  68         pla

$91dc  20 52 92   jsr $9252

$91df  a6 50      ldx $50

$91e1  b5 d8      lda $d8,x

$91e3  c9 ff      cmp #$ff

$91e5  f0 09      beq $91f0

$91e7  48         pha

$91e8  a9 ff      lda #$ff

$91ea  95 d8      sta $d8,x

$91ec  68         pla

$91ed  20 52 92   jsr $9252

$91f0  a6 50      ldx $50

$91f2  bd 65 02   lda $0265,x

$91f5  c9 ff      cmp #$ff

$91f7  f0 0a      beq $9203

$91f9  48         pha

$91fa  a9 ff      lda #$ff

$91fc  9d 65 02   sta $0265,x

$91ff  68         pla

$9200  4c 52 92   jmp $9252

$9203  60         rts

$9204  98         tya

$9205  48         pha

$9206  20 28 92   jsr $9228

$9209  10 06      bpl $9211

$920b  20 91 92   jsr $9291

$920e  aa         tax

$920f  30 13      bmi $9224

$9211  b5 02      lda $02,x

$9213  30 fc      bmi $9211

$9215  a9 00      lda #$00

$9217  95 02      sta $02,x

$9219  9d 72 02   sta $0272,x

$921c  8a         txa

$921d  0a         asl a

$921e  a8         tay

$921f  a9 02      lda #$02

$9221  99 bb 00   sta $00bb,y

$9224  68         pla

$9225  a8         tay

$9226  8a         txa

$9227  60         rts

$9228  a2 07      ldx #$07

$922a  a5 6d      lda $6d

$922c  3d ea b5   and $b5ea,x

$922f  f0 04      beq $9235

$9231  ca         dex

$9232  10 f6      bpl $922a

$9234  60         rts

$9235  a5 6d      lda $6d

$9237  5d ea b5   eor $b5ea,x

$923a  85 6d      sta $6d

$923c  8a         txa

$923d  60         rts

$923e  a6 50      ldx $50

$9240  b5 d1      lda $d1,x

$9242  30 04      bmi $9248

$9244  b5 d8      lda $d8,x

$9246  10 19      bpl $9261

$9248  c9 ff      cmp #$ff

$924a  f0 15      beq $9261

$924c  48         pha

$924d  a9 ff      lda #$ff

$924f  95 d1      sta $d1,x

$9251  68         pla

$9252  29 0f      and #$0f

$9254  a8         tay

$9255  c8         iny

$9256  a2 08      ldx #$08

$9258  66 6d      ror $6d

$925a  88         dey

$925b  d0 01      bne $925e

$925d  18         clc

$925e  ca         dex

$925f  10 f7      bpl $9258

$9261  60         rts

$9262  a9 0e      lda #$0e

$9264  85 52      sta $52

$9266  20 9e 91   jsr $919e

$9269  c6 52      dec $52

$926b  d0 f9      bne $9266

$926d  60         rts

$926e  a9 0e      lda #$0e

$9270  85 52      sta $52

$9272  a6 52      ldx $52

$9274  b5 a8      lda $a8,x

$9276  c9 ff      cmp #$ff

$9278  f0 12      beq $928c

$927a  29 3f      and #$3f

$927c  85 50      sta $50

$927e  20 11 9f   jsr $9f11

$9281  aa         tax

$9282  bd 72 02   lda $0272,x

$9285  29 01      and #$01

$9287  d0 03      bne $928c

$9289  20 9e 91   jsr $919e

$928c  c6 52      dec $52

$928e  10 e2      bpl $9272

$9290  60         rts

$9291  a5 40      lda $40

$9293  48         pha

$9294  a0 00      ldy #$00

$9296  b6 df      ldx $df,y

$9298  b5 d1      lda $d1,x

$929a  10 04      bpl $92a0

$929c  c9 ff      cmp #$ff

$929e  d0 16      bne $92b6

$92a0  8a         txa

$92a1  18         clc

$92a2  69 08      adc #$08

$92a4  aa         tax

$92a5  b5 d1      lda $d1,x

$92a7  10 04      bpl $92ad

$92a9  c9 ff      cmp #$ff

$92ab  d0 09      bne $92b6

$92ad  c8         iny

$92ae  c0 06      cpy #$06

$92b0  90 e4      bcc $9296

$92b2  a2 ff      ldx #$ff

$92b4  d0 20      bne $92d6

$92b6  86 40      stx $40

$92b8  29 3f      and #$3f

$92ba  aa         tax

$92bb  b5 02      lda $02,x

$92bd  30 fc      bmi $92bb

$92bf  c9 02      cmp #$02

$92c1  90 0c      bcc $92cf

$92c3  c9 0f      cmp #$0f

$92c5  f0 08      beq $92cf

$92c7  a6 40      ldx $40

$92c9  e0 08      cpx #$08

$92cb  90 d3      bcc $92a0

$92cd  b0 de      bcs $92ad

$92cf  a4 40      ldy $40

$92d1  a9 ff      lda #$ff

$92d3  99 d1 00   sta $00d1,y

$92d6  68         pla

$92d7  85 40      sta $40

$92d9  8a         txa

$92da  60         rts

$92db  a0 00      ldy #$00

$92dd  a9 01      lda #$01

$92df  24 70      bit $70

$92e1  d0 09      bne $92ec

$92e3  c8         iny

$92e4  0a         asl a

$92e5  d0 f8      bne $92df

$92e7  a9 70      lda #$70

$92e9  4c 7c 80   jmp $807c

$92ec  49 ff      eor #$ff

$92ee  25 70      and $70

$92f0  85 70      sta $70

$92f2  98         tya

$92f3  60         rts

$92f4  20 27 90   jsr $9027

$92f7  20 f6 81   jsr $81f6

$92fa  20 03 93   jsr $9303

$92fd  a6 50      ldx $50

$92ff  bd 3b 02   lda $023b,x

$9302  60         rts

$9303  a6 50      ldx $50

$9305  20 5f 90   jsr $905f

$9308  d0 03      bne $930d

$930a  4c a6 a0   jmp $a0a6

$930d  a5 52      lda $52

$930f  c9 0f      cmp #$0f

$9311  f0 5d      beq $9370

$9313  bd 34 02   lda $0234,x

$9316  29 08      and #$08

$9318  d0 15      bne $932f

$931a  20 5f 90   jsr $905f

$931d  c9 07      cmp #$07

$931f  d0 08      bne $9329

$9321  a9 89      lda #$89

$9323  9d 34 02   sta $0234,x

$9326  4c 3a 93   jmp $933a

$9329  a9 00      lda #$00

$932b  9d 34 02   sta $0234,x

$932e  60         rts

$932f  a5 52      lda $52

$9331  f0 32      beq $9365

$9333  20 5f 90   jsr $905f

$9336  c9 04      cmp #$04

$9338  90 22      bcc $935c

$933a  20 69 90   jsr $9069

$933d  b5 bb      lda $bb,x

$933f  d9 42 02   cmp $0242,y

$9342  d0 04      bne $9348

$9344  a9 00      lda #$00

$9346  95 bb      sta $bb,x

$9348  f6 bb      inc $bb,x

$934a  a1 bb      lda ($bb,x)

$934c  99 3b 02   sta $023b,y

$934f  b5 bb      lda $bb,x

$9351  d9 42 02   cmp $0242,y

$9354  d0 05      bne $935b

$9356  a9 81      lda #$81

$9358  99 34 02   sta $0234,y

$935b  60         rts

$935c  20 9b 90   jsr $909b

$935f  a6 50      ldx $50

$9361  9d 3b 02   sta $023b,x

$9364  60         rts

$9365  ad 6e 02   lda $026e

$9368  f0 f2      beq $935c

$936a  20 45 b2   jsr $b245

$936d  4c 5f 93   jmp $935f

$9370  20 42 94   jsr $9442

$9373  c9 cf      cmp #$cf

$9375  d0 18      bne $938f

$9377  a5 65      lda $65

$9379  c9 02      cmp #$02

$937b  d0 12      bne $938f

$937d  a9 0d      lda #$0d

$937f  85 54      sta $54

$9381  20 e5 81   jsr $81e5

$9384  a9 00      lda #$00

$9386  20 67 a8   jsr $a867

$9389  c6 cf      dec $cf

$938b  a9 80      lda #$80

$938d  d0 12      bne $93a1

$938f  20 71 90   jsr $9071

$9392  85 54      sta $54

$9394  d0 09      bne $939f

$9396  a9 cf      lda #$cf

$9398  20 22 94   jsr $9422

$939b  a9 02      lda #$02

$939d  95 bc      sta $bc,x

$939f  a9 88      lda #$88

$93a1  8d 3a 02   sta $023a

$93a4  a5 54      lda $54

$93a6  8d 41 02   sta $0241

$93a9  60         rts

$93aa  20 11 9f   jsr $9f11

$93ad  0a         asl a

$93ae  aa         tax

$93af  a9 00      lda #$00

$93b1  95 bb      sta $bb,x

$93b3  a1 bb      lda ($bb,x)

$93b5  f0 05      beq $93bc

$93b7  d6 bb      dec $bb,x

$93b9  4c 9b 90   jmp $909b

$93bc  60         rts

$93bd  a9 80      lda #$80

$93bf  d0 02      bne $93c3

$93c1  a9 90      lda #$90

$93c3  85 28      sta $28

$93c5  a5 6c      lda $6c

$93c7  20 88 95   jsr $9588

$93ca  a6 6c      ldx $6c

$93cc  4c e8 94   jmp $94e8

$93cf  a9 01      lda #$01

$93d1  8d 2d 02   sta $022d

$93d4  a9 11      lda #$11

$93d6  85 52      sta $52

$93d8  20 0d 9b   jsr $9b0d

$93db  a9 02      lda #$02

$93dd  4c 22 94   jmp $9422

$93e0  a9 12      lda #$12

$93e2  85 52      sta $52

$93e4  4c c3 9b   jmp $9bc3

$93e7  20 79 9d   jsr $9d79

$93ea  a9 01      lda #$01

$93ec  85 40      sta $40

$93ee  a5 2e      lda $2e

$93f0  48         pha

$93f1  a9 01      lda #$01

$93f3  85 2e      sta $2e

$93f5  20 75 b6   jsr $b675

$93f8  68         pla

$93f9  85 2e      sta $2e

$93fb  a9 00      lda #$00

$93fd  20 22 94   jsr $9422

$9400  a5 4d      lda $4d

$9402  20 b1 8e   jsr $8eb1

$9405  a5 4e      lda $4e

$9407  20 b1 8e   jsr $8eb1

$940a  20 02 90   jsr $9002

$940d  20 ed 94   jsr $94ed

$9410  a9 00      lda #$00

$9412  20 22 94   jsr $9422

$9415  20 b1 8e   jsr $8eb1

$9418  d0 fb      bne $9415

$941a  20 b1 8e   jsr $8eb1

$941d  a9 ff      lda #$ff

$941f  4c b1 8e   jmp $8eb1

$9422  85 40      sta $40

$9424  20 11 9f   jsr $9f11

$9427  0a         asl a

$9428  aa         tax

$9429  b5 bc      lda $bc,x

$942b  85 65      sta $65

$942d  a5 40      lda $40

$942f  95 bb      sta $bb,x

$9431  85 64      sta $64

$9433  60         rts

$9434  a9 11      lda #$11

$9436  85 52      sta $52

$9438  20 9e 91   jsr $919e

$943b  a9 12      lda #$12

$943d  85 52      sta $52

$943f  4c 9e 91   jmp $919e

$9442  20 11 9f   jsr $9f11

$9445  0a         asl a

$9446  aa         tax

$9447  b5 bc      lda $bc,x

$9449  85 65      sta $65

$944b  b5 bb      lda $bb,x

$944d  85 64      sta $64

$944f  60         rts

$9450  85 42      sta $42

$9452  20 11 9f   jsr $9f11

$9455  aa         tax

$9456  bd f1 01   lda $01f1,x

$9459  85 43      sta $43

$945b  a0 00      ldy #$00

$945d  b1 42      lda ($42),y

$945f  60         rts

$9460  a9 01      lda #$01

$9462  24 25      bit $25

$9464  f0 0a      beq $9470

$9466  49 01      eor #$01

$9468  85 25      sta $25

$946a  20 cf b0   jsr $b0cf

$946d  4c b3 b0   jmp $b0b3

$9470  60         rts

$9471  a5 28      lda $28

$9473  48         pha

$9474  86 6c      stx $6c

$9476  2c a8 02   bit $02a8

$9479  70 58      bvs $94d3

$947b  8a         txa

$947c  0a         asl a

$947d  aa         tax

$947e  b5 0c      lda $0c,x

$9480  85 28      sta $28

$9482  b5 0b      lda $0b,x

$9484  f0 1a      beq $94a0

$9486  cd 2c 02   cmp $022c

$9489  b0 15      bcs $94a0

$948b  68         pla

$948c  48         pha

$948d  c9 90      cmp #$90

$948f  d0 42      bne $94d3

$9491  a5 6f      lda $6f

$9493  cd eb 01   cmp $01eb

$9496  d0 33      bne $94cb

$9498  a5 75      lda $75

$949a  c5 28      cmp $28

$949c  f0 02      beq $94a0

$949e  b0 33      bcs $94d3

$94a0  20 a8 94   jsr $94a8

$94a3  a9 66      lda #$66

$94a5  4c 3f ff   jmp $ff3f

$94a8  a5 6c      lda $6c

$94aa  0a         asl a

$94ab  aa         tax

$94ac  b5 0b      lda $0b,x

$94ae  85 4d      sta $4d

$94b0  b5 0c      lda $0c,x

$94b2  85 4e      sta $4e

$94b4  60         rts

$94b5  a5 4d      lda $4d

$94b7  f0 ea      beq $94a3

$94b9  cd 2c 02   cmp $022c

$94bc  b0 e5      bcs $94a3

$94be  c5 90      cmp $90

$94c0  90 e1      bcc $94a3

$94c2  a5 75      lda $75

$94c4  c5 4e      cmp $4e

$94c6  f0 db      beq $94a3

$94c8  90 d9      bcc $94a3

$94ca  60         rts

$94cb  20 a8 94   jsr $94a8

$94ce  a9 73      lda #$73

$94d0  4c 3f ff   jmp $ff3f

$94d3  a6 6c      ldx $6c

$94d5  68         pla

$94d6  85 28      sta $28

$94d8  9d 72 02   sta $0272,x

$94db  4c 9d 95   jmp $959d

$94de  a9 80      lda #$80

$94e0  d0 02      bne $94e4

$94e2  a9 90      lda #$90

$94e4  a6 6c      ldx $6c

$94e6  85 28      sta $28

$94e8  a5 28      lda $28

$94ea  20 73 94   jsr $9473

$94ed  20 f8 94   jsr $94f8

$94f0  48         pha

$94f1  a9 00      lda #$00

$94f3  8d a8 02   sta $02a8

$94f6  68         pla

$94f7  60         rts

$94f8  20 98 95   jsr $9598

$94fb  c9 02      cmp #$02

$94fd  90 19      bcc $9518

$94ff  c9 08      cmp #$08

$9501  f0 0c      beq $950f

$9503  c9 0b      cmp #$0b

$9505  f0 08      beq $950f

$9507  c9 03      cmp #$03

$9509  f0 04      beq $950f

$950b  c9 0f      cmp #$0f

$950d  d0 0b      bne $951a

$950f  24 81      bit $81

$9511  30 05      bmi $9518

$9513  2c a8 02   bit $02a8

$9516  10 17      bpl $952f

$9518  18         clc

$9519  60         rts

$951a  98         tya

$951b  48         pha

$951c  20 64 95   jsr $9564

$951f  c9 02      cmp #$02

$9521  90 37      bcc $955a

$9523  24 30      bit $30

$9525  10 12      bpl $9539

$9527  68         pla

$9528  c9 90      cmp #$90

$952a  d0 03      bne $952f

$952c  9d 72 02   sta $0272,x

$952f  a9 00      lda #$00

$9531  8d a8 02   sta $02a8

$9534  b5 02      lda $02,x

$9536  20 2d ff   jsr $ff2d

$9539  24 81      bit $81

$953b  30 21      bmi $955e

$953d  2c a8 02   bit $02a8

$9540  30 1c      bmi $955e

$9542  48         pha

$9543  a9 c0      lda #$c0

$9545  20 9d 95   jsr $959d

$9548  20 64 95   jsr $9564

$954b  c9 02      cmp #$02

$954d  b0 d8      bcs $9527

$954f  68         pla

$9550  c9 90      cmp #$90

$9552  d0 0a      bne $955e

$9554  9d 72 02   sta $0272,x

$9557  20 64 95   jsr $9564

$955a  c9 02      cmp #$02

$955c  b0 d1      bcs $952f

$955e  68         pla

$955f  a8         tay

$9560  b5 02      lda $02,x

$9562  18         clc

$9563  60         rts

$9564  a5 30      lda $30

$9566  29 3f      and #$3f

$9568  a8         tay

$9569  a5 79      lda $79

$956b  09 20      ora #$20

$956d  85 79      sta $79

$956f  bd 72 02   lda $0272,x

$9572  20 9d 95   jsr $959d

$9575  c9 02      cmp #$02

$9577  90 03      bcc $957c

$9579  88         dey

$957a  d0 ed      bne $9569

$957c  48         pha

$957d  a5 79      lda $79

$957f  29 df      and #$df

$9581  85 79      sta $79

$9583  68         pla

$9584  60         rts

$9585  20 11 9f   jsr $9f11

$9588  0a         asl a

$9589  a8         tay

$958a  a5 4d      lda $4d

$958c  99 0b 00   sta $000b,y

$958f  a5 4e      lda $4e

$9591  99 0c 00   sta $000c,y

$9594  a9 00      lda #$00

$9596  aa         tax

$9597  60         rts

$9598  08         php

$9599  58         cli

$959a  4c a1 95   jmp $95a1

$959d  08         php

$959e  58         cli

$959f  95 02      sta $02,x

$95a1  00         brk

$95a2  ea         nop

$95a3  b5 02      lda $02,x

$95a5  30 fc      bmi $95a3

$95a7  28         plp

$95a8  b5 02      lda $02,x

$95aa  60         rts

$95ab  a5 52      lda $52

$95ad  48         pha

$95ae  a5 50      lda $50

$95b0  48         pha

$95b1  a5 4e      lda $4e

$95b3  48         pha

$95b4  a5 4d      lda $4d

$95b6  48         pha

$95b7  a9 11      lda #$11

$95b9  85 52      sta $52

$95bb  20 79 9d   jsr $9d79

$95be  ad 2d 02   lda $022d

$95c1  48         pha

$95c2  a6 6c      ldx $6c

$95c4  a5 ef      lda $ef

$95c6  5d 72 02   eor $0272,x

$95c9  4a         lsr a

$95ca  90 0b      bcc $95d7

$95cc  a2 01      ldx #$01

$95ce  86 73      stx $73

$95d0  20 24 84   jsr $8424

$95d3  f0 20      beq $95f5

$95d5  d0 2d      bne $9604

$95d7  a5 72      lda $72

$95d9  f0 11      beq $95ec

$95db  c5 4e      cmp $4e

$95dd  f0 25      beq $9604

$95df  85 4e      sta $4e

$95e1  20 bd 93   jsr $93bd

$95e4  4c 04 96   jmp $9604

$95e7  a9 72      lda #$72

$95e9  20 7c 80   jsr $807c

$95ec  a9 01      lda #$01

$95ee  85 73      sta $73

$95f0  20 89 84   jsr $8489

$95f3  d0 0f      bne $9604

$95f5  20 e7 93   jsr $93e7

$95f8  a5 4e      lda $4e

$95fa  c9 03      cmp #$03

$95fc  90 e9      bcc $95e7

$95fe  85 72      sta $72

$9600  a9 02      lda #$02

$9602  85 73      sta $73

$9604  a5 73      lda $73

$9606  20 22 94   jsr $9422

$9609  68         pla

$960a  8d 2d 02   sta $022d

$960d  c9 04      cmp #$04

$960f  d0 02      bne $9613

$9611  09 80      ora #$80

$9613  20 b1 8e   jsr $8eb1

$9616  68         pla

$9617  8d 97 02   sta $0297

$961a  20 b1 8e   jsr $8eb1

$961d  68         pla

$961e  8d 9c 02   sta $029c

$9621  20 b1 8e   jsr $8eb1

$9624  20 11 9f   jsr $9f11

$9627  a8         tay

$9628  ad 91 02   lda $0291

$962b  aa         tax

$962c  a9 10      lda #$10

$962e  20 ee 84   jsr $84ee

$9631  a0 10      ldy #$10

$9633  a9 00      lda #$00

$9635  91 64      sta ($64),y

$9637  c8         iny

$9638  c0 1b      cpy #$1b

$963a  90 f9      bcc $9635

$963c  ad 2d 02   lda $022d

$963f  c9 04      cmp #$04

$9641  d0 13      bne $9656

$9643  a0 10      ldy #$10

$9645  ad 70 02   lda $0270

$9648  91 64      sta ($64),y

$964a  c8         iny

$964b  ad 71 02   lda $0271

$964e  91 64      sta ($64),y

$9650  c8         iny

$9651  ad 6f 02   lda $026f

$9654  91 64      sta ($64),y

$9656  20 c1 93   jsr $93c1

$9659  68         pla

$965a  85 50      sta $50

$965c  aa         tax

$965d  68         pla

$965e  85 52      sta $52

$9660  a5 72      lda $72

$9662  85 e5      sta $e5

$9664  9d 7d 02   sta $027d,x

$9667  a5 73      lda $73

$9669  85 ea      sta $ea

$966b  9d 84 02   sta $0284,x

$966e  ad 2d 02   lda $022d

$9671  85 f4      sta $f4

$9673  a9 00      lda #$00

$9675  85 ef      sta $ef

$9677  60         rts

$9678  a5 52      lda $52

$967a  85 7a      sta $7a

$967c  20 65 81   jsr $8165

$967f  8e 2a 02   stx $022a

$9682  ae 00 02   ldx $0200

$9685  a5 7a      lda $7a

$9687  d0 27      bne $96b0

$9689  e0 2a      cpx #$2a

$968b  d0 23      bne $96b0

$968d  a5 4c      lda $4c

$968f  f0 45      beq $96d6

$9691  85 4d      sta $4d

$9693  a9 00      lda #$00

$9695  85 ef      sta $ef

$9697  a9 02      lda #$02

$9699  85 f4      sta $f4

$969b  ad 8b 02   lda $028b

$969e  85 4e      sta $4e

$96a0  20 f6 81   jsr $81f6

$96a3  20 0d 9b   jsr $9b0d

$96a6  a9 04      lda #$04

$96a8  a6 50      ldx $50

$96aa  99 f9 00   sta $00f9,y

$96ad  4c 4c 80   jmp $804c

$96b0  e0 24      cpx #$24

$96b2  d0 1b      bne $96cf

$96b4  a5 7a      lda $7a

$96b6  d0 03      bne $96bb

$96b8  4c f7 98   jmp $98f7

$96bb  20 85 80   jsr $8085

$96be  ad 2b 02   lda $022b

$96c1  85 4d      sta $4d

$96c3  a9 00      lda #$00

$96c5  85 4e      sta $4e

$96c7  20 0d 9b   jsr $9b0d

$96ca  a9 02      lda #$02

$96cc  4c a8 96   jmp $96a8

$96cf  e0 23      cpx #$23

$96d1  d0 0b      bne $96de

$96d3  4c e4 89   jmp $89e4

$96d6  a9 02      lda #$02

$96d8  8d 33 02   sta $0233

$96db  20 03 8f   jsr $8f03

$96de  20 99 80   jsr $8099

$96e1  d0 04      bne $96e7

$96e3  a2 00      ldx #$00

$96e5  f0 0c      beq $96f3

$96e7  8a         txa

$96e8  f0 05      beq $96ef

$96ea  a9 30      lda #$30

$96ec  4c 7c 80   jmp $807c

$96ef  88         dey

$96f0  f0 01      beq $96f3

$96f2  88         dey

$96f3  8c 91 02   sty $0291

$96f6  a9 8d      lda #$8d

$96f8  20 1c 81   jsr $811c

$96fb  e8         inx

$96fc  8e 2f 02   stx $022f

$96ff  20 fd 81   jsr $81fd

$9702  20 a2 82   jsr $82a2

$9705  20 ed 82   jsr $82ed

$9708  a2 00      ldx #$00

$970a  8e 6f 02   stx $026f

$970d  8e a7 02   stx $02a7

$9710  8e 2d 02   stx $022d

$9713  e8         inx

$9714  ec 2e 02   cpx $022e

$9717  b0 10      bcs $9729

$9719  20 ab 98   jsr $98ab

$971c  e8         inx

$971d  ec 2e 02   cpx $022e

$9720  b0 07      bcs $9729

$9722  c0 04      cpy #$04

$9724  f0 38      beq $975e

$9726  20 ab 98   jsr $98ab

$9729  a6 7a      ldx $7a

$972b  86 52      stx $52

$972d  e0 02      cpx #$02

$972f  b0 0d      bcs $973e

$9731  8e a7 02   stx $02a7

$9734  ad 2d 02   lda $022d

$9737  d0 1b      bne $9754

$9739  a9 02      lda #$02

$973b  8d 2d 02   sta $022d

$973e  ad 2d 02   lda $022d

$9741  d0 11      bne $9754

$9743  a5 f4      lda $f4

$9745  29 07      and #$07

$9747  8d 2d 02   sta $022d

$974a  ad 97 02   lda $0297

$974d  d0 05      bne $9754

$974f  a9 01      lda #$01

$9751  8d 2d 02   sta $022d

$9754  ad a7 02   lda $02a7

$9757  c9 01      cmp #$01

$9759  f0 18      beq $9773

$975b  4c ed 97   jmp $97ed

$975e  bc 91 02   ldy $0291,x

$9761  b9 00 02   lda $0200,y

$9764  8d 6f 02   sta $026f

$9767  ad 97 02   lda $0297

$976a  d0 bd      bne $9729

$976c  a9 01      lda #$01

$976e  8d a7 02   sta $02a7

$9771  d0 b6      bne $9729

$9773  a5 f4      lda $f4

$9775  29 80      and #$80

$9777  aa         tax

$9778  d0 14      bne $978e

$977a  a9 20      lda #$20

$977c  24 f4      bit $f4

$977e  f0 06      beq $9786

$9780  20 3b 87   jsr $873b

$9783  4c 90 98   jmp $9890

$9786  ad 97 02   lda $0297

$9789  d0 03      bne $978e

$978b  4c 90 98   jmp $9890

$978e  ad 00 02   lda $0200

$9791  c9 40      cmp #$40

$9793  f0 0d      beq $97a2

$9795  8a         txa

$9796  d0 05      bne $979d

$9798  a9 63      lda #$63

$979a  4c 7c 80   jmp $807c

$979d  a9 33      lda #$33

$979f  4c 7c 80   jmp $807c

$97a2  a5 f4      lda $f4

$97a4  29 07      and #$07

$97a6  cd 2d 02   cmp $022d

$97a9  d0 67      bne $9812

$97ab  c9 04      cmp #$04

$97ad  f0 63      beq $9812

$97af  20 c3 9b   jsr $9bc3

$97b2  a5 50      lda $50

$97b4  8d 8c 02   sta $028c

$97b7  a9 11      lda #$11

$97b9  85 52      sta $52

$97bb  20 27 90   jsr $9027

$97be  ad 32 02   lda $0232

$97c1  20 22 94   jsr $9422

$97c4  a0 00      ldy #$00

$97c6  b1 64      lda ($64),y

$97c8  09 20      ora #$20

$97ca  91 64      sta ($64),y

$97cc  a0 1a      ldy #$1a

$97ce  a5 4d      lda $4d

$97d0  91 64      sta ($64),y

$97d2  c8         iny

$97d3  a5 4e      lda $4e

$97d5  91 64      sta ($64),y

$97d7  ae 8c 02   ldx $028c

$97da  a5 e5      lda $e5

$97dc  9d 7d 02   sta $027d,x

$97df  a5 ea      lda $ea

$97e1  9d 84 02   sta $0284,x

$97e4  20 79 9d   jsr $9d79

$97e7  20 c1 93   jsr $93c1

$97ea  4c 96 98   jmp $9896

$97ed  ad 97 02   lda $0297

$97f0  d0 05      bne $97f7

$97f2  a9 62      lda #$62

$97f4  4c 7c 80   jmp $807c

$97f7  ad a7 02   lda $02a7

$97fa  c9 03      cmp #$03

$97fc  f0 0b      beq $9809

$97fe  a9 20      lda #$20

$9800  24 f4      bit $f4

$9802  f0 05      beq $9809

$9804  a9 60      lda #$60

$9806  4c 7c 80   jmp $807c

$9809  a5 f4      lda $f4

$980b  29 07      and #$07

$980d  cd 2d 02   cmp $022d

$9810  f0 05      beq $9817

$9812  a9 64      lda #$64

$9814  4c 7c 80   jmp $807c

$9817  a0 00      ldy #$00

$9819  8c 30 02   sty $0230

$981c  ae a7 02   ldx $02a7

$981f  e0 02      cpx #$02

$9821  d0 1a      bne $983d

$9823  c9 04      cmp #$04

$9825  f0 eb      beq $9812

$9827  b1 64      lda ($64),y

$9829  29 4f      and #$4f

$982b  91 64      sta ($64),y

$982d  a5 52      lda $52

$982f  48         pha

$9830  a9 11      lda #$11

$9832  85 52      sta $52

$9834  20 79 9d   jsr $9d79

$9837  20 c1 93   jsr $93c1

$983a  68         pla

$983b  85 52      sta $52

$983d  20 4d 98   jsr $984d

$9840  ad a7 02   lda $02a7

$9843  c9 02      cmp #$02

$9845  d0 4f      bne $9896

$9847  20 cc 98   jsr $98cc

$984a  4c 4c 80   jmp $804c

$984d  a0 13      ldy #$13

$984f  b1 64      lda ($64),y

$9851  8d 70 02   sta $0270

$9854  c8         iny

$9855  b1 64      lda ($64),y

$9857  8d 71 02   sta $0271

$985a  c8         iny

$985b  b1 64      lda ($64),y

$985d  ae 6f 02   ldx $026f

$9860  8d 6f 02   sta $026f

$9863  8a         txa

$9864  f0 0a      beq $9870

$9866  cd 6f 02   cmp $026f

$9869  f0 05      beq $9870

$986b  a9 50      lda #$50

$986d  20 7c 80   jsr $807c

$9870  ae 30 02   ldx $0230

$9873  bd 97 02   lda $0297,x

$9876  85 4d      sta $4d

$9878  bd 9c 02   lda $029c,x

$987b  85 4e      sta $4e

$987d  20 0d 9b   jsr $9b0d

$9880  a4 50      ldy $50

$9882  ae 30 02   ldx $0230

$9885  b5 e5      lda $e5,x

$9887  99 7d 02   sta $027d,y

$988a  b5 ea      lda $ea,x

$988c  99 84 02   sta $0284,y

$988f  60         rts

$9890  20 c3 9b   jsr $9bc3

$9893  20 ab 95   jsr $95ab

$9896  a5 52      lda $52

$9898  c9 02      cmp #$02

$989a  b0 0c      bcs $98a8

$989c  20 7c 9d   jsr $9d7c

$989f  a5 4d      lda $4d

$98a1  85 4c      sta $4c

$98a3  a5 4e      lda $4e

$98a5  8d 8b 02   sta $028b

$98a8  4c 50 80   jmp $8050

$98ab  bc 91 02   ldy $0291,x

$98ae  b9 00 02   lda $0200,y

$98b1  a0 04      ldy #$04

$98b3  88         dey

$98b4  30 08      bmi $98be

$98b6  d9 a1 db   cmp $dba1,y

$98b9  d0 f8      bne $98b3

$98bb  8c a7 02   sty $02a7

$98be  a0 06      ldy #$06

$98c0  88         dey

$98c1  30 08      bmi $98cb

$98c3  d9 a5 db   cmp $dba5,y

$98c6  d0 f8      bne $98c0

$98c8  8c 2d 02   sty $022d

$98cb  60         rts

$98cc  20 7a 88   jsr $887a

$98cf  a9 80      lda #$80

$98d1  20 e4 9c   jsr $9ce4

$98d4  f0 f6      beq $98cc

$98d6  20 ce 9d   jsr $9dce

$98d9  a6 4e      ldx $4e

$98db  e8         inx

$98dc  8a         txa

$98dd  d0 05      bne $98e4

$98df  20 18 91   jsr $9118

$98e2  a9 02      lda #$02

$98e4  20 22 94   jsr $9422

$98e7  a6 50      ldx $50

$98e9  a9 01      lda #$01

$98eb  9d 34 02   sta $0234,x

$98ee  a9 80      lda #$80

$98f0  05 50      ora $50

$98f2  a6 52      ldx $52

$98f4  95 a8      sta $a8,x

$98f6  60         rts

$98f7  a9 0c      lda #$0c

$98f9  8d 2a 02   sta $022a

$98fc  a9 00      lda #$00

$98fe  a6 29      ldx $29

$9900  ca         dex

$9901  f0 0b      beq $990e

$9903  ca         dex

$9904  d0 21      bne $9927

$9906  ad 01 02   lda $0201

$9909  20 95 82   jsr $8295

$990c  30 19      bmi $9927

$990e  85 ef      sta $ef

$9910  ee 2e 02   inc $022e

$9913  ee 2f 02   inc $022f

$9916  ee 91 02   inc $0291

$9919  a9 80      lda #$80

$991b  85 f4      sta $f4

$991d  a9 2a      lda #$2a

$991f  8d 00 02   sta $0200

$9922  8d 01 02   sta $0201

$9925  d0 18      bne $993f

$9927  20 99 80   jsr $8099

$992a  d0 05      bne $9931

$992c  20 af 81   jsr $81af

$992f  a0 03      ldy #$03

$9931  88         dey

$9932  88         dey

$9933  8c 91 02   sty $0291

$9936  20 b4 80   jsr $80b4

$9939  20 70 82   jsr $8270

$993c  20 0b 82   jsr $820b

$993f  20 a2 82   jsr $82a2

$9942  20 27 86   jsr $8627

$9945  20 ed 82   jsr $82ed

$9948  20 7c b1   jsr $b17c

$994b  20 71 90   jsr $9071

$994e  a6 50      ldx $50

$9950  9d 3b 02   sta $023b,x

$9953  a9 04      lda #$04

$9955  95 f9      sta $f9,x

$9957  a9 00      lda #$00

$9959  85 cd      sta $cd

$995b  60         rts

$995c  a5 52      lda $52

$995e  d0 0b      bne $996b

$9960  a9 00      lda #$00

$9962  8d 6e 02   sta $026e

$9965  20 9e 91   jsr $919e

$9968  4c 34 94   jmp $9434

$996b  c9 0f      cmp #$0f

$996d  f0 17      beq $9986

$996f  20 9f 99   jsr $999f

$9972  a5 52      lda $52

$9974  c9 02      cmp #$02

$9976  90 f0      bcc $9968

$9978  ad ab 02   lda $02ab

$997b  d0 06      bne $9983

$997d  20 15 b5   jsr $b515

$9980  4c 4c 80   jmp $804c

$9983  4c 67 80   jmp $8067

$9986  a9 0e      lda #$0e

$9988  85 52      sta $52

$998a  20 9f 99   jsr $999f

$998d  c6 52      dec $52

$998f  10 f9      bpl $998a

$9991  ad ab 02   lda $02ab

$9994  d0 06      bne $999c

$9996  20 15 b5   jsr $b515

$9999  4c 4c 80   jmp $804c

$999c  4c 67 80   jmp $8067

$999f  a6 52      ldx $52

$99a1  b5 a8      lda $a8,x

$99a3  c9 ff      cmp #$ff

$99a5  d0 01      bne $99a8

$99a7  60         rts

$99a8  29 0f      and #$0f

$99aa  85 50      sta $50

$99ac  20 5f 90   jsr $905f

$99af  c9 07      cmp #$07

$99b1  f0 0f      beq $99c2

$99b3  c9 04      cmp #$04

$99b5  f0 11      beq $99c8

$99b7  20 42 90   jsr $9042

$99ba  b0 09      bcs $99c5

$99bc  20 2a 9a   jsr $9a2a

$99bf  20 72 9a   jsr $9a72

$99c2  20 15 b5   jsr $b515

$99c5  4c 9e 91   jmp $919e

$99c8  20 2e 9d   jsr $9d2e

$99cb  20 7d 8d   jsr $8d7d

$99ce  20 5c a1   jsr $a15c

$99d1  a6 69      ldx $69

$99d3  86 44      stx $44

$99d5  20 6e a5   jsr $a56e

$99d8  f0 2b      beq $9a05

$99da  e6 44      inc $44

$99dc  a9 00      lda #$00

$99de  85 41      sta $41

$99e0  85 42      sta $42

$99e2  a5 6a      lda $6a

$99e4  38         sec

$99e5  e9 0e      sbc #$0e

$99e7  85 43      sta $43

$99e9  20 82 9e   jsr $9e82

$99ec  a6 50      ldx $50

$99ee  a5 41      lda $41

$99f0  9d 49 02   sta $0249,x

$99f3  a5 42      lda $42

$99f5  9d 50 02   sta $0250,x

$99f8  a9 40      lda #$40

$99fa  20 e4 9c   jsr $9ce4

$99fd  f0 03      beq $9a02

$99ff  20 72 9a   jsr $9a72

$9a02  4c 9e 91   jmp $919e

$9a05  a5 6a      lda $6a

$9a07  38         sec

$9a08  e9 0e      sbc #$0e

$9a0a  85 43      sta $43

$9a0c  ad 00 01   lda $0100

$9a0f  85 58      sta $58

$9a11  20 97 9e   jsr $9e97

$9a14  a2 00      ldx #$00

$9a16  a9 02      lda #$02

$9a18  20 cc 9e   jsr $9ecc

$9a1b  a6 50      ldx $50

$9a1d  a5 5b      lda $5b

$9a1f  9d 49 02   sta $0249,x

$9a22  a5 5c      lda $5c

$9a24  9d 50 02   sta $0250,x

$9a27  4c f8 99   jmp $99f8

$9a2a  a6 50      ldx $50

$9a2c  bd 49 02   lda $0249,x

$9a2f  1d 50 02   ora $0250,x

$9a32  d0 0c      bne $9a40

$9a34  20 42 94   jsr $9442

$9a37  c9 02      cmp #$02

$9a39  d0 05      bne $9a40

$9a3b  a9 0d      lda #$0d

$9a3d  20 b1 8e   jsr $8eb1

$9a40  20 42 94   jsr $9442

$9a43  c9 02      cmp #$02

$9a45  d0 12      bne $9a59

$9a47  20 7d 8d   jsr $8d7d

$9a4a  a6 50      ldx $50

$9a4c  bd 49 02   lda $0249,x

$9a4f  d0 03      bne $9a54

$9a51  de 50 02   dec $0250,x

$9a54  de 49 02   dec $0249,x

$9a57  a9 00      lda #$00

$9a59  38         sec

$9a5a  e9 01      sbc #$01

$9a5c  48         pha

$9a5d  a9 00      lda #$00

$9a5f  20 22 94   jsr $9422

$9a62  20 b1 8e   jsr $8eb1

$9a65  68         pla

$9a66  20 b1 8e   jsr $8eb1

$9a69  20 02 90   jsr $9002

$9a6c  20 ed 94   jsr $94ed

$9a6f  4c 7d 8d   jmp $8d7d

$9a72  a6 50      ldx $50

$9a74  8e 8c 02   stx $028c

$9a77  a5 52      lda $52

$9a79  48         pha

$9a7a  bd 7d 02   lda $027d,x

$9a7d  85 4e      sta $4e

$9a7f  bd 84 02   lda $0284,x

$9a82  8d 32 02   sta $0232

$9a85  ad 2b 02   lda $022b

$9a88  85 4d      sta $4d

$9a8a  20 11 9f   jsr $9f11

$9a8d  48         pha

$9a8e  85 6c      sta $6c

$9a90  20 bd 93   jsr $93bd

$9a93  a0 00      ldy #$00

$9a95  bd f1 01   lda $01f1,x

$9a98  85 56      sta $56

$9a9a  ad 32 02   lda $0232

$9a9d  85 55      sta $55

$9a9f  b1 55      lda ($55),y

$9aa1  29 20      and #$20

$9aa3  f0 43      beq $9ae8

$9aa5  20 5f 90   jsr $905f

$9aa8  c9 04      cmp #$04

$9aaa  f0 44      beq $9af0

$9aac  b1 55      lda ($55),y

$9aae  29 8f      and #$8f

$9ab0  91 55      sta ($55),y

$9ab2  c8         iny

$9ab3  b1 55      lda ($55),y

$9ab5  85 4d      sta $4d

$9ab7  84 42      sty $42

$9ab9  a0 1b      ldy #$1b

$9abb  b1 55      lda ($55),y

$9abd  48         pha

$9abe  88         dey

$9abf  b1 55      lda ($55),y

$9ac1  d0 0a      bne $9acd

$9ac3  85 4d      sta $4d

$9ac5  68         pla

$9ac6  85 4e      sta $4e

$9ac8  a9 67      lda #$67

$9aca  20 3f ff   jsr $ff3f

$9acd  48         pha

$9ace  a9 00      lda #$00

$9ad0  91 55      sta ($55),y

$9ad2  c8         iny

$9ad3  91 55      sta ($55),y

$9ad5  68         pla

$9ad6  a4 42      ldy $42

$9ad8  91 55      sta ($55),y

$9ada  c8         iny

$9adb  b1 55      lda ($55),y

$9add  85 4e      sta $4e

$9adf  68         pla

$9ae0  91 55      sta ($55),y

$9ae2  20 13 87   jsr $8713

$9ae5  4c f0 9a   jmp $9af0

$9ae8  b1 55      lda ($55),y

$9aea  29 0f      and #$0f

$9aec  09 80      ora #$80

$9aee  91 55      sta ($55),y

$9af0  ae 8c 02   ldx $028c

$9af3  a0 1c      ldy #$1c

$9af5  bd 49 02   lda $0249,x

$9af8  91 55      sta ($55),y

$9afa  c8         iny

$9afb  bd 50 02   lda $0250,x

$9afe  91 55      sta ($55),y

$9b00  68         pla

$9b01  aa         tax

$9b02  a9 90      lda #$90

$9b04  20 e6 94   jsr $94e6

$9b07  68         pla

$9b08  85 52      sta $52

$9b0a  4c 42 90   jmp $9042

$9b0d  a9 01      lda #$01

$9b0f  20 5a 91   jsr $915a

$9b12  20 9b 9b   jsr $9b9b

$9b15  ad 2d 02   lda $022d

$9b18  48         pha

$9b19  0a         asl a

$9b1a  95 f9      sta $f9,x

$9b1c  20 d6 8f   jsr $8fd6

$9b1f  a6 50      ldx $50

$9b21  a5 4d      lda $4d

$9b23  d0 05      bne $9b2a

$9b25  a5 4e      lda $4e

$9b27  9d 42 02   sta $0242,x

$9b2a  68         pla

$9b2b  c9 04      cmp #$04

$9b2d  d0 5e      bne $9b8d

$9b2f  a4 52      ldy $52

$9b31  b9 a8 00   lda $00a8,y

$9b34  09 40      ora #$40

$9b36  99 a8 00   sta $00a8,y

$9b39  ad 6f 02   lda $026f

$9b3c  9d 5e 02   sta $025e,x

$9b3f  20 04 92   jsr $9204

$9b42  10 03      bpl $9b47

$9b44  4c 86 91   jmp $9186

$9b47  a6 50      ldx $50

$9b49  9d 65 02   sta $0265,x

$9b4c  48         pha

$9b4d  20 6e a5   jsr $a56e

$9b50  f0 17      beq $9b69

$9b52  68         pla

$9b53  ac 70 02   ldy $0270

$9b56  84 4d      sty $4d

$9b58  ac 71 02   ldy $0271

$9b5b  84 4e      sty $4e

$9b5d  20 88 95   jsr $9588

$9b60  20 ac 9d   jsr $9dac

$9b63  20 ed 94   jsr $94ed

$9b66  4c 7b 9b   jmp $9b7b

$9b69  68         pla

$9b6a  ad 70 02   lda $0270

$9b6d  9d 10 01   sta $0110,x

$9b70  ad 71 02   lda $0271

$9b73  9d 09 01   sta $0109,x

$9b76  a9 ff      lda #$ff

$9b78  9d 02 01   sta $0102,x

$9b7b  a6 50      ldx $50

$9b7d  a9 02      lda #$02

$9b7f  9d 57 02   sta $0257,x

$9b82  a9 00      lda #$00

$9b84  20 22 94   jsr $9422

$9b87  20 e1 a0   jsr $a0e1

$9b8a  4c 7c 9d   jmp $9d7c

$9b8d  20 9b 90   jsr $909b

$9b90  a6 50      ldx $50

$9b92  9d 3b 02   sta $023b,x

$9b95  a9 88      lda #$88

$9b97  9d 34 02   sta $0234,x

$9b9a  60         rts

$9b9b  a6 50      ldx $50

$9b9d  b5 d1      lda $d1,x

$9b9f  0a         asl a

$9ba0  30 06      bmi $9ba8

$9ba2  a8         tay

$9ba3  a9 02      lda #$02

$9ba5  99 bb 00   sta $00bb,y

$9ba8  b5 d8      lda $d8,x

$9baa  09 80      ora #$80

$9bac  95 d8      sta $d8,x

$9bae  0a         asl a

$9baf  30 06      bmi $9bb7

$9bb1  a8         tay

$9bb2  a9 02      lda #$02

$9bb4  99 bb 00   sta $00bb,y

$9bb7  a9 00      lda #$00

$9bb9  9d 42 02   sta $0242,x

$9bbc  9d 49 02   sta $0249,x

$9bbf  9d 50 02   sta $0250,x

$9bc2  60         rts

$9bc3  20 ed b6   jsr $b6ed

$9bc6  a9 01      lda #$01

$9bc8  20 57 91   jsr $9157

$9bcb  20 85 95   jsr $9585

$9bce  20 9b 9b   jsr $9b9b

$9bd1  a6 50      ldx $50

$9bd3  ad 2d 02   lda $022d

$9bd6  48         pha

$9bd7  0a         asl a

$9bd8  95 f9      sta $f9,x

$9bda  68         pla

$9bdb  c9 04      cmp #$04

$9bdd  f0 06      beq $9be5

$9bdf  a9 01      lda #$01

$9be1  9d 34 02   sta $0234,x

$9be4  60         rts

$9be5  a4 52      ldy $52

$9be7  b9 a8 00   lda $00a8,y

$9bea  29 3f      and #$3f

$9bec  09 40      ora #$40

$9bee  99 a8 00   sta $00a8,y

$9bf1  ad 6f 02   lda $026f

$9bf4  9d 5e 02   sta $025e,x

$9bf7  20 04 92   jsr $9204

$9bfa  10 03      bpl $9bff

$9bfc  4c 86 91   jmp $9186

$9bff  a6 50      ldx $50

$9c01  9d 65 02   sta $0265,x

$9c04  20 fa 9d   jsr $9dfa

$9c07  20 68 b6   jsr $b668

$9c0a  a5 4d      lda $4d

$9c0c  8d 70 02   sta $0270

$9c0f  a5 4e      lda $4e

$9c11  8d 71 02   sta $0271

$9c14  a6 50      ldx $50

$9c16  bd 65 02   lda $0265,x

$9c19  20 88 95   jsr $9588

$9c1c  a9 00      lda #$00

$9c1e  20 23 9e   jsr $9e23

$9c21  a9 00      lda #$00

$9c23  20 ca 9c   jsr $9cca

$9c26  a9 11      lda #$11

$9c28  20 ca 9c   jsr $9cca

$9c2b  a9 00      lda #$00

$9c2d  20 ca 9c   jsr $9cca

$9c30  ad 6f 02   lda $026f

$9c33  20 ca 9c   jsr $9cca

$9c36  a5 4d      lda $4d

$9c38  20 ca 9c   jsr $9cca

$9c3b  a5 4e      lda $4e

$9c3d  20 ca 9c   jsr $9cca

$9c40  a9 10      lda #$10

$9c42  20 23 9e   jsr $9e23

$9c45  20 7c 9d   jsr $9d7c

$9c48  a5 4d      lda $4d

$9c4a  20 ca 9c   jsr $9cca

$9c4d  a5 4e      lda $4e

$9c4f  20 ca 9c   jsr $9cca

$9c52  20 a6 9d   jsr $9da6

$9c55  20 ed 94   jsr $94ed

$9c58  20 6e a5   jsr $a56e

$9c5b  d0 03      bne $9c60

$9c5d  20 82 9c   jsr $9c82

$9c60  a9 02      lda #$02

$9c62  20 22 94   jsr $9422

$9c65  a6 50      ldx $50

$9c67  38         sec

$9c68  a9 00      lda #$00

$9c6a  fd 5e 02   sbc $025e,x

$9c6d  9d 57 02   sta $0257,x

$9c70  20 98 a2   jsr $a298

$9c73  20 56 9d   jsr $9d56

$9c76  20 9a 9d   jsr $9d9a

$9c79  20 ed 94   jsr $94ed

$9c7c  20 15 b5   jsr $b515

$9c7f  4c 7b 9b   jmp $9b7b

$9c82  a6 50      ldx $50

$9c84  bd 65 02   lda $0265,x

$9c87  20 fa 9d   jsr $9dfa

$9c8a  20 23 9e   jsr $9e23

$9c8d  ad 70 02   lda $0270

$9c90  20 ca 9c   jsr $9cca

$9c93  ad 71 02   lda $0271

$9c96  20 ca 9c   jsr $9cca

$9c99  a9 fe      lda #$fe

$9c9b  20 ca 9c   jsr $9cca

$9c9e  ad 70 02   lda $0270

$9ca1  20 ca 9c   jsr $9cca

$9ca4  ad 71 02   lda $0271

$9ca7  20 ca 9c   jsr $9cca

$9caa  20 68 b6   jsr $b668

$9cad  a6 50      ldx $50

$9caf  a5 4d      lda $4d

$9cb1  9d 10 01   sta $0110,x

$9cb4  8d 70 02   sta $0270

$9cb7  a5 4e      lda $4e

$9cb9  9d 09 01   sta $0109,x

$9cbc  8d 71 02   sta $0271

$9cbf  a9 ff      lda #$ff

$9cc1  9d 02 01   sta $0102,x

$9cc4  20 81 a5   jsr $a581

$9cc7  4c 7c 9d   jmp $9d7c

$9cca  48         pha

$9ccb  a6 50      ldx $50

$9ccd  bd 65 02   lda $0265,x

$9cd0  4c bd 8e   jmp $8ebd

$9cd3  90 06      bcc $9cdb

$9cd5  a6 50      ldx $50

$9cd7  15 f9      ora $f9,x

$9cd9  d0 06      bne $9ce1

$9cdb  a6 50      ldx $50

$9cdd  49 ff      eor #$ff

$9cdf  35 f9      and $f9,x

$9ce1  95 f9      sta $f9,x

$9ce3  60         rts

$9ce4  a6 50      ldx $50

$9ce6  35 f9      and $f9,x

$9ce8  60         rts

$9ce9  20 11 9f   jsr $9f11

$9cec  aa         tax

$9ced  bd 72 02   lda $0272,x

$9cf0  29 fe      and #$fe

$9cf2  c9 90      cmp #$90

$9cf4  60         rts

$9cf5  a2 00      ldx #$00

$9cf7  86 42      stx $42

$9cf9  b5 a8      lda $a8,x

$9cfb  c9 ff      cmp #$ff

$9cfd  d0 08      bne $9d07

$9cff  a6 42      ldx $42

$9d01  e8         inx

$9d02  e0 10      cpx #$10

$9d04  90 f1      bcc $9cf7

$9d06  60         rts

$9d07  86 42      stx $42

$9d09  29 3f      and #$3f

$9d0b  a8         tay

$9d0c  b9 f9 00   lda $00f9,y

$9d0f  29 01      and #$01

$9d11  85 41      sta $41

$9d13  ae 6d 02   ldx $026d

$9d16  b5 ef      lda $ef,x

$9d18  29 01      and #$01

$9d1a  c5 41      cmp $41

$9d1c  d0 e1      bne $9cff

$9d1e  b9 7d 02   lda $027d,y

$9d21  d5 e5      cmp $e5,x

$9d23  d0 da      bne $9cff

$9d25  b9 84 02   lda $0284,y

$9d28  d5 ea      cmp $ea,x

$9d2a  d0 d3      bne $9cff

$9d2c  18         clc

$9d2d  60         rts

$9d2e  20 1c 9f   jsr $9f1c

$9d31  50 06      bvc $9d39

$9d33  20 9a 9d   jsr $9d9a

$9d36  20 ed 94   jsr $94ed

$9d39  60         rts

$9d3a  20 69 9d   jsr $9d69

$9d3d  a5 4d      lda $4d

$9d3f  91 64      sta ($64),y

$9d41  c8         iny

$9d42  a5 4e      lda $4e

$9d44  91 64      sta ($64),y

$9d46  4c 8d a0   jmp $a08d

$9d49  20 69 9d   jsr $9d69

$9d4c  b1 64      lda ($64),y

$9d4e  85 4d      sta $4d

$9d50  c8         iny

$9d51  b1 64      lda ($64),y

$9d53  85 4e      sta $4e

$9d55  60         rts

$9d56  20 69 9d   jsr $9d69

$9d59  a9 00      lda #$00

$9d5b  91 64      sta ($64),y

$9d5d  c8         iny

$9d5e  a6 50      ldx $50

$9d60  bd 57 02   lda $0257,x

$9d63  aa         tax

$9d64  ca         dex

$9d65  8a         txa

$9d66  91 64      sta ($64),y

$9d68  60         rts

$9d69  20 11 9f   jsr $9f11

$9d6c  0a         asl a

$9d6d  aa         tax

$9d6e  b5 bc      lda $bc,x

$9d70  85 65      sta $65

$9d72  a9 00      lda #$00

$9d74  85 64      sta $64

$9d76  a0 00      ldy #$00

$9d78  60         rts

$9d79  20 27 90   jsr $9027

$9d7c  20 11 9f   jsr $9f11

$9d7f  85 6c      sta $6c

$9d81  0a         asl a

$9d82  a8         tay

$9d83  b9 0b 00   lda $000b,y

$9d86  85 4d      sta $4d

$9d88  b9 0c 00   lda $000c,y

$9d8b  85 4e      sta $4e

$9d8d  60         rts

$9d8e  a9 90      lda #$90

$9d90  85 28      sta $28

$9d92  d0 24      bne $9db8

$9d94  a9 80      lda #$80

$9d96  85 28      sta $28

$9d98  d0 1e      bne $9db8

$9d9a  a9 90      lda #$90

$9d9c  85 28      sta $28

$9d9e  d0 24      bne $9dc4

$9da0  a9 80      lda #$80

$9da2  85 28      sta $28

$9da4  d0 1e      bne $9dc4

$9da6  a9 90      lda #$90

$9da8  85 28      sta $28

$9daa  d0 02      bne $9dae

$9dac  a9 80      lda #$80

$9dae  85 28      sta $28

$9db0  a6 50      ldx $50

$9db2  bd 65 02   lda $0265,x

$9db5  aa         tax

$9db6  10 13      bpl $9dcb

$9db8  20 85 95   jsr $9585

$9dbb  20 11 9f   jsr $9f11

$9dbe  aa         tax

$9dbf  a9 00      lda #$00

$9dc1  9d 72 02   sta $0272,x

$9dc4  20 9c a0   jsr $a09c

$9dc7  20 11 9f   jsr $9f11

$9dca  aa         tax

$9dcb  4c 71 94   jmp $9471

$9dce  a9 00      lda #$00

$9dd0  20 22 94   jsr $9422

$9dd3  20 71 90   jsr $9071

$9dd6  85 4d      sta $4d

$9dd8  20 71 90   jsr $9071

$9ddb  85 4e      sta $4e

$9ddd  60         rts

$9dde  48         pha

$9ddf  a9 00      lda #$00

$9de1  85 40      sta $40

$9de3  85 42      sta $42

$9de5  b9 f1 01   lda $01f1,y

$9de8  85 41      sta $41

$9dea  bd f1 01   lda $01f1,x

$9ded  85 43      sta $43

$9def  68         pla

$9df0  a8         tay

$9df1  88         dey

$9df2  b1 40      lda ($40),y

$9df4  91 42      sta ($42),y

$9df6  88         dey

$9df7  10 f9      bpl $9df2

$9df9  60         rts

$9dfa  a8         tay

$9dfb  b9 f1 01   lda $01f1,y

$9dfe  85 41      sta $41

$9e00  a9 00      lda #$00

$9e02  85 40      sta $40

$9e04  a8         tay

$9e05  91 40      sta ($40),y

$9e07  c8         iny

$9e08  d0 fb      bne $9e05

$9e0a  60         rts

$9e0b  a9 00      lda #$00

$9e0d  20 15 9e   jsr $9e15

$9e10  a0 02      ldy #$02

$9e12  b1 64      lda ($64),y

$9e14  60         rts

$9e15  85 64      sta $64

$9e17  a6 50      ldx $50

$9e19  bd 65 02   lda $0265,x

$9e1c  aa         tax

$9e1d  bd f1 01   lda $01f1,x

$9e20  85 65      sta $65

$9e22  60         rts

$9e23  48         pha

$9e24  20 15 9e   jsr $9e15

$9e27  48         pha

$9e28  8a         txa

$9e29  0a         asl a

$9e2a  aa         tax

$9e2b  68         pla

$9e2c  95 bc      sta $bc,x

$9e2e  68         pla

$9e2f  95 bb      sta $bb,x

$9e31  60         rts

$9e32  20 d3 9e   jsr $9ed3

$9e35  30 0f      bmi $9e46

$9e37  50 14      bvc $9e4d

$9e39  a6 50      ldx $50

$9e3b  bd 65 02   lda $0265,x

$9e3e  20 56 9e   jsr $9e56

$9e41  20 d3 9e   jsr $9ed3

$9e44  10 07      bpl $9e4d

$9e46  20 5c a1   jsr $a15c

$9e49  2c bf db   bit $dbbf

$9e4c  60         rts

$9e4d  a5 6a      lda $6a

$9e4f  20 23 9e   jsr $9e23

$9e52  2c be db   bit $dbbe

$9e55  60         rts

$9e56  85 6c      sta $6c

$9e58  a9 80      lda #$80

$9e5a  d0 04      bne $9e60

$9e5c  85 6c      sta $6c

$9e5e  a9 90      lda #$90

$9e60  85 28      sta $28

$9e62  b1 64      lda ($64),y

$9e64  85 4d      sta $4d

$9e66  c8         iny

$9e67  b1 64      lda ($64),y

$9e69  85 4e      sta $4e

$9e6b  a5 6c      lda $6c

$9e6d  20 88 95   jsr $9588

$9e70  a6 6c      ldx $6c

$9e72  4c e8 94   jmp $94e8

$9e75  a6 50      ldx $50

$9e77  bd 65 02   lda $0265,x

$9e7a  4c 45 94   jmp $9445

$9e7d  a9 78      lda #$78

$9e7f  20 8d 9e   jsr $9e8d

$9e82  ca         dex

$9e83  10 f8      bpl $9e7d

$9e85  a5 43      lda $43

$9e87  4a         lsr a

$9e88  20 8d 9e   jsr $9e8d

$9e8b  a5 44      lda $44

$9e8d  18         clc

$9e8e  65 41      adc $41

$9e90  85 41      sta $41

$9e92  90 02      bcc $9e96

$9e94  e6 42      inc $42

$9e96  60         rts

$9e97  20 38 8d   jsr $8d38

$9e9a  20 c3 9e   jsr $9ec3

$9e9d  a4 58      ldy $58

$9e9f  88         dey

$9ea0  30 0a      bmi $9eac

$9ea2  a2 02      ldx #$02

$9ea4  a9 d6      lda #$d6

$9ea6  20 cc 9e   jsr $9ecc

$9ea9  4c 9f 9e   jmp $9e9f

$9eac  a4 44      ldy $44

$9eae  88         dey

$9eaf  30 0a      bmi $9ebb

$9eb1  a2 00      ldx #$00

$9eb3  a9 79      lda #$79

$9eb5  20 cc 9e   jsr $9ecc

$9eb8  4c ae 9e   jmp $9eae

$9ebb  a5 43      lda $43

$9ebd  4a         lsr a

$9ebe  a2 00      ldx #$00

$9ec0  4c cc 9e   jmp $9ecc

$9ec3  a2 00      ldx #$00

$9ec5  86 60      stx $60

$9ec7  86 61      stx $61

$9ec9  86 62      stx $62

$9ecb  60         rts

$9ecc  86 61      stx $61

$9ece  85 60      sta $60

$9ed0  4c 4c 8d   jmp $8d4c

$9ed3  20 6e a5   jsr $a56e

$9ed6  d0 0c      bne $9ee4

$9ed8  ad 00 01   lda $0100

$9edb  20 c0 a5   jsr $a5c0

$9ede  f0 04      beq $9ee4

$9ee0  2c c1 db   bit $dbc1

$9ee3  60         rts

$9ee4  20 0b 9e   jsr $9e0b

$9ee7  c5 69      cmp $69

$9ee9  d0 0e      bne $9ef9

$9eeb  a4 6a      ldy $6a

$9eed  b1 64      lda ($64),y

$9eef  f0 04      beq $9ef5

$9ef1  2c be db   bit $dbbe

$9ef4  60         rts

$9ef5  2c c0 db   bit $dbc0

$9ef8  60         rts

$9ef9  a5 69      lda $69

$9efb  c9 06      cmp #$06

$9efd  b0 0a      bcs $9f09

$9eff  0a         asl a

$9f00  a8         tay

$9f01  a9 04      lda #$04

$9f03  85 64      sta $64

$9f05  b1 64      lda ($64),y

$9f07  d0 04      bne $9f0d

$9f09  2c c1 db   bit $dbc1

$9f0c  60         rts

$9f0d  2c bf db   bit $dbbf

$9f10  60         rts

$9f11  a6 50      ldx $50

$9f13  b5 d1      lda $d1,x

$9f15  10 02      bpl $9f19

$9f17  b5 d8      lda $d8,x

$9f19  29 bf      and #$bf

$9f1b  60         rts

$9f1c  a6 50      ldx $50

$9f1e  86 74      stx $74

$9f20  b5 d1      lda $d1,x

$9f22  10 08      bpl $9f2c

$9f24  8a         txa

$9f25  18         clc

$9f26  69 07      adc #$07

$9f28  85 74      sta $74

$9f2a  b5 d8      lda $d8,x

$9f2c  85 41      sta $41

$9f2e  29 1f      and #$1f

$9f30  24 41      bit $41

$9f32  60         rts

$9f33  a6 50      ldx $50

$9f35  b5 d1      lda $d1,x

$9f37  30 02      bmi $9f3b

$9f39  b5 d8      lda $d8,x

$9f3b  c9 ff      cmp #$ff

$9f3d  60         rts

$9f3e  a6 50      ldx $50

$9f40  09 80      ora #$80

$9f42  b4 d1      ldy $d1,x

$9f44  10 03      bpl $9f49

$9f46  95 d1      sta $d1,x

$9f48  60         rts

$9f49  95 d8      sta $d8,x

$9f4b  60         rts

$9f4c  a9 20      lda #$20

$9f4e  20 db 9c   jsr $9cdb

$9f51  a9 80      lda #$80

$9f53  20 e4 9c   jsr $9ce4

$9f56  d0 46      bne $9f9e

$9f58  a6 50      ldx $50

$9f5a  fe 49 02   inc $0249,x

$9f5d  d0 03      bne $9f62

$9f5f  fe 50 02   inc $0250,x

$9f62  a6 50      ldx $50

$9f64  bd 57 02   lda $0257,x

$9f67  f0 30      beq $9f99

$9f69  20 42 94   jsr $9442

$9f6c  a6 50      ldx $50

$9f6e  dd 57 02   cmp $0257,x

$9f71  90 03      bcc $9f76

$9f73  20 bf 9f   jsr $9fbf

$9f76  a6 50      ldx $50

$9f78  bd 57 02   lda $0257,x

$9f7b  20 22 94   jsr $9422

$9f7e  a1 bb      lda ($bb,x)

$9f80  85 54      sta $54

$9f82  a9 20      lda #$20

$9f84  20 db 9c   jsr $9cdb

$9f87  20 bc a2   jsr $a2bc

$9f8a  48         pha

$9f8b  90 29      bcc $9fb6

$9f8d  a9 00      lda #$00

$9f8f  20 50 94   jsr $9450

$9f92  d0 22      bne $9fb6

$9f94  68         pla

$9f95  c9 02      cmp #$02

$9f97  f0 12      beq $9fab

$9f99  a9 80      lda #$80

$9f9b  20 d5 9c   jsr $9cd5

$9f9e  20 69 90   jsr $9069

$9fa1  b5 bb      lda $bb,x

$9fa3  99 42 02   sta $0242,y

$9fa6  a9 0d      lda #$0d

$9fa8  85 54      sta $54

$9faa  60         rts

$9fab  20 b7 9f   jsr $9fb7

$9fae  a6 50      ldx $50

$9fb0  a9 00      lda #$00

$9fb2  9d 57 02   sta $0257,x

$9fb5  60         rts

$9fb6  68         pla

$9fb7  a6 50      ldx $50

$9fb9  9d 57 02   sta $0257,x

$9fbc  4c fd a0   jmp $a0fd

$9fbf  20 ce 9d   jsr $9dce

$9fc2  20 1c 9f   jsr $9f1c

$9fc5  50 16      bvc $9fdd

$9fc7  20 9a 9d   jsr $9d9a

$9fca  20 7d 8d   jsr $8d7d

$9fcd  a9 02      lda #$02

$9fcf  20 22 94   jsr $9422

$9fd2  20 e9 9c   jsr $9ce9

$9fd5  d0 24      bne $9ffb

$9fd7  20 94 9d   jsr $9d94

$9fda  4c ed 94   jmp $94ed

$9fdd  20 7d 8d   jsr $8d7d

$9fe0  20 e9 9c   jsr $9ce9

$9fe3  d0 06      bne $9feb

$9fe5  20 94 9d   jsr $9d94

$9fe8  20 ed 94   jsr $94ed

$9feb  20 ce 9d   jsr $9dce

$9fee  a5 4d      lda $4d

$9ff0  f0 09      beq $9ffb

$9ff2  20 7d 8d   jsr $8d7d

$9ff5  20 94 9d   jsr $9d94

$9ff8  4c 7d 8d   jmp $8d7d

$9ffb  60         rts

$9ffc  20 8d a0   jsr $a08d

$9fff  20 11 9f   jsr $9f11

$a002  0a         asl a

$a003  aa         tax

$a004  a5 54      lda $54

$a006  81 bb      sta ($bb,x)

$a008  b4 bb      ldy $bb,x

$a00a  c8         iny

$a00b  d0 09      bne $a016

$a00d  a4 50      ldy $50

$a00f  b9 57 02   lda $0257,y

$a012  f0 0a      beq $a01e

$a014  a0 02      ldy #$02

$a016  98         tya

$a017  a4 50      ldy $50

$a019  d9 57 02   cmp $0257,y

$a01c  d0 05      bne $a023

$a01e  a9 20      lda #$20

$a020  4c d5 9c   jmp $9cd5

$a023  f6 bb      inc $bb,x

$a025  d0 0b      bne $a032

$a027  ad 01 01   lda $0101

$a02a  09 10      ora #$10

$a02c  8d 01 01   sta $0101

$a02f  4c bf 9f   jmp $9fbf

$a032  60         rts

$a033  a9 a0      lda #$a0

$a035  20 e4 9c   jsr $9ce4

$a038  d0 27      bne $a061

$a03a  a5 54      lda $54

$a03c  20 fc 9f   jsr $9ffc

$a03f  a5 51      lda $51

$a041  f0 0d      beq $a050

$a043  60         rts

$a044  a9 20      lda #$20

$a046  20 e4 9c   jsr $9ce4

$a049  f0 05      beq $a050

$a04b  a9 51      lda #$51

$a04d  8d ab 02   sta $02ab

$a050  20 7b a0   jsr $a07b

$a053  20 e1 a0   jsr $a0e1

$a056  ad ab 02   lda $02ab

$a059  f0 03      beq $a05e

$a05b  4c 7c 80   jmp $807c

$a05e  4c 62 a8   jmp $a862

$a061  29 80      and #$80

$a063  d0 05      bne $a06a

$a065  a5 51      lda $51

$a067  f0 db      beq $a044

$a069  60         rts

$a06a  a5 54      lda $54

$a06c  48         pha

$a06d  20 d6 a2   jsr $a2d6

$a070  68         pla

$a071  85 54      sta $54

$a073  a9 80      lda #$80

$a075  20 db 9c   jsr $9cdb

$a078  4c 3a a0   jmp $a03a

$a07b  a9 20      lda #$20

$a07d  20 e4 9c   jsr $9ce4

$a080  d0 0a      bne $a08c

$a082  a9 00      lda #$00

$a084  85 54      sta $54

$a086  20 fc 9f   jsr $9ffc

$a089  4c 7b a0   jmp $a07b

$a08c  60         rts

$a08d  a9 40      lda #$40

$a08f  20 d5 9c   jsr $9cd5

$a092  20 1c 9f   jsr $9f1c

$a095  09 40      ora #$40

$a097  a6 74      ldx $74

$a099  95 d1      sta $d1,x

$a09b  60         rts

$a09c  20 1c 9f   jsr $9f1c

$a09f  29 bf      and #$bf

$a0a1  a6 74      ldx $74

$a0a3  95 d1      sta $d1,x

$a0a5  60         rts

$a0a6  a9 80      lda #$80

$a0a8  20 e4 9c   jsr $9ce4

$a0ab  d0 3f      bne $a0ec

$a0ad  20 69 90   jsr $9069

$a0b0  b5 bb      lda $bb,x

$a0b2  d9 42 02   cmp $0242,y

$a0b5  f0 2a      beq $a0e1

$a0b7  f6 bb      inc $bb,x

$a0b9  d0 0e      bne $a0c9

$a0bb  ad 01 01   lda $0101

$a0be  09 10      ora #$10

$a0c0  8d 01 01   sta $0101

$a0c3  20 bf 9f   jsr $9fbf

$a0c6  20 69 90   jsr $9069

$a0c9  a1 bb      lda ($bb,x)

$a0cb  99 3b 02   sta $023b,y

$a0ce  a9 89      lda #$89

$a0d0  99 34 02   sta $0234,y

$a0d3  b5 bb      lda $bb,x

$a0d5  d9 42 02   cmp $0242,y

$a0d8  f0 01      beq $a0db

$a0da  60         rts

$a0db  a9 81      lda #$81

$a0dd  99 34 02   sta $0234,y

$a0e0  60         rts

$a0e1  20 4c 9f   jsr $9f4c

$a0e4  20 69 90   jsr $9069

$a0e7  a5 54      lda $54

$a0e9  4c cb a0   jmp $a0cb

$a0ec  a6 50      ldx $50

$a0ee  a9 0d      lda #$0d

$a0f0  9d 3b 02   sta $023b,x

$a0f3  a9 81      lda #$81

$a0f5  9d 34 02   sta $0234,x

$a0f8  a9 50      lda #$50

$a0fa  20 7c 80   jsr $807c

$a0fd  a6 50      ldx $50

$a0ff  bd 57 02   lda $0257,x

$a102  85 56      sta $56

$a104  c6 56      dec $56

$a106  c9 02      cmp #$02

$a108  d0 04      bne $a10e

$a10a  a9 ff      lda #$ff

$a10c  85 56      sta $56

$a10e  bd 5e 02   lda $025e,x

$a111  85 57      sta $57

$a113  20 42 94   jsr $9442

$a116  a6 50      ldx $50

$a118  c5 56      cmp $56

$a11a  90 19      bcc $a135

$a11c  f0 17      beq $a135

$a11e  20 7d 8d   jsr $8d7d

$a121  20 43 a1   jsr $a143

$a124  90 08      bcc $a12e

$a126  a6 50      ldx $50

$a128  9d 42 02   sta $0242,x

$a12b  4c 7d 8d   jmp $8d7d

$a12e  20 7d 8d   jsr $8d7d

$a131  a9 ff      lda #$ff

$a133  85 56      sta $56

$a135  20 43 a1   jsr $a143

$a138  b0 03      bcs $a13d

$a13a  20 42 94   jsr $9442

$a13d  a6 50      ldx $50

$a13f  9d 42 02   sta $0242,x

$a142  60         rts

$a143  20 69 9d   jsr $9d69

$a146  a4 56      ldy $56

$a148  b1 64      lda ($64),y

$a14a  d0 0d      bne $a159

$a14c  88         dey

$a14d  c0 02      cpy #$02

$a14f  90 04      bcc $a155

$a151  c6 57      dec $57

$a153  d0 f3      bne $a148

$a155  c6 57      dec $57

$a157  18         clc

$a158  60         rts

$a159  98         tya

$a15a  38         sec

$a15b  60         rts

$a15c  20 6e a5   jsr $a56e

$a15f  d0 03      bne $a164

$a161  20 a9 a5   jsr $a5a9

$a164  20 0b 9e   jsr $9e0b

$a167  85 69      sta $69

$a169  a9 04      lda #$04

$a16b  85 64      sta $64

$a16d  a0 0a      ldy #$0a

$a16f  d0 04      bne $a175

$a171  88         dey

$a172  88         dey

$a173  30 27      bmi $a19c

$a175  b1 64      lda ($64),y

$a177  f0 f8      beq $a171

$a179  98         tya

$a17a  4a         lsr a

$a17b  c5 69      cmp $69

$a17d  f0 0a      beq $a189

$a17f  85 69      sta $69

$a181  a6 50      ldx $50

$a183  bd 65 02   lda $0265,x

$a186  20 56 9e   jsr $9e56

$a189  a0 00      ldy #$00

$a18b  84 64      sty $64

$a18d  b1 64      lda ($64),y

$a18f  d0 0b      bne $a19c

$a191  c8         iny

$a192  b1 64      lda ($64),y

$a194  a8         tay

$a195  88         dey

$a196  84 6a      sty $6a

$a198  98         tya

$a199  4c 23 9e   jmp $9e23

$a19c  a9 67      lda #$67

$a19e  20 3f ff   jsr $ff3f

$a1a1  20 65 81   jsr $8165

$a1a4  ad 01 02   lda $0201

$a1a7  85 52      sta $52

$a1a9  20 27 90   jsr $9027

$a1ac  90 05      bcc $a1b3

$a1ae  a9 70      lda #$70

$a1b0  20 7c 80   jsr $807c

$a1b3  a9 a0      lda #$a0

$a1b5  20 db 9c   jsr $9cdb

$a1b8  20 5f 90   jsr $905f

$a1bb  f0 05      beq $a1c2

$a1bd  a9 64      lda #$64

$a1bf  20 7c 80   jsr $807c

$a1c2  ad 02 02   lda $0202

$a1c5  9d 49 02   sta $0249,x

$a1c8  ad 03 02   lda $0203

$a1cb  9d 50 02   sta $0250,x

$a1ce  a6 50      ldx $50

$a1d0  a9 89      lda #$89

$a1d2  9d 34 02   sta $0234,x

$a1d5  ad 04 02   lda $0204

$a1d8  f0 11      beq $a1eb

$a1da  38         sec

$a1db  e9 01      sbc #$01

$a1dd  f0 0c      beq $a1eb

$a1df  dd 5e 02   cmp $025e,x

$a1e2  90 07      bcc $a1eb

$a1e4  a9 51      lda #$51

$a1e6  8d ab 02   sta $02ab

$a1e9  a9 00      lda #$00

$a1eb  85 68      sta $68

$a1ed  20 89 8c   jsr $8c89

$a1f0  20 32 9e   jsr $9e32

$a1f3  50 08      bvc $a1fd

$a1f5  a9 80      lda #$80

$a1f7  20 d5 9c   jsr $9cd5

$a1fa  4c ec a0   jmp $a0ec

$a1fd  20 0d a2   jsr $a20d

$a200  a9 80      lda #$80

$a202  20 e4 9c   jsr $9ce4

$a205  f0 03      beq $a20a

$a207  4c ec a0   jmp $a0ec

$a20a  4c 4c 80   jmp $804c

$a20d  20 35 a2   jsr $a235

$a210  a5 6b      lda $6b

$a212  20 22 94   jsr $9422

$a215  a6 50      ldx $50

$a217  bd 5e 02   lda $025e,x

$a21a  38         sec

$a21b  e5 68      sbc $68

$a21d  b0 03      bcs $a222

$a21f  4c 9c a1   jmp $a19c

$a222  18         clc

$a223  65 6b      adc $6b

$a225  90 03      bcc $a22a

$a227  69 01      adc #$01

$a229  38         sec

$a22a  20 8a 9f   jsr $9f8a

$a22d  4c c6 a0   jmp $a0c6

$a230  a9 51      lda #$51

$a232  20 7c 80   jsr $807c

$a235  a5 64      lda $64

$a237  85 58      sta $58

$a239  a5 65      lda $65

$a23b  85 59      sta $59

$a23d  20 73 a2   jsr $a273

$a240  f0 22      beq $a264

$a242  20 2e 9d   jsr $9d2e

$a245  20 49 9d   jsr $9d49

$a248  a5 4d      lda $4d

$a24a  f0 19      beq $a265

$a24c  20 7d 8d   jsr $8d7d

$a24f  20 73 a2   jsr $a273

$a252  d0 11      bne $a265

$a254  20 49 9d   jsr $9d49

$a257  a5 4d      lda $4d

$a259  f0 09      beq $a264

$a25b  20 7d 8d   jsr $8d7d

$a25e  20 94 9d   jsr $9d94

$a261  4c 7d 8d   jmp $8d7d

$a264  60         rts

$a265  a0 00      ldy #$00

$a267  b1 58      lda ($58),y

$a269  85 4d      sta $4d

$a26b  c8         iny

$a26c  b1 58      lda ($58),y

$a26e  85 4e      sta $4e

$a270  4c ea 8f   jmp $8fea

$a273  20 7c 9d   jsr $9d7c

$a276  a0 00      ldy #$00

$a278  b1 58      lda ($58),y

$a27a  c5 4d      cmp $4d

$a27c  f0 01      beq $a27f

$a27e  60         rts

$a27f  c8         iny

$a280  b1 58      lda ($58),y

$a282  c5 4e      cmp $4e

$a284  d0 11      bne $a297

$a286  ad 01 01   lda $0101

$a289  29 10      and #$10

$a28b  f0 0a      beq $a297

$a28d  ad 01 01   lda $0101

$a290  29 ef      and #$ef

$a292  8d 01 01   sta $0101

$a295  49 10      eor #$10

$a297  60         rts

$a298  20 69 9d   jsr $9d69

$a29b  a0 02      ldy #$02

$a29d  a9 00      lda #$00

$a29f  91 64      sta ($64),y

$a2a1  c8         iny

$a2a2  d0 fb      bne $a29f

$a2a4  20 bc a2   jsr $a2bc

$a2a7  9d 57 02   sta $0257,x

$a2aa  a8         tay

$a2ab  a9 ff      lda #$ff

$a2ad  91 64      sta ($64),y

$a2af  20 bc a2   jsr $a2bc

$a2b2  90 f3      bcc $a2a7

$a2b4  d0 05      bne $a2bb

$a2b6  a9 00      lda #$00

$a2b8  9d 57 02   sta $0257,x

$a2bb  60         rts

$a2bc  a6 50      ldx $50

$a2be  bd 57 02   lda $0257,x

$a2c1  38         sec

$a2c2  f0 0e      beq $a2d2

$a2c4  18         clc

$a2c5  7d 5e 02   adc $025e,x

$a2c8  90 0b      bcc $a2d5

$a2ca  d0 06      bne $a2d2

$a2cc  a9 02      lda #$02

$a2ce  2c bd db   bit $dbbd

$a2d1  60         rts

$a2d2  69 01      adc #$01

$a2d4  38         sec

$a2d5  60         rts

$a2d6  20 38 a4   jsr $a438

$a2d9  20 89 8c   jsr $8c89

$a2dc  20 5b b6   jsr $b65b

$a2df  a4 50      ldy $50

$a2e1  be 5e 02   ldx $025e,y

$a2e4  ca         dex

$a2e5  8a         txa

$a2e6  18         clc

$a2e7  65 6b      adc $6b

$a2e9  90 0c      bcc $a2f7

$a2eb  e6 6a      inc $6a

$a2ed  e6 6a      inc $6a

$a2ef  d0 06      bne $a2f7

$a2f1  e6 69      inc $69

$a2f3  a9 10      lda #$10

$a2f5  85 6a      sta $6a

$a2f7  a5 56      lda $56

$a2f9  18         clc

$a2fa  69 02      adc #$02

$a2fc  20 23 9e   jsr $9e23

$a2ff  a5 69      lda $69

$a301  c9 06      cmp #$06

$a303  90 11      bcc $a316

$a305  20 6e a5   jsr $a56e

$a308  d0 07      bne $a311

$a30a  85 69      sta $69

$a30c  ee 00 01   inc $0100

$a30f  d0 05      bne $a316

$a311  a9 52      lda #$52

$a313  20 7c 80   jsr $807c

$a316  a5 6a      lda $6a

$a318  38         sec

$a319  e5 56      sbc $56

$a31b  b0 03      bcs $a320

$a31d  e9 0f      sbc #$0f

$a31f  18         clc

$a320  48         pha

$a321  20 6e a5   jsr $a56e

$a324  f0 1e      beq $a344

$a326  68         pla

$a327  85 43      sta $43

$a329  a5 69      lda $69

$a32b  e5 55      sbc $55

$a32d  85 44      sta $44

$a32f  a2 00      ldx #$00

$a331  86 41      stx $41

$a333  86 42      stx $42

$a335  aa         tax

$a336  20 82 9e   jsr $9e82

$a339  a5 42      lda $42

$a33b  d0 2f      bne $a36c

$a33d  a6 41      ldx $41

$a33f  ca         dex

$a340  d0 2a      bne $a36c

$a342  f0 26      beq $a36a

$a344  68         pla

$a345  85 43      sta $43

$a347  a5 69      lda $69

$a349  e5 55      sbc $55

$a34b  b0 04      bcs $a351

$a34d  e6 58      inc $58

$a34f  69 06      adc #$06

$a351  85 44      sta $44

$a353  ad 00 01   lda $0100

$a356  38         sec

$a357  e5 58      sbc $58

$a359  85 58      sta $58

$a35b  20 97 9e   jsr $9e97

$a35e  a5 5c      lda $5c

$a360  d0 0a      bne $a36c

$a362  a6 5b      ldx $5b

$a364  d0 01      bne $a367

$a366  60         rts

$a367  ca         dex

$a368  d0 02      bne $a36c

$a36a  e6 57      inc $57

$a36c  cd 8e 02   cmp $028e

$a36f  90 09      bcc $a37a

$a371  d0 9e      bne $a311

$a373  ad 8d 02   lda $028d

$a376  c5 41      cmp $41

$a378  90 97      bcc $a311

$a37a  a9 01      lda #$01

$a37c  20 50 94   jsr $9450

$a37f  18         clc

$a380  69 01      adc #$01

$a382  a6 50      ldx $50

$a384  9d 57 02   sta $0257,x

$a387  20 68 b6   jsr $b668

$a38a  20 3a 9d   jsr $9d3a

$a38d  a5 57      lda $57

$a38f  d0 15      bne $a3a6

$a391  20 9a 9d   jsr $9d9a

$a394  20 7d 8d   jsr $8d7d

$a397  20 85 95   jsr $9585

$a39a  20 68 b6   jsr $b668

$a39d  20 3a 9d   jsr $9d3a

$a3a0  20 98 a2   jsr $a298

$a3a3  4c b2 a3   jmp $a3b2

$a3a6  20 7d 8d   jsr $8d7d

$a3a9  20 85 95   jsr $9585

$a3ac  20 98 a2   jsr $a298

$a3af  20 56 9d   jsr $9d56

$a3b2  20 9a 9d   jsr $9d9a

$a3b5  20 49 9d   jsr $9d49

$a3b8  a5 4d      lda $4d

$a3ba  48         pha

$a3bb  a5 4e      lda $4e

$a3bd  48         pha

$a3be  20 7c 9d   jsr $9d7c

$a3c1  a5 4e      lda $4e

$a3c3  48         pha

$a3c4  a5 4d      lda $4d

$a3c6  48         pha

$a3c7  20 75 9e   jsr $9e75

$a3ca  aa         tax

$a3cb  d0 0a      bne $a3d7

$a3cd  20 59 a4   jsr $a459

$a3d0  a9 10      lda #$10

$a3d2  20 23 9e   jsr $9e23

$a3d5  e6 55      inc $55

$a3d7  68         pla

$a3d8  20 ca 9c   jsr $9cca

$a3db  68         pla

$a3dc  20 ca 9c   jsr $9cca

$a3df  68         pla

$a3e0  85 4e      sta $4e

$a3e2  68         pla

$a3e3  85 4d      sta $4d

$a3e5  f0 1b      beq $a402

$a3e7  20 6e a5   jsr $a56e

$a3ea  d0 07      bne $a3f3

$a3ec  a5 5a      lda $5a

$a3ee  cd 00 01   cmp $0100

$a3f1  90 a1      bcc $a394

$a3f3  a5 55      lda $55

$a3f5  c5 69      cmp $69

$a3f7  d0 9b      bne $a394

$a3f9  20 75 9e   jsr $9e75

$a3fc  c5 6a      cmp $6a

$a3fe  90 94      bcc $a394

$a400  f0 a4      beq $a3a6

$a402  20 75 9e   jsr $9e75

$a405  48         pha

$a406  a9 00      lda #$00

$a408  20 15 9e   jsr $9e15

$a40b  a9 00      lda #$00

$a40d  a8         tay

$a40e  91 64      sta ($64),y

$a410  c8         iny

$a411  68         pla

$a412  38         sec

$a413  e9 01      sbc #$01

$a415  91 64      sta ($64),y

$a417  20 a6 9d   jsr $9da6

$a41a  20 ed 94   jsr $94ed

$a41d  20 15 b5   jsr $b515

$a420  20 89 8c   jsr $8c89

$a423  20 7d 8d   jsr $8d7d

$a426  20 32 9e   jsr $9e32

$a429  70 03      bvs $a42e

$a42b  4c 0d a2   jmp $a20d

$a42e  a9 80      lda #$80

$a430  20 d5 9c   jsr $9cd5

$a433  a9 50      lda #$50

$a435  20 7c 80   jsr $807c

$a438  20 5c a1   jsr $a15c

$a43b  20 35 a2   jsr $a235

$a43e  20 6e a5   jsr $a56e

$a441  d0 07      bne $a44a

$a443  ad 00 01   lda $0100

$a446  85 5a      sta $5a

$a448  85 58      sta $58

$a44a  a5 6a      lda $6a

$a44c  85 56      sta $56

$a44e  a5 69      lda $69

$a450  85 55      sta $55

$a452  a9 00      lda #$00

$a454  85 57      sta $57

$a456  85 68      sta $68

$a458  60         rts

$a459  20 68 b6   jsr $b668

$a45c  20 7d 8d   jsr $8d7d

$a45f  20 2e 9d   jsr $9d2e

$a462  20 11 9f   jsr $9f11

$a465  48         pha

$a466  20 fa 9d   jsr $9dfa

$a469  a6 50      ldx $50

$a46b  bd 65 02   lda $0265,x

$a46e  a8         tay

$a46f  68         pla

$a470  aa         tax

$a471  20 6e a5   jsr $a56e

$a474  d0 03      bne $a479

$a476  4c 47 a5   jmp $a547

$a479  a9 10      lda #$10

$a47b  20 de 9d   jsr $9dde

$a47e  a9 00      lda #$00

$a480  20 15 9e   jsr $9e15

$a483  a0 02      ldy #$02

$a485  b1 64      lda ($64),y

$a487  48         pha

$a488  a9 00      lda #$00

$a48a  20 22 94   jsr $9422

$a48d  68         pla

$a48e  18         clc

$a48f  69 01      adc #$01

$a491  91 64      sta ($64),y

$a493  0a         asl a

$a494  69 04      adc #$04

$a496  85 58      sta $58

$a498  a8         tay

$a499  38         sec

$a49a  e9 02      sbc #$02

$a49c  85 59      sta $59

$a49e  a5 4d      lda $4d

$a4a0  85 56      sta $56

$a4a2  91 64      sta ($64),y

$a4a4  c8         iny

$a4a5  a5 4e      lda $4e

$a4a7  85 57      sta $57

$a4a9  91 64      sta ($64),y

$a4ab  a0 00      ldy #$00

$a4ad  98         tya

$a4ae  91 64      sta ($64),y

$a4b0  c8         iny

$a4b1  a9 11      lda #$11

$a4b3  91 64      sta ($64),y

$a4b5  a9 10      lda #$10

$a4b7  20 22 94   jsr $9422

$a4ba  20 8e 9d   jsr $9d8e

$a4bd  20 ed 94   jsr $94ed

$a4c0  a6 50      ldx $50

$a4c2  bd 65 02   lda $0265,x

$a4c5  48         pha

$a4c6  20 1c 9f   jsr $9f1c

$a4c9  a6 50      ldx $50

$a4cb  9d 65 02   sta $0265,x

$a4ce  68         pla

$a4cf  a6 74      ldx $74

$a4d1  95 d1      sta $d1,x

$a4d3  a9 00      lda #$00

$a4d5  20 22 94   jsr $9422

$a4d8  a0 00      ldy #$00

$a4da  a5 4d      lda $4d

$a4dc  91 64      sta ($64),y

$a4de  c8         iny

$a4df  a5 4e      lda $4e

$a4e1  91 64      sta ($64),y

$a4e3  20 6e a5   jsr $a56e

$a4e6  d0 41      bne $a529

$a4e8  a5 55      lda $55

$a4ea  c9 ff      cmp #$ff

$a4ec  d0 3b      bne $a529

$a4ee  a5 4e      lda $4e

$a4f0  48         pha

$a4f1  a5 4d      lda $4d

$a4f3  48         pha

$a4f4  20 9a 9d   jsr $9d9a

$a4f7  20 ed 94   jsr $94ed

$a4fa  20 7d 8d   jsr $8d7d

$a4fd  20 7e a5   jsr $a57e

$a500  e6 5a      inc $5a

$a502  a5 5a      lda $5a

$a504  0a         asl a

$a505  18         clc

$a506  69 03      adc #$03

$a508  20 23 9e   jsr $9e23

$a50b  68         pla

$a50c  20 ca 9c   jsr $9cca

$a50f  68         pla

$a510  20 ca 9c   jsr $9cca

$a513  20 81 a5   jsr $a581

$a516  a5 5a      lda $5a

$a518  48         pha

$a519  4c cc a5   jmp $a5cc

$a51c  20 11 9f   jsr $9f11

$a51f  a6 50      ldx $50

$a521  20 56 9e   jsr $9e56

$a524  a9 00      lda #$00

$a526  20 22 94   jsr $9422

$a529  c6 59      dec $59

$a52b  c6 59      dec $59

$a52d  a4 58      ldy $58

$a52f  a5 56      lda $56

$a531  91 64      sta ($64),y

$a533  c8         iny

$a534  a5 57      lda $57

$a536  91 64      sta ($64),y

$a538  20 9a 9d   jsr $9d9a

$a53b  20 ed 94   jsr $94ed

$a53e  a4 59      ldy $59

$a540  c0 03      cpy #$03

$a542  b0 d8      bcs $a51c

$a544  4c 7d 8d   jmp $8d7d

$a547  a5 55      lda $55

$a549  c9 05      cmp #$05

$a54b  b0 03      bcs $a550

$a54d  4c 79 a4   jmp $a479

$a550  a9 ff      lda #$ff

$a552  85 55      sta $55

$a554  a9 00      lda #$00

$a556  20 22 94   jsr $9422

$a559  a0 02      ldy #$02

$a55b  91 64      sta ($64),y

$a55d  a6 50      ldx $50

$a55f  bd 5e 02   lda $025e,x

$a562  c8         iny

$a563  91 64      sta ($64),y

$a565  c8         iny

$a566  f0 03      beq $a56b

$a568  4c 9e a4   jmp $a49e

$a56b  4c 79 a4   jmp $a479

$a56e  ad 01 01   lda $0101

$a571  29 20      and #$20

$a573  60         rts

$a574  a6 50      ldx $50

$a576  a9 fe      lda #$fe

$a578  dd 02 01   cmp $0102,x

$a57b  d0 01      bne $a57e

$a57d  60         rts

$a57e  a9 80      lda #$80

$a580  2c a9 90   bit $90a9

$a583  48         pha

$a584  a6 50      ldx $50

$a586  bd 10 01   lda $0110,x

$a589  85 4d      sta $4d

$a58b  bd 09 01   lda $0109,x

$a58e  85 4e      sta $4e

$a590  a9 ff      lda #$ff

$a592  9d 02 01   sta $0102,x

$a595  bd 65 02   lda $0265,x

$a598  85 6c      sta $6c

$a59a  20 88 95   jsr $9588

$a59d  68         pla

$a59e  20 e4 94   jsr $94e4

$a5a1  a6 50      ldx $50

$a5a3  a9 fe      lda #$fe

$a5a5  9d 02 01   sta $0102,x

$a5a8  60         rts

$a5a9  a9 5a      lda #$5a

$a5ab  8d 00 01   sta $0100

$a5ae  20 c0 a5   jsr $a5c0

$a5b1  d0 01      bne $a5b4

$a5b3  60         rts

$a5b4  ce 00 01   dec $0100

$a5b7  ad 00 01   lda $0100

$a5ba  20 d2 a5   jsr $a5d2

$a5bd  d0 f5      bne $a5b4

$a5bf  60         rts

$a5c0  a6 50      ldx $50

$a5c2  dd 02 01   cmp $0102,x

$a5c5  d0 01      bne $a5c8

$a5c7  60         rts

$a5c8  48         pha

$a5c9  20 74 a5   jsr $a574

$a5cc  a9 03      lda #$03

$a5ce  20 15 9e   jsr $9e15

$a5d1  68         pla

$a5d2  aa         tax

$a5d3  0a         asl a

$a5d4  a8         tay

$a5d5  b1 64      lda ($64),y

$a5d7  d0 03      bne $a5dc

$a5d9  09 ff      ora #$ff

$a5db  60         rts

$a5dc  85 4d      sta $4d

$a5de  c8         iny

$a5df  b1 64      lda ($64),y

$a5e1  85 4e      sta $4e

$a5e3  8a         txa

$a5e4  48         pha

$a5e5  a9 ff      lda #$ff

$a5e7  a6 50      ldx $50

$a5e9  9d 02 01   sta $0102,x

$a5ec  bd 65 02   lda $0265,x

$a5ef  85 6c      sta $6c

$a5f1  20 88 95   jsr $9588

$a5f4  a9 80      lda #$80

$a5f6  20 e4 94   jsr $94e4

$a5f9  a6 50      ldx $50

$a5fb  68         pla

$a5fc  9d 02 01   sta $0102,x

$a5ff  a9 00      lda #$00

$a601  60         rts

;

$a602  .byte $00

;

$a603  .text " Ok"

;

$a606  .byte $02

;

$a607  .text " SELECTED PARTITIOn"

;

$a61a  .byte $20,$21,$22,$23,$24,$27

;

$a620  .text "rEAD"

;

$a624  .byte $89

$a625  .byte $52

$a626  .byte $83

;

$a627  .text " TOO LARGe"

;

$a631  .byte $50

$a632  .byte $8b

$a633  .byte $06

;

$a634  .text " PRESENt"

;

$a63c  .byte $51

;

$a63d  .text "oVERFLOW IN"

;

$a648  .byte $8b

$a649  .byte $25,$28

$a64b  .byte $8a,$89

$a64d  .byte $26

$a64e  .byte $8a

;

$a64f  .text " PROTECT On"

;

$a65a  .byte $29

$a65b  .byte $88

;

$a65c  .text " ID"

;

$a65f  .byte $85

$a660  .byte $30,$31,$32,$33,$34

;

$a665  .text "sYNTAX"

;

$a66b  .byte $89

$a66c  .byte $60

$a66d  .byte $8a,$03,84

$a670  .byte $63

$a671  .byte $83

;

$a672  .text " EXISTs"

;

$a679  .byte $64

$a67a  .byte $83

;

$a67b  .text " TYPE"

;

$a680  .byte $85

$a681  .byte $65

;

$a682  .text "nO BLOCk"

;

$a68a  .byte $66,$67

;

$a68c  .text "iLLEGAL TRACK OR SECTOr"

;

$a6a3  .byte $61

$a6a4  .byte $83,$06,$84

$a6a7  .byte $39,$62

$a6a9  .byte $83,$06,$87

$a6ac  .byte $01

$a6ad  .byte $83

;

$a6ae  .text "S SCRATCHEd"

;

$a6b9  .byte $70

;

$a6ba  .text "nO CHANNEl"

;

$a6c4  .byte $71

;

$a6c5  .text "dIR"

;

$a6c8  .byte $89

$a6c9  .byte $72

$a6ca  .byte $88

;

$a6cb  .text " FULl"

;

$a6d0  .byte $73

;

$a6d1  .text "cOPYRIGHT CBM DOS V10 1581"

;

$a6eb  .byte $74

;

$a6ec  .text "dRIVE"

;

$a6f1  .byte $06

;

$a6f2  .text " READy"

;

$a6f8  .byte $75

;

$a6f9  .text "fORMAT ERROr"

;

$a605  .byte $76

;

$a706  .byte "cONTROLLER ERROr"

;

$a716  .byte $77

;

$a717  .text "sELECTED PARTITI"

$a727  .text "ON ILLEGAl"

;

$a731  .byte $79

;

$a732  .text "sOFTWARE DAVID S"

$a742  .text "IRACUSA. HARDWAR"

$a752  .text "E GREG BERLIn"

;

$a75f  .byte $7a

;

$a760  .text "dEDICATED TO MY "

$a770  .text "WIFE LISa"

;

$a779  .byte $09

;

$a77a  .text "eRROr"

;

$a77f  .byte $0a

;

$a780  .text "wRITe"

;

$a785  .byte $03

;

$a786  .text "fILe"

;

$a78a  .byte $04;

;

$a78b  .text "oPEn"

;

$a78f  .byte $05

;

$a790  .text "mISMATCh"

;

$a798  .byte $06

;

$a799  .text "nOt"

;

$a79c  .byte $07

;

$a79d  .text "fOUNd"

;

$a7a2  .byte $08

;

$a7a3  .text "dISk"

;

$a7a7  .byte $0b

;

$a7a8  .text "rECORd"

;

$a7ad  48         pha

$a7af  86 6c      stx $6c

$a7b1  8a         txa

$a7b2  0a         asl a

$a7b3  aa         tax

$a7b4  b5 0b      lda $0b,x

$a7b6  85 4d      sta $4d

$a7b8  b5 0c      lda $0c,x

$a7ba  85 4e      sta $4e

$a7bc  68         pla

$a7bd  29 0f      and #$0f

$a7bf  f0 10      beq $a7d1

$a7c1  c9 03      cmp #$03

$a7c3  f0 08      beq $a7cd

$a7c5  c9 0e      cmp #$0e

$a7c7  f0 04      beq $a7cd

$a7c9  c9 0f      cmp #$0f

$a7cb  d0 06      bne $a7d3

$a7cd  a9 74      lda #$74

$a7cf  d0 08      bne $a7d9

$a7d1  a9 06      lda #$06

$a7d3  09 20      ora #$20

$a7d5  aa         tax

$a7d6  ca         dex

$a7d7  ca         dex

$a7d8  8a         txa

$a7d9  48         pha

$a7da  ad 2a 02   lda $022a

$a7dd  c9 00      cmp #$00

$a7df  d0 0f      bne $a7f0

$a7e1  a9 ff      lda #$ff

$a7e3  8d 2a 02   sta $022a

$a7e6  68         pla

$a7e7  20 6d a8   jsr $a86d

$a7ea  20 03 8f   jsr $8f03

$a7ed  4c f4 a7   jmp $a7f4

$a7f0  68         pla

$a7f1  20 6d a8   jsr $a86d

$a7f4  20 71 80   jsr $8071

$a7f7  a9 00      lda #$00

$a7f9  85 35      sta $35

$a7fb  20 f1 81   jsr $81f1

$a7fe  20 34 94   jsr $9434

$a801  a9 00      lda #$00

$a803  85 cd      sta $cd

$a805  a6 4f      ldx $4f

$a807  9a         txs

$a808  a5 53      lda $53

$a80a  29 0f      and #$0f

$a80c  85 52      sta $52

$a80e  c9 0f      cmp #$0f

$a810  f0 29      beq $a83b

$a812  78         sei

$a813  24 76      bit $76

$a815  70 17      bvs $a82e

$a817  30 0f      bmi $a828

$a819  a6 52      ldx $52

$a81b  b5 a8      lda $a8,x

$a81d  c9 ff      cmp #$ff

$a81f  f0 1a      beq $a83b

$a821  29 0f      and #$0f

$a823  85 50      sta $50

$a825  4c 31 a8   jmp $a831

$a828  20 27 90   jsr $9027

$a82b  4c 31 a8   jmp $a831

$a82e  20 42 90   jsr $9042

$a831  20 5f 90   jsr $905f

$a834  c9 04      cmp #$04

$a836  b0 03      bcs $a83b

$a838  20 9e 91   jsr $919e

$a83b  4c 00 ff   jmp $ff00

$a83e  08         php

$a83f  78         sei

$a840  aa         tax

$a841  a9 00      lda #$00

$a843  f8         sed

$a844  e0 00      cpx #$00

$a846  f0 07      beq $a84f

$a848  18         clc

$a849  69 01      adc #$01

$a84b  ca         dex

$a84c  4c 44 a8   jmp $a844

$a84f  d8         cld

$a850  28         plp

$a851  aa         tax

$a852  4a         lsr a

$a853  4a         lsr a

$a854  4a         lsr a

$a855  4a         lsr a

$a856  20 5a a8   jsr $a85a

$a859  8a         txa

$a85a  29 0f      and #$0f

$a85c  09 30      ora #$30

$a85e  91 cf      sta ($cf),y

$a860  c8         iny

$a861  60         rts

$a862  20 e5 81   jsr $81e5

$a865  a9 00      lda #$00

$a867  a0 00      ldy #$00

$a869  84 4d      sty $4d

$a86b  84 4e      sty $4e

$a86d  a0 00      ldy #$00

$a86f  a2 d0      ldx #$d0

$a871  86 cf      stx $cf

$a873  a2 02      ldx #$02

$a875  86 d0      stx $d0

$a877  20 51 a8   jsr $a851

$a87a  a9 2c      lda #$2c

$a87c  91 cf      sta ($cf),y

$a87e  c8         iny

$a87f  ad d0 02   lda $02d0

$a882  8d 41 02   sta $0241

$a885  8a         txa

$a886  20 ad a8   jsr $a8ad

$a889  a9 2c      lda #$2c

$a88b  91 cf      sta ($cf),y

$a88d  c8         iny

$a88e  a5 4d      lda $4d

$a890  20 3e a8   jsr $a83e

$a893  a9 2c      lda #$2c

$a895  91 cf      sta ($cf),y

$a897  c8         iny

$a898  a5 4e      lda $4e

$a89a  20 3e a8   jsr $a83e

$a89d  88         dey

$a89e  98         tya

$a89f  18         clc

$a8a0  69 d0      adc #$d0

$a8a2  8d 48 02   sta $0248

$a8a5  e6 cf      inc $cf

$a8a7  a9 88      lda #$88

$a8a9  8d 3a 02   sta $023a

$a8ac  60         rts

$a8ad  aa         tax

$a8ae  a5 55      lda $55

$a8b0  48         pha

$a8b1  a5 56      lda $56

$a8b3  48         pha

$a8b4  a9 02      lda #$02

$a8b6  85 55      sta $55

$a8b8  a9 a6      lda #$a6

$a8ba  85 56      sta $56

$a8bc  8a         txa

$a8bd  a2 00      ldx #$00

$a8bf  c1 55      cmp ($55,x)

$a8c1  f0 21      beq $a8e4

$a8c3  48         pha

$a8c4  20 1c a9   jsr $a91c

$a8c7  90 05      bcc $a8ce

$a8c9  20 1c a9   jsr $a91c

$a8cc  90 fb      bcc $a8c9

$a8ce  a5 56      lda $56

$a8d0  c9 a7      cmp #$a7

$a8d2  90 08      bcc $a8dc

$a8d4  d0 0a      bne $a8e0

$a8d6  a9 ae      lda #$ae

$a8d8  c5 55      cmp $55

$a8da  90 04      bcc $a8e0

$a8dc  68         pla

$a8dd  4c bf a8   jmp $a8bf

$a8e0  68         pla

$a8e1  4c f4 a8   jmp $a8f4

$a8e4  20 0e a9   jsr $a90e

$a8e7  90 fb      bcc $a8e4

$a8e9  20 fb a8   jsr $a8fb

$a8ec  20 0e a9   jsr $a90e

$a8ef  90 f8      bcc $a8e9

$a8f1  20 fb a8   jsr $a8fb

$a8f4  68         pla

$a8f5  85 56      sta $56

$a8f7  68         pla

$a8f8  85 55      sta $55

$a8fa  60         rts

$a8fb  c9 20      cmp #$20

$a8fd  b0 0b      bcs $a90a

$a8ff  aa         tax

$a900  a9 20      lda #$20

$a902  91 cf      sta ($cf),y

$a904  c8         iny

$a905  8a         txa

$a906  20 ad a8   jsr $a8ad

$a909  60         rts

$a90a  91 cf      sta ($cf),y

$a90c  c8         iny

$a90d  60         rts

$a90e  e6 55      inc $55

$a910  d0 02      bne $a914

$a912  e6 56      inc $56

$a914  a1 55      lda ($55,x)

$a916  0a         asl a

$a917  a1 55      lda ($55,x)

$a919  29 7f      and #$7f

$a91b  60         rts

$a91c  20 14 a9   jsr $a914

$a91f  e6 55      inc $55

$a921  d0 02      bne $a925

$a923  e6 56      inc $56

$a925  60         rts

;

$a926  .byte $26

;

$a927  .text "COPYRIGHT CBM 86"

;

$a937  .byte $0d

;

$a938  20 0f aa   jsr $aa0f

$a93b  08         php

$a93c  58         cli

$a93d  a0 11      ldy #$11

$a93f  84 29      sty $29

$a941  b9 26 a9   lda $a926,y

$a944  99 00 02   sta $0200,y

$a947  88         dey

$a948  10 f7      bpl $a941

$a94a  30 0a      bmi $a956

$a94c  a6 4f      ldx $4f

$a94e  9a         txs

$a94f  20 95 ba   jsr $ba95

$a952  78         sei

$a953  4c de af   jmp $afde

$a956  20 ae 84   jsr $84ae

$a959  a5 91      lda $91

$a95b  c9 02      cmp #$02

$a95d  d0 1d      bne $a97c

$a95f  a9 01      lda #$01

$a961  8d 91 02   sta $0291

$a964  20 fd 81   jsr $81fd

$a967  ad 2f 02   lda $022f

$a96a  48         pha

$a96b  a9 01      lda #$01

$a96d  8d 2f 02   sta $022f

$a970  a9 ff      lda #$ff

$a972  85 55      sta $55

$a974  20 b9 82   jsr $82b9

$a977  ad 97 02   lda $0297

$a97a  d0 05      bne $a981

$a97c  a9 39      lda #$39

$a97e  20 7c 80   jsr $807c

$a981  68         pla

$a982  8d 2f 02   sta $022f

$a985  ad 97 02   lda $0297

$a988  85 4d      sta $4d

$a98a  ad 9c 02   lda $029c

$a98d  85 4e      sta $4e

$a98f  a9 03      lda #$03

$a991  20 d1 93   jsr $93d1

$a994  a9 00      lda #$00

$a996  85 56      sta $56

$a998  20 f5 a9   jsr $a9f5

$a99b  85 57      sta $57

$a99d  20 07 aa   jsr $aa07

$a9a0  20 f5 a9   jsr $a9f5

$a9a3  85 58      sta $58

$a9a5  20 07 aa   jsr $aa07

$a9a8  a5 55      lda $55

$a9aa  f0 0a      beq $a9b6

$a9ac  a5 57      lda $57

$a9ae  48         pha

$a9af  a5 58      lda $58

$a9b1  48         pha

$a9b2  a9 00      lda #$00

$a9b4  85 55      sta $55

$a9b6  20 f5 a9   jsr $a9f5

$a9b9  85 59      sta $59

$a9bb  20 07 aa   jsr $aa07

$a9be  20 f5 a9   jsr $a9f5

$a9c1  a0 00      ldy #$00

$a9c3  91 57      sta ($57),y

$a9c5  20 07 aa   jsr $aa07

$a9c8  a5 57      lda $57

$a9ca  18         clc

$a9cb  69 01      adc #$01

$a9cd  85 57      sta $57

$a9cf  90 02      bcc $a9d3

$a9d1  e6 58      inc $58

$a9d3  c6 59      dec $59

$a9d5  d0 e7      bne $a9be

$a9d7  20 76 88   jsr $8876

$a9da  a5 54      lda $54

$a9dc  c5 56      cmp $56

$a9de  f0 08      beq $a9e8

$a9e0  20 7c 9d   jsr $9d7c

$a9e3  a9 50      lda #$50

$a9e5  20 3f ff   jsr $ff3f

$a9e8  a5 51      lda $51

$a9ea  d0 a8      bne $a994

$a9ec  68         pla

$a9ed  85 58      sta $58

$a9ef  68         pla

$a9f0  85 57      sta $57

$a9f2  6c 57 00   jmp ($0057)

$a9f5  20 76 88   jsr $8876

$a9f8  a5 51      lda $51

$a9fa  d0 08      bne $aa04

$a9fc  20 7c 9d   jsr $9d7c

$a9ff  a9 51      lda #$51

$aa01  20 3f ff   jsr $ff3f

$aa04  a5 54      lda $54

$aa06  60         rts

$aa07  18         clc

$aa08  65 56      adc $56

$aa0a  69 00      adc #$00

$aa0c  85 56      sta $56

$aa0e  60         rts

$aa0f  20 7c ba   jsr $ba7c

$aa12  a9 4c      lda #$4c

$aa14  8d ba 01   sta $01ba

$aa17  a9 a9      lda #$a9

$aa19  8d bb 01   sta $01bb

$aa1c  a9 4c      lda #$4c

$aa1e  8d ae 01   sta $01ae

$aa21  a9 a9      lda #$a9

$aa23  8d af 01   sta $01af

$aa26  60         rts

$aa27  ad 04 02   lda $0204

$aa2a  85 2e      sta $2e

$aa2c  60         rts

$aa2d  ad 04 02   lda $0204

$aa30  85 30      sta $30

$aa32  60         rts

$aa33  ad 04 02   lda $0204

$aa36  85 9d      sta $9d

$aa38  60         rts

$aa39  4c 1d ab   jmp $ab1d

$aa3c  78         sei

$aa3d  a6 29      ldx $29

$aa3f  e0 04      cpx #$04

$aa41  90 40      bcc $aa83

$aa43  ad 03 02   lda $0203

$aa46  c9 49      cmp #$49

$aa48  f0 e9      beq $aa33

$aa4a  ad 03 02   lda $0203

$aa4d  c9 42      cmp #$42

$aa4f  f0 37      beq $aa88

$aa51  c9 53      cmp #$53

$aa53  f0 d2      beq $aa27

$aa55  c9 52      cmp #$52

$aa57  f0 d4      beq $aa2d

$aa59  c9 54      cmp #$54

$aa5b  f0 dc      beq $aa39

$aa5d  c9 4d      cmp #$4d

$aa5f  f0 47      beq $aaa8

$aa61  c9 56      cmp #$56

$aa63  f0 35      beq $aa9a

$aa65  a8         tay

$aa66  c0 04      cpy #$04

$aa68  90 19      bcc $aa83

$aa6a  c0 1f      cpy #$1f

$aa6c  b0 15      bcs $aa83

$aa6e  a9 40      lda #$40

$aa70  85 78      sta $78

$aa72  a9 20      lda #$20

$aa74  85 77      sta $77

$aa76  98         tya

$aa77  18         clc

$aa78  65 78      adc $78

$aa7a  85 78      sta $78

$aa7c  98         tya

$aa7d  18         clc

$aa7e  65 77      adc $77

$aa80  85 77      sta $77

$aa82  60         rts

$aa83  a9 31      lda #$31

$aa85  4c 7c 80   jmp $807c

$aa88  a5 76      lda $76

$aa8a  29 f7      and #$f7

$aa8c  85 76      sta $76

$aa8e  20 09 ab   jsr $ab09

$aa91  4a         lsr a

$aa92  4a         lsr a

$aa93  4a         lsr a

$aa94  4a         lsr a

$aa95  05 76      ora $76

$aa97  85 76      sta $76

$aa99  60         rts

$aa9a  a5 8d      lda $8d

$aa9c  29 7f      and #$7f

$aa9e  85 8d      sta $8d

$aaa0  20 09 ab   jsr $ab09

$aaa3  05 8d      ora $8d

$aaa5  85 8d      sta $8d

$aaa7  60         rts

$aaa8  78         sei

$aaa9  a5 76      lda $76

$aaab  29 fb      and #$fb

$aaad  85 76      sta $76

$aaaf  a0 00      ldy #$00

$aab1  84 46      sty $46

$aab3  ad 05 02   lda $0205

$aab6  85 47      sta $47

$aab8  ad 04 02   lda $0204

$aabb  c9 57      cmp #$57

$aabd  f0 18      beq $aad7

$aabf  c9 52      cmp #$52

$aac1  d0 3d      bne $ab00

$aac3  20 d4 ac   jsr $acd4

$aac6  b1 46      lda ($46),y

$aac8  20 86 bf   jsr $bf86

$aacb  c8         iny

$aacc  d0 f8      bne $aac6

$aace  e6 47      inc $47

$aad0  ce 06 02   dec $0206

$aad3  d0 f1      bne $aac6

$aad5  f0 26      beq $aafd

$aad7  ad 01 40   lda $4001

$aada  49 08      eor #$08

$aadc  2c 0d 40   bit $400d

$aadf  8d 01 40   sta $4001

$aae2  a9 08      lda #$08

$aae4  2c 01 40   bit $4001

$aae7  30 1a      bmi $ab03

$aae9  2c 0d 40   bit $400d

$aaec  f0 f6      beq $aae4

$aaee  ad 0c 40   lda $400c

$aaf1  91 46      sta ($46),y

$aaf3  c8         iny

$aaf4  d0 e1      bne $aad7

$aaf6  e6 47      inc $47

$aaf8  ce 06 02   dec $0206

$aafb  d0 da      bne $aad7

$aafd  4c 4c 80   jmp $804c

$ab00  4c 83 aa   jmp $aa83

$ab03  20 15 ad   jsr $ad15

$ab06  4c e4 aa   jmp $aae4

$ab09  ad 04 02   lda $0204

$ab0c  c9 31      cmp #$31

$ab0e  f0 07      beq $ab17

$ab10  c9 30      cmp #$30

$ab12  f0 03      beq $ab17

$ab14  4c 83 aa   jmp $aa83

$ab17  29 01      and #$01

$ab19  18         clc

$ab1a  6a         ror a

$ab1b  6a         ror a

$ab1c  60         rts

$ab1d  08         php

$ab1e  78         sei

$ab1f  a5 02      lda $02

$ab21  48         pha

$ab22  a5 03      lda $03

$ab24  48         pha

$ab25  a5 04      lda $04

$ab27  48         pha

$ab28  a5 05      lda $05

$ab2a  48         pha

$ab2b  a5 06      lda $06

$ab2d  48         pha

$ab2e  a5 07      lda $07

$ab30  48         pha

$ab31  a5 08      lda $08

$ab33  48         pha

$ab34  a5 09      lda $09

$ab36  48         pha

$ab37  a5 0a      lda $0a

$ab39  48         pha

$ab3a  a9 ff      lda #$ff

$ab3c  85 07      sta $07

$ab3e  85 08      sta $08

$ab40  a9 00      lda #$00

$ab42  85 09      sta $09

$ab44  a9 80      lda #$80

$ab46  85 0a      sta $0a

$ab48  a0 02      ldy #$02

$ab4a  b1 09      lda ($09),y

$ab4c  85 03      sta $03

$ab4e  aa         tax

$ab4f  c8         iny

$ab50  b1 09      lda ($09),y

$ab52  85 02      sta $02

$ab54  8a         txa

$ab55  a2 10      ldx #$10

$ab57  85 04      sta $04

$ab59  18         clc

$ab5a  26 02      rol $02

$ab5c  26 03      rol $03

$ab5e  a9 00      lda #$00

$ab60  85 05      sta $05

$ab62  85 06      sta $06

$ab64  24 04      bit $04

$ab66  10 08      bpl $ab70

$ab68  a9 21      lda #$21

$ab6a  85 05      sta $05

$ab6c  a9 10      lda #$10

$ab6e  85 06      sta $06

$ab70  24 08      bit $08

$ab72  10 0c      bpl $ab80

$ab74  a5 05      lda $05

$ab76  49 21      eor #$21

$ab78  85 05      sta $05

$ab7a  a5 06      lda $06

$ab7c  49 10      eor #$10

$ab7e  85 06      sta $06

$ab80  18         clc

$ab81  26 07      rol $07

$ab83  26 08      rol $08

$ab85  a5 07      lda $07

$ab87  45 05      eor $05

$ab89  85 07      sta $07

$ab8b  a5 08      lda $08

$ab8d  45 06      eor $06

$ab8f  85 08      sta $08

$ab91  a5 03      lda $03

$ab93  ca         dex

$ab94  d0 c1      bne $ab57

$ab96  c8         iny

$ab97  d0 b1      bne $ab4a

$ab99  e6 0a      inc $0a

$ab9b  d0 ad      bne $ab4a

$ab9d  a4 07      ldy $07

$ab9f  a6 08      ldx $08

$aba1  68         pla

$aba2  85 0a      sta $0a

$aba4  68         pla

$aba5  85 09      sta $09

$aba7  68         pla

$aba8  85 08      sta $08

$abaa  68         pla

$abab  85 07      sta $07

$abad  68         pla

$abae  85 06      sta $06

$abb0  68         pla

$abb1  85 05      sta $05

$abb3  68         pla

$abb4  85 04      sta $04

$abb6  68         pla

$abb7  85 03      sta $03

$abb9  68         pla

$abba  85 02      sta $02

$abbc  cc 00 80   cpy $8000

$abbf  ea         nop ; nO rom crc eRROR (bne $abc8)

$abc0  ea         nop

$abc1  ec 01 80   cpx $8001

$abc4  ea         nop ; nO rom crc eRROR (bne $abc8)

$abc5  ea         nop

$abc6  28         plp

$abc7  60         rts

$abc8  a2 03      ldx #$03

$abca  86 40      stx $40

$abcc  4c f5 ae   jmp $aef5

$abcf  78         sei

$abd0  a5 9d      lda $9d

$abd2  85 9c      sta $9c

$abd4  a5 76      lda $76

$abd6  29 3e      and #$3e

$abd8  85 76      sta $76

$abda  a6 4f      ldx $4f

$abdc  9a         txs

$abdd  20 bb ac   jsr $acbb

$abe0  a9 80      lda #$80

$abe2  85 51      sta $51

$abe4  a5 76      lda $76

$abe6  09 02      ora #$02

$abe8  85 76      sta $76

$abea  20 03 ad   jsr $ad03

$abed  20 f1 ac   jsr $acf1

$abf0  ad 01 40   lda $4001

$abf3  29 ef      and #$ef

$abf5  8d 01 40   sta $4001

$abf8  ad 01 40   lda $4001

$abfb  10 5d      bpl $ac5a

$abfd  29 04      and #$04

$abff  d0 f7      bne $abf8

$ac01  20 42 ae   jsr $ae42

$ac04  c9 3f      cmp #$3f

$ac06  d0 09      bne $ac11

$ac08  a5 76      lda $76

$ac0a  29 9f      and #$9f

$ac0c  85 76      sta $76

$ac0e  4c 1b ac   jmp $ac1b

$ac11  c9 5f      cmp #$5f

$ac13  d0 09      bne $ac1e

$ac15  a5 76      lda $76

$ac17  29 5f      and #$5f

$ac19  85 76      sta $76

$ac1b  4c 96 ac   jmp $ac96

$ac1e  c5 78      cmp $78

$ac20  d0 0a      bne $ac2c

$ac22  a5 76      lda $76

$ac24  09 80      ora #$80

$ac26  29 bf      and #$bf

$ac28  85 76      sta $76

$ac2a  d0 29      bne $ac55

$ac2c  c5 77      cmp $77

$ac2e  d0 0a      bne $ac3a

$ac30  a5 76      lda $76

$ac32  09 40      ora #$40

$ac34  29 7f      and #$7f

$ac36  85 76      sta $76

$ac38  d0 1b      bne $ac55

$ac3a  aa         tax

$ac3b  29 60      and #$60

$ac3d  c9 60      cmp #$60

$ac3f  d0 50      bne $ac91

$ac41  8a         txa

$ac42  85 53      sta $53

$ac44  29 0f      and #$0f

$ac46  85 52      sta $52

$ac48  a5 53      lda $53

$ac4a  29 f0      and #$f0

$ac4c  c9 e0      cmp #$e0

$ac4e  d0 46      bne $ac96

$ac50  58         cli

$ac51  20 5c 99   jsr $995c

$ac54  78         sei

$ac55  2c 01 40   bit $4001

$ac58  30 a7      bmi $ac01

$ac5a  a5 76      lda $76

$ac5c  29 fd      and #$fd

$ac5e  85 76      sta $76

$ac60  ad 01 40   lda $4001

$ac63  09 10      ora #$10

$ac65  8d 01 40   sta $4001

$ac68  24 76      bit $76

$ac6a  50 0f      bvc $ac7b

$ac6c  a9 20      lda #$20

$ac6e  24 76      bit $76

$ac70  f0 03      beq $ac75

$ac72  20 9d ac   jsr $ac9d

$ac75  20 36 ff   jsr $ff36

$ac78  4c e4 ae   jmp $aee4

$ac7b  24 76      bit $76

$ac7d  10 0f      bpl $ac8e

$ac7f  20 e8 ac   jsr $ace8

$ac82  20 fa ac   jsr $acfa

$ac85  20 2f ad   jsr $ad2f

$ac88  20 33 ff   jsr $ff33

$ac8b  20 2f ad   jsr $ad2f

$ac8e  4c df ae   jmp $aedf

$ac91  a9 00      lda #$00

$ac93  8d 01 40   sta $4001

$ac96  2c 01 40   bit $4001

$ac99  10 bf      bpl $ac5a

$ac9b  30 f9      bmi $ac96

$ac9d  20 15 ad   jsr $ad15

$aca0  20 0c ad   jsr $ad0c

$aca3  29 04      and #$04

$aca5  d0 f6      bne $ac9d

$aca7  20 d4 ac   jsr $acd4

$acaa  a9 00      lda #$00

$acac  8d 0c 40   sta $400c

$acaf  a9 08      lda #$08

$acb1  2c 0d 40   bit $400d

$acb4  f0 fb      beq $acb1

$acb6  ea         nop

$acb7  ea         nop

$acb8  ea         nop

$acb9  ea         nop

$acba  ea         nop

$acbb  08         php

$acbc  78         sei

$acbd  ad 0e 40   lda $400e

$acc0  29 bf      and #$bf

$acc2  20 c7 db   jsr $dbc7

$acc5  ad 01 40   lda $4001

$acc8  29 df      and #$df

$acca  8d 01 40   sta $4001

$accd  28         plp

$acce  60         rts

$accf  ea         nop

$acd0  ea         nop

$acd1  ea         nop

$acd2  ea         nop

$acd3  ea         nop

$acd4  08         php

$acd5  78         sei

$acd6  ad 01 40   lda $4001

$acd9  09 20      ora #$20

$acdb  8d 01 40   sta $4001

$acde  ad 0e 40   lda $400e

$ace1  09 40      ora #$40

$ace3  20 e0 db   jsr $dbe0

$ace6  28         plp

$ace7  60         rts

$ace8  ad 01 40   lda $4001

$aceb  29 fd      and #$fd

$aced  8d 01 40   sta $4001

$acf0  60         rts

$acf1  ad 01 40   lda $4001

$acf4  09 02      ora #$02

$acf6  8d 01 40   sta $4001

$acf9  60         rts

$acfa  ad 01 40   lda $4001

$acfd  09 08      ora #$08

$acff  8d 01 40   sta $4001

$ad02  60         rts

$ad03  ad 01 40   lda $4001

$ad06  29 f7      and #$f7

$ad08  8d 01 40   sta $4001

$ad0b  60         rts

$ad0c  ad 01 40   lda $4001

$ad0f  cd 01 40   cmp $4001

$ad12  d0 f8      bne $ad0c

$ad14  60         rts

$ad15  a9 02      lda #$02

$ad17  24 76      bit $76

$ad19  f0 06      beq $ad21

$ad1b  ad 01 40   lda $4001

$ad1e  10 0c      bpl $ad2c

$ad20  60         rts

$ad21  ad 01 40   lda $4001

$ad24  10 fa      bpl $ad20

$ad26  2c 0d 40   bit $400d

$ad29  4c 30 ff   jmp $ff30

$ad2c  4c 5a ac   jmp $ac5a

$ad2f  8a         txa

$ad30  a2 0c      ldx #$0c

$ad32  d0 03      bne $ad37

$ad34  8a         txa

$ad35  a2 03      ldx #$03

$ad37  ca         dex

$ad38  d0 fd      bne $ad37

$ad3a  aa         tax

$ad3b  60         rts

$ad3c  ad 02 02   lda $0202

$ad3f  c9 2d      cmp #$2d

$ad41  f0 05      beq $ad48

$ad43  38         sec

$ad44  e9 2b      sbc #$2b

$ad46  d0 11      bne $ad59

$ad48  29 02      and #$02

$ad4a  0a         asl a

$ad4b  0a         asl a

$ad4c  0a         asl a

$ad4d  85 38      sta $38

$ad4f  78         sei

$ad50  a5 76      lda $76

$ad52  29 ef      and #$ef

$ad54  05 38      ora $38

$ad56  85 76      sta $76

$ad58  60         rts

$ad59  4c 06 ff   jmp $ff06

$ad5c  78         sei

$ad5d  20 27 90   jsr $9027

$ad60  b0 07      bcs $ad69

$ad62  a6 50      ldx $50

$ad64  bd 34 02   lda $0234,x

$ad67  30 01      bmi $ad6a

$ad69  60         rts

$ad6a  20 15 ad   jsr $ad15

$ad6d  20 0c ad   jsr $ad0c

$ad70  29 01      and #$01

$ad72  08         php

$ad73  20 03 ad   jsr $ad03

$ad76  28         plp

$ad77  f0 13      beq $ad8c

$ad79  20 15 ad   jsr $ad15

$ad7c  20 0c ad   jsr $ad0c

$ad7f  29 01      and #$01

$ad81  d0 f6      bne $ad79

$ad83  a6 50      ldx $50

$ad85  bd 34 02   lda $0234,x

$ad88  29 08      and #$08

$ad8a  d0 14      bne $ada0

$ad8c  20 15 ad   jsr $ad15

$ad8f  20 0c ad   jsr $ad0c

$ad92  29 01      and #$01

$ad94  d0 f6      bne $ad8c

$ad96  20 15 ad   jsr $ad15

$ad99  20 0c ad   jsr $ad0c

$ad9c  29 01      and #$01

$ad9e  f0 f6      beq $ad96

$ada0  20 fa ac   jsr $acfa

$ada3  20 15 ad   jsr $ad15

$ada6  20 0c ad   jsr $ad0c

$ada9  29 01      and #$01

$adab  d0 f3      bne $ada0

$adad  a9 20      lda #$20

$adaf  24 76      bit $76

$adb1  f0 34      beq $ade7

$adb3  ad 01 40   lda $4001

$adb6  09 20      ora #$20

$adb8  8d 01 40   sta $4001

$adbb  ad 0e 40   lda $400e

$adbe  09 40      ora #$40

$adc0  8d 0e 40   sta $400e

$adc3  2c 0d 40   bit $400d

$adc6  a6 50      ldx $50

$adc8  bd 3b 02   lda $023b,x

$adcb  8d 0c 40   sta $400c

$adce  a9 08      lda #$08

$add0  2c 0d 40   bit $400d

$add3  f0 fb      beq $add0

$add5  ad 0e 40   lda $400e

$add8  29 bf      and #$bf

$adda  8d 0e 40   sta $400e

$addd  ad 01 40   lda $4001

$ade0  29 df      and #$df

$ade2  8d 01 40   sta $4001

$ade5  d0 43      bne $ae2a

$ade7  a9 08      lda #$08

$ade9  85 66      sta $66

$adeb  20 0c ad   jsr $ad0c

$adee  29 01      and #$01

$adf0  d0 4d      bne $ae3f

$adf2  a6 50      ldx $50

$adf4  bd 3b 02   lda $023b,x

$adf7  6a         ror a

$adf8  9d 3b 02   sta $023b,x

$adfb  b0 05      bcs $ae02

$adfd  20 f1 ac   jsr $acf1

$ae00  d0 03      bne $ae05

$ae02  20 e8 ac   jsr $ace8

$ae05  20 34 ad   jsr $ad34

$ae08  a9 10      lda #$10

$ae0a  24 76      bit $76

$ae0c  d0 03      bne $ae11

$ae0e  20 2f ad   jsr $ad2f

$ae11  20 03 ad   jsr $ad03

$ae14  20 34 ad   jsr $ad34

$ae17  a9 10      lda #$10

$ae19  24 76      bit $76

$ae1b  d0 03      bne $ae20

$ae1d  20 2f ad   jsr $ad2f

$ae20  20 fa ac   jsr $acfa

$ae23  20 e8 ac   jsr $ace8

$ae26  c6 66      dec $66

$ae28  d0 c1      bne $adeb

$ae2a  20 15 ad   jsr $ad15

$ae2d  20 0c ad   jsr $ad0c

$ae30  29 01      and #$01

$ae32  f0 f6      beq $ae2a

$ae34  58         cli

$ae35  20 03 93   jsr $9303

$ae38  78         sei

$ae39  20 15 ad   jsr $ad15

$ae3c  4c 62 ad   jmp $ad62

$ae3f  4c d9 ae   jmp $aed9

$ae42  2c 0d 40   bit $400d

$ae45  a9 08      lda #$08

$ae47  85 66      sta $66

$ae49  20 15 ad   jsr $ad15

$ae4c  20 0c ad   jsr $ad0c

$ae4f  29 04      and #$04

$ae51  d0 f6      bne $ae49

$ae53  20 e8 ac   jsr $ace8

$ae56  a9 01      lda #$01

$ae58  2c 01 40   bit $4001

$ae5b  d0 fb      bne $ae58

$ae5d  a2 0a      ldx #$0a

$ae5f  20 15 ad   jsr $ad15

$ae62  ca         dex

$ae63  f0 09      beq $ae6e

$ae65  20 0c ad   jsr $ad0c

$ae68  29 04      and #$04

$ae6a  f0 f3      beq $ae5f

$ae6c  d0 19      bne $ae87

$ae6e  20 f1 ac   jsr $acf1

$ae71  a2 18      ldx #$18

$ae73  ca         dex

$ae74  d0 fd      bne $ae73

$ae76  20 e8 ac   jsr $ace8

$ae79  20 15 ad   jsr $ad15

$ae7c  20 0c ad   jsr $ad0c

$ae7f  29 04      and #$04

$ae81  f0 f6      beq $ae79

$ae83  a9 00      lda #$00

$ae85  85 51      sta $51

$ae87  ad 01 40   lda $4001

$ae8a  49 01      eor #$01

$ae8c  aa         tax

$ae8d  ad 0d 40   lda $400d

$ae90  29 08      and #$08

$ae92  f0 08      beq $ae9c

$ae94  ad 0c 40   lda $400c

$ae97  85 54      sta $54

$ae99  4c b2 ae   jmp $aeb2

$ae9c  8a         txa

$ae9d  4a         lsr a

$ae9e  29 02      and #$02

$aea0  d0 e5      bne $ae87

$aea2  66 54      ror $54

$aea4  20 15 ad   jsr $ad15

$aea7  20 0c ad   jsr $ad0c

$aeaa  29 04      and #$04

$aeac  f0 f6      beq $aea4

$aeae  c6 66      dec $66

$aeb0  d0 d5      bne $ae87

$aeb2  20 f1 ac   jsr $acf1

$aeb5  a5 54      lda $54

$aeb7  60         rts

$aeb8  78         sei

$aeb9  20 42 90   jsr $9042

$aebc  b0 06      bcs $aec4

$aebe  bd 34 02   lda $0234,x

$aec1  6a         ror a

$aec2  b0 0b      bcs $aecf

$aec4  a5 53      lda $53

$aec6  29 f0      and #$f0

$aec8  c9 f0      cmp #$f0

$aeca  f0 03      beq $aecf

$aecc  4c df ae   jmp $aedf

$aecf  20 42 ae   jsr $ae42

$aed2  58         cli

$aed3  20 78 8e   jsr $8e78

$aed6  4c b8 ae   jmp $aeb8

$aed9  a5 76      lda $76

$aedb  29 df      and #$df

$aedd  85 76      sta $76

$aedf  a9 10      lda #$10

$aee1  8d 01 40   sta $4001

$aee4  20 bb ac   jsr $acbb

$aee7  4c 00 ff   jmp $ff00

$aeea  b0 03      bcs $aeef

$aeec  4c bb ac   jmp $acbb

$aeef  4c d4 ac   jmp $acd4

$aef2  a2 00      ldx #$00

$aef4  2c a6 40   bit $40a6

$aef7  9a         txs

$aef8  ba         tsx

$aef9  a9 60      lda #$60

$aefb  0d 00 40   ora $4000

$aefe  8d 00 40   sta $4000

$af01  98         tya

$af02  18         clc

$af03  69 01      adc #$01

$af05  d0 fc      bne $af03

$af07  88         dey

$af08  d0 f8      bne $af02

$af0a  ad 00 40   lda $4000

$af0d  29 9f      and #$9f

$af0f  8d 00 40   sta $4000

$af12  98         tya

$af13  18         clc

$af14  69 01      adc #$01

$af16  d0 fc      bne $af14

$af18  88         dey

$af19  d0 f8      bne $af13

$af1b  ca         dex

$af1c  10 db      bpl $aef9

$af1e  e0 f9      cpx #$f9

$af20  d0 f0      bne $af12

$af22  f0 d4      beq $aef8

;

$af24  78         sei        ; 1581 dRIVE rESET rOUTINE

$af25  d8         cld

$af26  a9 fe      lda #$fe

$af28  8d 00 40   sta $4000

$af2b  a9 65      lda #$65

$af2d  8d 02 40   sta $4002

$af30  a9 d5      lda #$d5

$af32  8d 01 40   sta $4001

$af35  a9 3a      lda #$3a

$af37  8d 03 40   sta $4003

$af3a  a9 00      lda #$00

$af3c  8d 05 40   sta $4005

$af3f  a9 06      lda #$06

$af41  8d 04 40   sta $4004

$af44  a9 01      lda #$01

$af46  8d 0e 40   sta $400e

$af49  a9 9a      lda #$9a

$af4b  8d 0d 40   sta $400d

$af4e  a0 00      ldy #$00   ; mEMORY zERO pAGE cHECK

$af50  a2 00      ldx #$00

$af52  8a         txa

$af53  95 00      sta $00,x

$af55  e8         inx

$af56  d0 fa      bne $af52

$af58  8a         txa

$af59  d5 00      cmp $00,x

$af5b  d0 95      bne $aef2  ; jUMP iF eRROR !

$af5d  f6 00      inc $00,x

$af5f  c8         iny

$af60  d0 fb      bne $af5d

$af62  d5 00      cmp $00,x

$af64  d0 8c      bne $aef2  ; jUMP iF eRROR !

$af66  94 00      sty $00,x

$af68  b5 00      lda $00,x

$af6a  d0 86      bne $aef2  ; jUMP iF eRROR !

$af6c  e8         inx

$af6d  d0 e9      bne $af58

$af6f  e6 40      inc $40

$af71  4c 00 dd   jmp $dd00  ; jUMP $2000-$3fff mEMORY fILL !

$af74  4c 8d af   jmp $af8d  ; jUMP cONTINUE (fROM $dd28)

$af77  ea         nop        ; rEMOVE rom tEST rOUTINE !

$af78  ea         nop

$af79  ea         nop

$af7a  ea         nop

$af7b  ea         nop

$af7c  ea         nop

$af7d  ea         nop

$af7e  ea         nop

$af7f  ea         nop

$af80  ea         nop

$af81  ea         nop

$af82  ea         nop

$af83  ea         nop

$af84  ea         nop

$af85  ea         nop

$af86  ea         nop

$af87  ea         nop

$af88  ea         nop

$af89  ea         nop

$af8a  ea         nop

$af8b  ea         nop

$af8c  ea         nop

$af8d  a9 01      lda #$01

$af8f  85 47      sta $47

$af91  e6 40      inc $40

$af93  a2 1f      ldx #$1f

$af95  98         tya

$af96  18         clc

$af97  65 47      adc $47

$af99  91 46      sta ($46),y

$af9b  c8         iny

$af9c  d0 f7      bne $af95

$af9e  e6 47      inc $47

$afa0  ca         dex

$afa1  d0 f2      bne $af95

$afa3  a2 1f      ldx #$1f

$afa5  c6 47      dec $47

$afa7  88         dey

$afa8  98         tya

$afa9  18         clc

$afaa  65 47      adc $47

$afac  d1 46      cmp ($46),y

$afae  d0 17      bne $afc7

$afb0  49 ff      eor #$ff

$afb2  91 46      sta ($46),y

$afb4  51 46      eor ($46),y

$afb6  91 46      sta ($46),y

$afb8  d0 0d      bne $afc7

$afba  98         tya

$afbb  d0 ea      bne $afa7

$afbd  ca         dex

$afbe  d0 e5      bne $afa5

$afc0  a9 80      lda #$80

$afc2  8d fb 01   sta $01fb

$afc5  d0 03      bne $afca

$afc7  4c f5 ae   jmp $aef5

$afca  78         sei

$afcb  a2 8f      ldx #$8f

$afcd  86 4f      stx $4f

$afcf  9a         txs

$afd0  20 ad ff   jsr $ffad

$afd3  20 e9 af   jsr $afe9

$afd6  2c fb 01   bit $01fb

$afd9  10 03      bpl $afde

$afdb  4c 38 a9   jmp $a938

$afde  a9 73      lda #$73

$afe0  20 67 a8   jsr $a867

$afe3  20 15 ad   jsr $ad15

$afe6  4c 00 ff   jmp $ff00

$afe9  ad 00 40   lda $4000

$afec  29 18      and #$18

$afee  4a         lsr a

$afef  4a         lsr a

$aff0  4a         lsr a

$aff1  09 48      ora #$48

$aff3  85 78      sta $78

$aff5  49 60      eor #$60

$aff7  85 77      sta $77

$aff9  a2 08      ldx #$08

$affb  a9 0b      lda #$0b

$affd  9d f1 01   sta $01f1,x

$b000  38         sec

$b001  e9 01      sbc #$01

$b003  ca         dex

$b004  10 f7      bpl $affd

$b006  a2 00      ldx #$00

$b008  a0 00      ldy #$00

$b00a  a9 00      lda #$00

$b00c  95 bb      sta $bb,x

$b00e  e8         inx

$b00f  b9 f1 01   lda $01f1,y

$b012  95 bb      sta $bb,x

$b014  e8         inx

$b015  c8         iny

$b016  c0 09      cpy #$09

$b018  d0 f0      bne $b00a

$b01a  a9 00      lda #$00

$b01c  95 bb      sta $bb,x

$b01e  a9 02      lda #$02

$b020  95 bc      sta $bc,x

$b022  a9 d0      lda #$d0

$b024  95 bd      sta $bd,x

$b026  a9 02      lda #$02

$b028  95 be      sta $be,x

$b02a  a9 ff      lda #$ff

$b02c  a2 12      ldx #$12

$b02e  95 a8      sta $a8,x

$b030  ca         dex

$b031  10 fb      bpl $b02e

$b033  a2 06      ldx #$06

$b035  95 d1      sta $d1,x

$b037  95 d8      sta $d8,x

$b039  9d 65 02   sta $0265,x

$b03c  ca         dex

$b03d  10 f6      bpl $b035

$b03f  a9 09      lda #$09

$b041  85 d6      sta $d6

$b043  a9 0a      lda #$0a

$b045  85 d7      sta $d7

$b047  a9 06      lda #$06

$b049  85 b8      sta $b8

$b04b  a9 85      lda #$85

$b04d  85 b7      sta $b7

$b04f  a9 1f      lda #$1f

$b051  85 70      sta $70

$b053  a9 01      lda #$01

$b055  8d 39 02   sta $0239

$b058  a9 88      lda #$88

$b05a  8d 3a 02   sta $023a

$b05d  a9 80      lda #$80

$b05f  85 6d      sta $6d

$b061  a9 01      lda #$01

$b063  85 25      sta $25

$b065  20 c3 89   jsr $89c3

$b068  20 59 8d   jsr $8d59

$b06b  a9 01      lda #$01

$b06d  85 2e      sta $2e

$b06f  a9 02      lda #$02

$b071  85 30      sta $30

$b073  a9 00      lda #$00

$b075  85 8a      sta $8a

$b077  a9 ff      lda #$ff

$b079  85 89      sta $89

$b07b  a9 00      lda #$00

$b07d  85 8b      sta $8b

$b07f  a9 0c      lda #$0c

$b081  85 8c      sta $8c

$b083  a9 08      lda #$08

$b085  85 76      sta $76

$b087  a9 33      lda #$33

$b089  8d ec 01   sta $01ec

$b08c  a9 44      lda #$44

$b08e  8d eb 01   sta $01eb

$b091  a9 c0      lda #$c0

$b093  85 8d      sta $8d

$b095  a9 50      lda #$50

$b097  8d d9 01   sta $01d9

$b09a  a9 20      lda #$20

$b09c  85 9d      sta $9d

$b09e  a2 00      ldx #$00

$b0a0  a9 82      lda #$82

$b0a2  20 9d 95   jsr $959d

$b0a5  c9 02      cmp #$02

$b0a7  b0 05      bcs $b0ae

$b0a9  a9 c0      lda #$c0

$b0ab  4c 9d 95   jmp $959d

$b0ae  a9 76      lda #$76

$b0b0  4c 67 a8   jmp $a867

$b0b3  a9 00      lda #$00

$b0b5  85 8e      sta $8e

$b0b7  a9 01      lda #$01

$b0b9  85 90      sta $90

$b0bb  a9 03      lda #$03

$b0bd  8d e5 01   sta $01e5

$b0c0  a9 51      lda #$51

$b0c2  8d 2c 02   sta $022c

$b0c5  a9 4f      lda #$4f

$b0c7  85 8f      sta $8f

$b0c9  a9 28      lda #$28

$b0cb  8d 2b 02   sta $022b

$b0ce  60         rts

$b0cf  a9 28      lda #$28

$b0d1  85 75      sta $75

$b0d3  a0 02      ldy #$02

$b0d5  84 91      sty $91

$b0d7  b9 06 bd   lda $bd06,y

$b0da  85 92      sta $92

$b0dc  85 93      sta $93

$b0de  8d f0 01   sta $01f0

$b0e1  88         dey

$b0e2  84 94      sty $94

$b0e4  8c ef 01   sty $01ef

$b0e7  a9 f5      lda #$f5

$b0e9  85 9b      sta $9b

$b0eb  a9 23      lda #$23

$b0ed  85 9a      sta $9a

$b0ef  60         rts

$b0f0  78         sei

$b0f1  a9 10      lda #$10

$b0f3  8d 01 40   sta $4001

$b0f6  58         cli

$b0f7  a5 7b      lda $7b

$b0f9  f0 0a      beq $b105

$b0fb  a9 00      lda #$00

$b0fd  85 7b      sta $7b

$b0ff  20 04 80   jsr $8004

$b102  20 bb ac   jsr $acbb

$b105  58         cli

$b106  a9 01      lda #$01

$b108  24 76      bit $76

$b10a  f0 03      beq $b10f

$b10c  4c 30 ff   jmp $ff30

$b10f  a5 87      lda $87

$b111  d0 1e      bne $b131

$b113  a0 09      ldy #$09

$b115  a2 0e      ldx #$0e

$b117  b5 a8      lda $a8,x

$b119  c9 ff      cmp #$ff

$b11b  d0 14      bne $b131

$b11d  88         dey

$b11e  30 05      bmi $b125

$b120  b9 02 00   lda $0002,y

$b123  30 0c      bmi $b131

$b125  ca         dex

$b126  10 ef      bpl $b117

$b128  a5 79      lda $79

$b12a  29 bf      and #$bf

$b12c  85 79      sta $79

$b12e  4c 37 b1   jmp $b137

$b131  a5 79      lda $79

$b133  09 40      ora #$40

$b135  85 79      sta $79

$b137  a5 25      lda $25

$b139  f0 03      beq $b13e

$b13b  20 6e 92   jsr $926e

$b13e  ae ab 02   ldx $02ab

$b141  f0 08      beq $b14b

$b143  a5 79      lda $79

$b145  09 20      ora #$20

$b147  85 79      sta $79

$b149  d0 06      bne $b151

$b14b  a5 79      lda $79

$b14d  29 df      and #$df

$b14f  85 79      sta $79

$b151  a5 9c      lda $9c

$b153  d0 03      bne $b158

$b155  20 5b b1   jsr $b15b

$b158  4c 05 b1   jmp $b105

$b15b  a5 87      lda $87

$b15d  f0 1c      beq $b17b

$b15f  a9 40      lda #$40

$b161  8d a8 02   sta $02a8

$b164  a5 6c      lda $6c

$b166  48         pha

$b167  a5 4d      lda $4d

$b169  48         pha

$b16a  a5 4e      lda $4e

$b16c  48         pha

$b16d  a2 07      ldx #$07

$b16f  20 6c ff   jsr $ff6c

$b172  68         pla

$b173  85 4e      sta $4e

$b175  68         pla

$b176  85 4d      sta $4d

$b178  68         pla

$b179  85 6c      sta $6c

$b17b  60         rts

$b17c  a9 00      lda #$00

$b17e  85 52      sta $52

$b180  a9 01      lda #$01

$b182  20 5a 91   jsr $915a

$b185  a9 00      lda #$00

$b187  20 22 94   jsr $9422

$b18a  a6 50      ldx $50

$b18c  a9 00      lda #$00

$b18e  9d 42 02   sta $0242,x

$b191  20 11 9f   jsr $9f11

$b194  aa         tax

$b195  a9 00      lda #$00

$b197  9d 72 02   sta $0272,x

$b19a  a9 01      lda #$01

$b19c  20 b1 8e   jsr $8eb1

$b19f  a9 04      lda #$04

$b1a1  20 b1 8e   jsr $8eb1

$b1a4  a9 01      lda #$01

$b1a6  20 b1 8e   jsr $8eb1

$b1a9  20 b1 8e   jsr $8eb1

$b1ac  ad 8d 02   lda $028d

$b1af  20 b1 8e   jsr $8eb1

$b1b2  a9 00      lda #$00

$b1b4  20 b1 8e   jsr $8eb1

$b1b7  20 37 b2   jsr $b237

$b1ba  20 11 9f   jsr $9f11

$b1bd  0a         asl a

$b1be  aa         tax

$b1bf  d6 bb      dec $bb,x

$b1c1  d6 bb      dec $bb,x

$b1c3  a9 00      lda #$00

$b1c5  20 b1 8e   jsr $8eb1

$b1c8  a9 01      lda #$01

$b1ca  20 b1 8e   jsr $8eb1

$b1cd  20 b1 8e   jsr $8eb1

$b1d0  20 4d 85   jsr $854d

$b1d3  90 2c      bcc $b201

$b1d5  ad 8d 02   lda $028d

$b1d8  20 b1 8e   jsr $8eb1

$b1db  ad 8e 02   lda $028e

$b1de  20 b1 8e   jsr $8eb1

$b1e1  20 37 b2   jsr $b237

$b1e4  a9 00      lda #$00

$b1e6  20 b1 8e   jsr $8eb1

$b1e9  d0 dd      bne $b1c8

$b1eb  20 11 9f   jsr $9f11

$b1ee  0a         asl a

$b1ef  aa         tax

$b1f0  a9 00      lda #$00

$b1f2  95 bb      sta $bb,x

$b1f4  a9 88      lda #$88

$b1f6  a4 50      ldy $50

$b1f8  8d 6e 02   sta $026e

$b1fb  99 34 02   sta $0234,y

$b1fe  a5 54      lda $54

$b200  60         rts

$b201  ad 8d 02   lda $028d

$b204  20 b1 8e   jsr $8eb1

$b207  ad 8e 02   lda $028e

$b20a  20 b1 8e   jsr $8eb1

$b20d  20 37 b2   jsr $b237

$b210  20 11 9f   jsr $9f11

$b213  0a         asl a

$b214  aa         tax

$b215  d6 bb      dec $bb,x

$b217  d6 bb      dec $bb,x

$b219  a9 00      lda #$00

$b21b  20 b1 8e   jsr $8eb1

$b21e  20 b1 8e   jsr $8eb1

$b221  20 b1 8e   jsr $8eb1

$b224  20 11 9f   jsr $9f11

$b227  0a         asl a

$b228  a8         tay

$b229  b9 bb 00   lda $00bb,y

$b22c  a6 50      ldx $50

$b22e  9d 42 02   sta $0242,x

$b231  de 42 02   dec $0242,x

$b234  4c eb b1   jmp $b1eb

$b237  a0 00      ldy #$00

$b239  b9 ac 02   lda $02ac,y

$b23c  20 b1 8e   jsr $8eb1

$b23f  c8         iny

$b240  c0 1b      cpy #$1b

$b242  d0 f5      bne $b239

$b244  60         rts

$b245  20 71 90   jsr $9071

$b248  f0 01      beq $b24b

$b24a  60         rts

$b24b  85 54      sta $54

$b24d  a4 50      ldy $50

$b24f  b9 42 02   lda $0242,y

$b252  f0 08      beq $b25c

$b254  a9 80      lda #$80

$b256  99 34 02   sta $0234,y

$b259  a5 54      lda $54

$b25b  60         rts

$b25c  48         pha

$b25d  20 c8 b1   jsr $b1c8

$b260  68         pla

$b261  60         rts

$b262  20 85 80   jsr $8085

$b265  20 03 8f   jsr $8f03

$b268  20 4a b4   jsr $b44a

$b26b  a9 00      lda #$00

$b26d  85 73      sta $73

$b26f  20 24 84   jsr $8424

$b272  d0 38      bne $b2ac

$b274  a9 00      lda #$00

$b276  85 4e      sta $4e

$b278  ad 2b 02   lda $022b

$b27b  85 4d      sta $4d

$b27d  20 c7 b2   jsr $b2c7

$b280  20 15 b5   jsr $b515

$b283  4c 4c 80   jmp $804c

$b286  c8         iny

$b287  b1 64      lda ($64),y

$b289  48         pha

$b28a  c8         iny

$b28b  b1 64      lda ($64),y

$b28d  48         pha

$b28e  a0 13      ldy #$13

$b290  b1 64      lda ($64),y

$b292  f0 0a      beq $b29e

$b294  85 4d      sta $4d

$b296  c8         iny

$b297  b1 64      lda ($64),y

$b299  85 4e      sta $4e

$b29b  20 c7 b2   jsr $b2c7

$b29e  68         pla

$b29f  85 4e      sta $4e

$b2a1  68         pla

$b2a2  85 4d      sta $4d

$b2a4  20 c7 b2   jsr $b2c7

$b2a7  20 77 84   jsr $8477

$b2aa  f0 c8      beq $b274

$b2ac  a0 00      ldy #$00

$b2ae  b1 64      lda ($64),y

$b2b0  10 0f      bpl $b2c1

$b2b2  29 07      and #$07

$b2b4  c9 05      cmp #$05

$b2b6  d0 ce      bne $b286

$b2b8  20 23 b3   jsr $b323

$b2bb  20 3c b3   jsr $b33c

$b2be  4c a7 b2   jmp $b2a7

$b2c1  20 3b 87   jsr $873b

$b2c4  4c a7 b2   jmp $b2a7

$b2c7  20 b5 94   jsr $94b5

$b2ca  20 72 b5   jsr $b572

$b2cd  20 cf 93   jsr $93cf

$b2d0  a9 00      lda #$00

$b2d2  20 22 94   jsr $9422

$b2d5  20 71 90   jsr $9071

$b2d8  85 4d      sta $4d

$b2da  20 71 90   jsr $9071

$b2dd  85 4e      sta $4e

$b2df  a5 4d      lda $4d

$b2e1  d0 03      bne $b2e6

$b2e3  4c 9e 91   jmp $919e

$b2e6  20 72 b5   jsr $b572

$b2e9  20 aa 93   jsr $93aa

$b2ec  4c d0 b2   jmp $b2d0

$b2ef  ad ee 01   lda $01ee

$b2f2  d0 08      bne $b2fc

$b2f4  ad ed 01   lda $01ed

$b2f7  f0 1d      beq $b316

$b2f9  ce ed 01   dec $01ed

$b2fc  ce ee 01   dec $01ee

$b2ff  e6 4e      inc $4e

$b301  a5 75      lda $75

$b303  c5 4e      cmp $4e

$b305  d0 0f      bne $b316

$b307  a9 00      lda #$00

$b309  85 4e      sta $4e

$b30b  a5 4d      lda $4d

$b30d  cd 2b 02   cmp $022b

$b310  f0 0c      beq $b31e

$b312  e6 4d      inc $4d

$b314  38         sec

$b315  24 18      bit $18

$b317  ad ed 01   lda $01ed

$b31a  0d ee 01   ora $01ee

$b31d  60         rts

$b31e  a9 67      lda #$67

$b320  4c 3f ff   jmp $ff3f

$b323  a0 01      ldy #$01

$b325  b1 64      lda ($64),y

$b327  85 4d      sta $4d

$b329  c8         iny

$b32a  b1 64      lda ($64),y

$b32c  85 4e      sta $4e

$b32e  a0 1c      ldy #$1c

$b330  b1 64      lda ($64),y

$b332  8d ee 01   sta $01ee

$b335  c8         iny

$b336  b1 64      lda ($64),y

$b338  8d ed 01   sta $01ed

$b33b  60         rts

$b33c  20 b5 94   jsr $94b5

$b33f  20 72 b5   jsr $b572

$b342  20 ef b2   jsr $b2ef

$b345  d0 f5      bne $b33c

$b347  60         rts

$b348  20 fd 81   jsr $81fd

$b34b  a5 ef      lda $ef

$b34d  10 05      bpl $b354

$b34f  a9 33      lda #$33

$b351  4c 7c 80   jmp $807c

$b354  a9 00      lda #$00

$b356  85 6e      sta $6e

$b358  8d fa 01   sta $01fa

$b35b  20 f6 81   jsr $81f6

$b35e  a2 00      ldx #$00

$b360  ac 92 02   ldy $0292

$b363  c4 29      cpy $29

$b365  f0 19      beq $b380

$b367  b9 00 02   lda $0200,y

$b36a  95 1d      sta $1d,x

$b36c  b9 01 02   lda $0201,y

$b36f  95 1e      sta $1e,x

$b371  20 62 92   jsr $9262

$b374  20 69 ff   jsr $ff69

$b377  20 46 87   jsr $8746

$b37a  20 3d b4   jsr $b43d

$b37d  4c 90 b3   jmp $b390

$b380  20 69 ff   jsr $ff69

$b383  20 03 8f   jsr $8f03

$b386  a5 6f      lda $6f

$b388  cd eb 01   cmp $01eb

$b38b  f0 03      beq $b390

$b38d  4c cb 94   jmp $94cb

$b390  a5 6c      lda $6c

$b392  a8         tay

$b393  0a         asl a

$b394  aa         tax

$b395  ad 77 db   lda $db77

$b398  95 bb      sta $bb,x

$b39a  ae 91 02   ldx $0291

$b39d  a9 1b      lda #$1b

$b39f  20 ee 84   jsr $84ee

$b3a2  a0 00      ldy #$00

$b3a4  84 64      sty $64

$b3a6  ad 2b 02   lda $022b

$b3a9  91 64      sta ($64),y

$b3ab  c8         iny

$b3ac  a9 03      lda #$03

$b3ae  8d e5 01   sta $01e5

$b3b1  91 64      sta ($64),y

$b3b3  c8         iny

$b3b4  ad eb 01   lda $01eb

$b3b7  85 6f      sta $6f

$b3b9  91 64      sta ($64),y

$b3bb  c8         iny

$b3bc  a9 00      lda #$00

$b3be  91 64      sta ($64),y

$b3c0  a0 16      ldy #$16

$b3c2  a5 1d      lda $1d

$b3c4  91 64      sta ($64),y

$b3c6  c8         iny

$b3c7  a5 1e      lda $1e

$b3c9  91 64      sta ($64),y

$b3cb  c8         iny

$b3cc  a9 a0      lda #$a0

$b3ce  91 64      sta ($64),y

$b3d0  c8         iny

$b3d1  ad ec 01   lda $01ec

$b3d4  91 64      sta ($64),y

$b3d6  c8         iny

$b3d7  a5 6f      lda $6f

$b3d9  91 64      sta ($64),y

$b3db  c8         iny

$b3dc  a9 a0      lda #$a0

$b3de  91 64      sta ($64),y

$b3e0  c8         iny

$b3e1  91 64      sta ($64),y

$b3e3  c8         iny

$b3e4  a9 00      lda #$00

$b3e6  91 64      sta ($64),y

$b3e8  c8         iny

$b3e9  d0 fb      bne $b3e6

$b3eb  a9 00      lda #$00

$b3ed  20 35 b4   jsr $b435

$b3f0  20 c1 93   jsr $93c1

$b3f3  a9 00      lda #$00

$b3f5  85 64      sta $64

$b3f7  a8         tay

$b3f8  91 64      sta ($64),y

$b3fa  c8         iny

$b3fb  d0 fb      bne $b3f8

$b3fd  c8         iny

$b3fe  a9 ff      lda #$ff

$b400  91 64      sta ($64),y

$b402  ad e5 01   lda $01e5

$b405  20 35 b4   jsr $b435

$b408  20 c1 93   jsr $93c1

$b40b  20 4a b4   jsr $b44a

$b40e  ad 2b 02   lda $022b

$b411  85 4d      sta $4d

$b413  a9 00      lda #$00

$b415  85 4e      sta $4e

$b417  20 72 b5   jsr $b572

$b41a  e6 4e      inc $4e

$b41c  20 72 b5   jsr $b572

$b41f  e6 4e      inc $4e

$b421  20 72 b5   jsr $b572

$b424  ad e5 01   lda $01e5

$b427  85 4e      sta $4e

$b429  20 72 b5   jsr $b572

$b42c  20 12 b6   jsr $b612

$b42f  20 03 8f   jsr $8f03

$b432  4c 4c 80   jmp $804c

$b435  85 4e      sta $4e

$b437  ad 2b 02   lda $022b

$b43a  85 4d      sta $4d

$b43c  60         rts

$b43d  a9 00      lda #$00

$b43f  a8         tay

$b440  99 00 0a   sta $0a00,y

$b443  99 00 0b   sta $0b00,y

$b446  c8         iny

$b447  d0 f7      bne $b440

$b449  60         rts

$b44a  a9 00      lda #$00

$b44c  85 4d      sta $4d

$b44e  ad 2b 02   lda $022b

$b451  8d 00 0a   sta $0a00

$b454  a9 00      lda #$00

$b456  8d 00 0b   sta $0b00

$b459  a9 02      lda #$02

$b45b  8d 01 0a   sta $0a01

$b45e  a9 ff      lda #$ff

$b460  8d 01 0b   sta $0b01

$b463  ad eb 01   lda $01eb

$b466  8d 02 0a   sta $0a02

$b469  8d 02 0b   sta $0b02

$b46c  49 ff      eor #$ff

$b46e  8d 03 0a   sta $0a03

$b471  8d 03 0b   sta $0b03

$b474  a5 1d      lda $1d

$b476  8d 04 0a   sta $0a04

$b479  8d 04 0b   sta $0b04

$b47c  a5 1e      lda $1e

$b47e  8d 05 0a   sta $0a05

$b481  8d 05 0b   sta $0b05

$b484  a5 8d      lda $8d

$b486  8d 06 0a   sta $0a06

$b489  8d 06 0b   sta $0b06

$b48c  a9 00      lda #$00

$b48e  8d 07 0a   sta $0a07

$b491  8d 07 0b   sta $0b07

$b494  20 52 b6   jsr $b652

$b497  a0 10      ldy #$10

$b499  e6 4d      inc $4d

$b49b  a5 4d      lda $4d

$b49d  c5 90      cmp $90

$b49f  f0 0b      beq $b4ac

$b4a1  90 07      bcc $b4aa

$b4a3  cd 2c 02   cmp $022c

$b4a6  f0 02      beq $b4aa

$b4a8  90 02      bcc $b4ac

$b4aa  18         clc

$b4ab  24 38      bit $38

$b4ad  08         php

$b4ae  a9 00      lda #$00

$b4b0  85 40      sta $40

$b4b2  85 41      sta $41

$b4b4  85 42      sta $42

$b4b6  85 43      sta $43

$b4b8  85 44      sta $44

$b4ba  a6 75      ldx $75

$b4bc  8a         txa

$b4bd  b0 02      bcs $b4c1

$b4bf  a9 00      lda #$00

$b4c1  91 31      sta ($31),y

$b4c3  c8         iny

$b4c4  28         plp

$b4c5  08         php

$b4c6  26 40      rol $40

$b4c8  26 41      rol $41

$b4ca  26 42      rol $42

$b4cc  26 43      rol $43

$b4ce  26 44      rol $44

$b4d0  ca         dex

$b4d1  d0 f1      bne $b4c4

$b4d3  28         plp

$b4d4  b5 40      lda $40,x

$b4d6  91 31      sta ($31),y

$b4d8  c8         iny

$b4d9  e8         inx

$b4da  e0 05      cpx #$05

$b4dc  90 f6      bcc $b4d4

$b4de  98         tya

$b4df  d0 b8      bne $b499

$b4e1  a5 32      lda $32

$b4e3  c9 0b      cmp #$0b

$b4e5  f0 04      beq $b4eb

$b4e7  e6 32      inc $32

$b4e9  d0 ac      bne $b497

$b4eb  a9 01      lda #$01

$b4ed  85 35      sta $35

$b4ef  a9 00      lda #$00

$b4f1  8d a9 02   sta $02a9

$b4f4  ad 2b 02   lda $022b

$b4f7  85 4d      sta $4d

$b4f9  a9 00      lda #$00

$b4fb  85 4e      sta $4e

$b4fd  20 72 b5   jsr $b572

$b500  e6 4e      inc $4e

$b502  20 72 b5   jsr $b572

$b505  e6 4e      inc $4e

$b507  20 72 b5   jsr $b572

$b50a  ad e5 01   lda $01e5

$b50d  85 4e      sta $4e

$b50f  20 72 b5   jsr $b572

$b512  4c 85 8f   jmp $8f85

$b515  a5 35      lda $35

$b517  f0 28      beq $b541

$b519  ad 2c 02   lda $022c

$b51c  85 66      sta $66

$b51e  20 52 b6   jsr $b652

$b521  a9 10      lda #$10

$b523  85 31      sta $31

$b525  20 5e b7   jsr $b75e

$b528  c6 66      dec $66

$b52a  f0 12      beq $b53e

$b52c  18         clc

$b52d  a5 31      lda $31

$b52f  69 06      adc #$06

$b531  90 f0      bcc $b523

$b533  a5 32      lda $32

$b535  c9 0b      cmp #$0b

$b537  f0 05      beq $b53e

$b539  e6 32      inc $32

$b53b  4c 21 b5   jmp $b521

$b53e  20 12 b6   jsr $b612

$b541  a9 00      lda #$00

$b543  85 35      sta $35

$b545  60         rts

$b546  20 b4 b5   jsr $b5b4

$b549  20 d8 b5   jsr $b5d8

$b54c  d0 23      bne $b571

$b54e  b1 31      lda ($31),y

$b550  1d ea b5   ora $b5ea,x

$b553  91 31      sta ($31),y

$b555  a9 01      lda #$01

$b557  85 35      sta $35

$b559  a0 00      ldy #$00

$b55b  18         clc

$b55c  b1 31      lda ($31),y

$b55e  69 01      adc #$01

$b560  91 31      sta ($31),y

$b562  a5 4d      lda $4d

$b564  cd 2b 02   cmp $022b

$b567  f0 34      beq $b59d

$b569  ee a9 02   inc $02a9

$b56c  d0 03      bne $b571

$b56e  ee aa 02   inc $02aa

$b571  60         rts

$b572  20 b4 b5   jsr $b5b4

$b575  20 d8 b5   jsr $b5d8

$b578  f0 39      beq $b5b3

$b57a  b1 31      lda ($31),y

$b57c  5d ea b5   eor $b5ea,x

$b57f  91 31      sta ($31),y

$b581  a9 01      lda #$01

$b583  85 35      sta $35

$b585  a0 00      ldy #$00

$b587  b1 31      lda ($31),y

$b589  38         sec

$b58a  e9 01      sbc #$01

$b58c  91 31      sta ($31),y

$b58e  a5 4d      lda $4d

$b590  cd 2b 02   cmp $022b

$b593  f0 0b      beq $b5a0

$b595  ad a9 02   lda $02a9

$b598  d0 03      bne $b59d

$b59a  ce aa 02   dec $02aa

$b59d  ce a9 02   dec $02a9

$b5a0  ad aa 02   lda $02aa

$b5a3  d0 0e      bne $b5b3

$b5a5  ad a9 02   lda $02a9

$b5a8  c9 03      cmp #$03

$b5aa  b0 05      bcs $b5b1

$b5ac  a9 72      lda #$72

$b5ae  4c 6d a8   jmp $a86d

$b5b1  a9 01      lda #$01

$b5b3  60         rts

$b5b4  a5 6e      lda $6e

$b5b6  f0 05      beq $b5bd

$b5b8  a9 74      lda #$74

$b5ba  20 3f ff   jsr $ff3f

$b5bd  20 52 b6   jsr $b652

$b5c0  a5 4d      lda $4d

$b5c2  c9 29      cmp #$29

$b5c4  90 04      bcc $b5ca

$b5c6  e9 28      sbc #$28

$b5c8  e6 32      inc $32

$b5ca  0a         asl a

$b5cb  85 31      sta $31

$b5cd  0a         asl a

$b5ce  18         clc

$b5cf  65 31      adc $31

$b5d1  69 0a      adc #$0a

$b5d3  85 31      sta $31

$b5d5  a0 00      ldy #$00

$b5d7  60         rts

$b5d8  a5 4e      lda $4e

$b5da  4a         lsr a

$b5db  4a         lsr a

$b5dc  4a         lsr a

$b5dd  a8         tay

$b5de  c8         iny

$b5df  a5 4e      lda $4e

$b5e1  29 07      and #$07

$b5e3  aa         tax

$b5e4  b1 31      lda ($31),y

$b5e6  3d ea b5   and $b5ea,x

$b5e9  60         rts

;

$b5ea  .byte $01,$02,$04,$08

$b5ee  .byte $10,$20,$40,$80

;

$b5f2  a5 6c      lda $6c

$b5f4  85 3f      sta $3f

$b5f6  ad 00 0a   lda $0a00

$b5f9  d0 2f      bne $b62a

$b5fb  a9 07      lda #$07

$b5fd  a2 01      ldx #$01

$b5ff  20 43 b6   jsr $b643

$b602  20 de 94   jsr $94de

$b605  a9 08      lda #$08

$b607  a2 02      ldx #$02

$b609  20 43 b6   jsr $b643

$b60c  20 de 94   jsr $94de

$b60f  4c 2a b6   jmp $b62a

$b612  a5 6c      lda $6c

$b614  85 3f      sta $3f

$b616  a9 07      lda #$07

$b618  a2 01      ldx #$01

$b61a  20 43 b6   jsr $b643

$b61d  20 e2 94   jsr $94e2

$b620  a9 08      lda #$08

$b622  a2 02      ldx #$02

$b624  20 43 b6   jsr $b643

$b627  20 e2 94   jsr $94e2

$b62a  a5 3f      lda $3f

$b62c  85 6c      sta $6c

$b62e  a9 00      lda #$00

$b630  85 35      sta $35

$b632  60         rts

$b633  20 15 b5   jsr $b515

$b636  a2 00      ldx #$00

$b638  a5 6c      lda $6c

$b63a  20 43 b6   jsr $b643

$b63d  20 de 94   jsr $94de

$b640  4c f2 b5   jmp $b5f2

$b643  85 6c      sta $6c

$b645  86 4e      stx $4e

$b647  ae 2b 02   ldx $022b

$b64a  86 4d      stx $4d

$b64c  4c 88 95   jmp $9588

$b64f  20 f2 b5   jsr $b5f2

$b652  a9 0a      lda #$0a

$b654  85 32      sta $32

$b656  a9 00      lda #$00

$b658  85 31      sta $31

$b65a  60         rts

$b65b  ad a9 02   lda $02a9

$b65e  8d 8d 02   sta $028d

$b661  ad aa 02   lda $02aa

$b664  8d 8e 02   sta $028e

$b667  60         rts

$b668  20 7c 9d   jsr $9d7c

$b66b  a9 03      lda #$03

$b66d  85 40      sta $40

$b66f  a9 01      lda #$01

$b671  05 35      ora $35

$b673  85 35      sta $35

$b675  20 b4 b5   jsr $b5b4

$b678  b1 31      lda ($31),y

$b67a  d0 43      bne $b6bf

$b67c  a5 4d      lda $4d

$b67e  cd 2b 02   cmp $022b

$b681  f0 1d      beq $b6a0

$b683  90 20      bcc $b6a5

$b685  e6 4d      inc $4d

$b687  a5 4d      lda $4d

$b689  cd 2c 02   cmp $022c

$b68c  d0 e7      bne $b675

$b68e  ae 2b 02   ldx $022b

$b691  ca         dex

$b692  86 4d      stx $4d

$b694  e4 90      cpx $90

$b696  90 17      bcc $b6af

$b698  a9 00      lda #$00

$b69a  85 4e      sta $4e

$b69c  c6 40      dec $40

$b69e  d0 d5      bne $b675

$b6a0  a9 72      lda #$72

$b6a2  20 7c 80   jsr $807c

$b6a5  a5 4d      lda $4d

$b6a7  c5 90      cmp $90

$b6a9  90 04      bcc $b6af

$b6ab  c6 4d      dec $4d

$b6ad  d0 c6      bne $b675

$b6af  ae 2b 02   ldx $022b

$b6b2  e8         inx

$b6b3  86 4d      stx $4d

$b6b5  a9 00      lda #$00

$b6b7  85 4e      sta $4e

$b6b9  c6 40      dec $40

$b6bb  d0 b8      bne $b675

$b6bd  f0 e1      beq $b6a0

$b6bf  a5 4e      lda $4e

$b6c1  18         clc

$b6c2  65 2e      adc $2e

$b6c4  85 4e      sta $4e

$b6c6  a5 75      lda $75

$b6c8  85 28      sta $28

$b6ca  c5 4e      cmp $4e

$b6cc  b0 0b      bcs $b6d9

$b6ce  38         sec

$b6cf  a5 4e      lda $4e

$b6d1  e5 75      sbc $75

$b6d3  85 4e      sta $4e

$b6d5  f0 02      beq $b6d9

$b6d7  c6 4e      dec $4e

$b6d9  20 46 b7   jsr $b746

$b6dc  f0 03      beq $b6e1

$b6de  4c 72 b5   jmp $b572

$b6e1  a9 00      lda #$00

$b6e3  85 4e      sta $4e

$b6e5  20 46 b7   jsr $b746

$b6e8  d0 f4      bne $b6de

$b6ea  4c 41 b7   jmp $b741

$b6ed  a9 01      lda #$01

$b6ef  05 35      ora $35

$b6f1  85 35      sta $35

$b6f3  a5 55      lda $55

$b6f5  48         pha

$b6f6  a9 01      lda #$01

$b6f8  85 55      sta $55

$b6fa  ad 2b 02   lda $022b

$b6fd  38         sec

$b6fe  e5 55      sbc $55

$b700  85 4d      sta $4d

$b702  08         php

$b703  c5 90      cmp $90

$b705  b0 04      bcs $b70b

$b707  28         plp

$b708  4c 17 b7   jmp $b717

$b70b  28         plp

$b70c  90 09      bcc $b717

$b70e  f0 07      beq $b717

$b710  20 b4 b5   jsr $b5b4

$b713  b1 31      lda ($31),y

$b715  d0 1b      bne $b732

$b717  ad 2b 02   lda $022b

$b71a  18         clc

$b71b  65 55      adc $55

$b71d  85 4d      sta $4d

$b71f  e6 55      inc $55

$b721  cd 2c 02   cmp $022c

$b724  90 05      bcc $b72b

$b726  a9 67      lda #$67

$b728  20 3f ff   jsr $ff3f

$b72b  20 b4 b5   jsr $b5b4

$b72e  b1 31      lda ($31),y

$b730  f0 c8      beq $b6fa

$b732  68         pla

$b733  85 55      sta $55

$b735  a9 00      lda #$00

$b737  85 4e      sta $4e

$b739  20 46 b7   jsr $b746

$b73c  f0 03      beq $b741

$b73e  4c 72 b5   jmp $b572

$b741  a9 71      lda #$71

$b743  20 3f ff   jsr $ff3f

$b746  20 b4 b5   jsr $b5b4

$b749  20 5e b7   jsr $b75e

$b74c  a5 4e      lda $4e

$b74e  c5 75      cmp $75

$b750  b0 09      bcs $b75b

$b752  20 d8 b5   jsr $b5d8

$b755  d0 06      bne $b75d

$b757  e6 4e      inc $4e

$b759  d0 f1      bne $b74c

$b75b  a9 00      lda #$00

$b75d  60         rts

$b75e  a9 00      lda #$00

$b760  85 2f      sta $2f

$b762  ac 76 db   ldy $db76

$b765  88         dey

$b766  a2 08      ldx #$08

$b768  b1 31      lda ($31),y

$b76a  0a         asl a

$b76b  90 02      bcc $b76f

$b76d  e6 2f      inc $2f

$b76f  ca         dex

$b770  d0 f8      bne $b76a

$b772  88         dey

$b773  d0 f1      bne $b766

$b775  b1 31      lda ($31),y

$b777  c5 2f      cmp $2f

$b779  d0 01      bne $b77c

$b77b  60         rts

$b77c  a9 71      lda #$71

$b77e  20 3f ff   jsr $ff3f

$b781  20 ae 84   jsr $84ae

$b784  a5 29      lda $29

$b786  c9 02      cmp #$02

$b788  90 6d      bcc $b7f7

$b78a  a9 01      lda #$01

$b78c  8d 91 02   sta $0291

$b78f  20 fd 81   jsr $81fd

$b792  20 b9 82   jsr $82b9

$b795  ad 97 02   lda $0297

$b798  f0 13      beq $b7ad

$b79a  20 51 b8   jsr $b851

$b79d  90 20      bcc $b7bf

$b79f  a9 63      lda #$63

$b7a1  2c a9 62   bit $62a9

$b7a4  2c a9 30   bit $30a9

$b7a7  2c a9 77   bit $77a9

$b7aa  20 7c 80   jsr $807c

$b7ad  20 51 b8   jsr $b851

$b7b0  90 f0      bcc $b7a2

$b7b2  ae 90 02   ldx $0290

$b7b5  bd 06 02   lda $0206,x

$b7b8  c9 43      cmp #$43

$b7ba  d0 e9      bne $b7a5

$b7bc  4c 8d b8   jmp $b88d

$b7bf  a5 f4      lda $f4

$b7c1  29 07      and #$07

$b7c3  c9 05      cmp #$05

$b7c5  d0 db      bne $b7a2

$b7c7  20 23 b3   jsr $b323

$b7ca  20 b5 94   jsr $94b5

$b7cd  20 ef b2   jsr $b2ef

$b7d0  d0 f8      bne $b7ca

$b7d2  90 d4      bcc $b7a8

$b7d4  a0 02      ldy #$02

$b7d6  b1 64      lda ($64),y

$b7d8  d0 ce      bne $b7a8

$b7da  88         dey

$b7db  a5 4d      lda $4d

$b7dd  aa         tax

$b7de  f1 64      sbc ($64),y

$b7e0  c9 02      cmp #$02

$b7e2  f0 c4      beq $b7a8

$b7e4  90 c2      bcc $b7a8

$b7e6  b1 64      lda ($64),y

$b7e8  8d 2b 02   sta $022b

$b7eb  85 90      sta $90

$b7ed  8e 2c 02   stx $022c

$b7f0  ca         dex

$b7f1  ca         dex

$b7f2  86 8f      stx $8f

$b7f4  4c fa b7   jmp $b7fa

$b7f7  20 b3 b0   jsr $b0b3

$b7fa  20 62 92   jsr $9262

$b7fd  20 03 8f   jsr $8f03

$b800  a5 90      lda $90

$b802  85 4d      sta $4d

$b804  ac 2c 02   ldy $022c

$b807  88         dey

$b808  84 4e      sty $4e

$b80a  a9 02      lda #$02

$b80c  a0 00      ldy #$00

$b80e  4c 5f 80   jmp $805f

$b811  a5 35      lda $35

$b813  48         pha

$b814  ad a9 02   lda $02a9

$b817  48         pha

$b818  ad aa 02   lda $02aa

$b81b  48         pha

$b81c  20 5f b8   jsr $b85f

$b81f  20 b5 94   jsr $94b5

$b822  a5 4d      lda $4d

$b824  c9 28      cmp #$28

$b826  f0 19      beq $b841

$b828  20 72 b5   jsr $b572

$b82b  f0 14      beq $b841

$b82d  20 46 b5   jsr $b546

$b830  20 ef b2   jsr $b2ef

$b833  d0 ea      bne $b81f

$b835  68         pla

$b836  8d aa 02   sta $02aa

$b839  68         pla

$b83a  8d a9 02   sta $02a9

$b83d  68         pla

$b83e  85 35      sta $35

$b840  60         rts

$b841  68         pla

$b842  8d aa 02   sta $02aa

$b845  68         pla

$b846  8d a9 02   sta $02a9

$b849  68         pla

$b84a  85 35      sta $35

$b84c  a9 67      lda #$67

$b84e  4c 3f ff   jmp $ff3f

$b851  a2 01      ldx #$01

$b853  20 26 85   jsr $8526

$b856  a5 29      lda $29

$b858  38         sec

$b859  ed 90 02   sbc $0290

$b85c  c9 04      cmp #$04

$b85e  60         rts

$b85f  ac 90 02   ldy $0290

$b862  c8         iny

$b863  b9 00 02   lda $0200,y

$b866  85 4d      sta $4d

$b868  c8         iny

$b869  b9 00 02   lda $0200,y

$b86c  85 4e      sta $4e

$b86e  c8         iny

$b86f  b9 00 02   lda $0200,y

$b872  8d ee 01   sta $01ee

$b875  c8         iny

$b876  b9 00 02   lda $0200,y

$b879  8d ed 01   sta $01ed

$b87c  18         clc

$b87d  ad ee 01   lda $01ee

$b880  6d ed 01   adc $01ed

$b883  f0 03      beq $b888

$b885  4c b5 94   jmp $94b5

$b888  a9 77      lda #$77

$b88a  20 7c 80   jsr $807c

$b88d  20 11 b8   jsr $b811

$b890  a9 05      lda #$05

$b892  8d 2d 02   sta $022d

$b895  a9 12      lda #$12

$b897  85 52      sta $52

$b899  20 5f b8   jsr $b85f

$b89c  20 c6 9b   jsr $9bc6

$b89f  20 ab 95   jsr $95ab

$b8a2  20 5f b8   jsr $b85f

$b8a5  20 b5 94   jsr $94b5

$b8a8  a5 4d      lda $4d

$b8aa  20 72 b5   jsr $b572

$b8ad  20 ef b2   jsr $b2ef

$b8b0  d0 f3      bne $b8a5

$b8b2  20 5f b8   jsr $b85f

$b8b5  a6 50      ldx $50

$b8b7  ad ee 01   lda $01ee

$b8ba  9d 49 02   sta $0249,x

$b8bd  ad ed 01   lda $01ed

$b8c0  9d 50 02   sta $0250,x

$b8c3  a9 00      lda #$00

$b8c5  20 b1 8e   jsr $8eb1

$b8c8  a9 12      lda #$12

$b8ca  85 52      sta $52

$b8cc  20 9f 99   jsr $999f

$b8cf  4c 4c 80   jmp $804c

$b8d2  4c 4c 80   jmp $804c

$b8d5  a9 08      lda #$08

$b8d7  24 76      bit $76

$b8d9  f0 f7      beq $b8d2

$b8db  20 d4 ac   jsr $acd4

$b8de  20 06 ba   jsr $ba06

$b8e1  b0 59      bcs $b93c

$b8e3  20 ae 84   jsr $84ae

$b8e6  a5 6e      lda $6e

$b8e8  d0 52      bne $b93c

$b8ea  a9 80      lda #$80

$b8ec  85 3c      sta $3c

$b8ee  20 64 ba   jsr $ba64

$b8f1  ad 00 02   lda $0200

$b8f4  c9 2a      cmp #$2a

$b8f6  d0 0f      bne $b907

$b8f8  a5 4c      lda $4c

$b8fa  f0 0b      beq $b907

$b8fc  48         pha

$b8fd  ad 8b 02   lda $028b

$b900  8d 9c 02   sta $029c

$b903  68         pla

$b904  4c 41 b9   jmp $b941

$b907  a9 00      lda #$00

$b909  a8         tay

$b90a  aa         tax

$b90b  8d 91 02   sta $0291

$b90e  20 fd 81   jsr $81fd

$b911  ad 2f 02   lda $022f

$b914  48         pha

$b915  a9 01      lda #$01

$b917  8d 2f 02   sta $022f

$b91a  a9 ff      lda #$ff

$b91c  85 55      sta $55

$b91e  20 b9 82   jsr $82b9

$b921  68         pla

$b922  8d 2f 02   sta $022f

$b925  20 95 ba   jsr $ba95

$b928  24 7c      bit $7c

$b92a  30 08      bmi $b934

$b92c  a5 f4      lda $f4

$b92e  29 07      and #$07

$b930  c9 02      cmp #$02

$b932  d0 05      bne $b939

$b934  ad 97 02   lda $0297

$b937  d0 08      bne $b941

$b939  a2 02      ldx #$02

$b93b  2c a2 0f   bit $0fa2

$b93e  4c ec b9   jmp $b9ec

$b941  85 4c      sta $4c

$b943  a2 00      ldx #$00

$b945  95 0b      sta $0b,x

$b947  ad 9c 02   lda $029c

$b94a  8d 8b 02   sta $028b

$b94d  95 0c      sta $0c,x

$b94f  58         cli

$b950  a2 00      ldx #$00

$b952  a9 aa      lda #$aa

$b954  20 b7 bf   jsr $bfb7

$b957  aa         tax

$b958  e0 02      cpx #$02

$b95a  90 03      bcc $b95f

$b95c  4c d7 b9   jmp $b9d7

$b95f  78         sei

$b960  a0 00      ldy #$00

$b962  84 7e      sty $7e

$b964  b9 9f 00   lda $009f,y

$b967  29 7f      and #$7f

$b969  18         clc

$b96a  65 8c      adc $8c

$b96c  85 7f      sta $7f

$b96e  b1 7e      lda ($7e),y

$b970  f0 1e      beq $b990

$b972  06 3c      asl $3c

$b974  20 fc 01   jsr $01fc

$b977  a0 02      ldy #$02

$b979  b1 7e      lda ($7e),y

$b97b  aa         tax

$b97c  20 fc 01   jsr $01fc

$b97f  c8         iny

$b980  d0 f7      bne $b979

$b982  a2 00      ldx #$00

$b984  b1 7e      lda ($7e),y

$b986  95 0b      sta $0b,x

$b988  c8         iny

$b989  b1 7e      lda ($7e),y

$b98b  95 0c      sta $0c,x

$b98d  4c 4f b9   jmp $b94f

$b990  a2 1f      ldx #$1f

$b992  20 fc 01   jsr $01fc

$b995  24 3c      bit $3c

$b997  10 1f      bpl $b9b8

$b999  a0 01      ldy #$01

$b99b  b1 7e      lda ($7e),y

$b99d  38         sec

$b99e  e9 03      sbc #$03

$b9a0  85 38      sta $38

$b9a2  aa         tax

$b9a3  20 fc 01   jsr $01fc

$b9a6  c8         iny

$b9a7  b1 7e      lda ($7e),y

$b9a9  aa         tax

$b9aa  20 fc 01   jsr $01fc

$b9ad  c8         iny

$b9ae  b1 7e      lda ($7e),y

$b9b0  aa         tax

$b9b1  20 fc 01   jsr $01fc

$b9b4  a0 04      ldy #$04

$b9b6  d0 0d      bne $b9c5

$b9b8  a0 01      ldy #$01

$b9ba  b1 7e      lda ($7e),y

$b9bc  aa         tax

$b9bd  ca         dex

$b9be  86 38      stx $38

$b9c0  20 fc 01   jsr $01fc

$b9c3  a0 02      ldy #$02

$b9c5  b1 7e      lda ($7e),y

$b9c7  aa         tax

$b9c8  20 fc 01   jsr $01fc

$b9cb  c8         iny

$b9cc  c6 38      dec $38

$b9ce  d0 f5      bne $b9c5

$b9d0  4c 4c 80   jmp $804c

$b9d3  aa         tax

$b9d4  20 95 ba   jsr $ba95

$b9d7  20 fb b9   jsr $b9fb

$b9da  a2 00      ldx #$00

$b9dc  4c 2d ff   jmp $ff2d

$b9df  48         pha

$b9e0  08         php

$b9e1  78         sei

$b9e2  a2 02      ldx #$02

$b9e4  20 fc 01   jsr $01fc

$b9e7  28         plp

$b9e8  20 95 ba   jsr $ba95

$b9eb  68         pla

$b9ec  20 fb b9   jsr $b9fb

$b9ef  c9 02      cmp #$02

$b9f1  f0 03      beq $b9f6

$b9f3  a9 74      lda #$74

$b9f5  2c a9 62   bit $62a9

$b9f8  4c 7c 80   jmp $807c

$b9fb  78         sei

$b9fc  86 38      stx $38

$b9fe  a2 02      ldx #$02

$ba00  20 fc 01   jsr $01fc

$ba03  a5 38      lda $38

$ba05  60         rts

$ba06  a0 03      ldy #$03

$ba08  a5 29      lda $29

$ba0a  38         sec

$ba0b  e9 03      sbc #$03

$ba0d  85 29      sta $29

$ba0f  ad 04 02   lda $0204

$ba12  c9 3a      cmp #$3a

$ba14  d0 0e      bne $ba24

$ba16  ad 03 02   lda $0203

$ba19  aa         tax

$ba1a  29 30      and #$30

$ba1c  c9 30      cmp #$30

$ba1e  d0 04      bne $ba24

$ba20  e0 31      cpx #$31

$ba22  f0 1a      beq $ba3e

$ba24  ad 03 02   lda $0203

$ba27  c9 3a      cmp #$3a

$ba29  d0 03      bne $ba2e

$ba2b  c6 29      dec $29

$ba2d  c8         iny

$ba2e  a2 00      ldx #$00

$ba30  b9 00 02   lda $0200,y

$ba33  9d 00 02   sta $0200,x

$ba36  c8         iny

$ba37  e8         inx

$ba38  e4 29      cpx $29

$ba3a  d0 f4      bne $ba30

$ba3c  18         clc

$ba3d  24 38      bit $38

$ba3f  60         rts

$ba40  ad 01 40   lda $4001

$ba43  cd 01 40   cmp $4001

$ba46  d0 f8      bne $ba40

$ba48  29 ff      and #$ff

$ba4a  30 15      bmi $ba61

$ba4c  45 76      eor $76

$ba4e  29 04      and #$04

$ba50  f0 ee      beq $ba40

$ba52  8e 0c 40   stx $400c

$ba55  45 76      eor $76

$ba57  85 76      sta $76

$ba59  a9 08      lda #$08

$ba5b  2c 0d 40   bit $400d

$ba5e  f0 fb      beq $ba5b

$ba60  60         rts

$ba61  4c 30 ff   jmp $ff30

$ba64  20 7c ba   jsr $ba7c

$ba67  a9 d3      lda #$d3

$ba69  8d ae 01   sta $01ae

$ba6c  a9 b9      lda #$b9

$ba6e  8d af 01   sta $01af

$ba71  a9 df      lda #$df

$ba73  8d ba 01   sta $01ba

$ba76  a9 df      lda #$df

$ba78  8d bb 01   sta $01bb

$ba7b  60         rts

$ba7c  ad ae 01   lda $01ae

$ba7f  8d e6 01   sta $01e6

$ba82  ad af 01   lda $01af

$ba85  8d e7 01   sta $01e7

$ba88  ad ba 01   lda $01ba

$ba8b  8d e8 01   sta $01e8

$ba8e  ad bb 01   lda $01bb

$ba91  8d e9 01   sta $01e9

$ba94  60         rts

$ba95  ad e6 01   lda $01e6

$ba98  8d ae 01   sta $01ae

$ba9b  ad e7 01   lda $01e7

$ba9e  8d af 01   sta $01af

$baa1  ad e8 01   lda $01e8

$baa4  8d ba 01   sta $01ba

$baa7  ad e9 01   lda $01e9

$baaa  8d bb 01   sta $01bb

$baad  60         rts

$baae  a9 8d      lda #$8d

$bab0  4c fc ba   jmp $bafc

$bab3  a5 8a      lda $8a

$bab5  30 f7      bmi $baae

$bab7  a2 00      ldx #$00

$bab9  ad 03 02   lda $0203

$babc  95 0b      sta $0b,x

$babe  ad 04 02   lda $0204

$bac1  95 0c      sta $0c,x

$bac3  a9 80      lda #$80

$bac5  20 b0 bf   jsr $bfb0

$bac8  20 66 bf   jsr $bf66

$bacb  24 7c      bit $7c

$bacd  70 07      bvs $bad6

$bacf  c9 02      cmp #$02

$bad1  90 03      bcc $bad6

$bad3  4c fc ba   jmp $bafc

$bad6  20 ab bf   jsr $bfab

$bad9  a0 00      ldy #$00

$badb  84 7e      sty $7e

$badd  a9 03      lda #$03

$badf  85 7f      sta $7f

$bae1  b1 7e      lda ($7e),y

$bae3  20 86 bf   jsr $bf86

$bae6  c8         iny

$bae7  d0 f8      bne $bae1

$bae9  ce 05 02   dec $0205

$baec  f0 06      beq $baf4

$baee  20 7a c0   jsr $c07a

$baf1  4c b3 ba   jmp $bab3

$baf4  4c 44 bf   jmp $bf44

$baf7  a9 0b      lda #$0b

$baf9  2c a9 4f   bit $4fa9

$bafc  20 66 bf   jsr $bf66

$baff  20 bf be   jsr $bebf

$bb02  ad ea 01   lda $01ea

$bb05  c9 02      cmp #$02

$bb07  b0 01      bcs $bb0a

$bb09  60         rts

$bb0a  29 0f      and #$0f

$bb0c  a2 00      ldx #$00

$bb0e  4c 2d ff   jmp $ff2d

$bb11  a5 25      lda $25

$bb13  d0 e2      bne $baf7

$bb15  20 d4 ac   jsr $acd4

$bb18  a5 7c      lda $7c

$bb1a  30 97      bmi $bab3

$bb1c  a2 00      ldx #$00

$bb1e  ad 03 02   lda $0203

$bb21  95 0b      sta $0b,x

$bb23  ad 04 02   lda $0204

$bb26  95 0c      sta $0c,x

$bb28  a5 7c      lda $7c

$bb2a  29 10      and #$10

$bb2c  9d ce 01   sta $01ce,x

$bb2f  a9 b2      lda #$b2

$bb31  20 b0 bf   jsr $bfb0

$bb34  20 66 bf   jsr $bf66

$bb37  24 7c      bit $7c

$bb39  70 04      bvs $bb3f

$bb3b  c9 02      cmp #$02

$bb3d  b0 bd      bcs $bafc

$bb3f  20 ab bf   jsr $bfab

$bb42  a0 00      ldy #$00

$bb44  84 7e      sty $7e

$bb46  b9 9f 00   lda $009f,y

$bb49  29 7f      and #$7f

$bb4b  18         clc

$bb4c  65 8c      adc $8c

$bb4e  85 7f      sta $7f

$bb50  a6 91      ldx $91

$bb52  e0 03      cpx #$03

$bb54  d0 01      bne $bb57

$bb56  e8         inx

$bb57  b1 7e      lda ($7e),y

$bb59  20 86 bf   jsr $bf86

$bb5c  c8         iny

$bb5d  d0 f8      bne $bb57

$bb5f  ca         dex

$bb60  f0 04      beq $bb66

$bb62  e6 7f      inc $7f

$bb64  d0 f1      bne $bb57

$bb66  ce 05 02   dec $0205

$bb69  f0 06      beq $bb71

$bb6b  20 40 c0   jsr $c040

$bb6e  4c 15 bb   jmp $bb15

$bb71  4c 47 bf   jmp $bf47

$bb74  a9 8d      lda #$8d

$bb76  8d ea 01   sta $01ea

$bb79  a5 7c      lda $7c

$bb7b  09 08      ora #$08

$bb7d  85 7c      sta $7c

$bb7f  d0 04      bne $bb85

$bb81  a5 8a      lda $8a

$bb83  30 ef      bmi $bb74

$bb85  a0 00      ldy #$00

$bb87  84 7e      sty $7e

$bb89  a9 03      lda #$03

$bb8b  85 7f      sta $7f

$bb8d  ad 01 40   lda $4001

$bb90  49 08      eor #$08

$bb92  2c 0d 40   bit $400d

$bb95  8d 01 40   sta $4001

$bb98  a9 08      lda #$08

$bb9a  2c 01 40   bit $4001

$bb9d  30 0f      bmi $bbae

$bb9f  2c 0d 40   bit $400d

$bba2  f0 f6      beq $bb9a

$bba4  ad 0c 40   lda $400c

$bba7  91 7e      sta ($7e),y

$bba9  c8         iny

$bbaa  d0 e1      bne $bb8d

$bbac  f0 0c      beq $bbba

$bbae  20 15 ad   jsr $ad15

$bbb1  4c 9a bb   jmp $bb9a

$bbb4  ad ea 01   lda $01ea

$bbb7  4c fc ba   jmp $bafc

$bbba  20 03 ad   jsr $ad03

$bbbd  a5 7c      lda $7c

$bbbf  29 08      and #$08

$bbc1  d0 f1      bne $bbb4

$bbc3  a2 00      ldx #$00

$bbc5  ad 03 02   lda $0203

$bbc8  95 0b      sta $0b,x

$bbca  ad 04 02   lda $0204

$bbcd  95 0c      sta $0c,x

$bbcf  a9 90      lda #$90

$bbd1  20 b0 bf   jsr $bfb0

$bbd4  20 66 bf   jsr $bf66

$bbd7  20 5a bf   jsr $bf5a

$bbda  24 7c      bit $7c

$bbdc  70 0a      bvs $bbe8

$bbde  ad ea 01   lda $01ea

$bbe1  c9 02      cmp #$02

$bbe3  90 03      bcc $bbe8

$bbe5  4c 0a bb   jmp $bb0a

$bbe8  ce 05 02   dec $0205

$bbeb  f0 06      beq $bbf3

$bbed  20 7a c0   jsr $c07a

$bbf0  4c 81 bb   jmp $bb81

$bbf3  4c 44 bf   jmp $bf44

$bbf6  a9 0b      lda #$0b

$bbf8  2c a9 4f   bit $4fa9

$bbfb  8d ea 01   sta $01ea

$bbfe  4c 2f bc   jmp $bc2f

$bc01  a5 25      lda $25

$bc03  d0 f1      bne $bbf6

$bc05  a5 7c      lda $7c

$bc07  10 03      bpl $bc0c

$bc09  4c 81 bb   jmp $bb81

$bc0c  a2 00      ldx #$00

$bc0e  a5 7c      lda $7c

$bc10  29 10      and #$10

$bc12  9d ce 01   sta $01ce,x

$bc15  ad 03 02   lda $0203

$bc18  95 0b      sta $0b,x

$bc1a  ad 04 02   lda $0204

$bc1d  95 0c      sta $0c,x

$bc1f  a9 b4      lda #$b4

$bc21  20 b0 bf   jsr $bfb0

$bc24  20 66 bf   jsr $bf66

$bc27  c9 02      cmp #$02

$bc29  90 0a      bcc $bc35

$bc2b  a9 00      lda #$00

$bc2d  85 87      sta $87

$bc2f  a5 7c      lda $7c

$bc31  09 08      ora #$08

$bc33  85 7c      sta $7c

$bc35  20 99 bc   jsr $bc99

$bc38  a6 91      ldx $91

$bc3a  e0 03      cpx #$03

$bc3c  d0 01      bne $bc3f

$bc3e  e8         inx

$bc3f  ad 01 40   lda $4001

$bc42  49 08      eor #$08

$bc44  2c 0d 40   bit $400d

$bc47  8d 01 40   sta $4001

$bc4a  a9 08      lda #$08

$bc4c  2c 01 40   bit $4001

$bc4f  30 14      bmi $bc65

$bc51  2c 0d 40   bit $400d

$bc54  f0 f6      beq $bc4c

$bc56  ad 0c 40   lda $400c

$bc59  91 7e      sta ($7e),y

$bc5b  c8         iny

$bc5c  d0 e1      bne $bc3f

$bc5e  e6 7f      inc $7f

$bc60  ca         dex

$bc61  d0 dc      bne $bc3f

$bc63  f0 0c      beq $bc71

$bc65  20 15 ad   jsr $ad15

$bc68  4c 4c bc   jmp $bc4c

$bc6b  ad ea 01   lda $01ea

$bc6e  4c fc ba   jmp $bafc

$bc71  20 03 ad   jsr $ad03

$bc74  a5 7c      lda $7c

$bc76  29 08      and #$08

$bc78  d0 f1      bne $bc6b

$bc7a  20 5a bf   jsr $bf5a

$bc7d  24 7c      bit $7c

$bc7f  70 0a      bvs $bc8b

$bc81  ad ea 01   lda $01ea

$bc84  c9 02      cmp #$02

$bc86  90 03      bcc $bc8b

$bc88  4c 0a bb   jmp $bb0a

$bc8b  ce 05 02   dec $0205

$bc8e  f0 06      beq $bc96

$bc90  20 40 c0   jsr $c040

$bc93  4c 01 bc   jmp $bc01

$bc96  4c 47 bf   jmp $bf47

$bc99  a0 00      ldy #$00

$bc9b  84 7e      sty $7e

$bc9d  ad 04 02   lda $0204

$bca0  38         sec

$bca1  e5 94      sbc $94

$bca3  a6 91      ldx $91

$bca5  ca         dex

$bca6  f0 04      beq $bcac

$bca8  0a         asl a

$bca9  4c a5 bc   jmp $bca5

$bcac  18         clc

$bcad  65 8c      adc $8c

$bcaf  85 7f      sta $7f

$bcb1  60         rts

$bcb2  ad 02 02   lda $0202

$bcb5  29 01      and #$01

$bcb7  d0 2e      bne $bce7

$bcb9  a2 00      ldx #$00

$bcbb  86 80      stx $80

$bcbd  a9 c0      lda #$c0

$bcbf  20 b0 bf   jsr $bfb0

$bcc2  08         php

$bcc3  58         cli

$bcc4  a9 80      lda #$80

$bcc6  85 81      sta $81

$bcc8  20 f1 be   jsr $bef1

$bccb  20 03 8f   jsr $8f03

$bcce  06 81      asl $81

$bcd0  28         plp

$bcd1  a5 7c      lda $7c

$bcd3  29 10      and #$10

$bcd5  4a         lsr a

$bcd6  4a         lsr a

$bcd7  4a         lsr a

$bcd8  4a         lsr a

$bcd9  9d ce 01   sta $01ce,x

$bcdc  a9 9c      lda #$9c

$bcde  20 9d 95   jsr $959d

$bce1  a9 b0      lda #$b0

$bce3  20 b0 bf   jsr $bfb0

$bce6  2c a9 4f   bit $4fa9

$bce9  20 fc ba   jsr $bafc

$bcec  a9 01      lda #$01

$bcee  8d ef 01   sta $01ef

$bcf1  85 94      sta $94

$bcf3  a6 22      ldx $22

$bcf5  bd 06 bd   lda $bd06,x

$bcf8  f0 08      beq $bd02

$bcfa  85 92      sta $92

$bcfc  85 93      sta $93

$bcfe  8d f0 01   sta $01f0

$bd01  60         rts

$bd02  a9 0e      lda #$0e

$bd04  d0 e3      bne $bce9

;

$bd06  .byte $00,$10,$0a,$05

;

$bd0a  a9         lda #$4f

$bd0c  20 66 bf   jsr $bf66

$bd0f  4c 02 bb   jmp $bb02

$bd12  ad 02 02   lda $0202

$bd15  29 01      and #$01

$bd17  d0 f1      bne $bd0a

$bd19  ad 02 02   lda $0202

$bd1c  10 40      bpl $bd5e

$bd1e  a5 29      lda $29

$bd20  38         sec

$bd21  e9 03      sbc #$03

$bd23  a8         tay

$bd24  f0 56      beq $bd7c

$bd26  ad 03 02   lda $0203

$bd29  85 91      sta $91

$bd2b  88         dey

$bd2c  f0 52      beq $bd80

$bd2e  88         dey

$bd2f  f0 54      beq $bd85

$bd31  88         dey

$bd32  f0 59      beq $bd8d

$bd34  88         dey

$bd35  f0 5b      beq $bd92

$bd37  88         dey

$bd38  f0 5d      beq $bd97

$bd3a  ad 08 02   lda $0208

$bd3d  85 94      sta $94

$bd3f  88         dey

$bd40  f0 59      beq $bd9b

$bd42  ad 09 02   lda $0209

$bd45  85 9a      sta $9a

$bd47  4c a2 bd   jmp $bda2

;

$bd4a  .text "N0:COPYRIGHT CBM,86"

;

$bd5d  .byte $0d

;

$bd5e  a0 13      ldy #$13

$bd60  b9 4a bd   lda $bd4a,y

$bd63  99 00 02   sta $0200,y

$bd66  88         dey

$bd67  10 f7      bpl $bd60

$bd69  a9 14      lda #$14

$bd6b  85 29      sta $29

$bd6d  a9 11      lda #$11

$bd6f  8d 92 02   sta $0292

$bd72  a9 01      lda #$01

$bd74  8d 91 02   sta $0291

$bd77  a2 00      ldx #$00

$bd79  4c 2a ff   jmp $ff2a

$bd7c  a9 02      lda #$02

$bd7e  85 91      sta $91

$bd80  a9 4f      lda #$4f

$bd82  8d 04 02   sta $0204

$bd85  a6 91      ldx $91

$bd87  bd 06 bd   lda $bd06,x

$bd8a  8d 05 02   sta $0205

$bd8d  a9 00      lda #$00

$bd8f  8d 06 02   sta $0206

$bd92  a9 e5      lda #$e5

$bd94  8d 07 02   sta $0207

$bd97  a9 01      lda #$01

$bd99  85 94      sta $94

$bd9b  a6 91      ldx $91

$bd9d  bd f8 bd   lda $bdf8,x

$bda0  85 9a      sta $9a

$bda2  a5 90      lda $90

$bda4  48         pha

$bda5  a5 9b      lda $9b

$bda7  48         pha

$bda8  a5 8f      lda $8f

$bdaa  48         pha

$bdab  ad 04 02   lda $0204

$bdae  85 8f      sta $8f

$bdb0  ad 05 02   lda $0205

$bdb3  85 92      sta $92

$bdb5  18         clc

$bdb6  65 94      adc $94

$bdb8  38         sec

$bdb9  e9 01      sbc #$01

$bdbb  85 93      sta $93

$bdbd  8d f0 01   sta $01f0

$bdc0  ac 06 02   ldy $0206

$bdc3  c8         iny

$bdc4  84 90      sty $90

$bdc6  ad 07 02   lda $0207

$bdc9  85 9b      sta $9b

$bdcb  a5 90      lda $90

$bdcd  85 4d      sta $4d

$bdcf  a9 00      lda #$00

$bdd1  85 4e      sta $4e

$bdd3  20 88 95   jsr $9588

$bdd6  a9 c0      lda #$c0

$bdd8  20 9d 95   jsr $959d

$bddb  a9 f0      lda #$f0

$bddd  20 9d 95   jsr $959d

$bde0  c9 02      cmp #$02

$bde2  b0 03      bcs $bde7

$bde4  a9 00      lda #$00

$bde6  2c a9 06   bit $06a9

$bde9  20 66 bf   jsr $bf66

$bdec  68         pla

$bded  85 8f      sta $8f

$bdef  68         pla

$bdf0  85 9b      sta $9b

$bdf2  68         pla

$bdf3  85 90      sta $90

$bdf5  4c 02 bb   jmp $bb02

;

$bdf8  .byte $0e,$16,$26,$44

;

$bdfc  a9 0e      lda #$0e

$bdfe  20 66 bf   jsr $bf66

$be01  a9 31      lda #$31

$be03  4c 7c 80   jmp $807c

$be06  20 b2 bc   jsr $bcb2

$be09  a2 00      ldx #$00

$be0b  86 3d      stx $3d

$be0d  a9 c0      lda #$c0

$be0f  20 f4 db   jsr $dbf4

$be12  c9 02      cmp #$02

$be14  b0 59      bcs $be6f

$be16  a5 1f      lda $1f

$be18  85 8e      sta $8e

$be1a  24 7c      bit $7c

$be1c  10 0f      bpl $be2d

$be1e  ad 03 02   lda $0203

$be21  8d bc 01   sta $01bc

$be24  a9 8c      lda #$8c

$be26  20 9d 95   jsr $959d

$be29  c9 02      cmp #$02

$be2b  b0 42      bcs $be6f

$be2d  a5 7c      lda $7c

$be2f  29 10      and #$10

$be31  4a         lsr a

$be32  4a         lsr a

$be33  4a         lsr a

$be34  4a         lsr a

$be35  9d ce 01   sta $01ce,x

$be38  a9 9c      lda #$9c

$be3a  20 9d 95   jsr $959d

$be3d  a9 b0      lda #$b0

$be3f  20 9d 95   jsr $959d

$be42  c9 02      cmp #$02

$be44  b0 29      bcs $be6f

$be46  a5 21      lda $21

$be48  85 3e      sta $3e

$be4a  a2 00      ldx #$00

$be4c  a9 b0      lda #$b0

$be4e  20 9d 95   jsr $959d

$be51  c9 02      cmp #$02

$be53  b0 1a      bcs $be6f

$be55  a5 21      lda $21

$be57  a4 3d      ldy $3d

$be59  99 0b 02   sta $020b,y

$be5c  e6 3d      inc $3d

$be5e  c0 1f      cpy #$1f

$be60  b0 0b      bcs $be6d

$be62  c5 3e      cmp $3e

$be64  d0 e4      bne $be4a

$be66  a5 3d      lda $3d

$be68  85 92      sta $92

$be6a  a9 00      lda #$00

$be6c  2c a9 02   bit $02a9

$be6f  20 66 bf   jsr $bf66

$be72  c9 02      cmp #$02

$be74  90 03      bcc $be79

$be76  4c fc ba   jmp $bafc

$be79  20 97 c0   jsr $c097

$be7c  20 d4 ac   jsr $acd4

$be7f  ad ef 01   lda $01ef

$be82  85 94      sta $94

$be84  ad f0 01   lda $01f0

$be87  85 93      sta $93

$be89  20 ab bf   jsr $bfab

$be8c  a5 92      lda $92

$be8e  20 86 bf   jsr $bf86

$be91  a5 1f      lda $1f

$be93  20 86 bf   jsr $bf86

$be96  ad ef 01   lda $01ef

$be99  20 86 bf   jsr $bf86

$be9c  ad f0 01   lda $01f0

$be9f  20 86 bf   jsr $bf86

$bea2  a9 01      lda #$01

$bea4  20 86 bf   jsr $bf86

$bea7  a9 20      lda #$20

$bea9  24 7c      bit $7c

$beab  f0 0d      beq $beba

$bead  a0 00      ldy #$00

$beaf  b9 0b 02   lda $020b,y

$beb2  20 86 bf   jsr $bf86

$beb5  c8         iny

$beb6  c4 92      cpy $92

$beb8  d0 f5      bne $beaf

$beba  60         rts

$bebb  24 7c      bit $7c

$bebd  10 09      bpl $bec8

$bebf  20 d4 ac   jsr $acd4

$bec2  20 ab bf   jsr $bfab

$bec5  4c bb ac   jmp $acbb

$bec8  ad 03 02   lda $0203

$becb  85 80      sta $80

$becd  a9 20      lda #$20

$becf  24 7c      bit $7c

$bed1  f0 0a      beq $bedd

$bed3  ad 04 02   lda $0204

$bed6  85 8a      sta $8a

$bed8  ad 05 02   lda $0205

$bedb  85 89      sta $89

$bedd  24 7c      bit $7c

$bedf  50 10      bvc $bef1

$bee1  08         php

$bee2  58         cli

$bee3  a9 80      lda #$80

$bee5  85 81      sta $81

$bee7  20 69 ff   jsr $ff69

$beea  20 03 8f   jsr $8f03

$beed  06 81      asl $81

$beef  28         plp

$bef0  60         rts

$bef1  a9 01      lda #$01

$bef3  85 25      sta $25

$bef5  4c 69 ff   jmp $ff69

$bef8  a2 0e      ldx #$0e

$befa  20 66 bf   jsr $bf66

$befd  a9 31      lda #$31

$beff  4c 7c 80   jmp $807c

$bf02  ad 02 02   lda $0202

$bf05  a8         tay

$bf06  29 01      and #$01

$bf08  d0 32      bne $bf3c

$bf0a  a2 00      ldx #$00

$bf0c  98         tya

$bf0d  10 15      bpl $bf24

$bf0f  29 40      and #$40

$bf11  4a         lsr a

$bf12  4a         lsr a

$bf13  4a         lsr a

$bf14  4a         lsr a

$bf15  4a         lsr a

$bf16  4a         lsr a

$bf17  29 01      and #$01

$bf19  85 97      sta $97

$bf1b  ad 03 02   lda $0203

$bf1e  85 95      sta $95

$bf20  a9 80      lda #$80

$bf22  85 87      sta $87

$bf24  a5 87      lda $87

$bf26  10 17      bpl $bf3f

$bf28  a9 b6      lda #$b6

$bf2a  20 9d 95   jsr $959d

$bf2d  8d fa 01   sta $01fa

$bf30  d0 0f      bne $bf41

$bf32  a9 80      lda #$80

$bf34  85 81      sta $81

$bf36  20 6c ff   jsr $ff6c

$bf39  06 81      asl $81

$bf3b  2c a9 4f   bit $4fa9

$bf3e  2c a9 00   bit $00a9

$bf41  4c fc ba   jmp $bafc

$bf44  ce 06 02   dec $0206

$bf47  a5 29      lda $29

$bf49  c9 07      cmp #$07

$bf4b  90 0c      bcc $bf59

$bf4d  a2 00      ldx #$00

$bf4f  ad 06 02   lda $0206

$bf52  95 0b      sta $0b,x

$bf54  a9 a8      lda #$a8

$bf56  4c 9d 95   jmp $959d

$bf59  60         rts

$bf5a  20 d4 ac   jsr $acd4

$bf5d  20 ab bf   jsr $bfab

$bf60  20 29 c0   jsr $c029

$bf63  4c bb ac   jmp $acbb

$bf66  8d ea 01   sta $01ea

$bf69  a6 91      ldx $91

$bf6b  a5 80      lda $80

$bf6d  29 80      and #$80

$bf6f  0d ea 01   ora $01ea

$bf72  1d 7f bf   ora $bf7f,x

$bf75  25 89      and $89

$bf77  05 8a      ora $8a

$bf79  85 80      sta $80

$bf7b  ad ea 01   lda $01ea

$bf7e  60         rts

;

$bf7f  .byte $00,$10,$20,$30

;

$bf83  4c 15 ad   jmp $ad15

$bf86  48         pha

$bf87  ad 01 40   lda $4001

$bf8a  cd 01 40   cmp $4001

$bf8d  d0 f8      bne $bf87

$bf8f  29 ff      and #$ff

$bf91  30 f0      bmi $bf83

$bf93  45 76      eor $76

$bf95  29 04      and #$04

$bf97  f0 ee      beq $bf87

$bf99  68         pla

$bf9a  8d 0c 40   sta $400c

$bf9d  a5 76      lda $76

$bf9f  49 04      eor #$04

$bfa1  85 76      sta $76

$bfa3  a9 08      lda #$08

$bfa5  2c 0d 40   bit $400d

$bfa8  f0 fb      beq $bfa5

$bfaa  60         rts

$bfab  a5 80      lda $80

$bfad  4c 86 bf   jmp $bf86

$bfb0  48         pha

$bfb1  a9 40      lda #$40

$bfb3  8d a8 02   sta $02a8

$bfb6  68         pla

$bfb7  08         php

$bfb8  58         cli

$bfb9  85 28      sta $28

$bfbb  20 9d 95   jsr $959d

$bfbe  c9 02      cmp #$02

$bfc0  90 03      bcc $bfc5

$bfc2  20 ce bf   jsr $bfce

$bfc5  a9 00      lda #$00

$bfc7  8d a8 02   sta $02a8

$bfca  b5 02      lda $02,x

$bfcc  28         plp

$bfcd  60         rts

$bfce  ad a8 02   lda $02a8

$bfd1  09 80      ora #$80

$bfd3  8d a8 02   sta $02a8

$bfd6  86 6c      stx $6c

$bfd8  a5 28      lda $28

$bfda  9d 72 02   sta $0272,x

$bfdd  20 9d 95   jsr $959d

$bfe0  4c ed 94   jmp $94ed

$bfe3  a9 a2      lda #$a2

$bfe5  9d 72 02   sta $0272,x

$bfe8  a5 95      lda $95

$bfea  85 4d      sta $4d

$bfec  a5 94      lda $94

$bfee  85 4e      sta $4e

$bff0  86 6c      stx $6c

$bff2  8a         txa

$bff3  20 88 95   jsr $9588

$bff6  a6 6c      ldx $6c

$bff8  a5 30      lda $30

$bffa  29 3f      and #$3f

$bffc  85 28      sta $28

$bffe  20 1d c0   jsr $c01d

$c001  90 15      bcc $c018

$c003  20 19 c0   jsr $c019

$c006  90 10      bcc $c018

$c008  c6 28      dec $28

$c00a  d0 f7      bne $c003

$c00c  24 81      bit $81

$c00e  30 08      bmi $c018

$c010  2c a8 02   bit $02a8

$c013  30 03      bmi $c018

$c015  4c 2f 95   jmp $952f

$c018  60         rts

$c019  a9 80      lda #$80

$c01b  85 87      sta $87

$c01d  a5 4d      lda $4d

$c01f  85 95      sta $95

$c021  a0 01      ldy #$01

$c023  4c 69 95   jmp $9569

$c026  20 15 ad   jsr $ad15

$c029  ad 01 40   lda $4001

$c02c  cd 01 40   cmp $4001

$c02f  d0 f8      bne $c029

$c031  29 ff      and #$ff

$c033  30 f1      bmi $c026

$c035  45 76      eor $76

$c037  29 04      and #$04

$c039  f0 ee      beq $c029

$c03b  45 76      eor $76

$c03d  85 76      sta $76

$c03f  60         rts

$c040  38         sec

$c041  ad ef 01   lda $01ef

$c044  f0 03      beq $c049

$c046  e9 02      sbc #$02

$c048  2c e9 01   bit $01e9

$c04b  85 3d      sta $3d

$c04d  ad 04 02   lda $0204

$c050  cd f0 01   cmp $01f0

$c053  f0 06      beq $c05b

$c055  18         clc

$c056  69 01      adc #$01

$c058  4c 6e c0   jmp $c06e

$c05b  a5 7c      lda $7c

$c05d  a8         tay

$c05e  49 10      eor #$10

$c060  85 7c      sta $7c

$c062  98         tya

$c063  29 10      and #$10

$c065  f0 03      beq $c06a

$c067  ee 03 02   inc $0203

$c06a  a5 94      lda $94

$c06c  b0 08      bcs $c076

$c06e  90 06      bcc $c076

$c070  ed f0 01   sbc $01f0

$c073  18         clc

$c074  65 3d      adc $3d

$c076  8d 04 02   sta $0204

$c079  60         rts

$c07a  a5 75      lda $75

$c07c  38         sec

$c07d  e9 01      sbc #$01

$c07f  85 3d      sta $3d

$c081  ad 04 02   lda $0204

$c084  c5 3d      cmp $3d

$c086  f0 06      beq $c08e

$c088  18         clc

$c089  69 01      adc #$01

$c08b  4c 93 c0   jmp $c093

$c08e  ee 03 02   inc $0203

$c091  a9 00      lda #$00

$c093  8d 04 02   sta $0204

$c096  60         rts

$c097  a4 92      ldy $92

$c099  88         dey

$c09a  a9 ff      lda #$ff

$c09c  d9 0b 02   cmp $020b,y

$c09f  90 03      bcc $c0a4

$c0a1  b9 0b 02   lda $020b,y

$c0a4  88         dey

$c0a5  10 f5      bpl $c09c

$c0a7  8d ef 01   sta $01ef

$c0aa  a4 92      ldy $92

$c0ac  88         dey

$c0ad  a9 00      lda #$00

$c0af  d9 0b 02   cmp $020b,y

$c0b2  b0 03      bcs $c0b7

$c0b4  b9 0b 02   lda $020b,y

$c0b7  88         dey

$c0b8  10 f5      bpl $c0af

$c0ba  8d f0 01   sta $01f0

$c0bd  60         rts

$c0be  ba         tsx

$c0bf  86 2c      stx $2c

$c0c1  a9 80      lda #$80

$c0c3  85 83      sta $83

$c0c5  a0 08      ldy #$08

$c0c7  b9 02 00   lda $0002,y

$c0ca  30 12      bmi $c0de

$c0cc  b9 9f 00   lda $009f,y

$c0cf  29 7f      and #$7f

$c0d1  99 9f 00   sta $009f,y

$c0d4  88         dey

$c0d5  10 f0      bpl $c0c7

$c0d7  a4 83      ldy $83

$c0d9  10 29      bpl $c104

$c0db  4c 00 ce   jmp $ce00

$c0de  84 83      sty $83

$c0e0  aa         tax

$c0e1  98         tya

$c0e2  0a         asl a

$c0e3  85 99      sta $99

$c0e5  bd e7 c1   lda $c1e7,x

$c0e8  85 84      sta $84

$c0ea  aa         tax

$c0eb  bd 63 c1   lda $c163,x

$c0ee  85 85      sta $85

$c0f0  bd 84 c1   lda $c184,x

$c0f3  85 86      sta $86

$c0f5  20 3c ff   jsr $ff3c

$c0f8  06 85      asl $85

$c0fa  90 03      bcc $c0ff

$c0fc  20 51 cf   jsr $cf51

$c0ff  a4 83      ldy $83

$c101  4c d4 c0   jmp $c0d4

$c104  06 85      asl $85

$c106  90 03      bcc $c10b

$c108  20 63 cd   jsr $cd63

$c10b  06 85      asl $85

$c10d  90 03      bcc $c112

$c10f  20 7b cd   jsr $cd7b

$c112  06 85      asl $85

$c114  90 03      bcc $c119

$c116  20 a6 cf   jsr $cfa6

$c119  06 85      asl $85

$c11b  90 14      bcc $c131

$c11d  a5 87      lda $87

$c11f  10 10      bpl $c131

$c121  a5 95      lda $95

$c123  85 88      sta $88

$c125  c5 27      cmp $27

$c127  d0 17      bne $c140

$c129  a5 97      lda $97

$c12b  20 c0 cf   jsr $cfc0

$c12e  4c 00 c6   jmp $c600

$c131  06 85      asl $85

$c133  90 14      bcc $c149

$c135  a4 99      ldy $99

$c137  b9 bc 01   lda $01bc,y

$c13a  85 88      sta $88

$c13c  c5 27      cmp $27

$c13e  f0 09      beq $c149

$c140  a5 26      lda $26

$c142  09 40      ora #$40

$c144  85 26      sta $26

$c146  4c 00 ce   jmp $ce00

$c149  06 85      asl $85

$c14b  90 05      bcc $c152

$c14d  a5 96      lda $96

$c14f  20 c0 cf   jsr $cfc0

$c152  a5 84      lda $84

$c154  0a         asl a

$c155  aa         tax

$c156  bd a5 c1   lda $c1a5,x

$c159  85 48      sta $48

$c15b  bd a6 c1   lda $c1a6,x

$c15e  85 49      sta $49

$c160  4c 30 dd   jmp $dd30

;

$c163  .byte $ff,$00,$30,$00,$20,$00,$32,$30

$c16b  .byte $ff,$30,$00,$00,$00,$00,$00,$00

$c173  .byte $bb,$3c,$3b,$3b,$3f,$30,$bb,$30

$c17b  .byte $00,$3a,$b2,$ff,$ff,$7f,$7f,$30

$c183  .byte $00,$00,$80,$80,$80,$80,$80,$80

$c18b  .byte $00,$20,$80,$80,$80,$80,$80,$80

$c193  .byte $80,$00,$00,$40,$60,$00,$00,$00

$c19b  .byte $00,$00,$00,$00,$40,$60,$40,$60

$c1a3  .byte $80,$80

;

$c1a5  .byte $00,$c9,$e7,$c2,$90,$c3,$93,$c3

$c1ad  .byte $96,$c3,$a9,$c3,$af,$c3,$bb,$c3

$c1b5  .byte $00,$c9,$d7,$c6,$46,$c5,$4f,$c5

$c1bd  .byte $58,$c5,$61,$c5,$6a,$c5,$89,$c5

$c1c5  .byte $e1,$c9,$ac,$c5,$00,$c8,$00,$c7

$c1cd  .byte $d7,$c6,$09,$cb,$e4,$ca,$0f,$cb

$c1d5  .byte $26,$cb,$26,$cb,$35,$cb,$00,$c9

$c1dd  .byte $00,$c9,$00,$c9,$00,$c9,$76,$cb

$c1e5  .byte $85,$cb

;

$c1e7  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c1ef  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c1f7  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c1ff  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c207  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c20f  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c217  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c21f  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c227  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c22f  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c237  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c23f  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c247  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c24f  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c257  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c25f  .byte $20,$20,$20,$20,$20,$20,$20,$20

;

$c267  .byte $00,$20,$01,$20,$02,$20,$03,$20

$c26f  .byte $04,$20,$05,$20,$06,$20,$07,$20

$c277  .byte $08,$20,$09,$20,$0a,$20,$0b,$20

$c27f  .byte $0c,$20,$0d,$20,$0e,$20,$0f,$20

$c287  .byte $10,$20,$11,$20,$12,$20,$13,$20

$c28f  .byte $14,$20,$1b,$20,$1c,$20,$20,$20

$c297  .byte $15,$20,$1d,$20,$1e,$20,$1f,$20

$c29f  .byte $16,$20,$20,$20,$20,$20,$20,$20

$c2a7  .byte $17,$20,$20,$20,$20,$20,$20,$20

$c2af  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c2b7  .byte $18,$20,$20,$20,$20,$20,$20,$20

$c2bf  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c2c7  .byte $19,$20,$20,$20,$20,$20,$20,$20

$c2cf  .byte $20,$20,$20,$20,$20,$20,$20,$20

$c2d7  .byte $1a,$20,$20,$20,$20,$20,$20,$20

$c2df  .byte $20,$20,$20,$20,$20,$20,$20,$20

;

$c2e7  a0 ff      ldy #$ff

$c2e9  20 d5 cb   jsr $cbd5

$c2ec  a0 ff      ldy #$ff

$c2ee  20 d5 cb   jsr $cbd5

$c2f1  a9 80      lda #$80

$c2f3  85 95      sta $95

$c2f5  a9 00      lda #$00

$c2f7  85 87      sta $87

$c2f9  20 cf b0   jsr $b0cf

$c2fc  20 b3 b0   jsr $b0b3

$c2ff  a9 4e      lda #$4e

$c301  8d d7 01   sta $01d7

$c304  a9 20      lda #$20

$c306  8d d8 01   sta $01d8

$c309  20 9f cb   jsr $cb9f

$c30c  a9 08      lda #$08

$c30e  8d da 01   sta $01da

$c311  a9 18      lda #$18

$c313  8d db 01   sta $01db

$c316  a9 28      lda #$28

$c318  8d dc 01   sta $01dc

$c31b  a9 48      lda #$48

$c31d  8d dd 01   sta $01dd

$c320  a9 68      lda #$68

$c322  8d de 01   sta $01de

$c325  a9 88      lda #$88

$c327  8d df 01   sta $01df

$c32a  a9 aa      lda #$aa

$c32c  8d e0 01   sta $01e0

$c32f  a9 c8      lda #$c8

$c331  8d e1 01   sta $01e1

$c334  a9 e8      lda #$e8

$c336  8d e2 01   sta $01e2

$c339  a9 fa      lda #$fa

$c33b  8d e3 01   sta $01e3

$c33e  a9 d0      lda #$d0

$c340  8d e4 01   sta $01e4

$c343  a9 12      lda #$12

$c345  85 98      sta $98

$c347  a0 ff      ldy #$ff

$c349  8c 01 60   sty $6001

$c34c  8c 02 60   sty $6002

$c34f  8c 03 60   sty $6003

$c352  20 34 ad   jsr $ad34

$c355  cc 01 60   cpy $6001

$c358  d0 2e      bne $c388

$c35a  cc 02 60   cpy $6002

$c35d  d0 29      bne $c388

$c35f  cc 03 60   cpy $6003

$c362  d0 24      bne $c388

$c364  88         dey

$c365  d0 e2      bne $c349

$c367  20 d1 cf   jsr $cfd1

$c36a  a9 00      lda #$00

$c36c  8d 08 40   sta $4008

$c36f  20 2f ad   jsr $ad2f

$c372  ad 08 40   lda $4008

$c375  d0 0f      bne $c386

$c377  ee da 01   inc $01da

$c37a  ee db 01   inc $01db

$c37d  ee dc 01   inc $01dc

$c380  ee dd 01   inc $01dd

$c383  ee de 01   inc $01de

$c386  d0 03      bne $c38b

$c388  a9 0d      lda #$0d

$c38a  2c a9 00   bit $00a9

$c38d  4c cc cd   jmp $cdcc

$c390  4c 99 c3   jmp $c399

$c393  4c 8b c3   jmp $c38b

$c396  20 b1 cb   jsr $cbb1

$c399  a9 00      lda #$00

$c39b  a4 83      ldy $83

$c39d  99 02 00   sta $0002,y

$c3a0  a9 80      lda #$80

$c3a2  85 83      sta $83

$c3a4  a0 08      ldy #$08

$c3a6  4c fa cd   jmp $cdfa

$c3a9  20 ba cb   jsr $cbba

$c3ac  4c 99 c3   jmp $c399

$c3af  a5 88      lda $88

$c3b1  c5 27      cmp $27

$c3b3  f0 03      beq $c3b8

$c3b5  4c 00 ce   jmp $ce00

$c3b8  4c 8b c3   jmp $c38b

$c3bb  20 b7 cf   jsr $cfb7

$c3be  20 d6 c3   jsr $c3d6

$c3c1  b0 0e      bcs $c3d1

$c3c3  20 3f cd   jsr $cd3f

$c3c6  d0 0b      bne $c3d3

$c3c8  20 b7 cf   jsr $cfb7

$c3cb  20 00 ca   jsr $ca00

$c3ce  a9 01      lda #$01

$c3d0  2c a9 06   bit $06a9

$c3d3  4c cc cd   jmp $cdcc

$c3d6  a5 88      lda $88

$c3d8  8d 01 60   sta $6001

$c3db  20 e3 cf   jsr $cfe3

$c3de  a5 94      lda $94

$c3e0  85 39      sta $39

$c3e2  a5 92      lda $92

$c3e4  85 3a      sta $3a

$c3e6  ad e3 01   lda $01e3

$c3e9  20 f4 cb   jsr $cbf4

$c3ec  a2 20      ldx #$20

$c3ee  ad 00 60   lda $6000

$c3f1  29 03      and #$03

$c3f3  4a         lsr a

$c3f4  90 26      bcc $c41c

$c3f6  f0 f6      beq $c3ee

$c3f8  a9 4e      lda #$4e

$c3fa  8d 03 60   sta $6003

$c3fd  ca         dex

$c3fe  d0 ee      bne $c3ee

$c400  a2 0c      ldx #$0c

$c402  ad 00 60   lda $6000

$c405  29 03      and #$03

$c407  4a         lsr a

$c408  90 12      bcc $c41c

$c40a  f0 f6      beq $c402

$c40c  a9 00      lda #$00

$c40e  8d 03 60   sta $6003

$c411  ca         dex

$c412  d0 ee      bne $c402

$c414  a2 03      ldx #$03

$c416  ad 00 60   lda $6000

$c419  29 03      and #$03

$c41b  4a         lsr a

$c41c  90 51      bcc $c46f

$c41e  f0 f6      beq $c416

$c420  a9 f5      lda #$f5

$c422  8d 03 60   sta $6003

$c425  ca         dex

$c426  d0 ee      bne $c416

$c428  ea         nop

$c429  ad 00 60   lda $6000

$c42c  29 03      and #$03

$c42e  4a         lsr a

$c42f  90 3e      bcc $c46f

$c431  f0 f6      beq $c429

$c433  a9 fe      lda #$fe

$c435  8d 03 60   sta $6003

$c438  ea         nop

$c439  ad 00 60   lda $6000

$c43c  29 03      and #$03

$c43e  4a         lsr a

$c43f  90 2e      bcc $c46f

$c441  f0 f6      beq $c439

$c443  ad 01 60   lda $6001

$c446  8d 03 60   sta $6003

$c449  ad 00 60   lda $6000

$c44c  29 03      and #$03

$c44e  4a         lsr a

$c44f  90 1e      bcc $c46f

$c451  f0 f6      beq $c449

$c453  a5 96      lda $96

$c455  8d 03 60   sta $6003

$c458  ea         nop

$c459  ad 00 60   lda $6000

$c45c  29 03      and #$03

$c45e  4a         lsr a

$c45f  90 0e      bcc $c46f

$c461  f0 f6      beq $c459

$c463  a5 39      lda $39

$c465  8d 03 60   sta $6003

$c468  ea         nop

$c469  ad 00 60   lda $6000

$c46c  29 03      and #$03

$c46e  4a         lsr a

$c46f  90 33      bcc $c4a4

$c471  f0 f6      beq $c469

$c473  a5 91      lda $91

$c475  8d 03 60   sta $6003

$c478  ea         nop

$c479  ad 00 60   lda $6000

$c47c  29 03      and #$03

$c47e  4a         lsr a

$c47f  90 23      bcc $c4a4

$c481  f0 f6      beq $c479

$c483  a9 f7      lda #$f7

$c485  8d 03 60   sta $6003

$c488  a2 16      ldx #$16

$c48a  ad 00 60   lda $6000

$c48d  29 03      and #$03

$c48f  4a         lsr a

$c490  90 12      bcc $c4a4

$c492  f0 f6      beq $c48a

$c494  a9 4e      lda #$4e

$c496  8d 03 60   sta $6003

$c499  ca         dex

$c49a  d0 ee      bne $c48a

$c49c  a2 0c      ldx #$0c

$c49e  ad 00 60   lda $6000

$c4a1  29 03      and #$03

$c4a3  4a         lsr a

$c4a4  90 3b      bcc $c4e1

$c4a6  f0 f6      beq $c49e

$c4a8  a9 00      lda #$00

$c4aa  8d 03 60   sta $6003

$c4ad  ca         dex

$c4ae  d0 ee      bne $c49e

$c4b0  a2 03      ldx #$03

$c4b2  ad 00 60   lda $6000

$c4b5  29 03      and #$03

$c4b7  4a         lsr a

$c4b8  90 27      bcc $c4e1

$c4ba  f0 f6      beq $c4b2

$c4bc  a9 f5      lda #$f5

$c4be  8d 03 60   sta $6003

$c4c1  ca         dex

$c4c2  d0 ee      bne $c4b2

$c4c4  ea         nop

$c4c5  ad 00 60   lda $6000

$c4c8  29 03      and #$03

$c4ca  4a         lsr a

$c4cb  90 14      bcc $c4e1

$c4cd  f0 f6      beq $c4c5

$c4cf  a9 fb      lda #$fb

$c4d1  8d 03 60   sta $6003

$c4d4  a4 91      ldy $91

$c4d6  c0 03      cpy #$03

$c4d8  d0 01      bne $c4db

$c4da  c8         iny

$c4db  ad 00 60   lda $6000

$c4de  29 03      and #$03

$c4e0  4a         lsr a

$c4e1  90 61      bcc $c544

$c4e3  f0 f6      beq $c4db

$c4e5  a5 9b      lda $9b

$c4e7  c9 f5      cmp #$f5

$c4e9  d0 08      bne $c4f3

$c4eb  84 82      sty $82

$c4ed  a0 00      ldy #$00

$c4ef  b1 4a      lda ($4a),y

$c4f1  a4 82      ldy $82

$c4f3  8d 03 60   sta $6003

$c4f6  e6 4a      inc $4a

$c4f8  d0 e1      bne $c4db

$c4fa  e6 4b      inc $4b

$c4fc  88         dey

$c4fd  d0 dc      bne $c4db

$c4ff  ad 00 60   lda $6000

$c502  29 03      and #$03

$c504  4a         lsr a

$c505  90 3d      bcc $c544

$c507  f0 f6      beq $c4ff

$c509  a9 f7      lda #$f7

$c50b  8d 03 60   sta $6003

$c50e  a6 9a      ldx $9a

$c510  ea         nop

$c511  ad 00 60   lda $6000

$c514  29 03      and #$03

$c516  4a         lsr a

$c517  90 2b      bcc $c544

$c519  f0 f6      beq $c511

$c51b  a9 4e      lda #$4e

$c51d  8d 03 60   sta $6003

$c520  ca         dex

$c521  d0 ee      bne $c511

$c523  c6 3a      dec $3a

$c525  f0 06      beq $c52d

$c527  e6 39      inc $39

$c529  4c 00 c4   jmp $c400

$c52c  ea         nop

$c52d  ad 00 60   lda $6000

$c530  29 03      and #$03

$c532  4a         lsr a

$c533  90 0a      bcc $c53f

$c535  f0 f6      beq $c52d

$c537  18         clc

$c538  a9 4e      lda #$4e

$c53a  8d 03 60   sta $6003

$c53d  d0 ee      bne $c52d

$c53f  20 ec cb   jsr $cbec

$c542  18         clc

$c543  24 38      bit $38

$c545  60         rts

$c546  a5 79      lda $79

$c548  09 40      ora #$40

$c54a  85 79      sta $79

$c54c  4c 99 c3   jmp $c399

$c54f  a5 79      lda $79

$c551  29 bf      and #$bf

$c553  85 79      sta $79

$c555  4c 99 c3   jmp $c399

$c558  a5 79      lda $79

$c55a  09 20      ora #$20

$c55c  85 79      sta $79

$c55e  4c 99 c3   jmp $c399

$c561  a5 79      lda $79

$c563  29 df      and #$df

$c565  85 79      sta $79

$c567  4c 99 c3   jmp $c399

$c56a  a4 83      ldy $83

$c56c  b9 ce 01   lda $01ce,y

$c56f  29 01      and #$01

$c571  85 97      sta $97

$c573  d0 03      bne $c578

$c575  a9 00      lda #$00

$c577  2c a9 01   bit $01a9

$c57a  85 36      sta $36

$c57c  ad 00 40   lda $4000

$c57f  29 fe      and #$fe

$c581  05 36      ora $36

$c583  8d 00 40   sta $4000

$c586  4c 99 c3   jmp $c399

$c589  a4 99      ldy $99

$c58b  b9 0c 00   lda $000c,y

$c58e  85 39      sta $39

$c590  24 39      bit $39

$c592  10 12      bpl $c5a6

$c594  b9 bc 01   lda $01bc,y

$c597  85 95      sta $95

$c599  a4 83      ldy $83

$c59b  b9 ce 01   lda $01ce,y

$c59e  85 97      sta $97

$c5a0  20 a4 ce   jsr $cea4

$c5a3  4c 8b c3   jmp $c38b

$c5a6  20 af ce   jsr $ceaf

$c5a9  4c 8b c3   jmp $c38b

$c5ac  4c 8b c3   jmp $c38b

;

$c5af  .byte $ff

$c5ff  .byte $ff

;

$c600  20 a6 cf   jsr $cfa6

$c603  a5 95      lda $95

$c605  c5 1f      cmp $1f

$c607  f0 03      beq $c60c

$c609  4c 88 cb   jmp $cb88

$c60c  8d 01 60   sta $6001

$c60f  20 e3 cf   jsr $cfe3

$c612  20 b7 cf   jsr $cfb7

$c615  a5 92      lda $92

$c617  85 3a      sta $3a

$c619  a5 21      lda $21

$c61b  aa         tax

$c61c  c5 93      cmp $93

$c61e  08         php

$c61f  d0 06      bne $c627

$c621  a5 94      lda $94

$c623  aa         tax

$c624  38         sec

$c625  e9 01      sbc #$01

$c627  38         sec

$c628  e5 94      sbc $94

$c62a  18         clc

$c62b  69 01      adc #$01

$c62d  a4 91      ldy $91

$c62f  88         dey

$c630  f0 03      beq $c635

$c632  0a         asl a

$c633  90 fa      bcc $c62f

$c635  20 8d cb   jsr $cb8d

$c638  8a         txa

$c639  28         plp

$c63a  f0 05      beq $c641

$c63c  18         clc

$c63d  69 01      adc #$01

$c63f  d0 02      bne $c643

$c641  a5 94      lda $94

$c643  8d 02 60   sta $6002

;

$c646  .byte $ea

$c659  .byte $ea

;

$c65a  ad e0 01   lda $01e0

$c65d  20 f4 cb   jsr $cbf4

$c660  a4 91      ldy $91

$c662  c0 03      cpy #$03

$c664  d0 01      bne $c667

$c666  c8         iny

$c667  ad 00 60   lda $6000

$c66a  29 03      and #$03

$c66c  4a         lsr a

$c66d  90 5d      bcc $c6cc

$c66f  f0 f6      beq $c667

$c671  84 82      sty $82

$c673  a0 00      ldy #$00

$c675  b1 4a      lda ($4a),y

$c677  8d 03 60   sta $6003

$c67a  a4 82      ldy $82

$c67c  e6 4a      inc $4a

$c67e  d0 e7      bne $c667

$c680  e6 4b      inc $4b

$c682  88         dey

$c683  d0 e2      bne $c667

$c685  20 3f cd   jsr $cd3f

$c688  d0 42      bne $c6cc

$c68a  c6 3a      dec $3a

$c68c  f0 3e      beq $c6cc

$c68e  ad 02 60   lda $6002

$c691  ee 02 60   inc $6002

;

$c694  .byte $ea

$c6a7  .byte $ea

;

$c6a8  c5 93      cmp $93

$c6aa  d0 ae      bne $c65a

$c6ac  a5 8c      lda $8c

$c6ae  85 4b      sta $4b

$c6b0  a5 94      lda $94

$c6b2  8d 02 60   sta $6002

;

$c6b5  .byte $ea

$c6c8  .byte $ea

;

$c6c9  4c 5a c6   jmp $c65a

$c6cc  20 3f cd   jsr $cd3f

$c6cf  f0 03      beq $c6d4

$c6d1  4c cc cd   jmp $cdcc

$c6d4  4c e1 c9   jmp $c9e1

$c6d7  20 a6 cf   jsr $cfa6

$c6da  4c 8b c3   jmp $c38b

;

$c6dd  .byte $ff

$c6ff  .byte $ff

;

$c700  20 a6 cf   jsr $cfa6

$c703  a5 88      lda $88

$c705  c5 1f      cmp $1f

$c707  f0 03      beq $c70c

$c709  4c 88 cb   jmp $cb88

$c70c  a6 83      ldx $83

$c70e  b5 0b      lda $0b,x

$c710  8d 01 60   sta $6001

$c713  b5 0c      lda $0c,x

$c715  8d 02 60   sta $6002

$c718  a9 00      lda #$00

$c71a  85 4a      sta $4a

$c71c  a9 03      lda #$03

$c71e  85 4b      sta $4b

;

$c720  .byte $ea

$c732  .byte $ea

;

$c733  ad e0 01   lda $01e0

$c736  20 f4 cb   jsr $cbf4

$c739  a4 91      ldy $91

$c73b  c0 03      cpy #$03

$c73d  d0 02      bne $c741

$c73f  c8         iny

$c740  ea         nop

$c741  ad 00 60   lda $6000

$c744  29 03      and #$03

$c746  4a         lsr a

$c747  90 16      bcc $c75f

$c749  f0 f6      beq $c741

$c74b  84 82      sty $82

$c74d  a0 00      ldy #$00

$c74f  b1 4a      lda ($4a),y

$c751  8d 03 60   sta $6003

$c754  a4 82      ldy $82

$c756  e6 4a      inc $4a

$c758  d0 e7      bne $c741

$c75a  e6 4b      inc $4b

$c75c  88         dey

$c75d  d0 e2      bne $c741

$c75f  20 3f cd   jsr $cd3f

$c762  4c cc cd   jmp $cdcc

;

$c765  .byte $ff

$c7ff  .byte $ff

;

$c800  20 a6 cf   jsr $cfa6

$c803  a5 88      lda $88

$c805  c5 1f      cmp $1f

$c807  f0 03      beq $c80c

$c809  4c 88 cb   jmp $cb88

$c80c  a6 83      ldx $83

$c80e  b5 0b      lda $0b,x

$c810  8d 01 60   sta $6001

$c813  b5 0c      lda $0c,x

$c815  8d 02 60   sta $6002

$c818  a9 00      lda #$00

$c81a  85 4a      sta $4a

$c81c  a9 03      lda #$03

$c81e  85 4b      sta $4b

;

$c820  .byte $ea

$c832  .byte $ea

;

$c833  ad df 01   lda $01df

$c836  20 f4 cb   jsr $cbf4

$c839  a4 91      ldy $91

$c83b  c0 03      cpy #$03

$c83d  d0 02      bne $c841

$c83f  c8         iny

$c840  ea         nop

$c841  ad 00 60   lda $6000

$c844  29 03      and #$03

$c846  4a         lsr a

$c847  90 16      bcc $c85f

$c849  f0 f6      beq $c841

$c84b  84 82      sty $82

$c84d  a0 00      ldy #$00

$c84f  ad 03 60   lda $6003

$c852  91 4a      sta ($4a),y

$c854  a4 82      ldy $82

$c856  e6 4a      inc $4a

$c858  d0 e7      bne $c841

$c85a  e6 4b      inc $4b

$c85c  88         dey

$c85d  d0 e2      bne $c841

$c85f  20 3f cd   jsr $cd3f

$c862  4c cc cd   jmp $cdcc

;

$c865  .byte $ff

$c8ff  .byte $ff

;

$c900  20 a6 cf   jsr $cfa6

$c903  a5 88      lda $88

$c905  c5 1f      cmp $1f

$c907  f0 03      beq $c90c

$c909  4c 88 cb   jmp $cb88

$c90c  8d 01 60   sta $6001

$c90f  20 b7 cf   jsr $cfb7

$c912  a5 96      lda $96

$c914  85 39      sta $39

$c916  a5 92      lda $92

$c918  85 3a      sta $3a

$c91a  a5 21      lda $21

$c91c  aa         tax

$c91d  c5 93      cmp $93

$c91f  08         php

$c920  d0 06      bne $c928

$c922  a5 94      lda $94

$c924  aa         tax

$c925  38         sec

$c926  e9 01      sbc #$01

$c928  38         sec

$c929  e5 94      sbc $94

$c92b  18         clc

$c92c  69 01      adc #$01

$c92e  a4 91      ldy $91

$c930  88         dey

$c931  f0 03      beq $c936

$c933  0a         asl a

$c934  90 fa      bcc $c930

$c936  20 8d cb   jsr $cb8d

$c939  8a         txa

$c93a  28         plp

$c93b  f0 05      beq $c942

$c93d  18         clc

$c93e  69 01      adc #$01

$c940  d0 02      bne $c944

$c942  a5 94      lda $94

$c944  8d 02 60   sta $6002

;

$c947  .byte $ea

$c95a  .byte $ea

;

$c95b  ad df 01   lda $01df

$c95e  20 f4 cb   jsr $cbf4

$c961  a4 91      ldy $91

$c963  c0 03      cpy #$03

$c965  d0 02      bne $c969

$c967  c8         iny

$c968  ea         nop

$c969  ad 00 60   lda $6000

$c96c  29 03      and #$03

$c96e  4a         lsr a

$c96f  90 5d      bcc $c9ce

$c971  f0 f6      beq $c969

$c973  84 82      sty $82

$c975  a0 00      ldy #$00

$c977  ad 03 60   lda $6003

$c97a  91 4a      sta ($4a),y

$c97c  a4 82      ldy $82

$c97e  e6 4a      inc $4a

$c980  d0 e7      bne $c969

$c982  e6 4b      inc $4b

$c984  88         dey

$c985  d0 e2      bne $c969

$c987  20 3f cd   jsr $cd3f

$c98a  d0 42      bne $c9ce

$c98c  c6 3a      dec $3a

$c98e  f0 3e      beq $c9ce

$c990  ad 02 60   lda $6002

$c993  ee 02 60   inc $6002

;

$c996  .byte $ea

$c9a9  .byte $ea

;

$c9aa  c5 93      cmp $93

$c9ac  d0 ad      bne $c95b

$c9ae  a5 8c      lda $8c

$c9b0  85 4b      sta $4b

$c9b2  a5 94      lda $94

$c9b4  8d 02 60   sta $6002

;

$c9b7  .byte $ea

$c9ca  .byte $ea

;

$c9cb  4c 5b c9   jmp $c95b

$c9ce  20 3f cd   jsr $cd3f

$c9d1  d0 0b      bne $c9de

$c9d3  a5 96      lda $96

$c9d5  85 97      sta $97

$c9d7  a5 88      lda $88

$c9d9  85 95      sta $95

$c9db  4c e2 cd   jmp $cde2

$c9de  4c cc cd   jmp $cdcc

$c9e1  24 8d      bit $8d

$c9e3  10 0b      bpl $c9f0

$c9e5  20 dc cb   jsr $cbdc

$c9e8  20 00 ca   jsr $ca00

$c9eb  06 87      asl $87

$c9ed  4c e2 cd   jmp $cde2

$c9f0  20 dc cb   jsr $cbdc

$c9f3  4c eb c9   jmp $c9eb

;

$c9f6  .byte $ff

$c9ff  .byte $ff

;

$ca00  20 a6 cf   jsr $cfa6

$ca03  a5 88      lda $88

$ca05  c5 1f      cmp $1f

$ca07  f0 03      beq $ca0c

$ca09  4c 88 cb   jmp $cb88

$ca0c  8d 01 60   sta $6001

$ca0f  20 b7 cf   jsr $cfb7

$ca12  a5 96      lda $96

$ca14  85 39      sta $39

$ca16  a5 92      lda $92

$ca18  85 3a      sta $3a

$ca1a  a5 21      lda $21

$ca1c  aa         tax

$ca1d  c5 93      cmp $93

$ca1f  08         php

$ca20  d0 06      bne $ca28

$ca22  a5 94      lda $94

$ca24  aa         tax

$ca25  38         sec

$ca26  e9 01      sbc #$01

$ca28  38         sec

$ca29  e5 94      sbc $94

$ca2b  18         clc

$ca2c  69 01      adc #$01

$ca2e  a4 91      ldy $91

$ca30  88         dey

$ca31  f0 03      beq $ca36

$ca33  0a         asl a

$ca34  90 fa      bcc $ca30

$ca36  20 8d cb   jsr $cb8d

$ca39  8a         txa

$ca3a  28         plp

$ca3b  f0 05      beq $ca42

$ca3d  18         clc

$ca3e  69 01      adc #$01

$ca40  d0 02      bne $ca44

$ca42  a5 94      lda $94

$ca44  8d 02 60   sta $6002

;

$ca47  .byte $ea

$ca5a  .byte $ea

;

$ca5b  ad df 01   lda $01df

$ca5e  20 f4 cb   jsr $cbf4

$ca61  a4 91      ldy $91

$ca63  c0 03      cpy #$03

$ca65  d0 02      bne $ca69

$ca67  c8         iny

$ca68  ea         nop

$ca69  ad 00 60   lda $6000

$ca6c  29 03      and #$03

$ca6e  4a         lsr a

$ca6f  90 65      bcc $cad6

$ca71  f0 f6      beq $ca69

$ca73  a5 9b      lda $9b

$ca75  c9 f5      cmp #$f5

$ca77  d0 08      bne $ca81

$ca79  84 82      sty $82

$ca7b  a0 00      ldy #$00

$ca7d  b1 4a      lda ($4a),y

$ca7f  a4 82      ldy $82

$ca81  cd 03 60   cmp $6003

$ca84  d0 56      bne $cadc

$ca86  e6 4a      inc $4a

$ca88  d0 df      bne $ca69

$ca8a  e6 4b      inc $4b

$ca8c  88         dey

$ca8d  d0 da      bne $ca69

$ca8f  20 3f cd   jsr $cd3f

$ca92  d0 47      bne $cadb

$ca94  c6 3a      dec $3a

$ca96  f0 3e      beq $cad6

$ca98  ad 02 60   lda $6002

$ca9b  ee 02 60   inc $6002

;

$ca9e  .byte $ea

$cab1  .byte $ea

;

$cab2  c5 93      cmp $93

$cab4  d0 a5      bne $ca5b

$cab6  a5 8c      lda $8c

$cab8  85 4b      sta $4b

$caba  a5 94      lda $94

$cabc  8d 02 60   sta $6002

;

$cabf  .byte $ea

$cad2  .byte $ea

;

$cad3  4c 5b ca   jmp $ca5b

$cad6  20 3f cd   jsr $cd3f

$cad9  d0 06      bne $cae1

$cadb  60         rts

$cadc  20 d1 cf   jsr $cfd1

$cadf  a9 07      lda #$07

$cae1  4c cc cd   jmp $cdcc

$cae4  20 a6 cf   jsr $cfa6

$cae7  a5 27      lda $27

$cae9  c5 88      cmp $88

$caeb  d0 19      bne $cb06

$caed  a0 3c      ldy #$3c

$caef  84 39      sty $39

$caf1  20 a6 cf   jsr $cfa6

$caf4  a4 99      ldy $99

$caf6  b9 bd 01   lda $01bd,y

$caf9  c5 21      cmp $21

$cafb  f0 0c      beq $cb09

$cafd  c6 39      dec $39

$caff  d0 f0      bne $caf1

$cb01  a9 02      lda #$02

$cb03  4c cc cd   jmp $cdcc

$cb06  4c 00 ce   jmp $ce00

$cb09  20 a6 cf   jsr $cfa6

$cb0c  4c 8b c3   jmp $c38b

$cb0f  ad da 01   lda $01da

$cb12  20 f4 cb   jsr $cbf4

$cb15  20 ec cb   jsr $cbec

$cb18  a5 8e      lda $8e

$cb1a  85 27      sta $27

$cb1c  85 88      sta $88

$cb1e  a4 98      ldy $98

$cb20  20 d5 cb   jsr $cbd5

$cb23  4c 8b c3   jmp $c38b

$cb26  a6 83      ldx $83

$cb28  bd f1 01   lda $01f1,x

$cb2b  85 49      sta $49

$cb2d  a0 00      ldy #$00

$cb2f  84 48      sty $48

$cb31  8a         txa

$cb32  6c 48 00   jmp ($0048)

$cb35  a9 00      lda #$00

$cb37  85 96      sta $96

$cb39  a5 96      lda $96

$cb3b  20 c0 cf   jsr $cfc0

$cb3e  20 b7 cf   jsr $cfb7

$cb41  20 d6 c3   jsr $c3d6

$cb44  20 3f cd   jsr $cd3f

$cb47  d0 1c      bne $cb65

$cb49  20 dc cb   jsr $cbdc

$cb4c  20 b7 cf   jsr $cfb7

$cb4f  20 00 ca   jsr $ca00

$cb52  e6 96      inc $96

$cb54  a5 96      lda $96

$cb56  c9 02      cmp #$02

$cb58  90 df      bcc $cb39

$cb5a  a5 88      lda $88

$cb5c  c5 8f      cmp $8f

$cb5e  d0 08      bne $cb68

$cb60  a9 01      lda #$01

$cb62  2c a9 06   bit $06a9

$cb65  4c cc cd   jmp $cdcc

$cb68  a4 99      ldy $99

$cb6a  b9 bc 01   lda $01bc,y

$cb6d  18         clc

$cb6e  69 01      adc #$01

$cb70  99 bc 01   sta $01bc,y

$cb73  4c fa cd   jmp $cdfa

$cb76  a9 40      lda #$40

$cb78  2c 01 40   bit $4001

$cb7b  d0 03      bne $cb80

$cb7d  a9 08      lda #$08

$cb7f  2c a9 00   bit $00a9

$cb82  4c cc cd   jmp $cdcc

$cb85  a9 0e      lda #$0e

$cb87  2c a9 02   bit $02a9

$cb8a  4c cc cd   jmp $cdcc

$cb8d  18         clc

$cb8e  65 8c      adc $8c

$cb90  85 4b      sta $4b

$cb92  c9 20      cmp #$20

$cb94  b0 01      bcs $cb97

$cb96  60         rts

$cb97  68         pla

$cb98  68         pla

$cb99  20 3f cd   jsr $cd3f

$cb9c  4c 88 cb   jmp $cb88

$cb9f  ad d7 01   lda $01d7

$cba2  8d 07 40   sta $4007

$cba5  ad d8 01   lda $01d8

$cba8  8d 06 40   sta $4006

$cbab  a9 11      lda #$11

$cbad  8d 0f 40   sta $400f

$cbb0  60         rts

$cbb1  ad 00 40   lda $4000

$cbb4  29 fb      and #$fb

$cbb6  8d 00 40   sta $4000

$cbb9  60         rts

$cbba  ad 00 40   lda $4000

$cbbd  09 04      ora #$04

$cbbf  8d 00 40   sta $4000

$cbc2  60         rts

$cbc3  ad 00 40   lda $4000

$cbc6  29 bf      and #$bf

$cbc8  8d 00 40   sta $4000

$cbcb  60         rts

$cbcc  ad 00 40   lda $4000

$cbcf  09 40      ora #$40

$cbd1  8d 00 40   sta $4000

$cbd4  60         rts

$cbd5  20 df cb   jsr $cbdf

$cbd8  88         dey

$cbd9  d0 fa      bne $cbd5

$cbdb  60         rts

$cbdc  a2 03      ldx #$03

$cbde  2c a2 02   bit $02a2

$cbe1  18         clc

$cbe2  a9 6f      lda #$6f

$cbe4  69 01      adc #$01

$cbe6  d0 fc      bne $cbe4

$cbe8  ca         dex

$cbe9  d0 f9      bne $cbe4

$cbeb  60         rts

$cbec  a9 01      lda #$01

$cbee  2c 00 60   bit $6000

$cbf1  d0 fb      bne $cbee

$cbf3  60         rts

$cbf4  ea         nop

$cbf5  8d 00 60   sta $6000

$cbf8  a9 01      lda #$01

$cbfa  2c 00 60   bit $6000

$cbfd  f0 fb      beq $cbfa

$cbff  4c 34 ad   jmp $ad34

;

$cc02  .byte $ff

$ccff  .byte $ff

;

$cd00  a2 05      ldx #$05

$cd02  8a         txa

$cd03  95 1f      sta $1f,x

$cd05  ca         dex

$cd06  10 fa      bpl $cd02

$cd08  20 bc cd   jsr $cdbc

$cd0b  b0 2c      bcs $cd39

$cd0d  ad e1 01   lda $01e1

$cd10  20 f4 cb   jsr $cbf4

$cd13  a2 00      ldx #$00

$cd15  a0 06      ldy #$06

$cd17  ad 00 60   lda $6000

$cd1a  29 03      and #$03

$cd1c  4a         lsr a

$cd1d  90 0b      bcc $cd2a

$cd1f  f0 f6      beq $cd17

$cd21  ad 03 60   lda $6003

$cd24  95 1f      sta $1f,x

$cd26  e8         inx

$cd27  88         dey

$cd28  d0 ed      bne $cd17

$cd2a  20 3f cd   jsr $cd3f

$cd2d  f0 02      beq $cd31

$cd2f  38         sec

$cd30  24 18      bit $18

$cd32  24 8d      bit $8d

$cd34  50 08      bvc $cd3e

$cd36  4c 63 da   jmp $da63

$cd39  a9 03      lda #$03

$cd3b  85 7d      sta $7d

$cd3d  38         sec

$cd3e  60         rts

$cd3f  20 ec cb   jsr $cbec

$cd42  08         php

$cd43  ad 00 60   lda $6000

$cd46  4a         lsr a

$cd47  4a         lsr a

$cd48  4a         lsr a

$cd49  b0 08      bcs $cd53

$cd4b  29 0b      and #$0b

$cd4d  aa         tax

$cd4e  28         plp

$cd4f  bd 5a cd   lda $cd5a,x

$cd52  2c a9 09   bit $09a9

$cd55  85 7d      sta $7d

$cd57  a5 7d      lda $7d

$cd59  60         rts

;

$cd5a  .byte $00,$05,$02,$00

$cd5e  .byte $00,$00,$00,$00

$cd62  .byte $08

;

$cd63  a5 26      lda $26

$cd65  30 13      bmi $cd7a

$cd67  29 30      and #$30

$cd69  d0 0b      bne $cd76

$cd6b  20 b1 cb   jsr $cbb1

$cd6e  ad d9 01   lda $01d9

$cd71  85 2a      sta $2a

$cd73  a9 a0      lda #$a0

$cd75  2c a9 20   bit $20a9

$cd78  85 26      sta $26

$cd7a  60         rts

$cd7b  a5 26      lda $26

$cd7d  10 04      bpl $cd83

$cd7f  a5 2a      lda $2a

$cd81  d0 34      bne $cdb7

$cd83  ad 00 40   lda $4000

$cd86  29 80      and #$80

$cd88  d0 23      bne $cdad

$cd8a  ad dd 01   lda $01dd

$cd8d  20 f4 cb   jsr $cbf4

$cd90  20 ec cb   jsr $cbec

$cd93  ad de 01   lda $01de

$cd96  20 f4 cb   jsr $cbf4

$cd99  20 ec cb   jsr $cbec

$cd9c  a4 98      ldy $98

$cd9e  20 d5 cb   jsr $cbd5

$cda1  ad 00 40   lda $4000

$cda4  29 80      and #$80

$cda6  d0 05      bne $cdad

$cda8  a9 03      lda #$03

$cdaa  4c cc cd   jmp $cdcc

$cdad  20 bc cd   jsr $cdbc

$cdb0  b0 f6      bcs $cda8

$cdb2  a9 20      lda #$20

$cdb4  85 26      sta $26

$cdb6  60         rts

$cdb7  68         pla

$cdb8  68         pla

$cdb9  4c 00 ce   jmp $ce00

$cdbc  a0 1e      ldy #$1e

$cdbe  ad 00 40   lda $4000

$cdc1  29 02      and #$02

$cdc3  d0 05      bne $cdca

$cdc5  88         dey

$cdc6  d0 f6      bne $cdbe

$cdc8  18         clc

$cdc9  24 38      bit $38

$cdcb  60         rts

$cdcc  a4 83      ldy $83

$cdce  99 02 00   sta $0002,y

$cdd1  a0 80      ldy #$80

$cdd3  c9 02      cmp #$02

$cdd5  90 06      bcc $cddd

$cdd7  a9 00      lda #$00

$cdd9  85 87      sta $87

$cddb  84 95      sty $95

$cddd  84 83      sty $83

$cddf  a0 08      ldy #$08

$cde1  2c a4 83   bit $83a4

$cde4  a5 26      lda $26

$cde6  f0 12      beq $cdfa

$cde8  29 10      and #$10

$cdea  d0 0e      bne $cdfa

$cdec  a5 26      lda $26

$cdee  09 10      ora #$10

$cdf0  85 26      sta $26

$cdf2  a9 ff      lda #$ff

$cdf4  85 2a      sta $2a

$cdf6  a9 04      lda #$04

$cdf8  85 2b      sta $2b

$cdfa  a6 2c      ldx $2c

$cdfc  9a         txs

$cdfd  4c c7 c0   jmp $c0c7

$ce00  a6 2c      ldx $2c

$ce02  e8         inx

$ce03  e8         inx

$ce04  bd 04 01   lda $0104,x

$ce07  29 10      and #$10

$ce09  d0 66      bne $ce71

$ce0b  a5 9c      lda $9c

$ce0d  f0 02      beq $ce11

$ce0f  c6 9c      dec $9c

$ce11  a5 79      lda $79

$ce13  29 20      and #$20

$ce15  f0 10      beq $ce27

$ce17  c6 9e      dec $9e

$ce19  10 0c      bpl $ce27

$ce1b  a9 09      lda #$09

$ce1d  85 9e      sta $9e

$ce1f  ad 00 40   lda $4000

$ce22  49 20      eor #$20

$ce24  8d 00 40   sta $4000

$ce27  a5 79      lda $79

$ce29  29 40      and #$40

$ce2b  25 79      and $79

$ce2d  85 36      sta $36

$ce2f  ad 00 40   lda $4000

$ce32  29 bf      and #$bf

$ce34  05 36      ora $36

$ce36  8d 00 40   sta $4000

$ce39  ad 00 40   lda $4000

$ce3c  29 80      and #$80

$ce3e  d0 0a      bne $ce4a

$ce40  85 87      sta $87

$ce42  a9 80      lda #$80

$ce44  85 95      sta $95

$ce46  a9 01      lda #$01

$ce48  85 25      sta $25

$ce4a  a5 26      lda $26

$ce4c  f0 1f      beq $ce6d

$ce4e  a8         tay

$ce4f  c9 20      cmp #$20

$ce51  f0 20      beq $ce73

$ce53  c6 2a      dec $2a

$ce55  d0 1c      bne $ce73

$ce57  98         tya

$ce58  10 04      bpl $ce5e

$ce5a  29 7f      and #$7f

$ce5c  85 26      sta $26

$ce5e  29 10      and #$10

$ce60  f0 11      beq $ce73

$ce62  c6 2b      dec $2b

$ce64  d0 0d      bne $ce73

$ce66  20 ba cb   jsr $cbba

$ce69  a9 00      lda #$00

$ce6b  85 26      sta $26

$ce6d  a6 2c      ldx $2c

$ce6f  9a         txs

$ce70  60         rts

$ce71  a4 26      ldy $26

$ce73  98         tya

$ce74  29 40      and #$40

$ce76  f0 f5      beq $ce6d

$ce78  a5 88      lda $88

$ce7a  c5 27      cmp $27

$ce7c  f0 18      beq $ce96

$ce7e  8d 03 60   sta $6003

$ce81  a5 27      lda $27

$ce83  8d 01 60   sta $6001

$ce86  ad db 01   lda $01db

$ce89  20 f4 cb   jsr $cbf4

$ce8c  20 ec cb   jsr $cbec

$ce8f  a5 88      lda $88

$ce91  85 27      sta $27

$ce93  8d 01 60   sta $6001

$ce96  a5 26      lda $26

$ce98  29 bf      and #$bf

$ce9a  85 26      sta $26

$ce9c  a4 98      ldy $98

$ce9e  20 d5 cb   jsr $cbd5

$cea1  4c 6d ce   jmp $ce6d

$cea4  24 39      bit $39

$cea6  50 03      bvc $ceab

$cea8  a9 80      lda #$80

$ceaa  2c a9 00   bit $00a9

$cead  85 87      sta $87

$ceaf  a9 20      lda #$20

$ceb1  24 37      bit $37

$ceb3  d0 01      bne $ceb6

$ceb5  60         rts

$ceb6  a4 99      ldy $99

$ceb8  b9 0b 00   lda $000b,y

$cebb  18         clc

$cebc  65 8c      adc $8c

$cebe  85 4b      sta $4b

$cec0  a0 00      ldy #$00

$cec2  84 48      sty $48

$cec4  84 4a      sty $4a

$cec6  a6 83      ldx $83

$cec8  bd f1 01   lda $01f1,x

$cecb  85 49      sta $49

$cecd  a5 39      lda $39

$cecf  29 1f      and #$1f

$ced1  aa         tax

$ced2  24 39      bit $39

$ced4  10 03      bpl $ced9

$ced6  4c 3e d0   jmp $d03e

$ced9  4c 58 d5   jmp $d558

$cedc  06 86      asl $86

$cede  b0 6e      bcs $cf4e

$cee0  a4 99      ldy $99

$cee2  06 85      asl $85

$cee4  90 44      bcc $cf2a

$cee6  a6 83      ldx $83

$cee8  b5 9f      lda $9f,x

$ceea  10 01      bpl $ceed

$ceec  60         rts

$ceed  b9 0b 00   lda $000b,y

$cef0  38         sec

$cef1  e9 01      sbc #$01

$cef3  99 bc 01   sta $01bc,y

$cef6  a5 75      lda $75

$cef8  4a         lsr a

$cef9  aa         tax

$cefa  d9 0c 00   cmp $000c,y

$cefd  f0 05      beq $cf04

$ceff  90 03      bcc $cf04

$cf01  a9 00      lda #$00

$cf03  2c a9 01   bit $01a9

$cf06  85 96      sta $96

$cf08  f0 01      beq $cf0b

$cf0a  8a         txa

$cf0b  85 39      sta $39

$cf0d  a6 83      ldx $83

$cf0f  b9 0c 00   lda $000c,y

$cf12  38         sec

$cf13  e5 39      sbc $39

$cf15  09 80      ora #$80

$cf17  95 9f      sta $9f,x

$cf19  29 7f      and #$7f

$cf1b  a6 91      ldx $91

$cf1d  ca         dex

$cf1e  f0 04      beq $cf24

$cf20  4a         lsr a

$cf21  4c 1d cf   jmp $cf1d

$cf24  18         clc

$cf25  65 94      adc $94

$cf27  4c 4a cf   jmp $cf4a

$cf2a  a6 83      ldx $83

$cf2c  bd ce 01   lda $01ce,x

$cf2f  85 96      sta $96

$cf31  b9 0b 00   lda $000b,y

$cf34  99 bc 01   sta $01bc,y

$cf37  b9 0c 00   lda $000c,y

$cf3a  48         pha

$cf3b  38         sec

$cf3c  e5 94      sbc $94

$cf3e  a6 91      ldx $91

$cf40  ca         dex

$cf41  f0 04      beq $cf47

$cf43  0a         asl a

$cf44  4c 40 cf   jmp $cf40

$cf47  95 9f      sta $9f,x

$cf49  68         pla

$cf4a  99 bd 01   sta $01bd,y

$cf4d  2c 06 85   bit $8506

$cf50  60         rts

$cf51  a4 99      ldy $99

$cf53  b9 bc 01   lda $01bc,y

$cf56  c5 95      cmp $95

$cf58  d0 09      bne $cf63

$cf5a  a5 96      lda $96

$cf5c  c5 97      cmp $97

$cf5e  d0 03      bne $cf63

$cf60  4c 64 cf   jmp $cf64

$cf63  60         rts

$cf64  a6 83      ldx $83

$cf66  bd f1 01   lda $01f1,x

$cf69  85 49      sta $49

$cf6b  b5 9f      lda $9f,x

$cf6d  29 7f      and #$7f

$cf6f  18         clc

$cf70  65 8c      adc $8c

$cf72  85 4b      sta $4b

$cf74  a0 00      ldy #$00

$cf76  84 48      sty $48

$cf78  84 4a      sty $4a

$cf7a  a2 01      ldx #$01

$cf7c  06 86      asl $86

$cf7e  b0 18      bcs $cf98

$cf80  06 86      asl $86

$cf82  b0 06      bcs $cf8a

$cf84  20 58 d5   jsr $d558

$cf87  4c 99 c3   jmp $c399

$cf8a  ad fa 01   lda $01fa

$cf8d  d0 14      bne $cfa3

$cf8f  20 3e d0   jsr $d03e

$cf92  a9 80      lda #$80

$cf94  85 87      sta $87

$cf96  d0 ef      bne $cf87

$cf98  06 86      asl $86

$cf9a  90 eb      bcc $cf87

$cf9c  ad fa 01   lda $01fa

$cf9f  d0 02      bne $cfa3

$cfa1  b0 ef      bcs $cf92

$cfa3  4c 9b c3   jmp $c39b

$cfa6  20 00 cd   jsr $cd00

$cfa9  b0 09      bcs $cfb4

$cfab  a5 1f      lda $1f

$cfad  85 27      sta $27

$cfaf  a5 22      lda $22

$cfb1  85 91      sta $91

$cfb3  60         rts

$cfb4  4c cc cd   jmp $cdcc

$cfb7  a5 8b      lda $8b

$cfb9  85 4a      sta $4a

$cfbb  a5 8c      lda $8c

$cfbd  85 4b      sta $4b

$cfbf  60         rts

$cfc0  f0 02      beq $cfc4

$cfc2  a9 01      lda #$01

$cfc4  85 36      sta $36

$cfc6  ad 00 40   lda $4000

$cfc9  29 fe      and #$fe

$cfcb  05 36      ora $36

$cfcd  8d 00 40   sta $4000

$cfd0  60         rts

$cfd1  ad e4 01   lda $01e4

$cfd4  8d 00 60   sta $6000

$cfd7  20 2f ad   jsr $ad2f

$cfda  20 2f ad   jsr $ad2f

$cfdd  20 2f ad   jsr $ad2f

$cfe0  4c ec cb   jmp $cbec

$cfe3  38         sec

$cfe4  e5 94      sbc $94

$cfe6  c9 2b      cmp #$2b

$cfe8  90 12      bcc $cffc

$cfea  ad e0 01   lda $01e0

$cfed  09 02      ora #$02

$cfef  8d e0 01   sta $01e0

$cff2  ad e3 01   lda $01e3

$cff5  09 02      ora #$02

$cff7  8d e3 01   sta $01e3

$cffa  b0 10      bcs $d00c

$cffc  ad e0 01   lda $01e0

$cfff  29 fd      and #$fd

$d001  8d e0 01   sta $01e0

$d004  ad e3 01   lda $01e3

$d007  29 fd      and #$fd

$d009  8d e3 01   sta $01e3

$d00c  60         rts

;

$d00d  .text "AM I LAZY???...N"

$d01d  .text "O JUST WANTED TO"

$d02d  .text " SAVE A FEW MS.."

$d03d  .text "."

;

$d03e  b1 48      lda ($48),y

$d040  91 4a      sta ($4a),y

$d042  c8         iny

; ...

$d539  b1 48      lda ($48),y

$d53b  91 4a      sta ($4a),y

$d53d  c8         iny

$d53e  ca         dex

$d53f  f0 07      beq $d548

$d541  e6 49      inc $49

$d543  e6 4b      inc $4b

$d545  4c 3e d0   jmp $d03e

$d548  60         rts

;

$d549  .text "THIS IS LAZY!!!"

;

$d558  b1 4a      lda ($4a),y

$d55a  91 48      sta ($48),y

$d55c  c8         iny

; ...

$da53  b1 4a      lda ($4a),y

$da55  91 48      sta ($48),y

$da57  c8         iny

$da58  ca         dex

$da59  f0 07      beq $da62

$da5b  e6 49      inc $49

$da5d  e6 4b      inc $4b

$da5f  4c 58 d5   jmp $d558

$da62  60         rts

;

$da63  a5 38      lda $38

$da65  48         pha

$da66  a5 39      lda $39

$da68  48         pha

$da69  a5 3a      lda $3a

$da6b  48         pha

$da6c  a5 3b      lda $3b

$da6e  48         pha

$da6f  a5 3c      lda $3c

$da71  48         pha

$da72  a5 3d      lda $3d

$da74  48         pha

$da75  a5 3e      lda $3e

$da77  48         pha

$da78  a9 30      lda #$30

$da7a  85 3d      sta $3d

$da7c  a9 b2      lda #$b2

$da7e  85 3e      sta $3e

$da80  a0 00      ldy #$00

$da82  b9 1f 00   lda $001f,y

$da85  85 39      sta $39

$da87  aa         tax

$da88  c8         iny

$da89  b9 1f 00   lda $001f,y

$da8c  85 38      sta $38

$da8e  8a         txa

$da8f  a2 10      ldx #$10

$da91  85 3a      sta $3a

$da93  18         clc

$da94  26 38      rol $38

$da96  26 39      rol $39

$da98  a9 00      lda #$00

$da9a  85 3b      sta $3b

$da9c  85 3c      sta $3c

$da9e  24 3a      bit $3a

$daa0  10 08      bpl $daaa

$daa2  a9 21      lda #$21

$daa4  85 3b      sta $3b

$daa6  a9 10      lda #$10

$daa8  85 3c      sta $3c

$daaa  24 3e      bit $3e

$daac  10 0c      bpl $daba

$daae  a5 3b      lda $3b

$dab0  49 21      eor #$21

$dab2  85 3b      sta $3b

$dab4  a5 3c      lda $3c

$dab6  49 10      eor #$10

$dab8  85 3c      sta $3c

$daba  18         clc

$dabb  26 3d      rol $3d

$dabd  26 3e      rol $3e

$dabf  a5 3d      lda $3d

$dac1  45 3b      eor $3b

$dac3  85 3d      sta $3d

$dac5  a5 3e      lda $3e

$dac7  45 3c      eor $3c

$dac9  85 3e      sta $3e

$dacb  a5 39      lda $39

$dacd  ca         dex

$dace  d0 c1      bne $da91

$dad0  c8         iny

$dad1  c0 05      cpy #$05

$dad3  90 ad      bcc $da82

$dad5  a4 3d      ldy $3d

$dad7  a6 3e      ldx $3e

$dad9  68         pla

$dada  85 3e      sta $3e

$dadc  68         pla

$dadd  85 3d      sta $3d

$dadf  68         pla

$dae0  85 3c      sta $3c

$dae2  68         pla

$dae3  85 3b      sta $3b

$dae5  68         pla

$dae6  85 3a      sta $3a

$dae8  68         pla

$dae9  85 39      sta $39

$daeb  68         pla

$daec  85 38      sta $38

$daee  c0 00      cpy #$00

$daf0  d0 06      bne $daf8

$daf2  e0 00      cpx #$00

$daf4  d0 02      bne $daf8

$daf6  18         clc

$daf7  60         rts

$daf8  a9 09      lda #$09

$dafa  4c cc cd   jmp $cdcc

$dafd  48         pha

$dafe  8a         txa

$daff  48         pha

$db00  98         tya

$db01  48         pha

$db02  ad 0d 40   lda $400d

$db05  a8         tay

$db06  25 76      and $76

$db08  29 08      and #$08

$db0a  f0 06      beq $db12

$db0c  a5 76      lda $76

$db0e  09 20      ora #$20

$db10  85 76      sta $76

$db12  98         tya

$db13  29 10      and #$10

$db15  f0 06      beq $db1d

$db17  a5 76      lda $76

$db19  09 01      ora #$01

$db1b  85 76      sta $76

$db1d  98         tya

$db1e  29 02      and #$02

$db20  f0 03      beq $db25

$db22  20 39 ff   jsr $ff39

$db25  ba         tsx

$db26  bd 04 01   lda $0104,x

$db29  29 10      and #$10

$db2b  f0 03      beq $db30

$db2d  20 39 ff   jsr $ff39

$db30  68         pla

$db31  a8         tay

$db32  68         pla

$db33  aa         tax

$db34  68         pla

$db35  40         rti

;

$db36  .byte $11,$bb,$fa,$ba,$01,$bc,$f9,$bb

$db3e  .byte $b2,$bc,$fa,$ba,$12,$bd,$12,$bd

$db46  .byte $fc,$bd,$fc,$bd,$06,$be,$fa,$ba

$db4e  .byte $bb,$be,$fa,$ba,$f8,$be,$f8,$be

$db56  .byte $11,$bb,$fa,$ba,$01,$bc,$f9,$bb

$db5e  .byte $b2,$bc,$fa,$ba,$12,$bd,$12,$bd

$db66  .byte $cb,$89,$cb,$89,$06,$be,$fa,$ba

$db6e  .byte $02,$bf,$02,$bf,$3c,$aa,$d5,$b8

$db76  .byte $06,$04

;

$db78  .text "VI/MBUP&CRSN"

;

$db84  .byte $09,$0c,$0f,$12,$15,$18,$1b,$1e

$db8c  .byte $21,$24,$27,$2a

;

$db90  .byte $ff

$db9b  .byte $ff

;

$db9c  .byte $51,$dd,$1c,$9e,$1c

;

$dba1  .text "RWAMDSPULCDSPURC"

$dbb1  .text "EERSEBLQGRLM"

;

$dbbd  .byte $00,$3f,$7f,$bf

;

$dbc1  .byte $ff,$01,$ff,$ff

$dbc5  .byte $01,$00

;

$dbc7  8d 0e 40   sta $400e

$dbca  ad 01 40   lda $4001

$dbcd  09 20      ora #$20

$dbcf  8d 01 40   sta $4001

$dbd2  ad 0e 40   lda $400e

$dbd5  09 40      ora #$40

$dbd7  8d 0e 40   sta $400e

$dbda  29 bf      and #$bf

$dbdc  8d 0e 40   sta $400e

$dbdf  60         rts

$dbe0  8d 0e 40   sta $400e

$dbe3  29 bf      and #$bf

$dbe5  8d 0e 40   sta $400e

$dbe8  09 40      ora #$40

$dbea  8d 0e 40   sta $400e

$dbed  60         rts

$dbee  20 15 b5   jsr $b515

$dbf1  4c 01 87   jmp $8701

$dbf4  20 9d 95   jsr $959d

$dbf7  c9 02      cmp #$02

$dbf9  b0 05      bcs $dc00

$dbfb  a9 b0      lda #$b0

$dbfd  20 9d 95   jsr $959d

$dc00  60         rts

;

$dc01 .text "(C)1987 COMMODORE"

$dc12 .text " ELECTRONICS"

$dc1e .text " LTD., ALL RIGHTS"

$dc2f .text " RESERVED"

;

$dc38 .byte $ff

$dc3f .byte $ff

;

$dc40 .text "MODIFYED BY TFSS"

$dc50 .text " OF THE GOLDEN"

$dc5e .text " PIG SOFTWARE"

$dc6b .text " 1996.08.11."

;

$dc77 .byte $00

;

$dc78 .text "UPDATE-5"

$dc80 .text " ZERO ($00) FILL"

$dc90 .text " MEMORY"

$dc97 .text " $2000-$3FFF."

;

$dca4 .byte $00

;

$dca5 .byte $ff

$dcff .byte $ff

;

$dd00  a2 00      ldx #$00     ; cHECK ram $0300-$03ff

$dd02  a9 55      lda #$55

$dd04  9d 00 03   sta $0300,x

$dd07  e8         inx

$dd08  d0 fa      bne $dd04

$dd0a  a9 aa      lda #$aa

$dd0c  1e 00 03   asl $0300,x

$dd0f  dd 00 03   cmp $0300,x

$dd12  d0 14      bne $dd28    ; jUMP iF ram eRROR !

$dd14  e8         inx

$dd15  d0 f5      bne $dd0c

$dd17  bd 00 de   lda $de00,x  ; tRANFER rom pAGE fROM $de00

$dd1a  9d 00 03   sta $0300,x  ;         ram pAGE tO   $0300

$dd1d  dd 00 03   cmp $0300,x

$dd20  d0 06      bne $dd28    ; jUMP iF ram eRROR !

$dd22  e8         inx

$dd23  d0 f2      bne $dd17    ; tRANSFER 256 bYTE !

$dd25  6c 1b dd   jmp ($dd1b)  ; jUMP fILL mEMORY $2000-$3fff

$dd28  4c 74 af   jmp $af74    ; jUMP cONTINUE iF eRROR !

;

$dd2b  .byte $ff

$dd2f  .byte $ff

;

$dd30  08         php          ; sAVE sTATUS rEGISTER

$dd31  78         sei          ; dISABLE iNTERRUPT (rEQUIEST)

$dd32  20 37 dd   jsr $dd37    ; cALL jOB (rEAD,wRITE,ETC...)

$dd35  28         plp          ; lOAD sTATUS rEGISTER

$dd36  60         rts          ; rETURN

$dd37  6c 48 00   jmp ($0048)  ; jUMP jOB aDDRESS pOINTER

;

$dd3a  .byte $ff

$ddff  .byte $ff

;

$de00  8c 29 03    sty $0329   ; fILL mEMORY $2000-$3fff

$de03  a5 02       lda $02     ; nO pSYHICAL ram tEST !

$de05  a6 03       ldx $03

$de07  8d 21 03    sta $0321

$de0a  8e 23 03    stx $0323

$de0d  a9 00       lda #$00

$de0f  a2 20       ldx #$20

$de11  a8          tay

$de12  85 02       sta $02

$de14  86 03       stx $03

$de16  91 02       sta ($02),y

$de18  c8          iny

$de19  d0 fb       bne $de16

$de1b  e8          inx

$de1c  e0 40       cpx #$40

$de1e  d0 f4       bne $de14

$de20  a9 00       lda #$00

$de22  a2 00       ldx #$00

$de24  85 02       sta $02

$de26  86 03       stx $03

$de28  a0 00       ldy #$00

$de2a  4c 28 dd    jmp $dd28   ; jUMP cONTINUE

;

$de2d  .byte $ff

$feff  .byte $ff

;

$ff00  6c 90 01   jmp ($0190)

$ff03  6c 92 01   jmp ($0192)

$ff06  6c 94 01   jmp ($0194)

$ff09  6c 96 01   jmp ($0196)

$ff0c  6c 98 01   jmp ($0198)

$ff0f  6c 9a 01   jmp ($019a)

$ff12  6c 9c 01   jmp ($019c)

$ff15  6c 9e 01   jmp ($019e)

$ff18  6c a0 01   jmp ($01a0)

$ff1b  6c a2 01   jmp ($01a2)

$ff1e  6c a4 01   jmp ($01a4)

$ff21  6c a6 01   jmp ($01a6)

$ff24  6c a8 01   jmp ($01a8)

$ff27  6c aa 01   jmp ($01aa)

$ff2a  6c ac 01   jmp ($01ac)

$ff2d  6c ae 01   jmp ($01ae)

$ff30  6c b0 01   jmp ($01b0)

$ff33  6c b2 01   jmp ($01b2)

$ff36  6c b4 01   jmp ($01b4)

$ff39  6c b6 01   jmp ($01b6)

$ff3c  6c b8 01   jmp ($01b8)

$ff3f  6c ba 01   jmp ($01ba)

;

$ff42  .byte $ff

$ff53  .byte $ff

;

$ff54  4c 9d 95   jmp $959d

$ff57  4c 38 a9   jmp $a938

$ff5a  4c 4c a9   jmp $a94c

$ff5d  4c 1d ab   jmp $ab1d

$ff60  4c 45 91   jmp $9145

$ff63  4c ea ae   jmp $aeea

$ff66  4c 5c 8c   jmp $8c5c

$ff69  4c 60 94   jmp $9460

$ff6c  4c e3 bf   jmp $bfe3

;

$ff6f  .byte $ff

$ff74  .byte $ff

;

$ff75  .byte $f0,$b0,$fd,$da,$ca,$af,$62,$b2

$ff7d  .byte $c5,$8e,$81,$b7,$2f,$89,$5d,$8a

$ff85  .byte $8f,$89,$a1,$a1,$56,$a9,$6e,$87

$ff8d  .byte $c5,$88,$88,$86,$48,$b3,$ae,$a7

$ff95  .byte $cf,$ab,$5c,$ad,$b8,$ae,$be,$c0

$ff9b  .byte $dc,$ce,$f1,$a7

;

$ffa1  .byte $ff

$ffac  .byte $ff

;

$ffad  a0 2b      ldy #$2b

$ffaf  b9 75 ff   lda $ff75,y

$ffb2  99 90 01   sta $0190,y

$ffb5  88         dey

$ffb6  10 f7      bpl $ffaf

$ffb8  a9 4c      lda #$4c

$ffba  8d fc 01   sta $01fc

$ffbd  a9 40      lda #$40

$ffbf  8d fd 01   sta $01fd

$ffc2  a9 ba      lda #$ba

$ffc4  8d fe 01   sta $01fe

$ffc7  60         rts

;

$ffc8  .byte $ff

$ffe9  .byte $ff

;

$ffea  .byte $9a,$8b

$ffec  .byte $d7,$8b

$ffee  .byte $00,$05

$fff0  .byte $03,$05

$fff2  .byte $06,$05

$fff4  .byte $09,$05

$fff6  .byte $0c,$05

$fff8  .byte $0f,$05

$fffa  .byte $3c,$ad ; nmi    $ad3c

$fffc  .byte $24,$af ; reset  $af24

$fffe  .byte $03,$ff ; irq    $ff03

;

;----------------------------

; end of source code

;----------------------------