a2d/desktop/s4_main1.s
2017-10-13 23:23:31 -07:00

15846 lines
290 KiB
ArmAsm

.org $4000
; da65 V2.16 - Git f5e9b401
; Created: 2017-10-12 21:29:38
; Input file: orig/DESKTOP2_s4_main1
; Page: 1
.setcpu "65C02"
L0000 := $0000
L0002 := $0002
L0006 := $0006
L0020 := $0020
L0800 := $0800
L0CB8 := $0CB8
L0CD7 := $0CD7
L0CF9 := $0CF9
L0D14 := $0D14
L1C00 := $1C00
L2710 := $2710
MLI := $BF00
RAMRDOFF := $C002
RAMRDON := $C003
RAMWRTOFF := $C004
RAMWRTON := $C005
ALTZPOFF := $C008
ALTZPON := $C009
LCBANK1 := $C08B
AUXMOVE := $C311
XFER := $C314
LD000 := $D000
LD01C := $D01C
LD040 := $D040
LD05E := $D05E
LD082 := $D082
LD096 := $D096
LD09A := $D09A
LD108 := $D108
LD13E := $D13E
LD154 := $D154
LD156 := $D156
FSUB := $E7A7
FADD := $E7BE
FMULT := $E97F
FDIV := $EA66
ROUND := $EB2B
FLOAT := $EB93
FIN := $EC4A
FOUT := $ED34
LFB2F := $FB2F
LFBDD := $FBDD
LFC58 := $FC58
COUT := $FDED
LFE89 := $FE89
LFE93 := $FE93
A2D: jmp L4042
L4003: jmp LD000
L4006: jmp L8259
L4009: jmp L830F
jmp L5E78
jmp LD13E
L4012: jmp L5050
L4015: jmp L40F2
L4018: jmp LD040
jmp L8E81
L401E: jmp L6D2B
L4021: jmp L46BA
jmp LD09A
jmp LD096
jmp L490E
L402D: jmp L8707
L4030: jmp LD154
L4033: jmp LD156
jmp L46DE
jmp L489A
jmp L488A
jmp L8E89
L4042: cli
sta ALTZPON
lda LCBANK1
lda LCBANK1
jsr L4530
ldx #$00
L4051: cpx $DEA0
beq L4069
txa
pha
lda $DEA1,x
jsr L86E3
ldy #$01
jsr LD040
pla
tax
inx
jmp L4051
L4069: lda #$00
sta $DE9F
jsr LD096
lda #$00
sta $D2A9
sta $D2AA
sta L40DF
sta $E26F
lda L599F
beq L4088
tay
jsr LD154
L4088: jsr L4510
inc L40DF
inc L40DF
lda L40DF
cmp $D2AB
bcc L40A6
lda #$00
sta L40DF
jsr L4563
beq L40A6
jsr L40E0
L40A6: jsr L464E
jsr L48E6
lda $D208
cmp #$01
beq L40B7
cmp #$05
bne L40BD
L40B7: jsr L43E7
jmp L4088
L40BD: cmp #$03
bne L40C7
jsr L435A
jmp L4088
L40C7: cmp #$06
bne L40DC
jsr L4510
lda $EC25
sta L40F0
lda #$80
sta L40F1
jsr L410D
L40DC: jmp L4088
L40DF: brk
L40E0: tsx
stx $E256
sta $E25B
jsr L59A0
lda #$00
sta $E25B
rts
L40F0: brk
L40F1: brk
L40F2: jsr L4510
lda $EC25
sta L40F0
lda #$00
sta L40F1
L4100: jsr L48F0
lda $D208
cmp #$06
bne L412B
jsr L48E6
L410D: jsr L4113
jmp L4100
L4113: ldy #$3E
lda #$09
ldx #$D2
jsr LD000
bne L4151
jsr L4153
ldy #$3F
lda #$00
ldx #$00
jsr LD000
rts
L412B: lda #$00
sta $DE9F
jsr LD09A
lda L40F0
sta $EC25
beq L4143
bit L4CA1
bmi L4143
jsr L4244
L4143: bit L40F1
bpl L4151
ldy #$0C
lda #$00
ldx #$00
jsr LD040
L4151: rts
L4152: brk
L4153: lda $D209
cmp #$09
bcc L415B
rts
L415B: sta $EC25
sta $DE9F
jsr LD09A
lda #$80
sta L4152
lda $DE9F
sta $D212
jsr L4505
jsr L78EF
lda $EC25
jsr L8855
jsr LD108
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$16
lda (L0006),y
sec
sbc $D217
sta L4242
iny
lda (L0006),y
sbc $D218
sta L4243
lda L4242
cmp #$0F
lda L4243
sbc #$00
bpl L41CB
jsr L6E8A
ldx #$0B
ldy #$1F
lda $D215,x
sta (L0006),y
dey
dex
lda $D215,x
sta (L0006),y
ldx #$03
ldy #$17
lda $D215,x
sta (L0006),y
dey
dex
lda $D215,x
sta (L0006),y
L41CB: ldx $DE9F
dex
lda $E6D1,x
bpl L41E2
jsr L6C19
lda #$00
sta L4152
lda $EC25
jmp L8874
L41E2: lda $DE9F
sta $D212
jsr L44F2
jsr L6E52
ldx #$07
L41F0: lda $D21D,x
sta $E230,x
dex
bpl L41F0
lda #$00
sta L4241
L41FE: lda L4241
cmp $DEA0
beq L4227
tax
lda $DEA1,x
sta $E22F
ldy #$0D
lda #$2F
ldx #$E2
jsr LD040
beq L4221
ldy #$03
lda #$2F
ldx #$E2
jsr LD040
L4221: inc L4241
jmp L41FE
L4227: lda #$00
sta L4152
lda $DE9F
sta $D212
jsr L44F2
jsr L6E6E
lda $EC25
jsr L8874
jmp L4510
L4241: brk
L4242: brk
L4243: brk
L4244: lda $DF21
bne L424A
L4249: rts
L424A: lda #$00
sta L42C3
lda $DF20
beq L42A5
cmp $EC25
bne L4249
lda $EC25
sta $D212
jsr L4505
jsr L6E8E
ldx #$07
L4267: lda $D21D,x
sta $E230,x
dex
bpl L4267
L4270: lda L42C3
cmp $DF21
beq L42A2
tax
lda $DF22,x
sta $E22F
jsr L8915
ldy #$0D
lda #$2F
ldx #$E2
jsr LD040
.byte $F0
L428C: ora #$A0
.byte $03
.byte $A9
L4290: bbr2 $A2,$4275
.byte $20
L4294: rti
.byte $D0
L4296: lda $E22F
L4299: jsr L8893
inc L42C3
jmp L4270
L42A2: jmp L4510
L42A5: lda L42C3
cmp $DF21
beq L42A2
tax
lda $DF22,x
sta $E22F
ldy #$03
lda #$2F
ldx #$E2
jsr LD040
inc L42C3
jmp L42A5
L42C3: brk
L42C4: .byte $B2
L42C5: .byte $4B
asl $BF49
.byte $4B
bbs3 $4B,L428C
.byte $4B
bbs3 $4B,L4290
.byte $4B
bbs3 $4B,L4294
.byte $4B
bbs3 $4B,L4290
bbr4 $0E,L4325
nop
eor L4E72
bvc L4331
.byte $62
lsr $0E,x
eor #$A2
jmp L4D5F
asl L5049
bvc L4299
bvc L4300
eor #$0F
eor #$0F
eor #$0F
eor #$0E
eor #$A2
eor #$A2
eor #$A2
.byte $49
L4300: ldx #$49
ldx #$49
ldx #$49
ldx #$49
ldx #$49
sbc L6750,y
eor ($85)
eor ($A3)
eor ($C1)
eor ($01)
eor L490E,y
rti
.byte $53
.byte $5B
.byte $53
.byte $5C
bbr4 $0E,L4369
smb0 $53
sta ($53,x)
.byte $0E
L4325: eor #$75
.byte $53
.byte $7B
.byte $53
asl L8D49
.byte $53
ora ($59,x)
.byte $0E
L4331: eor #$A0
eor L59A0,y
ldy #$59
ldy #$59
ldy #$59
ldy #$59
ldy #$59
ldy #$59
cmp ($5A),y
cmp ($5A),y
cmp ($5A),y
cmp ($5A),y
cmp ($5A),y
cmp ($5A),y
cmp ($5A),y
L4350: brk
trb $2C
lsr $50
bvc L43C1
.byte $7E
.byte $8C
L4359: brk
L435A: lda $D20A
bne L4362
jmp L4394
L4362: cmp #$03
bne L4367
rts
L4367: .byte $AD
.byte $09
L4369: cmp ($09)
jsr L68C9
bne L4373
jmp L5441
L4373: bit L4359
bpl L4394
cmp #$77
bne L437F
jmp L5702
L437F: cmp #$67
bne L4386
jmp L578E
L4386: cmp #$6D
bne L438D
jmp L579A
L438D: cmp #$78
bne L4394
jmp L57A6
L4394: lda $D209
sta $E25C
lda $D20A
beq L43A1
lda #$01
L43A1: sta $E25D
ldy #$32
lda #$5A
ldx #$E2
jsr LD000
L43AD: ldx $E25A
bne L43B3
rts
L43B3: dex
lda L4350,x
tax
ldy $E25B
dey
tya
asl a
sta L43E5
L43C1: txa
clc
adc L43E5
tax
lda L42C4,x
sta L43E5
lda L42C5,x
sta L43E6
jsr L43E0
ldy #$33
lda #$5A
ldx #$E2
jsr LD000
rts
L43E0: tsx
stx $E256
.byte $4C
L43E5: .byte $34
L43E6: .byte $12
L43E7: tsx
stx $E256
ldy #$40
lda #$09
ldx #$D2
jsr LD000
lda $D20D
bne L4418
jsr L85FC
sta $D2AA
lda #$00
sta $D20E
ldy #$09
lda #$09
ldx #$D2
jsr LD040
lda $D20D
beq L4415
jmp L67D7
L4415: jmp L68AA
L4418: cmp #$01
bne L4428
ldy #$31
lda #$5A
ldx #$E2
jsr LD000
jmp L43AD
L4428: pha
lda $EC25
cmp $D20E
beq L4435
pla
jmp L4459
L4435: pla
cmp #$02
bne L4443
jsr L85FC
sta $D2AA
jmp L5B1C
L4443: cmp #$03
bne L444A
jmp L60DB
L444A: cmp #$04
bne L4451
jmp L619B
L4451: cmp #$05
bne L4458
jmp L61CA
L4458: rts
L4459: jmp L445D
L445C: brk
L445D: jsr L6D2B
ldx $D20E
dex
lda $EC26,x
sta $E22F
lda $E22F
jsr L86E3
sta L0006
stx $07
ldy #$01
lda (L0006),y
beq L44A6
ora #$80
sta (L0006),y
iny
lda (L0006),y
and #$0F
sta L445C
jsr L8997
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
jsr L4510
lda L445C
sta $DF20
lda #$01
sta $DF21
lda $E22F
sta $DF22
L44A6: ldy #$42
lda #$0E
ldx #$D2
jsr LD000
lda $D20E
sta $EC25
sta $DE9F
L44B8: jsr LD09A
jsr L6C19
lda #$00
sta $DE9F
jsr LD09A
lda #$00
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
ldx $EC25
dex
lda $E6D1,x
and #$0F
sta $E268
inc $E268
lda #$01
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
rts
L44F2: ldy #$3C
lda #$12
ldx #$D2
jsr LD000
ldy #$04
lda #$15
ldx #$D2
jsr LD000
rts
L4505: ldy #$3C
lda #$12
ldx #$D2
jsr LD000
rts
rts
L4510: ldy #$03
lda #$39
ldx #$D2
jsr LD000
ldy #$04
lda #$39
ldx #$D2
jsr LD000
rts
L4523: jsr L40F2
ldy #$0C
lda #$00
ldx #$00
jsr LD040
rts
L4530: ldx #$00
ldy $BF31
L4535: lda $BF32,y
and #$0F
cmp #$0B
beq L4559
L453E: dey
bpl L4535
stx L4597
stx L45A0
jsr L45B2
ldx L45A0
beq L4558
L454F: lda L45A0,x
sta L45A9,x
dex
bpl L454F
L4558: rts
L4559: lda $BF32,y
inx
sta L4597,x
bne L453E
rts
L4563: lda L45A0
beq L4579
jsr L45B2
ldx L45A0
L456E: lda L45A0,x
cmp L45A9,x
bne L457C
dex
bne L456E
L4579: lda #$00
rts
L457C: lda L45A0,x
sta L45A9,x
lda L4597,x
ldy $BF31
L4588: cmp $BF32,y
beq L4591
dey
bpl L4588
rts
L4591: tya
clc
adc #$03
rts
brk
L4597: brk
brk
brk
brk
brk
brk
brk
brk
brk
L45A0: brk
brk
brk
brk
brk
brk
brk
brk
brk
L45A9: brk
brk
brk
brk
brk
brk
brk
brk
brk
L45B2: ldx L4597
beq L45C6
stx L45A0
L45BA: lda L4597,x
jsr L45C7
sta L45A0,x
dex
bne L45BA
L45C6: rts
L45C7: sta L4637
txa
pha
tya
pha
ldx #$11
lda L4637
and #$80
beq L45D9
ldx #$21
L45D9: stx L45EC
lda L4637
and #$70
lsr a
lsr a
lsr a
clc
adc L45EC
sta L45EC
.byte $AD
L45EC: brk
bbs3 $85,L45F7
lda #$00
sta L0006
ldy #$07
.byte $B1
L45F7: asl $D0
and $FFA0
lda (L0006),y
clc
adc #$03
sta L0006
lda L4637
pha
rol a
pla
php
and #$20
lsr a
lsr a
lsr a
lsr a
plp
.byte $69
L4612: ora ($8D,x)
dec a
lsr L0020
bit $46,x
brk
and LAD46,y
rol $2946,x
bpl L4612
tsb $A9
bbs7 $D0,L4629
lda #$00
L4629: sta L4638
pla
tay
pla
tax
lda L4638
rts
L4634: jmp (L0006)
L4637: brk
L4638: brk
.byte $03
L463A: ora ($3E,x)
lsr L0000
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L464E: lda $D343
beq L465E
bit $D344
bmi L4666
jsr L67AB
jmp L4666
L465E: bit $D344
bmi L4666
jsr L67A3
L4666: lda $DF21
beq L46A8
lda $DF20
bne L4691
lda $DF21
cmp #$02
bcs L4697
lda $DF22
cmp $EBFB
bne L468B
jsr L678A
jsr L670C
lda #$00
sta $E26F
rts
L468B: jsr L6782
jmp L469A
L4691: jsr L678A
jmp L469A
L4697: jsr L6782
L469A: bit $E26F
bmi L46A7
jsr L6747
lda #$80
sta $E26F
L46A7: rts
L46A8: bit $E26F
bmi L46AE
rts
L46AE: jsr L678A
jsr L670C
lda #$00
sta $E26F
rts
L46BA: sty L46CE
sta L46CF
stx L46CF+1
php
sei
sta ALTZPOFF
sta $C082
jsr MLI
L46CE: .byte $00
L46CF: .addr L0000
sta ALTZPON
tax
lda LCBANK1
lda LCBANK1
plp
txa
rts
L46DE: jmp L46F3
asl a
jsr L0002
L46E5: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L46F3: jsr L488A
ldx #$FF
L46F8: inx
lda $D355,x
sta $0220,x
cpx $D355
bne L46F8
inx
lda #$2F
sta $0220,x
ldy #$00
L470C: iny
inx
lda $D345,y
sta $0220,x
cpy $D345
bne L470C
stx $0220
ldy #$C4
lda #$E1
ldx #$46
jsr L46BA
beq L472B
jsr LD154
rts
L472B: lda L46E5
cmp #$FC
bne L4738
jsr L47B8
jmp L4755
L4738: cmp #$06
bne L4748
lda $C061
ora $C062
bmi L4755
jsr L489A
rts
L4748: cmp #$FF
beq L4755
cmp #$B3
beq L4755
lda #$FA
jsr L4802
L4755: ldy #$06
lda #$00
ldx #$00
jsr LD040
ldy #$3A
lda #$00
ldx #$00
jsr LD000
ldy #$30
lda #$80
ldx #$E6
jsr LD000
ldx $D355
L4773: lda $D355,x
sta $0220,x
dex
bpl L4773
ldx $D345
L477F: lda $D345,x
sta $0280,x
dex
bpl L477F
lda #$80
ldx #$02
jsr L4842
lda #$20
ldx #$02
jsr L4842
jsr L48BE
lda #$90
sta L5B19
lda #$02
sta L5B1A
jmp L5AEE
asl a
brk
clc
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L47B8: ldx $D355
stx L4816
L47BE: lda $D355,x
sta $1800,x
dex
bpl L47BE
inc $1800
ldx $1800
lda #$2F
sta $1800,x
L47D2: ldx $1800
ldy #$00
L47D7: inx
iny
lda L4817,y
sta $1800,x
cpy L4817
bne L47D7
stx $1800
ldy #$C4
lda #$A6
ldx #$47
jsr L46BA
bne L47F3
rts
L47F3: ldx L4816
L47F6: lda $1800,x
cmp #$2F
beq L4808
dex
bne L47F6
L4800: lda #$FE
L4802: jsr LD154
pla
pla
rts
L4808: cpx #$01
beq L4800
stx $1800
dex
stx L4816
jmp L47D2
L4816: brk
L4817: tsb L6142
.byte $73
adc #$63
rol L7973
.byte $73
stz $65,x
adc a:L0000
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L4842: sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
L484B: lda (L0006),y
cmp #$61
bcc L4859
cmp #$7B
bcs L4859
and #$DF
sta (L0006),y
L4859: dey
bne L484B
rts
L485D: brk
L485E: .byte $E0
L485F: brk
L4860: bne L4862
L4862: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L488A: jsr L48AA
ldy #$24
lda #$11
ldx #$D3
jsr LD000
jsr L48B4
rts
L489A: jsr L48AA
ldy #$24
lda #$AD
ldx #$D2
jsr LD000
jsr L48B4
rts
L48AA: ldy #$26
lda #$00
ldx #$00
jsr LD000
rts
L48B4: ldy #$25
lda #$00
ldx #$00
jsr LD000
rts
L48BE: ldx $E196
inx
L48C2: lda $E196,x
sta $BF31,x
dex
bpl L48C2
rts
L48CC: sta $D2AC
ldy #$0C
lda #$AC
ldx #$D2
jsr LA500
rts
lda #$88
sta L48E4
lda #$40
sta L48E5
.byte $4C
L48E4: .byte $34
L48E5: .byte $12
L48E6: ldy #$2A
lda #$08
ldx #$D2
jsr LD000
rts
L48F0: ldy #$2C
lda #$08
ldx #$D2
jsr LD000
rts
L48FA: ldy #$07
lda #$02
ldx #$D2
jsr LD000
rts
L4904: ldy #$07
lda #$00
ldx #$D2
jsr LD000
rts
L490E: rts
jsr L488A
lda #$02
jsr L8E81
bmi L4961
lda $E25B
cmp #$03
bcs L492E
lda #$06
jsr L8E81
bmi L4961
lda #$03
jsr L8E81
bmi L4961
L492E: jsr L489A
lda $E25B
jsr L9000
sta L498F
jsr L488A
lda #$08
jsr L8E89
lda $E25B
cmp #$04
bne L4961
lda L498F
bpl L4961
jsr L4AAD
jsr L4A77
jsr L4AFD
bpl L497A
jsr L8F24
bmi L4961
jsr L4968
L4961: jsr L489A
jsr L4523
rts
L4968: jsr L4AAD
ldx $0840
L496E: lda $0840,x
sta $D355,x
dex
bpl L496E
jmp L4A17
L497A: jsr L4AAD
ldx L0800
L4980: lda L0800,x
sta $D355,x
dex
bpl L4980
jsr L4A17
jmp L4961
L498F: brk
asl a
L4991: .byte $20
L4992: .byte $02
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
jmp L49A6
L49A5: brk
L49A6: lda $E25B
sec
sbc #$06
sta L49A5
jsr L86A7
clc
adc #$1E
sta L0006
txa
adc #$DB
sta $07
ldy #$0F
lda (L0006),y
asl a
bmi L49FA
bcc L49E0
jsr L4AFD
beq L49FA
lda L49A5
jsr L4AEA
beq L49ED
lda L49A5
jsr L4A47
jsr L8F24
bpl L49ED
jmp L4523
L49E0: jsr L4AFD
beq L49FA
lda L49A5
jsr L4AEA
bne L49FA
L49ED: lda L49A5
jsr L4B5F
sta L0006
stx $07
jmp L4A0A
L49FA: lda L49A5
jsr L86C1
clc
adc #$9E
sta L0006
txa
adc #$DB
sta $07
L4A0A: ldy #$00
lda (L0006),y
tay
L4A0F: lda (L0006),y
sta $D355,y
dey
bpl L4A0F
L4A17: ldy $D355
L4A1A: lda $D355,y
cmp #$2F
beq L4A24
dey
bpl L4A1A
L4A24: dey
sty L4A46
ldx #$00
iny
L4A2B: iny
inx
lda $D355,y
sta $D345,x
cpy $D355
bne L4A2B
stx $D345
lda L4A46
sta $D355
lda #$00
jmp L46DE
L4A46: brk
L4A47: pha
jsr L86C1
clc
adc #$9E
sta L0006
txa
adc #$DB
sta $07
ldy #$00
lda (L0006),y
tay
L4A5A: lda (L0006),y
sta L0800,y
dey
bpl L4A5A
pla
jsr L4B5F
sta $08
stx $09
ldy #$00
lda ($08),y
tay
L4A6F: lda ($08),y
sta $0840,y
dey
bpl L4A6F
L4A77: ldy L0800
L4A7A: lda L0800,y
cmp #$2F
beq L4A84
dey
bne L4A7A
L4A84: dey
sty L0800
ldy $0840
L4A8B: lda $0840,y
cmp #$2F
beq L4A95
dey
bne L4A8B
L4A95: dey
sty $0840
lda #$00
sta L0006
lda #$08
sta $07
lda #$40
sta $08
lda #$08
sta $09
jsr L4D19
rts
L4AAD: ldy $D355
L4AB0: lda $D355,y
sta L0800,y
dey
bpl L4AB0
lda #$40
ldx #$08
jsr L4B15
ldy L0800
L4AC3: lda L0800,y
cmp #$2F
beq L4ACD
dey
bne L4AC3
L4ACD: dey
L4ACE: lda L0800,y
cmp #$2F
beq L4AD8
dey
bne L4ACE
L4AD8: dey
ldx $0840
L4ADC: iny
inx
lda L0800,y
sta $0840,x
cpy L0800
bne L4ADC
rts
L4AEA: jsr L4B5F
sta L4991
stx L4992
ldy #$C4
lda #$90
ldx #$49
jsr L46BA
rts
L4AFD: sta ALTZPOFF
lda $C083
lda $C083
lda $D3FF
tax
sta ALTZPON
lda LCBANK1
lda LCBANK1
txa
rts
L4B15: sta L4B2B
stx L4B2C
sta ALTZPOFF
lda $C083
lda $C083
ldx $D3EE
L4B27: lda $D3EE,x
.byte $9D
L4B2B: .byte $34
L4B2C: ora ($CA)
bpl L4B27
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
sta L4B50
stx L4B51
sta ALTZPOFF
lda $C083
lda $C083
ldx $D3AD
L4B4C: lda $D3AD,x
.byte $9D
L4B50: .byte $34
L4B51: ora ($CA)
bpl L4B4C
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
L4B5F: sta L4BB0
lda #$76
ldx #$4F
jsr L4B15
lda L4BB0
jsr L86C1
clc
adc #$9E
sta L0006
txa
adc #$DB
sta $07
ldy #$00
lda (L0006),y
sta L4BB1
tay
L4B81: lda (L0006),y
and #$7F
cmp #$2F
beq L4B8C
dey
bne L4B81
L4B8C: dey
L4B8D: lda (L0006),y
and #$7F
cmp #$2F
beq L4B98
dey
bne L4B8D
L4B98: dey
ldx L4F76
L4B9C: inx
iny
lda (L0006),y
sta L4F76,x
cpy L4BB1
bne L4B9C
stx L4F76
lda #$76
ldx #$4F
rts
L4BB0: brk
L4BB1: brk
ldy #$00
lda #$00
ldx #$00
jsr LA500
jmp L4523
bra L4BE0
bpl L4C07
jsr L488A
lda $E25B
sec
sbc #$03
jsr L86A7
clc
adc #$F2
sta L0006
txa
adc #$E5
sta $07
ldy #$00
lda (L0006),y
tay
clc
.byte $6D
.byte $87
L4BE0: jmp LAA48
L4BE3: lda (L0006),y
sta L4C88,x
dex
dey
bne L4BE3
pla
sta L4C88
ldx L4C88
L4BF3: lda L4C88,x
cmp #$20
bne L4BFF
lda #$2E
sta L4C88,x
L4BFF: dex
bne L4BF3
jsr L4C4E
bmi L4C4A
L4C07: lda L4C7C
sta L4C7E
sta L4C86
jsr L4C64
jsr L4C6D
lda #$80
sta L4CA1
jsr L489A
jsr L4510
ldy #$1A
lda #$A7
ldx #$D2
jsr LD000
ldy #$1A
lda #$BE
ldx #$4B
jsr LD000
jsr L0800
ldy #$1A
lda #$A7
ldx #$D2
jsr LD000
lda #$00
sta L4CA1
jsr L4510
jsr L4523
L4C4A: jsr L489A
rts
L4C4E: ldy #$C8
ldx #$4C
lda #$77
jsr L46BA
bne L4C5A
rts
L4C5A: lda #$00
jsr L48CC
beq L4C4E
lda #$FF
rts
L4C64: ldy #$CA
ldx #$4C
lda #$7D
jmp L46BA
L4C6D: ldy #$CC
ldx #$4C
lda #$85
jmp L46BA
brk
.byte $03
dey
jmp L1C00
L4C7C: brk
.byte $04
L4C7E: brk
brk
php
brk
trb L0000
brk
.byte $01
L4C86: brk
.byte $09
L4C88: ora #$44
adc $73
.byte $6B
rol L6361
.byte $63
bbr2 L0000,L4C94
L4C94: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L4CA1: brk
jsr L488A
lda #$03
jsr L8E81
bmi L4CD6
lda #$04
jsr L8E81
bmi L4CD6
jsr L489A
lda #$00
jsr L5000
pha
jsr L488A
lda #$07
jsr L8E89
jsr L489A
pla
bpl L4CCD
jmp L4CD6
L4CCD: jsr L4D19
jsr L4523
jsr L8F18
L4CD6: pha
jsr L489A
pla
bpl L4CE0
jmp L4523
L4CE0: lda #$C9
ldx #$DF
jsr L6FAF
beq L4CF1
pha
jsr L6F0D
pla
jmp L5E78
L4CF1: ldy #$01
L4CF3: iny
lda $DFC9,y
cmp #$2F
beq L4D01
cpy $DFC9
bne L4CF3
iny
L4D01: dey
sty $DFC9
lda #$C9
ldx #$DF
jsr L6FB7
lda #$C9
ldx #$DF
ldy $DFC9
jsr L6F4B
jmp L4523
L4D19: ldy #$00
lda (L0006),y
tay
L4D1E: lda (L0006),y
sta $E00A,y
dey
bpl L4D1E
ldy #$00
lda ($08),y
tay
L4D2B: lda ($08),y
sta $DFC9,y
dey
bpl L4D2B
lda #$C9
ldx #$DF
jsr L6F90
ldx #$01
iny
iny
L4D3E: lda $DFC9,y
sta $E04B,x
cpy $DFC9
beq L4D4E
iny
inx
jmp L4D3E
L4D4E: stx $E04B
lda $DFC9
sec
sbc $E04B
sta $DFC9
dec $DFC9
rts
L4D5F: jsr L488A
lda #$03
jsr L8E81
bmi L4D9D
lda #$05
jsr L8E81
bmi L4D9D
jsr L489A
lda #$01
jsr L5000
pha
jsr L488A
lda #$07
jsr L8E89
jsr L489A
pla
bpl L4D8A
jmp L4D9D
L4D8A: ldy #$00
lda (L0006),y
tay
L4D8F: lda (L0006),y
sta $E00A,y
dey
bpl L4D8F
jsr L4523
jsr L8F1B
L4D9D: pha
jsr L489A
pla
bpl L4DA7
jmp L4523
L4DA7: lda #$0A
ldx #$E0
jsr L6F90
sty $E00A
lda #$0A
ldx #$E0
jsr L6FAF
beq L4DC2
pha
jsr L6F0D
pla
jmp L5E78
L4DC2: ldy #$01
L4DC4: iny
lda $E00A,y
cmp #$2F
beq L4DD2
cpy $E00A
bne L4DC4
iny
L4DD2: dey
sty $E00A
lda #$0A
ldx #$E0
jsr L6FB7
lda #$0A
ldx #$E0
ldy $E00A
jsr L6F4B
jmp L4523
ldx #$00
L4DEC: cpx $DF21
bne L4DF2
rts
L4DF2: txa
pha
lda $DF22,x
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$70
bne L4E10
ldy #$00
lda (L0006),y
jsr L6A8A
jmp L4E14
L4E10: cmp #$40
bcc L4E1A
L4E14: pla
tax
inx
jmp L4DEC
L4E1A: sta L4E71
lda $DF21
cmp #$02
bcs L4E14
pla
lda $EC25
jsr L86FB
sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
L4E34: lda (L0006),y
sta $D355,y
dey
bpl L4E34
lda $DF22
jsr L86E3
sta L0006
stx $07
ldy #$09
lda (L0006),y
tax
clc
adc #$09
tay
dex
dey
L4E51: lda (L0006),y
sta $D344,x
dey
dex
bne L4E51
ldy #$09
lda (L0006),y
tax
dex
dex
stx $D345
lda L4E71
cmp #$20
bcc L4E6E
lda L4E71
L4E6E: jmp L46DE
L4E71: brk
L4E72: lda $EC25
bne L4E78
rts
L4E78: jsr L6D2B
dec $EC2E
lda $EC25
sta $DE9F
jsr LD09A
ldx $EC25
dex
lda $E6D1,x
bmi L4EB4
ldy #$07
lda #$25
ldx #$EC
jsr LD040
lda $DD9E
sec
sbc $DEA0
sta $DD9E
ldx #$00
L4EA5: cpx $DEA0
beq L4EB4
lda $DEA1,x
jsr LD082
inx
jmp L4EA5
L4EB4: ldx #$00
txa
L4EB7: sta $DEA1,x
cpx $DEA0
beq L4EC3
inx
jmp L4EB7
L4EC3: sta $DEA0
jsr LD096
lda #$00
sta $DE9F
jsr LD09A
ldy #$39
lda #$25
ldx #$EC
jsr LD000
ldx $EC25
dex
lda $EC26,x
sta $E22F
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$7F
sta (L0006),y
and #$0F
sta $DF20
jsr L8997
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
jsr L4510
lda #$01
sta $DF21
lda $E22F
sta $DF22
ldx $EC25
dex
lda $EC26,x
jsr L7345
ldx $EC25
dex
lda #$00
sta $EC26,x
ldy #$41
lda #$25
ldx #$EC
jsr LD000
lda $EC25
bne L4F3C
ldy #$0C
lda #$00
ldx #$00
jsr LD040
L4F3C: lda #$00
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
jsr L66A2
jmp L4510
L4F50: lda $EC25
beq L4F5B
jsr L4E72
jmp L4F50
L4F5B: rts
lda #$00
jsr L8E81
bmi L4F66
jmp L0800
L4F66: rts
L4F67: brk
L4F68: brk
L4F69: brk
rmb0 $76
bbr4 $C3,L4F7E
brk
brk
.byte $0D
L4F72: brk
brk
brk
brk
L4F76: brk
brk
brk
brk
brk
brk
brk
brk
L4F7E: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
lda $EC25
sta L4F67
ldy #$03
lda #$67
ldx #$4F
jsr LA500
L4FC6: lda $EC25
beq L4FD4
jsr L86FB
sta L4F68
stx L4F69
L4FD4: lda #$80
sta L4F67
ldy #$03
lda #$67
ldx #$4F
jsr LA500
beq L4FE7
jmp L504B
L4FE7: stx $07
stx L504F
sty L0006
sty L504E
ldy #$00
lda (L0006),y
tay
L4FF6: lda (L0006),y
sta L4F76,y
dey
bpl L4FF6
ldx #$03
L5000: lda $BF90,x
sta L4F72,x
dex
bpl L5000
ldy #$C0
lda #$6A
ldx #$4F
jsr L46BA
beq L5027
jsr LD154
lda L504E
sta L4F68
lda L504F
sta L4F69
jmp L4FC6
rts
L5027: lda #$40
sta L4F67
ldy #$03
lda #$67
ldx #$4F
jsr LA500
lda #$76
ldx #$4F
jsr L6F90
sty L4F76
lda #$76
ldx #$4F
jsr L6FAF
beq L504B
.byte $20
L5049: sei
.byte $5E
L504B: jmp L4523
L504E: brk
L504F: brk
L5050: lda $DF20
beq L5056
L5055: rts
L5056: lda $DF21
beq L5055
cmp #$01
bne L5067
lda $DF22
cmp $EBFB
beq L5055
L5067: lda #$00
tax
tay
L506B: lda $DF22,y
cmp $EBFB
beq L5077
sta $1800,x
inx
L5077: iny
cpy $DF21
bne L506B
dex
stx L5098
jsr L8F15
L5084: ldx L5098
lda $1800,x
sta L533F
jsr L59A8
dec L5098
bpl L5084
jmp L4523
L5098: brk
L5099: bbs2 $DE,L5049
.byte $DE
L509D: clc
.byte $FB
.byte $5C
tsb $D0
.byte $E0
L50A3: tsb L0000
brk
brk
brk
brk
brk
ldx #$03
L50AC: lda L5099,x
sta $0102,x
dex
bpl L50AC
sta ALTZPOFF
lda $C083
lda $C083
ldx #$05
L50C0: lda L509D,x
sta $D100,x
dex
bpl L50C0
sta ALTZPOFF
lda $C082
jsr LFE93
jsr LFE89
jsr LFB2F
jsr LFC58
sta $C051
sta $C054
sta $C056
sta $C052
sta $C05F
sta $C00E
sta $C00C
sta $C000
jsr MLI
.byte $65
.addr L50A3
ldx $EC25
bne L50FF
rts
L50FF: dex
lda $E6D1,x
bne L5106
rts
L5106: lda $EC25
sta $DE9F
jsr LD09A
ldx #$00
txa
L5112: cpx $DEA0
beq L511E
sta $DEA1,x
inx
jmp L5112
L511E: sta $DEA0
lda #$00
ldx $EC25
dex
sta $E6D1,x
jsr L52DF
lda $EC25
sta $D212
jsr L4505
jsr L6E8E
jsr L4904
ldy #$11
lda #$1D
ldx #$D2
jsr LD000
lda $EC25
jsr L7D5D
sta L51EB
stx L51EC
sty L51ED
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$1F
lda #$00
L5162: sta (L0006),y
dey
cpy #$1B
bne L5162
ldy #$23
ldx #$03
L516D: lda L51EB,x
sta (L0006),y
dey
dex
bpl L516D
lda $EC25
jsr L763A
lda $EC25
sta $D212
jsr L44F2
jsr L6E52
lda #$00
sta L51EF
L518D: lda L51EF
cmp $DEA0
beq L51A7
tax
lda $DEA1,x
jsr L86E3
ldy #$01
jsr LD040
inc L51EF
jmp L518D
L51A7: jsr L4510
jsr L6E6E
jsr LD096
jsr L6DB1
lda $DF20
beq L51E3
lda $DF21
beq L51E3
sta L51EF
L51C0: ldx L51EF
lda $DF21,x
sta $E22F
jsr L8915
jsr L6E8E
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
lda $E22F
jsr L8893
dec L51EF
bne L51C0
L51E3: lda #$00
sta $DE9F
jmp LD09A
L51EB: brk
L51EC: brk
L51ED: brk
brk
L51EF: brk
L51F0: ldx $EC25
dex
sta $E6D1,x
lda $EC25
sta $DE9F
jsr LD09A
jsr L7D9C
jsr LD096
lda $EC25
sta $D212
jsr L4505
jsr L6E8E
jsr L4904
ldy #$11
lda #$1D
ldx #$D2
jsr LD000
lda $EC25
jsr L7D5D
sta L5263
stx L5264
sty L5265
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$1F
lda #$00
L523B: sta (L0006),y
dey
cpy #$1B
bne L523B
ldy #$23
ldx #$03
L5246: lda L5263,x
sta (L0006),y
dey
dex
bpl L5246
lda #$80
sta L4152
jsr L4510
jsr L6C19
jsr L6DB1
lda #$00
sta L4152
rts
L5263: brk
L5264: brk
L5265: brk
brk
ldx $EC25
bne L526D
rts
L526D: dex
lda $E6D1,x
cmp #$81
bne L5276
rts
L5276: cmp #$00
bne L527D
jsr L5302
L527D: jsr L52DF
lda #$81
jmp L51F0
ldx $EC25
bne L528B
rts
L528B: dex
lda $E6D1,x
cmp #$82
bne L5294
rts
L5294: cmp #$00
bne L529B
jsr L5302
L529B: jsr L52DF
lda #$82
jmp L51F0
ldx $EC25
bne L52A9
rts
L52A9: dex
lda $E6D1,x
cmp #$83
bne L52B2
rts
L52B2: cmp #$00
bne L52B9
jsr L5302
L52B9: jsr L52DF
lda #$83
jmp L51F0
ldx $EC25
bne L52C7
rts
L52C7: dex
lda $E6D1,x
cmp #$84
bne L52D0
rts
L52D0: cmp #$00
bne L52D7
jsr L5302
L52D7: jsr L52DF
lda #$84
jmp L51F0
L52DF: lda #$00
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
lda $E25B
sta $E268
lda #$01
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
rts
L5302: ldy #$07
lda #$25
ldx #$EC
jsr LD040
lda $EC25
sta $DE9F
jsr LD09A
lda $DD9E
sec
sbc $DEA0
sta $DD9E
ldx #$00
L5320: cpx $DEA0
beq L5334
lda $DEA1,x
jsr LD082
lda #$00
sta $DEA1,x
inx
jmp L5320
L5334: jsr LD096
lda #$00
sta $DE9F
jmp LD09A
L533F: brk
lda #$01
jsr L8E81
bmi L535A
lda #$04
jsr L0800
bne L5357
stx L533F
jsr L4523
jsr L59A4
L5357: jmp L4523
L535A: rts
lda #$01
jsr L8E81
bmi L5372
lda #$05
jsr L0800
bne L5372
stx L533F
jsr L4523
jsr L59A4
L5372: jmp L4523
jsr L8F09
jmp L4523
jsr L8F27
jmp L4523
jsr L8F0F
jmp L4523
jsr L8F0C
jmp L4523
jsr L8F12
pha
jsr L4523
pla
beq L5398
rts
L5398: lda $DF20
bne L53B5
ldx #$00
ldy #$00
L53A1: lda $DF22,x
cmp #$01
beq L53AC
sta L5428,y
iny
L53AC: inx
cpx $DF22
bne L53A1
sty L5427
L53B5: lda #$FF
sta L5426
L53BA: inc L5426
lda L5426
cmp $DF21
bne L53D0
lda $DF20
bne L53CD
jmp L540E
L53CD: jmp L5E78
L53D0: tax
lda $DF22,x
jsr L5431
bmi L53BA
jsr L86FB
sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
lda L0006
jsr L6FB7
lda L704B
beq L53BA
L53EF: dec L704B
ldx L704B
lda L704C,x
cmp $EC25
beq L5403
sta $D20E
jsr L4459
L5403: jsr L61DC
lda L704B
bne L53EF
jmp L53BA
L540E: ldx L5427
L5411: lda L5428,x
sta L533F
jsr L59A8
ldx L5427
dec L5427
dex
bpl L5411
jmp L4523
L5426: brk
L5427: brk
L5428: brk
brk
brk
brk
brk
brk
brk
brk
brk
L5431: ldx #$07
L5433: cmp $EC26,x
beq L543E
dex
bpl L5433
lda #$FF
rts
L543E: inx
txa
rts
L5441: jmp L544D
L5444: brk
L5445: brk
L5446: brk
L5447: brk
L5448: brk
L5449: brk
L544A: brk
brk
brk
L544D: lda #$00
sta $1800
.byte $AD
L5453: and $EC
bne L545A
jmp L54C5
L545A: tax
dex
lda $E6D1,x
bpl L5464
jmp L54C5
L5464: lda $EC25
sta $DE9F
jsr LD09A
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$1C
L5479: lda (L0006),y
sta $E214,y
iny
cpy #$24
bne L5479
ldx #$00
L5485: cpx $DEA0
beq L54BD
txa
pha
lda $DEA1,x
sta $E22F
jsr L8915
ldy #$0D
lda #$2F
ldx #$E2
jsr LD040
pha
lda $E22F
jsr L8893
pla
beq L54B7
pla
pha
tax
lda $DEA1,x
ldx $1800
sta $1801,x
inc $1800
L54B7: pla
tax
inx
jmp L5485
L54BD: lda #$00
sta $DE9F
jsr LD09A
L54C5: ldx $1800
ldy #$00
L54CA: lda $DEA1,y
sta $1801,x
iny
inx
cpy $DEA0
bne L54CA
lda $1800
clc
adc $DEA0
sta $1800
lda #$00
sta L544A
lda #$FF
ldx #$03
L54EA: sta L5444,x
dex
bpl L54EA
L54F0: ldx L544A
L54F3: lda $1801,x
asl a
tay
lda $DD9F,y
sta L0006
lda $DDA0,y
sta $07
ldy #$06
lda (L0006),y
cmp L5447
beq L5510
bcc L5532
jmp L5547
L5510: dey
lda (L0006),y
cmp L5446
beq L551D
bcc L5532
jmp L5547
L551D: dey
lda (L0006),y
cmp L5445
beq L552A
bcc L5532
jmp L5547
L552A: dey
lda (L0006),y
cmp L5444
bcs L5547
L5532: lda $1801,x
stx L5449
sta L5448
ldy #$03
L553D: lda (L0006),y
sta L5441,y
iny
cpy #$07
bne L553D
L5547: inx
cpx $1800
bne L54F3
ldx L544A
lda $1801,x
tay
lda L5448
sta $1801,x
ldx L5449
tya
sta $1801,x
lda #$FF
ldx #$03
L5565: sta L5444,x
dex
bpl L5565
inc L544A
ldx L544A
cpx $1800
beq L5579
jmp L54F0
L5579: lda #$00
sta L544A
jsr L6D2B
L5581: jsr L55F0
L5584: jsr L48E6
lda $D208
cmp #$03
beq L5595
cmp #$01
bne L5584
jmp L55D1
L5595: lda $D209
and #$7F
cmp #$0D
beq L55D1
cmp #$1B
beq L55D1
cmp #$08
beq L55BE
cmp #$15
bne L5584
ldx L544A
inx
cpx $1800
bne L55B5
ldx #$00
L55B5: stx L544A
jsr L562C
jmp L5581
L55BE: ldx L544A
dex
bpl L55C8
ldx $1800
dex
L55C8: stx L544A
jsr L562C
jmp L5581
L55D1: ldx L544A
lda $1801,x
sta $DF22
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$0F
sta $DF20
lda #$01
sta $DF21
rts
L55F0: ldx L544A
lda $1801,x
sta $E22F
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$0F
sta $D212
beq L5614
jsr L56F9
lda $E22F
jsr L8915
L5614: ldy #$02
lda #$2F
ldx #$E2
jsr LD040
lda $D212
beq L562B
lda $E22F
jsr L8893
jsr L4510
L562B: rts
L562C: lda $E22F
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$0F
sta $D212
beq L564A
jsr L56F9
lda $E22F
jsr L8915
L564A: ldy #$0B
lda #$2F
ldx #$E2
jsr LD040
lda $D212
beq L5661
lda $E22F
jsr L8893
jsr L4510
L5661: rts
lda $DF21
beq L566A
jsr L6D2B
L566A: ldx $EC25
beq L5676
dex
lda $E6D1,x
bpl L5676
rts
L5676: lda $EC25
sta $DE9F
jsr LD09A
lda $DEA0
bne L5687
jmp L56F0
L5687: ldx $DEA0
dex
L568B: lda $DEA1,x
sta $DF22,x
dex
bpl L568B
lda $DEA0
sta $DF21
lda $EC25
sta $DF20
lda $DF20
sta $E22C
beq L56AB
jsr L56F9
L56AB: lda $DF21
sta L56F8
dec L56F8
L56B4: ldx L56F8
lda $DF22,x
sta $E22B
jsr L86E3
sta L0006
stx $07
lda $E22C
beq L56CF
lda $E22B
jsr L8915
L56CF: ldy #$02
lda #$2B
ldx #$E2
jsr LD040
lda $E22C
beq L56E3
lda $E22B
jsr L8893
L56E3: dec L56F8
bpl L56B4
lda $DF20
beq L56F0
jsr L4510
L56F0: lda #$00
sta $DE9F
jmp LD09A
L56F8: brk
L56F9: sta $D212
jsr L4505
jmp L6E8E
L5702: lda $EC25
bne L5708
rts
L5708: sta L0800
ldy #$01
ldx #$00
L570F: lda $EC26,x
beq L5720
inx
cpx $EC25
beq L5721
txa
dex
sta L0800,y
iny
L5720: inx
L5721: cpx #$08
bne L570F
sty L578D
cpy #$01
bne L572D
rts
L572D: lda #$00
sta L578C
L5732: jsr L48E6
lda $D208
cmp #$03
beq L5743
cmp #$01
bne L5732
jmp L578B
L5743: lda $D209
and #$7F
cmp #$0D
beq L578B
cmp #$1B
beq L578B
cmp #$08
beq L5772
cmp #$15
bne L5732
ldx L578C
inx
cpx L578D
bne L5763
ldx #$00
L5763: stx L578C
lda L0800,x
sta $D20E
jsr L4459
jmp L5732
L5772: ldx L578C
dex
bpl L577C
ldx L578D
dex
L577C: stx L578C
lda L0800,x
sta $D20E
jsr L4459
jmp L5732
L578B: rts
L578C: brk
L578D: brk
L578E: ldy #$22
lda #$00
ldx #$00
jsr LD000
jmp L619B
L579A: ldy #$22
lda #$00
ldx #$00
jsr LD000
jmp L60DB
L57A6: .byte $20
.byte $03
L57A8: cli
L57A9: jsr L48E6
lda $D208
cmp #$01
beq L57C2
cmp #$03
bne L57A9
lda $D209
cmp #$0D
beq L57C2
cmp #$1B
bne L57CB
L57C2: lda #$00
sta $DE9F
jsr LD09A
rts
L57CB: bit L585D
bmi L57D3
jmp L57E7
L57D3: cmp #$15
bne L57DD
jsr L582F
jmp L57A9
L57DD: cmp #$08
bne L57E7
jsr L583C
jmp L57A9
L57E7: bit L585E
bmi L57EF
jmp L57A9
L57EF: cmp #$0A
bne L57F9
jsr L5846
jmp L57A9
L57F9: cmp #$0B
bne L57A9
jsr L5853
jmp L57A9
L5803: lda $EC25
sta $DE9F
jsr LD09A
ldx $EC25
dex
lda $E6D1,x
sta L5B1B
jsr L58C3
sta L585F
stx L5860
sty L585D
jsr L58E2
sta L5861
stx L5862
sty L585E
rts
L582F: lda L585F
ldx L5860
jsr L5863
sta L585F
rts
L583C: lda L585F
jsr L587E
sta L585F
rts
L5846: lda L5861
ldx L5862
jsr L5893
sta L5861
rts
L5853: lda L5861
jsr L58AE
sta L5861
rts
L585D: brk
L585E: brk
L585F: brk
L5860: brk
L5861: brk
L5862: brk
L5863: stx L587D
cmp L587D
beq L587C
sta $D20D
inc $D20D
lda #$02
sta $D208
jsr L5C54
lda $D20D
L587C: rts
L587D: brk
L587E: beq L5891
sta $D20D
dec $D20D
lda #$02
sta $D208
jsr L5C54
lda $D20D
L5891: rts
brk
L5893: stx L58AD
cmp L58AD
beq L58AC
sta $D20D
inc $D20D
lda #$01
sta $D208
jsr L5C54
lda $D20D
L58AC: rts
L58AD: brk
L58AE: beq L58C1
sta $D20D
dec $D20D
lda #$01
sta $D208
jsr L5C54
lda $D20D
L58C1: rts
brk
L58C3: lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$06
lda (L0006),y
tax
iny
lda (L0006),y
pha
ldy #$04
lda (L0006),y
and #$01
clc
ror a
ror a
tay
pla
rts
L58E2: lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$08
lda (L0006),y
tax
iny
lda (L0006),y
pha
ldy #$05
lda (L0006),y
and #$01
clc
ror a
ror a
tay
pla
rts
lda #$00
sta L599F
sta $DE9F
jsr LD09A
jsr L4F50
jsr L6D2B
ldx $DEA0
dex
L5916: lda $DEA1,x
cmp $EBFB
beq L5942
txa
pha
lda $DEA1,x
sta $E22F
lda #$00
sta $DEA1,x
ldy #$04
lda #$2F
ldx #$E2
jsr LD040
lda $E22F
jsr LD082
dec $DEA0
dec $DD9E
pla
tax
L5942: dex
bpl L5916
ldy #$00
sty L599E
L594A: ldy L599E
inc $DEA0
inc $DD9E
lda #$00
sta $E1A0,y
lda $BF32,y
jsr L89B6
cmp #$57
bne L5967
lda #$F9
sta L599F
L5967: inc L599E
lda L599E
cmp $BF31
beq L594A
bcc L594A
ldx #$00
L5976: cpx $DEA0
bne L5986
lda L599F
beq L5983
jsr LD154
L5983: jmp LD096
L5986: txa
pha
lda $DEA1,x
cmp $EBFB
beq L5998
jsr L86E3
ldy #$01
jsr LD040
L5998: pla
tax
inx
jmp L5976
L599E: brk
L599F: brk
L59A0: lda #$00
beq L59AA
L59A4: lda #$80
bne L59AA
L59A8: lda #$C0
L59AA: sta L5AD0
lda #$00
sta $DE9F
jsr LD09A
bit L5AD0
bpl L59EA
bvc L59D2
lda L533F
ldy #$0F
L59C1: cmp $E1A0,y
beq L59C9
dey
bpl L59C1
L59C9: sty L5AC6
sty $E25B
jmp L59F3
L59D2: ldy $BF31
lda L533F
L59D8: cmp $BF32,y
beq L59E1
dey
bpl L59D8
iny
L59E1: sty L5AC6
sty $E25B
jmp L59F3
L59EA: lda $E25B
sec
sbc #$03
sta $E25B
L59F3: ldy $E25B
lda $E1A0,y
bne L59FE
jmp L5A4C
L59FE: jsr L86E3
clc
adc #$09
sta L0006
txa
adc #$00
sta $07
ldy #$00
lda (L0006),y
tay
L5A10: lda (L0006),y
sta $1F00,y
dey
bpl L5A10
dec $1F00
lda #$2F
sta $1F01
lda #$00
ldx #$1F
ldy $1F00
jsr L6FB7
lda L704B
beq L5A4C
L5A2F: ldx L704B
beq L5A4C
dex
lda L704C,x
cmp $EC25
beq L5A43
sta $D20E
jsr L4459
L5A43: jsr L61DC
dec L704B
jmp L5A2F
L5A4C: jsr L4523
jsr L6D2B
lda #$00
sta $DE9F
jsr LD09A
lda $E25B
tay
pha
lda $E1A0,y
sta $E22F
beq L5A7F
jsr L8AF4
dec $DD9E
lda $E22F
jsr LD082
jsr L4510
ldy #$04
lda #$2F
ldx #$E2
jsr LD040
L5A7F: lda $DEA0
sta L5AC6
inc $DEA0
inc $DD9E
pla
tay
lda $BF32,y
jsr L89B6
bit L5AD0
bmi L5AA9
and #$FF
beq L5AA9
cmp #$2F
beq L5AA9
pha
jsr LD096
pla
jsr LD154
rts
L5AA9: lda $DEA0
cmp L5AC6
beq L5AC0
ldx $DEA0
dex
lda $DEA1,x
jsr L86E3
ldy #$01
jsr LD040
L5AC0: jsr LD096
jmp L4523
L5AC6: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L5AD0: brk
ldx $E25B
dex
txa
asl a
asl a
asl a
clc
adc #$06
tax
lda $E44C,x
sec
sbc #$30
clc
adc #$C0
sta L5B1A
lda #$00
sta L5B19
L5AEE: sta ALTZPOFF
lda $C082
jsr LFE93
jsr LFE89
jsr LFB2F
jsr LFC58
sta $C051
sta $C054
sta $C056
sta $C052
sta $C05F
sta $C00E
sta $C00C
sta $C000
.byte $4C
L5B19: brk
L5B1A: brk
L5B1B: brk
L5B1C: lda $EC25
sta $DE9F
jsr LD09A
ldx $EC25
dex
lda $E6D1,x
sta L5B1B
ldx #$03
L5B31: lda $EBFD,x
sta $D209,x
dex
bpl L5B31
ldy #$48
lda #$09
ldx #$D2
jsr LD000
lda $D20D
bne L5B4B
jmp L5CB7
L5B4B: bit $D2AA
bmi L5B53
jmp L5C26
L5B53: cmp #$03
bne L5B58
rts
L5B58: cmp #$01
bne L5BC1
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$05
lda (L0006),y
and #$01
bne L5B71
jmp L5C26
L5B71: jsr L5803
lda $D20E
cmp #$05
bne L5B81
jsr L5C31
jmp L5C26
L5B81: cmp #$01
bne L5B92
L5B85: jsr L5853
lda #$01
jsr L5C89
bpl L5B85
jmp L5C26
L5B92: cmp #$02
bne L5BA3
L5B96: jsr L5846
lda #$02
jsr L5C89
bpl L5B96
jmp L5C26
L5BA3: cmp #$04
beq L5BB4
L5BA7: jsr L638C
lda #$03
jsr L5C89
bpl L5BA7
jmp L5C26
L5BB4: jsr L63EC
lda #$04
jsr L5C89
bpl L5BB4
jmp L5C26
L5BC1: lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$04
lda (L0006),y
and #$01
bne L5BD6
jmp L5C26
L5BD6: jsr L5803
lda $D20E
cmp #$05
bne L5BE6
jsr L5C31
jmp L5C26
L5BE6: cmp #$01
bne L5BF7
L5BEA: jsr L583C
lda #$01
jsr L5C89
bpl L5BEA
jmp L5C26
L5BF7: cmp #$02
bne L5C08
L5BFB: jsr L582F
lda #$02
jsr L5C89
bpl L5BFB
jmp L5C26
L5C08: cmp #$04
beq L5C19
L5C0C: jsr L6451
lda #$03
jsr L5C89
bpl L5C0C
jmp L5C26
L5C19: jsr L64B0
lda #$04
jsr L5C89
bpl L5C19
jmp L5C26
L5C26: jsr LD096
lda #$00
sta $DE9F
jmp LD09A
L5C31: lda $D20D
sta $D208
ldy #$4A
lda #$08
ldx #$D2
jsr LD000
lda $D20E
bne L5C46
rts
L5C46: jsr L5C54
jsr LD096
lda #$00
sta $DE9F
jmp LD09A
L5C54: lda $D20D
sta $D209
ldy #$4B
lda #$08
ldx #$D2
jsr LD000
jsr L6523
jsr L84D1
bit L5B1B
bmi L5C71
jsr L6E6E
L5C71: lda $EC25
sta $D212
jsr L44F2
ldy #$11
lda #$1D
ldx #$D2
jsr LD000
jsr L4510
jmp L6C19
L5C89: sta L5CB6
jsr L48F0
lda $D208
cmp #$04
beq L5C99
L5C96: lda #$FF
rts
L5C99: ldy #$48
lda #$09
ldx #$D2
jsr LD000
lda $D20D
beq L5C96
cmp #$03
beq L5C96
lda $D20E
cmp L5CB6
bne L5C96
lda #$00
rts
L5CB6: brk
L5CB7: bit L5B1B
bpl L5CBF
jmp L6D2B
L5CBF: lda $EC25
sta $D20E
ldy #$09
lda #$09
ldx #$D2
jsr LD040
lda $D20D
bne L5CDA
jsr L5F13
jmp L5DEC
L5CD9: brk
L5CDA: sta L5CD9
ldx $DF21
beq L5CFB
dex
lda L5CD9
L5CE6: cmp $DF22,x
beq L5CF0
dex
bpl L5CE6
bmi L5CFB
L5CF0: bit $D2AA
bmi L5CF8
jmp L5DFC
L5CF8: jmp L5D55
L5CFB: bit $C061
bpl L5D08
lda $DF20
cmp $EC25
beq L5D0B
L5D08: jsr L6D2B
L5D0B: ldx $DF21
lda L5CD9
sta $DF22,x
inc $DF21
lda $EC25
sta $DF20
lda $EC25
sta $D212
jsr L44F2
lda L5CD9
sta $E22F
jsr L8915
jsr L6E8E
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
lda $EC25
sta $D212
jsr L44F2
lda L5CD9
jsr L8893
jsr L4510
bit $D2AA
bmi L5D55
jmp L5DFC
L5D55: lda L5CD9
sta $EBFC
ldy #$0A
lda #$FC
ldx #$EB
jsr LD040
tax
lda $EBFC
beq L5DA6
jsr L8F00
cmp #$FF
bne L5D77
jsr L5DEC
jmp L4523
L5D77: lda $EBFC
cmp $EBFB
bne L5D8E
lda $EC25
jsr L6F0D
lda $EC25
jsr L5E78
jmp L4523
L5D8E: lda $EBFC
bmi L5D99
jsr L6A3F
jmp L4523
L5D99: and #$7F
pha
jsr L6F0D
pla
jsr L5E78
jmp L4523
L5DA6: cpx #$02
bne L5DAD
jmp L5DEC
L5DAD: cpx #$FF
beq L5DF7
lda $EC25
sta $D212
jsr L44F2
jsr L6E52
jsr L6E8E
ldx $DF21
dex
L5DC4: txa
pha
lda $DF22,x
sta $E22E
ldy #$03
lda #$2E
ldx #$E2
jsr LD040
pla
tax
dex
bpl L5DC4
lda $EC25
sta $D212
jsr L44F2
jsr L6DB1
jsr L6E6E
jsr L4510
L5DEC: jsr LD096
lda #$00
sta $DE9F
jmp LD09A
L5DF7: ldx $E256
txs
rts
L5DFC: lda L5CD9
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$70
cmp #$10
beq L5E28
cmp #$20
beq L5E28
cmp #$30
beq L5E28
cmp #$00
bne L5E27
lda L5CD9
jsr L6A8A
bmi L5E27
jmp L5DEC
L5E27: rts
L5E28: sta L5E77
lda $EC25
jsr L86FB
sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
L5E3A: lda (L0006),y
sta $D355,y
dey
bpl L5E3A
lda L5CD9
jsr L86E3
sta L0006
stx $07
ldy #$09
lda (L0006),y
tax
clc
adc #$09
tay
dex
dey
L5E57: lda (L0006),y
sta $D344,x
dey
dex
bne L5E57
ldy #$09
lda (L0006),y
tax
dex
dex
stx $D345
lda L5E77
cmp #$20
bcc L5E74
lda L5E77
L5E74: jmp L46DE
L5E77: brk
L5E78: sta L5F0A
jsr L4523
jsr L6D2B
lda L5F0A
cmp $EC25
beq L5E8F
sta $D20E
jsr L4459
L5E8F: lda $EC25
sta $D212
jsr L44F2
jsr L4904
ldy #$11
lda #$1D
ldx #$D2
jsr LD000
ldx $EC25
dex
lda $EC26,x
pha
jsr L7345
lda L5F0A
tax
dex
lda $E6D1,x
bmi L5EBC
jsr L5302
L5EBC: lda $EC25
jsr L86FB
sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
L5ECB: lda (L0006),y
sta $E1B0,y
dey
bpl L5ECB
pla
jsr L7054
jsr L5106
jsr LD096
lda $EC25
sta $DE9F
jsr LD09A
lda $EC25
sta $D212
jsr L4505
jsr L78EF
lda #$00
ldx $EC25
sta $E6D0,x
lda #$01
sta $E25B
jsr L52DF
lda #$00
sta $DE9F
jmp LD09A
L5F0A: brk
L5F0B: brk
brk
brk
brk
L5F0F: brk
brk
brk
brk
L5F13: lda #$06
sta L0006
lda #$D2
sta $07
jsr L60D5
ldx #$03
L5F20: lda $D209,x
sta L5F0B,x
sta L5F0F,x
dex
bpl L5F20
jsr L48F0
lda $D208
cmp #$04
beq L5F3F
bit $C061
bmi L5F3E
jsr L6D2B
L5F3E: rts
L5F3F: jsr L6D2B
lda $EC25
sta $D212
jsr L4505
jsr L6E8E
ldx #$03
L5F50: lda L5F0B,x
sta $E230,x
lda L5F0F,x
sta $E234,x
dex
bpl L5F50
jsr L48FA
ldy #$12
lda #$30
ldx #$E2
jsr LD000
L5F6B: jsr L48F0
lda $D208
cmp #$04
beq L5FC5
ldy #$12
lda #$30
ldx #$E2
jsr LD000
ldx #$00
L5F80: cpx $DEA0
bne L5F88
jmp L4510
L5F88: txa
pha
lda $DEA1,x
sta $E22F
jsr L8915
ldy #$0D
lda #$2F
ldx #$E2
jsr LD040
beq L5FB9
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
ldx $DF21
inc $DF21
lda $E22F
sta $DF22,x
lda $EC25
sta $DF20
L5FB9: lda $E22F
jsr L8893
pla
tax
inx
jmp L5F80
L5FC5: jsr L60D5
lda $D209
sec
sbc L60CF
sta L60CB
lda $D20A
sbc L60D0
sta L60CC
lda $D20B
sec
sbc L60D1
sta L60CD
lda $D20C
sbc L60D2
sta L60CE
lda L60CC
bpl L5FFE
lda L60CB
eor #$FF
sta L60CB
inc L60CB
L5FFE: lda L60CE
bpl L600E
lda L60CD
eor #$FF
sta L60CD
inc L60CD
L600E: lda L60CB
cmp #$05
bcs L601F
lda L60CD
cmp #$05
bcs L601F
jmp L5F6B
L601F: ldy #$12
lda #$30
ldx #$E2
jsr LD000
ldx #$03
L602A: lda $D209,x
sta L60CF,x
dex
bpl L602A
lda $D209
cmp $E234
lda $D20A
sbc $E235
bpl L6068
lda $D209
cmp $E230
lda $D20A
sbc $E231
bmi L6054
bit L60D3
bpl L6068
L6054: lda $D209
sta $E230
lda $D20A
sta $E231
lda #$80
sta L60D3
jmp L6079
L6068: lda $D209
sta $E234
lda $D20A
sta $E235
lda #$00
sta L60D3
L6079: lda $D20B
cmp $E236
lda $D20C
sbc $E237
bpl L60AE
lda $D20B
cmp $E232
lda $D20C
sbc $E233
bmi L609A
bit L60D4
bpl L60AE
L609A: lda $D20B
sta $E232
lda $D20C
sta $E233
lda #$80
sta L60D4
jmp L60BF
L60AE: lda $D20B
sta $E236
lda $D20C
sta $E237
lda #$00
sta L60D4
L60BF: ldy #$12
lda #$30
ldx #$E2
jsr LD000
jmp L5F6B
L60CB: brk
L60CC: brk
L60CD: brk
L60CE: brk
L60CF: brk
L60D0: brk
L60D1: brk
L60D2: brk
L60D3: brk
L60D4: brk
L60D5: jsr L87F6
jmp L8921
L60DB: jmp L60DE
L60DE: lda $EC25
sta $D208
ldy #$41
lda #$25
ldx #$EC
jsr LD000
lda $EC25
jsr L8855
ldy #$44
lda #$08
ldx #$D2
jsr LD000
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$16
lda (L0006),y
cmp #$19
bcs L6112
lda #$19
sta (L0006),y
L6112: ldy #$14
lda (L0006),y
sec
sbc L8830
sta L6197
iny
lda (L0006),y
sbc L8831
sta L6198
iny
lda (L0006),y
sec
sbc L8832
sta L6199
iny
lda (L0006),y
sbc L8833
sta L619A
ldx $EC25
dex
lda $E6D1,x
beq L6143
L6142: rts
L6143: lda $EC25
sta $DE9F
jsr LD09A
ldx #$00
L614E: cpx $DEA0
bne L6161
jsr LD096
lda #$00
sta $DE9F
jsr LD09A
jmp L6196
L6161: txa
pha
lda $DEA1,x
jsr L86E3
sta L0006
stx $07
ldy #$03
lda (L0006),y
clc
adc L6197
sta (L0006),y
iny
lda (L0006),y
adc L6198
sta (L0006),y
iny
lda (L0006),y
clc
adc L6199
sta (L0006),y
iny
lda (L0006),y
adc L619A
sta (L0006),y
pla
tax
inx
jmp L614E
L6196: rts
L6197: brk
L6198: brk
L6199: brk
L619A: brk
L619B: lda $EC25
sta $D208
ldy #$45
lda #$08
ldx #$D2
jsr LD000
jsr L4523
lda $EC25
sta $DE9F
jsr LD09A
jsr L6E52
jsr L6DB1
jsr L6E6E
lda #$00
sta $DE9F
jsr LD09A
jmp L4510
L61CA: lda $EC25
ldy #$43
lda #$A8
ldx #$D2
jsr LD000
lda $D2A8
bne L61DC
rts
L61DC: lda $EC25
sta $DE9F
jsr LD09A
jsr L6D2B
ldx $EC25
dex
lda $E6D1,x
bmi L6215
lda $DD9E
sec
sbc $DEA0
sta $DD9E
ldy #$07
lda #$25
ldx #$EC
jsr LD040
ldx #$00
L6206: cpx $DEA0
beq L6215
lda $DEA1,x
jsr LD082
inx
jmp L6206
L6215: dec $EC2E
ldx #$00
txa
L621B: sta $DEA1,x
cpx $DEA0
beq L6227
inx
jmp L621B
L6227: sta $DEA0
jsr LD096
ldy #$39
lda #$25
ldx #$EC
jsr LD000
ldx $EC25
dex
lda $EC26,x
sta $E22F
jsr L86E3
sta L0006
stx $07
ldy #$01
lda (L0006),y
and #$0F
beq L6276
ldy #$02
lda (L0006),y
and #$7F
sta (L0006),y
and #$0F
sta $DF20
jsr L8997
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
jsr L4510
lda #$01
sta $DF21
lda $E22F
sta $DF22
L6276: ldx $EC25
dex
lda $EC26,x
jsr L7345
ldx $EC25
dex
lda $EC26,x
inx
jsr L8B5C
ldx $EC25
dex
lda #$00
sta $EC26,x
sta $E6D1,x
ldy #$41
lda #$25
ldx #$EC
jsr LD000
lda #$00
sta $DE9F
jsr LD09A
lda #$00
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
jsr L66A2
jmp L4523
L62BC: cmp #$01
bcc L62C2
bne L62C5
L62C2: lda #$00
rts
L62C5: sta L638B
stx L6386
sty L638A
cmp L6386
bcc L62D5
tya
rts
L62D5: lda #$00
sta L6385
sta L6389
clc
ror L6386
ror L6385
clc
ror L638A
ror L6389
lda #$00
sta L6383
sta L6387
sta L6384
sta L6388
L62F9: lda L6384
cmp L638B
beq L630F
bcc L6309
jsr L6319
jmp L62F9
L6309: jsr L634E
jmp L62F9
L630F: lda L6388
cmp #$01
bcs L6318
lda #$01
L6318: rts
L6319: lda L6383
sec
sbc L6385
sta L6383
lda L6384
sbc L6386
sta L6384
lda L6387
sec
sbc L6389
sta L6387
lda L6388
sbc L638A
sta L6388
clc
ror L6386
ror L6385
clc
ror L638A
ror L6389
rts
L634E: lda L6383
clc
adc L6385
sta L6383
lda L6384
adc L6386
sta L6384
L6361: lda L6387
clc
adc L6389
sta L6387
lda L6388
adc L638A
sta L6388
clc
ror L6386
ror L6385
clc
ror L638A
ror L6389
rts
L6383: brk
L6384: brk
L6385: brk
L6386: brk
L6387: brk
L6388: brk
L6389: brk
L638A: brk
L638B: brk
L638C: jsr L650F
sty L63E9
jsr L644C
sta L63E8
lda $D21F
sec
sbc L63E8
sta L63EA
lda $D220
sbc #$00
sta L63EB
lda L63EA
cmp L7B61
lda L63EB
sbc L7B62
bmi L63C1
lda L63EA
ldx L63EB
jmp L63C7
L63C1: lda L7B61
ldx L7B62
L63C7: sta $D21F
stx $D220
lda $D21F
clc
adc L63E9
sta $D223
lda $D220
adc #$00
sta $D224
jsr L653E
jsr L6DB1
jmp L6556
L63E8: brk
L63E9: brk
L63EA: brk
L63EB: brk
L63EC: jsr L650F
sty L6449
jsr L644C
sta L6448
lda $D223
clc
adc L6448
sta L644A
lda $D224
adc #$00
sta L644B
lda L644A
cmp L7B65
lda L644B
sbc L7B66
bpl L6421
lda L644A
ldx L644B
jmp L6427
L6421: lda L7B65
ldx L7B66
L6427: sta $D223
stx $D224
lda $D223
sec
sbc L6449
sta $D21F
lda $D224
sbc #$00
sta $D220
jsr L653E
jsr L6DB1
jmp L6556
L6448: brk
L6449: brk
L644A: brk
L644B: brk
L644C: tya
sec
sbc #$0E
rts
L6451: jsr L650F
sta L64AC
stx L64AD
lda $D21D
sec
sbc L64AC
sta L64AE
lda $D21E
sbc L64AD
sta L64AF
lda L64AE
cmp L7B5F
lda L64AF
sbc L7B60
bmi L6484
lda L64AE
ldx L64AF
jmp L648A
L6484: lda L7B5F
ldx L7B60
L648A: sta $D21D
stx $D21E
lda $D21D
clc
adc L64AC
sta $D221
lda $D21E
adc L64AD
sta $D222
jsr L653E
jsr L6DB1
jmp L6556
L64AC: brk
L64AD: brk
L64AE: brk
L64AF: brk
L64B0: jsr L650F
sta L650B
stx L650C
lda $D221
clc
adc L650B
sta L650D
lda $D222
adc L650C
sta L650E
lda L650D
cmp L7B63
lda L650E
sbc L7B64
bpl L64E3
lda L650D
ldx L650E
jmp L64E9
L64E3: lda L7B63
ldx L7B64
L64E9: sta $D221
stx $D222
lda $D221
sec
sbc L650B
sta $D21D
lda $D222
sbc L650C
sta $D21E
jsr L653E
jsr L6DB1
jmp L6556
L650B: brk
L650C: brk
L650D: brk
L650E: brk
L650F: bit L5B1B
bmi L6517
jsr L6E52
L6517: jsr L6523
jsr L7B6B
lda $EC25
jmp L7D5D
L6523: lda $EC25
jsr L86EF
clc
adc #$14
sta L0006
txa
adc #$00
sta $07
ldy #$25
L6535: lda (L0006),y
sta $D215,y
dey
bpl L6535
rts
L653E: lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$23
ldx #$07
L654C: lda $D21D,x
sta (L0006),y
dey
dex
bpl L654C
rts
L6556: bit L5B1B
bmi L655E
jsr L6E6E
L655E: ldy #$11
lda #$1D
ldx #$D2
jsr LD000
jsr L4510
jmp L6C19
L656D: lda $EC25
jsr L7D5D
sta L6600
stx L6601
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$06
lda (L0006),y
tay
lda L7B63
sec
sbc L7B5F
sta L6602
lda L7B64
sbc L7B60
sta L6603
lda L6602
sec
sbc L6600
sta L6602
lda L6603
sbc L6601
sta L6603
lsr L6603
ror L6602
ldx L6602
lda $D21D
sec
sbc L7B5F
sta L6602
lda $D21E
sbc L7B60
sta L6603
bpl L65D0
lda #$00
beq L65EB
L65D0: lda $D221
cmp L7B63
lda $D222
sbc L7B64
bmi L65E2
tya
jmp L65EE
L65E2: lsr L6603
ror L6602
lda L6602
L65EB: jsr L62BC
L65EE: sta $D209
lda #$02
sta $D208
ldy #$4B
lda #$08
ldx #$D2
jsr LD000
rts
L6600: brk
L6601: brk
L6602: brk
L6603: brk
L6604: lda $EC25
jsr L7D5D
sty L669F
lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$08
lda (L0006),y
tay
lda L7B65
sec
sbc L7B61
sta L66A0
lda L7B66
sbc L7B62
sta L66A1
lda L66A0
sec
sbc L669F
sta L66A0
lda L66A1
sbc #$00
sta L66A1
lsr L66A1
ror L66A0
lsr L66A1
ror L66A0
ldx L66A0
lda $D21F
sec
sbc L7B61
sta L66A0
lda $D220
sbc L7B62
sta L66A1
bpl L6669
lda #$00
beq L668A
L6669: lda $D223
cmp L7B65
lda $D224
sbc L7B66
bmi L667B
tya
jmp L668D
L667B: lsr L66A1
ror L66A0
lsr L66A1
ror L66A0
lda L66A0
L668A: jsr L62BC
L668D: sta $D209
lda #$01
sta $D208
ldy #$4B
lda #$08
ldx #$D2
jsr LD000
rts
L669F: brk
L66A0: brk
L66A1: brk
L66A2: ldx $EC25
beq L66AA
jmp L66F2
L66AA: lda #$01
sta $E26B
ldy #$34
lda #$6A
ldx #$E2
jsr LD000
lda #$01
sta $E26E
lda #$02
sta $E26C
lda #$01
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
lda #$04
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
lda #$05
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
lda #$00
sta L4359
rts
L66F2: dex
lda $E6D1,x
and #$0F
tax
inx
stx $E268
lda #$01
sta $E269
ldy #$36
lda #$67
ldx #$E2
jsr LD000
rts
L670C: lda #$01
sta $E26E
lda #$02
sta $E26C
lda #$03
jsr L673A
lda #$05
sta $E26C
lda #$07
jsr L673A
lda #$08
jsr L673A
lda #$0A
jsr L673A
lda #$0B
jsr L673A
lda #$0D
jsr L673A
rts
L673A: sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
rts
L6747: lda #$00
sta $E26E
lda #$02
.byte $8D
.byte $6C
L6750: .byte $E2
lda #$03
jsr L6775
lda #$05
sta $E26C
lda #$07
jsr L6775
lda #$08
jsr L6775
lda #$0A
jsr L6775
lda #$0B
jsr L6775
lda #$0D
jsr L6775
rts
L6775: sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
rts
L6782: lda #$00
sta $E26E
jmp L678F
L678A: lda #$01
sta $E26E
L678F: lda #$02
sta $E26C
lda #$0B
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
rts
L67A3: lda #$01
sta $E26E
jmp L67B0
L67AB: lda #$00
sta $E26E
L67B0: lda #$03
sta $E26C
lda #$02
jsr L67CA
lda #$03
jsr L67CA
lda #$04
jsr L67CA
lda #$80
sta $D344
rts
L67CA: sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
rts
L67D7: lda $DF21
bne L67DF
jmp L681B
L67DF: tax
dex
lda $D20D
L67E4: cmp $DF22,x
beq L67EE
dex
bpl L67E4
bmi L67F6
L67EE: bit $D2AA
bmi L6834
jmp L6880
L67F6: bit $C061
bpl L6818
lda $DF20
bne L6818
ldy #$02
lda #$0D
ldx #$D2
jsr LD040
ldx $DF21
lda $D20D
sta $DF22,x
inc $DF21
jmp L6834
L6818: jsr L6D2B
L681B: ldy #$02
lda #$0D
ldx #$D2
jsr LD040
lda #$01
sta $DF21
lda $D20D
sta $DF22
lda #$00
sta $DF20
L6834: bit $D2AA
bpl L6880
lda $D20D
sta $EBFC
ldy #$0A
lda #$FC
ldx #$EB
jsr LD040
tax
lda $EBFC
beq L6878
jsr L8F00
cmp #$FF
bne L6858
jmp L4523
L6858: lda $EBFC
cmp $EBFB
bne L6863
jmp L4523
L6863: lda $EBFC
bpl L6872
and #$7F
pha
jsr L6F0D
pla
jmp L5E78
L6872: jsr L6A3F
jmp L4523
L6878: txa
cmp #$02
bne L688F
jmp L4523
L6880: lda $D20D
cmp $EBFB
beq L688E
jsr L6A8A
jsr LD096
L688E: rts
L688F: ldx $DF21
dex
L6893: txa
pha
lda $DF22,x
sta $E22D
ldy #$03
lda #$2D
ldx #$E2
jsr LD040
pla
tax
dex
bpl L6893
rts
L68AA: jsr L4510
bit $C061
bpl L68B3
rts
L68B3: jsr L6D2B
ldx #$03
L68B8: lda $D209,x
sta $E230,x
sta $E234,x
dex
bpl L68B8
jsr L48F0
.byte $AD
php
L68C9: cmp ($C9)
tsb $F0
ora ($60,x)
ldy #$08
lda #$93
ldx #$D2
jsr LD000
jsr L48FA
ldy #$12
lda #$30
ldx #$E2
jsr LD000
L68E4: jsr L48F0
lda $D208
cmp #$04
beq L6932
ldy #$12
lda #$30
ldx #$E2
jsr LD000
ldx #$00
L68F9: cpx $DEA0
bne L6904
lda #$00
sta $DF20
rts
L6904: txa
pha
lda $DEA1,x
sta $E22F
ldy #$0D
lda #$2F
ldx #$E2
jsr LD040
beq L692C
ldy #$02
lda #$2F
ldx #$E2
jsr LD040
ldx $DF21
inc $DF21
lda $E22F
sta $DF22,x
L692C: pla
tax
inx
jmp L68F9
L6932: lda $D209
sec
sbc L6A39
sta L6A35
lda $D20A
sbc L6A3A
sta L6A36
lda $D20B
sec
sbc L6A3B
sta L6A37
lda $D20C
sbc L6A3C
sta L6A38
lda L6A36
bpl L6968
lda L6A35
eor #$FF
sta L6A35
inc L6A35
L6968: lda L6A38
bpl L6978
lda L6A37
eor #$FF
sta L6A37
inc L6A37
L6978: lda L6A35
cmp #$05
bcs L6989
lda L6A37
cmp #$05
bcs L6989
jmp L68E4
L6989: ldy #$12
lda #$30
ldx #$E2
jsr LD000
ldx #$03
L6994: lda $D209,x
sta L6A39,x
dex
bpl L6994
lda $D209
cmp $E234
lda $D20A
sbc $E235
bpl L69D2
lda $D209
cmp $E230
lda $D20A
sbc $E231
bmi L69BE
bit L6A3D
bpl L69D2
L69BE: lda $D209
sta $E230
lda $D20A
sta $E231
lda #$80
sta L6A3D
jmp L69E3
L69D2: lda $D209
sta $E234
lda $D20A
sta $E235
lda #$00
sta L6A3D
L69E3: lda $D20B
cmp $E236
lda $D20C
sbc $E237
bpl L6A18
lda $D20B
cmp $E232
lda $D20C
sbc $E233
bmi L6A04
bit L6A3E
bpl L6A18
L6A04: lda $D20B
sta $E232
lda $D20C
sta $E233
lda #$80
sta L6A3E
jmp L6A29
L6A18: lda $D20B
sta $E236
lda $D20C
sta $E237
lda #$00
sta L6A3E
L6A29: ldy #$12
lda #$30
ldx #$E2
jsr LD000
jmp L68E4
L6A35: brk
L6A36: brk
L6A37: brk
L6A38: brk
L6A39: brk
L6A3A: brk
L6A3B: brk
L6A3C: brk
L6A3D: brk
L6A3E: brk
L6A3F: ldx #$07
L6A41: cmp $EC26,x
beq L6A80
dex
bpl L6A41
jsr L86E3
clc
adc #$09
sta L0006
txa
adc #$00
sta $07
ldy #$00
lda (L0006),y
tay
dey
L6A5C: lda (L0006),y
sta $0220,y
dey
bpl L6A5C
dec $0220
lda #$2F
sta $0221
lda #$20
ldx #$02
ldy $0220
jsr L6FB7
lda #$20
ldx #$02
ldy $0220
jmp L6F4B
L6A80: inx
txa
pha
jsr L6F0D
pla
jmp L5E78
L6A8A: sta $E6BE
jsr LD096
lda $E6BE
ldx #$07
L6A95: cmp $EC26,x
beq L6AA0
dex
bpl L6A95
jmp L6B1E
L6AA0: inx
cpx $EC25
bne L6AA7
rts
L6AA7: stx $DE9F
jsr LD09A
lda $E6BE
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
ora #$80
sta (L0006),y
ldy #$02
lda (L0006),y
and #$0F
sta $D212
beq L6AD8
cmp $EC25
bne L6AEF
jsr L44F2
lda $E6BE
jsr L8915
L6AD8: ldy #$03
lda #$BE
ldx #$E6
jsr LD040
lda $D212
beq L6AEF
lda $E6BE
jsr L8893
jsr L4510
L6AEF: lda $E6BE
ldx $E1F1
dex
L6AF6: cmp $E1F2,x
beq L6B01
dex
bpl L6AF6
jsr L7054
L6B01: ldy #$42
lda #$9F
ldx #$DE
jsr LD000
lda $DE9F
sta $EC25
jsr L6C19
jsr L40F2
lda #$00
sta $DE9F
jmp LD09A
L6B1E: lda $EC2E
cmp #$08
bcc L6B2F
lda #$05
jsr L48CC
ldx $E256
txs
rts
L6B2F: ldx #$00
L6B31: lda $EC26,x
beq L6B3A
inx
jmp L6B31
L6B3A: lda $E6BE
sta $EC26,x
inx
stx $DE9F
jsr LD09A
inc $EC2E
ldx $DE9F
dex
lda #$00
sta $E6D1,x
lda $EC2E
cmp #$02
bcs L6B60
jsr L6EC5
jmp L6B68
L6B60: lda #$00
sta $E269
jsr L6C0F
L6B68: lda #$01
sta $E268
sta $E269
jsr L6C0F
lda $E6BE
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
ora #$80
sta (L0006),y
ldy #$02
lda (L0006),y
and #$0F
sta $D212
beq L6BA1
cmp $EC25
bne L6BB8
jsr L44F2
jsr L6E8E
lda $E6BE
jsr L8915
L6BA1: ldy #$03
lda #$BE
ldx #$E6
jsr LD040
lda $D212
beq L6BB8
lda $E6BE
jsr L8893
jsr L4510
L6BB8: jsr L744B
lda $DE9F
jsr L86EF
ldy #$38
jsr LD000
lda $EC25
sta $D212
jsr L44F2
jsr L78EF
jsr L6E52
lda #$00
sta L6C0E
L6BDA: lda L6C0E
cmp $DEA0
beq L6BF4
tax
lda $DEA1,x
jsr L86E3
ldy #$01
jsr LD040
inc L6C0E
jmp L6BDA
L6BF4: lda $DE9F
sta $EC25
jsr L6DB1
jsr L6E6E
jsr LD096
lda #$00
sta $DE9F
jsr LD09A
jmp L4510
L6C0E: brk
L6C0F: ldy #$36
lda #$67
ldx #$E2
jsr LD000
rts
L6C19: ldx $DE9F
dex
lda $E6D1,x
bmi L6C25
jmp L6CCD
L6C25: jsr L87F6
lda $DE9F
sta $D212
jsr L44F2
bit L4152
bmi L6C39
jsr L78EF
L6C39: lda $DE9F
sta $D212
jsr L4505
L6C42: bit L4152
bmi L6C4A
jsr L6E8E
L6C4A: ldx $DE9F
dex
lda $EC26,x
ldx #$00
L6C53: cmp $E1F2,x
beq L6C5F
inx
cpx $E1F1
bne L6C53
rts
L6C5F: txa
asl a
tax
lda $E202,x
sta $E71D
sta L0006
lda $E203,x
sta $E71E
sta $07
lda $C083
lda $C083
ldy #$00
lda (L0006),y
tay
lda LCBANK1
lda LCBANK1
tya
sta $E71F
inc $E71D
bne L6C8F
inc $E71E
L6C8F: lda #$10
sta $E6DB
sta $E6DF
sta $E6E3
sta $E6E7
lda #$00
sta $E6DC
sta $E6E0
sta $E6E4
sta $E6E8
lda #$00
sta L6CCC
L6CB0: lda L6CCC
cmp $DEA0
beq L6CC5
tax
lda $DEA1,x
jsr L813F
inc L6CCC
jmp L6CB0
L6CC5: jsr L4510
jsr L8813
rts
L6CCC: brk
L6CCD: lda $DE9F
sta $D212
jsr L44F2
bit L4152
bmi L6CDE
jsr L78EF
L6CDE: jsr L6E52
jsr L6E8E
ldx #$07
L6CE6: lda $D21D,x
sta $E230,x
dex
bpl L6CE6
ldx #$00
txa
pha
L6CF3: cpx $DEA0
bne L6D09
pla
jsr L4510
lda $DE9F
sta $D212
jsr L44F2
jsr L6E6E
rts
L6D09: txa
pha
lda $DEA1,x
sta $E22F
ldy #$0D
lda #$2F
ldx #$E2
jsr LD040
beq L6D25
ldy #$03
lda #$2F
ldx #$E2
jsr LD040
L6D25: pla
tax
inx
jmp L6CF3
L6D2B: lda $DF21
bne L6D31
rts
L6D31: lda #$00
sta L6DB0
lda $DF20
sta $E230
beq L6D7D
cmp $EC25
beq L6D4D
jsr L8997
lda #$00
sta $E230
beq L6D56
L6D4D: sta $D212
jsr L44F2
jsr L6E8E
L6D56: lda L6DB0
cmp $DF21
beq L6D9B
tax
lda $DF22,x
sta $E22F
jsr L8915
ldy #$0B
lda #$2F
ldx #$E2
jsr LD040
lda $E22F
jsr L8893
inc L6DB0
jmp L6D56
L6D7D: lda L6DB0
cmp $DF21
beq L6D9B
tax
lda $DF22,x
sta $E22F
ldy #$0B
lda #$2F
ldx #$E2
jsr LD040
inc L6DB0
jmp L6D7D
L6D9B: lda #$00
ldx $DF21
dex
L6DA1: sta $DF22,x
dex
bpl L6DA1
sta $DF21
sta $DF20
jmp L4510
L6DB0: brk
L6DB1: ldx $EC25
dex
lda $E6D1,x
bmi L6DC0
jsr L7B6B
jmp L6DC9
L6DC0: jsr L6E52
jsr L7B6B
jsr L6E6E
L6DC9: lda $EC25
sta $D212
jsr L44F2
lda L7B5F
cmp $D21D
lda L7B60
sbc $D21E
bmi L6DFE
lda $D221
cmp L7B63
lda $D222
sbc L7B64
bmi L6DFE
lda #$02
sta $D208
lda #$00
sta $D209
jsr L6E48
jmp L6E0E
L6DFE: lda #$02
sta $D208
lda #$01
sta $D209
jsr L6E48
jsr L656D
L6E0E: lda L7B61
cmp $D21F
lda L7B62
sbc $D220
bmi L6E38
lda $D223
cmp L7B65
lda $D224
sbc L7B66
bmi L6E38
lda #$01
sta $D208
lda #$00
sta $D209
jsr L6E48
rts
L6E38: lda #$01
sta $D208
lda #$01
sta $D209
jsr L6E48
jmp L6604
L6E48: ldy #$4C
lda #$08
ldx #$D2
jsr LD000
rts
L6E52: lda #$00
sta L6E6D
L6E57: lda L6E6D
cmp $DEA0
beq L6E6C
tax
lda $DEA1,x
jsr L8915
inc L6E6D
jmp L6E57
L6E6C: rts
L6E6D: brk
L6E6E: lda #$00
sta L6E89
L6E73: lda L6E89
cmp $DEA0
beq L6E88
tax
lda $DEA1,x
jsr L8893
inc L6E89
jmp L6E73
L6E88: rts
L6E89: brk
L6E8A: lda #$80
beq L6E90
L6E8E: lda #$00
L6E90: sta L6EC4
lda $D217
clc
adc #$0F
sta $D217
lda $D218
adc #$00
sta $D218
lda $D21F
clc
adc #$0F
sta $D21F
lda $D220
adc #$00
sta $D220
bit L6EC4
bmi L6EC3
ldy #$04
lda #$15
ldx #$D2
jsr LD000
L6EC3: rts
L6EC4: brk
L6EC5: lda #$00
sta $E26B
ldy #$34
lda #$6A
ldx #$E2
jsr LD000
lda #$00
sta $E26E
lda #$02
sta $E26C
lda #$01
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
lda #$04
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
lda #$05
sta $E26D
ldy #$35
lda #$6C
ldx #$E2
jsr LD000
lda #$80
sta L4359
rts
L6F0D: jsr L86FB
sta L0006
sta L6F48
stx $07
stx L6F49
ldy #$00
lda (L0006),y
sta L6F4A
iny
L6F22: iny
lda (L0006),y
cmp #$2F
beq L6F31
cpy L6F4A
beq L6F32
jmp L6F22
L6F31: dey
L6F32: sty L6F4A
lda L0006
ldx $07
jsr L6FB7
lda L6F48
ldx L6F49
ldy L6F4A
jmp L6F4B
L6F48: brk
L6F49: brk
L6F4A: brk
L6F4B: sta L0006
stx $07
sty L705D
L6F52: lda (L0006),y
sta L705D,y
dey
bne L6F52
jsr L72EC
bne L6F8F
lda L704B
beq L6F8F
L6F64: dec L704B
bmi L6F8F
ldx L704B
lda L704C,x
sec
sbc #$01
asl a
tax
lda L70BD
sta $EB8B,x
lda L70BE
sta $EB8C,x
lda L70BB
sta $EB9B,x
lda L70BC
sta $EB9C,x
jmp L6F64
L6F8F: rts
L6F90: sta $0A
stx $0B
ldy #$00
lda ($0A),y
tay
L6F99: lda ($0A),y
cmp #$2F
beq L6FA9
dey
bpl L6F99
ldy #$01
L6FA4: dey
lda ($0A),y
tay
rts
L6FA9: cpy #$01
beq L6FA4
dey
rts
L6FAF: sta L0006
stx $07
lda #$80
bne L6FBD
L6FB7: sta L0006
stx $07
lda #$00
L6FBD: sta L704A
bit L704A
bpl L6FCA
ldy #$00
lda (L0006),y
tay
L6FCA: sty L4F76
L6FCD: lda (L0006),y
sta L4F76,y
dey
bne L6FCD
lda #$76
ldx #$4F
jsr L87BA
lda #$00
sta L704B
sta L7049
L6FE4: inc L7049
lda L7049
cmp #$09
bcc L6FF6
bit L704A
bpl L6FF5
lda #$00
L6FF5: rts
L6FF6: jsr L86EF
sta L0006
stx $07
ldy #$0A
lda (L0006),y
beq L6FE4
lda L7049
jsr L86FB
sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
cmp L4F76
beq L7027
bit L704A
bmi L6FE4
ldy L4F76
iny
lda (L0006),y
cmp #$2F
bne L6FE4
dey
L7027: lda (L0006),y
cmp L4F76,y
bne L6FE4
dey
bne L7027
bit L704A
bmi L7045
ldx L704B
lda L7049
sta L704C,x
inc L704B
jmp L6FE4
L7045: lda L7049
rts
L7049: brk
L704A: brk
L704B: brk
L704C: brk
brk
brk
brk
brk
brk
brk
brk
L7054: jmp L70C5
.byte $03
eor a:$70,x
php
L705C: brk
L705D: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
.byte $04
L709F: brk
brk
tsb $0200
brk
brk
.byte $01
L70A7: brk
asl a
eor a:$70,x
brk
L70AD: brk
L70AE: brk
brk
L70B0: brk
L70B1: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L70BB: brk
L70BC: brk
L70BD: brk
L70BE: brk
L70BF: brk
L70C0: brk
L70C1: brk
L70C2: brk
L70C3: brk
L70C4: brk
L70C5: sta L72A7
jsr L87F6
ldx #$40
L70CD: lda $E1B0,x
sta L705D,x
dex
bpl L70CD
jsr L72AA
lda L705C
sta L709F
sta L70A7
jsr L72CE
jsr L72E2
ldx #$00
L70EA: lda $0C23,x
sta L70BF,x
inx
cpx #$04
bne L70EA
lda L485D
sec
sbc L485F
sta L72A8
lda L485E
sbc L4860
sta L72A9
ldx #$05
L710A: lsr L72A9
ror L72A8
dex
cpx #$00
bne L710A
lda L70C2
bne L7147
lda $DD9E
clc
adc L70C1
bcs L7147
cmp #$7C
bcs L7147
lda L72A8
sec
sbc $BF31
sta L72A8
lda L72A9
sbc #$00
sta L72A9
lda L72A8
cmp L70C1
lda L72A9
sbc L70C2
bcs L7169
L7147: lda $EC2E
jsr L8B19
dec $EC2E
jsr L4523
jsr L72D8
lda $EC25
beq L715F
lda #$03
bne L7161
L715F: lda #$04
L7161: jsr L48CC
ldx $E256
txs
rts
L7169: lda L485F
sta L0006
lda L4860
sta $07
lda $E1F1
asl a
tax
lda L0006
sta $E202,x
lda $07
sta $E203,x
ldx $E1F1
lda L72A7
sta $E1F2,x
inc $E1F1
lda L70C1
pha
lda $C083
lda $C083
ldy #$00
pla
sta (L0006),y
lda LCBANK1
lda LCBANK1
lda #$FF
sta L70C4
lda #$00
sta L70C3
lda #$04
sta $08
lda #$0C
sta $09
inc L0006
lda L0006
bne L71BD
inc $07
L71BD: inc L70C4
lda L70C4
cmp L70C1
bne L71CB
jmp L7296
L71CB: inc L70C3
lda L70C3
cmp L70C0
beq L71E7
lda $08
clc
adc L70BF
sta $08
lda $09
adc #$00
sta $09
jmp L71F7
L71E7: lda #$00
sta L70C3
lda #$04
sta $08
lda #$0C
sta $09
jsr L72CE
L71F7: ldx #$00
ldy #$00
lda ($08),y
and #$0F
sta $1F00,x
bne L7223
inc L70C3
lda L70C3
cmp L70C0
bne L7212
jmp L71E7
L7212: lda $08
clc
adc L70BF
sta $08
lda $09
adc #$00
sta $09
jmp L71F7
L7223: iny
inx
L7225: lda ($08),y
sta $1F00,x
iny
inx
cpx #$11
bne L7225
ldy #$13
lda ($08),y
sta $1F00,x
inx
iny
lda ($08),y
sta $1F00,x
ldy #$18
inx
L7241: lda ($08),y
sta $1F00,x
inx
iny
cpy #$1C
bne L7241
ldy #$21
L724E: lda ($08),y
sta $1F00,x
inx
iny
cpy #$25
bne L724E
ldy #$1E
lda ($08),y
sta $1F00,x
inx
ldy #$25
lda ($08),y
sta $1F00,x
inx
iny
lda ($08),y
sta $1F00,x
lda $C083
lda $C083
ldx #$1F
ldy #$1F
L7279: lda $1F00,x
sta (L0006),y
dex
dey
bpl L7279
lda LCBANK1
lda LCBANK1
lda #$20
clc
adc L0006
sta L0006
bcc L7293
inc $07
L7293: jmp L71BD
L7296: lda L0006
sta L485F
lda $07
sta L4860
jsr L72D8
jsr L8813
rts
L72A7: brk
L72A8: brk
L72A9: brk
L72AA: ldy #$C8
lda #$57
ldx #$70
jsr L46BA
beq L72CD
jsr LD154
jsr L8B1F
lda $DF20
bne L72C9
lda $E6BE
sta L533F
jsr L59A8
L72C9: ldx $E256
txs
L72CD: rts
L72CE: ldy #$CA
lda #$9E
ldx #$70
jsr L46BA
rts
L72D8: ldy #$CC
lda #$A6
ldx #$70
jsr L46BA
rts
L72E2: lda $0C04
and #$F0
cmp #$F0
beq L72EC
rts
L72EC: ldy #$C4
lda #$A8
ldx #$70
jsr L46BA
beq L72F8
rts
L72F8: lda L70AD
sta L70BD
lda L70AE
sta L70BE
lda L70AD
sec
sbc L70B0
sta L70BB
lda L70AE
sbc L70B1
sta L70BC
lda L70BD
sec
sbc L70BB
sta L70BD
lda L70BE
sbc L70BC
sta L70BE
lsr L70BC
ror L70BB
php
lsr L70BE
ror L70BD
plp
bcc L7342
inc L70BD
bne L7342
inc L70BE
L7342: lda #$00
rts
L7345: sta L7445
ldx #$00
L734A: lda $E1F2,x
cmp L7445
beq L7358
inx
cpx #$08
bne L734A
rts
L7358: stx L7446
dex
L735C: inx
lda $E1F3,x
sta $E1F2,x
cpx $E1F1
bne L735C
dec $E1F1
lda L7446
cmp $E1F1
bne L7385
ldx L7446
asl a
tax
lda $E202,x
sta L485F
lda $E203,x
sta L4860
rts
L7385: lda L7446
asl a
tax
lda $E202,x
sta L0006
lda $E203,x
sta $07
inx
inx
lda $E202,x
sta $08
lda $E203,x
sta $09
ldy #$00
jsr L87F6
L73A5: lda $C083
lda $C083
lda ($08),y
sta (L0006),y
lda LCBANK1
lda LCBANK1
inc L0006
bne L73BB
inc $07
L73BB: inc $08
bne L73C1
inc $09
L73C1: lda $09
cmp L4860
bne L73A5
lda $08
cmp L485F
bne L73A5
jsr L8813
lda $E1F1
asl a
tax
lda L485F
sec
sbc $E202,x
sta L7447
lda L4860
sbc $E203,x
sta L7448
inc L7446
L73ED: lda L7446
cmp $E1F1
bne L73F8
jmp L7429
L73F8: lda L7446
asl a
tax
lda $E204,x
sec
sbc $E202,x
sta L7449
lda $E205,x
sbc $E203,x
sta L744A
lda $E200,x
clc
adc L7449
sta $E202,x
lda $E201,x
adc L744A
sta $E203,x
inc L7446
jmp L73ED
L7429: lda $E1F1
sec
sbc #$01
asl a
tax
lda $E202,x
clc
adc L7447
sta L485F
lda $E203,x
adc L7448
sta L4860
rts
L7445: brk
L7446: brk
L7447: brk
L7448: brk
L7449: brk
L744A: brk
L744B: lda $DE9F
asl a
tax
lda $E6BF,x
sta $08
lda $E6C0,x
sta $09
ldy #$09
lda (L0006),y
tay
jsr L87F6
lda L0006
clc
adc #$09
sta L0006
bcc L746D
inc $07
L746D: tya
tax
ldy #$00
L7471: lda (L0006),y
sta ($08),y
iny
dex
bne L7471
lda #$20
sta ($08),y
ldy #$02
lda ($08),y
and #$DF
sta ($08),y
jsr L8813
ldy #$02
lda (L0006),y
and #$0F
bne L74D3
jsr L87F6
lda $DE9F
jsr L86FB
sta $08
stx $09
lda L0006
clc
adc #$09
sta L0006
bcc L74A8
inc $07
L74A8: ldy #$00
lda (L0006),y
tay
L74AD: lda (L0006),y
sta ($08),y
dey
bpl L74AD
ldy #$00
lda ($08),y
sec
sbc #$01
sta ($08),y
ldy #$01
lda #$2F
sta ($08),y
ldy #$00
lda ($08),y
tay
L74C8: lda ($08),y
sta $E1B0,y
dey
bpl L74C8
jmp L7569
L74D3: tay
lda #$00
sta L7620
jsr L87F6
tya
pha
jsr L86FB
sta L0006
stx $07
pla
asl a
tax
lda $E6BF,x
sta $08
lda $E6C0,x
sta $09
ldy #$00
lda (L0006),y
clc
adc ($08),y
cmp #$43
bcc L750D
lda #$40
jsr LD154
jsr L8B1F
dec $EC2E
ldx $E256
txs
rts
L750D: ldy #$00
lda (L0006),y
tay
L7512: lda (L0006),y
sta $E1B0,y
dey
bpl L7512
lda #$2F
sta $E1B1
inc $E1B0
ldx $E1B0
sta $E1B0,x
lda $E6BE
jsr L86E3
sta $08
stx $09
ldx $E1B0
ldy #$09
lda ($08),y
clc
adc $E1B0
sta $E1B0
dec $E1B0
dec $E1B0
ldy #$0A
L7548: iny
inx
lda ($08),y
sta $E1B0,x
cpx $E1B0
bne L7548
lda $DE9F
jsr L86FB
sta $08
stx $09
ldy $E1B0
L7561: lda $E1B0,y
sta ($08),y
dey
bpl L7561
L7569: lda $08
ldx $09
jsr L87BA
lda $DE9F
jsr L86EF
sta L0006
stx $07
ldy #$14
lda $DE9F
sec
sbc #$01
asl a
asl a
asl a
asl a
pha
adc #$05
sta (L0006),y
iny
lda #$00
sta (L0006),y
iny
pla
lsr a
clc
adc #$1B
sta (L0006),y
iny
lda #$00
sta (L0006),y
lda #$00
ldy #$1F
ldx #$03
L75A3: sta (L0006),y
dey
dex
bpl L75A3
ldy #$04
lda (L0006),y
and #$FE
sta (L0006),y
iny
lda (L0006),y
and #$FE
sta (L0006),y
lda #$00
ldy #$07
sta (L0006),y
ldy #$09
sta (L0006),y
jsr L8813
lda $E6BE
jsr L7054
lda $E6BE
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$0F
beq L75FA
tax
dex
txa
asl a
tax
lda $EB8B,x
sta L70BD
lda $EB8C,x
sta L70BE
lda $EB9B,x
sta L70BB
lda $EB9C,x
sta L70BC
L75FA: ldx $DE9F
dex
txa
asl a
tax
lda L70BD
sta $EB8B,x
lda L70BE
sta $EB8C,x
lda L70BB
sta $EB9B,x
lda L70BC
sta $EB9C,x
lda $DE9F
jsr L7635
rts
L7620: brk
L7621: brk
L7622: brk
L7623: brk
L7624: brk
L7625: brk
L7626: .byte $34
L7627: brk
bpl L762A
L762A: brk
L762B: brk
L762C: brk
L762D: brk
L762E: .byte $05
L762F: brk
L7630: brk
L7631: brk
L7632: brk
L7633: brk
L7634: brk
L7635: pha
lda #$00
beq L7647
L763A: pha
ldx $DE9F
dex
lda $EC26,x
sta $E6BE
lda #$80
L7647: sta L7634
pla
sta L7621
jsr L87F6
ldx #$03
L7653: lda L7626,x
sta L762A,x
dex
bpl L7653
lda #$00
sta L762F
sta L7625
ldx #$03
L7666: sta L7630,x
dex
bpl L7666
lda $E6BE
ldx $E1F1
dex
L7673: cmp $E1F2,x
beq L767C
dex
bpl L7673
rts
L767C: txa
asl a
tax
lda $E202,x
sta L0006
lda $E203,x
sta $07
lda $C083
lda $C083
ldy #$00
lda (L0006),y
sta L7764
lda LCBANK1
lda LCBANK1
inc L0006
lda L0006
bne L76A4
inc $07
L76A4: lda $DE9F
sta $EC25
L76AA: lda L7625
cmp L7764
beq L76BB
jsr L7768
inc L7625
jmp L76AA
L76BB: bit L7634
bpl L76C4
jsr L8813
rts
L76C4: jsr L7B6B
lda L7621
jsr L86EF
sta L0006
stx $07
ldy #$16
lda L7B65
sec
sbc (L0006),y
sta L7B65
lda L7B66
sbc #$00
sta L7B66
lda L7B63
cmp #$AA
lda L7B64
sbc #$00
bmi L7705
lda L7B63
cmp #$C2
lda L7B64
sbc #$01
bpl L770C
lda L7B63
ldx L7B64
jmp L7710
L7705: lda #$AA
ldx #$00
jmp L7710
L770C: lda #$C2
ldx #$01
L7710: ldy #$20
sta (L0006),y
txa
iny
sta (L0006),y
lda L7B65
cmp #$32
lda L7B66
sbc #$00
bmi L7739
lda L7B65
cmp #$6C
lda L7B66
sbc #$00
bpl L7740
lda L7B65
ldx L7B66
jmp L7744
L7739: lda #$32
ldx #$00
jmp L7744
L7740: lda #$6C
ldx #$00
L7744: ldy #$22
sta (L0006),y
txa
iny
sta (L0006),y
lda L7767
ldy #$06
sta (L0006),y
ldy #$08
sta (L0006),y
lda $E6BE
ldx L7621
jsr L8B60
jsr L8813
rts
L7764: brk
brk
brk
L7767: .byte $14
L7768: inc $DD9E
jsr LD05E
ldx $DEA0
inc $DEA0
sta $DEA1,x
jsr L86E3
sta $08
stx $09
lda $C083
lda $C083
ldy #$00
lda (L0006),y
sta $1800
iny
ldx #$00
L778E: lda (L0006),y
sta $1802,x
inx
iny
cpx $1800
bne L778E
inc $1800
inc $1800
lda #$20
sta $1801
ldx $1800
sta $1800,x
ldy #$10
lda (L0006),y
cmp #$B3
beq L77CC
cmp #$FF
bne L77DA
ldy #$00
lda (L0006),y
tay
ldx L77D0
L77BF: lda (L0006),y
cmp L77D0,x
bne L77D8
dey
beq L77D8
dex
bne L77BF
L77CC: lda #$01
bne L77DA
L77D0: rmb0 $2E
.byte $53
eor L5453,y
eor $4D
L77D8: lda #$FF
L77DA: tay
lda LCBANK1
lda LCBANK1
tya
jsr L78A1
lda #$00
ldx #$18
jsr L87BA
ldy #$09
ldx #$00
L77F0: lda $1800,x
sta ($08),y
iny
inx
cpx $1800
bne L77F0
lda $1800,x
sta ($08),y
ldx #$00
ldy #$03
L7805: lda L762A,x
sta ($08),y
inx
iny
cpx #$04
bne L7805
lda $DEA0
cmp L762E
beq L781A
bcs L7826
L781A: lda L762A
sta L7630
lda L762B
sta L7631
L7826: lda L762C
sta L7632
lda L762D
sta L7633
inc L762F
lda L762F
cmp L762E
bne L7862
lda L762C
clc
adc #$20
sta L762C
lda L762D
adc #$00
sta L762D
lda L7626
sta L762A
lda L7627
sta L762B
lda #$00
sta L762F
jmp L7870
L7862: lda L762A
clc
adc #$50
sta L762A
bcc L7870
inc L762B
L7870: lda $DE9F
ora L7624
ldy #$02
sta ($08),y
ldy #$07
lda L7622
sta ($08),y
iny
lda L7623
sta ($08),y
ldx $DEA0
dex
lda $DEA1,x
jsr L8893
lda L0006
clc
adc #$20
sta L0006
lda $07
adc #$00
sta $07
rts
brk
brk
L78A1: sta L78EE
jsr L87F6
lda $FB00
sta L0006
lda $FB01
sta $07
ldy #$00
lda (L0006),y
tay
L78B6: lda (L0006),y
cmp L78EE
beq L78C2
dey
bpl L78B6
ldy #$01
L78C2: lda $FB04
sta L0006
lda $FB05
sta $07
lda (L0006),y
sta L7624
dey
tya
asl a
tay
lda $FB02
sta L0006
lda $FB03
sta $07
lda (L0006),y
sta L7622
iny
lda (L0006),y
sta L7623
jsr L8813
rts
L78EE: brk
L78EF: lda $D21D
sta $EBBE
clc
adc #$05
sta $EBBA
lda $D21E
sta $EBBF
adc #$00
sta $EBBB
lda $D21F
clc
adc #$0C
sta $EBC0
sta $EBC4
lda $D220
adc #$00
sta $EBC1
sta $EBC5
ldy #$0E
lda #$BE
ldx #$EB
jsr LD000
lda $D221
sta $EBC2
lda $D222
sta $EBC3
jsr L48FA
ldy #$10
lda #$C2
ldx #$EB
jsr LD000
lda $EBC0
clc
adc #$02
sta $EBC0
sta $EBC4
lda $EBC1
adc #$00
sta $EBC1
sta $EBC5
ldy #$0E
lda #$BE
ldx #$EB
jsr LD000
ldy #$10
lda #$C2
ldx #$EB
jsr LD000
lda $D21F
clc
adc #$0A
sta $EBBC
lda $D220
L7973: adc #$00
sta $EBBD
lda $DEA0
ldx #$00
jsr L7AE0
lda $DEA0
cmp #$02
bcs L798A
dec $EBB3
L798A: ldy #$0E
lda #$BA
ldx #$EB
jsr LD000
jsr L7AD7
lda #$B3
ldx #$EB
jsr L8780
lda $DEA0
cmp #$02
bcs L79A7
inc $EBB3
L79A7: jsr L79F7
ldx $EC25
dex
txa
asl a
tax
lda $EB8B,x
tay
lda $EB8C,x
tax
tya
jsr L7AE0
ldy #$0E
lda #$EB
ldx #$EB
jsr LD000
jsr L7AD7
lda #$C6
ldx #$EB
jsr L8780
ldx $EC25
dex
txa
asl a
tax
lda $EB9B,x
tay
lda $EB9C,x
tax
tya
jsr L7AE0
ldy #$0E
lda #$EF
ldx #$EB
jsr LD000
jsr L7AD7
lda #$D0
ldx #$EB
jsr L8780
rts
L79F7: lda $D221
sec
sbc $D21D
sta L7ADE
lda $D222
sbc $D21E
sta L7ADF
lda L7ADE
sec
sbc $EBF3
sta L7ADE
lda L7ADF
sbc $EBF4
sta L7ADF
bpl L7A22
jmp L7A86
L7A22: lda L7ADE
sec
sbc $EBF9
sta L7ADE
lda L7ADF
sbc $EBFA
sta L7ADF
bpl L7A3A
jmp L7A86
L7A3A: lda $EBE7
clc
adc L7ADE
sta $EBEF
lda $EBE8
adc L7ADF
sta $EBF0
lda L7ADF
beq L7A59
lda L7ADE
cmp #$18
bcc L7A6A
L7A59: lda $EBEF
sec
sbc #$0C
sta $EBEF
lda $EBF0
sbc #$00
sta $EBF0
L7A6A: lsr L7ADF
ror L7ADE
lda $EBE3
clc
adc L7ADE
sta $EBEB
lda $EBE4
adc L7ADF
sta $EBEC
jmp L7A9E
L7A86: lda $EBE3
sta $EBEB
lda $EBE4
sta $EBEC
lda $EBE7
sta $EBEF
lda $EBE8
sta $EBF0
L7A9E: lda $EBEB
clc
adc $D21D
sta $EBEB
lda $EBEC
adc $D21E
sta $EBEC
lda $EBEF
clc
adc $D21D
sta $EBEF
lda $EBF0
adc $D21E
sta $EBF0
lda $EBBC
sta $EBED
sta $EBF1
lda $EBBD
sta $EBEE
sta $EBF2
rts
L7AD7: lda #$DC
ldx #$EB
jmp L8780
L7ADE: brk
L7ADF: brk
L7AE0: sta L7B5B
stx L7B5C
ldx #$06
lda #$20
L7AEA: sta $EBDC,x
dex
bne L7AEA
lda #$00
sta L7B5E
ldy #$00
ldx #$00
L7AF9: lda #$00
sta L7B5D
L7AFE: lda L7B5B
cmp L7B53,x
lda L7B5C
sbc L7B54,x
bpl L7B31
lda L7B5D
bne L7B1A
bit L7B5E
bmi L7B1A
lda #$20
bne L7B24
L7B1A: clc
adc #$30
pha
lda #$80
sta L7B5E
pla
L7B24: sta $EBDE,y
iny
inx
inx
cpx #$08
beq L7B4A
jmp L7AF9
L7B31: inc L7B5D
lda L7B5B
sec
sbc L7B53,x
sta L7B5B
lda L7B5C
sbc L7B54,x
sta L7B5C
jmp L7AFE
L7B4A: lda L7B5B
ora #$30
sta $EBDE,y
rts
L7B53: .byte $10
L7B54: rmb2 $E8
.byte $03
stz L0000
asl a
brk
L7B5B: brk
L7B5C: brk
L7B5D: brk
L7B5E: brk
L7B5F: brk
L7B60: brk
L7B61: brk
L7B62: brk
L7B63: brk
L7B64: brk
L7B65: brk
L7B66: brk
L7B67: brk
L7B68: brk
L7B69: brk
L7B6A: brk
L7B6B: ldx #$03
lda #$00
L7B6F: sta L7B63,x
dex
bpl L7B6F
sta L7D5B
lda #$FF
sta L7B5F
sta L7B61
lda #$7F
sta L7B60
sta L7B62
ldx $DE9F
dex
lda $E6D1,x
bpl L7BCB
lda $DEA0
bne L7BA1
L7B96: lda #$00
ldx #$03
L7B9A: sta L7B5F,x
dex
bpl L7B9A
rts
L7BA1: clc
adc #$02
ldx #$00
stx L7D5C
asl a
rol L7D5C
asl a
rol L7D5C
asl a
rol L7D5C
sta L7B65
lda L7D5C
sta L7B66
lda #$68
sta L7B63
lda #$01
sta L7B64
jmp L7B96
L7BCB: lda $DEA0
cmp #$01
bne L7BEF
lda $DEA1
jsr L86E3
sta L0006
stx $07
ldy #$06
ldx #$03
L7BE0: lda (L0006),y
sta L7B5F,x
sta L7B63,x
dey
dex
bpl L7BE0
jmp L7BF7
L7BEF: lda L7D5B
cmp $DEA0
bne L7C36
L7BF7: lda L7B63
clc
adc #$32
sta L7B63
bcc L7C05
inc L7B64
L7C05: lda L7B65
clc
adc #$20
sta L7B65
bcc L7C13
inc L7B66
L7C13: lda L7B5F
sec
sbc #$32
sta L7B5F
lda L7B60
sbc #$00
sta L7B60
lda L7B61
sec
sbc #$0F
sta L7B61
lda L7B62
sbc #$00
sta L7B62
rts
L7C36: tax
lda $DEA1,x
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$0F
cmp L7D5C
bne L7C52
inc L7D5B
jmp L7BEF
L7C52: ldy #$06
ldx #$03
L7C56: lda (L0006),y
sta L7B67,x
dey
dex
bpl L7C56
bit L7B60
bmi L7C88
bit L7B68
bmi L7CCE
lda L7B67
cmp L7B5F
lda L7B68
sbc L7B60
bmi L7CCE
lda L7B67
cmp L7B63
lda L7B68
sbc L7B64
bpl L7CBF
jmp L7CDA
L7C88: bit L7B68
bmi L7CA3
bit L7B64
bmi L7CDA
lda L7B67
cmp L7B63
lda L7B68
sbc L7B64
bmi L7CDA
jmp L7CBF
L7CA3: lda L7B67
cmp L7B5F
lda L7B68
sbc L7B60
bmi L7CCE
lda L7B67
cmp L7B63
lda L7B68
sbc L7B64
bmi L7CDA
L7CBF: lda L7B67
sta L7B63
lda L7B68
sta L7B64
jmp L7CDA
L7CCE: lda L7B67
sta L7B5F
lda L7B68
sta L7B60
L7CDA: bit L7B62
bmi L7D03
bit L7B6A
bmi L7D49
lda L7B69
cmp L7B61
lda L7B6A
sbc L7B62
bmi L7D49
lda L7B69
cmp L7B65
lda L7B6A
sbc L7B66
bpl L7D3A
jmp L7D55
L7D03: bit L7B6A
bmi L7D1E
bit L7B66
bmi L7D55
lda L7B69
cmp L7B65
lda L7B6A
sbc L7B66
bmi L7D55
jmp L7D3A
L7D1E: lda L7B69
cmp L7B61
lda L7B6A
sbc L7B62
bmi L7D49
lda L7B69
cmp L7B65
lda L7B6A
sbc L7B66
bmi L7D55
L7D3A: lda L7B69
sta L7B65
lda L7B6A
sta L7B66
jmp L7D55
L7D49: lda L7B69
sta L7B61
lda L7B6A
sta L7B62
L7D55: inc L7D5B
jmp L7BEF
L7D5B: brk
L7D5C: brk
L7D5D: jsr L86EF
sta L0006
stx $07
ldy #$23
ldx #$07
L7D68: lda (L0006),y
sta L7D94,x
dey
dex
bpl L7D68
lda L7D98
sec
sbc L7D94
pha
lda L7D99
sbc L7D95
pha
lda L7D9A
sec
sbc L7D96
pha
lda L7D9B
sbc L7D97
pla
tay
pla
tax
pla
rts
L7D94: brk
L7D95: brk
L7D96: brk
L7D97: brk
L7D98: brk
L7D99: brk
L7D9A: brk
L7D9B: brk
L7D9C: jmp L7D9F
L7D9F: ldx $DE9F
dex
lda $EC26,x
ldx #$00
L7DA8: cmp $E1F2,x
beq L7DB4
inx
cpx $E1F1
bne L7DA8
rts
L7DB4: txa
asl a
tax
lda $E202,x
sta L0006
sta $0801
lda $E203,x
sta $07
sta $0802
lda $C083
lda $C083
lda #$00
sta L0800
tay
lda (L0006),y
sta $0803
inc L0006
inc $0801
bne L7DE4
inc $07
inc $0802
L7DE4: lda L0800
cmp $0803
beq L7E0C
jsr L80CA
ldy #$00
lda (L0006),y
and #$7F
sta (L0006),y
ldy #$17
lda (L0006),y
bne L7E06
iny
lda (L0006),y
bne L7E06
lda #$01
sta (L0006),y
L7E06: inc L0800
jmp L7DE4
L7E0C: lda LCBANK1
lda LCBANK1
ldx $DE9F
dex
lda $E6D1,x
cmp #$81
beq L7E20
jmp L7EC1
L7E20: lda $C083
lda $C083
lda #$5A
ldx #$0F
L7E2A: sta $0808,x
dex
bpl L7E2A
lda #$00
sta $0805
sta L0800
L7E38: lda $0805
cmp $0803
bne L7E43
jmp L80F5
L7E43: jsr L80CA
ldy #$00
lda (L0006),y
bmi L7E82
and #$0F
sta $0804
ldy #$01
L7E53: lda (L0006),y
cmp $0807,y
beq L7E5F
bcs L7E82
jmp L7E67
L7E5F: iny
cpy #$10
bne L7E53
jmp L7E82
L7E67: lda L0800
sta $0806
ldx #$0F
lda #$20
L7E71: sta $0808,x
dex
bpl L7E71
ldy $0804
L7E7A: lda (L0006),y
sta $0807,y
dey
bne L7E7A
L7E82: inc L0800
lda L0800
cmp $0803
beq L7E90
jmp L7E43
L7E90: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda (L0006),y
ora #$80
sta (L0006),y
lda #$5A
ldx #$0F
L7EA8: sta $0808,x
dex
bpl L7EA8
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
jmp L7E38
L7EC1: cmp #$82
beq L7EC8
jmp L7F58
L7EC8: lda $C083
lda $C083
lda #$00
sta $0808
sta $0809
sta $0805
sta L0800
L7EDC: lda $0805
cmp $0803
bne L7EE7
jmp L80F5
L7EE7: jsr L80CA
ldy #$00
lda (L0006),y
bmi L7F1B
ldy #$18
lda (L0006),y
cmp $0809
beq L7EFE
bcs L7F08
jmp L7F1B
L7EFE: dey
lda (L0006),y
cmp $0808
beq L7F1B
bcc L7F1B
L7F08: ldy #$18
lda (L0006),y
sta $0809
dey
lda (L0006),y
sta $0808
lda L0800
sta $0806
L7F1B: inc L0800
lda L0800
cmp $0803
beq L7F29
jmp L7EE7
L7F29: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda (L0006),y
ora #$80
sta (L0006),y
lda #$00
sta $0808
sta $0809
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
jmp L7EDC
L7F58: cmp #$83
beq L7F5F
jmp L801F
L7F5F: lda $C083
lda $C083
lda #$00
sta $0808
sta $0809
sta $0805
sta L0800
L7F73: lda $0805
cmp $0803
bne L7F7E
jmp L80F5
L7F7E: jsr L80CA
ldy #$00
lda (L0006),y
bmi L7FAD
ldy #$12
lda (L0006),y
cmp $0809
beq L7F92
bcs L7F9C
L7F92: dey
lda (L0006),y
cmp $0808
beq L7F9C
bcc L7FAD
L7F9C: lda (L0006),y
sta $0808
iny
lda (L0006),y
sta $0809
lda L0800
sta $0806
L7FAD: inc L0800
lda L0800
cmp $0803
beq L7FBB
jmp L7F7E
L7FBB: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda (L0006),y
ora #$80
sta (L0006),y
lda #$00
sta $0808
sta $0809
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
jmp L7F73
lda LCBANK1
lda LCBANK1
lda #$54
sta $E6D9
lda #$00
sta $E6DA
lda #$CB
sta $E6DD
lda #$00
sta $E6DE
lda #$00
sta $E6E1
sta $E6E2
lda #$E7
sta $E6E5
lda #$00
sta $E6E6
lda $C083
lda $C083
jmp L80F5
L801F: cmp #$84
beq L8024
rts
L8024: lda $FB00
sta $08
lda $FB01
sta $09
ldy #$00
lda ($08),y
sta $0807
tay
L8036: lda ($08),y
sta $0807,y
dey
bne L8036
lda $C083
lda $C083
lda #$00
sta $0805
sta L0800
lda #$FF
sta $0806
L8051: lda $0805
cmp $0803
bne L805C
jmp L80F5
L805C: jsr L80CA
ldy #$00
lda (L0006),y
bmi L807E
ldy #$10
lda (L0006),y
ldx $0807
cpx #$00
beq L8075
cmp $0808,x
bne L807E
L8075: lda L0800
sta $0806
jmp L809E
L807E: inc L0800
lda L0800
cmp $0803
beq L808C
jmp L805C
L808C: lda $0806
cmp #$FF
bne L809E
dec $0807
lda #$00
sta L0800
jmp L805C
L809E: inc $0805
lda $0806
sta L0800
jsr L80CA
ldy #$00
lda (L0006),y
ora #$80
sta (L0006),y
ldx $0805
dex
ldy $0806
iny
jsr L812B
lda #$00
sta L0800
lda #$FF
sta $0806
jmp L8051
L80CA: lda #$00
sta $0804
lda L0800
asl a
rol $0804
asl a
rol $0804
asl a
rol $0804
asl a
rol $0804
asl a
rol $0804
clc
adc $0801
sta L0006
lda $0802
adc $0804
sta $07
rts
L80F5: lda #$00
sta L0800
L80FA: lda L0800
cmp $0803
beq L8124
jsr L80CA
ldy #$00
lda (L0006),y
and #$7F
sta (L0006),y
ldy #$17
lda (L0006),y
bne L811E
iny
lda (L0006),y
cmp #$01
bne L811E
lda #$00
sta (L0006),y
L811E: inc L0800
jmp L80FA
L8124: lda LCBANK1
lda LCBANK1
rts
L812B: lda LCBANK1
lda LCBANK1
tya
sta $DEA1,x
lda $C083
lda $C083
rts
L813C: brk
brk
L813E: php
L813F: ldy #$00
tax
dex
txa
sty L813C
asl a
rol L813C
asl a
rol L813C
asl a
rol L813C
asl a
rol L813C
asl a
rol L813C
clc
adc $E71D
sta L0006
lda $E71E
adc L813C
sta $07
lda $C083
lda $C083
ldy #$1F
L8171: lda (L0006),y
sta $EC43,y
dey
bpl L8171
lda LCBANK1
lda LCBANK1
ldx #$31
lda #$20
L8183: sta $E6EB,x
dex
bpl L8183
lda #$00
sta $E6EB
lda $E6DF
clc
adc L813E
sta $E6DF
bcc L819D
inc $E6E0
L819D: lda $E6E3
clc
adc L813E
sta $E6E3
bcc L81AC
inc $E6E4
L81AC: lda $E6E7
clc
adc L813E
sta $E6E7
bcc L81BB
inc $E6E8
L81BB: lda $E6DB
cmp $D223
lda $E6DC
sbc $D224
bmi L81D9
lda $E6DB
clc
adc L813E
sta $E6DB
bcc L81D8
inc $E6DC
L81D8: rts
L81D9: lda $E6DB
clc
adc L813E
sta $E6DB
bcc L81E8
inc $E6DC
L81E8: lda $E6DB
cmp $D21F
lda $E6DC
sbc $D220
bpl L81F7
rts
L81F7: jsr L821F
lda #$D9
ldx #$E6
jsr LD01C
jsr L8241
lda #$DD
ldx #$E6
jsr LD01C
jsr L8253
lda #$E1
ldx #$E6
jsr LD01C
jsr L830F
lda #$E5
ldx #$E6
jmp LD01C
L821F: lda $EC43
and #$0F
sta $E6EB
tax
L8228: lda $EC43,x
sta $E6EC,x
dex
bne L8228
lda #$20
sta $E6EC
inc $E6EB
lda #$EB
ldx #$E6
jsr L87BA
rts
L8241: lda $EC53
jsr L8707
ldx #$04
L8249: lda $DFC5,x
sta $E6EB,x
dex
bpl L8249
rts
L8253: lda $EC54
ldx $EC55
L8259: sta L8272
stx L8273
jmp L8276
L8262: jsr L6C42
bbr6 $63,L82D3
.byte $73
.byte $20
L826A: .byte $10
L826B: rmb2 $E8
.byte $03
stz L0000
asl a
brk
L8272: brk
L8273: brk
L8274: brk
L8275: brk
L8276: ldx #$11
lda #$20
L827A: sta $E6EB,x
dex
bpl L827A
lda #$00
sta $E6EB
sta L8275
ldy #$00
ldx #$00
L828C: lda #$00
sta L8274
L8291: lda L8272
cmp L826A,x
lda L8273
sbc L826B,x
bpl L82C3
lda L8274
bne L82AD
bit L8275
bmi L82AD
lda #$20
bne L82B6
L82AD: ora #$30
pha
lda #$80
sta L8275
pla
L82B6: sta $E6ED,y
iny
inx
inx
cpx #$08
beq L82DC
jmp L828C
L82C3: inc L8274
lda L8272
sec
sbc L826A,x
sta L8272
lda L8273
L82D3: sbc L826B,x
sta L8273
jmp L8291
L82DC: lda L8272
ora #$30
sta $E6ED,y
iny
ldx #$00
L82E7: lda L8262,x
sta $E6ED,y
iny
inx
cpx L8262
bne L82E7
lda L8274
bne L8305
bit L8275
bmi L8305
lda L8272
cmp #$02
bcc L8309
L8305: lda #$0D
bne L830B
L8309: lda #$0C
L830B: sta $E6EB
rts
L830F: ldx #$15
lda #$20
L8313: sta $E6EB,x
dex
bpl L8313
lda #$01
sta $E6EB
lda #$EB
sta $08
lda #$E6
sta $09
lda $EC5A
ora $EC5B
bne L8334
sta L83DC
jmp L83A9
L8334: lda $EC5B
and #$FE
lsr a
sta L83DB
lda $EC5B
ror a
lda $EC5A
ror a
lsr a
lsr a
lsr a
lsr a
sta L83DC
lda $EC5A
and #$1F
sta L83DD
jsr L83A9
jsr L835D
jmp L83B8
L835D: lda #$20
sta L83DF
sta L83E0
sta L83E1
ldx #$02
lda L83DD
ora #$30
tay
lda L83DD
cmp #$0A
bcc L8386
inx
ldy #$31
cmp #$14
bcc L8386
ldy #$32
cmp #$1E
bcc L8386
ldy #$33
L8386: stx L83DE
sty L83DF
cpx #$02
beq L83A2
tya
and #$03
tay
lda L83DD
L8397: sec
sbc #$0A
dey
bne L8397
ora #$30
sta L83E0
L83A2: lda #$DE
ldx #$83
jmp L84A4
L83A9: lda L83DC
asl a
tay
lda L83E3,y
tax
lda L83E2,y
jmp L84A4
L83B8: ldx L8490
L83BB: lda L83DB
sec
sbc L8490,x
bpl L83C7
dex
bne L83BB
L83C7: tay
lda L849A,x
sta L848E
lda L849A,y
sta L848F
lda #$8A
ldx #$84
jmp L84A4
L83DB: .byte $00
L83DC: .byte $00
L83DD: .byte $00
L83DE: .byte $03
L83DF: .byte $20
L83E0: .byte $20
L83E1: .byte $20
L83E2: .byte $FC
L83E3: .byte $83,$06,$84,$11,$84,$1C,$84,$27
.byte $84,$32,$84,$3D,$84,$48,$84,$53
.byte $84,$5E,$84,$69,$84,$74,$84,$7F
.byte $84,$09,$6E,$6F,$20,$64,$61,$74
.byte $65,$20,$20,$0A,$4A,$61,$6E,$75
.byte $61,$72,$79,$20,$20,$20,$0A,$46
.byte $65,$62,$72,$75,$61,$72,$79,$20
.byte $20,$0A,$4D,$61,$72,$63,$68,$20
.byte $20,$20,$20,$20,$0A,$41,$70,$72
.byte $69,$6C,$20,$20,$20,$20,$20,$0A
.byte $4D,$61,$79,$20,$20,$20,$20,$20
.byte $20,$20,$0A,$4A,$75,$6E,$65,$20
.byte $20,$20,$20,$20,$20,$0A,$4A,$75
.byte $6C,$79,$20,$20,$20,$20,$20,$20
.byte $0A,$41,$75,$67,$75,$73,$74,$20
.byte $20,$20,$20,$0A,$53,$65,$70,$74
.byte $65,$6D,$62,$65,$72,$20,$0A,$4F
.byte $63,$74,$6F,$62,$65,$72,$20,$20
.byte $20,$0A,$4E,$6F,$76,$65,$6D,$62
.byte $65,$72,$20,$20,$0A,$44,$65,$63
.byte $65,$6D,$62,$65,$72,$20,$20,$05
.byte $20,$31,$39
L848E: .byte $38
L848F: .byte $35
L8490: .byte $09
asl a
trb $1E
plp
and ($3C)
lsr $50
phy
L849A: bmi L84CD
and ($33)
bit $35,x
rol $37,x
sec
.byte $39
L84A4: sta L0006
stx $07
ldy #$00
lda ($08),y
sta L84D0
clc
adc (L0006),y
sta ($08),y
lda (L0006),y
sta L84CB
inc L84D0
iny
lda (L0006),y
sty L84CF
ldy L84D0
sta ($08),y
ldy L84CF
.byte $C0
L84CB: brk
.byte $90
L84CD: .byte $EB
rts
L84CF: brk
L84D0: brk
L84D1: jsr L87F6
bit L5B1B
bmi L84DC
jsr L6E52
L84DC: lda $D221
sec
sbc $D21D
sta L85F8
lda $D222
sbc $D21E
sta L85F9
lda $D223
sec
sbc $D21F
sta L85FA
lda $D224
sbc $D220
sta L85FB
lda $D208
cmp #$01
bne L850C
asl a
bne L850E
L850C: lda #$00
L850E: sta L85F1
lda $EC25
jsr L86EF
sta L0006
stx $07
lda #$06
clc
adc L85F1
tay
lda (L0006),y
pha
jsr L7B6B
ldx L85F1
lda L7B63,x
sec
sbc L7B5F,x
sta L85F2
lda L7B64,x
sbc L7B60,x
sta L85F3
ldx L85F1
lda L85F2
sec
sbc L85F8,x
sta L85F2
lda L85F3
sbc L85F9,x
sta L85F3
bpl L8562
lda L85F8,x
sta L85F2
lda L85F9,x
sta L85F3
L8562: lsr L85F3
ror L85F2
lsr L85F3
ror L85F2
lda L85F2
tay
pla
tax
lda $D209
jsr L62BC
ldx #$00
stx L85F2
asl a
rol L85F2
asl a
rol L85F2
ldx L85F1
clc
adc L7B5F,x
sta $D21D,x
lda L85F2
adc L7B60,x
sta $D21E,x
lda $EC25
jsr L7D5D
sta L85F4
stx L85F5
sty L85F6
lda L85F1
beq L85C3
lda $D21F
clc
adc L85F6
sta $D223
lda $D220
adc #$00
sta $D224
jmp L85D6
L85C3: lda $D21D
clc
adc L85F4
sta $D221
lda $D21E
adc L85F5
sta $D222
L85D6: lda $EC25
jsr L86EF
sta L0006
stx $07
ldy #$23
ldx #$07
L85E4: lda $D21D,x
sta (L0006),y
dey
dex
bpl L85E4
jsr L8813
rts
L85F1: brk
L85F2: brk
L85F3: brk
L85F4: brk
L85F5: brk
L85F6: brk
brk
L85F8: brk
L85F9: brk
L85FA: brk
L85FB: brk
L85FC: ldx #$03
L85FE: lda $D209,x
sta L86A0,x
sta $EBFD,x
dex
bpl L85FE
lda #$00
sta L869F
lda $D2AB
asl a
rol L869F
sta L869E
L8619: dec L869E
bne L8626
dec L869F
lda L869F
bne L8655
L8626: jsr L48F0
jsr L8658
bmi L8655
lda #$FF
sta L86A6
lda $D208
sta L86A5
cmp #$00
beq L8619
cmp #$04
beq L8619
cmp #$02
bne L864B
jsr L48E6
jmp L8619
L864B: cmp #$01
bne L8655
jsr L48E6
lda #$00
rts
L8655: lda #$FF
rts
L8658: lda $D209
sec
sbc L86A0
sta L86A4
lda $D20A
sbc L86A1
bpl L8674
lda L86A4
cmp #$F8
bcs L867B
L8671: lda #$FF
rts
L8674: lda L86A4
cmp #$08
bcs L8671
L867B: lda $D20B
sec
sbc L86A2
sta L86A4
lda $D20C
sbc L86A3
bpl L8694
lda L86A4
cmp #$F9
bcs L869B
L8694: lda L86A4
cmp #$07
bcs L8671
L869B: lda #$00
rts
L869E: brk
L869F: brk
L86A0: brk
L86A1: brk
L86A2: brk
L86A3: brk
L86A4: brk
L86A5: brk
L86A6: brk
L86A7: ldx #$00
stx L86C0
asl a
rol L86C0
asl a
rol L86C0
asl a
rol L86C0
asl a
rol L86C0
ldx L86C0
rts
L86C0: brk
L86C1: ldx #$00
stx L86E2
asl a
rol L86E2
asl a
rol L86E2
asl a
rol L86E2
asl a
rol L86E2
asl a
rol L86E2
asl a
rol L86E2
ldx L86E2
rts
L86E2: brk
L86E3: asl a
tax
lda $DD9F,x
pha
lda $DDA0,x
tax
pla
rts
L86EF: asl a
tax
lda $DFA1,x
pha
lda $DFA2,x
tax
pla
rts
L86FB: asl a
tax
lda $DFB3,x
pha
lda $DFB4,x
tax
pla
rts
L8707: sta L877F
lda $FB00
sta L0006
lda $FB01
sta $07
ldy #$00
lda (L0006),y
tay
L8719: lda (L0006),y
cmp L877F
beq L8726
dey
bne L8719
jmp L8745
L8726: tya
asl a
asl a
tay
lda $FB06
sta L0006
lda $FB07
sta $07
ldx #$00
L8736: lda (L0006),y
sta $DFC6,x
iny
inx
cpx #$04
bne L8736
stx $DFC5
rts
L8745: lda #$04
sta $DFC5
lda #$20
sta $DFC6
lda #$24
sta $DFC7
lda L877F
lsr a
lsr a
lsr a
lsr a
cmp #$0A
bcs L8764
clc
adc #$30
bne L8767
L8764: clc
adc #$37
L8767: sta $DFC8
lda L877F
and #$0F
cmp #$0A
bcs L8778
clc
adc #$30
bne L877B
L8778: clc
adc #$37
L877B: sta $DFC9
rts
L877F: brk
L8780: sta L0006
stx $07
ldy #$00
lda (L0006),y
beq L879B
sta $08
inc L0006
bne L8792
inc $07
L8792: ldy #$19
lda #$06
ldx #$00
jsr LD000
L879B: rts
sta L0006
stx $07
ldy #$00
lda (L0006),y
sta $08
inc L0006
bne L87AC
inc $07
L87AC: ldy #$18
lda #$06
ldx #$00
jsr LD000
lda $09
ldx $0A
rts
L87BA: stx $0B
sta $0A
ldy #$00
lda ($0A),y
tay
bne L87C6
rts
L87C6: dey
beq L87CB
bpl L87CC
L87CB: rts
L87CC: lda ($0A),y
and #$7F
cmp #$2F
beq L87DC
cmp #$20
beq L87DC
cmp #$2E
bne L87E0
L87DC: dey
jmp L87C6
L87E0: iny
lda ($0A),y
and #$7F
cmp #$41
bcc L87F2
cmp #$5B
bcs L87F2
clc
adc #$20
sta ($0A),y
L87F2: dey
jmp L87C6
L87F6: pla
sta L8811
pla
sta L8812
ldx #$00
L8800: lda L0006,x
pha
inx
cpx #$04
bne L8800
lda L8812
pha
lda L8811
pha
rts
L8811: brk
L8812: brk
L8813: pla
sta L882E
pla
sta L882F
ldx #$03
L881D: pla
sta L0006,x
dex
cpx #$FF
bne L881D
lda L882F
pha
lda L882E
pha
rts
L882E: brk
L882F: brk
L8830: brk
L8831: brk
L8832: brk
L8833: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L8855: tay
jsr L87F6
tya
jsr L86EF
sta L0006
stx $07
ldx #$00
ldy #$14
L8865: lda (L0006),y
sta L8830,x
iny
inx
cpx #$24
bne L8865
jsr L8813
rts
L8874: tay
jsr L87F6
tya
jsr L86EF
sta L0006
stx $07
ldx #$00
ldy #$14
L8884: lda L8830,x
sta (L0006),y
iny
inx
cpx #$24
bne L8884
jsr L8813
rts
L8893: tay
jsr L87F6
tya
jsr L86E3
sta L0006
stx $07
lda $EC25
jsr L86EF
sta $08
stx $09
ldy #$17
ldx #$03
L88AD: lda ($08),y
sta L890D,x
dey
dex
bpl L88AD
ldy #$1F
ldx #$03
L88BA: lda ($08),y
sta L8911,x
dey
dex
bpl L88BA
ldy #$03
lda (L0006),y
clc
adc L890D
sta (L0006),y
iny
lda (L0006),y
adc L890E
sta (L0006),y
iny
lda (L0006),y
clc
adc L890F
sta (L0006),y
iny
lda (L0006),y
adc L8910
sta (L0006),y
ldy #$03
lda (L0006),y
sec
sbc L8911
sta (L0006),y
iny
lda (L0006),y
sbc L8912
sta (L0006),y
iny
lda (L0006),y
sec
sbc L8913
sta (L0006),y
iny
lda (L0006),y
sbc L8914
sta (L0006),y
jsr L8813
rts
L890D: brk
L890E: brk
L890F: brk
L8910: brk
L8911: brk
L8912: brk
L8913: brk
L8914: brk
L8915: tay
jsr L87F6
tya
jsr L86E3
sta L0006
stx $07
L8921: lda $EC25
jsr L86EF
sta $08
stx $09
ldy #$17
ldx #$03
L892F: lda ($08),y
sta L898F,x
dey
dex
bpl L892F
ldy #$1F
ldx #$03
L893C: lda ($08),y
sta L8993,x
dey
dex
bpl L893C
ldy #$03
lda (L0006),y
sec
sbc L898F
sta (L0006),y
iny
lda (L0006),y
sbc L8990
sta (L0006),y
iny
lda (L0006),y
sec
sbc L8991
sta (L0006),y
iny
lda (L0006),y
sbc L8992
sta (L0006),y
ldy #$03
lda (L0006),y
clc
adc L8993
sta (L0006),y
iny
lda (L0006),y
adc L8994
sta (L0006),y
iny
lda (L0006),y
clc
adc L8995
sta (L0006),y
iny
lda (L0006),y
adc L8996
sta (L0006),y
jsr L8813
rts
L898F: brk
L8990: brk
L8991: brk
L8992: brk
L8993: brk
L8994: brk
L8995: brk
L8996: brk
L8997: lda #$00
tax
L899A: sta $D265,x
sta $D25D,x
sta $D269,x
inx
cpx #$04
bne L899A
ldy #$04
lda #$5D
ldx #$D2
jsr LD000
rts
.byte $02
L89B3: brk
brk
php
L89B6: sta L8AC3
sty L8AC4
and #$F0
sta L89B3
ldy #$C5
lda #$B2
ldx #$89
jsr L46BA
beq L89DD
L89CC: pha
ldy L8AC4
lda #$00
sta $E1A0,y
dec $DEA0
dec $DD9E
pla
rts
L89DD: lda L0800
and #$0F
bne L89EA
lda $0801
jmp L89CC
L89EA: jsr L87F6
jsr LD05E
ldy L8AC4
sta $E1A0,y
jsr L86E3
sta L0006
stx $07
ldx #$00
ldy #$09
lda #$20
L8A03: sta (L0006),y
iny
inx
cpx #$12
bne L8A03
ldy #$09
lda L0800
and #$0F
sta L0800
sta (L0006),y
lda #$00
ldx #$08
jsr L87BA
ldx #$00
ldy #$0B
L8A22: lda $0801,x
sta (L0006),y
iny
inx
cpx L0800
bne L8A22
ldy #$09
lda (L0006),y
clc
adc #$02
sta (L0006),y
lda L8AC3
cmp #$3E
beq L8A59
and #$0F
cmp #$04
bne L8A75
lda L8AC3
and #$70
lsr a
lsr a
lsr a
lsr a
ora #$C0
sta L8A54
.byte $AD
.byte $FB
L8A54: smb4 $29
ora ($F0,x)
.byte $0E
L8A59: ldy #$07
lda #$CC
sta (L0006),y
iny
lda #$A9
sta (L0006),y
jmp L8A96
L8A67: ldy #$07
lda #$50
sta (L0006),y
iny
lda #$AA
sta (L0006),y
jmp L8A96
L8A75: cmp #$0B
bne L8A87
ldy #$07
lda #$20
sta (L0006),y
iny
lda #$AA
sta (L0006),y
jmp L8A96
L8A87: cmp #$00
bne L8A67
ldy #$07
lda #$80
sta (L0006),y
iny
lda #$A9
sta (L0006),y
L8A96: ldy #$02
lda #$00
sta (L0006),y
inc L8AC4
lda L8AC4
asl a
asl a
tax
ldy #$03
L8AA7: lda L8AC5,x
sta (L0006),y
inx
iny
cpy #$07
bne L8AA7
ldx $DEA0
dex
ldy #$00
lda (L0006),y
sta $DEA1,x
jsr L8813
lda #$00
rts
L8AC3: brk
L8AC4: brk
L8AC5: brk
brk
brk
brk
nop
ora ($10,x)
brk
nop
ora ($2D,x)
brk
nop
ora ($4B,x)
brk
nop
ora ($67,x)
brk
nop
ora ($83,x)
brk
bcc L8AE0
.byte $A0
L8AE0: brk
rol $01,x
ldy #$00
.byte $DC
brk
ldy #$00
.byte $82
brk
ldy #$00
plp
brk
ldy #$00
ora ($24,x)
pha
L8AF4: ldx $DEA0
dex
L8AF8: cmp $DEA1,x
beq L8B01
dex
bpl L8AF8
rts
L8B01: lda $DEA2,x
sta $DEA1,x
inx
cpx $DEA0
bne L8B01
dec $DEA0
ldx $DEA0
lda #$00
sta $DEA1,x
rts
L8B19: jsr L87F6
jmp L8B2E
L8B1F: lda $E6BE
bne L8B25
rts
L8B25: jsr L87F6
lda $E6BE
jsr L7345
L8B2E: lda $E6BE
ldx #$07
L8B33: cmp $EC26,x
beq L8B3E
dex
bpl L8B33
jmp L8B43
L8B3E: lda #$00
sta $EC26,x
L8B43: lda $E6BE
jsr L86E3
sta L0006
stx $07
ldy #$02
lda (L0006),y
and #$7F
sta (L0006),y
jsr L4244
jsr L8813
rts
L8B5C: ldy #$80
bne L8B62
L8B60: ldy #$00
L8B62: sty L8D4A
sta L8D4B
stx L8D4C
txa
jsr L86EF
sta L0006
stx $07
lda #$14
clc
adc #$23
tay
ldx #$23
L8B7B: lda (L0006),y
sta $D215,x
dey
dex
bpl L8B7B
lda L8D4B
jsr L86E3
sta L0006
stx $07
ldy #$03
lda (L0006),y
clc
adc #$07
sta L0800
sta $0804
iny
lda (L0006),y
adc #$00
sta $0801
sta $0805
iny
lda (L0006),y
clc
adc #$07
sta $0802
sta $0806
iny
lda (L0006),y
adc #$00
sta $0803
sta $0807
ldy #$5B
ldx #$03
L8BC1: lda $D215,x
sta L0800,y
dey
dex
bpl L8BC1
lda $D221
sec
sbc $D21D
sta L8D54
lda $D222
sbc $D21E
sta L8D55
lda $D223
sec
sbc $D21F
sta L8D56
lda $D224
sbc $D220
sta L8D57
lda $0858
clc
adc L8D54
sta $085C
lda $0859
adc L8D55
sta $085D
lda $085A
clc
adc L8D56
sta $085E
lda $085B
adc L8D57
sta $085F
lda #$00
sta L8D4E
sta L8D4F
sta L8D4D
lda $0858
sec
sbc L0800
sta L8D50
lda $0859
sbc $0801
sta L8D51
lda $085A
sec
sbc $0802
sta L8D52
lda $085B
sbc $0803
sta L8D53
bit L8D51
bpl L8C6A
lda #$80
sta L8D4E
lda L8D50
eor #$FF
sta L8D50
lda L8D51
eor #$FF
sta L8D51
inc L8D50
bne L8C6A
inc L8D51
L8C6A: bit L8D53
bpl L8C8C
lda #$80
sta L8D4F
lda L8D52
eor #$FF
sta L8D52
lda L8D53
eor #$FF
sta L8D53
inc L8D52
bne L8C8C
inc L8D53
L8C8C: lsr L8D51
ror L8D50
lsr L8D53
ror L8D52
lsr L8D55
ror L8D54
lsr L8D57
ror L8D56
lda #$0A
sec
sbc L8D4D
asl a
asl a
asl a
tax
bit L8D4E
bpl L8CC9
lda L0800
sec
sbc L8D50
sta L0800,x
lda $0801
sbc L8D51
sta $0801,x
jmp L8CDC
L8CC9: lda L0800
clc
adc L8D50
sta L0800,x
lda $0801
adc L8D51
sta $0801,x
L8CDC: bit L8D4F
bpl L8CF7
lda $0802
sec
sbc L8D52
sta $0802,x
lda $0803
sbc L8D53
sta $0803,x
jmp L8D0A
L8CF7: lda $0802
clc
adc L8D52
sta $0802,x
lda $0803
adc L8D53
sta $0803,x
L8D0A: lda L0800,x
clc
adc L8D54
sta $0804,x
lda $0801,x
adc L8D55
sta $0805,x
lda $0802,x
clc
adc L8D56
sta $0806,x
lda $0803,x
adc L8D57
sta $0807,x
inc L8D4D
lda L8D4D
cmp #$0A
beq L8D3D
jmp L8C8C
L8D3D: bit L8D4A
bmi L8D46
jsr L8D58
rts
L8D46: jsr L8DB3
L8D49: rts
L8D4A: brk
L8D4B: brk
L8D4C: brk
L8D4D: brk
L8D4E: brk
L8D4F: brk
L8D50: brk
L8D51: brk
L8D52: brk
L8D53: brk
L8D54: brk
L8D55: brk
L8D56: brk
L8D57: brk
L8D58: lda #$00
sta L8DB2
jsr L4510
ldy #$08
lda #$93
ldx #$D2
jsr LD000
jsr L48FA
L8D6C: lda L8DB2
cmp #$0C
bcs L8D89
asl a
asl a
asl a
clc
adc #$07
tax
ldy #$07
L8D7C: lda L0800,x
sta $E230,y
dex
dey
bpl L8D7C
jsr L8E10
L8D89: lda L8DB2
sec
sbc #$02
bmi L8DA7
asl a
L8D92: asl a
asl a
clc
adc #$07
tax
ldy #$07
L8D9A: lda L0800,x
sta $E230,y
dex
dey
bpl L8D9A
jsr L8E10
L8DA7: inc L8DB2
lda L8DB2
cmp #$0E
bne L8D6C
rts
L8DB2: brk
L8DB3: lda #$0B
sta L8E0F
jsr L4510
ldy #$08
lda #$93
ldx #$D2
jsr LD000
jsr L48FA
L8DC7: lda L8E0F
bmi L8DE4
beq L8DE4
asl a
asl a
asl a
clc
adc #$07
tax
ldy #$07
L8DD7: lda L0800,x
sta $E230,y
dex
dey
bpl L8DD7
jsr L8E10
L8DE4: lda L8E0F
clc
adc #$02
cmp #$0E
bcs L8E04
asl a
L8DEF: asl a
asl a
clc
adc #$07
tax
ldy #$07
lda L0800,x
sta $E230,y
dex
dey
.byte $10
UNKNOWN_CALL:
inc L0020,x
bpl L8D92
L8E04: dec L8E0F
lda L8E0F
cmp #$FD
bne L8DC7
rts
L8E0F: brk
L8E10: ldy #$12
lda #$30
ldx #$E2
jsr LD000
rts
L8E1A: .byte $E0
L8E1B: .byte $2F
L8E1C: ora (L0000,x)
cpx #$60
ora (L0000,x)
cpx #$74
ora (L0000,x)
cpx #$84
ora (L0000,x)
cpx #$A4
ora (L0000,x)
cpx #$AC
ora (L0000,x)
.byte $E0
L8E33: ldy $01,x
brk
bra L8DEF
brk
brk
bra L8E33
brk
brk
L8E3E: brk
L8E3F: .byte $02
brk
trb L0000
bpl L8E45
L8E45: jsr L0800
brk
php
brk
php
brk
plp
brk
.byte $10
L8E50: brk
L8E51: php
brk
php
brk
bcc L8E57
L8E57: bvc L8E59
L8E59: bvs L8E5B
L8E5B: bvs L8E5D
L8E5D: bvs L8E5F
L8E5F: bvc L8E61
L8E61: bcc L8E66
pla
.byte $8E
brk
L8E66: .byte $1C
L8E67: brk
php
.byte $44
adc $73
.byte $6B
.byte $54
bbr6 $70,L8EA3
.byte $02
L8E72: brk
L8E73: brk
L8E74: brk
L8E75: brk
.byte $04
L8E77: brk
L8E78: brk
L8E79: brk
L8E7A: brk
L8E7B: brk
brk
brk
ora (L0000,x)
L8E80: brk
L8E81: pha
lda #$00
sta L8E80
beq L8E8F
L8E89: pha
lda #$80
sta L8E80
L8E8F: pla
asl a
tay
asl a
tax
lda L8E1A,x
sta L8E73
lda L8E1B,x
sta L8E74
lda L8E1C,x
L8EA3: sta L8E75
lda L8E3E,y
sta L8E7A
lda L8E3F,y
sta L8E7B
lda L8E50,y
sta L8E78
lda L8E51,y
sta L8E79
L8EBE: ldy #$C8
lda #$62
ldx #$8E
jsr L46BA
beq L8ED6
lda #$00
ora L8E80
jsr L48CC
beq L8EBE
lda #$FF
rts
L8ED6: lda L8E67
sta L8E77
sta L8E72
ldy #$CE
lda #$71
ldx #$8E
jsr L46BA
ldy #$CA
lda #$76
ldx #$8E
jsr L46BA
ldy #$CC
lda #$7E
ldx #$8E
jsr L46BA
rts
brk
brk
brk
brk
brk
L8F00: jmp L8FC5
jmp L97E3
jmp L97E3
L8F09: jmp L92E7
L8F0C: jmp L8F9B
L8F0F: jmp L8FA1
L8F12: jmp L9571
L8F15: jmp L9213
L8F18: jmp L8F2A
L8F1B: jmp L8F5B
jmp L97E3
jmp L97E3
L8F24: jmp L8F7E
L8F27: jmp L8FB8
L8F2A: lda #$00
sta L9189
tsx
stx L9188
jsr LA248
jsr L993E
jsr LA271
jsr L9968
L8F3F: lda #$FF
sta $E05B
lda #$00
sta $E05C
jsr L9A0D
jsr L917F
L8F4F: jsr L91E8
lda #$00
rts
jsr L91D5
jmp L8F4F
L8F5B: lda #$00
sta L9189
tsx
stx L9188
jsr LA248
lda #$00
jsr L9E7E
jsr LA271
jsr L9182
jsr L9EBF
jsr L9EDB
jsr L917F
jmp L8F4F
L8F7E: lda #$80
sta L918C
lda #$C0
sta L9189
tsx
stx L9188
jsr LA248
jsr L9984
jsr LA271
jsr L99BC
jmp L8F3F
L8F9B: jsr L8FDD
jmp L8F4F
L8FA1: jsr L8FE1
jmp L8F4F
L8FA7: asl a
tay
lda $DD9F,y
sta L0006
lda $DDA0,y
sta $07
ldy #$02
lda (L0006),y
rts
L8FB8: lda #$00
sta L918C
lda #$C0
sta L9189
jmp L8FEB
L8FC5: lda $EBFC
cmp #$01
bne L8FD0
lda #$80
bne L8FD2
L8FD0: lda #$00
L8FD2: sta L918A
lda #$00
sta L9189
jmp L8FEB
L8FDD: lda #$00
beq L8FE3
L8FE1: lda #$80
L8FE3: sta L918B
lda #$80
sta L9189
L8FEB: tsx
stx L9188
lda #$00
sta $E05C
jsr L91D5
lda L9189
beq L8FFF
jmp L908C
L8FFF: .byte $2C
L9000: txa
sta ($10),y
ora $20AD
bbs5 $F0,L900C
jmp L908C
L900C: pla
pla
jmp L4012
lda $EBFC
bpl L9032
and #$7F
asl a
tax
lda $DFB3,x
sta $08
lda $DFB4,x
sta $09
lda #$7B
sta L0006
lda #$91
sta $07
jsr L91A0
jmp L9076
L9032: jsr L8FA7
and #$0F
beq L9051
asl a
tax
lda $DFB3,x
sta $08
lda $DFB4,x
sta $09
lda $EBFC
jsr L918E
jsr L91A0
jmp L9076
L9051: lda $EBFC
jsr L918E
ldy #$01
lda #$2F
sta (L0006),y
dey
lda (L0006),y
sta L906D
sta $E00A,y
L9066: iny
lda (L0006),y
sta $E00A,y
.byte $C0
L906D: brk
bne L9066
ldy #$01
lda #$20
sta (L0006),y
L9076: ldy #$FF
L9078: iny
lda $E00A,y
sta $DFC9,y
cpy $E00A
bne L9078
lda $DFC9
beq L908C
dec $DFC9
L908C: lda #$00
sta L97E4
jsr LA248
bit L9189
bvs L90B4
bmi L90AE
bit L918A
bmi L90A6
jsr L993E
jmp L90DE
L90A6: lda #$06
jsr L9E7E
jmp L90DE
L90AE: jsr LA059
jmp L90DE
L90B4: jsr LA1E4
jmp L90DE
L90BA: bit L9189
bvs L90D8
bmi L90D2
bit L918A
bmi L90CC
jsr L9968
jmp L90DE
L90CC: jsr L9EBF
jmp L90DE
L90D2: jsr LA0DF
jmp L90DE
L90D8: jsr LA241
jmp L90DE
L90DE: jsr L91F5
lda $DF21
bne L90E9
jmp L9168
L90E9: ldx #$00
stx L917A
L90EE: jsr L91F5
ldx L917A
lda $DF22,x
cmp #$01
beq L9140
jsr L918E
jsr L91A0
lda #$0A
sta L0006
lda #$E0
sta $07
ldy #$00
lda (L0006),y
beq L9114
sec
sbc #$01
sta (L0006),y
L9114: lda L97E4
beq L913D
bit L9189
bmi L912F
bit L918A
bmi L9129
jsr L9A01
jmp L9140
L9129: jsr L9EDB
jmp L9140
L912F: bvs L9137
jsr LA114
jmp L9140
L9137: jsr LA271
jmp L9140
L913D: jsr LA271
L9140: inc L917A
ldx L917A
cpx $DF21
bne L90EE
lda L97E4
bne L9168
inc L97E4
bit L9189
bmi L915D
bit L918A
bpl L9165
L915D: jsr L9182
bit L9189
bvs L9168
L9165: jmp L90BA
L9168: jsr L917F
lda $EBFC
jsr L918E
ldy #$01
lda #$20
sta (L0006),y
lda #$00
rts
L917A: brk
brk
L917C: .byte $4C
L917D: brk
L917E: brk
L917F: .byte $4C
L9180: brk
L9181: brk
L9182: .byte $4C
L9183: brk
L9184: brk
L9185: .byte $4C
L9186: brk
L9187: brk
L9188: brk
L9189: brk
L918A: brk
L918B: brk
L918C: brk
L918D: brk
L918E: asl a
tay
lda $DD9F,y
clc
adc #$09
sta L0006
lda $DDA0,y
adc #$00
sta $07
rts
L91A0: ldx #$00
ldy #$00
lda ($08),y
beq L91B6
sta L91B3
L91AB: iny
inx
lda ($08),y
sta $E00A,x
.byte $C0
L91B3: brk
bne L91AB
L91B6: inx
lda #$2F
sta $E00A,x
ldy #$00
lda (L0006),y
beq L91D1
sta L91CE
iny
L91C6: iny
inx
lda (L0006),y
sta $E00A,x
.byte $C0
L91CE: brk
bne L91C6
L91D1: stx $E00A
rts
L91D5: ldy #$03
lda #$39
ldx #$D2
jsr L4003
ldy #$04
lda #$39
ldx #$D2
jsr L4003
rts
L91E8: jsr L4015
ldy #$0C
lda #$00
ldx #$00
jsr L4018
rts
L91F5: lda #$11
sta $08
lda #$92
sta $09
lda $DF20
beq L9210
asl a
tax
lda $DFB3,x
sta $08
lda $DFB4,x
sta $09
lda #$00
L9210: rts
brk
brk
L9213: lda $DF21
bne L9219
rts
L9219: ldx $DF21
stx L0800
dex
L9220: lda $DF22,x
sta $0801,x
dex
bpl L9220
jsr L401E
ldx #$00
stx L924A
L9231: ldx L924A
lda $0801,x
cmp #$01
beq L923E
jsr L924B
L923E: inc L924A
ldx L924A
cpx L0800
bne L9231
rts
L924A: brk
L924B: sta L9254
ldy #$00
L9250: lda $E1A0,y
.byte $C9
L9254: brk
beq L9260
cpy $BF31
beq L925F
iny
bne L9250
L925F: rts
L9260: lda $BF32,y
sta L92C7
ldx #$11
lda L92C7
and #$80
beq L9271
ldx #$21
L9271: stx L9284
lda L92C7
and #$70
lsr a
lsr a
lsr a
clc
adc L9284
sta L9284
.byte $AD
L9284: brk
bbs3 $85,L928F
lda #$00
sta L0006
ldy #$07
.byte $B1
L928F: asl $D0
cmp $FBA0
lda (L0006),y
and #$7F
bne L925F
ldy #$FF
lda (L0006),y
clc
adc #$03
sta L0006
lda L92C7
pha
rol a
pla
php
and #$20
lsr a
lsr a
lsr a
lsr a
plp
adc #$01
sta L92C1
jsr L92BD
tsb $C0
sta ($60)
L92BD: jmp (L0006)
.byte $03
L92C1: brk
cmp $92
tsb L0000
brk
L92C7: brk
brk
asl a
.byte $20
.byte $02
L92CC: brk
L92CD: brk
L92CE: brk
L92CF: brk
brk
L92D1: brk
L92D2: brk
L92D3: brk
L92D4: brk
brk
brk
L92D7: brk
L92D8: brk
brk
brk
brk
brk
.byte $03
L92DE: brk
brk
php
asl a
brk
L92E3: brk
L92E4: brk
L92E5: brk
L92E6: brk
L92E7: lda $DF21
bne L92ED
rts
L92ED: lda #$00
sta L92E6
jsr L91D5
L92F5: ldx L92E6
cpx $DF21
bne L9300
jmp L9534
L9300: lda $DF20
beq L9331
asl a
tax
lda $DFB3,x
sta $08
lda $DFB4,x
sta $09
ldx L92E6
lda $DF22,x
jsr L918E
jsr L91A0
ldy #$00
L931F: lda $E00A,y
sta $0220,y
iny
cpy $0220
bne L931F
dec $0220
jmp L9356
L9331: ldx L92E6
lda $DF22,x
cmp #$01
bne L933E
jmp L952E
L933E: jsr L918E
ldy #$00
L9343: lda (L0006),y
sta $0220,y
iny
cpy $0220
bne L9343
dec $0220
lda #$2F
sta $0221
L9356: ldy #$C4
lda #$C9
ldx #$92
jsr L4021
beq L9366
jsr LA49B
beq L9356
L9366: lda $DF20
beq L9387
lda #$80
sta L92E3
lda L92E6
clc
adc #$01
cmp $DF21
beq L9381
inc L92E3
inc L92E3
L9381: jsr L953F
jmp L93DB
L9387: lda #$81
sta L92E3
lda L92E6
clc
adc #$01
cmp $DF21
beq L939D
inc L92E3
inc L92E3
L939D: jsr L953F
lda #$00
sta L942E
ldx L92E6
lda $DF22,x
ldy #$0F
L93AD: cmp $E1A0,y
beq L93B8
dey
bpl L93AD
jmp L93DB
L93B8: lda $BF32,y
sta L92DE
ldy #$80
lda #$DD
ldx #$92
jsr L4021
bne L93DB
ldy #$81
lda #$DD
ldx #$92
jsr L4021
cmp #$2B
bne L93DB
lda #$80
sta L942E
L93DB: ldx L92E6
lda $DF22,x
jsr L918E
lda #$01
sta L92E3
lda L0006
sta L92E4
lda $07
sta L92E5
jsr L953F
lda #$02
sta L92E3
lda $DF20
bne L9413
bit L942E
bmi L940C
lda #$00
sta L92E4
beq L9428
L940C: lda #$01
sta L92E4
bne L9428
L9413: lda L92CC
and #$C3
cmp #$C3
beq L9423
lda #$01
sta L92E4
bne L9428
L9423: lda #$00
sta L92E4
L9428: jsr L953F
jmp L942F
L942E: brk
L942F: lda #$03
sta L92E3
lda #$00
sta $0220
lda $DF20
bne L9472
lda L92CE
sec
sbc L92D1
pha
lda L92CF
sbc L92D2
tax
pla
jsr L4006
jsr L9549
ldx #$00
L9456: lda $E6EB,x
cmp #$42
beq L9460
inx
bne L9456
L9460: stx $0220
lda #$2F
sta $0220,x
dex
L9469: lda $E6EB,x
sta $0220,x
dex
bne L9469
L9472: lda $DF20
bne L9480
lda L92CE
ldx L92CF
jmp L9486
L9480: lda L92D1
ldx L92D2
L9486: jsr L4006
jsr L9549
ldx $0220
ldy #$00
L9491: lda $E6EC,y
sta $0221,x
inx
iny
cpy $E6EB
bne L9491
tya
clc
adc $0220
sta $0220
ldx $0220
L94A9: lda $0220,x
sta $DFC9,x
dex
bpl L94A9
lda #$C9
sta L92E4
lda #$DF
sta L92E5
jsr L953F
lda #$04
sta L92E3
lda L92D7
sta $EC5A
lda L92D8
sta $EC5B
jsr L4009
lda #$EB
sta L92E4
lda #$E6
sta L92E5
jsr L953F
lda #$05
sta L92E3
lda L92D3
sta $EC5A
lda L92D4
sta $EC5B
jsr L4009
lda #$EB
sta L92E4
lda #$E6
sta L92E5
jsr L953F
lda #$06
sta L92E3
lda $DF20
bne L9519
ldx L953A
L950E: lda L953A,x
sta $DFC5,x
dex
bpl L950E
bmi L951F
L9519: lda L92CD
jsr L402D
L951F: lda #$C5
sta L92E4
lda #$DF
sta L92E5
jsr L953F
bne L9534
L952E: inc L92E6
jmp L92F5
L9534: lda #$00
sta $DFC9
rts
L953A: tsb L0020
lsr $4F,x
.byte $4C
L953F: ldy #$06
lda #$E3
ldx #$92
jsr LA500
rts
L9549: ldx #$00
L954B: lda $E6EC,x
cmp #$20
bne L9555
inx
bne L954B
L9555: ldy #$00
dex
L9558: lda $E6EC,x
sta $E6EC,y
iny
inx
cpx $E6EB
bne L9558
sty $E6EB
rts
.byte $02
jsr RAMRDOFF
.byte $1F
L956E: brk
brk
L9570: .byte $1F
L9571: lda #$00
sta L9706
L9576: lda L9706
cmp $DF21
bne L9581
lda #$00
rts
L9581: ldx L9706
lda $DF22,x
cmp #$01
bne L9591
inc L9706
jmp L9576
L9591: lda $DF20
beq L95C2
asl a
tax
lda $DFB3,x
sta $08
lda $DFB4,x
sta $09
ldx L9706
lda $DF22,x
jsr L918E
jsr L91A0
ldy #$00
L95B0: lda $E00A,y
sta $0220,y
iny
cpy $0220
bne L95B0
dec $0220
jmp L95E0
L95C2: ldx L9706
lda $DF22,x
jsr L918E
ldy #$00
L95CD: lda (L0006),y
sta $0220,y
iny
cpy $0220
bne L95CD
dec $0220
lda #$2F
sta $0221
L95E0: ldx L9706
lda $DF22,x
jsr L918E
ldy #$00
lda (L0006),y
tay
L95EE: lda (L0006),y
sta $1F12,y
dey
bpl L95EE
ldy #$00
lda (L0006),y
tay
dey
sec
sbc #$02
sta $1F00
L9602: lda (L0006),y
sta $1EFF,y
dey
cpy #$01
bne L9602
lda #$00
jsr L96F8
L9611: lda #$80
jsr L96F8
beq L962F
L9618: ldx L9706
lda $DF22,x
jsr L918E
ldy $1F12
L9624: lda $1F12,y
sta (L0006),y
dey
bpl L9624
lda #$FF
rts
L962F: sty $08
sty L9707
stx $09
stx L9708
lda $DF20
beq L964D
asl a
tax
lda $DFB3,x
sta L0006
lda $DFB4,x
sta $07
jmp L9655
L964D: lda #$05
sta L0006
lda #$97
sta $07
L9655: ldy #$00
lda (L0006),y
tay
L965A: lda (L0006),y
sta $1FC0,y
dey
bpl L965A
inc $1FC0
ldx $1FC0
lda #$2F
sta $1FC0,x
ldy #$00
lda ($08),y
sta L9709
L9674: inx
iny
lda ($08),y
sta $1FC0,x
cpy L9709
bne L9674
stx $1FC0
ldy #$C2
lda #$69
ldx #$95
jsr L4021
beq L969E
jsr L4030
bne L9696
jmp L9611
L9696: lda #$40
jsr L96F8
jmp L9618
L969E: lda #$40
jsr L96F8
ldx L9706
lda $DF22,x
sta $E22B
ldy #$0E
lda #$2B
ldx #$E2
jsr L4018
lda L9707
sta $08
lda L9708
sta $09
ldx L9706
lda $DF22,x
jsr L918E
ldy #$00
lda ($08),y
clc
adc #$02
sta (L0006),y
lda ($08),y
tay
inc L0006
bne L96DA
inc $07
L96DA: lda ($08),y
sta (L0006),y
dey
bne L96DA
dec L0006
lda L0006
cmp #$FF
bne L96EB
dec $07
L96EB: lda (L0006),y
tay
lda #$20
sta (L0006),y
inc L9706
jmp L9576
L96F8: sta L956E
ldy #$09
lda #$6E
ldx #$95
jsr LA500
rts
brk
L9706: brk
L9707: brk
L9708: brk
L9709: brk
.byte $03
jsr L0002
php
L970F: brk
.byte $04
L9711: brk
clc
smb1 $04
brk
brk
brk
brk
brk
brk
brk
.byte $01
L971D: brk
.byte $04
L971F: brk
lda $2797
brk
brk
brk
.byte $04
L9727: brk
rol $0597
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
.byte $01
L9738: brk
.byte $01
L973A: brk
ora (L0020,x)
.byte $02
.byte $03
jsr L0002
.byte $0D
L9743: brk
.byte $03
cpy #$1F
brk
.byte $11
L9749: brk
.byte $04
L974B: brk
brk
.byte $15
L974E: .byte $C0
L974F: asl a
L9750: brk
L9751: brk
.byte $04
L9753: brk
brk
.byte $15
L9756: .byte $C0
L9757: asl a
brk
brk
L975A: rmb0 $C0
bbr1 $C3,L975F
L975F: brk
brk
brk
brk
brk
brk
brk
L9766: rmb0 $C0
.byte $1F
L9769: brk
brk
L976B: brk
brk
L976D: brk
brk
brk
brk
brk
brk
brk
L9774: asl a
.byte $20
.byte $02
L9777: brk
L9778: brk
brk
brk
L977B: brk
L977C: brk
L977D: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L9787: asl a
cpy #$1F
L978A: brk
brk
L978C: brk
L978D: brk
brk
L978F: brk
L9790: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
.byte $02
L979B: brk
brk
brk
brk
.byte $02
L97A0: brk
L97A1: brk
L97A2: brk
L97A3: brk
.byte $02
L97A5: brk
L97A6: brk
L97A7: brk
L97A8: brk
.byte $02
brk
brk
php
L97AD: brk
L97AE: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L97BD: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
L97DD: rol $9B,x
L97DF: .byte $33
.byte $9B
L97E1: .byte $E3
.byte $97
L97E3: rts
L97E4: brk
L97E5: ldx $E10C
lda $E061
sta $E062,x
inx
stx $E10C
rts
L97F3: ldx $E10C
dex
lda $E062,x
sta $E061
stx $E10C
rts
L9801: lda #$00
sta $E05F
sta $E10D
L9809: ldy #$C8
lda #$0A
ldx #$97
jsr L4021
beq L981E
ldx #$80
jsr L4033
beq L9809
jmp LA39F
L981E: lda L970F
sta $E060
sta L9711
L9827: ldy #$CA
lda #$10
ldx #$97
jsr L4021
beq L983C
ldx #$80
jsr L4033
beq L9827
jmp LA39F
L983C: jmp L985B
L983F: lda $E060
sta L971D
L9845: ldy #$CC
lda #$1C
ldx #$97
jsr L4021
beq L985A
ldx #$80
jsr L4033
beq L9845
jmp LA39F
L985A: rts
L985B: inc $E05F
lda $E060
sta L971F
L9864: ldy #$CA
lda #$1E
ldx #$97
jsr L4021
beq L987D
cmp #$4C
beq L989F
ldx #$80
jsr L4033
beq L9864
jmp LA39F
L987D: inc $E10D
lda $E10D
cmp $E05E
bcc L989C
lda #$00
sta $E10D
lda $E060
sta L9727
ldy #$CA
lda #$26
ldx #$97
jsr L4021
L989C: lda #$00
rts
L989F: lda #$FF
rts
L98A2: lda $E05F
sta $E061
jsr L983F
jsr L97E5
jsr LA2FD
jmp L9801
L98B4: jsr L983F
jsr L992A
jsr LA322
jsr L97F3
jsr L9801
jsr L98C9
jmp L9927
L98C9: lda $E05F
cmp $E061
beq L98D7
jsr L985B
jmp L98C9
L98D7: rts
L98D8: lda #$00
sta $E05D
jsr L9801
L98E0: jsr L985B
bne L9912
lda L97AD
beq L98E0
lda L97AD
sta L992D
and #$0F
sta L97AD
lda #$00
sta L9923
jsr L9924
lda L9923
bne L98E0
lda L97BD
cmp #$0F
bne L98E0
jsr L98A2
inc $E05D
jmp L98E0
L9912: lda $E05D
beq L9920
jsr L98B4
dec $E05D
jmp L98E0
L9920: jmp L983F
L9923: brk
L9924: jmp (L97DD)
L9927: jmp (L97DF)
L992A: jmp (L97E1)
L992D: brk
brk
brk
brk
L9931: rol $9B,x
.byte $33
.byte $9B
.byte $E3
.byte $97
L9937: brk
L9938: brk
L9939: brk
jsr RAMRDOFF
.byte $1F
L993E: lda #$00
sta L9937
lda #$5A
sta L917D
lda #$99
sta L917E
lda #$7C
sta L9180
lda #$99
sta L9181
jmp L9BBF
sta L9938
stx L9939
lda #$01
sta L9937
jmp L9BBF
L9968: ldy #$05
L996A: lda L9931,y
sta L97DD,y
dey
bpl L996A
lda #$00
sta LA425
sta L918D
rts
lda #$05
sta L9937
jmp L9BBF
L9984: lda #$00
sta L9937
lda #$A7
sta L917D
lda #$99
sta L917E
lda #$DC
sta L9180
lda #$99
sta L9181
ldy #$0A
lda #$37
ldx #$99
jsr LA500
rts
sta L9938
stx L9939
lda #$01
sta L9937
ldy #$0A
lda #$37
ldx #$99
jsr LA500
rts
L99BC: lda #$80
sta L918D
ldy #$05
L99C3: lda L9931,y
sta L97DD,y
dey
bpl L99C3
lda #$00
sta LA425
lda #$EB
sta L9186
lda #$99
sta L9187
rts
lda #$03
sta L9937
ldy #$0A
lda #$37
ldx #$99
jsr LA500
rts
lda #$04
sta L9937
ldy #$0A
lda #$37
ldx #$99
jsr LA500
cmp #$02
bne L99FE
rts
L99FE: jmp LA39F
L9A01: lda #$80
sta $E05B
lda #$00
sta $E05C
beq L9A0F
L9A0D: lda #$FF
L9A0F: sta L9B31
lda #$02
sta L9937
jsr LA379
bit L9189
bvc L9A22
jsr L9BC9
L9A22: bit $E05B
bpl L9A70
bvs L9A50
lda L9B31
bne L9A36
lda $DF20
bne L9A36
jmp L9B28
L9A36: ldx $1FC0
ldy L9B32
dey
L9A3D: iny
inx
lda $0220,y
sta $1FC0,x
cpy $0220
bne L9A3D
stx $1FC0
jmp L9A70
L9A50: ldx $1FC0
lda #$2F
sta $1FC1,x
inc $1FC0
ldy #$00
ldx $1FC0
L9A60: iny
inx
lda $E04B,y
sta $1FC0,x
cpy $E04B
bne L9A60
stx $1FC0
L9A70: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq L9A81
jsr LA49B
jmp L9A70
L9A81: lda L977B
cmp #$0F
beq L9A90
cmp #$0D
beq L9A90
lda #$00
beq L9A95
L9A90: jsr LA2F1
lda #$FF
L9A95: sta L9B30
jsr LA40A
lda LA2EE
bne L9AA8
lda LA2ED
bne L9AA8
jmp LA39F
L9AA8: ldy #$07
L9AAA: lda L9774,y
sta L9766,y
dey
cpy #$02
bne L9AAA
lda #$C3
sta L9769
lda $E05B
beq L9B23
jsr L9C01
bcs L9B2C
ldy #$11
ldx #$0B
L9AC8: lda L9774,y
sta L9766,x
dex
dey
cpy #$0D
bne L9AC8
lda L976D
cmp #$0F
bne L9AE0
lda #$0D
sta L976D
L9AE0: ldy #$C0
lda #$66
ldx #$97
jsr L4021
beq L9B23
cmp #$47
bne L9B1D
bit L918D
bmi L9B14
lda #$03
sta L9937
jsr L9BBF
pha
lda #$02
sta L9937
pla
cmp #$02
beq L9B14
cmp #$03
beq L9B2C
cmp #$04
bne L9B1A
lda #$80
sta L918D
L9B14: jsr LA426
jmp L9B23
L9B1A: jmp LA39F
L9B1D: jsr LA49B
jmp L9AE0
L9B23: lda L9B30
beq L9B2D
L9B28: jmp L98D8
brk
L9B2C: rts
L9B2D: jmp L9CDA
L9B30: brk
L9B31: brk
L9B32: brk
jmp LA360
jsr LA3D1
beq L9B3E
jmp LA39F
L9B3E: lda L97BD
cmp #$0F
bne L9B88
jsr LA2FD
L9B48: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq L9B59
jsr LA49B
jmp L9B48
L9B59: jsr LA33B
jsr LA40A
jsr LA2F1
lda LA2EE
bne L9B6F
lda LA2ED
bne L9B6F
jmp LA39F
L9B6F: jsr L9E19
bcs L9B7A
jsr LA322
jmp L9BBE
L9B7A: jsr LA360
jsr LA322
lda #$FF
sta L9923
jmp L9BBE
L9B88: jsr LA33B
jsr LA2FD
jsr LA40A
L9B91: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq L9BA2
jsr LA49B
jmp L9B91
L9BA2: jsr L9C01
bcc L9BAA
jmp LA39F
L9BAA: jsr LA322
jsr L9E19
bcs L9BBB
jsr LA2FD
jsr L9CDA
jsr LA322
L9BBB: jsr LA360
L9BBE: rts
L9BBF: ldy #$01
lda #$37
ldx #$99
jsr LA500
rts
L9BC9: ldy #$C4
lda #$87
ldx #$97
jsr L4021
beq L9BDA
jsr LA497
jmp L9BC9
L9BDA: lda L978C
sec
sbc L978F
sta L9BFF
lda L978D
sbc L9790
sta L9C00
lda L9BFF
cmp LA2EF
lda L9C00
sbc LA2F0
bcs L9BFE
jmp L9185
L9BFE: rts
L9BFF: brk
L9C00: brk
L9C01: jsr L9C1A
bcc L9C19
lda #$04
sta L9937
jsr L9BBF
beq L9C13
jmp LA39F
L9C13: lda #$03
sta L9937
sec
L9C19: rts
L9C1A: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq L9C2B
jsr LA49B
jmp L9C1A
L9C2B: lda #$00
sta L9CD8
sta L9CD9
L9C33: ldy #$C4
lda #$87
ldx #$97
jsr L4021
beq L9C48
cmp #$46
beq L9C54
jsr LA497
jmp L9C33
L9C48: lda L978F
sta L9CD8
lda L9790
sta L9CD9
L9C54: lda $1FC0
sta L9CD6
ldy #$01
L9C5C: iny
cpy $1FC0
bcs L9CCC
lda $1FC0,y
cmp #$2F
bne L9C5C
tya
sta $1FC0
sta L9CD7
L9C70: ldy #$C4
lda #$87
ldx #$97
jsr L4021
beq L9C95
pha
lda L9CD6
sta $1FC0
pla
jsr LA497
jmp L9C70
lda L9CD7
sta $1FC0
jmp L9C70
jmp LA39F
L9C95: lda L978C
sec
sbc L978F
sta L9CD4
lda L978D
sbc L9790
sta L9CD5
lda L9CD4
clc
adc L9CD8
sta L9CD4
lda L9CD5
adc L9CD9
sta L9CD5
lda L9CD4
cmp L977C
lda L9CD5
sbc L977D
bcs L9CCC
sec
bcs L9CCD
L9CCC: clc
L9CCD: lda L9CD6
sta $1FC0
rts
L9CD4: brk
L9CD5: brk
L9CD6: brk
L9CD7: brk
L9CD8: brk
L9CD9: brk
L9CDA: jsr LA2F1
lda #$00
sta L9E17
sta L9E18
sta L97A1
sta L97A2
sta L97A3
sta L97A6
sta L97A7
sta L97A8
jsr L9D62
jsr L9D74
jsr L9D81
beq L9D09
lda #$FF
sta L9E17
bne L9D0C
L9D09: jsr L9D9C
L9D0C: jsr L9DA9
bit L9E17
bpl L9D28
jsr L9E0D
L9D17: jsr L9D81
bne L9D17
jsr L9D9C
ldy #$CE
lda #$A4
ldx #$97
jsr L4021
L9D28: bit L9E18
bmi L9D51
jsr L9DE8
bit L9E17
bpl L9D0C
jsr L9E03
jsr L9D62
jsr L9D74
ldy #$CE
lda #$9F
ldx #$97
jsr L4021
beq L9D0C
lda #$FF
sta L9E18
jmp L9D0C
L9D51: jsr L9E03
bit L9E17
bmi L9D5C
jsr L9E0D
L9D5C: jsr LA46D
jmp LA479
L9D62: ldy #$C8
lda #$3E
ldx #$97
jsr L4021
beq L9D73
jsr LA49B
jmp L9D62
L9D73: rts
L9D74: lda L9743
sta L974B
sta L9738
sta L97A0
rts
L9D81: ldy #$C8
lda #$44
ldx #$97
jsr L4021
beq L9D9B
cmp #$45
beq L9D96
jsr LA497
jmp L9D81
L9D96: jsr LA497
lda #$45
L9D9B: rts
L9D9C: lda L9749
sta L9753
sta L973A
sta L97A5
rts
L9DA9: lda #$C0
sta L974E
lda #$0A
sta L974F
L9DB3: ldy #$CA
lda #$4A
ldx #$97
jsr L4021
beq L9DC8
cmp #$4C
beq L9DD9
jsr LA49B
jmp L9DB3
L9DC8: lda L9750
sta L9756
lda L9751
sta L9757
ora L9750
bne L9DDE
L9DD9: lda #$FF
sta L9E18
L9DDE: ldy #$CF
lda #$9F
ldx #$97
jsr L4021
rts
L9DE8: ldy #$CB
lda #$52
ldx #$97
jsr L4021
beq L9DF9
jsr LA497
jmp L9DE8
L9DF9: ldy #$CF
lda #$A4
ldx #$97
jsr L4021
rts
L9E03: ldy #$CC
lda #$39
ldx #$97
jsr L4021
rts
L9E0D: ldy #$CC
lda #$37
ldx #$97
jsr L4021
rts
L9E17: brk
L9E18: brk
L9E19: ldx #$07
L9E1B: lda L9774,x
sta L975A,x
dex
cpx #$03
bne L9E1B
L9E26: ldy #$C0
lda #$5A
ldx #$97
jsr L4021
beq L9E6F
cmp #$47
bne L9E69
bit L918D
bmi L9E60
lda #$03
sta L9937
ldy #$01
lda #$37
ldx #$99
jsr LA500
pha
lda #$02
sta L9937
pla
cmp #$02
beq L9E60
cmp #$03
beq L9E71
cmp #$04
bne L9E66
lda #$80
sta L918D
L9E60: jsr LA426
jmp L9E6F
L9E66: jmp LA39F
L9E69: jsr LA497
jmp L9E26
L9E6F: clc
rts
L9E71: sec
rts
L9E73: sty $9F,x
.byte $E3
smb1 $2E
.byte $A0
L9E79: brk
L9E7A: brk
L9E7B: brk
.byte $20
.byte $02
L9E7E: sta L9E79
lda #$B1
sta L9183
lda #$9E
sta L9184
lda #$A3
sta L917D
lda #$9E
sta L917E
jsr LA044
lda #$D3
sta L9180
lda #$9E
sta L9181
rts
sta L9E7A
stx L9E7B
lda #$01
sta L9E79
jmp LA044
lda #$02
sta L9E79
jsr LA044
beq L9EBE
jmp LA39F
L9EBE: rts
L9EBF: ldy #$05
L9EC1: lda L9E73,y
sta L97DD,y
dey
bpl L9EC1
lda #$00
sta LA425
sta L918D
rts
lda #$05
sta L9E79
jmp LA044
L9EDB: lda #$03
sta L9E79
jsr LA379
L9EE3: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq L9EF4
jsr LA49B
jmp L9EE3
L9EF4: lda L977B
sta L9F1D
cmp #$0D
beq L9F02
lda #$00
beq L9F04
L9F02: lda #$FF
L9F04: sta L9F1C
beq L9F1E
jsr L98D8
lda L9F1D
cmp #$0D
bne L9F18
lda #$FF
sta L9F1D
L9F18: jmp L9F1E
rts
L9F1C: brk
L9F1D: brk
L9F1E: bit $E05C
bmi L9F26
jsr LA3EF
L9F26: jsr LA2F1
L9F29: ldy #$C1
lda #$3B
ldx #$97
jsr L4021
beq L9F8D
cmp #$4E
bne L9F8E
bit L918D
bmi L9F62
lda #$04
sta L9E79
jsr LA044
pha
lda #$03
sta L9E79
pla
cmp #$03
beq L9F8D
cmp #$02
beq L9F62
cmp #$04
bne L9F5F
lda #$80
sta L918D
bne L9F62
L9F5F: jmp LA39F
L9F62: ldy #$C4
lda #$74
ldx #$97
jsr L4021
lda L9777
and #$80
bne L9F8D
lda #$C3
sta L9777
lda #$07
sta L9774
ldy #$C3
lda #$74
ldx #$97
jsr L4021
lda #$0A
sta L9774
jmp L9F29
L9F8D: rts
L9F8E: jsr LA49B
jmp L9F29
jsr LA3D1
beq L9F9C
jmp LA39F
L9F9C: jsr LA2FD
bit $E05C
bmi L9FA7
jsr LA3EF
L9FA7: jsr LA2F1
L9FAA: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq L9FBB
jsr LA49B
jmp L9FAA
L9FBB: lda L977B
cmp #$0D
beq LA022
L9FC2: ldy #$C1
lda #$3B
ldx #$97
jsr L4021
beq LA022
cmp #$4E
bne LA01C
bit L918D
bmi LA001
lda #$04
sta L9E79
ldy #$02
lda #$79
ldx #$9E
jsr LA500
pha
lda #$03
sta L9E79
pla
cmp #$03
beq LA022
cmp #$02
L9FF1: beq LA001
cmp #$04
bne L9FFE
lda #$80
sta L918D
bne LA001
L9FFE: jmp LA39F
LA001: lda #$C3
sta L9777
lda #$07
sta L9774
ldy #$C3
lda #$74
ldx #$97
jsr L4021
lda #$0A
sta L9774
jmp L9FC2
LA01C: jsr LA49B
jmp L9FC2
LA022: jmp LA322
jsr LA322
lda #$FF
sta L9923
rts
LA02E: ldy #$C1
lda #$3B
ldx #$97
jsr L4021
beq LA043
cmp #$4E
beq LA043
jsr LA49B
jmp LA02E
LA043: rts
LA044: ldy #$02
lda #$79
ldx #$9E
jsr LA500
rts
LA04E: bvs L9FF1
.byte $E3
smb1 $E3
.byte $97
LA054: brk
LA055: brk
LA056: brk
.byte $20
.byte $02
LA059: lda #$00
sta LA054
bit L918B
bpl LA085
lda #$D1
sta L9183
lda #$A0
sta L9184
lda #$B5
sta L917D
lda #$A0
sta L917E
jsr LA10A
lda #$F8
sta L9180
lda #$A0
sta L9181
rts
LA085: lda #$C3
sta L9183
lda #$A0
sta L9184
lda #$A7
sta L917D
lda #$A0
sta L917E
jsr LA100
lda #$F0
sta L9180
lda #$A0
sta L9181
rts
sta LA055
stx LA056
lda #$01
sta LA054
jmp LA100
sta LA055
stx LA056
lda #$01
sta LA054
jmp LA10A
lda #$02
sta LA054
jsr LA100
beq LA0D0
jmp LA39F
LA0D0: rts
lda #$02
sta LA054
jsr LA10A
beq LA0DE
jmp LA39F
LA0DE: rts
LA0DF: lda #$00
sta LA425
ldy #$05
LA0E6: lda LA04E,y
sta L97DD,y
dey
bpl LA0E6
rts
lda #$04
sta LA054
jmp LA100
lda #$04
sta LA054
jmp LA10A
LA100: ldy #$07
lda #$54
ldx #$A0
jsr LA500
rts
LA10A: ldy #$08
lda #$54
ldx #$A0
jsr LA500
rts
LA114: lda #$03
sta LA054
jsr LA379
ldx $1FC0
ldy L9B32
dey
LA123: iny
inx
lda $0220,y
sta $1FC0,x
cpy $0220
bne LA123
stx $1FC0
LA133: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq LA144
jsr LA49B
jmp LA133
LA144: lda L977B
sta LA169
cmp #$0F
beq LA156
cmp #$0D
beq LA156
lda #$00
beq LA158
LA156: lda #$FF
LA158: sta LA168
beq LA16A
jsr L98D8
lda LA169
cmp #$0F
bne LA16A
rts
LA168: brk
LA169: brk
LA16A: jsr LA173
jmp LA2FD
jsr LA2FD
LA173: jsr LA1C3
jsr LA2F1
LA179: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq LA18A
jsr LA49B
jmp LA179
LA18A: lda L977B
cmp #$0F
beq LA1C0
cmp #$0D
beq LA1C0
bit L918B
bpl LA19E
lda #$C3
bne LA1A0
LA19E: lda #$21
LA1A0: sta L9777
LA1A3: lda #$07
sta L9774
ldy #$C3
lda #$74
ldx #$97
jsr L4021
pha
lda #$0A
sta L9774
pla
beq LA1C0
jsr LA49B
jmp LA1A3
LA1C0: jmp LA322
LA1C3: lda LA2ED
sec
sbc #$01
sta LA055
lda LA2EE
sbc #$00
sta LA056
bit L918B
bpl LA1DC
jmp LA10A
LA1DC: jmp LA100
LA1DF: brk
sbc $EFA2
.byte $A2
LA1E4: lda #$00
sta LA1DF
lda #$20
sta L9183
lda #$A2
sta L9184
lda #$11
sta L917D
lda #$A2
sta L917E
ldy #$0B
lda #$DF
ldx #$A1
jsr LA500
lda #$33
sta L9180
lda #$A2
sta L9181
rts
lda #$01
sta LA1DF
ldy #$0B
lda #$DF
ldx #$A1
jsr LA500
LA21F: rts
lda #$02
sta LA1DF
ldy #$0B
lda #$DF
ldx #$A1
jsr LA500
beq LA21F
jmp LA39F
lda #$03
sta LA1DF
ldy #$0B
lda #$DF
ldx #$A1
jsr LA500
LA241: rts
LA242: ldx $E3A2
smb1 $E3
.byte $97
LA248: lda #$00
sta LA425
ldy #$05
LA24F: lda LA242,y
sta L97DD,y
dey
bpl LA24F
lda #$00
sta LA2ED
sta LA2EE
sta LA2EF
sta LA2F0
ldy #$17
lda #$00
LA26A: sta $BF58,y
dey
bpl LA26A
rts
LA271: jsr LA379
LA274: ldy #$C4
lda #$74
ldx #$97
jsr L4021
beq LA285
jsr LA49B
jmp LA274
LA285: lda L977B
sta LA2AA
cmp #$0F
beq LA297
cmp #$0D
beq LA297
lda #$00
beq LA299
LA297: lda #$FF
LA299: sta LA2A9
beq LA2AB
jsr L98D8
lda LA2AA
cmp #$0F
bne LA2AB
rts
LA2A9: brk
LA2AA: brk
LA2AB: jmp LA2AE
LA2AE: bit L9189
bvc LA2D4
jsr LA2FD
ldy #$C4
lda #$74
ldx #$97
jsr L4021
bne LA2D4
lda LA2EF
clc
adc L977C
sta LA2EF
lda LA2F0
adc L977D
sta LA2F0
LA2D4: inc LA2ED
bne LA2DC
inc LA2EE
LA2DC: bit L9189
bvc LA2E4
jsr LA322
LA2E4: lda LA2ED
ldx LA2EE
jmp L917C
LA2ED: brk
LA2EE: brk
LA2EF: brk
LA2F0: brk
LA2F1: lda LA2ED
bne LA2F9
dec LA2EE
LA2F9: dec LA2ED
rts
LA2FD: lda L97AD
bne LA303
rts
LA303: ldx #$00
ldy $0220
lda #$2F
sta $0221,y
iny
LA30E: cpx L97AD
bcs LA31E
lda L97AE,x
sta $0221,y
inx
iny
jmp LA30E
LA31E: sty $0220
rts
LA322: ldx $0220
bne LA328
rts
LA328: lda $0220,x
cmp #$2F
beq LA336
dex
bne LA328
stx $0220
rts
LA336: dex
stx $0220
rts
LA33B: lda L97AD
bne LA341
rts
LA341: ldx #$00
ldy $1FC0
lda #$2F
sta $1FC1,y
iny
LA34C: cpx L97AD
bcs LA35C
lda L97AE,x
sta $1FC1,y
inx
iny
jmp LA34C
LA35C: sty $1FC0
rts
LA360: ldx $1FC0
bne LA366
rts
LA366: lda $1FC0,x
cmp #$2F
beq LA374
dex
bne LA366
stx $1FC0
rts
LA374: dex
stx $1FC0
rts
LA379: ldy #$00
sty L9B32
dey
LA37F: iny
lda $E00A,y
cmp #$2F
bne LA38A
sty L9B32
LA38A: sta $0220,y
cpy $E00A
bne LA37F
ldy $DFC9
LA395: lda $DFC9,y
sta $1FC0,y
dey
bpl LA395
rts
LA39F: jsr L917F
jmp LA3A7
ora (L0000,x)
LA3A7: ldy #$CC
lda #$A5
ldx #$A3
jsr L4021
lda $DF20
beq LA3CA
sta $D212
ldy #$3C
lda #$12
ldx #$D2
jsr L4003
ldy #$04
lda #$15
ldx #$D2
jsr L4003
LA3CA: ldx L9188
txs
lda #$FF
rts
LA3D1: ldy #$2A
lda #$08
ldx #$D2
jsr L4003
lda $D208
cmp #$03
bne LA3EC
lda $D209
cmp #$1B
bne LA3EC
lda #$FF
bne LA3EE
LA3EC: lda #$00
LA3EE: rts
LA3EF: lda LA2ED
sec
sbc #$01
sta L9E7A
lda LA2EE
sbc #$00
sta L9E7B
ldy #$02
lda #$79
ldx #$9E
jsr LA500
rts
LA40A: lda LA2ED
sec
sbc #$01
sta L9938
lda LA2EE
sbc #$00
sta L9939
ldy #$01
lda #$37
ldx #$99
jsr LA500
rts
LA425: brk
LA426: jsr LA46D
lda #$C3
sta L978A
jsr LA479
lda L9778
cmp #$0F
beq LA46C
ldy #$C8
lda #$44
ldx #$97
jsr L4021
beq LA449
jsr LA497
jmp LA426
LA449: lda L9749
sta L979B
sta L973A
LA452: ldy #$D0
lda #$9A
ldx #$97
jsr L4021
beq LA463
jsr LA497
jmp LA452
LA463: ldy #$CC
lda #$39
ldx #$97
jsr L4021
LA46C: rts
LA46D: ldx #$0A
LA46F: lda L9777,x
sta L978A,x
dex
bpl LA46F
rts
LA479: lda #$07
sta L9787
ldy #$C3
lda #$87
ldx #$97
jsr L4021
pha
lda #$0A
sta L9787
pla
beq LA496
jsr LA497
jmp LA479
LA496: rts
LA497: ldx #$80
bne LA49D
LA49B: ldx #$00
LA49D: stx LA4C5
cmp #$45
beq LA4AE
cmp #$44
beq LA4AE
jsr L4030
bne LA4C2
rts
LA4AE: bit LA4C5
bpl LA4B8
lda #$FD
jmp LA4BA
LA4B8: lda #$FC
LA4BA: jsr L4030
bne LA4C2
jmp LA4C6
LA4C2: .byte $4C
LA4C3: .byte $9F
.byte $A3
LA4C5: brk
LA4C6: ldy #$C5
lda #$A9
ldx #$97
jsr L4021
rts
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
LA500: jmp LA520
LA503: .byte $9C
LA504: tay
rmb5 $A9
.byte $D4
ldy LAE34
tya
tay
tya
tay
plp
bbs2 $2C,LA4C3
lsr a
lda ($68),y
lda ($E1)
tax
plx
.byte $AB
and $B3
LA51D: brk
LA51E: brk
brk
LA520: sta LA51D
stx LA51E
tya
asl a
tax
lda LA503,x
sta LA565
lda LA504,x
sta LA566
lda #$00
sta $D8EB
sta $D8EC
sta $D8F0
sta $D8F1
sta $D8F2
sta $D8E8
sta $D8F5
sta $D8ED
sta LB3E6
lda #$14
sta $D8E9
lda #$98
sta LA89A
lda #$A8
sta LA89B
jsr LB403
.byte $4C
LA565: brk
LA566: brk
LA567: lda $D8E8
beq LA579
dec $D8E9
bne LA579
jsr LB8F5
lda #$14
sta $D8E9
LA579: ldy #$2A
lda #$08
ldx #$D2
jsr LD000
lda $D208
cmp #$01
bne LA58C
jmp LA5EE
LA58C: cmp #$03
bne LA593
jmp LA6FD
LA593: lda $D8E8
beq LA567
ldy #$40
lda #$09
ldx #$D2
jsr LD000
lda $D20D
bne LA5A9
jmp LA567
LA5A9: lda $D20E
cmp $D57D
beq LA5B4
jmp LA567
LA5B4: lda $D57D
jsr LB7B9
lda $D57D
sta $D208
ldy #$46
lda #$08
ldx #$D2
jsr LD000
ldy #$0E
lda #$0D
ldx #$D2
jsr LD000
LA5D2: ldy #$13
lda #$AB
ldx #$D6
jsr LD000
cmp #$80
bne LA5E5
jsr LB3D8
jmp LA5E8
LA5E5: jsr LB3CA
LA5E8: jsr LBEB1
jmp LA567
LA5EE: ldy #$40
lda #$09
ldx #$D2
jsr LD000
lda $D20D
bne LA5FF
lda #$FF
rts
LA5FF: cmp #$02
bne LA606
jmp LA609
LA606: lda #$FF
rts
LA609: lda $D20E
cmp $D57D
beq LA614
lda #$FF
rts
LA614: lda $D57D
jsr LB7B9
lda $D57D
sta $D208
ldy #$46
lda #$08
ldx #$D2
jsr LD000
ldy #$0E
lda #$0D
ldx #$D2
jsr LD000
bit $D8E7
bvc LA63A
jmp LA65E
LA63A: ldy #$13
lda #$20
ldx #$AE
jsr LD000
cmp #$80
beq LA64A
jmp LA6C1
LA64A: jsr LB43B
ldy #$11
lda #$20
ldx #$AE
jsr LD000
jsr LB7CF
bmi LA65D
lda #$00
LA65D: rts
LA65E: ldy #$13
lda #$28
ldx #$AE
jsr LD000
cmp #$80
bne LA67F
jsr LB43B
ldy #$11
lda #$28
ldx #$AE
jsr LD000
jsr LB7D9
bmi LA67E
lda #$02
LA67E: rts
LA67F: ldy #$13
lda #$30
ldx #$AE
jsr LD000
cmp #$80
bne LA6A0
jsr LB43B
ldy #$11
lda #$30
ldx #$AE
jsr LD000
jsr LB7DE
bmi LA69F
lda #$03
LA69F: rts
LA6A0: ldy #$13
lda #$38
ldx #$AE
jsr LD000
cmp #$80
bne LA6C1
jsr LB43B
ldy #$11
lda #$38
ldx #$AE
jsr LD000
jsr LB7E3
bmi LA6C0
lda #$04
LA6C0: rts
LA6C1: bit $D8E7
bpl LA6C9
lda #$FF
rts
LA6C9: ldy #$13
lda #$10
ldx #$AE
jsr LD000
cmp #$80
beq LA6D9
jmp LA6ED
LA6D9: jsr LB43B
ldy #$11
lda #$10
ldx #$AE
jsr LD000
jsr LB7D4
bmi LA6EC
lda #$01
LA6EC: rts
LA6ED: bit $D8E8
bmi LA6F7
lda #$FF
jmp LA899
LA6F7: jsr LB9B8
lda #$FF
rts
LA6FD: lda $D20A
cmp #$02
bne LA71A
lda $D209
and #$7F
cmp #$08
bne LA710
jmp LA815
LA710: cmp #$15
bne LA717
jmp LA820
LA717: lda #$FF
rts
LA71A: lda $D209
and #$7F
cmp #$08
bne LA72E
bit $D8ED
bpl LA72B
jmp L0CB8
LA72B: jmp LA82B
LA72E: cmp #$15
bne LA73D
bit $D8ED
bpl LA73A
jmp L0CD7
LA73A: jmp LA83E
LA73D: cmp #$0D
bne LA749
bit $D8E7
bvs LA717
jmp LA851
LA749: cmp #$1B
bne LA755
bit $D8E7
bmi LA717
jmp LA86F
LA755: cmp #$7F
bne LA75C
jmp LA88D
LA75C: cmp #$0B
bne LA76B
bit $D8ED
bmi LA768
jmp LA717
LA768: jmp L0D14
LA76B: cmp #$0A
bne LA77A
bit $D8ED
bmi LA777
jmp LA717
LA777: jmp L0CF9
LA77A: bit $D8E7
bvc LA79B
cmp #$59
beq LA7E8
cmp #$79
beq LA7E8
cmp #$4E
beq LA7F7
cmp #$6E
beq LA7F7
cmp #$41
beq LA806
cmp #$61
beq LA806
cmp #$0D
beq LA7E8
LA79B: bit $D8F5
bmi LA7C8
cmp #$2E
beq LA7D8
cmp #$30
bcs LA7AB
jmp LA717
LA7AB: cmp #$7B
bcc LA7B2
jmp LA717
LA7B2: cmp #$3A
bcc LA7D8
cmp #$41
bcs LA7BD
jmp LA717
LA7BD: cmp #$5B
bcc LA7DD
cmp #$61
bcs LA7DD
jmp LA717
LA7C8: cmp #$20
bcs LA7CF
jmp LA717
LA7CF: cmp #$7E
beq LA7DD
bcc LA7DD
jmp LA717
LA7D8: ldx $D443
beq LA7E5
LA7DD: ldx $D8E8
beq LA7E5
jsr LBB0B
LA7E5: lda #$FF
rts
LA7E8: jsr LB43B
ldy #$11
lda #$28
ldx #$AE
jsr LD000
lda #$02
rts
LA7F7: jsr LB43B
ldy #$11
lda #$30
ldx #$AE
jsr LD000
lda #$03
rts
LA806: jsr LB43B
ldy #$11
lda #$38
ldx #$AE
jsr LD000
lda #$04
rts
LA815: lda $D8E8
beq LA81D
jsr LBC5E
LA81D: lda #$FF
rts
LA820: lda $D8E8
beq LA828
jsr LBCC9
LA828: lda #$FF
rts
LA82B: lda $D8E8
beq LA83B
bit $D8ED
bpl LA838
jmp L0CD7
LA838: jsr LBBA4
LA83B: lda #$FF
rts
LA83E: lda $D8E8
beq LA84E
bit $D8ED
bpl LA84B
jmp L0CB8
LA84B: jsr LBC03
LA84E: lda #$FF
rts
LA851: lda $D57D
jsr LB7B9
jsr LB43B
ldy #$11
lda #$20
ldx #$AE
jsr LD000
ldy #$11
lda #$20
ldx #$AE
jsr LD000
lda #$00
rts
LA86F: lda $D57D
jsr LB7B9
jsr LB43B
ldy #$11
lda #$10
ldx #$AE
jsr LD000
ldy #$11
lda #$10
ldx #$AE
jsr LD000
lda #$01
rts
LA88D: lda $D8E8
beq LA895
jsr LBB63
LA895: lda #$FF
rts
rts
LA899: .byte $4C
LA89A: brk
LA89B: brk
ldy #$38
lda #$2B
ldx #$D6
jsr LD000
lda $D62B
jsr LB7B9
jsr LB43B
ldy #$12
lda #$DD
ldx #$AE
jsr LD000
ldy #$12
lda #$E5
ldx #$AE
jsr LD000
lda #$ED
ldx #$AE
jsr LB723
lda #$FE
ldx #$AE
ldy #$81
jsr LB590
lda #$22
ldx #$AF
ldy #$82
jsr LB590
lda #$46
ldx #$AF
ldy #$83
jsr LB590
lda #$5A
ldx #$AF
ldy #$05
jsr LB590
lda #$93
ldx #$AF
ldy #$86
jsr LB590
lda #$B4
ldx #$AF
ldy #$07
jsr LB590
lda #$EE
ldx #$AF
ldy #$09
jsr LB590
lda #$36
sta $D6C3
lda #$01
sta $D6C4
lda #$00
ldx #$B0
ldy #$09
jsr LB590
lda #$28
sta $D6C3
lda #$00
sta $D6C4
LA923: ldy #$2A
lda #$08
ldx #$D2
jsr LD000
lda $D208
cmp #$01
beq LA947
cmp #$03
bne LA923
lda $D209
and #$7F
cmp #$1B
beq LA947
cmp #$0D
bne LA923
jmp LA947
LA947: ldy #$39
lda #$2B
ldx #$D6
jsr LD000
jsr LBEB1
jsr LB3CA
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$01
bne LA965
jmp LA9B5
LA965: cmp #$02
bne LA96C
jmp LA9E6
LA96C: cmp #$03
bne LA973
jmp LAA6A
LA973: cmp #$04
bne LA97A
jmp LAA9C
LA97A: cmp #$05
bne LA981
jmp LAA5A
LA981: lda #$00
sta $D8E8
jsr LB53A
lda #$0C
ldx #$B0
jsr LB723
lda #$15
ldx #$B0
ldy #$01
jsr LB590
lda #$22
ldx #$B0
ldy #$02
jsr LB590
lda #$28
ldx #$B0
ldy #$03
jsr LB590
lda #$2D
ldx #$B0
ldy #$04
jsr LB590
rts
LA9B5: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
ldy #$0E
lda #$B6
ldx #$B0
jsr LD000
lda #$01
ldx #$D9
jsr LB708
lda #$FB
ldx #$D8
jsr LB708
rts
LA9E6: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
jsr LBE8D
jsr LBE9A
jsr LB3BF
ldy #$03
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
jsr LBE63
ldy #$0E
lda #$7E
ldx #$AE
jsr LD000
lda #$02
ldx #$D4
jsr LB708
jsr LB3BF
ldy #$05
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
jsr LBE78
ldy #$0E
lda #$82
ldx #$AE
jsr LD000
lda #$43
ldx #$D4
.byte $20
php
LAA48: smb3 $A0
asl LBAA9
ldx #$B0
jsr LD000
lda #$01
ldx #$D9
jsr LB708
rts
LAA5A: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
rts
LAA6A: jsr LAACE
lda $D57D
jsr LB7B9
lda #$47
ldx #$B0
ldy #$06
jsr LB590
jsr LB64E
LAA7F: jsr LA567
bmi LAA7F
pha
jsr LB687
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$76
ldx #$AE
jsr LD000
pla
rts
LAA9C: jsr LAACE
lda $D57D
jsr LB7B9
lda #$80
ldx #$B0
ldy #$06
jsr LB590
jsr LB6AF
LAAB1: jsr LA567
bmi LAAB1
pha
jsr LB6D0
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$76
ldx #$AE
jsr LD000
pla
rts
LAACE: sta ALTZPOFF
sta $C082
jsr LFBDD
sta ALTZPON
lda LCBANK1
lda LCBANK1
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$01
bne LAAEF
jmp LAB38
LAAEF: cmp #$02
bne LAAF6
jmp LAB69
LAAF6: cmp #$03
bne LAAFD
jmp LABB8
LAAFD: cmp #$04
bne LAB04
jmp LABC8
LAB04: lda #$00
sta $D8E8
jsr LB53A
lda #$73
ldx #$B4
jsr LB723
lda #$15
ldx #$B0
ldy #$01
jsr LB590
lda #$22
ldx #$B0
ldy #$02
jsr LB590
lda #$28
ldx #$B0
ldy #$03
jsr LB590
lda #$2D
ldx #$B0
ldy #$04
jsr LB590
rts
LAB38: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
ldy #$0E
lda #$B6
ldx #$B0
jsr LD000
lda #$01
ldx #$D9
jsr LB708
lda #$FB
ldx #$D8
jsr LB708
rts
LAB69: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
jsr LBE8D
jsr LB3BF
ldy #$03
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
jsr LBE63
ldy #$0E
lda #$7E
ldx #$AE
jsr LD000
lda #$02
ldx #$D4
jsr LB708
ldy #$0E
lda #$BA
ldx #$B0
jsr LD000
lda #$01
ldx #$D9
jsr LB708
rts
LABB8: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
rts
LABC8: jsr LAACE
lda $D57D
jsr LB7B9
lda #$80
ldx #$B4
ldy #$06
jsr LB590
jsr LB6E6
LABDD: jsr LA567
bmi LABDD
pha
jsr LB6FB
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$76
ldx #$AE
jsr LD000
pla
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$01
bne LAC08
jmp LAC3D
LAC08: cmp #$02
bne LAC0F
jmp LACAE
LAC0F: cmp #$03
bne LAC16
jmp LAC9E
LAC16: jsr LB53A
lda #$3A
ldx #$B4
jsr LB723
lda #$47
ldx #$B4
ldy #$01
jsr LB590
ldy #$01
jsr LB01F
lda #$57
ldx #$B4
ldy #$02
jsr LB590
ldy #$02
jsr LB01F
rts
LAC3D: ldy #$01
lda (L0006),y
sta $D909
tax
iny
lda (L0006),y
sta $07
stx L0006
ldy #$00
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDDF
lda $D57D
jsr LB7B9
lda #$A5
sta $D6C3
ldy #$01
lda #$01
ldx #$D9
jsr LB590
jsr LB3BF
ldy #$03
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
ldy #$00
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDDF
lda #$A5
sta $D6C3
ldy #$02
lda #$01
ldx #$D9
jsr LB590
rts
LAC9E: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
rts
LACAE: lda $D57D
jsr LB7B9
jsr LB6E6
LACB7: jsr LA567
bmi LACB7
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$6E
ldx #$AE
jsr LD000
jsr LB6FB
lda #$00
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$01
bne LACE2
jmp LAD2A
LACE2: cmp #$02
bne LACE9
jmp LADBB
LACE9: cmp #$03
bne LACF0
jmp LAD6C
LACF0: cmp #$04
bne LACF7
jmp LAE05
LACF7: cmp #$05
bne LACFE
jmp LADF5
LACFE: sta LAD1F
lda #$00
sta $D8E8
jsr LB53A
lda #$BE
ldx #$B0
jsr LB723
lda LAD1F
beq LAD20
lda #$DD
ldx #$B0
ldy #$04
jsr LB590
rts
LAD1F: brk
LAD20: lda #$C9
ldx #$B0
ldy #$04
jsr LB590
rts
LAD2A: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
lda LAD1F
LAD46: bne LAD54
ldy #$0E
lda #$6A
ldx #$B1
jsr LD000
jmp LAD5D
LAD54: ldy #$0E
lda #$72
ldx #$B1
jsr LD000
LAD5D: lda #$01
ldx #$D9
jsr LB708
lda #$FB
ldx #$D8
jsr LB708
rts
LAD6C: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
jsr LBE8D
jsr LB3BF
ldy #$03
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
jsr LBE63
ldy #$0E
lda #$7E
ldx #$AE
jsr LD000
lda #$02
ldx #$D4
jsr LB708
ldy #$0E
lda #$6E
ldx #$B1
jsr LD000
lda #$01
ldx #$D9
jsr LB708
rts
LADBB: lda $D57D
jsr LB7B9
jsr LB6AF
LADC4: jsr LA567
bmi LADC4
bne LADF4
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$6E
ldx #$AE
jsr LD000
jsr LB6D0
ldy #$02
lda #$0E
ldx #$B1
jsr LB590
ldy #$04
lda #$14
ldx #$B1
jsr LB590
lda #$00
LADF4: rts
LADF5: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
rts
LAE05: lda $D57D
jsr LB7B9
lda #$33
ldx #$B1
ldy #$06
jsr LB590
jsr LB64E
LAE17: jsr LA567
bmi LAE17
pha
jsr LB687
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$76
ldx #$AE
jsr LD000
pla
rts
LAE34: jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$80
bne LAE42
jmp LAE70
LAE42: cmp #$40
bne LAE49
jmp LAF16
LAE49: lda #$80
sta $D8E8
jsr LBD69
lda #$00
jsr LB509
lda $D57D
jsr LB7B9
lda #$76
ldx #$B1
jsr LB723
jsr LB43B
ldy #$12
lda #$AB
ldx #$D6
jsr LD000
rts
LAE70: lda #$80
sta $D8E8
lda #$00
sta $D8E7
jsr LBD75
jsr LB3BF
ldy #$01
lda (L0006),y
sta $08
iny
lda (L0006),y
sta $09
ldy #$00
lda ($08),y
tay
LAE90: lda ($08),y
sta $D402,y
dey
bpl LAE90
lda $D57D
jsr LB7B9
ldy #$02
lda #$85
ldx #$B1
jsr LB590
lda #$37
sta $D6C3
ldy #$02
lda #$02
ldx #$D4
jsr LB590
lda #$28
sta $D6C3
ldy #$04
lda #$89
ldx #$B1
jsr LB590
jsr LB961
LAEC6: jsr LA567
bmi LAEC6
bne LAF16
lda $D443
beq LAEC6
cmp #$10
bcc LAEE1
LAED6: lda #$FB
jsr L4030
jsr LB961
jmp LAEC6
LAEE1: lda $D402
clc
adc $D443
clc
adc #$01
cmp #$41
bcs LAED6
inc $D402
ldx $D402
lda #$2F
sta $D402,x
ldx $D402
ldy #$00
LAEFF: inx
iny
lda $D443,y
sta $D402,x
cpy $D443
bne LAEFF
stx $D402
ldy #$02
ldx #$D4
lda #$00
rts
LAF16: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
lda #$01
rts
jsr LB3BF
ldy #$00
lda (L0006),y
bmi LAF34
jmp LAFB9
LAF34: lda #$00
sta $D8E8
lda (L0006),y
lsr a
lsr a
ror a
eor #$80
jsr LB509
lda $D57D
jsr LB7B9
lda #$C6
ldx #$B1
jsr LB723
jsr LB3BF
ldy #$00
lda (L0006),y
and #$7F
lsr a
ror a
sta LB01D
ldy #$01
lda #$D3
ldx #$B1
jsr LB590
bit LB01D
bmi LAF78
ldy #$02
lda #$D8
ldx #$B1
jsr LB590
jmp LAF81
LAF78: ldy #$02
lda #$09
ldx #$B2
jsr LB590
LAF81: bit LB01D
bpl LAF92
ldy #$03
lda #$19
ldx #$B2
jsr LB590
jmp LAF9B
LAF92: ldy #$03
lda #$DF
ldx #$B1
jsr LB590
LAF9B: ldy #$04
lda #$E4
ldx #$B1
jsr LB590
ldy #$05
lda #$F2
ldx #$B1
jsr LB590
ldy #$06
lda #$04
ldx #$B2
jsr LB590
jmp LBEB1
LAFB9: lda $D57D
jsr LB7B9
jsr LB3BF
ldy #$00
lda (L0006),y
sta LB01E
tay
jsr LB01F
lda #$A5
sta $D6C3
jsr LB3BF
lda LB01E
cmp #$02
bne LAFF0
ldy #$01
lda (L0006),y
beq LAFE9
lda #$A8
ldx #$AE
jmp LAFF8
LAFE9: lda #$AD
ldx #$AE
jmp LAFF8
LAFF0: ldy #$02
lda (L0006),y
tax
dey
lda (L0006),y
LAFF8: ldy LB01E
jsr LB590
lda LB01E
cmp #$06
beq LB006
rts
LB006: jsr LA567
bmi LB006
pha
jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB3CA
pla
rts
LB01D: brk
LB01E: brk
LB01F: lda #$A0
sta $D6C3
lda #$2A
ldx #$B2
jsr LB590
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$01
bne LB03A
jmp LB068
LB03A: cmp #$02
bne LB041
jmp LB0F1
LB041: cmp #$03
bne LB048
jmp LB0A2
LB048: cmp #$04
bne LB04F
jmp LB13A
LB04F: lda #$00
sta $D8E8
jsr LB53A
lda #$00
ldx #$B4
jsr LB723
ldy #$04
lda #$09
ldx #$B4
jsr LB590
rts
LB068: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
ldy #$0E
lda #$31
ldx #$B2
jsr LD000
lda #$01
ldx #$D9
jsr LB708
ldy #$0E
lda #$39
ldx #$B2
jsr LD000
lda #$FB
ldx #$D8
jsr LB708
rts
LB0A2: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
jsr LBE8D
jsr LB3BF
ldy #$03
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
jsr LBE63
ldy #$0E
lda #$7E
ldx #$AE
jsr LD000
lda #$02
ldx #$D4
jsr LB708
ldy #$0E
lda #$41
ldx #$B2
jsr LD000
lda #$01
ldx #$D9
jsr LB708
rts
LB0F1: lda $D57D
jsr LB7B9
jsr LB6AF
LB0FA: jsr LA567
bmi LB0FA
bne LB139
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$6E
ldx #$AE
jsr LD000
ldy #$11
lda #$20
ldx #$AE
jsr LD000
ldy #$11
lda #$10
ldx #$AE
jsr LD000
ldy #$02
lda #$0E
ldx #$B1
jsr LB590
ldy #$04
lda #$1B
ldx #$B4
jsr LB590
lda #$00
LB139: rts
LB13A: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$01
bne LB158
jmp LB186
LB158: cmp #$02
bne LB15F
jmp LB20F
LB15F: cmp #$03
bne LB166
jmp LB1C0
LB166: cmp #$04
bne LB16D
jmp LB258
LB16D: lda #$00
sta $D8E8
jsr LB53A
lda #$C0
ldx #$B3
jsr LB723
ldy #$04
lda #$CB
ldx #$B3
jsr LB590
rts
LB186: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
ldy #$0E
lda #$2D
ldx #$B2
jsr LD000
lda #$01
ldx #$D9
jsr LB708
ldy #$0E
lda #$35
ldx #$B2
jsr LD000
lda #$FB
ldx #$D8
jsr LB708
rts
LB1C0: ldy #$01
lda (L0006),y
sta $D909
iny
lda (L0006),y
sta $D90A
jsr LBDC4
jsr LBDDF
lda $D57D
jsr LB7B9
jsr LBE8D
jsr LB3BF
ldy #$03
lda (L0006),y
tax
iny
lda (L0006),y
sta $07
stx L0006
jsr LBE63
ldy #$0E
lda #$7E
ldx #$AE
jsr LD000
lda #$02
ldx #$D4
jsr LB708
ldy #$0E
lda #$3D
ldx #$B2
jsr LD000
lda #$01
ldx #$D9
jsr LB708
rts
LB20F: lda $D57D
jsr LB7B9
jsr LB6AF
LB218: jsr LA567
bmi LB218
bne LB257
ldy #$07
lda #$00
ldx #$D2
jsr LD000
ldy #$11
lda #$6E
ldx #$AE
jsr LD000
ldy #$11
lda #$20
ldx #$AE
jsr LD000
ldy #$11
lda #$10
ldx #$AE
jsr LD000
ldy #$02
lda #$0E
ldx #$B1
jsr LB590
ldy #$04
lda #$DF
ldx #$B3
jsr LB590
lda #$00
LB257: rts
LB258: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
rts
jsr LB3BF
ldy #$00
lda (L0006),y
cmp #$80
bne LB276
jmp LB2ED
LB276: cmp #$40
bne LB27D
jmp LB313
LB27D: jsr LBD75
jsr LB3BF
lda #$80
sta $D8E8
jsr LBD69
lda #$00
jsr LB509
lda $D57D
jsr LB7B9
lda #$A0
ldx #$B1
jsr LB723
jsr LB43B
ldy #$12
lda #$AB
ldx #$D6
jsr LD000
ldy #$02
lda #$B3
ldx #$B1
jsr LB590
lda #$55
sta $D6C3
jsr LB3BF
ldy #$01
lda (L0006),y
sta $08
iny
lda (L0006),y
sta $09
ldy #$00
lda ($08),y
tay
LB2CA: lda ($08),y
sta $D8D7,y
dey
bpl LB2CA
ldy #$02
lda #$D7
ldx #$D8
jsr LB590
ldy #$04
lda #$BC
ldx #$B1
jsr LB590
lda #$00
sta $D443
jsr LB961
rts
LB2ED: lda #$00
sta $D8E7
lda #$80
sta $D8E8
lda $D57D
jsr LB7B9
LB2FD: jsr LA567
bmi LB2FD
bne LB313
lda $D443
beq LB2FD
jsr LBCC9
ldy #$43
ldx #$D4
lda #$00
rts
LB313: jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
lda #$01
rts
ldy #$26
lda #$00
ldx #$00
jsr LD000
jsr LB55F
lda $D57D
jsr LB7B9
lda #$B3
ldx #$B4
jsr LB723
ldy #$25
lda #$00
ldx #$00
jsr LD000
jsr LB3BF
ldy #$00
lda (L0006),y
pha
bmi LB357
tax
lda LB39C,x
bne LB361
LB357: pla
and #$7F
pha
jsr LB6E6
jmp LB364
LB361: jsr LB6AF
LB364: pla
pha
asl a
asl a
tay
lda LB3A4,y
tax
lda LB3A3,y
ldy #$03
jsr LB590
pla
asl a
asl a
tay
lda LB3A6,y
tax
lda LB3A5,y
ldy #$04
jsr LB590
LB385: jsr LA567
bmi LB385
pha
jsr LBEB1
ldy #$39
lda #$7D
ldx #$D5
jsr LD000
jsr LB403
pla
rts
LB39C: bra LB39E
LB39E: brk
bra LB3A1
LB3A1: brk
.byte $80
LB3A3: .byte $BD
LB3A4: .byte $B4
LB3A5: .byte $B1
LB3A6: ldy $DC,x
ldy $10,x
lda $DC,x
ldy $10,x
lda $30,x
lda $B1,x
ldy $30,x
lda $B1,x
ldy $69,x
lda $B1,x
ldy $9A,x
lda $C4,x
.byte $B5
LB3BF: lda LA51D
sta L0006
lda LA51E
sta $07
rts
LB3CA: bit LB3E6
bpl LB3D7
jsr LB403
lda #$00
sta LB3E6
LB3D7: rts
LB3D8: bit LB3E6
bmi LB3E5
jsr LB41F
lda #$80
sta LB3E6
LB3E5: rts
LB3E6: brk
ldy #$26
lda #$00
ldx #$00
jsr LD000
ldy #$24
lda #$11
ldx #$D3
jsr LD000
ldy #$25
lda #$00
ldx #$00
jsr LD000
rts
LB403: ldy #$26
lda #$00
ldx #$00
jsr LD000
ldy #$24
lda #$AD
ldx #$D2
jsr LD000
ldy #$25
lda #$00
ldx #$00
jsr LD000
rts
LB41F: ldy #$26
lda #$00
ldx #$00
jsr LD000
ldy #$24
lda #$DF
ldx #$D2
jsr LD000
ldy #$25
lda #$00
ldx #$00
jsr LD000
rts
LB43B: ldy #$07
lda #$02
ldx #$D2
jsr LD000
rts
ldx #$03
LB447: lda $D209,x
sta LB502,x
dex
bpl LB447
lda #$00
sta LB501
lda $D2AB
asl a
sta LB500
rol LB501
LB45F: dec LB500
lda LB500
cmp #$FF
bne LB46C
dec LB501
LB46C: lda LB501
bne LB476
lda LB500
beq LB4B7
LB476: ldy #$2C
lda #$08
ldx #$D2
jsr LD000
jsr LB4BA
bmi LB4B7
lda #$FF
sta LB508
lda $D208
sta LB507
cmp #$00
beq LB45F
cmp #$04
beq LB45F
cmp #$02
bne LB4A7
ldy #$2A
lda #$08
ldx #$D2
jsr LD000
jmp LB45F
LB4A7: cmp #$01
bne LB4B7
ldy #$2A
lda #$08
ldx #$D2
jsr LD000
lda #$00
rts
LB4B7: lda #$FF
rts
LB4BA: lda $D209
sec
sbc LB502
sta LB506
lda $D20A
sbc LB503
bpl LB4D6
lda LB506
cmp #$FB
bcs LB4DD
LB4D3: lda #$FF
rts
LB4D6: lda LB506
cmp #$05
bcs LB4D3
LB4DD: lda $D20B
sec
sbc LB504
sta LB506
lda $D20C
sbc LB505
bpl LB4F6
lda LB506
cmp #$FC
bcs LB4FD
LB4F6: lda LB506
cmp #$04
bcs LB4D3
LB4FD: lda #$00
rts
LB500: brk
LB501: brk
LB502: brk
LB503: brk
LB504: brk
LB505: brk
LB506: brk
LB507: brk
LB508: brk
LB509: sta $D8E7
jsr LB53A
bit $D8E7
bvc LB51A
jsr LB64E
jmp LB526
LB51A: ldy #$12
lda #$20
ldx #$AE
jsr LD000
jsr LB5F9
LB526: bit $D8E7
bmi LB537
ldy #$12
lda #$10
ldx #$AE
jsr LD000
jsr LB60A
LB537: jmp LBEB1
LB53A: ldy #$38
lda #$7D
ldx #$D5
jsr LD000
lda $D57D
jsr LB7B9
jsr LB43B
ldy #$12
lda #$00
ldx #$AE
jsr LD000
ldy #$12
lda #$08
ldx #$AE
jsr LD000
rts
LB55F: ldy #$38
lda #$7D
ldx #$D5
jsr LD000
lda $D57D
jsr LB7B9
jsr LBEA7
ldy #$14
lda #$6D
ldx #$D5
jsr LD000
jsr LB43B
ldy #$12
lda #$00
ldx #$AE
jsr LD000
ldy #$12
lda #$08
ldx #$AE
jsr LD000
rts
LB590: stx $07
sta L0006
tya
bmi LB59A
jmp LB5CC
LB59A: tya
pha
lda L0006
clc
adc #$01
sta $08
lda $07
adc #$00
sta $09
jsr LBD7B
sta $0A
ldy #$18
lda #$08
ldx #$00
jsr LD000
lsr $0C
ror $0B
lda #$C8
sec
sbc $0B
sta $D6C3
lda #$00
sbc $0C
sta $D6C4
pla
tay
LB5CC: dey
tya
asl a
asl a
asl a
clc
adc $D6C1
sta $D6C5
lda $D6C2
adc #$00
sta $D6C6
ldy #$0E
lda #$C3
ldx #$D6
jsr LD000
lda L0006
ldx $07
jsr LB708
ldx $D6C3
lda #$28
sta $D6C3
rts
LB5F9: ldy #$0E
lda #$50
ldx #$AE
jsr LD000
lda #$40
ldx #$AE
jsr LB708
rts
LB60A: ldy #$0E
lda #$54
ldx #$AE
jsr LD000
lda #$96
ldx #$AE
jsr LB708
rts
LB61B: ldy #$0E
lda #$58
ldx #$AE
jsr LD000
lda #$A8
ldx #$AE
jsr LB708
rts
LB62C: ldy #$0E
lda #$5C
ldx #$AE
jsr LD000
lda #$AD
ldx #$AE
jsr LB708
rts
LB63D: ldy #$0E
lda #$60
ldx #$AE
jsr LD000
lda #$B1
ldx #$AE
jsr LB708
rts
LB64E: jsr LB43B
ldy #$12
lda #$28
ldx #$AE
jsr LD000
ldy #$12
lda #$30
ldx #$AE
jsr LD000
ldy #$12
lda #$38
ldx #$AE
jsr LD000
ldy #$12
lda #$10
ldx #$AE
jsr LD000
jsr LB61B
jsr LB62C
jsr LB63D
jsr LB60A
lda #$40
sta $D8E7
rts
LB687: jsr LBEA7
ldy #$11
lda #$28
ldx #$AE
jsr LD000
ldy #$11
lda #$30
ldx #$AE
jsr LD000
ldy #$11
lda #$38
ldx #$AE
jsr LD000
ldy #$11
lda #$10
ldx #$AE
jsr LD000
rts
LB6AF: jsr LB43B
ldy #$12
lda #$20
ldx #$AE
jsr LD000
ldy #$12
lda #$10
ldx #$AE
jsr LD000
jsr LB5F9
jsr LB60A
lda #$00
sta $D8E7
rts
LB6D0: jsr LBEA7
ldy #$11
lda #$20
ldx #$AE
jsr LD000
ldy #$11
lda #$10
ldx #$AE
jsr LD000
rts
LB6E6: jsr LB43B
ldy #$12
lda #$20
ldx #$AE
jsr LD000
jsr LB5F9
lda #$80
sta $D8E7
rts
LB6FB: jsr LBEA7
ldy #$11
lda #$20
ldx #$AE
jsr LD000
rts
LB708: sta L0006
stx $07
jsr LBD7B
beq LB722
sta $08
inc L0006
bne LB719
inc $07
LB719: ldy #$19
lda #$06
ldx #$00
jsr LD000
LB722: rts
LB723: sta L0006
stx $07
jsr LBD7B
sta $08
inc L0006
bne LB732
inc $07
LB732: ldy #$18
lda #$06
ldx #$00
jsr LD000
lsr $0A
ror $09
lda #$01
sta LB76B
lda #$90
lsr LB76B
ror a
sec
sbc $09
sta $D6B7
lda LB76B
sbc $0A
sta $D6B8
ldy #$0E
lda #$B7
ldx #$D6
jsr LD000
ldy #$19
lda #$06
ldx #$00
jsr LD000
rts
LB76B: brk
sta L0006
stx $07
ldy #$0E
lda #$BB
ldx #$D6
jsr LD000
lda L0006
ldx $07
jsr LB708
rts
LB781: stx $0B
sta $0A
ldy #$00
lda ($0A),y
tay
bne LB78D
rts
LB78D: dey
beq LB792
bpl LB793
LB792: rts
LB793: lda ($0A),y
and #$7F
cmp #$2F
beq LB79F
cmp #$2E
bne LB7A3
LB79F: dey
jmp LB78D
LB7A3: iny
lda ($0A),y
and #$7F
cmp #$41
bcc LB7B5
cmp #$5B
bcs LB7B5
clc
adc #$20
sta ($0A),y
LB7B5: dey
jmp LB78D
LB7B9: sta $D212
ldy #$3C
lda #$12
ldx #$D2
jsr LD000
ldy #$04
lda #$15
.byte $A2
LB7CA: cmp (L0020)
brk
bne $B82F
LB7CF: lda #$00
jmp LB7E8
LB7D4: lda #$01
jmp LB7E8
LB7D9: lda #$02
jmp LB7E8
LB7DE: lda #$03
jmp LB7E8
LB7E3: lda #$04
jmp LB7E8
LB7E8: pha
asl a
asl a
tax
lda LB808,x
sta LB886
lda LB809,x
sta LB887
lda LB80A,x
sta LB888
lda LB80B,x
sta LB889
pla
jmp LB88A
LB808: .byte $1C
LB809: clv
LB80A: .byte $4E
LB80B: clv
rol $B8
cli
clv
bmi LB7CA
.byte $62
clv
dec a
clv
jmp (L44B8)
clv
ror $B8,x
ldy #$13
lda #$20
ldx #$AE
jsr LD000
rts
ldy #$13
lda #$10
ldx #$AE
jsr LD000
rts
ldy #$13
lda #$28
ldx #$AE
jsr LD000
rts
ldy #$13
lda #$30
ldx #$AE
jsr LD000
rts
ldy #$13
lda #$38
ldx #$AE
jsr LD000
rts
ldy #$11
lda #$20
ldx #$AE
jsr LD000
rts
ldy #$11
lda #$10
ldx #$AE
jsr LD000
rts
ldy #$11
lda #$28
ldx #$AE
jsr LD000
rts
ldy #$11
lda #$30
ldx #$AE
jsr LD000
rts
ldy #$11
lda #$38
ldx #$AE
jsr LD000
rts
LB880: jmp (LB886)
LB883: jmp (LB888)
LB886: brk
LB887: brk
LB888: brk
LB889: brk
LB88A: sta LB8F3
lda #$00
sta LB8F2
LB892: ldy #$2A
lda #$08
ldx #$D2
jsr LD000
lda $D208
cmp #$02
beq LB8E3
lda $D57D
sta $D208
ldy #$46
lda #$08
ldx #$D2
jsr LD000
ldy #$0E
lda #$0D
ldx #$D2
jsr LD000
jsr LB880
cmp #$80
beq LB8C9
lda LB8F2
beq LB8D1
jmp LB892
LB8C9: lda LB8F2
bne LB8D1
jmp LB892
LB8D1: jsr LB43B
jsr LB883
lda LB8F2
clc
adc #$80
sta LB8F2
jmp LB892
LB8E3: lda LB8F2
beq LB8EB
lda #$FF
rts
LB8EB: jsr LB883
lda LB8F3
rts
LB8F2: brk
LB8F3: brk
rts
LB8F5: jsr LBD3B
sta L0006
stx $07
lda $D6B5
sta $08
lda $D6B6
sta $09
ldy #$0E
lda #$06
ldx #$00
jsr LD000
ldy #$06
lda #$C7
ldx #$D6
jsr LD000
bit $D8EB
bpl LB92D
ldy #$0C
lda #$6C
ldx #$AE
jsr LD000
lda #$00
sta $D8EB
beq LB93B
LB92D: ldy #$0C
lda #$6D
ldx #$AE
jsr LD000
lda #$FF
sta $D8EB
LB93B: lda #$EF
sta L0006
lda #$D8
sta $07
lda $D8EE
sta $08
ldy #$19
lda #$06
ldx #$00
jsr LD000
ldy #$0C
lda #$6D
ldx #$AE
jsr LD000
lda $D57D
jsr LB7B9
rts
LB961: lda $D443
beq LB9B7
lda $D57D
jsr LB7B9
jsr LBEA7
ldy #$11
lda #$AB
ldx #$D6
jsr LD000
ldy #$07
lda #$02
ldx #$D2
jsr LD000
ldy #$12
lda #$AB
ldx #$D6
jsr LD000
ldy #$0E
lda #$B3
ldx #$D6
jsr LD000
ldy #$06
lda #$C7
ldx #$D6
jsr LD000
lda #$43
ldx #$D4
jsr LB708
lda #$84
ldx #$D4
jsr LB708
lda #$F8
ldx #$D8
jsr LB708
lda $D57D
jsr LB7B9
LB9B7: rts
LB9B8: ldy #$46
lda #$08
ldx #$D2
jsr LD000
ldy #$0E
lda #$0D
ldx #$D2
jsr LD000
ldy #$13
lda #$AB
ldx #$D6
jsr LD000
cmp #$80
beq LB9D8
rts
LB9D8: jsr LBD3B
sta L0006
stx $07
lda $D20D
cmp L0006
lda $D20E
sbc $07
bcs LB9EE
jmp LBA83
LB9EE: jsr LBD3B
sta LBB09
stx LBB0A
ldx $D484
inx
lda #$20
sta $D484,x
inc $D484
lda #$84
sta L0006
lda #$D4
sta $07
lda $D484
sta $08
LBA10: ldy #$18
lda #$06
ldx #$00
jsr LD000
lda $09
clc
adc LBB09
sta $09
lda $0A
adc LBB0A
sta $0A
lda $09
cmp $D20D
lda $0A
sbc $D20E
bcc LBA42
dec $08
lda $08
cmp #$01
bne LBA10
dec $D484
jmp LBB05
LBA42: lda $08
cmp $D484
bcc LBA4F
dec $D484
jmp LBCC9
LBA4F: ldx #$02
ldy $D443
iny
LBA55: lda $D484,x
sta $D443,y
cpx $08
beq LBA64
iny
inx
jmp LBA55
LBA64: sty $D443
ldy #$02
ldx $08
inx
LBA6C: lda $D484,x
sta $D484,y
cpx $D484
beq LBA7C
iny
inx
jmp LBA6C
LBA7C: dey
sty $D484
jmp LBB05
LBA83: lda #$43
sta L0006
lda #$D4
sta $07
lda $D443
sta $08
LBA90: ldy #$18
lda #$06
ldx #$00
jsr LD000
lda $09
clc
adc $D6B3
sta $09
lda $0A
adc $D6B4
sta $0A
.byte $A5
LBAA9: ora #$CD
ora LA5D2
asl a
sbc $D20E
bcc LBABF
dec $08
lda $08
cmp #$01
bcs LBA90
jmp LBC5E
LBABF: inc $08
ldy #$00
ldx $08
LBAC5: cpx $D443
beq LBAD5
inx
iny
lda $D443,x
sta $D3C2,y
jmp LBAC5
LBAD5: iny
sty $D3C1
ldx #$01
ldy $D3C1
LBADE: cpx $D484
beq LBAEE
inx
iny
lda $D484,x
sta $D3C1,y
jmp LBADE
LBAEE: sty $D3C1
lda $D8EF
sta $D3C2
LBAF7: lda $D3C1,y
sta $D484,y
dey
bpl LBAF7
lda $08
sta $D443
LBB05: jsr LB961
rts
LBB09: brk
LBB0A: brk
LBB0B: sta LBB62
lda $D443
clc
adc $D484
cmp #$10
bcc LBB1A
rts
LBB1A: lda LBB62
ldx $D443
inx
sta $D443,x
sta $D8F7
jsr LBD3B
inc $D443
sta L0006
stx $07
lda $D6B5
sta $08
lda $D6B6
sta $09
ldy #$0E
lda #$06
ldx #$00
jsr LD000
ldy #$06
lda #$C7
ldx #$D6
jsr LD000
lda #$F6
ldx #$D8
jsr LB708
lda #$84
ldx #$D4
jsr LB708
lda $D57D
jsr LB7B9
rts
LBB62: brk
LBB63: lda $D443
bne LBB69
rts
LBB69: dec $D443
jsr LBD3B
sta L0006
stx $07
lda $D6B5
sta $08
lda $D6B6
sta $09
ldy #$0E
lda #$06
ldx #$00
jsr LD000
ldy #$06
lda #$C7
ldx #$D6
jsr LD000
lda #$84
ldx #$D4
jsr LB708
lda #$F8
ldx #$D8
jsr LB708
lda $D57D
jsr LB7B9
rts
LBBA4: lda $D443
bne LBBAA
rts
LBBAA: ldx $D484
cpx #$01
beq LBBBC
LBBB1: lda $D484,x
sta $D485,x
dex
cpx #$01
bne LBBB1
LBBBC: ldx $D443
lda $D443,x
sta $D486
dec $D443
inc $D484
jsr LBD3B
sta L0006
stx $07
lda $D6B5
sta $08
lda $D6B6
sta $09
ldy #$0E
lda #$06
ldx #$00
jsr LD000
ldy #$06
lda #$C7
ldx #$D6
jsr LD000
lda #$84
ldx #$D4
jsr LB708
lda #$F8
ldx #$D8
jsr LB708
lda $D57D
jsr LB7B9
rts
LBC03: lda $D484
cmp #$02
bcs LBC0B
rts
LBC0B: ldx $D443
inx
lda $D486
sta $D443,x
inc $D443
ldx $D484
cpx #$03
bcc LBC2D
ldx #$02
LBC21: lda $D485,x
sta $D484,x
inx
cpx $D484
bne LBC21
LBC2D: dec $D484
ldy #$0E
lda #$B3
ldx #$D6
jsr LD000
ldy #$06
lda #$C7
ldx #$D6
jsr LD000
lda #$43
ldx #$D4
jsr LB708
lda #$84
ldx #$D4
jsr LB708
lda #$F8
ldx #$D8
jsr LB708
lda $D57D
jsr LB7B9
rts
LBC5E: lda $D443
bne LBC64
rts
LBC64: ldx $D484
cpx #$01
beq LBC79
LBC6B: lda $D484,x
sta $D3C0,x
dex
cpx #$01
bne LBC6B
ldx $D484
LBC79: dex
stx $D3C1
ldx $D443
LBC80: lda $D443,x
sta $D485,x
dex
bne LBC80
lda $D8EF
sta $D485
inc $D443
lda $D443
sta $D484
lda $D443
clc
adc $D3C1
tay
pha
ldx $D3C1
beq LBCB3
LBCA6: lda $D3C1,x
sta $D484,y
dex
dey
cpy $D484
bne LBCA6
LBCB3: pla
sta $D484
lda #$00
sta $D443
ldy #$0E
lda #$B3
ldx #$D6
jsr LD000
jsr LB961
rts
LBCC9: lda $D484
cmp #$02
bcs LBCD1
rts
LBCD1: ldx $D484
dex
txa
clc
adc $D443
pha
tay
ldx $D484
LBCDF: lda $D484,x
sta $D443,y
dex
dey
cpy $D443
bne LBCDF
pla
sta $D443
lda #$01
sta $D484
ldy #$0E
lda #$B3
ldx #$D6
jsr LD000
jsr LB961
rts
sta L0006
stx $07
ldy #$00
lda (L0006),y
tay
clc
adc $D443
pha
tax
LBD11: lda (L0006),y
sta $D443,x
dey
dex
cpx $D443
bne LBD11
pla
sta $D443
rts
LBD22: ldx $D443
cpx #$00
beq LBD33
dec $D443
lda $D443,x
cmp #$2F
bne LBD22
LBD33: rts
jsr LBD22
jsr LB961
rts
LBD3B: lda #$44
sta L0006
lda #$D4
sta $07
lda $D443
sta $08
bne LBD51
lda $D6B3
ldx $D6B4
rts
LBD51: ldy #$18
lda #$06
ldx #$00
jsr LD000
lda $09
clc
adc $D6B3
tay
lda $0A
adc $D6B4
tax
tya
rts
LBD69: lda #$01
sta $D484
lda $D8EF
sta $D485
rts
LBD75: lda #$00
sta $D443
rts
LBD7B: ldx #$11
LBD7D: lda L0020,x
sta LBDB0,x
dex
bpl LBD7D
ldx #$11
LBD87: lda LBD9F,x
sta L0020,x
dex
bpl LBD87
jsr L0020
pha
ldx #$11
LBD95: lda LBDB0,x
sta L0020,x
dex
bpl LBD95
pla
rts
LBD9F: sta RAMRDON
sta RAMWRTON
ldy #$00
lda (L0006),y
sta RAMRDOFF
sta RAMWRTOFF
rts
LBDB0: brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
LBDC4: ldx $D8FB
lda $D90A
bne LBDD9
lda $D909
cmp #$02
bcs LBDD9
lda #$20
sta $D8FB,x
rts
LBDD9: lda #$73
sta $D8FB,x
rts
LBDDF: lda $D909
sta LBE5F
lda $D90A
sta LBE60
ldx #$07
lda #$20
LBDEF: sta $D901,x
dex
bne LBDEF
lda #$00
sta LBE62
ldy #$00
ldx #$00
LBDFE: lda #$00
sta LBE61
LBE03: lda LBE5F
cmp LBE57,x
lda LBE60
sbc LBE58,x
bpl LBE35
lda LBE61
bne LBE1F
bit LBE62
bmi LBE1F
lda #$20
bne LBE28
LBE1F: ora #$30
pha
lda #$80
sta LBE62
pla
LBE28: sta $D903,y
iny
inx
inx
cpx #$08
beq LBE4E
jmp LBDFE
LBE35: inc LBE61
lda LBE5F
sec
sbc LBE57,x
sta LBE5F
lda LBE60
sbc LBE58,x
sta LBE60
jmp LBE03
LBE4E: lda LBE5F
ora #$30
sta $D903,y
rts
LBE57: .byte $10
LBE58: rmb2 $E8
.byte $03
stz L0000
asl a
brk
LBE5F: brk
LBE60: brk
LBE61: brk
LBE62: brk
LBE63: ldy #$00
lda (L0006),y
tay
LBE68: lda (L0006),y
sta $D402,y
dey
bpl LBE68
lda #$02
ldx #$D4
jsr LB781
rts
LBE78: ldy #$00
lda (L0006),y
tay
LBE7D: lda (L0006),y
sta $D443,y
dey
bpl LBE7D
lda #$43
ldx #$D4
jsr LB781
rts
LBE8D: jsr LBEA7
ldy #$11
lda #$86
ldx #$AE
jsr LD000
rts
LBE9A: jsr LBEA7
ldy #$11
lda #$8E
ldx #$AE
jsr LD000
rts
LBEA7: ldy #$07
lda #$00
ldx #$D2
jsr LD000
rts
LBEB1: ldy #$03
lda #$39
ldx #$D2
jsr LD000
ldy #$04
lda #$39
ldx #$D2
jsr LD000
rts
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk
brk