antoine-source/hypercardiigs/Compact.S

4889 lines
89 KiB
ArmAsm
Raw Normal View History

*
* HypercardGS
* segment: $1A Compact
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk Compact.l
lst off
*---------------------------------------
use Compact.E
use Compact.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/SANE.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L1A0000 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$0013
TCD
LDY #$00A7
LDA [$F6],Y
PHA
DEY
DEY
LDA [$F6],Y
PHA
JSL L07185A
LDY #$008F
LDA [$F6],Y
PHA
DEY
DEY
LDA [$F6],Y
PHA
JSL L07185A
LDY #$00BD
LDA [$F6],Y
PHA
JSL L075A4F
LDY #$00C1
LDA [$F6],Y
TAX
DEY
DEY
LDA [$F6],Y
STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
PHX
PHA
JSL L075B09
LDY #$00C1
LDA [$F6],Y
PHA
DEY
DEY
LDA [$F6],Y
PHA
JSL L07185A
LDY #$00C5
LDA [$F6],Y
PHA
DEY
DEY
LDA [$F6],Y
PHA
JSL L07185A
LDA $FA
BEQ L1A0084
PEA $0000
TDC
CLC
ADC #$FFED
PHA
PEI $FA
JSL L072809
JSL L07010A
L1A0084 LDY #$00C7
LDA [$F6],Y
PHA
JSL L0724F7
PHD
LDA $F6
TCD
CLC
ADC #$0000
TCS
JMPL L1A2872
LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$010C
TCS
RTL
L1A00AD PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $2C
PEI $2A
PEA $0014
JSL L0313BE
PEA $0021
PEA $0000
PEI $1E
JSL L1A0000
LDA $1C
STA $2C
LDA $1B
STA $2B
LDA $19
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L1A00E7 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDY #$00BD
LDA [$0E],Y
PHA
LDY #$009B
LDA [$0E],Y
PHA
DEY
DEY
LDA [$0E],Y
PHA
JSL L075E14
PHY
PHY
LDY #$00BD
LDA [$0E],Y
PHA
PEI $14
PEI $12
PEI $18
PEI $16
PEA $0000
JSL L075E55
PLA
STA $01
PLX
STX $03
LDX #$0000
LDAL L05565D
BNE L1A012B
INX
L1A012B TXA
STA $1A
LDA #$0099
CLC
ADC $0E
LDX $10
BCC L1A0139
INX
L1A0139 STA $05
STX $07
LDY #$009B
LDA [$0E],Y
TAX
DEY
DEY
LDA [$0E],Y
PEI $03
PEI $01
JSL L150F53
STA [$05]
TXA
LDY #$0002
STA [$05],Y
LDA $0C
STA $18
LDA $0B
STA $17
LDA $09
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L1A0169 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDY #$009F
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
LDA #$0000
TAX
JSL L033477
BMI L1A0204
BEQ L1A0204
LDY #$00A7
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
JSL L0718BF
PHY
LDY #$009F
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
LDY #$00A7
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
PEA $0000
PEI $0A
JSL L1A00E7
PLA
LSR
BCS L1A01E7
PEA ^L040009
PEA L040009
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $0A
JSL L1A00AD
L1A01E7 LDY #$00A7
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
JSL L07191C
LDA #$0000
TAX
LDY #$009D
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
L1A0204 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1A0215 PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
LDY #$0002
LDA [$3E],Y
TAX
LDA [$3E]
CLC
ADC #$0008
BCC L1A022C
INX
L1A022C STA $31
STX $33
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
STA $2D
STX $2F
PHY
PHY
PEI $2F
PEI $2D
PEA $0008
JSL L150337
PLA
STA $29
PLX
STX $2B
LDA #$00FF
AND $2D
STA $27
PEI $2B
PEI $29
LDA #$0008
LDX #$0000
JSL L033477
BVS L1A0269
EOR #$8000
L1A0269 BPL L1A0270
LDA #$0000
BRA L1A0273
L1A0270 LDA #$0001
L1A0273 PHA
PEI $2B
PEI $29
LDY #$008B
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
JSL L033477
BVS L1A028C
BPL L1A0293
BRA L1A028E
L1A028C BMI L1A0293
L1A028E LDA #$0000
BRA L1A0296
L1A0293 LDA #$0001
L1A0296 ORA $01,S
PLX
LSR
BCC L1A02C0
PEI $2F
PEI $2D
PEA $0000
JSL L074E4D
PEA ^L04000F
PEA L04000F
PEI $2B
PEI $29
PEA $0000
PEA $0000
PEA $0000
PEI $3A
JSL L1A00AD
L1A02C0 LDY #$0097
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
AND #$001F
BEQ L1A02F8
PEI $2F
PEI $2D
PEA $0000
JSL L074E4D
PEA ^L040016
PEA L040016
LDY #$0097
LDA [$3A],Y
PHA
DEY
DEY
LDA [$3A],Y
PHA
PEI $2B
PEI $29
PEA $0000
PEI $3A
JSL L1A00AD
L1A02F8 LDY #$008F
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
STA $31
STX $33
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
PHX
PHA
LDA $29
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $31
STX $33
LDA $27
JSL L150488
PHX
PHA
LDY #$0097
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
PEA $0000
PEA $0008
JSL L150D50
PLA
PLX
JSL L150F53
STA [$31]
TXA
LDY #$0002
STA [$31],Y
JSL L072328
LDY #$0002
LDA [$3E],Y
TAX
LDA [$3E]
STA $31
STX $33
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
STA $23
STX $25
LDY #$009F
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
PEI $25
PEI $23
JSL L150F53
PHX
PHA
LDY #$00A3
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
JSL L033477
BEQ L1A039D
BVS L1A039B
EOR #$8000
L1A039B BMI L1A0401
L1A039D LDY #$0002
LDA [$3E],Y
PHA
LDA [$3E]
PHA
LDY #$00A7
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
STA $31
STX $33
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
PHX
PHA
LDY #$009F
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
JSL L150F53
PHX
PHA
PEI $25
PEI $23
JSL L070597
LDA #$009D
CLC
ADC $3A
LDX $3C
BCC L1A03E1
INX
L1A03E1 STA $31
STX $33
LDY #$009F
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
PEI $25
PEI $23
JSL L150F53
STA [$31]
TXA
LDY #$0002
STA [$31],Y
BRA L1A0465
L1A0401 PEA $0000
PEI $3A
JSL L1A0169
PHY
PEI $40
PEI $3E
JSL L0718FA
PLA
STA $21
PHY
PEI $25
PEI $23
LDY #$0002
LDA [$3E],Y
PHA
LDA [$3E]
PHA
PEA $0000
PEI $3A
JSL L1A00E7
PLA
LSR
BCS L1A045B
PEI $2F
PEI $2D
PEA $0000
JSL L074E4D
PEA ^L04001D
PEA L04001D
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $3A
JSL L1A00AD
L1A045B PEI $40
PEI $3E
PEI $21
JSL L0718DA
L1A0465 LDA #$0095
CLC
ADC $3A
LDX $3C
BCC L1A0470
INX
L1A0470 STA $31
STX $33
LDY #$0097
LDA [$3A],Y
TAX
DEY
DEY
LDA [$3A],Y
PEI $25
PEI $23
JSL L150F53
STA [$31]
TXA
LDY #$0002
STA [$31],Y
LDA $38
STA $40
LDA $37
STA $3F
LDA $35
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L1A04A0 PHD
TSC
CLC
ADC #$FF5E
TCS
TCD
PHY
PHY
LDY #$00AB
LDA [$A8],Y
PHA
LDY #$00B3
LDA [$A8],Y
INC
ASL
ASL
PHA
LDY #$00B3
LDA [$A8],Y
PHA
LDY #$00B7
LDA [$A8],Y
PHA
JSL L079BEC
PLA
STA $9B
PLX
STX $9D
LDA $9B
ORA $9D
BNE L1A04F4
PEA ^L040023
PEA L040023
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $A8
JSL L1A00AD
L1A04F4 LDAL L053AD3
TAX
LDAL L053AD1
STA $97
STX $99
STZ $8F
STZ $91
LDAL L053ACB
TAX
LDAL L053AC9
STA $01
STX $03
PEI $03
PEI $01
LDA #$0001
LDX #$0000
JSL L033477
BVS L1A0525
EOR #$8000
L1A0525 BMI L1A052A
BRL L1A0670
L1A052A LDA #$0001
LDX #$0000
STA $93
STX $95
L1A0534 JSL L072328
PHY
JSL L07005C
PLA
LSR
BCC L1A054D
PEA $0000
PEA $0000
PEI $A8
JSL L1A0000
L1A054D TDC
CLC
ADC #$0007
PEA $0000
PHA
PEA $0000
PEA $0084
JSL L071EC5
PHY
PHY
PEI $99
PEI $97
PEI $95
PEI $93
JSL L07B8EA
PLA
STA $07
PLX
STX $09
LDA $07
ORA $09
BNE L1A0593
PEA ^L04002E
PEA L04002E
PEI $95
PEI $93
PEA $0000
PEA $0000
PEA $0000
PEI $A8
JSL L1A00AD
L1A0593 PHY
PHY
PEI $09
PEI $07
JSL L0772AE
PLA
STA $8B
PLX
STX $8D
LDA $8B
ORA $8D
BNE L1A05C0
PEA ^L040037
PEA L040037
PEI $95
PEI $93
PEI $09
PEI $07
PEA $0000
PEI $A8
JSL L1A00AD
L1A05C0 LDY #$0002
LDA [$8B],Y
TAX
LDA [$8B]
CLC
ADC #$0020
BCC L1A05CF
INX
L1A05CF STA $9F
STX $A1
LDA $8F
LDX $91
CMP [$9F]
BNE L1A05E1
LDY #$0002
TXA
CMP [$9F],Y
L1A05E1 BEQ L1A060A
LDA #$0002
LDX #$000B
STA $00,X
LDY #$0002
LDA [$8B],Y
TAX
LDA [$8B]
CLC
ADC #$0020
BCC L1A05FA
INX
L1A05FA STA $9F
STX $A1
LDY #$0002
LDA [$9F],Y
TAX
LDA [$9F]
STA $8F
STX $91
L1A060A PEI $09
PEI $07
PEA $0000
JSL L074A90
PHY
PEI $9D
PEI $9B
PEA $7FFF
PEA $FFFF
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L07B2EC
PLA
LSR
BCS L1A064C
PEA ^L040041
PEA L040041
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEI $A8
JSL L1A00AD
L1A064C PEI $9D
PEI $9B
PEI $95
PEI $93
PEA $0000
JSL L07E171
LDA $93
LDX $95
CMP $01
BNE L1A0665
CPX $03
L1A0665 BEQ L1A0670
INC $93
BNE L1A066D
INC $95
L1A066D BRL L1A0534
L1A0670 LDA $9B
LDX $9D
STAL L053AD1
TXA
STAL L053AD3
LDA #$0001
STA L05504D
PEA $0000
JSL L07479E
PHY
PEI $99
PEI $97
JSL L07A1F7
PLA
STA $05
LDA $A6
STA $AA
LDA $A5
STA $A9
LDA $A3
TCD
TSC
CLC
ADC #$00A8
TCS
RTL
L1A06A8 PHD
TSC
CLC
ADC #$FE44
TCS
ADC #$00C9
TCD
JSL L079752
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
TDC
CLC
ADC #$00C7
PEA $0000
PHA
JSL L07A852
PLA
LSR
BCS L1A06EE
PEA ^L040049
PEA L040049
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEI $F8
JSL L1A00AD
L1A06EE LDA $E5
LDY #$00B5
STA [$F8],Y
LDA $E3
LDY #$00B1
STA [$F8],Y
LDA $D7
LDY #$00A9
STA [$F8],Y
STZ $C3
STZ $C5
PEA $0000
TDC
CLC
ADC #$FF3B
PHA
JSL L078F60
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FF37
STA $00,X
TYA
STA $02,X
LDX #$FF37
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1A073E
EOR #$8000
L1A073E BMI L1A0743
BRL L1A07E5
L1A0743 LDA #$0001
LDX #$0000
STA $BF
STX $C1
L1A074D PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $C1
PEI $BF
TDC
CLC
ADC #$003B
PEA $0000
PHA
JSL L07A4B1
PLA
LSR
BCS L1A078A
PEA ^L040052
PEA L040052
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $C1
PEI $BF
PEA $0000
PEI $F8
JSL L1A00AD
L1A078A PEI $C5
PEI $C3
PHY
PHY
TDC
CLC
ADC #$003F
PEA $0000
PHA
LDY #$00B1
LDA [$F8],Y
PHA
PEA $0000
TDC
CLC
ADC #$FF3B
PHA
JSL L0790AB
PLA
PLX
JSL L150F53
STA $C3
STX $C5
PHY
JSL L07005C
PLA
LSR
BCC L1A07CB
PEA $0000
PEA $0000
PEI $F8
JSL L1A0000
L1A07CB LDX #$FF37
LDA $02,X
TAY
LDA $00,X
TYX
CMP $BF
BNE L1A07DA
CPX $C1
L1A07DA BEQ L1A07E5
INC $BF
BNE L1A07E2
INC $C1
L1A07E2 BRL L1A074D
L1A07E5 LDA #$00AD
CLC
ADC $F8
LDX $FA
BCC L1A07F0
INX
L1A07F0 STA $EF
STX $F1
LDA $C3
LDX $C5
PEA $0000
PEA $0064
JSL L150D50
LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDY #$00B1
LDA [$F8],Y
ASL
ASL
ASL
ASL
ASL
JSL L150488
JSL L150D50
JSL L150290
PLY
PLY
PLY
PLY
STA [$EF]
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$01C2
TCS
RTL
L1A083A PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
PHY
PEI $1A
PEI $18
PEA $0000
JSL L077264
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BEQ L1A08A0
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $09
STX $0B
PHY
PHY
PHY
PHY
PEI $07
PEI $05
JSL L07DF0D
JSL L07704E
PLA
STA [$09]
PLA
LDY #$0002
STA [$09],Y
PEI $07
PEI $05
PEA $0000
PEI $12
JSL L1A0215
PEI $1A
PEI $18
PEA $0000
JSL L074A5A
PEI $1A
PEI $18
JSL L077B28
L1A08A0 LDA $10
STA $1A
LDA $0F
STA $19
LDA $0D
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L1A08B2 PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
JSL L0772F8
PLA
STA $19
PLX
STX $1B
LDA $19
ORA $1B
BNE L1A08F5
PEA ^L04005C
PEA L04005C
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $26
JSL L1A00AD
L1A08F5 PEI $1B
PEI $19
PEA $0000
PEI $26
JSL L1A0215
LDA #$0028
LDX #$0000
STA $15
STX $17
LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
CLC
ADC #$000C
BCC L1A091B
INX
L1A091B STA $1D
STX $1F
LDY #$0002
LDA [$1D],Y
TAX
LDA [$1D]
STA $01
STX $03
PEI $03
PEI $01
LDA #$0001
LDX #$0000
JSL L033477
BVS L1A093E
EOR #$8000
L1A093E BMI L1A0943
BRL L1A09EF
L1A0943 LDA #$0001
LDX #$0000
STA $11
STX $13
L1A094D LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
PEI $17
PEI $15
JSL L150F53
STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $09
STX $0B
PHY
PHY
PEI $0B
PEI $09
JSL L077A01
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BNE L1A09AB
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEA $0000
JSL L074AC6
PEA ^L040065
PEA L040065
PEI $13
PEI $11
PEI $0B
PEI $09
PEA $0000
PEI $26
JSL L1A00AD
L1A09AB PEI $07
PEI $05
PEA $0000
PEI $26
JSL L1A0215
PEI $0B
PEI $09
PEA $0000
JSL L074E17
PEI $0B
PEI $09
JSL L077B28
LDA $15
LDX $17
CLC
ADC #$0006
BCC L1A09D6
INX
L1A09D6 STA $15
STX $17
LDA $11
LDX $13
CMP $01
BNE L1A09E4
CPX $03
L1A09E4 BEQ L1A09EF
INC $11
BNE L1A09EC
INC $13
L1A09EC BRL L1A094D
L1A09EF LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEA $0000
JSL L074AC6
LDAL L053AD3
PHA
LDAL L053AD1
PHA
JSL L077B28
LDA $24
STA $28
LDA $23
STA $27
LDA $21
TCD
TSC
CLC
ADC #$0026
TCS
RTL
L1A0A20 PHD
TSC
CLC
ADC #$FFD8
TCS
TCD
STZ $21
STZ $23
LDAL L053AC7
TAX
LDAL L053AC5
STA $1D
STX $1F
LDAL L053AC3
TAX
LDAL L053AC1
STA $01
STX $03
PEI $03
PEI $01
LDA #$0001
LDX #$0000
JSL L033477
BVS L1A0A59
EOR #$8000
L1A0A59 BMI L1A0A5E
BRL L1A0BBD
L1A0A5E LDA #$0001
LDX #$0000
STA $19
STX $1B
L1A0A68 PHY
PHY
PEI $1F
PEI $1D
JSL L07721A
PLA
STA $15
PLX
STX $17
LDA $15
ORA $17
BNE L1A0A97
PEA ^L04006E
PEA L04006E
PEI $1B
PEI $19
PEA $0000
PEA $0000
PEA $0000
PEI $2E
JSL L1A00AD
L1A0A97 STZ $11
STZ $13
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
CLC
ADC #$0014
BCC L1A0AAA
INX
L1A0AAA STA $25
STX $27
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
PHX
PHA
LDA #$0000
TAX
JSL L033477
BPL L1A0AC5
BRL L1A0B5E
L1A0AC5 BNE L1A0ACA
BRL L1A0B5E
L1A0ACA LDA $21
LDX $23
INC
BNE L1A0AD2
INX
L1A0AD2 STA $21
STX $23
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
CLC
ADC #$000C
BCC L1A0AE5
INX
L1A0AE5 STA $25
STX $27
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $11
STX $13
PHY
PHY
PEI $17
PEI $15
JSL L07DF0D
PLA
STA $0D
PLX
STX $0F
PHY
PHY
PEI $0F
PEI $0D
JSL L07704E
PLA
STA $05
PLX
STX $07
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $25
STX $27
LDA $05
LDX $07
STA [$25]
TXA
LDY #$0002
STA [$25],Y
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
PEI $0F
PEI $0D
JSL L150F53
PHX
PHA
PEI $07
PEI $05
LDA $0D
LDX $0F
JSL L1512A5
PHX
PHA
JSL L071EC5
PEI $17
PEI $15
PEA $0000
PEI $2E
JSL L1A0215
L1A0B5E LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
CLC
ADC #$0018
BCC L1A0B6D
INX
L1A0B6D STA $25
STX $27
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $09
STX $0B
PEI $1F
PEI $1D
PEA $0000
JSL L074A24
PEI $1F
PEI $1D
JSL L077B28
LDA $09
LDX $0B
STA $1D
STX $1F
PEI $13
PEI $11
PEA $0000
PEA $0000
PEI $2E
JSL L1A083A
LDA $19
LDX $1B
CMP $01
BNE L1A0BB2
CPX $03
L1A0BB2 BEQ L1A0BBD
INC $19
BNE L1A0BBA
INC $1B
L1A0BBA BRL L1A0A68
L1A0BBD LDA $21
LDX $23
STA $32
STX $34
LDA $2C
STA $30
LDA $2B
STA $2F
LDA $29
TCD
TSC
CLC
ADC #$002E
TCS
RTL
L1A0BD7 PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDA #$0001
STA $1E
LDA [$1A]
STA $0B
LDA $0B
BNE L1A0BEF
BRL L1A0C83
L1A0BEF LDA $16
LDX $18
PEA $FFFF
PEA $FF49
JSL L150F53
STA $05
STX $07
LDY #$004B
LDA [$16],Y
STA $03
LDA $03
SEC
SBC #$0001
BVS L1A0C13
EOR #$8000
L1A0C13 BPL L1A0C39
LDA #$0001
STA $09
L1A0C1A LDA $0B
CMP [$05]
BEQ L1A0C87
LDA $05
LDX $07
CLC
ADC #$0002
BCC L1A0C2B
INX
L1A0C2B STA $05
STX $07
LDA $09
CMP $03
BEQ L1A0C39
INC $09
BRA L1A0C1A
L1A0C39 LDA $16
LDX $18
PEA $FFFF
PEA $FE49
JSL L150F53
STA $05
STX $07
LDY #$0049
LDA [$16],Y
STA $01
LDA $01
SEC
SBC #$0001
BVS L1A0C5D
EOR #$8000
L1A0C5D BPL L1A0C83
LDA #$0001
STA $09
L1A0C64 LDA $0B
CMP [$05]
BEQ L1A0C87
LDA $05
LDX $07
CLC
ADC #$0002
BCC L1A0C75
INX
L1A0C75 STA $05
STX $07
LDA $09
CMP $01
BEQ L1A0C83
INC $09
BRA L1A0C64
L1A0C83 STZ $1E
BRA L1A0C8C
L1A0C87 LDA #$0000
STA [$05]
L1A0C8C LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L1A0C9E PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0020
BCC L1A0CC3
INX
L1A0CC3 STA $33
STX $35
LDY #$00ED
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
CMP [$33]
BNE L1A0CDB
LDY #$0002
TXA
CMP [$33],Y
L1A0CDB BNE L1A0CE0
BRL L1A0E59
L1A0CE0 LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0020
BCC L1A0CFD
INX
L1A0CFD STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
LDY #$00EB
STA [$3C],Y
INY
INY
TXA
STA [$3C],Y
PHY
PHY
LDY #$00ED
LDA [$3C],Y
PHA
DEY
DEY
LDA [$3C],Y
PHA
JSL L07721A
PLA
STA $2F
PLX
STX $31
LDA $2F
ORA $31
BNE L1A0D68
LDY #$00E3
LDA [$3C],Y
PHA
DEY
DEY
LDA [$3C],Y
PHA
PEA $0000
JSL L074A90
PEA ^L040074
PEA L040074
LDY #$00ED
LDA [$3C],Y
PHA
DEY
DEY
LDA [$3C],Y
PHA
PEA $0000
PEA $0000
PHD
LDA $3C
TCD
LDA $F8
PLD
PEA $0000
PHA
JSL L1A00AD
L1A0D68 LDA $3C
LDX $3E
PEA $FFFF
PEA $FD49
JSL L150F53
STA $2B
STX $2D
LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
CLC
ADC #$0032
BCC L1A0D89
INX
L1A0D89 STA $25
STX $27
LDA #$0000
LDY #$004B
STA [$3C],Y
LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
CLC
ADC #$0024
BCC L1A0DA4
INX
L1A0DA4 STA $33
STX $35
LDA [$33]
STA $0D
LDA $0D
SEC
SBC #$0001
BVS L1A0DB7
EOR #$8000
L1A0DB7 BMI L1A0DBC
BRL L1A0E47
L1A0DBC LDA #$0001
STA $29
L1A0DC1 LDX #$0000
LDY #$0004
LDA #$000F
AND [$25],Y
DEC
DEC
BNE L1A0DD1
INX
L1A0DD1 PHX
LDX #$0000
LDY #$0004
LDA #$4000
AND [$25],Y
CMP #$0000
BNE L1A0DE3
INX
L1A0DE3 TXA
ORA $01,S
PLX
LSR
BCC L1A0E2A
LDY #$0002
LDA [$25],Y
STA [$2B]
LDA $2B
LDX $2D
CLC
ADC #$0002
BCC L1A0DFC
INX
L1A0DFC STA $2B
STX $2D
LDY #$004B
LDA [$3C],Y
INC
LDY #$004B
STA [$3C],Y
LDY #$004B
LDA #$0080
CMP [$3C],Y
BNE L1A0E2A
LDY #$00ED
LDA [$3C],Y
PHA
DEY
DEY
LDA [$3C],Y
PHA
PEA $0000
JSL L074A24
BRL L1A1103
L1A0E2A PEI $27
PEI $25
LDA [$25]
JSL L150488
JSL L150F53
STA $25
STX $27
LDA $29
CMP $0D
BEQ L1A0E47
INC $29
BRL L1A0DC1
L1A0E47 LDY #$00ED
LDA [$3C],Y
PHA
DEY
DEY
LDA [$3C],Y
PHA
PEA $0000
JSL L074A24
L1A0E59 LDY #$004B
LDA [$3C],Y
STA $0B
LDA $0B
SEC
SBC #$0001
BVS L1A0E6B
EOR #$8000
L1A0E6B BPL L1A0EE6
LDA #$0001
STA $29
L1A0E72 LDA $3C
LDX $3E
PEA $FFFF
PEA $FF49
JSL L150F53
PHX
PHA
LDA $29
JSL L150488
TAY
BNE L1A0E8C
DEX
L1A0E8C DEC
PHX
PHA
PEA $0000
PEA $0001
JSL L151137
PLA
PLX
JSL L150F53
PHX
PHA
LDA $3C
LDX $3E
PEA $FFFF
PEA $FD49
JSL L150F53
PHX
PHA
LDA $29
JSL L150488
TAY
BNE L1A0EBB
DEX
L1A0EBB DEC
PHX
PHA
PEA $0000
PEA $0001
JSL L151137
PLA
PLX
JSL L150F53
STA $33
STX $35
LDA [$33]
PLX
STX $33
PLX
STX $35
STA [$33]
LDA $29
CMP $0B
BEQ L1A0EE6
INC $29
BRA L1A0E72
L1A0EE6 LDA $3C
LDX $3E
PEA $FFFF
PEA $FE49
JSL L150F53
STA $2B
STX $2D
LDA #$0000
LDY #$0049
STA [$3C],Y
LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0032
BCC L1A0F1D
INX
L1A0F1D STA $25
STX $27
LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0024
BCC L1A0F3E
INX
L1A0F3E STA $33
STX $35
LDA [$33]
STA $09
LDA $09
SEC
SBC #$0001
BVS L1A0F51
EOR #$8000
L1A0F51 BPL L1A0FB2
LDA #$0001
STA $29
L1A0F58 LDY #$0004
LDA #$000F
AND [$25],Y
DEC
DEC
BNE L1A0F96
LDY #$0002
LDA [$25],Y
EOR #$FFFF
INC
STA [$2B]
LDA $2B
LDX $2D
CLC
ADC #$0002
BCC L1A0F7A
INX
L1A0F7A STA $2B
STX $2D
LDY #$0049
LDA [$3C],Y
INC
LDY #$0049
STA [$3C],Y
LDY #$0049
LDA #$0080
CMP [$3C],Y
BNE L1A0F96
BRL L1A1103
L1A0F96 PEI $27
PEI $25
LDA [$25]
JSL L150488
JSL L150F53
STA $25
STX $27
LDA $29
CMP $09
BEQ L1A0FB2
INC $29
BRA L1A0F58
L1A0FB2 LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
STA $05
STX $07
LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
PHX
PHA
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
JSL L150F53
STA $21
STX $23
LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0032
BCC L1A1011
INX
L1A1011 PHX
PHA
LDY #$002A
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
JSL L150F53
STA $1D
STX $1F
LDA $1D
LDX $1F
STA $19
STX $1B
LDA $1D
LDX $1F
STA $15
STX $17
STZ $13
LDY #$0030
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $0F
STX $11
L1A1045 PEI $1B
PEI $19
LDA $1D
LDX $1F
PEI $11
PEI $0F
JSL L150F53
JSL L033477
BVS L1A105E
EOR #$8000
L1A105E BMI L1A10D4
LDA $19
LDX $1B
CLC
ADC #$0002
BCC L1A106B
INX
L1A106B STA $15
STX $17
TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L071AB8
PHY
PEI $1B
PEI $19
PEA $0000
PEI $3C
JSL L1A0BD7
PLA
LSR
BCC L1A109D
LDA $13
INC
STA $13
LDA $15
LDX $17
STA $19
STX $1B
BRA L1A10D1
L1A109D PEI $17
PEI $15
PEI $1B
PEI $19
PEI $23
PEI $21
LDA $15
LDX $17
JSL L1512A5
PHX
PHA
JSL L1511CE
LDA $0F
LDX $11
PEI $1B
PEI $19
JSL L150F53
PHX
PHA
LDA $15
LDX $17
JSL L1512A5
STA $0F
STX $11
L1A10D1 BRL L1A1045
L1A10D4 LDY #$00DF
LDA [$3C],Y
TAX
DEY
DEY
LDA [$3C],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
STA $01
STX $03
LDA $13
LDY #$002C
STA [$01],Y
LDA $0F
LDX $11
LDY #$002E
STA [$01],Y
INY
INY
TXA
STA [$01],Y
L1A1103 LDA $3A
STA $3E
LDA $39
STA $3D
LDA $37
TCD
TSC
CLC
ADC #$003C
TCS
RTL
L1A1115 PHD
TSC
CLC
ADC #$FC4E
TCS
ADC #$02BF
TCD
STZ $EB
STZ $ED
LDAL L053ACB
TAX
LDAL L053AC9
TXY
LDX #$FD41
STA $00,X
TYA
STA $02,X
LDX #$FD41
LDA $02,X
PHA
LDA $00,X
PHA
LDA #$0001
LDX #$0000
JSL L033477
BVS L1A114E
EOR #$8000
L1A114E BMI L1A1153
BRL L1A1303
L1A1153 LDA #$0001
LDX #$0000
STA $E7
STX $E9
L1A115D PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $E9
PEI $E7
TDC
CLC
ADC #$004D
PEA $0000
PHA
JSL L07A4B1
PLA
STA $E5
LDA $E5
BNE L1A1199
PEA ^L040082
PEA L040082
PEI $E9
PEI $E7
PEA $0000
PEA $0000
PEA $0000
PEI $F8
JSL L1A00AD
L1A1199 LDA $4D
LDX $4F
STA $E1
STX $E3
LDA $E1
ORA $E3
BNE L1A11C0
PEA ^L04008B
PEA L04008B
PEI $E9
PEI $E7
PEA $0000
PEA $0000
PEA $0000
PEI $F8
JSL L1A00AD
L1A11C0 PHY
PHY
PEI $E3
PEI $E1
JSL L0772AE
PLA
STA $DD
PLX
STX $DF
LDA $DD
ORA $DF
BNE L1A11ED
PEA ^L040096
PEA L040096
PEI $E9
PEI $E7
PEI $E3
PEI $E1
PEA $0000
PEI $F8
JSL L1A00AD
L1A11ED LDY #$0002
LDA [$DD],Y
TAX
LDA [$DD]
TXY
LDX #$FD45
STA $00,X
TYA
STA $02,X
LDX #$FD45
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$000C
BCC L1A120E
INX
L1A120E STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
STA $D9
STX $DB
LDX #$FD45
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$001C
BCC L1A122E
INX
L1A122E STA $EF
STX $F1
LDA L055005
LDX L055007
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
PEA $0000
PHD
JSL L1A0C9E
PHY
PHY
PEI $DF
PEI $DD
JSL L07DF0D
PLA
STA $D5
PLX
STX $D7
PHY
PHY
PEI $D7
PEI $D5
JSL L07704E
PLA
STA $D1
PLX
STX $D3
LDY #$0002
LDA [$DD],Y
TAX
LDA [$DD]
STA $EF
STX $F1
LDA $D1
LDX $D3
STA [$EF]
TXA
LDY #$0002
STA [$EF],Y
LDY #$0002
LDA [$DD],Y
TAX
LDA [$DD]
PEI $D7
PEI $D5
JSL L150F53
PHX
PHA
PEI $D3
PEI $D1
LDA $D5
LDX $D7
JSL L1512A5
PHX
PHA
JSL L071EC5
PEI $DF
PEI $DD
PEA $0000
PEI $F8
JSL L1A0215
PEI $E3
PEI $E1
PEA $0000
JSL L074A90
PEI $E3
PEI $E1
JSL L077B28
PEI $DB
PEI $D9
PEA $0001
PEA $0000
PEI $F8
JSL L1A083A
PHY
JSL L07005C
PLA
LSR
BCC L1A12E9
PEA $0000
PEA $0000
PEI $F8
JSL L1A0000
L1A12E9 LDX #$FD41
LDA $02,X
TAY
LDA $00,X
TYX
CMP $E7
BNE L1A12F8
CPX $E9
L1A12F8 BEQ L1A1303
INC $E7
BNE L1A1300
INC $E9
L1A1300 BRL L1A115D
L1A1303 LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$03B8
TCS
RTL
L1A1315 PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
PHY
PHY
LDAL L053ADB
PHA
LDAL L053AD9
PHA
PEA $5452
PEA $504D
PEA $0000
JSL L077624
PLA
STA $15
PLX
STX $17
LDA $15
ORA $17
BNE L1A1345
BRL L1A1481
L1A1345 PEI $17
PEI $15
PEA $0000
PEI $22
JSL L1A0215
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
CLC
ADC #$0010
BCC L1A1361
INX
L1A1361 STA $19
STX $1B
LDA [$19]
STA $01
LDA $01
SEC
SBC #$0001
BVS L1A1374
EOR #$8000
L1A1374 BMI L1A1379
BRL L1A145C
L1A1379 LDA #$0001
STA $13
L1A137E LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
CLC
ADC #$009E
BCC L1A138D
INX
L1A138D PHX
PHA
LDA $13
JSL L150488
TAY
BNE L1A1399
DEX
L1A1399 DEC
PEA $0000
PEA $000A
JSL L150D50
PLA
PLX
JSL L150F53
STA $03
STX $05
LDY #$0004
LDA [$03],Y
TAX
DEY
DEY
LDA [$03],Y
STA $0F
STX $11
LDY #$0008
LDA [$03],Y
TAX
DEY
DEY
LDA [$03],Y
STA $0B
STX $0D
PHY
PHY
PEI $11
PEI $0F
PEA $544E
PEA $5250
PEA $0000
JSL L077624
PLA
STA $07
PLX
STX $09
LDA $07
ORA $09
BNE L1A141B
LDAL L053ADB
PHA
LDAL L053AD9
PHA
PEA $5452
PEA $504D
PEA $0000
JSL L074B81
PEA ^L04009B
PEA L04009B
LDA $13
JSL L150488
PHX
PHA
PEI $11
PEI $0F
PEA $0000
PEI $22
JSL L1A00AD
L1A141B PEI $09
PEI $07
PEA $0000
PEI $22
JSL L1A0215
PEI $11
PEI $0F
PEA $544E
PEA $5250
PEA $0000
JSL L074B81
PEI $11
PEI $0F
JSL L077B28
PEI $0D
PEI $0B
PEA $0000
PEA $0000
PEI $22
JSL L1A083A
LDA $13
CMP $01
BEQ L1A145C
INC $13
BRL L1A137E
L1A145C LDAL L053ADB
PHA
LDAL L053AD9
PHA
PEA $5452
PEA $504D
PEA $0000
JSL L074B81
LDAL L053ADB
PHA
LDAL L053AD9
PHA
JSL L077B28
L1A1481 LDA $20
STA $24
LDA $1F
STA $23
LDA $1D
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L1A1493 PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0020
JSL L071EC5
LDA #$0020
LDX #$0000
STA $01
STX $03
LDA #$4154
LDX #$4C49
STA $05
STX $07
LDA #$FFFF
TAX
STA $09
STX $0B
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA ^L0400A4
PEA L0400A4
PEA $0014
JSL L0313BE
PHY
PEA $0000
PEA $0020
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEI $2A
JSL L1A00E7
PLA
LSR
BCS L1A151C
PEA ^L0400B8
PEA L0400B8
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $2A
JSL L1A00AD
L1A151C LDA $28
STA $2C
LDA $27
STA $2B
LDA $25
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L1A152E PHD
TSC
CLC
ADC #$F7FC
TCS
ADC #$0711
TCD
PEA $0000
TDC
CLC
ADC #$FAEF
PHA
PEA ^L053A9D
PEA L053A9D
PEA $0600
JSL L0313BE
LDY #$0083
LDA [$F8],Y
TAX
DEY
DEY
LDA [$F8],Y
TXY
LDX #$FB13
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$FEEF
PHA
PEA $0000
PEA $0200
JSL L071EC5
LDX #$FB39
STZ $00,X
LDX #$FB27
STZ $00,X
STZ $02,X
LDY #$007F
LDA [$F8],Y
TAX
DEY
DEY
LDA [$F8],Y
TXY
LDX #$FB03
STA $00,X
TYA
STA $02,X
LDA #$0400
LDX #$FB3B
ORA $00,X
LDX #$FB3B
STA $00,X
LDA #$2000
LDX #$FB3B
AND $00,X
BEQ L1A15AE
LDA #$0001
L1A15AE LDY #$007B
STA [$F8],Y
LDA L05501B
LDX L05501D
TXY
LDX #$FB73
STA $00,X
TYA
STA $02,X
LDA L05501B
LDX L05501D
TXY
LDX #$FB77
STA $00,X
TYA
STA $02,X
LDA L05501B
LDX L05501D
TXY
LDX #$FB7B
STA $00,X
TYA
STA $02,X
LDX #$FAFB
LDA $02,X
TAY
LDA $00,X
TYX
LDY #$0077
STA [$F8],Y
INY
INY
TXA
STA [$F8],Y
LDX #$FAFB
LDA $02,X
PHA
LDA $00,X
PHA
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FAEF
PHA
PEA $0000
PEA $0180
JSL L071E31
PLA
PLX
JSL L1512A5
TXY
LDX #$FAFB
STA $00,X
TYA
STA $02,X
LDY #$007B
LDA [$F8],Y
BEQ L1A163F
PEA $0000
TDC
CLC
ADC #$FB07
PHA
LDY #$0079
LDA [$F8],Y
PHA
DEY
DEY
LDA [$F8],Y
PHA
JSL L077E22
L1A163F LDA #$0000
TAX
LDY #$0099
STA [$F8],Y
INY
INY
TXA
STA [$F8],Y
PHY
PEA $0000
PEA $0600
PEA $0000
TDC
CLC
ADC #$FAEF
PHA
PEA $0000
PEI $F8
JSL L1A00E7
PLA
LSR
BCS L1A1689
PEA ^L0400BD
PEA L0400BD
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $F8
JSL L1A00AD
L1A1689 LDY #$009B
LDA [$F8],Y
PHA
DEY
DEY
LDA [$F8],Y
PHA
LDX #$FAEF
LDA $02,X
TAY
LDA $00,X
TYX
JSL L033477
BVS L1A16A6
EOR #$8000
L1A16A6 BMI L1A1707
LDY #$009B
LDA [$F8],Y
PHA
DEY
DEY
LDA [$F8],Y
PHA
PEA $0000
PEA $0200
PEA $0000
TDC
CLC
ADC #$F8EF
PHA
PEA $0000
JSL L077D97
PHY
PEA $0000
PEA $0200
PEA $0000
TDC
CLC
ADC #$F8EF
PHA
PEA $0000
PEI $F8
JSL L1A00E7
PLA
LSR
BCS L1A1705
PEA ^L0400C5
PEA L0400C5
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $F8
JSL L1A00AD
L1A1705 BRA L1A1689
L1A1707 LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$080A
TCS
RTL
L1A1719 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDAL L053AB7
TAX
LDAL L053AB5
LDY #$0099
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
LDY #$008F
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
JSL L0718BF
PHY
LDY #$0087
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
LDY #$008F
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
PEA $0000
PEI $0A
JSL L1A00E7
PLA
LSR
BCS L1A1793
PEA ^L0400D0
PEA L0400D0
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $0A
JSL L1A00AD
L1A1793 LDY #$008F
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
JSL L07185A
LDA #$0000
TAX
LDY #$008D
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1A17C1 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEI $18
PEI $16
PEI $14
PEI $12
PEA $0000
JSL L077624
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BEQ L1A180A
PEI $03
PEI $01
PEA $0000
PEI $0E
JSL L1A0215
PEI $18
PEI $16
PEI $14
PEI $12
PEA $0000
JSL L074B81
PEI $18
PEI $16
JSL L077B28
L1A180A LDA $0C
STA $18
LDA $0B
STA $17
LDA $09
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L1A181C PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $24
PEI $22
PEA $0014
JSL L0313BE
LDY #$0043
LDA [$1E],Y
PHA
JSL L075A4F
LDY #$0041
LDA [$1E],Y
PHA
JSL L075A4F
TDC
CLC
ADC #$0001
PEA $0000
PHA
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PHD
LDA $1E
TCD
LDA $4E
PLD
PEA $0000
PHA
JSL L1A00AD
LDA $1C
STA $24
LDA $1B
STA $23
LDA $19
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L1A1886 PHD
TSC
CLC
ADC #$FFB8
TCS
TCD
LDA L05503D
BNE L1A1896
BRL L1A1A6B
L1A1896 LDA L05503D
PHA
JSL L150B5E
STZ L05503D
LDY #$00C5
LDA [$4E],Y
PHA
DEY
DEY
LDA [$4E],Y
PHA
JSL L0718BF
LDY #$00C1
LDA [$4E],Y
PHA
DEY
DEY
LDA [$4E],Y
PHA
JSL L0718BF
LDA #$0004
STA $01
LDY #$00C5
LDA [$4E],Y
TAX
DEY
DEY
LDA [$4E],Y
STA $45
STX $47
LDY #$0002
LDA [$45],Y
TAX
LDA [$45]
STA $05
STX $07
LDA #$0001
STA $09
LDA #$0001
STA $0B
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2010
JSL GSOS2
STAL L05565D
LDAL L05565D
BEQ L1A1921
PEA ^L0400D7
PEA L0400D7
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $4E
JSL L1A00AD
L1A1921 LDA $03
STA $43
LDY #$00C1
LDA [$4E],Y
TAX
DEY
DEY
LDA [$4E],Y
STA $45
STX $47
LDY #$0002
LDA [$45],Y
TAX
LDA [$45]
STA $05
STX $07
LDA #$0002
STA $09
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2010
JSL GSOS2
STAL L05565D
LDAL L05565D
BEQ L1A197D
PEA ^L0400DE
PEA L0400DE
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $4E
JSL L1A00AD
L1A197D LDA $03
STA $41
LDY #$00C5
LDA [$4E],Y
PHA
DEY
DEY
LDA [$4E],Y
PHA
JSL L07191C
LDY #$00C1
LDA [$4E],Y
PHA
DEY
DEY
LDA [$4E],Y
PHA
JSL L07191C
LDY #$00A7
LDA [$4E],Y
PHA
DEY
DEY
LDA [$4E],Y
PHA
JSL L0718BF
L1A19AE PHY
PHY
PEI $43
LDY #$00A7
LDA [$4E],Y
TAX
DEY
DEY
LDA [$4E],Y
STA $45
STX $47
LDY #$0002
LDA [$45],Y
TAX
LDA [$45]
PHX
PHA
LDY #$00A3
LDA [$4E],Y
PHA
DEY
DEY
LDA [$4E],Y
PHA
PEA $0000
JSL L075D80
PLA
STA $3B
PLX
STX $3D
LDAL L05565D
BEQ L1A19EB
LDA #$0001
L1A19EB PHA
LDX #$0000
LDA #$004C
CMPL L05565D
BEQ L1A19F9
INX
L1A19F9 TXA
AND $01,S
PLX
LSR
BCC L1A1A0E
PEA ^L0400E5
PEA L0400E5
PEA $0000
PHD
JSL L1A181C
L1A1A0E LDAL L05565D
STA $3F
PHY
PHY
PEI $41
LDY #$00A7
LDA [$4E],Y
TAX
DEY
DEY
LDA [$4E],Y
STA $45
STX $47
LDY #$0002
LDA [$45],Y
TAX
LDA [$45]
PHX
PHA
PEI $3D
PEI $3B
PEA $0000
JSL L075E55
PLA
STA $3B
PLX
STX $3D
LDAL L05565D
BEQ L1A1A55
PEA ^L0400ED
PEA L0400ED
PEA $0000
PHD
JSL L1A181C
L1A1A55 LDA #$004C
CMP $3F
BEQ L1A1A5F
BRL L1A19AE
L1A1A5F PEI $43
JSL L075A4F
PEI $41
JSL L075A4F
L1A1A6B LDA $4C
STA $50
LDA $4B
STA $4F
LDA $49
TCD
TSC
CLC
ADC #$004E
TCS
RTL
L1A1A7D PHD
TSC
CLC
ADC #$FFC2
TCS
TCD
STZ $48
LDA L05503D
BNE L1A1A8F
BRL L1A1BAB
L1A1A8F PHY
PHY
PHY
LDA L05503D
PHA
JSL L151065
JSL L075B7B
PLA
STA $33
PLX
STX $35
PHY
PHY
JSL L0A1A87
PLA
STA $37
PLX
STX $39
PHY
PHY
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0000
TDC
CLC
ADC #$0019
PHA
LDA $37
LDX $39
TXY
LDX #$002D
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$002D
PHA
PEA $0000
TDC
CLC
ADC #$0023
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0023
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0015
PHA
LDA $33
LDX $35
TXY
LDX #$0015
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$0019
PHA
PEA $0306
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0019
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA ^L0400F6
PEA L0400F6
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0004
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L150018
PLA
PLX
STA $31
PEI $39
PEI $37
LDA #$C800
LDX #$0000
JSL L033477
BEQ L1A1B97
BVS L1A1B8E
EOR #$8000
L1A1B8E BPL L1A1B97
LDA #$0001
STA $48
BRA L1A1BAB
L1A1B97 LDA $31
SEC
SBC #$000A
BEQ L1A1BAB
BVS L1A1BA4
EOR #$8000
L1A1BA4 BPL L1A1BAB
LDA #$0001
STA $48
L1A1BAB LDA $42
STA $46
LDA $41
STA $45
LDA $3F
TCD
TSC
CLC
ADC #$0044
TCS
RTL
L1A1BBD PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $26
PEI $24
PEA $0014
JSL L0313BE
LDAL L05565D
STA $15
LDY #$001B
LDA [$20],Y
BEQ L1A1BF0
LDY #$001B
LDA [$20],Y
PHA
JSL L150B5E
L1A1BF0 LDY #$001D
LDA [$20],Y
BEQ L1A1C01
LDY #$001D
LDA [$20],Y
PHA
JSL L150B5E
L1A1C01 PEA ^L0719BA
PEA L0719BA
PEA $801E
PEA $0000
JSL L1515C8
PEA ^L0719BA
PEA L0719BA
PEA $801F
PEA $0000
JSL L1515C8
PHY
PHY
JSL L1515C2
PEA $801E
PEA $0001
JSL L1515C8
PHY
PHY
JSL L1515C2
PEA $801F
PEA $0001
JSL L1515C8
LDA #$0019
CLC
ADC $20
LDX $22
BCC L1A1C4C
INX
L1A1C4C STA $17
STX $19
PHY
LDY #$0019
LDA [$20],Y
PHA
JSL L1506E1
PLA
STA [$17]
LDY #$002A
LDA [$20],Y
TAX
DEY
DEY
LDA [$20],Y
CLC
ADC #$00C3
BCC L1A1C6F
INX
L1A1C6F STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
PHX
PHA
JSL L0718BF
PHY
PEA $0003
PEA $0000
PEA $0000
LDY #$002A
LDA [$20],Y
TAX
DEY
DEY
LDA [$20],Y
CLC
ADC #$00C3
BCC L1A1C9C
INX
L1A1C9C STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
PHX
PHA
JSL L150B64
PLA
STA L05503D
LDY #$002A
LDA [$20],Y
TAX
DEY
DEY
LDA [$20],Y
CLC
ADC #$00C3
BCC L1A1CCF
INX
L1A1CCF STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
PHX
PHA
JSL L07191C
TDC
CLC
ADC #$0001
PEA $0000
PHA
LDA $15
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PHD
LDA $20
TCD
LDA $28
PLD
PEA $0000
PHA
JSL L1A00AD
LDA $1E
STA $26
LDA $1D
STA $25
LDA $1B
TCD
TSC
CLC
ADC #$0024
TCS
RTL
L1A1D19 PHD
TSC
CLC
ADC #$FFDE
TCS
TCD
LDA L05503D
BNE L1A1D29
BRL L1A2002
L1A1D29 LDA L05503D
PHA
JSL L150B5E
STZ L05503D
PHY
PHY
JSL L1515C2
PEA $801E
PEA $0000
JSL L1515C8
PHY
PHY
JSL L1515C2
PEA $801F
PEA $0000
JSL L1515C8
PEA ^L0719BA
PEA L0719BA
PEA $801E
PEA $0001
JSL L1515C8
PEA ^L0719BA
PEA L0719BA
PEA $801F
PEA $0001
JSL L1515C8
PHY
PEA $0001
JSL L1506E1
PLA
STA $19
STZ $1D
STZ $1B
LDY #$00C5
LDA [$28],Y
PHA
DEY
DEY
LDA [$28],Y
PHA
JSL L0718BF
LDY #$00C1
LDA [$28],Y
PHA
DEY
DEY
LDA [$28],Y
PHA
JSL L0718BF
PHY
PEA $0001
PEA $0000
PEA $0000
LDY #$00C5
LDA [$28],Y
TAX
DEY
DEY
LDA [$28],Y
STA $1F
STX $21
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
PHX
PHA
JSL L150B64
PLA
STA $1D
LDAL L05565D
BEQ L1A1DDE
PEA ^L040100
PEA L040100
PEA $0000
PHD
JSL L1A1BBD
L1A1DDE PEA $0000
PEA $0000
PEA $0000
PEA $0000
LDY #$00C1
LDA [$28],Y
TAX
DEY
DEY
LDA [$28],Y
STA $1F
STX $21
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
PHX
PHA
JSL L150B82
LDAL L05565D
BEQ L1A1E1A
PEA ^L040108
PEA L040108
PEA $0000
PHD
JSL L1A1BBD
L1A1E1A PHY
PEA $0003
PEA $0000
PEA $0000
LDY #$00C1
LDA [$28],Y
TAX
DEY
DEY
LDA [$28],Y
STA $1F
STX $21
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
PHX
PHA
JSL L150B64
PLA
STA $1B
LDAL L05565D
BEQ L1A1E57
PEA ^L040112
PEA L040112
PEA $0000
PHD
JSL L1A1BBD
L1A1E57 LDY #$00C5
LDA [$28],Y
PHA
DEY
DEY
LDA [$28],Y
PHA
JSL L07191C
LDY #$00C1
LDA [$28],Y
PHA
DEY
DEY
LDA [$28],Y
PHA
JSL L07191C
LDY #$00A7
LDA [$28],Y
PHA
DEY
DEY
LDA [$28],Y
PHA
JSL L07185A
PEI $1D
JSL L150B70
PHY
JSL L15138B
PLA
STA $01
LDA $01
SEC
SBC #$0001
BVS L1A1E9D
EOR #$8000
L1A1E9D BMI L1A1EA2
BRL L1A1FAC
L1A1EA2 LDA #$0001
STA $17
L1A1EA7 PHY
PEI $17
JSL L1502DC
PLA
STA $15
PHY
PHY
PEI $15
JSL L150BAC
PLA
STA $03
PLX
STX $05
PEI $05
PEI $03
LDA #$0001
LDX #$0000
JSL L033477
BVS L1A1ED2
EOR #$8000
L1A1ED2 BMI L1A1ED7
BRL L1A1FA1
L1A1ED7 LDA #$0001
LDX #$0000
STA $11
STX $13
L1A1EE1 JSL L072328
PHY
PHY
PEI $15
PEI $13
PEI $11
JSL L150416
PLA
STA $0D
PLX
STX $0F
PHY
PHY
PEI $15
PEI $0F
PEI $0D
JSL L15041C
PLA
STA $09
PLX
STX $0B
LDAL L05565D
BEQ L1A1F1D
PEA ^L04011A
PEA L04011A
PEA $0000
PHD
JSL L1A1BBD
L1A1F1D PHY
PEI $15
PEI $0F
PEI $0D
JSL L150D3E
PLA
STA $07
PEI $15
PEI $0F
PEI $0D
JSL L150410
PEI $1B
JSL L150B70
PEI $0B
PEI $09
PEI $07
PEI $15
PEI $0F
PEI $0D
JSL L150422
LDAL L05565D
BEQ L1A1F5F
PEA ^L040125
PEA L040125
PEA $0000
PHD
JSL L1A1BBD
L1A1F5F PEI $1B
JSL L150B7C
LDAL L05565D
BEQ L1A1F79
PEA ^L040131
PEA L040131
PEA $0000
PHD
JSL L1A1BBD
L1A1F79 PEA $FFFF
PEI $15
PEI $0F
PEI $0D
JSL L1510BF
PEI $1D
JSL L150B70
LDA $11
LDX $13
CMP $03
BNE L1A1F96
CPX $05
L1A1F96 BEQ L1A1FA1
INC $11
BNE L1A1F9E
INC $13
L1A1F9E BRL L1A1EE1
L1A1FA1 LDA $17
CMP $01
BEQ L1A1FAC
INC $17
BRL L1A1EA7
L1A1FAC PEI $1B
JSL L150B5E
PEI $1D
JSL L150B5E
PHY
PEI $19
JSL L1506E1
PLA
STA $19
PEA ^L0719BA
PEA L0719BA
PEA $801E
PEA $0000
JSL L1515C8
PEA ^L0719BA
PEA L0719BA
PEA $801F
PEA $0000
JSL L1515C8
PHY
PHY
JSL L1515C2
PEA $801E
PEA $0001
JSL L1515C8
PHY
PHY
JSL L1515C2
PEA $801F
PEA $0001
JSL L1515C8
L1A2002 LDA $26
STA $2A
LDA $25
STA $29
LDA $23
TCD
TSC
CLC
ADC #$0028
TCS
RTL
L1A2014 ENT
PHD
TSC
CLC
ADC #$FF2A
TCS
TCD
LDA L055051
BEQ L1A2028
JSL L0903A6
BRL L1A2872
L1A2028 JSL L0903F2
PEA $0001
PEA $0000
JSL L090000
STZ $A5
STZ $A7
STZ $8D
STZ $8F
STZ $C3
STZ $C5
STZ $BF
STZ $C1
LDA L054FA1
STA $C7
JSL L072328
LDA L05503D
BEQ L1A206B
PHY
PHY
PHY
LDA L05503D
PHA
JSL L151065
JSL L075B7B
PLA
STA $CF
PLX
STX $D1
BRA L1A206F
L1A206B STZ $CF
STZ $D1
L1A206F LDAL L053AB3
PHA
LDAL L053AB1
PHA
LDAL L053AD7
TAX
LDAL L053AD5
JSL L1512A5
PEI $D1
PEI $CF
JSL L150F53
STA $CB
STX $CD
PEI $CD
PEI $CB
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
JSL L0752E6
PLA
PLX
SEC
SBC #$1000
BCS L1A20AD
DEX
L1A20AD JSL L033477
BEQ L1A20C4
BVS L1A20B8
EOR #$8000
L1A20B8 BPL L1A20C4
PEA $0005
JSL L0727E0
BRL L1A286C
L1A20C4 PEA $0000
LDA L05503F
LDX L055041
PHX
PHA
JSL L077086
PHY
PHY
LDA L055043
LDX L055045
PHX
PHA
JSL L070525
PLA
STA $C3
PLX
STX $C5
STZ $BF
STZ $C1
LDAL L053AB3
PHA
LDAL L053AB1
PHA
LDAL L053AD7
TAX
LDAL L053AD5
JSL L1512A5
STA $B9
STX $BB
LDA #$0001
STA $C9
L1A210B PHY
PHY
PEA ^L04013F
PEA L04013F
PEA $0000
TDC
CLC
ADC #$0005
PHA
LDA $C9
JSL L150488
PHX
PHA
PEA $0002
JSL L07334A
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA $0002
JSL L1509CE
JSL L0735A8
PLA
STA $BF
PLX
STX $C1
LDY #$0002
LDA [$BF],Y
PHA
LDA [$BF]
PHA
JSL L075B09
LDY #$0002
LDA [$BF],Y
PHA
LDA [$BF]
PHA
PEA $0055
PEA $0000
PEA $0001
PEA $0005
PEI $BB
PEI $B9
PEI $D1
PEI $CF
JSL L075A86
LDAL L05565D
BNE L1A218D
PHY
LDY #$0002
LDA [$BF],Y
PHA
LDA [$BF]
PHA
PEA $0000
JSL L075D3B
PLA
STA $BD
L1A218D LDAL L05565D
BEQ L1A21AF
LDA #$0014
CMP $C9
BEQ L1A219F
INC $C9
BRL L1A210B
L1A219F LDAL L05565D
BEQ L1A21AF
PEA $0006
JSL L0727E0
BRL L1A286C
L1A21AF PEA $0000
PHD
JSL L1A06A8
LDA #$0003
STA $B7
LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDA #$010E
LDX #$0000
JSL L033477
BEQ L1A21DE
BVS L1A21D7
EOR #$8000
L1A21D7 BPL L1A21DE
LDA #$0004
STA $B7
L1A21DE LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDA #$032A
LDX #$0000
JSL L033477
BEQ L1A2200
BVS L1A21F9
EOR #$8000
L1A21F9 BPL L1A2200
LDA #$0005
STA $B7
L1A2200 LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDA #$097E
LDX #$0000
JSL L033477
BEQ L1A2222
BVS L1A221B
EOR #$8000
L1A221B BPL L1A2222
LDA #$0006
STA $B7
L1A2222 LDAL L053ACB
PHA
LDAL L053AC9
PHA
LDA #$1C7A
LDX #$0000
JSL L033477
BEQ L1A2244
BVS L1A223D
EOR #$8000
L1A223D BPL L1A2244
LDA #$0007
STA $B7
L1A2244 PHY
PHY
PEA $0000
TDC
CLC
ADC #$0003
PHA
PEI $B1
LDA $B7
INC
JSL L150BEE
LDA $AD
JSL L150BEE
PLA
LDX #$0017
STA $00,X
PEA $0000
TDC
CLC
ADC #$0017
PHA
PEA $0000
TDC
CLC
ADC #$000D
PHA
PEA $040E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000D
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
LDA $B5
INC
PEA $0021
JSL L150BEE
PLA
LDX #$0001
STA $00,X
PEA $0000
TDC
CLC
ADC #$0003
PHA
PEA $0406
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0003
PHA
JSL L1514B4
PLA
PLX
STA $B3
LDA $B3
SEC
SBC #$0001
BVS L1A22D8
EOR #$8000
L1A22D8 BMI L1A22DF
LDA #$0001
STA $B3
L1A22DF LDA $B3
SEC
SBC #$0010
BEQ L1A22F3
BVS L1A22EC
EOR #$8000
L1A22EC BPL L1A22F3
LDA #$0010
STA $B3
L1A22F3 LDA #$0800
STA $AB
LDA $B3
SEC
SBC $B1
BEQ L1A236D
BVS L1A2304
EOR #$8000
L1A2304 BPL L1A236D
PEI $CD
PEI $CB
LDAL L053ACB
TAX
LDAL L053AC9
PEA $0000
PEA $0004
JSL L150D50
LDA $B3
SEC
SBC $B1
JSL L150488
JSL L150D50
PLA
PLX
JSL L150F53
STA $CB
STX $CD
PEI $CD
PEI $CB
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
JSL L0752E6
LDA $B9
LDX $BB
JSL L150F53
SEC
SBC #$1000
BCS L1A2355
DEX
L1A2355 JSL L033477
BEQ L1A236D
BVS L1A2360
EOR #$8000
L1A2360 BPL L1A236D
PEA $0005
PEA $0000
PHD
JSL L1A0000
L1A236D PEA $0000
PHD
JSL L1A04A0
PEA $0000
JSL L07479E
LDAL L053AB3
PHA
LDAL L053AB1
PHA
LDAL L053AD7
TAX
LDAL L053AD5
JSL L1512A5
PEI $D1
PEI $CF
JSL L150F53
STA $CB
STX $CD
LDA $B3
SEC
SBC $B1
BEQ L1A23DB
BVS L1A23AB
EOR #$8000
L1A23AB BPL L1A23DB
PEI $CD
PEI $CB
LDAL L053ACB
TAX
LDAL L053AC9
PEA $0000
PEA $0004
JSL L150D50
LDA $B3
SEC
SBC $B1
JSL L150488
JSL L150D50
PLA
PLX
JSL L150F53
STA $CB
STX $CD
L1A23DB PEI $CD
PEI $CB
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
JSL L0752E6
LDA $B9
LDX $BB
JSL L150F53
SEC
SBC #$1000
BCS L1A23FC
DEX
L1A23FC JSL L033477
BEQ L1A2414
BVS L1A2407
EOR #$8000
L1A2407 BPL L1A2414
PEA $0005
PEA $0000
PHD
JSL L1A0000
L1A2414 LDAL L053ABF
TAX
LDAL L053ABD
INC
BNE L1A2421
INX
L1A2421 PEA $0000
PEA $0080
JSL L150D50
PLA
STA $89
PLX
STX $8B
LDA $89
LDX $8B
PEA $0000
PEA $0004
JSL L150D50
PLA
STA $85
PLX
STX $87
PHY
PHY
PEI $87
PEI $85
LDA L054FBD
PHA
PEA $8000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $8D
PLX
STX $8F
LDAL L05565D
BEQ L1A2473
PEA $0049
PEA $0000
PHD
JSL L1A0000
L1A2473 LDY #$0002
LDA [$8D],Y
PHA
LDA [$8D]
PHA
PEI $87
PEI $85
JSL L071EC5
LDAL L053AB7
PHA
LDAL L053AB5
PHA
PEA $0000
PEA $0020
LDY #$0002
LDA [$8D],Y
PHA
LDA [$8D]
PHA
PEA $0000
JSL L077D97
PEI $8F
PEI $8D
JSL L07191C
PEA $0000
JSL L15000C
JSL L15059E
PHY
PHY
PEA $0000
PEA $9C40
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $91
PLX
STX $93
LDAL L05565D
BEQ L1A24E7
PEA $0049
PEA $0000
PHD
JSL L1A0000
L1A24E7 PHY
PHY
JSL L15042E
PLA
STA $A1
PLX
STX $A3
PEI $A3
PEI $A1
LDA #$0000
LDX #$0002
JSL L033477
BEQ L1A2514
BVS L1A2508
EOR #$8000
L1A2508 BPL L1A2514
LDA #$0000
LDX #$0002
STA $A1
STX $A3
L1A2514 PEI $A3
PEI $A1
LDA #$2000
LDX #$0000
JSL L033477
BVS L1A2527
EOR #$8000
L1A2527 BMI L1A2533
LDA #$2000
LDX #$0000
STA $A1
STX $A3
L1A2533 PHY
PHY
PEA $FFFF
PEA $FC00
PEI $A3
PEI $A1
JSL L15017E
PLA
STA $A1
PLX
STX $A3
PHY
PHY
PEI $A3
PEI $A1
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $A5
PLX
STX $A7
LDAL L05565D
BEQ L1A257F
PEI $93
PEI $91
JSL L07185A
PEA $0049
PEA $0000
PHD
JSL L1A0000
L1A257F PEI $93
PEI $91
JSL L07185A
STZ $9D
STZ $9F
LDAL L053AB7
TAX
LDAL L053AB5
PEI $87
PEI $85
JSL L150F53
STA $99
STX $9B
LDA $99
LDX $9B
STA $95
STX $97
PEI $BD
PEI $BB
PEI $B9
JSL L075DD3
LDAL L05565D
BEQ L1A25D4
PEA ^L04014A
PEA L04014A
LDAL L05565D
JSL L150488
PHX
PHA
PEI $BB
PEI $B9
PEA $0000
PHD
JSL L1A00AD
L1A25D4 PEA $0000
PHD
JSL L1A08B2
PHY
PHY
PEA $0000
PHD
JSL L1A0A20
PLA
STA $81
PLX
STX $83
PEA $0000
PHD
JSL L1A1115
PEA $0000
PHD
JSL L1A1315
LDAL L053AEF
PHA
LDAL L053AED
PHA
PEA $444C
PEA $4957
PEA $0000
PHD
JSL L1A17C1
LDAL L053AF3
PHA
LDAL L053AF1
PHA
PEA $444C
PEA $4957
PEA $0000
PHD
JSL L1A17C1
LDAL L053AF7
PHA
LDAL L053AF5
PHA
PEA $444C
PEA $4957
PEA $0000
PHD
JSL L1A17C1
LDAL L053AFB
PHA
LDAL L053AF9
PHA
PEA $444C
PEA $4957
PEA $0000
PHD
JSL L1A17C1
PEA $0000
PHD
JSL L1A0169
PEA $0000
PHD
JSL L1A1493
LDA $99
LDX $9B
STA $7D
STX $7F
PEI $BD
PEI $7F
PEI $7D
JSL L075DD3
LDAL L05565D
BEQ L1A26A0
PEA ^L040152
PEA L040152
LDAL L05565D
JSL L150488
PHX
PHA
PEI $7F
PEI $7D
PEA $0000
PHD
JSL L1A00AD
L1A26A0 PEA $0000
PHD
JSL L1A152E
PEA $0000
PHD
JSL L1A1719
PEI $BD
JSL L075A4F
LDAL L05565D
BEQ L1A26DA
PEA ^L04015A
PEA L04015A
LDAL L05565D
JSL L150488
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PHD
JSL L1A00AD
L1A26DA JSL L077AA5
LDA L055231
BNE L1A26EF
PHY
PEA $0000
PHD
JSL L1A1A7D
PLA
BEQ L1A26F9
L1A26EF PEA $0000
PHD
JSL L1A1D19
BRA L1A2701
L1A26F9 PEA $0000
PHD
JSL L1A1886
L1A2701 PEI $A7
PEI $A5
JSL L07185A
STZ $A5
STZ $A7
LDA L055047
PHA
JSL L075A4F
LDA #$0006
STA $37
LDY #$0002
LDA [$C3],Y
TAX
LDA [$C3]
STA $39
STX $3B
TDC
CLC
ADC #$0037
PEA $0000
PHA
PEA $2006
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L1A27AC
TDC
CLC
ADC #$006B
PEA $0000
PHA
TDC
CLC
ADC #$0047
PEA $0000
PHA
PEA $0008
JSL L0313BE
LDY #$0002
LDA [$BF],Y
TAX
LDA [$BF]
STA $39
STX $3B
TDC
CLC
ADC #$0037
PEA $0000
PHA
PEA $2006
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L1A27AC
TDC
CLC
ADC #$0047
PEA $0000
PHA
TDC
CLC
ADC #$006B
PEA $0000
PHA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0037
PEA $0000
PHA
PEA $2005
JSL GSOS2
STAL L05565D
L1A27AC LDY #$0002
LDA [$C3],Y
PHA
LDA [$C3]
PHA
JSL L075B09
LDAL L05565D
BEQ L1A27C2
BRL L1A285C
L1A27C2 LDY #$0002
LDA [$BF],Y
PHA
LDA [$BF]
PHA
LDY #$0002
LDA [$C3],Y
PHA
LDA [$C3]
PHA
JSL L075A0C
PHY
LDY #$0002
LDA [$C3],Y
PHA
LDA [$C3]
PHA
PEA $0000
JSL L075D3B
PLA
STA L055047
LDAL L05565D
BEQ L1A2800
LDA #$01F4
CLC
ADCL L05565D
PHA
JSL L07272E
L1A2800 PEA $0000
PEA $0000
PEA $0000
PEA $0600
PEA ^L053A9D
PEA L053A9D
PEA $0000
JSL L077D97
LDA $7B
BEQ L1A282B
PEA ^L053AB5
PEA L053AB5
PEI $79
PEI $77
JSL L077E22
L1A282B LDA $77
LDX $79
STAL L053AA9
TXA
STAL L053AAB
PHY
PEA $0003
PEA $0000
PEA $0000
LDY #$0002
LDA [$C3],Y
PHA
LDA [$C3]
PHA
JSL L150B64
PLA
STA L05503D
LDAL L05565D
BEQ L1A285C
STZ L05503D
L1A285C PEI $C5
PEI $C3
JSL L07185A
PEI $C1
PEI $BF
JSL L07185A
L1A286C PEI $C7
JSL L0724F7
L1A2872 TSC
CLC
ADC #$00D6
TCS
PLD
RTL