antoine-source/archiver/MONTECODE.S
Antoine Vignau b0af6d3b6c Archiver 1.0
This is the reassembly of Archiver GS by Monte Benaresh
2023-03-04 20:37:35 +01:00

8394 lines
183 KiB
ArmAsm

*
* Archiver GS
*
* (c) 1992, Apple Computer, Inc.
* (s) 2023, Antoine Vignau
*
mx %00
rel
lst off
*-----------------------------------
use MONTECODE.X
use 4/SANE.Macs
use 4/Util.Macs
*-----------------------------------
GSOS2 EQU $E100B0
*-----------------------------------
L070000 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0001
LDAL L050B1C
PHA
LDAL L050B1A
PHA
JSL L03AA55
PLY
PLY
PLD
RTL
L07001D ENT
PHD
TSC
CLC
ADC #$FEF8
TCS
ADC #$0019
TCD
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
PEI $F6
PEI $F4
PEA $0100
JSL L03B108
LDAL L050038
TAX
LDAL L050036
STA $E7
STX $E9
LDX #$0000
TDC
CLC
ADC #$FFE7
STAL L050036
TXA
STAL L050038
PHY
PEA $00A5
PEA ^L050026
PEA L050026
PEI $FA
PEI $F8
JSL L03AA67
PLA
STA $FC
LDA $E7
LDX $E9
STAL L050036
TXA
STAL L050038
LDA $F2
STA $FA
LDA $F1
STA $F9
LDA $EF
TCD
TSC
CLC
ADC #$0112
TCS
RTL
L07008E PHD
TSC
CLC
ADC #$FEE0
TCS
ADC #$0029
TCD
LDA L0600A6
LDX L0600A8
STA $D7
STX $D9
LDA #$0006
STA [$D7]
LDA #L05081E
LDX #^L05081E
LDY #$0002
STA [$D7],Y
INY
INY
TXA
STA [$D7],Y
LDA #L0507D8
LDX #^L0507D8
LDY #$0006
STA [$D7],Y
INY
INY
TXA
STA [$D7],Y
LDA L0600A6
LDX L0600A8
PHX
PHA
PEA $2008
JSL GSOS2
STAL L0612ED
LDAL L0612ED
BNE L07013D
PEA ^L05047C
PEA L05047C
PEA $0000
TDC
CLC
ADC #$FFD7
PHA
PEA ^L0507DA
PEA L0507DA
JSL L0399E0
PEA $0100
JSL L03B108
LDA #$00FF
ANDL L05047C
SEC
SBC #$000F
BEQ L070128
BVS L070113
EOR #$8000
L070113 BPL L070128
PEA ^L050B4C
PEA L050B4C
PEA ^L05047C
PEA L05047C
PEA $0010
JSL L03AAE2
L070128 PEA ^L050AB1
PEA L050AB1
PEA ^L05047C
PEA L05047C
PEA $0029
JSL L03B108
BRA L070150
L07013D PEA ^L050AB1
PEA L050AB1
PEA ^L050B4E
PEA L050B4E
PEA $000A
JSL L03B108
L070150 LDA #$0020
CMP L06008E
BNE L0701CC
LDA #$0001
STA $E1
LDA L0600C6
STA $DD
LDA L06008E
STA $DF
LDA #L050992
LDX #^L050992
STA $E3
STX $E5
LDA #L050168
LDX #^L050168
STA $ED
STX $EF
TDC
CLC
ADC #$00DB
PEA $0000
PHA
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L035931
LDX #$0000
LDA $DB
BNE L0701A7
INX
L0701A7 PHX
LDX #$0000
LDA $E1
DEC
DEC
BNE L0701B2
INX
L0701B2 TXA
AND $01,S
PLX
LSR
BCC L0701CC
PEA ^L050AB1
PEA L050AB1
PEA ^L050B58
PEA L050B58
PEA $000E
JSL L03B108
L0701CC TSC
CLC
ADC #$0120
TCS
PLD
RTL
L0701D4 PHD
TSC
CLC
ADC #$FDDC
TCS
ADC #$012F
TCD
LDA $FA
STA $DB
LDA L0600C6
STA $D7
LDA L06008E
STA $D9
LDA #L050992
LDX #^L050992
STA $DD
STX $DF
LDA #L050168
LDX #^L050168
STA $E7
STX $E9
TDC
CLC
ADC #$00D5
PEA $0000
PHA
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F1
STX $F3
LDY #$0002
LDA [$F1],Y
TAX
LDA [$F1]
PHA
JSL L035931
LDA $D5
STA $ED
LDA #$7FFF
AND $ED
BEQ L070247
PHY
PEA $0000
PEA $0000
PEA $0000
PEI $ED
JSL L03B358
PLA
STA L06006C
BRL L0705DA
L070247 LDA $DB
BPL L07024E
BRL L0705DA
L07024E CMP #$0003
BMI L070256
BRL L0705DA
L070256 SEC
SBC #$0000
BEQ L070265
DEC
BEQ L070268
DEC
BEQ L070268
BRL L0705DA
L070265 BRL L0705DA
L070268 LDA L0600C6
BEQ L070285
PHY
PHY
LDA #$2000
CLC
ADC L060014
PHA
LDA L0600C6
PHA
JSL L03B352
PLA
STA $D1
PLX
STX $D3
L070285 LDA $DB
DEC
BEQ L07028D
BRL L070316
L07028D STZ L0600D6
LDA L0600C6
BNE L0702AA
PEA ^L050840
PEA L050840
PEA ^L050B66
PEA L050B66
PEA $0019
JSL L03B108
BRA L0702F7
L0702AA LDA #$0004
AND L060092
BNE L0702C7
PEA ^L050840
PEA L050840
PEA ^L050B7F
PEA L050B7F
PEA $0019
JSL L03B108
BRA L0702F7
L0702C7 LDA #$0020
CMP L06008E
BNE L0702E4
PEA ^L050840
PEA L050840
PEA ^L050B98
PEA L050B98
PEA $001A
JSL L03B108
BRA L0702F7
L0702E4 PEA ^L050840
PEA L050840
PEA ^L050BB2
PEA L050BB2
PEA $001A
JSL L03B108
L0702F7 LDAL L050BCC
SEP #$20
STAL L050378
REP #$20
LDAL L050BCD
SEP #$20
STAL L050969
REP #$20
JSL L07008E
BRL L070584
L070316 LDA #$0001
STA L0600D6
PEA ^L050840
PEA L050840
PEA ^L050992
PEA L050992
PEA $0029
JSL L03B108
LDA $E1
STA L060038
LDA L060038
BEQ L07035C
PEA ^L050378
PEA L050378
PEA $0000
TDC
CLC
ADC #$FED1
PHA
LDA L060038
PHA
PEA $0005
JSL L03985B
PEA $0009
JSL L03B108
BRA L07036F
L07035C PEA ^L050378
PEA L050378
PEA ^L050BCE
PEA L050BCE
PEA $0009
JSL L03B108
L07036F LDA #$0020
CMP L06008E
BNE L07038C
PEA ^L050AB1
PEA L050AB1
PEA ^L050BD7
PEA L050BD7
PEA $000E
JSL L03B108
BRA L07039F
L07038C PEA ^L050AB1
PEA L050AB1
PEA ^L050BE5
PEA L050BE5
PEA $000E
JSL L03B108
L07039F LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA L0612C9
LDX L0612CB
PHX
PHA
JSL L03B17F
LDA #$8000
AND $EB
BNE L0703C3
STZ L06001E
BRA L0703C9
L0703C3 LDA #$0001
STA L06001E
L0703C9 LDA #$0004
AND $EB
BEQ L0703D3
BRL L0704D3
L0703D3 LDA #$0001
STA L060008
LDA $E3
LDX $E5
STA L060082
STX L060084
PEA ^L050969
PEA L050969
PEA $0000
TDC
CLC
ADC #$FED1
PHA
LDA L060082
LDX L060084
PHX
PHA
JSL L0398EF
PEA ^L050BF3
PEA L050BF3
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
LDA L0600C8
BEQ L070426
LDA L0600C8
STA L0600CC
L070426 STZ L0600C8
LDA #$14B2
LDX #$0000
PHX
PHA
LDA L06004C
LDX L06004E
PHX
PHA
JSL L03B208
LDA #$02AD
LDX #$0000
PHX
PHA
LDA L060068
LDX L06006A
PHX
PHA
JSL L03B208
PHY
LDA L06004C
LDX L06004E
PHX
PHA
JSL L03A481
PLA
AND #$DFFF
PHA
LDA L06004C
LDX L06004E
PHX
PHA
JSL L03A47B
LDA #L05067C
STAL L050026
LDA #^L05067C
STAL L050028
PEA $04A6
JSL L039EA9
LDA #$00FF
ANDL L05067C
BEQ L0704CA
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA #L060582
LDX #^L060582
STA L0612D1
STX L0612D3
LDA L0612C9
LDX L0612CB
PHX
PHA
JSL L03B17F
LDA L0612D1
LDX L0612D3
PHX
PHA
PEA $F000
LDA L0612C5
PHA
LDA L0612C7
PHA
JSL L03A5ED
BRA L0704D0
L0704CA STZ L0612D1
STZ L0612D3
L0704D0 BRL L070584
L0704D3 LDA #$0002
STA L060008
LDA L0600CC
STA L0600C8
LDA $E3
LDX $E5
STA L060082
STX L060084
PEA ^L050969
PEA L050969
PEA $0000
TDC
CLC
ADC #$FED1
PHA
LDA L060082
LDX L060084
PHX
PHA
PEA $0000
PEA $0002
JSL L03A3B4
PLY
PLY
PLY
PLY
PHX
PHA
JSL L0398EF
PEA ^L050BFA
PEA L050BFA
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
LDA #$02A1
LDX #$0000
PHX
PHA
LDA L060068
LDX L06006A
PHX
PHA
JSL L03B208
LDA #$04A2
LDX #$0000
PHX
PHA
LDA L06004C
LDX L06004E
PHX
PHA
JSL L03B208
PHY
LDA L06004C
LDX L06004E
PHX
PHA
JSL L03A481
PLA
ORA #$2000
PHA
LDA L06004C
LDX L06004E
PHX
PHA
JSL L03A47B
LDA L0600C8
BNE L070580
JSL L0705EC
L070580 JSL L070D25
L070584 LDA #L050840
STAL L050042
LDA #^L050840
STAL L050044
LDA #L050378
STAL L050046
LDA #^L050378
STAL L050048
LDA #L050969
STAL L05004A
LDA #^L050969
STAL L05004C
LDA #L050AB1
STAL L05003E
LDA #^L050AB1
STAL L050040
PEA $1586
JSL L039EA9
PEA $0496
JSL L039EA9
PEA $0497
JSL L039EA9
PEA $0453
JSL L039EA9
BRA L0705DA
L0705DA LDA $F8
STA $FA
LDA $F7
STA $F9
LDA $F5
TCD
TSC
CLC
ADC #$0228
TCS
RTL
L0705EC PHD
TSC
CLC
ADC #$FECA
TCS
ADC #$003F
TCD
LDA L0600C8
STA L0600C2
LDA #$0022
STAL L0507D8
JSL L03ABBC
L070608 STZ $F1
LDA #L05004E
LDX #^L05004E
STA L0600AE
STX L0600B0
LDA L0600C8
INC
STA L0600C8
LDA L0600AE
LDX L0600B0
STA $C5
STX $C7
LDA #$0008
STA [$C5]
LDA L0600C8
LDY #$0002
STA [$C5],Y
LDA #L0507D8
LDX #^L0507D8
LDY #$0004
STA [$C5],Y
INY
INY
TXA
STA [$C5],Y
LDA L0600AE
LDX L0600B0
PHX
PHA
PEA $202C
JSL GSOS2
STAL L0612ED
PEA ^L0507FC
PEA L0507FC
PEA ^L0507DA
PEA L0507DA
PEA $0022
JSL L03B108
LDA L0600AE
LDX L0600B0
CLC
ADC #$0014
BCC L070677
INX
L070677 STA $F3
STX $F5
LDA [$F3]
STA L0612D9
LDA L0600AE
LDX L0600B0
CLC
ADC #$000A
BCC L07068D
INX
L07068D STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA L06002E
STX L060030
LDA #$0011
CMPL L0612ED
BNE L0706AB
STZ L0600C8
L0706AB LDX #$0000
LDAL L0612ED
BNE L0706B5
INX
L0706B5 PHX
LDA L0600AE
LDX L0600B0
CLC
ADC #$0008
BCC L0706C3
INX
L0706C3 STA $F3
STX $F5
LDA #$0080
AND [$F3]
BEQ L0706D1
LDA #$0001
L0706D1 AND $01,S
PLX
LSR
BCS L0706DA
BRL L070608
L0706DA LDA L0600A6
LDX L0600A8
STA $C1
STX $C3
LDA #$0006
STA [$C1]
LDA #L0507FC
LDX #^L0507FC
LDY #$0002
STA [$C1],Y
INY
INY
TXA
STA [$C1],Y
LDA #L0507D8
LDX #^L0507D8
LDY #$0006
STA [$C1],Y
INY
INY
TXA
STA [$C1],Y
LDA L0600A6
LDX L0600A8
PHX
PHA
PEA $2008
JSL GSOS2
STAL L0612ED
LDAL L0612ED
BNE L070727
LDA #$0001
STA $F1
L070727 LDX #$0000
LDA $F1
DEC
BNE L070730
INX
L070730 PHX
LDX #$0000
LDA $F1
BNE L070739
INX
L070739 PHX
LDX #$0000
LDA L0600C8
CMP L0600C2
BNE L070746
INX
L070746 TXA
AND $01,S
PLX
ORA $01,S
PLX
LSR
BCS L070753
BRL L070608
L070753 LDA $F1
DEC
BEQ L07075B
BRL L070876
L07075B LDA L0600C8
STA L0600C2
PEA ^L05009E
PEA L05009E
PEA $0000
TDC
CLC
ADC #$FFC1
PHA
PEA ^L0507DA
PEA L0507DA
JSL L0399E0
PEA $0029
JSL L03B108
LDA #$00FF
ANDL L05009E
TAX
LDA #$00FF
ANDL L05009E,X
AND #$00FF
CMP #$003A
BNE L0707AB
LDA #$00FF
ANDL L05009E
AND #$00FF
DEC
SEP #$20
STAL L05009E
REP #$20
L0707AB LDA L0600A6
LDX L0600A8
CLC
ADC #$0012
BCC L0707B8
INX
L0707B8 STA $F3
STX $F5
LDA [$F3]
STA L060032
LDA L0600A6
LDX L0600A8
CLC
ADC #$0014
BCC L0707CE
INX
L0707CE STA $F3
STX $F5
LDA [$F3]
STA $C9
LDA $C9
SEC
SBC #$0200
BVS L0707E1
EOR #$8000
L0707E1 BMI L07081F
LDA L0600A6
LDX L0600A8
CLC
ADC #$000A
BCC L0707F0
INX
L0707F0 STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
PEA $0200
PEI $C9
JSL L03A181
PLX
PLX
JSL L03A5FF
PHX
PHA
JSL L03A3B4
PLY
PLY
PLY
PLY
STA L06002A
STX L06002C
BRA L070855
L07081F LDA L0600A6
LDX L0600A8
CLC
ADC #$000A
BCC L07082C
INX
L07082C STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
PEI $C9
PEA $0200
JSL L03A181
PLX
PLX
JSL L03A5FF
JSL L03ABC2
PLA
STA L06002A
PLA
STA L06002C
L070855 LDA L0600A6
LDX L0600A8
CLC
ADC #$000E
BCC L070862
INX
L070862 STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA L060026
STX L060028
BRA L07088C
L070876 STZ L0600C8
PEA ^L05009E
PEA L05009E
PEA ^L050BFD
PEA L050BFD
PEA $000C
JSL L03B108
L07088C LDA L0600C8
STA L0600CC
JSL L03B396
TSC
CLC
ADC #$0136
TCS
PLD
RTL
L07089E PHD
TSC
CLC
ADC #$FEEE
TCS
ADC #$001B
TCD
LDA L0600C6
STA L0600C2
LDA #$0022
STAL L0507D8
LDA #L05004E
LDX #^L05004E
STA L0600AE
STX L0600B0
LDA #L05004E
LDX #^L05004E
STA L0600AA
STX L0600AC
PHY
PHY
JSL L03B226
PLA
STA $E9
PLX
STX $EB
LDA L06001A
LDX L06001C
CMP $E9
BNE L0708E6
CPX $EB
L0708E6 BEQ L0708EC
JSL L03ABBC
L0708EC STZ $F1
LDA L0600C6
INC
STA L0600C6
LDA L0600AE
LDX L0600B0
STA $E5
STX $E7
LDA #$0008
STA [$E5]
LDA L0600C6
LDY #$0002
STA [$E5],Y
LDA #L0507D8
LDX #^L0507D8
LDY #$0004
STA [$E5],Y
INY
INY
TXA
STA [$E5],Y
LDA L0600AE
LDX L0600B0
PHX
PHA
PEA $202C
JSL GSOS2
STAL L0612ED
PEA ^L05081E
PEA L05081E
PEA ^L0507DA
PEA L0507DA
PEA $0022
JSL L03B108
LDA L0600AE
LDX L0600B0
CLC
ADC #$0014
BCC L07094F
INX
L07094F STA $F3
STX $F5
LDA [$F3]
STA L06008E
LDA L0600AE
LDX L0600B0
CLC
ADC #$000A
BCC L070965
INX
L070965 STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA L06008A
STX L06008C
LDA L0600AE
LDX L0600B0
CLC
ADC #$0008
BCC L070984
INX
L070984 STA $F3
STX $F5
LDA [$F3]
STA L060092
LDA L06008E
ASL
TAX
LDAL L0600E0,X
STA L060090
LDA #$0011
CMPL L0612ED
BNE L0709A5
STZ L0600C6
L0709A5 LDX #$0000
LDAL L0612ED
BNE L0709AF
INX
L0709AF PHX
LDA L06008E
SEC
SBCL L060122
BEQ L0709C6
BVS L0709BF
EOR #$8000
L0709BF BPL L0709C6
LDA #$0000
BRA L0709C9
L0709C6 LDA #$0001
L0709C9 AND $01,S
PLX
PHA
LDA L060090
BEQ L0709D5
LDA #$0001
L0709D5 AND $01,S
PLX
LSR
BCC L0709E0
LDA #$0001
STA $F1
L0709E0 LDX #$0000
LDA $F1
DEC
BNE L0709E9
INX
L0709E9 PHX
LDX #$0000
LDA $F1
BNE L0709F2
INX
L0709F2 PHX
LDX #$0000
LDA L0600C6
CMP L0600C2
BNE L0709FF
INX
L0709FF TXA
AND $01,S
PLX
ORA $01,S
PLX
LSR
BCS L070A0C
BRL L0708EC
L070A0C LDA $F1
DEC
BNE L070A86
PEA ^L050A0D
PEA L050A0D
PEA $0000
TDC
CLC
ADC #$FFE5
PHA
PEA ^L05081E
PEA L05081E
JSL L0399E0
PEA $0029
JSL L03B108
PEA ^L06006E
PEA L06006E
PEA ^L060086
PEA L060086
LDA L0600C6
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L031FA9
LDA L06006E
BEQ L070A60
LDA #$0001
L070A60 PHA
LDX #$0000
LDA L060086
ORA L060088
BNE L070A6D
INX
L070A6D TXA
ORA $01,S
PLX
LSR
BCC L070A80
LDA #$0320
LDX #$0000
STA L060086
STX L060088
L070A80 JSL L07008E
BRA L070AA8
L070A86 STZ L0600C6
PEA ^L050A0D
PEA L050A0D
PEA ^L050C09
PEA L050C09
PEA $000C
JSL L03B108
LDAL L050C15
SEP #$20
STAL L050AB1
REP #$20
L070AA8 LDA L0600C6
STA L0600CA
LDA L06001A
LDX L06001C
CMP $E9
BNE L070ABA
CPX $EB
L070ABA BEQ L070AC4
PEI $EB
PEI $E9
JSL L03ABB6
L070AC4 TSC
CLC
ADC #$0112
TCS
PLD
RTL
L070ACC PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PHY
PHY
PEA $0000
PEA $1FE9
JSL L03A8AE
JSL L03A1A0
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $03E7
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $03E7
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
PLY
PLY
PLD
RTL
L070B2C PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PHY
PHY
PEA $0000
PEA $1FE9
JSL L03A8AE
JSL L03A1A0
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $000C
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $000C
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA #$04C8
LDX #$0000
STA $05
STX $07
L070B92 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEI $07
PEI $05
JSL L03B1DE
PLA
PLX
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
STA $01
STX $03
PHY
PHY
LDA L060002
LDX L060004
PHX
PHA
LDY #$0022
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L03A1A0
PLA
PLX
STX $09
ORA $09
BEQ L070BDF
LDA #$0001
LDY #$0012
STA [$01],Y
L070BDF LDA $05
LDX $07
CMP #$04CE
BNE L070BEB
CPX #$0000
L070BEB BEQ L070BF5
INC $05
BNE L070BF3
INC $07
L070BF3 BRA L070B92
L070BF5 TSC
CLC
ADC #$000C
TCS
PLD
RTL
L070BFD PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$0011
TCD
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L03B108
LDX #$0000
TDC
CLC
ADC #$FFEF
STAL L05002E
TXA
STAL L050030
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0005
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B390
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010A
TCS
RTL
L070C7D PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L03ABBC
JSL L07089E
LDA #L050A0D
STAL L050032
LDA #^L050A0D
STAL L050034
LDA #L050AB1
STAL L05003E
LDA #^L050AB1
STAL L050040
PEA $1584
JSL L039EA9
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA L0612CD
LDX L0612CF
PHX
PHA
JSL L03B17F
LDA L0600C6
BEQ L070D17
LDA L06008E
ASL
ASL
TAX
LDAL L0604DE+2,X
PHA
LDAL L0604DE,X
PLX
STA L0612D5
STX L0612D7
LDA L0612D5
ORA L0612D7
BEQ L070D02
LDA L0612D5
LDX L0612D7
PHX
PHA
PEA $F000
LDA L0612C1
PHA
LDA L0612C3
PHA
JSL L03A5ED
L070D02 LDA #$0020
CMP L06008E
BNE L070D12
LDA #$0200
STA L060014
BRA L070D15
L070D12 STZ L060014
L070D15 BRA L070D1D
L070D17 STZ L0612D5
STZ L0612D7
L070D1D JSL L03B396
PLY
PLY
PLD
RTL
L070D25 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #L05009E
STAL L050026
LDA #^L05009E
STAL L050028
PEA $04A6
JSL L039EA9
LDA L0600C8
BEQ L070D96
LDA L0612D9
ASL
ASL
TAX
LDAL L06045A+2,X
PHA
LDAL L06045A,X
PLX
STA L0612D1
STX L0612D3
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA L0612C9
LDX L0612CB
PHX
PHA
JSL L03B17F
LDA L0612D1
ORA L0612D3
BEQ L070D94
LDA L0612D1
LDX L0612D3
PHX
PHA
PEA $F000
LDA L0612C5
PHA
LDA L0612C7
PHA
JSL L03A5ED
L070D94 BRA L070D9C
L070D96 STZ L0612D1
STZ L0612D3
L070D9C PLY
PLY
PLD
RTL
L070DA0 PHD
TSC
CLC
ADC #$FEDA
TCS
ADC #$002F
TCD
LDA #$0001
STA $FC
LDA L060006
DEC
BPL L070DB9
BRL L07122D
L070DB9 CMP #$0003
BMI L070DC1
BRL L07122D
L070DC1 SEC
SBC #$0000
BNE L070DCA
BRL L071073
L070DCA DEC
BNE L070DD0
BRL L071073
L070DD0 DEC
BEQ L070DD6
BRL L07122D
L070DD6 LDA L0600D6
EOR #$0001
AND #$00FF
PHA
LDA L060038
SEC
SBC #$0001
BEQ L070DF0
BVS L070DEE
EOR #$8000
L070DEE BMI L070DF5
L070DF0 LDA #$0000
BRA L070DF8
L070DF5 LDA #$0001
L070DF8 AND L0600D6
ORA $01,S
PLX
LSR
BCC L070E35
LDA L0600C6
BNE L070E1C
PHY
PEA $0000
PEA $0002
PEA ^L050C16
PEA L050C16
JSL L07001D
PLA
STA $ED
BRA L070E30
L070E1C PHY
PEA $0000
PEA $0002
PEA ^L050C47
PEA L050C47
JSL L07001D
PLA
STA $ED
L070E30 STZ $FC
BRL L07122D
L070E35 LDX #$0000
LDA L060008
DEC
BNE L070E3F
INX
L070E3F PHX
LDX #$0000
LDAL L050269
BNE L070E4A
INX
L070E4A TXA
AND $01,S
PLX
LSR
BCC L070E6A
PHY
PEA $0000
PEA $0002
PEA ^L050C8E
PEA L050C8E
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L070E6A LDA L06001E
BNE L070E88
PHY
PEA $0000
PEA $0002
PEA ^L050CDC
PEA L050CDC
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L070E88 LDX #$0000
LDA L060008
DEC
BNE L070E92
INX
L070E92 PHX
LDX #$0000
LDA L0600C6
BNE L070E9C
INX
L070E9C TXA
AND $01,S
PLX
LSR
BCS L070EA6
BRL L070F92
L070EA6 LDA #L05004E
LDX #^L05004E
STA $E9
STX $EB
LDA $E9
LDX $EB
STA $DD
STX $DF
LDA #$0003
STA [$DD]
LDA #L050168
LDX #^L050168
LDY #$0004
STA [$DD],Y
INY
INY
TXA
STA [$DD],Y
LDA #$0001
LDY #$0008
STA [$DD],Y
PEI $EB
PEI $E9
PEA $2010
JSL GSOS2
STAL L0612ED
LDAL L0612ED
BEQ L070F05
PHY
PEA $0000
PEA $0000
PEA $0000
LDAL L0612ED
PHA
JSL L03B358
PLA
STA $ED
STZ $FC
BRL L07122D
L070F05 LDY #$0002
LDA [$E9],Y
STA $EF
LDA #L05004E
LDX #^L05004E
STA $E1
STX $E3
LDA $E1
LDX $E3
STA $D9
STX $DB
LDA #$0002
STA [$D9]
LDA #L050269
LDX #^L050269
LDY #$0002
STA [$D9],Y
INY
INY
TXA
STA [$D9],Y
PEI $E3
PEI $E1
PEA $2038
JSL GSOS2
STAL L0612ED
LDAL L0612ED
STA $F1
LDA #L05004E
LDX #^L05004E
STA $E5
STX $E7
LDA $E5
LDX $E7
STA $D5
STX $D7
LDA #$0001
STA [$D5]
LDA $EF
LDY #$0002
STA [$D5],Y
PEI $E7
PEI $E5
PEA $2014
JSL GSOS2
STAL L0612ED
LDA $F1
BNE L070F92
PHY
PEA $0000
PEA $0002
PEA ^L050D23
PEA L050D23
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L070F92 LDX #$0000
LDA L060008
DEC
DEC
BNE L070F9D
INX
L070F9D PHX
LDA L060082
LDX L060084
PHX
PHA
LDA L06002E
LDX L060030
JSL L03AA18
BEQ L070FB9
BVS L070FB7
EOR #$8000
L070FB7 BMI L070FBE
L070FB9 LDA #$0000
BRA L070FC1
L070FBE LDA #$0001
L070FC1 AND $01,S
PLX
LSR
BCC L070FE0
PHY
PEA $0000
PEA $0002
PEA ^L050D86
PEA L050D86
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L070FE0 LDX #$0000
LDA L060008
DEC
DEC
BNE L070FEB
INX
L070FEB PHX
LDX #$0000
LDA L0600C6
BNE L070FF5
INX
L070FF5 TXA
AND $01,S
PLX
LSR
BCC L071070
PEA ^L05047C
PEA L05047C
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEA ^L050168
PEA L050168
JSL L0399E0
PEA $0100
JSL L03B108
LDA #$0002
STA $F1
L071021 LDA $F1
INC
STA $F1
LDX $F1
LDA #$00FF
ANDL L05047C,X
AND #$00FF
CMP #$003A
BNE L071021
LDA $F1
DEC
SEP #$20
STAL L05047C
REP #$20
PHA
PEA ^L05047C
PEA L05047C
PEA ^L05009E
PEA L05009E
JSL L03A487
PLA
LSR
BCC L071070
PHY
PEA $0000
PEA $0002
PEA ^L050DCB
PEA L050DCB
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L071070 BRL L07122D
L071073 LDX #$0000
LDA L060006
DEC
BNE L07107D
INX
L07107D PHX
LDX #$0000
LDA #$000D
CMP L060032
BNE L07108A
INX
L07108A TXA
AND $01,S
PLX
LSR
BCC L0710AA
PHY
PEA $0000
PEA $0002
PEA ^L050E11
PEA L050E11
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L0710AA LDX #$0000
LDA L060006
DEC
BNE L0710B4
INX
L0710B4 PHX
LDX #$0000
LDA L0600C6
BNE L0710BE
INX
L0710BE TXA
AND $01,S
PLX
LSR
BCC L071139
PEA ^L05047C
PEA L05047C
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEA ^L050168
PEA L050168
JSL L0399E0
PEA $0100
JSL L03B108
LDA #$0002
STA $F1
L0710EA LDA $F1
INC
STA $F1
LDX $F1
LDA #$00FF
ANDL L05047C,X
AND #$00FF
CMP #$003A
BNE L0710EA
LDA $F1
DEC
SEP #$20
STAL L05047C
REP #$20
PHA
PEA ^L05047C
PEA L05047C
PEA ^L05009E
PEA L05009E
JSL L03A487
PLA
LSR
BCC L071139
PHY
PEA $0000
PEA $0002
PEA ^L050E5C
PEA L050E5C
JSL L07001D
PLA
STA $ED
STZ $FC
BRL L07122D
L071139 LDA L0600C6
BNE L071141
BRL L07122B
L071141 LDA #$0004
AND L060092
BEQ L07114C
BRL L07122B
L07114C LDA #$0022
STAL L0507D8
LDA L0600A6
LDX L0600A8
STA $D1
STX $D3
LDA #$0006
STA [$D1]
LDA #L05081E
LDX #^L05081E
LDY #$0002
STA [$D1],Y
INY
INY
TXA
STA [$D1],Y
LDA #L0507D8
LDX #^L0507D8
LDY #$0006
STA [$D1],Y
INY
INY
TXA
STA [$D1],Y
LDA L0600A6
LDX L0600A8
PHX
PHA
PEA $2008
JSL GSOS2
STAL L0612ED
PEA ^L05047C
PEA L05047C
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
PEA ^L0507DA
PEA L0507DA
JSL L0399E0
PEA $0100
JSL L03B108
LDX #$0000
LDAL L0612ED
BNE L0711BF
INX
L0711BF PHX
PHA
PEA ^L05047C
PEA L05047C
PEA ^L050425
PEA L050425
JSL L03A487
PLA
STA $F3
PLA
AND $F3
BEQ L0711F1
PHY
PEA $0000
PEA $0002
PEA ^L050E96
PEA L050E96
JSL L07001D
PLA
STA $ED
STZ $ED
BRA L071225
L0711F1 LDA L0600C8
CMP L0600C6
BNE L071211
PHY
PEA $0000
PEA $0002
PEA ^L050F03
PEA L050F03
JSL L07001D
PLA
STA $ED
STZ $ED
BRA L071225
L071211 PHY
PEA $0000
PEA $0004
PEA ^L050F85
PEA L050F85
JSL L07001D
PLA
STA $ED
L071225 LDA $ED
BNE L07122B
STZ $FC
L07122B BRA L07122D
L07122D TSC
CLC
ADC #$0126
TCS
PLD
RTL
L071235 PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA $14
SEC
SBC #$0136
STA $09
LDA $09
ASL
ASL
TAX
LDAL L061224,X
PHA
LDAL L061222,X
PLX
STA $01
STX $03
LDA #$0000
STAL L0601BE
LDA $09
ASL
TAX
LDAL L061242,X
STAL L0601C0
LDA $09
ASL
ASL
TAX
LDAL L06124C,X
PHA
LDAL L06124A,X
PLX
STAL L0601C2
TXA
STAL L0601C4
LDX #$0000
LDA #$0136
CMP $14
BNE L07128E
INX
L07128E PHX
LDX #$0000
LDA #$0138
CMP $14
BNE L07129A
INX
L07129A TXA
ORA $01,S
PLX
LSR
BCC L0712C6
PEA $0064
PEA $001E
PEA $0002
PEI $03
PEI $01
PEA $0000
PEA $0000
PEA ^L0601BC
PEA L0601BC
PEA ^L0601C6
PEA L0601C6
JSL L03B346
BRA L0712F7
L0712C6 LDA $09
ASL
ASL
TAX
LDAL L061234,X
PHA
LDAL L061232,X
PLX
STA $05
STX $07
PEA $0064
PEA $001E
PEA $0002
PEI $03
PEI $01
PEA $0002
PEI $07
PEI $05
PEA ^L0601C6
PEA L0601C6
JSL L03A5F9
L0712F7 LDAL L0601C6
BEQ L071355
JSL L03ABBC
PEA ^L0500C7
PEA L0500C7
PEA ^L06006E
PEA L06006E
PEI $09
PEA ^L060208
PEA L060208
PEA ^L05044E
PEA L05044E
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
PHA
JSL L031CE7
JSL L03B396
LDA L06006E
BEQ L071355
PHY
PEA $0000
PEA $0000
PEA $0000
LDA L06006E
PHA
JSL L03B358
PLA
STA L06006C
L071355 LDAL L0601C6
STA $16
LDA #$0137
CMP $14
BNE L07136D
PEA $0000
LDA L060012
PHA
JSL L03A62D
L07136D LDA $12
STA $14
LDA $11
STA $13
LDA $0F
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L07137F PHD
TSC
CLC
ADC #$FFAE
TCS
TCD
PHY
PEA $0000
PEA $0009
PEA ^L05101A
PEA L05101A
JSL L07001D
PLA
STA L06006C
LDA L06006C
BNE L0713AA
LDA #$8010
STA L0600C4
BRL L0714F5
L0713AA LDA L06006C
DEC
DEC
BNE L071416
PHY
PEA $0136
JSL L071235
PLA
LSR
BCS L0713BF
BRA L07141B
L0713BF JSL L03B396
LDA L06006E
BNE L071416
PHA
PEA ^L05009E
PEA L05009E
PEA ^L05044E
PEA L05044E
JSL L03A5AB
PLA
LSR
BCC L0713F4
PHY
PEA $0000
PEA $0008
PEA ^L05101B
PEA L05101B
JSL L07001D
PLA
STA L06006C
BRA L0713FA
L0713F4 LDA #$0001
STA L06006C
L0713FA LDA L06006C
DEC
BNE L071405
STZ L06000E
BRA L071416
L071405 LDA #$0001
STA L06000E
LDA #$0600
ORA L0600DC
PHA
JSL L03B1D8
L071416 LDA L06000E
BEQ L071483
L07141B PEA ^L051063
PEA L051063
PEA ^L05009E
PEA L05009E
PEA ^L051082
PEA L051082
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0003
JSL L03A8DC
JSL L070BFD
JSL L03ABBC
PEA ^L0500C7
PEA L0500C7
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $4F
STX $51
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
PHA
JSL L0306C6
LDAL L0500C7
STA L0600C4
JSL L03B396
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
L071483 LDAL L0500C9
STA L06009E
LDAL L0500CD
TAX
LDAL L0500CB
STA L06007A
STX L06007C
LDAL L0500D3
STA L0600A0
LDAL L0500D1
TAX
LDAL L0500CF
STA L06007E
STX L060080
LDA L0600C4
BEQ L0714F5
LDA #$7FFF
AND L0600C4
SEC
SBC #$0054
CMP #$0001
SEC
SBC #$0000
BEQ L0714C9
BRA L0714E0
L0714C9 PHY
PEA $0000
PEA $0002
PEA ^L051086
PEA L051086
JSL L07001D
PLA
STA L06006C
BRA L0714F5
L0714E0 PHY
PEA $0000
PEA $0002
PEA ^L0510B5
PEA L0510B5
JSL L07001D
PLA
STA L06006C
L0714F5 TSC
CLC
ADC #$0052
TCS
PLD
RTL
L0714FD PHD
TSC
CLC
ADC #$FDB0
TCS
ADC #$0159
TCD
TDC
CLC
ADC #$00C9
PEA $0000
PHA
PEA ^L05110C
PEA L05110C
PEA $000E
JSL L03B108
LDA L0600A0
DEC
BNE L071537
TDC
CLC
ADC #$00C9
PEA $0000
PHA
PEA $0006
PEA $0001
JSL L03A96C
L071537 PEA ^L050ADA
PEA L050ADA
PEA $0000
TDC
CLC
ADC #$FEC9
PHA
LDA L0600A0
PHA
PEA $0005
JSL L03985B
TDC
CLC
ADC #$00C9
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFC9
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
PEA ^L050B03
PEA L050B03
PEA $0000
TDC
CLC
ADC #$FEC9
PHA
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
LDA L06007E
LDX L060080
TXY
LDX #$FEC5
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FEC5
PHA
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEA $000A
JSL L03B108
PEA $0000
TDC
CLC
ADC #$FEA7
PHA
PEA $0000
TDC
CLC
ADC #$FEA7
PHA
PEA ^L05111A
PEA L05111A
PEA $000A
JSL L03B108
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
PEA $0006
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEB1
PHA
JSL L03B238
JSL L0398EF
PEA $0010
JSL L03B108
LDX #$0000
LDA #$0003
CMP L060006
BEQ L07161C
INX
L07161C PHX
LDA L0600C6
BEQ L071625
LDA #$0001
L071625 AND $01,S
PLX
LSR
BCS L07162E
BRL L07176A
L07162E PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
LDA L06007E
LDX L060080
PHX
PHA
LDA L0600A0
PEA $008C
JSL L03AA73
PLA
LDX #$0000
BIT #$8000
BEQ L071655
DEX
L071655 JSL L03ADB9
TXY
LDX #$FFC5
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FFC5
PHA
PEA $0000
TDC
CLC
ADC #$FFBB
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FFBB
PHA
PEA $000A
JSL L03B108
PEA $0000
TDC
CLC
ADC #$FFAD
PHA
LDA L060086
LDX L060088
PEA $0000
PEA $0400
JSL L03ABC2
LDX #$FFAD
PLA
STA $00,X
PLA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
PEA $0306
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
JSL L03A0CE
PLA
PLX
INC
BNE L0716D6
INX
L0716D6 STA L0600A4
LDA #$0020
CMP L06008E
BNE L0716F9
TDC
CLC
ADC #$00DE
PEA $0000
PHA
PEA ^L051124
PEA L051124
PEA $000E
JSL L03B108
BRA L07170F
L0716F9 TDC
CLC
ADC #$00DE
PEA $0000
PHA
PEA ^L051132
PEA L051132
PEA $000E
JSL L03B108
L07170F LDA L0600A4
DEC
BNE L071728
TDC
CLC
ADC #$00DE
PEA $0000
PHA
PEA $0006
PEA $0001
JSL L03A96C
L071728 PEA ^L050A88
PEA L050A88
PEA ^L051140
PEA L051140
PEA $0000
TDC
CLC
ADC #$FEC9
PHA
LDA L0600A4
PHA
PEA $0005
JSL L03985B
TDC
CLC
ADC #$00DE
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFC9
PHA
PEA $0003
JSL L03A8DC
PEA $0029
JSL L03B108
BRA L071776
L07176A LDAL L051149
SEP #$20
STAL L050A88
REP #$20
L071776 PEA $0446
JSL L039EA9
TSC
CLC
ADC #$0250
TCS
PLD
RTL
L071785 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #L06040C
STAL L050042
LDA #^L06040C
STAL L050044
LDA #L06040C
STAL L050046
LDA #^L06040C
STAL L050048
LDA #L06040C
STAL L05004A
LDA #^L06040C
STAL L05004C
PEA $0001
JSL L0701D4
LDA #$0001
STA L0600D0
PLY
PLY
PLD
RTL
L0717C8 PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
STZ L06003A
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PHY
PHY
PEA $0000
PEA $1FE9
JSL L03A8AE
JSL L03A1A0
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0008
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA #$0460
STA $09
L07182C LDA $09
SEC
SBC #$0460
ASL
ASL
TAX
TXA
CLC
ADC #L050784
LDX #^L050784
BCC L071840
INX
L071840 STA $0B
STX $0D
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
LDA $09
JSL L03A5FF
PHX
PHA
JSL L03B1DE
PLA
STA [$0B]
PLA
LDY #$0002
STA [$0B],Y
LDA #$0472
CMP $09
BEQ L07186E
INC $09
BRA L07182C
L07186E PHY
PHY
JSL L03A475
PLA
STA $01
PLX
STX $03
STZ $09
L07187C LDA #$0467
CLC
ADC $09
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A46F
PEA $0000
PEA $0000
PEA $0467
JSL L03A63F
LDA $09
INC
DEC
ASL
TAX
LDA #$0464
CLC
ADC $09
STAL L050372,X
LDA $09
ASL
TAX
LDA #$0004
STAL L0500D5,X
LDA #$0002
CMP $09
BEQ L0718CA
INC $09
BRA L07187C
L0718CA PEI $03
PEI $01
JSL L03A46F
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L0718DA PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDAL L050B3A
DEC
BNE L071946
PEA $0002
PEA ^L060072
PEA L060072
PEA ^L060022
PEA L060022
PEA ^L0507D0
PEA L0507D0
PEA ^L060070
PEA L060070
LDA L0600D8
LDX L0600DA
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHA
JSL L0313CC
LDA L060070
BNE L071930
LDA #L06040C
STAL L050042
LDA #^L06040C
STAL L050044
BRA L07193F
L071930 LDA L060022
LDX L060024
STAL L050042
TXA
STAL L050044
L07193F PEA $0605
JSL L039EA9
L071946 PLY
PLY
PLD
RTL
L07194A PHD
TSC
CLC
ADC #$FDF3
TCS
ADC #$0118
TCD
PEI $FA
PEA ^L060072
PEA L060072
PEA ^L060076
PEA L060076
PEA ^L0507D0
PEA L0507D0
PEA ^L060070
PEA L060070
LDA L0600D8
LDX L0600DA
STA $F1
STX $F3
LDY #$0002
LDA [$F1],Y
TAX
LDA [$F1]
PHA
JSL L0313CC
LDA L060072
BEQ L0719B2
LDAL L05114A
SEP #$20
STAL L050940
REP #$20
LDAL L05114B
SEP #$20
STAL L050A5F
REP #$20
LDAL L05114C
SEP #$20
STAL L050A36
REP #$20
BRL L071AAB
L0719B2 LDA $FA
DEC
BEQ L0719BA
BRL L071A68
L0719BA LDA L060070
PHA
TDC
CLC
ADC #$00ED
PEA $0000
PHA
PEA $0004
JSL L03AA0C
SEP #$20
LDA #$04
STA $EC
REP #$20
TDC
CLC
ADC #$00E8
PEA $0000
PHA
LDA L060070
PHA
LDA L0600D8
LDX L0600DA
STA $F1
STX $F3
LDY #$0002
LDA [$F1],Y
TAX
LDA [$F1]
PHA
JSL L03291B
PEA ^L050A5F
PEA L050A5F
PEI $EA
PEI $E8
PEA ^L05114D
PEA L05114D
TDC
CLC
ADC #$00EC
PEA $0000
PHA
PEA ^L051151
PEA L051151
PEA $0000
TDC
CLC
ADC #$FFE8
PHA
PEA $0004
JSL L03A8DC
PEA $0029
JSL L03B108
PEA ^L050A36
PEA L050A36
PEA ^L051153
PEA L051153
PEA $0000
TDC
CLC
ADC #$FEE8
PHA
PEA ^L0507D0
PEA L0507D0
JSL L0396ED
PEA $0000
TDC
CLC
ADC #$FFE8
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
BRA L071AAB
L071A68 PEA ^L050A5F
PEA L050A5F
PEA $0000
TDC
CLC
ADC #$FEE8
PHA
LDA L060070
PHA
PEA $0005
JSL L03985B
PEA ^L051160
PEA L051160
PEA $0000
TDC
CLC
ADC #$FFE8
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
LDAL L051167
SEP #$20
STAL L050A36
REP #$20
L071AAB LDA L060072
BNE L071AEA
PEA ^L050940
PEA L050940
PEA $0000
TDC
CLC
ADC #$FEE8
PHA
LDA L060076
LDX L060078
PHX
PHA
JSL L0398EF
PEA ^L051168
PEA L051168
PEA $0000
TDC
CLC
ADC #$FFE8
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
BRA L071AF6
L071AEA LDAL L05116F
SEP #$20
STAL L050940
REP #$20
L071AF6 LDA #L050940
STAL L05003E
LDA #^L050940
STAL L050040
LDA #L050A5F
STAL L050042
LDA #^L050A5F
STAL L050044
LDA #L050A36
STAL L050046
LDA #^L050A36
STAL L050048
PEA $0270
JSL L039EA9
LDA $F8
STA $FA
LDA $F7
STA $F9
LDA $F5
TCD
TSC
CLC
ADC #$0211
TCS
RTL
L071B39 PHD
TSC
CLC
ADC #$FDD6
TCS
ADC #$0133
TCD
PEA ^L050B13
PEA L050B13
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
LDA L06009E
PHA
PEA $0005
JSL L03985B
PEA $0007
JSL L03B108
LDA L060006
DEC
DEC
BEQ L071B6F
BRL L071C24
L071B6F PEA ^L050969
PEA L050969
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FED7
PHA
LDA L06007A
LDX L06007C
TXY
LDX #$FEEB
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FEEB
PHA
PEA $0000
TDC
CLC
ADC #$FEE1
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FEE1
PHA
PEA $000A
JSL L03B108
PEA $0000
TDC
CLC
ADC #$FECD
PHA
PEA $0000
TDC
CLC
ADC #$FECD
PHA
PEA ^L051170
PEA L051170
PEA $000A
JSL L03B108
PEA $0000
TDC
CLC
ADC #$FED7
PHA
PEA $0006
_SANEFP816
PEA $0000
TDC
CLC
ADC #$FED7
PHA
JSL L03B238
JSL L0398EF
PEA ^L05117A
PEA L05117A
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEA $0002
JSL L03A8DC
PEA $0029
JSL L03B108
L071C24 LDA #$0003
CMP L060006
BNE L071C9C
LDA #L050840
STAL L050026
LDA #^L050840
STAL L050028
LDA #L050A0D
STAL L05002E
LDA #^L050A0D
STAL L050030
LDA L060008
DEC
DEC
BNE L071C5F
LDA #L05009E
STAL L05004A
LDA #^L05009E
STAL L05004C
BRA L071C9A
L071C5F PEA ^L05067C
PEA L05067C
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
PEA ^L050269
PEA L050269
JSL L0399E0
PEA $0100
JSL L03B108
PEA $01C2
PEA ^L05067C
PEA L05067C
JSL L039F3E
LDA #L05067C
STAL L05004A
LDA #^L05067C
STAL L05004C
L071C9A BRA L071D08
L071C9C LDA #L05009E
STAL L050026
LDA #^L05009E
STAL L050028
LDA #L050B13
STAL L05002E
LDA #^L050B13
STAL L050030
LDA L0600C6
BEQ L071CCD
LDA #L050A0D
STAL L05004A
LDA #^L050A0D
STAL L05004C
BRA L071D08
L071CCD PEA ^L05057C
PEA L05057C
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
PEA ^L050168
PEA L050168
JSL L0399E0
PEA $0100
JSL L03B108
PEA $01C2
PEA ^L05057C
PEA L05057C
JSL L039F3E
LDA #L05057C
STAL L05004A
LDA #^L05057C
STAL L05004C
L071D08 LDA #L050969
STAL L05002A
LDA #^L050969
STAL L05002C
LDA #L050940
STAL L05003E
LDA #^L050940
STAL L050040
LDA #L050A5F
STAL L050042
LDA #^L050A5F
STAL L050044
LDA #L050A36
STAL L050046
LDA #^L050A36
STAL L050048
LDA #L050ADA
STAL L050032
LDA #^L050ADA
STAL L050034
LDA #L050B03
STAL L050036
LDA #^L050B03
STAL L050038
LDA #L050A88
STAL L05003A
LDA #^L050A88
STAL L05003C
LDAL L051182
SEP #$20
STAL L050940
REP #$20
LDAL L051183
SEP #$20
STAL L050A5F
REP #$20
LDAL L051184
SEP #$20
STAL L050A36
REP #$20
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A39B
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $0006
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0006
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA #$0003
CMP L060006
BNE L071E3E
LDA #$0274
LDX #$0000
PHX
PHA
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0273
JSL L03B1DE
JSL L03B208
PEA $0273
JSL L039E39
LDA #$02AF
LDX #$0000
PHX
PHA
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0443
JSL L03B1DE
JSL L03B208
PEA $0443
JSL L039E39
L071E3E JSL L0714FD
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0440
JSL L03B1DE
PLA
STA L060060
PLA
STA L060062
PEA $0000
PEA ^L0600BA
PEA L0600BA
PEA ^L0600BC
PEA L0600BC
PEA ^L0600B2
PEA L0600B2
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L030E24
PEA ^L0321C0
PEA L0321C0
PEA $0001
LDA L0600B2
LDX L0600B4
PHX
PHA
PEA $0000
LDA L0600BC
PHA
LDA L060060
LDX L060062
PHX
PHA
JSL L03A5E7
PEA ^L06006E
PEA L06006E
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L032A71
LDA L06006E
BEQ L071EED
PHY
PEA $0000
PEA $0003
PEA ^L051185
PEA L051185
JSL L07001D
PLA
STA L06006C
L071EED PEA $0001
JSL L07194A
TSC
CLC
ADC #$022A
TCS
PLD
RTL
L071EFC PHD
TSC
CLC
ADC #$FEEA
TCS
ADC #$001F
TCD
LDA L0600C6
BNE L071F58
PEA ^L05057C
PEA L05057C
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
PEA ^L050168
PEA L050168
JSL L0399E0
PEA $0100
JSL L03B108
LDA #$0003
CMP L060006
BNE L071F3B
LDA #$00B4
STA $E1
BRA L071F40
L071F3B LDA #$0136
STA $E1
L071F40 PEI $E1
PEA ^L05057C
PEA L05057C
JSL L039F3E
LDA #L05057C
LDX #^L05057C
STA $E3
STX $E5
BRA L071F62
L071F58 LDA #L050A0D
LDX #^L050A0D
STA $E3
STX $E5
L071F62 LDA #$0003
CMP L060006
BEQ L071F6D
BRL L072012
L071F6D LDA L060008
DEC
DEC
BNE L071F84
LDA #L05009E
STAL L050032
LDA #^L05009E
STAL L050034
BRA L071FBF
L071F84 PEA ^L05067C
PEA L05067C
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
PEA ^L050269
PEA L050269
JSL L0399E0
PEA $0100
JSL L03B108
PEA $0136
PEA ^L05067C
PEA L05067C
JSL L039F3E
LDA #L05067C
STAL L050032
LDA #^L05067C
STAL L050034
L071FBF LDA $E3
LDX $E5
STAL L050026
TXA
STAL L050028
LDA #L06040D
LDX #^L06040D
STA $E7
STX $E9
LDA L060008
DEC
DEC
BNE L07200F
PEA ^L050B03
PEA L050B03
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
LDA L060082
LDX L060084
PHX
PHA
PEA $0000
PEA $0002
JSL L03A3B4
PLY
PLY
PLY
PLY
PHX
PHA
JSL L0398EF
PEA $0010
JSL L03B108
L07200F BRL L0720D9
L072012 LDA #L05009E
STAL L050026
LDA #^L05009E
STAL L050028
LDA $E3
LDX $E5
STAL L050032
TXA
STAL L050034
LDA L060006
DEC
BEQ L072036
BRL L0720D5
L072036 LDA #L060415
LDX #^L060415
STA $E7
STX $E9
LDA L06002A
LDX L06002C
PHX
PHA
PEA $0000
PEA $0002
JSL L03A3B4
PLY
PLY
PLY
PLY
STA L060082
STX L060084
LDA #$0200
AND L060002
BEQ L072067
LDA #$0001
L072067 PHA
LDX #$0000
LDA L060032
DEC
BNE L072072
INX
L072072 PHX
LDX #$0000
LDA #$0006
CMP L060032
BNE L07207F
INX
L07207F TXA
ORA $01,S
PLX
AND $01,S
PLX
LSR
BCC L0720B1
LDA L060082
LDX L060084
PHX
PHA
LDA L060026
LDX L060028
PHX
PHA
PEA $0000
PEA $0002
JSL L03A3B4
PLY
PLY
PLY
PLY
JSL L03B1AC
STA L060082
STX L060084
L0720B1 PEA ^L050B03
PEA L050B03
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
LDA L060082
LDX L060084
PHX
PHA
JSL L0398EF
PEA $0010
JSL L03B108
BRA L0720D9
L0720D5 STZ $E7
STZ $E9
L0720D9 PEA ^L050840
PEA L050840
PEA ^L050992
PEA L050992
PEA $0029
JSL L03B108
PEA $0140
PHY
PEI $E5
PEI $E3
JSL L03A8A1
PLA
STA $F3
PLA
SEC
SBC $F3
PHA
PEA ^L050840
PEA L050840
JSL L039F3E
LDA #L050840
STAL L050042
LDA #^L050840
STAL L050044
LDA #L050B03
STAL L05002E
LDA #^L050B03
STAL L050030
LDA #L06040C
STAL L05002A
LDA #^L06040C
STAL L05002C
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A39B
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEI $E9
PEI $E7
PEA $0000
PEA $0009
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0009
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA L060006
DEC
BPL L072195
BRL L0722BC
L072195 CMP #$0003
BMI L07219D
BRL L0722BC
L07219D SEC
SBC #$0000
BEQ L0721AC
DEC
BEQ L0721AC
DEC
BEQ L0721AF
BRL L0722BC
L0721AC BRL L0722BC
L0721AF PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0290
JSL L03B1DE
JSL L03AA06
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0480
JSL L03B1DE
JSL L03AA06
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0484
JSL L03B1DE
PLA
STA $EF
PLX
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
STA $EB
STX $ED
LDA #$0008
CLC
ADC $EB
LDX $ED
BCC L072210
INX
L072210 CLC
ADC #$0002
BCC L072217
INX
L072217 STA $F3
STX $F5
LDA [$F3]
PHA
LDY #$0008
LDA [$EB],Y
SEC
SBC #$0019
PHA
PEI $F1
PEI $EF
JSL L03AA00
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0487
JSL L03B1DE
PLA
STA $EF
PLX
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
STA $EB
STX $ED
LDA #$0008
CLC
ADC $EB
LDX $ED
BCC L072261
INX
L072261 CLC
ADC #$0002
BCC L072268
INX
L072268 STA $F3
STX $F5
LDA [$F3]
PHA
LDY #$0008
LDA [$EB],Y
SEC
SBC #$0019
PHA
PEI $F1
PEI $EF
JSL L03AA00
LDA #$008D
LDX #$0000
PHX
PHA
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0483
JSL L03B1DE
JSL L03B208
PEA $0483
JSL L039E39
PEA ^L06040D
PEA L06040D
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03ADCD
BRA L0722BC
L0722BC TSC
CLC
ADC #$0116
TCS
PLD
RTL
L0722C4 PHD
TSC
CLC
ADC #$FFD3
TCS
TCD
JSL L03ABBC
PEA ^L0600BA
PEA L0600BA
PEA ^L0600BE
PEA L0600BE
PEA ^L0600B6
PEA L0600B6
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $2A
STX $2C
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
PHA
JSL L032603
JSL L03B396
LDA L0600BA
BEQ L07231F
PHY
PEA $0000
PEA $0000
PEA $0000
LDA L0600BA
PHA
JSL L03B358
PLA
STA L06006C
BRL L072455
L07231F PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PHY
PHY
PEA $0000
PEA $1FE9
JSL L03A8AE
JSL L03A1A0
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $000E
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $04E0
JSL L03B1DE
PLA
STA L060054
PLA
STA L060056
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $04E3
JSL L03B1DE
PLA
STA L060058
PLA
STA L06005A
LDA L060058
LDX L06005A
STA $2A
STX $2C
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
CLC
ADC #$001C
BCC L0723D0
INX
L0723D0 STA $2A
STX $2C
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
STA L06003C
STX L06003E
PEA ^L032561
PEA L032561
PEA $0001
LDA L0600B6
LDX L0600B8
PHX
PHA
PEA $0000
LDA L0600BE
PHA
LDA L060054
LDX L060056
PHX
PHA
JSL L03A5E7
PEA ^L0503FC
PEA L0503FC
PEA ^L060036
PEA L060036
LDA L0600D8
LDX L0600DA
STA $2A
STX $2C
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
PHA
JSL L03288D
PEA ^L050477
PEA L050477
PEA ^L0503FC
PEA L0503FC
PEA $0002
PEA $0004
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L03A1B9
PEA $0005
JSL L03B108
LDA #$0001
STA L0600D4
L072455 LDA $31
STA $35
LDA $30
STA $34
LDA $2E
TCD
TSC
CLC
ADC #$0033
TCS
RTL
L072467 PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA ^L050B13
PEA L050B13
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
LDA L060034
PHA
PEA $0005
JSL L03985B
PEA $0007
JSL L03B108
LDA #L05009E
STAL L050026
LDA #^L05009E
STAL L050028
LDA #L050B13
STAL L05002E
LDA #^L050B13
STAL L050030
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A39B
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $0013
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0013
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0602
JSL L03B1DE
PLA
STA L060064
PLA
STA L060066
PEA $8000
PEA ^L0600BA
PEA L0600BA
PEA ^L0600BC
PEA L0600BC
PEA ^L0600B2
PEA L0600B2
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L030E24
PEA ^L0321C0
PEA L0321C0
PEA $0001
LDA L0600B2
LDX L0600B4
PHX
PHA
PEA $0000
LDA L0600BC
PHA
LDA L060064
LDX L060066
PHX
PHA
JSL L03A5E7
JSL L0718DA
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L072579 PHD
TSC
CLC
ADC #$FF55
TCS
TCD
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PHY
PHY
PEA $0000
PEA $1FE9
JSL L03A8AE
JSL L03A1A0
PLA
STA L0612DB
PLA
STA L0612DD
JSL L03ABBC
LDA #$0001
STA L0600D2
STZ L060034
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0487
JSL L03B1DE
JSL L03A9FA
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0484
JSL L03B1DE
JSL L03A9FA
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $048A
JSL L03B1DE
JSL L03A9FA
PEA $00FF
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0482
JSL L03B1DE
JSL L03A9F4
LDA L060006
DEC
BPL L07261C
BRL L0727D1
L07261C CMP #$0003
BMI L072624
BRL L0727D1
L072624 SEC
SBC #$0000
BNE L07262D
BRL L0726C3
L07262D DEC
BNE L072633
BRL L0726C3
L072633 DEC
BEQ L072639
BRL L0727D1
L072639 LDA L0600C6
STA $6B
LDA #L050269
LDX #^L050269
STA $6F
STX $71
LDA #L050168
LDX #^L050168
STA $73
STX $75
LDA L06007E
LDX L060080
STA $77
STX $79
LDA L060008
DEC
BNE L07268C
TDC
CLC
ADC #$0069
PEA $0000
PHA
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $A8
STX $AA
LDY #$0002
LDA [$A8],Y
TAX
LDA [$A8]
PHA
JSL L0366AD
LDA $69
STA $67
BRA L0726C0
L07268C PEA ^L050168
PEA L050168
PEA ^L05009E
PEA L05009E
LDA L0600C6
PHA
TDC
CLC
ADC #$0067
PEA $0000
PHA
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $A8
STX $AA
LDY #$0002
LDA [$A8],Y
TAX
LDA [$A8]
PHA
JSL L039161
L0726C0 BRL L0727D1
L0726C3 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $0480
JSL L03B1DE
PLA
STA $A4
PLX
STX $A6
PEA $00FF
PEI $A6
PEI $A4
JSL L03A9F4
LDY #$0002
LDA [$A4],Y
TAX
LDA [$A4]
CLC
ADC #$001C
BCC L0726F7
INX
L0726F7 STA $A8
STX $AA
LDY #$0002
LDA [$A8],Y
TAX
LDA [$A8]
STA $A0
STX $A2
LDY #$0002
LDA [$A0],Y
TAX
LDA [$A0]
STA $A8
STX $AA
LDY #$0002
LDA [$A8],Y
TAX
LDA [$A8]
STA $9C
STX $9E
LDY #$0002
LDA [$A0],Y
TAX
LDA [$A0]
CLC
ADC #$0004
BCC L07272E
INX
L07272E STA $A8
STX $AA
LDA [$A8]
STA $9A
LDA L060006
DEC
DEC
BNE L07277D
PEA ^L060034
PEA L060034
PEA ^L050168
PEA L050168
TDC
CLC
ADC #$0067
PEA $0000
PHA
PEI $9A
PEI $9E
PEI $9C
LDA L060092
PHA
LDA L0600C6
PHA
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $A8
STX $AA
LDY #$0002
LDA [$A8],Y
TAX
LDA [$A8]
PHA
JSL L03547E
BRA L0727CF
L07277D LDA L060026
LDX L060028
PHX
PHA
LDA L06002A
LDX L06002C
PHX
PHA
LDA L060032
PHA
PEA ^L05009E
PEA L05009E
PEA ^L050168
PEA L050168
TDC
CLC
ADC #$0067
PEA $0000
PHA
PEI $9A
PEI $9E
PEI $9C
LDA L060092
PHA
LDA L0600C6
PHA
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $A8
STX $AA
LDY #$0002
LDA [$A8],Y
TAX
LDA [$A8]
PHA
JSL L03861B
L0727CF BRA L0727D1
L0727D1 STZ L0600D2
JSL L03B396
LDX #$0000
LDA $67
BNE L0727E0
INX
L0727E0 PHX
LDA L060034
BEQ L0727E9
LDA #$0001
L0727E9 AND $01,S
PLX
LSR
BCC L07282A
PEA $4005
JSL L03A5E1
PHY
PEA $0000
PEA $0008
PEA ^L0511D1
PEA L0511D1
JSL L07001D
PLA
STA L06006C
LDA L06006C
DEC
BNE L07282A
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L072467
BRL L0729F1
L07282A LDA $67
BNE L072874
PEA $4005
JSL L03A5E1
PHY
PEA $0000
PEA $0005
PEA ^L05121B
PEA L05121B
JSL L07001D
PLA
STA L06006C
LDA L06006C
BNE L072857
LDA #$0001
STA L0600CE
BRA L072871
L072857 LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L074AF9
JSL L074538
L072871 BRL L0729F1
L072874 LDA #$8000
AND $67
BEQ L07287E
BRL L0729E9
L07287E PEA $400C
JSL L03A5E1
LDAL L0370C6
BNE L0728A3
TDC
CLC
ADC #$007B
PEA $0000
PHA
PEA ^L05121C
PEA L05121C
PEA $0007
JSL L03B108
BRA L0728B9
L0728A3 TDC
CLC
ADC #$007B
PEA $0000
PHA
PEA ^L051223
PEA L051223
PEA $000C
JSL L03B108
L0728B9 LDA $67
SEC
SBC #$0027
BPL L0728C4
BRL L0729D5
L0728C4 CMP #$002E
BMI L0728CC
BRL L0729D5
L0728CC SEC
SBC #$0000
BEQ L072904
DEC
BEQ L07293B
SEC
SBC #$0007
BEQ L07293B
SEC
SBC #$0016
BEQ L07293B
DEC
DEC
DEC
BNE L0728E9
BRL L072971
L0728E9 DEC
BNE L0728EF
BRL L072971
L0728EF SEC
SBC #$0005
BNE L0728F8
BRL L072988
L0728F8 SEC
SBC #$0006
BNE L072901
BRL L0729BE
L072901 BRL L0729D5
L072904 PHY
PEA $0000
PEA $0002
PEA ^L05122F
PEA L05122F
TDC
CLC
ADC #$007B
PEA $0000
PHA
PEA ^L051262
PEA L051262
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA $0003
JSL L03A8DC
JSL L07001D
PLA
STA L06006C
BRL L0729E9
L07293B PHY
PEA $0000
PEA $0002
PEA ^L05126B
PEA L05126B
TDC
CLC
ADC #$007B
PEA $0000
PHA
PEA ^L05128F
PEA L05128F
TDC
CLC
ADC #$0007
PEA $0000
PHA
PEA $0003
JSL L03A8DC
JSL L07001D
PLA
STA L06006C
BRA L0729E9
L072971 PHY
PEA $0000
PEA $0002
PEA ^L0512AD
PEA L0512AD
JSL L07001D
PLA
STA L06006C
BRA L0729E9
L072988 PHY
PEA $0000
PEA $0002
PEA ^L0512F3
PEA L0512F3
TDC
CLC
ADC #$007B
PEA $0000
PHA
PEA ^L0512FF
PEA L0512FF
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0003
JSL L03A8DC
JSL L07001D
PLA
STA L06006C
BRA L0729E9
L0729BE PHY
PEA $0000
PEA $0002
PEA ^L05133C
PEA L05133C
JSL L07001D
PLA
STA L06006C
BRA L0729E9
L0729D5 PHY
PEA $0000
PEA $0000
PEA $0000
PEI $67
JSL L03B358
PLA
STA L06006C
L0729E9 JSL L074AF9
JSL L074538
L0729F1 TSC
CLC
ADC #$00AB
TCS
PLD
RTL
L0729F9 PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$0001
STA $05
L072A06 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
LDA $05
DEC
ASL
TAX
LDAL L050372,X
JSL L03A5FF
PHX
PHA
JSL L03B1DE
PLA
STA $01
PLX
STX $03
LDA #$0004
STA $07
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0011
BCC L072A3D
INX
L072A3D STA $0B
STX $0D
LDA [$0B]
AND #$00FF
CMP #$00FF
BNE L072A52
LDA $05
STA $07
BRL L072BC1
L072A52 PHY
LDA $05
DEC
CLC
ADC #$0461
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03B1D2
PLA
STA $09
LDA $05
DEC
ASL
TAX
TXA
CLC
ADC #L050162
LDX #^L050162
BCC L072A82
INX
L072A82 STA $0B
STX $0D
LDA $09
SEC
SBC #$0600
ASL
TAX
LDAL L061216,X
STA [$0B]
LDA $09
SEC
SBC #$0600
BPL L072A9F
BRL L072BB5
L072A9F CMP #$0006
BMI L072AA7
BRL L072BB5
L072AA7 ASL
TAX
LDAL L072AAF,X
PHA
RTS
L072AAF DA L072AB9+1
DA L072AB9+1
DA L072AB9+1
DA L072B35+1
DA L072B61+1
L072AB9 DA L072B61+1
LDA $05
DEC
PEA $0029
JSL L03AA73
PLX
TXA
CLC
ADC #L0500DB
LDX #^L0500DB
BCC L072AD1
INX
L072AD1 PHX
PHA
LDA $05
DEC
CLC
ADC #$0464
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
LDA L0600D8
LDX L0600DA
STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
PHA
JSL L031C6A
LDA $05
DEC
ASL
ASL
TAX
TXA
CLC
ADC #L050156
LDX #^L050156
BCC L072B13
INX
L072B13 STA $0B
STX $0D
LDA $05
DEC
PEA $0029
JSL L03AA73
PLX
TXA
CLC
ADC #L0500DB
LDX #^L0500DB
BCC L072B2D
INX
L072B2D STA [$0B]
TXA
LDY #$0002
STA [$0B],Y
L072B35 BRA L072BB5
LDA $05
DEC
ASL
ASL
TAX
TXA
CLC
ADC #L050156
LDX #^L050156
BCC L072B48
INX
L072B48 STA $0B
STX $0D
LDA $05
DEC
ASL
TAX
LDAL L0500D5,X
JSL L03A5FF
STA [$0B]
TXA
LDY #$0002
STA [$0B],Y
L072B61 BRA L072BB5
LDA $05
DEC
ASL
ASL
TAX
TXA
CLC
ADC #L050156
LDX #^L050156
BCC L072B74
INX
L072B74 PHX
PHA
LDA $05
DEC
CLC
ADC #$046C
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PLX
STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
CLC
ADC #$0040
BCC L072BA1
INX
L072BA1 PHX
PHA
PLA
PLY
PLX
STX $0B
PLX
STX $0D
STA [$0B]
TYA
LDY #$0002
STA [$0B],Y
BRA L072BB5
L072BB5 LDA #$0003
CMP $05
BEQ L072BC1
INC $05
BRL L072A06
L072BC1 LDA $07
SEC
SBC #$0004
BVS L072BCC
EOR #$8000
L072BCC BMI L072BE1
LDA $07
DEC
ASL
TAX
LDA #$0000
STAL L050162,X
LDA $07
INC
STA $07
BRA L072BC1
L072BE1 PHY
LDAL L050786
PHA
LDAL L050784
PHA
JSL L03B1D2
PLA
CMP #$060D
BNE L072C01
LDA #$0001
ORA L06003A
STA L06003A
BRA L072C0A
L072C01 LDA #$FFFE
AND L06003A
STA L06003A
L072C0A PEA ^L0600A0
PEA L0600A0
PEA ^L06007E
PEA L06007E
PEA ^L050156
PEA L050156
PEA ^L050162
PEA L050162
LDA L06003A
PHA
LDA L0600D8
LDX L0600DA
STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
PHA
JSL L03172D
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
JSL L039CC3
PLA
STA L0612BD
PLA
STA L0612BF
PHY
PHY
JSL L03AA61
JSL L03B165
PEA $0000
LDA L060060
LDX L060062
PHX
PHA
JSL L03ADE5
PEA $0440
JSL L039E39
JSL L0714FD
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L072C82 PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA $0E
SEC
SBC #$0461
STA $01
LDA $0C
SEC
SBC #$0600
BPL L072C9D
BRL L072DE3
L072C9D CMP #$0006
BMI L072CA5
BRL L072DE3
L072CA5 ASL
TAX
LDAL L072CAD,X
PHA
RTS
L072CAD DA L072CB7+1
DA L072CB7+1
DA L072CB7+1
DA L072D1A+2
DA L072D7E+1
L072CB7 DA L072D7E+1
LDA #$0467
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03AA06
LDA #$046C
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03AA06
LDA #$0464
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9FA
LDA $01
INC
DEC
ASL
TAX
LDA #$0464
CLC
ADC $01
STAL L050372,X
L072D1A BRL L072DE3
LDA #$0464
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03AA06
LDA #$046C
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03AA06
LDA #$0467
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9FA
LDA $01
INC
DEC
ASL
TAX
LDA #$0467
CLC
ADC $01
STAL L050372,X
L072D7E BRA L072DE3
LDA #$0464
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03AA06
LDA #$0467
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03AA06
LDA #$046C
CLC
ADC $01
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9FA
LDA $01
INC
DEC
ASL
TAX
LDA #$046C
CLC
ADC $01
STAL L050372,X
BRA L072DE3
L072DE3 LDA $0A
STA $0E
LDA $09
STA $0D
LDA $07
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L072DF5 PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDX #$0000
LDA #$046F
CMP $12
BNE L072E08
INX
L072E08 PHX
LDX #$0000
LDA #$0471
CMP $12
BNE L072E14
INX
L072E14 TXA
ORA $01,S
PLX
LSR
BCC L072E3D
LDA $12
INC
STA $05
LDA #$046F
CMP $12
BNE L072E2E
LDA #$8000
STA $07
BRA L072E33
L072E2E LDA #$4000
STA $07
L072E33 LDA $07
ORA L06003A
STA L06003A
BRA L072E5D
L072E3D LDA $12
DEC
STA $05
LDA #$0470
CMP $12
BNE L072E50
LDA #$7FFF
STA $07
BRA L072E55
L072E50 LDA #$BFFF
STA $07
L072E55 LDA $07
AND L06003A
STA L06003A
L072E5D LDA $05
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PLX
STA $01
STX $03
LDA $12
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PLX
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
CLC
ADC #$0012
BCC L072E9A
INX
L072E9A STA $09
STX $0B
LDA [$09]
BEQ L072EA5
BRL L072F65
L072EA5 PEA $00FF
LDAL L050376
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9F4
PEA $00FF
LDAL L050792
PHA
LDAL L050790
PHA
JSL L03A9F4
LDA $12
SEC
SBC #$0471
BVS L072EDD
EOR #$8000
L072EDD BMI L072F49
PEA $00FF
LDAL L050374
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9F4
PEA $00FF
LDAL L05078E
PHA
LDAL L05078C
PHA
JSL L03A9F4
PEA $00FF
LDAL L0507CA
PHA
LDAL L0507C8
PHA
JSL L03A9F4
PEA $00FF
LDAL L0507CE
PHA
LDAL L0507CC
PHA
JSL L03A9F4
LDAL L050372
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03ADD3
BRA L072F62
L072F49 LDAL L050374
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03ADD3
L072F62 BRL L07309C
L072F65 LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0012
BCC L072F74
INX
L072F74 STA $09
STX $0B
LDA [$09]
BEQ L072F7F
BRL L073091
L072F7F LDA $12
SEC
SBC #$0471
BVS L072F8A
EOR #$8000
L072F8A BMI L072FF4
PEA $0000
LDAL L0507CA
PHA
LDAL L0507C8
PHA
JSL L03A9F4
PEA $0000
LDAL L0507CE
PHA
LDAL L0507CC
PHA
JSL L03A9F4
PEA $0000
LDAL L050374
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9F4
PEA $0000
LDAL L05078E
PHA
LDAL L05078C
PHA
JSL L03A9F4
LDAL L050374
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03ADD3
L072FF4 LDAL L0507CA
TAX
LDAL L0507C8
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
CLC
ADC #$0012
BCC L073010
INX
L073010 STA $09
STX $0B
LDA [$09]
BEQ L07301B
LDA #$0001
L07301B PHA
LDAL L0507CE
TAX
LDAL L0507CC
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
CLC
ADC #$0012
BCC L073038
INX
L073038 STA $09
STX $0B
LDA [$09]
BEQ L073043
LDA #$0001
L073043 ORA $01,S
PLX
LSR
BCC L07308F
PEA $0000
LDAL L050376
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03A9F4
PEA $0000
LDAL L050792
PHA
LDAL L050790
PHA
JSL L03A9F4
LDAL L050376
SEC
SBC #$0460
ASL
ASL
TAX
LDAL L050786,X
PHA
LDAL L050784,X
PHA
JSL L03ADD3
L07308F BRA L07309C
L073091 PEA $0000
PEI $03
PEI $01
JSL L03B1CC
L07309C LDA $10
STA $12
LDA $0F
STA $11
LDA $0D
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L0730AE PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDX #$0000
LDAL L050B3A
DEC
DEC
BNE L0730C2
INX
L0730C2 PHX
LDX #$0000
LDA #$1B00
ANDL L050B2C
BNE L0730D0
INX
L0730D0 TXA
AND $01,S
PLX
LSR
BCS L0730DA
BRL L07315A
L0730DA PEA ^L0600BA
PEA L0600BA
PEA ^L0600BC
PEA L0600BC
PEA ^L0600B2
PEA L0600B2
LDA L0600D8
LDX L0600DA
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHA
JSL L030D83
LDA L0600BA
BNE L07312E
PEA ^L0321C0
PEA L0321C0
PEA $FFFF
LDA L0600B2
LDX L0600B4
PHX
PHA
PEA $0000
LDA L0600BC
PHA
LDA L060060
LDX L060062
PHX
PHA
JSL L03A5E7
BRA L07315A
L07312E LDA #$7FFF
AND L0600C4
SEC
SBC #$0054
CMP #$0001
SEC
SBC #$0000
BEQ L073143
BRA L07315A
L073143 PHY
PEA $0000
PEA $0003
PEA ^L0513AE
PEA L0513AE
JSL L07001D
PLA
STA L06006C
BRA L07315A
L07315A LDAL L050B3A
DEC
BNE L07317A
LDA #$1B00
ANDL L050B2C
BNE L073173
PEA $0001
JSL L07194A
BRA L07317A
L073173 PEA $0000
JSL L07194A
L07317A PLY
PLY
PLD
RTL
L07317E PHD
TSC
CLC
ADC #$FE7C
TCS
ADC #$008D
TCD
LDAL L050B3E
TAX
LDAL L050B3C
STA $EF
STX $F1
LDAL L050B44
STA $E9
LDA $E9
SEC
SBC #$0440
BPL L0731A7
BRL L073F69
L0731A7 CMP #$1146
BMI L0731AF
BRL L073F69
L0731AF SEC
SBC #$0000
BNE L0731B8
BRL L073D15
L0731B8 DEC
BNE L0731BE
BRL L073D9E
L0731BE DEC
BNE L0731C4
BRL L073D9E
L0731C4 DEC
BNE L0731CA
BRL L073D1C
L0731CA DEC
DEC
BNE L0731D1
BRL L073E08
L0731D1 DEC
DEC
BNE L0731D8
BRL L073E01
L0731D8 SEC
SBC #$001A
BNE L0731E1
BRL L073E9D
L0731E1 DEC
BNE L0731E7
BRL L073E9D
L0731E7 DEC
BNE L0731ED
BRL L073E9D
L0731ED SEC
SBC #$0004
BNE L0731F6
BRL L073EAF
L0731F6 DEC
BNE L0731FC
BRL L073EAF
L0731FC DEC
BNE L073202
BRL L073EAF
L073202 SEC
SBC #$0006
BNE L07320B
BRL L073EE2
L07320B DEC
BNE L073211
BRL L073EE2
L073211 DEC
BNE L073217
BRL L073EE2
L073217 DEC
BNE L07321D
BRL L073EE2
L07321D DEC
DEC
DEC
BNE L073225
BRL L073EEA
L073225 DEC
BNE L07322B
BRL L073EF0
L07322B SEC
SBC #$000B
BNE L073234
BRL L073F11
L073234 DEC
BNE L07323A
BRL L073F0B
L07323A SEC
SBC #$0020
BNE L073243
BRL L073C27
L073243 SEC
SBC #$000E
BNE L07324C
BRL L07381B
L07324C DEC
BNE L073252
BRL L07381B
L073252 DEC
BNE L073258
BRL L073833
L073258 SEC
SBC #$0005
BNE L073261
BRL L07383C
L073261 DEC
DEC
BNE L073268
BRL L0739BA
L073268 DEC
BNE L07326E
BRL L0738D4
L07326E DEC
BNE L073274
BRL L0739BA
L073274 SEC
SBC #$0009
BNE L07327D
BRL L0736C3
L07327D DEC
BNE L073283
BRL L0736C3
L073283 SEC
SBC #$000C
BNE L07328C
BRL L073802
L07328C SEC
SBC #$000F
BNE L073295
BRL L07354E
L073295 DEC
BNE L07329B
BRL L07335B
L07329B DEC
BNE L0732A1
BRL L07335B
L0732A1 DEC
BNE L0732A7
BRL L07369B
L0732A7 SEC
SBC #$0020
BNE L0732B0
BRL L073346
L0732B0 DEC
BNE L0732B6
BRL L073346
L0732B6 DEC
BNE L0732BC
BRL L073346
L0732BC DEC
BNE L0732C2
BRL L073346
L0732C2 SEC
SBC #$00FC
BEQ L07332B
DEC
BEQ L073332
DEC
DEC
DEC
BEQ L07333D
SEC
SBC #$09F9
BEQ L073304
SEC
SBC #$04B3
BNE L0732DF
BRL L073C32
L0732DF SEC
SBC #$00CE
BNE L0732E8
BRL L073ACF
L0732E8 DEC
BNE L0732EE
BRL L073B8C
L0732EE DEC
BNE L0732F4
BRL L073E13
L0732F4 DEC
BNE L0732FA
BRL L073E3E
L0732FA DEC
DEC
BNE L073301
BRL L0739D6
L073301 BRL L073F69
L073304 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
JSL L039CC3
PLA
STA L0612BD
PLA
STA L0612BF
PEA $0000
LDA L060012
PHA
JSL L03A62D
BRL L073F69
L07332B JSL L0718DA
BRL L073F69
L073332 JSL L074AF9
JSL L074538
BRL L073F69
L07333D LDA #$0001
STA L0600CE
BRL L073F69
L073346 LDA $E9
STA L06000A
LDA #$0503
CMP $E9
BNE L073358
LDA #$0001
STA L06000C
L073358 BRL L073F69
L07335B LDA #$0001
STA $D7
LDA L0600D4
EOR #$0001
AND #$00FF
PHA
LDX #$0000
LDA #$04E1
CMP $E9
BNE L073375
INX
L073375 TXA
AND $01,S
PLX
LSR
BCS L07337F
BRL L073487
L07337F LDA L06003C
LDX L06003E
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
CLC
ADC #$0004
BCC L073398
INX
L073398 STA $F3
STX $F5
LDA [$F3]
STA $ED
PHY
LDA L06003C
LDX L06003E
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
LDA L06003C
LDX L06003E
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
CLC
ADC #$0004
BCC L0733E6
INX
L0733E6 STA $F3
STX $F5
LDA [$F3]
PHA
JSL L03B232
PLA
STA L060036
LDAL L0612ED
BEQ L073463
STZ $D7
JSL L03ADB3
LDA #$0001
STA $ED
L073406 PEA $0000
PEA $0000
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03B1C6
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03AA6D
PEA $0000
PEA $0006
JSL L03969E
PEA $0000
PEA $0004
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03B1C6
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03AA6D
PEA $0000
PEA $0006
JSL L03969E
LDA #$0002
CMP $ED
BEQ L073461
INC $ED
BRA L073406
L073461 BRA L073487
L073463 PEA ^L0503FC
PEA L0503FC
PEA ^L0513DA
PEA L0513DA
PEA $0006
JSL L03B108
LDA L060036
PHA
PEA ^L0503FE
PEA L0503FE
PEA $0004
JSL L03AA0C
L073487 LDA $D7
BNE L07348E
BRL L07354B
L07348E PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0001
JSL L039CC3
PLA
STA L0612BD
PLA
STA L0612BF
LDA #$0400
ORA L0600DC
PHA
JSL L03B1D8
LDA #$04E1
CMP $E9
BEQ L0734BC
BRL L07353C
L0734BC PHY
PHY
JSL L03A475
PLA
STA $DD
PLX
STX $DF
LDA L06005C
LDX L06005E
PHX
PHA
JSL L03A46F
LDA L0600C0
PEA $0029
JSL L03AA73
PLX
TXA
CLC
ADC #L050381
LDX #^L050381
BCC L0734EA
INX
L0734EA PHX
PHA
PEA ^L0503FC
PEA L0503FC
PEA $0029
JSL L03B108
LDA L0600C0
ASL
TAX
LDA L060036
STAL L0500D5,X
PEA $0000
LDA L0600C0
PEA $0029
JSL L03AA73
PLX
TXA
CLC
ADC #L050381
LDX #^L050381
BCC L07351E
INX
L07351E PHX
PHA
PEA $0610
JSL L03A8D6
PEA $0000
PEA $0000
PEA $0467
JSL L03A63F
PEI $DF
PEI $DD
JSL L03A46F
L07353C PEA $0610
LDA L06005C
LDX L06005E
PHX
PHA
JSL L03B1CC
L07354B BRL L073F69
L07354E LDAL L050B3A
DEC
BEQ L073558
BRL L0735DA
L073558 PEA ^L0503FC
PEA L0503FC
PEA ^L060036
PEA L060036
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L03288D
PEA ^L050477
PEA L050477
PEA ^L0503FC
PEA L0503FC
PEA $0002
PEA $0004
TDC
CLC
ADC #$00AE
PEA $0000
PHA
JSL L03A1B9
PEA $0005
JSL L03B108
PEA ^L050478
PEA L050478
PEA $0004
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03B34C
PEA $0000
PEA $0004
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03B1C6
LDA L06003C
LDX L06003E
PHX
PHA
JSL L03AA6D
LDA #$0001
STA L0600D4
L0735DA LDAL L050B3A
DEC
DEC
BEQ L0735E5
BRL L073698
L0735E5 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0001
JSL L039CC3
PLA
STA L0612BD
PLA
STA L0612BF
LDA #$0400
ORA L0600DC
PHA
JSL L03B1D8
PHY
PHY
JSL L03A475
PLA
STA $DD
PLX
STX $DF
LDA L06005C
LDX L06005E
PHX
PHA
JSL L03A46F
LDA L0600C0
PEA $0029
JSL L03AA73
PLX
TXA
CLC
ADC #L050381
LDX #^L050381
BCC L073637
INX
L073637 PHX
PHA
PEA ^L0503FC
PEA L0503FC
PEA $0029
JSL L03B108
LDA L0600C0
ASL
TAX
LDA L060036
STAL L0500D5,X
PEA $0000
LDA L0600C0
PEA $0029
JSL L03AA73
PLX
TXA
CLC
ADC #L050381
LDX #^L050381
BCC L07366B
INX
L07366B PHX
PHA
PEA $0610
JSL L03A8D6
PEA $0000
PEA $0000
PEA $0467
JSL L03A63F
PEI $DF
PEI $DD
JSL L03A46F
PEA $0610
LDA L06005C
LDX L06005E
PHX
PHA
JSL L03B1CC
L073698 BRL L073F69
L07369B PHY
LDA L060054
LDX L060056
PHX
PHA
JSL L03B1F0
PLA
STA $ED
LDA $ED
BEQ L0736BD
PEI $ED
LDA L060054
LDX L060056
PHX
PHA
JSL L03ADE5
L0736BD STZ L0600D4
BRL L073F69
L0736C3 LDA #$04C4
CMP $E9
BEQ L0736CD
BRL L0737D8
L0736CD LDA #$04C8
LDX #$0000
STA $E1
STX $E3
L0736D7 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEI $E3
PEI $E1
JSL L03B1DE
PLA
PLX
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $D9
STX $DB
LDY #$0012
LDA [$D9],Y
BNE L07372B
PHY
PHY
LDA L060002
LDX L060004
PHX
PHA
PHY
PHY
LDY #$0022
LDA [$D9],Y
PHA
DEY
DEY
LDA [$D9],Y
PHA
JSL L03A8AE
JSL L03A1A0
PLA
STA L060002
PLA
STA L060004
BRA L07374C
L07372B PHY
PHY
LDA L060002
LDX L060004
PHX
PHA
LDY #$0022
LDA [$D9],Y
PHA
DEY
DEY
LDA [$D9],Y
PHA
JSL L03A39B
PLA
STA L060002
PLA
STA L060004
L07374C LDA $E1
LDX $E3
CMP #$04CE
BNE L073758
CPX #$0000
L073758 BEQ L073763
INC $E1
BNE L073760
INC $E3
L073760 BRL L0736D7
L073763 PHY
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $14C2
JSL L03B1DE
JSL L03B1D2
PLA
BEQ L0737D8
JSL L03ABBC
PEA $0000
PEA $0000
PEA ^L06006E
PEA L06006E
PEA $0003
PEA ^L060436
PEA L060436
PEA $0000
PEA $0000
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L031CE7
JSL L03B396
LDA L06006E
BEQ L0737D8
PHY
PEA $0000
PEA $0000
PEA $0000
LDA L06006E
PHA
JSL L03B358
PLA
STA L06006C
L0737D8 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
JSL L039CC3
PLA
STA L0612BD
PLA
STA L0612BF
PEA $0000
LDA L060012
PHA
JSL L03A62D
STZ L060010
BRL L073F69
L073802 LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L074598
BRL L073F69
L07381B LDA #$04B0
CMP $E9
BNE L07382A
LDA #$0001
STA L060006
BRA L073830
L07382A LDA #$0002
STA L060006
L073830 BRL L073F69
L073833 LDA #$0003
STA L060006
BRL L073F69
L07383C LDA L060006
DEC
BPL L073845
BRL L0738D1
L073845 CMP #$0002
BMI L07384D
BRL L0738D1
L07384D SEC
SBC #$0000
BEQ L0738AC
DEC
BEQ L073858
BRA L0738D1
L073858 STZ $D7
LDA L0600C6
BNE L073866
LDA #$0001
STA $D7
BRA L07386E
L073866 PHY
JSL L070DA0
PLA
STA $D7
L07386E LDA $D7
DEC
BNE L0738AA
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L07137F
LDA L0600C4
BNE L073894
JSL L071B39
BRA L0738AA
L073894 LDA #$8010
CMP L0600C4
BNE L0738A2
JSL L074598
BRA L0738AA
L0738A2 JSL L074AF9
JSL L074538
L0738AA BRA L0738D1
L0738AC PHY
JSL L070DA0
PLA
STA $D7
LDA $D7
DEC
BNE L0738CF
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L071EFC
L0738CF BRA L0738D1
L0738D1 BRL L073F69
L0738D4 PHY
JSL L070DA0
PLA
LSR
BCS L0738E0
BRL L0739B7
L0738E0 LDA L060008
DEC
BNE L073954
STZ L0600D0
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
PEA ^L050168
PEA L050168
LDA L0600C6
PHA
PEA ^L06006E
PEA L06006E
LDA L0600DC
PHA
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L035B16
LDA L06006E
BNE L073931
JSL L071B39
BRA L073952
L073931 LDA #$8000
AND L06006E
BNE L07394E
PHY
PEA $0000
PEA $0002
PEA ^L0513E0
PEA L0513E0
JSL L07001D
PLA
STA L06006C
L07394E JSL L074598
L073952 BRA L0739B7
L073954 PEA ^L05047C
PEA L05047C
PEA ^L05141A
PEA L05141A
PEA ^L05009E
PEA L05009E
PEA ^L05143B
PEA L05143B
TDC
CLC
ADC #$0073
PEA $0000
PHA
PEA $0003
JSL L03A8DC
PEA $0063
JSL L03B108
PHY
PEA $0000
PEA $0004
PEA ^L05047C
PEA L05047C
JSL L07001D
PLA
STA L06006C
LDA L06006C
DEC
BNE L0739B7
STZ L0600D0
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L071EFC
L0739B7 BRL L073F69
L0739BA STZ L0600D0
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L074538
BRL L073F69
L0739D6 LDA L060006
DEC
BMI L073A56
CMP #$0003
BPL L073A56
SEC
SBC #$0000
BEQ L073A32
DEC
BEQ L073A32
DEC
BEQ L0739EF
BRA L073A56
L0739EF LDA #$0000
STAL L0601BE
LDA #$00E0
STAL L0601C0
LDA #$0004
STAL L0601C2
LDA #$0000
STAL L0601C4
PEA $0064
PEA $001E
PEA $0002
PEA $0000
PEA $02A3
PEA $0000
PEA $0000
PEA ^L0601BC
PEA L0601BC
PEA ^L0601C6
PEA L0601C6
JSL L03B346
BRA L073A56
L073A32 PEA $0064
PEA $001E
PEA $0002
PEA $0000
PEA $02AA
PEA $0002
PEA $0000
PEA $02AB
PEA ^L0601C6
PEA L0601C6
JSL L03A5F9
BRA L073A56
L073A56 LDAL L0601C6
BEQ L073ACC
PEA ^L050168
PEA L050168
PEA ^L060208
PEA L060208
PEA $0101
JSL L03B108
LDA #$0003
CMP L060006
BNE L073A7E
PEA $0001
JSL L0701D4
L073A7E PEA ^L05057C
PEA L05057C
PEA $0000
TDC
CLC
ADC #$FF73
PHA
PEA ^L050168
PEA L050168
JSL L0399E0
PEA $0100
JSL L03B108
PEA $00D2
PEA ^L05057C
PEA L05057C
JSL L039F3E
LDA L060098
LDX L06009A
PHX
PHA
JSL L03AA06
LDA #L05057C
STAL L050032
LDA #^L05057C
STAL L050034
PEA $1584
JSL L039EA9
L073ACC BRL L073F69
L073ACF LDA L0600CA
STA L0600C6
LDA #$0003
CMP L060006
BNE L073AE3
LDA #$0001
STA L0600D0
L073AE3 LDA L060040
LDX L060042
PHX
PHA
JSL L03AA06
LDA L060044
LDX L060046
PHX
PHA
JSL L03A9FA
LDA L060048
LDX L06004A
PHX
PHA
JSL L03A9FA
LDA L060098
LDX L06009A
PHX
PHA
JSL L03A9FA
LDA #L050A0D
STAL L050032
LDA #^L050A0D
STAL L050034
PEA $1584
JSL L039EA9
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA L0612CD
LDX L0612CF
PHX
PHA
JSL L03B17F
LDA L0600C6
BEQ L073B7C
LDA L06008E
ASL
ASL
TAX
LDAL L0604DE+2,X
PHA
LDAL L0604DE,X
PLX
STA L0612D5
STX L0612D7
LDA L0612D5
ORA L0612D7
BEQ L073B7A
LDA L0612D5
LDX L0612D7
PHX
PHA
PEA $F000
LDA L0612C1
PHA
LDA L0612C3
PHA
JSL L03A5ED
L073B7A BRA L073B82
L073B7C STZ L0612D5
STZ L0612D7
L073B82 PEA $0001
JSL L0701D4
BRL L073F69
L073B8C LDA L0600C6
BEQ L073B97
LDA L0600C6
STA L0600CA
L073B97 STZ L0600C6
STZ L0600D0
LDA L060044
LDX L060046
PHX
PHA
JSL L03AA06
LDA L060048
LDX L06004A
PHX
PHA
JSL L03AA06
LDA L060098
LDX L06009A
PHX
PHA
JSL L03AA06
LDA L060040
LDX L060042
PHX
PHA
JSL L03A9FA
LDA #L05057C
STAL L050032
LDA #^L05057C
STAL L050034
PEA $1584
JSL L039EA9
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA L0612CD
LDX L0612CF
PHX
PHA
JSL L03B17F
LDA #L060F22
LDX #^L060F22
STA L0612D5
STX L0612D7
LDA L0612D5
LDX L0612D7
PHX
PHA
PEA $F000
LDA L0612C1
PHA
LDA L0612C3
PHA
JSL L03A5ED
PEA $0001
JSL L0701D4
BRL L073F69
L073C27 JSL L0705EC
JSL L070D25
BRL L073F69
L073C32 LDA L060008
DEC
BEQ L073C3B
BRL L073D0A
L073C3B PEA $0064
PEA $001E
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $02A2
PEA $0000
PEA $0000
PEA $0000
PEA ^L032D01
PEA L032D01
PEA $0000
PEA $0000
PEA ^L0601C6
PEA L0601C6
JSL L03A5F3
LDAL L0601C6
BNE L073C78
BRL L073D08
L073C78 PEA ^L050269
PEA L050269
PEA ^L060208
PEA L060208
PEA $0101
JSL L03B108
PEA ^L05067C
PEA L05067C
PEA $0000
TDC
CLC
ADC #$FF73
PHA
PEA ^L050269
PEA L050269
JSL L0399E0
PEA $0100
JSL L03B108
PEA $00FA
PEA ^L05067C
PEA L05067C
JSL L039F3E
LDA #L05067C
STAL L050026
LDA #^L05067C
STAL L050028
PEA $04A6
JSL L039EA9
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
LDA #L060582
LDX #^L060582
STA L0612D1
STX L0612D3
LDA L0612C9
LDX L0612CB
PHX
PHA
JSL L03B17F
LDA L0612D1
LDX L0612D3
PHX
PHA
PEA $F000
LDA L0612C5
PHA
LDA L0612C7
PHA
JSL L03A5ED
L073D08 BRA L073D12
L073D0A JSL L0705EC
JSL L070D25
L073D12 BRL L073F69
L073D15 JSL L0730AE
BRL L073F69
L073D1C LDA #$0001
STA $EB
LDA L0600A0
BNE L073D6A
LDA #$0003
CMP L060006
BNE L073D43
PEA ^L05047C
PEA L05047C
PEA ^L051456
PEA L051456
PEA $0027
JSL L03B108
BRA L073D56
L073D43 PEA ^L05047C
PEA L05047C
PEA ^L05147D
PEA L05147D
PEA $0026
JSL L03B108
L073D56 PHY
PEA $0000
PEA $0004
PEA ^L05047C
PEA L05047C
JSL L07001D
PLA
STA $EB
L073D6A LDA $EB
DEC
BNE L073D9B
LDA #$0500
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0200
ORA L0600DC
PHA
JSL L03B1D8
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
JSL L071EFC
L073D9B BRL L073F69
L073D9E LDA #$0442
SEC
SBC $E9
STA L060096
PEA ^L0600BA
PEA L0600BA
PEA ^L0600A0
PEA L0600A0
PEA ^L06007E
PEA L06007E
LDA L060096
PHA
PEA ^L0600B2
PEA L0600B2
LDA L0600D8
LDX L0600DA
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHA
JSL L031200
LDA L0600BA
BNE L073DFE
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B165
PEA $0000
LDA L060060
LDX L060062
PHX
PHA
JSL L03ADE5
JSL L0714FD
L073DFE BRL L073F69
L073E01 JSL L0717C8
BRL L073F69
L073E08 JSL L074AF9
JSL L074598
BRL L073F69
L073E13 JSL L070C7D
LDA #$0003
CMP L060006
BNE L073E34
LDA L060098
LDX L06009A
PHX
PHA
JSL L03A9FA
PEA $0001
JSL L0701D4
BRA L073E3B
L073E34 PEA $1586
JSL L039EA9
L073E3B BRL L073F69
L073E3E LDA L0600C6
STAL L060446
LDA #$0200
STAL L06044C
LDA #$0000
STAL L06044E
LDA #$0200
STAL L060454
PHY
PHY
JSL L03A45D
PLA
STA $E5
PLX
STX $E7
L073E66 PEA ^L060444
PEA L060444
PEA $202F ; DRead
JSL GSOS2
STAL L0612ED
PHY
PHY
JSL L03A45D
LDA $E5
LDX $E7
JSL L03B1AC
PHX
PHA
LDA #$0028
LDX #$0000
JSL L03AA18
BEQ L073E66
BVS L073E98
EOR #$8000
L073E98 BPL L073E66
BRL L073F69
L073E9D PEI $E9
PHY
PEI $F1
PEI $EF
JSL L03B1D2
JSL L072C82
BRL L073F69
L073EAF LDA $E9
SEC
SBC #$0467
STA L0600C0
LDA $EF
LDX $F1
STA L06005C
STX L06005E
PHY
PEI $F1
PEI $EF
JSL L03B1D2
PLA
STA L0600A2
LDA #$060A
CMP L0600A2
BNE L073EDF
PEI $F1
PEI $EF
JSL L0722C4
L073EDF BRL L073F69
L073EE2 PEI $E9
JSL L072DF5
BRA L073F69
L073EEA JSL L0729F9
BRA L073F69
L073EF0 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
JSL L039CC3
PLA
STA L0612BD
PLA
STA L0612BF
BRA L073F69
L073F0B JSL L072579
BRA L073F69
L073F11 LDA L0600D2
BNE L073F61
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L03B1E4
STZ L0612BD
STZ L0612BF
LDX #$0000
LDA L060006
DEC
DEC
BNE L073F33
INX
L073F33 PHX
LDX #$0000
LDA #$0003
CMP L060006
BNE L073F40
INX
L073F40 PHX
LDX #$0000
LDA L060008
DEC
BNE L073F4B
INX
L073F4B TXA
AND $01,S
PLX
ORA $01,S
PLX
LSR
BCC L073F5B
JSL L071B39
BRA L073F5F
L073F5B JSL L074598
L073F5F BRA L073F67
L073F61 LDA #$0001
STA L06000C
L073F67 BRA L073F69
L073F69 TSC
CLC
ADC #$0184
TCS
PLD
RTL
L073F71 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA $10
STA L060012
LDA $0E
STA $03
LDA $03
SEC
SBC #$012C
BPL L073F8D
BRL L074045
L073F8D CMP #$0064
BMI L073F95
BRL L074045
L073F95 SEC
SBC #$0000
BEQ L073FCD
DEC
BEQ L073FC3
SEC
SBC #$000A
BEQ L073FD5
SEC
SBC #$000A
BEQ L073FE3
DEC
BNE L073FB0
BRL L074037
L073FB0 SEC
SBC #$004D
BEQ L073FB9
BRL L074045
L073FB9 JSL L070ACC
BRL L074050
BRL L074045
L073FC3 JSL L074AF9
JSL L074538
BRA L074045
L073FCD LDA #$0001
STA L0600CE
BRA L074045
L073FD5 PHY
PEI $03
JSL L071235
PLA
STA $01
BRA L074050
BRA L074045
L073FE3 PHY
PHY
JSL L03AA61
JSL L03B165
PEA ^L0600BA
PEA L0600BA
PEA ^L0600A0
PEA L0600A0
PEA ^L06007E
PEA L06007E
PEA $0003
PEA ^L0600B2
PEA L0600B2
LDA L0600D8
LDX L0600DA
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
PHA
JSL L031200
PEA $0000
LDA L060060
LDX L060062
PHX
PHA
JSL L03ADE5
PEA $0000
JSL L07194A
BRA L074045
L074037 JSL L070B2C
LDA #$0001
STA L060010
BRA L074050
BRA L074045
L074045 PEA $0000
LDA L060012
PHA
JSL L03A62D
L074050 LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L074062 PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
PHY
PHY
JSL L03AA61
PLA
STA $0D
PLX
STX $0F
LDY #$00B0
LDA [$0D],Y
TAX
DEY
DEY
LDA [$0D],Y
STA $09
STX $0B
LDA $1A
DEC
DEC
DEC
BPL L07408E
BRL L0743EC
L07408E CMP #$001F
BMI L074096
BRL L0743EC
L074096 SEC
SBC #$0000
BNE L07409F
BRL L0742AA
L07409F SEC
SBC #$0005
BEQ L0740F2
SEC
SBC #$0008
BNE L0740AE
BRL L074237
L0740AE DEC
BNE L0740B4
BRL L0741FD
L0740B4 DEC
DEC
BNE L0740BB
BRL L07425A
L0740BB DEC
BNE L0740C1
BRL L07425A
L0740C1 DEC
BNE L0740C7
BRL L07425A
L0740C7 DEC
BNE L0740CD
BRL L07425A
L0740CD DEC
BNE L0740D3
BRL L07425A
L0740D3 DEC
BNE L0740D9
BRL L07425A
L0740D9 DEC
BNE L0740DF
BRL L0741FD
L0740DF DEC
DEC
BNE L0740E6
BRL L07425A
L0740E6 SEC
SBC #$0006
BNE L0740EF
BRL L074230
L0740EF BRL L0743EC
L0740F2 LDA $0D
ORA $0F
BNE L0740FB
BRL L0741FA
L0740FB PHY
PEI $0F
PEI $0D
JSL L03ADAD
PLA
AND #$8000
BEQ L07410D
BRL L0741C3
L07410D PEA $0080
PEA $0003
JSL L03AAB9
PEA $00FF
JSL L03AA4F
PEA $012D
JSL L03AA49
PEA $FF7F
PEA $0005
JSL L03AAB9
PEA $0000
PEA $0003
JSL L03A62D
LDA L060010
PHA
PEA $0005
JSL L03A62D
LDA #$000F
LDX #$0000
CMP $09
BNE L074150
CPX $0B
L074150 BEQ L074157
LDA #$0000
BRA L07415A
L074157 LDA #$0001
L07415A PHA
LDA #$000B
LDX #$0000
CMP $09
BNE L074167
CPX $0B
L074167 BEQ L07416E
LDA #$0000
BRA L074171
L07416E LDA #$0001
L074171 ORA $01,S
PLX
LSR
BCC L074180
PEA $0136
JSL L03AA49
BRA L074187
L074180 PEA $0136
JSL L03AA4F
L074187 LDA #$0006
LDX #$0000
CMP $09
BNE L074193
CPX $0B
L074193 BNE L0741AC
PEA $0137
JSL L03AA49
PEA $0140
JSL L03AA49
PEA $0141
JSL L03AA49
BRA L0741C1
L0741AC PEA $0137
JSL L03AA4F
PEA $0140
JSL L03AA4F
PEA $0141
JSL L03AA4F
L0741C1 BRA L0741FA
L0741C3 PEA $FF7F
PEA $0003
JSL L03AAB9
PEA $00FF
JSL L03AA49
PEA $012D
JSL L03AA4F
PEA $0080
PEA $0005
JSL L03AAB9
PEA $0000
PEA $0003
JSL L03A62D
LDA L060010
PHA
PEA $0005
JSL L03A62D
L0741FA BRL L0743EC
L0741FD PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A1A0
PLA
PLX
STX $11
ORA $11
BNE L07421F
JSL L03ADB3
BRA L07422D
L07421F LDAL L050B30
PHA
LDAL L050B2E
PHA
JSL L073F71
L07422D BRL L0743EC
L074230 JSL L07317E
BRL L0743EC
L074237 PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A1A0
PLA
PLX
STX $11
ORA $11
BNE L074257
JSL L03ADB3
L074257 BRL L0743EC
L07425A LDAL L050B30
PHA
LDAL L050B2E
PHA
PHY
PHY
JSL L03AA61
PLA
PLX
JSL L03AA18
BNE L074277
LDA #$0000
BRA L07427A
L074277 LDA #$0001
L07427A PHA
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A1A0
PLA
PLX
STX $11
ORA $11
BEQ L07429A
LDA #$0001
L07429A EOR #$0001
AND $01,S
PLX
LSR
BCC L0742A7
JSL L03ADB3
L0742A7 BRL L0743EC
L0742AA LDA #$002E
LDX #$0000
CMPL L050B20
BNE L0742BB
TXA
CMPL L050B22
L0742BB BEQ L0742C2
LDA #$0000
BRA L0742C5
L0742C2 LDA #$0001
L0742C5 PHA
LDA #$0100
ANDL L050B2C
BEQ L0742D2
LDA #$0001
L0742D2 AND $01,S
PLX
LSR
BCC L074309
LDA #$001B
STAL L050B20
LDA #$0000
STAL L050B22
LDA #$0000
STAL L050B2C
PHY
PEA $0000
PEA $0000
PEA $0000
PEA ^L050B1E
PEA L050B1E
JSL L03A463
PLA
LSR
BCC L074309
JSL L07317E
L074309 PHY
PEI $0F
PEI $0D
JSL L03ADAD
PLA
AND #$8000
BEQ L07431B
LDA #$0001
L07431B EOR #$0001
PHA
LDA #$000D
LDX #$0000
CMP $09
BNE L07432B
CPX $0B
L07432B BEQ L074332
LDA #$0000
BRA L074335
L074332 LDA #$0001
L074335 AND $01,S
PLX
LSR
BCS L07433E
BRL L0743EA
L07433E LDAL L050B20
STA $05
STZ $07
LDX #$0000
LDA #$000A
CMP $05
BNE L074351
INX
L074351 PHX
LDX #$0000
LDA #$0003
CMP L060006
BEQ L07435E
INX
L07435E TXA
AND $01,S
PLX
LSR
BCC L07436A
LDA #$0001
STA $07
L07436A LDX #$0000
LDA #$000B
CMP $05
BNE L074375
INX
L074375 PHX
LDX #$0000
LDA L060006
DEC
BEQ L074380
INX
L074380 TXA
AND $01,S
PLX
LSR
BCC L07438C
LDA #$FFFF
STA $07
L07438C LDA $07
BEQ L0743EA
LDA #$04B0
CLC
ADC L060006
DEC
JSL L03A5FF
STA $01
STX $03
PEA $0000
PHY
PHY
PEI $0F
PEI $0D
PEI $03
PEI $01
JSL L03B1DE
JSL L03B1CC
PEI $03
PEI $01
LDA $07
JSL L03A5FF
JSL L03ADB9
STA $01
STX $03
PEA $0001
PHY
PHY
PEI $0F
PEI $0D
PEI $03
PEI $01
JSL L03B1DE
JSL L03B1CC
LDA $01
LDX $03
SEC
SBC #$04AF
BCS L0743E7
DEX
L0743E7 STA L060006
L0743EA BRA L0743EC
L0743EC LDA $18
STA $1A
LDA $17
STA $19
LDA $15
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L0743FE ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA L0612DB
LDX L0612DD
STAL L050B32
TXA
STAL L050B34
PHY
PEA $FFFF
PEA ^L050B1E
PEA L050B1E
JSL L03B202
PLA
STA $07
LDA $07
BEQ L074434
LDA #$7FFF
AND $07
PHA
JSL L074062
L074434 LDA L0600D2
BEQ L07443C
BRL L074530
L07443C LDA L0612BD
LDX L0612BF
CLC
ADC #$00AE
BCC L074449
INX
L074449 STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STA $09
LDX #$0000
LDA #$000F
CMP $09
BNE L074462
INX
L074462 PHX
LDX #$0000
LDA #$000B
CMP $09
BNE L07446E
INX
L07446E TXA
ORA $01,S
PLX
STA $01
LDA L0600D0
DEC
BNE L0744A8
PHY
PHY
LDA #$9000
CLC
ADC L060014
PHA
PEA $0000
JSL L03B352
PLA
STA $03
PLX
STX $05
LDA $03
BNE L074498
BRL L074530
L074498 LDA L0600C6
CMP $03
BNE L0744A6
PEA $0001
JSL L0701D4
L0744A6 BRA L0744DE
L0744A8 PHY
PHY
LDA #$D000
CLC
ADC L060014
PHA
PEA $0000
JSL L03B352
PLA
STA $03
PLX
STX $05
LDA $03
BEQ L074530
LDX #$0000
LDA L0600C6
CMP $03
BNE L0744CE
INX
L0744CE TXA
AND $01
BEQ L0744DE
JSL L07008E
PEA $1586
JSL L039EA9
L0744DE LDA $01
BEQ L074530
LDX #$0000
LDA L0600C6
CMP $03
BEQ L0744ED
INX
L0744ED PHX
LDX #$0000
LDA L0600C8
CMP $03
BEQ L0744F9
INX
L0744F9 TXA
AND $01,S
PLX
LSR
BCC L074511
PHY
PHY
PEA $4000
PEI $03
JSL L03B352
PLA
STA $03
PLX
STX $05
L074511 LDX #$0000
LDA L0600CC
CMP $03
BNE L07451C
INX
L07451C PHX
LDX #$0000
LDA L0600C8
BNE L074526
INX
L074526 TXA
AND $01,S
PLX
LSR
BCC L074530
STZ L0600CC
L074530 TSC
CLC
ADC #$000E
TCS
PLD
RTL
L074538 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A39B
PLA
STA L0612DB
PLA
STA L0612DD
PHY
PHY
PEA $0000
PEA $0000
PEA $0000
PEA $000D
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $000D
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA #$0002
STA L060006
PLY
PLY
PLD
RTL
L074598 PHD
TSC
CLC
ADC #$FEE4
TCS
ADC #$0025
TCD
STZ L0600C6
STZ L0600C8
PHY
PHY
LDA L0612DB
LDX L0612DD
PHX
PHA
PEA $0000
PEA $1FE9
JSL L03A39B
PLA
STA L0612DB
PLA
STA L0612DD
LDA #$0003
CMP L060006
BNE L0745D9
LDA #$000F
LDX #$0000
STA $DF
STX $E1
BRA L0745E3
L0745D9 LDA #$000B
LDX #$0000
STA $DF
STX $E1
L0745E3 PHY
PHY
PEA $0000
PEA $0000
PEI $E1
PEI $DF
PEA ^L039A84
PEA L039A84
PEA $0000
PEA $0000
PEA $0002
PEI $E1
PEI $DF
PEA $800E
JSL L03A627
PLA
STA L0612BD
PLA
STA L0612BF
LDA #$0003
CMP L060006
BNE L07463E
LDA #L06056A
LDX #^L06056A
STA L0612C9
STX L0612CB
LDA #L060562
LDX #^L060562
STA L0612CD
STX L0612CF
LDA #$04BA
LDX #$0000
STA $E3
STX $E5
BRL L0746DB
L07463E PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $04B8
JSL L03B1DE
PLA
STA $E7
PLX
STX $E9
LDA L060006
DEC
BNE L07466A
LDA #$0082
LDX #$0000
STA $DB
STX $DD
BRA L074674
L07466A LDA #$0083
LDX #$0000
STA $DB
STX $DD
L074674 PEI $DD
PEI $DB
PEI $E9
PEI $E7
JSL L03B208
LDA #L06057A
LDX #^L06057A
STA L0612C9
STX L0612CB
LDA #L060572
LDX #^L060572
STA L0612CD
STX L0612CF
PEA $04A6
PEA $FFA6
PEA $0000
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L039D36
LDA #$1580
STA $F1
L0746B2 PEI $F1
PEA $0024
PEA $0000
LDA L0612BD
LDX L0612BF
PHX
PHA
JSL L039D36
LDA #$1586
CMP $F1
BEQ L0746D1
INC $F1
BRA L0746B2
L0746D1 LDA #$04B7
LDX #$0000
STA $E3
STX $E5
L0746DB LDA L0612C9
LDX L0612CB
CLC
ADC #$0002
BCC L0746E8
INX
L0746E8 STA $F3
STX $F5
LDA [$F3]
STA L0612C5
LDA L0612C9
LDX L0612CB
STA $F3
STX $F5
LDA [$F3]
STA L0612C7
LDA L0612CD
LDX L0612CF
CLC
ADC #$0002
BCC L07470D
INX
L07470D STA $F3
STX $F5
LDA [$F3]
STA L0612C1
LDA L0612CD
LDX L0612CF
STA $F3
STX $F5
LDA [$F3]
STA L0612C3
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEI $E5
PEI $E3
JSL L03B1DE
PLA
STA L060068
PLA
STA L06006A
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $14B2
JSL L03B1DE
PLA
STA L06004C
PLA
STA L06004E
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $1585
JSL L03B1DE
PLA
STA L060040
PLA
STA L060042
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $1583
JSL L03B1DE
PLA
STA L060044
PLA
STA L060046
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $1582
JSL L03B1DE
PLA
STA L060048
PLA
STA L06004A
LDA #$0003
CMP L060006
BNE L07480A
LDA #L05067C
STAL L050026
LDA #^L05067C
STAL L050028
PEA ^L05067C
PEA L05067C
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
PEA ^L050269
PEA L050269
JSL L0399E0
PEA $0100
JSL L03B108
LDA #$00FF
ANDL L05067C
BEQ L0747FC
LDA #L060582
LDX #^L060582
STA L0612D1
STX L0612D3
BRA L074802
L0747FC STZ L0612D1
STZ L0612D3
L074802 LDA #$0001
STA L060008
BRA L074859
L07480A JSL L0705EC
LDA #L05009E
STAL L050026
LDA #^L05009E
STAL L050028
LDA L0600C8
BEQ L074839
LDA L0612D9
ASL
ASL
TAX
LDAL L06045A+2,X
PHA
LDAL L06045A,X
PLX
STA L0612D1
STX L0612D3
BRA L07483F
L074839 STZ L0612D1
STZ L0612D3
L07483F LDA L060006
DEC
BNE L074859
LDA #$02AC
LDX #$0000
PHX
PHA
LDA L060068
LDX L06006A
PHX
PHA
JSL L03B208
L074859 PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $1586
JSL L03B1DE
PLA
STA L060098
PLA
STA L06009A
PHY
PHY
LDA L0612BD
LDX L0612BF
PHX
PHA
PEA $0000
PEA $1584
JSL L03B1DE
PLA
STA L060050
PLA
STA L060052
JSL L03ABBC
STZ $F1
L074897 LDA L0600C6
STA $EB
JSL L07089E
LDA $EB
CMP L0600C6
BNE L0748AC
LDA $F1
INC
STA $F1
L0748AC LDA #$0004
AND L060092
BEQ L0748B7
LDA #$0001
L0748B7 PHA
LDX #$0000
LDA L060090
BNE L0748C1
INX
L0748C1 TXA
ORA $01,S
PLX
PHA
LDX #$0000
LDA $F1
DEC
DEC
BNE L0748D0
INX
L0748D0 TXA
ORA $01,S
PLX
LSR
BCC L074897
JSL L03B396
LDA #L050A0D
STAL L050032
LDA #^L050A0D
STAL L050034
LDA #L050AB1
STAL L05003E
LDA #^L050AB1
STAL L050040
PEA ^L05057C
PEA L05057C
PEA ^L0514A3
PEA L0514A3
PEA $0012
JSL L03B108
LDA #$0000
STAL L050168
LDA L0600C6
BEQ L07492E
LDA L06008E
ASL
ASL
TAX
LDAL L0604DE+2,X
PHA
LDAL L0604DE,X
PLX
STA L0612D5
STX L0612D7
BRA L074934
L07492E STZ L0612D5
STZ L0612D7
L074934 LDA #$0003
CMP L060006
BNE L074942
JSL L071785
BRA L074942
L074942 TSC
CLC
ADC #$011C
TCS
PLD
RTL
L07494A ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PHY
PHY
PEA $0002
PEA $0000
PEA $0001
PEA $0000
PEA $0000
JSL L03B220
JSL L03AA5B
PEA $0000
PEA $0000
JSL L03A46F
PEA $0001
JSL L03B0DF
PHY
JSL L03A469
PLA
STA $01
JSL L03B22C
STZ L060010
PLY
PLY
PLY
PLD
RTL
L074990 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$FFFF
LDX #$001F
STA L0612DB
STX L0612DD
STZ L0600D0
STZ L0600D2
STZ L06000C
LDA #$0001
STA L06000E
STZ L0600D6
STZ L06009E
STZ L0600A0
STZ L06007E
STZ L060080
LDA #L05004E
LDX #^L05004E
STA L0600A6
STX L0600A8
LDA #$0100
ORA L0600DC
STA L0600DE
PHY
PHY
PEA $0000
PEA $0100
LDA L0600DE
PHA
PEA $C015
PEA $0000
PEA $0000
JSL L03B1F6
PLA
STA L0600D8
PLA
STA L0600DA
LDA #$0000
STAL L050269
LDA #$0000
STAL L050168
STZ L0600C8
STZ L0600CC
LDA L0600D8
LDX L0600DA
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHA
JSL L030B5C
PEA ^L050026
PEA L050026
JSL L03ADEB
PLY
PLY
PLD
RTL
L074A31 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PEA $0000
JSL L03A0C8
JSL L03A621
LDA #$0001
STA $0E
LDA #L05004E
LDX #^L05004E
STA $01
STX $03
LDA #$0001
STA [$01]
PEI $03
PEI $01
PEA $202A
JSL GSOS2
STAL L0612ED
LDAL L0612ED
BEQ L074A70
LDA #$0001
L074A70 PHA
LDY #$0002
LDA #$7FFF
AND [$01],Y
SEC
SBC #$0400
BVS L074A82
EOR #$8000
L074A82 BPL L074A89
LDA #$0000
BRA L074A8C
L074A89 LDA #$0001
L074A8C ORA $01,S
PLX
LSR
BCC L074A96
STZ $0E
BRA L074AF3
L074A96 PHY
JSL L03B1EA
PLA
STA L0600DC
PHY
PHY
LDA #$0F00
ORA L0600DC
PHA
PEA $0002
PEA $0000
PEA $0001
JSL L03ADD9
PLA
STAL L050B1A
PLA
STAL L050B1C
LDAL L0612ED
BEQ L074AC7
STZ $0E
L074AC7 JSL L074990
LDAL L0612ED
BEQ L074AD3
STZ $0E
L074AD3 PHY
PHY
JSL L03B226
PLA
STA L06001A
PLA
STA L06001C
JSL L03B396
PHY
PHY
JSL L03B226
PLA
STA L060016
PLA
STA L060018
L074AF3 PLY
PLY
PLY
PLY
PLD
RTL
L074AF9 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
L074B01 PHY
PHY
JSL L03AA61
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BEQ L074B34
PHY
PEI $03
PEI $01
JSL L03ADAD
PLA
AND #$8000
BNE L074B2C
PEI $03
PEI $01
JSL L03B1E4
BRA L074B34
L074B2C PEI $03
PEI $01
JSL L03A61B
L074B34 LDA $01
ORA $03
BNE L074B01
STZ L0612BD
STZ L0612BF
LDA #$0100
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0200
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0300
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0400
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0500
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0600
ORA L0600DC
PHA
JSL L03B1D8
LDA #$0001
STA L06000E
JSL L070000
LDA #$0F00
ORA L0600DC
PHA
JSL L03B1D8
PHY
JSL L074A31
PLA
EOR #$0001
AND #$00FF
STA L0600CE
PEA $0000
JSL L03A0C8
JSL L03A621
JSL L07494A
PLY
PLY
PLY
PLY
PLD
RTL