Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-30 18:31:21 +00:00
Code Issues Projects Releases Wiki Activity
063f39695b
antoine-source/genesys/GESEG4.S
Antoine Vignau 3f71382330 v1.3.6 - New feaetures 
Edition of resources in system ID range added. Source file generation bug fix.
2022-01-29 15:14:41 +01:00

5318 lines
99 KiB
ArmAsm
Raw Blame History

*
* Genesys v1.2.4
* Main program: segment 4
*
mx %00
rel
lst off
*----------------------------
use 4/Ctl.Macs
use 4/Int.Macs
use 4/Line.Macs
use 4/Mem.Macs
use 4/Menu.Macs
use 4/QD.Macs
use 4/QDAux.Macs
use 4/Resource.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/TextEdit.Macs
use 4/Util.Macs
use 4/Window.Macs
use GESEG4.X.S
*----------------------------
L040000 ENT
TSC
SEC
SBC #$0024
TCS
PHD
TCD
LDX $2A
LDA $28
STX L027EA9
STA L027EA7
LDA #$0000
SEP #$20
STA L027EB0
REP #$20
LDA #$007F
SEP #$20
STA L027EAF
REP #$20
STZ L027ECF
LDA #$0022
STA L027ECD
STZ L027EB7
LDA #$002E
STA L027EB5
LDA #$0000
STA L027ECB
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$0004
LDA [$01],Y
PHA
_SetCurResourceFile
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0B
JSL L040D38
STA $07
LDA $07
BEQ L0400C7
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
PHA
PEI $0B
_SetResourceFileDepth
PLA
STA $0B
LDA $07
CMP #$FFFF
BEQ L0400BF
JSL L0409D2
LDA $07
STA $05
BRL L0406A7
L0400BF LDA #$0000
STA $05
BRL L0406A7
L0400C7 LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX L027EBD
STA L027EBB
LDX L027EBD
LDA L027EBB
STX L0280F7
STA L0280F5
STX L027EEF
STA L027EED
STX L0280AF
STA L0280AD
PEA $2002
PEA ^L0280AB
PEA L0280AB
JSL L02C243
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$000A
LDA [$01],Y
PHA
LDY #$0008
LDA [$01],Y
PHA
PEA $0000
PEA $007F
JSL L02D6DE
BEQ L040189
LDA #$0004
STA L027EF3
PEA ^L027EF5
PEA L027EF5
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
STA [$01],Y
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$000A
LDA [$01],Y
PHA
LDY #$0008
LDA [$01],Y
PHA
LDA #$00FF
LDX #$0000
LDY #$0001
CMP $01,S
BEQ L040166
DEY
L040166 TXA
CMP $03,S
BEQ L04016E
LDY #$0000
L04016E PLA
PLA
TYA
BEQ L040187
LDA #$0080
SEP #$20
STA L027EB0
REP #$20
LDA #$00FF
SEP #$20
STA L027EAF
REP #$20
L040187 BRA L0401BB
L040189 LDA #$00B0
STA L027EF3
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$000A
LDA [$01],Y
TAX
LDY #$0008
LDA [$01],Y
PHX
PHA
PEA ^L027EF5
PEA L027EF5
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
L0401BB PEA $2001
PEA ^L027EEB
PEA L027EEB
JSL L02C243
JSL L02CA27
STA $07
LDA $07
BEQ L040217
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
JSL L0409D2
PHA
PEI $0B
_SetResourceFileDepth
PLA
STA $0B
LDA $07
STA $05
BRL L0406A7
L040217 LDA #$0002
STA L0280F1
PEA $2010
PEA ^L0280F1
PEA L0280F1
JSL L02C243
JSL L02CA27
STA $07
LDA $07
BEQ L040279
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0004
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
JSL L0409D2
PHA
PEI $0B
_SetResourceFileDepth
PLA
STA $0B
LDA $07
STA $05
BRL L0406A7
L040279 PEA ^L027F61
PEA L027F61
LDA L0280F3
PLX
STX $01
PLX
STX $03
STA [$01]
PHA
_CountTypes
PLA
STA $0D
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
PEA $0001
JSL L0406BA
LDA #$0001
STA $07
LDA #$0000
STA L027EB9
L0402D4 LDA $0D
LDX #$0001
SEC
SBC $07
BVS L0402E1
EOR #$8000
L0402E1 BMI L0402E4
DEX
L0402E4 TXA
CMP #$0000
BEQ L040307
LDA L027EB9
LDX #$0001
SEC
SBC #$FFFE
BEQ L0402FD
BVS L0402FB
EOR #$8000
L0402FB BMI L0402FE
L0402FD DEX
L0402FE TXA
CMP #$0000
BEQ L040307
LDA #$0001
L040307 TAX
BNE L04030D
BRL L04064F
L04030D PHA
PEI $07
_GetIndType
PLA
STA $17
CMP #$8014
BNE L040325
BRL L04064A
L040325 LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0001
PEA $0000
PEI $07
PEA $0000
PEI $0D
PEA $0000
PEA $0000
PEI $17
JSL L02ACFE
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$000E
LDA [$01],Y
AND #$8000
LDX #$0000
CMP #$0000
BEQ L040367
INX
L040367 TXA
BNE L04036E
LDA $17
BRA L040371
L04036E LDA #$8014
L040371 PHA
JSL L042616
STX $1F
STA $1D
PHA
PHA
PEI $17
_CountResources
PLA
PLX
STA $0F
LDA #$0001
STA $09
L040391 LDA $0F
LDX #$0001
SEC
SBC $09
BVS L04039E
EOR #$8000
L04039E BMI L0403A1
DEX
L0403A1 TXA
CMP #$0000
BEQ L0403C4
LDA L027EB9
LDX #$0001
SEC
SBC #$FFFF
BEQ L0403BA
BVS L0403B8
EOR #$8000
L0403B8 BMI L0403BB
L0403BA DEX
L0403BB TXA
CMP #$0000
BEQ L0403C4
LDA #$0001
L0403C4 TAX
BNE L0403CA
BRL L04064A
L0403CA PHA
PHA
PEI $17
LDA $09
LDX #$0000
TAY
BPL L0403D7
DEX
L0403D7 PHX
PHA
_GetIndResource
PLA
STA $19
PLA
STA $1B
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0002
PEI $09
PEI $07
PEI $0F
PEI $0D
LDX $1B
LDA $19
PHX
PHA
PEI $17
JSL L02ACFE
PHA
PEI $17
LDX $1B
LDA $19
PHX
PHA
_GetResourceAttr
PLA
STA $11
PEA $000C
PEI $17
LDX $1B
LDA $19
PHX
PHA
_SetResourceAttr
PHA
PHA
PEI $17
LDX $1B
LDA $19
PHX
PHA
_LoadResource
PLA
STA $21
PLA
STA $23
LDX $23
LDA $21
PHX
PHA
_HLock
PEI $11
PEI $17
LDX $1B
LDA $19
PHX
PHA
_SetResourceAttr
LDX $1F
LDA $1D
STX L027EC5
STA L027EC3
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STX L027EC1
STA L027EBF
LDX L027EC5
LDA L027EC3
PHX
PHA
PEA ^L028258
PEA L028258
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L02825C
PEA L02825C
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PHA
PHA
LDX $23
LDA $21
PHX
PHA
_GetHandleSize
PEA ^L028260
PEA L028260
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
LDA $17
PEA $0000
PHA
PEA ^L028264
PEA L028264
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PEA ^L028268
PEA L028268
PLA
STA $01
PLA
STA $03
LDA $19
STA [$01]
LDA $1B
STA [$01],Y
LDA $09
LDX #$0000
TAY
BPL L04051F
DEX
L04051F PHX
PHA
PEA ^L02826C
PEA L02826C
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA ^L028270
PEA L028270
PLA
STA $01
PLA
STA $03
LDA #$0000
PHA
PHA
STA [$01]
STA $03,S
STA [$01],Y
PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDA $0F
LDX #$0000
TAY
BPL L040568
DEX
L040568 PHX
PHA
PEA ^L028278
PEA L028278
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEI $11
JSL L0426A8
PHX
PHA
PEA ^L02827C
PEA L02827C
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
JSL L041442
LDA L027EB9
BNE L0405CC
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0003
PEI $09
PEI $07
PEI $0F
PEI $0D
LDX $1B
LDA $19
PHX
PHA
PEI $17
JSL L02ACFE
BRA L040630
L0405CC LDA L027EB9
CMP #$FFFF
BNE L0405FE
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0005
PEI $09
PEI $07
PEI $0F
PEI $0D
LDX $1B
LDA $19
PHX
PHA
PEI $17
JSL L02ACFE
STA L027EB9
BRA L040630
L0405FE LDA L027EB9
BMI L040606
DEC
BPL L040608
L040606 BRA L040630
L040608 LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0006
PEI $09
PEI $07
PEI $0F
PEI $0D
LDX $1B
LDA $19
PHX
PHA
PEI $17
JSL L02ACFE
STA L027EB9
L040630 PEA $FFFF
PEI $17
LDX $1B
LDA $19
PHX
PHA
_ReleaseResource
INC $09
BRL L040391
L04064A INC $07
BRL L0402D4
L04064F PEA $0002
JSL L0406BA
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0004
PEI $09
PEI $07
PEI $0F
PEI $0D
PEA $0000
PEA $0000
PEI $17
JSL L02ACFE
LDA #$0001
STA L0280F1
PEA $2014
PEA ^L0280F1
PEA L0280F1
JSL L02C243
JSL L0409D2
PHA
PEI $0B
_SetResourceFileDepth
PLA
STA $0B
LDA #$0000
STA $05
L0406A7 LDA $26
STA $2A
LDA $25
STA $29
LDY $05
PLD
TSC
CLC
ADC #$0028
TCS
TYA
RTL
L0406BA TSC
SEC
SBC #$0004
TCS
PHD
TCD
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
LDA $08
CLC
ADC #$0008
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$000E
LDA [$01],Y
AND #$8000
BEQ L04070A
LDA $08
INC
INC
STA $08
L04070A LDA L027ED5
ORA L027ED7
BEQ L040758
LDX L027ED7
LDA L027ED5
STX L027EC5
STA L027EC3
LDA $08
LDX #$0000
TAY
BPL L040727
DEX
L040727 PHX
PHA
PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
JSL L041442
PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
STA [$01],Y
L040758 LDA $06
STA $08
LDA $05
STA $07
PLD
TSC
CLC
ADC #$0006
TCS
RTL
L040768 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA $10
ORA $12
BNE L0407DF
PHA
PHA
PEA $0000
PEA $000A
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$0006
LDA [$01],Y
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
PLA
STA $09
PLA
STA $0B
LDX $0B
LDA $09
PHX
PHA
_HLock
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
STX $12
STA $10
LDA $14
STA [$10]
LDA $16
STA [$10],Y
INY
INY
LDA $18
STA [$10],Y
LDY #$0006
LDA #$0000
STA [$10],Y
INY
INY
STA [$10],Y
BRA L04080B
L0407DF LDA [$10]
CMP $14
BEQ L04080B
LDX $18
LDA $16
PHX
PHA
PEI $14
LDY #$0008
LDA [$10],Y
TAX
LDY #$0006
LDA [$10],Y
PHX
PHA
JSL L040768
PHX
PHA
LDY #$0006
PLA
STA [$10],Y
INY
INY
PLA
STA [$10],Y
L04080B LDA $10
LDX $12
STA $05
STX $07
LDA $0E
STA $18
LDA $0D
STA $17
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0016
TCS
TYA
RTL
L040828 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA $10
STA $0B
BRA L040898
L040836 PEA ^L040916
PEA L040916
PLA
STA $07
PLA
STA $09
BRA L0408BC
L040844 PEA ^L04092F
PEA L04092F
PLA
STA $07
PLA
STA $09
BRA L0408BC
L040852 PEA ^L040949
PEA L040949
PLA
STA $07
PLA
STA $09
BRA L0408BC
L040860 PEA ^L04095B
PEA L04095B
PLA
STA $07
PLA
STA $09
BRA L0408BC
L04086E PEA ^L040978
PEA L040978
PLA
STA $07
PLA
STA $09
BRA L0408BC
L04087C PEA ^L040988
PEA L040988
PLA
STA $07
PLA
STA $09
BRA L0408BC
L04088A PEA ^L0409AB
PEA L0409AB
PLA
STA $07
PLA
STA $09
BRA L0408BC
L040898 LDA $0B
SEC
SBC #$0100
CMP #$0006
BCC L0408A6
LDA #$0006
L0408A6 ASL
TAX
LDAL $0408AE,X
PHA
RTS
L0408AE DA L040836-1
DA L040852-1
DA L040844-1
DA L040860-1
DA L04086E-1
DA L04087C-1
DA L04088A-1
L0408BC LDX $09
LDA $07
PHX
PHA
PEA ^L0409B3
PEA L0409B3
LDA L027F63
LDX L027F63+2
PHX
PHA
JSL L02C68C
LDX #$0000
TAY
BPL L0408DB
DEX
L0408DB PHX
PHA
PEA ^L027F67
PEA L027F67
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA $2013
PEA ^L027F5F
PEA L027F5F
JSL L02C243
LDA $10
STA $05
LDA $0E
STA $10
LDA $0D
STA $0F
LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L040916 ASC 'BAD BIT COMMAND MODIFIER'00
L04092F ASC 'BAD READ COMMAND MODIFIER'00
L040949 ASC 'UNDEFINED COMMAND'00
L04095B ASC 'UNASSIGNED CTRL COMMAND CODE'00
L040978 ASC 'DIV/MOD BY ZERO'00
L040988 ASC 'AND/OR COMMAND WITHOUT ADJACENT IF'00
L0409AB ASC 'UNKNOWN'00
L0409B3 ASC 0D
ASC '<<< TEMPLATE ERROR - %s >>>'0D0D00
L0409D2 TSC
SEC
SBC #$000E
TCS
PHD
TCD
LDX L027EC9
LDA L027EC7
STX $09
STA $07
L0409E4 LDA $07
ORA $09
BEQ L040A1F
LDY #$0008
LDA [$07],Y
TAX
LDY #$0006
LDA [$07],Y
STX $0D
STA $0B
PHA
PHA
LDX $09
LDA $07
PHX
PHA
_FindHandle
_DisposeHandle
LDA $0B
LDX $0D
STA $07
STX $09
BRA L0409E4
L040A1F LDA #$0000
STA $05
L040A24 LDA $05
ASL
ASL
TAX
LDY L028732,X
LDA L028730,X
PHY
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L040A3D
DEY
L040A3D TXA
CMP $03,S
BEQ L040A45
LDY #$0000
L040A45 PLA
PLA
TYA
EOR #$0001
CMP #$0000
BEQ L040A6C
LDA #$0010
LDX #$0001
SEC
SBC $05
BEQ L040A62
BVS L040A60
EOR #$8000
L040A60 BMI L040A63
L040A62 DEX
L040A63 TXA
CMP #$0000
BEQ L040A6C
LDA #$0001
L040A6C TAX
BEQ L040A8A
LDA $05
ASL
ASL
TAX
LDY L028732,X
LDA L028730,X
PHY
PHA
_DisposeHandle
INC $05
BRA L040A24
L040A8A PLD
TSC
CLC
ADC #$000E
TCS
RTL
L040A92 TSC
SEC
SBC #$0010
TCS
PHD
TCD
LDA #$0000
STA $0D
STA $0F
LDA #L027F71
STA $09
LDA #^L027F71
STA $0B
L040AAB LDX L027EC1
LDA L027EBF
STA $01
STX $03
LDA [$01]
AND #$00FF
TAX
LDA L02C277,X
AND #$00FF
AND #$0080
CMP #$0000
BEQ L040ADD
PEI $16
PEI $14
PEI $0F
PEI $0D
JSL L02D6DE
CMP #$0000
BEQ L040ADD
LDA #$0001
L040ADD CMP #$0000
BEQ L040B0A
LDX L027EC1
LDA L027EBF
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
LDX L027ECF
LDA L027ECD
SEC
SBC $01,S
PLX
TAX
BEQ L040B02
LDA #$0001
L040B02 CMP #$0000
BEQ L040B0A
LDA #$0001
L040B0A TAX
BEQ L040B3D
PEI $0B
PEI $09
INC $09
BNE L040B17
INC $0B
L040B17 LDX L027EC1
LDA L027EBF
INC L027EBF
BNE L040B25
INC L027EC1
L040B25 STA $01
STX $03
LDA [$01]
AND #$00FF
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
BRL L040BEE
L040B3D PEI $0F
PEI $0D
PEA $0000
PEA $0000
JSL L02D6DE
BEQ L040BB0
SEP #$20
LDA #$00
STA [$09]
REP #$20
PEA ^L028270
PEA L028270
PLA
STA $01
PLA
STA $03
LDA $0D
STA [$01]
LDY #$0002
LDA $0F
STA [$01],Y
LDX $16
LDA $14
LDY #$0000
CMP $0D
BNE L040B79
CPX $0F
L040B79 BNE L040B7C
INY
L040B7C TYA
BNE L040B87
PEA $0000
PEA $0002
BRA L040B8D
L040B87 PEA $0000
PEA $0000
L040B8D PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA ^L027F71
PEA L027F71
PLA
STA $05
PLA
STA $07
BRA L040BF7
L040BB0 PEA ^L028270
PEA L028270
PLA
STA $01
PLA
STA $03
LDA #$0001
STA [$01]
LDY #$0002
LDA #$0000
STA [$01],Y
PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
LDA #$0001
STA [$01]
LDA #$0000
STA [$01],Y
PEA $0001
JSL L040C0C
PHX
STA $05
PLA
STA $07
BRA L040BF7
L040BEE INC $0D
BNE L040BF4
INC $0F
L040BF4 BRL L040AAB
L040BF7 LDA $12
STA $16
LDA $11
STA $15
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0014
TCS
TYA
RTL
L040C0C TSC
SEC
SBC #$0010
TCS
PHD
TCD
PHA
CLC
LDA L027EBF
STA $0D
ADC $14
STA L027EBF
LDA L027EC1
STA $0F
ADC #$0000
STA L027EC1
PLA
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STX $0B
STA $09
LDA $14
CMP #$0001
BNE L040C56
PEI $0B
LDA $09
AND #$00FF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
STA $09
PLA
STA $0B
BRA L040C72
L040C56 LDA $14
CMP #$0002
BNE L040C72
PEI $0B
LDA $09
AND #$FFFF
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
STA $09
PLA
STA $0B
L040C72 LDA $09
LDX $0B
STA $05
STX $07
LDA $12
STA $14
LDA $11
STA $13
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0012
TCS
TYA
RTL
L040C8F TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA #$0000
STA $09
STA $0B
L040C9E LDA [$10]
AND #$00FF
TAX
LDA L02C277,X
AND #$00FF
AND #$0040
BEQ L040D1B
PEI $0B
PEI $09
PEA $0000
PEA $0004
JSL L02DCF2
PLA
STA $09
PLA
STA $0B
LDA [$10]
AND #$00FF
LDX #$0001
SEC
SBC #$0039
BEQ L040CD8
BVS L040CD6
EOR #$8000
L040CD6 BMI L040CD9
L040CD8 DEX
L040CD9 TXA
BNE L040CE7
LDA [$10]
AND #$00FF
SEC
SBC #$0030
BRA L040CF5
L040CE7 LDA [$10]
AND #$00FF
PHA
JSL L02CA2C
SEC
SBC #$0037
L040CF5 LDX #$0000
TAY
BPL L040CFC
DEX
L040CFC PHX
PHA
PEI $0B
PEI $09
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $09
PLA
STA $0B
INC $10
BNE L040D19
INC $12
L040D19 BRA L040C9E
L040D1B LDA $09
LDX $0B
STA $05
STX $07
LDA $0E
STA $12
LDA $0D
STA $11
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0010
TCS
TYA
RTL
L040D38 TSC
SEC
SBC #$000E
TCS
PHD
TCD
PEA $0001
PEA ^L027F3D
PEA L027F3D
JSL L026E47
TAX
BEQ L040D73
PEA $0000
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L026E47
LDA #$FFFF
STA $05
BRL L041145
L040D73 STZ L027EC9
STZ L027EC7
PEA ^L027F3D
PEA L027F3D
PEA ^L027F07
PEA L027F07
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA ^L028854
PEA L028854
PEA ^L028075
PEA L028075
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PEA ^L028854
PEA L028854
PEA ^L0280BD
PEA L0280BD
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PEA $2010
PEA ^L027F03
PEA L027F03
JSL L02C243
PEA ^L0280B5
PEA L0280B5
LDA L027F05
PLX
STX $01
PLX
STX $03
STA [$01]
STZ L027ED7
STZ L027ED5
LDA #$0000
STA $0B
L040DED LDA $0B
BMI L040DF9
CMP #$0010
BCC L040DF9
BRL L0410D4
L040DF9 LDA $0B
ASL
ASL
CLC
ADC #L028730
PEA ^L028730
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
STA [$01],Y
LDA #$0020
STA L028854
PEA $201C
PEA ^L0280B3
PEA L0280B3
JSL L02C243
JSL L02CA27
STA $0D
TAX
BEQ L040E3E
LDA $0D
CMP #$0061
BNE L040E3B
LDA #$0000
STA $0D
L040E3B BRL L0410D4
L040E3E LDA L0280C3
LDX #$0000
CMP #$00B0
BNE L040E4A
INX
L040E4A TXA
CMP #$0000
BEQ L040E88
LDA L0280DF
LDX L0280E1
PHX
PHA
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$000A
LDA [$01],Y
TAX
LDY #$0008
LDA [$01],Y
LDY #$0001
CMP $01,S
BEQ L040E75
DEY
L040E75 TXA
CMP $03,S
BEQ L040E7D
LDY #$0000
L040E7D PLA
PLA
TYA
CMP #$0000
BEQ L040E88
LDA #$0001
L040E88 TAX
BNE L040E8E
BRL L0410D1
L040E8E PEA ^L028854
PEA L028854
LDA L028856
INC
INC
PLX
STX $01
PLX
STX $03
STA [$01]
LDA #$3A35
STA L028856
PEA $2010
PEA ^L028071
PEA L028071
JSL L02C243
LDA #$0004
STA L027ED9
PEA ^L027EDB
PEA L027EDB
LDA L028073
PLX
STX $01
PLX
STX $03
STA [$01]
PHA
PHA
LDA L02809B
LDX L02809D
PHX
PHA
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$0006
LDA [$01],Y
PHA
PEA $C018
PEA $0000
PEA $0000
_NewHandle
LDA $0B
ASL
ASL
CLC
ADC #L028730
PEA ^L028730
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
JSL L02CA27
STA $0D
LDA $0D
BEQ L040F1E
BRL L0410CF
L040F1E LDA $0B
ASL
ASL
TAX
LDY L028732,X
LDA L028730,X
PHY
PHA
_HLock
LDA $0B
ASL
ASL
TAX
LDY L028732,X
LDA L028730,X
TYX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
PEA ^L027EDD
PEA L027EDD
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
LDA L02809B
LDX L02809D
PHX
PHA
PEA ^L027EE1
PEA L027EE1
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
PEA $2012
PEA ^L027ED9
PEA L027ED9
JSL L02C243
LDA #$0001
STA L027ED9
PEA $2014
PEA ^L027ED9
PEA L027ED9
JSL L02C243
LDA L027EDD
LDX L027EDF
STX L027EC5
STA L027EC3
LDA L02809B
LDX L02809D
PHX
PHA
LDX L027EC5
LDA L027EC3
PHX
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $07
PLA
STA $09
L040FC7 LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L0421B5
PHX
STA L027EC3
PLA
STA L027EC5
LDA L027EB3
CMP #$001C
BNE L041036
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0001
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
LDX L027ED3
LDA L027ED1
PHA
JSL L02ACFE
LDX L027EC5
LDA L027EC3
PHX
PHA
LDX L027ED3
LDA L027ED1
PHA
LDX L027EC9
LDA L027EC7
PHX
PHA
JSL L040768
PHX
STA L027EC7
PLA
STA L027EC9
BRA L04108D
L041036 LDA L027EB3
CMP #$0028
BNE L04104C
LDX L027EC5
LDA L027EC3
STX L027ED7
STA L027ED5
BRA L04108D
L04104C LDA L027EB3
LDX #$0000
CMP #$0026
BNE L041058
INX
L041058 TXA
CMP #$0000
BEQ L041063
LDA #$0001
BRA L041078
L041063 LDA L027EB3
LDX #$0000
CMP #$001E
BNE L04106F
INX
L04106F TXA
CMP #$0000
BEQ L041078
LDA #$0001
L041078 TAX
BEQ L04108D
LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L0421B5
STX L027EC5
STA L027EC3
L04108D LDX L027EC5
LDA L027EC3
STX $01
ORA $01
BEQ L0410C6
LDA L027EC3
PHX
PHA
LDX $09
LDA $07
TAY
TXA
LDX #$0001
CMP $03,S
BNE L0410AE
TYA
CMP $01,S
L0410AE BEQ L0410B2
BCS L0410B3
L0410B2 DEX
L0410B3 PLA
PLA
TXA
LDX #$0000
TAY
BPL L0410BD
DEX
L0410BD STX $01
ORA $01
BEQ L0410C6
LDA #$0001
L0410C6 BEQ L0410CB
BRL L040FC7
L0410CB INC $0B
BRA L0410D1
L0410CF BRA L0410D4
L0410D1 BRL L040DED
L0410D4 LDA #$0001
STA L027ED9
PEA ^L027EDB
PEA L027EDB
LDA L0280B5
PLX
STX $01
PLX
STX $03
STA [$01]
PEA $2014
PEA ^L027ED9
PEA L027ED9
JSL L02C243
LDY #$0000
LDA L027EC7
ORA L027EC9
BNE L041104
INY
L041104 TYA
CMP #$0000
BEQ L04111E
LDA $0D
LDX #$0000
CMP #$0000
BNE L041115
INX
L041115 TXA
CMP #$0000
BEQ L04111E
LDA #$0001
L04111E TAX
BEQ L041126
LDA #$0046
STA $0D
L041126 PEA $0000
LDX L027EA9
LDA L027EA7
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
JSL L026E47
LDA $0D
STA $05
L041145 LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L041150 TSC
SEC
SBC #$0011
TCS
PHD
TCD
LDA #L02812B
STA $0A
LDA #^L02812B
STA $0C
PEA ^L028230
PEA L028230
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
STA [$01],Y
L041178 PEI $17
PEI $15
INC $15
BNE L041182
INC $17
L041182 PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
SEP #$20
STA $09
REP #$20
CMP #$000D
BNE L04119B
BRL L04134E
L04119B LDA $09
AND #$00FF
BIT #$0080
BEQ L0411A8
ORA #$FF00
L0411A8 CMP #$0000
CMP #$0025
BNE L0411D6
PEA ^L028230
PEA L028230
PLA
STA $0E
PLA
STA $10
LDY #$0002
LDA [$0E],Y
PHA
LDA [$0E]
CLC
ADC #$0001
PHA
LDA $01,S
STA [$0E]
LDA $03,S
STA [$0E],Y
PLA
PLA
BRL L041325
L0411D6 LDA $09
AND #$00FF
BIT #$0080
BEQ L0411E3
ORA #$FF00
L0411E3 CMP #$0000
CMP #$005C
BEQ L0411EE
BRL L041325
L0411EE PEI $17
PEI $15
INC $15
BNE L0411F8
INC $17
L0411F8 PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
JSL L02CA0D
SEP #$20
STA $09
REP #$20
LDX #$0000
CMP #$006E
BNE L041217
INX
L041217 TXA
CMP #$0000
BEQ L041222
LDA #$0001
BRA L041244
L041222 LDA $09
AND #$00FF
BIT #$0080
BEQ L04122F
ORA #$FF00
L04122F CMP #$0000
LDX #$0000
CMP #$0072
BNE L04123B
INX
L04123B TXA
CMP #$0000
BEQ L041244
LDA #$0001
L041244 TAX
BEQ L041253
LDA #$000D
SEP #$20
STA $09
REP #$20
BRL L041325
L041253 LDA $09
AND #$00FF
BIT #$0080
BEQ L041260
ORA #$FF00
L041260 CMP #$0000
CMP #$0074
BNE L041274
LDA #$0009
SEP #$20
STA $09
REP #$20
BRL L041325
L041274 LDA $09
AND #$00FF
BIT #$0080
BEQ L041281
ORA #$FF00
L041281 CMP #$0000
CMP #$0078
BEQ L04128C
BRL L041325
L04128C LDA [$15]
AND #$00FF
LDX #$0001
SEC
SBC #$0039
BEQ L0412A1
BVS L04129F
EOR #$8000
L04129F BMI L0412A2
L0412A1 DEX
L0412A2 TXA
BNE L0412B4
LDA [$15]
AND #$00FF
SEC
SBC #$0030
ASL
ASL
ASL
ASL
BRA L0412C6
L0412B4 LDA [$15]
AND #$00FF
PHA
JSL L02CA2C
SEC
SBC #$0037
ASL
ASL
ASL
ASL
L0412C6 SEP #$20
STA $09
REP #$20
INC $15
BNE L0412D2
INC $17
L0412D2 LDA $09
AND #$00FF
BIT #$0080
BEQ L0412DF
ORA #$FF00
L0412DF CMP #$0000
PHA
LDA [$15]
AND #$00FF
LDX #$0001
SEC
SBC #$0039
BEQ L0412F8
BVS L0412F6
EOR #$8000
L0412F6 BMI L0412F9
L0412F8 DEX
L0412F9 TXA
BNE L041307
LDA [$15]
AND #$00FF
SEC
SBC #$0030
BRA L041315
L041307 LDA [$15]
AND #$00FF
PHA
JSL L02CA2C
SEC
SBC #$0037
L041315 CLC
ADC $01,S
PLX
SEP #$20
STA $09
REP #$20
INC $15
BNE L041325
INC $17
L041325 PEI $0C
PEI $0A
INC $0A
BNE L04132F
INC $0C
L04132F PLA
PLX
STA $01
STX $03
LDA $09
AND #$00FF
BIT #$0080
BEQ L041342
ORA #$FF00
L041342 CMP #$0000
SEP #$20
STA [$01]
REP #$20
BRL L041178
L04134E SEP #$20
LDA #$00
STA [$0A]
REP #$20
LDA L028230
BEQ L041369
ASL
ASL
TAX
INX
INX
L041360 LDA L028230,X
PHA
DEX
DEX
CPX #$0002
L041369 BNE L041360
PEA ^L02812B
PEA L02812B
LDA L027F63
LDX L027F63+2
PHX
PHA
JSL L02C68C
LDX #$0000
TAY
BPL L041384
DEX
L041384 PHX
PHA
PEA ^L027F67
PEA L027F67
PLA
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
LDA L027F63
LDX L027F63+2
STX $0C
STA $0A
L0413A5 LDA [$0A]
AND #$00FF
BEQ L041418
LDA $0A
LDX $0C
STA $0E
STX $10
PEI $10
PEI $0E
LDA [$0E]
AND #$00FF
PHA
LDA L027EB0
AND #$00FF
BIT #$0080
BEQ L0413CC
ORA #$FF00
L0413CC CMP #$0000
ORA $01,S
PLX
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
LDA $0A
LDX $0C
STA $0E
STX $10
PEI $10
PEI $0E
LDA [$0E]
AND #$00FF
PHA
LDA L027EAF
AND #$00FF
BIT #$0080
BEQ L0413FE
ORA #$FF00
L0413FE CMP #$0000
AND $01,S
PLX
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
INC $0A
BNE L041416
INC $0C
L041416 BRA L0413A5
L041418 PEA $2013
PEA ^L027F5F
PEA L027F5F
JSL L02C243
LDA $15
LDX $17
STA $05
STX $07
LDA $13
STA $17
LDA $12
STA $16
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0015
TCS
TYA
RTL
L041442 TSC
SEC
SBC #$001A
TCS
PHD
TCD
L04144A LDA L027EC3
ORA L027EC5
BNE L041455
BRL L0421AD
L041455 LDA L027EB9
BNE L041487
LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0007
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
STA L027EB9
L041487 LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L0421B5
STX L027EC5
STA L027EC3
LDA L027EB3
STA $13
L04149E BRL L042146
L0414A1 BRL L0421AA
L0414A4 LDA L027EAB
BNE L0414E1
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
AND $03,S
STA $03,S
PLA
AND $03,S
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
BRL L041667
L0414E1 LDA L027EAB
CMP #$0017
BNE L04154D
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
ORA $03,S
STA $03,S
PLA
ORA $03,S
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDA [$15],Y
PHA
LDA [$15]
EOR #$FFFF
PHA
LDA $03,S
EOR #$FFFF
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
BRL L041667
L04154D LDA L027EAB
CMP #$0019
BNE L04158D
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
ORA $03,S
STA $03,S
PLA
ORA $03,S
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
BRL L041667
L04158D LDA L027EAB
CMP #$001F
BNE L0415CD
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
EOR $03,S
STA $03,S
PLA
EOR $03,S
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
BRL L041667
L0415CD LDA L027EAB
CMP #$0024
BNE L041615
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
AND #$001F
PHA
LDA $03,S
AND #$0000
STA $03,S
JSL L02DCF2
PLA
STA [$15]
LDY #$0002
PLA
STA [$15],Y
BRA L041667
L041615 LDA L027EAB
CMP #$0025
BNE L04165D
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
AND #$001F
PHA
LDA $03,S
AND #$0000
STA $03,S
JSL L02CA46
PLA
STA [$15]
LDY #$0002
PLA
STA [$15],Y
BRA L041667
L04165D PEA $0100
JSL L040828
STA L027EB9
L041667 BRL L0421AA
L04166A LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
STA L027EC3
PLA
STA L027EC5
BRL L0421AA
L041681 LDX L027ED3
LDA L027ED1
STA $19
BRL L041956
L04168C LDA #$0080
SEP #$20
STA L027EB0
REP #$20
LDA #$00FF
SEP #$20
STA L027EAF
REP #$20
LDX L027ED3
LDA L027ED1
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L04197B
L0416C5 LDA #$0000
SEP #$20
STA L027EB0
REP #$20
LDA #$007F
SEP #$20
STA L027EAF
REP #$20
LDX L027ED3
LDA L027ED1
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L04197B
L0416FE LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L041718
DEY
L041718 TXA
CMP $03,S
BEQ L041720
LDY #$0000
L041720 PLA
PLA
TYA
BEQ L041728
BRL L0421AD
L041728 BRL L04197B
L04172B LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L041745
DEY
L041745 TXA
CMP $03,S
BEQ L04174D
LDY #$0000
L04174D PLA
PLA
TYA
BNE L041755
BRL L0421AD
L041755 BRL L04197B
L041758 PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
LDA #$0001
STA [$01]
LDY #$0002
LDA #$0000
STA [$01],Y
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
PEA $0000
PEA $001F
JSL L02D6DE
CMP #$0000
BEQ L0417AE
PEA $0000
PEA $007F
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
JSL L02D6DE
CMP #$0000
BEQ L0417AE
LDA #$0001
L0417AE CMP #$0000
BEQ L0417D7
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
TYX
LDY #$0000
CMP L027ECD
BNE L0417CB
CPX L027ECF
L0417CB BEQ L0417CE
INY
L0417CE TYA
CMP #$0000
BEQ L0417D7
LDA #$0001
L0417D7 TAX
BEQ L041829
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PEA ^L02822B
PEA L02822B
JSL L02C78E
PHX
PLA
PEA ^L02822B
PEA L02822B
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
L041829 BRL L04197B
L04182C PEA $0000
PEA $0020
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
JSL L02D6DE
CMP #$0000
BEQ L04184E
LDA #$0001
BRA L04186E
L04184E LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
PEA $0000
PEA $007F
JSL L02D6DE
CMP #$0000
BEQ L04186E
LDA #$0001
L04186E TAX
BEQ L041893
LDX L027EB7
LDA L027EB5
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
L041893 PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PEA ^L02822B
PEA L02822B
JSL L02C78E
PHX
PLA
PEA ^L02822B
PEA L02822B
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L04197B
L0418D2 LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
PEA $0000
PEA $001F
JSL L02D6DE
BEQ L04190C
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
AND #$007F
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
STA L027ECD
PLA
STA L027ECF
L04190C BRA L04197B
L04190E LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
PEA $0000
PEA $001F
JSL L02D6DE
BEQ L041948
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
AND #$007F
PHA
LDA $03,S
AND #$0000
STA $03,S
PLA
STA L027EB5
PLA
STA L027EB7
L041948 BRA L04197B
L04194A PEA $0103
JSL L040828
STA L027EB9
BRA L04197B
L041956 LDA $19
DEC
CMP #$0008
BCC L041961
LDA #$0008
L041961 ASL
TAX
LDAL L041969,X
PHA
RTS
L041969 DA L04168C-1
DA L0416C5-1
DA L0416FE-1
DA L04172B-1
DA L041758-1
DA L04182C-1
DA L0418D2-1
DA L04190E-1
DA L04194A-1
L04197B BRL L0421AA
L04197E PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDX L027ED3
LDA L027ED1
PHX
PHA
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
SEC
PLA
SBC $03,S
STA $03,S
PLA
SBC $03,S
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
BRL L0421AA
L0419B9 LDY #$0000
LDA L027ED1
ORA L027ED3
BNE L0419C5
INY
L0419C5 TYA
CMP #$0000
BEQ L0419D0
LDA #$0001
BRA L0419ED
L0419D0 LDA L028264
LDX L028266
LDY #$0000
CMP L027ED1
BNE L0419E1
CPX L027ED3
L0419E1 BNE L0419E4
INY
L0419E4 TYA
CMP #$0000
BEQ L0419ED
LDA #$0001
L0419ED TAX
BEQ L0419F3
L0419F0 BRL L0421AD
L0419F3 LDA L027EB3
CMP #$0009
BEQ L041A11
LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L0421B5
PHX
STA L027EC3
PLA
STA L027EC5
L041A0F BRA L0419F3
L041A11 BRL L0421AA
L041A14 LDA #$0001
STA L027EAD
L041A1A LDX L027EC5
LDA L027EC3
STX $11
STA $0F
LDA #$0000
STA $05
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
TYX
STX $0D
STA $0B
LDA L027EB3
CMP #$0019
BNE L041A54
LDA L027EAD
BNE L041A4F
LDA #$0001
STA L027EAD
BRA L041A54
L041A4F LDA #$0001
STA $05
L041A54 LDA $05
LDX #$0000
CMP #$0000
BNE L041A5F
INX
L041A5F TXA
CMP #$0000
BNE L041A68
BRL L041BCA
L041A68 LDA L027EAB
LDX #$0000
CMP #$000A
BNE L041A74
INX
L041A74 TXA
CMP #$0000
BEQ L041A95
LDX L027ED3
LDA L027ED1
LDY #$0000
CMP $0B
BNE L041A89
CPX $0D
L041A89 BEQ L041A8C
INY
L041A8C TYA
CMP #$0000
BEQ L041A95
LDA #$0001
L041A95 CMP #$0000
BEQ L041A9F
LDA #$0001
BRA L041AD1
L041A9F LDA L027EAB
LDX #$0000
CMP #$000B
BNE L041AAB
INX
L041AAB TXA
CMP #$0000
BEQ L041AC9
LDX L027ED3
LDA L027ED1
PHX
PHA
PEI $0D
PEI $0B
JSL L02D6DE
CMP #$0000
BEQ L041AC9
LDA #$0001
L041AC9 CMP #$0000
BEQ L041AD1
LDA #$0001
L041AD1 CMP #$0000
BEQ L041ADB
LDA #$0001
BRA L041B0D
L041ADB LDA L027EAB
LDX #$0000
CMP #$000D
BNE L041AE7
INX
L041AE7 TXA
CMP #$0000
BEQ L041B05
LDX L027ED3
LDA L027ED1
PHX
PHA
LDX $0D
LDA $0B
JSL L02D6AD
CMP #$0000
BEQ L041B05
LDA #$0001
L041B05 CMP #$0000
BEQ L041B0D
LDA #$0001
L041B0D CMP #$0000
BEQ L041B17
LDA #$0001
BRA L041B49
L041B17 LDA L027EAB
LDX #$0000
CMP #$0010
BNE L041B23
INX
L041B23 TXA
CMP #$0000
BEQ L041B41
PEI $0D
PEI $0B
LDX L027ED3
LDA L027ED1
PHX
PHA
JSL L02D6DE
CMP #$0000
BEQ L041B41
LDA #$0001
L041B41 CMP #$0000
BEQ L041B49
LDA #$0001
L041B49 CMP #$0000
BEQ L041B53
LDA #$0001
BRA L041B83
L041B53 LDA L027EAB
LDX #$0000
CMP #$0014
BNE L041B5F
INX
L041B5F TXA
CMP #$0000
BEQ L041B7B
PEI $0D
PEI $0B
LDX L027ED3
LDA L027ED1
JSL L02D6AD
CMP #$0000
BEQ L041B7B
LDA #$0001
L041B7B CMP #$0000
BEQ L041B83
LDA #$0001
L041B83 CMP #$0000
BEQ L041B8D
LDA #$0001
BRA L041BC2
L041B8D LDA L027EAB
LDX #$0000
CMP #$0016
BNE L041B99
INX
L041B99 TXA
CMP #$0000
BEQ L041BBA
LDX L027ED3
LDA L027ED1
LDY #$0000
CMP $0B
BNE L041BAE
CPX $0D
L041BAE BNE L041BB1
INY
L041BB1 TYA
CMP #$0000
BEQ L041BBA
LDA #$0001
L041BBA CMP #$0000
BEQ L041BC2
LDA #$0001
L041BC2 CMP #$0000
BEQ L041BCA
LDA #$0001
L041BCA TAX
BEQ L041BD3
LDA #$0000
STA L027EAD
L041BD3 LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L0421B5
STX L027EC5
STA L027EC3
LDA L027EB3
LDX #$0000
CMP #$0000
BNE L041BF1
INX
L041BF1 TXA
CMP #$0000
BEQ L041BFC
LDA #$0001
BRA L041C11
L041BFC LDA L027EB3
LDX #$0000
CMP #$0019
BNE L041C08
INX
L041C08 TXA
CMP #$0000
BEQ L041C11
LDA #$0001
L041C11 BEQ L041C16
BRL L041A1A
L041C16 LDA L027EAD
BNE L041C5B
L041C1B LDA L027EB3
LDX #$0000
CMP #$0009
BEQ L041C27
INX
L041C27 TXA
CMP #$0000
BEQ L041C42
LDA L027EB3
LDX #$0000
CMP #$0008
BEQ L041C39
INX
L041C39 TXA
CMP #$0000
BEQ L041C42
LDA #$0001
L041C42 TAX
BEQ L041C59
LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L0421B5
STX L027EC5
STA L027EC3
BRA L041C1B
L041C59 BRA L041C65
L041C5B LDX $11
LDA $0F
STX L027EC5
STA L027EC3
L041C65 BRL L0421AA
L041C68 PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDX L027ED3
LDA L027ED1
PHX
PHA
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA [$15]
PLA
STA [$15],Y
BRL L0421AA
L041CA3 LDX L027ED3
LDA L027ED1
PHX
PHA
PEA $0000
PEA $0002
JSL L02DCF2
PEA ^L028230
PEA L028230
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
PLA
STA [$01],Y
BRL L0421AA
L041CEF LDX L027ED3
LDA L027ED1
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L0421AA
L041D14 LDX L027EC5
LDA L027EC3
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L0421AA
L041D39 LDA L027ED1
ORA L027ED3
BNE L041D76
PEA $005F
LDA L028268
LDX L02826A
PHX
PHA
LDA L028264
LDX L028266
PHA
JSL L025A27
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L041DF7
L041D76 LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L041D90
DEY
L041D90 TXA
CMP $03,S
BEQ L041D98
LDY #$0000
L041D98 PLA
PLA
TYA
BEQ L041DBF
PEA ^L0280B1
PEA L0280B1
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRA L041DF7
L041DBF PEA $005F
LDA L027EB1
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
PHY
PHA
LDX L027ED3
LDA L027ED1
PHA
JSL L025A27
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
L041DF7 BRL L0421AA
L041DFA LDX L027EC5
LDA L027EC3
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
LDA #$0001
STA $07
L041E21 LDX L027EC5
LDA L027EC3
PHX
PHA
LDA $07
INC $07
LDX #$0000
TAY
BPL L041E34
DEX
L041E34 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
CMP #$000D
BNE L041E21
LDX L027EC5
LDA L027EC3
PHX
PLX
STA $01
STX $03
LDA $07
DEC
DEC
SEP #$20
STA [$01]
REP #$20
LDX L027EC5
LDA L027EC3
PHX
PHA
LDA $07
LDX #$0000
TAY
BPL L041E75
DEX
L041E75 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
STA L027EC3
PLA
STA L027EC5
BRL L0421AA
L041E8A LDA L027EAB
CMP #$0002
BNE L041EB8
PEA $0001
JSL L040C0C
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L041FEF
L041EB8 LDA L027EAB
CMP #$0004
BNE L041EF1
LDX L027EC1
LDA L027EBF
PHX
PHA
JSL L02C7C2
PHX
PHA
JSL L040A92
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L041FEF
L041EF1 LDA L027EAB
CMP #$000C
BNE L041F25
PEA $0002
JSL L040C0C
PHX
PHA
JSL L040A92
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L041FEF
L041F25 LDA L027EAB
CMP #$0012
BNE L041F53
PEA $0004
JSL L040C0C
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRL L041FEF
L041F53 LDA L027EAB
CMP #$0018
BNE L041F85
LDX L027ED3
LDA L027ED1
PHX
PHA
JSL L040A92
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRA L041FEF
L041F85 LDA L027EAB
CMP #$001A
BNE L041FB8
PEA $0001
JSL L040C0C
PHX
PHA
JSL L040A92
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRA L041FEF
L041FB8 LDA L027EAB
CMP #$001D
BNE L041FE5
PEA $0002
JSL L040C0C
PHX
PHA
LDA L027EB1
ASL
ASL
CLC
ADC #L028230
PEA ^L028230
STA $01
PLA
STA $03
PLA
STA [$01]
LDY #$0002
PLA
STA [$01],Y
BRA L041FEF
L041FE5 PEA $0102
JSL L040828
STA L027EB9
L041FEF LDX L027EC1
LDA L027EBF
PHX
PHA
PEA ^L028230
PEA L028230
PEA $0008
LDA L02826C
LDX L02826E
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
JSL L02ACFE
L04201D BRL L0421AA
L042020 BRL L0421AA
L042023 LDX L027EC5
LDA L027EC3
PHX
PHA
JSL L041150
PHX
STA L027EC3
PLA
STA L027EC5
BRL L0421AA
L04203A PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDY #$0002
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
PHA
JSL L02DBC3
PLA
STA [$15]
LDY #$0002
PLA
STA [$15],Y
BRL L0421AA
L042071 PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
STA [$01],Y
LDA L027ED1
ORA L027ED3
BEQ L0420C2
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
PHA
JSL L02DC66
PLA
STA [$15]
LDY #$0002
PLA
STA [$15],Y
BRA L0420CC
L0420C2 PEA $0104
JSL L040828
STA L027EB9
L0420CC BRL L0421AA
L0420CF PEA ^L028274
PEA L028274
PLA
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
LDY #$0002
STA [$01],Y
LDA L027ED1
ORA L027ED3
BEQ L042122
PEA ^L028230
PEA L028230
LDA L027EB1
ASL
ASL
CLC
ADC $01,S
STA $01,S
PLA
STA $15
PLA
STA $17
LDA [$15],Y
PHA
LDA [$15]
PHA
LDX L027ED3
LDA L027ED1
PHX
PHA
JSL L02DB10
PLY
PLY
PLA
STA [$15]
LDY #$0002
PLA
STA [$15],Y
BRA L04212C
L042122 PEA $0104
JSL L040828
STA L027EB9
L04212C BRA L0421AA
L04212E PEA $0105
JSL L040828
STA L027EB9
BRA L0421AA
L04213A PEA $0101
JSL L040828
STA L027EB9
BRA L0421AA
L042146 LDA $13
CMP #$0028
BCC L042150
LDA #$0028
L042150 ASL
TAX
LDAL L042158,X
PHA
RTS
L042158 DA L04212E-1
DA L0414A4-1
DA L04213A-1
DA L04166A-1
DA L04213A-1
DA L041681-1
DA L04197E-1
DA L0419B9-1
DA L0419F3-1
DA L041A11-1
DA L04213A-1
DA L04213A-1
DA L04213A-1
DA L04213A-1
DA L041A14-1
DA L041C68-1
DA L04213A-1
DA L041CEF-1
DA L04213A-1
DA L041D14-1
DA L04213A-1
DA L041D39-1
DA L04213A-1
DA L04213A-1
DA L04213A-1
DA L04212E-1
DA L04213A-1
DA L041E8A-1
DA L042020-1
DA L04213A-1
DA L042023-1
DA L04213A-1
DA L0414A1-1
DA L04203A-1
DA L042071-1
DA L0420CF-1
DA L04213A-1
DA L04213A-1
DA L041DFA-1
DA L041CA3-1
DA L04213A-1
L0421AA BRL L04144A
L0421AD PLD
TSC
CLC
ADC #$001A
TCS
RTL
L0421B5 TSC
SEC
SBC #$0012
TCS
PHD
TCD
LDA #$0001
STA $0F
LDA #$0000
STA $11
STA $0D
STA $0B
STA $09
L0421CD PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L0421DA
DEX
L0421DA CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$000D
BNE L0421F8
INX
L0421F8 TXA
CMP #$0000
BEQ L042203
LDA #$0001
BRA L042237
L042203 PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L042210
DEX
L042210 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$0000
BNE L04222E
INX
L04222E TXA
CMP #$0000
BEQ L042237
LDA #$0001
L042237 TAX
BEQ L042279
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC $0D
TAX
SEP #$20
LDA #$00
STA L028814,X
REP #$20
PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L04225A
DEX
L04225A CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
BNE L042276
LDA #$0001
STA $11
L042276 BRL L042402
L042279 PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L042286
DEX
L042286 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$0020
BNE L0422A4
INX
L0422A4 TXA
CMP #$0000
BEQ L0422AF
LDA #$0001
BRA L0422E3
L0422AF PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L0422BC
DEX
L0422BC CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$0009
BNE L0422DA
INX
L0422DA TXA
CMP #$0000
BEQ L0422E3
LDA #$0001
L0422E3 TAX
BNE L0422E9
BRL L0423B2
L0422E9 LDA $0F
BNE L04230C
LDA $0B
INC $0B
ASL
ASL
ASL
ASL
CLC
ADC $0D
TAX
SEP #$20
LDA #$00
STA L028814,X
REP #$20
LDA #$0000
STA $0D
LDA #$0001
STA $0F
L04230C LDA $0B
BMI L042316
DEC
DEC
DEC
DEC
BPL L042319
L042316 BRL L0423B0
L042319 PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L042326
DEX
L042326 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$000D
BEQ L042344
INX
L042344 TXA
CMP #$0000
BEQ L04237E
PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L042357
DEX
L042357 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
LDX #$0000
CMP #$0000
BEQ L042375
INX
L042375 TXA
CMP #$0000
BEQ L04237E
LDA #$0001
L04237E TAX
BEQ L042385
INC $09
BRA L042319
L042385 PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L042392
DEX
L042392 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
BNE L0423AE
LDA #$0001
STA $11
L0423AE BRA L042402
L0423B0 BRA L0423FD
L0423B2 LDA #$0000
STA $0F
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC $0D
INC $0D
CLC
ADC #L028814
PEA ^L028814
PHA
PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L0423D7
DEX
L0423D7 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PHA
JSL L02CA2C
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
L0423FD INC $09
BRL L0421CD
L042402 LDA $0B
BMI L04240B
DEC
DEC
DEC
BPL L042423
L04240B INC $0B
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #$0000
TAX
SEP #$20
LDA #$00
STA L028814,X
REP #$20
BRA L042402
L042423 LDA #$FFFF
STA L027EAB
STA L027EB3
LDA #$0000
STA $0B
L042431 LDA $0B
BMI L04243A
CMP #$0029
BCS L042484
L04243A LDA $0B
ASL
ASL
TAX
LDY L028770+2,X
LDA L028770,X
PHY
PHA
PEA ^L028814
PEA L028814
JSL L02C751
TAX
BNE L042459
LDA $0B
STA L027EB3
L042459 LDA $0B
ASL
ASL
TAX
LDY L028770+2,X
LDA L028770,X
PHY
PHA
PEA ^L028814
PEA L028814
LDA #$0020
CLC
ADC $01,S
STA $01,S
JSL L02C751
TAX
BNE L042480
LDA $0B
STA L027EAB
L042480 INC $0B
BRA L042431
L042484 LDA L028824
AND #$00FF
CMP #$0052
BNE L0424A4
PEA ^L028824
PEA L028824
LDA #$0001
CLC
ADC $01,S
STA $01,S
JSL L02C377
STA L027EB1
L0424A4 LDA L027EB3
ASL
TAX
LDA L028878,X
STA $0B
LDA $0B
BMI L0424B5
DEC
BPL L0424B8
L0424B5 BRL L0425BA
L0424B8 LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #$0000
TAX
LDA L028814,X
AND #$00FF
CMP #$0052
BNE L0424FB
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #L028814
PEA ^L028814
PHA
LDA #$0001
CLC
ADC $01,S
STA $01,S
JSL L02C377
ASL
ASL
TAX
LDY L028232,X
LDA L028230,X
TYX
STX L027ED3
STA L027ED1
BRL L0425BA
L0424FB LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #$0000
TAX
LDA L028814,X
AND #$00FF
CMP #$0024
BNE L042536
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #L028814
PEA ^L028814
PHA
LDA #$0001
CLC
ADC $01,S
STA $01,S
JSL L040C8F
PHX
STA L027ED1
PLA
STA L027ED3
BRL L0425BA
L042536 LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #$0000
TAX
LDA L028814,X
AND #$00FF
LDX #$0000
CMP #$0030
BNE L042550
INX
L042550 TXA
CMP #$0000
BEQ L042579
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #$0001
TAX
LDA L028814,X
AND #$00FF
LDX #$0000
CMP #$0058
BNE L042570
INX
L042570 TXA
CMP #$0000
BEQ L042579
LDA #$0001
L042579 TAX
BEQ L0425A0
LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #L028814
PEA ^L028814
PHA
LDA #$0002
CLC
ADC $01,S
STA $01,S
JSL L040C8F
PHX
STA L027ED1
PLA
STA L027ED3
BRA L0425BA
L0425A0 LDA $0B
ASL
ASL
ASL
ASL
CLC
ADC #L028814
PEA ^L028814
PHA
JSL L02C377
PHX
STA L027ED1
PLA
STA L027ED3
L0425BA LDA $11
LDX #$0000
CMP #$0000
BNE L0425C5
INX
L0425C5 TXA
BNE L0425D0
PEA $0000
PEA $0000
BRA L0425FB
L0425D0 PEI $18
PEI $16
LDA $09
LDX #$0000
TAY
BPL L0425DD
DEX
L0425DD CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
LDA #$0001
LDX #$0000
TAY
BPL L0425F1
DEX
L0425F1 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
L0425FB PLA
STA $05
PLA
STA $07
LDA $14
STA $18
LDA $13
STA $17
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$0016
TCS
TYA
RTL
L042616 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDX L027EC9
LDA L027EC7
STX $0B
STA $09
L042628 LDA [$09]
CMP $10
BEQ L042684
LDY #$0008
LDA [$09],Y
PHA
LDY #$0006
LDA [$09],Y
PHA
LDA #$0000
TAX
LDY #$0001
CMP $01,S
BEQ L042646
DEY
L042646 TXA
CMP $03,S
BEQ L04264E
LDY #$0000
L04264E PLA
PLA
TYA
BNE L042664
LDY #$0008
LDA [$09],Y
TAX
LDY #$0006
LDA [$09],Y
STX $0B
STA $09
BRA L042682
L042664 LDA $10
BEQ L042679
LDX L027EC9
LDA L027EC7
STX $0B
STA $09
LDA #$0000
STA $10
BRA L042682
L042679 LDA #$0000
STA $05
STA $07
BRA L042693
L042682 BRA L042628
L042684 LDY #$0004
LDA [$09],Y
TAX
LDY #$0002
LDA [$09],Y
STX $07
STA $05
L042693 LDA $0E
STA $10
LDA $0D
STA $0F
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L0426A8 TSC
SEC
SBC #$000C
TCS
PHD
TCD
LDA $10
STA $09
STZ $0B
LDA $09
LDX $0B
STA $05
STX $07
LDA $0E
STA $10
LDA $0D
STA $0F
LDX $07
LDY $05
PLD
TSC
CLC
ADC #$000E
TCS
TYA
RTL
L0426D3 TSC
SEC
SBC #$006C
TCS
PHD
TCD
LDX $72
LDA $70
PHX
PHA
_HLock
LDY #$0002
LDA [$70],Y
PHA
LDA [$70]
PHA
TYA
LDX #$0000
BPL L0426FB
DEX
L0426FB CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
STA $07
PLA
STA $09
LDA #$000F
STA $21
LDA $07
STA $25
LDA $09
STA $27
LDA #$0000
STA $29
STA $2B
STA $47
STA $49
PEA $2010
PEA $0000
TDC
CLC
ADC #$0021
PHA
JSL L02C243
JSL L02CA27
STA $13
TAX
BEQ L04275C
PEA $3010
PEI $13
JSL L027CEB
LDX $72
LDA $70
PHX
PHA
_HUnlock
LDA $13
STA $05
BRL L0429D0
L04275C LDA #$0001
STA $0B
PEA $0000
TDC
CLC
ADC #$000D
PHA
LDA $23
PLX
STX $01
PLX
STX $03
STA [$01]
PHA
PHA
LDA $4B
LDX $4D
PHX
PHA
LDA L024112
PHA
PEA $0000
PEA $0000
PEA $0000
_NewHandle
PLA
STA $0F
PLA
STA $11
JSL L02CA27
STA $13
TAX
BEQ L0427DE
PEA $3020
PEI $13
JSL L027CEB
PEA $2014
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L02C243
PEA $3021
JSL L02CA27
PHA
JSL L027CEB
LDX $72
LDA $70
PHX
PHA
_HUnlock
LDA $13
STA $05
BRL L0429D0
L0427DE LDX $11
LDA $0F
PHX
PHA
_HLock
LDA #$0004
STA $5B
PEA $0000
TDC
CLC
ADC #$005D
PHA
LDA $23
PLX
STX $01
PLX
STX $03
STA [$01]
LDY #$0002
LDA [$0F],Y
PHA
LDA [$0F]
STA $5F
PLA
STA $61
LDA $4B
LDX $4D
PHX
STA $63
PLA
STA $65
PEA $2012
PEA $0000
TDC
CLC
ADC #$005B
PHA
JSL L02C243
JSL L02CA27
STA $13
TAX
BEQ L04288E
PEA $3030
PEI $13
JSL L027CEB
PEA $2014
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L02C243
PEA $3031
JSL L02CA27
PHA
JSL L027CEB
LDX $11
LDA $0F
PHX
PHA
_DisposeHandle
PEA $3232
JSL L02CA27
PHA
JSL L027CEB
LDX $72
LDA $70
PHX
PHA
_HUnlock
LDA $13
STA $05
BRL L0429D0
L04288E PEA $2014
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L02C243
JSL L02CA27
STA $13
TAX
BEQ L0428E6
PEA $3040
JSL L02CA27
PHA
JSL L027CEB
LDX $11
LDA $0F
PHX
PHA
_DisposeHandle
PEA $3041
JSL L02CA27
PHA
JSL L027CEB
LDX $72
LDA $70
PHX
PHA
_HUnlock
LDA $13
STA $05
BRL L0429D0
L0428E6 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STX $17
STA $15
LDA $4B
LDX $4D
PHX
PHA
PEI $17
PEI $15
CLC
PLA
ADC $03,S
STA $03,S
PLA
ADC $03,S
STA $03,S
PLA
STA $19
PLA
STA $1B
L04290D PEI $17
PEI $15
LDX $1B
LDA $19
TAY
TXA
LDX #$0001
CMP $03,S
BNE L042921
TYA
CMP $01,S
L042921 BEQ L042925
BCS L042926
L042925 DEX
L042926 PLA
PLA
TXA
BEQ L042953
LDA $15
LDX $17
STA $1D
STX $1F
PEI $1F
PEI $1D
LDA [$1D]
AND #$00FF
AND #$007F
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
INC $15
BNE L042951
INC $17
L042951 BRA L04290D
L042953 PEA $000D
LDX $11
LDA $0F
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEA ^L0220FD
PEA L0220FD
PHA
PHA
PHA
PHA
_FrontWindow
PEA $0000
PEA $1000
_GetCtlHandleFromID
_TESetText
PEA $3050
JSL L02CA27
PHA
JSL L027CEB
LDX $11
LDA $0F
PHX
PHA
_DisposeHandle
PEA $3251
JSL L02CA27
PHA
JSL L027CEB
LDX $72
LDA $70
PHX
PHA
_HUnlock
LDA #$0000
STA $05
L0429D0 LDA $6E
STA $72
LDA $6D
STA $71
LDY $05
PLD
TSC
CLC
ADC #$0070
TCS
TYA
RTL
L0429E3 ENT
TSC
SEC
SBC #$0028
TCS
PHD
TCD
LDA #$0003
STA $1D
STA $23
PEA $007D
PEA $0023
PEA $0000
PEA ^L042C30
PEA L042C30
PEA $0000
PEA $0000
PEA ^L02ACEC
PEA L02ACEC
PEA $0000
TDC
CLC
ADC #$0015
PHA
_SFGetFile2
JSL L02CA27
STA $13
PEA $3110
PEI $13
JSL L027CEB
LDA $15
CMP #$0000
BEQ L042A48
LDA $13
BEQ L042A3D
LDA #$0001
L042A3D EOR #$0001
CMP #$0000
BEQ L042A48
LDA #$0001
L042A48 TAX
BNE L042A4E
BRL L042C21
L042A4E _WaitCursor
LDA $1F
LDX $21
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STX $0D
STA $0B
PEI $0D
PEI $0B
LDA #$0003
LDX #$0000
TAY
BPL L042A7A
DEX
L042A7A CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PEI $0D
PEI $0B
LDA #$0002
LDX #$0000
TAY
BPL L042A92
DEX
L042A92 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
PLX
STA $01
STX $03
LDA [$01]
AND #$00FF
PLX
STX $01
PLX
STX $03
SEP #$20
STA [$01]
REP #$20
PEI $0D
PEI $0B
LDA #$0003
LDX #$0000
TAY
BPL L042AC1
DEX
L042AC1 CLC
ADC $01,S
STA $01,S
TXA
ADC $03,S
STA $03,S
PLA
STA $0B
PLA
STA $0D
LDA $1F
LDX $21
PHX
PHA
_HLock
PHA
PHA
LDX $0D
LDA $0B
PHX
PHA
PEA $0000
PEA $0000
PEA ^L026AB5
PEA L026AB5
PEA $0000
PEA $0000
PEA $0002
PEA $0000
PEA $0FFB
PEA $800E
_NewWindow2
PLA
STA $07
PLA
STA $09
PEA $3120
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
PEA $0000
PEA $000C
LDA L024112
PHA
PEA $0000
PEA $0000
PEA $0000
_NewHandle
PLA
STA $0F
PLA
STA $11
PEA $3122
JSL L02CA27
PHA
JSL L027CEB
LDX $11
LDA $0F
PHX
PHA
LDX $09
LDA $07
PHX
PHA
_SetWRefCon
PEA $3123
JSL L02CA27
PHA
JSL L027CEB
LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $01
STX $03
LDA #$0000
STA [$01]
LDA [$0F],Y
PHA
LDA [$0F]
CLC
ADC #$0002
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
LDA [$0F],Y
TAX
LDA [$0F]
CLC
ADC #$0006
STA $01
STX $03
LDA #$5754
STA [$01]
LDA [$0F],Y
PHA
LDA [$0F]
CLC
ADC #$0008
STA $01
PLA
STA $03
LDA #$0000
STA [$01]
STA [$01],Y
LDX $09
LDA $07
PHX
PHA
_SetPort
LDA $25
LDX $27
PHX
PHA
JSL L0426D3
STA $13
LDA $1F
LDX $21
PHX
PHA
_DisposeHandle
PEA $3124
JSL L02CA27
PHA
JSL L027CEB
LDA $25
LDX $27
PHX
PHA
_DisposeHandle
PEA $3125
JSL L02CA27
PHA
JSL L027CEB
_InitCursor
L042C21 LDA $13
STA $05
LDY $05
PLD
TSC
CLC
ADC #$0028
TCS
TYA
RTL
L042C30 STR 'Select a file...'
DB $00
L042C42 ENT
TSC
SEC
SBC #$000A
TCS
PHD
TCD
PHA
PHA
PHA
PHA
_FrontWindow
_GetWRefCon
PLA
STA $07
PLA
STA $09
PEA $3210
JSL L02CA27
PHA
JSL L027CEB
LDY #$0002
LDA [$07],Y
TAX
LDA [$07]
STA $01
STX $03
LDY #$0006
LDA [$01],Y
CMP #$5754
BEQ L042C91
LDA #$FFFF
STA $05
BRA L042CD4
L042C91 LDX $09
LDA $07
PHX
PHA
_DisposeHandle
PEA $3216
JSL L02CA27
PHA
JSL L027CEB
PHA
PHA
_FrontWindow
_CloseWindow
PEA $3220
JSL L02CA27
PHA
JSL L027CEB
LDA #$0000
STA $05
L042CD4 LDY $05
PLD
TSC
CLC
ADC #$000A
TCS
TYA
RTL
Reference in New Issue View Git Blame Copy Permalink