antoine-source/hypercardiigs/HyperTalk3.S

6185 lines
111 KiB
ArmAsm
Raw Normal View History

*
* HypercardGS
* segment: $0E HyperTalk3
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk HyperTalk3.l
lst off
*---------------------------------------
use HyperTalk3.E
use HyperTalk3.X
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Dialog.Macs
use 4/Event.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/List.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/MidiSyn.Macs
use 4/Misc.Macs
use 4/Qd.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L0E0000 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0553C5
LDX L0553C7
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L0E0027
DEX
L0E0027 DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA #$000A
LDX #$0000
JSL L033477
BEQ L0E0067
BVS L0E0056
EOR #$8000
L0E0056 BPL L0E0067
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L07185A
L0E0067 LDA L0553C3
DEC
STA L0553C3
PLY
PLY
PLY
PLY
PLD
RTL
L0E0074 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA L0553BD
LDX L0553BF
CLC
ADC #$0004
BCC L0E0089
INX
L0E0089 STA $03
STX $05
LDA [$03]
BNE L0E00A7
PHY
LDA L0553BD
LDX L0553BF
PHX
PHA
PEA ^L04075D
PEA L04075D
JSL L0B2819
PLA
STA $01
L0E00A7 LDA L0553BD
LDX L0553BF
PHX
PHA
LDA L0553BD
LDX L0553BF
CLC
ADC #$0004
BCC L0E00BC
INX
L0E00BC STA $03
STX $05
LDA [$03]
PHA
JSL L0B3CD4
PLY
PLY
PLY
PLD
RTL
L0E00CC ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L03198D
PLA
LSR
BCS L0E00E1
JSL L031619
L0E00E1 PHY
PHY
JSL L0B3773
PLA
PLX
SEC
SBC #$0011
BMI L0E013C
CMP #$0002
BPL L0E013C
SEC
SBC #$0000
BEQ L0E0124
DEC
BEQ L0E00FF
BRA L0E013C
L0E00FF LDA #$0001
STA [$0A]
LDA #$0002
CLC
ADC $0A
LDX $0C
BCC L0E010F
INX
L0E010F STA $01
STX $03
PHY
PHY
JSL L0E05AF
PLA
STA [$01]
PLA
LDY #$0002
STA [$01],Y
BRA L0E0143
L0E0124 LDA #$0000
STA [$0A]
LDA #$0002
CLC
ADC $0A
LDX $0C
BCC L0E0134
INX
L0E0134 PHX
PHA
JSL L0E04A7
BRA L0E0143
L0E013C PEA $7B41
JSL L07272E
L0E0143 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E0154 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L055371
DEC
STA L055371
LDA L055371
SEC
SBC #$0000
BMI L0E017D
BEQ L0E017D
LDA L055371
DEC
ASL
TAX
LDAL L050AEA,X
STA L05536F
BRA L0E0180
L0E017D STZ L05536F
L0E0180 PLY
PLY
PLD
RTL
L0E0184 ENT
PHD
TSC
CLC
ADC #$FFB6
TCS
TCD
LDA [$52]
EOR #$0001
CMP #$0000
BNE L0E01A6
LDX #$0000
LDA $50
DEC
DEC
BEQ L0E01A0
INX
L0E01A0 TXA
BNE L0E01A6
BRL L0E03DF
L0E01A6 JSL L031B09
PEI $54
PEI $52
PEA $0000
JSL L0E087F
PEI $54
PEI $52
TDC
CLC
ADC #$0043
PEA $0000
PHA
TDC
CLC
ADC #$003B
PEA $0000
PHA
TDC
CLC
ADC #$003F
PEA $0000
PHA
TDC
CLC
ADC #$0037
PEA $0000
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
TDC
CLC
ADC #$001B
PEA $0000
PHA
JSL L0D0A88
PHY
PHY
PEA $0000
JSL L03154C
PLA
STA $33
PLX
STX $35
PHY
PHY
JSL L0B3727
PHY
PHY
JSL L0B37CF
PLA
PLX
JSL L150F53
PEI $25
PEI $23
JSL L150F53
PEI $1D
PEI $1B
JSL L150F53
CLC
ADC #$000A
BCC L0E022B
INX
L0E022B STA $13
STX $15
PHY
JSL L0B1C0F
PLA
STA $0D
PHY
PHY
PEI $15
PEI $13
LDA L055019
PHA
JSL L0B249C
PLA
STA $2B
PLX
STX $2D
LDA $2B
ORA $2D
BNE L0E0269
PEA $002D
JSL L0B0B7A
PEI $0D
JSL L0B39C0
JSL L0E0000
JSL L0E0000
BRL L0E0495
L0E0269 LDY #$0002
LDA [$2B],Y
TAX
LDA [$2B]
STA $2F
STX $31
PEI $3D
PEI $3B
LDA $43
LDX $45
JSL L1512A5
STA $17
STX $19
PEI $45
PEI $43
PEI $31
PEI $2F
PEI $19
PEI $17
JSL L070597
LDA $2F
LDX $31
PEI $19
PEI $17
JSL L150F53
STA $2F
STX $31
LDA $23
LDX $25
STA $09
STX $0B
PEI $0B
PEI $09
LDA #$0001
LDX #$0000
JSL L033477
BVS L0E02C0
EOR #$8000
L0E02C0 BPL L0E02F4
LDA #$0001
LDX #$0000
STA $27
STX $29
L0E02CC SEP #$20
LDA #$0D
STA [$2F]
REP #$20
LDA $2F
LDX $31
INC
BNE L0E02DC
INX
L0E02DC STA $2F
STX $31
LDA $27
LDX $29
CMP $09
BNE L0E02EA
CPX $0B
L0E02EA BEQ L0E02F4
INC $27
BNE L0E02F2
INC $29
L0E02F2 BRA L0E02CC
L0E02F4 LDA $1B
LDX $1D
STA $05
STX $07
PEI $07
PEI $05
LDA #$0001
LDX #$0000
JSL L033477
BVS L0E030F
EOR #$8000
L0E030F BPL L0E0344
LDA #$0001
LDX #$0000
STA $1F
STX $21
L0E031B LDA L055277
SEP #$20
STA [$2F]
REP #$20
LDA $2F
LDX $31
INC
BNE L0E032C
INX
L0E032C STA $2F
STX $31
LDA $1F
LDX $21
CMP $05
BNE L0E033A
CPX $07
L0E033A BEQ L0E0344
INC $1F
BNE L0E0342
INC $21
L0E0342 BRA L0E031B
L0E0344 PEI $41
PEI $3F
LDA $3B
LDX $3D
JSL L1512A5
STA $17
STX $19
LDA $50
DEC
BNE L0E0379
PEI $3D
PEI $3B
PEI $31
PEI $2F
PEI $19
PEI $17
JSL L070597
LDA $2F
LDX $31
PEI $19
PEI $17
JSL L150F53
STA $2F
STX $31
L0E0379 TDC
CLC
ADC #$0033
PEA $0000
PHA
TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L070669
LDA $50
BNE L0E03B3
PEI $3D
PEI $3B
PEI $31
PEI $2F
PEI $19
PEI $17
JSL L070597
LDA $2F
LDX $31
PEI $19
PEI $17
JSL L150F53
STA $2F
STX $31
L0E03B3 TDC
CLC
ADC #$003F
PEA $0000
PHA
TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L070669
PEI $0D
JSL L0B39C0
JSL L0E0000
JSL L0E0000
PEI $2D
PEI $2B
JSL L0E0CFE
L0E03DF LDA L0553A5
BEQ L0E03EB
JSL L0E0000
BRL L0E0495
L0E03EB LDA $52
LDX $54
STA $01
STX $03
LDY #$0022
LDA [$01],Y
SEC
SBC #$0000
BPL L0E0401
BRL L0E0495
L0E0401 CMP #$0004
BMI L0E0409
BRL L0E0495
L0E0409 SEC
SBC #$0000
BEQ L0E042E
DEC
BEQ L0E041A
DEC
BEQ L0E0465
DEC
BEQ L0E046B
BRA L0E0495
L0E041A LDA L0553BD
LDX L0553BF
PHX
PHA
LDY #$0024
LDA [$01],Y
PHA
JSL L0B3CD4
BRA L0E0495
L0E042E PHY
PHY
JSL L0E04DE
PLA
STA $0F
PLX
STX $11
PHY
LDA #$0024
CLC
ADC $01
LDX $03
BCC L0E0446
INX
L0E0446 PHX
PHA
PEI $11
PEI $0F
JSL L0B2E1F
PLA
LSR
BCS L0E045B
PEA $0029
JSL L0B0B7A
L0E045B PEI $11
PEI $0F
JSL L07185A
BRA L0E0495
L0E0465 JSL L0B2F70
BRA L0E0495
L0E046B PHY
PHY
JSL L0E04DE
PLA
STA $0F
PLX
STX $11
PHY
PEI $11
PEI $0F
JSL L0B2CDB
PLA
LSR
BCS L0E048B
PEA $0050
JSL L0B0B7A
L0E048B PEI $11
PEI $0F
JSL L07185A
BRA L0E0495
L0E0495 LDA $4E
STA $54
LDA $4D
STA $53
LDA $4B
TCD
TSC
CLC
ADC #$0052
TCS
RTL
L0E04A7 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0319D4
PLA
LSR
BCS L0E04BC
JSL L031619
L0E04BC PEI $0C
PEI $0A
PEA $0000
PEA $000A
PEA $0011
JSL L0E0656
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E04DE ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA L0553C3
SEC
SBC #$0000
BEQ L0E04F1
BPL L0E04F8
L0E04F1 STZ $12
STZ $14
BRL L0E05A7
L0E04F8 JSL L031B09
PHY
PHY
JSL L0B3727
PLA
STA $01
PLX
STX $03
PEI $03
PEI $01
LDA #$000A
LDX #$0000
JSL L033477
BEQ L0E051F
BVS L0E051D
EOR #$8000
L0E051D BMI L0E0549
L0E051F PHY
PHY
PEI $03
PEI $01
LDA L055019
PHA
JSL L0B249C
PLA
STA $05
PLX
STX $07
LDY #$0002
LDA [$05],Y
PHA
LDA [$05]
PHA
PEI $03
PEI $01
PEA $0000
JSL L0E0656
BRA L0E059F
L0E0549 LDA L0553C5
LDX L0553C7
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L0E0568
DEX
L0E0568 DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
CLC
ADC #$0006
BCC L0E0580
INX
L0E0580 STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
STA $05
STX $07
PEI $07
PEI $05
JSL L07191C
LDA L0553C3
DEC
STA L0553C3
L0E059F LDA $05
LDX $07
STA $12
STX $14
L0E05A7 TSC
CLC
ADC #$000C
TCS
PLD
RTL
L0E05AF ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
JSL L0B0072
PLA
LSR
BCS L0E05C4
JSL L031619
L0E05C4 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0012
JSL L0E0656
LDA $01
LDX $03
STA $0E
STX $10
PLY
PLY
PLY
PLY
PLD
RTL
L0E05E8 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
JSL L0B0072
PLA
LSR
BCS L0E05FD
JSL L031619
L0E05FD TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0012
JSL L0E0656
LDA $01
STA $0E
PLY
PLY
PLY
PLY
PLD
RTL
L0E061D ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
JSL L0B0072
PLA
LSR
BCS L0E0632
JSL L031619
L0E0632 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0012
JSL L0E0656
LDA $01
LDX $03
STA $0E
STX $10
PLY
PLY
PLY
PLY
PLD
RTL
L0E0656 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $12
PEI $10
JSL L0B03FF
LDA $08
STA $12
LDA $07
STA $11
LDA $05
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L0E0678 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PHY
JSL L031A72
PLA
LSR
BCS L0E068D
JSL L031619
L0E068D TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $000E
JSL L0E0656
LDA $01
STA $0C
PLY
PLY
PLY
PLD
RTL
L0E06AC ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
PEA $00FD
JSL L0E06F4
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E06D0 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
PEA $001D
JSL L0E06F4
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E06F4 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
JSL L031B09
PHY
PHY
PHY
PHY
PEA $0000
JSL L031415
JSL L071C98
PLA
STA $09
PLX
STX $0B
PEI $0B
PEI $09
LDA $16
JSL L150488
JSL L033477
BEQ L0E0736
BVS L0E072A
EOR #$8000
L0E072A BPL L0E0736
LDA $16
JSL L150488
STA $09
STX $0B
L0E0736 PHY
PHY
PEA $0000
JSL L031415
LDA $18
LDX $1A
INC
BNE L0E0747
INX
L0E0747 PHX
PHA
PEI $0B
PEI $09
JSL L070597
LDA $09
SEP #$20
STA [$18]
REP #$20
JSL L0E0000
LDA $14
STA $1A
LDA $13
STA $19
LDA $11
TCD
TSC
CLC
ADC #$0018
TCS
RTL
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDX #$0000
LDY #$0004
LDA #$0300
AND [$0A],Y
CMP #$0000
BEQ L0E0788
INX
L0E0788 TXA
STA $0E
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E079C ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDX #$0000
LDA [$0A]
LDY #$0002
ORA [$0A],Y
BNE L0E07B1
INX
L0E07B1 TXA
STA $0E
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E07C5 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEI $12
PEI $10
PEI $0E
PEI $0C
PEI $0A
JSL L0B04B4
PLA
LSR
BCS L0E07E7
PEA $002D
JSL L0B0B7A
L0E07E7 LDA $08
STA $12
LDA $07
STA $11
LDA $05
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L0E07F9 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA [$0A]
BEQ L0E0816
LDY #$0004
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
JSL L0E0DE2
BRA L0E0827
L0E0816 LDA #$0002
CLC
ADC $0A
LDX $0C
BCC L0E0821
INX
L0E0821 PHX
PHA
JSL L0E0C71
L0E0827 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E0838 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L055371
SEC
SBC #$0080
BVS L0E084C
EOR #$8000
L0E084C BPL L0E0857
PEA $0052
JSL L0B0B7A
BRA L0E086F
L0E0857 LDA L055371
INC
STA L055371
LDA L055371
DEC
ASL
TAX
LDA $0A
STAL L050AEA,X
LDA $0A
STA L05536F
L0E086F LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L0E087F ENT
PHD
TSC
CLC
ADC #$FED2
TCS
ADC #$003D
TCD
LDA $F8
LDX $FA
STA $C3
STX $C5
LDY #$0022
LDA [$C3],Y
SEC
SBC #$0000
BPL L0E08A0
BRL L0E0BD7
L0E08A0 CMP #$0004
BMI L0E08A8
BRL L0E0BD7
L0E08A8 SEC
SBC #$0000
BEQ L0E08EA
DEC
BEQ L0E08BA
DEC
BEQ L0E08CF
DEC
BEQ L0E08E3
BRL L0E0BD7
L0E08BA LDA L0553BD
LDX L0553BF
PHX
PHA
LDY #$0024
LDA [$C3],Y
PHA
JSL L0B3A6A
BRL L0E0BDE
L0E08CF PEA $0000
TDC
CLC
ADC #$FFC3
PHA
JSL L094153
JSL L0E0F0F
BRL L0E0BDE
L0E08E3 JSL L0E11FE
BRL L0E0BDE
L0E08EA PHY
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E08F6
INX
L0E08F6 PHX
PHA
PEA $0000
JSL L0D0F6E
PLA
STA $EB
LDA $EB
BNE L0E090D
JSL L0E0C52
BRL L0E0BD5
L0E090D LDX #$0000
LDAL L05328D
CMP $EB
BNE L0E0919
INX
L0E0919 PHX
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0925
INX
L0E0925 CLC
ADC #$0002
BCC L0E092C
INX
L0E092C STA $ED
STX $EF
LDA L055129
LDX L05512B
CMP [$ED]
BNE L0E0940
LDY #$0002
TXA
CMP [$ED],Y
L0E0940 BEQ L0E0947
LDA #$0000
BRA L0E094A
L0E0947 LDA #$0001
L0E094A AND $01,S
PLX
LSR
BCC L0E099B
PHY
PHY
PEA $0019
TDC
CLC
ADC #$00D3
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
LDA L055121
LDX L055123
PHX
PHA
JSL L150B22
PLA
PLX
STA $CD
LDAL L05565D
BEQ L0E0990
PEA $002D
JSL L0B0B7A
JSL L0E0C52
BRA L0E0998
L0E0990 PEI $D5
PEI $D3
JSL L0E0CFE
L0E0998 BRL L0E0BD5
L0E099B LDA #$0001
STA $C7
LDA $EB
STA $E9
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E09AF
INX
L0E09AF CLC
ADC #$0002
BCC L0E09B6
INX
L0E09B6 STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E09CF
INX
L0E09CF CLC
ADC #$000A
BCC L0E09D6
INX
L0E09D6 STA $ED
STX $EF
PLA
PLX
CMP [$ED]
BNE L0E09E6
LDY #$0002
TXA
CMP [$ED],Y
L0E09E6 BNE L0E09F0
LDA $E9
EOR #$FFFF
INC
STA $E9
L0E09F0 STZ $E1
STZ $E3
PHY
PHY
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0A01
INX
L0E0A01 CLC
ADC #$000A
BCC L0E0A08
INX
L0E0A08 STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
JSL L0772AE
PLA
STA $E5
PLX
STX $E7
LDA $E5
ORA $E7
BNE L0E0A29
BRL L0E0B7F
L0E0A29 PHY
PHY
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0A36
INX
L0E0A36 CLC
ADC #$0006
BCC L0E0A3D
INX
L0E0A3D STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
JSL L07721A
PLA
STA $E1
PLX
STX $E3
LDA $E1
ORA $E3
BNE L0E0A5E
BRL L0E0B7F
L0E0A5E LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0A69
INX
L0E0A69 CLC
ADC #$0002
BCC L0E0A70
INX
L0E0A70 STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0A89
INX
L0E0A89 CLC
ADC #$000A
BCC L0E0A90
INX
L0E0A90 STA $ED
STX $EF
PLA
PLX
CMP [$ED]
BNE L0E0AA0
LDY #$0002
TXA
CMP [$ED],Y
L0E0AA0 BNE L0E0AAC
LDA $E5
LDX $E7
STA $DB
STX $DD
BRA L0E0AB4
L0E0AAC LDA $E1
LDX $E3
STA $DB
STX $DD
L0E0AB4 PHY
PHY
PEI $DD
PEI $DB
PEI $EB
JSL L0791A7
PLA
STA $D7
PLX
STX $D9
LDA $D7
ORA $D9
BNE L0E0ACF
BRL L0E0B7F
L0E0ACF LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0ADA
INX
L0E0ADA CLC
ADC #$0002
BCC L0E0AE1
INX
L0E0AE1 STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0AFA
INX
L0E0AFA CLC
ADC #$000A
BCC L0E0B01
INX
L0E0B01 STA $ED
STX $EF
PLA
PLX
CMP [$ED]
BNE L0E0B11
LDY #$0002
TXA
CMP [$ED],Y
L0E0B11 BNE L0E0B17
STZ $DF
BRA L0E0B2B
L0E0B17 LDX #$0000
LDY #$0004
LDA #$4000
AND [$D7],Y
CMP #$0000
BEQ L0E0B28
INX
L0E0B28 TXA
STA $DF
L0E0B2B PHY
PEI $E7
PEI $E5
JSL L0718FA
PLA
STA $CB
PHY
PEI $E3
PEI $E1
JSL L0718FA
PLA
STA $C9
PHY
PHY
PEI $E3
PEI $E1
PEI $E7
PEI $E5
PEI $E9
PEI $DF
JSL L07B038
PLA
STA $CF
PLX
STX $D1
LDA $CF
ORA $D1
BEQ L0E0B6B
PEI $D1
PEI $CF
JSL L0E10BE
STZ $C7
L0E0B6B PEI $E7
PEI $E5
PEI $CB
JSL L0718DA
PEI $E3
PEI $E1
PEI $C9
JSL L0718DA
L0E0B7F LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0B8A
INX
L0E0B8A CLC
ADC #$0006
BCC L0E0B91
INX
L0E0B91 STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
PEA $0000
JSL L074A24
LDA #$0024
CLC
ADC $C3
LDX $C5
BCC L0E0BB1
INX
L0E0BB1 CLC
ADC #$000A
BCC L0E0BB8
INX
L0E0BB8 STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
PEA $0000
JSL L074A90
LDA $C7
BEQ L0E0BD5
JSL L0E0C52
L0E0BD5 BRA L0E0BDE
L0E0BD7 PEA $1798
JSL L07272E
L0E0BDE LDA $F6
BEQ L0E0BEA
PEI $FA
PEI $F8
JSL L0B12AA
L0E0BEA LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$0136
TCS
RTL
L0E0BFC ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
PEA $0001
JSL L0E087F
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E0C20 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA $0A
BEQ L0E0C38
PEA ^L032E02
PEA L032E02
JSL L0E0F0F
BRA L0E0C42
L0E0C38 PEA ^L032E3E
PEA L032E3E
JSL L0E0F0F
L0E0C42 LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L0E0C52 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA ^L053251
PEA L053251
PEA $0000
PEA $0001
PEA $0000
JSL L0E07C5
PLY
PLY
PLD
RTL
L0E0C71 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $16
PEI $14
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $000A
PEA $0011
JSL L0E07C5
LDA $12
STA $16
LDA $11
STA $15
LDA $0F
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L0E0CB5 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA $0C
ORA $0E
BNE L0E0CC9
JSL L0E0C52
BRA L0E0CEC
L0E0CC9 PHY
PEI $0E
PEI $0C
JSL L0718FA
PLA
STA $01
LDY #$0002
LDA [$0C],Y
PHA
LDA [$0C]
PHA
JSL L0E10BE
PEI $0E
PEI $0C
PEI $01
JSL L0718DA
L0E0CEC LDA $0A
STA $0E
LDA $09
STA $0D
LDA $07
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0E0CFE ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA $12
ORA $14
BNE L0E0D13
JSL L0E0C52
BRL L0E0DD0
L0E0D13 PEI $14
PEI $12
JSL L0718BF
PHY
PHY
LDY #$0002
LDA [$12],Y
PHA
LDA [$12]
PHA
JSL L071C98
PLA
PLX
INC
BNE L0E0D30
INX
L0E0D30 STA $05
STX $07
PEI $07
PEI $05
LDA #$000A
LDX #$0000
JSL L033477
BEQ L0E0D4B
BVS L0E0D49
EOR #$8000
L0E0D49 BMI L0E0D62
L0E0D4B LDY #$0002
LDA [$12],Y
PHA
LDA [$12]
PHA
JSL L0E10BE
PEI $14
PEI $12
JSL L07185A
BRA L0E0DD0
L0E0D62 PEA $0000
PEA $0000
JSL L0E0E79
LDA L0553C5
LDX L0553C7
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
PHX
PHA
LDA L0553C3
JSL L150488
TAY
BNE L0E0D8B
DEX
L0E0D8B DEC
PEA $0000
PEA $0010
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
LDA $05
LDX $07
STA [$01]
TXA
LDY #$0002
STA [$01],Y
LDY #$0004
SEP #$20
LDA #$00
STA [$01],Y
REP #$20
LDY #$0005
SEP #$20
LDA #$00
STA [$01],Y
REP #$20
LDA $12
LDX $14
LDY #$0006
STA [$01],Y
INY
INY
TXA
STA [$01],Y
L0E0DD0 LDA $10
STA $14
LDA $0F
STA $13
LDA $0D
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L0E0DE2 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
TDC
CLC
ADC #$000A
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0012
JSL L0E07C5
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E0E11 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA $0E
JSL L150488
STA $01
STX $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0012
JSL L0E07C5
LDA $0C
STA $0E
LDA $0B
STA $0D
LDA $09
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0E0E4B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
TDC
CLC
ADC #$000A
PEA $0000
PHA
PEA $0000
PEA $0002
PEA $000E
JSL L0E07C5
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L0E0E79 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
TDC
CLC
ADC #$000A
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0012
JSL L0E07C5
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E0EA8 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
PEI $12
PEI $10
LDA #$00FF
AND [$10]
JSL L150488
JSL L150F53
INC
BNE L0E0EC5
INX
L0E0EC5 STA $01
STX $03
LDA #$00FF
AND [$01]
STA $05
SEP #$20
LDA #$00
STA [$01]
REP #$20
LDA $10
LDX $12
INC
BNE L0E0EE0
INX
L0E0EE0 PHX
PHA
LDA #$00FF
AND [$10]
INC
JSL L150488
PHX
PHA
PEA $0000
JSL L0E07C5
LDA $05
SEP #$20
STA [$01]
REP #$20
LDA $0E
STA $12
LDA $0D
STA $11
LDA $0B
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L0E0F0F ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$0011
TCD
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L071F3F
LDA #$00FF
LDX #$FFEF
AND $00,X
INC
JSL L150488
PHX
PHA
PEA $0000
JSL L0E07C5
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010A
TCS
RTL
L0E0F65 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $1C
PEI $1A
PEA $0008
JSL L0313BE
LDA $18
SEC
SBC #$0011
BPL L0E0F8C
BRL L0E10AC
L0E0F8C CMP #$0032
BMI L0E0F94
BRL L0E10AC
L0E0F94 SEC
SBC #$0000
BEQ L0E0FD3
DEC
BEQ L0E0FEC
SEC
SBC #$0029
BNE L0E0FA6
BRL L0E1034
L0E0FA6 DEC
BNE L0E0FAC
BRL L0E103C
L0E0FAC DEC
BNE L0E0FB2
BRL L0E1044
L0E0FB2 DEC
BNE L0E0FB8
BRL L0E104C
L0E0FB8 DEC
BNE L0E0FBE
BRL L0E107C
L0E0FBE DEC
BNE L0E0FC4
BRL L0E1094
L0E0FC4 DEC
BNE L0E0FCA
BRL L0E1054
L0E0FCA DEC
BNE L0E0FD0
BRL L0E1068
L0E0FD0 BRL L0E10AC
L0E0FD3 TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $000C
JSL L0E07C5
BRL L0E10AC
L0E0FEC LDA $16
BEQ L0E0FFA
LDA $01
LDX $03
STA $09
STX $0B
BRA L0E101C
L0E0FFA PHY
LDA $07
CLC
ADC $03
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $0B
PHY
LDA $05
CLC
ADC $01
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $09
L0E101C TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E07C5
BRA L0E10AC
L0E1034 PEI $01
JSL L0E0E11
BRA L0E10AC
L0E103C PEI $03
JSL L0E0E11
BRA L0E10AC
L0E1044 PEI $05
JSL L0E0E11
BRA L0E10AC
L0E104C PEI $07
JSL L0E0E11
BRA L0E10AC
L0E1054 PHY
PEA $0000
LDA $07
SEC
SBC $03
PHA
JSL L072FA6
JSL L0E0E11
BRA L0E10AC
L0E1068 PHY
PEA $0000
LDA $05
SEC
SBC $01
PHA
JSL L072FA6
JSL L0E0E11
BRA L0E10AC
L0E107C TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E07C5
BRA L0E10AC
L0E1094 TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E07C5
BRA L0E10AC
L0E10AC LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L0E10BE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
PHY
PHY
PEI $0C
PEI $0A
JSL L071C98
PLA
PLX
INC
BNE L0E10DA
INX
L0E10DA PHX
PHA
PEA $0000
JSL L0E07C5
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E10F4 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
LDA L0553B5
LDX L0553B7
CLC
ADC #$0010
BCC L0E1109
INX
L0E1109 STA $11
STX $13
LDA [$11]
BEQ L0E1129
LDA L0553B5
LDX L0553B7
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
PHX
PHA
JSL L0718BF
L0E1129 PHY
PHY
LDAL L051BE2
PHA
JSL L0B289E
PLA
STA $05
PLX
STX $07
L0E113A LDAL L051BDE
DEC
DEC
BEQ L0E1194
LDAL L051BE4
STA $03
LDA $03
BPL L0E1175
LDA L0553CD
LDX L0553CF
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
PHX
PHA
LDA $03
JSL L150488
JSL L1512A5
STA $0D
STX $0F
LDA #$00FF
AND [$0D]
STA $03
L0E1175 PHY
PHY
LDAL L051BE2
PHA
JSL L0B289E
LDA $03
JSL L150488
JSL L150F53
STA $09
STX $0B
JSL L0B0000
BRA L0E113A
L0E1194 LDA #$00FF
AND [$09]
CMP #$0022
BNE L0E11AA
LDA $09
LDX $0B
INC
BNE L0E11A6
INX
L0E11A6 STA $09
STX $0B
L0E11AA LDA #$00FF
AND [$09]
STA $01
SEP #$20
LDA #$00
STA [$09]
REP #$20
PEI $07
PEI $05
JSL L0E10BE
LDA $01
SEP #$20
STA [$09]
REP #$20
LDA L0553B5
LDX L0553B7
CLC
ADC #$0010
BCC L0E11D6
INX
L0E11D6 STA $11
STX $13
LDA [$11]
BEQ L0E11F6
LDA L0553B5
LDX L0553B7
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
PHX
PHA
JSL L1516B7
L0E11F6 TSC
CLC
ADC #$0014
TCS
PLD
RTL
L0E11FE PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
JSL L0C0CE9
PLA
STA $01
PLX
STX $03
PEI $03
PEI $01
JSL L0E0CFE
PLY
PLY
PLY
PLY
PLD
RTL
L0E1220 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L0B369F
JSL L0E0F0F
JSL L0B0000
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L0E1248 PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
LDA #$FFFF
STA $1E
STZ $0F
LDA L0553B5
LDX L0553B7
CLC
ADC #$000A
BCC L0E1264
INX
L0E1264 STA $11
STX $13
LDA #$0000
STA [$11]
LDX #$0000
LDA #$0012
CMPL L051BDE
BNE L0E127A
INX
L0E127A TXA
STA $0B
LDX #$0000
LDA #$0013
CMPL L051BDE
BNE L0E128A
INX
L0E128A TXA
STA $09
LDAL L051BE0
STA $05
JSL L0B0000
LDY #$00FA
LDA [$1A],Y
BEQ L0E12CC
LDX #$0000
LDA #$0006
CMPL L051BDE
BEQ L0E12AB
INX
L0E12AB TXA
BNE L0E12BE
LDX #$0000
LDA #$0007
CMPL L051BE0
BEQ L0E12BB
INX
L0E12BB TXA
BEQ L0E12C8
L0E12BE PEA $0053
JSL L0B0B7A
BRL L0E15F3
L0E12C8 JSL L0B0000
L0E12CC LDA #$0077
CLC
ADC $1A
LDX $1C
BCC L0E12D7
INX
L0E12D7 CLC
ADC #$0050
BCC L0E12DE
INX
L0E12DE STA $11
STX $13
LDA #$0000
STA [$11]
LDA $0B
BEQ L0E12F7
PHA
LDY #$00FA
LDA [$1A],Y
EOR #$0001
AND $01,S
PLX
L0E12F7 CMP #$0000
BNE L0E130F
LDA $09
BEQ L0E1307
PHA
LDY #$00FA
PLA
AND [$1A],Y
L0E1307 CMP #$0000
BNE L0E130F
BRL L0E14A8
L0E130F LDA L0553C3
STA $0D
LDA L05539B
STA $07
LDA #$0001
STA L05539B
LDA L05539D
DEC
STA L05539D
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0B2A02
LDY #$00FA
LDA [$1A],Y
BNE L0E133D
BRL L0E13CB
L0E133D LDA #$0077
CLC
ADC $1A
LDX $1C
BCC L0E1348
INX
L0E1348 CLC
ADC #$0050
BCC L0E134F
INX
L0E134F PHX
PHA
PHY
LDA L0553D1
LDX L0553D3
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
CLC
ADC #$0080
BCC L0E136B
INX
L0E136B PHX
PHA
LDA $05
JSL L150488
TAY
BNE L0E1377
DEX
L0E1377 DEC
PHX
PHA
PEA $0000
PEA $0001
JSL L151137
PLA
PLX
JSL L150F53
STA $11
STX $13
LDA [$11]
PHA
JSL L0B4D5D
PLA
BEQ L0E13AA
PHA
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0E13A6
INX
L0E13A6 TXA
AND $01,S
PLX
L0E13AA PHA
PLA
BEQ L0E13C0
PHA
LDX #$0000
LDA #$000A
CMPL L051BE0
BNE L0E13BC
INX
L0E13BC TXA
AND $01,S
PLX
L0E13C0 PLX
STX $11
PLX
STX $13
STA [$11]
BRL L0E1467
L0E13CB LDA #$0077
CLC
ADC $1A
LDX $1C
BCC L0E13D6
INX
L0E13D6 CLC
ADC #$0050
BCC L0E13DD
INX
L0E13DD PHX
PHA
PHY
LDA L0553D1
LDX L0553D3
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
CLC
ADC #$0018
BCC L0E13F9
INX
L0E13F9 PHX
PHA
LDA $05
JSL L150488
TAY
BNE L0E1405
DEX
L0E1405 DEC
PHX
PHA
PEA $0000
PEA $0001
JSL L151137
PLA
PLX
JSL L150F53
STA $11
STX $13
LDA [$11]
PHA
JSL L0B4D5D
PLA
BEQ L0E145F
PHA
LDX #$0000
LDAL L051BDE
DEC
DEC
BNE L0E1433
INX
L0E1433 TXA
BNE L0E1447
PHA
LDX #$0000
LDAL L032B4C
CMP $05
BNE L0E1443
INX
L0E1443 TXA
ORA $01,S
PLX
L0E1447 PHA
PLA
BNE L0E145C
PHA
LDX #$0000
LDAL L032B4E
CMP $05
BNE L0E1458
INX
L0E1458 TXA
ORA $01,S
PLX
L0E145C AND $01,S
PLX
L0E145F PLX
STX $11
PLX
STX $13
STA [$11]
L0E1467 LDA L05539D
INC
STA L05539D
LDA $07
STA L05539B
STZ L0553A5
LDA #$0077
CLC
ADC $1A
LDX $1C
BCC L0E1481
INX
L0E1481 CLC
ADC #$0050
BCC L0E1488
INX
L0E1488 STA $11
STX $13
LDA [$11]
BEQ L0E149B
LDA L0553C3
SEC
SBC $0D
STA $0F
BRL L0E15B9
L0E149B TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0B2965
L0E14A8 LDX #$0000
LDAL L051BDE
DEC
DEC
BEQ L0E14B4
INX
L0E14B4 TXA
BNE L0E14BA
BRL L0E15B9
L0E14BA LDY #$00FA
LDA [$1A],Y
BEQ L0E14D3
PHA
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0E14CF
INX
L0E14CF TXA
AND $01,S
PLX
L0E14D3 PHA
PLA
BEQ L0E14E9
PHA
LDX #$0000
LDA #$000A
CMPL L051BE0
BNE L0E14E5
INX
L0E14E5 TXA
AND $01,S
PLX
L0E14E9 EOR #$0001
CMP #$0000
BNE L0E14F4
BRL L0E15B9
L0E14F4 PHY
PEA $0000
JSL L0B7A56
PLA
LSR
BCS L0E152D
LDAL L051BDE
SEC
SBC #$000E
BEQ L0E1517
BVS L0E150F
EOR #$8000
L0E150F BPL L0E1517
JSL L0E1220
BRA L0E152D
L0E1517 PEA $0040
PEA ^L04050E
PEA L04050E
PEA ^L0509EA
PEA L0509EA
JSL L0B0897
BRL L0E15F3
L0E152D LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0E153A
INX
L0E153A TXA
BEQ L0E1565
LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0E154A
INX
L0E154A TXA
BEQ L0E1565
JSL L0B0000
LDAL L051BDE
DEC
DEC
BNE L0E1563
PEA $0054
JSL L0B0B7A
BRL L0E15F3
L0E1563 BRA L0E15B1
L0E1565 LDX #$0000
LDAL L051BDE
DEC
DEC
BNE L0E1571
INX
L0E1571 TXA
BNE L0E15B1
LDY #$00FA
LDA [$1A],Y
BEQ L0E158D
PHA
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0E1589
INX
L0E1589 TXA
AND $01,S
PLX
L0E158D PHA
PLA
BEQ L0E15A3
PHA
LDX #$0000
LDA #$000A
CMPL L051BE0
BNE L0E159F
INX
L0E159F TXA
AND $01,S
PLX
L0E15A3 CMP #$0000
BNE L0E15B1
PEA $0055
JSL L0B0B7A
BRA L0E15F3
L0E15B1 LDA $0F
INC
STA $0F
BRL L0E14A8
L0E15B9 LDY #$00FA
LDA [$1A],Y
BEQ L0E15EF
LDX #$0000
LDA #$0006
CMPL L051BDE
BEQ L0E15CD
INX
L0E15CD PHX
LDX #$0000
LDA #$000A
CMPL L051BE0
BEQ L0E15DB
INX
L0E15DB TXA
ORA $01,S
PLX
LSR
BCC L0E15EB
PEA $0033
JSL L0B0B7A
BRA L0E15F3
L0E15EB JSL L0B0000
L0E15EF LDA $0F
STA $1E
L0E15F3 LDA $18
STA $1C
LDA $17
STA $1B
LDA $15
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L0E1605 PHD
TSC
CLC
ADC #$FEF8
TCS
ADC #$0015
TCD
STZ $FC
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E161D
INX
L0E161D CLC
ADC #$001E
BCC L0E1624
INX
L0E1624 STA $EF
STX $F1
PHY
PEA $0000
PEI $F8
JSL L0E1248
PLA
STA [$EF]
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1640
INX
L0E1640 CLC
ADC #$001E
BCC L0E1647
INX
L0E1647 STA $EF
STX $F1
LDA [$EF]
SEC
SBC #$0000
BPL L0E1656
BRL L0E183F
L0E1656 LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1661
INX
L0E1661 STA L0553B9
STX L0553BB
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1672
INX
L0E1672 CLC
ADC #$003A
BCC L0E1679
INX
L0E1679 PHX
PHA
PEA $0001
JSL L0B2AF9
LDA L0553B5
LDX L0553B7
CLC
ADC #$000A
BCC L0E168F
INX
L0E168F STA $EF
STX $F1
LDA #$0000
STA [$EF]
JSL L0B0000
LDAL L051BE4
TAX
LDAL L051BE2
LDY #$0077
STA [$F8],Y
INY
INY
TXA
STA [$F8],Y
JSL L0B0000
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E16BE
INX
L0E16BE CLC
ADC #$0010
BCC L0E16C5
INX
L0E16C5 PHX
PHA
JSL L0B199C
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E16D6
INX
L0E16D6 CLC
ADC #$001E
BCC L0E16DD
INX
L0E16DD STA $EF
STX $F1
LDA [$EF]
BNE L0E16E8
BRL L0E1769
L0E16E8 LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E16F3
INX
L0E16F3 CLC
ADC #$0010
BCC L0E16FA
INX
L0E16FA PHX
PHA
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1707
INX
L0E1707 CLC
ADC #$001E
BCC L0E170E
INX
L0E170E STA $EF
STX $F1
LDA [$EF]
PHA
JSL L0B1C2B
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1724
INX
L0E1724 CLC
ADC #$001E
BCC L0E172B
INX
L0E172B STA $EF
STX $F1
LDA [$EF]
STA $EB
LDA #$0001
SEC
SBC $EB
BEQ L0E1742
BVS L0E1740
EOR #$8000
L0E1740 BMI L0E1769
L0E1742 LDA $EB
STA $ED
L0E1746 LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1751
INX
L0E1751 CLC
ADC #$0010
BCC L0E1758
INX
L0E1758 PHX
PHA
PEI $ED
JSL L0B3CD4
LDA $ED
DEC
BEQ L0E1769
DEC $ED
BRA L0E1746
L0E1769 STZ $ED
L0E176B LDAL L051BDE
DEC
DEC
BNE L0E1776
BRL L0E183A
L0E1776 LDA $ED
INC
STA $ED
PEI $ED
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E1788
INX
L0E1788 CLC
ADC #$001E
BCC L0E178F
INX
L0E178F STA $EF
STX $F1
PLA
SEC
SBC [$EF]
BEQ L0E17BB
BVS L0E179E
EOR #$8000
L0E179E BPL L0E17BB
LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E17AB
INX
L0E17AB CLC
ADC #$0010
BCC L0E17B2
INX
L0E17B2 PHX
PHA
PEA $0001
JSL L0B1C2B
L0E17BB LDAL L051BDE
SEC
SBC #$000E
BVS L0E17C8
EOR #$8000
L0E17C8 BMI L0E17D3
PEA $0004
JSL L0B0B7A
BRA L0E183F
L0E17D3 LDA #$0077
CLC
ADC $F8
LDX $FA
BCC L0E17DE
INX
L0E17DE CLC
ADC #$0010
BCC L0E17E5
INX
L0E17E5 PHX
PHA
PEI $ED
PEA $0000
TDC
CLC
ADC #$FFEB
PHA
JSL L0B369F
JSL L0B3DB3
JSL L0B0000
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0E180B
INX
L0E180B PHX
LDX #$0000
LDA #$0003
CMPL L051BE0
BNE L0E1819
INX
L0E1819 TXA
AND $01,S
PLX
LSR
BCC L0E1826
JSL L0B0000
BRA L0E1837
L0E1826 LDAL L051BDE
DEC
DEC
BEQ L0E1837
PEA $0055
JSL L0B0B7A
BRA L0E183F
L0E1837 BRL L0E176B
L0E183A LDA #$0001
STA $FC
L0E183F LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010E
TCS
RTL
L0E1851 PHD
TSC
CLC
ADC #$FFEE
TCS
TCD
STZ $1C
LDAL L051BE0
STA $07
LDAL L051BE4
TAX
LDAL L051BE2
STA $09
STX $0B
LDA L0553B5
LDX L0553B7
CLC
ADC #$000A
BCC L0E187B
INX
L0E187B STA $0F
STX $11
LDA #$0000
STA [$0F]
JSL L0B0000
LDX #$0000
LDA #$0006
CMPL L051BDE
BNE L0E1895
INX
L0E1895 PHX
LDX #$0000
LDA #$0007
CMPL L051BE0
BNE L0E18A3
INX
L0E18A3 TXA
AND $01,S
PLX
LSR
BCS L0E18B4
PEA $0053
JSL L0B0B7A
BRL L0E1971
L0E18B4 JSL L0B0000
LDA L0553D1
LDX L0553D3
STA $0F
STX $11
LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
CLC
ADC #$0080
BCC L0E18D1
INX
L0E18D1 PHX
PHA
LDA $07
JSL L150488
TAY
BNE L0E18DD
DEX
L0E18DD DEC
PHX
PHA
PEA $0000
PEA $0001
JSL L151137
PLA
PLX
JSL L150F53
STA $0F
STX $11
LDA [$0F]
STA $05
LDA $07
DEC
ASL
ASL
TAX
LDAL L032B52+2,X
* PHA
sta $03
LDAL L032B52,X
* PLX
STA $01
* STX $03
LDA #$FFFF
CMP $05
BEQ L0E1935
LDA L055399
STA $0D
STZ L055399
PHY
PEI $05
JSL L0B4D5D
PLA
LSR
BCS L0E1930
PEI $0B
PEI $09
JSL L0B4FA3
BRA L0E1971
L0E1930 LDA $0D
STA L055399
L0E1935 LDX #$0000
LDA #$0006
CMPL L051BDE
BEQ L0E1942
INX
L0E1942 PHX
LDX #$0000
LDA #$000A
CMPL L051BE0
BEQ L0E1950
INX
L0E1950 TXA
ORA $01,S
PLX
LSR
BCC L0E1960
PEA $0033
JSL L0B0B7A
BRA L0E1971
L0E1960 JSL L0B0000
LDA #$0001
STA $1C
PEI $03
PEI $01
JSL L0B510B
L0E1971 LDA $16
STA $1A
LDA $15
STA $19
LDA $13
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L0E1983 PHD
TSC
CLC
ADC #$FEEC
TCS
ADC #$0021
TCD
LDA L0553B5
LDX L0553B7
CLC
ADC #$000A
BCC L0E199B
INX
L0E199B STA $EF
STX $F1
LDA #$0000
STA [$EF]
LDA L0553D1
LDX L0553D3
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
CLC
ADC #$0018
BCC L0E19BD
INX
L0E19BD PHX
PHA
LDAL L051BE0
JSL L150488
TAY
BNE L0E19CB
DEX
L0E19CB DEC
PHX
PHA
PEA $0000
PEA $0001
JSL L151137
PLA
PLX
JSL L150F53
STA $EF
STX $F1
LDA [$EF]
STA $E7
LDAL L051BE0
DEC
ASL
ASL
TAX
LDAL L032A78+2,X
PHA
LDAL L032A78,X
PLX
STA $E3
STX $E5
LDAL L051BE0
STA $E1
LDAL L051BE4
TAX
LDAL L051BE2
STA $E9
STX $EB
JSL L0B0000
PHY
PEI $E7
JSL L0B4D5D
PLA
BEQ L0E1A54
PHA
LDX #$0000
LDAL L051BDE
DEC
DEC
BNE L0E1A2A
INX
L0E1A2A TXA
BNE L0E1A51
PHA
LDX #$0000
LDAL L032B4C
CMP $E1
BNE L0E1A3A
INX
L0E1A3A TXA
BNE L0E1A4E
PHA
LDX #$0000
LDAL L032B4E
CMP $E1
BNE L0E1A4A
INX
L0E1A4A TXA
ORA $01,S
PLX
L0E1A4E ORA $01,S
PLX
L0E1A51 AND $01,S
PLX
L0E1A54 STA $DF
LDA $DF
BEQ L0E1A9A
LDX #$0000
LDAL L032B48
CMP $E1
BEQ L0E1A66
INX
L0E1A66 PHX
LDX #$0000
LDAL L032B4A
CMP $E1
BEQ L0E1A73
INX
L0E1A73 TXA
AND $01,S
PLX
LSR
BCC L0E1A7E
JSL L0B2AC6
L0E1A7E PEI $E5
PEI $E3
JSL L0B510B
LDY #$00E9
LDA [$F8],Y
PHA
DEY
DEY
LDA [$F8],Y
PHA
PEA $0000
JSL L0B2AF9
BRA L0E1AC5
L0E1A9A PEI $EB
PEI $E9
PEA ^L050C32
PEA L050C32
JSL L0B1388
PEA $0040
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
PEA $0073
JSL L0B127A
PEA ^L050C32
PEA L050C32
JSL L0B0897
L0E1AC5 LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$011A
TCS
RTL
L0E1AD7 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0077
CLC
ADC $0E
LDX $10
BCC L0E1AEA
INX
L0E1AEA STA $01
STX $03
LDA L0553B9
LDX L0553BB
LDY #$0008
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA L055391
LDY #$0004
STA [$01],Y
LDA L055371
LDY #$0006
STA [$01],Y
LDA #$0020
CLC
ADC $01
LDX $03
BCC L0E1B19
INX
L0E1B19 PHX
PHA
PEA ^L051054
PEA L051054
PEA $0018
JSL L0313BE
STZ L055393
STZ L055397
LDA #$8001
STA L055395
LDA L0553BD
LDX L0553BF
LDY #$000C
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0000
LDY #$0050
STA [$01],Y
LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L0E1B5E PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$0011
TCD
PEA ^L0509EA
PEA L0509EA
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L0B369F
PEA $0100
JSL L0313BE
PHY
PEA ^L0509EA
PEA L0509EA
JSL L032E6D
PLA
STA L055365
LDY #$00FA
LDA [$F8],Y
BEQ L0E1BA3
LDA L055365
EOR #$FFFF
INC
STA L055365
L0E1BA3 LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010A
TCS
RTL
L0E1BB5 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDY #$00ED
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
STA L0553B9
STX L0553BB
LDY #$00E9
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
PEA $0000
JSL L0B2AF9
LDY #$00EF
LDA [$0A],Y
PHA
JSL L0B2BBB
PEA $0000
PEI $0A
JSL L0E1B5E
LDA #$0000
LDY #$00E3
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E1C0B PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
PHY
JSL L0B26E7
PLA
STA $0B
LDA $0B
STA $1A
LDA $0B
BNE L0E1C26
BRL L0E1E32
L0E1C26 LDA $0B
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E1C3C
INX
L0E1C3C STA $01
STX $03
LDA #$0018
CLC
ADC $01
LDX $03
BCC L0E1C4B
INX
L0E1C4B STA $0D
STX $0F
PHY
PHY
JSL L0B1792
PLA
STA [$0D]
PLA
LDY #$0002
STA [$0D],Y
LDY #$0018
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L0E1C75
PEA $002D
JSL L0B0B7A
STZ $1A
BRL L0E1E32
L0E1C75 PHY
LDY #$001A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L0718FA
PLA
STA $05
LDY #$001A
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
LDA #$001E
CLC
ADC $01
LDX $03
BCC L0E1CAB
INX
L0E1CAB PHX
PHA
JSL L0B49A2
LDY #$001A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
PEI $05
JSL L0718DA
PHY
PEI $03
PEI $01
JSL L0B33DE
PLA
LSR
BCS L0E1CE1
PEA $0002
LDY #$001A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L150D44
L0E1CE1 PEI $03
PEI $01
PEA ^L051054
PEA L051054
PEA $0018
JSL L0313BE
LDA #$0000
LDY #$001C
STA [$01],Y
LDA #$0000
LDY #$0022
STA [$01],Y
LDA #$0000
TAX
LDY #$0024
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0000
TAX
LDY #$0028
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDX #$0000
LDA #$0004
CMP [$01]
BNE L0E1D29
INX
L0E1D29 PHX
LDY #$0014
LDA [$01],Y
BEQ L0E1D34
LDA #$0001
L0E1D34 PHA
LDY #$0016
LDA [$01],Y
BEQ L0E1D3F
LDA #$0001
L0E1D3F ORA $01,S
PLX
AND $01,S
PLX
LSR
BCS L0E1D4B
BRL L0E1E32
L0E1D4B LDA #$00D3
CLC
ADC $16
LDX $18
BCC L0E1D56
INX
L0E1D56 STA $0D
STX $0F
PHY
JSL L150B6A
PLA
STA [$0D]
STZ $07
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP L055039
BNE L0E1D76
CPX L05503B
L0E1D76 BNE L0E1D7F
LDA L05503D
STA $09
BRA L0E1DB8
L0E1D7F LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP L05502B
BNE L0E1D91
CPX L05502D
L0E1D91 BNE L0E1D9A
LDA L05502F
STA $09
BRA L0E1DB8
L0E1D9A PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L0D0CD8
PLA
STA $09
LDA $09
BNE L0E1DB3
BRA L0E1E32
L0E1DB3 LDA #$0001
STA $07
L0E1DB8 LDY #$0014
LDA [$01],Y
BEQ L0E1DEB
LDA #$0024
CLC
ADC $01
LDX $03
BCC L0E1DCA
INX
L0E1DCA STA $0D
STX $0F
PHY
PHY
PEA $801E
LDY #$0014
LDA [$01],Y
PHA
PEI $09
PEA $0001
JSL L0B4FF1
PLA
STA [$0D]
PLA
LDY #$0002
STA [$0D],Y
L0E1DEB LDY #$0016
LDA [$01],Y
BEQ L0E1E1E
LDA #$0028
CLC
ADC $01
LDX $03
BCC L0E1DFD
INX
L0E1DFD STA $0D
STX $0F
PHY
PHY
PEA $801F
LDY #$0016
LDA [$01],Y
PHA
PEI $09
PEA $0001
JSL L0B4FF1
PLA
STA [$0D]
PLA
LDY #$0002
STA [$0D],Y
L0E1E1E LDA $07
BEQ L0E1E28
PEI $09
JSL L150B5E
L0E1E28 LDY #$00D3
LDA [$16],Y
PHA
JSL L150B70
L0E1E32 LDA $14
STA $18
LDA $13
STA $17
LDA $11
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L0E1E44 PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
STZ $2A
LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E1E59
INX
L0E1E59 CLC
ADC #$003A
BCC L0E1E60
INX
L0E1E60 STA $15
STX $17
LDA #$000C
CLC
ADC $15
LDX $17
BCC L0E1E6F
INX
L0E1E6F STA $1D
STX $1F
PHY
JSL L0D0BE0
PLA
STA [$1D]
LDY #$000C
LDA [$15],Y
BNE L0E1E9E
LDA #$000C
CLC
ADC $15
LDX $17
BCC L0E1E8D
INX
L0E1E8D STA $1D
STX $1F
PHY
PEA $0000
PEI $26
JSL L0E1C0B
PLA
STA [$1D]
L0E1E9E LDY #$000C
LDA [$15],Y
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E1EB7
INX
L0E1EB7 PHX
PHA
TDC
CLC
ADC #$0019
PEA $0000
PHA
LDA #$000E
CLC
ADC $15
LDX $17
BCC L0E1ECD
INX
L0E1ECD PHX
PHA
JSL L0B4275
LDY #$000E
LDA [$15],Y
BNE L0E1EDD
BRL L0E21BD
L0E1EDD LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E1EE8
INX
L0E1EE8 CLC
ADC #$003A
BCC L0E1EEF
INX
L0E1EEF STA $11
STX $13
LDA #$0001
LDY #$0008
STA [$11],Y
LDA #$0000
LDY #$000A
STA [$11],Y
LDA #$0001
LDY #$0010
STA [$11],Y
LDY #$000C
LDA [$11],Y
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E1F24
INX
L0E1F24 STA $0D
STX $0F
LDY #$001A
LDA [$0D],Y
TAX
DEY
DEY
LDA [$0D],Y
STA [$11]
TXA
LDY #$0002
STA [$11],Y
LDY #$001C
LDA [$0D],Y
INC
LDY #$001C
STA [$0D],Y
LDA $19
LDX $1B
STA $09
STX $0B
LDY #$000A
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
LDY #$0004
STA [$11],Y
INY
INY
TXA
STA [$11],Y
LDY #$000C
LDA [$09],Y
INC
LDY #$000C
STA [$09],Y
PEA $0000
PEI $26
JSL L0E1AD7
PHY
PEA $0000
PEI $26
JSL L0E1605
PLA
LSR
BCS L0E1F8B
LDA #$0001
STA $2A
BRL L0E21A2
L0E1F8B PEA $0002
JSL L0E0838
LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E1F9D
INX
L0E1F9D CLC
ADC #$0010
BCC L0E1FA4
INX
L0E1FA4 STA L0553BD
STX L0553BF
JSL L0B2AC6
L0E1FAE LDX #$0000
LDA L055397
BNE L0E1FB7
INX
L0E1FB7 PHX
PHY
JSL L07005C
PLA
ORA L0553A5
EOR #$0001
AND $01,S
PLX
LSR
BCS L0E1FCD
BRL L0E20CE
L0E1FCD LDA L055393
BNE L0E2035
L0E1FD2 LDAL L051BDE
DEC
DEC
BEQ L0E1FE0
JSL L0B0000
BRA L0E1FD2
L0E1FE0 JSL L0B0000
L0E1FE4 LDX #$0000
LDA #$0007
CMP L05536F
BNE L0E1FF0
INX
L0E1FF0 TXA
BNE L0E202F
LDX #$0000
LDA #$0005
CMP L05536F
BNE L0E1FFF
INX
L0E1FFF TXA
BEQ L0E202A
PHA
LDX #$0000
LDA #$0009
CMPL L051BDE
BNE L0E2010
INX
L0E2010 TXA
BEQ L0E2024
PHA
LDX #$0000
LDAL L051BE0
DEC
DEC
BNE L0E2020
INX
L0E2020 TXA
AND $01,S
PLX
L0E2024 EOR #$0001
AND $01,S
PLX
L0E202A CMP #$0000
BEQ L0E2035
L0E202F JSL L0E0154
BRA L0E1FE4
L0E2035 LDAL L051BDE
DEC
DEC
BNE L0E2047
PEA $0054
JSL L0B0B7A
BRL L0E20CE
L0E2047 LDA L055395
SEC
SBC L055371
BVS L0E2053
EOR #$8000
L0E2053 BPL L0E205B
LDA #$8001
STA L055395
L0E205B STZ L055393
LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E2069
INX
L0E2069 STA L0553B9
STX L0553BB
LDA #$0009
CMPL L051BDE
BNE L0E2090
LDAL L051BE0
DEC
ASL
ASL
TAX
LDAL L032A48+2,X
PHA
LDAL L032A48,X
PHA
JSL L0B422F
BRA L0E20CB
L0E2090 LDA #$8001
CMP L055395
BNE L0E20CB
PHY
PEA $0000
JSL L0E2DD3
PLA
LSR
BCS L0E20AA
LDA #$0001
STA L055397
L0E20AA PEA ^L051054
PEA L051054
LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E20BB
INX
L0E20BB CLC
ADC #$0020
BCC L0E20C2
INX
L0E20C2 PHX
PHA
PEA $0018
JSL L0313BE
L0E20CB BRL L0E1FAE
L0E20CE PHY
JSL L07005C
PLA
LSR
BCC L0E20DD
JSL L0B292B
BRA L0E211E
L0E20DD LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E20E8
INX
L0E20E8 STA $05
STX $07
LDY #$0004
LDA [$05],Y
CMP L055391
BEQ L0E20FE
LDY #$0004
LDA [$05],Y
STA L055391
L0E20FE LDY #$0006
LDA [$05],Y
CMP L055371
BEQ L0E2110
LDY #$0006
LDA [$05],Y
STA L055371
L0E2110 LDA #$8001
CMP L055395
BEQ L0E211E
LDA #$8001
STA L055395
L0E211E LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E2129
INX
L0E2129 STA $01
STX $03
LDA #$0010
CLC
ADC $01
LDX $03
BCC L0E2138
INX
L0E2138 CMP L0553BD
BNE L0E2140
CPX L0553BF
L0E2140 BEQ L0E2149
PEA $18A4
JSL L07272E
L0E2149 LDA #$0010
CLC
ADC $01
LDX $03
BCC L0E2154
INX
L0E2154 PHX
PHA
JSL L0B0E1B
LDY #$000E
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA L0553BD
STX L0553BF
LDX #$0000
LDA L055397
DEC
BNE L0E2174
INX
L0E2174 TXA
BNE L0E217F
PHY
JSL L07005C
PLA
BEQ L0E2199
L0E217F LDA #$0001
STA $2A
LDY #$00FA
LDA [$26],Y
BEQ L0E2197
LDA L0553A7
LDX L0553A9
PHX
PHA
JSL L0E0CB5
L0E2197 BRA L0E21A2
L0E2199 PEA $0000
PEI $26
JSL L0E1BB5
L0E21A2 LDA #$0077
CLC
ADC $26
LDX $28
BCC L0E21AD
INX
L0E21AD CLC
ADC #$003A
BCC L0E21B4
INX
L0E21B4 PHX
PHA
JSL L0B0F05
STZ L055397
L0E21BD LDA $24
STA $28
LDA $23
STA $27
LDA $21
TCD
TSC
CLC
ADC #$0026
TCS
RTL
L0E21CF PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
STZ $14
STZ $16
LDA #$0000
LDY #$00D1
STA [$10],Y
LDA #$0000
LDY #$00D7
STA [$10],Y
STZ $03
STZ $05
LDA #$00D3
CLC
ADC $10
LDX $12
BCC L0E21FA
INX
L0E21FA STA $07
STX $09
PHY
JSL L150B6A
PLA
STA [$07]
LDY #$00FA
LDA [$10],Y
BEQ L0E2217
LDA #$801F
LDY #$00E1
STA [$10],Y
BRA L0E221F
L0E2217 LDA #$801E
LDY #$00E1
STA [$10],Y
L0E221F LDA #$0005
CMPL L051054
BNE L0E22A2
LDA L055271
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $10
LDX $12
BCC L0E223B
INX
L0E223B STA $07
STX $09
PHY
PEA $FFFF
JSL L1506E1
PLA
STA [$07]
PHY
LDY #$00E1
LDA [$10],Y
PHA
PEA ^L0509EA
PEA L0509EA
PEA ^L055271
PEA L055271
LDA #$00DB
CLC
ADC $10
LDX $12
BCC L0E2268
INX
L0E2268 PHX
PHA
JSL L070A4D
PLA
LSR
BCC L0E228F
PHY
PHY
LDY #$00E1
LDA [$10],Y
PHA
LDY #$00DD
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
JSL L15041C
PLA
STA $03
PLX
STX $05
L0E228F LDA #$FFFF
LDY #$00D9
STA [$10],Y
LDA L055271
LDY #$00DF
STA [$10],Y
BRL L0E24CC
L0E22A2 LDA L055039
LDX L05503B
CMPL L051056
BNE L0E22B3
TXA
CMPL L051058
L0E22B3 BEQ L0E22B8
BRL L0E2358
L0E22B8 LDA L05503D
BNE L0E22C0
BRL L0E24CC
L0E22C0 LDA L05503D
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $10
LDX $12
BCC L0E22D3
INX
L0E22D3 STA $07
STX $09
PHY
PEA $0001
JSL L1506E1
PLA
STA [$07]
PHY
LDY #$00E1
LDA [$10],Y
PHA
PEA ^L0509EA
PEA L0509EA
PEA ^L05503D
PEA L05503D
LDA #$00DB
CLC
ADC $10
LDX $12
BCC L0E2300
INX
L0E2300 PHX
PHA
JSL L070A4D
PLA
LSR
BCC L0E2327
PHY
PHY
LDY #$00E1
LDA [$10],Y
PHA
LDY #$00DD
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
JSL L15041C
PLA
STA $03
PLX
STX $05
L0E2327 LDY #$00DD
LDA [$10],Y
TAX
DEY
DEY
LDA [$10],Y
LDY #$00C9
STA [$10],Y
INY
INY
TXA
STA [$10],Y
LDY #$00E1
LDA [$10],Y
LDY #$00CD
STA [$10],Y
LDA #$0001
LDY #$00D9
STA [$10],Y
LDA L05503D
LDY #$00DF
STA [$10],Y
BRL L0E24CC
L0E2358 LDA L05502B
LDX L05502D
CMPL L051056
BNE L0E2369
TXA
CMPL L051058
L0E2369 BEQ L0E236E
BRL L0E23F0
L0E236E LDA L05502F
BNE L0E2376
BRL L0E24CC
L0E2376 LDA L05502F
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $10
LDX $12
BCC L0E2389
INX
L0E2389 STA $07
STX $09
PHY
PEA $0001
JSL L1506E1
PLA
STA [$07]
PHY
LDY #$00E1
LDA [$10],Y
PHA
PEA ^L0509EA
PEA L0509EA
PEA ^L05502F
PEA L05502F
LDA #$00DB
CLC
ADC $10
LDX $12
BCC L0E23B6
INX
L0E23B6 PHX
PHA
JSL L070A4D
PLA
LSR
BCC L0E23DD
PHY
PHY
LDY #$00E1
LDA [$10],Y
PHA
LDY #$00DD
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
JSL L15041C
PLA
STA $03
PLX
STX $05
L0E23DD LDA #$0001
LDY #$00D9
STA [$10],Y
LDA L05502F
LDY #$00DF
STA [$10],Y
BRL L0E24CC
L0E23F0 LDA #$00D5
CLC
ADC $10
LDX $12
BCC L0E23FB
INX
L0E23FB STA $07
STX $09
PHY
LDAL L051058
PHA
LDAL L051056
PHA
JSL L0D0CD8
PLA
STA [$07]
LDY #$00D5
LDA [$10],Y
BNE L0E241F
JSL L072314
BRL L0E24C4
L0E241F LDY #$00D5
LDA [$10],Y
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $10
LDX $12
BCC L0E2434
INX
L0E2434 STA $07
STX $09
PHY
PEA $0001
JSL L1506E1
PLA
STA [$07]
PHY
LDY #$00E1
LDA [$10],Y
PHA
PEA ^L0509EA
PEA L0509EA
LDA #$00DF
CLC
ADC $10
LDX $12
BCC L0E245B
INX
L0E245B PHX
PHA
LDA #$00DB
CLC
ADC $10
LDX $12
BCC L0E2468
INX
L0E2468 PHX
PHA
JSL L070A4D
PLA
LSR
BCC L0E24B8
PHY
PHY
LDY #$00E1
LDA [$10],Y
PHA
LDY #$00DD
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
JSL L15041C
PLA
STA $03
PLX
STX $05
LDAL L05565D
BEQ L0E249B
STZ $03
STZ $05
BRA L0E24B8
L0E249B LDY #$00E1
LDA [$10],Y
PHA
LDY #$00DD
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
JSL L150410
LDA #$0001
LDY #$00D1
STA [$10],Y
L0E24B8 LDY #$00D5
LDA [$10],Y
PHA
JSL L150B5E
BRA L0E24CC
L0E24C4 LDA #$FFFF
TAX
STA $03
STX $05
L0E24CC LDY #$00D3
LDA [$10],Y
PHA
JSL L150B70
LDY #$00D7
LDA [$10],Y
BEQ L0E24FA
LDA #$00D7
CLC
ADC $10
LDX $12
BCC L0E24E8
INX
L0E24E8 STA $07
STX $09
PHY
LDY #$00D7
LDA [$10],Y
PHA
JSL L1506E1
PLA
STA [$07]
L0E24FA LDA $03
ORA $05
BNE L0E2507
PEA $002A
JSL L0B0B7A
L0E2507 LDA #$FFFF
TAX
CMP $03
BNE L0E2511
CPX $05
L0E2511 BNE L0E2517
STZ $03
STZ $05
L0E2517 LDA $03
LDX $05
STA $14
STX $16
LDA $0E
STA $12
LDA $0D
STA $11
LDA $0B
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L0E2531 PHD
TSC
CLC
ADC #$FF6C
TCS
TCD
STZ $9E
LDX #$0000
LDA #$0004
CMPL L051054
BEQ L0E2548
INX
L0E2548 TXA
BEQ L0E255E
LDX #$0000
LDA #$0005
CMPL L051054
BEQ L0E2558
INX
L0E2558 TXA
BEQ L0E255E
BRL L0E2C35
L0E255E PHY
JSL L07005C
PLA
LSR
BCC L0E256A
BRL L0E2C35
L0E256A PHY
PHY
PEA ^L0509EA
PEA L0509EA
TDC
CLC
ADC #$0081
PEA $0000
PHA
JSL L1606F6
PLA
STA $87
PLX
STX $89
LDA $87
ORA $89
BEQ L0E258E
LDA #$0001
L0E258E STA $79
LDA $79
LDY #$00D1
STA [$9A],Y
LDA $79
BEQ L0E259E
BRL L0E2799
L0E259E LDA #$0004
CMPL L051054
BEQ L0E25AA
BRL L0E270F
L0E25AA LDY #$00FA
LDA [$9A],Y
BNE L0E25B4
BRL L0E2663
L0E25B4 LDAL L05106A
BNE L0E25BD
BRL L0E2C35
L0E25BD LDA #$0077
CLC
ADC $9A
LDX $9C
BCC L0E25C8
INX
L0E25C8 CLC
ADC #$003A
BCC L0E25CF
INX
L0E25CF CLC
ADC #$000C
BCC L0E25D6
INX
L0E25D6 STA $91
STX $93
LDA [$91]
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E25F0
INX
L0E25F0 CLC
ADC #$0028
BCC L0E25F7
INX
L0E25F7 STA $91
STX $93
LDA [$91]
LDY #$0002
ORA [$91],Y
BNE L0E2607
BRL L0E2C35
L0E2607 PHY
PEA ^L0509EA
PEA L0509EA
LDA #$0077
CLC
ADC $9A
LDX $9C
BCC L0E2619
INX
L0E2619 CLC
ADC #$003A
BCC L0E2620
INX
L0E2620 CLC
ADC #$000C
BCC L0E2627
INX
L0E2627 STA $91
STX $93
LDA [$91]
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E2641
INX
L0E2641 CLC
ADC #$0028
BCC L0E2648
INX
L0E2648 STA $91
STX $93
LDY #$0002
LDA [$91],Y
TAX
LDA [$91]
PHX
PHA
JSL L03261F
PLA
BNE L0E2660
BRL L0E2C35
L0E2660 BRL L0E270F
L0E2663 LDAL L051068
BNE L0E266C
BRL L0E2C35
L0E266C LDA #$0077
CLC
ADC $9A
LDX $9C
BCC L0E2677
INX
L0E2677 CLC
ADC #$003A
BCC L0E267E
INX
L0E267E CLC
ADC #$000C
BCC L0E2685
INX
L0E2685 STA $91
STX $93
LDA [$91]
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E269F
INX
L0E269F CLC
ADC #$0024
BCC L0E26A6
INX
L0E26A6 STA $91
STX $93
LDA [$91]
LDY #$0002
ORA [$91],Y
BNE L0E26B6
BRL L0E2C35
L0E26B6 PHY
PEA ^L0509EA
PEA L0509EA
LDA #$0077
CLC
ADC $9A
LDX $9C
BCC L0E26C8
INX
L0E26C8 CLC
ADC #$003A
BCC L0E26CF
INX
L0E26CF CLC
ADC #$000C
BCC L0E26D6
*
INX
L0E26D6 STA $91
STX $93
LDA [$91]
DEC
PEA $002C
JSL L150BEE
PLX
TXA
CLC
ADC #L0510DE
LDX #^L0510DE
BCC L0E26F0
INX
L0E26F0 CLC
ADC #$0024
BCC L0E26F7
INX
L0E26F7 STA $91
STX $93
LDY #$0002
LDA [$91],Y
TAX
LDA [$91]
PHX
PHA
JSL L03261F
PLA
BNE L0E270F
BRL L0E2C35
L0E270F LDA #$0005
CMPL L051054
BNE L0E277F
LDY #$00FA
LDA [$9A],Y
BEQ L0E2750
LDA L055269
ORA L05526B
BNE L0E272A
BRL L0E2C35
L0E272A LDA L055377
ORA L055379
BNE L0E2735
BRL L0E2C35
L0E2735 PHY
PEA ^L0509EA
PEA L0509EA
LDA L055377
LDX L055379
PHX
PHA
JSL L03261F
PLA
BNE L0E274E
BRL L0E2C35
L0E274E BRA L0E277F
L0E2750 LDA L05526D
ORA L05526F
BNE L0E275B
BRL L0E2C35
L0E275B LDA L055373
ORA L055375
BNE L0E2766
BRL L0E2C35
L0E2766 PHY
PEA ^L0509EA
PEA L0509EA
LDA L055373
LDX L055375
PHX
PHA
JSL L03261F
PLA
BNE L0E277F
BRL L0E2C35
L0E277F PHY
PHY
PEA $0000
PEI $9A
JSL L0E21CF
PLA
STA $87
PLX
STX $89
LDA $87
ORA $89
BNE L0E2799
BRL L0E2C35
L0E2799 PHY
PEI $89
PEI $87
JSL L0718FA
PLA
STA $85
TDC
CLC
ADC #$0029
PEA $0000
PHA
PEA $0000
PEA $004C
JSL L071EC5
PHY
PEA $0000
PEI $9A
JSL L0E1248
PLA
STA $29
LDA $29
BPL L0E27D1
LDA #$0001
STA $9E
BRL L0E2BAE
L0E27D1 LDA $29
SEC
SBC #$0010
BEQ L0E2813
BVS L0E27DE
EOR #$8000
L0E27DE BPL L0E2813
PEA $0069
JSL L0B0B7A
LDA $29
STA $07
LDA $07
SEC
SBC #$0001
BVS L0E27F6
EOR #$8000
L0E27F6 BPL L0E280B
LDA #$0001
STA $8B
L0E27FD JSL L0E0000
LDA $8B
CMP $07
BEQ L0E280B
INC $8B
BRA L0E27FD
L0E280B LDA #$0001
STA $9E
BRL L0E2BAE
L0E2813 LDA $29
STA $05
LDA #$0001
SEC
SBC $05
BEQ L0E2826
BVS L0E2824
EOR #$8000
L0E2824 BMI L0E2855
L0E2826 LDA $05
STA $8B
L0E282A LDA $8B
ASL
ASL
CLC
ADC #$0027
TAX
STX $91
TDC
CLC
ADC $91
STA $91
STZ $93
PHY
PHY
JSL L0E04DE
PLA
STA [$91]
PLA
LDY #$0002
STA [$91],Y
LDA $8B
DEC
BEQ L0E2855
DEC $8B
BRA L0E282A
L0E2855 LDX #$0000
LDA [$87]
LDY #$0002
ORA [$87],Y
BNE L0E2862
INX
L0E2862 PHX
LDA $79
EOR #$0001
AND $01,S
PLX
LSR
BCS L0E2871
BRL L0E2936
L0E2871 LDA #$00D3
CLC
ADC $9A
LDX $9C
BCC L0E287C
INX
L0E287C STA $91
STX $93
PHY
JSL L150B6A
PLA
STA [$91]
LDA L05503D
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $9A
LDX $9C
BCC L0E289B
INX
L0E289B STA $91
STX $93
PHY
PEA $0001
JSL L1506E1
PLA
STA [$91]
PHY
PHY
LDY #$00CD
LDA [$9A],Y
PHA
LDY #$00CB
LDA [$9A],Y
PHA
DEY
DEY
LDA [$9A],Y
PHA
JSL L15041C
PLA
STA $87
PLX
STX $89
LDY #$00D3
LDA [$9A],Y
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $9A
LDX $9C
BCC L0E28DC
INX
L0E28DC STA $91
STX $93
PHY
LDY #$00D7
LDA [$9A],Y
PHA
JSL L1506E1
PLA
STA [$91]
LDA $87
ORA $89
BNE L0E292A
LDA $29
STA $03
LDA $03
SEC
SBC #$0001
BVS L0E2903
EOR #$8000
L0E2903 BPL L0E2927
LDA #$0001
STA $8B
L0E290A LDA $8B
ASL
ASL
CLC
ADC #$0027
TAX
LDA $02,X
PHA
LDA $00,X
PHA
JSL L07185A
LDA $8B
CMP $03
BEQ L0E2927
INC $8B
BRA L0E290A
L0E2927 BRL L0E2C35
L0E292A PHY
PEI $89
PEI $87
JSL L0718FA
PLA
STA $85
L0E2936 PEA $0000
PEI $9A
JSL L0E1AD7
LDA #$0077
CLC
ADC $9A
LDX $9C
BCC L0E294A
INX
L0E294A CLC
ADC #$003A
BCC L0E2951
INX
L0E2951 PHX
PHA
PEA $0000
PEA $0016
JSL L071EC5
LDA #$0077
CLC
ADC $9A
LDX $9C
BCC L0E2968
INX
L0E2968 STA L0553B9
STX L0553BB
JSL L0B2AC6
PHY
PHY
JSL L150493
PLA
STA $8D
PLX
STX $8F
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
LDA L0551D7
STA $83
LDA $79
BEQ L0E2999
LDA $81
STA $71
BRA L0E29D6
L0E2999 LDA #$C000
STA L0551D7
L0E299F PHY
LDA L0551D7
PHA
JSL L150598
PLA
STA $71
LDA #$030B
CMPL L05565D
BNE L0E29C0
LDA #$0100
CLC
ADC L0551D7
STA L0551D7
BRA L0E29D0
L0E29C0 LDAL L05565D
BEQ L0E29D0
PEA $002A
JSL L0B0B7A
BRL L0E2BAE
L0E29D0 LDAL L05565D
BNE L0E299F
L0E29D6 LDA $71
STA L0551D7
LDA L055205
STA $7D
LDA #$0001
STA L055205
LDA L0551D9
STA $7B
LDA $79
STA L0551D9
LDA L0551D3
LDX L0551D5
STA $75
STX $77
LDA $87
LDX $89
STA L0551D3
STX L0551D5
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA ^L052506
PEA L052506
PEA $0020
JSL L0313BE
PEA ^L052506
PEA L052506
PEA ^L0509EA
PEA L0509EA
PEA $0020
JSL L0313BE
LDA L0551DB
STA $7F
LDY #$0002
LDA [$87],Y
PHA
LDA [$87]
PHA
TDC
CLC
ADC #$0029
PEA $0000
PHA
JSL L0B4245
LDA $7D
STA L055205
LDA L0551D9
BEQ L0E2A71
LDY #$00D1
LDA [$9A],Y
BNE L0E2A6E
LDY #$00E1
LDA [$9A],Y
PHA
LDY #$00DD
LDA [$9A],Y
PHA
DEY
DEY
LDA [$9A],Y
PHA
JSL L150410
L0E2A6E BRL L0E2AFF
L0E2A71 LDY #$00D1
LDA [$9A],Y
BEQ L0E2A82
PEI $89
PEI $87
JSL L151053
BRA L0E2AFF
L0E2A82 LDA #$00D3
CLC
ADC $9A
LDX $9C
BCC L0E2A8D
INX
L0E2A8D STA $91
STX $93
PHY
JSL L150B6A
PLA
STA [$91]
LDY #$00DF
LDA [$9A],Y
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $9A
LDX $9C
BCC L0E2AAE
INX
L0E2AAE STA $91
STX $93
PHY
LDY #$00D9
LDA [$9A],Y
PHA
JSL L1506E1
PLA
STA [$91]
PEA $0002
LDY #$00E1
LDA [$9A],Y
PHA
LDY #$00DD
LDA [$9A],Y
PHA
DEY
DEY
LDA [$9A],Y
PHA
JSL L1510BF
LDY #$00D3
LDA [$9A],Y
PHA
JSL L150B70
LDA #$00D7
CLC
ADC $9A
LDX $9C
BCC L0E2AED
INX
L0E2AED STA $91
STX $93
PHY
LDY #$00D7
LDA [$9A],Y
PHA
JSL L1506E1
PLA
STA [$91]
L0E2AFF LDA $75
LDX $77
STA L0551D3
STX L0551D5
PEA ^L052506
PEA L052506
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0020
JSL L0313BE
PEI $8F
PEI $8D
JSL L151131
LDA $6F
BEQ L0E2B36
PEA $0000
PEI $9A
JSL L0E1BB5
BRA L0E2BA1
L0E2B36 LDA #$0001
STA $9E
LDX #$0000
LDA $73
DEC
BNE L0E2B44
INX
L0E2B44 TXA
LDY #$00CF
STA [$9A],Y
LDA $6B
ORA $6D
BNE L0E2B56
JSL L0E0C52
BRA L0E2B73
L0E2B56 PEI $6D
PEI $6B
JSL L150BB8
LDY #$0002
LDA [$6B],Y
PHA
LDA [$6B]
PHA
JSL L0E10BE
PEI $6D
PEI $6B
JSL L07185A
L0E2B73 LDY #$00FA
LDA [$9A],Y
EOR #$0001
CMP #$0000
BNE L0E2B87
LDY #$00CF
LDA [$9A],Y
BEQ L0E2BA1
L0E2B87 LDA L0553A7
LDX L0553A9
PHX
PHA
JSL L07185A
PHY
PHY
JSL L0E04DE
PLA
STA L0553A7
PLA
STA L0553A9
L0E2BA1 LDA L0551D9
BNE L0E2BAE
LDA L0551D7
PHA
JSL L151343
L0E2BAE LDA $29
STA $01
LDA $01
SEC
SBC #$0001
BVS L0E2BBD
EOR #$8000
L0E2BBD BPL L0E2BE1
LDA #$0001
STA $8B
L0E2BC4 LDA $8B
ASL
ASL
CLC
ADC #$0027
TAX
LDA $02,X
PHA
LDA $00,X
PHA
JSL L07185A
LDA $8B
CMP $01
BEQ L0E2BE1
INC $8B
BRA L0E2BC4
L0E2BE1 LDA L0551D9
BEQ L0E2BF3
PEI $89
PEI $87
PEA $C000
JSL L0718DA
BRA L0E2C0F
L0E2BF3 PEI $89
PEI $87
PEI $85
JSL L0718DA
LDA #$8000
AND $85
BNE L0E2C0F
PEA $0001
PEI $89
PEI $87
JSL L150D44
L0E2C0F LDA $7B
STA L0551D9
LDA $83
STA L0551D7
JSL L160704
LDA L0551DB
SEC
SBC $7F
BEQ L0E2C30
BVS L0E2C2A
EOR #$8000
L0E2C2A BPL L0E2C30
JSL L160712
L0E2C30 LDA $7F
STA L0551DB
L0E2C35 LDA $98
STA $9C
LDA $97
STA $9B
LDA $95
TCD
TSC
CLC
ADC #$009A
TCS
RTL
L0E2C47 PHD
TSC
CLC
ADC #$FEE8
TCS
ADC #$0025
TCD
LDA L05539F
LDX L0553A1
PHX
PHA
JSL L0718BF
LDA L05539F
LDX L0553A1
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
CLC
ADC #$0002
BCC L0E2C77
INX
L0E2C77 STA $DB
STX $DD
PEI $DD
PEI $DB
LDA #$00FF
AND [$DB]
JSL L150488
JSL L150F53
INC
BNE L0E2C90
INX
L0E2C90 STA $DF
STX $E1
PEI $E1
PEI $DF
LDA #$00FF
AND [$DF]
JSL L150488
JSL L150F53
INC
BNE L0E2CA9
INX
L0E2CA9 STA $E3
STX $E5
PEI $E5
PEI $E3
LDA #$00FF
AND [$E3]
JSL L150488
JSL L150F53
INC
BNE L0E2CC2
INX
L0E2CC2 STA $E7
STX $E9
PEI $E9
PEI $E7
LDA #$00FF
AND [$E7]
JSL L150488
JSL L150F53
INC
BNE L0E2CDB
INX
L0E2CDB STA $EB
STX $ED
PEI $DD
PEI $DB
PEI $E1
PEI $DF
PEI $E5
PEI $E3
PEI $E9
PEI $E7
JSL L15065F
PEI $ED
PEI $EB
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
LDA #$00FF
AND [$EB]
INC
JSL L150488
PHX
PHA
JSL L070597
LDA L05539F
LDX L0553A1
PHX
PHA
JSL L07191C
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
JSL L0B07EA
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$011E
TCS
RTL
L0E2D3B PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $005E
JSL L0B0B7A
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E2D5B PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0E
L0E2D65 LDAL L051054
SEC
SBC #$0005
BVS L0E2D72
EOR #$8000
L0E2D72 BMI L0E2DC2
PHY
PEA $0000
PEI $0A
JSL L0E1E44
PLA
BNE L0E2D8E
PHY
PEA $0000
PEI $0A
JSL L0E2531
PLA
BEQ L0E2DA7
L0E2D8E LDA #$0001
STA $0E
LDY #$00E9
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
PEA $0000
JSL L0B2AF9
BRA L0E2DC2
L0E2DA7 LDY #$00ED
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
STA L0553B9
STX L0553BB
LDAL L051054
INC
STAL L051054
BRA L0E2D65
L0E2DC2 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0E2DD3 ENT
PHD
TSC
CLC
ADC #$FE6A
TCS
ADC #$00A1
TCD
LDA #$0001
STA $FC
STZ L0553A5
STZ $CF
PHY
JSL L0B4B2B
PLA
LSR
BCC L0E2E01
LDA #$0001
STA L05539D
PEA $002B
JSL L0B0B7A
BRL L0E303C
L0E2E01 LDA $FA
STA $AF
LDA L0553B5
LDX L0553B7
STA $E7
STX $E9
LDA L0553B5
LDX L0553B7
CLC
ADC #$0008
BCC L0E2E1C
INX
L0E2E1C STA $F1
STX $F3
LDA [$F1]
STA $EF
LDA L0553B9
LDX L0553BB
STA $EB
STX $ED
TDC
CLC
ADC #$005F
PEA $0000
PHA
PEA ^L051054
PEA L051054
PEA $0018
JSL L0313BE
PEA $0000
PHD
JSL L0E1B5E
LDA #$0001
STA $E3
LDA #$0005
CMPL L051054
BNE L0E2E5D
BRL L0E2F3F
L0E2E5D PHY
PEA $0000
PHD
JSL L0E2D5B
PLA
LSR
BCC L0E2E6D
BRL L0E3006
L0E2E6D LDA L05502B
LDX L05502D
CMPL L051056
BNE L0E2E7E
TXA
CMPL L051058
L0E2E7E BEQ L0E2E85
LDA #$0000
BRA L0E2E88
L0E2E85 LDA #$0001
L0E2E88 STA $E5
LDA L055039
LDX L05503B
CMPL L051056
BNE L0E2E9B
TXA
CMPL L051058
L0E2E9B BNE L0E2EA2
LDA #$0000
BRA L0E2EA5
L0E2EA2 LDA #$0001
L0E2EA5 BNE L0E2ECA
LDA L055027
LDX L055029
CMPL L05105E
BNE L0E2EB8
TXA
CMPL L051060
L0E2EB8 BNE L0E2EBF
LDA #$0000
BRA L0E2EC2
L0E2EBF LDA #$0001
L0E2EC2 BEQ L0E2EC8
PHA
PLA
AND $E3
L0E2EC8 BEQ L0E2EE4
L0E2ECA PEA ^L051054
PEA L051054
JSL L0B0D0A
PHY
PEA $0000
PHD
JSL L0E2D5B
PLA
LSR
BCC L0E2EE4
BRL L0E3006
L0E2EE4 LDA L05502B
LDX L05502D
CMPL L051056
BNE L0E2EF5
TXA
CMPL L051058
L0E2EF5 BNE L0E2EFC
LDA #$0000
BRA L0E2EFF
L0E2EFC LDA #$0001
L0E2EFF PHA
LDA $E5
EOR #$0001
AND $01,S
PLX
LSR
BCC L0E2F3F
LDA #$0004
STAL L051054
LDA L05502B
LDX L05502D
STAL L051056
TXA
STAL L051058
LDA L055275
STAL L051068
LDA L055273
STAL L05106A
PHY
PEA $0000
PHD
JSL L0E2D5B
PLA
LSR
BCC L0E2F3F
BRL L0E3006
L0E2F3F LDA #$0005
STAL L051054
PHY
PEA $0000
PHD
JSL L0E2531
PLA
LSR
BCC L0E2F56
BRL L0E3006
L0E2F56 LDA $FA
BEQ L0E2F76
LDA #$0013
CMPL L051BDE
BNE L0E2F71
PHY
PEA $0000
PHD
JSL L0E1851
PLA
STA $FC
BRA L0E2F73
L0E2F71 STZ $FC
L0E2F73 BRL L0E3006
L0E2F76 LDA #$0009
CMPL L051BDE
BNE L0E2F98
LDA #$000B
CMPL L051BE0
BNE L0E2F8E
JSL L0B7642
BRA L0E2F96
L0E2F8E PEA $0000
PHD
JSL L0E2D3B
L0E2F96 BRA L0E3006
L0E2F98 LDA #$0012
CMPL L051BDE
BNE L0E2FAB
PEA $0000
PHD
JSL L0E1983
BRA L0E3006
L0E2FAB LDA #$0011
CMPL L051BDE
BNE L0E2FC4
L0E2FB4 LDAL L051BDE
DEC
DEC
BEQ L0E2FC2
JSL L0B0000
BRA L0E2FB4
L0E2FC2 BRA L0E3006
L0E2FC4 LDAL L051BDE
DEC
DEC
BEQ L0E3006
LDA L05539F
LDX L0553A1
STA $F1
STX $F3
LDY #$0002
LDA [$F1],Y
TAX
LDA [$F1]
STA $F1
STX $F3
LDA [$F1]
BNE L0E2FFC
PEA $005F
PEA $0000
TDC
CLC
ADC #$FF5F
PHA
JSL L0B369F
JSL L0B0841
BRA L0E3004
L0E2FFC PEA $0000
PHD
JSL L0E2C47
L0E3004 STZ $FC
L0E3006 LDA $EB
LDX $ED
STA L0553B9
STX L0553BB
LDA $CF
BEQ L0E303C
LDA L0553A7
LDX L0553A9
STA $F1
STX $F3
LDY #$0002
LDA [$F1],Y
TAX
LDA [$F1]
PHX
PHA
PEA ^L050C32
PEA L050C32
JSL L071FF8
PEA ^L050C32
PEA L050C32
JSL L0B07EA
L0E303C PHY
JSL L07005C
PLA
LSR
BCC L0E3063
LDA #$0001
STA L054FB1
JSL L0B06CE
LDA L055389
BEQ L0E3063
LDA L05538B
LDX L05538D
PHX
PHA
JSL L07185A
STZ L055389
L0E3063 LDA $F8
STA $FA
LDA $F7
STA $F9
LDA $F5
TCD
TSC
CLC
ADC #$019A
TCS
RTL