antoine-source/hypercardiigs/HyperPnt2.S
Antoine Vignau 25de611f19 Adding HCGS & SynthLAB
202303 - Adding two working disassemblies of former IIgs products
2023-03-02 13:12:30 +01:00

7202 lines
133 KiB
ArmAsm

*
* HypercardGS
* segment: $1C HyperPnt2
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk HyperPnt2.l
lst off
*---------------------------------------
use HyperPnt2.E
use HyperPnt2.X
use 4/Ctl.Macs
use 4/Desk.Macs
use 4/Dialog.Macs
use 4/Event.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/List.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/MidiSyn.Macs
use 4/Misc.Macs
use 4/Qd.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L1C0000 ENT
PHD
TSC
CLC
ADC #$FFD8
TCS
TCD
LDA L0552B9
EOR #$0001
STA L0552B9
LDA L054FBB
PHA
LDX #$0000
PLA
BPL L1C001C
INX
L1C001C TXA
PHA
LDA L055153
AND L05514F
ORA $01,S
PLX
PHA
LDA L055153
EOR #$0001
AND L055151
ORA $01,S
PLX
LSR
BCC L1C003A
BRL L1C0140
L1C003A LDAL L051DBC
STA $0B
LDA $0B
INC
INC
STA $0F
LDAL L051DBA
SEC
SBCL L051DB2
STA $09
LDAL L051DB4
CLC
ADCL L051DBA
STA $0D
PHY
PEA ^L053259
PEA L053259
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L150B3A
PLA
LSR
BCS L1C0080
BRL L1C0140
L1C0080 PHY
PHY
JSL L150493
PLA
STA $21
PLX
STX $23
LDA L0552FF
BNE L1C0094
BRL L1C011F
L1C0094 PEA ^L05312F
PEA L05312F
JSL L151131
TDC
CLC
ADC #$0011
PEA $0000
PHA
PEA ^L05312F
PEA L05312F
PEA $0010
JSL L0313BE
PEA ^L051D46
PEA L051D46
JSL L1506A7
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0001
PEA $0000
PHA
LDAL L051D60
EOR #$FFFF
INC
PHA
LDAL L051D5E
EOR #$FFFF
INC
PHA
JSL L1501AF
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150383
TDC
CLC
ADC #$0011
PEA $0000
PHA
JSL L1506A7
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L1C2CB9
BRA L1C0138
L1C011F LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L150383
L1C0138 PEI $23
PEI $21
JSL L151131
L1C0140 TSC
CLC
ADC #$0028
TCS
PLD
RTL
L1C0148 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0000
JSL L160862
PLA
LSR
BCC L1C01BA
LDA L0552AF
BEQ L1C0188
PEA ^L051E32
PEA L051E32
PEA ^L051E92
PEA L051E92
PEA ^L051DAA
PEA L051DAA
PEA ^L051DAA
PEA L051DAA
PEA $0002
PEA $0000
PEA $0000
JSL L1505E6
BRA L1C01A6
L1C0188 PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051E92
PEA L051E92
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
JSL L150383
L1C01A6 PEA ^L051DAA
PEA L051DAA
PEA ^L051E1A
PEA L051E1A
JSL L081E53
JSL L160870
L1C01BA PLY
PLY
PLD
RTL
L1C01BE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L1510A1
LDA L055303
ASL
PHA
LDA L055303
PHA
JSL L151083
LDA L055231
BEQ L1C01E6
PEA ^L052D12
PEA L052D12
JSL L151198
L1C01E6 PLY
PLY
PLD
RTL
L1C01EA ENT
PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
PEI $42
PEI $40
PEI $3E
PEI $3C
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L071937
LDA L055303
SEC
SBC L055301
STA $01
TDC
CLC
ADC #$0003
PEA $0000
PHA
LDA $01
ASL
EOR #$FFFF
INC
PHA
LDA $01
EOR #$FFFF
INC
PHA
JSL L151005
PHY
PHY
JSL L150493
PLA
STA $2F
PLX
STX $31
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051E92
PEA L051E92
JSL L1506A7
PEI $42
PEI $40
JSL L1C07FC
PEI $3E
PEI $3C
JSL L1C03FE
PEA ^L051EA2
PEA L051EA2
JSL L1506A7
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEA ^L053179
PEA L053179
PEA $0020
JSL L0313BE
PEA ^L051D06
PEA L051D06
JSL L151198
PEI $42
PEI $40
JSL L1C07FC
PEI $3E
PEI $3C
JSL L1C03FE
TDC
CLC
ADC #$000F
PEA $0000
PHA
JSL L151198
TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA ^L051E1A
PEA L051E1A
JSL L081E53
TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
PEA $0001
JSL L1601A8
PEA ^L053239
PEA L053239
JSL L1506A7
PEI $31
PEI $2F
JSL L151131
LDA $3A
STA $42
LDA $39
STA $41
LDA $37
TCD
TSC
CLC
ADC #$0040
TCS
RTL
L1C02F4 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L055315
LDX L055317
PHX
PHA
JSL L07185A
STZ L055315
STZ L055317
LDA L0552BB
STA $01
LDA $01
SEC
SBC #$0001
BVS L1C031E
EOR #$8000
L1C031E BPL L1C0343
LDA #$0001
STA $03
L1C0325 LDA $03
DEC
ASL
ASL
TAX
LDAL L051DC0,X
PHA
LDAL L051DBE,X
PHA
JSL L07185A
LDA $03
CMP $01
BEQ L1C0343
INC $03
BRA L1C0325
L1C0343 STZ L0552BB
STZ L055319
JSL L160234
JSL L16087E
PEA $0000
JSL L1601A8
PLY
PLY
PLY
PLY
PLD
RTL
L1C035E ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA ^L05312F
PEA L05312F
JSL L151131
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L055105
LDX L055107
PHX
PHA
PEA $0000
PEA $0000
LDA L055105
LDX L055107
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0001
JSL L0836B6
LDA L0552A3
BEQ L1C03CD
LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L055101
LDX L055103
PHX
PHA
PEA $0000
PEA $0000
LDA L055101
LDX L055103
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0001
JSL L0836B6
BRA L1C03EA
L1C03CD LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L055101
LDX L055103
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0003
JSL L08382C
L1C03EA PEA ^L051DAA
PEA L051DAA
PEA ^L0532B5
PEA L0532B5
JSL L081E53
PLY
PLY
PLD
RTL
L1C03FE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L055301
ASL
STA $01
LDA $0C
SEC
SBC $01
PHA
LDA $0A
SEC
SBC L055301
PHA
JSL L1505DA
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1C042E ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PLY
PLY
PLD
RTL
L1C043A ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
STZ $1A
LDA #$4010
STA $01
LDA $0C
BEQ L1C0452
LDA #$4000
STA $01
L1C0452 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $03
STX $05
LDA [$03]
LDY #$0002
ORA [$03],Y
BNE L1C04BC
PEA $0000
PEA $7D00
LDA L0552FD
PHA
PEI $01
PEA $0000
PEA $0000
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
JSL L151406
LDA #$0201
CMPL L05565D
BNE L1C04B2
JSL L151373
PEA $0000
PEA $7D00
LDA L0552FD
PHA
PEI $01
PEA $0000
PEA $0000
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
JSL L151406
L1C04B2 LDAL L05565D
BEQ L1C04BA
BRA L1C0538
L1C04BA BRA L1C04CC
L1C04BC PEA $0000
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
JSL L150D44
L1C04CC PHY
JSL L094772
PLA
LSR
BCS L1C04E7
PEA $0002
LDY #$0002
LDA [$16],Y
PHA
LDA [$16]
PHA
JSL L150D44
BRA L1C0538
L1C04E7 LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $03
STX $05
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
STA [$12]
TXA
LDY #$0002
STA [$12],Y
LDA #$0080
STA [$0E]
LDY #$0002
LDA [$12],Y
TAX
LDA [$12]
LDY #$0002
STA [$0E],Y
INY
INY
TXA
STA [$0E],Y
LDA #$00A0
LDY #$0006
STA [$0E],Y
LDA #$0008
CLC
ADC $0E
LDX $10
BCC L1C052D
INX
L1C052D PHX
PHA
JSL L082712
LDA #$0001
STA $1A
L1C0538 LDA $0A
STA $18
LDA $09
STA $17
LDA $07
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L1C054A ENT
PHD
TSC
CLC
ADC #$FFD6
TCS
TCD
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L053239
PEA L053239
JSL L1506A7
LDA L055303
STA $25
PEA $0001
JSL L0A1225
TDC
CLC
ADC #$0021
PEA $0000
PHA
JSL L1C1ACF
LDA $21
LDX $23
STA $19
STX $1B
JSL L1C0F31
JSL L160376
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L08273B
PEA $0000
JSL L16088C
JSL L1510A1
PEA $0002
PEA $0001
JSL L151083
PEA $0002
JSL L150BD6
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L08273B
LDA #$FFFF
STA $17
LDA #$0001
STA $13
L1C05CF TDC
CLC
ADC #$001D
PEA $0000
PHA
JSL L1C1ACF
LDA $1D
LDX $1F
CMP $19
BNE L1C05E6
CPX $1B
L1C05E6 BNE L1C05ED
LDA #$0000
BRA L1C05F0
L1C05ED LDA #$0001
L1C05F0 STA $11
LDA L05524B
BNE L1C062B
LDA L054FB7
LDX L054FB9
STA $27
STX $29
LDA #$0007
AND [$27]
STA $15
LDA $17
CMP $15
BEQ L1C062B
PEA ^L054F6B
PEA L054F6B
JSL L082570
PEA ^L054F6B
PEA L054F6B
JSL L151198
LDA $15
STA $17
LDA #$0001
STA $11
L1C062B LDA $11
ORA $13
BEQ L1C06AC
PEI $23
PEI $21
PEI $1F
PEI $1D
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L071937
LDA $0F
INC
INC
STA $0F
LDA $0D
INC
STA $0D
LDA L05524B
BNE L1C06AC
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L151418
PEA ^L0532BD
PEA L0532BD
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L081E5F
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA ^L053127
PEA L053127
JSL L081E53
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L1C1407
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L151418
L1C06AC PEA ^L0532BD
PEA L0532BD
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0008
JSL L0313BE
LDA $1D
LDX $1F
STA $19
STX $1B
STZ $13
PHY
JSL L096CC4
PLA
EOR #$0001
BNE L1C06DA
BRL L1C05CF
L1C06DA PHY
JSL L090A90
PHY
JSL L09771E
PLA
EOR #$0001
AND $01,S
PLX
LSR
BCC L1C0727
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L1C1407
LDA L055105
LDX L055107
PHX
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L082766
PHY
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L081A64
PLA
EOR #$0001
STA L0552B1
BRA L1C0761
L1C0727 LDA $0D
DEC
STA $27
LDA $09
SEC
SBC $27
BVS L1C0736
EOR #$8000
L1C0736 BPL L1C073D
LDA #$0000
BRA L1C0740
L1C073D LDA #$0001
L1C0740 PHA
LDA $0F
DEC
DEC
STA $27
LDA $0B
SEC
SBC $27
BVS L1C0751
EOR #$8000
L1C0751 BPL L1C0758
LDA #$0000
BRA L1C075B
L1C0758 LDA #$0001
L1C075B AND $01,S
PLX
STA L0552B1
L1C0761 LDA L0552B1
BEQ L1C07B3
STZ L0552A9
JSL L1C3EDC
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L1C2911
PEA ^L051E32
PEA L051E32
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
PEA ^L051D06
PEA L051D06
JSL L1517EB
PEA ^L051E12
PEA L051E12
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
JSL L1C1967
LDA #$0004
STA L0552A7
BRA L1C07BB
L1C07B3 LDA L0552A7
PHA
JSL L0A02BC
L1C07BB PEA ^L053239
PEA L053239
JSL L1506A7
PEI $25
JSL L0A1225
JSL L1510A1
LDA L0552B1
BEQ L1C07F4
JSL L16089A
JSL L1C035E
PHY
JSL L09771E
PHY
JSL L090A90
PLA
EOR #$0001
AND $01,S
PLX
LSR
BCC L1C07F4
JSL L1C26E1
L1C07F4 TSC
CLC
ADC #$002A
TCS
PLD
RTL
L1C07FC ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L055301
ASL
STA $01
LDA $0C
SEC
SBC $01
PHA
LDA $0A
SEC
SBC L055301
PHA
JSL L1510C5
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1C082C ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDAL L051ED8
STA $09
LDAL L051EDC
SEP #$20
STA $0B
REP #$20
LDAL L051EDA
SEP #$20
STA $0C
REP #$20
PEI $0B
PEI $09
PEA $0000
JSL L151663
PEA ^L051DB2
PEA L051DB2
JSL L150178
TSC
CLC
ADC #$0010
TCS
PLD
RTL
L1C086B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0000
JSL L160862
PLA
LSR
BCC L1C08ED
PEA ^L05312F
PEA L05312F
JSL L151131
LDA L0552AF
BEQ L1C08BB
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L0552E5
LDX L0552E7
PHX
PHA
PEA $0000
PEA $0000
LDA L0552E5
LDX L0552E7
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0001
JSL L0836B6
BRA L1C08CF
L1C08BB PEA ^L051EA2
PEA L051EA2
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
JSL L15123D
L1C08CF PEA ^L053239
PEA L053239
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
PEA ^L051E1A
PEA L051E1A
JSL L081E53
JSL L160870
L1C08ED PLY
PLY
PLD
RTL
L1C08F1 ENT
PHD
TSC
CLC
ADC #$FDC2
TCS
ADC #$0147
TCD
LDA L055051
EOR #$0001
STA $F1
LDA L055243
ORA $F1
STA $EF
LDA L054FB5
EOR #$0001
ORA $EF
ORA L0551F3
STA $ED
JSL L093F21
PEA ^L05259E
PEA L05259E
PEA $0000
TDC
CLC
ADC #$FEB9
PHA
PEA $0007
JSL L073002
PEA ^L052CCE
PEA L052CCE
PEA $0000
TDC
CLC
ADC #$FFBD
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05254E
PEA L05254E
PEA ^L0407F0
PEA L0407F0
PEA ^L052CBA
PEA L052CBA
TDC
CLC
ADC #$00A3
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05259E
PEA L05259E
PEA $00FD
JSL L15039B
PEI $ED
PEA $00FD
JSL L073077
STZ $E9
LDAL L0407F7
SEP #$20
STA $D1
REP #$20
LDAL L0407F8
SEP #$20
STA $BD
REP #$20
LDA L054FB5
BNE L1C09AC
BRL L1C0A87
L1C09AC STZ $E9
LDA L0551F3
BEQ L1C0A08
LDA L055111
LDX L055113
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
TXY
LDX #$FFB9
STA $00,X
TYA
STA $02,X
LDX #$FFB9
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$0020
BCC L1C09DE
INX
L1C09DE STA $F3
STX $F5
LDA [$F3]
PHA
LDX #$FFB9
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$0022
BCC L1C09F5
INX
L1C09F5 STA $F3
STX $F5
PLA
CMP [$F3]
BNE L1C0A03
LDA #$0000
BRA L1C0A06
L1C0A03 LDA #$0001
L1C0A06 STA $E9
L1C0A08 LDA $E9
BEQ L1C0A49
LDA #$0001
STA $EB
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FEB9
PHA
PEA $0008
JSL L073002
PEA $0014
JSL L0313BE
TDC
CLC
ADC #$00BD
PEA $0000
PHA
PEA ^L0407F9
PEA L0407F9
PEA $0005
JSL L0313BE
BRA L1C0A87
L1C0A49 LDA L0552AB
ORA L0552B1
BEQ L1C0A87
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FEB9
PHA
PEA $0009
JSL L073002
PEA $0014
JSL L0313BE
TDC
CLC
ADC #$00BD
PEA $0000
PHA
PEA ^L0407FE
PEA L0407FE
PEA $0008
JSL L0313BE
L1C0A87 LDA L0552B1
ORA $E9
ORA L0552AB
PHA
LDA L054FB5
EOR #$0001
ORA $01,S
PLX
STA $EB
PEA ^L0525C6
PEA L0525C6
PEA $0000
TDC
CLC
ADC #$FEB9
PHA
PEA $0004
JSL L073002
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBD
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L052576
PEA L052576
PEA ^L040806
PEA L040806
TDC
CLC
ADC #$00BD
PEA $0000
PHA
TDC
CLC
ADC #$00A5
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L0525B2
PEA L0525B2
PEA $0000
TDC
CLC
ADC #$FEB9
PHA
PEA $0005
JSL L073002
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBD
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L052562
PEA L052562
PEA ^L04080B
PEA L04080B
TDC
CLC
ADC #$00BD
PEA $0000
PHA
TDC
CLC
ADC #$00A3
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05258A
PEA L05258A
PEA $0000
TDC
CLC
ADC #$FEB9
PHA
PEA $0006
JSL L073002
TDC
CLC
ADC #$00D1
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBD
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05253A
PEA L05253A
PEA ^L040811
PEA L040811
TDC
CLC
ADC #$00BD
PEA $0000
PHA
TDC
CLC
ADC #$00A3
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L0525C6
PEA L0525C6
PEA $00FB
JSL L15039B
PEA ^L0525B2
PEA L0525B2
PEA $00FC
JSL L15039B
PEA ^L05258A
PEA L05258A
PEA $00FE
JSL L15039B
LDA L05528F
ORA L0552AB
ORA L0552C5
STA $E7
LDA $ED
AND $EB
PHA
PEA $00FB
JSL L073077
PEI $EB
PEA $00FC
JSL L073077
LDA $ED
AND $EB
PHA
PEA $00FE
JSL L073077
PEI $E7
PEA $00FA
JSL L073077
PEI $F1
PEA $01FC
JSL L073077
PEI $F1
PEA $01FD
JSL L073077
PEI $F1
PEA $01FE
JSL L073077
PEI $EF
PEA $0201
JSL L073077
LDA L055153
PHA
PEA $0202
JSL L15167B
LDA #$0388
STA $E5
L1C0C51 LDA $EF
AND $EB
PHA
PEI $E5
JSL L073077
LDA #$038F
CMP $E5
BEQ L1C0C67
INC $E5
BRA L1C0C51
L1C0C67 LDA $EF
AND $EB
PHA
PEA $0391
JSL L073077
LDA $EF
AND $EB
PHA
PEA $0392
JSL L073077
PEI $F1
PEA $0394
JSL L073077
PEI $EF
PEA $0395
JSL L073077
LDA L055313
PHA
PEA $03E9
JSL L15167B
LDA L0552FF
PHA
PEA $03EA
JSL L15167B
LDA L055219
PHA
PEA $03EB
JSL L15167B
LDA L0550B5
SEC
SBC #$0010
BEQ L1C0CC2
BVS L1C0CC0
EOR #$8000
L1C0CC0 BMI L1C0CC7
L1C0CC2 LDA #$0000
BRA L1C0CCA
L1C0CC7 LDA #$0001
L1C0CCA AND $F1
PHA
PEA $03EF
JSL L073077
PEI $EF
PEA $03F0
JSL L073077
LDA L0550B7
PHA
PEA $03F3
JSL L15167B
LDA L05530B
PHA
PEA $03F4
JSL L15167B
LDA L055311
PHA
PEA $03F5
JSL L15167B
LDA L055311
EOR #$0001
PHA
PEA $03F6
JSL L073077
LDA L055309
PHA
PEA $03F6
JSL L15167B
PEI $EF
PEA $057D
JSL L073077
PEA $0000
PEA $0000
PEA $01F4
JSL L1505D4
TSC
CLC
ADC #$023E
TCS
PLD
RTL
L1C0D35 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L0551F3
BEQ L1C0DB1
LDA L055111
LDX L055113
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0020
BCC L1C0D5B
INX
L1C0D5B STA $01
STX $03
LDA [$01]
PHA
LDA L055111
LDX L055113
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0022
BCC L1C0D7B
INX
L1C0D7B STA $01
STX $03
PLA
CMP [$01]
BEQ L1C0D92
LDA L055111
LDX L055113
PHX
PHA
JSL L15058C
BRA L1C0DAF
L1C0D92 PEA ^L053251
PEA L053251
PEA $0000
LDA L055111
LDX L055113
PHX
PHA
JSL L151651
JSL L09B1FE
JSL L097700
L1C0DAF BRA L1C0DF1
L1C0DB1 PHY
PEA $0000
JSL L160862
PLA
LSR
BCC L1C0DF1
JSL L1C3F07
JSL L160870
JSL L16087E
LDX #$0000
LDA #$0005
CMP L0550BB
BNE L1C0DD5
INX
L1C0DD5 PHX
LDX #$0000
LDA #$0004
CMP L0550BB
BNE L1C0DE2
INX
L1C0DE2 TXA
ORA $01,S
PLX
LSR
BCC L1C0DF1
LDA L0552A7
PHA
JSL L0A02BC
L1C0DF1 PLY
PLY
PLD
RTL
L1C0DF5 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$02BC
CLC
ADC $0A
STA $0A
LDA $0C
SEC
SBC #$0004
BPL L1C0E10
BRL L1C0EC4
L1C0E10 CMP #$000F
BMI L1C0E18
BRL L1C0EC4
L1C0E18 ASL
TAX
LDAL L1C0E20,X
PHA
RTS
L1C0E20 DA L1C0E3E-1
DA L1C0E47-1
DA L1C0E50-1
DA L1C0E59-1
DA L1C0E61-1
DA L1C0E81-1
DA L1C0EC4-1
DA L1C0EBE-1
DA L1C0EBE-1
DA L1C0E87-1
DA L1C0EBE-1
DA L1C0EBE-1
DA L1C0E95-1
DA L1C0EB6-1
DA L1C0EBE-1
L1C0E3E JSL L1C2513
BRL L1C0EDA
BRA L1C0EC4
L1C0E47 JSL L1C26E1
BRL L1C0EDA
BRA L1C0EC4
L1C0E50 JSL L1C3162
BRL L1C0EDA
BRA L1C0EC4
L1C0E59 JSL L1603BC
BRA L1C0EDA
BRA L1C0EC4
L1C0E61 LDA L055051
AND L055245
EOR #$0001
CMP #$0000
BNE L1C0E77
PHY
JSL L1C19FB
PLA
BEQ L1C0E7F
L1C0E77 JSL L1C2513
JSL L1C0D35
L1C0E7F BRA L1C0EC4
L1C0E81 JSL L1603AE
BRA L1C0EC4
L1C0E87 LDA L0550DD
LDX L0550DF
PHX
PHA
JSL L09A5A7
BRA L1C0EC4
L1C0E95 PHY
PEA ^L051EBE
PEA L051EBE
PEA $0001
JSL L1602CE
PLA
LSR
BCC L1C0EB2
JSL L1C082C
PEA $0001
JSL L1C3B67
L1C0EB2 BRA L1C0EDA
BRA L1C0EC4
L1C0EB6 JSL L1603D8
BRA L1C0EDA
BRA L1C0EC4
L1C0EBE JSL L09A560
BRA L1C0EC4
L1C0EC4 LDA $0A
SEC
SBC #$02C0
BVS L1C0ECF
EOR #$8000
L1C0ECF BPL L1C0EDA
PEA $02BC
PEI $0A
JSL L09971B
L1C0EDA LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1C0EEB ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
PEA $0008
JSL L0313BE
PEA $0000
JSL L16088C
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L1C1407
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L1C0F31 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L090A71
JSL L1C02F4
PLY
PLY
PLD
RTL
L1C0F45 ENT
PHD
TSC
CLC
ADC #$FFC6
TCS
TCD
LDA L0551F3
BEQ L1C0FC4
LDA L055111
LDX L055113
STA $37
STX $39
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
CLC
ADC #$0020
BCC L1C0F6B
INX
L1C0F6B STA $37
STX $39
LDA [$37]
PHA
LDA L055111
LDX L055113
STA $37
STX $39
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
CLC
ADC #$0022
BCC L1C0F8B
INX
L1C0F8B STA $37
STX $39
PLA
CMP [$37]
BNE L1C0F97
BRL L1C116D
L1C0F97 LDA $40
BEQ L1C0FA9
LDA L055111
LDX L055113
PHX
PHA
JSL L150C34
BRA L1C0FB5
L1C0FA9 LDA L055111
LDX L055113
PHX
PHA
JSL L15019D
L1C0FB5 JSL L150395
JSL L15136D
JSL L150723
BRL L1C116D
L1C0FC4 LDA L0552AB
BEQ L1C0FCD
JSL L1C2622
L1C0FCD LDA L0552B1
BNE L1C0FDC
PEA $0004
JSL L0727E0
BRL L1C116D
L1C0FDC JSL L1605B4
TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L082712
LDA L0552E5
LDX L0552E7
PHX
PHA
TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L08295E
TDC
CLC
ADC #$0027
PEA $0000
PHA
JSL L082712
LDA L0552E1
LDX L0552E3
PHX
PHA
TDC
CLC
ADC #$0027
PEA $0000
PHA
JSL L082766
PHY
TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L081A64
PHY
TDC
CLC
ADC #$0027
PEA $0000
PHA
JSL L081A64
PLA
STA $37
PLA
AND $37
BEQ L1C1052
PEA $001F
JSL L0727E0
BRL L1C116D
L1C1052 JSL L093A99
JSL L090A71
LDA L055051
AND L055245
AND $40
BEQ L1C106B
JSL L0903A6
BRL L1C116D
L1C106B PHY
JSL L1C19FB
PLA
LSR
BCC L1C1077
BRL L1C116D
L1C1077 JSL L150395
JSL L15136D
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051E92
PEA L051E92
JSL L1506A7
PHY
PHY
PEA ^L051DAA
PEA L051DAA
JSL L1502FA
PLA
STA $23
PLX
STX $25
LDA L0552AF
BEQ L1C10BA
PEA $3039
PEA $0000
PEA $0000
PEA $0000
JSL L150556
L1C10BA PEA ^L053259
PEA L053259
JSL L150FF9
PEA ^L051E92
PEA L051E92
PEA ^L051E92
PEA L051E92
PEA ^L051DAA
PEA L051DAA
PEA ^L051DAA
PEA L051DAA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
JSL L151400
PEI $25
PEI $23
JSL L0718BF
PHY
PHY
PHY
PEI $25
PEI $23
JSL L151301
PEA $0001
LDY #$0002
LDA [$23],Y
PHA
LDA [$23]
PHA
JSL L0732FD
PLA
STA $21
PEI $25
PEI $23
JSL L07191C
PEI $25
PEI $23
JSL L1502F4
PEA ^L053239
PEA L053239
JSL L1506A7
LDA $21
BEQ L1C1158
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L085F5A
PHY
PEA $0000
PEA $0020
PEA $8002
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0732FD
PLA
STA $21
L1C1158 LDA $21
BEQ L1C1166
LDA $40
BEQ L1C1164
JSL L1C0D35
L1C1164 BRA L1C116D
L1C1166 PEA $0020
JSL L0727E0
L1C116D LDA $3E
STA $40
LDA $3D
STA $3F
LDA $3B
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L1C117F PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
PEA $0000
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150300
PEA $0000
PEA ^L051D72
PEA L051D72
JSL L150306
PEA ^L051D72
PEA L051D72
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0020
JSL L0313BE
LDA $28
STA $2C
LDA $27
STA $2B
LDA $25
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L1C11CC ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
PHY
JSL L09ABD5
PLA
LSR
BCC L1C11E0
BRL L1C137A
L1C11E0 LDA L0552C5
BNE L1C11E8
BRL L1C1343
L1C11E8 LDA L055315
ORA L055317
BEQ L1C11F3
LDA #$0001
L1C11F3 ORA L055319
BEQ L1C11FC
JSL L1C0F31
L1C11FC PHY
PEA ^L0532B5
PEA L0532B5
JSL L081A64
PLA
LSR
BCS L1C1245
LDA L055105
LDX L055107
PHX
PHA
LDA L0552CD
LDX L0552CF
PHX
PHA
PEA ^L0532B5
PEA L0532B5
PEA $FFFB
JSL L08382C
LDA L055101
LDX L055103
PHX
PHA
LDA L0552D1
LDX L0552D3
PHX
PHA
PEA ^L0532B5
PEA L0532B5
PEA $FFFB
JSL L08382C
L1C1245 PEA ^L055137
PEA L055137
PEA ^L055289
PEA L055289
JSL L1C2DA6
PEA ^L0552AB
PEA L0552AB
PEA ^L05528F
PEA L05528F
JSL L1C2DA6
PEA ^L0552AF
PEA L0552AF
PEA ^L055293
PEA L055293
JSL L1C2DA6
PEA ^L0552A1
PEA L0552A1
PEA ^L05528B
PEA L05528B
JSL L1C2DA6
PEA ^L0552A3
PEA L0552A3
PEA ^L05528D
PEA L05528D
JSL L1C2DA6
PEA ^L0552B1
PEA L0552B1
PEA ^L055295
PEA L055295
JSL L1C2DA6
PEA ^L051DAA
PEA L051DAA
PEA ^L051D96
PEA L051D96
JSL L0A0000
PEA ^L0552A9
PEA L0552A9
PEA ^L055291
PEA L055291
JSL L1C2DCC
PEA ^L051D9E
PEA L051D9E
PEA ^L051D92
PEA L051D92
JSL L1C2DF2
PEA $0000
PHD
JSL L1C117F
LDA L05529F
AND L0552B1
BEQ L1C1330
JSL L1C3EDC
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051E32
PEA L051E32
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
JSL L15123D
PEA ^L053239
PEA L053239
JSL L1506A7
PEA ^L051E12
PEA L051E12
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
LDA L0552AF
BEQ L1C1330
STZ L0552AF
JSL L1C26E1
L1C1330 PEA ^L0532BD
PEA L0532BD
JSL L082712
PEA $0000
JSL L1601A8
BRA L1C137A
L1C1343 LDA L05528F
ORA L0552AB
BEQ L1C137A
PEA ^L0552AB
PEA L0552AB
PEA ^L05528F
PEA L05528F
JSL L1C2DA6
PEA $0000
PHD
JSL L1C117F
PEA ^L051E1A
PEA L051E1A
PEA ^L0532BD
PEA L0532BD
JSL L081E53
PEA $0000
JSL L1601A8
L1C137A TSC
CLC
ADC #$0010
TCS
PLD
RTL
L1C1382 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
LDA L0552FF
BEQ L1C13AA
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L082712
BRA L1C13EB
L1C13AA PEA ^L0532BD
PEA L0532BD
LDA L0550ED
LDX L0550EF
CLC
ADC #$001C
BCC L1C13BD
INX
L1C13BD STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
CLC
ADC #$0002
BCC L1C13DC
INX
L1C13DC PHX
PHA
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L081E5F
L1C13EB PEA $0000
JSL L16088C
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L1C1407
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L1C1407 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $16
PEI $14
PEA $0008
JSL L0313BE
LDA L0552FF
BEQ L1C1466
PEA ^L053239
PEA L053239
PEA ^L051D46
PEA L051D46
PEA ^L051D5E
PEA L051D5E
PEA ^L051D4E
PEA L051D4E
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L1C2CB9
PEA ^L05311F
PEA L05311F
JSL L082712
BRA L1C1473
L1C1466 TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L087BAE
L1C1473 LDA $12
STA $16
LDA $11
STA $15
LDA $0F
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L1C1485 ENT
PHD
TSC
CLC
ADC #$FFB4
TCS
TCD
LDA L0552AB
ORA L0552B1
BEQ L1C14AF
PHA
LDA L055105
LDX L055107
CMP $52
BNE L1C14A2
CPX $54
L1C14A2 BEQ L1C14A9
LDA #$0000
BRA L1C14AC
L1C14A9 LDA #$0001
L1C14AC AND $01,S
PLX
L1C14AF STA $43
LDA L0552AB
ORA L0552B1
BEQ L1C14D3
PHA
LDA L055101
LDX L055103
CMP $52
BNE L1C14C6
CPX $54
L1C14C6 BEQ L1C14CD
LDA #$0000
BRA L1C14D0
L1C14CD LDA #$0001
L1C14D0 AND $01,S
PLX
L1C14D3 STA $41
LDA $52
BEQ L1C14DC
LDA #$0001
L1C14DC ORA $41
ORA $43
ORA L0552FF
BNE L1C14E8
BRL L1C1617
L1C14E8 PEI $54
PEI $52
LDA L0550FD
LDX L0550FF
PHX
PHA
PEA ^L053259
PEA L053259
PEA $0000
JSL L08382C
TDC
CLC
ADC #$002F
STA $37
STZ $39
PEA ^L051DAA
PEA L051DAA
PEA ^L051E1A
PEA L051E1A
PEI $39
PEI $37
JSL L081E5F
LDA L0552FF
BEQ L1C1534
PEI $39
PEI $37
PEA ^L051D5E
PEA L051D5E
PEA $0008
JSL L0313BE
L1C1534 LDA $41
BEQ L1C159E
LDA L0552A9
DEC
BEQ L1C1567
LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEA $0000
PEA $0000
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $39
PEI $37
PEA $0001
JSL L0836B6
L1C1567 LDA L0552A9
BEQ L1C159E
LDA L0552E5
LDX L0552E7
STA $45
STX $47
LDA L0552A9
DEC
DEC
BNE L1C1587
LDA L0552C9
LDX L0552CB
STA $45
STX $47
L1C1587 PEI $47
PEI $45
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $39
PEI $37
PEA $0003
JSL L08382C
L1C159E LDA $43
BEQ L1C15F9
LDA L0552A9
DEC
DEC
BEQ L1C15D2
LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEA $0000
PEA $0000
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $39
PEI $37
PEA $0001
JSL L0836B6
L1C15D2 LDA L0552A9
DEC
BEQ L1C15F9
PEA ^L051E92
PEA L051E92
PEA ^L053239
PEA L053239
PEI $39
PEI $37
PEI $39
PEI $37
PEA $8003
PEA $0000
PEA $0000
JSL L1505E6
L1C15F9 PEA ^L0532BD
PEA L0532BD
JSL L082712
PEA ^L053127
PEA L053127
JSL L082712
LDA L0550FD
LDX L0550FF
STA $52
STX $54
L1C1617 LDA L0552FF
BEQ L1C164D
PEA ^L053239
PEA L053239
PEA ^L051D46
PEA L051D46
PEA ^L051D5E
PEA L051D5E
PEA ^L051D4E
PEA L051D4E
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051D5E
PEA L051D5E
JSL L1C2CB9
BRA L1C165B
L1C164D PEI $54
PEI $52
PEA ^L053259
PEA L053259
JSL L083985
L1C165B PHY
JSL L0727BF
PLA
STA $3D
PEA $0000
JSL L16088C
L1C166A PHY
PEA $000A
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150070
PHY
JSL L09771E
PLA
EOR #$0001
ORA $01,S
PLX
LSR
BCC L1C166A
PHY
PEA $0020
PEA $0000
JSL L150B28
PLA
STA $3B
PEA ^L05311F
PEA L05311F
JSL L082712
PEA ^L053259
PEA L053259
JSL L1C1407
PEI $3D
JSL L0724F7
LDA $50
STA $54
LDA $4F
STA $53
LDA $4D
TCD
TSC
CLC
ADC #$0052
TCS
RTL
L1C16C4 ENT
PHD
TSC
CLC
ADC #$FFC6
TCS
TCD
LDA L0552C3
BEQ L1C16D4
BRL L1C175A
L1C16D4 LDA L0552FF
BEQ L1C16F1
TDC
CLC
ADC #$002F
PEA $0000
PHA
PEA ^L051D5E
PEA L051D5E
PEA $0008
JSL L0313BE
BRA L1C16FE
L1C16F1 TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L082712
L1C16FE PEA $0000
JSL L16088C
LDA L055153
BEQ L1C1719
PEA $0000
PEA $0002
PEA $0000
JSL L084F9B
BRA L1C1729
L1C1719 PEA $0000
PEA $0002
PEA $0000
PEA $0000
JSL L081517
L1C1729 TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L1C1407
PEA ^L05311F
PEA L05311F
PEA ^L053127
PEA L053127
PEA $0008
JSL L0313BE
PEA ^L0532BD
PEA L0532BD
JSL L082712
PEA $0000
JSL L16088C
L1C175A PHY
PEA $0028
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150070
PLA
LSR
BCC L1C1782
PHY
LDA $03
AND #$00FF
PHA
JSL L09AB66
PLA
LSR
BCS L1C1782
JSL L072314
L1C1782 PHY
JSL L09771E
PHY
JSL L090A90
PLA
STA $37
PLA
AND $37
EOR #$0001
BEQ L1C175A
LDA L0552C3
BNE L1C17C9
PEA ^L053127
PEA L053127
PEA ^L05311F
PEA L05311F
JSL L081E53
PEA ^L05311F
PEA L05311F
JSL L1C1407
PEA ^L05311F
PEA L05311F
PEA ^L053127
PEA L053127
PEA $0008
JSL L0313BE
L1C17C9 TSC
CLC
ADC #$003A
TCS
PLD
RTL
L1C17D1 ENT
PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
LDA L055303
STA $17
PEA $0001
JSL L0A1225
TDC
CLC
ADC #$000B
PEA $0000
PHA
JSL L1C1ACF
JSL L1608A8
PHY
TDC
CLC
ADC #$000B
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
JSL L1512CB
PLA
LSR
BCC L1C1858
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
PEA $0008
JSL L0313BE
PEA ^L0532BD
PEA L0532BD
PEI $0D
PEI $0B
LDA $0D
INC
INC
PHA
LDA $0B
INC
PHA
JSL L15100B
PEA $0000
JSL L16088C
PEA ^L0532BD
PEA L0532BD
TDC
CLC
ADC #$000F
PEA $0000
PHA
PEA $0008
JSL L0313BE
L1C1858 JSL L1510A1
PEA $0002
PEA $0001
JSL L151083
PHY
LDA #$FFFE
AND $0D
PHA
PEI $0B
LDA L0550FD
LDX L0550FF
PHX
PHA
JSL L1608B6
PLA
STA $01
LDA L0550B5
SEC
SBC #$0010
BEQ L1C18AD
BVS L1C188C
EOR #$8000
L1C188C BPL L1C18AD
LDA #$000F
CMP $01
BNE L1C18A1
PEA ^L052D12
PEA L052D12
JSL L151198
BRA L1C18AB
L1C18A1 PEA ^L051D06
PEA L051D06
JSL L151198
L1C18AB BRA L1C18CB
L1C18AD LDA L0550B5
DEC
CMP $01
BNE L1C18C1
PEA ^L051D06
PEA L051D06
JSL L151198
BRA L1C18CB
L1C18C1 PEA ^L052D12
PEA L052D12
JSL L151198
L1C18CB PEI $0D
PEI $0B
PEI $0D
PEI $0B
JSL L1C01EA
PEI $0D
PEI $0B
JSL L094E90
LDA $0B
LDX $0D
STA $03
STX $05
L1C18E7 TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L1C1ACF
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L09457C
LDA $09
EOR $05
PHA
LDA $07
EOR $03
ORA $01,S
PLX
CMP #$0000
BEQ L1C1926
PEI $05
PEI $03
PEI $09
PEI $07
JSL L1C01EA
LDA $07
LDX $09
STA $03
STX $05
L1C1926 PHY
JSL L096CC4
PLA
EOR #$0001
BEQ L1C18E7
JSL L1510A1
PEI $17
JSL L0A1225
JSL L1608C4
TSC
CLC
ADC #$001C
TCS
PLD
RTL
L1C1947 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0000
JSL L160862
PLA
LSR
BCC L1C1963
JSL L1C1967
JSL L160870
L1C1963 PLY
PLY
PLD
RTL
L1C1967 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L1C3F07
PEA ^L051E1A
PEA L051E1A
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L055101
LDX L055103
PHX
PHA
PEA $0000
PEA $0000
LDA L0552E5
LDX L0552E7
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $FFFE
JSL L0836B6
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L0552E1
LDX L0552E3
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0003
JSL L08382C
PEA ^L053209
PEA L053209
PEA ^L051E92
PEA L051E92
PEA ^L051DAA
PEA L051DAA
PEA ^L051DAA
PEA L051DAA
PEA $0001
PEA $0000
PEA $0000
JSL L1505E6
JSL L16089A
PLY
PLY
PLD
RTL
L1C19FB ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0A
LDA L05524B
BEQ L1C1A0C
BRA L1C1A6C
L1C1A0C LDA L055241
EOR #$0001
AND L05523D
BEQ L1C1A19
BRA L1C1A6C
L1C1A19 LDA L055153
EOR #$0001
AND L055151
BEQ L1C1A44
LDA #$0001
STA $0A
PHY
PEA $002D
JSL L0726F9
PLA
LSR
BCC L1C1A44
LDA L055027
LDX L055029
PHX
PHA
PEA $0001
JSL L099F77
L1C1A44 LDA L055153
AND L05514F
BEQ L1C1A6C
LDA #$0001
STA $0A
PHY
PEA $002E
JSL L0726F9
PLA
LSR
BCC L1C1A6C
LDA L05501F
LDX L055021
PHX
PHA
PEA $0001
JSL L099EA4
L1C1A6C PLY
PLY
PLD
RTL
L1C1A70 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA #$0002
CLC
ADC $0E
LDX $10
BCC L1C1A83
INX
L1C1A83 STA $01
STX $03
PHY
LDY #$0002
LDA [$0E],Y
PHA
LDY #$0002
LDA [$0A],Y
PHA
LDY #$0006
LDA [$0A],Y
PHA
JSL L071A1B
PLA
STA [$01]
LDA $0E
LDX $10
STA $01
STX $03
PHY
LDA [$0E]
PHA
LDA [$0A]
PHA
LDY #$0004
LDA [$0A],Y
PHA
JSL L071A1B
PLA
STA [$01]
LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L1C1ACF PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
JSL L1608D2
PEI $0C
PEI $0A
PEA ^L051DA2
PEA L051DA2
JSL L1C1A70
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1C1AFE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA $0A
BEQ L1C1B14
PEA ^L051DBA
PEA L051DBA
JSL L1608D2
L1C1B14 JSL L1C0F31
JSL L160376
JSL L1C082C
LDAL L051DBC
TAX
LDAL L051DBA
STAL L051E0E
TXA
STAL L051E10
LDA $0A
BEQ L1C1B3D
LDAL L051E10
STA L0552BD
L1C1B3D LDA L054FBB
SEC
SBC #$0000
BMI L1C1B4A
JSL L151472
L1C1B4A JSL L1C3F07
LDA #$0001
STA L055319
STZ L0552A9
LDA #$0001
STA L0552AB
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L1C1B6D ENT
PHD
TSC
CLC
ADC #$FFAA
TCS
TCD
LDA L055303
SEC
SBC L055301
STA $45
LDA #$0001
STA $43
PEA ^L0532BD
PEA L0532BD
JSL L08273B
L1C1B8D TDC
CLC
ADC #$004F
PEA $0000
PHA
JSL L1608D2
PEI $62
PEI $60
TDC
CLC
ADC #$004F
PEA $0000
PHA
PEA $0002
TDC
CLC
ADC #$003F
PEA $0000
PHA
TDC
CLC
ADC #$003B
PEA $0000
PHA
TDC
CLC
ADC #$0037
PEA $0000
PHA
JSL L1608E0
LDA $4D
EOR $51
PHA
LDA $4B
EOR $4F
ORA $01,S
PLX
CMP #$0000
BNE L1C1BDF
LDA #$0000
BRA L1C1BE2
L1C1BDF LDA #$0001
L1C1BE2 ORA $43
BNE L1C1BE9
BRL L1C1C95
L1C1BE9 PEA $0001
JSL L16088C
PEA ^L0532BD
PEA L0532BD
TDC
CLC
ADC #$002F
PEA $0000
PHA
PEA $0008
JSL L0313BE
PEI $62
PEI $60
PEI $51
PEI $4F
TDC
CLC
ADC #$002F
PEA $0000
PHA
JSL L071937
TDC
CLC
ADC #$002F
PEA $0000
PHA
LDA $45
ASL
EOR #$FFFF
INC
PHA
LDA $45
EOR #$FFFF
INC
PHA
JSL L151005
TDC
CLC
ADC #$002F
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
JSL L1C01BE
PEA ^L053239
PEA L053239
JSL L1506A7
PEI $62
PEI $60
JSL L1C07FC
PEI $51
PEI $4F
JSL L1C03FE
PEA ^L053127
PEA L053127
TDC
CLC
ADC #$002F
PEA $0000
PHA
PEA ^L053127
PEA L053127
JSL L081E5F
PEA ^L0532BD
PEA L0532BD
JSL L1C1407
LDA $4F
LDX $51
STA $4B
STX $4D
STZ $43
L1C1C95 STZ $01
STZ $47
PHY
PEA $FFFF
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L096BB1
PLA
LSR
BCC L1C1CBA
LDA #$0003
CMP $01
BNE L1C1CBA
LDA #$0001
STA $47
L1C1CBA LDX #$0000
LDA $01
DEC
DEC
BNE L1C1CC4
INX
L1C1CC4 TXA
ORA $47
BNE L1C1CCC
BRL L1C1B8D
L1C1CCC PEA ^L053239
PEA L053239
JSL L1506A7
JSL L1C01BE
LDA $01
DEC
DEC
BNE L1C1CF7
LDA $07
LDX $09
STA L05522B
STX L05522D
LDA $0B
LDX $0D
STAL L052D60
TXA
STAL L052D62
L1C1CF7 LDA $4F
LDX $51
STA [$5C]
TXA
LDY #$0002
STA [$5C],Y
LDA $47
BEQ L1C1D13
LDA $60
LDX $62
STA [$5C]
TXA
LDY #$0002
STA [$5C],Y
L1C1D13 LDA $47
STA $64
LDA $5A
STA $62
LDA $59
STA $61
LDA $57
TCD
TSC
CLC
ADC #$0060
TCS
RTL
L1C1D29 ENT
PHD
TSC
CLC
ADC #$FFD4
TCS
TCD
TDC
CLC
ADC #$0023
PEA $0000
PHA
JSL L1608EE
PHY
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA ^L053259
PEA L053259
JSL L1512CB
PLA
LSR
BCS L1C1D59
BRL L1C1EA6
L1C1D59 PHY
JSL L073CDF
PLA
STA $27
JSL L1608A8
LDA #$0001
STA $01
PHY
LDA #$FFFE
AND $25
PHA
PEI $23
LDA L055105
LDX L055107
PHX
PHA
JSL L1608B6
PLA
LDX #$0003
STA $00,X
JSL L1C3F07
PEA ^L053209
PEA L053209
PEA ^L053259
PEA L053259
PEA ^L051EA2
PEA L051EA2
PEA ^L053259
PEA L053259
PEI $25
PEI $23
PEA $1001
PEA ^L051D06
PEA L051D06
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L151657
PEA ^L051EA2
PEA L051EA2
PEA ^L051E92
PEA L051E92
PEA ^L053259
PEA L053259
PEA ^L053259
PEA L053259
PEA $8000
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051E1A
PEA L051E1A
JSL L082712
LDA L0552E1
LDX L0552E3
PHX
PHA
PEA ^L051E1A
PEA L051E1A
JSL L082766
PHY
PEA ^L052D12
PEA L052D12
PEA ^L051D26
PEA L051D26
PEA $0020
JSL L070A10
PLA
LSR
BCS L1C1E51
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051E92
PEA L051E92
JSL L1506A7
PEA ^L052D12
PEA L052D12
JSL L151198
PEA $0001
JSL L150BD6
PEA ^L051E1A
PEA L051E1A
JSL L15037D
JSL L1510A1
PEA ^L053239
PEA L053239
JSL L1506A7
L1C1E51 PEA ^L0532BD
PEA L0532BD
PEA ^L051E1A
PEA L051E1A
PEA $0008
JSL L0313BE
PEA $0001
JSL L1601A8
PEA ^L0532BD
PEA L0532BD
PEA ^L051E1A
PEA L051E1A
PEA $0008
JSL L0313BE
PEI $27
JSL L0724F7
LDA L054FB7
LDX L054FB9
STA $29
STX $2B
LDY #$0002
LDA [$29],Y
TAX
LDA [$29]
STA L05522B
STX L05522D
LDA #$0001
STA L055249
JSL L1608C4
L1C1EA6 TSC
CLC
ADC #$002C
TCS
PLD
RTL
L1C1EAE ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA L0552B1
BNE L1C1EBF
JSL L1C2513
L1C1EBF PHY
PEA $0000
JSL L160862
PLA
LSR
BCS L1C1ECE
BRL L1C1F62
L1C1ECE PHY
PHY
JSL L1608FC
LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L0552E1
LDX L0552E3
PHX
PHA
PEA ^L051E1A
PEA L051E1A
JSL L083523
PEA ^L051E32
PEA L051E32
PEA ^L051EA2
PEA L051EA2
PEA ^L051E1A
PEA L051E1A
PEA ^L051E1A
PEA L051E1A
PEA $8003
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051E32
PEA L051E32
PEA ^L051E92
PEA L051E92
PEA ^L051E1A
PEA L051E1A
PEA ^L051E1A
PEA L051E1A
PEA $8001
PEA $0000
PEA $0000
JSL L1505E6
PHY
PEA ^L051DAA
PEA L051DAA
PEA ^L051E1A
PEA L051E1A
PEA ^L051E1A
PEA L051E1A
JSL L150B3A
PLA
STA $01
JSL L160870
JSL L1C0F31
LDA L0552A7
PHA
JSL L0A02BC
L1C1F62 PLY
PLY
PLY
PLD
RTL
L1C1F67 ENT
PHD
TSC
CLC
ADC #$FFC6
TCS
TCD
PHY
PEA $0000
JSL L160862
PLA
LSR
BCS L1C1F7E
BRL L1C23E4
L1C1F7E PEA ^L05312F
PEA L05312F
JSL L151131
LDAL L051D9E
SEC
SBCL L051DAA
ASL
STA $37
LDAL L051DA0
SEC
SBC $37
STA $1B
LDAL L051DAE
SEC
SBCL L051D9E
ASL
CLC
ADCL L051DA0
STA $1F
LDAL L051D9E
PHA
PHY
LDAL L051DB0
SEC
SBCL L051DA0
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $37
PLA
SEC
SBC $37
STA $19
LDAL L051D9E
PHA
PHY
LDAL L051DA0
SEC
SBCL L051DAC
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
CLC
ADC $01,S
PLX
STA $1D
STZ $33
LDAL L05325B
SEC
SBC $1B
STA $31
LDA $31
BMI L1C2001
BEQ L1C2001
LDA $31
STA $33
L1C2001 LDAL L05325F
SEC
SBC $1F
STA $31
LDA $31
BPL L1C2015
LDA $31
CLC
ADC $33
STA $33
L1C2015 STZ $35
LDAL L053259
SEC
SBC $19
STA $31
LDA $31
BMI L1C202A
BEQ L1C202A
LDA $31
STA $35
L1C202A LDAL L05325D
SEC
SBC $1D
STA $31
LDA $31
BPL L1C203E
LDA $31
CLC
ADC $35
STA $35
L1C203E TDC
CLC
ADC #$0019
PEA $0000
PHA
PEI $33
PEI $35
JSL L1501AF
PHY
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA ^L053259
PEA L053259
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L150B3A
PLA
STA $2F
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L16042C
LDA $35
CLC
ADCL L051D9E
STA $37
LDA $1D
SEC
SBC $37
ASL
STA $37
LDAL L051DA0
SEC
SBC $37
STA $13
LDA $35
CLC
ADCL L051D9E
SEC
SBC $19
ASL
CLC
ADCL L051DA0
STA $17
LDAL L051D9E
PHA
PHY
LDA $33
CLC
ADCL L051DA0
SEC
SBC $1B
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $37
PLA
SEC
SBC $37
STA $11
LDAL L051D9E
PHA
PHY
LDA $33
CLC
ADCL L051DA0
STA $37
LDA $1F
SEC
SBC $37
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
CLC
ADC $01,S
PLX
STA $15
LDA $17
SEC
SBC $13
STA $2D
LDA $15
SEC
SBC $11
STA $2B
LDA #$000F
CLC
ADC $2D
LSR
LSR
AND #$FFFC
STA $29
LDA $1F
SEC
SBC $1B
STA $27
LDA $1D
SEC
SBC $19
STA $25
STZ $01
STZ $03
LDA $2B
STA $05
LDA $2D
STA $07
STZ $09
STZ $0B
LDA $25
STA $0D
LDA $27
STA $0F
LDA $40
BNE L1C214C
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0000
LDA $2D
EOR #$FFFF
INC
AND #$000F
LSR
PHA
JSL L1501AF
L1C214C LDA L0552AF
BNE L1C2154
BRL L1C21F7
L1C2154 PEA ^L051E32
PEA L051E32
PEA ^L051E32
PEA L051E32
TDC
CLC
ADC #$0011
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
LDA $40
BEQ L1C219D
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $2B
PEI $29
JSL L16090A
BRA L1C21B5
L1C219D LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $2B
PEI $29
JSL L160918
L1C21B5 LDA L0552C9
LDX L0552CB
PHX
PHA
PEA $0000
PEA ^L053259
PEA L053259
JSL L085B3C
PEA ^L053239
PEA L053239
PEA ^L051E32
PEA L051E32
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
BRA L1C222D
L1C21F7 LDA L0552C9
LDX L0552CB
PHX
PHA
PEA $0000
PEA ^L051DAA
PEA L051DAA
JSL L085B3C
PEA ^L051E32
PEA L051E32
JSL L1506A7
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L15123D
PEA ^L053239
PEA L053239
JSL L1506A7
L1C222D LDA #$0001
STA L05529F
PEA ^L051EA2
PEA L051EA2
PEA ^L051EA2
PEA L051EA2
TDC
CLC
ADC #$0011
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
LDA $40
BEQ L1C227C
LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $2B
PEI $29
JSL L16090A
BRA L1C2294
L1C227C LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $2B
PEI $29
JSL L160918
L1C2294 LDA L0552E5
LDX L0552E7
PHX
PHA
PEA $0000
PEA ^L053259
PEA L053259
JSL L085B3C
PEA ^L053239
PEA L053239
PEA ^L051EA2
PEA L051EA2
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051E92
PEA L051E92
PEA ^L051E92
PEA L051E92
TDC
CLC
ADC #$0011
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
LDA $40
BEQ L1C231D
LDA L0552E1
LDX L0552E3
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $2B
PEI $29
JSL L16090A
BRA L1C2335
L1C231D LDA L0552E1
LDX L0552E3
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
PEI $2B
PEI $29
JSL L160918
L1C2335 LDA L0552E1
LDX L0552E3
PHX
PHA
PEA $FFFF
PEA ^L053259
PEA L053259
JSL L085B3C
PEA ^L053239
PEA L053239
PEA ^L051E92
PEA L051E92
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L053127
PEA L053127
JSL L082712
PEA ^L0532BD
PEA L0532BD
JSL L082712
PEA ^L051E1A
PEA L051E1A
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA $0008
JSL L0313BE
LDAL L051DA0
TAX
LDAL L051D9E
STA $21
STX $23
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L1C2911
PHY
LDAL L051DA0
PHA
LDAL L051D9E
PHA
PEI $23
PEI $21
PEA $0002
JSL L071984
PLA
LSR
BCC L1C23E0
LDA $21
LDX $23
STAL L051D9E
TXA
STAL L051DA0
L1C23E0 JSL L160870
L1C23E4 LDA $3E
STA $40
LDA $3D
STA $3F
LDA $3B
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L1C23F6 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
LDAL L051D70
TAX
LDAL L051D6E
STA $05
STX $07
LDA $05
LDX $07
STA $01
STX $03
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$000D
PEA $0000
PHA
JSL L096A7B
PEI $0F
PEI $0D
JSL L094E90
PEA $0000
JSL L16088C
L1C243B TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L096A7B
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L09457C
PEI $07
LDA $0B
SEC
SBC $0F
PHA
PEA $0004
JSL L1500F5
PLX
PLX
STA $11
PLA
SEC
SBC $11
AND #$FFFC
STAL L051D70
PEI $05
PHY
LDA $09
SEC
SBC $0D
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $11
PLA
SEC
SBC $11
STAL L051D6E
PEA ^L051D6E
PEA L051D6E
PEA ^L051D66
PEA L051D66
JSL L1C1A70
PHY
PEA ^L051D6E
PEA L051D6E
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150B2E
PLA
LSR
BCS L1C24FD
LDAL L051D70
SEC
SBC #$0028
STAL L051D60
LDAL L051D6E
SEC
SBC #$000C
STAL L051D5E
LDA #$0050
CLC
ADCL L051D60
STAL L051D64
LDA #$0019
CLC
ADCL L051D5E
STAL L051D62
PEA ^L051D5E
PEA L051D5E
JSL L1C1407
LDAL L051D70
TAX
LDAL L051D6E
STA $01
STX $03
L1C24FD PHY
JSL L096CC4
PLA
EOR #$0001
BNE L1C250B
BRL L1C243B
L1C250B TSC
CLC
ADC #$0014
TCS
PLD
RTL
L1C2513 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
JSL L090A71
JSL L1C0F31
JSL L160376
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L082712
LDA L0552FF
BEQ L1C254F
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA ^L051D5E
PEA L051D5E
PEA $0008
JSL L0313BE
L1C254F TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L1C2911
LDA #$0001
STA L0552B1
STZ L0552AF
STZ L0552A9
STZ L0552AB
STZ L05528F
JSL L16089A
JSL L1C3F07
LDA #$0001
STA L05529F
LDA L0552C9
LDX L0552CB
PHX
PHA
PEA $FFFF
PEA ^L053259
PEA L053259
JSL L085B3C
PEA ^L051E12
PEA L051E12
JSL L082712
PHY
PEA ^L05310F
PEA L05310F
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150B3A
PLA
LSR
BCC L1C25FC
LDA L055105
LDX L055107
PHX
PHA
LDA L0552E1
LDX L0552E3
PHX
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
JSL L08382C
LDA L055101
LDX L055103
PHX
PHA
LDA L0552E5
LDX L0552E7
PHX
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
JSL L08382C
L1C25FC PEA ^L051E1A
PEA L051E1A
PEA ^L05310F
PEA L05310F
PEA $0008
JSL L0313BE
JSL L1C035E
PEA $0004
JSL L099B9B
TSC
CLC
ADC #$0014
TCS
PLD
RTL
L1C2622 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
JSL L090A71
LDA L055315
ORA L055317
BEQ L1C2639
LDA #$0001
L1C2639 ORA L055319
BEQ L1C264F
LDA L0552AB
STA $01
STZ L0552AB
JSL L1C02F4
LDA $01
STA L0552AB
L1C264F LDA L0552AB
BNE L1C2657
BRL L1C26DC
L1C2657 LDA L0552E5
LDX L0552E7
PHX
PHA
LDA L0552C9
LDX L0552CB
PHX
PHA
PEA ^L053259
PEA L053259
PEA $0000
JSL L08382C
PEA ^L051E12
PEA L051E12
PEA ^L051E1A
PEA L051E1A
PEA $0008
JSL L0313BE
PEA ^L051DAA
PEA L051DAA
PEA ^L051E1A
PEA L051E1A
PEA $0008
JSL L0313BE
PHY
PEA ^L051DAA
PEA L051DAA
JSL L081A64
PLA
LSR
BCS L1C26D3
PEA ^L051DAA
PEA L051DAA
JSL L16042C
PEA ^L051DAA
PEA L051DAA
JSL L1C2911
LDA #$0001
STA L0552AF
LDA #$0001
STA L0552B1
STZ L0552A9
PEA $0005
JSL L099B9B
L1C26D3 STZ L0552A1
STZ L0552AB
STZ L05528F
L1C26DC PLY
PLY
PLY
PLD
RTL
L1C26E1 ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
JSL L090A71
LDA L0552AB
BEQ L1C26F9
JSL L1C2622
BRL L1C286F
L1C26F9 LDA L055315
ORA L055317
BEQ L1C2704
LDA #$0001
L1C2704 ORA L055319
BEQ L1C270D
JSL L1C0F31
L1C270D LDA L0552B1
STA $2F
LDA L0552B1
BNE L1C271B
JSL L1C2513
L1C271B PHY
PEA $0001
JSL L160862
PLA
LSR
BCS L1C272A
BRL L1C286F
L1C272A PEA ^L051DAA
PEA L051DAA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
LDA #$0001
STA L05529F
TDC
CLC
ADC #$0027
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
LDA #$FFF0
AND $29
STA $29
LDA #$000F
CLC
ADC $2D
AND #$FFF0
STA $2D
LDA #$0001
STA $01
LDA L0552AF
BEQ L1C2783
LDX #$0003
STZ $00,X
LDA #L051E32
LDX #^L051E32
STA $23
STX $25
BRA L1C2795
L1C2783 LDA #$000F
LDX #$0003
STA $00,X
LDA #L051E92
LDX #^L051E92
STA $23
STX $25
L1C2795 PEI $25
PEI $23
TDC
CLC
ADC #$0027
PEA $0000
PHA
PEA ^L051E32
PEA L051E32
TDC
CLC
ADC #$0027
PEA $0000
PHA
PEA $2001
PEA $FFFF
PEA $FFFF
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L151627
STZ L0552B1
STZ L0552AF
STZ L0552A9
LDA L0552C9
LDX L0552CB
PHX
PHA
PEA ^L051DAA
PEA L051DAA
JSL L08295E
PEA ^L051E12
PEA L051E12
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
PHY
PEA ^L051DAA
PEA L051DAA
JSL L081A64
PLA
LSR
BCS L1C286B
PEA ^L051E32
PEA L051E32
PEA ^L051EA2
PEA L051EA2
PEA ^L051E1A
PEA L051E1A
PEA ^L051E1A
PEA L051E1A
PEA $8003
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051E32
PEA L051E32
PEA ^L051E92
PEA L051E92
PEA ^L051E1A
PEA L051E1A
PEA ^L051E1A
PEA L051E1A
PEA $8001
PEA $0000
PEA $0000
JSL L1505E6
LDA #$0001
STA L0552B1
LDA #$0001
STA L0552AF
PEA ^L051DAA
PEA L051DAA
JSL L1C2911
PEA $0005
JSL L099B9B
L1C286B JSL L160870
L1C286F TSC
CLC
ADC #$0034
TCS
PLD
RTL
L1C2877 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PEA ^L051DA2
PEA L051DA2
JSL L082712
LDA L0552FF
BEQ L1C28A1
PEA ^L051DA2
PEA L051DA2
PEA ^L051D5E
PEA L051D5E
PEA $0008
JSL L0313BE
L1C28A1 LDAL L051DA8
DEC
DEC
STAL L051DA8
LDAL L051DA6
DEC
STAL L051DA6
LDA L0551EF
AND L055313
BEQ L1C2900
PHY
LDA #$000F
CLC
ADCL L051DA4
PHA
JSL L160926
PLA
STAL L051DA4
PHY
LDA #$0007
CLC
ADCL L051DA2
PHA
JSL L160934
PLA
STAL L051DA2
PHY
LDAL L051DA8
PHA
JSL L160926
PLA
STAL L051DA8
PHY
LDAL L051DA6
PHA
JSL L160934
PLA
STAL L051DA6
L1C2900 LDA $0A
STA $0C
LDA $09
STA $0B
LDA $07
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L1C2911 ENT
PHD
TSC
CLC
ADC #$FFEE
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L082712
LDA L0552FF
BEQ L1C2941
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L051D5E
PEA L051D5E
PEA $0008
JSL L0313BE
L1C2941 PHY
PEI $1A
PEI $18
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
JSL L150B3A
PLA
STA $09
PHY
LDAL L051DB0
CLC
ADCL L051DAC
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
AND #$FFFE
STA $0D
PHY
LDAL L051DAE
CLC
ADCL L051DAA
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $0B
LDA $0B
LDX $0D
STAL L051D9E
TXA
STAL L051DA0
LDA L0552FF
BNE L1C29A8
LDA $0B
LDX $0D
STAL L051D6E
TXA
STAL L051D70
L1C29A8 LDA $16
STA $1A
LDA $15
STA $19
LDA $13
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L1C29BA ENT
PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
LDA L054FBB
SEC
SBC #$0000
BPL L1C29CE
BRL L1C2CB1
L1C29CE LDA L055153
AND L05514F
BEQ L1C29D9
BRL L1C2CB1
L1C29D9 LDA L055153
EOR #$0001
AND L055151
BEQ L1C29E7
BRL L1C2CB1
L1C29E7 PHY
PHY
JSL L150493
PLA
STA $15
PLX
STX $17
PEA ^L054F6B
PEA L054F6B
JSL L082570
LDA L0552AF
BNE L1C2A05
BRL L1C2B73
L1C2A05 PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L053239
PEA L053239
JSL L1506A7
JSL L1510A1
PEA ^L054F6B
PEA L054F6B
JSL L151198
LDA L0552B3
BNE L1C2A87
LDAL L051DAA
STA $01
LDAL L051DAE
STA $05
LDAL L051DAC
AND #$FFF0
STA $03
LDA #$000F
CLC
ADCL L051DB0
AND #$FFF0
STA $07
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L0550FD
LDX L0550FF
PHX
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0062
JSL L08382C
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
LDA #$0001
STA L0552B3
L1C2A87 LDA L0552FF
BNE L1C2A8F
BRL L1C2B2D
L1C2A8F PEA ^L051D46
PEA L051D46
JSL L1506A7
PEA $0002
JSL L150BD6
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
LDAL L051D60
EOR #$FFFF
INC
PHA
LDAL L051D5E
EOR #$FFFF
INC
PHA
JSL L1501AF
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L15037D
PEA ^L053239
PEA L053239
PEA ^L051D46
PEA L051D46
PEA ^L051DAA
PEA L051DAA
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $8003
PEA $0000
PEA $0000
JSL L1505E6
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L15037D
PEA ^L053239
PEA L053239
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
JSL L1C2CB9
BRA L1C2B70
L1C2B2D PEA ^L051DAA
PEA L051DAA
JSL L081D73
LDA L0550FD
LDX L0550FF
PHX
PHA
LDA L0550F9
LDX L0550FB
PHX
PHA
PEA ^L051DAA
PEA L051DAA
LDA L0550ED
LDX L0550EF
CLC
ADC #$001C
BCC L1C2B5A
INX
L1C2B5A STA $19
STX $1B
LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
PHX
PHA
JSL L160942
JSL L081DC7
L1C2B70 BRL L1C2CA5
L1C2B73 LDA L0552FF
BNE L1C2B7B
BRL L1C2C25
L1C2B7B PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051D46
PEA L051D46
JSL L1506A7
JSL L1510A1
PEA ^L054F6B
PEA L054F6B
JSL L151198
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
LDAL L051D60
EOR #$FFFF
INC
PHA
LDAL L051D5E
EOR #$FFFF
INC
PHA
JSL L1501AF
PEA $0002
PEA $0001
JSL L151083
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L151418
PEA ^L053239
PEA L053239
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
JSL L1C2CB9
PEA ^L053239
PEA L053239
PEA ^L051D46
PEA L051D46
PEA ^L051D5E
PEA L051D5E
PEA ^L051D4E
PEA L051D4E
PEA $0000
PEA $0000
PEA $0000
JSL L1505E6
BRL L1C2CA5
L1C2C25 LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
JSL L1510A1
PEA ^L054F6B
PEA L054F6B
JSL L151198
LDA L0550ED
LDX L0550EF
CLC
ADC #$00A0
BCC L1C2C4C
INX
L1C2C4C STA $19
STX $1B
LDA [$19]
STA $11
LDA L0550ED
LDX L0550EF
CLC
ADC #$00A0
BCC L1C2C61
INX
L1C2C61 STA $19
STX $1B
LDA #$8000
ORA $11
STA [$19]
PEA $0002
PEA $0001
JSL L151083
PEA ^L051DAA
PEA L051DAA
JSL L151418
LDA L0550ED
LDX L0550EF
CLC
ADC #$00A0
BCC L1C2C8D
INX
L1C2C8D STA $19
STX $1B
LDA $11
STA [$19]
PEA ^L051DAA
PEA L051DAA
PEA ^L053127
PEA L053127
JSL L081E53
L1C2CA5 JSL L1510A1
PEI $17
PEI $15
JSL L151131
L1C2CB1 TSC
CLC
ADC #$001C
TCS
PLD
RTL
L1C2CB9 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $18
PEI $16
PEA $0008
JSL L0313BE
LDA L054FBB
SEC
SBC #$0000
BPL L1C2CE1
BRL L1C2D94
L1C2CE1 PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L051D5E
PEA L051D5E
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150B3A
PLA
LSR
BCS L1C2D05
BRL L1C2D94
L1C2D05 PHY
PHY
JSL L150493
PLA
STA $09
PLX
STX $0B
PEA ^L053259
PEA L053259
JSL L081D73
TDC
CLC
ADC #$0001
PEA $0000
PHA
LDA L055285
PHA
LDA L0550ED
LDX L0550EF
CLC
ADC #$001C
BCC L1C2D35
INX
L1C2D35 STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
JSL L160950
JSL L081DC7
LDA L0550C9
LDX L0550CB
CLC
ADC #$00CE
BCC L1C2D58
INX
L1C2D58 STA $0D
STX $0F
LDA #$0020
AND [$0D]
BEQ L1C2D8C
LDA L0550D9
LDX L0550DB
PHX
PHA
JSL L151131
PEA ^L051D46
PEA L051D46
PEA ^L051D4E
PEA L051D4E
LDAL L051D58
PHA
LDAL L051D56
PHA
PEA $0000
JSL L15025A
L1C2D8C PEI $0B
PEI $09
JSL L151131
L1C2D94 LDA $14
STA $18
LDA $13
STA $17
LDA $11
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L1C2DA6 PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA [$10]
STA $01
LDA [$0C]
STA [$10]
LDA $01
STA [$0C]
LDA $0A
STA $12
LDA $09
STA $11
LDA $07
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L1C2DCC PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA [$10]
STA $01
LDA [$0C]
STA [$10]
LDA $01
STA [$0C]
LDA $0A
STA $12
LDA $09
STA $11
LDA $07
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L1C2DF2 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDY #$0002
LDA [$12],Y
TAX
LDA [$12]
STA $01
STX $03
LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
STA [$12]
TXA
LDY #$0002
STA [$12],Y
LDA $01
LDX $03
STA [$0E]
TXA
LDY #$0002
STA [$0E],Y
LDA $0C
STA $14
LDA $0B
STA $13
LDA $09
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L1C2E34 ENT
PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
LDA L0552FF
BEQ L1C2E7A
LDA #$0008
CMP L0550BB
BEQ L1C2E59
LDA $20
SEC
SBC #$0008
STA $20
LDA $1E
SEC
SBC #$0004
STA $1E
L1C2E59 TDC
CLC
ADC #$001E
PEA $0000
PHA
PEA ^L053259
PEA L053259
PEA ^L051D5E
PEA L051D5E
JSL L150F41
LDA $20
INC
AND #$FFFE
STA $20
L1C2E7A LDA L0552B1
PHA
PHY
TDC
CLC
ADC #$001E
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
JSL L1512CB
PLA
STA $15
PLA
AND $15
STA L0552AD
LDA L0552AF
BNE L1C2EA3
BRL L1C2F29
L1C2EA3 TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $FFFC
PEA $FFFE
JSL L151005
PHY
TDC
CLC
ADC #$001E
PEA $0000
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L1512CB
PLA
LSR
BCS L1C2EE9
BRA L1C2F29
L1C2EE9 LDA #$FFFE
STA $11
L1C2EEE LDA #$FFFE
STA $13
L1C2EF3 PHY
LDA $11
ASL
CLC
ADC $20
PHA
LDA $13
CLC
ADC $1E
PHA
LDA L0552C9
LDX L0552CB
PHX
PHA
JSL L1608B6
PLA
BNE L1C2F29
LDA #$0002
CMP $13
BEQ L1C2F1B
INC $13
BRA L1C2EF3
L1C2F1B LDA #$0002
CMP $11
BEQ L1C2F26
INC $11
BRA L1C2EEE
L1C2F26 STZ L0552AD
L1C2F29 LDA L055239
EOR #$0001
AND L0552AD
BEQ L1C2F77
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L082712
LDA L0552FF
BEQ L1C2F5C
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L051D5E
PEA L051D5E
PEA $0008
JSL L0313BE
L1C2F5C PHY
PEA ^L051DAA
PEA L051DAA
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L1501A9
PLA
EOR #$0001
STA L0552AD
L1C2F77 LDA $1C
STA $20
LDA $1B
STA $1F
LDA $19
TCD
TSC
CLC
ADC #$001E
TCS
RTL
L1C2F89 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
LDA L0552A1
BEQ L1C2F9A
JSL L160376
L1C2F9A LDA #$0001
STA L055137
LDA #$0001
STA L055133
LDA L0552BB
BNE L1C2FFC
PHY
PHY
PEA $0000
PEA $0066
LDA L0552FD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $07
PLX
STX $09
LDAL L05565D
BEQ L1C2FD3
BRL L1C315A
L1C2FD3 LDA $07
LDX $09
STAL L051DBE
TXA
STAL L051DC0
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $11
STX $13
LDAL L040821
SEP #$20
STA [$11]
REP #$20
LDA #$0001
STA L0552BB
L1C2FFC LDA #$000D
CMP L055225
BNE L1C306C
LDA #$0014
CMP L0552BB
BNE L1C300F
BRL L1C315A
L1C300F PHY
PHY
PEA $0000
PEA $0066
LDA L0552FD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $07
PLX
STX $09
LDAL L05565D
BEQ L1C3037
BRL L1C315A
L1C3037 LDA L0552BB
INC
STA L0552BB
LDA L0552BB
DEC
ASL
ASL
TAX
PEI $09
PEI $07
PLA
STAL L051DBE,X
PLA
STAL L051DC0,X
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $11
STX $13
LDAL L040822
SEP #$20
STA [$11]
REP #$20
BRL L1C3146
L1C306C LDA #$007F
CMP L055225
BNE L1C30D3
LDA L0552BB
DEC
ASL
ASL
TAX
LDAL L051DC0,X
PHA
LDAL L051DBE,X
PLX
STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $11
STX $13
LDA #$00FF
AND [$11]
STA $0B
LDA $0B
BNE L1C30BC
LDA L0552BB
SEC
SBC #$0000
BMI L1C30BA
BEQ L1C30BA
PEI $0F
PEI $0D
JSL L07185A
LDA L0552BB
DEC
STA L0552BB
L1C30BA BRA L1C30D1
L1C30BC LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $11
STX $13
LDA $0B
DEC
SEP #$20
STA [$11]
REP #$20
L1C30D1 BRA L1C3146
L1C30D3 LDA L055225
SEC
SBC #$0020
BVS L1C30DF
EOR #$8000
L1C30DF BPL L1C3146
LDA L0552BB
DEC
ASL
ASL
TAX
LDAL L051DC0,X
PHA
LDAL L051DBE,X
PLX
STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $11
STX $13
LDA #$00FF
AND [$11]
STA $0B
LDA $0B
SEC
SBC #$0064
BVS L1C3114
EOR #$8000
L1C3114 BMI L1C3146
LDA $0B
INC
STA $0B
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $11
STX $13
LDA $0B
SEP #$20
STA [$11]
REP #$20
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $11
STX $13
LDY $0B
LDA L055225
SEP #$20
STA [$11],Y
REP #$20
L1C3146 LDA L054FBB
SEC
SBC #$0000
BMI L1C3153
JSL L151472
L1C3153 PEA $0000
JSL L1C3B67
L1C315A TSC
CLC
ADC #$0014
TCS
PLD
RTL
L1C3162 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDA L0552FF
EOR #$0001
STA L0552FF
LDA L0552FF
BNE L1C317B
BRL L1C328F
L1C317B LDA L0552B1
BEQ L1C31AE
PHY
LDAL L051DB0
CLC
ADCL L051DAC
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STAL L051D70
PHY
LDAL L051DAE
CLC
ADCL L051DAA
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STAL L051D6E
L1C31AE PEA ^L051D6E
PEA L051D6E
PEA ^L051D66
PEA L051D66
JSL L1C1A70
LDAL L051D70
SEC
SBC #$0028
AND #$FFFC
STAL L051D60
LDAL L051D6E
SEC
SBC #$000C
STAL L051D5E
LDA #$0050
CLC
ADCL L051D60
STAL L051D64
LDA #$0019
CLC
ADCL L051D5E
STAL L051D62
LDA L0552B1
BEQ L1C3239
PHY
PEA ^L051DAA
PEA L051DAA
PEA ^L051D5E
PEA L051D5E
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L150B3A
PLA
STA $0B
PHY
PEA ^L051DAA
PEA L051DAA
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L1501A9
PLA
LSR
BCS L1C3239
JSL L1C0F31
JSL L160376
STZ L055295
STZ L055293
L1C3239 LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA $0000
PEA $0007
PEA $0280
PEA $0008
JSL L15100B
L1C325E TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L15123D
TDC
CLC
ADC #$0003
PEA $0000
PHA
PEA $0000
PEA $0008
JSL L1501AF
LDA $03
SEC
SBC #$00C8
BEQ L1C325E
BVS L1C328B
EOR #$8000
L1C328B BPL L1C325E
BRA L1C329B
L1C328F LDA L0550D9
LDX L0550DB
PHX
PHA
JSL L0732B7
L1C329B PEA ^L0532BD
PEA L0532BD
JSL L082712
PEA $0000
JSL L1601A8
LDA L0552FF
BEQ L1C32C9
LDA L0550D9
LDX L0550DB
PHX
PHA
JSL L1512BF
LDA L0550D9
LDX L0550DB
PHX
PHA
JSL L15102F
L1C32C9 LDA #$0001
STA L055247
TSC
CLC
ADC #$0010
TCS
PLD
RTL
L1C32D7 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L055313
EOR #$0001
STA L055313
LDA #$0001
STA L054F9F
PEA $0001
JSL L1C3B67
PLY
PLY
PLD
RTL
L1C32F9 PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
LDA #$0001
CLC
ADC $1A
LDX $1C
BCC L1C3315
INX
L1C3315 PHX
PHA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $FFFE
PEA $0000
JSL L1501AF
PEI $22
PEI $20
PEI $22
PEI $20
LDA #$0001
CLC
ADC $1A
LDX $1C
BCC L1C335D
INX
L1C335D PHX
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEI $1E
PEA $0000
PEA $0000
JSL L1505E6
LDA $0B
STA $03
TDC
CLC
ADC #$0009
PEA $0000
PHA
LDY #$0009
LDA [$1A],Y
ASL
PHA
PEA $0000
JSL L1501AF
PEI $22
PEI $20
PEI $22
PEI $20
LDA #$0001
CLC
ADC $1A
LDX $1C
BCC L1C33A2
INX
L1C33A2 PHX
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEI $1E
PEA $0000
PEA $0000
JSL L1505E6
LDA $0F
STA $07
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0000
PEA $FFFF
JSL L1501AF
PEI $22
PEI $20
PEI $22
PEI $20
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEI $1E
PEA $0000
PEA $0000
JSL L1505E6
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0000
LDY #$0009
LDA [$1A],Y
PHA
JSL L1501AF
PEI $22
PEI $20
PEI $22
PEI $20
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEI $1E
PEA $0000
PEA $0000
JSL L1505E6
LDA $18
STA $22
LDA $17
STA $21
LDA $15
TCD
TSC
CLC
ADC #$0020
TCS
RTL
L1C345D ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
PHY
PEA $0000
JSL L160862
PLA
LSR
BCS L1C3474
BRL L1C35C7
L1C3474 LDA #$0002
STA $09
PHY
JSL L099DCE
PLA
LSR
BCC L1C3487
LDA #$0003
STA $09
L1C3487 LDAL L051DAC
DEC
DEC
STAL L051DAC
LDAL L051DAA
DEC
STAL L051DAA
LDA $09
ASL
CLC
ADCL L051DB0
DEC
DEC
STAL L051DB0
LDA $09
CLC
ADCL L051DAE
DEC
STAL L051DAE
PEA ^L051DAA
PEA L051DAA
JSL L1C2911
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
LDA $03
INC
INC
STA $03
LDA $01
INC
STA $01
LDA $09
ASL
STA $0B
LDA $07
SEC
SBC $0B
INC
INC
STA $07
LDA $05
SEC
SBC $09
INC
STA $05
PEA ^L051E32
PEA L051E32
PEA $0001
PEA $0000
PHD
JSL L1C32F9
LDA #$0001
STA L05529F
PEA ^L051E12
PEA L051E12
LDA $09
ASL
ASL
EOR #$FFFF
INC
PHA
LDA $09
ASL
EOR #$FFFF
INC
PHA
JSL L151005
PEA ^L051EA2
PEA L051EA2
PEA $0001
PEA $0000
PHD
JSL L1C32F9
PEA ^L051E92
PEA L051E92
PEA ^L053239
PEA L053239
PEA ^L051DAA
PEA L051DAA
PEA ^L051DAA
PEA L051DAA
PEA $8000
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051E92
PEA L051E92
PEA $8003
PEA $0000
PHD
JSL L1C32F9
PEA ^L053239
PEA L053239
PEA ^L051E92
PEA L051E92
PEA ^L051DAA
PEA L051DAA
PEA ^L051DAA
PEA L051DAA
PEA $0001
PEA $0000
PEA $0000
JSL L1505E6
PEA ^L051E1A
PEA L051E1A
PEA $FFFC
PEA $FFFE
JSL L151005
PEA ^L051E1A
PEA L051E1A
PEA ^L0532BD
PEA L0532BD
JSL L081E53
PEA ^L051E1A
PEA L051E1A
PEA ^L053127
PEA L053127
JSL L081E53
JSL L160870
L1C35C7 TSC
CLC
ADC #$000E
TCS
PLD
RTL
L1C35CF ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0000
JSL L160862
PLA
LSR
BCC L1C363F
PHY
JSL L09771E
PLA
LSR
BCC L1C360B
LDA L0552C9
LDX L0552CB
PHX
PHA
LDA L0552E5
LDX L0552E7
PHX
PHA
PEA ^L051DAA
PEA L051DAA
PEA $0003
JSL L08382C
BRA L1C3625
L1C360B PEA ^L051DAA
PEA L051DAA
LDA L0552E1
LDX L0552E3
PHX
PHA
LDA L0552E5
LDX L0552E7
PHX
PHA
JSL L1606B0
L1C3625 PEA ^L051DAA
PEA L051DAA
PEA ^L0532B5
PEA L0532B5
JSL L081E53
LDA #$0002
STA L0552A9
JSL L160870
L1C363F PLY
PLY
PLD
RTL
L1C3643 PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PEI $1C
PEI $1A
JSL L1C07FC
PEI $18
PEI $16
JSL L1C03FE
PEI $1C
PEI $1A
PEI $18
PEI $16
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L071937
LDA $07
INC
INC
STA $07
LDA $05
INC
STA $05
TDC
CLC
ADC #$0001
PEA $0000
PHA
LDA #$00CF
CLC
ADC $12
LDX $14
BCC L1C368F
INX
L1C368F PHX
PHA
JSL L081E53
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L053127
PEA L053127
JSL L081E53
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L1C1407
LDA $10
STA $1C
LDA $0F
STA $1B
LDA $0D
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L1C36C7 ENT
PHD
TSC
CLC
ADC #$EFEC
TCS
ADC #$0F1D
TCD
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L053239
PEA L053239
JSL L1506A7
LDA L055303
STA $E1
PEA $0001
JSL L0A1225
TDC
CLC
ADC #$00EB
PEA $0000
PHA
JSL L1C1ACF
JSL L1C0F31
JSL L160376
LDA L055233
BNE L1C370F
BRL L1C3849
L1C370F TDC
CLC
ADC #$00EF
PEA $0000
PHA
JSL L1608EE
PHY
TDC
CLC
ADC #$00EF
PEA $0000
PHA
PEA ^L053259
PEA L053259
JSL L1512CB
PLA
LSR
BCS L1C3737
BRL L1C3846
L1C3737 PHY
JSL L073CDF
PLA
STA $D7
LDA #$0001
STA $85
PHY
LDA #$FFFE
AND $F1
PHA
PEI $EF
LDA L055105
LDX L055107
PHX
PHA
JSL L1608B6
PLA
LDX #$0087
STA $00,X
JSL L1C3EDC
TDC
CLC
ADC #$00B7
PEA $0000
PHA
PEA ^L053239
PEA L053239
PEA $0010
JSL L0313BE
TDC
CLC
ADC #$00A7
PEA $0000
PHA
PEA ^L053239
PEA L053239
PEA $0010
JSL L0313BE
LDA L055105
LDX L055107
STA $B9
STX $BB
LDA L0552C9
LDX L0552CB
STA $A9
STX $AB
TDC
CLC
ADC #$00B7
PEA $0000
PHA
PEA ^L053259
PEA L053259
TDC
CLC
ADC #$00A7
PEA $0000
PHA
PEA ^L053259
PEA L053259
PEI $F1
PEI $EF
PEA $1001
PEA $FFFF
PEA $FFFF
TDC
CLC
ADC #$0085
PEA $0000
PHA
JSL L151657
PEA ^L051E12
PEA L051E12
JSL L082712
LDA L0552C9
LDX L0552CB
PHX
PHA
PEA ^L051E12
PEA L051E12
JSL L08295E
PEA ^L051DAA
PEA L051DAA
PEA ^L051E12
PEA L051E12
PEA $0008
JSL L0313BE
PHY
PEA ^L051DAA
PEA L051DAA
JSL L081A64
PLA
LSR
BCS L1C3840
PEA ^L051DAA
PEA L051DAA
JSL L16042C
PEA ^L051DAA
PEA L051DAA
JSL L1C2911
JSL L1C1967
LDA #$0001
STA L0552B1
LDA #$0001
STA L0552AF
STZ L0552A9
L1C3840 PEI $D7
JSL L0724F7
L1C3846 BRL L1C3B4A
L1C3849 JSL L1510A1
PEA $0002
PEA $0001
JSL L151083
PEI $ED
PEI $EB
PEI $ED
PEI $EB
PEA $0000
PHD
JSL L1C3643
LDA $EB
LDX $ED
STA $E7
STX $E9
LDA #$0001
STA $DF
L1C3874 TDC
CLC
ADC #$00E3
PEA $0000
PHA
JSL L1C1ACF
LDA $E5
SEC
SBC $E9
BPL L1C388C
EOR #$FFFF
INC
L1C388C PHA
LDA $E3
SEC
SBC $E7
BPL L1C3898
EOR #$FFFF
INC
L1C3898 ASL
STA $F3
PLA
CLC
ADC $F3
SEC
SBC #$0002
BEQ L1C38DC
BVS L1C38AA
EOR #$8000
L1C38AA BPL L1C38DC
PEI $E9
PEI $E7
PEI $E5
PEI $E3
PEA $0000
PHD
JSL L1C3643
LDA $DF
ASL
ASL
CLC
ADC #$F0E1
TAX
PEI $E5
PEI $E3
PLA
STA $00,X
PLA
STA $02,X
LDA $DF
INC
STA $DF
LDA $E3
LDX $E5
STA $E7
STX $E9
L1C38DC LDX #$0000
LDA #$03E8
CMP $DF
BNE L1C38E7
INX
L1C38E7 PHX
PHY
JSL L096CC4
PLA
EOR #$0001
ORA $01,S
PLX
LSR
BCS L1C38FA
BRL L1C3874
L1C38FA PEI $E9
PEI $E7
PEI $ED
PEI $EB
PEA $0000
PHD
JSL L1C3643
JSL L150659
PEI $ED
PEI $EB
JSL L1C07FC
LDA $DF
DEC
LDX #$F0E3
STA $00,X
LDX #$F0E3
LDA $00,X
SEC
SBC #$0001
BVS L1C392C
EOR #$8000
L1C392C BPL L1C3953
LDA #$0001
STA $DD
L1C3933 LDA $DD
ASL
ASL
CLC
ADC #$F0E1
TAX
LDA $02,X
PHA
LDA $00,X
PHA
JSL L1C03FE
LDA $DD
LDX #$F0E3
CMP $00,X
BEQ L1C3953
INC $DD
BRA L1C3933
L1C3953 PEI $ED
PEI $EB
JSL L1C03FE
PHY
PHY
JSL L150BB2
PLA
STA $D9
PLX
STX $DB
PEI $DB
PEI $D9
JSL L15166F
PEI $E1
JSL L0A1225
TDC
CLC
ADC #$00CF
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
PEA $0000
JSL L1601A8
PEA ^L051DAA
PEA L051DAA
LDY #$0002
LDA [$D9],Y
TAX
LDA [$D9]
CLC
ADC #$0002
BCC L1C39A4
INX
L1C39A4 PHX
PHA
PEA $0008
JSL L0313BE
PHY
PEI $DB
PEI $D9
JSL L1516AB
PLA
LSR
BCC L1C39C5
LDA L0552A7
PHA
JSL L0A02BC
BRL L1C3B42
L1C39C5 JSL L1C3EDC
PHY
JSL L09771E
PLA
LSR
BCC L1C3A2B
PEA ^L05312F
PEA L05312F
JSL L151131
PEA ^L051E32
PEA L051E32
JSL L1506A7
PEI $DB
PEI $D9
JSL L150641
PEA ^L053239
PEA L053239
JSL L1506A7
PEA ^L051DAA
PEA L051DAA
JSL L1C2911
PEA ^L051E12
PEA L051E12
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
LDA #$0001
STA L0552AF
LDA #$0001
STA L0552B1
STZ L0552A9
JSL L1C1967
BRL L1C3B42
L1C3A2B PHY
JSL L073CDF
PLA
STA $D7
LDA L0550FD
LDX L0550FF
PHX
PHA
PEA $FFFF
PEA ^L053127
PEA L053127
JSL L085B3C
PEA ^L053127
PEA L053127
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
PEA ^L0532BD
PEA L0532BD
JSL L082712
PEA ^L053209
PEA L053209
PEA ^L053239
PEA L053239
PEA ^L051DAA
PEA L051DAA
PEA ^L051DAA
PEA L051DAA
PEA $0000
PEI $DB
PEI $D9
JSL L1505E6
LDA #$0001
STA $85
LDA #$000F
LDX #$0087
STA $00,X
LDAL L051DAA
STA $C7
LDAL L051DAE
STA $CB
LDA #$FFF0
ANDL L051DAC
STA $C9
LDA #$000F
CLC
ADCL L051DB0
AND #$FFF0
STA $CD
PEA ^L053239
PEA L053239
TDC
CLC
ADC #$00C7
PEA $0000
PHA
PEA ^L051E32
PEA L051E32
TDC
CLC
ADC #$00C7
PEA $0000
PHA
PEA $1001
PEA $FFFF
PEA $FFFF
TDC
CLC
ADC #$0085
PEA $0000
PHA
JSL L151627
LDA L0552C9
LDX L0552CB
PHX
PHA
PEA ^L051DAA
PEA L051DAA
JSL L08295E
PHY
PEA ^L051DAA
PEA L051DAA
JSL L081A64
PLA
LSR
BCS L1C3B3C
PEA ^L051DAA
PEA L051DAA
JSL L1C2911
LDA #$0001
STA L0552B1
LDA #$0001
STA L0552AF
STZ L0552A9
PEA ^L051E12
PEA L051E12
PEA ^L051DAA
PEA L051DAA
PEA $0008
JSL L0313BE
JSL L1C1967
L1C3B3C PEI $D7
JSL L0724F7
L1C3B42 PEI $DB
PEI $D9
JSL L151669
L1C3B4A LDA #$0005
STA L0552A7
JSL L16089A
JSL L1C035E
PEA $0000
JSL L1601A8
TSC
CLC
ADC #$1014
TCS
PLD
RTL
L1C3B67 ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
LDA L0550B9
DEC
BEQ L1C3B78
BRL L1C3ECA
L1C3B78 PHY
PHY
JSL L150493
PLA
STA $0D
PLX
STX $0F
PEA ^L05312F
PEA L05312F
JSL L151131
LDA L055315
ORA L055317
BEQ L1C3BBA
PEA ^L051DAA
PEA L051DAA
JSL L160472
PEA ^L051DAA
PEA L051DAA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
PEA $0001
JSL L1601A8
BRL L1C3E9F
L1C3BBA LDA L055319
EOR #$0001
PHA
LDA L0552BB
SEC
SBC #$0001
BVS L1C3BCD
EOR #$8000
L1C3BCD BPL L1C3BD4
LDA #$0000
BRA L1C3BD7
L1C3BD4 LDA #$0001
L1C3BD7 ORA $01,S
PLX
LSR
BCC L1C3BE0
BRL L1C3E9F
L1C3BE0 LDAL L051ED8
STA $07
LDAL L051EDC
SEP #$20
STA $09
REP #$20
LDAL L051EDA
SEP #$20
STA $0A
REP #$20
PEI $09
PEI $07
PEA $0000
JSL L151663
LDAL L051EDC
PHA
JSL L1512E3
PEA $0000
JSL L1516ED
PEA $0000
JSL L1511E6
PEA $FFFF
JSL L1511E0
PHY
PEA ^L052D12
PEA L052D12
PEA ^L051D26
PEA L051D26
PEA $0020
JSL L070A10
PLA
EOR #$0001
STA $05
LDA $05
BEQ L1C3C52
PEA ^L052D12
PEA L052D12
JSL L151198
PEA $0001
JSL L150BD6
L1C3C52 LDAL L051EDE
STA $25
LDA L055313
BEQ L1C3C6C
PHY
LDA #$0007
CLC
ADC $25
PHA
JSL L160934
PLA
STA $25
L1C3C6C LDA L0552BB
STA $2D
LDA $3A
BEQ L1C3C8E
LDA #$0001
STA $2D
PEA ^L051E1A
PEA L051E1A
PEA ^L0532BD
PEA L0532BD
JSL L081E53
JSL L1C3F07
L1C3C8E LDAL L051E0E
PHA
LDA $2D
DEC
PEI $25
JSL L150BEE
PLA
CLC
ADC $01,S
PLX
STA $29
LDA $2D
STA $03
LDA L0552BB
STA $01
LDA $01
SEC
SBC $03
BVS L1C3CB6
EOR #$8000
L1C3CB6 BMI L1C3CBB
BRL L1C3E5A
L1C3CBB LDA $03
STA $2F
L1C3CBF LDA $3A
BNE L1C3D29
TDC
CLC
ADC #$0011
PEA $0000
PHA
PEA $0000
LDA $29
SEC
SBCL L051DB2
PHA
PEA $0280
LDAL L051DB4
CLC
ADC $29
PHA
JSL L15100B
LDA L0552E5
LDX L0552E7
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0011
PEA $0000
PHA
JSL L085B3C
LDA L0552E1
LDX L0552E3
PHX
PHA
PEA $FFFF
TDC
CLC
ADC #$0011
PEA $0000
PHA
JSL L085B3C
TDC
CLC
ADC #$0011
PEA $0000
PHA
PEA ^L0532BD
PEA L0532BD
JSL L081E53
L1C3D29 LDA $2F
DEC
ASL
ASL
TAX
LDAL L051DC0,X
PHA
LDAL L051DBE,X
PLX
STA $21
STX $23
PEI $23
PEI $21
JSL L0718BF
PHY
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
PHX
PHA
JSL L15063B
PLA
STA $27
LDA #$0002
ANDL L051EDC
BEQ L1C3D68
LDA #$000A
CLC
ADC $27
STA $27
L1C3D68 LDA L0552BD
STA $2B
LDA $2F
DEC
BNE L1C3D78
LDAL L051E10
STA $2B
L1C3D78 LDA #$FFFF
CMPL L051ED6
BNE L1C3D88
LDA $2B
SEC
SBC $27
STA $2B
L1C3D88 LDAL L051ED6
DEC
BNE L1C3DA4
PEI $2B
PHY
PEI $27
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $31
PLA
SEC
SBC $31
STA $2B
L1C3DA4 LDA $2B
DEC
DEC
STA $1B
LDA $27
CLC
ADC $2B
INC
INC
STA $1F
LDA $29
SEC
SBCL L051DB2
STA $19
LDAL L051DB4
CLC
ADC $29
STA $1D
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STA $31
STX $33
LDA #$00FF
AND [$31]
BEQ L1C3E40
PEA ^L051EA2
PEA L051EA2
JSL L1506A7
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L15123D
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA ^L051E1A
PEA L051E1A
JSL L081E53
PEA ^L051E92
PEA L051E92
JSL L1506A7
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L15123D
PEI $2B
PEI $29
JSL L1510C5
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
PHX
PHA
JSL L150592
LDA $05
BEQ L1C3E40
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L15037D
L1C3E40 PEI $23
PEI $21
JSL L07191C
LDA $25
CLC
ADC $29
STA $29
LDA $2F
CMP $01
BEQ L1C3E5A
INC $2F
BRL L1C3CBF
L1C3E5A LDA $1F
DEC
DEC
STAL L051DBC
LDA $29
SEC
SBC $25
STAL L051DBA
LDA $3A
BEQ L1C3E7F
PEA ^L051E1A
PEA L051E1A
PEA ^L0532BD
PEA L0532BD
JSL L081E53
L1C3E7F PEA $0001
JSL L1601A8
PEA ^L0532BD
PEA L0532BD
PEA ^L051E1A
PEA L051E1A
PEA $0008
JSL L0313BE
LDA #$0001
STA L0552AB
L1C3E9F JSL L08765D
PEA ^L053239
PEA L053239
JSL L1506A7
JSL L1510A1
PEI $0F
PEI $0D
JSL L151131
PEI $09
PEI $07
PEA $0010
JSL L150BC4
STZ L0552B5
STZ L0552B7
L1C3ECA LDA $38
STA $3A
LDA $37
STA $39
LDA $35
TCD
TSC
CLC
ADC #$0038
TCS
RTL
L1C3EDC ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L0552C9
LDX L0552CB
PHX
PHA
PEA $0000
PEA ^L051E12
PEA L051E12
JSL L085B3C
PEA ^L051E12
PEA L051E12
JSL L08273B
PLY
PLY
PLD
RTL
L1C3F07 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L0552E5
LDX L0552E7
PHX
PHA
PEA $0000
PEA ^L051E1A
PEA L051E1A
JSL L085B3C
LDA L0552E1
LDX L0552E3
PHX
PHA
PEA $FFFF
PEA ^L051E1A
PEA L051E1A
JSL L085B3C
PEA ^L051E1A
PEA L051E1A
JSL L08273B
PLY
PLY
PLD
RTL