Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/hypercardiigs/HyperLib.S

30028 lines
538 KiB
ArmAsm
Raw Permalink Blame History

*
* HypercardGS
* segment: $07 HyperLib
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk HyperLib.l
lst off
*---------------------------------------
use HyperLib.E
use HyperLib.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/Load.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/QdAux.Macs
use 4/Resource.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L070000 PHD
PHY
TSC
TCD
LDA L054F8B
BEQ L070039
LDA L055047
BEQ L070043
PEA ^L050C32
PEA L050C32
LDA L055045
PHA
LDA L055043
PHA
JSL L072CD4
LDX #^L07005B
LDA #L07005B
PHX
PHA
PHX
PHA
PHX
PHA
JSL L073C22
PEA $0047
JSL L0727E0
BRA L070043
L070039 LDA #$0001
STA L054F8B
JSL L074D35
L070043 JSL L0A3FE2
STZ $01
TDC
INC
PEA $0000
PHA
PEA $2029
JSL GSOS2
TDC
TCS
PLY
PLD
RTL
L07005B DB $00
L07005C ENT
PHD
TSC
SEC
SBC #$0010
TCD
TCS
PHY
PEA $1000
TDC
INC
PEA $0000
PHA
_EventAvail
PLA
STA $16
LDX $11
TDC
CLC
ADC #$0012
TCS
TXA
TCD
RTL
L070083 PHD
TSC
SEC
SBC #$000E
TCD
TCS
PHA
PHA
PEI $16
PEI $14
_GetHandleSize
PLA
PLX
STA $09
STX $0B
LDA [$18]
STA $01
LDY #$0002
LDA [$18],Y
STA $03
LDA [$01]
INC
INC
STA $0D
CLC
ADC $09
PHA
PHA
LDA $0B
ADC #$0000
STA $03,S
PEI $16
PEI $14
_SetHandleSize
LDY #$0002
LDA [$18]
STA $01
LDA [$18],Y
STA $03
LDA [$14]
STA $05
LDA [$14],Y
STA $07
LDA [$05]
INC
STA [$05]
PEI $03
PEI $01
LDA $05
CLC
ADC $09
TAX
LDA $07
ADC $0B
PHA
PHX
PEA $0000
PEI $0D
JSL L070597
LDA $12
STA $1A
LDA $11
STA $19
LDX $0F
TDC
CLC
ADC #$0018
TCS
TXA
TCD
RTL
L07010A ENT
PHD
TSC
TCD
PEI $08
PEI $06
LDA #L070136
LDX #^L070136
PHX
PHA
PHX
PHA
PHX
PHA
JSL L073C22
PEA $0000
JSL L0727E0
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L070136 ENT
DFB $00
L070137 ENT
PHD
TSC
TCD
LDA L05535F
BEQ L070153
LDAL $FE0018
AND #$00FF
CMP #$005C
BNE L070153
PHB
PHD
JSL $FE0018
PLD
PLB
L070153 TDC
TCS
PLD
RTL
L070157 PHD
TSC
TCD
LDA #$0001
STA $0A
LDA [$06]
AND #$00FF
BEQ L070170
TAY
SEP #$20
L070169 LDA [$06],Y
BEQ L070172
DEY
BNE L070169
L070170 STZ $0A
L070172 REP #$20
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L070182 ENT
PHD
TSC
SEC
SBC #$0082
TCD
TCS
PHA
LDA L052D70
PHA
LDA L052D6E
PHA
PEA $0000
TDC
CLC
ADC #$0013
PEA $0000
PHA
ADC #$0004
PEA $0000
PHA
JSL L0A2034
PLA
BEQ L0701E0
LDA L055027
STA $05
LDA L055029
STA $07
LDA L05501F
STA $09
LDA L055021
STA $0B
LDA L055039
STA $0D
LDA L05503B
STA $0F
LDA $1B
AND #$000F
DEC
BNE L0701D8
JSR L0702B2
BRA L07021D
L0701D8 DEC
BNE L07021D
JSR L07043A
BRA L07021D
L0701E0 JSL L0A3283
PEA $0013
JSL L0998B0
L0701EB PEA $0014
JSL L0998B0
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L096A7B
PHA
JSL L096CC4
PLA
BNE L0701EB
PHA
PEA $0004
PEA $0002
_FlushEvents
PLA
PEA $0015
JSL L0998B0
L07021D LDX $83
TDC
CLC
ADC #$0084
TCS
TXA
TCD
RTL
L070228 LDA $19
LDX $13
CPX $05
BNE L07023A
LDX $15
CPX $07
BNE L07023A
EOR #$FFFF
INC
L07023A RTS
L07023B LDA $0D
CMP L055039
BNE L07025C
LDA $0F
CMP L05503B
BNE L07025C
L070249 PHX
PEI $15
PEI $13
PEI $19
PEI $07
PEI $05
PEI $0B
PEI $09
JSL L0998E6
L07025C RTS
L07025D LDX #$0014
BRA L07023B
L070262 LDX #$0015
BRA L07023B
L070267 PHA
PEI $0B
PEI $09
PEI $07
PEI $05
JSR L070228
PHA
PEI $71
PEI $6B
TDC
CLC
ADC #$006F
PEA $0000
PHA
JSL L07D08A
PLA
BEQ L070298
LDA $6F
BEQ L070298
PEI $15
PEI $13
PEI $19
PEI $11
JSL L0876F4
L070298 RTS
L070299 PHA
PEI $0B
PEI $09
PEI $07
PEI $05
JSR L070228
PHA
JSL L07A609
PLA
EOR #$0001
STA $71
BRA L070267
L0702B2 LDA $13
CMP L055027
BNE L0702C6
LDA $15
CMP L055029
BNE L0702C6
LDA #$0001
STA L055249
L0702C6 STZ $77
LDA $25
AND #$2000
BEQ L0702D1
INC $77
L0702D1 LDA $25
AND #$000F
STA $7D
PHY
SEC
SBC #$0004
PHA
PEA $0000
PEA $0001
JSL L071A1B
PLA
STA $7F
STZ $11
LDA $7D
BEQ L0702F9
LDA $27
ORA $29
BNE L0702F9
BRA L0702FB
L0702F9 INC $11
L0702FB LDA $1B
AND #$00F0
LSR
LSR
LSR
LSR
STA $81
PHA
PEI $0B
PEI $09
PEI $07
PEI $05
JSR L070228
PHA
JSL L07A609
PLA
STA $79
STA $7B
LDA $81
BEQ L070324
STZ $7F
BRA L070326
L070324 STZ $79
L070326 LDA #$FFFF
STA $73
STA $75
LDA $77
BEQ L070353
LDA $7F
DEC
BNE L070340
LDA #$0001
STA $6B
JSR L070299
BRA L070353
L070340 LDA #$0001
STA $71
LDA $81
BEQ L07034C
LDA #$0001
L07034C ORA $7B
STA $6B
JSR L070267
L070353 LDX #$0013
JSR L070249
L070359 PHY
JSL L096CC4
PLA
BNE L070364
BRL L0703E4
L070364 LDA $0D
CMP L055039
BNE L070359
LDA $0F
CMP L05503B
BNE L070359
JSR L07025D
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L096A7B
LDA $03
CMP #$8000
ROR
STA $03
STZ $73
PHY
PEI $15
PEI $13
PEI $19
TDC
CLC
ADC #$0041
PEA $0000
PHA
JSL L07ABAE
PLA
BEQ L0703C0
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$0047
PEA $0000
PHA
_PtInRect
PLA
STA $73
L0703C0 LDA $77
BEQ L0703DC
LDA $79
BNE L0703DC
LDA $73
CMP $75
BEQ L0703DC
LDA $81
BEQ L0703D5
LDA #$0001
L0703D5 ORA $7B
STA $6B
JSR L070299
L0703DC LDA $73
STA $75
BRL L070359
L0703E3 RTS
L0703E4 PHY
PEA $0004
PEA $0002
_FlushEvents
PLA
LDA L055039
CMP $0D
BNE L0703E3
LDA L05503B
CMP $0F
BNE L0703E3
LDA $77
BEQ L070416
LDA $7F
BNE L070416
LDA $81
BNE L070416
LDA $7B
STA $6B
STZ $71
JSR L070267
L070416 LDA $73
BEQ L070439
LDA $77
BEQ L070436
LDA $81
BEQ L070436
PEI $07
PEI $05
PEI $0B
PEI $09
PEI $15
PEI $13
PEI $81
PEI $19
JSL L095059
L070436 JSR L070262
L070439 RTS
L07043A LDA $13
STA L055201
LDA $15
STA L055203
LDA $19
STA L0551FF
PEA ^L052D5C
PEA L052D5C
JSL L096A7B
LDX #$0013
JSR L070249
L070459 PHY
JSL L096CC4
PLA
BEQ L070473
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L096A7B
JSR L07025D
BRA L070459
L070473 PHY
PEA $0004
PEA $0002
_FlushEvents
PLA
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L096A7B
LDA $03
CMP #$8000
ROR
STA $03
PHY
PEI $15
PEI $13
PEI $19
TDC
CLC
ADC #$0041
PEA $0000
PHA
JSL L07ABAE
PLA
BEQ L0704CE
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
TDC
CLC
ADC #$0047
PEA $0000
PHA
_PtInRect
PLA
BEQ L0704CE
JSR L070262
L0704CE RTS
L0704CF ENT
PHD
TSC
TCD
SEC
SBC #$0200
TCS
LDA $0A
BEQ L070516
TDC
CLC
ADC #$FE01
PEA $0000
PHA
PEA $0000
PHA
JSL L07346C
TDC
CLC
ADC #$FF01
PEA $0000
PHA
PEI $08
PEI $06
JSL L07346C
LDA #L053251
LDX #^L053251
PHX
PHA
PHX
PHA
JSL L073C22
PEA $001D
JSL L0727E0
JSL L070000
L070516 LDA $04
STA $0A
LDA $03
STA $09
TDC
TCS
PLD
PLY
PLY
PLY
RTL
L070525 ENT
PHD
PHY
PHY
PHY
TSC
TCD
STZ $10
STZ $12
STZ $05
LDA $0C
ORA $0E
BEQ L070586
LDY #$0002
LDA [$0C]
STA $01
LDA [$0C],Y
STA $03
ORA $01
BEQ L070586
LDA [$01]
BEQ L070586
INC
INC
STA $05
PHY
PHY
PEA $0000
PHA
LDAL L054FBD
PHA
LDA #$0000
PHA
PHA
PHA
_NewHandle
PLA
PLX
BCS L070586
STA $10
STX $12
LDY #$0002
LDA [$0C],Y
PHA
LDA [$0C]
PHA
LDA [$10],Y
PHA
LDA [$10]
PHA
PEA $0000
PEI $05
JSL L070597
L070586 LDA $0A
STA $0E
LDA $09
STA $0D
TDC
TCS
PLY
PLY
PLY
PLD
PLY
PLY
RTL
L070597 ENT
PHB
PHD
PHY
TSC
TCD
LSR $0B
ROR $09
LDA #$0000
ROL
STA $01
ASL $09
ROL $0B
LDX $0B
BEQ L0705C5
LDY #$0000
L0705B1 LDA $12
PHA
PLB
PLB
L0705B6 LDA ($11),Y
STA [$0D],Y
INY
INY
BNE L0705B6
INC $13
INC $0F
DEX
BNE L0705B1
L0705C5 LDA $12
PHA
PLB
PLB
LDY $09
BEQ L0705DE
DEY
DEY
BEQ L0705DA
L0705D2 LDA ($11),Y
STA [$0D],Y
DEY
DEY
BNE L0705D2
L0705DA LDA ($11)
STA [$0D]
L0705DE LDA $01
BEQ L0705EC
LDY $09
SEP #$20
LDA ($11),Y
STA [$0D],Y
REP #$20
L0705EC LDA $07
STA $13
LDA $05
STA $11
TDC
TCS
PLY
PLD
CLC
ADC #$0010
TCS
PLB
RTL
L0705FF ENT
PHD
PHY
PHY
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$12]
STA $01
LDA [$12],Y
STA $03
LDA [$0E]
STA $05
LDA [$0E],Y
STA $07
LDA #$0000
TAX
TAY
SEP #$20
LDY #$0000
L070623 LDA [$01],Y
STA [$05],Y
BEQ L070636
CMP #$0D
BEQ L070636
INY
BNE L070623
INC $03
INC $07
BRA L070623
L070636 REP #$20
TYX
LDY #$0002
TXA
CLC
ADC $01
STA [$12]
LDA $03
ADC #$0000
STA [$12],Y
TXA
CLC
ADC $05
STA [$0E]
LDA $07
ADC #$0000
STA [$0E],Y
LDA $0C
STA $14
LDA $0B
STA $13
LDX $09
TDC
CLC
ADC #$0012
TCS
TXA
TCD
RTL
L070669 ENT
PHD
PHY
PHY
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$12]
STA $01
LDA [$12],Y
STA $03
LDA [$0E]
STA $05
LDA [$0E],Y
STA $07
LDA #$0000
TAX
TAY
SEP #$20
LDY #$0000
L07068D LDA [$01],Y
STA [$05],Y
BEQ L07069C
INY
BNE L07068D
INC $03
INC $07
BRA L07068D
L07069C REP #$20
TYX
LDY #$0002
TXA
CLC
ADC $01
STA [$12]
LDA $03
ADC #$0000
STA [$12],Y
TXA
CLC
ADC $05
STA [$0E]
LDA $07
ADC #$0000
STA [$0E],Y
LDA $0C
STA $14
LDA $0B
STA $13
LDX $09
TDC
CLC
ADC #$0012
TCS
TXA
TCD
RTL
L0706CF ENT
PHD
TSC
SEC
SBC #$000C
TCD
TCS
LDA L054FB7
STA $01
LDA L054FB9
STA $03
JSR L070716
CLC
ADC $12
BCC L0706EA
INX
L0706EA STA $05
STX $07
L0706EE JSR L070716
STA $09
STX $0B
LDA $07
CMP $0B
BCC L070703
BNE L0706EE
LDA $05
CMP $09
BCS L0706EE
L070703 LDA $10
STA $12
LDA $0F
STA $11
LDX $0D
TDC
CLC
ADC #$0010
TCS
TXA
TCD
RTL
L070716 PHP
SEI
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PLP
RTS
L070722 ENT
PHD
TSC
SEC
SBC #$0016
TCD
TCS
LDA $24
BNE L070731
BRL L070821
L070731 STZ L055417
LDA #$0007
STA $0B
LDA #$0001
STA $01
STZ $05
STZ $03
LDA #$0044
STA $09
LDA #$001C
STA $07
L07074C TDC
CLC
ADC #$0003
PEA $0000
PHA
_ClipRect
LDY #$0002
LDA [$20]
CMP $1C
BNE L070770
LDA [$20],Y
CMP $1E
BNE L070770
LDA $01
STA L055417
L070770 PHA
PHA
PEA $8001
LDA [$20],Y
PHA
LDA [$20]
PHA
_LoadResource
PLA
STA $0D
PLA
STA $0F
LDY #$0002
LDA [$0D],Y
STA $13
PHA
LDA [$0D]
STA $11
PHA
PEA $F000
LDY #$0006
LDA $05
CLC
ADC #$0022
SEC
SBC [$11],Y
AND #$FFFE
PHA
DEY
DEY
LDA [$11],Y
LSR
STA $15
LDA $03
CLC
ADC #$000E
SEC
SBC $15
PHA
_DrawIcon
LDY #$0002
PHY
PEA $8001
LDA [$20],Y
PHA
LDA [$20]
PHA
_ReleaseResource
LDA $01
CMP $24
BEQ L070821
INC
STA $01
LDA $20
CLC
ADC #$0004
STA $20
BCC L0707E9
INC $22
L0707E9 DEC $0B
BEQ L0707FF
LDA $05
CLC
ADC #$0044
STA $05
LDA $09
ADC #$0044
STA $09
JMP L07074C
L0707FF JSL L072328
LDA #$0007
STA $0B
STZ $05
LDA #$0044
STA $09
CLC
LDA $03
ADC #$001C
STA $03
LDA $07
ADC #$001C
STA $07
JMP L07074C
L070821 LDA $1A
STA $24
LDA $19
STA $23
LDX $17
TDC
CLC
ADC #$0022
TCS
TXA
TCD
RTL
L070834 ENT
PHD
TSC
SEC
SBC #$003C
TCD
TCS
PHY
PHY
PEI $46
PEI $44
PEA $0000
PEI $42
_GetCtlHandleFromID
PLA
PLX
STA $33
STX $35
LDY #$0002
LDA [$33]
STA $37
LDA [$33],Y
STA $39
LDY #$0010
LDA [$37],Y
AND #$0080
BEQ L07086C
BRL L0709E3
L07086C INY
LDA [$37],Y
AND #$00FF
STA $3B
LDY #$000E
LDX #$0006
L07087A LDA [$37],Y
STA $01,X
DEY
DEY
DEX
DEX
BPL L07087A
LDY #$0012
LDA [$37],Y
STA $27
LDA $07
SEC
SBC $03
DEC
DEC
LSR
LSR
STA $1D
LDA $05
SEC
SBC $01
DEC
LSR
LSR
STA $1F
LDA $01
STA $09
SEC
ADC $1F
STA $0D
LDA $03
STA $0B
SEC
ADC $1D
INC
STA $0F
STZ $25
LDA #$FFFF
STA $11
L0708BA LDA $25
AND #$0003
STA $21
LDA $25
LSR
LSR
STA $23
TDC
CLC
ADC #$0009
PEA $0000
PHA
LDA $3B
BNE L0708F8
LDA $25
CMP $27
BNE L0708E5
LDX #$0006
L0708DD LDA $09,X
STA $11,X
DEX
DEX
BPL L0708DD
L0708E5 PEA $0000
LDA $25
ASL
ASL
ASL
ASL
ORA $25
PHA
XBA
ORA $01,S
STA $01,S
BRA L0708FE
L0708F8 PEA $3333
PEA $FFFF
L0708FE _SpecialRect
LDA $0B
CLC
ADC $1D
STA $0B
CLC
ADC $1D
INC
INC
STA $0F
INC $25
LDA $25
CMP #$0010
BEQ L070938
AND #$0003
BNE L0708BA
LDA $03
STA $0B
SEC
ADC $1D
STA $0F
LDA $09
CLC
ADC $1F
STA $09
SEC
ADC $1F
STA $0D
BRA L0708BA
L070938 LDA $11
BPL L07093F
BRL L0709E3
L07093F TDC
CLC
ADC #$0011
STA $19
STZ $1B
PHY
PHY
_NewRgn
PLA
PLX
STA $2B
STX $2D
PHX
PHA
_GetClip
TDC
CLC
ADC #$0001
PEA $0000
PHA
_ClipRect
PEI $1B
PEI $19
PEA $FFFC
PEA $FFFE
_InsetRect
_PenNormal
PEA $0002
PEA $0001
_SetPenSize
PEI $1B
PEI $19
_FrameRect
PEI $1B
PEI $19
PEA $0002
PEA $0001
_InsetRect
PEA $FFFF
_SetSolidPenPat
PEI $1B
PEI $19
_FrameRect
PEI $2D
PEI $2B
_SetClip
PEI $2D
PEI $2B
_DisposeRgn
_PenNormal
L0709E3 LDA $40
STA $46
LDA $3F
STA $45
LDX $3D
TDC
CLC
ADC #$0044
TCS
TXA
TCD
RTL
L0709F6 ENT
PHA
LDAL L055161
STAL L070A08+1
LDAL L055162
STAL L070A08+2
PLA
L070A08 JSL $000000
JMPL L096998
L070A10 ENT
PHB
PHD
TSC
TCD
STZ $11
LDY $07
BEQ L070A32
SEP #$20
PEI $0E
PLB
PLB
DEY
BEQ L070A2C
L070A23 LDA ($0D),Y
CMP [$09],Y
BNE L070A39
DEY
BNE L070A23
L070A2C LDA ($0D)
CMP [$09]
BNE L070A39
L070A32 REP #$20
LDA #$0001
STA $11
L070A39 REP #$20
LDA $05
STA $0F
LDA $03
STA $0D
TDC
TCS
PLD
CLC
ADC #$000C
TCS
PLB
RTL
L070A4D ENT
PHB
PHD
TSC
SEC
SBC #$001A
TCD
TCS
STZ $2F
PHA
_GetCurResourceFile
PLA
STA $15
STA $13
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $11
LDA #$0001
STA $09
L070A78 LDA $09
CMP $11
BCC L070A83
BEQ L070A83
BRL L070B80
L070A83 PHA
PHA
PEA $8014
PEA $0001
PEI $2D
_LoadResource
PLY
PLA
BCS L070B14
STA $19
STY $17
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
STA $17
STX $19
LDA [$17]
CMP #$0001
BNE L070B14
LDY #$0002
LDA [$17],Y
STA $05
INY
INY
LDA [$17],Y
STA $07
CLC
LDA $17
ADC #$0006
STA $17
BCC L070AC8
INC $19
L070AC8 STZ $01
STZ $03
L070ACC LDA $03
CMP $07
BNE L070AD6
LDA $01
CMP $05
L070AD6 BCS L070B14
PHA
PEI $2B
PEI $29
CLC
LDA $17
LDX $19
ADC #$0004
BCC L070AE8
INX
L070AE8 PHX
PHA
JSL L071C56
PLA
BNE L070B6F
LDY #$0004
LDA [$17],Y
AND #$00FF
CLC
LDX $19
ADC $17
BCC L070B01
INX
L070B01 CLC
ADC #$0005
BCC L070B08
INX
L070B08 STX $19
STA $17
INC $01
BNE L070ACC
INC $03
BRA L070ACC
L070B14 LDA $09
CMP $11
BEQ L070B6A
PHA
PHA
PEI $13
_GetMapHandle
PLY
PLA
BCS L070B80
STA $0F
STY $0D
LDA $0E
BEQ L070B80
LDY #$0002
LDA [$0D]
TAX
LDA [$0D],Y
STA $0F
STX $0D
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STX $0F
STA $0D
LDA $0E
BEQ L070B80
LDY #$0002
LDA [$0D]
TAX
LDA [$0D],Y
STA $0F
STX $0D
LDY #$0012
LDA [$0D],Y
STA $13
PHA
_SetCurResourceFile
BCS L070B80
L070B6A INC $09
BRL L070A78
L070B6F INC $2F
LDA $13
STA [$25]
LDY #$0002
LDA [$17]
STA [$21]
LDA [$17],Y
STA [$21],Y
L070B80 PEI $15
_SetCurResourceFile
PHA
PEI $11
_SetResourceFileDepth
PLA
LDA $1F
STA $2D
LDA $1D
STA $2B
LDX $1B
TDC
CLC
ADC #$002A
TCS
TXA
TCD
PLB
RTL
L070BA8 ENT
PHB
PHD
TSC
SEC
SBC #$003C
TCD
TCS
PHA
_GetCurResourceFile
PLA
STA $19
STA $17
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $15
STZ $3B
LDA #$0001
STA $0F
L070BD3 LDA $0F
CMP $15
BEQ L070BDE
BCC L070BDE
BRL L070D9D
L070BDE PHA
PHA
PEA $8014
PEA $0001
PEI $4B
_LoadResource
PLY
PLA
BCC L070BF6
BRL L070D2B
L070BF6 STA $21
STY $1F
STA $1D
STY $1B
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $1B
STX $1D
LDA [$1B]
CMP #$0001
BEQ L070C14
BRL L070D2B
L070C14 LDY #$0002
LDA [$1B],Y
STA $0B
INY
INY
LDA [$1B],Y
STA $0D
CLC
LDA $1B
ADC #$0006
STA $1B
BCC L070C2D
INC $1D
L070C2D STZ $07
STZ $09
L070C31 LDA $09
CMP $0D
BNE L070C3B
LDA $07
CMP $0B
L070C3B BCC L070C40
BRL L070D2B
L070C40 LDY #$0004
LDA [$1B],Y
AND #$00FF
CLC
ADC #$0005
STA $05
LDX $1D
ADC $1B
BCC L070C55
INX
L070C55 STX $2D
STA $2B
LDA $47
CMP [$1B]
BNE L070C6A
LDA $49
LDY #$0002
CMP [$1B],Y
BNE L070C6A
BEQ L070C7A
L070C6A LDA $2D
STA $1D
LDA $2B
STA $1B
INC $07
BNE L070C31
INC $09
BRA L070C31
L070C7A LDY #$0002
LDA [$1F],Y
STA $03
LDA [$1F]
STA $01
LDY #$0004
LDA [$01],Y
BNE L070CA5
DEY
DEY
LDA [$01],Y
DEC
BNE L070CA5
PEA $8014
PEA $0001
PEI $4B
_RemoveResource
BRL L070D2B
L070CA5 SEC
LDY #$0002
LDA [$01],Y
SBC #$0001
STA [$01],Y
BCS L070CB9
INY
INY
LDA [$01],Y
DEC
STA [$01],Y
L070CB9 PHA
PHA
PEI $21
PEI $1F
_GetHandleSize
PLA
STA $33
PLA
STA $35
CLC
LDY #$0002
LDA [$1F]
ADC $33
STA $2F
LDA [$1F],Y
ADC $35
STA $31
SEC
LDA $2F
SBC $2B
STA $37
LDA $31
SBC $2D
STA $39
LDA $37
ORA $39
BEQ L070D02
PEI $2D
PEI $2B
PEI $1D
PEI $1B
PEI $39
PEI $37
_BlockMove
L070D02 LDA $33
LDX $35
SEC
SBC $05
BCS L070D0C
DEX
L070D0C PHX
PHA
PEI $21
PEI $1F
_SetHandleSize
PEA $FFFF
PEA $8014
PEA $0001
PEI $4B
_MarkResourceChange
L070D2B PHA
PEI $4B
PEI $49
PEI $47
_GetResourceAttr
PLA
BCS L070D42
LDA $17
STA $3B
BRA L070D9D
L070D42 LDA $0F
CMP $15
BEQ L070D98
PHA
PHA
PEI $17
_GetMapHandle
PLY
PLA
BCS L070D9D
STA $13
STY $11
LDA $12
BEQ L070D9D
LDY #$0002
LDA [$11]
TAX
LDA [$11],Y
STA $13
STX $11
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
STX $13
STA $11
LDA $12
BEQ L070D9D
LDY #$0002
LDA [$11]
TAX
LDA [$11],Y
STA $13
STX $11
LDY #$0012
LDA [$11],Y
STA $17
PHA
_SetCurResourceFile
BCS L070D9D
L070D98 INC $0F
BRL L070BD3
L070D9D LDA [$43]
AND #$00FF
BNE L070DA7
BRL L070F52
L070DA7 LDA $3B
BNE L070DAE
BRL L070F55
L070DAE PEI $3B
_SetCurResourceFile
BCC L070DBC
BRL L070F55
L070DBC PHA
PHA
PEA $8014
PEA $0001
PEI $4B
_LoadResource
PLA
STA $1B
PLA
STA $1D
BCS L070DD8
BRL L070E63
L070DD8 PHA
PHA
LDA [$43]
AND #$00FF
CLC
ADC #$000B
PEA $0000
PHA
LDA L054FBD
PHA
PEA $0000
PHA
PHA
_NewHandle
PLY
PLA
BCC L070DFE
BRL L070F55
L070DFE STA $1D
STY $1B
LDY #$0002
LDA [$1B]
STA $01
LDA [$1B],Y
STA $03
LDA #$0001
STA [$01]
LDY #$0002
STA [$01],Y
INY
INY
DEC
STA [$01],Y
INY
INY
LDA $47
STA [$01],Y
INY
INY
LDA $49
STA [$01],Y
PEI $45
PEI $43
CLC
LDA $01
ADC #$000A
TAX
LDA $03
ADC #$0000
PHA
PHX
LDA [$43]
AND #$00FF
INC
PEA $0000
PHA
_BlockMove
PEI $1D
PEI $1B
PEA $0000
PEA $8014
PEA $0001
PEI $4B
_AddResource
BRA L070EA8
L070E63 LDY #$0002
LDA [$1B]
STA $01
LDA [$1B],Y
STA $03
LDA [$01]
CMP #$0001
BNE L070EA8
PHA
PHA
PEI $1D
PEI $1B
_GetHandleSize
PLA
STA $33
PLA
STA $35
CLC
LDA [$43]
AND #$00FF
ADC #$0005
ADC $33
TAX
LDA $35
ADC #$0000
PHA
PHX
PEI $1D
PEI $1B
_SetHandleSize
BCC L070EAB
L070EA8 BRL L070F55
L070EAB STZ $07
STZ $09
LDY #$0002
LDA [$1B],Y
STA $03
LDA [$1B]
STA $01
LDA [$01],Y
STA $0B
INY
INY
LDA [$01],Y
STA $0D
CLC
LDA $01
ADC #$0006
STA $01
BCC L070ED0
INC $03
L070ED0 LDA $0B
CMP $07
BNE L070EDC
LDA $0D
CMP $0D
BEQ L070EF8
L070EDC LDY #$0004
LDA [$01],Y
AND #$00FF
CLC
ADC #$0005
ADC $01
STA $01
BCC L070EF0
INC $03
L070EF0 INC $07
BNE L070ED0
INC $09
BNE L070ED0
L070EF8 LDA $47
STA [$01]
LDY #$0002
LDA $49
STA [$01],Y
PEI $45
PEI $43
CLC
LDX $03
LDA $01
ADC #$0004
BCC L070F12
INX
L070F12 PHX
PHA
LDA [$43]
AND #$00FF
INC
PEA $0000
PHA
_BlockMove
LDY #$0002
LDA [$1F],Y
STA $03
LDA [$1F]
STA $01
LDA [$01],Y
INC
STA [$01],Y
BNE L070F3E
INY
INY
LDA [$01],Y
INC
STA [$01],Y
L070F3E PEA $FFFF
PEA $8014
PEA $0001
PEI $4B
_MarkResourceChange
BRA L070F55
L070F52 LDX #$0000
L070F55 PEI $19
_SetCurResourceFile
PHA
PEI $15
_SetResourceFileDepth
PLA
LDA $41
STA $4B
LDA $3F
STA $49
LDX $3D
TDC
CLC
ADC #$0048
TCS
TXA
TCD
PLB
RTL
L070F7D ENT
PHB
PHD
TSC
SEC
SBC #$0018
TCD
TCS
LDA #$0000
STA [$25]
PHA
_GetCurResourceFile
PLA
STA $13
STA $11
PHA
PEA $0001
_SetResourceFileDepth
PLA
STA $0F
LDA #$0001
STA $09
L070FAB LDA $09
CMP $0F
BCC L070FB6
BEQ L070FB6
BRL L0710C0
L070FB6 PHA
PHA
PEA $8014
PEA $0001
PEI $23
_LoadResource
PLY
PLA
BCS L071040
STA $17
STY $15
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $15
STX $17
LDA [$15]
CMP #$0001
BNE L071040
LDY #$0002
LDA [$15],Y
STA $05
INY
INY
LDA [$15],Y
STA $07
CLC
LDA $15
ADC #$0006
STA $15
BCC L070FFB
INC $17
L070FFB STZ $01
STZ $03
L070FFF LDA $03
CMP $07
BNE L071009
LDA $01
CMP $05
L071009 BCS L071040
LDA $1F
CMP [$15]
BNE L07101D
LDY #$0002
LDA $21
CMP [$15],Y
BNE L07101D
BRL L07109B
L07101D LDY #$0004
LDA [$15],Y
AND #$00FF
CLC
LDX $17
ADC $15
BCC L07102D
INX
L07102D CLC
ADC #$0005
BCC L071034
INX
L071034 STX $17
STA $15
INC $01
BNE L070FFF
INC $03
BRA L070FFF
L071040 LDA $09
CMP $0F
BEQ L071096
PHA
PHA
PEI $11
_GetMapHandle
PLY
PLA
BCS L0710C0
STA $0D
STY $0B
LDA $0C
BEQ L0710C0
LDY #$0002
LDA [$0B]
TAX
LDA [$0B],Y
STA $0D
STX $0B
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STX $0D
STA $0B
LDA $0C
BEQ L0710C0
LDY #$0002
LDA [$0B]
TAX
LDA [$0B],Y
STA $0D
STX $0B
LDY #$0012
LDA [$0B],Y
STA $11
PHA
_SetCurResourceFile
BCS L0710C0
L071096 INC $09
BRL L070FAB
L07109B CLC
LDA $15
ADC #$0004
STA $15
BCC L0710A7
INC $17
L0710A7 LDA [$15]
AND #$00FF
INC
PEI $17
PEI $15
PEI $27
PEI $25
PEA $0000
PHA
_BlockMove
L0710C0 PEI $13
_SetCurResourceFile
PHA
PEI $0F
_SetResourceFileDepth
PLA
LDA $1D
STA $23
LDA $1B
STA $21
LDX $19
TDC
CLC
ADC #$0020
TCS
TXA
TCD
PLB
RTL
L0710E8 PHD
TSC
SEC
SBC #$000A
TCD
TCS
STZ $16
STZ $18
LDY #$0002
LDA [$12]
STA $05
LDA [$12],Y
STA $07
LDY $10
BMI L071156
BEQ L071156
LDA [$05],Y
BEQ L071156
INC
INC
STA $09
PHA
PHA
PEA $0000
PEI $09
LDA L054FBD
PHA
PEA $0000
PHA
PHA
_NewHandle
PLA
PLX
BCS L071156
STA $16
STX $18
LDY #$0002
LDA [$16]
STA $01
LDA [$16],Y
STA $03
LDA [$12]
CLC
ADC $10
STA $05
LDA [$12],Y
ADC #$0000
STA $07
PEI $07
PEI $05
PEI $03
PEI $01
PEA $0000
PEI $09
JSL L070597
L071156 LDA $0E
STA $14
LDA $0D
STA $13
LDX $0B
TDC
CLC
ADC #$0012
TCS
TXA
TCD
RTL
L071169 ENT
PHD
TSC
SEC
SBC #$0016
TCD
TCS
PHY
PHY
PEI $24
PEI $22
PEA $0000
PEI $20
JSL L151367
PLA
STA $01
PLA
STA $03
LDY #$0002
LDA [$01]
STA $05
LDA [$01],Y
STA $07
LDY #$001C
LDA [$05],Y
STA $09
INY
INY
LDA [$05],Y
STA $0B
LDY #$0002
LDA [$09]
STA $0D
LDA [$09],Y
STA $0F
LDY #$0004
LDA [$0D],Y
STA $11
STA [$1C]
BEQ L0711D8
LDA [$0D]
STA $13
LDY #$0002
LDA [$0D],Y
STA $15
LDA [$13],Y
PHA
LDA [$13]
PHA
LDA $1C
LDX $1E
INC
BNE L0711CD
INX
L0711CD PHX
PHA
PEA $0000
PEI $11
JSL L070597
L0711D8 LDA $1A
STA $24
LDA $19
STA $23
LDX $17
TDC
CLC
ADC #$0022
TCS
TXA
TCD
RTL
L0711EB ENT
PHD
PHY
PHY
PHY
TSC
TCD
LDA #L041D73
STA $01
LDA #^L041D73
STA $03
LDY #$0002
L0711FE LDA [$01]
BMI L071242
LDA $0C
CMP [$01]
BCC L07120E
LDA [$01],Y
CMP $0C
BCS L07121C
L07120E LDA $01
CLC
ADC #$0008
STA $01
BCC L0711FE
INC $03
BRA L0711FE
L07121C LDA $0C
SEC
SBC [$01]
TAX
INY
INY
LDA [$01],Y
STA $0E
INY
INY
LDA [$01],Y
STA $10
L07122E DEX
BMI L071270
LDA [$0E]
AND #$00FF
INC
CLC
ADC $0E
STA $0E
BCC L07122E
INC $10
BRA L07122E
L071242 PEA ^L07129C
PEA L07129C
PEA $0000
PEI $0C
PEA $0004
JSL L07334A
PLA
PLA
LDAL L07129D
STAL L071280+$17
LDAL L07129F
STAL L071280+$19
LDA #L071280
STA $0E
LDA #^L071280
STA $0E
L071270 LDA $0A
STA $0C
LDA $09
STA $0B
TDC
TCS
PLY
PLY
PLY
PLD
PLY
RTL
L071280 STR 'Missing Error String #xxxx.'
L07129C DB $00
L07129D DB $00
DB $00
L07129F DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0712B0 ENT
PHD
TSC
SEC
SBC #$000A
TCD
TCS
LDY #$0002
LDA [$14]
STA $01
LDA [$14],Y
STA $03
STZ $09
L0712C5 LDA $01
STA $05
LDA $03
STA $07
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L071B83
LDA $01
SEC
SBC $05
STA $09
STA [$10]
PEI $07
PEI $05
LDA $10
LDX $12
INC
BNE L0712EF
INX
L0712EF PHX
PHA
PEA $0000
PEI $09
JSL L070597
LDA [$01]
AND #$00FF
BEQ L071307
INC $01
BNE L071307
INC $03
L071307 LDA $09
BNE L071312
LDA [$01]
AND #$00FF
BNE L0712C5
L071312 LDY #$0002
LDA $01
STA [$14]
LDA $03
STA [$14],Y
LDA $0E
STA $16
LDA $0D
STA $15
LDX $0B
TDC
CLC
ADC #$0014
TCS
TXA
TCD
RTL
L071330 ENT
PHD
TSC
SEC
SBC #$000C
TCD
TCS
STZ $1A
STZ $01
LDY #$0002
LDA $16
ORA $18
BEQ L071355
LDA [$16]
STA $05
LDA [$16],Y
STA $07
ORA $05
BEQ L071355
LDA [$05]
STA $01
L071355 STZ $03
LDA $12
ORA $14
BEQ L07136D
LDA [$12]
STA $09
LDA [$12],Y
STA $0B
ORA $09
BEQ L07136D
LDA [$09]
STA $03
L07136D LDA $01
CMP $03
BNE L071397
TAY
BEQ L071395
INY
LDA #$0000
TAX
SEP #$20
L07137D LDA [$05],Y
TAX
LDAL L0714D9,X
PHA
LDA [$09],Y
TAX
PLA
CMPL L0714D9,X
BNE L071397
DEY
CPY #$0001
BNE L07137D
L071395 INC $1A
L071397 REP #$20
LDA $10
STA $18
LDA $0F
STA $17
LDX $0D
TDC
CLC
ADC #$0016
TCS
TXA
TCD
RTL
L0713AC PHD
TSC
SEC
SBC #$000C
TCD
TCS
STZ $1A
LDY #$0002
LDA [$12]
STA $01
LDA [$12],Y
STA $03
LDA [$01]
STA $09
BEQ L07143F
STZ $0B
LDA $16
ORA $18
BEQ L0713DF
LDA [$16]
STA $05
LDA [$16],Y
STA $07
ORA $05
BEQ L0713DF
LDA [$05]
BNE L0713F4
L0713DF INC
INC
CLC
ADC $01
STA $01
BCC L0713EA
INC $03
L0713EA LDA [$01]
BEQ L071436
DEC $09
BNE L0713DF
BRA L07143F
L0713F4 STA $0B
LDA #$0000
L0713F9 INC
INC
CLC
ADC $01
STA $01
BCC L071404
INC $03
L071404 LDA [$01]
CMP $0B
BNE L07142E
TAY
INY
LDA #$0000
TAX
SEP #$20
L071412 LDA [$01],Y
TAX
LDAL L0714D9,X
PHA
LDA [$05],Y
TAX
PLA
CMPL L0714D9,X
BNE L07142C
DEY
CPY #$0001
BNE L071412
BRA L071436
L07142C REP #$20
L07142E DEC $09
BEQ L07143F
LDA [$01]
BRA L0713F9
L071436 REP #$20
LDA $01
SEC
SBC [$12]
STA $1A
L07143F LDA $10
STA $18
LDA $0F
STA $17
LDX $0D
TDC
CLC
ADC #$0016
TCS
TXA
TCD
RTL
L071452 PHD
PHY
PHY
TSC
TCD
STZ $10
LDA $0A
ORA $0C
BEQ L07147F
LDA [$0A]
STA $01
LDY #$0002
LDA [$0A],Y
STA $03
ORA $01
BEQ L07147F
LDA [$01]
BEQ L07147F
TAX
SEP #$20
LDA $0E
L071477 CMP [$01],Y
BEQ L071482
INY
DEX
BNE L071477
L07147F LDY #$0001
L071482 REP #$20
DEY
STY $10
LDA $08
STA $0E
LDA $07
STA $0D
TDC
TCS
PLY
PLY
PLD
PLY
PLY
PLY
RTL
L071498 ENT
SEP #$30
LDA $04,S
TAX
LDAL L0714D9,X
STA $06,S
LDA #$00
STA $07,S
REP #$30
LDA $02,S
STA $04,S
LDA $01,S
STA $03,S
PLY
RTL
L0714B3 ENT
PHD
TSC
TCD
SEP #$30
LDA [$06]
BEQ L0714C9
TAY
L0714BD LDA [$06],Y
TAX
LDAL L0714D9,X
STA [$06],Y
DEY
BNE L0714BD
L0714C9 REP #$30
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L0714D9 ENT
HEX 000102030405060708090A0B0C0D0E0F
HEX 101112131415161718191A1B1C1D1E1F
HEX 202122232425262728292A2B2C2D2E2F
HEX 303132333435363738393A3B3C3D3E3F
HEX 406162636465666768696A6B6C6D6E6F
HEX 707172737475767778797A5B5C5D5E5F
HEX 606162636465666768696A6B6C6D6E6F
HEX 707172737475767778797A7B7C7D7E7F
HEX 616163656E6F75616161616161636565
HEX 6565696969696E6F6F6F6F6F75757575
HEX A0A1A2A3A4A5A6A7A8A9AAABACAD616F
HEX B0B1B2B3B4B5B6B7B8B9BA616FBD616F
HEX C0C1C2C3C405C6C7C8C9CA61616F6F6F
HEX D0D1D2D3D4D5D6D77979DADBDCDDDEDF
HEX E0E1E2E3E46165616565696969696F6F
HEX F06F757575F5F6F7F8F9FAFBFCFDFEFF
L0715D9 ENT
PHD
TSC
SEC
SBC #$002C
TCD
TCS
LDA $34
BNE L0715F5
LDA $32
CMP #$000A
BCS L0715F5
CLC
ADC #$0130
XBA
STA [$36]
BRA L071640
L0715F5 STZ $01
STZ $03
L0715F9 PHA
PHA
PHA
PHA
PEI $34
PEI $32
PEA $0000
PEA $000A
_LongDivide
PLA
STA $32
PLA
STA $34
PLA
PLY
LDX $03
STA $05,X
INX
INX
STX $03
INC $01
LDA $32
BNE L0715F9
LDA $34
BNE L0715F9
SEP #$20
LDY $01
TYA
STA [$36]
LDX #$0000
L071632 LDA $05,X
CLC
ADC #$30
STA [$36],Y
INX
INX
DEY
BNE L071632
REP #$20
L071640 LDA $30
STA $34
LDA $2F
STA $33
LDX $2D
TDC
CLC
ADC #$0032
TCS
TXA
TCD
RTL
L071653 PHD
TSC
SEC
SBC #$0014
TCD
TCS
PHP
SEI
PHY
PHY
PEA $0003
_GetAddress
PLX
PLA
STX $11
STA $13
PHY
PHY
LDA [$1A]
TAX
AND #$00FF
PHA
STAL L054E4B
TXA
XBA
AND #$00FF
PHA
STAL L054E4D
DEC
STA $0B
_Multiply
PLA
PLX
STA $0D
ASL
ASL
CLC
ADC #$0004
TAX
LDY #$0002
LDA [$1A],Y
PHA
AND #$00FF
STAL L054E4B,X
INX
INX
PLA
XBA
AND #$00FF
STAL L054E4B,X
LDA #$0006
STA $01
LDA #$0004
STA $03
LDA #$0002
STA $05
LDY #$0004
LDA [$1A],Y
CMP #$0004
BNE L0716E4
STA $05
LDAL L054F9B
SEC
SBC #$0006
STA $1A
LDAL L054F9D
BCS L0716DF
DEC
L0716DF STA $1C
LDA #$0000
L0716E4 STA $07
JSR L071724
LDA $07
STA $05
CMP #$0003
BNE L071703
LDA #$0002
STA $05
LDA #L054BDF
STA $1A
LDA #^L054BDF
STA $1C
BRA L07170D
L071703 CMP #$0001
BNE L07170D
LDA #$0004
STA $01
L07170D JSR L071724
PLP
LDA $18
STA $1C
LDA $17
STA $1B
LDX $15
TDC
CLC
ADC #$001A
TCS
TXA
TCD
RTL
L071724 STZ $09
STZ $0F
L071728 LDA $05
BEQ L071756
CMP #$FFFF
BEQ L071756
CMP #$0002
BEQ L07174B
LDX $01
LDY $01
CMP #$0004
BEQ L071745
LDAL L054E4B,X
BRA L071747
L071745 LDA [$1A],Y
L071747 INC $01
BRA L071756
L07174B LDY $01
LDA [$1A],Y
AND #$00FF
ASL
TAY
LDA [$11],Y
L071756 LDX $03
STAL L054E4B,X
INC $01
INC $03
INC $03
INC $0F
LDY $05
CPY #$0001
BEQ L071784
INC $09
LDY $09
CPY $0B
BNE L071784
STZ $09
LDA #$0000
LDX $03
STAL L054E4B,X
INC $03
INC $03
INC $0F
L071784 LDA $0F
CMP $0D
BNE L071728
RTS
L07178B ENT
PHD
PHY
PHY
PHY
TSC
TCD
STZ $12
LDA $10
BEQ L071813
PHA
PHA
PEA $8001
PEA $0000
PEA $0001
_GetIndResource
PLA
STA [$0C]
PLA
LDY #$0002
STA [$0C],Y
INC $12
LDA $10
CMP #$0001
BEQ L071813
TYA
STA $01
INY
INY
L0717C0 PHY
PHA
PHA
PEA $8001
PEA $0000
PEI $01
_GetIndResource
PLA
STA $03
PLA
STA $05
PLY
TYX
L0717DA DEY
DEY
LDA [$0C],Y
CMP $05
BEQ L0717E6
DEY
DEY
BRA L0717EE
L0717E6 DEY
DEY
LDA [$0C],Y
CMP $03
BEQ L071807
L0717EE CPY #$0000
BNE L0717DA
TXY
LDA $03
STA [$0C],Y
INY
INY
LDA $05
STA [$0C],Y
INY
INY
LDA $12
INC
STA $12
BRA L071808
L071807 TXY
L071808 LDA $01
CMP $10
BEQ L071813
INC
STA $01
BRA L0717C0
L071813 LDA $0A
STA $10
LDA $09
STA $0F
TDC
TCS
PLY
PLY
PLY
PLD
PLY
PLY
PLY
RTL
L071825 ENT
PHD
TSC
TCD
LDA $06
ORA $08
BEQ L071839
PEI $08
PEI $06
_DisposeHandle
L071839 LDA $0A
ORA $0C
BEQ L07184A
PEI $0C
PEI $0A
_DisposeHandle
L07184A LDA $04
STA $0C
LDA $03
STA $0B
TDC
TCS
PLD
PLY
PLY
PLY
PLY
RTL
L07185A ENT
PHD
TSC
TCD
LDA $07
BEQ L07186C
PEI $08
PEI $06
_DisposeHandle
L07186C LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L07187A ENT
* PHD
* TSC
* TCD
* AV 202208
* PHA
* PHA
* PHA
* LDA $08
* AND #$00FF
* PHA
* PEI $06
* _UnloadSeg
* BCC L071893
* BRK $FE ; BUG
*L071893 PLA
* PLX
* PLY
* LDA $04
* STA $08
* LDA $03
* STA $07
* TDC
* TCS
* PLD
* PLY
* PLY
* RTL
L0718A4 ENT
PHD
TSC
TCD
LDY #$0004
LDA [$06],Y
AND #$8000
STA $0A
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L0718BF ENT
PHD
TSC
TCD
LDY #$0004
LDA [$06],Y
ORA #$8000
STA [$06],Y
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L0718DA ENT
PHD
TSC
TCD
LDY #$0004
LDA [$08],Y
EOR $06
AND #$7FFF
EOR $06
STA [$08],Y
LDA $04
STA $0A
LDA $03
STA $09
TDC
TCS
PLD
PLY
PLY
PLY
RTL
L0718FA ENT
PHD
TSC
TCD
LDY #$0004
LDA [$06],Y
TAX
AND #$8000
STA $0A
TXA
ORA #$8000
STA [$06],Y
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L07191C ENT
PHD
TSC
TCD
LDY #$0004
LDA [$06],Y
AND #$7FFF
STA [$06],Y
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L071937 ENT
PHD
TSC
TCD
PHY
PEI $0E
PEI $0A
JSL L072FD5
PLA
STA [$06]
PHY
PEI $10
PEI $0C
JSL L072FD5
PLA
LDY #$0002
STA [$06],Y
PHY
PEI $0E
PEI $0A
JSL L072FA6
PLA
LDY #$0004
STA [$06],Y
PHY
PEI $10
PEI $0C
JSL L072FA6
PLA
LDY #$0006
STA [$06],Y
LDA $04
STA $10
LDA $03
STA $0F
TDC
TCS
PLD
CLC
ADC #$000E
TCS
RTL
L071984 ENT
PHD
TSC
TCD
STZ $10
LDA $0E
SEC
SBC $0A
BPL L071994
EOR #$FFFF
INC
L071994 CMP $06
BCS L0719A9
LDA $0C
SEC
SBC $08
BPL L0719A3
EOR #$FFFF
INC
L0719A3 CMP $06
BCS L0719A9
INC $10
L0719A9 LDA $04
STA $0E
LDA $03
STA $0D
TDC
TCS
PLD
CLC
ADC #$000C
TCS
RTL
L0719BA ENT
PHD
TSC
TCD
STZ $10
STZ $12
LDA $0E
CMP #$0005
BCS L071A09
TAX
LDAL L0719CF,X
PHA
RTS
L0719CF DA L0719D5-1
DA L0719E2-1
DA L0719EF-1
L0719D5 PEI $0C
PEI $0A
PEA $2012
JSL GSOS2
BRA L071A09
L0719E2 PEI $0C
PEI $0A
PEA $2013
JSL GSOS2
BRA L071A09
L0719EF PHA
PHA
LDY #$0012
LDA [$06],Y
PHA
DEY
DEY
LDA [$06],Y
PHA
_GetHandleSize
PLX
STX $10
PLX
STX $12
L071A09 LDX $03
STX $0D
LDX $04
STX $0E
PLD
PLX
PLX
PLX
PLX
PLX
CMP #$0001
RTL
L071A1B ENT
PHD
TSC
TCD
LDA $0A
STA $0C
SEC
SBC $08
BPL L071A2D
LDA $08
STA $0C
BRA L071A38
L071A2D LDA $0A
SEC
SBC $06
BMI L071A38
LDA $06
STA $0C
L071A38 LDA $04
STA $0A
LDA $03
STA $09
TDC
TCS
PLD
PLY
PLY
PLY
RTL
L071A47 ENT
PHA
LDAL L0551AD
BEQ L071A74
LDA $0D,S
CMP #$0003
BEQ L071A5A
CMP #$0005
BNE L071A74
L071A5A LDA $0B,S
AND #$0100
BEQ L071A74
LDA $09,S
CMP #$002E
BNE L071A74
LDA #$000C
STA $0D,S
LDA #$0000
STA $09,S
STA $0B,S
L071A74 LDAL L054F8D
STAL L071A85+1
LDAL L054F8E
STAL L071A85+2
PLA
L071A85 JMPL $000000
*L071A89 ENT
* PHD
* TSC
* TCD
* SEP #$20
* LDA [$06]
* STA $0A
* STZ $0B
* REP #$20
* LDA $04
* STA $08
* LDA $03
* STA $07
* TDC
* TCS
* PLD
* PLY
* PLY
* RTL
L071AA4 ENT
PHD
TSC
TCD
PEI $06
PLB
PLB
LDA $04
STA $06
LDA $03
STA $05
TDC
TCS
PLD
PLY
RTL
L071AB8 ENT
PHD
TSC
TCD
PEI $08
PEI $06
JSL L071BC3
LDA [$06]
INC
STA [$06]
BNE L071AD2
LDY #$0002
LDA [$06],Y
INC
STA [$06],Y
L071AD2 LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L071AE0 ENT
PHB
PHD
PHY
PHY
TSC
TCD
LDA #$0000
TAX
STA [$0B]
LDA [$0F]
STA $01
LDY #$0002
LDA [$0F],Y
STA $03
PHK
PLB
SEP #$20
LDY #$FFFF
L071AFE LDA #$20
L071B00 INY
CMP [$01],Y
BEQ L071B00
JSR L071B71
LDY #$0002
L071B0B LDA [$01],Y
TAX
LDA L0714D9,X ; was LDAL
CMP L071B65,Y
BNE L071B1C
DEY
BPL L071B0B
BRA L071B45
L071B1C LDY #$0008
L071B1F LDA [$01],Y
TAX
LDA L0714D9,X ; was LDAL
CMP L071B68,Y
BNE L071B34
DEY
BPL L071B1F
LDA #$01
STA [$0B]
BRA L071B45
L071B34 LDY #$FFFF
L071B37 INY
LDA [$01],Y
BEQ L071B42
CMP #$0D
BNE L071B37
BRA L071AFE
L071B42 JSR L071B71
L071B45 REP #$20
LDA $01
STA [$0F]
LDY #$0002
LDA $03
STA [$0F],Y
LDA $09
STA $11
LDA $07
STA $0F
TDC
TCS
PLY
PLY
PLD
PLY
PLY
PLY
PLY
PLB
RTL
L071B65 ASC 'on '
L071B68 ASC 'function '
L071B71 PHP
REP #$20
TYA
CLC
ADC $01
STA $01
BCC L071B7E
INC $03
L071B7E LDA #$0000
PLP
RTS
L071B83 ENT
PHD
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$0A]
STA $01
LDA [$0A],Y
STA $03
SEP #$20
L071B95 LDA [$01]
BEQ L071BA9
CMP #$0D
BEQ L071BA9
INC $01
BNE L071B95
INC $02
BNE L071B95
INC $03
BRA L071B95
L071BA9 REP #$20
LDA $01
STA [$0A]
LDA $03
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L071BC3 ENT
PHD
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$0A]
STA $01
LDA [$0A],Y
STA $03
SEP #$20
L071BD5 LDA [$01]
BEQ L071BE5
INC $01
BNE L071BD5
INC $02
BNE L071BD5
INC $03
BRA L071BD5
L071BE5 REP #$20
LDA $01
STA [$0A]
LDA $03
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L071BFF ENT
PHD
TSC
TCD
PHB
PHB
PLA
STA $06
LDAL L054F91
PHA
PLB
PLB
TDC
TCS
PLD
RTL
L071C12 ENT
PHD
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$0A]
STA $01
LDA [$0A],Y
STA $03
SEP #$20
LDA #$20
LDY #$0000
L071C29 CMP [$01],Y
BNE L071C34
INY
BNE L071C29
INC $03
BRA L071C29
L071C34 REP #$20
TYA
CLC
ADC $01
STA [$0A]
LDA $03
ADC #$0000
LDY #$0002
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L071C56 ENT
PHD
PHY
PHY
TSC
TCD
STZ $12
LDA #$0000
TAX
TAY
SEP #$20
LDA [$0E]
CMP [$0A]
BNE L071C84
TAY
BEQ L071C82
L071C6D LDA [$0E],Y
TAX
LDAL L0714D9,X
PHA
LDA [$0A],Y
TAX
PLA
CMPL L0714D9,X
BNE L071C84
DEY
BNE L071C6D
L071C82 INC $12
L071C84 REP #$20
LDA $08
STA $10
LDA $07
STA $0F
TDC
TCS
PLY
PLY
PLD
PLY
PLY
PLY
PLY
RTL
L071C98 ENT
PHD
PHY
PHY
TSC
TCD
LDA $0A
STA $01
LDA $0C
STA $03
SEP #$20
LDY #$0000
TYX
L071CAB LDA [$01],Y
BEQ L071CB7
INY
BNE L071CAB
INC $03
INX
BRA L071CAB
L071CB7 REP #$20
STY $0E
STX $10
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L071CCD ENT
PHD
PHY
PHY
PHY
TSC
TCD
LDA [$10]
AND #$00FF
BEQ L071D05
STA $03
INC $10
BNE L071CE2
INC $12
L071CE2 BRA L071D0C
L071CE4 ENT
PHD
PHY
PHY
PHY
TSC
TCD
PHY
PHY
PEI $12
PEI $10
JSL L071C98
PLA
STA $03
ORA $01,S
BEQ L071D05
PLA
BEQ L071D0C
LDA #$FFFF
STA $03
BRA L071D0C
L071D05 STZ $14
STZ $16
BRL L071D6C
L071D0C STZ $14
STZ $16
LDA #$0000
TAX
SEP #$20
LDA [$10]
TAX
LDAL L0714D9,X
STA $01
LDY #$FFFF
L071D22 INY
LDA [$0C],Y
BEQ L071D6C
TAX
LDAL L0714D9,X
CMP $01
BNE L071D22
REP #$20
TYA
CLC
ADC $0C
STA $0C
BCC L071D3C
INC $0E
L071D3C LDY #$0000
TYA
SEP #$20
L071D42 LDA [$0C],Y
BEQ L071D6C
TAX
LDAL L0714D9,X
STA $05
LDA [$10],Y
TAX
LDAL L0714D9,X
CMP $05
BEQ L071D5D
LDY #$0000
BRA L071D22
L071D5D INY
CPY $03
BNE L071D42
REP #$20
LDA $0C
STA $14
LDA $0E
STA $16
L071D6C REP #$20
LDA $0A
STA $12
LDA $09
STA $11
LDX $07
TDC
CLC
ADC #$0010
TCS
TXA
TCD
RTL
L071D81 ENT
PHD
PHY
PHY
TSC
TCD
STZ $0E
STZ $10
LDA [$0A]
AND #$00FF
BEQ L071DD3
INC
STA $01
LDY #$0001
L071D97 LDA [$0A],Y
AND #$00FF
CMP #$0030
BCC L071DCE
CMP #$003A
BCS L071DCE
AND #$000F
PHA
LDA $10
STA $03
LDA $0E
ASL
ROL $10
ASL
ROL $10
CLC
ADC $0E
STA $0E
LDA $10
ADC $03
ASL $0E
ROL
TAX
CLC
PLA
ADC $0E
STA $0E
BCC L071DCC
INX
L071DCC STX $10
L071DCE INY
CPY $01
BNE L071D97
L071DD3 LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L071DE3 ENT
PHD
PHY
PHY
TSC
TCD
PHY
PHY
PEI $0C
PEI $0A
JSL L071D81
LDA [$0A]
AND #$00FF
BEQ L071E07
TAY
L071DFA LDA [$0A],Y
AND #$00FF
CMP #$002D
BEQ L071E0F
DEY
BNE L071DFA
L071E07 PLA
PLX
STA $0E
STX $10
BRA L071E21
L071E0F PLX
PLA
EOR #$FFFF
TAY
TXA
EOR #$FFFF
INC
STA $0E
BNE L071E1F
INY
L071E1F STY $10
L071E21 LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L071E31 ENT
PHD
TSC
TCD
STZ $0E
STZ $10
LDA $06
TAX
ORA $08
BEQ L071E66
LDY #$0002
L071E42 CLC
LDA [$0A]
ADC $0E
STA $0E
LDA [$0A],Y
ADC $10
STA $10
LDA $0A
CLC
ADC #$0004
STA $0A
BCC L071E5B
INC $0C
L071E5B DEX
BNE L071E42
LDA $08
BEQ L071E66
DEC $08
BRA L071E42
L071E66 LDA $04
STA $0C
LDA $03
STA $0B
TDC
TCS
PLD
PLY
PLY
PLY
PLY
RTL
L071E76 PHD
TSC
TCD
LDA $06
AND #$0007
ASL
TAX
LDA $06
LSR $08
ROR
LSR $08
ROR
LSR $08
ROR
CLC
ADC $0A
STA $0A
LDA $08
ADC $0C
STA $0C
LDA [$0A]
ANDL L071EB3,X
BEQ L071EA1
LDA #$0001
L071EA1 STA $0E
LDA $04
STA $0C
LDA $03
STA $0B
TDC
TCS
PLD
PLY
PLY
PLY
PLY
RTL
L071EB3 DW $0080
DW $0040
DW $0020
DW $0010
DW $0008
DW $0004
DW $0002
DW $0001
L071EC3 DW $0000
L071EC5 ENT
LDA #$0001
STAL L071EC3
BRA L071ED5
L071ECE ENT
LDA #$0000
STAL L071EC3
L071ED5 PHB
PHD
TSC
TCD
LDAL L071EC3
BEQ L071EEB
LSR $09
ROR $07
LDA #$0000
ROL
STAL L071EC3
L071EEB ASL $07
ROL $09
LDA $09
BEQ L071F07
L071EF3 PEI $0C
PLB
PLB
LDY #$0000
TYA
L071EFB STA ($0B),Y
INY
INY
BNE L071EFB
INC $0D
DEC $09
BNE L071EF3
L071F07 PEI $0C
PLB
PLB
LDY $07
BEQ L071F1E
LDA #$0000
DEY
DEY
BEQ L071F1C
L071F16 STA ($0B),Y
DEY
DEY
BNE L071F16
L071F1C STA ($0B)
L071F1E LDAL L071EC3
BEQ L071F2E
LDY $07
SEP #$20
LDA #$00
STA ($0B),Y
REP #$20
L071F2E LDA $05
STA $0D
LDA $03
STA $0B
TDC
TCS
PLD
PLY
PLY
PLY
PLY
PLB
RTL
L071F3F ENT
PHD
TSC
TCD
LDA $06
LDX $08
INC
BNE L071F4A
INX
L071F4A STA $0A
STX $0C
SEP #$30
LDA [$06]
TAY
LDA #$00
STA [$0A],Y
REP #$30
LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L071F67 ENT
PHD
PHY
PHY
PHY
TSC
TCD
STZ $10
STZ $12
LDA $0C
ORA $0E
BEQ L071FE7
LDA [$0C]
STA $03
LDY #$0002
LDA [$0C],Y
STA $05
ORA $03
BEQ L071FE7
PHY
PHY
PEI $05
PEI $03
JSL L071C98
PLA
PLX
TAX
BEQ L071FE7
STA $01
PHY
PHY
CLC
ADC #$0002
LDX #$0000
BCC L071FA3
INX
L071FA3 PHX
PHA
LDAL L054FBD
PHA
LDA #$0000
PHA
PHA
PHA
_NewHandle
PLA
PLX
BCS L071FE7
STA $10
STX $12
LDY #$0002
LDA [$0C],Y
PHA
LDA [$0C]
PHA
LDA [$10]
STA $03
CLC
ADC #$0002
TAX
LDA [$10],Y
STA $05
BCC L071FD8
INC
L071FD8 PHA
PHX
PEA $0000
PEI $01
JSL L070597
LDA $01
STA [$03]
L071FE7 LDA $0A
STA $0E
LDA $09
STA $0D
TDC
TCS
PLY
PLY
PLY
PLD
PLY
PLY
RTL
L071FF8 ENT
PHD
PHY
PHY
TSC
TCD
LDA $0A
CLC
ADC #$0001
STA $01
LDA $0C
ADC #$0000
STA $03
SEP #$30
LDY #$00
L072010 LDA [$0E],Y
BEQ L07201B
STA [$01],Y
INY
BNE L072010
DEY
DEY
L07201B TYA
STA [$0A]
REP #$30
LDA $08
STA $10
LDA $07
STA $0F
TDC
TCS
PLY
PLY
PLD
PLY
PLY
PLY
PLY
RTL
L072032 ENT
PHD
TSC
CLC
ADC #$FDE8
TCS
ADC #$0127
TCD
PHY
PHY
JSL L150493
PLA
STA $E3
PLX
STX $E5
PHY
JSL L0727BF
PLA
STA $E1
LDA L054FA3
LDX L054FA5
PHX
PHA
JSL L07185A
LDA $FA
BNE L072092
PEA $0000
TDC
CLC
ADC #$FFD9
PHA
PEA ^L040A7E
PEA L040A7E
PEA $0003
JSL L0313BE
PHY
PHY
LDAL L0540CF
PHA
LDAL L0540CD
PHA
JSL L0734F5
PLA
STA L054FA3
PLA
STA L054FA5
BRL L072127
L072092 PEA $0000
TDC
CLC
ADC #$FFD9
PHA
PEA $0000
TDC
CLC
ADC #$FED9
PHA
PEI $FA
JSL L072809
PEA $0100
JSL L0313BE
PHY
PHY
PEA $0001
PEA ^L0540CD
PEA L0540CD
PEA $0000
TDC
CLC
ADC #$FFDA
PHA
LDA #$00FF
LDX #$FFD9
AND $00,X
PHA
JSL L1514A2
PLA
STA L054FA3
PLA
STA L054FA5
PHY
PHY
LDA L054FA3
LDX L054FA5
PHX
PHA
JSL L151301
PLA
PLX
INC
BNE L0720EE
INX
L0720EE STA $EB
LDA $EB
JSL L150488
PHX
PHA
LDA L054FA3
LDX L054FA5
PHX
PHA
JSL L1512FB
LDA L054FA3
LDX L054FA5
STA $ED
STX $EF
LDY #$0002
LDA [$ED],Y
TAX
LDA [$ED]
STA $ED
STX $EF
LDA $EB
DEC
TAY
LDA #$0000
SEP #$20
STA [$ED],Y
REP #$20
L072127 LDA #$00FF
LDX #$FFD9
AND $00,X
STA $D9
LDA $D9
SEC
SBC #$00FE
BVS L07213C
EOR #$8000
L07213C BMI L072143
LDA $D9
INC
STA $D9
L072143 LDA $D9
CLC
ADC #$FFD9
TAX
SEP #$20
LDA #$00
STA $00,X
REP #$20
LDA L054FA7
BEQ L07215F
LDA #$0001
STA $DF
BRL L0721FA
L07215F PHY
PHY
PEI $F6
JSL L072834
PLA
STA $E7
PLX
STX $E9
LDX #$0000
TDC
CLC
ADC #$FFDA
STAL L040AF7
TXA
STAL L040AF9
LDA #$00FF
LDX #$FFD9
AND $00,X
STAL L040AFB
PHY
PHY
PEI $E9
PEI $E7
PEA $0000
PEA ^L040ADD
PEA L040ADD
JSL L15163F
PLA
STA $DB
PLX
STX $DD
LDA $F8
BNE L0721B2
PEI $E9
PEI $E7
PEA $0002
JSL L072E4C
L0721B2 PEI $E9
PEI $E7
PEA $0003
JSL L073D2E
PEI $E9
PEI $E7
JSL L15102F
L0721C5 PHY
PHY
JSL L07005C
PLA
EOR #$0001
PHA
JSL L0736C8
PLA
STA $DF
LDX #$0000
LDA $DF
DEC
BNE L0721E0
INX
L0721E0 PHX
LDX #$0000
LDA $DF
DEC
DEC
BNE L0721EB
INX
L0721EB TXA
ORA $01,S
PLX
LSR
BCC L0721C5
PEI $E9
PEI $E7
JSL L072634
L0721FA LDA $DF
STA $FC
LDA L054FB3
BNE L072207
JSL L073A49
L072207 PEI $E5
PEI $E3
JSL L151131
PEI $E1
JSL L0724F7
LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$0220
TCS
RTL
L072227 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
STZ $20
LDY #$0008
LDA [$1C],Y
BNE L07223B
BRL L072302
L07223B PHY
PHY
PEA $0000
PEA $0000
PEI $1E
PEI $1C
JSL L150371
PLA
STA $0D
PLX
STX $0F
LDA $1C
LDX $1E
STA $01
STX $03
LDA $0D
ORA $0F
BNE L072270
LDY #$001E
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $09
STX $0B
BRL L0722F1
L072270 LDA $1A
BEQ L07229D
LDY #$001E
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP $0D
BNE L072284
CPX $0F
L072284 BEQ L072302
PEI $0F
PEI $0D
LDY #$001A
LDA [$01],Y
JSL L150488
JSL L1512A5
STA $09
STX $0B
BRA L0722F1
L07229D PEI $0F
PEI $0D
LDY #$001A
LDA [$01],Y
JSL L150488
JSL L150F53
STA $05
STX $07
PEI $07
PEI $05
LDY #$001E
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDY #$001A
LDA [$01],Y
PHA
LDY #$0008
LDA [$01],Y
JSL L150BEE
PLA
LDX #$0000
BIT #$8000
BEQ L0722DA
DEX
L0722DA JSL L150F53
JSL L033477
BVS L0722E7
EOR #$8000
L0722E7 BMI L072302
LDA $05
LDX $07
STA $09
STX $0B
L0722F1 PEI $0B
PEI $09
PEI $1E
PEI $1C
JSL L15146C
LDA #$0001
STA $20
L072302 LDA $18
STA $1E
LDA $17
STA $1D
LDA $15
TCD
TSC
CLC
ADC #$001C
TCS
RTL
L072314 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
JSL L0B8C8B
JSL L150F4D
PLY
PLY
PLD
RTL
L072328 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FBB
SEC
SBC #$0000
BMI L07234A
LDA L054F97
INC
AND #$0003
STA L054F97
PEA $0003
JSL L0724F7
L07234A LDA #$0001
STA L054F9F
PLY
PLY
PLD
RTL
L072354 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEA $0000
PEI $0C
PEI $0A
PEA ^L05409F
PEA L05409F
JSL L150365
PLA
LSR
BCC L072386
PHY
PHY
LDAL L0540BF
PHA
LDAL L0540BD
PHA
JSL L150132
PLA
PLX
STA $0E
L072386 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L072397 PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDA #$7FFF
LDX #$0000
STA $01
STX $03
PEI $1C
PEI $1A
LDA #$0000
TAX
JSL L033477
BEQ L0723B9
BPL L0723C0
L0723B9 STZ $01
STZ $03
BRL L072444
L0723C0 PEI $1C
PEI $1A
LDA #$0000
LDX #$4000
JSL L033477
BVS L0723D3
EOR #$8000
L0723D3 BMI L072444
LDA $01
LDX $03
PEI $03
PEI $01
JSL L150D50
PLA
STA $05
PLX
STX $07
L0723E7 PEI $07
PEI $05
LDA $1A
LDX $1C
JSL L033477
BEQ L072444
BVS L0723FA
EOR #$8000
L0723FA BPL L072444
LDA $1A
LDX $1C
PEI $07
PEI $05
JSL L150F53
PHX
PHA
PEA $0000
PEA $0002
JSL L150290
PLY
PLY
PLY
PLY
STA $09
STX $0B
PEI $0B
PEI $09
PEI $03
PEI $01
JSL L150290
PLY
PLY
PLY
PLY
STA $01
STX $03
LDA $01
LDX $03
PEI $03
PEI $01
JSL L150D50
PLA
STA $05
PLX
STX $07
BRA L0723E7
L072444 LDA $01
STA $1E
LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L07245A ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDA $1C
SEC
SBC $18
JSL L150488
STA $05
STX $07
LDA $1A
SEC
SBC $16
JSL L150488
STA $09
STX $0B
LDA $05
LDX $07
PEI $07
PEI $05
JSL L150D50
LDA $09
LDX $0B
PEI $0B
PEI $09
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
PEI $03
PEI $01
LDA #$F900
LDX #$007F
JSL L033477
BVS L0724B1
EOR #$8000
L0724B1 BPL L0724BF
LDA #$0B50
LDX #$0000
STA $1E
STX $20
BRA L0724E5
L0724BF PHY
PHY
PHY
LDA $01
LDX $03
PEA $0000
PEA $0100
JSL L150D50
PEA $0000
PHD
JSL L072397
PEA $0010
JSL L15133D
PLA
STA $1E
PLX
STX $20
L0724E5 LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L0724F7 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA $14
SEC
SBC #$0016
BEQ L072511
BVS L07250C
EOR #$8000
L07250C BPL L072511
BRL L072622
L072511 LDA L054FBB
SEC
SBC #$0000
BPL L07251D
BRL L07261C
L07251D LDX #$0000
LDA L054FA1
CMP $14
BEQ L072528
INX
L072528 TXA
BNE L07253C
LDX #$0000
LDA #$0003
CMP $14
BNE L072536
INX
L072536 TXA
BNE L07253C
BRL L072615
L07253C LDA #$FFFF
STA $09
LDA $14
DEC
DEC
BMI L07259E
CMP #$0005
BPL L07259E
SEC
SBC #$0000
BEQ L07255E
DEC
BEQ L072586
DEC
BEQ L07258D
DEC
DEC
BEQ L072596
BRA L07259E
L07255E PHY
LDA L054F93
LDX L054F95
PHX
PHA
JSL L0718FA
PLA
STA $01
LDA L054F93
LDX L054F95
STA $0B
STX $0D
LDY #$0002
LDA [$0B],Y
TAX
LDA [$0B]
STA $05
STX $07
BRA L0725A2
L072586 LDA L054F97
STA $09
BRA L0725A2
L07258D JSL L1517D3
BRL L072615
BRA L0725A2
L072596 JSL L150D2C
BRA L072615
BRA L0725A2
L07259E LDA $14
STA $09
L0725A2 LDA #$FFFF
CMP $09
BEQ L0725C6
LDA $09
ASL
ASL
TAX
LDAL L054B04+2,X
PHA
LDAL L054B04,X
PHA
JSL L071653
LDA #L054E4B
LDX #^L054E4B
STA $05
STX $07
L0725C6 LDX #$0000
LDA #$0003
CMP L054FA1
BNE L0725D2
INX
L0725D2 TXA
BEQ L0725F9
LDX #$0000
LDA #$0003
CMP $14
BNE L0725E0
INX
L0725E0 TXA
BEQ L0725F9
PHY
PHY
PEI $07
PEI $05
PEA $8000
PEA $0000
JSL L150241
PLA
STA $05
PLX
STX $07
L0725F9 PEI $07
PEI $05
JSL L150D26
LDA $14
DEC
DEC
BNE L072615
LDA L054F93
LDX L054F95
PHX
PHA
PEI $01
JSL L0718DA
L072615 LDA $14
STA L054FA1
BRA L072622
L07261C LDA #$0001
STA L054F9F
L072622 LDA $12
STA $14
LDA $11
STA $13
LDA $0F
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L072634 ENT
PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
LDY #$00C8
LDA [$1C],Y
TAX
DEY
DEY
LDA [$1C],Y
STA $0F
STX $11
L07264A LDA $0F
ORA $11
BEQ L0726C7
LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $01
STX $03
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$0000
BNE L07266E
CPX #$8700
L07266E BNE L0726B9
PHY
PHY
LDY #$0022
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
PEA $00FF
PEA $FFFF
JSL L15017E
PLA
STA $0B
PLX
STX $0D
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEI $0D
PEI $0B
JSL L1502EE
LDAL L05565D
BNE L0726B9
PEI $0D
PEI $0B
JSL L07191C
PEA $0002
PEI $05
PEI $09
PEI $07
JSL L1510BF
L0726B9 LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $0F
STX $11
BRA L07264A
L0726C7 PEI $1E
PEI $1C
JSL L151385
LDAL L0550EF
PHA
LDAL L0550ED
PHA
JSL L151131
LDA #$0001
STA L054F9F
JSL L151466
LDA $1A
STA $1E
LDA $19
STA $1D
LDA $17
TCD
TSC
CLC
ADC #$001C
TCS
RTL
L0726F9 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PEI $0A
PEA $0001
PEA $0960
JSL L072032
PLA
CMP #$0001
BEQ L072719
LDA #$0000
BRA L07271C
L072719 LDA #$0001
L07271C STA $0C
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L07272E ENT
PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
JSL L072314
LDA L054F99
BNE L072777
LDA #$0001
STA L054F99
PEA $0000
TDC
CLC
ADC #$0001
PHA
LDA $2A
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L040A81
PEA L040A81
PEA ^L040A82
PEA L040A82
PEA ^L040A83
*
PEA L040A83
JSL L073C22
PEA $0000
JSL L07479E
L072777 PHY
JSL L0727BF
PLA
STA $15
PHY
PHY
PEA $0898
JSL L072834
PLA
STA $17
PLX
STX $19
PEI $19
PEI $17
JSL L15102F
PHY
PEA $0000
JSL L0736C8
PLA
STA $15
PEI $19
PEI $17
JSL L072634
JSL L070000
LDA $28
STA $2A
LDA $27
STA $29
LDA $25
TCD
TSC
CLC
ADC #$0028
TCS
RTL
L0727BF ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FA1
STA $0A
JSL L1517D3
LDA #$0004
STA L054FA1
LDA #$0001
STA L054F9F
PLY
PLY
PLD
RTL
L0727E0 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PHY
PEI $0C
PEA $0000
PEA $07D0
JSL L072032
PLA
STA $01
LDA $0A
STA $0C
LDA $09
STA $0B
LDA $07
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L072809 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0E
PEI $0C
PHY
PHY
PEI $0A
JSL L0711EB
PEA $0100
JSL L0313BE
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L072834 ENT
PHD
TSC
CLC
ADC #$FF58
TCS
TCD
STZ $B0
STZ $B2
PHY
JSL L150B6A
PLA
STA $A3
PHY
PEA $FFFF
JSL L1506E1
PLA
STA $A1
LDAL L055271
PHA
JSL L150B70
PHY
PHY
PEA $0001
LDA $AE
JSL L150488
PHX
PHA
JSL L15041C
PLA
STA $99
PLX
STX $9B
LDAL L05565D
BEQ L07287C
BRL L072AEB
L07287C TDC
CLC
ADC #$0007
PEA $0000
PHA
PEA $0000
PEA $004E
JSL L071EC5
LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
STA $03
STX $05
LDA #$004E
STA $07
LDA [$03]
STA $09
LDY #$0010
LDA [$03],Y
TAX
DEY
DEY
LDA [$03],Y
STA $0F
STX $11
LDA #$00C8
STA $27
LDA #$0280
STA $29
TDC
CLC
ADC #$0045
PEA $0000
PHA
LDA #$0006
CLC
ADC $03
LDX $05
BCC L0728D0
INX
L0728D0 PHX
PHA
PEA $0008
JSL L0313BE
LDA #$FFFF
TAX
STA $4D
STX $4F
TDC
CLC
ADC #$007F
PEA $0000
PHA
LDA #$0012
CLC
ADC $03
LDX $05
BCC L0728F5
INX
L0728F5 PHX
PHA
PEA $0008
JSL L0313BE
TDC
CLC
ADC #$0077
PEA $0000
PHA
LDA #$001A
CLC
ADC $03
LDX $05
BCC L072912
INX
L072912 PHX
PHA
PEA $0008
JSL L0313BE
PHY
PHY
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L15027E
PLA
STA $9D
PLX
STX $9F
LDAL L05565D
BEQ L072939
BRL L072AD9
L072939 LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
CLC
ADC #$0002
BCC L072948
INX
L072948 STA $A5
STX $A7
LDY #$0002
LDA [$A5],Y
TAX
LDA [$A5]
STA $87
STX $89
LDA $87
ORA $89
BEQ L072975
PHY
PHY
PEI $9F
PEI $9D
PEA $0009
PEI $89
PEI $87
JSL L15163F
PLA
STA $95
PLX
STX $97
L072975 PHY
TDC
CLC
ADC #$007F
PEA $0000
PHA
JSL L1500E3
PLA
LSR
BCC L0729B6
PEA ^L040B03
PEA L040B03
TDC
CLC
ADC #$007F
PEA $0000
PHA
PEA $0008
JSL L0313BE
PHY
PHY
PEI $9F
PEI $9D
PEA $0000
PEA ^L040AFD
PEA L040AFD
JSL L15163F
PLA
STA $95
PLX
STX $97
L0729B6 PHY
TDC
CLC
ADC #$0077
PEA $0000
PHA
JSL L1500E3
PLA
LSR
BCC L0729F7
PEA ^L040B2E
PEA L040B2E
TDC
CLC
ADC #$0077
PEA $0000
PHA
PEA $0008
JSL L0313BE
PHY
PHY
PEI $9F
PEI $9D
PEA $0000
PEA ^L040B28
PEA L040B28
JSL L15163F
PLA
STA $95
PLX
STX $97
L0729F7 LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
CLC
ADC #$0022
BCC L072A06
INX
L072A06 STA $A5
STX $A7
LDA [$A5]
STA $01
LDA $01
SEC
SBC #$0001
BVS L072A19
EOR #$8000
L072A19 BMI L072A1E
BRL L072AD1
L072A1E LDA #$0001
STA $93
L072A23 TDC
CLC
ADC #$0055
PEA $0000
PHA
LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
CLC
ADC #$0024
BCC L072A3B
INX
L072A3B PHX
PHA
LDA $93
JSL L150488
TAY
BNE L072A47
DEX
L072A47 DEC
PEA $0000
PEA $0022
JSL L150D50
PLA
PLX
JSL L150F53
PHX
PHA
PEA $0022
JSL L0313BE
LDA $71
LDX $73
STA $8F
STX $91
PHY
PHY
PEA $801D
PEI $91
PEI $8F
JSL L15041C
PLA
STA $8B
PLX
STX $8D
LDAL L05565D
BNE L072AC6
PEI $8D
PEI $8B
JSL L0718BF
PHY
PHY
PEI $6D
PEI $6B
PEI $8D
PEI $8B
JSL L150241
PLA
STA $6B
PLX
STX $6D
LDY #$0002
LDA [$8B],Y
TAX
LDA [$8B]
STA $71
STX $73
PHY
PHY
PEI $9F
PEI $9D
PEA $0000
TDC
CLC
ADC #$0055
PEA $0000
PHA
JSL L15163F
PLA
STA $95
PLX
STX $97
L072AC6 LDA $93
CMP $01
BEQ L072AD1
INC $93
BRL L072A23
L072AD1 LDA $9D
LDX $9F
STA $B0
STX $B2
L072AD9 PEA $0200
PEA $0001
LDA $AE
JSL L150488
PHX
PHA
JSL L1510BF
L072AEB PEI $A3
JSL L150B70
PHY
PEI $A1
JSL L1506E1
PLA
STA $A1
PEA ^L0540CD
PEA L0540CD
JSL L151071
LDA $AC
STA $AE
LDA $AB
STA $AD
LDA $A9
TCD
TSC
CLC
ADC #$00AC
TCS
RTL
L072B17 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEI $16
PEI $14
LDA $12
JSL L150488
PHX
PHA
JSL L151367
PLA
STA $01
PLX
STX $03
LDAL L05565D
BNE L072B59
PEI $10
PEI $0E
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0008
BCC L072B50
INX
L072B50 PHX
PHA
PEA $0008
JSL L0313BE
L072B59 LDA $0C
STA $16
LDA $0B
STA $15
LDA $09
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L072B6B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
PHY
PEI $0E
PEI $0C
LDA $0A
JSL L150488
PHX
PHA
JSL L151367
JSL L151313
PLA
STA $10
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L072B9F ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
PHY
JSL L071BFF
PLA
STA $01
STZ $07
STZ $09
STZ $03
STZ $05
LDA $1A
ORA $1C
BEQ L072BD6
LDA [$1A]
LDY #$0002
ORA [$1A],Y
BEQ L072BD6
LDY #$0002
LDA [$1A],Y
TAX
LDA [$1A]
STA $0D
STX $0F
LDA [$0D]
STA $07
L072BD6 LDA $16
ORA $18
BEQ L072BF5
LDA [$16]
LDY #$0002
ORA [$16],Y
BEQ L072BF5
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
STA $0D
STX $0F
LDA [$0D]
STA $09
L072BF5 LDA $09
CLC
ADC $07
STA $0B
LDA $0B
BPL L072C03
BRL L072CB4
L072C03 BNE L072C08
BRL L072CB4
L072C08 PHY
PHY
LDA $0B
INC
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $03
PLX
STX $05
LDAL L05565D
BEQ L072C34
BRL L072CB4
L072C34 LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
STA $0D
STX $0F
LDA $0B
STA [$0D]
LDA $07
BEQ L072C76
LDY #$0002
LDA [$1A],Y
TAX
LDA [$1A]
CLC
ADC #$0002
BCC L072C57
INX
L072C57 PHX
PHA
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
CLC
ADC #$0002
BCC L072C68
INX
L072C68 PHX
PHA
LDA $07
JSL L150488
PHX
PHA
JSL L070597
L072C76 LDA $09
BEQ L072CB4
LDY #$0002
LDA [$16],Y
TAX
LDA [$16]
CLC
ADC #$0002
BCC L072C89
INX
L072C89 PHX
PHA
LDY #$0002
LDA [$03],Y
TAX
LDA [$03]
CLC
ADC #$0002
BCC L072C9A
INX
L072C9A PHX
PHA
LDA $07
JSL L150488
JSL L150F53
PHX
PHA
LDA $09
JSL L150488
PHX
PHA
JSL L070597
L072CB4 LDA $03
LDX $05
STA $1E
STX $20
PEI $01
JSL L071AA4
LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L072CD4 ENT
PHD
TSC
CLC
ADC #$FEFA
TCS
ADC #$0013
TCD
STZ $ED
LDA $F8
ORA $FA
BEQ L072D00
LDA [$F8]
LDY #$0002
ORA [$F8],Y
BEQ L072D00
LDY #$0002
LDA [$F8],Y
TAX
LDA [$F8]
STA $EF
STX $F1
LDA [$EF]
STA $ED
L072D00 LDA $ED
SEC
SBC #$00FE
BEQ L072D14
BVS L072D0D
EOR #$8000
L072D0D BPL L072D14
LDA #$00FE
STA $ED
L072D14 LDA $ED
LDX #$FFED
SEP #$20
STA $00,X
REP #$20
LDA $ED
BMI L072D4B
BEQ L072D4B
LDY #$0002
LDA [$F8],Y
TAX
LDA [$F8]
CLC
ADC #$0002
BCC L072D34
INX
L072D34 PHX
PHA
PEA $0000
TDC
CLC
ADC #$FFEE
PHA
LDA $ED
JSL L150488
PHX
PHA
JSL L070597
L072D4B PEI $FE
PEI $FC
PEA $0000
TDC
CLC
ADC #$FFED
PHA
PEA $0100
JSL L0313BE
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010C
TCS
RTL
L072D71 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
JSL L071BFF
PLA
STA $07
STZ $05
LDA $12
ORA $14
BEQ L072DA2
LDA [$12]
LDY #$0002
ORA [$12],Y
BEQ L072DA2
LDY #$0002
LDA [$12],Y
TAX
LDA [$12]
STA $09
STX $0B
LDA [$09]
STA $05
L072DA2 PHY
PHY
LDA $05
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $01
PLX
STX $03
LDAL L05565D
BEQ L072DD0
STZ $01
STZ $03
BRA L072E14
L072DD0 LDA $05
BEQ L072DFA
LDY #$0002
LDA [$12],Y
TAX
LDA [$12]
CLC
ADC #$0002
BCC L072DE3
INX
L072DE3 PHX
PHA
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDA $05
JSL L150488
PHX
PHA
JSL L070597
L072DFA LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $09
STX $0B
LDA $05
INC
DEC
TAY
LDA #$0000
SEP #$20
STA [$09],Y
REP #$20
L072E14 PEI $07
JSL L071AA4
LDA $01
LDX $03
STA $16
STX $18
LDA $10
STA $14
LDA $0F
STA $13
LDA $0D
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L072E34 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L1503A1
PLA
STA $0A
PLX
STX $0C
PLY
PLY
PLD
RTL
L072E4C ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
PEI $0E
PEI $0C
LDA $0A
JSL L150488
PHX
PHA
JSL L151367
JSL L150AFE
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L072E7C ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $10
PHY
PHY
PEI $0E
PEI $0C
LDA $0A
JSL L150488
PHX
PHA
JSL L151367
JSL L150B10
LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L072EAE ENT
PHD
TSC
CLC
ADC #$FEF0
TCS
ADC #$001F
TCD
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
PEI $F8
PEI $F6
PEA $0100
JSL L0313BE
PHY
JSL L071BFF
PLA
STA $E1
STZ $FC
STZ $FE
PHY
PEI $FA
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
TDC
CLC
ADC #$00EB
PEA $0000
PHA
TDC
CLC
ADC #$00E7
PEA $0000
PHA
JSL L070A4D
PLA
LSR
BCC L072F44
PHY
JSL L150B6A
PLA
STA $E5
PEI $EB
JSL L150B70
PHY
PEA $0001
JSL L1506E1
PLA
STA $E3
PHY
PHY
PEI $FA
PEI $E9
PEI $E7
JSL L15041C
PLA
STA $FC
PLX
STX $FE
LDAL L05565D
BEQ L072F34
STZ $FC
STZ $FE
L072F34 PEI $E5
JSL L150B70
PHY
PEI $E3
JSL L1506E1
PLA
STA $E3
L072F44 PEI $E1
JSL L071AA4
LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$0118
TCS
RTL
L072F5C ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
STZ $0E
PHY
PHY
PEA $8027
PEI $0C
PEI $0A
JSL L15041C
PLA
STA L054F93
PLA
STA L054F95
LDAL L05565D
BNE L072F95
PEA $0000
LDA L054F93
LDX L054F95
PHX
PHA
JSL L150D44
LDA #$0001
STA $0E
L072F95 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L072FA6 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA $0C
STA $0E
LDA $0A
SEC
SBC $0C
BEQ L072FC4
BVS L072FBE
EOR #$8000
L072FBE BPL L072FC4
LDA $0A
STA $0E
L072FC4 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L072FD5 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA $0C
STA $0E
LDA $0A
SEC
SBC $0C
BVS L072FEB
EOR #$8000
L072FEB BMI L072FF1
LDA $0A
STA $0E
L072FF1 LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L073002 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0E
PEI $0C
PHY
PHY
LDA #$03E8
CLC
ADC $0A
PHA
JSL L0711EB
PEA $0100
JSL L0313BE
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L073032 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEI $12
PEI $10
LDA $0E
JSL L150488
PHX
PHA
JSL L151367
PLA
STA $01
PLX
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0008
BCC L073061
INX
L073061 STA $14
STX $16
LDA $0C
STA $12
LDA $0B
STA $11
LDA $09
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L073077 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PHY
PEI $0C
JSL L150144
PLA
AND #$0080
BEQ L07308F
LDA #$0001
L07308F EOR #$0001
STA $01
LDA $0E
CMP $01
BEQ L0730AC
LDA $0E
BEQ L0730A6
PEI $0C
JSL L150B52
BRA L0730AC
L0730A6 PEI $0C
JSL L150B4C
L0730AC LDA $0A
STA $0E
LDA $09
STA $0D
LDA $07
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0730BE ENT
PHD
TSC
CLC
ADC #$FEDA
TCS
ADC #$0035
TCD
PEA $0000
TDC
CLC
ADC #$FFCF
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
STZ $FC
STZ $FE
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFCF
PHA
JSL L0735A8
PLA
STA $DD
PLX
STX $DF
PHY
PHY
PEA $0000
PEA $0044
LDA L054FBD
PHA
PEA $8010
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $E5
PLX
STX $E7
LDAL L05565D
BEQ L07311E
BRL L07329D
L07311E LDY #$0002
LDA [$E5],Y
TAX
LDA [$E5]
STA $E9
STX $EB
LDA #$0044
STA [$E9]
L07312F LDA #$0003
STA $CF
LDY #$0002
LDA [$DD],Y
TAX
LDA [$DD]
STA $D1
STX $D3
LDA $E9
LDX $EB
STA $D5
STX $D7
STZ $D9
TDC
CLC
ADC #$00CF
PEA $0000
PHA
PEA $200E
JSL GSOS2
STAL L05565D
LDAL L05565D
STA $DB
LDA #$004F
CMP $DB
BNE L0731A9
PEI $E7
PEI $E5
JSL L1516B7
LDY #$0002
LDA #$0004
CLC
ADC [$E9],Y
JSL L150488
PHX
PHA
PEI $E7
PEI $E5
JSL L1512FB
PEI $E7
PEI $E5
JSL L150BB8
LDY #$0002
LDA [$E5],Y
TAX
LDA [$E5]
STA $E9
STX $EB
LDY #$0002
LDA #$0004
CLC
ADC [$E9],Y
STA [$E9]
L0731A9 LDA #$004F
CMP $DB
BNE L0731B3
BRL L07312F
L0731B3 LDA $DB
BEQ L0731BA
BRL L073295
L0731BA PHY
PHY
LDY #$0002
LDA [$E9],Y
INC
INC
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $E1
PLX
STX $E3
LDAL L05565D
BEQ L0731EA
BRL L073295
L0731EA LDY #$0002
LDA [$E5],Y
TAX
LDA [$E5]
STA $E9
STX $EB
LDA $E9
LDX $EB
CLC
ADC #$0002
BCC L073201
INX
L073201 PHX
PHA
LDY #$0002
LDA [$E1],Y
PHA
LDA [$E1]
PHA
LDY #$0002
LDA [$E9],Y
INC
INC
JSL L150488
PHX
PHA
JSL L070597
LDA $F6
BEQ L07328D
LDY #$0002
LDA [$E1],Y
TAX
LDA [$E1]
TXY
LDX #$FFCB
STA $00,X
TYA
STA $02,X
LDX #$FFCB
LDA $02,X
PHA
LDA $00,X
PHA
LDX #$FFCB
LDA $02,X
PHA
LDA $00,X
PHA
PLA
PLX
STA $ED
STX $EF
LDA [$ED]
INC
PLX
STX $ED
PLX
STX $EF
STA [$ED]
LDX #$FFCB
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$0002
BCC L073265
INX
L073265 PHX
PHA
LDX #$FFCB
LDA $02,X
PHA
LDA $00,X
PHA
PLA
PLX
STA $ED
STX $EF
LDA [$ED]
DEC
JSL L150488
JSL L150F53
STA $ED
STX $EF
SEP #$20
LDA #$3A
STA [$ED]
REP #$20
L07328D LDA $E1
LDX $E3
STA $FC
STX $FE
L073295 PEI $E7
PEI $E5
JSL L07185A
L07329D PEI $DF
PEI $DD
JSL L07185A
LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$012E
TCS
RTL
L0732B7 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PEI $10
PEI $0E
JSL L150278
PHY
PHY
JSL L150BA0
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BNE L0732DB
BRA L0732EB
L0732DB PHY
PEI $03
PEI $01
JSL L15145A
PLA
LSR
BCC L0732EB
STZ L054FB5
L0732EB LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L0732FD ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $12
PEI $10
PEI $0E
PEI $0C
PEI $0A
JSL L15101D
LDAL L05565D
BEQ L07332B
JSL L151373
PEI $12
PEI $10
PEI $0E
PEI $0C
PEI $0A
JSL L15101D
L07332B LDX #$0000
LDAL L05565D
BNE L073335
INX
L073335 TXA
STA $14
LDA $08
STA $12
LDA $07
STA $11
LDA $05
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L07334A ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
LDA $3A
BNE L0733CE
LDAL L040A85
SEP #$20
STA $1D
REP #$20
L073360 TDC
CLC
ADC #$001D
PEA $0000
PHA
LDA $3C
AND #$000F
INC
TAX
LDA #$00FF
ANDL L040A86,X
XBA
INC
LDX #$0001
STA $00,X
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$001D
PEA $0000
PHA
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PHY
PHY
PEA $0FFF
PEA $FFFF
PHY
PHY
PEI $3E
PEI $3C
PEA $0004
JSL L150337
JSL L15017E
PLA
STA $3C
PLX
STX $3E
LDA $3C
ORA $3E
BNE L073360
BRA L073446
L0733CE PHY
PEI $3A
PEA $0000
PEA $0013
JSL L071A1B
PLA
STA $3A
LDA $3A
SEP #$20
STA $1D
REP #$20
LDA $3A
STA $03
LDA #$0001
SEC
SBC $03
BEQ L0733F9
BVS L0733F7
EOR #$8000
L0733F7 BMI L073446
L0733F9 LDA $03
STA $1B
L0733FD TDC
CLC
ADC #$001D
STA $31
STZ $33
LDY $1B
LDA $3C
AND #$000F
INC
TAX
LDA #$00FF
ANDL L040A97,X
PHA
PLA
SEP #$20
STA [$31],Y
REP #$20
PHY
PHY
PEA $0FFF
PEA $FFFF
PHY
PHY
PEI $3E
PEI $3C
PEA $0004
JSL L150337
JSL L15017E
PLA
STA $3C
PLX
STX $3E
LDA $1B
DEC
BEQ L073446
DEC $1B
BRA L0733FD
L073446 PEI $42
PEI $40
TDC
CLC
ADC #$001D
PEA $0000
PHA
PEA $0014
JSL L0313BE
LDA $38
STA $3E
LDA $37
STA $3D
LDA $35
TCD
TSC
CLC
ADC #$003C
TCS
RTL
L07346C ENT
PHD
TSC
CLC
ADC #$FFD2
TCS
TCD
PEI $36
PEI $34
LDA #$0000
TAX
JSL L033477
BPL L0734C7
PEI $3A
PEI $38
PEA ^L040AA8
PEA L040AA8
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEI $36
PEI $34
LDA $03,S
EOR #$FFFF
TAX
PLA
EOR #$FFFF
PLY
INC
BNE L0734A8
INX
L0734A8 PHX
PHA
JSL L0715D9
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
BRA L0734E3
L0734C7 PEI $3A
PEI $38
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEI $36
PEI $34
JSL L0715D9
PEA $0014
JSL L0313BE
L0734E3 LDA $32
STA $36
LDA $31
STA $35
LDA $2F
TCD
TSC
CLC
ADC #$0034
TCS
RTL
L0734F5 ENT
PHD
TSC
CLC
ADC #$FEEC
TCS
ADC #$0021
TCD
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
PHY
JSL L071BFF
PLA
STA $DF
LDA #$00FF
LDX #$FFDF
AND $00,X
STA $ED
STZ $FC
STZ $FE
PHY
PHY
LDA $ED
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $E9
PLX
STX $EB
LDAL L05565D
BNE L073590
TDC
CLC
ADC #$FFE0
STA $E5
STZ $E7
LDY #$0002
LDA [$E9],Y
TAX
LDA [$E9]
STA $E1
STX $E3
PEI $E7
PEI $E5
PEI $E3
PEI $E1
LDA $ED
JSL L150488
PHX
PHA
JSL L070597
LDA $ED
INC
DEC
TAY
SEP #$20
LDA #$00
STA [$E1],Y
REP #$20
LDA $E9
LDX $EB
STA $FC
STX $FE
L073590 PEI $DF
JSL L071AA4
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$011A
TCS
RTL
L0735A8 ENT
PHD
TSC
CLC
ADC #$FEF4
TCS
ADC #$0019
TCD
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
PHY
JSL L071BFF
PLA
STA $E7
STZ $FC
STZ $FE
LDA #$00FF
LDX #$FFE7
AND $00,X
STA $E9
PHY
PHY
LDA $E9
INC
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $EB
PLX
STX $ED
LDAL L05565D
BNE L073648
LDY #$0002
LDA [$EB],Y
TAX
LDA [$EB]
STA $EF
STX $F1
LDA $E9
STA [$EF]
LDA $E9
BEQ L073640
PEA $0000
TDC
CLC
ADC #$FFE8
PHA
LDY #$0002
LDA [$EB],Y
TAX
LDA [$EB]
CLC
ADC #$0002
BCC L073632
INX
L073632 PHX
PHA
LDA $E9
JSL L150488
PHX
PHA
JSL L070597
L073640 LDA $EB
LDX $ED
STA $FC
STX $FE
L073648 PEI $E7
JSL L071AA4
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$0112
TCS
RTL
L073660 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
LDA $14
LDX $16
STA $03
STX $05
TDC
CLC
ADC #$0003
PEA $0000
PHA
JSL L071B83
PEI $05
PEI $03
LDA $14
LDX $16
JSL L1512A5
STA $01
LDA $01
SEP #$20
STA [$10]
REP #$20
LDA $01
BMI L0736B6
BEQ L0736B6
PEI $16
PEI $14
LDA #$0001
CLC
ADC $10
LDX $12
BCC L0736A8
INX
L0736A8 PHX
PHA
LDA $01
JSL L150488
PHX
PHA
JSL L070597
L0736B6 LDA $0E
STA $16
LDA $0D
STA $15
LDA $0B
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L0736C8 ENT
PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
PHY
PHY
JSL L150BA0
PLA
STA $13
PLX
STX $15
LDY #$00B0
LDA [$13],Y
TAX
DEY
DEY
LDA [$13],Y
TXA
STA $09
L0736E9 PHY
PEA $0140
PEA ^L05409F
PEA L05409F
JSL L150070
PLA
LSR
BCC L07375A
LDAL L0540A3
TAX
LDAL L0540A1
STA $17
STX $19
LDA $17
LDX $19
CMP $13
BNE L073712
CPX $15
L073712 BEQ L073719
LDA #$0000
BRA L07371C
L073719 LDA #$0001
L07371C PHA
LDX #$0000
LDA #$0006
CMPL L05409F
BNE L07372A
INX
L07372A TXA
AND $01,S
PLX
LSR
BCC L07375A
LDA #$8000
AND $09
BEQ L073742
LDA #$FFFE
STA $28
BRL L0739D2
BRA L07375A
L073742 PEI $19
PEI $17
JSL L1506B3
PEI $19
PEI $17
JSL L1517CD
PEI $19
PEI $17
JSL L1506AD
L07375A LDA #$4000
AND $09
BNE L073771
LDA #$AF06
STAL L0540B3
LDA #$001A
STAL L0540B5
BRA L07377F
L073771 LDA #$AF06
STAL L0540B3
LDA #$0018
STAL L0540B5
L07377F LDA #$0000
STAL L0540C5
STAL L0540C7
PHY
PEA $FFFF
PEA ^L05409F
PEA L05409F
JSL L15141E
PLA
STA $1B
LDAL L0540B1
TAX
LDAL L0540AF
STA $17
STX $19
LDA #$4000
AND $09
BEQ L0737D5
LDX #$0000
LDA #$0003
CMP $1B
BNE L0737BA
INX
L0737BA PHX
LDX #$0000
LDA #$0005
CMP $1B
BNE L0737C6
INX
L0737C6 TXA
ORA $01,S
PLX
LSR
BCC L0737D5
LDA #$FFFD
STA $28
BRL L0739D2
L0737D5 PHY
TDC
CLC
ADC #$000D
PEA $0000
PHA
LDAL L0540AB
PHA
LDAL L0540A9
PHA
PEI $15
PEI $13
JSL L150482
PLA
STA $11
LDA #$7FFF
AND $1B
CMP #$0013
BEQ L073801
BRL L073897
L073801 LDA $17
LDX $19
CMP $13
BNE L07380B
CPX $15
L07380B BEQ L073814
JSL L072314
BRL L073897
L073814 LDA $11
BEQ L073888
PHY
PHY
PEI $0F
PEI $0D
JSL L1506F9
PLY
PLA
STA $07
PHY
PHY
PEI $0F
PEI $0D
JSL L150132
PLA
STA $01,S
PLA
STA $0B
LDA #$8000
AND $07
BNE L073872
PEI $11
PHY
LDAL L0540AB
PHA
LDAL L0540A9
PHA
PEA $FFFF
PEA $FFFF
PEI $0F
PEI $0D
JSL L150B0A
PLA
SEC
SBC $01,S
STA $01,S
PLA
BNE L073870
LDA $0B
JSL L150488
STAL L0540C5
TXA
STAL L0540C7
L073870 BRA L073881
L073872 LDA $0B
JSL L150488
STAL L0540C5
TXA
STAL L0540C7
L073881 LDA #$0021
STA $1B
BRA L073897
L073888 LDA #$1000
AND $09
BEQ L073897
LDA #$FFFC
STA $28
BRL L0739D2
L073897 LDX #$0000
LDA #$0010
CMP $1B
BNE L0738A2
INX
L0738A2 PHX
LDX #$0000
LDA #$0011
CMP $1B
BNE L0738AE
INX
L0738AE TXA
ORA $01,S
PLX
LSR
BCC L0738B9
JSL L072314
L0738B9 LDA #$000C
CMP $1B
BNE L0738EF
LDA $26
BEQ L0738E7
PEA $0001
PEI $19
PEI $17
PEA $0002
JSL L072E7C
PEA $0000
PEI $19
PEI $17
PEA $0002
JSL L072E7C
LDA #$0002
STA $28
BRA L0738EC
L0738E7 LDA #$FFFF
STA $28
L0738EC BRL L0739D2
L0738EF LDX #$0000
LDA $1B
BNE L0738F7
INX
L0738F7 PHX
LDX #$0000
LDA #$0006
CMP $1B
BNE L073903
INX
L073903 TXA
ORA $01,S
PLX
LSR
BCS L07390D
BRL L0739C2
L07390D LDA #$2000
AND $09
BEQ L07391C
STZ $28
BRL L0739D2
BRL L0739C2
L07391C LDA #$0000
STAL L05409F
PHY
PEA $0001
PEI $15
PEI $13
PEA ^L05409F
PEA L05409F
JSL L150365
PLA
STA $05
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
STA $01
STX $03
PEA ^L0540A9
PEA L0540A9
JSL L150BE8
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$0000
BNE L073960
CPX #$8300
L073960 BEQ L073967
LDA #$0000
BRA L07396A
L073967 LDA #$0001
L07396A PHA
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$0000
BNE L07397D
CPX #$8500
L07397D BEQ L073984
LDA #$0000
BRA L073987
L073984 LDA #$0001
L073987 BEQ L0739AC
PHA
PHY
PEA ^L0540A9
PEA L0540A9
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
CLC
ADC #$0040
BCC L0739A0
INX
L0739A0 PHX
PHA
JSL L1512CB
PLA
STA $1D
PLA
AND $1D
L0739AC ORA $01,S
PLX
LSR
BCC L0739BB
PEA $0008
JSL L0724F7
BRA L0739C2
L0739BB PEA $0004
JSL L0724F7
L0739C2 LDA #$0021
CMP $1B
BEQ L0739CC
BRL L0736E9
L0739CC LDAL L0540C5
STA $28
L0739D2 LDA $24
STA $26
LDA $23
STA $25
LDA $21
TCD
TSC
CLC
ADC #$0024
TCS
RTL
L0739E4 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
PHY
PEI $1A
PEI $18
LDA $16
JSL L150488
PHX
PHA
JSL L151367
PLA
STA $05
PLX
STX $07
PEI $07
PEI $05
JSL L150FE1
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
CLC
ADC #$001C
BCC L073A1B
INX
L073A1B STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
STA $01
STX $03
PEI $14
PEI $12
PEI $03
PEI $01
JSL L1512D1
LDA $10
STA $1A
LDA $0F
STA $19
LDA $0D
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L073A49 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
PHY
PEA $0003
PEA $0100
PEA $002E
JSL L151496
PLA
STA $01
LDA #$0001
STA L054FB1
PHY
PHY
JSL L151319
PLA
STA L054FA9
PLA
STA L054FAB
PLY
PLY
PLY
PLD
RTL
L073A7B ENT
PHD
TSC
CLC
ADC #$FEF4
TCS
ADC #$001F
TCD
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
PEI $F4
PEI $F2
PEA $0100
JSL L0313BE
PHY
PHY
PEI $FA
PEI $F8
LDA $F6
JSL L150488
PHX
PHA
JSL L151367
PLA
STA $E5
PLX
STX $E7
LDY #$0002
LDA [$E5],Y
TAX
LDA [$E5]
CLC
ADC #$001C
BCC L073AC1
INX
L073AC1 STA $E9
STX $EB
LDY #$0002
LDA [$E9],Y
TAX
LDA [$E9]
STA $E1
STX $E3
PEA $0000
TDC
CLC
ADC #$FFE2
PHA
LDA #$00FF
LDX #$FFE1
AND $00,X
PHA
PEI $E3
PEI $E1
JSL L151651
PEI $E7
PEI $E5
JSL L151041
LDA $F0
STA $FA
LDA $EF
STA $F9
LDA $ED
TCD
TSC
CLC
ADC #$0118
TCS
RTL
L073B05 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $10
PHY
PHY
PEI $0E
PEI $0C
LDA $0A
JSL L150488
PHX
PHA
JSL L151367
JSL L15130D
LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L073B37 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA $16
ASL
ASL
TAX
LDAL L0540CF,X
PHA
LDAL L0540CD,X
PLX
CMP #L05409D
BNE L073B56
CPX #^L05409D
L073B56 BNE L073B5D
LDA #$0000
BRA L073B60
L073B5D LDA #$0001
L073B60 PHA
LDA $16
ASL
ASL
TAX
LDAL L0540CD,X
ORAL L0540CF,X
BEQ L073B73
LDA #$0001
L073B73 AND $01,S
PLX
LSR
BCC L073BA7
PHY
PHY
LDA $16
ASL
ASL
TAX
LDAL L0540CF,X
PHA
LDAL L0540CD,X
PHA
JSL L150586
JSL L07185A
LDA $16
ASL
ASL
TAX
PEA ^L05409D
PEA L05409D
PLA
STAL L0540CD,X
PLA
STAL L0540CF,X
L073BA7 LDA #$00FF
AND [$12]
BEQ L073C10
PHY
PHY
LDA #$00FF
AND [$12]
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $4000
PEA $0000
PEA $0000
JSL L1513F4
PLA
PLX
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $01
STX $03
LDAL L05565D
BNE L073C10
PEI $14
PEI $12
PEI $03
PEI $01
LDA #$00FF
AND [$12]
INC
JSL L150488
PHX
PHA
JSL L070597
LDA $16
ASL
ASL
TAX
PEI $03
PEI $01
PLA
STAL L0540CD,X
PLA
STAL L0540CF,X
L073C10 LDA $0C
STA $16
LDA $0B
STA $15
LDA $09
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L073C22 ENT
PHD
TSC
CLC
ADC #$FBFC
TCS
ADC #$031D
TCD
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FEE3
PHA
PEI $F6
PEI $F4
PEA $0100
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FDE3
PHA
PEI $F2
PEI $F0
PEA $0100
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FCE3
PHA
PEI $EE
PEI $EC
PEA $0100
JSL L0313BE
PEA $0000
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEA $0000
PHD
JSL L073B37
PEA $0001
PEA $0000
TDC
CLC
ADC #$FEE3
PHA
PEA $0000
PHD
JSL L073B37
PEA $0002
PEA $0000
TDC
CLC
ADC #$FDE3
PHA
PEA $0000
PHD
JSL L073B37
PEA $0003
PEA $0000
TDC
CLC
ADC #$FCE3
PHA
PEA $0000
PHD
JSL L073B37
LDA $EA
STA $FA
LDA $E9
STA $F9
LDA $E7
TCD
TSC
CLC
ADC #$0416
TCS
RTL
L073CDF ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA L054FA1
STA $0C
PEA $0006
JSL L0724F7
LDA #$0001
STA L054F9F
PLY
PLY
PLY
PLD
RTL
L073CFE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
PEI $0E
PEI $0C
LDA $0A
JSL L150488
PHX
PHA
JSL L151367
JSL L150AF8
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L073D2E ENT
PHD
TSC
CLC
ADC #$FFC0
TCS
TCD
PEA $0000
PEA $0000
JSL L087547
PHY
PHY
PEI $4A
PEI $48
LDA $46
JSL L150488
PHX
PHA
JSL L151367
PLA
STA $39
PLX
STX $3B
STZ $31
STZ $33
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
STA $09
STX $0B
LDY #$003C
LDA #$0003
AND [$09],Y
CMP #$0000
BNE L073D8C
LDY #$001E
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
STA $35
STX $37
LDY #$0012
LDA [$09],Y
STA $2F
BRA L073DD1
L073D8C PHY
PHY
PEA $800B
LDY #$001E
LDA [$09],Y
PHA
DEY
DEY
LDA [$09],Y
PHA
JSL L15041C
PLA
STA $31
PLX
STX $33
LDAL L05565D
BEQ L073DAF
BRL L073FCD
L073DAF PEI $33
PEI $31
JSL L0718BF
PHY
PHY
PEI $33
PEI $31
JSL L151301
PLA
PLX
STA $2F
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
STA $35
STX $37
L073DD1 TDC
CLC
ADC #$000D
PEA $0000
PHA
LDA #$0008
CLC
ADC $09
LDX $0B
BCC L073DE5
INX
L073DE5 PHX
PHA
PEA $0008
JSL L0313BE
PHY
PHY
PEA $0001
PEA ^L0540CD
PEA L0540CD
PEI $37
PEI $35
PEI $2F
JSL L1514A2
PLA
STA $2B
PLX
STX $2D
LDA $31
ORA $33
BEQ L073E17
PEI $33
PEI $31
JSL L07191C
L073E17 PHY
PHY
PEI $2D
PEI $2B
JSL L151301
PLA
PLX
INC
BNE L073E27
INX
L073E27 STA $2F
LDA $2F
JSL L150488
PHX
PHA
PEI $2D
PEI $2B
JSL L1512FB
LDY #$0002
LDA [$2B],Y
TAX
LDA [$2B]
STA $3D
STX $3F
LDA $2F
DEC
TAY
LDA #$0000
SEP #$20
STA [$3D],Y
REP #$20
PEI $2D
PEI $2B
JSL L0718BF
LDY #$0002
LDA [$2B],Y
TAX
LDA [$2B]
STA $35
STX $37
LDA $13
SEC
SBC $0F
STA $29
STZ $27
L073E6F LDA #$00FF
AND [$35]
BEQ L073EAE
PEI $37
PEI $35
PEI $29
TDC
CLC
ADC #$0025
PEA $0000
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
JSL L081B04
PEI $37
PEI $35
LDA $25
JSL L150488
JSL L150F53
STA $35
STX $37
LDA #$0009
CLC
ADC $27
STA $27
BRA L073E6F
L073EAE PEI $2D
PEI $2B
JSL L07185A
LDA $27
CLC
ADC $0D
SEC
SBC $11
BEQ L073EC7
BVS L073EC5
EOR #$8000
L073EC5 BMI L073ECA
L073EC7 BRL L073FCD
L073ECA LDA $11
SEC
SBC $0D
STA $3D
LDA $27
SEC
SBC $3D
STA $21
LDA #$0010
CLC
ADC $48
LDX $4A
BCC L073EE3
INX
L073EE3 STA $05
STX $07
LDY #$0004
LDA [$05],Y
SEC
SBC [$05]
STA $1D
LDY #$0006
LDA [$05],Y
LDY #$0002
SEC
SBC [$05],Y
STA $1F
LDY #$0006
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $19
STX $1B
PEI $4A
PEI $48
JSL L151131
TDC
CLC
ADC #$0019
PEA $0000
PHA
JSL L151412
LDA $21
CLC
ADC $19
SEC
SBC #$00C3
BEQ L073F3B
BVS L073F31
EOR #$8000
L073F31 BPL L073F3B
LDA #$00C3
SEC
SBC $19
STA $21
L073F3B PEI $1F
LDA $21
CLC
ADC $1D
PHA
PEI $4A
PEI $48
JSL L151035
LDY #$0002
LDA [$39],Y
TAX
LDA [$39]
CLC
ADC #$0008
BCC L073F5A
INX
L073F5A CLC
ADC #$0004
BCC L073F61
INX
L073F61 STA $3D
STX $3F
LDA $21
CLC
ADC $11
STA [$3D]
LDY #$00C8
LDA [$48],Y
TAX
DEY
DEY
LDA [$48],Y
STA $15
STX $17
L073F7A LDA $15
ORA $17
BEQ L073FCD
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
CLC
ADC #$0008
BCC L073F8F
INX
L073F8F STA $01
STX $03
LDA [$01]
SEC
SBC $11
BVS L073F9D
EOR #$8000
L073F9D BPL L073FB3
LDY #$0002
LDA [$01],Y
PHA
LDA $21
CLC
ADC [$01]
PHA
PEI $17
PEI $15
JSL L150B04
L073FB3 LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $3D
STX $3F
LDY #$0002
LDA [$3D],Y
TAX
LDA [$3D]
STA $15
STX $17
BRA L073F7A
L073FCD LDA $44
STA $4A
LDA $43
STA $49
LDA $41
TCD
TSC
CLC
ADC #$0048
TCS
RTL
L073FDF ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$00FF
AND [$16]
CLC
ADC $14
JSL L150488
PHX
PHA
JSL L151460
STZ $03
STZ $05
LDA $14
ASL
ASL
ASL
DEC
STA $01
LDA $01
BMI L07404D
STZ $07
L07400B PHY
JSL L150705
PLA
STA $09
PHY
PEI $18
PEI $16
LDA $07
JSL L150488
PHX
PHA
JSL L071E76
PLA
LSR
BCC L074043
PEI $05
PEI $03
PHY
JSL L150705
PLA
LDX #$0000
BIT #$8000
BEQ L07403B
DEX
L07403B JSL L150F53
STA $03
STX $05
L074043 LDA $07
CMP $01
BEQ L07404D
INC $07
BRA L07400B
L07404D LDA $03
LDX $05
STA $1A
STX $1C
LDA $12
STA $18
LDA $11
STA $17
LDA $0F
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L074067 PHD
TSC
SEC
SBC #$000C
TCD
TCS
STZ $05
STZ $07
LDA #$FFFF
STA $09
LDA L054FED
STA $01
LDA L054FEF
STA $03
LDA L055051
EOR #$0001
ORA $12
STA $0B
L07408C LDY #$000A
LDA [$01],Y
BPL L0740CD
LDY #$0000
LDA $09
CMP [$01],Y
BCC L0740CD
LDA $0B
BNE L0740BE
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP L055027
BNE L0740B4
CPX L055029
BEQ L0740CD
L0740B4 CMP L05501F
BNE L0740BE
CPX L055021
BEQ L0740CD
L0740BE LDA $01
STA $05
LDA $03
STA $07
LDY #$0000
LDA [$01],Y
STA $09
L0740CD LDA $01
CLC
ADC #$000E
STA $01
BCC L0740D9
INC $03
L0740D9 CMP L054FF1
BNE L07408C
LDA $03
CMP L054FF3
BNE L07408C
LDA $05
ORA $07
BEQ L07410F
PHY
PHY
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
_GetHandleSize
PLA
STA $14
PLA
STA $16
PEI $07
PEI $05
JSL L07481E
BRA L074139
L07410F STZ $14
STZ $16
PHY
LDA L055029
PHA
LDA L055027
PHA
JSL L0771D3
PLA
BNE L074139
PHY
LDA L055021
PHA
LDA L05501F
PHA
JSL L0771D3
PLA
BNE L074139
STZ L055013
STZ L055015
L074139 LDA $10
STA $12
LDA $0F
STA $11
LDX $0D
TDC
CLC
ADC #$0010
TCS
TXA
TCD
RTL
PHD
PHY
PHY
PHY
PHY
TSC
TCD
LDA L054FED
STA $01
LDA L054FEF
STA $03
LDA L054FF1
STA $05
LDA L054FF3
STA $07
L074167 LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L074194
LDY #$000C
LDA [$01],Y
BEQ L074194
LDA #$0000
STA [$01],Y
LDY #$000A
LDA [$01],Y
BMI L074194
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L07711B
L074194 LDA $01
CLC
ADC #$000E
STA $01
BCC L0741A0
INC $03
L0741A0 CMP $05
BNE L074167
LDA $03
CMP $07
BNE L074167
STZ L05500F
STZ L055011
TDC
TCS
PLY
PLY
PLY
PLY
PLD
RTL
L0741B8 PHD
TSC
TCD
LDA L054FC9
LDX L054FCB
STA $0A
STX $0C
LDY #$0002
LDA $06
CMP [$0A],Y
BNE L0741E5
INY
INY
LDA [$0A],Y
CMP $08
BNE L0741E5
LDY #$000A
LDA [$0A],Y
AND #$000F
CMP L054FC1
BNE L0741E5
BRA L074258
L0741E5 PHY
PHY
LDA L054FEF
PHA
LDA L054FED
PHA
LDA L05500B
PHA
PEI $08
PEI $06
LDA L054FC1
PHA
JSL L074272
PLA
STA $0A
PLA
STA $0C
L074205 LDY #$0002
LDA [$0A],Y
TAX
INY
INY
ORA [$0A],Y
BEQ L07424E
LDA [$0A],Y
CMP $08
BNE L074228
CPX $06
BNE L074228
LDY #$000A
LDA [$0A],Y
AND #$000F
CMP L054FC1
BEQ L07424E
L074228 LDA $0A
CLC
ADC #$000E
STA $0A
BCC L074234
INC $0C
L074234 LDA L054FF1
CMP $0A
BNE L074205
LDA L054FF3
CMP $0C
BNE L074205
LDA L054FED
STA $0A
LDA L054FEF
STA $0C
BRA L074205
L07424E LDA $0A
STA L054FC9
LDA $0C
STA L054FCB
L074258 LDA $04
STA $08
LDA $03
STA $07
TDC
TCS
PLD
PLY
PLY
RTL
L074266 ENT
DW $0000
DW $0000
DW $0000
DW $A55A
JMPL L0768A7
L074272 PHD
PHY
TSC
TCD
LDA $0A
EOR $08
STA $0A
XBA
EOR $0A
STA $01
LDA $0C
XBA
EOR $0C
EOR $01
AND $0E
STA $01
ASL
CLC
ADC $01
ASL
CLC
ADC $01
ASL
LDX $12
CLC
ADC $10
BCC L07429D
INX
L07429D STA $14
STX $16
LDA $06
STA $12
LDA $05
STA $11
TDC
TCS
PLY
PLD
CLC
ADC #$0010
TCS
RTL
L0742B3 ENT
PHD
TSC
SEC
SBC #$001C
TCD
SEC
SBC #$0200
TCS
LDA #$FFFF
STA $26
STA $28
LDA $22
STA $01
LSR
LSR
LSR
LSR
LSR
LSR
AND #$01FC
STA $05
LDA $24
STZ $09
ASL $01
ROL
ROL $09
STA $07
ORA $09
BNE L0742EB
LDA $05
CMP #$0020
BCC L0742F9
L0742EB LDA $09
CMP L053ABF
BCC L0742FC
LDA L053ABD
CMP $07
BCS L0742FC
L0742F9 BRL L0743D5
L0742FC LDA L054FC3
BEQ L074340
PHY
PHY
LDA $09
ORA #$8000
PHA
PEI $07
JSL L0741B8
PLA
STA $17
PLA
STA $19
LDY #$0002
LDA [$17],Y
INY
INY
ORA [$17],Y
BEQ L074362
LDY #$0006
LDA [$17],Y
STA $0B
INY
INY
LDA [$17],Y
STA $0D
ORA $0B
BEQ L074362
LDY #$0002
LDA [$0B]
STA $0F
LDA [$0B],Y
STA $11
ORA $0F
BEQ L074362
L074340 LDA #$0001
STA $1B
PHA
PHA
PEI $09
PEI $07
JSL L077342
PLA
STA $0B
PLA
STA $0D
LDA [$0B]
STA $0F
LDY #$0002
LDA [$0B],Y
STA $11
BRA L07439A
L074362 STZ $1B
TDC
CLC
ADC #$FE01
STZ $11
STA $0F
STZ $01
LDA $07
STA $02
LDA $08
STA $03
ASL $01
ROL $03
CLC
LDA $01
ADC L053AB5
TAX
LDA $03
ADC L053AB7
PHA
PHX
PEA $0000
PEA $0200
PEI $11
PEI $0F
PEA $0000
JSL L077D97
L07439A LDY $05
LDA [$0F],Y
STA $13
INY
INY
LDA [$0F],Y
STA $15
LDA $1B
BEQ L0743B5
PEI $09
PEI $07
PEA $0000
JSL L074AFC
L0743B5 LDA $13
EOR $22
AND #$00FF
BNE L0743D5
LDA $13
LSR $15
ROR
LSR $15
ROR
LSR $15
ROR
AND #$FFE0
STA $26
LDA $15
AND #$1FFF
STA $28
L0743D5 LDA $20
STA $24
LDA $1F
STA $23
LDX $1D
TDC
CLC
ADC #$0022
TCS
TXA
TCD
RTL
L0743E8 PHD
TSC
CLC
ADC #$FFDA
TCS
TCD
STZ $03
STZ $32
STZ $34
LDA L055051
BEQ L0743FE
BRL L0745A0
L0743FE STZ $19
STZ $1B
LDA #$FFFF
LDX #$7FFF
STA $11
STX $13
LDA #L053E9D
LDX #^L053E9D
STA $1D
STX $1F
LDAL L053AE7
STA $01
LDA $01
SEC
SBC #$0001
BVS L074427
EOR #$8000
L074427 BMI L07442C
BRL L0744BA
L07442C LDA #$0001
STA $21
L074431 LDY #$0006
LDA [$1D],Y
PHA
DEY
DEY
LDA [$1D],Y
PHA
LDA $2E
LDX $30
JSL L033477
BVS L074449
EOR #$8000
L074449 BPL L0744A0
LDY #$0006
LDA [$1D],Y
PHA
DEY
DEY
LDA [$1D],Y
PHA
LDA $2E
LDX $30
JSL L1512A5
STA $15
STX $17
LDA $2C
BEQ L074469
LDA #$0001
L074469 PHA
PEI $17
PEI $15
LDA $11
LDX $13
JSL L033477
BVS L07447B
EOR #$8000
L07447B BPL L074482
LDA #$0000
BRA L074485
L074482 LDA #$0001
L074485 ORA $01,S
PLX
LSR
BCC L0744A0
LDA $1D
LDX $1F
STA $19
STX $1B
LDA $15
LDX $17
STA $11
STX $13
LDA $2C
DEC
BEQ L07451E
L0744A0 LDA $1D
LDX $1F
CLC
ADC #$0008
BCC L0744AB
INX
L0744AB STA $1D
STX $1F
LDA $21
CMP $01
BEQ L0744BA
INC $21
BRL L074431
L0744BA LDA $19
ORA $1B
BNE L07451E
PHY
PEI $30
PEI $2E
JSL L076535
PLA
LSR
BCC L0744D0
BRL L0743FE
L0744D0 LDA $03
SEC
SBC #$0008
BVS L0744DB
EOR #$8000
L0744DB BPL L0744E2
LDA #$0000
BRA L0744E5
L0744E2 LDA #$0001
L0744E5 PHA
LDAL L053AD7
PHA
LDAL L053AD5
PHA
LDA $2E
LDX $30
JSL L033477
BEQ L074501
BVS L0744FF
EOR #$8000
L0744FF BMI L074506
L074501 LDA #$0000
BRA L074509
L074506 LDA #$0001
L074509 AND $01,S
PLX
LSR
BCC L07451B
JSL L074E83
LDA $03
INC
STA $03
BRL L0743FE
L07451B BRL L0745A0
L07451E LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
STA $0D
STX $0F
LDY #$0006
LDA [$19],Y
PHA
DEY
DEY
LDA [$19],Y
PHA
LDA $2E
LDX $30
JSL L1512A5
STA $05
STX $07
LDA $2C
DEC
DEC
BNE L074561
LDA $0D
LDX $0F
PEI $07
PEI $05
JSL L150F53
STA $32
STX $34
LDA $0D
LDX $0F
STA $09
STX $0B
BRA L074579
L074561 LDA $0D
LDX $0F
STA $32
STX $34
LDA $0D
LDX $0F
PEI $30
PEI $2E
JSL L150F53
STA $09
STX $0B
L074579 PEI $1B
PEI $19
JSL L0750FF
PEI $07
PEI $05
LDA #$0000
TAX
JSL L033477
BMI L0745A0
BEQ L0745A0
PEI $0B
PEI $09
PEI $07
PEI $05
PEA $0001
JSL L075688
L0745A0 LDA $2A
STA $30
LDA $29
STA $2F
LDA $27
TCD
TSC
CLC
ADC #$002E
TCS
RTL
L0745B2 ENT
PHD
TSC
CLC
ADC #$FFBE
TCS
TCD
PHY
PHY
PEI $4A
PEI $48
JSL L0741B8
PLA
STA $3B
PLX
STX $3D
LDA $3B
LDX $3D
STA $01
STX $03
LDY #$0004
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP $48
BNE L0745E2
CPX $4A
L0745E2 BEQ L0745E9
LDA #$0000
BRA L0745EC
L0745E9 LDA #$0001
L0745EC PHA
LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $3F
STX $41
LDA [$3F]
LDY #$0002
ORA [$3F],Y
BNE L074609
LDA #$0000
BRA L07460C
L074609 LDA #$0001
L07460C AND $01,S
PLX
LSR
BCC L074641
LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $3F
STX $41
LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
CLC
ADC #$0020
BCC L07462F
INX
L07462F STA $3F
STX $41
LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
STA $4C
STX $4E
BRA L07467F
L074641 PHY
PHY
PEI $4A
PEI $48
JSL L0742B3
PLA
STA $37
PLX
STX $39
LDA $37
ORA $39
BNE L07465D
STZ $4C
STZ $4E
BRA L07467F
L07465D PEI $39
PEI $37
PEA $0000
PEA $0032
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $0001
JSL L077D97
LDA $25
LDX $27
STA $4C
STX $4E
L07467F LDA $46
STA $4A
LDA $45
STA $49
LDA $43
TCD
TSC
CLC
ADC #$0048
TCS
RTL
L074691 PHD
TSC
CLC
ADC #$FFD4
TCS
TCD
PEI $3C
PEI $3A
LDA #$0020
LDX #$0000
JSL L033477
BVS L0746AC
EOR #$8000
L0746AC BPL L0746B3
LDA #$0000
BRA L0746B6
L0746B3 LDA #$0001
L0746B6 PHA
LDA $3A
AND #$001F
BEQ L0746C1
LDA #$0001
L0746C1 ORA $01,S
PLX
LSR
BCC L074704
PEA $0000
TDC
CLC
ADC #$0015
PHA
PEI $38
PEI $36
JSL L0715D9
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEI $34
PEI $32
JSL L0715D9
PEA ^L040A31
PEA L040A31
PEA ^L040A32
PEA L040A32
JSL L073C22
PEA $001E
JSL L0727E0
JSL L070000
L074704 LDA $30
STA $3C
LDA $2F
STA $3B
LDA $2D
TCD
TSC
CLC
ADC #$003A
TCS
RTL
L074716 PHD
TSC
CLC
ADC #$FFD4
TCS
TCD
LDA $36
LDX $38
CMP $3A
BNE L074728
CPX $3C
L074728 BNE L07472F
LDA #$0000
BRA L074732
L07472F LDA #$0001
L074732 PHA
LDA #$4957
LDX #$444C
CMP $3A
BNE L07473F
CPX $3C
L07473F BNE L074746
LDA #$0000
BRA L074749
L074746 LDA #$0001
L074749 AND $01,S
PLX
LSR
BCC L07478C
PEA $0000
TDC
CLC
ADC #$0015
PHA
PEI $40
PEI $3E
JSL L0715D9
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEI $34
PEI $32
JSL L0715D9
PEA ^L040A33
PEA L040A33
PEA ^L040A34
PEA L040A34
JSL L073C22
PEA $001E
JSL L0727E0
JSL L070000
L07478C LDA $30
STA $40
LDA $2F
STA $3F
LDA $2D
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L07479E ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L05504D
BEQ L0747AF
JSL L078CA4
L0747AF LDA L055013
ORA L055015
BEQ L0747C7
L0747B7 PHY
PHY
PEI $0A
JSL L074067
PLA
PLX
STX $01
ORA $01
BNE L0747B7
L0747C7 LDA #$0001
STA L054FF5
JSL L075602
LDA $08
STA $0A
LDA $07
STA $09
LDA $05
TCD
PLY
PLY
PLY
PLY
RTL
L0747E1 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PEI $10
PEI $0E
JSL L0741B8
PLA
STA $01
PLX
STX $03
LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BPL L07480C
PEI $03
PEI $01
JSL L07481E
L07480C LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L07481E PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
LDA $3C
LDX $3E
STA $01
STX $03
LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BMI L074840
PEA $0DFE
JSL L07272E
L074840 LDY #$0006
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L074852
PEA $0DFF
JSL L07272E
L074852 LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $33
STX $35
LDA [$33]
LDY #$0002
ORA [$33],Y
BNE L074870
PEA $0E00
JSL L07272E
L074870 PHY
PHY
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L151301
PLA
STA $2F
PLX
STX $31
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$0000
TAX
JSL L033477
BPL L074913
PHY
PHY
PEA $7FFF
PEA $FFFF
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L15017E
PLA
STA $27
PLX
STX $29
PEI $29
PEI $27
LDAL L053ABF
TAX
LDAL L053ABD
JSL L033477
BEQ L0748DA
BVS L0748D1
EOR #$8000
L0748D1 BPL L0748DA
PEA $094E
JSL L07272E
L0748DA LDA #$0200
LDX #$0000
CMP $2F
BNE L0748E6
CPX $31
L0748E6 BEQ L0748EF
PEA $0948
JSL L07272E
L0748EF LDAL L053AB7
PHA
LDAL L053AB5
PHA
LDA $27
LDX $29
PEA $0000
PEA $0200
JSL L150D50
PLA
PLX
JSL L150F53
STA $2B
STX $2D
BRA L07497E
L074913 LDA L055051
BEQ L074923
PEI $3E
PEI $3C
JSL L0753D0
BRL L074A12
L074923 PHY
PHY
LDY #$0004
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L0742B3
PLA
STA $2B
PLX
STX $2D
PEI $2D
PEI $2B
LDA #$0000
TAX
JSL L033477
BEQ L07494A
BPL L074951
L07494A PEA $0729
JSL L07272E
L074951 PEI $2D
PEI $2B
PEA $0000
PEA $0020
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $0001
JSL L077D97
LDA $05
LDX $07
CMP $2F
BNE L074975
CPX $31
L074975 BEQ L07497E
PEA $072D
JSL L07272E
L07497E PHY
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L0718FA
PLA
STA $25
PEI $2D
PEI $2B
PEI $31
PEI $2F
LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
PHX
PHA
JSL L078BF0
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
PEI $25
JSL L0718DA
LDY #$000A
LDA [$01],Y
AND #$7FFF
LDY #$000A
STA [$01],Y
LDA L055013
LDX L055015
TAY
BNE L0749DD
DEX
L0749DD DEC
STA L055013
STX L055015
LDA L055013
LDX L055015
PHX
PHA
LDA #$0000
TAX
JSL L033477
BPL L0749FC
STZ L055013
STZ L055015
L0749FC LDY #$000C
LDA [$01],Y
BNE L074A12
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L07711B
L074A12 LDA $3A
STA $3E
LDA $39
STA $3D
LDA $37
TCD
TSC
CLC
ADC #$003C
TCS
RTL
L074A24 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FE1
LDX L054FE3
STA L054FC9
STX L054FCB
PEI $0E
PEI $0C
PEA $4447
PEA $4B42
PEI $0A
JSL L074B81
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L074A5A ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FDD
LDX L054FDF
STA L054FC9
STX L054FCB
PEI $0E
PEI $0C
PEA $5041
PEA $4D42
PEI $0A
JSL L074B81
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L074A90 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FD9
LDX L054FDB
STA L054FC9
STX L054FCB
PEI $0E
PEI $0C
PEA $4452
PEA $4143
PEI $0A
JSL L074B81
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L074AC6 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FD5
LDX L054FD7
STA L054FC9
STX L054FCB
PEI $0E
PEI $0C
PEA $5453
PEA $494C
PEI $0A
JSL L074B81
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L074AFC PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDX #$0000
LDA $12
BPL L074B0C
INX
L074B0C TXA
PHA
PEI $12
PEI $10
LDAL L053ABF
TAX
LDAL L053ABD
JSL L033477
BEQ L074B28
BVS L074B26
EOR #$8000
L074B26 BMI L074B2D
L074B28 LDA #$0000
BRA L074B30
L074B2D LDA #$0001
L074B30 ORA $01,S
PLX
LSR
BCC L074B3D
PEA $0660
JSL L07272E
L074B3D PHY
PHY
PEA $8000
PEA $0000
PEI $12
PEI $10
JSL L150241
PLA
STA $01
PLX
STX $03
LDA L054FD1
LDX L054FD3
STA L054FC9
STX L054FCB
PEI $03
PEI $01
PEA $444C
PEA $4957
PEI $0E
JSL L074B81
LDA $0C
STA $12
LDA $0B
STA $11
LDA $09
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L074B81 ENT
PHD
TSC
CLC
ADC #$FFD4
TCS
TCD
PHY
PHY
PEI $3A
PEI $38
JSL L0741B8
PLA
STA $25
PLX
STX $27
LDA $25
LDX $27
STA $01
STX $03
LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L074BB3
PEA $04E2
JSL L07272E
L074BB3 LDY #$000C
LDA [$01],Y
SEC
SBC #$0000
BEQ L074BC0
BPL L074BC7
L074BC0 PEA $04EC
JSL L07272E
L074BC7 LDY #$0006
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L074BD9
PEA $11EB
JSL L07272E
L074BD9 LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $29
STX $2B
LDA [$29]
LDY #$0002
ORA [$29],Y
BNE L074BF7
PEA $04ED
JSL L07272E
L074BF7 LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $29
STX $2B
LDY #$0002
LDA [$29],Y
TAX
LDA [$29]
CLC
ADC #$0004
BCC L074C14
INX
L074C14 STA $29
STX $2B
LDA $34
LDX $36
CMP [$29]
BNE L074C26
LDY #$0002
TXA
CMP [$29],Y
L074C26 BEQ L074C3D
LDA #$4957
LDX #$444C
CMP $34
BNE L074C34
CPX $36
L074C34 BEQ L074C3D
PEA $0514
JSL L07272E
L074C3D LDY #$000A
LDA [$01],Y
PHA
LDX #$0000
PLA
BMI L074C4A
INX
L074C4A TXA
AND $32
BEQ L074C6C
LDY #$000A
LDA #$8000
ORA [$01],Y
LDY #$000A
STA [$01],Y
LDA L055013
LDX L055015
INC
BNE L074C66
INX
L074C66 STA L055013
STX L055015
L074C6C LDY #$000C
LDA [$01],Y
DEC
LDY #$000C
STA [$01],Y
LDY #$000C
LDA [$01],Y
BNE L074CA9
LDA L05500F
LDX L055011
TAY
BNE L074C88
DEX
L074C88 DEC
STA L05500F
STX L055011
LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BMI L074CA9
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L07711B
L074CA9 LDA $30
STA $3A
LDA $2F
STA $39
LDA $2D
TCD
TSC
CLC
ADC #$0038
TCS
RTL
L074CBB PHD
TSC
CLC
ADC #$FFC8
TCS
TCD
LDA #$0007
STA $01
LDA L055043
LDX L055045
STA $35
STX $37
LDY #$0002
LDA [$35],Y
TAX
LDA [$35]
STA $03
STX $05
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2006
JSL GSOS2
STAL L05565D
LDAL L05565D
BEQ L074CFE
STZ $42
STZ $44
BRA L074D23
L074CFE PHY
PHY
PEA $0001
PEA $0000
PEA $0000
TDC
CLC
ADC #$0019
PEA $0000
PHA
_ConvSeconds
STAL L05565D
PLA
STA $42
PLX
STX $44
L074D23 LDA $3C
STA $40
LDA $3B
STA $3F
LDA $39
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L074D35 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
LDA L055047
BNE L074D45
BRL L074E10
L074D45 PEA $0000
JSL L07479E
LDA L05501B
LDX L05501D
CMPL L053B29
BNE L074D5D
TXA
CMPL L053B2B
L074D5D BNE L074D64
LDA #$0000
BRA L074D67
L074D64 LDA #$0001
L074D67 AND L054FF9
BEQ L074D70
JSL L078CA4
L074D70 PEA $0000
LDA L05503F
LDX L055041
PHX
PHA
JSL L077086
PHY
LDA L055043
LDX L055045
PHX
PHA
JSL L0718FA
PLA
STA $05
LDA L055047
PHA
JSL L075A4F
PHY
PHY
PEA $0000
PHD
JSL L074CBB
PLA
STA $01
PLX
STX $03
STZ L055047
STZ L054FF9
LDA L054FC1
DEC
PEA $000C
JSL L150BEE
PLX
TXA
CLC
ADC #L0539E9
LDX #^L0539E9
BCC L074DC4
INX
L074DC4 CLC
ADC #$0008
BCC L074DCB
INX
L074DCB STA $07
STX $09
LDA $01
LDX $03
STA [$07]
TXA
LDY #$0002
STA [$07],Y
LDA L055043
LDX L055045
PHX
PHA
PEI $05
JSL L0718DA
LDX #$0000
LDA L05502F
CMP L05503D
BEQ L074DF5
INX
L074DF5 PHX
LDA L05503D
BEQ L074DFE
LDA #$0001
L074DFE AND $01,S
PLX
LSR
BCC L074E10
JSL L0B0DD7
LDA L05503D
PHA
JSL L150B5E
L074E10 PLY
PLY
PLY
PLY
PLY
PLD
RTL
L074E17 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FCD
LDX L054FCF
STA L054FC9
STX L054FCB
PEI $0E
PEI $0C
PEA $4547
PEA $4150
PEI $0A
JSL L074B81
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L074E4D ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FC5
LDX L054FC7
STA L054FC9
STX L054FCB
PEI $0E
PEI $0C
PEA $444C
PEA $4957
PEI $0A
JSL L074B81
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L074E83 PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
STZ $27
STZ $29
LDA #$FFFF
LDX #$7FFF
STA $1F
STX $21
LDA #L053E9D
LDX #^L053E9D
STA $2F
STX $31
LDAL L053AE7
DEC
STA $01
LDA $01
SEC
SBC #$0001
BVS L074EB5
EOR #$8000
L074EB5 BPL L074F28
LDA #$0001
STA $1D
L074EBC LDA $2F
LDX $31
CLC
ADC #$0008
BCC L074EC7
INX
L074EC7 STA $2B
STX $2D
LDY #$0002
LDA [$2B],Y
PHA
LDA [$2B]
PHA
LDY #$0002
LDA [$2F],Y
PHA
LDA [$2F]
PHA
LDY #$0006
LDA [$2F],Y
TAX
DEY
DEY
LDA [$2F],Y
JSL L150F53
JSL L1512A5
STA $23
STX $25
PEI $25
PEI $23
LDA $1F
LDX $21
JSL L033477
BVS L074F04
EOR #$8000
L074F04 BMI L074F16
LDA $2F
LDX $31
STA $27
STX $29
LDA $23
LDX $25
STA $1F
STX $21
L074F16 LDA $2B
LDX $2D
STA $2F
STX $31
LDA $1D
CMP $01
BEQ L074F28
INC $1D
BRA L074EBC
L074F28 LDA #$FFFF
LDX #$7FFF
CMP $1F
BNE L074F34
CPX $21
L074F34 BEQ L074F3B
LDA #$0000
BRA L074F3E
L074F3B LDA #$0001
L074F3E PHA
LDX #$0000
LDA $21
BMI L074F4A
ORA $1F
BNE L074F4B
L074F4A INX
L074F4B TXA
ORA $01,S
PLX
LSR
BCC L074F59
PEA $072A
JSL L07272E
L074F59 LDY #$0006
LDA [$27],Y
TAX
DEY
DEY
LDA [$27],Y
STA $19
STX $1B
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
PEI $1B
PEI $19
JSL L150F53
STA $09
STX $0B
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STA $05
STX $07
PHY
PHY
PEI $0B
*
PEI $09
JSL L076F11
PLA
STA $15
PLX
STX $17
PHY
PHY
PEI $17
PEI $15
JSL L077A5B
PLA
STA $11
PLX
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
STA $0D
STX $0F
PHY
PEI $13
PEI $11
JSL L0718FA
PLA
STA $03
PEI $07
PEI $05
PEI $0F
PEI $0D
LDY #$0002
LDA [$11],Y
PHA
LDA [$11]
PHA
JSL L078BF0
PEI $13
PEI $11
PEI $03
JSL L0718DA
PEI $17
PEI $15
PEI $07
PEI $05
JSL L078A77
PEI $17
PEI $15
PEA $0000
JSL L074E4D
PEI $29
PEI $27
JSL L0750FF
LDA $05
LDX $07
PEI $0F
PEI $0D
JSL L150F53
PHX
PHA
PEI $1B
PEI $19
PEA $0000
JSL L075688
TSC
CLC
ADC #$0036
TCS
PLD
RTL
L07502A ENT
PHD
TSC
CLC
ADC #$FFD4
TCS
TCD
STZ $3E
STZ $40
LDX #$0000
LDA $3C
BMI L075041
ORA $3A
BNE L075042
L075041 INX
L075042 TXA
ORA L055051
BEQ L07504B
BRL L0750ED
L07504B PHY
PHY
PEI $34
PEI $32
JSL L075F06
PLA
STA $01
PLX
STX $03
PHY
PHY
PEI $3C
PEI $3A
JSL L07704E
PLA
STA $3A
PLX
STX $3C
PHY
PHY
PEI $3C
PEI $3A
PEA $0000
JSL L0743E8
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BNE L075094
PEI $03
PEI $01
PEA $0000
PEA $0000
JSL L078A77
BRA L0750ED
L075094 LDA $3A
LDX $3C
STA $09
STX $0B
LDA $36
LDX $38
STA $0D
STX $0F
LDA $01
LDX $03
STA $11
STX $13
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA ^L040A35
PEA L040A35
PEA $0014
JSL L0313BE
PEI $07
PEI $05
PEA $0000
PEA $0020
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L078BF0
PEI $03
PEI $01
PEI $07
PEI $05
JSL L078A77
LDA $01
LDX $03
STA $3E
STX $40
L0750ED LDA $30
STA $3C
LDA $2F
STA $3B
LDA $2D
TCD
TSC
CLC
ADC #$003A
TCS
RTL
L0750FF PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDAL L053AE7
DEC
STAL L053AE7
LDAL L053AD7
PHA
LDAL L053AD5
PHA
LDY #$0006
LDA [$16],Y
TAX
DEY
DEY
LDA [$16],Y
JSL L1512A5
STAL L053AD5
TXA
STAL L053AD7
LDA #$0001
STA L05504D
LDAL L053AE7
SEC
SBC #$0000
BPL L075148
PEA $04FC
JSL L07272E
L075148 LDAL L053AD7
PHA
LDAL L053AD5
PHA
LDA #$0000
TAX
JSL L033477
BPL L075163
PEA $04FD
JSL L07272E
L075163 LDAL L053AD5
AND #$001F
BEQ L075173
PEA $04FE
JSL L07272E
L075173 LDA $16
LDX $18
STA $09
STX $0B
LDA $09
LDX $0B
CLC
ADC #$0008
BCC L075186
INX
L075186 STA $05
STX $07
PEA ^L05409D
PEA L05409D
LDA $05
LDX $07
JSL L1512A5
STA $01
STX $03
PEI $07
PEI $05
PEI $0B
PEI $09
PEI $03
PEI $01
JSL L1511CE
LDA $14
STA $18
LDA $13
STA $17
LDA $11
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L0751BE ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
STZ $42
LDA L055051
BEQ L0751D0
BRL L0752D4
L0751D0 PHY
PHY
PEI $40
PEI $3E
JSL L0742B3
PLA
STA $2D
PLX
STX $2F
PEI $2F
PEI $2D
LDA #$0000
TAX
JSL L033477
BPL L0751F1
BRL L0752D4
L0751F1 BNE L0751F6
BRL L0752D4
L0751F6 PEI $2F
PEI $2D
PEA $0000
PEA $0020
TDC
CLC
ADC #$0009
PEA $0000
PHA
PEA $0000
JSL L077D97
PEI $40
PEI $3E
PEI $3C
PEI $3A
PEI $0F
PEI $0D
PEA $0000
PEA $0513
JSL L074716
PHY
PHY
PEI $40
PEI $3E
JSL L0741B8
PLA
STA $29
PLX
STX $2B
LDA $29
LDX $2B
STA $01
STX $03
LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L0752B2
LDY #$000C
LDA [$01],Y
BEQ L075257
PEA $04BA
JSL L07272E
L075257 LDY #$0006
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L075269
PEA $11C1
JSL L07272E
L075269 LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $31
STX $33
LDA [$31]
LDY #$0002
ORA [$31],Y
BEQ L0752AA
PHY
PHY
LDY #$0008
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
JSL L151301
PLA
STA $05
PLX
STX $07
LDA $09
LDX $0B
CMP $05
BNE L0752A1
CPX $07
L0752A1 BEQ L0752AA
PEA $04C4
JSL L07272E
L0752AA PEI $2B
PEI $29
JSL L0753D0
L0752B2 PEI $40
PEI $3E
PEA $0000
PEA $0000
JSL L078A77
PEI $2F
PEI $2D
PEI $0B
PEI $09
PEA $0001
JSL L075688
LDA #$0001
STA $42
L0752D4 LDA $38
STA $40
LDA $37
STA $3F
LDA $35
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L0752E6 ENT
PHD
TSC
CLC
ADC #$FF70
TCS
TCD
STZ $9A
STZ $9C
PEI $98
PEI $96
TDC
CLC
ADC #$0089
PEA $0000
PHA
TDC
CLC
ADC #$0085
PEA $0000
PHA
JSL L07869F
LDA #$0002
STA $7D
LDY #$0002
LDA [$89],Y
TAX
LDA [$89]
STA $7F
STX $81
TDC
CLC
ADC #$007D
PEA $0000
PHA
PEA $2020
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L0753B2
LDA #$0002
STA $5F
LDA $83
STA $61
TDC
CLC
ADC #$0025
STA $63
STZ $65
LDA #$0023
STA $25
TDC
CLC
ADC #$005F
PEA $0000
PHA
PEA $202C
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L0753B2
LDA #$0006
STA $49
TDC
CLC
ADC #$0027
STA $4B
STZ $4D
TDC
CLC
ADC #$0001
STA $4F
STZ $51
LDA #$0024
STA $01
TDC
CLC
ADC #$0049
PEA $0000
PHA
PEA $2008
JSL GSOS2
STAL L05565D
LDAL L05565D
BNE L0753B2
PEI $59
PEI $57
LDA $5D
JSL L150488
JSL L150D50
PLA
STA $9A
PLX
STX $9C
L0753B2 PEI $8B
PEI $89
PEI $87
PEI $85
JSL L071825
LDA $94
STA $98
LDA $93
STA $97
LDA $91
TCD
TSC
CLC
ADC #$0096
TCS
RTL
L0753D0 PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
LDY #$0008
LDA [$1E],Y
PHA
DEY
DEY
LDA [$1E],Y
PHA
JSL L07185A
LDA L05500D
DEC
STA L05500D
LDA L05500D
SEC
SBC #$0000
BPL L0753FE
PEA $047E
JSL L07272E
L0753FE LDY #$000A
LDA [$1E],Y
SEC
SBC #$0000
BPL L07541A
LDA L055013
LDX L055015
TAY
BNE L075413
DEX
L075413 DEC
STA L055013
STX L055015
L07541A LDA $1E
LDX $20
STA $11
STX $13
L075422 LDA $11
LDX $13
STA $0D
STX $0F
LDA $0D
LDX $0F
STA $01
STX $03
LDA #$0000
STA [$01]
LDA #$0000
TAX
LDY #$0002
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0000
TAX
LDY #$0006
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0000
LDY #$000A
STA [$01],Y
LDA #$0000
LDY #$000C
STA [$01],Y
L075463 LDA $11
LDX $13
CLC
ADC #$000E
BCC L07546E
INX
L07546E STA $11
STX $13
LDA L054FF1
LDX L054FF3
CMP $11
BNE L07547E
CPX $13
L07547E BNE L07548A
LDA L054FED
LDX L054FEF
STA $11
STX $13
L07548A LDY #$0004
LDA [$11],Y
TAX
DEY
DEY
LDA [$11],Y
STA $05
STX $07
LDA $05
ORA $07
BNE L0754A1
BRL L075565
L0754A1 PHY
PHY
LDA L054FED
LDX L054FEF
PHX
PHA
LDA L05500B
PHA
PEI $07
PEI $05
LDY #$000A
LDA [$11],Y
AND #$000F
PHA
JSL L074272
PLA
STA $09
PLX
STX $0B
PEI $0B
PEI $09
LDA $0D
LDX $0F
JSL L033477
BEQ L0754F6
BVS L0754D9
EOR #$8000
L0754D9 BPL L0754F6
PEI $0B
PEI $09
LDA $11
LDX $13
JSL L033477
BNE L0754EC
BRL L075463
L0754EC BVS L0754F1
EOR #$8000
L0754F1 BMI L0754F6
BRL L075463
L0754F6 PEI $0F
PEI $0D
LDA $11
LDX $13
JSL L033477
BEQ L075523
BVS L075509
EOR #$8000
L075509 BPL L075523
PEI $0B
PEI $09
LDA $0D
LDX $0F
JSL L033477
BEQ L075523
BVS L07551E
EOR #$8000
L07551E BPL L075523
BRL L075463
L075523 PEI $0F
PEI $0D
LDA $11
LDX $13
JSL L033477
BEQ L075553
BVS L075536
EOR #$8000
L075536 BPL L075553
PEI $0B
PEI $09
LDA $11
LDX $13
JSL L033477
BNE L075549
BRL L075463
L075549 BVS L07554E
EOR #$8000
L07554E BMI L075553
BRL L075463
L075553 PEI $0F
PEI $0D
PEI $13
PEI $11
PEA $000E
JSL L0313BE
BRL L075422
L075565 LDA $1C
STA $20
LDA $1B
STA $1F
LDA $19
TCD
TSC
CLC
ADC #$001E
TCS
RTL
L075577 PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA #L053E9D
LDX #^L053E9D
STA $05
STX $07
STZ $16
STZ $18
LDAL L053AE7
STA $01
LDA $01
SEC
SBC #$0001
BVS L07559E
EOR #$8000
L07559E BPL L0755F0
LDA #$0001
STA $03
L0755A5 LDA $12
LDX $14
CMP [$05]
BNE L0755B3
LDY #$0002
TXA
CMP [$05],Y
L0755B3 BNE L0755BD
LDA $05
LDX $07
STA $16
STX $18
L0755BD LDY #$0002
LDA [$05],Y
PHA
LDA [$05]
PHA
LDA $12
LDX $14
JSL L033477
BVS L0755D3
EOR #$8000
L0755D3 BPL L0755D7
BRA L0755F0
L0755D7 LDA $05
LDX $07
CLC
ADC #$0008
BCC L0755E2
INX
L0755E2 STA $05
STX $07
LDA $03
CMP $01
BEQ L0755F0
INC $03
BRA L0755A5
L0755F0 LDA $10
STA $14
LDA $0F
STA $13
LDA $0D
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L075602 PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA L05504F
EOR #$0001
PHA
LDA L055047
BEQ L075619
LDA #$0001
L075619 AND $01,S
PLX
LSR
BCC L075680
LDA L054FF5
ORA L054FF7
BEQ L075680
LDA #$0002
STA $01
LDA L055047
STA $03
LDA L054FF7
BEQ L07563A
STZ $05
BRA L07563F
L07563A LDA #$8000
STA $05
L07563F TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2015
JSL GSOS2
STAL L05565D
LDA #$0004
CMPL L05565D
BNE L075664
LDA L055047
PHA
JSL L075B44
L075664 LDA #$002B
CMPL L05565D
BNE L07567A
PHY
JSL L076B39
PLA
LSR
BCS L07563F
JSL L070000
L07567A STZ L054FF7
STZ L054FF5
L075680 TSC
CLC
ADC #$000E
TCS
PLD
RTL
L075688 PHD
TSC
CLC
ADC #$FFA8
TCS
TCD
LDX #$0000
LDA $62
BPL L075698
INX
L075698 TXA
PHA
LDA #$001F
AND $60
BEQ L0756A4
LDA #$0001
L0756A4 ORA $01,S
PLX
LSR
BCC L0756B1
PEA $0438
JSL L07272E
L0756B1 LDAL L053AE7
SEC
SBC #$0040
BVS L0756BE
EOR #$8000
L0756BE BPL L0756C7
PEA $0439
JSL L07272E
L0756C7 LDAL L053AE7
INC
DEC
ASL
ASL
ASL
TAX
TXA
CLC
ADC #L053E9D
LDX #^L053E9D
BCC L0756DC
INX
L0756DC STA $01
STX $03
LDA #$FFFF
LDX #$7FFF
STA [$01]
TXA
LDY #$0002
STA [$01],Y
LDA $60
LDX $62
LDY #$0004
STA [$01],Y
INY
INY
TXA
STA [$01],Y
STZ $29
STZ $2B
STZ $25
STZ $27
LDA #L053E9D
LDX #^L053E9D
STA $21
STX $23
PEI $23
PEI $21
LDAL L053AE7
ASL
ASL
ASL
JSL L150488
JSL L150F53
STA $2D
STX $2F
LDA $64
LDX $66
PEI $62
PEI $60
JSL L150F53
STA $15
STX $17
L075735 LDY #$0002
LDA [$21],Y
PHA
LDA [$21]
PHA
LDA $15
LDX $17
JSL L033477
BEQ L07574F
BVS L07574D
EOR #$8000
L07574D BMI L07579F
L07574F LDY #$0002
LDA [$21],Y
PHA
LDA [$21]
PHA
LDY #$0006
LDA [$21],Y
TAX
DEY
DEY
LDA [$21],Y
JSL L150F53
CMP $64
BNE L07576C
CPX $66
L07576C BNE L075776
LDA $21
LDX $23
STA $25
STX $27
L075776 LDA $15
LDX $17
CMP [$21]
BNE L075784
LDY #$0002
TXA
CMP [$21],Y
L075784 BNE L07578E
LDA $21
LDX $23
STA $29
STX $2B
L07578E LDA $21
LDX $23
CLC
ADC #$0008
BCC L075799
INX
L075799 STA $21
STX $23
BRA L075735
L07579F LDA $29
ORA $2B
BEQ L0757A8
BRL L075828
L0757A8 LDA $25
ORA $27
BNE L075828
LDA $21
LDX $23
STA $0D
STX $0F
LDA $0D
LDX $0F
CLC
ADC #$0008
BCC L0757C1
INX
L0757C1 STA $11
STX $13
PEI $2F
PEI $2D
LDA $0D
LDX $0F
JSL L1512A5
STA $09
STX $0B
PEI $0B
PEI $09
LDA #$0000
TAX
JSL L033477
BMI L0757F5
BEQ L0757F5
PEI $0F
PEI $0D
PEI $13
PEI $11
PEI $0B
PEI $09
JSL L1511CE
L0757F5 LDAL L053AE7
INC
STAL L053AE7
LDA $64
LDX $66
STA [$21]
TXA
LDY #$0002
STA [$21],Y
LDA $60
LDX $62
LDY #$0004
STA [$21],Y
INY
INY
TXA
STA [$21],Y
LDA $64
LDX $66
STA $31
STX $33
LDA $60
LDX $62
STA $35
STX $37
L075828 LDA $29
ORA $2B
BEQ L07587F
LDA $25
ORA $27
BNE L07587F
LDA $64
LDX $66
STA [$29]
TXA
LDY #$0002
STA [$29],Y
LDA #$0004
CLC
ADC $29
LDX $2B
BCC L07584B
INX
L07584B STA $55
STX $57
LDY #$0006
LDA [$29],Y
TAX
DEY
DEY
LDA [$29],Y
PEI $62
PEI $60
JSL L150F53
STA [$55]
TXA
LDY #$0002
STA [$55],Y
LDA $64
LDX $66
STA $31
STX $33
LDY #$0006
LDA [$29],Y
TAX
DEY
DEY
LDA [$29],Y
STA $35
STX $37
L07587F LDA $29
ORA $2B
BNE L0758CE
LDA $25
ORA $27
BEQ L0758CE
LDA #$0004
CLC
ADC $25
LDX $27
BCC L075896
INX
L075896 STA $55
STX $57
LDY #$0006
LDA [$25],Y
TAX
DEY
DEY
LDA [$25],Y
PEI $62
PEI $60
JSL L150F53
STA [$55]
TXA
LDY #$0002
STA [$55],Y
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $31
STX $33
LDY #$0006
LDA [$25],Y
TAX
DEY
DEY
LDA [$25],Y
STA $35
STX $37
L0758CE LDA $29
ORA $2B
BNE L0758D7
BRL L075958
L0758D7 LDA $25
ORA $27
BEQ L075958
LDY #$0006
LDA [$29],Y
TAX
DEY
DEY
LDA [$29],Y
STA $1D
STX $1F
PEI $2B
PEI $29
JSL L0750FF
LDAL L053AD7
TAX
LDAL L053AD5
PEI $1F
PEI $1D
JSL L150F53
STAL L053AD5
TXA
STAL L053AD7
LDA #$0004
CLC
ADC $25
LDX $27
BCC L075918
INX
L075918 STA $55
STX $57
LDY #$0006
LDA [$25],Y
TAX
DEY
DEY
LDA [$25],Y
PEI $1F
PEI $1D
JSL L150F53
PEI $62
PEI $60
JSL L150F53
STA [$55]
TXA
LDY #$0002
STA [$55],Y
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
STA $31
STX $33
LDY #$0006
LDA [$25],Y
TAX
DEY
DEY
LDA [$25],Y
STA $35
STX $37
L075958 LDA #$5246
LDX #$4545
STA $39
STX $3B
STZ $3D
STZ $3F
TDC
CLC
ADC #$0041
PEA $0000
PHA
PEA ^L040A49
PEA L040A49
PEA $0014
JSL L0313BE
PEI $33
PEI $31
PEA $0000
PEA $0020
TDC
CLC
ADC #$0035
PEA $0000
PHA
JSL L078BF0
LDAL L053AD7
TAX
LDAL L053AD5
PEI $62
PEI $60
JSL L150F53
STAL L053AD5
TXA
STAL L053AD7
LDA #$0001
STA L05504D
LDA $5E
BEQ L0759FA
STZ $05
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $201D
JSL GSOS2
STAL L05565D
L0759CD LDAL L053AE7
SEC
SBC #$003C
BEQ L0759E4
BVS L0759DC
EOR #$8000
L0759DC BPL L0759E4
JSL L074E83
BRA L0759CD
L0759E4 STZ $05
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $201E
JSL GSOS2
STAL L05565D
L0759FA LDA $5C
STA $66
LDA $5B
STA $65
LDA $59
TCD
TSC
CLC
ADC #$0064
TCS
RTL
L075A0C ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$0002
STA $01
LDA $18
LDX $1A
STA $03
STX $05
LDA $14
LDX $16
STA $07
STX $09
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2004
JSL GSOS2
STAL L05565D
LDA $12
STA $1A
LDA $11
STA $19
LDA $0F
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L075A4F ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $01
LDA $0E
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2014
JSL GSOS2
STAL L05565D
LDA $0C
STA $0E
LDA $0B
STA $0D
LDA $09
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L075A86 ENT
PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
LDX #$0000
LDA $26
ORA $28
BNE L075A98
INX
L075A98 PHX
LDX #$0000
LDA $22
ORA $24
BNE L075AA3
INX
L075AA3 TXA
AND $01,S
PLX
LSR
BCC L075AB1
LDA #$0005
STA $01
BRA L075AB6
L075AB1 LDA #$0007
STA $01
L075AB6 LDA $32
LDX $34
STA $03
STX $05
LDA #$00C3
STA $07
LDA $30
STA $09
LDA $2C
LDX $2E
STA $0B
STX $0D
LDA $2A
STA $0F
LDA $26
LDX $28
STA $11
STX $13
LDA $22
LDX $24
STA $15
STX $17
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2001
JSL GSOS2
STAL L05565D
LDA $20
STA $34
LDA $1F
STA $33
LDA $1D
TCD
TSC
CLC
ADC #$0032
TCS
RTL
L075B09 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
LDA #$0001
STA $01
LDA $10
LDX $12
STA $03
STX $05
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2002
JSL GSOS2
STAL L05565D
LDA $0E
STA $12
LDA $0D
STA $11
LDA $0B
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L075B44 PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
LDA #$0001
STA $01
LDA $10
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2015
JSL GSOS2
STAL L05565D
LDA $0E
STA $10
LDA $0D
STA $0F
LDA $0B
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L075B7B ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA #$0002
STA $01
LDA $12
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2019
JSL GSOS2
STAL L05565D
LDA $05
LDX $07
STA $14
STX $16
LDA $10
STA $12
LDA $0F
STA $11
LDA $0D
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L075BBA ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA #$0002
STA $01
LDA $12
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2017
JSL GSOS2
STAL L05565D
LDA $05
LDX $07
STA $14
STX $16
LDA $10
STA $12
LDA $0F
STA $11
LDA $0D
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L075BF9 ENT
PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
STZ $28
STZ $2A
PHY
PHY
PEA $0000
PEA $0044
LDA L054FBD
PHA
PEA $8010
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $15
PLX
STX $17
LDAL L05565D
BEQ L075C2D
BRL L075D29
L075C2D LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $19
STX $1B
LDA #$0044
STA [$19]
L075C3E LDA #$0003
STA $01
LDA $26
STA $03
LDA $19
LDX $1B
STA $07
STX $09
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2039
JSL GSOS2
STAL L05565D
LDAL L05565D
STA $0B
LDA #$004F
CMP $0B
BNE L075CAE
PEI $17
PEI $15
JSL L1516B7
LDY #$0002
LDA #$0004
CLC
ADC [$19],Y
JSL L150488
PHX
PHA
PEI $17
PEI $15
JSL L1512FB
PEI $17
PEI $15
JSL L150BB8
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $19
STX $1B
LDY #$0002
LDA #$0004
CLC
ADC [$19],Y
STA [$19]
L075CAE LDA #$004F
CMP $0B
BEQ L075C3E
LDA $0B
BNE L075D21
PHY
PHY
LDY #$0002
LDA [$19],Y
INC
INC
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $11
PLX
STX $13
LDAL L05565D
BNE L075D21
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $19
STX $1B
LDA $19
LDX $1B
CLC
ADC #$0002
BCC L075CFD
INX
L075CFD PHX
PHA
LDY #$0002
LDA [$11],Y
PHA
LDA [$11]
PHA
LDY #$0002
LDA [$19],Y
INC
INC
JSL L150488
PHX
PHA
JSL L070597
LDA $11
LDX $13
STA $28
STX $2A
L075D21 PEI $17
PEI $15
JSL L07185A
L075D29 LDA $24
STA $26
LDA $23
STA $25
LDA $21
TCD
TSC
CLC
ADC #$0024
TCS
RTL
L075D3B ENT
PHD
TSC
CLC
ADC #$FFC2
TCS
TCD
LDA #$0004
STA $01
LDA $46
LDX $48
STA $05
STX $07
STZ $09
LDA $44
STA $0B
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2010
JSL GSOS2
STAL L05565D
LDA $03
STA $4A
LDA $42
STA $48
LDA $41
STA $47
LDA $3F
TCD
TSC
CLC
ADC #$0046
TCS
RTL
L075D80 ENT
PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
LDA #$0005
STA $01
LDA $26
STA $03
LDA $22
LDX $24
STA $05
STX $07
LDA $1E
LDX $20
STA $09
STX $0B
LDA $1C
STA $11
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2012
JSL GSOS2
STAL L05565D
LDA $0D
LDX $0F
STA $28
STX $2A
LDA $1A
STA $26
LDA $19
STA $25
LDA $17
TCD
TSC
CLC
ADC #$0024
TCS
RTL
L075DD3 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$0003
STA $01
LDA $18
STA $03
STZ $05
LDA $14
LDX $16
STA $07
STX $09
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2018
JSL GSOS2
STAL L05565D
LDA $12
STA $18
LDA $11
STA $17
LDA $0F
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L075E14 ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
LDA #$0003
STA $01
LDA $18
STA $03
STZ $05
LDA $14
LDX $16
STA $07
STX $09
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2016
JSL GSOS2
STAL L05565D
LDA $12
STA $18
LDA $11
STA $17
LDA $0F
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L075E55 ENT
PHD
TSC
CLC
ADC #$FFE5
TCS
TCD
LDA #$0005
STA $06
LDA $2B
STA $08
LDA $27
LDX $29
STA $0A
STX $0C
LDA $23
LDX $25
STA $0E
STX $10
LDA $21
STA $16
TDC
CLC
ADC #$0006
PEA $0000
PHA
PEA $2013
JSL GSOS2
STAL L05565D
LDA $12
LDX $14
STA $2D
STX $2F
LDA $1F
STA $2B
LDA $1E
STA $2A
LDA $1C
TCD
TSC
CLC
ADC #$0029
TCS
RTL
L075EA8 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
STZ $12
STZ $14
PHY
PHY
PEI $10
PEI $0E
JSL L077A5B
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BEQ L075EF4
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
CLC
ADC #$0004
BCC L075ED9
INX
L075ED9 STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $12
STX $14
PEI $10
PEI $0E
PEA $0000
JSL L074E4D
L075EF4 LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L075F06 PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
LDA $1E
ORA $20
BNE L075F17
BRL L07603B
L075F17 PHY
PHY
PEI $20
PEI $1E
PEA $0008
JSL L150337
PLA
STA $07
PLX
STX $09
PEI $09
PEI $07
LDA #$0008
LDX #$0000
JSL L033477
BVS L075F3D
EOR #$8000
L075F3D BMI L075F42
BRL L07603B
L075F42 LDA $1E
AND #$00FF
JSL L150488
STA $03
STX $05
PEI $09
PEI $07
PEA $0000
PEA $0080
JSL L150290
PLY
PLY
PLY
PLY
STA $11
STX $13
LDA $07
AND #$007F
STA $0B
L075F6C PEI $13
PEI $11
LDAL L053ABF
TAX
LDAL L053ABD
JSL L033477
BEQ L075F94
BVS L075F84
EOR #$8000
L075F84 BPL L075F94
PHY
JSL L076990
PLA
LSR
BCS L075F92
BRL L07603B
L075F92 BRA L075F6C
L075F94 PHY
PHY
PEI $13
PEI $11
JSL L077342
PLA
STA $0D
PLX
STX $0F
PHY
PHY
PEA $FFFF
PEA $FF00
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
LDA $0B
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $15
STX $17
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
PHX
PHA
JSL L15017E
PLA
PLX
STX $15
ORA $15
BNE L076030
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
LDA $0B
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $15
STX $17
LDA $03
LDX $05
STA [$15]
TXA
LDY #$0002
STA [$15],Y
PEI $13
PEI $11
PEA $0001
JSL L074AFC
LDA $1E
LDX $20
STA $22
STX $24
BRL L07620E
L076030 PEI $13
PEI $11
PEA $0000
JSL L074AFC
L07603B LDAL L053ABB
TAX
LDAL L053AB9
STA $11
STX $13
L076048 PEI $13
PEI $11
LDAL L053ABF
TAX
LDAL L053ABD
JSL L033477
BEQ L076072
BVS L076060
EOR #$8000
L076060 BPL L076072
PHY
JSL L076990
PLA
LSR
BCS L076072
PEA $06F1
JSL L07272E
L076072 PHY
PHY
PEI $13
PEI $11
JSL L077342
PLA
STA $0D
PLX
STX $0F
STZ $0B
LDA $11
ORA $13
BNE L07608F
LDA #$0008
STA $0B
L07608F PHY
PHY
PEA $FFFF
PEA $FF00
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
LDA $0B
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $15
STX $17
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
PHX
PHA
JSL L15017E
PLA
PLX
STX $15
ORA $15
BEQ L076118
LDA $0B
INC
STA $0B
LDA #$0080
CMP $0B
BNE L07608F
PEI $13
PEI $11
PEA $0000
JSL L074AFC
LDA $11
LDX $13
INC
BNE L0760F2
INX
L0760F2 STA $11
STX $13
LDAL L053ABF
TAX
LDAL L053ABD
CLC
ADC #$0002
BCC L076106
INX
L076106 CMP $11
BNE L07610C
CPX $13
L07610C BEQ L076111
BRL L076048
L076111 PEA $0536
JSL L07272E
L076118 LDA $11
LDX $13
PEA $0000
PEA $0080
JSL L150D50
LDA $0B
JSL L150488
JSL L150F53
STA $07
STX $09
STZ $01
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
LDA $0B
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $15
STX $17
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
AND #$00FF
JSL L150488
STA $03
STX $05
LDA $03
ORA $05
BNE L0761BD
PHY
JSL L150705
PLA
AND #$00FF
JSL L150488
STA $03
STX $05
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
LDA $0B
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $15
STX $17
LDA $03
LDX $05
STA [$15]
TXA
LDY #$0002
STA [$15],Y
LDA #$0001
STA $01
L0761BD LDA $07
LDX $09
PEA $0000
PEA $0100
JSL L150D50
LDA $03
LDX $05
JSL L150F53
STA $22
STX $24
PEI $13
PEI $11
PEI $01
JSL L074AFC
PEI $13
PEI $11
LDAL L053ABB
TAX
LDAL L053AB9
JSL L033477
BEQ L07620E
BVS L0761F9
EOR #$8000
L0761F9 BPL L07620E
LDA $11
LDX $13
STAL L053AB9
TXA
STAL L053ABB
LDA #$0001
STA L05504D
L07620E LDA $1C
STA $20
LDA $1B
STA $1F
LDA $19
TCD
TSC
CLC
ADC #$001E
TCS
RTL
L076220 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
STZ $1A
STZ $1C
STZ $09
STZ $0B
LDAL L053A9F
TAX
LDAL L053A9D
SEC
SBC #$0600
BCS L076240
DEX
L076240 STA $0D
STX $0F
PHY
PHY
PEI $0F
PEI $0D
LDA L055019
PHA
PEA $8000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $09
PLX
STX $0B
LDAL L05565D
BEQ L07626A
BRL L07631A
L07626A LDA L055047
PHA
PEA $0000
PEA $0600
JSL L075E14
PHY
PHY
LDA L055047
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $0001
JSL L075D80
PLA
STA $05
PLX
STX $07
LDAL L05565D
BNE L076312
LDA #$0004
CMP $01
BEQ L0762BB
LDA L055047
PHA
LDA #$0600
CLC
ADC $01
JSL L150488
PHX
PHA
JSL L075E14
L0762BB PHY
PHY
LDA L055047
PHA
LDY #$0002
LDA [$09],Y
PHA
LDA [$09]
PHA
PEI $0F
PEI $0D
PEA $0001
JSL L075D80
PLA
STA $05
PLX
STX $07
LDAL L05565D
BNE L076312
PEI $0B
PEI $09
JSL L07191C
PHY
PHY
LDY #$0002
LDA [$09],Y
PHA
LDA [$09]
PHA
JSL L071C98
PLA
PLX
INC
BNE L0762FE
INX
L0762FE PHX
PHA
PEI $0B
PEI $09
JSL L1512FB
LDA $09
LDX $0B
STA $1A
STX $1C
BRA L07631A
L076312 PEI $0B
PEI $09
JSL L07185A
L07631A TSC
CLC
ADC #$0014
TCS
PLD
RTL
L076322 PHD
TSC
CLC
ADC #$FFDA
TCS
TCD
STZ $13
STZ $15
PHY
PHY
PEI $32
PEI $30
LDA $03,S
EOR #$FFFF
TAX
PLA
EOR #$FFFF
PLY
INC
BNE L076343
INX
L076343 PHX
PHA
LDY #$0033
LDA [$2C],Y
PHA
DEY
DEY
LDA [$2C],Y
PHA
LDY #$0040
LDA [$2C],Y
TAX
DEY
DEY
LDA [$2C],Y
JSL L150F53
PEI $32
PEI $30
JSL L150F53
TAY
BNE L07636A
DEX
L07636A DEC
PHX
PHA
JSL L15017E
PLA
STA $1F
PLX
STX $21
LDA $1F
LDX $21
SEC
SBC #$0020
BCS L076382
DEX
L076382 LDY #$0005
STA [$2C],Y
INY
INY
TXA
STA [$2C],Y
PEI $21
PEI $1F
LDY #$0033
LDA [$2C],Y
TAX
DEY
DEY
LDA [$2C],Y
JSL L1512A5
STA $1B
STX $1D
LDA L055047
PHA
PEI $21
PEI $1F
JSL L075DD3
LDAL L05565D
BEQ L0763B7
BRL L07650A
L0763B7 LDA #$0001
STA $05
LDA $1B
LDX $1D
STA $07
STX $09
L0763C4 PHY
PHY
PEI $09
PEI $07
LDA L055017
PHA
PEA $4000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $13
PLX
STX $15
LDAL L05565D
BEQ L07641A
LDA $05
ASL
STA $05
PEI $09
PEI $07
PEA $0000
PEA $0002
JSL L150290
PLY
PLY
PLY
PLY
STA $07
STX $09
PEI $09
PEI $07
LDA #$0200
LDX #$0000
JSL L033477
BVS L076415
EOR #$8000
L076415 BMI L07641A
BRL L07650A
L07641A LDAL L05565D
BNE L0763C4
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
STA $0F
STX $11
PEI $11
PEI $0F
PEI $09
PEI $07
JSL L071EC5
LDA $0F
LDX $11
PEI $09
PEI $07
JSL L150F53
SEC
SBC #$0002
BCS L07644B
DEX
L07644B STA $0B
STX $0D
L07644F PEI $11
PEI $0F
LDA $0B
LDX $0D
JSL L033477
BVS L076460
EOR #$8000
L076460 BMI L076478
LDA #$5341
STA [$0F]
LDA $0F
LDX $11
CLC
ADC #$0200
BCC L076472
INX
L076472 STA $0F
STX $11
BRA L07644F
L076478 LDA L055047
PHA
LDY #$0033
LDA [$2C],Y
PHA
DEY
DEY
LDA [$2C],Y
PHA
JSL L075E14
LDA $05
STA $01
LDA $01
SEC
SBC #$0001
BVS L07649A
EOR #$8000
L07649A BPL L0764D1
LDA #$0001
STA $03
L0764A1 PHY
PHY
LDA L055047
PHA
LDY #$0002
LDA [$13],Y
PHA
LDA [$13]
PHA
PEI $09
PEI $07
PEA $0000
JSL L075E55
PLA
STA $17
PLX
STX $19
LDAL L05565D
BNE L07650A
LDA $03
CMP $01
BEQ L0764D1
INC $03
BRA L0764A1
L0764D1 LDA L055047
PHA
LDY #$0007
LDA [$2C],Y
PHA
DEY
DEY
LDA [$2C],Y
PHA
JSL L075E14
PHY
PHY
LDA L055047
PHA
LDA #$000D
CLC
ADC $2C
LDX $2E
BCC L0764F5
INX
L0764F5 PHX
PHA
PEA $0000
PEA $0020
PEA $0000
JSL L075E55
PLA
STA $17
PLX
STX $19
L07650A LDAL L05565D
LDY #$0001
STA [$2C],Y
PEI $15
PEI $13
JSL L07185A
LDA $1F
LDX $21
STA $34
STX $36
LDA $2A
STA $32
LDA $29
STA $31
LDA $27
TCD
TSC
CLC
ADC #$0030
TCS
RTL
L076535 PHD
TSC
CLC
ADC #$FFC8
TCS
TCD
STZ $42
LDA L055051
BEQ L076547
BRL L07661E
L076547 LDAL L053AB3
TAX
LDAL L053AB1
STA $31
STX $33
LDA #$0020
LDX #$0000
STA $0D
STX $0F
LDA #$4154
LDX #$4C49
STA $11
STX $13
LDA #$FFFF
TAX
STA $15
STX $17
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA ^L040A5D
PEA L040A5D
PEA $0014
JSL L0313BE
LDA #$FFFF
STA $01
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
JSL L0752E6
LDA #$FA00
LDX #$0000
JSL L033477
BEQ L0765C2
BVS L0765AA
EOR #$8000
L0765AA BPL L0765C2
PHY
PHY
PEA $0000
PEA $2000
PEA $0000
PHD
JSL L076322
PLA
STA $2D
PLX
STX $2F
L0765C2 LDA $01
BEQ L0765DC
PHY
PHY
PEA $0000
PEA $0400
PEA $0000
PHD
JSL L076322
PLA
STA $2D
PLX
STX $2F
L0765DC LDA $01
BNE L07661E
LDA $31
LDX $33
SEC
SBC #$0020
BCS L0765EB
DEX
L0765EB STA $09
STX $0B
PEI $0B
PEI $09
PEI $07
PEI $05
LDA $09
LDX $0B
JSL L1512A5
PHX
PHA
PEA $0001
JSL L075688
LDA $2D
LDX $2F
STAL L053AB1
TXA
STAL L053AB3
JSL L078CA4
LDA #$0001
STA $42
L07661E LDA $01
BEQ L07662E
LDA L055047
PHA
PEI $33
PEI $31
JSL L075DD3
L07662E LDA #$0001
STA L054FF7
JSL L075602
LDA $3C
STA $40
LDA $3B
STA $3F
LDA $39
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L07664A PHD
TSC
CLC
ADC #$FDE0
TCS
ADC #$012D
TCD
STZ $FC
PEI $FA
PEI $F8
LDA #$0000
TAX
JSL L033477
BPL L076668
BRL L076890
L076668 BNE L07666D
BRL L076890
L07666D LDA L055051
BEQ L076675
BRL L076895
L076675 PHY
PHY
PEA $FFFF
PEA $FE00
LDA $F8
LDX $FA
CLC
ADC #$01FF
BCC L076688
INX
L076688 PHX
PHA
JSL L15017E
PLA
STA $F8
PLX
STX $FA
LDAL L053ABF
TAX
LDAL L053ABD
INC
BNE L0766A1
INX
L0766A1 PEA $0000
PEA $0200
JSL L150D50
PLA
STA $E7
PLX
STX $E9
LDAL L053AB7
TAX
LDAL L053AB5
PEI $E9
PEI $E7
JSL L150F53
STA $E3
STX $E5
LDA $E3
LDX $E5
PEI $FA
PEI $F8
JSL L150F53
STA $DF
STX $E1
L0766D6 PHY
PHY
PEI $E5
PEI $E3
JSL L075577
PLA
STA $EB
PLX
STX $ED
LDA $EB
ORA $ED
BEQ L07670C
PEI $E5
PEI $E3
LDY #$0006
LDA [$EB],Y
TAX
DEY
DEY
LDA [$EB],Y
JSL L150F53
STA $E3
STX $E5
PEI $ED
PEI $EB
JSL L0750FF
BRA L07672B
L07670C PHY
PHY
PHY
PEI $E5
PEI $E3
JSL L076F11
PEA $444C
PEA $4957
PEA $0002
JSL L076F4D
PLA
LSR
BCS L07672B
BRL L076895
L07672B PEI $E5
PEI $E3
LDA $DF
LDX $E1
JSL L033477
BVS L07673C
EOR #$8000
L07673C BPL L0766D6
PEI $E5
PEI $E3
LDA $DF
LDX $E1
JSL L033477
BEQ L07676C
BVS L076751
EOR #$8000
L076751 BPL L07676C
PEI $E1
PEI $DF
PEI $E5
PEI $E3
LDA $DF
LDX $E1
JSL L1512A5
PHX
PHA
PEA $0001
JSL L075688
L07676C LDA $DF
LDX $E1
STA $D7
STX $D9
LDAL L053AB7
TAX
LDAL L053AB5
PEI $E9
PEI $E7
JSL L150F53
STA $DB
STX $DD
LDAL L053ABF
TAX
LDAL L053ABD
STA $D3
STX $D5
L076796 LDA $DB
LDX $DD
SEC
SBC #$0200
BCS L0767A1
DEX
L0767A1 STA $DB
STX $DD
LDA $D7
LDX $D9
SEC
SBC #$0200
BCS L0767B0
DEX
L0767B0 STA $D7
STX $D9
PEI $DD
PEI $DB
PEA $0000
PEA $0200
PEA $0000
TDC
CLC
ADC #$FED3
PHA
PEA $0000
JSL L077D97
PEI $D9
PEI $D7
PEA $0000
PEA $0200
PEA $0000
TDC
CLC
ADC #$FED3
PHA
JSL L078BF0
LDA $E3
LDX $E5
SEC
SBC #$0200
BCS L0767F0
DEX
L0767F0 STA $E3
STX $E5
LDX $D5
LDA $D3
BNE L0767FB
DEX
L0767FB DEC
STA $D3
STX $D5
PEI $D5
PEI $D3
LDA #$0000
TAX
JSL L033477
BPL L076796
PEA $0000
TDC
CLC
ADC #$FED3
PHA
PEA $0000
PEA $0100
JSL L071ECE
L076821 LDA $D7
LDX $D9
SEC
SBC #$0200
BCS L07682C
DEX
L07682C STA $D7
STX $D9
PEI $D9
PEI $D7
PEA $0000
PEA $0200
PEA $0000
TDC
CLC
ADC #$FED3
PHA
JSL L078BF0
LDAL L053A9F
TAX
LDAL L053A9D
CMP $D7
BNE L076856
CPX $D9
L076856 BNE L076821
LDAL L053A9F
TAX
LDAL L053A9D
PEI $FA
PEI $F8
JSL L150F53
STAL L053A9D
TXA
STAL L053A9F
LDAL L053AB7
TAX
LDAL L053AB5
PEI $FA
PEI $F8
JSL L150F53
STAL L053AB5
TXA
STAL L053AB7
JSL L078CA4
L076890 LDA #$0001
STA $FC
L076895 LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$0226
TCS
RTL
L0768A7 PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
PHY
JSL L071BFF
PLA
STA $0F
STZ $20
STZ $22
STZ $01
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $200D
JSL GSOS2
STAL L05565D
LDAL L05565D
BEQ L0768DA
BRL L076978
L0768DA LDA L054FC3
BEQ L0768E2
BRL L076978
L0768E2 LDA #$0001
STA L054FC3
LDA L05504D
BEQ L0768F1
JSL L078CA4
L0768F1 STZ $07
STZ $09
PEI $1E
PEI $1C
PEI $1E
PEI $1C
PEA $0000
PEA $0002
JSL L150290
PLY
PLY
PLY
PLY
JSL L150F53
STA $03
STX $05
L076913 PHY
PHY
PEA $0000
JSL L074067
PLA
STA $0B
PLX
STX $0D
LDA $07
LDX $09
PEI $0D
PEI $0B
JSL L150F53
STA $07
STX $09
LDX #$0000
LDA $0B
ORA $0D
BNE L07693C
INX
L07693C TXA
BNE L07696B
LDX #$0000
LDA $1A
BNE L076947
INX
L076947 PHX
PEI $09
PEI $07
LDA $03
LDX $05
JSL L033477
BVS L076959
EOR #$8000
L076959 BMI L076960
LDA #$0000
BRA L076963
L076960 LDA #$0001
L076963 AND $01,S
PLX
CMP #$0000
BEQ L076913
L07696B LDA #$0001
STA L054FF5
JSL L075602
STZ L054FC3
L076978 PEI $0F
JSL L071AA4
LDA $18
STA $1E
LDA $17
STA $1D
LDA $15
TCD
TSC
CLC
ADC #$001C
TCS
RTL
L076990 PHD
TSC
CLC
ADC #$FDE8
TCS
ADC #$0121
TCD
STZ $FC
LDA L055051
BEQ L0769A5
BRL L076B31
L0769A5 LDAL L053ABF
TAX
LDAL L053ABD
INC
BNE L0769B2
INX
L0769B2 PEA $0000
PEA $0200
JSL L150D50
PLA
STA $EB
PLX
STX $ED
LDAL L053AB7
TAX
LDAL L053AB5
PEI $ED
PEI $EB
JSL L150F53
STA $E7
STX $E9
LDA $E7
LDX $E9
CLC
ADC #$0200
BCC L0769E2
INX
L0769E2 STA $E3
STX $E5
L0769E6 PHY
PHY
PEI $E9
PEI $E7
JSL L075577
PLA
STA $EF
PLX
STX $F1
LDA $EF
ORA $F1
BEQ L076A1C
PEI $E9
PEI $E7
LDY #$0006
LDA [$EF],Y
TAX
DEY
DEY
LDA [$EF],Y
JSL L150F53
STA $E7
STX $E9
PEI $F1
PEI $EF
JSL L0750FF
BRA L076A3B
L076A1C PHY
PHY
PHY
PEI $E9
PEI $E7
JSL L076F11
PEA $444C
PEA $4957
PEA $0002
JSL L076F4D
PLA
LSR
BCS L076A3B
BRL L076B2D
L076A3B PEI $E9
PEI $E7
LDA $E3
LDX $E5
JSL L033477
BVS L076A4C
EOR #$8000
L076A4C BPL L0769E6
PEI $E9
PEI $E7
LDA $E3
LDX $E5
JSL L033477
BEQ L076A7C
BVS L076A61
EOR #$8000
L076A61 BPL L076A7C
PEI $E5
PEI $E3
PEI $E9
PEI $E7
LDA $E3
LDX $E5
JSL L1512A5
PHX
PHA
PEA $0001
JSL L075688
L076A7C PEA $0000
TDC
CLC
ADC #$FEDF
PHA
PEA $0000
PEA $0100
JSL L071ECE
LDAL L053AB7
TAX
LDAL L053AB5
PEI $ED
PEI $EB
JSL L150F53
PHX
PHA
PEA $0000
PEA $0200
PEA $0000
TDC
CLC
ADC #$FEDF
PHA
JSL L078BF0
LDA $EB
LDX $ED
CLC
ADC #$0200
BCC L076AC0
INX
L076AC0 STA $EB
STX $ED
PHY
PHY
PEA $0000
PEA $0000
JSL L077342
PLA
STA $DF
PLX
STX $E1
LDA $DF
ORA $E1
BNE L076AE3
PEA $0096
JSL L07272E
L076AE3 LDY #$0002
LDA [$DF],Y
TAX
LDA [$DF]
STA $F3
STX $F5
LDA $EB
LDX $ED
STA [$F3]
TXA
LDY #$0002
STA [$F3],Y
PEA $0000
PEA $0000
PEA $0001
JSL L074AFC
PEA $8000
PEA $0000
JSL L0747E1
LDAL L053ABF
TAX
LDAL L053ABD
INC
BNE L076B1F
INX
L076B1F STAL L053ABD
TXA
STAL L053ABF
LDA #$0001
STA $FC
L076B2D JSL L078CA4
L076B31 TSC
CLC
ADC #$0218
TCS
PLD
RTL
L076B39 PHD
TSC
CLC
ADC #$FDF6
TCS
ADC #$0113
TCD
STZ $FC
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEA $0000
TDC
CLC
ADC #$FEED
PHA
LDA L05503F
LDX L055041
PHX
PHA
JSL L072CD4
PEA $0100
JSL L0313BE
LDA #$00FF
LDX #$FFF0
AND $00,X
STA $F1
LDA #$00FF
LDX #$FFEF
AND $00,X
LDX #$FFED
STA $00,X
LDX #$FFED
LDA $00,X
SEC
SBC #$0002
BVS L076B90
EOR #$8000
L076B90 BPL L076BB6
LDA #$0002
STA $EF
L076B97 LDA $EF
CLC
ADC #$FFEF
TAX
LDA #$00FF
AND $00,X
CMP $F1
BNE L076BA9
BRA L076BB6
L076BA9 LDA $EF
LDX #$FFED
CMP $00,X
BEQ L076BB6
INC $EF
BRA L076B97
L076BB6 LDA $EF
LDX #$FFEF
SEP #$20
STA $00,X
REP #$20
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEA $0000
TDC
CLC
ADC #$FEED
PHA
LDA L055043
LDX L055045
PHX
PHA
JSL L072CD4
PEA ^L040A71
PEA L040A71
PEA ^L040A72
PEA L040A72
JSL L073C22
PHY
PEA $0046
PEA $0001
PEA $09C4
JSL L072032
PLA
CMP #$0001
BEQ L076C08
LDA #$0000
BRA L076C0B
L076C08 LDA #$0001
L076C0B STA $FC
TSC
CLC
ADC #$020A
TCS
PLD
RTL
L076C15 ENT
PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
LDA L05500F
ORA L055011
BEQ L076C2C
PEA $198F
JSL L07272E
L076C2C LDA L055013
ORA L055015
BEQ L076C37
LDA #$0001
L076C37 ORA L05504D
STA $2F
LDA L05504D
BEQ L076C45
JSL L078CA4
L076C45 LDA L055051
BNE L076CBB
L076C4A LDAL L053AE7
SEC
SBC #$0032
BEQ L076C5B
BVS L076C59
EOR #$8000
L076C59 BMI L076C60
L076C5B LDA #$0000
BRA L076C63
L076C60 LDA #$0001
L076C63 PHA
PHY
PEA $FFFF
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L151017
PLA
EOR #$0001
AND $01,S
PLX
LSR
BCC L076C85
JSL L074E83
BRA L076C4A
L076C85 LDA L055013
ORA L055015
BEQ L076CBB
L076C8D PHY
PEA $FFFF
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L151017
PHY
PHY
PEA $0000
JSL L074067
PLA
PLX
STX $33
ORA $33
BEQ L076CB2
LDA #$0001
L076CB2 EOR #$0001
ORA $01,S
PLX
LSR
BCC L076C8D
L076CBB LDA $2F
BEQ L076CD3
LDA L055013
ORA L055015
BEQ L076CCA
LDA #$0001
L076CCA ORA L05504D
BNE L076CD3
JSL L075602
L076CD3 TSC
CLC
ADC #$0036
TCS
PLD
RTL
L076CDB ENT
PHD
TSC
CLC
ADC #$FEE6
TCS
ADC #$0029
TCD
STZ $FC
LDA L055013
ORA L055015
BEQ L076CF7
PEA $7326
JSL L07272E
L076CF7 PEI $FA
PEA $0000
PEA $0000
JSL L075E14
PHY
PHY
PEI $FA
PEI $F8
PEI $F6
PEA $0000
PEA $0600
PEA $0001
JSL L075D80
PLA
STA $D7
PLX
STX $D9
LDAL L05565D
BEQ L076D2E
PEA $0032
JSL L0727E0
BRL L076EFF
L076D2E LDY #$0012
LDA [$F6],Y
PHA
DEY
DEY
LDA [$F6],Y
PHA
LDA #$0005
LDX #$0000
JSL L033477
BEQ L076D56
BVS L076D4A
EOR #$8000
L076D4A BPL L076D56
PEA $0033
JSL L0727E0
BRL L076EFF
L076D56 LDY #$0012
LDA [$F6],Y
PHA
DEY
DEY
LDA [$F6],Y
PHA
LDA #$0005
LDX #$0000
JSL L033477
BVS L076D70
EOR #$8000
L076D70 BMI L076D7C
PEA $0034
JSL L0727E0
BRL L076EFF
L076D7C LDA L055049
LDX L05504B
STA $E9
STX $EB
LDX #$0000
LDY #$004C
LDA #$2000
AND [$F6],Y
CMP #$0000
BEQ L076D97
INX
L076D97 TXA
STA $E7
LDA $E7
BNE L076DA1
BRL L076EAE
L076DA1 LDA #$0018
CLC
ADC $F6
LDX $F8
BCC L076DAC
INX
L076DAC PHX
PHA
PEI $EB
PEI $E9
JSL L077E22
PHY
PHY
PEI $F8
PEI $F6
PEA $0000
PEA $0180
JSL L071E31
PLA
PLX
STX $ED
ORA $ED
BNE L076DD1
BRL L076EAE
L076DD1 LDA #$0018
CLC
ADC $F6
LDX $F8
BCC L076DDC
INX
L076DDC PHX
PHA
PEI $EB
PEI $E9
JSL L077E22
PHY
JSL L0727BF
PLA
STA $E1
PHY
PHY
JSL L150493
PLA
STA $E3
PLX
STX $E5
PHY
PHY
PEA $1838
JSL L072834
PLA
STA $DD
PLX
STX $DF
PEI $DF
PEI $DD
JSL L15102F
L076E11 PHY
PEA $0001
JSL L0736C8
PLA
STA $DB
LDX #$0000
LDA $DB
DEC
BNE L076E25
INX
L076E25 PHX
LDX #$0000
LDA $DB
DEC
DEC
BNE L076E30
INX
L076E30 TXA
ORA $01,S
PLX
LSR
BCC L076E11
PEI $DF
PEI $DD
PEA $0004
PEA $0000
TDC
CLC
ADC #$FFD7
PHA
JSL L071169
PEI $DF
PEI $DD
JSL L072634
PEI $E1
JSL L0724F7
PEI $E5
PEI $E3
JSL L151131
LDA $DB
DEC
BNE L076E93
PEA $0000
TDC
CLC
ADC #$FFD7
PHA
JSL L0714B3
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFD8
PHA
LDA #$00FF
LDX #$FFD7
AND $00,X
PHA
JSL L073FDF
PLA
STA $E9
PLX
STX $EB
BRA L076E99
L076E93 LDA $DB
DEC
DEC
BEQ L076EFF
L076E99 LDA #$0018
CLC
ADC $F6
LDX $F8
BCC L076EA4
INX
L076EA4 PHX
PHA
PEI $EB
PEI $E9
JSL L077E22
L076EAE PHY
PHY
PEI $F8
PEI $F6
PEA $0000
PEA $0180
JSL L071E31
PLA
PLX
STX $ED
ORA $ED
BEQ L076ECF
PEA $0037
JSL L0727E0
BRA L076EFF
L076ECF LDA $E7
BEQ L076EEB
LDA $E9
LDX $EB
STA L055049
STX L05504B
LDA $E9
LDX $EB
LDY #$000C
STA [$F6],Y
INY
INY
TXA
STA [$F6],Y
L076EEB LDY #$0048
LDA [$F6],Y
BNE L076EFA
LDA #$0005
LDY #$0048
STA [$F6],Y
L076EFA LDA #$0001
STA $FC
L076EFF LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$0122
TCS
RTL
L076F11 PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
PEI $2C
PEI $2A
PEA $0000
PEA $0020
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0001
JSL L077D97
LDA $09
LDX $0B
STA $2E
STX $30
LDA $28
STA $2C
LDA $27
STA $2B
LDA $25
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L076F4D PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
STZ $26
LDA L055051
BEQ L076F5F
BRL L07703C
L076F5F PHY
PHY
PEI $24
PEI $22
JSL L0742B3
PLA
STA $03
PLX
STX $05
PEI $05
PEI $03
LDA #$0000
TAX
JSL L033477
BEQ L076F7F
BPL L076F82
L076F7F BRL L07703C
L076F82 PHY
PHY
PEI $24
PEI $22
PEI $20
PEI $1E
PEA $0000
JSL L077624
PLA
STA $0F
PLX
STX $11
LDA $0F
ORA $11
BNE L076FA2
BRL L07703C
L076FA2 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $13
STX $15
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
STA $0B
STX $0D
PHY
PHY
PEI $0D
PEI $0B
PEI $1C
JSL L0743E8
PLA
STA $07
PLX
STX $09
LDA $07
ORA $09
BEQ L07702D
PHY
PEI $11
PEI $0F
JSL L0718FA
PLA
STA $01
PEI $09
PEI $07
PEI $0D
PEI $0B
LDY #$0002
LDA [$0F],Y
PHA
LDA [$0F]
PHA
JSL L078BF0
PEI $11
PEI $0F
PEI $01
JSL L0718DA
PHY
PHY
PEI $24
PEI $22
JSL L0742B3
PLA
STA $03
PLX
STX $05
PEI $24
PEI $22
PEI $09
PEI $07
JSL L078A77
PEI $05
PEI $03
PEI $0D
PEI $0B
PEA $0001
JSL L075688
LDA #$0001
STA $26
L07702D PEI $24
PEI $22
PEI $20
PEI $1E
PEA $0000
JSL L074B81
L07703C LDA $1A
STA $24
LDA $19
STA $23
LDA $17
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L07704E ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
PEA $FFFF
PEA $FFE0
LDA $0A
LDX $0C
CLC
ADC #$001F
BCC L077069
INX
L077069 PHX
PHA
JSL L15017E
PLA
STA $0E
PLX
STX $10
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L077086 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA $12
ORA $14
BEQ L077109
LDA [$12]
LDY #$0002
ORA [$12],Y
BEQ L077109
PHY
PHY
PEI $14
PEI $12
JSL L151301
LDA #$0002
LDX #$0000
JSL L033477
BEQ L077109
BVS L0770B8
EOR #$8000
L0770B8 BPL L077109
LDY #$0002
LDA [$12],Y
TAX
LDA [$12]
STA $09
STX $0B
LDA [$09]
SEC
SBC #$0000
BMI L077109
BEQ L077109
PEI $14
PEI $12
JSL L0718BF
LDA #$0002
STA $01
LDA $16
STA $03
LDY #$0002
LDA [$12],Y
TAX
LDA [$12]
STA $05
STX $07
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $2009
JSL GSOS2
STAL L05565D
PEI $14
PEI $12
JSL L07191C
L077109 LDA $10
STA $16
LDA $0F
STA $15
LDA $0D
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L07711B PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
CLC
ADC #$0004
BCC L077132
INX
L077132 STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $01
STX $03
LDA #$4D42
LDX #$5041
CMP $01
BNE L07714E
CPX $03
L07714E BEQ L077155
LDA #$0000
BRA L077158
L077155 LDA #$0001
L077158 PHA
LDA #$4143
LDX #$4452
CMP $01
BNE L077165
CPX $03
L077165 BEQ L07716C
LDA #$0000
BRA L07716F
L07716C LDA #$0001
L07716F ORA $01,S
PLX
PHA
LDA #$4B42
LDX #$4447
CMP $01
BNE L07717F
CPX $03
L07717F BEQ L077186
LDA #$0000
BRA L077189
L077186 LDA #$0001
L077189 ORA $01,S
PLX
PHA
LDA #$5250
LDX #$544E
CMP $01
BNE L077199
CPX $03
L077199 BEQ L0771A0
LDA #$0000
BRA L0771A3
L0771A0 LDA #$0001
L0771A3 ORA $01,S
PLX
LSR
BCC L0771B6
PEA $0002
PEI $10
PEI $0E
JSL L150D44
BRA L0771C1
L0771B6 PEA $0001
PEI $10
PEI $0E
JSL L150D44
L0771C1 LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L0771D3 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
STZ $12
PHY
PHY
PEI $10
PEI $0E
JSL L0741B8
PLA
STA $01
PLX
STX $03
LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L077208
LDY #$000A
LDA [$01],Y
PHA
LDX #$0000
PLA
BPL L077205
INX
L077205 TXA
STA $12
L077208 LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L07721A ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FE1
LDX L054FE3
STA L054FC9
STX L054FCB
PHY
PHY
PEI $0C
PEI $0A
PEA $4447
PEA $4B42
PEA $0000
JSL L077624
PLA
STA $0E
PLX
STX $10
LDA L054FC9
LDX L054FCB
STA L054FE1
STX L054FE3
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L077264 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FDD
LDX L054FDF
STA L054FC9
STX L054FCB
PHY
PHY
PEI $0E
PEI $0C
PEA $5041
PEA $4D42
PEI $0A
JSL L077624
PLA
STA $10
PLX
STX $12
LDA L054FC9
LDX L054FCB
STA L054FDD
STX L054FDF
LDA $08
STA $0E
LDA $07
STA $0D
LDA $05
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L0772AE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FD9
LDX L054FDB
STA L054FC9
STX L054FCB
PHY
PHY
PEI $0C
PEI $0A
PEA $4452
PEA $4143
PEA $0000
JSL L077624
PLA
STA $0E
PLX
STX $10
LDA L054FC9
LDX L054FCB
STA L054FD9
STX L054FDB
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L0772F8 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FD5
LDX L054FD7
STA L054FC9
STX L054FCB
PHY
PHY
PEI $0C
PEI $0A
PEA $5453
PEA $494C
PEA $0000
JSL L077624
PLA
STA $0E
PLX
STX $10
LDA L054FC9
LDX L054FCB
STA L054FD5
STX L054FD7
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L077342 PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
LDX #$0000
LDA $24
BPL L077352
INX
L077352 TXA
PHA
PEI $24
PEI $22
LDAL L053ABF
TAX
LDAL L053ABD
JSL L033477
BEQ L07736E
BVS L07736C
EOR #$8000
L07736C BMI L077373
L07736E LDA #$0000
BRA L077376
L077373 LDA #$0001
L077376 ORA $01,S
PLX
LSR
BCC L077383
PEA $0467
JSL L07272E
L077383 PHY
PHY
PEA $8000
PEA $0000
PEI $24
PEI $22
JSL L150241
PLA
STA $11
PLX
STX $13
LDA L054FD1
LDX L054FD3
STA L054FC9
STX L054FCB
PHY
PHY
PEI $13
PEI $11
JSL L0741B8
PLA
STA $15
PLX
STX $17
LDA $15
LDX $17
STA L054FD1
STX L054FD3
LDY #$0002
LDA [$15],Y
INY
INY
ORA [$15],Y
BNE L0773CD
BRL L077505
L0773CD LDA $15
LDX $17
STA $05
STX $07
LDY #$0006
LDA [$05],Y
INY
INY
ORA [$05],Y
BNE L0773E7
PEA $0CC9
JSL L07272E
L0773E7 LDY #$0008
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $19
STX $1B
LDA [$19]
LDY #$0002
ORA [$19],Y
BEQ L077401
BRL L0774A7
L077401 LDY #$000C
LDA [$05],Y
BEQ L07740F
PEA $0F24
JSL L07272E
L07740F PEA $0000
PEA $0200
LDA L055017
PHA
PEA $0010
PEA $0000
PEA $0000
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
JSL L151406
LDAL L05565D
BEQ L07743E
PEA $0F75
JSL L07272E
L07743E LDAL L053AB7
PHA
LDAL L053AB5
PHA
LDA $22
LDX $24
PEA $0000
PEA $0200
JSL L150D50
PLA
PLX
JSL L150F53
STA $0D
STX $0F
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
JSL L0718BF
PEI $0F
PEI $0D
PEA $0000
PEA $0200
LDY #$0008
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $19
STX $1B
LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
PHX
PHA
PEA $0000
JSL L077D97
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
JSL L07191C
L0774A7 LDY #$000C
LDA [$05],Y
BNE L0774D0
LDA L05500F
LDX L055011
INC
BNE L0774B8
INX
L0774B8 STA L05500F
STX L055011
PEA $0000
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
JSL L150D44
L0774D0 LDY #$000C
LDA [$05],Y
INC
LDY #$000C
STA [$05],Y
LDY #$000C
LDA [$05],Y
SEC
SBC #$0010
BEQ L0774F4
BVS L0774EB
EOR #$8000
L0774EB BPL L0774F4
PEA $04D0
JSL L07272E
L0774F4 LDY #$0008
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $26
STX $28
BRL L077612
L077505 LDAL L053AB7
PHA
LDAL L053AB5
PHA
LDA $22
LDX $24
PEA $0000
PEA $0200
JSL L150D50
PLA
PLX
JSL L150F53
STA $0D
STX $0F
PHY
PHY
PEA $0000
PEA $0200
LDA L055017
PHA
PEA $8000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $09
PLX
STX $0B
LDAL L05565D
BEQ L077581
LDA L055003
BNE L077555
JSL L151373
L077555 PHY
PHY
PEA $0000
PEA $0200
LDA L055017
PHA
PEA $8000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $09
PLX
STX $0B
LDAL L05565D
BEQ L077581
PEA $2D17
JSL L07272E
L077581 PEI $0F
PEI $0D
PEA $0000
PEA $0200
LDY #$0002
LDA [$09],Y
PHA
LDA [$09]
PHA
PEA $0000
JSL L077D97
PEI $0B
PEI $09
JSL L07191C
LDA $15
LDX $17
STA $01
STX $03
LDA $01
LDX $03
STA $19
STX $1B
PEI $0F
PEI $0D
PEA $0000
PEA $0100
JSL L150290
PLY
PLY
PLY
PLY
STA [$19]
LDA $11
LDX $13
LDY #$0002
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA $09
LDX $0B
LDY #$0006
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0001
LDY #$000C
STA [$01],Y
LDA L054FC1
LDY #$000A
STA [$01],Y
LDA L05500D
INC
STA L05500D
LDA L05500F
LDX L055011
INC
BNE L077604
INX
L077604 STA L05500F
STX L055011
LDA $09
LDX $0B
STA $26
STX $28
L077612 LDA $20
STA $24
LDA $1F
STA $23
LDA $1D
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L077624 ENT
PHD
TSC
CLC
ADC #$FFB4
TCS
TCD
STZ $5C
STZ $5E
PHY
PHY
PEI $5A
PEI $58
JSL L0741B8
PLA
STA $3D
PLX
STX $3F
LDA L054FC9
LDX L054FCB
STA $09
STX $0B
LDY #$0002
LDA [$3D],Y
INY
INY
ORA [$3D],Y
BNE L077684
LDA #$FFFF
TAX
LDY #$0002
STA [$3D],Y
INY
INY
TXA
STA [$3D],Y
PHY
PHY
PEI $5A
PEI $58
JSL L0742B3
PLA
STA $39
PLX
STX $3B
LDA #$0000
TAX
LDY #$0002
STA [$3D],Y
INY
INY
TXA
STA [$3D],Y
BRL L07778E
L077684 LDA $3D
LDX $3F
STA $05
STX $07
LDY #$0006
LDA [$05],Y
INY
INY
ORA [$05],Y
BNE L07769E
PEA $04CF
JSL L07272E
L07769E LDY #$0008
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $49
STX $4B
LDA [$49]
LDY #$0002
ORA [$49],Y
BNE L0776DA
PEA $0000
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
JSL L150D44
PHY
PHY
PEI $5A
PEI $58
JSL L0742B3
PLA
STA $39
PLX
STX $3B
BRL L07778E
L0776DA LDY #$0008
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $49
STX $4B
LDY #$0002
LDA [$49],Y
TAX
LDA [$49]
CLC
ADC #$0004
BCC L0776F7
INX
L0776F7 STA $49
STX $4B
LDA $54
LDX $56
CMP [$49]
BNE L077709
LDY #$0002
TXA
CMP [$49],Y
L077709 BEQ L077710
LDA #$0000
BRA L077713
L077710 LDA #$0001
L077713 PHA
LDA #$4957
LDX #$444C
CMP $54
BNE L077720
CPX $56
L077720 BEQ L077727
LDA #$0000
BRA L07772A
L077727 LDA #$0001
L07772A ORA $01,S
PLX
LSR
BCC L07778B
LDY #$000C
LDA [$05],Y
BNE L077759
LDA L05500F
LDX L055011
INC
BNE L077741
INX
L077741 STA L05500F
STX L055011
PEA $0000
LDY #$0008
LDA [$05],Y
PHA
DEY
DEY
LDA [$05],Y
PHA
JSL L150D44
L077759 LDY #$000C
LDA [$05],Y
INC
LDY #$000C
STA [$05],Y
LDY #$000C
LDA [$05],Y
SEC
SBC #$0010
BEQ L07777D
BVS L077774
EOR #$8000
L077774 BPL L07777D
PEA $04D1
JSL L07272E
L07777D LDY #$0008
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
STA $5C
STX $5E
L07778B BRL L0779CF
L07778E PEI $3B
PEI $39
LDA #$0000
TAX
JSL L033477
BPL L07779F
BRL L0779CF
L07779F BNE L0777A4
BRL L0779CF
L0777A4 PEI $3B
PEI $39
PEA $0000
PEA $0020
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA $0001
JSL L077D97
LDA $0D
LDX $0F
STA $35
STX $37
PEI $37
PEI $35
PEI $5A
PEI $58
PEA $0000
PEA $154E
JSL L074691
PEI $5A
PEI $58
PEI $56
PEI $54
PEI $13
PEI $11
PEA $0000
PEA $13F8
JSL L074716
LDA $15
LDX $17
CMP $58
BNE L0777F8
CPX $5A
L0777F8 BEQ L077801
PEA $154F
JSL L07272E
L077801 LDA L055013
LDX L055015
PHX
PHA
LDA #$0010
LDX #$0000
JSL L033477
BEQ L077823
BVS L07781A
EOR #$8000
L07781A BPL L077823
PEA $0000
JSL L07479E
L077823 LDY #$0004
LDA [$3D],Y
TAX
DEY
DEY
LDA [$3D],Y
CMP $58
BNE L077833
CPX $5A
L077833 BNE L07788F
LDY #$0008
LDA [$3D],Y
TAX
DEY
DEY
LDA [$3D],Y
STA $2D
STX $2F
PEI $37
PEI $35
LDA L055017
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $2F
PEI $2D
JSL L151406
LDAL L05565D
BEQ L07788D
LDA L055003
BNE L07786B
JSL L151373
L07786B PEI $37
*
PEI $35
LDA L055017
PHA
PEA $0000
PEA $0000
PEA $0000
PEI $2F
PEI $2D
JSL L151406
LDAL L05565D
BEQ L07788D
BRL L0779CF
L07788D BRA L0778E8
L07788F PHY
PHY
PEI $37
PEI $35
LDA L055017
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $2D
PLX
STX $2F
LDAL L05565D
BEQ L0778E1
LDA L055003
BNE L0778BB
JSL L151373
L0778BB PHY
PHY
PEI $37
PEI $35
LDA L055017
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $2D
PLX
STX $2F
LDAL L05565D
BEQ L0778E1
BRL L0779CF
L0778E1 LDA L05500D
INC
STA L05500D
L0778E8 LDA #$5246
LDX #$4545
CMP $11
BNE L0778F4
CPX $13
L0778F4 BEQ L0778FB
LDA #$0000
BRA L0778FE
L0778FB LDA #$0001
L0778FE ORA $52
BEQ L07790C
LDA #$0020
LDX #$0000
STA $35
STX $37
L07790C PEI $37
PEI $35
LDA #$0020
LDX #$0000
JSL L033477
BEQ L077923
BVS L077921
EOR #$8000
L077921 BMI L07793F
L077923 TDC
CLC
ADC #$000D
PEA $0000
PHA
LDY #$0002
LDA [$2D],Y
PHA
LDA [$2D]
PHA
PEI $37
PEI $35
JSL L1511CE
BRA L077967
L07793F PEI $2F
PEI $2D
JSL L0718BF
PEI $3B
PEI $39
PEI $37
PEI $35
LDY #$0002
LDA [$2D],Y
PHA
LDA [$2D]
PHA
PEA $0000
JSL L077D97
PEI $2F
PEI $2D
JSL L07191C
L077967 LDA $3D
LDX $3F
STA $01
STX $03
LDA $01
LDX $03
STA $49
STX $4B
PEI $3B
PEI $39
PEA $0000
PEA $0100
JSL L150290
PLY
PLY
PLY
PLY
STA [$49]
LDA $58
LDX $5A
LDY #$0002
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA $2D
LDX $2F
LDY #$0006
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0001
LDY #$000C
STA [$01],Y
LDA L054FC1
LDY #$000A
STA [$01],Y
LDA L05500F
LDX L055011
INC
BNE L0779C1
INX
L0779C1 STA L05500F
STX L055011
LDA $2D
LDX $2F
STA $5C
STX $5E
L0779CF LDA L05500D
SEC
SBC L055009
BEQ L0779E5
BVS L0779DD
EOR #$8000
L0779DD BPL L0779E5
JSL L077BA7
BRA L0779CF
L0779E5 LDA $09
LDX $0B
STA L054FC9
STX L054FCB
LDA $50
STA $5A
LDA $4F
STA $59
LDA $4D
TCD
TSC
CLC
ADC #$0058
TCS
RTL
L077A01 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FCD
LDX L054FCF
STA L054FC9
STX L054FCB
PHY
PHY
PEI $0C
PEI $0A
PEA $4547
PEA $4150
PEA $0000
JSL L077624
PLA
STA $0E
PLX
STX $10
LDA L054FC9
LDX L054FCB
STA L054FCD
STX L054FCF
LDA $0A
ORA $0C
BEQ L077A4A
LDA $0A
LDX $0C
STA L055005
STX L055007
L077A4A LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L077A5B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L054FC5
LDX L054FC7
STA L054FC9
STX L054FCB
PHY
PHY
PEI $0C
PEI $0A
PEA $444C
PEA $4957
PEA $0000
JSL L077624
PLA
STA $0E
PLX
STX $10
LDA L054FC9
LDX L054FCB
STA L054FC5
STX L054FC7
LDA $08
STA $0C
LDA $07
STA $0B
LDA $05
TCD
PLY
PLY
PLY
PLY
PLY
RTL
L077AA5 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PEA $0000
JSL L07479E
LDA L054FED
LDX L054FEF
STA $01
STX $03
L077ABE LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L077AF9
LDY #$000C
LDA [$01],Y
BNE L077AF9
LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BPL L077AE2
PEA $04B0
JSL L07272E
L077AE2 PEI $03
PEI $01
JSL L0753D0
LDA $01
LDX $03
SEC
SBC #$000E
BCS L077AF5
DEX
L077AF5 STA $01
STX $03
L077AF9 LDA $01
LDX $03
CLC
ADC #$000E
BCC L077B04
INX
L077B04 STA $01
STX $03
LDA L054FF1
LDX L054FF3
CMP $01
BNE L077B14
CPX $03
L077B14 BNE L077ABE
LDA L054FED
LDX L054FEF
STA L054FE9
STX L054FEB
PLY
PLY
PLY
PLY
PLD
RTL
L077B28 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
LDA $12
ORA $14
BNE L077B38
BRA L077B95
L077B38 PHY
PHY
PEI $14
PEI $12
JSL L0741B8
PLA
STA $05
PLX
STX $07
LDA $05
LDX $07
STA $01
STX $03
LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L077B5D
BRA L077B95
L077B5D LDY #$000C
LDA [$01],Y
BEQ L077B6B
PEA $0492
JSL L07272E
L077B6B LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BPL L077B7E
PEI $07
PEI $05
JSL L07481E
L077B7E LDA L055051
BNE L077B8B
PEI $07
PEI $05
JSL L0753D0
L077B8B LDA $05
LDX $07
STA L054FE9
STX L054FEB
L077B95 LDA $10
STA $14
LDA $0F
STA $13
LDA $0D
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L077BA7 PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L054FE9
LDX L054FEB
STA $01
STX $03
L077BB9 LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L077C22
LDY #$0008
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $05
STX $07
LDA [$05]
LDY #$0002
ORA [$05],Y
BNE L077C22
LDY #$0006
LDA [$01],Y
INY
INY
ORA [$01],Y
BNE L077BED
PEA $1115
JSL L07272E
L077BED LDY #$000C
LDA [$01],Y
BEQ L077BFB
PEA $094A
JSL L07272E
L077BFB LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BPL L077C0D
PEA $094B
JSL L07272E
L077C0D PEI $03
PEI $01
JSL L0753D0
LDA $01
LDX $03
STA L054FE9
STX L054FEB
BRL L077CE6
L077C22 LDA $01
LDX $03
CLC
ADC #$000E
BCC L077C2D
INX
L077C2D STA $01
STX $03
LDA L054FF1
LDX L054FF3
CMP $01
BNE L077C3D
CPX $03
L077C3D BNE L077C49
LDA L054FED
LDX L054FEF
STA $01
STX $03
L077C49 LDA L054FE9
LDX L054FEB
CMP $01
BNE L077C55
CPX $03
L077C55 BEQ L077C5A
BRL L077BB9
L077C5A LDA L054FE9
LDX L054FEB
STA $01
STX $03
L077C64 LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L077C95
LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BMI L077C95
LDY #$000C
LDA [$01],Y
BNE L077C95
PEI $03
PEI $01
JSL L0753D0
LDA $01
LDX $03
STA L054FE9
STX L054FEB
BRA L077CE6
L077C95 LDA $01
LDX $03
CLC
ADC #$000E
BCC L077CA0
INX
L077CA0 STA $01
STX $03
LDA L054FF1
LDX L054FF3
CMP $01
BNE L077CB0
CPX $03
L077CB0 BNE L077CBC
LDA L054FED
LDX L054FEF
STA $01
STX $03
L077CBC LDA L054FE9
LDX L054FEB
CMP $01
BNE L077CC8
CPX $03
L077CC8 BNE L077C64
LDA L055013
ORA L055015
BEQ L077CE6
PHY
PHY
PEA $0000
JSL L074067
PLA
PLX
STX $05
ORA $05
BEQ L077CE6
BRL L077C5A
L077CE6 PLY
PLY
PLY
PLY
PLD
RTL
L077CEC PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA $0E
DEC
PEA $000C
JSL L150BEE
PLX
LDAL L0539EB,X
PHA
LDAL L0539E9,X
PHA
PEA $0001
JSL L0B883D
LDA L054FED
LDX L054FEF
STA $01
STX $03
L077D1A LDY #$0002
LDA [$01],Y
INY
INY
ORA [$01],Y
BEQ L077D68
LDY #$000A
LDA [$01],Y
AND #$000F
CMP $0E
BNE L077D68
LDY #$000C
LDA [$01],Y
BEQ L077D3F
PEA $A8F9
JSL L07272E
L077D3F LDY #$000A
LDA [$01],Y
SEC
SBC #$0000
BPL L077D51
PEA $04B0
JSL L07272E
L077D51 PEI $03
PEI $01
JSL L0753D0
LDA $01
LDX $03
SEC
SBC #$000E
BCS L077D64
DEX
L077D64 STA $01
STX $03
L077D68 LDA $01
LDX $03
CLC
ADC #$000E
BCC L077D73
INX
L077D73 STA $01
STX $03
LDA L054FF1
LDX L054FF3
CMP $01
BNE L077D83
CPX $03
L077D83 BNE L077D1A
LDA $0C
STA $0E
LDA $0B
STA $0D
LDA $09
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L077D97 ENT
PHD
TSC
CLC
ADC #$FEE4
TCS
ADC #$0033
TCD
LDA L055047
PHA
PEI $FA
PEI $F8
JSL L075E14
PHY
PHY
LDA L055047
PHA
PEI $F2
PEI $F0
PEI $F6
PEI $F4
PEI $EE
JSL L075D80
PLA
STA $E1
PLX
STX $E3
LDAL L05565D
BEQ L077E10
PEA $0000
TDC
CLC
ADC #$00CD
PHA
LDAL L05565D
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FFCD
PHA
PEA $0026
JSL L072809
PEA ^L040A75
PEA L040A75
PEA ^L040A76
PEA L040A76
JSL L073C22
PEA $0025
JSL L0727E0
JSL L070000
L077E10 LDA $EC
STA $FA
LDA $EB
STA $F9
LDA $E9
TCD
TSC
CLC
ADC #$012C
TCS
RTL
L077E22 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
PEI $18
PEI $16
JSL L151460
LDA $1A
LDX $1C
STA $01
STX $03
LDA #$0001
STA $05
L077E3F PHY
JSL L150705
PLA
STA $07
LDA #$000A
CMP $05
BEQ L077E52
INC $05
BRA L077E3F
L077E52 LDA #$0001
STA $05
L077E57 PHY
JSL L150705
PLA
STA $07
PEI $03
PEI $01
LDA $01
LDX $03
STA $0D
STX $0F
PHY
JSL L150705
PLA
EOR [$0D]
PLX
STX $0D
PLX
STX $0F
STA [$0D]
LDA $01
LDX $03
CLC
ADC #$0002
BCC L077E86
INX
L077E86 STA $01
STX $03
LDA #$0014
CMP $05
BEQ L077E95
INC $05
BRA L077E57
L077E95 PEI $0B
PEI $09
JSL L151460
LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L077EAF ENT
PHD
TSC
CLC
ADC #$FFDE
TCS
TCD
STZ $34
PHY
PHY
PEI $32
PEI $30
PEI $2E
PEI $2C
PEA $0000
JSL L077624
PLA
STA $1B
PLX
STX $1D
LDA $1B
ORA $1D
BNE L077ED9
BRL L0781BD
L077ED9 PHY
PHY
PEI $2A
PEI $28
JSL L07704E
PLA
STA $28
PLX
STX $2A
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $1F
STX $21
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
STA $0F
STX $11
PEI $2A
PEI $28
LDA $0F
LDX $11
JSL L1512A5
STA $0B
STX $0D
LDA $0B
ORA $0D
BNE L077F1A
BRL L0781A9
L077F1A LDA L055051
BEQ L077F4E
PHY
PEI $1D
PEI $1B
PEI $2A
PEI $28
JSL L078A05
PLA
LSR
BCS L077F33
BRL L0781AE
L077F33 LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $1F
STX $21
LDA $28
LDX $2A
STA [$1F]
TXA
LDY #$0002
STA [$1F],Y
BRL L0781A9
L077F4E PHY
PHY
PEI $32
PEI $30
JSL L0742B3
PLA
STA $17
PLX
STX $19
PEI $19
PEI $17
LDA #$0000
TAX
JSL L033477
BEQ L077F6E
BPL L077F75
L077F6E PEA $072F
JSL L07272E
L077F75 PEI $0D
PEI $0B
LDA #$0000
TAX
JSL L033477
BPL L077FF4
PEI $2A
PEI $28
PEI $1D
PEI $1B
JSL L1512FB
LDAL L05565D
BEQ L077F98
BRL L0781AE
L077F98 LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $1F
STX $21
LDA $28
LDX $2A
STA [$1F]
TXA
LDY #$0002
STA [$1F],Y
PEI $19
PEI $17
PEA $0000
PEA $0004
TDC
CLC
ADC #$0028
PEA $0000
PHA
JSL L078BF0
LDA $17
LDX $19
PEI $2A
PEI $28
JSL L150F53
PHX
PHA
PEI $0D
PEI $0B
LDA $03,S
EOR #$FFFF
TAX
PLA
EOR #$FFFF
PLY
INC
BNE L077FE8
INX
L077FE8 PHX
PHA
PEA $0001
JSL L075688
BRL L0781A9
L077FF4 PEI $0D
PEI $0B
LDAL L053AD7
TAX
LDAL L053AD5
JSL L033477
BEQ L07801E
BVS L07800C
EOR #$8000
L07800C BPL L07801E
PHY
PEI $0D
PEI $0B
JSL L076535
PLA
LSR
BCS L07801E
BRL L0781AE
L07801E PHY
PHY
PEI $32
PEI $30
JSL L0742B3
PLA
STA $17
PLX
STX $19
PHY
PHY
LDA $17
LDX $19
PEI $11
PEI $0F
JSL L150F53
PHX
PHA
JSL L075577
PLA
STA $03
PLX
STX $05
LDA $03
ORA $05
BNE L078051
BRL L07810C
L078051 LDY #$0006
LDA [$03],Y
PHA
DEY
DEY
LDA [$03],Y
PHA
LDA $0B
LDX $0D
JSL L033477
BVS L078069
EOR #$8000
L078069 BMI L07806E
BRL L07810C
L07806E LDY #$0006
LDA [$03],Y
PHA
DEY
DEY
LDA [$03],Y
PHA
LDA $0B
LDX $0D
JSL L1512A5
STA $07
STX $09
PEI $05
PEI $03
JSL L0750FF
PEI $09
PEI $07
LDA #$0000
TAX
JSL L033477
BMI L0780B6
BEQ L0780B6
LDA $17
LDX $19
PEI $2A
PEI $28
JSL L150F53
PHX
PHA
PEI $09
PEI $07
PEA $0001
JSL L075688
L0780B6 PHY
PEI $1D
PEI $1B
PEI $2A
PEI $28
JSL L078A05
PLA
LSR
BCS L0780CA
BRL L0781AE
L0780CA LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $1F
STX $21
LDA $28
LDX $2A
STA [$1F]
TXA
LDY #$0002
STA [$1F],Y
PHY
PHY
PEI $32
PEI $30
JSL L0742B3
PLA
STA $17
PLX
STX $19
PEI $19
PEI $17
PEA $0000
PEA $0004
TDC
CLC
ADC #$0028
PEA $0000
PHA
JSL L078BF0
BRL L0781A9
L07810C PHY
PHY
PEI $2A
PEI $28
PEA $0000
JSL L0743E8
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L078128
BRL L0781AE
L078128 PHY
PEI $1D
PEI $1B
PEI $2A
PEI $28
JSL L078A05
PLA
LSR
BCS L07813B
BRA L0781AE
L07813B LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $1F
STX $21
LDA $28
LDX $2A
STA [$1F]
TXA
LDY #$0002
STA [$1F],Y
PHY
PEI $1D
PEI $1B
JSL L0718FA
PLA
STA $01
PEI $15
PEI $13
PEI $11
PEI $0F
LDY #$0002
LDA [$1B],Y
PHA
LDA [$1B]
PHA
JSL L078BF0
PEI $1D
PEI $1B
PEI $01
JSL L0718DA
PHY
PHY
PEI $32
PEI $30
JSL L0742B3
PLA
STA $17
PLX
STX $19
PEI $32
PEI $30
PEI $15
PEI $13
JSL L078A77
PEI $19
PEI $17
PEI $11
PEI $0F
PEA $0001
JSL L075688
L0781A9 LDA #$0001
STA $34
L0781AE PEI $32
PEI $30
PEI $2E
PEI $2C
PEA $0000
JSL L074B81
L0781BD LDA $26
STA $32
LDA $25
STA $31
LDA $23
TCD
TSC
CLC
ADC #$0030
TCS
RTL
L0781CF ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
LDA #$0001
STA $07
LDA #$FFFF
LDX #$7FFF
STA $09
STX $0B
LDA #L0539E9
LDX #^L0539E9
STA $0D
STX $0F
LDA #$0001
STA $05
L0781F5 LDA L055039
LDX L05503B
CMP [$0D]
BNE L078205
LDY #$0002
TXA
CMP [$0D],Y
L078205 BNE L078221
LDY #$000A
LDA [$0D],Y
TAX
DEY
DEY
LDA [$0D],Y
CMP $1A
BNE L078217
CPX $1C
L078217 BEQ L07821F
PEI $05
JSL L077CEC
L07821F BRA L078286
L078221 LDY #$0006
LDA [$0D],Y
PHA
DEY
DEY
LDA [$0D],Y
PHA
LDA $09
LDX $0B
JSL L033477
BVS L078239
EOR #$8000
L078239 BMI L07824D
LDY #$0006
LDA [$0D],Y
TAX
DEY
DEY
LDA [$0D],Y
STA $09
STX $0B
LDA $05
STA $07
L07824D LDA $0D
LDX $0F
CLC
ADC #$000C
BCC L078258
INX
L078258 STA $0D
STX $0F
LDA #$000F
CMP $05
BEQ L078267
INC $05
BRA L0781F5
L078267 LDA $07
STA $05
LDA $05
DEC
PEA $000C
JSL L150BEE
PLX
LDAL L0539E9,X
ORAL L0539EB,X
BEQ L078286
PEI $05
JSL L077CEC
L078286 LDA $05
STA L054FC1
LDA $05
DEC
PEA $000C
JSL L150BEE
PLX
TXA
CLC
ADC #L0539E9
LDX #^L0539E9
BCC L0782A1
INX
L0782A1 STA $01
STX $03
LDA L055039
LDX L05503B
STA [$01]
TXA
LDY #$0002
STA [$01],Y
LDA #$0004
CLC
ADC $01
LDX $03
BCC L0782BE
INX
L0782BE STA $11
STX $13
PHY
PHY
JSL L15035F
PLA
STA [$11]
PLA
LDY #$0002
STA [$11],Y
LDA #$0000
TAX
LDY #$0008
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA $18
STA $1C
LDA $17
STA $1B
LDA $15
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L0782F1 ENT
PHD
TSC
CLC
ADC #$FEEC
TCS
ADC #$0021
TCD
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
PEI $FA
PEI $F8
PEA $0100
JSL L0313BE
STZ $FC
PHY
PHY
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
JSL L0735A8
PLA
STA $EB
PLX
STX $ED
LDA $EB
ORA $ED
BNE L078330
BRL L0785AC
L078330 LDA L055051
BEQ L078338
BRL L078598
L078338 PHY
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
JSL L070157
PLA
LSR
BCC L07834D
BRL L078598
L07834D LDA #$00FF
LDX #$FFDF
AND $00,X
PHA
LDA L055043
LDX L055045
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
STA $EF
STX $F1
PLA
CMP [$EF]
BNE L0783AF
PHY
PEA $0000
TDC
CLC
ADC #$FFE0
PHA
LDA L055043
LDX L055045
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
CLC
ADC #$0002
BCC L078394
INX
L078394 PHX
PHA
LDA #$00FF
LDX #$FFDF
AND $00,X
PHA
JSL L070A10
PLA
LSR
BCC L0783AF
LDA #$0001
STA $FC
BRL L078598
L0783AF LDA L05502B
LDX L05502D
CMP L055039
BNE L0783BD
CPX L05503B
L0783BD BNE L0783C9
PEA $0015
JSL L0727E0
BRL L078598
L0783C9 PHY
PEA $003A
PEI $ED
PEI $EB
JSL L071452
PLA
BNE L0783DD
LDA #$0000
BRA L0783E0
L0783DD LDA #$0001
L0783E0 PHA
PHY
PEA $002F
PEI $ED
PEI $EB
JSL L071452
PLA
BNE L0783F5
LDA #$0000
BRA L0783F8
L0783F5 LDA #$0001
L0783F8 ORA $01,S
PLX
LSR
BCC L078408
PEA $0016
JSL L0727E0
BRL L078598
L078408 LDA L055039
LDX L05503B
PHX
PHA
PEA $0001
JSL L0B883D
JSL L074D35
PEA $0000
LDA L05503F
LDX L055041
PHX
PHA
JSL L077086
LDA L055043
LDX L055045
PHX
PHA
JSL L0718BF
PEI $ED
PEI $EB
JSL L0718BF
LDA L055043
LDX L055045
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
PHX
PHA
LDY #$0002
LDA [$EB],Y
PHA
LDA [$EB]
PHA
JSL L075A0C
LDAL L05565D
STA $E5
LDA $E5
BEQ L0784DE
PHY
LDA L055043
LDX L055045
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
PHX
PHA
PEA $0000
JSL L075D3B
PLA
STA $E3
LDAL L05565D
BNE L0784CC
PHY
PEA $0000
PEA $0000
PEA $0000
LDA L055043
LDX L055045
STA $EF
STX $F1
LDY #$0002
LDA [$EF],Y
TAX
LDA [$EF]
PHX
PHA
JSL L150B64
PLA
STA L05503D
LDAL L05565D
BEQ L0784BD
STZ L05503D
L0784BD LDA $E3
STA L055047
PEA $0017
JSL L0727E0
BRL L078598
L0784CC LDA #$0047
CMP $E5
BNE L0784DE
PEA $0017
JSL L0727E0
JSL L070000
L0784DE PHY
LDY #$0002
LDA [$EB],Y
PHA
LDA [$EB]
PHA
PEA $0000
JSL L075D3B
PLA
STA $E3
LDAL L05565D
BEQ L0784FB
BRL L07858D
L0784FB PHY
PEA $0000
PEA $0000
PEA $0000
LDY #$0002
LDA [$EB],Y
PHA
LDA [$EB]
PHA
JSL L150B64
PLA
STA L05503D
LDAL L05565D
BEQ L07851F
STZ L05503D
L07851F LDA $E3
STA L055047
LDA L055039
LDX L05503B
STA $DF
STX $E1
LDA L055043
LDX L055045
PHX
PHA
JSL L07185A
LDA $EB
LDX $ED
STA L055043
STX L055045
STZ $EB
STZ $ED
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
LDA L055043
LDX L055045
PHX
PHA
JSL L072B9F
PLA
STA $E7
PLX
STX $E9
PHY
PHY
PEI $E9
PEI $E7
JSL L078841
PLA
STA L055039
PLA
STA L05503B
PEI $E9
PEI $E7
JSL L07185A
PEI $E1
PEI $DF
JSL L09827F
LDA #$0001
STA $FC
BRA L078598
L07858D PEA $0017
JSL L0727E0
JSL L070000
L078598 LDA L055043
LDX L055045
PHX
PHA
JSL L07191C
PEI $ED
PEI $EB
JSL L07185A
L0785AC LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$011A
TCS
RTL
L0785BE ENT
PHD
TSC
CLC
ADC #$FFF2
TCS
TCD
STZ $18
LDA L055051
BEQ L0785D0
BRL L07868D
L0785D0 PHY
PHY
LDY #$0002
LDA [$14],Y
PHA
LDA [$14]
PHA
JSL L071C98
PLA
PLX
INC
BNE L0785E5
INX
L0785E5 STA $07
STX $09
PEI $09
PEI $07
LDA #$7530
LDX #$0000
JSL L033477
BEQ L078603
BVS L0785FE
EOR #$8000
L0785FE BPL L078603
BRL L07868D
L078603 PHY
LDA $07
LDX $09
CLC
ADC #$0604
BCC L07860F
INX
L07860F PHX
PHA
LDAL L053A9F
TAX
LDAL L053A9D
JSL L1512A5
PHX
PHA
JSL L07664A
PLA
LSR
BCC L07868D
LDA #$0004
STA $01
STZ $03
PHY
PEI $16
PEI $14
JSL L0718FA
PLA
STA $05
PEA $0000
PEA $0600
PEA $0000
PEA $0004
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L078BF0
PEA $0000
PEA $0604
PEI $09
PEI $07
LDY #$0002
LDA [$14],Y
PHA
LDA [$14]
PHA
JSL L078BF0
PEI $16
PEI $14
PEI $05
JSL L0718DA
JSL L075602
LDA L055039
LDX L05503B
PHX
PHA
PEA $0000
JSL L0B883D
LDA #$0001
STA $18
L07868D LDA $12
STA $16
LDA $11
STA $15
LDA $0F
TCD
TSC
CLC
ADC #$0014
TCS
RTL
L07869F ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
LDA #$0000
TAX
STA [$24]
TXA
LDY #$0002
STA [$24],Y
LDA #$0000
TAX
STA [$20]
TXA
LDY #$0002
STA [$20],Y
LDA $28
ORA $2A
BNE L0786C8
BRL L07882F
L0786C8 STZ $07
LDY #$0002
LDA [$28],Y
TAX
LDA [$28]
STA $03
STX $05
LDA [$03]
STA $01
LDA #$0001
SEC
SBC $01
BEQ L0786E9
BVS L0786E7
EOR #$8000
L0786E7 BMI L078719
L0786E9 LDA $01
STA $09
L0786ED LDA #$0002
CLC
ADC $03
LDX $05
BCC L0786F8
INX
L0786F8 STA $17
STX $19
LDA $09
DEC
TAY
LDA #$00FF
AND [$17],Y
CMP #$003A
BNE L078710
LDA $09
STA $07
BRA L078719
L078710 LDA $09
DEC
BEQ L078719
DEC $09
BRA L0786ED
L078719 LDA $07
STA $0B
LDY #$0002
LDA [$28],Y
TAX
LDA [$28]
STA $17
STX $19
LDA [$17]
SEC
SBC $07
STA $0D
LDA $0B
BNE L07873A
STZ $0F
STZ $11
BRA L0787A4
L07873A PHY
PHY
LDA $0B
INC
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $0F
PLX
STX $11
LDAL L05565D
BEQ L078766
BRL L078817
L078766 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $17
STX $19
LDA $0B
STA [$17]
LDY #$0002
LDA [$28],Y
TAX
LDA [$28]
CLC
ADC #$0002
BCC L078785
INX
L078785 PHX
PHA
LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
CLC
ADC #$0002
BCC L078796
INX
L078796 PHX
PHA
LDA $0B
JSL L150488
PHX
PHA
JSL L070597
L0787A4 PHY
PHY
LDA $0D
INC
INC
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $13
PLX
STX $15
LDAL L05565D
BNE L078817
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
STA $17
STX $19
LDA $0D
STA [$17]
LDY #$0002
LDA [$28],Y
TAX
LDA [$28]
CLC
ADC #$0002
BCC L0787EC
INX
L0787EC PHX
PHA
LDA $07
JSL L150488
JSL L150F53
PHX
PHA
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
CLC
ADC #$0002
BCC L078809
INX
L078809 PHX
PHA
LDA $0D
JSL L150488
PHX
PHA
JSL L070597
L078817 LDA $0F
LDX $11
STA [$24]
TXA
LDY #$0002
STA [$24],Y
LDA $13
LDX $15
STA [$20]
TXA
LDY #$0002
STA [$20],Y
L07882F LDA $1E
STA $2A
LDA $1D
STA $29
LDA $1B
TCD
TSC
CLC
ADC #$0028
TCS
RTL
L078841 ENT
PHD
TSC
CLC
ADC #$FDF0
TCS
ADC #$011D
TCD
LDA $F8
ORA $FA
BEQ L0788D1
LDA [$F8]
LDY #$0002
ORA [$F8],Y
BEQ L0788D1
LDY #$0002
LDA [$F8],Y
TAX
LDA [$F8]
STA $EF
STX $F1
LDA #$0004
CMP [$EF]
BNE L0788D1
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEA $0000
TDC
CLC
ADC #$FEE3
PHA
PEI $FA
PEI $F8
JSL L072CD4
PEA $0100
JSL L0313BE
PHY
PEA $0000
TDC
CLC
ADC #$FFE3
PHA
PEA ^L040A77
PEA L040A77
JSL L071C56
PLA
LSR
BCC L0788D1
PHY
PHY
LDA L055031
LDX L055033
PHX
PHA
JSL L070525
PLA
STA $E7
PLX
STX $E9
PHY
PHY
LDA L055035
LDX L055037
PHX
PHA
JSL L070525
PLA
STA $E3
PLX
STX $E5
BRA L0788EB
L0788D1 PEI $FA
PEI $F8
TDC
CLC
ADC #$00E7
PEA $0000
PHA
TDC
CLC
ADC #$00E3
PEA $0000
PHA
JSL L07869F
L0788EB PHY
PEI $E9
PEI $E7
LDA L054FFF
LDX L055001
PHX
PHA
JSL L0713AC
PLA
STA $EB
LDA $EB
BNE L078927
PEI $E9
PEI $E7
LDA L054FFF
LDX L055001
PHX
PHA
JSL L070083
PHY
PEI $E9
PEI $E7
LDA L054FFF
LDX L055001
PHX
PHA
JSL L0713AC
PLA
STA $EB
L078927 PHY
PEI $E5
PEI $E3
LDA L054FFB
LDX L054FFD
PHX
PHA
JSL L0713AC
PLA
STA $ED
LDA $ED
BNE L078963
PEI $E5
PEI $E3
LDA L054FFB
LDX L054FFD
PHX
PHA
JSL L070083
PHY
PEI $E5
PEI $E3
LDA L054FFB
LDX L054FFD
PHX
PHA
JSL L0713AC
PLA
STA $ED
L078963 LDA $EB
JSL L150488
PEA $0001
PEA $0000
JSL L150D50
LDA $ED
JSL L150488
JSL L150F53
STA $FC
STX $FE
PEI $E9
PEI $E7
PEI $E5
PEI $E3
JSL L071825
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$0216
TCS
RTL
L07899F ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
PHY
LDA L054FFF
LDX L055001
PHX
PHA
PEI $14
JSL L0710E8
PLA
STA $01
PLX
STX $03
PHY
PHY
LDA L054FFB
LDX L054FFD
PHX
PHA
PEI $12
JSL L0710E8
PLA
STA $05
PLX
STX $07
PHY
PHY
PEI $03
PEI $01
PEI $07
PEI $05
JSL L072B9F
PLA
STA $16
PLX
STX $18
PEI $03
PEI $01
PEI $07
PEI $05
JSL L071825
LDA $10
STA $14
LDA $0F
STA $13
LDA $0D
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L078A05 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEI $0C
PEI $0A
PEI $10
PEI $0E
JSL L1512FB
LDAL L05565D
BEQ L078A58
PEA $0000
JSL L07479E
PEI $0C
PEI $0A
PEI $10
PEI $0E
JSL L1512FB
LDAL L05565D
BEQ L078A3B
LDA #$0001
L078A3B PHA
LDA L055003
EOR #$0001
AND $01,S
PLX
LSR
BCC L078A58
JSL L151373
PEI $0C
PEI $0A
PEI $10
PEI $0E
JSL L1512FB
L078A58 LDX #$0000
LDAL L05565D
BNE L078A62
INX
L078A62 TXA
STA $12
LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L078A77 PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
LDA $1C
AND #$001F
BEQ L078A8D
PEA $06FB
JSL L07272E
L078A8D PHY
PHY
PEI $22
PEI $20
JSL L0742B3
LDA #$0000
TAX
JSL L033477
BPL L078AA8
PEA $06FC
JSL L07272E
L078AA8 PEI $22
PEI $20
PEA $0000
PEA $0100
JSL L150290
PLY
PLY
PLY
PLY
STA $0F
STX $11
PEI $11
PEI $0F
PEA $0000
PEA $0080
JSL L150290
PLY
PLY
PLY
PLY
STA $0B
STX $0D
LDA $0F
AND #$007F
STA $09
PHY
PHY
PEI $0D
PEI $0B
JSL L077342
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BNE L078AF8
PEA $0098
JSL L07272E
L078AF8 LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
PHX
PHA
LDA $09
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $13
STX $15
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
STA $01
STX $03
LDA $1C
ORA $1E
BNE L078B70
LDA $01
LDX $03
INC
BNE L078B38
INX
L078B38 AND #$00FF
JSL L150488
STA $01
STX $03
PEI $0D
PEI $0B
LDAL L053ABB
TAX
LDAL L053AB9
JSL L033477
BVS L078B59
EOR #$8000
L078B59 BMI L078B6E
LDA $0B
LDX $0D
STAL L053AB9
TXA
STAL L053ABB
LDA #$0001
STA L05504D
L078B6E BRA L078BA1
L078B70 LDA $01
AND #$00FF
JSL L150488
PHX
PHA
PEI $1E
PEI $1C
PEA $0000
PEA $0020
JSL L150290
PLY
PLY
PLY
PLY
PEA $0000
PEA $0100
JSL L150D50
PLA
PLX
JSL L150F53
STA $01
STX $03
L078BA1 LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
PHX
PHA
LDA $09
JSL L150488
PHX
PHA
PEA $0000
PEA $0002
JSL L151137
PLA
PLX
JSL L150F53
STA $13
STX $15
LDA $01
LDX $03
STA [$13]
TXA
LDY #$0002
STA [$13],Y
PEI $0D
PEI $0B
PEA $0001
JSL L074AFC
LDA $1A
STA $22
LDA $19
STA $21
LDA $17
TCD
TSC
CLC
ADC #$0020
TCS
RTL
L078BF0 ENT
PHD
TSC
CLC
ADC #$FEE2
TCS
ADC #$0033
TCD
LDA L05504F
BEQ L078C03
BRL L078C92
L078C03 LDA L055047
PHA
PEI $FA
PEI $F8
JSL L075E14
PHY
PHY
LDA L055047
PHA
PEI $F2
PEI $F0
PEI $F6
PEI $F4
PEA $0000
JSL L075E55
PLA
STA $E3
PLX
STX $E5
LDAL L05565D
BEQ L078C86
LDAL L05565D
STA $E1
LDA #$002B
CMP $E1
BNE L078C46
PHY
JSL L076B39
PLA
LSR
BCS L078C03
L078C46 PEA $0000
TDC
CLC
ADC #$00CD
PHA
LDA $E1
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FFCD
PHA
PEA $0027
JSL L072809
PEA ^L040A7C
PEA L040A7C
PEA ^L040A7D
PEA L040A7D
JSL L073C22
PEA $0025
JSL L0727E0
JSL L070000
L078C86 LDA #$0001
STA L054FF9
LDA #$0001
STA L054FF5
L078C92 LDA $EE
STA $FA
LDA $ED
STA $F9
LDA $EB
TCD
TSC
CLC
ADC #$012C
TCS
RTL
L078CA4 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
LDA L05504F
BEQ L078CB4
BRL L078D7B
L078CB4 LDA #$2000
ANDL L053AE9
BEQ L078CC0
LDA #$0001
L078CC0 STA $01
LDAL L053AAB
TAX
LDAL L053AA9
STA $03
STX $05
LDA L05501B
LDX L05501D
STAL L053B29
TXA
STAL L053B2B
LDA L05501B
LDX L05501D
PHX
PHA
LDAL L053B27
TAX
LDAL L053B25
JSL L033477
BVS L078CF8
EOR #$8000
L078CF8 BMI L078D09
LDA L05501B
LDX L05501D
STAL L053B25
TXA
STAL L053B27
L078D09 LDAL L053AAB
PHA
LDAL L053AA9
PHA
PHY
PHY
PEA ^L053A9D
PEA L053A9D
PEA $0000
PEA $0180
JSL L071E31
PLA
PLX
JSL L1512A5
STAL L053AA9
TXA
STAL L053AAB
LDA $01
BEQ L078D46
PEA ^L053AB5
PEA L053AB5
PEI $05
PEI $03
JSL L077E22
L078D46 PEA $0000
PEA $0000
PEA $0000
PEA $0600
PEA ^L053A9D
PEA L053A9D
JSL L078BF0
LDA $01
BEQ L078D6E
PEA ^L053AB5
PEA L053AB5
PEI $05
PEI $03
JSL L077E22
L078D6E LDA $03
LDX $05
STAL L053AA9
TXA
STAL L053AAB
L078D7B STZ L05504D
PLY
PLY
PLY
PLY
PLY
PLD
RTL
L078D85 ENT
PHD
TSC
SEC
SBC #$0014
TCD
TCS
LDA $1A
CMP L055055
BEQ L078D99
PHA
JSL L0792D7
L078D99 LDY #$0000
TYA
TYX
SEP #$20
STZ $02
STZ $04
STZ $06
LDA [$22]
TAX
LDAL L078F91,X
BNE L078DB2
BRL L078E59
L078DB2 SEP #$20
ASL
STA $01
INY
LDA [$22],Y
TAX
LDAL L078F91,X
BNE L078DC4
BRL L078E59
L078DC4 ASL
STA $03
INY
LDA [$22],Y
TAX
LDAL L078F91,X
BNE L078DD4
BRL L078E59
L078DD4 REP #$20
STY $07
LDX $1C
STX $09
LDX $03
ORAL L078EC0,X
LDX $01
ORAL L078F00,X
STA $0B
CMP #$0000
BNE L078DFC
LDY $07
INY
LDA [$22],Y
TAX
LDA L078F91,X
BEQ L078E59
LDA $0B
L078DFC STA $13
L078DFE JSR L078EA3
JSR L078E88
DEC $09
BEQ L078E16
LDA $0B
ASL
ADC #$0000
ASL
ADC #$0000
STA $0B
BRA L078DFE
L078E16 LDY $07
INY
STY $07
LDA [$22],Y
AND #$00FF
TAX
LDAL L078F91,X
AND #$00FF
BEQ L078E59
STA $05
REP #$20
LDA $13
XBA
LSR
AND #$001E
TAX
LDA L0532C5,X
STA $0F
LDA $13
ASL
ASL
ASL
ASL
ASL
ORA $05
STA $13
JSR L078EA3
CLC
ADC $0F
CMP L055053
BCC L078E54
SBC L055053
L078E54 JSR L078E88
BRA L078E16
L078E59 REP #$20
CPX #$0000
BEQ L078E75
L078E60 INY
LDA [$22],Y
AND #$00FF
BEQ L078E75
TAX
LDAL L078F91,X
AND #$00FF
BEQ L078E60
BRL L078DB2
L078E75 LDA $18
STA $24
LDA $17
STA $23
LDX $15
TDC
CLC
ADC #$0022
TCS
TXA
TCD
RTL
L078E88 CLC
ADC #$0009
TAY
AND #$000F
ASL
TAX
TYA
LSR
LSR
LSR
AND #$1FFE
TAY
LDA [$1E],Y
ORAL L078F40,X
STA [$1E],Y
RTS
L078EA3 TAY
AND #$00FF
ASL
PHA
TYA
XBA
AND #$00FF
ASL
TAX
LDA L0532E5,X
PLX
ADC L0534E5,X
CMP L055053
BCC L078EBF
SBC L055053
L078EBF RTS
L078EC0 DW $0000
DW $0020
DW $0040
DW $0060
DW $0080
DW $00A0
DW $00C0
DW $00E0
DW $0100
DW $0120
DW $0140
DW $0160
DW $0180
DW $01A0
DW $01C0
DW $01E0
DW $0200
DW $0220
DW $0240
DW $0260
DW $0280
DW $02A0
DW $02C0
DW $02E0
DW $0300
DW $0320
DW $0340
DW $0360
DW $0380
DW $03A0
DW $03C0
DW $03E0
L078F00 DW $0000
DW $0400
DW $0800
DW $0C00
DW $1000
DW $1400
DW $1800
DW $1C00
DW $2000
DW $2400
DW $2800
DW $2C00
DW $3000
DW $3400
DW $3800
DW $3C00
DW $4000
DW $4400
DW $4800
DW $4C00
DW $5000
DW $5400
DW $5800
DW $5C00
DW $6000
DW $6400
DW $6800
DW $6C00
DW $7000
DW $7400
DW $7800
DW $7C00
L078F40 DW $0001
DW $0002
DW $0004
DW $0008
DW $0010
DW $0020
DW $0040
DW $0080
DW $0100
DW $0200
DW $0400
DW $0800
DW $1000
DW $2000
DW $4000
DW $8000
L078F60 ENT
PHD
PHY
TSC
TCD
LDY #$00FF
SEP #$20
L078F69 TYA
LDX #$0000
L078F6D ASL
BEQ L078F75
BCC L078F6D
INX
BRA L078F6D
L078F75 INX
TXA
STA [$08],Y
DEY
BNE L078F69
LDA #$00
STA [$08]
REP #$20
LDA $06
STA $0A
LDA $05
STA $09
TDC
TCS
PLY
PLD
PLY
PLY
RTL
L078F91 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
HEX 1B1C1D1E1F0A1116181A000000000000
HEX 000102030405060708090A0B0C0D0E0F
HEX 101112131415161718191A0000000000
HEX 000102030405060708090A0B0C0D0E0F
HEX 101112131415161718191A0000000000
HEX 010103050E0F15010101010101030505
HEX 0505090909090E0F0F0F0F0F15151515
HEX 0000000000000000000000000000010F
HEX 0000000000000000000000010F00010F
HEX 000000000000000000000001010F0F0F
HEX 00000000000000001919000000000000
HEX 00000000000105010505090909090F0F
HEX 000F1515150000000000000000000000
L079091 LDA $04,S
STAL L0790A7+1
LDA $05,S
STAL L0790A7+2
LDA $01,S
STA $05,S
LDA $02,S
STA $06,S
PLY
PLY
L0790A7 JMPL $000000
L0790AB ENT
PHD
TSC
TCD
STZ $12
STZ $10
LDA $0A
ASL
ASL
DEC
TAY
LDA $06
STAL L0790C9+1
LDA $07
STAL L0790C9+2
SEP #$20
L0790C6 LDA [$0C],Y
TAX
L0790C9 LDAL $000000,X
CLC
ADC $10
STA $10
BCC L0790D6
INC $11
L0790D6 DEY
BPL L0790C6
REP #$20
LDA $04
STA $0E
LDA $03
STA $0D
TDC
TCS
PLD
CLC
ADC #$000C
TCS
RTL
L0790EC ENT
PHD
PHY
TSC
TCD
STZ $0E
LDY $08
LDA [$0A],Y
AND #$00FF
STA $01
AND #$0007
ASL
TAX
LDA $01
LSR
LSR
LSR
TAY
LDAL L079197,X
TYX
ANDL L07917F,X
BEQ L07916F
LDA $01
CMP #$002C
BEQ L079147
CMP #$002E
BEQ L07915A
CMP #$0027
BNE L07916A
DEY
BMI L07916A
LDA [$0A],Y
AND #$00FF
CMP #$0030
BCC L07916A
CMP #$00A0
BCS L07916A
INY
INY
LDA [$0A],Y
AND #$00FF
CMP #$0030
BCC L07916A
CMP #$00A0
BCS L07916A
BRA L07916F
L079147 DEY
BMI L07916A
LDA [$0A],Y
AND #$00FF
CMP #$0030
BCC L07916A
CMP #$003A
BCS L07916A
INY
L07915A INY
LDA [$0A],Y
AND #$00FF
CMP #$0030
BCC L07916A
CMP #$003A
BCC L07916F
L07916A LDA #$0001
STA $0E
L07916F LDA $06
STA $0C
LDA $05
STA $0B
TDC
TCS
PLY
PLD
PLY
PLY
PLY
RTL
L07917F DW $FFFF
DW $FFFF
DW $FFF3
DW $3F00
DW $0080
DW $1F00
DW $0080
DW $1F00
DW $0000
DW $0000
DW $FCCF
DW $E4F7
L079197 DW $0080
DW $0040
DW $0020
DW $0010
DW $0008
DW $0004
DW $0002
DW $0002
L0791A7 ENT
PHD
PHY
PHY
PHY
PHY
TSC
TCD
STZ $14
STZ $16
PHA
PHA
PEI $12
PEI $10
PEA $0000
JSL L07963D
PLA
PLX
STA $05
STX $07
SEC
SBC #$000E
BCS L0791CC
DEX
L0791CC STA $01
STX $03
STA L055059
STX L05505B
LDA [$01]
BEQ L0791FC
TAX
LDY #$0002
L0791DE LDA [$05],Y
CMP $0E
BNE L0791EE
LDA $05
LDX $07
STA $14
STX $16
BRA L0791FC
L0791EE LDA [$05]
CLC
ADC $05
STA $05
BCC L0791F9
INC $07
L0791F9 DEX
BNE L0791DE
L0791FC LDA $0C
STA $12
LDA $0B
STA $11
LDX $09
TDC
CLC
ADC #$0010
TCS
TXA
TCD
RTL
L07920F ENT
PHD
TSC
SEC
SBC #$000E
TCD
TCS
STZ $22
LDA $1C
CMP #$8000
ROR
STA $1C
PHY
PHY
PHY
PHY
PEI $20
PEI $1E
JSL L077A5B
PEA $0000
JSL L07963D
PLA
STA $01
PLA
STA $03
ORA $01
BNE L079241
BRL L0792B9
L079241 LDA $01
LDX $03
SEC
SBC #$000E
BCS L07924C
DEX
L07924C STA $05
STX $07
LDA [$05]
BEQ L0792B9
TAY
STZ $0B
STZ $0D
L079259 PHY
LDY #$0004
LDA [$01],Y
BMI L079297
AND #$000F
CMP $18
BEQ L07926E
LDA $18
BEQ L07926E
BRA L079297
L07926E PHY
TDC
CLC
ADC #$001A
PEA $0000
PHA
LDA #$0006
CLC
ADC $01
LDX $03
BCC L079283
INX
L079283 PHX
PHA
_PtInRect
PLA
BEQ L079297
LDA $03
STA $0D
LDA $01
STA $0B
L079297 LDA [$01]
CLC
ADC $01
BCC L0792A0
INC $03
L0792A0 STA $01
PLY
DEY
BNE L079259
LDA $0B
ORA $0D
BEQ L0792B9
LDY #$002A
L0792AF LDA [$0B],Y
STA [$14],Y
DEY
DEY
BPL L0792AF
INC $22
L0792B9 PEI $20
PEI $1E
PEA $0000
JSL L074E4D
LDA $12
STA $20
LDA $11
STA $1F
LDX $0F
TDC
CLC
ADC #$001E
TCS
TXA
TCD
RTL
L0792D7 ENT
PHD
PHY
PHY
TSC
TCD
LDA $0A
STAL L055055
DEC
ASL
TAX
LDAL L079355,X
STA $03
STAL L055053
LDA #$0000
TAX
LDY #$0100
BRA L079302
L0792F8 INX
INX
INC
CMP $03
BCC L079302
LDA #$0000
L079302 STA L0534E5,X
DEY
BNE L0792F8
INC
STA $01
TYA
TYX
LDY #$0100
BRA L07931D
L079312 INX
INX
CLC
ADC $01
CMP $03
BCC L07931D
SBC $03
L07931D STA L0532E5,X
DEY
BNE L079312
ADC $01
CMP $03
BCC L07932B
SBC $03
L07932B STA $01
TYA
TYX
LDY #$0010
BRA L07933F
L079334 INX
INX
CLC
ADC $01
CMP $03
BCC L07933F
SBC $03
L07933F STAL L0532C5,X
DEY
BNE L079334
LDA $08
STA $0A
LDA $07
STA $09
TDC
TCS
PLY
PLY
PLD
PLY
RTL
L079355 DW $0017
DW $0035
DW $0053
DW $0071
DW $0097
DW $00B5
DW $00D3
DW $00F1
DW $0115
DW $0137
DW $0151
DW $0175
DW $0191
DW $01B7
DW $01D3
DW $01F7
DW $020B
DW $0233
DW $0257
DW $0277
DW $0295
DW $02B3
DW $02D7
DW $02F5
DW $0313
DW $0337
DW $0355
DW $0377
DW $0397
DW $03B3
DW $03D7
DW $03F5
L079395 PHD
PHY
PHY
TSC
TCD
LDY #$0002
LDA [$0A]
STA $01
LDA [$0A],Y
STA $03
SEP #$20
L0793A7 LDA [$01]
BEQ L0793BF
CMP #$0D
BEQ L0793BF
CMP #$20
BEQ L0793BF
INC $01
BNE L0793A7
INC $02
BNE L0793A7
INC $03
BRA L0793A7
L0793BF REP #$20
LDA $01
STA [$0A]
LDA $03
STA [$0A],Y
LDA $08
STA $0C
LDA $07
STA $0B
TDC
TCS
PLY
PLY
PLD
PLY
PLY
RTL
L0793D9 PHB
PHD
PHY
PHY
PHY
TSC
TCD
LDA #$0001
STA $17
LDA $0D
BEQ L079454
PEA >L0714D9
PLB
PLB
LDA #$0000
TAX
SEP #$20
LDA [$13]
BEQ L079456
TAX
LDA L0714D9,X
STA $01
L0793FE LDY #$0002
JSR L07946C
L079404 LDY #$0000
TYX
STY $03
L07940A LDA [$0F],Y
BEQ L079445
TAX
LDA L0714D9,X
CMP $01
BEQ L07941B
INY
STY $03
BRA L07940A
L07941B JSR L07946C
LDY #$FFFF
L079421 INY
LDA [$0F],Y
BEQ L07943F
STA $05
LDA [$13],Y
BEQ L079456
TAX
LDA L0714D9,X
LDX $05
CMP L0714D9,X
BEQ L079421
LDY #$0001
JSR L07946C
BRA L079404
L07943F LDA [$13],Y
BEQ L079456
STY $03
L079445 LDX $0D
DEX
BEQ L079454
STX $0D
LDY $03
INY
JSR L07946C
BRA L0793FE
L079454 STZ $17
L079456 REP #$20
LDA $0B
STA $15
LDA $09
STA $13
LDX $07
TDC
CLC
ADC #$0012
TCS
TXA
TCD
PLB
RTL
L07946C PHP
REP #$20
TYA
CLC
ADC $0F
STA $0F
BNE L079479
INC $11
L079479 LDA #$0000
PLP
RTS
L07947E ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $12
LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
PHY
PHY
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L07704E
PLA
PLX
JSL L033477
BEQ L0794BA
BRL L079546
L0794BA LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDY #$002A
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CLC
ADC #$0032
BCC L0794D4
INX
L0794D4 PHX
PHA
LDY #$0030
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
JSL L033477
BVS L0794ED
EOR #$8000
L0794ED BMI L0794F1
BRA L079546
L0794F1 LDY #$0006
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$4B42
BNE L079503
CPX #$4447
L079503 BEQ L079507
BRA L079546
L079507 LDY #$0016
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$0000
TAX
JSL L033477
BEQ L07951E
BPL L079520
L07951E BRA L079546
L079520 LDY #$0024
LDA [$01],Y
SEC
SBC #$0000
BPL L07952D
BRA L079546
L07952D LDY #$002A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$0000
TAX
JSL L033477
BPL L079544
BRA L079546
L079544 STZ $12
L079546 LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L079558 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA #$0001
STA $12
LDY #$0002
LDA [$0E],Y
TAX
LDA [$0E]
STA $01
STX $03
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
PHY
PHY
LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
JSL L07704E
PLA
PLX
JSL L033477
BEQ L079594
BRL L07962B
L079594 LDY #$0002
LDA [$01],Y
PHA
LDA [$01]
PHA
LDY #$002A
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CLC
ADC #$0032
BCC L0795AE
INX
L0795AE PHX
PHA
LDY #$0030
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
JSL L033477
BVS L0795C7
EOR #$8000
L0795C7 BMI L0795CB
BRA L07962B
L0795CB LDY #$0006
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CMP #$4143
BNE L0795DD
CPX #$4452
L0795DD BEQ L0795E1
BRA L07962B
L0795E1 LDY #$0024
LDA [$01],Y
SEC
SBC #$0000
BPL L0795EE
BRA L07962B
L0795EE LDY #$002A
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$0000
TAX
JSL L033477
BPL L079605
BRA L07962B
L079605 LDY #$002C
LDA [$01],Y
SEC
SBC #$0000
BPL L079612
BRA L07962B
L079612 LDY #$0030
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA #$0000
TAX
JSL L033477
BPL L079629
BRA L07962B
L079629 STZ $12
L07962B LDA $0C
STA $10
LDA $0B
STA $0F
LDA $09
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L07963D PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
STZ $20
STZ $22
LDA $1C
ORA $1E
BNE L079652
BRL L079740
L079652 LDA [$1C]
LDY #$0002
ORA [$1C],Y
BNE L07965E
BRL L079740
L07965E LDY #$0002
LDA [$1C],Y
TAX
LDA [$1C]
STA $0D
STX $0F
LDY #$0006
LDA [$0D],Y
TAX
DEY
DEY
LDA [$0D],Y
STA $05
STX $07
LDA #$4143
LDX #$4452
CMP $05
BNE L079684
CPX $07
L079684 BNE L07968B
LDA #$0000
BRA L07968E
L07968B LDA #$0001
L07968E BEQ L0796AB
LDA #$4B42
LDX #$4447
CMP $05
BNE L07969C
CPX $07
L07969C BNE L0796A3
LDA #$0000
BRA L0796A6
L0796A3 LDA #$0001
L0796A6 BEQ L0796AB
BRL L079740
L0796AB LDY #$0002
LDA [$1C],Y
TAX
LDA [$1C]
CLC
ADC #$0032
BCC L0796BA
INX
L0796BA STA $09
STX $0B
LDA $1A
BEQ L079738
LDA $09
LDX $0B
SEC
SBC #$000E
BCS L0796CD
DEX
L0796CD STA $01
STX $03
PEI $0B
PEI $09
LDY #$0006
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
STA $09
STX $0B
LDA $1A
DEC
BEQ L079738
PEI $0B
PEI $09
LDY #$000C
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
STA $09
STX $0B
LDA $1A
DEC
DEC
BEQ L079738
LDY #$0010
LDA #$0400
AND [$0D],Y
CMP #$0000
BEQ L079724
LDA $09
LDX $0B
CLC
ADC #$0020
BCC L079720
INX
L079720 STA $09
STX $0B
L079724 LDA #$0003
CMP $1A
BEQ L079738
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L071AB8
L079738 LDA $09
LDX $0B
STA $20
STX $22
L079740 LDA $18
STA $1E
LDA $17
STA $1D
LDA $15
TCD
TSC
CLC
ADC #$001C
TCS
RTL
L079752 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L055057
BEQ L079779
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PHY
PHY
JSL L07B114
PEA $0000
JSL L07E171
STZ L055057
L079779 PLY
PLY
PLD
RTL
L07977D ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
STZ $03
PHY
PHY
PEI $24
PEI $22
JSL L077A5B
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L0797A0
BRL L079820
L0797A0 PHY
PHY
PEI $15
PEI $13
PEA $0000
JSL L07963D
PLA
STA $0B
PLX
STX $0D
LDA $0B
ORA $0D
BEQ L079820
LDA $0B
LDX $0D
SEC
SBC #$000E
BCS L0797C4
DEX
L0797C4 STA $07
STX $09
LDA $20
BNE L0797D2
LDA [$07]
STA $03
BRA L079815
L0797D2 LDA [$07]
STA $01
LDA $01
SEC
SBC #$0001
BVS L0797E1
EOR #$8000
L0797E1 BPL L079815
LDA #$0001
STA $05
L0797E8 LDY #$0004
LDA #$000F
AND [$0B],Y
CMP $20
BNE L0797F9
LDA $03
INC
STA $03
L0797F9 PEI $0D
PEI $0B
LDA [$0B]
JSL L150488
JSL L150F53
STA $0B
STX $0D
LDA $05
CMP $01
BEQ L079815
INC $05
BRA L0797E8
L079815 PEI $24
PEI $22
PEA $0000
JSL L074E4D
L079820 LDA $03
STA $26
LDA $1E
STA $24
LDA $1D
STA $23
LDA $1B
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L079836 ENT
PHD
TSC
CLC
ADC #$FFD6
TCS
TCD
STZ $34
STZ $36
PHY
PHY
PEA $0000
PEA $0038
PEA $4447
PEA $4B42
PEA $0000
PEA $0000
JSL L07502A
PLA
STA $23
PLX
STX $25
PHY
PHY
PEI $25
PEI $23
JSL L07721A
PLA
STA $17
PLX
STX $19
LDA $17
ORA $19
BNE L079879
BRL L079A07
L079879 LDA $30
LDX $32
STA $1B
STX $1D
PHY
PHY
PEI $1D
PEI $1B
JSL L07721A
PLA
STA $0F
PLX
STX $11
LDA $0F
ORA $11
BNE L0798B7
PEI $25
PEI $23
PEA $0000
JSL L074A24
PHY
PEI $25
PEI $23
PEA $4447
PEA $4B42
JSL L0751BE
PLA
STA $0D
BRL L079A07
L0798B7 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
CLC
ADC #$0018
BCC L0798C6
INX
L0798C6 STA $27
STX $29
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STA $1F
STX $21
PHY
PHY
PEI $21
PEI $1F
JSL L07721A
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L079917
PEI $1D
PEI $1B
PEA $0000
JSL L074A24
PEI $25
PEI $23
PEA $0000
JSL L074A24
PHY
PEI $25
PEI $23
PEA $4447
PEA $4B42
JSL L0751BE
PLA
STA $0D
BRL L079A07
L079917 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
CLC
ADC #$0018
BCC L079926
INX
L079926 STA $27
STX $29
LDA $23
LDX $25
STA [$27]
TXA
LDY #$0002
STA [$27],Y
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
CLC
ADC #$001C
BCC L079945
INX
L079945 STA $27
STX $29
LDA $23
LDX $25
STA [$27]
TXA
LDY #$0002
STA [$27],Y
PEI $1D
PEI $1B
PEA $0001
JSL L074A24
PEI $21
PEI $1F
PEA $0001
JSL L074A24
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$000C
BCC L07997A
INX
L07997A PHX
PHA
PEA $0000
PEA $002C
JSL L071EC5
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
STA $01
STX $03
LDA $1F
LDX $21
LDY #$0018
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA $1B
LDX $1D
LDY #$001C
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0004
STA $05
STZ $07
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$0032
BCC L0799C4
INX
L0799C4 INC
BNE L0799C8
INX
L0799C8 STA $09
STX $0B
LDA $05
LDX $07
STA [$09]
TXA
LDY #$0002
STA [$09],Y
PEI $25
PEI $23
PEA $0001
JSL L074A24
LDAL L053AC3
TAX
LDAL L053AC1
INC
BNE L0799F0
INX
L0799F0 STAL L053AC1
TXA
STAL L053AC3
LDA #$0001
STA L05504D
LDA $23
LDX $25
STA $34
STX $36
L079A07 LDA $2E
STA $32
LDA $2D
STA $31
LDA $2B
TCD
TSC
CLC
ADC #$0030
TCS
RTL
L079A19 ENT
PHD
TSC
CLC
ADC #$FF5A
TCS
TCD
STZ $B4
STZ $B6
PHY
PHY
PEA $0000
PEA $0100
PEA $4452
PEA $4143
PEA $0000
PEA $0000
JSL L07502A
PLA
STA $9D
PLX
STX $9F
LDA $9D
ORA $9F
BNE L079A4C
BRL L079BDA
L079A4C TDC
CLC
ADC #$0011
PEA $0000
PHA
PEA $0000
PEA $0084
JSL L071EC5
LDA $9D
LDX $9F
STA $11
STX $13
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $B2
PEI $B0
TDC
CLC
ADC #$0011
PEA $0000
PHA
JSL L07B2EC
PLA
LSR
BCS L079A9C
PHY
PEI $9F
PEI $9D
PEA $4452
PEA $4143
JSL L0751BE
PLA
STA $A1
BRL L079BDA
L079A9C PHY
PHY
PEI $9F
PEI $9D
JSL L0772AE
PLA
STA $99
PLX
STX $9B
LDA $99
ORA $9B
BNE L079AB5
BRL L079BDA
L079AB5 LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
CLC
ADC #$000C
BCC L079AC4
INX
L079AC4 PHX
PHA
PEA $0000
PEA $002C
JSL L071EC5
LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
STA $05
STX $07
LDA L055005
LDX L055007
LDY #$001C
STA [$05],Y
INY
INY
TXA
STA [$05],Y
LDA $AC
LDX $AE
LDY #$0020
STA [$05],Y
INY
INY
TXA
STA [$05],Y
LDA #$0004
STA $09
STZ $0B
LDY #$0002
LDA [$99],Y
TAX
LDA [$99]
CLC
ADC #$0032
BCC L079B10
INX
L079B10 INC
BNE L079B14
INX
L079B14 STA $0D
STX $0F
LDA $09
LDX $0B
STA [$0D]
TXA
LDY #$0002
STA [$0D],Y
PEI $9F
PEI $9D
PEA $0001
JSL L074A90
LDAL L053ACB
TAX
LDAL L053AC9
INC
BNE L079B3C
INX
L079B3C STAL L053AC9
TXA
STAL L053ACB
LDA #$0001
STA L05504D
PHY
PHY
PEI $AE
PEI $AC
JSL L07721A
PLA
STA $95
PLX
STX $97
LDA $95
ORA $97
BEQ L079B92
LDY #$0002
LDA [$95],Y
TAX
LDA [$95]
STA $01
STX $03
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
INC
BNE L079B7B
INX
L079B7B LDY #$0014
STA [$01],Y
INY
INY
TXA
STA [$01],Y
PEI $AE
PEI $AC
PEA $0001
JSL L074A24
BRA L079B99
L079B92 PEA $5DB0
JSL L07272E
L079B99 LDAL L053AD3
PHA
LDAL L053AD1
PHA
LDA $B0
LDX $B2
INC
BNE L079BAB
INX
L079BAB PHX
PHA
PEA $0001
JSL L07E171
LDAL L053AD3
PHA
LDAL L053AD1
PHA
LDA $B0
LDX $B2
CLC
ADC #$0002
BCC L079BC9
INX
L079BC9 PHX
PHA
PEA $0001
JSL L07E171
LDA $9D
LDX $9F
STA $B4
STX $B6
L079BDA LDA $AA
STA $B2
LDA $A9
STA $B1
LDA $A7
TCD
TSC
CLC
ADC #$00B0
TCS
RTL
L079BEC ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
STZ $1E
STZ $20
PHY
PHY
PEA $0000
PEA $0080
PEA $5453
PEA $494C
PEA $0000
PEA $0000
JSL L07502A
PLA
STA $09
PLX
STX $0B
PHY
PHY
PEI $0B
PEI $09
JSL L0772F8
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BNE L079C2F
BRL L079CB2
L079C2F LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
CLC
ADC #$000C
BCC L079C3E
INX
L079C3E PHX
PHA
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
SEC
SBC #$000C
BCS L079C5B
DEX
L079C5B PHX
PHA
JSL L071EC5
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $01
STX $03
LDA #$0010
CLC
ADC $01
LDX $03
BCC L079C78
INX
L079C78 STA $0D
STX $0F
LDA $1C
JSL L150488
STA [$0D]
TXA
LDY #$0002
STA [$0D],Y
LDA $1A
LDY #$0018
STA [$01],Y
LDA $18
LDY #$001C
STA [$01],Y
LDA $16
LDY #$001E
STA [$01],Y
PEI $0B
PEI $09
PEA $0001
JSL L074AC6
LDA $09
LDX $0B
STA $1E
STX $20
L079CB2 LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L079CC4 ENT
PHD
TSC
CLC
ADC #$FFC8
TCS
TCD
STZ $48
PHY
PEI $46
PEI $44
PEA $0000
PEA $0032
JSL L07B813
PLA
LSR
BCS L079CE4
BRL L079F14
L079CE4 PHY
PHY
PEI $46
PEI $44
JSL L077A5B
PLA
STA $31
PLX
STX $33
PHY
PHY
PEI $33
PEI $31
PEA $0000
JSL L07963D
PLA
STA $1D
PLX
STX $1F
LDA $1D
LDX $1F
SEC
SBC #$000E
BCS L079D12
DEX
L079D12 STA $21
STX $23
LDA $21
LDX $23
STA $07
STX $09
LDY #$0002
LDA [$07],Y
SEC
SBC #$0000
BPL L079D30
PEA $7D8F
JSL L07272E
L079D30 LDA #$7FFF
CMP [$07]
BNE L079D3A
BRL L079F14
L079D3A LDY #$0002
LDA [$07],Y
SEC
SBC #$7FFF
BVS L079D48
EOR #$8000
L079D48 BMI L079D5E
LDY #$0002
LDA [$07],Y
INC
LDY #$0002
STA [$07],Y
LDY #$0002
LDA [$07],Y
STA $13
BRA L079DAB
L079D5E LDA #$7FFF
STA $13
L079D63 LDA $13
DEC
STA $13
LDA $1D
LDX $1F
STA $19
STX $1B
LDA [$07]
STA $05
LDA $05
SEC
SBC #$0001
BVS L079D7F
EOR #$8000
L079D7F BPL L079DAB
LDA #$0001
STA $15
L079D86 LDY #$0002
LDA $13
CMP [$19],Y
BEQ L079D63
PEI $1B
PEI $19
LDA [$19]
JSL L150488
JSL L150F53
STA $19
STX $1B
LDA $15
CMP $05
BEQ L079DAB
INC $15
BRA L079D86
L079DAB PEI $1F
PEI $1D
LDY #$0006
LDA [$07],Y
TAX
DEY
DEY
LDA [$07],Y
JSL L150F53
STA $19
STX $1B
LDY #$0006
LDA [$07],Y
TAX
DEY
DEY
LDA [$07],Y
CLC
ADC #$0032
BCC L079DD2
INX
L079DD2 LDY #$0004
STA [$07],Y
INY
INY
TXA
STA [$07],Y
LDA [$07]
INC
STA [$07]
LDA $19
LDX $1B
STA $2D
STX $2F
LDA $2D
LDX $2F
CLC
ADC #$0032
BCC L079DF4
INX
L079DF4 STA $29
STX $2B
LDY #$0002
LDA [$31],Y
PHA
LDA [$31]
PHA
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
STA $35
STX $37
LDY #$0002
LDA [$35],Y
TAX
LDA [$35]
JSL L150F53
STA $25
STX $27
PEI $2F
PEI $2D
PEI $2B
PEI $29
PEI $27
PEI $25
LDA $29
LDX $2B
JSL L1512A5
PHX
PHA
JSL L1511CE
PEI $1B
PEI $19
PEA $0000
PEA $0032
JSL L071EC5
LDA $42
STA $17
LDA $19
LDX $1B
STA $01
STX $03
LDA #$0032
STA [$01]
LDA $13
LDY #$0002
STA [$01],Y
LDA $17
LDY #$0004
STA [$01],Y
LDA #$0008
LDY #$001C
STA [$01],Y
LDA #$0000
LDY #$001E
STA [$01],Y
LDA #$0009
LDY #$0020
STA [$01],Y
LDA $17
DEC
BNE L079E93
LDA #$0001
LDY #$0018
STA [$01],Y
LDA #$0000
LDY #$001A
STA [$01],Y
BRA L079EA9
L079E93 LDA $17
DEC
DEC
BNE L079EA9
LDA #$0000
LDY #$0018
STA [$01],Y
LDA #$FFFE
LDY #$001A
STA [$01],Y
L079EA9 LDA $17
DEC
BNE L079ECC
LDA #$0022
CLC
ADC $01
LDX $03
BCC L079EB9
INX
L079EB9 CLC
ADC #$0003
BCC L079EC0
INX
L079EC0 STA $35
STX $37
SEP #$20
LDA #$0F
STA [$35]
REP #$20
L079ECC LDA #$0004
STA $0B
STZ $0D
LDA $19
LDX $1B
CLC
ADC #$002A
BCC L079EDE
INX
L079EDE CLC
ADC #$0002
BCC L079EE5
INX
L079EE5 STA $0F
STX $11
LDA $0B
LDX $0D
STA [$0F]
TXA
LDY #$0002
STA [$0F],Y
PEI $40
PEI $3E
PEI $1B
PEI $19
PEA $002A
JSL L0313BE
LDA #$0001
STA $48
PEI $46
PEI $44
PEA $0001
JSL L074E4D
L079F14 LDA $3C
STA $46
LDA $3B
STA $45
LDA $39
TCD
TSC
CLC
ADC #$0044
TCS
RTL
L079F26 ENT
PHD
TSC
CLC
ADC #$FFCA
TCS
TCD
STZ $44
LDA L055051
BEQ L079F38
BRL L07A1E5
L079F38 PEI $3E
PEI $3C
LDA #$0000
TAX
JSL L033477
BEQ L079F48
BPL L079F4B
L079F48 BRL L07A1E5
L079F4B PHY
PHY
PEI $42
PEI $40
JSL L0772F8
PLA
STA $2F
PLX
STX $31
LDA $2F
ORA $31
BNE L079F64
BRL L07A1E5
L079F64 PHY
PEI $31
PEI $2F
JSL L0718FA
PLA
STA $09
PEI $3E
PEI $3C
LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
CLC
ADC #$0014
BCC L079F83
INX
L079F83 STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
JSL L033477
BEQ L079F9F
BVS L079F9A
EOR #$8000
L079F9A BPL L079F9F
BRL L07A1D0
L079F9F LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
CLC
ADC #$0028
BCC L079FAE
INX
L079FAE STA $23
STX $25
LDA $3C
LDX $3E
STA $2B
STX $2D
L079FBA PEI $2D
PEI $2B
LDY #$0004
LDA [$23],Y
JSL L150488
JSL L033477
BEQ L079FFA
BVS L079FD2
EOR #$8000
L079FD2 BPL L079FFA
PEI $2D
PEI $2B
LDY #$0004
LDA [$23],Y
JSL L150488
JSL L1512A5
STA $2B
STX $2D
LDA $23
LDX $25
CLC
ADC #$0006
BCC L079FF4
INX
L079FF4 STA $23
STX $25
BRA L079FBA
L079FFA LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
STA $1F
STX $21
LDY #$0004
LDA [$23],Y
DEC
BEQ L07A011
BRL L07A0C2
L07A011 PHY
PEI $21
PEI $1F
PEA $4547
PEA $4150
JSL L0751BE
PLA
LSR
BCS L07A027
BRL L07A1D0
L07A027 LDA $23
LDX $25
STA $0F
STX $11
LDA $0F
LDX $11
CLC
ADC #$0006
BCC L07A03A
INX
L07A03A STA $13
STX $15
LDY #$0002
LDA [$2F],Y
PHA
LDA [$2F]
PHA
LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
*
JSL L150F53
STA $0B
STX $0D
PEI $15
PEI $13
PEI $11
PEI $0F
PEI $0D
PEI $0B
LDA $13
LDX $15
JSL L1512A5
PHX
PHA
JSL L1511CE
LDA $0B
LDX $0D
SEC
SBC #$0006
BCS L07A088
DEX
L07A088 STA $0F
STX $11
PEI $11
PEI $0F
PEA $0000
PEA $0006
JSL L071EC5
LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
STA $05
STX $07
LDY #$000E
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
TAY
BNE L07A0B4
DEX
L07A0B4 DEC
LDY #$000C
STA [$05],Y
INY
INY
TXA
STA [$05],Y
BRL L07A1A6
L07A0C2 PHY
PHY
PEI $21
PEI $1F
JSL L077A01
PLA
STA $1B
PLX
STX $1D
LDA $1B
ORA $1D
BNE L07A0DB
BRL L07A1D0
L07A0DB LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
CLC
ADC #$0018
BCC L07A0EA
INX
L07A0EA STA $33
STX $35
LDA [$33]
JSL L150488
STA $27
STX $29
LDA $2B
LDX $2D
PEI $29
PEI $27
JSL L150D50
PLA
PLX
CLC
ADC #$0018
BCC L07A10D
INX
L07A10D STA $17
STX $19
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
PEI $19
PEI $17
JSL L150F53
STA $13
STX $15
PEI $15
PEI $13
LDA $27
LDX $29
JSL L1512A5
STA $0F
STX $11
LDY #$0002
LDA [$1B],Y
PHA
LDA [$1B]
PHA
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
STA $33
STX $35
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
JSL L150F53
STA $0B
STX $0D
PEI $15
PEI $13
PEI $11
PEI $0F
PEI $0D
PEI $0B
LDA $13
LDX $15
JSL L1512A5
PHX
PHA
JSL L1511CE
PEI $0D
PEI $0B
LDA $27
LDX $29
JSL L1512A5
STA $0F
STX $11
PEI $11
PEI $0F
PEI $29
PEI $27
JSL L071EC5
LDY #$0004
LDA [$23],Y
DEC
LDY #$0004
STA [$23],Y
PEI $21
PEI $1F
PEA $0001
JSL L074E17
L07A1A6 LDY #$0002
LDA [$2F],Y
TAX
LDA [$2F]
STA $01
STX $03
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
TAY
BNE L07A1C0
DEX
L07A1C0 DEC
LDY #$0014
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA #$0001
STA $44
L07A1D0 PEI $31
PEI $2F
PEI $09
JSL L0718DA
PEI $42
PEI $40
PEA $0001
JSL L074AC6
L07A1E5 LDA $3A
STA $42
LDA $39
STA $41
LDA $37
TCD
TSC
CLC
ADC #$0040
TCS
RTL
L07A1F7 ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
STZ $24
LDA L055051
BEQ L07A209
BRL L07A2DE
L07A209 PHY
PHY
PEI $22
PEI $20
JSL L0772F8
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L07A222
BRL L07A2DE
L07A222 LDA #$0001
STA $01
LDA #$0028
LDX #$0000
STA $07
STX $09
LDA #$0001
LDX #$0000
STA $0F
STX $11
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
CLC
ADC #$000C
BCC L07A24A
INX
L07A24A STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
STA $0B
STX $0D
L07A25A PEI $11
PEI $0F
LDA $0B
LDX $0D
JSL L033477
BEQ L07A26F
BVS L07A26D
EOR #$8000
L07A26D BMI L07A2BA
L07A26F LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
PEI $09
PEI $07
JSL L150F53
STA $03
STX $05
PHY
LDY #$0002
LDA [$03],Y
PHA
LDA [$03]
PHA
PEA $4547
PEA $4150
JSL L0751BE
PLA
LSR
BCS L07A29D
STZ $01
L07A29D LDA $07
LDX $09
CLC
ADC #$0006
BCC L07A2A8
INX
L07A2A8 STA $07
STX $09
LDA $0F
LDX $11
INC
BNE L07A2B4
INX
L07A2B4 STA $0F
STX $11
BRA L07A25A
L07A2BA PEI $22
PEI $20
PEA $0000
JSL L074AC6
PEI $01
PHY
PEI $22
PEI $20
PEA $5453
PEA $494C
JSL L0751BE
PLA
STA $17
PLA
AND $17
STA $24
L07A2DE LDA $1E
STA $22
LDA $1D
STA $21
LDA $1B
TCD
TSC
CLC
ADC #$0020
TCS
RTL
L07A2F0 ENT
PHD
TSC
CLC
ADC #$FFE2
TCS
TCD
STZ $2A
PHY
PHY
PEI $28
PEI $26
JSL L077A5B
PLA
STA $17
PLX
STX $19
LDA $17
ORA $19
BNE L07A313
BRL L07A3D6
L07A313 PHY
PHY
PEI $19
PEI $17
PEI $24
JSL L0791A7
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L07A32E
BRL L07A3CB
L07A32E LDA [$13]
STA $05
LDA L055059
LDX L05505B
STA $01
STX $03
LDA [$01]
DEC
STA [$01]
LDA #$0004
CLC
ADC $01
LDX $03
BCC L07A34C
INX
L07A34C STA $1B
STX $1D
LDY #$0006
LDA [$01],Y
PHA
DEY
DEY
LDA [$01],Y
PHA
LDA $05
JSL L150488
JSL L1512A5
STA [$1B]
TXA
LDY #$0002
STA [$1B],Y
LDA $13
LDX $15
STA $0B
STX $0D
PEI $0D
PEI $0B
LDA $05
JSL L150488
JSL L150F53
STA $0F
STX $11
LDY #$0002
LDA [$17],Y
PHA
LDA [$17]
PHA
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
STA $1B
STX $1D
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
JSL L150F53
STA $07
STX $09
PEI $11
PEI $0F
PEI $0D
PEI $0B
PEI $09
PEI $07
LDA $0F
LDX $11
JSL L1512A5
PHX
PHA
JSL L1511CE
LDA #$0001
STA $2A
L07A3CB PEI $28
PEI $26
PEA $0001
JSL L074E4D
L07A3D6 LDA $22
STA $28
LDA $21
STA $27
LDA $1F
TCD
TSC
CLC
ADC #$0026
TCS
RTL
L07A3E8 ENT
PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
STZ $22
STZ $24
LDAL L053AC7
TAX
LDAL L053AC5
STA $11
STX $13
LDAL L053AC3
TAX
LDAL L053AC1
STA $01
STX $03
PEI $03
PEI $01
LDA #$0001
LDX #$0000
JSL L033477
BVS L07A421
EOR #$8000
L07A421 BPL L07A49F
LDA #$0001
LDX #$0000
STA $05
STX $07
L07A42D LDA $1E
LDX $20
CMP $11
BNE L07A437
CPX $13
L07A437 BNE L07A443
LDA $05
LDX $07
STA $22
STX $24
BRA L07A49F
L07A443 PHY
PHY
PEI $13
PEI $11
JSL L07721A
PLA
STA $09
PLX
STX $0B
LDA $09
ORA $0B
BEQ L07A49F
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
CLC
ADC #$0018
BCC L07A468
INX
L07A468 STA $15
STX $17
LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $0D
STX $0F
PEI $13
PEI $11
PEA $0000
JSL L074A24
LDA $0D
LDX $0F
STA $11
STX $13
LDA $05
LDX $07
CMP $01
BNE L07A495
CPX $03
L07A495 BEQ L07A49F
INC $05
BNE L07A49D
INC $07
L07A49D BRA L07A42D
L07A49F LDA $1C
STA $20
LDA $1B
STA $1F
LDA $19
TCD
TSC
CLC
ADC #$001E
TCS
RTL
L07A4B1 ENT
PHD
TSC
CLC
ADC #$FFD8
TCS
TCD
STZ $3A
PEI $34
PEI $32
LDA #$0000
TAX
JSL L033477
BEQ L07A4CB
BPL L07A4CE
L07A4CB BRL L07A5F7
L07A4CE PHY
PHY
PEI $38
PEI $36
JSL L0772F8
PLA
STA $21
PLX
STX $23
LDA $21
ORA $23
BNE L07A4E7
BRL L07A5F7
L07A4E7 LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STA $01
STX $03
PEI $34
PEI $32
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L033477
BEQ L07A511
BVS L07A50C
EOR #$8000
L07A50C BPL L07A511
BRL L07A5EC
L07A511 LDY #$0018
LDA [$01],Y
JSL L150488
STA $05
STX $07
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
CLC
ADC #$0028
BCC L07A52D
INX
L07A52D STA $19
STX $1B
LDA $32
LDX $34
STA $1D
STX $1F
L07A539 PEI $1F
PEI $1D
LDY #$0004
LDA [$19],Y
JSL L150488
JSL L033477
BEQ L07A579
BVS L07A551
EOR #$8000
L07A551 BPL L07A579
PEI $1F
PEI $1D
LDY #$0004
LDA [$19],Y
JSL L150488
JSL L1512A5
STA $1D
STX $1F
LDA $19
LDX $1B
CLC
ADC #$0006
BCC L07A573
INX
L07A573 STA $19
STX $1B
BRA L07A539
L07A579 LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
STA $15
STX $17
PHY
PHY
PEI $17
PEI $15
JSL L077A01
PLA
STA $11
PLX
STX $13
LDA $11
ORA $13
BEQ L07A5EC
LDX $1F
LDA $1D
BNE L07A5A2
DEX
L07A5A2 DEC
PEI $07
PEI $05
JSL L150D50
PLA
PLX
CLC
ADC #$0018
BCC L07A5B4
INX
L07A5B4 STA $0D
STX $0F
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
PEI $0F
PEI $0D
JSL L150F53
STA $09
STX $0B
PEI $0B
PEI $09
PEI $30
PEI $2E
PEI $07
PEI $05
JSL L070597
LDA #$0001
STA $3A
PEI $17
PEI $15
PEA $0000
JSL L074E17
L07A5EC PEI $38
PEI $36
PEA $0000
JSL L074AC6
L07A5F7 LDA $2C
STA $38
LDA $2B
STA $37
LDA $29
TCD
TSC
CLC
ADC #$0036
TCS
RTL
L07A609 ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
STZ $2A
STZ $13
STZ $15
STZ $0F
STZ $11
PHY
PHY
PEI $24
PEI $22
JSL L0772AE
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L07A634
BRL L07A6E7
L07A634 PHY
PHY
PEI $28
PEI $26
JSL L07721A
PLA
STA $0F
PLX
STX $11
LDA $0F
ORA $11
BNE L07A64D
BRL L07A6E7
L07A64D LDX #$0000
LDA $20
BPL L07A655
INX
L07A655 TXA
STA $0D
LDA $0D
BEQ L07A677
PHY
PHY
PEI $15
PEI $13
LDA $20
EOR #$FFFF
INC
PHA
JSL L0791A7
PLA
STA $05
PLX
STX $07
STZ $0B
BRA L07A69D
L07A677 PHY
PHY
PEI $11
PEI $0F
PEI $20
JSL L0791A7
PLA
STA $05
PLX
STX $07
LDX #$0000
LDY #$0004
LDA #$4000
AND [$05],Y
CMP #$0000
BEQ L07A69A
INX
L07A69A TXA
STA $0B
L07A69D LDA $0B
ORA $0D
STA $09
LDA $09
BEQ L07A6BD
LDX #$0000
LDY #$000E
LDA #$4000
AND [$05],Y
CMP #$0000
BEQ L07A6B8
INX
L07A6B8 TXA
STA $2A
BRA L07A6E7
L07A6BD PHY
PHY
PEI $11
PEI $0F
PEI $15
PEI $13
PEI $20
PEI $0B
JSL L07B038
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BEQ L07A6E7
LDA #$0081
CMP [$01]
BNE L07A6E7
LDA #$0001
STA $2A
L07A6E7 LDA $0F
ORA $11
BEQ L07A6F8
PEI $28
PEI $26
PEA $0000
JSL L074A24
L07A6F8 LDA $13
ORA $15
BEQ L07A709
PEI $24
PEI $22
PEA $0000
JSL L074A90
L07A709 LDA $1E
STA $28
LDA $1D
STA $27
LDA $1B
TCD
TSC
CLC
ADC #$0026
TCS
RTL
L07A71B ENT
PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
STZ $3A
LDA #$0000
STA [$2A]
PHY
PHY
PEI $32
PEI $30
JSL L07721A
PLA
STA $19
PLX
STX $1B
LDA $19
ORA $1B
BNE L07A743
BRL L07A840
L07A743 PHY
PHY
PEI $36
PEI $34
JSL L0772AE
PLA
STA $1D
PLX
STX $1F
LDA $1D
ORA $1F
BNE L07A75C
BRL L07A835
L07A75C LDA $2E
BEQ L07A76A
LDA $19
LDX $1B
STA $15
STX $17
BRA L07A772
L07A76A LDA $1D
LDX $1F
STA $15
STX $17
L07A772 LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $03
STX $05
PHY
PHY
PEI $17
PEI $15
PEA $0000
JSL L07963D
PLA
STA $11
PLX
STX $13
LDA $11
LDX $13
SEC
SBC #$000E
BCS L07A79C
DEX
L07A79C STA $0D
STX $0F
STZ $07
LDA [$0D]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07A7B1
EOR #$8000
L07A7B1 BPL L07A82A
LDA #$0001
STA $0B
L07A7B8 LDY #$0004
LDA #$000F
AND [$11],Y
DEC
BNE L07A80E
LDA $07
INC
STA $07
LDY #$0004
LDA #$00F0
AND [$11],Y
PHA
PEA $0004
JSL L1510EF
PLA
CMP $38
BNE L07A80E
LDA #$0001
STA [$2A]
LDY #$0002
LDA [$11],Y
STA $09
LDA $2E
BNE L07A7F5
LDA $09
EOR #$FFFF
INC
STA $09
L07A7F5 PHY
PEI $32
PEI $30
PEI $36
PEI $34
PEI $09
JSL L07A609
PLA
LSR
BCC L07A80E
LDA $07
STA $3A
BRA L07A82A
L07A80E PEI $13
PEI $11
LDA [$11]
JSL L150488
JSL L150F53
STA $11
STX $13
LDA $0B
CMP $01
BEQ L07A82A
INC $0B
BRA L07A7B8
L07A82A PEI $36
PEI $34
PEA $0000
JSL L074A90
L07A835 PEI $32
PEI $30
PEA $0000
JSL L074A24
L07A840 LDA $28
STA $38
LDA $27
STA $37
LDA $25
TCD
TSC
CLC
ADC #$0036
TCS
RTL
L07A852 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
STZ $16
PHY
PHY
PEI $14
PEI $12
JSL L0772F8
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BEQ L07A897
PEI $10
PEI $0E
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
PHX
PHA
PEA $0028
JSL L0313BE
PEI $14
PEI $12
PEA $0000
JSL L074AC6
LDA #$0001
STA $16
L07A897 LDA $0C
STA $14
LDA $0B
STA $13
LDA $09
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L07A8A9 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
STZ $1E
STZ $20
PHY
PHY
PEI $1C
PEI $1A
JSL L0772F8
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BNE L07A8CE
BRL L07A960
L07A8CE LDX #$0000
LDA $18
BMI L07A8DA
ORA $16
BEQ L07A8DA
INX
L07A8DA TXA
PHA
PEI $18
PEI $16
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
CLC
ADC #$000C
BCC L07A8EF
INX
L07A8EF STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
JSL L033477
BEQ L07A908
BVS L07A906
EOR #$8000
L07A906 BPL L07A90D
L07A908 LDA #$0000
BRA L07A910
L07A90D LDA #$0001
L07A910 AND $01,S
PLX
LSR
BCC L07A955
LDX $18
LDA $16
BNE L07A91D
DEX
L07A91D DEC
PEA $0000
PEA $0006
JSL L150D50
PLA
STA $01
PLX
STX $03
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
CLC
ADC #$0028
BCC L07A93D
INX
L07A93D PEI $03
PEI $01
JSL L150F53
STA $09
STX $0B
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
STA $1E
STX $20
L07A955 PEI $1C
PEI $1A
PEA $0000
JSL L074AC6
L07A960 LDA $14
STA $1C
LDA $13
STA $1B
LDA $11
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L07A972 ENT
PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
PHY
PHY
PEI $26
PEI $24
JSL L077A5B
PLA
STA $0F
PLX
STX $11
LDA #L041CB3
LDX #^L041CB3
STA $01
STX $03
PHY
PHY
PEI $11
PEI $0F
PEA $0002
JSL L07963D
PLA
STA $07
PLX
STX $09
LDA $07
ORA $09
BNE L07A9B4
LDA #$0000
STA [$20]
BRA L07AA16
L07A9B4 LDY #$0002
LDA [$0F],Y
TAX
LDA [$0F]
STA $0B
STX $0D
LDY #$0006
LDA [$0B],Y
TAX
DEY
DEY
LDA [$0B],Y
CMP #$4143
BNE L07A9D2
CPX #$4452
L07A9D2 BNE L07A9F0
LDY #$0010
LDA [$0B],Y
STA $05
LDA #$1000
AND $05
BEQ L07A9E5
LDA #$0001
L07A9E5 STA [$20]
LDA #$0400
AND $05
STA $05
BRA L07AA0A
L07A9F0 LDY #$0010
LDA [$0B],Y
STA $05
LDA #$1000
AND $05
BEQ L07AA01
LDA #$0001
L07AA01 STA [$20]
LDA #$0400
AND $05
STA $05
L07AA0A LDA $05
BEQ L07AA16
LDA $07
LDX $09
STA $01
STX $03
L07AA16 PEI $03
PEI $01
PEI $1E
PEI $1C
PEA $0000
PEA $0020
JSL L070597
LDA $0F
ORA $11
BEQ L07AA39
PEI $26
PEI $24
PEA $0000
JSL L074E4D
L07AA39 LDA $1A
STA $26
LDA $19
STA $25
LDA $17
TCD
TSC
CLC
ADC #$0024
TCS
RTL
L07AA4B ENT
PHD
TSC
CLC
ADC #$FEF4
TCS
ADC #$0019
TCD
LDAL L040A2E
SEP #$20
STA [$FC]
REP #$20
PHY
PHY
PEI $FA
PEI $F8
JSL L077A5B
PLA
STA $EB
PLX
STX $ED
LDA $EB
ORA $ED
BEQ L07AAB9
PHY
PHY
PEI $ED
PEI $EB
PEA $0003
JSL L07963D
PLA
STA $E7
PLX
STX $E9
PEI $E9
PEI $E7
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
JSL L071FF8
PEI $FE
PEI $FC
PEA $0000
TDC
CLC
ADC #$FFE7
PHA
PEA $0100
JSL L0313BE
PEI $FA
PEI $F8
PEA $0000
JSL L074E4D
L07AAB9 LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$0112
TCS
RTL
L07AACB ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
STZ $24
STZ $26
PHY
PHY
PEI $22
PEI $20
JSL L077A5B
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L07AAF0
BRL L07AB9C
L07AAF0 PHY
PHY
PEI $15
PEI $13
PEA $0004
JSL L07963D
PLA
STA $07
PLX
STX $09
PEI $09
PEI $07
LDA [$07]
JSL L150488
JSL L150F53
STA $07
STX $09
PEI $09
PEI $07
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
JSL L1512A5
STA $03
STX $05
PHY
PHY
PEI $09
PEI $07
JSL L071C98
PLA
PLX
INC
BNE L07AB39
INX
L07AB39 STA $0F
STX $11
PHY
PHY
PEI $11
PEI $0F
LDA L055019
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $0B
PLX
STX $0D
LDAL L05565D
BNE L07AB91
LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
PEI $05
PEI $03
JSL L150F53
STA $07
STX $09
PEI $09
PEI $07
LDY #$0002
LDA [$0B],Y
PHA
LDA [$0B]
PHA
PEI $11
PEI $0F
JSL L070597
LDA $0B
LDX $0D
STA $24
STX $26
L07AB91 PEI $22
PEI $20
PEA $0000
JSL L074E4D
L07AB9C LDA $1E
STA $22
LDA $1D
STA $21
LDA $1B
TCD
TSC
CLC
ADC #$0020
TCS
RTL
L07ABAE ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
STZ $1C
PHY
PHY
PEI $1A
PEI $18
JSL L077A5B
PLA
STA $01
PLX
STX $03
LDA $01
ORA $03
BEQ L07AC05
PHY
PHY
PEI $03
PEI $01
PEI $16
JSL L0791A7
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BEQ L07ABFA
PEI $14
PEI $12
PEI $07
PEI $05
PEA $002A
JSL L0313BE
LDA #$0001
STA $1C
L07ABFA PEI $1A
PEI $18
PEA $0000
JSL L074E4D
L07AC05 LDA $10
STA $1A
LDA $0F
STA $19
LDA $0D
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L07AC17 ENT
PHD
TSC
CLC
ADC #$FFEA
TCS
TCD
STZ $24
LDA $1E
BEQ L07AC27
BPL L07AC2A
L07AC27 BRL L07ACDE
L07AC2A PHY
PHY
PEI $22
PEI $20
JSL L077A5B
PLA
STA $0F
PLX
STX $11
LDA $0F
ORA $11
BNE L07AC43
BRL L07ACDE
L07AC43 PHY
PHY
PEI $11
PEI $0F
PEA $0000
JSL L07963D
PLA
STA $0B
PLX
STX $0D
LDA $0B
ORA $0D
BEQ L07ACD3
LDA $0B
LDX $0D
SEC
SBC #$000E
BCS L07AC67
DEX
L07AC67 STA $07
STX $09
STZ $03
LDA [$07]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07AC7C
EOR #$8000
L07AC7C BPL L07ACD3
LDA #$0001
STA $05
L07AC83 LDX #$0000
LDY #$0004
LDA #$000F
AND [$0B],Y
CMP $1C
BNE L07AC93
INX
L07AC93 PHX
LDX #$0000
LDA $1C
BNE L07AC9C
INX
L07AC9C TXA
ORA $01,S
PLX
LSR
BCC L07ACB7
LDA $03
INC
STA $03
LDA $1E
CMP $03
BNE L07ACB7
LDY #$0002
LDA [$0B],Y
STA $24
BRA L07ACD3
L07ACB7 PEI $0D
PEI $0B
LDA [$0B]
JSL L150488
JSL L150F53
STA $0B
STX $0D
LDA $05
CMP $01
BEQ L07ACD3
INC $05
BRA L07AC83
L07ACD3 PEI $22
PEI $20
PEA $0000
JSL L074E4D
L07ACDE LDA $1A
STA $22
LDA $19
STA $21
LDA $17
TCD
TSC
CLC
ADC #$0020
TCS
RTL
L07ACF0 ENT
PHD
TSC
CLC
ADC #$FEF0
TCS
ADC #$001F
TCD
LDAL L040A2F
SEP #$20
STA [$FC]
REP #$20
PHY
PHY
PEI $FA
PEI $F8
JSL L077A5B
PLA
STA $E9
PLX
STX $EB
LDA $E9
ORA $EB
BEQ L07AD72
PHY
PHY
PEI $EB
PEI $E9
PEI $F6
JSL L0791A7
PLA
STA $E1
PLX
STX $E3
LDA $E1
ORA $E3
BEQ L07AD67
LDA $E1
LDX $E3
CLC
ADC #$002A
BCC L07AD3E
INX
L07AD3E STA $E5
STX $E7
PEI $E7
PEI $E5
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
JSL L071FF8
PEI $FE
PEI $FC
PEA $0000
TDC
CLC
ADC #$FFE1
PHA
PEA $0100
JSL L0313BE
L07AD67 PEI $FA
PEI $F8
PEA $0000
JSL L074E4D
L07AD72 LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$0118
TCS
RTL
L07AD84 ENT
PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
STZ $26
PHY
PHY
PEI $24
PEI $22
JSL L077A5B
PLA
STA $11
PLX
STX $13
LDA $11
ORA $13
BNE L07ADA7
BRL L07AE56
L07ADA7 PHY
PHY
PEI $13
PEI $11
PEI $20
JSL L0791A7
PLA
STA $0D
PLX
STX $0F
LDA $0D
ORA $0F
BNE L07ADC2
BRL L07AE4B
L07ADC2 LDY #$0004
LDA #$000F
AND [$0D],Y
STA $03
PHY
PHY
PEI $13
PEI $11
PEA $0000
JSL L07963D
PLA
STA $0D
PLX
STX $0F
LDA $0D
LDX $0F
SEC
SBC #$000E
BCS L07ADEA
DEX
L07ADEA STA $09
STX $0B
STZ $05
LDA [$09]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07ADFF
EOR #$8000
L07ADFF BPL L07AE4B
LDA #$0001
STA $07
L07AE06 LDX #$0000
LDY #$0004
LDA #$000F
AND [$0D],Y
CMP $03
BNE L07AE16
INX
L07AE16 TXA
ORA $1E
BEQ L07AE2F
LDA $05
INC
STA $05
LDY #$0002
LDA $20
CMP [$0D],Y
BNE L07AE2F
LDA $05
STA $26
BRA L07AE4B
L07AE2F PEI $0F
PEI $0D
LDA [$0D]
JSL L150488
JSL L150F53
STA $0D
STX $0F
LDA $07
CMP $01
BEQ L07AE4B
INC $07
BRA L07AE06
L07AE4B PEI $24
PEI $22
PEA $0000
JSL L074E4D
L07AE56 LDA $1C
STA $24
LDA $1B
STA $23
LDA $19
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L07AE68 ENT
PHD
TSC
CLC
ADC #$FECE
TCS
ADC #$0041
TCD
STZ $FC
STZ $FE
PHY
PEI $FA
PEI $F8
PEI $F6
TDC
CLC
ADC #$00C3
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBF
PHA
TDC
CLC
ADC #$00BF
PEA $0000
PHA
JSL L07DFBC
PLA
LSR
BCC L07AEA9
LDA $BF
LDX $C1
STA $FC
STX $FE
L07AEA9 LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$013A
TCS
RTL
L07AEBB ENT
PHD
TSC
CLC
ADC #$FFE4
TCS
TCD
STZ $2E
STZ $30
LDA $24
BNE L07AECE
BRL L07B026
L07AECE LDX #$0000
LDA $24
BPL L07AED6
INX
L07AED6 TXA
PHA
LDA $22
EOR #$0001
ORA $01,S
PLX
STA $17
LDA $17
BEQ L07AF11
STZ $13
STZ $15
PHY
PHY
PEI $2C
PEI $2A
JSL L0772AE
PLA
STA $0F
PLX
STX $11
LDA $0F
ORA $11
BNE L07AF03
BRL L07B026
L07AF03 PHY
PEI $11
PEI $0F
JSL L0718FA
PLA
STA $0D
BRA L07AF3A
L07AF11 STZ $0F
STZ $11
PHY
PHY
PEI $28
PEI $26
JSL L07721A
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L07AF2E
BRL L07B026
L07AF2E PHY
PEI $15
PEI $13
JSL L0718FA
PLA
STA $0D
L07AF3A PHY
PHY
PEI $15
PEI $13
PEI $11
PEI $0F
PEI $24
PEI $22
JSL L07B038
PLA
STA $09
PLX
STX $0B
LDA $09
ORA $0B
BNE L07AF9B
PHY
PHY
PEA $0000
PEA $0001
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $01
PLX
STX $03
LDAL L05565D
BNE L07AF99
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $19
STX $1B
SEP #$20
LDA #$00
STA [$19]
REP #$20
LDA $01
LDX $03
STA $2E
STX $30
L07AF99 BRA L07AFF6
L07AF9B PHY
PHY
PHY
PHY
PEI $0B
PEI $09
JSL L071C98
PLA
PLX
INC
BNE L07AFAD
INX
L07AFAD PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $01
PLX
STX $03
LDAL L05565D
BNE L07AFF6
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $05
STX $07
TDC
CLC
ADC #$0009
PEA $0000
PHA
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L070669
LDA $01
LDX $03
STA $2E
STX $30
L07AFF6 LDA $17
BEQ L07B011
PEI $11
PEI $0F
PEI $0D
JSL L0718DA
PEI $2C
PEI $2A
PEA $0000
JSL L074A90
BRA L07B026
L07B011 PEI $15
PEI $13
PEI $0D
JSL L0718DA
PEI $28
PEI $26
PEA $0000
JSL L074A24
L07B026 LDA $20
STA $2C
LDA $1F
STA $2B
LDA $1D
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L07B038 ENT
PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
STZ $26
STZ $28
LDA $1A
BEQ L07B06A
LDA $22
ORA $24
BNE L07B055
PEA $26E9
JSL L07272E
L07B055 LDA $1C
BPL L07B060
PEA $26EA
JSL L07272E
L07B060 LDA $22
LDX $24
STA $0D
STX $0F
BRA L07B07F
L07B06A LDA $1E
ORA $20
BNE L07B077
PEA $26E8
JSL L07272E
L07B077 LDA $1E
LDX $20
STA $0D
STX $0F
L07B07F PHY
PHY
PEI $0F
PEI $0D
PEA $0000
JSL L07963D
PLA
PLX
SEC
SBC #$000E
BCS L07B095
DEX
L07B095 STA $09
STX $0B
PHY
PHY
PEI $0F
PEI $0D
PEA $0001
JSL L07963D
PLA
STA $05
PLX
STX $07
LDY #$0008
LDA [$09],Y
STA $01
LDA $01
SEC
SBC #$0001
BVS L07B0BE
EOR #$8000
L07B0BE BPL L07B102
LDA #$0001
STA $03
L07B0C5 LDA $1C
CMP [$05]
BNE L07B0DC
LDA $05
LDX $07
CLC
ADC #$0002
BCC L07B0D6
INX
L07B0D6 STA $26
STX $28
BRA L07B102
L07B0DC LDA $05
LDX $07
CLC
ADC #$0002
BCC L07B0E7
INX
L07B0E7 STA $05
STX $07
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L071AB8
LDA $03
CMP $01
BEQ L07B102
INC $03
BRA L07B0C5
L07B102 LDA $18
STA $24
LDA $17
STA $23
LDA $15
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L07B114 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDX #$0000
LDA L055023
ORA L055025
BNE L07B128
INX
L07B128 PHX
LDA L055027
ORA L055029
BEQ L07B134
LDA #$0001
L07B134 AND $01,S
PLX
LSR
BCC L07B15A
PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
LDA L055027
LDX L055029
PHX
PHA
JSL L07C5A6
PLA
STA L055023
PLA
STA L055025
L07B15A LDA L055023
LDX L055025
STA $0A
STX $0C
PLY
PLY
PLD
RTL
L07B168 ENT
PHD
TSC
CLC
ADC #$FFEE
TCS
TCD
PHY
PHY
PEI $1C
PEI $1A
JSL L077A5B
PLA
STA $0B
PLX
STX $0D
LDA $0B
ORA $0D
BNE L07B189
BRL L07B20A
L07B189 PHY
PHY
PEI $0D
PEI $0B
PEI $18
JSL L0791A7
PLA
STA $07
PLX
STX $09
LDA $07
ORA $09
BEQ L07B1FF
PHY
PEI $0D
PEI $0B
JSL L0718FA
PLA
STA $01
PHY
PHY
LDA [$07]
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $03
PLX
STX $05
LDAL L05565D
BNE L07B1F5
PEI $09
PEI $07
LDY #$0002
LDA [$03],Y
PHA
LDA [$03]
PHA
LDA [$07]
JSL L150488
PHX
PHA
JSL L070597
LDA $03
LDX $05
STA $1E
STX $20
L07B1F5 PEI $0D
PEI $0B
PEI $01
JSL L0718DA
L07B1FF PEI $1C
PEI $1A
PEA $0000
JSL L074E4D
L07B20A LDA $16
STA $1C
LDA $15
STA $1B
LDA $13
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L07B21C PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
STZ $1A
STZ $1C
PHY
PHY
LDY #$004D
LDA [$16],Y
TAX
DEY
DEY
LDA [$16],Y
STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
CLC
ADC #$0010
BCC L07B247
INX
L07B247 STA $0D
STX $0F
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PHX
PHA
PEA $4547
PEA $4150
PEA $0000
PEA $0000
JSL L07502A
PLA
STA $09
PLX
STX $0B
PHY
PHY
PEI $0B
PEI $09
JSL L077A01
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BEQ L07B2DA
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $01
STX $03
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
CLC
ADC #$000C
BCC L07B29C
INX
L07B29C PHX
PHA
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
SEC
SBC #$000C
BCS L07B2AD
DEX
L07B2AD PHX
PHA
JSL L071EC5
LDY #$0062
LDA [$16],Y
TAX
DEY
DEY
LDA [$16],Y
LDY #$000C
STA [$01],Y
INY
INY
TXA
STA [$01],Y
PEI $0B
PEI $09
PEA $0001
JSL L074E17
LDA $09
LDX $0B
STA $1A
STX $1C
L07B2DA LDA $14
STA $18
LDA $13
STA $17
LDA $11
TCD
TSC
CLC
ADC #$0016
TCS
RTL
L07B2EC ENT
PHD
TSC
CLC
ADC #$FFAE
TCS
TCD
STZ $64
LDA L055051
BEQ L07B2FE
BRL L07B801
L07B2FE PHY
PHY
PEI $62
PEI $60
JSL L0772F8
PLA
STA $4B
PLX
STX $4D
LDA $4B
ORA $4D
BNE L07B317
BRL L07B801
L07B317 PHY
PEI $4D
PEI $4B
JSL L0718A4
PLA
STA $0D
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
STA $09
STX $0B
LDY #$0018
LDA [$09],Y
JSL L150488
STA $23
STX $25
LDY #$0012
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
SEC
SBC #$0018
BCS L07B34D
DEX
L07B34D PHX
PHA
PEI $25
PEI $23
JSL L150290
PLY
PLY
PLY
PLY
STA $21
PEI $5E
PEI $5C
LDA #$0000
TAX
JSL L033477
BPL L07B36F
STZ $5C
STZ $5E
L07B36F PEI $5E
PEI $5C
LDY #$0016
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
JSL L033477
BEQ L07B398
BVS L07B388
EOR #$8000
L07B388 BPL L07B398
LDY #$0016
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
STA $5C
STX $5E
L07B398 LDY #$000E
LDA [$09],Y
TAX
DEY
DEY
LDA [$09],Y
INC
BNE L07B3A6
INX
L07B3A6 PEA $0000
PEA $0006
JSL L150D50
PLA
PLX
CLC
ADC #$0028
BCC L07B3B9
INX
L07B3B9 STA $2F
STX $31
PEI $31
PEI $2F
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
STA $4F
STX $51
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
JSL L033477
BEQ L07B404
BVS L07B3E0
EOR #$8000
L07B3E0 BPL L07B404
PEI $4D
PEI $4B
JSL L07191C
PHY
PEI $62
PEI $60
PEA $5453
PEA $494C
PEI $31
PEI $2F
JSL L077EAF
PLA
LSR
BCS L07B404
BRL L07B7EC
L07B404 PEI $4D
PEI $4B
JSL L0718BF
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
CLC
ADC #$000C
BCC L07B41B
INX
L07B41B STA $4F
STX $51
LDA [$4F]
LDY #$0002
ORA [$4F],Y
BNE L07B489
PHY
PHY
PEA $0000
PHD
JSL L07B21C
PLA
STA $43
PLX
STX $45
LDA $43
ORA $45
BNE L07B441
BRL L07B7EC
L07B441 LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
CLC
ADC #$000C
BCC L07B450
INX
L07B450 STA $4F
STX $51
LDA #$0001
LDX #$0000
STA [$4F]
TXA
LDY #$0002
STA [$4F],Y
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
CLC
ADC #$0028
BCC L07B471
INX
L07B471 STA $37
STX $39
LDA $43
LDX $45
STA [$37]
TXA
LDY #$0002
STA [$37],Y
LDA #$0000
LDY #$0004
STA [$37],Y
L07B489 LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
CLC
ADC #$0028
BCC L07B498
INX
L07B498 STA $37
STX $39
LDA $5C
LDX $5E
STA $27
STX $29
L07B4A4 PEI $29
PEI $27
LDY #$0004
LDA [$37],Y
JSL L150488
JSL L033477
BEQ L07B4E4
BVS L07B4BC
EOR #$8000
L07B4BC BPL L07B4E4
PEI $29
PEI $27
LDY #$0004
LDA [$37],Y
JSL L150488
JSL L1512A5
STA $27
STX $29
LDA $37
LDX $39
CLC
ADC #$0006
BCC L07B4DE
INX
L07B4DE STA $37
STX $39
BRA L07B4A4
L07B4E4 LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
STA $47
STX $49
PHY
PHY
PEI $49
PEI $47
JSL L077A01
PLA
STA $3F
PLX
STX $41
LDA $3F
ORA $41
BNE L07B509
BRL L07B7EC
L07B509 LDY #$0004
LDA [$37],Y
SEC
SBC $21
BVS L07B516
EOR #$8000
L07B516 BPL L07B51B
BRL L07B5E9
L07B51B LDA $27
LDX $29
PEI $25
PEI $23
JSL L150D50
PLA
PLX
CLC
ADC #$0018
BCC L07B530
INX
L07B530 STA $2B
STX $2D
LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
PEI $2D
PEI $2B
JSL L150F53
STA $1D
STX $1F
LDA $1D
LDX $1F
PEI $25
PEI $23
JSL L150F53
STA $19
STX $1B
LDY #$0002
LDA [$3F],Y
PHA
LDA [$3F]
PHA
LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
STA $4F
STX $51
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
JSL L150F53
STA $15
STX $17
PEI $1F
PEI $1D
PEI $1B
PEI $19
PEI $17
PEI $15
LDA $19
LDX $1B
JSL L1512A5
PHX
PHA
JSL L1511CE
PEI $5A
PEI $58
PEI $1F
PEI $1D
PEI $25
PEI $23
JSL L070597
LDY #$0004
LDA [$37],Y
INC
LDY #$0004
STA [$37],Y
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
STA $05
STX $07
LDY #$0016
LDA [$05],Y
TAX
DEY
DEY
LDA [$05],Y
INC
BNE L07B5CC
INX
L07B5CC LDY #$0014
STA [$05],Y
INY
INY
TXA
STA [$05],Y
LDA #$0001
STA $64
PEI $49
PEI $47
PEA $0001
JSL L074E17
BRL L07B7EC
L07B5E9 PHY
PHY
PEA $0000
PHD
JSL L07B21C
PLA
STA $43
PLX
STX $45
PHY
PHY
PEI $45
PEI $43
JSL L077A01
PLA
STA $3B
PLX
STX $3D
LDA $3B
ORA $3D
BNE L07B612
BRL L07B7E1
L07B612 LDA $37
LDX $39
STA $1D
STX $1F
LDA $1D
LDX $1F
CLC
ADC #$0006
BCC L07B625
INX
L07B625 STA $19
STX $1B
LDY #$0002
LDA [$4B],Y
PHA
LDA [$4B]
PHA
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
STA $4F
STX $51
LDY #$0002
LDA [$4F],Y
TAX
LDA [$4F]
JSL L150F53
STA $15
STX $17
PEI $1F
PEI $1D
PEI $1B
PEI $19
PEI $17
PEI $15
LDA $19
LDX $1B
JSL L1512A5
PHX
PHA
JSL L1511CE
LDY #$0002
LDA [$4B],Y
TAX
LDA [$4B]
STA $01
STX $03
LDY #$000E
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
INC
BNE L07B682
INX
L07B682 LDY #$000C
STA [$01],Y
INY
INY
TXA
STA [$01],Y
LDA $19
LDX $1B
STA $33
STX $35
LDA $43
LDX $45
STA [$33]
TXA
LDY #$0002
STA [$33],Y
LDA #$0000
LDY #$0004
STA [$33],Y
PEI $29
PEI $27
LDA $21
JSL L150488
JSL L033477
BVS L07B6BB
EOR #$8000
L07B6BB BPL L07B6C0
BRL L07B7B7
L07B6C0 PHY
LDY #$0004
LDA [$37],Y
PHA
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $13
LDY #$0004
LDA [$37],Y
SEC
SBC $13
STA $11
LDA $11
LDY #$0004
STA [$37],Y
LDA $13
LDY #$0004
STA [$33],Y
LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
CLC
ADC #$0018
BCC L07B6F8
INX
L07B6F8 PHX
PHA
LDA $11
JSL L150488
PEI $25
PEI $23
JSL L150D50
PLA
PLX
JSL L150F53
STA $1D
STX $1F
LDY #$0002
LDA [$3B],Y
TAX
LDA [$3B]
CLC
ADC #$0018
BCC L07B721
INX
L07B721 STA $19
STX $1B
LDA $13
JSL L150488
PEI $25
PEI $23
JSL L150D50
PLA
PLX
STA $0F
PEI $1F
PEI $1D
PEI $1B
PEI $19
LDA $0F
JSL L150488
PHX
PHA
JSL L1511CE
PEI $1F
PEI $1D
LDA $0F
JSL L150488
PHX
PHA
JSL L071EC5
PEI $29
PEI $27
LDA $11
JSL L150488
JSL L033477
BEQ L07B7A9
BVS L07B770
EOR #$8000
L07B770 BPL L07B7A9
PEI $29
PEI $27
LDA $11
JSL L150488
JSL L1512A5
STA $27
STX $29
PEI $49
PEI $47
PEA $0001
JSL L074E17
LDA $43
LDX $45
STA $47
STX $49
LDA $33
LDX $35
STA $37
STX $39
LDA $3B
LDX $3D
STA $3F
STX $41
BRA L07B7B4
L07B7A9 PEI $45
PEI $43
PEA $0001
JSL L074E17
L07B7B4 BRL L07B509
L07B7B7 STZ $27
STZ $29
PEI $49
PEI $47
PEA $0000
JSL L074E17
LDA $43
LDX $45
STA $47
STX $49
LDA $33
LDX $35
STA $37
STX $39
LDA $3B
LDX $3D
STA $3F
STX $41
BRL L07B509
L07B7E1 PEI $49
PEI $47
PEA $0000
JSL L074E17
L07B7EC PEI $4D
PEI $4B
PEI $0D
JSL L0718DA
PEI $62
PEI $60
PEA $0001
JSL L074AC6
L07B801 LDA $56
STA $62
LDA $55
STA $61
LDA $53
TCD
TSC
CLC
ADC #$0060
TCS
RTL
L07B813 PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
STZ $26
PEI $20
PEI $1E
LDA #$0000
TAX
JSL L033477
BPL L07B82E
BRL L07B8D8
L07B82E PHY
PHY
PEI $24
PEI $22
JSL L077A5B
PLA
STA $05
PLX
STX $07
LDA $05
ORA $07
BNE L07B847
BRL L07B8D8
L07B847 LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $01
STX $03
LDY #$0002
LDA [$01],Y
TAX
LDA [$01]
STA $0D
STX $0F
LDY #$0006
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
STA $09
STX $0B
LDA #$4143
LDX #$4452
CMP $09
BNE L07B879
CPX $0B
L07B879 BEQ L07B889
LDA #$4B42
LDX #$4447
CMP $09
BNE L07B887
CPX $0B
L07B887 BNE L07B8CD
L07B889 PHY
PHY
PEI $07
PEI $05
JSL L07DF0D
LDA $1E
LDX $20
JSL L150F53
STA $11
STX $13
LDA #$0001
STA $26
PEI $13
PEI $11
LDA $0D
LDX $0F
JSL L033477
BEQ L07B8CD
BVS L07B8B7
EOR #$8000
L07B8B7 BPL L07B8CD
PHY
PEI $24
PEI $22
PEI $0B
PEI $09
PEI $13
PEI $11
JSL L077EAF
PLA
STA $26
L07B8CD PEI $24
PEI $22
PEA $0000
JSL L074E4D
L07B8D8 LDA $1C
STA $24
LDA $1B
STA $23
LDA $19
TCD
TSC
CLC
ADC #$0022
TCS
RTL
L07B8EA ENT
PHD
TSC
CLC
ADC #$FF78
TCS
TCD
STZ $96
STZ $98
PEI $90
PEI $8E
LDA #$0000
TAX
JSL L033477
BEQ L07B906
BPL L07B908
L07B906 BRA L07B978
L07B908 LDA L055023
LDX L055025
CMP $8E
BNE L07B914
CPX $90
L07B914 BEQ L07B91B
LDA #$0000
BRA L07B91E
L07B91B LDA #$0001
L07B91E PHA
LDAL L053AD3
TAX
LDAL L053AD1
CMP $92
BNE L07B92E
CPX $94
L07B92E BEQ L07B935
LDA #$0000
BRA L07B938
L07B935 LDA #$0001
L07B938 AND $01,S
PLX
LSR
BCC L07B94A
LDA L055027
LDX L055029
STA $96
STX $98
BRA L07B978
L07B94A PHY
PEI $94
PEI $92
PEI $90
PEI $8E
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L07A4B1
PLA
LSR
BCC L07B978
LDA $01
LDX $03
STA $96
STX $98
LDA L055005
LDX L055007
STA L055081
STX L055083
L07B978 LDA $8C
STA $94
LDA $8B
STA $93
LDA $89
TCD
TSC
CLC
ADC #$0092
TCS
RTL
L07B98A PHD
TSC
CLC
ADC #$FF96
TCS
TCD
TDC
CLC
ADC #$0007
PEA $0000
PHA
PEI $7A
PEI $78
PEA $002A
JSL L0313BE
STZ $80
LDA $09
STA $39
LDA #$00FF
AND [$74]
STA $43
PHY
PHY
LDY #$0002
LDA [$70],Y
PHA
LDA [$70]
PHA
JSL L071C98
PLA
PLX
INC
BNE L07B9C8
INX
L07B9C8 STA $3F
STX $41
LDA #$0001
LDX #$0000
STA $3B
STX $3D
LDA #$002A
CLC
ADC $43
INC
CLC
ADC #$0004
JSL L150488
PEI $41
PEI $3F
JSL L150F53
PEI $3D
PEI $3B
JSL L150F53
STA $51
STX $53
LDA $51
AND #$0001
BEQ L07BA0C
LDA $51
LDX $53
INC
BNE L07BA08
INX
L07BA08 STA $51
STX $53
L07BA0C PEI $53
PEI $51
LDA #$7FFF
LDX #$0000
JSL L033477
BEQ L07BA26
BVS L07BA21
EOR #$8000
L07BA21 BPL L07BA26
BRL L07BCA6
L07BA26 LDA $51
STA $07
LDX #$0000
LDA $39
BMI L07BA34
BEQ L07BA34
INX
L07BA34 TXA
BNE L07BA3A
BRL L07BCA6
L07BA3A PHY
PEI $7E
PEI $7C
PEI $53
PEI $51
JSL L07B813
PLA
BNE L07BA4D
BRL L07BCA6
L07BA4D PHY
PHY
PEI $7E
PEI $7C
JSL L077A5B
PLA
STA $63
PLX
STX $65
PHY
PHY
PEI $65
PEI $63
PEA $0000
JSL L07963D
PLA
STA $5F
PLX
STX $61
LDA $5F
LDX $61
SEC
SBC #$000E
BCS L07BA7B
DEX
L07BA7B STA $5B
STX $5D
LDA [$5B]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07BA8E
EOR #$8000
L07BA8E BMI L07BA93
BRL L07BC9B
L07BA93 LDA #$0001
STA $59
L07BA98 LDA [$5F]
JSL L150488
STA $55
STX $57
LDY #$0002
LDA $39
CMP [$5F],Y
BEQ L07BAAE
BRL L07BC80
L07BAAE LDA $55
LDX $57
CMP $51
BNE L07BAB8
CPX $53
L07BAB8 BNE L07BABD
BRL L07BB61
L07BABD LDA $5F
LDX $61
PEI $57
PEI $55
JSL L150F53
STA $4D
STX $4F
LDA $5F
LDX $61
PEI $53
PEI $51
JSL L150F53
STA $49
STX $4B
LDY #$0002
LDA [$63],Y
PHA
LDA [$63]
PHA
LDY #$0002
LDA [$63],Y
TAX
LDA [$63]
STA $67
STX $69
LDY #$0002
LDA [$67],Y
TAX
LDA [$67]
JSL L150F53
STA $45
STX $47
PEI $4F
PEI $4D
PEI $4B
PEI $49
PEI $47
PEI $45
LDA $4D
LDX $4F
JSL L1512A5
PHX
PHA
LDA $51
LDX $53
JSL L1512A5
PHX
PHA
JSL L1511CE
LDA $5B
LDX $5D
STA $03
STX $05
LDA #$0004
CLC
ADC $03
LDX $05
BCC L07BB39
INX
L07BB39 STA $67
STX $69
LDY #$0006
LDA [$03],Y
TAX
DEY
DEY
LDA [$03],Y
PEI $53
PEI $51
JSL L150F53
PHX
PHA
LDA $55
LDX $57
JSL L1512A5
STA [$67]
TXA
LDY #$0002
STA [$67],Y
L07BB61 PEI $61
PEI $5F
TDC
CLC
ADC #$0007
PEA $0000
PHA
PEA $002A
JSL L0313BE
LDA #$0001
CLC
ADC $74
LDX $76
BCC L07BB80
INX
L07BB80 STA $4D
STX $4F
LDA $5F
LDX $61
CLC
ADC #$002A
BCC L07BB8F
INX
L07BB8F STA $49
STX $4B
PEI $4F
PEI $4D
PEI $4B
PEI $49
LDA $43
JSL L150488
PHX
PHA
JSL L070597
PEI $4B
PEI $49
LDA $43
JSL L150488
JSL L150F53
STA $49
STX $4B
LDA #$0000
STA [$49]
LDA $49
LDX $4B
CLC
ADC #$0002
BCC L07BBC9
INX
L07BBC9 STA $49
STX $4B
LDA #$0004
STA $31
STZ $33
LDA $31
LDX $33
STA [$49]
TXA
LDY #$0002
STA [$49],Y
LDA $49
LDX $4B
CLC
ADC #$0004
BCC L07BBEB
INX
L07BBEB STA $49
STX $4B
LDY #$0002
LDA [$70],Y
TAX
LDA [$70]
STA $4D
STX $4F
TDC
CLC
ADC #$004D
PEA $0000
PHA
TDC
CLC
ADC #$0049
PEA $0000
PHA
JSL L070669
LDA $49
LDX $4B
INC
BNE L07BC19
INX
L07BC19 STA $49
STX $4B
LDA $43
INC
CLC
ADC #$0004
JSL L150488
PEI $41
PEI $3F
JSL L150F53
PEI $3D
PEI $3B
JSL L150F53
AND #$00FF
AND #$0001
BEQ L07BC54
SEP #$20
LDA #$00
STA [$49]
REP #$20
LDA $49
LDX $4B
INC
BNE L07BC50
INX
L07BC50 STA $49
STX $4B
L07BC54 PEI $4B
PEI $49
LDA $5F
LDX $61
JSL L1512A5
STA $67
STX $69
LDA [$5F]
JSL L150488
CMP $67
BNE L07BC70
CPX $69
L07BC70 BEQ L07BC79
PEA $572A
JSL L07272E
L07BC79 LDA #$0001
STA $80
BRA L07BC9B
L07BC80 LDA $5F
LDX $61
PEI $57
PEI $55
JSL L150F53
STA $5F
STX $61
LDA $59
CMP $01
BEQ L07BC9B
INC $59
BRL L07BA98
L07BC9B PEI $7E
PEI $7C
PEA $0001
JSL L074E4D
L07BCA6 LDA $6E
STA $7E
LDA $6D
STA $7D
LDA $6B
TCD
TSC
CLC
ADC #$007C
TCS
RTL
L07BCB8 ENT
PHD
TSC
CLC
ADC #$FFC8
TCS
TCD
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L07A852
PLA
LSR
BCS L07BCF8
STZ L055077
LDA #$0001
STA L055075
PEA ^L0536E5
PEA L0536E5
PEA $0000
PEA $0084
JSL L071EC5
BRL L07BF7D
L07BCF8 PHY
PEI $42
PEI $40
PEA ^L0538E9
PEA L0538E9
JSL L071C56
LDX #$0000
LDA L055065
CMP $3E
BNE L07BD12
INX
L07BD12 TXA
AND $01,S
PLX
PHA
LDX #$0000
LDA $1F
CMP L055077
BNE L07BD22
INX
L07BD22 TXA
AND $01,S
PLX
PHA
LDX #$0000
LDA $1D
CMP L055075
BNE L07BD32
INX
L07BD32 TXA
AND $01,S
PLX
LSR
BCC L07BD3C
BRL L07BF7D
L07BD3C PEA ^L0538E9
PEA L0538E9
PEI $42
PEI $40
PEA $0100
JSL L0313BE
LDA $3E
STA L055065
LDA $1F
STA L055077
LDA $1D
STA L055075
LDA $3E
BMI L07BD9A
CMP #$0005
BPL L07BD9A
SEC
SBC #$0000
BEQ L07BD79
DEC
BEQ L07BD84
DEC
BEQ L07BD8C
DEC
BEQ L07BD84
DEC
BEQ L07BD8C
BRA L07BD9A
L07BD79 LDA #$0001
STA L055063
STZ L055061
BRA L07BD9A
L07BD84 STZ L055063
STZ L055061
BRA L07BD9A
L07BD8C LDA #$0001
STA L055063
LDA #$0001
STA L055061
BRA L07BD9A
L07BD9A PEA ^L0536E5
PEA L0536E5
PEA $0000
PEA $0084
JSL L071EC5
PHY
PHY
PEA ^L0538E9
PEA L0538E9
JSL L071F3F
PLA
STA $31
PLX
STX $33
LDA #$0003
CMP $3E
BNE L07BDD0
TDC
CLC
ADC #$0031
PEA $0000
PHA
JSL L079395
L07BDD0 LDA $3E
DEC
BEQ L07BDEB
PEI $33
PEI $31
PEA ^L0536E9
PEA L0536E9
LDA L055077
PHA
LDA L055075
PHA
JSL L078D85
L07BDEB STZ L055079
LDA #L053769
LDX #^L053769
STA $2D
STX $2F
LDA $2D
LDX $2F
CLC
ADC #$0100
BCC L07BE03
INX
L07BE03 TAY
BNE L07BE07
DEX
L07BE07 DEC
STA $29
STX $2B
PHY
PHY
PEA ^L0538E9
PEA L0538E9
JSL L071F3F
PLA
STA $31
PLX
STX $33
LDX #$0000
LDA #$0003
CMP $3E
BNE L07BE29
INX
L07BE29 PHX
LDX #$0000
LDA #$0004
CMP $3E
BNE L07BE35
INX
L07BE35 TXA
ORA $01,S
PLX
LSR
BCC L07BEAD
LDA #$00FF
AND [$31]
BNE L07BE46
BRL L07BF75
L07BE46 LDA #$0001
STA L055079
LDA $2D
LDX $2F
STAL L053869
TXA
STAL L05386B
L07BE59 LDA #$00FF
AND [$31]
BEQ L07BE63
LDA #$0001
L07BE63 PHA
LDA $29
LDX $2B
CMP $2D
BNE L07BE6E
CPX $2F
L07BE6E BNE L07BE75
LDA #$0000
BRA L07BE78
L07BE75 LDA #$0001
L07BE78 AND $01,S
PLX
LSR
BCC L07BEAA
PEI $33
PEI $31
PLA
STA $35
PLA
STA $37
LDA [$35]
SEP #$20
STA [$2D]
REP #$20
LDA $2D
LDX $2F
INC
BNE L07BE98
INX
L07BE98 STA $2D
STX $2F
LDA $31
LDX $33
INC
BNE L07BEA4
INX
L07BEA4 STA $31
STX $33
BRA L07BE59
L07BEAA BRL L07BF75
L07BEAD TDC
CLC
ADC #$0031
PEA $0000
PHA
JSL L071C12
LDA #$00FF
AND [$31]
BNE L07BEC4
BRL L07BF75
L07BEC4 LDA L055079
INC
STA L055079
LDA L055079
DEC
ASL
ASL
TAX
PEI $2F
PEI $2D
PLA
STAL L053869,X
PLA
STAL L05386B,X
L07BEE0 LDA #$00FF
AND [$31]
CMP #$0020
BEQ L07BF37
LDA #$00FF
AND [$31]
PHA
PLA
SEP #$20
STA [$2D]
REP #$20
LDA $2D
LDX $2F
INC
BNE L07BEFF
INX
L07BEFF STA $2D
STX $2F
LDA $31
LDX $33
INC
BNE L07BF0B
INX
L07BF0B STA $31
STX $33
LDX #$0000
LDA #$00FF
AND [$31]
BNE L07BF1A
INX
L07BF1A PHX
LDA $29
LDX $2B
CMP $2D
BNE L07BF25
CPX $2F
L07BF25 BEQ L07BF2C
LDA #$0000
BRA L07BF2F
L07BF2C LDA #$0001
L07BF2F ORA $01,S
PLX
LSR
BCS L07BF75
BRA L07BEE0
L07BF37 SEP #$20
LDA #$00
STA [$2D]
REP #$20
LDA $2D
LDX $2F
INC
BNE L07BF47
INX
L07BF47 STA $2D
STX $2F
LDX #$0000
LDA #$0014
CMP L055079
BNE L07BF57
INX
L07BF57 PHX
LDA $29
LDX $2B
CMP $2D
BNE L07BF62
CPX $2F
L07BF62 BEQ L07BF69
LDA #$0000
BRA L07BF6C
L07BF69 LDA #$0001
L07BF6C ORA $01,S
PLX
LSR
BCS L07BF75
BRL L07BEAD
L07BF75 SEP #$20
LDA #$00
STA [$2D]
REP #$20
L07BF7D LDA $3C
STA $42
LDA $3B
STA $41
LDA $39
TCD
TSC
CLC
ADC #$0040
TCS
RTL
L07BF8F ENT
PHD
TSC
CLC
ADC #$FDE6
TCS
ADC #$012D
TCD
PEA $0000
TDC
CLC
ADC #$FED5
PHA
PEI $F4
PEI $F2
PEA $0100
JSL L0313BE
STZ $FC
PHY
PHY
PEI $FA
PEI $F8
JSL L077A5B
PLA
STA $DB
PLX
STX $DD
LDA $DB
ORA $DD
BNE L07BFC9
BRL L07C08A
L07BFC9 PHY
PHY
PEI $DD
PEI $DB
PEA $0000
JSL L07963D
PLA
STA $E5
PLX
STX $E7
LDA $E5
ORA $E7
BNE L07BFE5
BRL L07C07F
L07BFE5 LDA $E5
LDX $E7
SEC
SBC #$000E
BCS L07BFF0
DEX
L07BFF0 STA $E1
STX $E3
LDA [$E1]
LDX #$FED3
STA $00,X
LDX #$FED3
LDA $00,X
SEC
SBC #$0001
BVS L07C009
EOR #$8000
L07C009 BPL L07C07F
LDA #$0001
STA $DF
L07C010 LDY #$0004
LDA #$000F
AND [$E5],Y
CMP $F6
BNE L07C060
LDA $E5
LDX $E7
CLC
ADC #$002A
BCC L07C027
INX
L07C027 STA $D5
STX $D7
PEI $D7
PEI $D5
PEA $0000
TDC
CLC
ADC #$FFD5
PHA
JSL L071FF8
PHY
PEA $0000
TDC
CLC
ADC #$FFD5
PHA
PEA $0000
TDC
CLC
ADC #$FED5
PHA
JSL L071C56
PLA
LSR
BCC L07C060
LDY #$0002
LDA [$E5],Y
STA $FC
BRA L07C07F
L07C060 PEI $E7
PEI $E5
LDA [$E5]
JSL L150488
JSL L150F53
STA $E5
STX $E7
LDA $DF
LDX #$FED3
CMP $00,X
BEQ L07C07F
INC $DF
BRA L07C010
L07C07F PEI $FA
PEI $F8
PEA $0000
JSL L074E4D
L07C08A LDA $F0
STA $FA
LDA $EF
STA $F9
LDA $ED
TCD
TSC
CLC
ADC #$0226
TCS
RTL
L07C09C ENT
PHD
TSC
CLC
ADC #$FFD6
TCS
TCD
STZ $3A
PHY
PHY
PEI $38
PEI $36
JSL L077A5B
PLA
STA $23
PLX
STX $25
LDA $23
ORA $25
BNE L07C0BF
BRL L07C28C
L07C0BF PHY
PEI $25
PEI $23
JSL L0718FA
PLA
STA $03
PHY
PHY
PEI $25
PEI $23
PEA $0000
JSL L07963D
PLA
STA $15
PLX
STX $17
LDA $15
ORA $17
BNE L07C0E7
BRL L07C277
L07C0E7 LDA $15
LDX $17
STA $11
STX $13
LDA $15
LDX $17
SEC
SBC #$000E
BCS L07C0FA
DEX
L07C0FA STA $19
STX $1B
LDA [$19]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07C10D
EOR #$8000
L07C10D BMI L07C112
BRL L07C277
L07C112 LDA #$0001
STA $1D
L07C117 LDY #$0002
LDA $34
CMP [$11],Y
BEQ L07C123
BRL L07C252
L07C123 LDA $32
BEQ L07C131
LDA $1D
DEC
BNE L07C12F
BRL L07C277
L07C12F BRA L07C154
L07C131 LDA [$19]
CMP $1D
BNE L07C13A
BRL L07C277
L07C13A LDA $11
LDX $13
STA $15
STX $17
PEI $17
PEI $15
LDA [$15]
JSL L150488
JSL L150F53
STA $11
STX $13
L07C154 LDA [$15]
STA $07
LDA [$11]
STA $05
PHY
PHY
LDA $07
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $0D
PLX
STX $0F
LDAL L05565D
BEQ L07C186
BRL L07C232
L07C186 PHY
PHY
LDA $05
JSL L150488
PHX
PHA
LDA L054FBD
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA $09
PLX
STX $0B
LDAL L05565D
BNE L07C22A
PEI $17
PEI $15
LDY #$0002
LDA [$0D],Y
PHA
LDA [$0D]
PHA
LDA $07
JSL L150488
PHX
PHA
JSL L070597
PEI $13
PEI $11
LDY #$0002
LDA [$09],Y
PHA
LDA [$09]
PHA
LDA $05
JSL L150488
PHX
PHA
JSL L070597
LDY #$0002
LDA [$09],Y
PHA
LDA [$09]
PHA
PEI $17
PEI $15
LDA $05
JSL L150488
PHX
PHA
JSL L070597
LDY #$0002
LDA [$0D],Y
PHA
LDA [$0D]
PHA
PEI $17
PEI $15
LDA $05
JSL L150488
JSL L150F53
PHX
PHA
LDA $07
JSL L150488
PHX
PHA
JSL L070597
LDA #$0001
STA $3A
PEI $0B
PEI $09
JSL L07185A
L07C22A PEI $0F
PEI $0D
JSL L07185A
L07C232 LDA $30
EOR #$0001
PHA
LDX #$0000
LDY #$0004
LDA [$15],Y
LDY #$0004
EOR [$11],Y
AND #$000F
BNE L07C24B
INX
L07C24B TXA
ORA $01,S
PLX
LSR
BCS L07C277
L07C252 LDA $11
LDX $13
STA $15
STX $17
PEI $17
PEI $15
LDA [$15]
JSL L150488
JSL L150F53
STA $11
STX $13
LDA $1D
CMP $01
BEQ L07C277
INC $1D
BRL L07C117
L07C277 PEI $25
PEI $23
PEI $03
JSL L0718DA
PEI $38
PEI $36
PEA $0001
JSL L074E4D
L07C28C LDA $2E
STA $38
LDA $2D
STA $37
LDA $2B
TCD
TSC
CLC
ADC #$0036
TCS
RTL
L07C29E PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
STZ $16
LDA #$0000
TAX
LDY #$0011
STA [$0E],Y
INY
INY
TXA
STA [$0E],Y
LDY #$0025
LDA [$0E],Y
TAX
DEY
DEY
LDA [$0E],Y
STA $05
STX $07
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
CLC
ADC #$0028
BCC L07C2D3
INX
L07C2D3 LDY #$001D
STA [$0E],Y
INY
INY
TXA
STA [$0E],Y
L07C2DD LDY #$001F
LDA [$0E],Y
PHA
DEY
DEY
LDA [$0E],Y
PHA
LDY #$001B
LDA [$0E],Y
TAX
DEY
DEY
LDA [$0E],Y
JSL L033477
BNE L07C2FB
BRL L07C387
L07C2FB LDY #$001F
LDA [$0E],Y
TAX
DEY
DEY
LDA [$0E],Y
STA $05
STX $07
LDA $12
LDX $14
CMP [$05]
BNE L07C317
LDY #$0002
TXA
CMP [$05],Y
L07C317 BNE L07C320
LDA #$0001
STA $16
BRA L07C387
L07C320 LDA #$0011
CLC
ADC $0E
LDX $10
BCC L07C32B
INX
L07C32B PHX
PHA
LDY #$0013
LDA [$0E],Y
PHA
DEY
DEY
LDA [$0E],Y
PHA
LDY #$001F
LDA [$0E],Y
TAX
DEY
DEY
LDA [$0E],Y
CLC
ADC #$0004
BCC L07C349
INX
L07C349 STA $05
STX $07
LDA [$05]
JSL L150488
JSL L150F53
PHX
PHA
PLA
PLY
PLX
STX $05
PLX
STX $07
STA [$05]
TYA
LDY #$0002
STA [$05],Y
LDY #$001F
LDA [$0E],Y
TAX
DEY
DEY
LDA [$0E],Y
CLC
ADC #$0006
BCC L07C37A
INX
L07C37A LDY #$001D
STA [$0E],Y
INY
INY
TXA
STA [$0E],Y
BRL L07C2DD
L07C387 LDA $0C
STA $14
LDA $0B
STA $13
LDA $09
TCD
TSC
CLC
ADC #$0012
TCS
RTL
L07C399 PHD
TSC
CLC
ADC #$FFEC
TCS
TCD
STZ $1E
LDY #$001F
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
STA $0D
STX $0F
PHY
PHY
PEI $0F
PEI $0D
JSL L077A01
PLA
STA $09
PLX
STX $0B
LDA $09
ORA $0B
BNE L07C41F
LDA #$0011
CLC
ADC $1A
LDX $1C
BCC L07C3DE
INX
L07C3DE PHX
PHA
LDY #$0013
LDA [$1A],Y
PHA
DEY
DEY
LDA [$1A],Y
PHA
LDY #$001F
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
CLC
ADC #$0004
BCC L07C3FC
INX
L07C3FC STA $11
STX $13
LDA [$11]
JSL L150488
JSL L150F53
PHX
PHA
PLA
PLY
PLX
STX $11
PLX
STX $13
STA [$11]
TYA
LDY #$0002
STA [$11],Y
BRL L07C529
L07C41F LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
CLC
ADC #$0018
BCC L07C42E
INX
L07C42E STA $03
STX $05
LDY #$001F
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
CLC
ADC #$0004
BCC L07C443
INX
L07C443 STA $11
STX $13
LDA [$11]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07C456
EOR #$8000
L07C456 BMI L07C45B
BRL L07C51E
L07C45B LDA #$0001
STA $07
L07C460 LDY #$0013
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
INC
BNE L07C46E
INX
L07C46E LDY #$0011
STA [$1A],Y
INY
INY
TXA
STA [$1A],Y
LDY #$0032
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
CMP [$03]
BNE L07C48C
LDY #$0002
TXA
CMP [$03],Y
L07C48C BNE L07C4FD
PEI $0F
PEI $0D
PEA $0000
JSL L074E17
LDA $0D
LDX $0F
STA L055081
STX L055083
LDA #$0001
STA $1E
LDY #$0036
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
CMPL L053AD1
BNE L07C4BD
TXA
CMPL L053AD3
L07C4BD BEQ L07C4C4
LDA #$0000
BRA L07C4C7
L07C4C4 LDA #$0001
L07C4C7 PHA
LDY #$0032
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
CMP L055027
BNE L07C4DA
CPX L055029
L07C4DA BEQ L07C4E1
LDA #$0000
BRA L07C4E4
L07C4E1 LDA #$0001
L07C4E4 AND $01,S
PLX
LSR
BCC L07C4FA
LDY #$0013
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
STA L055023
STX L055025
L07C4FA BRL L07C594
L07C4FD PEI $05
PEI $03
LDY #$0017
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
JSL L150F53
STA $03
STX $05
LDA $07
CMP $01
BEQ L07C51E
INC $07
BRL L07C460
L07C51E PEI $0F
PEI $0D
PEA $0000
JSL L074E17
L07C529 LDY #$001F
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
CLC
ADC #$0006
BCC L07C53A
INX
L07C53A LDY #$001D
STA [$1A],Y
INY
INY
TXA
STA [$1A],Y
LDY #$001F
LDA [$1A],Y
PHA
DEY
DEY
LDA [$1A],Y
PHA
LDY #$001B
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
JSL L033477
BNE L07C594
LDA #$0000
TAX
LDY #$0011
STA [$1A],Y
INY
INY
TXA
STA [$1A],Y
LDY #$0025
LDA [$1A],Y
TAX
DEY
DEY
LDA [$1A],Y
STA $11
STX $13
LDY #$0002
LDA [$11],Y
TAX
LDA [$11]
CLC
ADC #$0028
BCC L07C58A
INX
L07C58A LDY #$001D
STA [$1A],Y
INY
INY
TXA
STA [$1A],Y
L07C594 LDA $18
STA $1C
LDA $17
STA $1B
LDA $15
TCD
TSC
CLC
ADC #$001A
TCS
RTL
L07C5A6 ENT
PHD
TSC
CLC
ADC #$FFD6
TCS
TCD
LDAL L053AD3
TAX
LDAL L053AD1
CMP $34
BNE L07C5BD
CPX $36
L07C5BD BNE L07C5E2
LDA L055027
LDX L055029
CMP $30
BNE L07C5CB
CPX $32
L07C5CB BNE L07C5E2
LDA L055023
ORA L055025
BEQ L07C5E2
LDA L055023
LDX L055025
STA $38
STX $3A
BRL L07C7A3
L07C5E2 STZ $38
STZ $3A
PHY
PHY
PEI $36
PEI $34
JSL L0772F8
PLA
STA $23
PLX
STX $25
LDA $23
ORA $25
BNE L07C5FF
BRL L07C7A3
L07C5FF PHY
PEI $25
PEI $23
JSL L0718FA
PLA
STA $21
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
CLC
ADC #$0018
BCC L07C61A
INX
L07C61A STA $27
STX $29
LDA [$27]
JSL L150488
STA $15
STX $17
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
CLC
ADC #$0028
BCC L07C637
INX
L07C637 STA $1D
STX $1F
PEI $1F
PEI $1D
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
CLC
ADC #$000C
BCC L07C64E
INX
L07C64E STA $27
STX $29
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
PEA $0000
PEA $0006
JSL L150D50
PLA
PLX
JSL L150F53
STA $19
STX $1B
PHY
PHY
PEI $32
PEI $30
JSL L0772AE
PLA
STA $09
PLX
STX $0B
LDA $09
ORA $0B
BEQ L07C6F9
LDY #$0002
LDA [$09],Y
TAX
LDA [$09]
CLC
ADC #$001C
BCC L07C693
INX
L07C693 STA $27
STX $29
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STA $05
STX $07
PEI $32
PEI $30
PEA $0000
JSL L074A90
LDA $05
ORA $07
BEQ L07C6B7
LDA #$0001
L07C6B7 BEQ L07C6F9
PHY
PEI $07
PEI $05
PEA $0000
PHD
JSL L07C29E
PLA
BEQ L07C6F9
PHY
PEA $0000
PHD
JSL L07C399
PLA
LSR
BCC L07C6E1
LDA $11
LDX $13
STA $38
STX $3A
BRL L07C78E
L07C6E1 PHY
PEA $0000
PHD
JSL L07C399
PLA
LSR
BCC L07C6F9
LDA $11
LDX $13
STA $38
STX $3A
BRL L07C78E
L07C6F9 PHY
LDA L055081
LDX L055083
PHX
PHA
PEA $0000
PHD
JSL L07C29E
PLA
LSR
BCS L07C725
STZ $11
STZ $13
LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
CLC
ADC #$0028
BCC L07C721
INX
L07C721 STA $1D
STX $1F
L07C725 LDY #$0002
LDA [$23],Y
TAX
LDA [$23]
CLC
ADC #$000C
BCC L07C734
INX
L07C734 STA $27
STX $29
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STA $01
STX $03
PEI $03
PEI $01
LDA #$0001
LDX #$0000
JSL L033477
BVS L07C757
EOR #$8000
L07C757 BPL L07C78E
LDA #$0001
LDX #$0000
STA $0D
STX $0F
L07C763 PHY
PEA $0000
PHD
JSL L07C399
PLA
LSR
BCC L07C77A
LDA $11
LDX $13
STA $38
STX $3A
BRA L07C78E
L07C77A LDA $0D
LDX $0F
CMP $01
BNE L07C784
CPX $03
L07C784 BEQ L07C78E
INC $0D
BNE L07C78C
INC $0F
L07C78C BRA L07C763
L07C78E PEI $25
PEI $23
PEI $21
JSL L0718DA
PEI $36
PEI $34
PEA $0000
JSL L074AC6
L07C7A3 LDA $2E
STA $36
LDA $2D
STA $35
*
LDA $2B
TCD
TSC
CLC
ADC #$0034
TCS
RTL
L07C7B5 ENT
PHD
TSC
CLC
ADC #$FFB6
TCS
TCD
STZ $62
STZ $64
JSL L079752
PHY
PHY
PEI $60
PEI $5E
JSL L0772F8
PLA
STA $43
PLX
STX $45
LDA $43
ORA $45
BNE L07C7DE
BRL L07CC0D
L07C7DE PHY
PEI $45
PEI $43
JSL L0718FA
PLA
STA $19
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0018
BCC L07C7F9
INX
L07C7F9 STA $47
STX $49
LDA [$47]
STA $29
LDA $5A
LDX $5C
INC
BNE L07C809
INX
L07C809 STA $2F
STX $31
PEI $31
PEI $2F
LDA #$0001
LDX #$0000
JSL L033477
BVS L07C820
EOR #$8000
L07C820 BMI L07C82C
LDA #$0001
LDX #$0000
STA $2F
STX $31
L07C82C PEI $31
PEI $2F
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0014
BCC L07C83F
INX
L07C83F STA $47
STX $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
JSL L033477
BEQ L07C862
BVS L07C856
EOR #$8000
L07C856 BPL L07C862
LDA #$0001
LDX #$0000
STA $2F
STX $31
L07C862 LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0028
BCC L07C871
INX
L07C871 STA $3F
STX $41
PEI $41
PEI $3F
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$000C
BCC L07C888
INX
L07C888 STA $47
STX $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
PEA $0000
PEA $0006
JSL L150D50
PLA
PLX
JSL L150F53
STA $3B
STX $3D
LDA $2F
LDX $31
STA $2B
STX $2D
L07C8B0 PEI $2D
PEI $2B
LDY #$0004
LDA [$3F],Y
JSL L150488
JSL L033477
BEQ L07C8F0
BVS L07C8C8
EOR #$8000
L07C8C8 BPL L07C8F0
PEI $2D
PEI $2B
LDY #$0004
LDA [$3F],Y
JSL L150488
JSL L1512A5
STA $2B
STX $2D
LDA $3F
LDX $41
CLC
ADC #$0006
BCC L07C8EA
INX
L07C8EA STA $3F
STX $41
BRA L07C8B0
L07C8F0 LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
STA $37
STX $39
PHY
PHY
PEI $39
PEI $37
JSL L077A01
PLA
STA $33
PLX
STX $35
LDA $33
ORA $35
BNE L07C915
BRL L07CBF8
L07C915 PHY
PEI $35
PEI $33
JSL L0718FA
PLA
STA $17
LDA #$0400
ANDL L053AE9
BEQ L07C92D
LDA #$0001
L07C92D STA L05507F
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0018
BCC L07C93F
INX
L07C93F STA $21
STX $23
PEI $23
PEI $21
LDY #$0004
LDA [$3F],Y
PEI $29
JSL L150BEE
PLA
LDX #$0000
BIT #$8000
BEQ L07C95C
DEX
L07C95C JSL L150F53
STA $1D
STX $1F
PEI $23
PEI $21
LDX $2D
LDA $2B
BNE L07C96F
DEX
L07C96F DEC
PHX
PHA
LDA $29
JSL L150488
JSL L150D50
PLA
PLX
JSL L150F53
STA $21
STX $23
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$001C
BCC L07C995
INX
L07C995 STA $47
STX $49
LDA [$47]
STA $1B
LDA $56
ORA $58
BEQ L07C9A6
LDA #$0001
L07C9A6 STA $07
LDA $56
LDX $58
CLC
ADC #$0004
BCC L07C9B3
INX
L07C9B3 STA $09
STX $0B
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0014
BCC L07C9C6
INX
L07C9C6 STA $47
STX $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
STA $01
STX $03
PEI $03
PEI $01
LDA #$0001
LDX #$0000
JSL L033477
BVS L07C9E9
EOR #$8000
L07C9E9 BMI L07C9EE
BRL L07CBE3
L07C9EE LDA #$0001
LDX #$0000
STA $25
STX $27
L07C9F8 LDA $07
BEQ L07CA68
LDA $09
LDX $0B
STA $13
STX $15
LDA $21
LDX $23
CLC
ADC #$0004
BCC L07CA0F
INX
L07CA0F STA $0F
STX $11
LDA [$0F]
AND [$13]
CMP [$13]
BEQ L07CA1E
BRL L07CAF1
L07CA1E LDA $1B
ASL
STA $05
LDA $05
SEC
SBC #$0002
BVS L07CA2E
EOR #$8000
L07CA2E BPL L07CA68
LDA #$0002
STA $0D
L07CA35 LDA $13
LDX $15
CLC
ADC #$0002
BCC L07CA40
INX
L07CA40 STA $13
STX $15
LDA $0F
LDX $11
CLC
ADC #$0002
BCC L07CA4F
INX
L07CA4F STA $0F
STX $11
LDA [$0F]
AND [$13]
CMP [$13]
BEQ L07CA5E
BRL L07CAF1
L07CA5E LDA $0D
CMP $05
BEQ L07CA68
INC $0D
BRA L07CA35
L07CA68 PHY
PEI $23
PEI $21
PEI $54
PEI $52
JSL L079091
PLA
LSR
BCC L07CAF1
LDA $25
LDX $27
PEI $5C
PEI $5A
JSL L150F53
STA $25
STX $27
PEI $27
PEI $25
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0014
BCC L07CA9C
INX
L07CA9C STA $47
STX $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
JSL L033477
BEQ L07CADC
BVS L07CAB3
EOR #$8000
L07CAB3 BPL L07CADC
PEI $27
PEI $25
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0014
BCC L07CAC8
INX
L07CAC8 STA $47
STX $49
LDY #$0002
LDA [$47],Y
TAX
LDA [$47]
JSL L1512A5
STA $25
STX $27
L07CADC LDA $25
LDX $27
STA $62
STX $64
LDA $37
LDX $39
STA L055081
STX L055083
BRL L07CBE3
L07CAF1 PEI $23
PEI $21
LDA $29
JSL L150488
JSL L150F53
STA $21
STX $23
LDA $1D
LDX $1F
CMP $21
BNE L07CB0D
CPX $23
L07CB0D BEQ L07CB12
BRL L07CBCE
L07CB12 LDA $50
BEQ L07CB22
PHY
JSL L07005C
PLA
LSR
BCC L07CB22
BRL L07CBE3
L07CB22 PEI $35
PEI $33
PEI $17
JSL L0718DA
PEI $39
PEI $37
PEA $0000
JSL L074E17
LDA $3F
LDX $41
CLC
ADC #$0006
BCC L07CB42
INX
L07CB42 STA $3F
STX $41
LDA $3B
LDX $3D
CMP $3F
BNE L07CB50
CPX $41
L07CB50 BNE L07CB65
LDY #$0002
LDA [$43],Y
TAX
LDA [$43]
CLC
ADC #$0028
BCC L07CB61
INX
L07CB61 STA $3F
STX $41
L07CB65 LDY #$0002
LDA [$3F],Y
TAX
LDA [$3F]
STA $37
STX $39
PHY
PHY
PEI $39
PEI $37
JSL L077A01
PLA
STA $33
PLX
STX $35
LDA $33
ORA $35
BNE L07CB8E
PEA $000C
JSL L07272E
L07CB8E PHY
PEI $35
PEI $33
JSL L0718FA
PLA
STA $17
LDY #$0002
LDA [$33],Y
TAX
LDA [$33]
CLC
ADC #$0018
BCC L07CBA9
INX
L07CBA9 STA $21
STX $23
PEI $23
PEI $21
LDY #$0004
LDA [$3F],Y
PEI $29
JSL L150BEE
PLA
LDX #$0000
BIT #$8000
BEQ L07CBC6
DEX
L07CBC6 JSL L150F53
STA $1D
STX $1F
L07CBCE LDA $25
LDX $27
CMP $01
BNE L07CBD8
CPX $03
L07CBD8 BEQ L07CBE3
INC $25
BNE L07CBE0
INC $27
L07CBE0 BRL L07C9F8
L07CBE3 PEI $35
PEI $33
PEI $17
JSL L0718DA
PEI $39
PEI $37
PEA $0000
JSL L074E17
L07CBF8 PEI $45
PEI $43
PEI $19
JSL L0718DA
PEI $60
PEI $5E
PEA $0000
JSL L074AC6
L07CC0D LDA $4E
STA $60
LDA $4D
STA $5F
LDA $4B
TCD
TSC
CLC
ADC #$005E
TCS
RTL
L07CC1F PHD
TSC
CLC
ADC #$FFD8
TCS
TCD
STZ $3A
PEI $34
PEI $32
LDA #$0000
TAX
JSL L033477
BEQ L07CC39
BPL L07CC3C
L07CC39 BRL L07CD65
L07CC3C PHY
PHY
PEI $38
PEI $36
JSL L0772F8
PLA
STA $21
PLX
STX $23
LDA $21
ORA $23
BNE L07CC55
BRL L07CD65
L07CC55 LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STA $01
STX $03
PEI $34
PEI $32
LDY #$0016
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L033477
BEQ L07CC7F
BVS L07CC7A
EOR #$8000
L07CC7A BPL L07CC7F
BRL L07CD5A
L07CC7F LDY #$0018
LDA [$01],Y
JSL L150488
STA $19
STX $1B
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
CLC
ADC #$0028
BCC L07CC9B
INX
L07CC9B STA $15
STX $17
LDA $32
LDX $34
STA $1D
STX $1F
L07CCA7 PEI $1F
PEI $1D
LDY #$0004
LDA [$15],Y
JSL L150488
JSL L033477
BEQ L07CCE7
BVS L07CCBF
EOR #$8000
L07CCBF BPL L07CCE7
PEI $1F
PEI $1D
LDY #$0004
LDA [$15],Y
JSL L150488
JSL L1512A5
STA $1D
STX $1F
LDA $15
LDX $17
CLC
ADC #$0006
BCC L07CCE1
INX
L07CCE1 STA $15
STX $17
BRA L07CCA7
L07CCE7 LDY #$0002
LDA [$15],Y
TAX
LDA [$15]
STA $11
STX $13
PHY
PHY
PEI $13
PEI $11
JSL L077A01
PLA
STA $0D
PLX
STX $0F
LDA $0D
ORA $0F
BEQ L07CD5A
LDX $1F
LDA $1D
BNE L07CD10
DEX
L07CD10 DEC
PEI $1B
PEI $19
JSL L150D50
PLA
PLX
CLC
ADC #$0018
BCC L07CD22
INX
L07CD22 STA $09
STX $0B
LDY #$0002
LDA [$0D],Y
TAX
LDA [$0D]
PEI $0B
PEI $09
JSL L150F53
STA $05
STX $07
PEI $30
PEI $2E
PEI $07
PEI $05
PEI $1B
PEI $19
JSL L070597
LDA #$0001
STA $3A
PEI $13
PEI $11
PEA $0001
JSL L074E17
L07CD5A PEI $38
PEI $36
PEA $0000
JSL L074AC6
L07CD65 LDA $2C
STA $38
LDA $2B
STA $37
LDA $29
TCD
TSC
CLC
ADC #$0036
TCS
RTL
L07CD77 ENT
PHD
TSC
CLC
ADC #$FFD8
TCS
TCD
STZ $38
STZ $23
PHY
PHY
PEI $36
PEI $34
JSL L077A5B
PLA
STA $1F
PLX
STX $21
PHY
PHY
PEI $21
PEI $1F
PEA $0002
JSL L07963D
PLA
STA $17
PLX
STX $19
LDA $17
ORA $19
BNE L07CDAF
BRL L07CF3A
L07CDAF LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
STA $1B
STX $1D
PHY
PEI $30
PEI $2E
PEA ^L041CB3
PEA L041CB3
PEA $0020
JSL L070A10
PLA
STA $11
LDY #$0010
LDA [$1B],Y
STA $15
LDA #$0400
AND $15
BEQ L07CDE1
LDA #$0001
L07CDE1 STA $0F
LDA #$1000
AND $15
BEQ L07CDED
LDA #$0001
L07CDED STA $0D
LDA #$EBFF
AND $15
STA $13
LDA $32
BEQ L07CE01
LDA #$1000
ORA $13
STA $13
L07CE01 LDA $11
CMP $0F
BEQ L07CE0A
BRL L07CEDD
L07CE0A LDA $0F
BEQ L07CE3C
PHY
PEI $36
PEI $34
LDY #$0006
LDA [$1B],Y
PHA
DEY
DEY
LDA [$1B],Y
PHA
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
SEC
SBC #$0020
BCS L07CE2D
DEX
L07CE2D PHX
PHA
JSL L077EAF
PLA
LSR
BCS L07CE3A
BRL L07CF3A
L07CE3A BRA L07CE52
L07CE3C PHY
PEI $36
PEI $34
PEA $0000
PEA $0020
JSL L07B813
PLA
LSR
BCS L07CE52
BRL L07CF3A
L07CE52 PHY
PHY
PEI $21
PEI $1F
PEA $0002
JSL L07963D
PLA
STA $17
PLX
STX $19
LDA $17
LDX $19
STA $09
STX $0B
LDA $17
LDX $19
STA $05
STX $07
LDA $0F
BEQ L07CE8A
LDA $09
LDX $0B
CLC
ADC #$0020
BCC L07CE84
INX
L07CE84 STA $09
STX $0B
BRA L07CE99
L07CE8A LDA $05
LDX $07
CLC
ADC #$0020
BCC L07CE95
INX
L07CE95 STA $05
STX $07
L07CE99 LDY #$0002
LDA [$1F],Y
PHA
LDA [$1F]
PHA
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
STA $25
STX $27
LDY #$0002
LDA [$25],Y
TAX
LDA [$25]
JSL L150F53
STA $01
STX $03
PEI $0B
PEI $09
PEI $07
PEI $05
PEI $03
PEI $01
LDA $05
LDX $07
JSL L1512A5
PHX
PHA
JSL L1511CE
LDA #$0001
STA $23
L07CEDD LDA $11
BNE L07CF13
PHY
PEI $30
PEI $2E
PEI $19
PEI $17
PEA $0020
JSL L070A10
PLA
LSR
BCS L07CF0C
PEI $30
PEI $2E
PEI $19
PEI $17
PEA $0000
PEA $0020
JSL L070597
LDA #$0001
STA $23
L07CF0C LDA #$0400
ORA $13
STA $13
L07CF13 LDA $15
CMP $13
BEQ L07CF35
LDY #$0002
LDA [$1F],Y
TAX
LDA [$1F]
CLC
ADC #$0010
BCC L07CF28
INX
L07CF28 STA $25
STX $27
LDA $13
STA [$25]
LDA #$0001
STA $23
L07CF35 LDA #$0001
STA $38
L07CF3A LDA $1F
ORA $21
BEQ L07CF4A
PEI $36
PEI $34
PEI $23
JSL L074E4D
L07CF4A LDA $2C
STA $36
LDA $2B
STA $35
LDA $29
TCD
TSC
CLC
ADC #$0034
TCS
RTL
L07CF5C PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
STZ $2A
LDY #$001D
LDA [$26],Y
TAX
DEY
DEY
LDA [$26],Y
STA $19
STX $1B
LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
STA $1D
STX $1F
LDY #$0002
LDA [$1D],Y
TAX
LDA [$1D]
STA $15
STX $17
PHY
LDY #$0034
LDA [$26],Y
PHA
DEY
DEY
LDA [$26],Y
PHA
PEA $0000
PEA $0004
JSL L07B813
PLA
LSR
BCS L07CFA9
BRL L07D078
L07CFA9 PHY
PHY
PEI $1B
PEI $19
PEA $0000
JSL L07963D
PLA
PLX
SEC
SBC #$000E
BCS L07CFBF
DEX
L07CFBF STA $11
STX $13
PHY
PHY
PEI $1B
PEI $19
PEA $0001
JSL L07963D
PLA
STA $0D
PLX
STX $0F
LDA $0D
LDX $0F
CLC
ADC #$0004
BCC L07CFE1
INX
L07CFE1 STA $09
STX $0B
LDY #$0002
LDA [$19],Y
PHA
LDA [$19]
PHA
LDY #$0002
LDA [$19],Y
TAX
LDA [$19]
STA $1D
STX $1F
LDY #$0002
LDA [$1D],Y
TAX
LDA [$1D]
JSL L150F53
STA $05
STX $07
PEI $0F
PEI $0D
PEI $0B
PEI $09
PEI $07
PEI $05
LDA $09
LDX $0B
JSL L1512A5
PHX
PHA
JSL L1511CE
LDY #$0030
LDA [$26],Y
STA [$0D]
LDA $0D
LDX $0F
CLC
ADC #$0002
BCC L07D036
INX
L07D036 STA $0D
STX $0F
LDY #$002E
LDA [$26],Y
BEQ L07D048
LDA #$0081
STA [$0D]
BRA L07D04D
L07D048 LDA #$0080
STA [$0D]
L07D04D LDY #$0008
LDA [$11],Y
INC
LDY #$0008
STA [$11],Y
LDY #$000C
LDA [$11],Y
TAX
DEY
DEY
LDA [$11],Y
CLC
ADC #$0004
BCC L07D069
INX
L07D069 LDY #$000A
STA [$11],Y
INY
INY
TXA
STA [$11],Y
LDA #$0001
STA $2A
L07D078 LDA $24
STA $28
LDA $23
STA $27
LDA $21
TCD
TSC
CLC
ADC #$0026
TCS
RTL
L07D08A ENT
PHD
TSC
CLC
ADC #$FFDE
TCS
TCD
STZ $3A
LDA #$0000
STA [$28]
STZ $1B
STZ $1D
STZ $17
STZ $19
STZ $15
STZ $13
PHY
PHY
PEI $34
PEI $32
JSL L0772AE
PLA
STA $1B
PLX
STX $1D
LDA $1B
ORA $1D
BNE L07D0BE
BRL L07D1BB
L07D0BE PHY
PHY
PEI $38
PEI $36
JSL L07721A
PLA
STA $17
PLX
STX $19
LDA $17
ORA $19
BNE L07D0D7
BRL L07D1BB
L07D0D7 LDX #$0000
LDA $30
BPL L07D0DF
INX
L07D0DF TXA
STA $0B
LDA $0B
BEQ L07D101
PHY
PHY
PEI $1D
PEI $1B
LDA $30
EOR #$FFFF
INC
PHA
JSL L0791A7
PLA
STA $0F
PLX
STX $11
STZ $0D
BRA L07D127
L07D101 PHY
PHY
PEI $19
PEI $17
PEI $30
JSL L0791A7
PLA
STA $0F
PLX
STX $11
LDX #$0000
LDY #$0004
LDA #$4000
AND [$0F],Y
CMP #$0000
BEQ L07D124
INX
L07D124 TXA
STA $0D
L07D127 LDA $0D
ORA $0B
STA $09
LDA $09
BEQ L07D15D
LDX #$0000
LDY #$000E
LDA #$4000
AND [$0F],Y
CMP #$0000
BEQ L07D142
INX
L07D142 TXA
STA $07
LDA $2E
CMP $07
BNE L07D14E
BRL L07D1D4
L07D14E LDY #$000E
LDA #$4000
EOR [$0F],Y
LDY #$000E
STA [$0F],Y
BRA L07D1BB
L07D15D PHY
PHY
PEI $19
PEI $17
PEI $1D
PEI $1B
PEI $30
PEI $0D
JSL L07B038
PLA
STA $03
PLX
STX $05
LDA $03
ORA $05
BNE L07D197
LDA $2E
BNE L07D181
BRA L07D1D4
L07D181 PHY
PEA $0000
PHD
JSL L07CF5C
PLA
LSR
BCS L07D190
BRA L07D1D4
L07D190 LDA #$0001
STA $2C
BRA L07D1BB
L07D197 LDA [$03]
STA $01
LDX #$0000
LDA #$0081
CMP $01
BNE L07D1A6
INX
L07D1A6 TXA
STA $07
LDA $2E
CMP $07
BEQ L07D1D4
LDA #$0080
CLC
ADC $2E
STA $01
LDA $01
STA [$03]
L07D1BB LDA $2C
BEQ L07D1CF
LDA $0D
EOR #$0001
ORA $0B
STA $15
LDA $15
EOR #$0001
STA $13
L07D1CF LDA #$0001
STA [$28]
L07D1D4 LDA $1B
ORA $1D
BEQ L07D1E4
PEI $34
PEI $32
PEI $15
JSL L074A90
L07D1E4 LDA $17
ORA $19
BEQ L07D1F4
PEI $38
PEI $36
PEI $13
JSL L074A24
L07D1F4 LDA #$0001
STA $3A
LDA $26
STA $38
LDA $25
STA $37
LDA $23
TCD
TSC
CLC
ADC #$0036
TCS
RTL
L07D20B ENT
PHD
TSC
CLC
ADC #$FFE2
TCS
TCD
STZ $2C
PHY
PEI $26
PEI $24
JSL L070157
PLA
LSR
BCC L07D225
BRL L07D390
L07D225 LDA #$00FF
AND [$24]
INC
STA $13
PHY
PEI $2A
PEI $28
LDA $13
JSL L150488
PHX
PHA
JSL L07B813
PLA
LSR
BCS L07D245
BRL L07D390
L07D245 PHY
PHY
PEI $2A
PEI $28
JSL L077A5B
PLA
STA $17
PLX
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$0004
BCC L07D264
INX
L07D264 STA $1B
STX $1D
LDA #$4143
LDX #$4452
CMP [$1B]
BNE L07D278
LDY #$0002
TXA
CMP [$1B],Y
L07D278 BEQ L07D27F
LDA #$0000
BRA L07D282
L07D27F LDA #$0001
L07D282 STA $01
PHY
PHY
PEI $19
PEI $17
PEA $0003
JSL L07963D
PLA
STA $0F
PLX
STX $11
PHY
PHY
PEI $11
PEI $0F
JSL L071C98
PLA
PLX
INC
BNE L07D2A7
INX
L07D2A7 STA $15
LDA $15
CMP $13
BEQ L07D31E
PEI $11
PEI $0F
LDA $15
JSL L150488
JSL L150F53
STA $0B
STX $0D
PEI $11
PEI $0F
LDA $13
JSL L150488
JSL L150F53
STA $07
STX $09
LDY #$0002
LDA [$17],Y
PHA
LDA [$17]
PHA
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
STA $1B
STX $1D
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
JSL L150F53
STA $03
STX $05
PEI $0D
PEI $0B
PEI $09
PEI $07
PEI $05
PEI $03
LDA $0B
LDX $0D
JSL L1512A5
PHX
PHA
LDA $13
JSL L150488
JSL L1512A5
PHX
PHA
JSL L1511CE
L07D31E LDA #$0001
CLC
ADC $24
LDX $26
BCC L07D329
INX
L07D329 PHX
PHA
PEI $11
PEI $0F
LDA $13
DEC
JSL L150488
PHX
PHA
JSL L070597
PEI $11
PEI $0F
LDA $13
DEC
JSL L150488
JSL L150F53
STA $0F
STX $11
SEP #$20
LDA #$00
STA [$0F]
REP #$20
LDA #$0001
STA $2C
PEI $2A
PEI $28
PEA $0001
JSL L074E4D
LDA $01
BEQ L07D390
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $2A
PEI $28
JSL L07C5A6
PEA $0000
JSL L07E171
L07D390 LDA $22
STA $2A
LDA $21
STA $29
LDA $1F
TCD
TSC
CLC
ADC #$0028
TCS
RTL
L07D3A2 ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
STZ $42
PHY
PHY
LDY #$0002
LDA [$3A],Y
PHA
LDA [$3A]
PHA
JSL L071C98
PLA
PLX
INC
BNE L07D3C1
INX
L07D3C1 STA $1D
STX $1F
LDA $1D
LDX $1F
CLC
ADC #$0004
BCC L07D3D0
INX
L07D3D0 STA $19
STX $1B
PEI $1F
PEI $1D
LDA #$7530
LDX #$0000
JSL L033477
BEQ L07D3EE
BVS L07D3E9
EOR #$8000
L07D3E9 BPL L07D3EE
BRL L07D573
L07D3EE PHY
PEI $40
PEI $3E
PEI $1B
PEI $19
JSL L07B813
PLA
LSR
BCS L07D402
BRL L07D573
L07D402 PHY
PHY
PEI $40
PEI $3E
JSL L077A5B
PLA
STA $2D
PLX
STX $2F
LDY #$0002
LDA [$2D],Y
TAX
LDA [$2D]
CLC
ADC #$0004
BCC L07D421
INX
L07D421 STA $31
STX $33
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
STA $29
STX $2B
PHY
PHY
PEI $2F
PEI $2D
PEA $0004
JSL L07963D
PLA
STA $15
PLX
STX $17
LDA $15
LDX $17
STA $05
STX $07
PEI $17
PEI $15
LDA [$05]
JSL L150488
JSL L150F53
STA $15
STX $17
PHY
PHY
PEI $17
PEI $15
JSL L071C98
PLA
PLX
INC
BNE L07D46E
INX
L07D46E STA $25
STX $27
PEI $27
PEI $25
LDA [$05]
JSL L150488
JSL L150F53
STA $21
STX $23
LDA $21
LDX $23
CMP $19
BNE L07D48E
CPX $1B
L07D48E BEQ L07D4F9
LDA $05
LDX $07
PEI $23
PEI $21
JSL L150F53
STA $11
STX $13
LDA $05
LDX $07
PEI $1B
PEI $19
JSL L150F53
STA $0D
STX $0F
LDY #$0002
LDA [$2D],Y
PHA
LDA [$2D]
PHA
LDY #$0002
LDA [$2D],Y
TAX
LDA [$2D]
STA $31
STX $33
LDY #$0002
LDA [$31],Y
TAX
LDA [$31]
JSL L150F53
STA $09
STX $0B
PEI $13
PEI $11
PEI $0F
PEI $0D
PEI $0B
PEI $09
LDA $05
LDX $07
JSL L1512A5
PHX
PHA
LDA $19
LDX $1B
JSL L1512A5
PHX
PHA
JSL L1511CE
L07D4F9 LDA #$0004
STA $01
STZ $03
LDA $01
LDX $03
STA [$05]
TXA
LDY #$0002
STA [$05],Y
LDY #$0002
LDA [$3A],Y
TAX
LDA [$3A]
STA $11
STX $13
LDA $05
LDX $07
CLC
ADC #$0004
BCC L07D523
INX
L07D523 STA $0D
STX $0F
TDC
CLC
ADC #$0011
PEA $0000
PHA
TDC
CLC
ADC #$000D
PEA $0000
PHA
JSL L070669
LDA #$0001
STA $42
PEI $40
PEI $3E
PEA $0001
JSL L074E4D
LDA #$4143
LDX #$4452
CMP $29
BNE L07D559
CPX $2B
L07D559 BNE L07D568
PEI $40
PEI $3E
PEA $0000
JSL L0B86C4
BRA L07D573
L07D568 PEI $40
PEI $3E
PEA $0000
JSL L0B8607
L07D573 LDA $38
STA $40
LDA $37
STA $3F
LDA $35
TCD
TSC
CLC
ADC #$003E
TCS
RTL
L07D585 ENT
PHD
TSC
CLC
ADC #$FFC8
TCS
TCD
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $40
PEI $3E
PEA $002A
JSL L0313BE
STZ $46
LDX #$0000
LDA $1D
BEQ L07D5AC
BPL L07D5AD
L07D5AC INX
L07D5AD TXA
PHA
LDX #$0000
LDA $21
BEQ L07D5B8
BPL L07D5B9
L07D5B8 INX
L07D5B9 TXA
ORA $01,S
PLX
LSR
BCC L07D5C2
BRA L07D638
L07D5C2 PHY
PHY
PEI $44
PEI $42
JSL L077A5B
PLA
STA $2D
PLX
STX $2F
LDA $2D
ORA $2F
BEQ L07D638
STZ $2B
PHY
PHY
PEI $2F
PEI $2D
PEI $03
JSL L0791A7
PLA
STA $31
PLX
STX $33
LDA $31
ORA $33
BEQ L07D62E
LDA [$31]
STA $01
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEI $33
PEI $31
PEA $002A
JSL L070A10
PLA
EOR #$0001
STA $2B
LDA $2B
BEQ L07D629
PEI $33
PEI $31
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $002A
JSL L0313BE
L07D629 LDA #$0001
STA $46
L07D62E PEI $44
PEI $42
PEI $2B
JSL L074E4D
L07D638 LDA $3C
STA $44
LDA $3B
STA $43
LDA $39
TCD
TSC
CLC
ADC #$0042
TCS
RTL
L07D64A ENT
PHD
TSC
CLC
ADC #$FDCE
TCS
ADC #$0145
TCD
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEI $F4
PEI $F2
PEA $0100
JSL L0313BE
STZ $FC
PHY
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
JSL L070157
PLA
LSR
BCC L07D680
BRL L07D700
L07D680 PHY
PEI $FA
PEI $F8
PEI $F6
TDC
CLC
ADC #$00BF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFBB
PHA
TDC
CLC
ADC #$00BB
PEA $0000
PHA
JSL L07DFBC
PLA
LSR
BCC L07D700
PHY
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEA $0000
TDC
CLC
ADC #$FFBB
PHA
LDA #$00FF
LDX #$FEBB
AND $00,X
INC
PHA
JSL L070A10
PLA
LSR
BCC L07D6D6
LDA #$0001
STA $FC
BRA L07D6F8
L07D6D6 PHY
PEI $FA
PEI $F8
TDC
CLC
ADC #$00BF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FEBB
PHA
PEI $BD
PEI $BB
JSL L07B98A
PLA
STA $FC
L07D6F8 PEI $BD
PEI $BB
JSL L07185A
L07D700 LDA $F0
STA $FA
LDA $EF
STA $F9
LDA $ED
TCD
TSC
CLC
ADC #$023E
TCS
RTL
L07D712 ENT
PHD
TSC
CLC
ADC #$FEC6
TCS
ADC #$004D
TCD
STZ $FC
PHY
PHY
LDY #$0002
LDA [$F2],Y
PHA
LDA [$F2]
PHA
JSL L071C98
PLA
STA $B3
PLX
STX $B5
PEI $B5
PEI $B3
LDA #$7530
LDX #$0000
JSL L033477
BEQ L07D74E
BVS L07D749
EOR #$8000
L07D749 BPL L07D74E
BRL L07D7FD
L07D74E PHY
PEI $FA
PEI $F8
PEI $F6
TDC
CLC
ADC #$00BF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFB3
PHA
TDC
CLC
ADC #$00BB
PEA $0000
PHA
JSL L07DFBC
PLA
LSR
BCS L07D77B
BRL L07D7FD
L07D77B PHY
PHY
LDY #$0002
LDA [$BB],Y
PHA
LDA [$BB]
PHA
JSL L071C98
PLA
STA $B7
PLX
STX $B9
LDA $B3
LDX $B5
CMP $B7
BNE L07D79A
CPX $B9
L07D79A BEQ L07D7A1
LDA #$0000
BRA L07D7A4
L07D7A1 LDA #$0001
L07D7A4 BEQ L07D7C9
PHY
LDY #$0002
LDA [$F2],Y
PHA
LDA [$F2]
PHA
LDY #$0002
LDA [$BB],Y
PHA
LDA [$BB]
PHA
PEI $B3
JSL L070A10
PLA
BEQ L07D7C9
LDA #$0001
STA $FC
BRA L07D7F5
L07D7C9 PHY
PEI $FA
PEI $F8
TDC
CLC
ADC #$00BF
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFB3
PHA
PEI $F4
PEI $F2
JSL L07B98A
PLA
STA $FC
PEI $FA
PEI $F8
PEI $F6
JSL L0B878F
L07D7F5 PEI $BD
PEI $BB
JSL L07185A
L07D7FD LDA $F0
STA $FA
LDA $EF
STA $F9
LDA $ED
TCD
TSC
CLC
ADC #$0146
TCS
RTL
L07D80F ENT
PHD
TSC
CLC
ADC #$FFA6
TCS
TCD
LDA #$FFFF
STA $72
STZ $55
STZ $53
LDA #$0000
STA [$60]
STZ $4F
STZ $51
STZ $4B
STZ $4D
LDA $68
BNE L07D839
LDA #$0001
STA $72
BRL L07DD20
L07D839 PHY
PHY
PEI $66
PEI $64
JSL L071C98
PLA
STA $47
PLX
STX $49
PEI $49
PEI $47
LDA #$7530
LDX #$0000
JSL L033477
BEQ L07D868
BVS L07D85E
EOR #$8000
L07D85E BPL L07D868
LDA #$0002
STA $72
BRL L07DD20
L07D868 LDA $47
LDX $49
CLC
ADC #$0003
BCC L07D873
INX
L07D873 STA $47
STX $49
PHY
PHY
PEI $6C
PEI $6A
JSL L0772AE
PLA
STA $4F
PLX
STX $51
LDA $4F
ORA $51
BNE L07D890
BRL L07DD20
L07D890 PHY
PHY
PEI $70
PEI $6E
JSL L07721A
PLA
STA $4B
PLX
STX $4D
LDA $4B
ORA $4D
BNE L07D8A9
BRL L07DD20
L07D8A9 LDX #$0000
LDA $68
BPL L07D8B1
INX
L07D8B1 TXA
STA $45
LDA $45
BEQ L07D8BC
STZ $43
BRA L07D8E2
L07D8BC PHY
PHY
PEI $4D
PEI $4B
PEI $68
JSL L0791A7
PLA
STA $3F
PLX
STX $41
LDX #$0000
LDY #$0004
LDA #$4000
AND [$3F],Y
CMP #$0000
BEQ L07D8DF
INX
L07D8DF TXA
STA $43
L07D8E2 LDA $43
BEQ L07D904
LDA #$4B42
LDX #$4447
STA $3B
STX $3D
LDA $4B
LDX $4D
STA $37
STX $39
LDA #$0032
LDX #$0000
STA $23
STX $25
BRA L07D920
L07D904 LDA #$4143
LDX #$4452
STA $3B
STX $3D
LDA $4F
LDX $51
STA $37
STX $39
LDA #$0032
LDX #$0000
STA $23
STX $25
L07D920 LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
CLC
ADC #$0008
BCC L07D92F
INX
L07D92F STA $57
STX $59
LDY #$0002
LDA [$57],Y
TAX
LDA [$57]
STA $33
STX $35
PHY
PHY
PEI $39
PEI $37
JSL L07DF0D
PLA
STA $2F
PLX
STX $31
PHY
PHY
PEI $4D
PEI $4B
PEI $51
PEI $4F
PEI $68
PEI $43
JSL L07B038
PLA
STA $2B
PLX
STX $2D
LDA $2B
ORA $2D
BNE L07D973
STZ $27
STZ $29
BRA L07D99E
L07D973 PHY
PHY
PEI $2D
PEI $2B
JSL L071C98
PLA
PLX
CLC
ADC #$0003
BCC L07D986
INX
L07D986 STA $27
STX $29
PEI $2D
PEI $2B
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
JSL L1512A5
STA $01
STX $03
L07D99E LDA $27
LDX $29
CMP $47
BNE L07D9A8
CPX $49
L07D9A8 BNE L07D9DB
LDA #$0003
LDX #$0000
CMP $47
BNE L07D9B6
CPX $49
L07D9B6 BNE L07D9BB
BRL L07DD1E
L07D9BB PHY
PEI $2D
PEI $2B
PEI $66
PEI $64
LDA $47
LDX $49
SEC
SBC #$0003
BCS L07D9CF
DEX
L07D9CF PHA
JSL L070A10
PLA
LSR
BCC L07D9DB
BRL L07DD1E
L07D9DB LDA $2F
LDX $31
PEI $49
PEI $47
JSL L150F53
PHX
PHA
LDA $27
LDX $29
JSL L1512A5
STA $1F
STX $21
LDA #$0003
LDX #$0000
CMP $47
BNE L07DA01
CPX $49
L07DA01 BEQ L07DA06
BRL L07DAC0
L07DA06 LDA $2B
ORA $2D
BNE L07DA0F
BRL L07DD1E
L07DA0F LDA $2B
LDX $2D
SEC
SBC #$0002
BCS L07DA1A
DEX
L07DA1A STA $1B
STX $1D
LDA $1B
LDX $1D
PEI $29
PEI $27
JSL L150F53
STA $17
STX $19
LDY #$0002
LDA [$37],Y
PHA
LDA [$37]
PHA
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
STA $57
STX $59
LDY #$0002
LDA [$57],Y
TAX
LDA [$57]
JSL L150F53
STA $13
STX $15
PEI $19
PEI $17
PEI $1D
PEI $1B
PEI $15
PEI $13
LDA $17
LDX $19
JSL L1512A5
PHX
PHA
JSL L1511CE
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
PEI $25
PEI $23
JSL L150F53
SEC
SBC #$000E
BCS L07DA84
DEX
L07DA84 STA $0F
STX $11
LDY #$0008
LDA [$0F],Y
DEC
LDY #$0008
STA [$0F],Y
LDA #$000A
CLC
ADC $0F
LDX $11
BCC L07DA9E
INX
L07DA9E STA $57
STX $59
LDY #$000C
LDA [$0F],Y
PHA
DEY
DEY
LDA [$0F],Y
PHA
LDA $27
LDX $29
JSL L1512A5
STA [$57]
TXA
LDY #$0002
STA [$57],Y
BRL L07DC7C
L07DAC0 PEI $21
PEI $1F
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
STA $57
STX $59
LDY #$0002
LDA [$57],Y
TAX
LDA [$57]
JSL L033477
BEQ L07DB02
BVS L07DAE3
EOR #$8000
L07DAE3 BPL L07DB02
PHY
PEI $35
PEI $33
PEI $3D
PEI $3B
PEI $21
PEI $1F
JSL L077EAF
PLA
LSR
BCS L07DB02
LDA #$0003
STA $72
BRL L07DD20
L07DB02 LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
PEI $25
PEI $23
JSL L150F53
SEC
SBC #$000E
BCS L07DB19
DEX
L07DB19 STA $0F
STX $11
LDA $2B
ORA $2D
BNE L07DB6A
PEI $25
PEI $23
LDY #$0006
LDA [$0F],Y
TAX
DEY
DEY
LDA [$0F],Y
JSL L150F53
PHX
PHA
LDY #$000C
LDA [$0F],Y
TAX
DEY
DEY
LDA [$0F],Y
JSL L150F53
STA $23
STX $25
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
PEI $25
PEI $23
JSL L150F53
STA $2B
STX $2D
LDY #$0008
LDA [$0F],Y
INC
LDY #$0008
STA [$0F],Y
BRA L07DB85
L07DB6A LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
PEI $03
PEI $01
JSL L150F53
SEC
SBC #$0002
BCS L07DB81
DEX
L07DB81 STA $2B
STX $2D
L07DB85 LDA $27
LDX $29
CMP $47
BNE L07DB8F
CPX $49
L07DB8F BNE L07DB94
BRL L07DC53
L07DB94 LDA #$000A
CLC
ADC $0F
LDX $11
BCC L07DB9F
INX
L07DB9F STA $57
STX $59
LDY #$000C
LDA [$0F],Y
TAX
DEY
DEY
LDA [$0F],Y
PEI $49
PEI $47
JSL L150F53
PHX
PHA
LDA $27
LDX $29
JSL L1512A5
STA [$57]
TXA
LDY #$0002
STA [$57],Y
LDA $2B
LDX $2D
PEI $29
PEI $27
JSL L150F53
STA $17
STX $19
LDA $2B
LDX $2D
PEI $49
PEI $47
JSL L150F53
STA $1B
STX $1D
LDY #$0002
LDA [$37],Y
PHA
LDA [$37]
PHA
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
STA $57
STX $59
LDY #$0002
LDA [$57],Y
TAX
LDA [$57]
JSL L150F53
STA $13
STX $15
PEI $49
PEI $47
LDA $27
LDX $29
JSL L033477
BEQ L07DC33
BVS L07DC1F
EOR #$8000
L07DC1F BPL L07DC33
PEI $15
PEI $13
LDA $1B
LDX $1D
JSL L1512A5
STA $0B
STX $0D
BRA L07DC43
L07DC33 PEI $15
PEI $13
LDA $17
LDX $19
JSL L1512A5
STA $0B
STX $0D
L07DC43 PEI $19
PEI $17
PEI $1D
PEI $1B
PEI $0D
PEI $0B
JSL L1511CE
L07DC53 LDA $68
STA [$2B]
LDA $2B
LDX $2D
CLC
ADC #$0002
BCC L07DC62
INX
L07DC62 STA $1B
STX $1D
TDC
CLC
ADC #$0064
PEA $0000
PHA
TDC
CLC
ADC #$001B
PEA $0000
PHA
JSL L070669
L07DC7C LDA $43
BEQ L07DC87
LDA #$0001
STA $55
BRA L07DCDE
L07DC87 LDA #$0001
STA $53
LDA L055027
LDX L055029
CMP $33
BNE L07DC98
CPX $35
L07DC98 BNE L07DCA2
LDA #$0001
STA L055057
BRA L07DCDE
L07DCA2 PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $35
PEI $33
JSL L07C5A6
PLA
STA $07
PLX
STX $09
LDA $07
ORA $09
BNE L07DCC9
LDA #$0004
STA $72
BRA L07DD20
L07DCC9 LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $09
PEI $07
PEA $0000
JSL L07E171
L07DCDE LDA $1F
LDX $21
CLC
ADC #$0400
BCC L07DCE9
INX
L07DCE9 PHX
PHA
LDY #$0002
LDA [$37],Y
TAX
LDA [$37]
STA $57
STX $59
LDY #$0002
LDA [$57],Y
TAX
LDA [$57]
JSL L033477
BVS L07DD08
EOR #$8000
L07DD08 BMI L07DD1E
PHY
PEI $35
PEI $33
PEI $3D
PEI $3B
PEI $21
PEI $1F
JSL L077EAF
PLA
STA $05
L07DD1E STZ $72
L07DD20 LDA $4F
ORA $51
BEQ L07DD30
PEI $6C
PEI $6A
PEI $53
JSL L074A90
L07DD30 LDA $4B
ORA $4D
BEQ L07DD40
PEI $70
PEI $6E
PEI $55
JSL L074A24
L07DD40 LDA $55
ORA $53
STA [$60]
LDA $5E
STA $70
LDA $5D
STA $6F
LDA $5B
TCD
TSC
CLC
ADC #$006E
TCS
RTL
L07DD58 ENT
PHD
TSC
CLC
ADC #$FFD2
TCS
TCD
STZ $3C
LDY #$0002
LDA [$34],Y
TAX
LDA [$34]
STA $07
STX $09
LDY #$0002
LDA [$07],Y
STA $0B
LDA [$07]
STA $19
LDX #$0000
LDA $0B
BMI L07DD83
BEQ L07DD83
INX
L07DD83 TXA
BNE L07DD89
BRL L07DEFB
L07DD89 PHY
PEI $3A
PEI $38
LDA $19
JSL L150488
PHX
PHA
JSL L07B813
PLA
BNE L07DDA0
BRL L07DEFB
L07DDA0 PHY
PHY
PEI $3A
PEI $38
JSL L077A5B
PLA
STA $27
PLX
STX $29
PHY
PHY
PEI $29
PEI $27
PEA $0000
JSL L07963D
PLA
STA $23
PLX
STX $25
LDA $23
LDX $25
SEC
SBC #$000E
BCS L07DDCE
DEX
L07DDCE STA $1F
STX $21
LDA [$1F]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07DDE1
EOR #$8000
L07DDE1 BMI L07DDE6
BRL L07DEF0
L07DDE6 LDA #$0001
STA $1D
L07DDEB LDA [$23]
STA $1B
LDY #$0002
LDA $0B
CMP [$23],Y
BEQ L07DDFB
BRL L07DED3
L07DDFB LDA $1B
CMP $19
BNE L07DE04
BRL L07DEB3
L07DE04 PEI $25
PEI $23
LDA $1B
JSL L150488
JSL L150F53
STA $15
STX $17
PEI $25
PEI $23
LDA $19
JSL L150488
JSL L150F53
STA $11
STX $13
LDY #$0002
LDA [$27],Y
PHA
LDA [$27]
PHA
LDY #$0002
LDA [$27],Y
TAX
LDA [$27]
STA $2B
STX $2D
LDY #$0002
LDA [$2B],Y
TAX
LDA [$2B]
JSL L150F53
STA $0D
STX $0F
PEI $17
PEI $15
PEI $13
PEI $11
PEI $0F
PEI $0D
LDA $15
LDX $17
JSL L1512A5
PHX
PHA
LDA $19
JSL L150488
JSL L1512A5
PHX
PHA
JSL L1511CE
LDA $1F
LDX $21
STA $03
STX $05
LDA #$0004
CLC
ADC $03
LDX $05
BCC L07DE86
INX
L07DE86 STA $2B
STX $2D
LDY #$0006
LDA [$03],Y
PHA
DEY
DEY
LDA [$03],Y
PHA
LDA $19
JSL L150488
JSL L150F53
PHX
PHA
LDA $1B
JSL L150488
JSL L1512A5
STA [$2B]
TXA
LDY #$0002
STA [$2B],Y
L07DEB3 LDY #$0002
LDA [$34],Y
PHA
LDA [$34]
PHA
PEI $25
PEI $23
LDA $19
JSL L150488
PHX
PHA
JSL L070597
LDA #$0001
STA $3C
BRA L07DEF0
L07DED3 PEI $25
PEI $23
LDA $1B
JSL L150488
JSL L150F53
STA $23
STX $25
LDA $1D
CMP $01
BEQ L07DEF0
INC $1D
BRL L07DDEB
L07DEF0 PEI $3A
PEI $38
PEA $0001
JSL L074E4D
L07DEFB LDA $32
STA $3A
LDA $31
STA $39
LDA $2F
TCD
TSC
CLC
ADC #$0038
TCS
RTL
L07DF0D ENT
PHD
TSC
CLC
ADC #$FFEE
TCS
TCD
STZ $1C
STZ $1E
LDY #$0002
LDA [$18],Y
TAX
LDA [$18]
STA $0B
STX $0D
LDY #$0006
LDA [$0B],Y
TAX
DEY
DEY
LDA [$0B],Y
CMP #$4D42
BNE L07DF37
CPX #$5041
L07DF37 BNE L07DF68
LDA $0B
LDX $0D
STA $01
STX $03
LDY #$0036
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
CLC
ADC #$003C
BCC L07DF52
INX
L07DF52 PHX
PHA
LDY #$003A
LDA [$01],Y
TAX
DEY
DEY
LDA [$01],Y
JSL L150F53
STA $1C
STX $1E
BRA L07DFAA
L07DF68 PHY
PHY
PEI $1A
PEI $18
PEA $0004
JSL L07963D
PLA
STA $07
PLX
STX $09
PEI $09
PEI $07
LDA [$07]
JSL L150488
JSL L150F53
STA $07
STX $09
TDC
CLC
ADC #$0007
PEA $0000
PHA
JSL L071AB8
PEI $09
PEI $07
LDA $0B
LDX $0D
JSL L1512A5
STA $1C
STX $1E
L07DFAA LDA $16
STA $1A
LDA $15
STA $19
LDA $13
TCD
TSC
CLC
ADC #$0018
TCS
RTL
L07DFBC PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
STZ $3C
LDA $36
BEQ L07DFCC
BPL L07DFCF
L07DFCC BRL L07E15F
L07DFCF PHY
PHY
PEI $3A
PEI $38
JSL L077A5B
PLA
STA $1D
PLX
STX $1F
LDA $1D
ORA $1F
BNE L07DFE8
BRL L07E15F
L07DFE8 PHY
PHY
PEI $1F
PEI $1D
PEA $0000
JSL L07963D
PLA
STA $19
PLX
STX $1B
LDA $19
ORA $1B
BNE L07E004
BRL L07E154
L07E004 PHY
PEI $1F
PEI $1D
JSL L0718FA
PLA
STA $03
LDA $19
LDX $1B
SEC
SBC #$000E
BCS L07E01B
DEX
L07E01B STA $15
STX $17
LDA [$15]
STA $01
LDA $01
SEC
SBC #$0001
BVS L07E02E
EOR #$8000
L07E02E BMI L07E033
BRL L07E14A
L07E033 LDA #$0001
STA $13
L07E038 LDA [$19]
STA $11
LDY #$0002
LDA $36
CMP [$19],Y
BEQ L07E048
BRL L07E12D
L07E048 LDA $2A
LDX $2C
STA $21
STX $23
PHY
PHY
LDA $11
JSL L150488
PHX
PHA
LDA L055019
PHA
PEA $0000
PEA $0000
PEA $0000
JSL L1513F4
PLA
STA [$21]
PLA
LDY #$0002
STA [$21],Y
LDAL L05565D
BEQ L07E07D
BRL L07E12B
L07E07D PEI $34
PEI $32
PEI $1B
PEI $19
PEA $002A
JSL L0313BE
LDA $19
LDX $1B
CLC
ADC #$002A
BCC L07E097
INX
L07E097 STA $0D
STX $0F
PEI $0F
PEI $0D
PEI $30
PEI $2E
JSL L071FF8
TDC
CLC
ADC #$000D
PEA $0000
PHA
JSL L071AB8
TDC
CLC
ADC #$000D
PEA $0000
PHA
JSL L071AB8
PEI $0F
PEI $0D
LDA [$0D]
JSL L150488
JSL L150F53
STA $0D
STX $0F
PHY
PHY
PEI $0F
PEI $0D
JSL L071C98
PLA
PLX
INC
BNE L07E0E3
INX
L07E0E3 STA $05
STX $07
LDY #$0002
LDA [$2A],Y
TAX
LDA [$2A]
STA $21
STX $23
LDY #$0002
LDA [$21],Y
TAX
LDA [$21]
STA $09
STX $0B
TDC
CLC
ADC #$000D
PEA $0000
PHA
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L070669
PEI $07
PEI $05
LDY #$0002
LDA [$2A],Y
PHA
LDA [$2A]
PHA
JSL L1512FB
LDA #$0001
STA $3C
L07E12B BRA L07E14A
L07E12D PEI $1B
PEI $19
LDA $11
JSL L150488
JSL L150F53
STA $19
STX $1B
LDA $13
CMP $01
BEQ L07E14A
INC $13
BRL L07E038
L07E14A PEI $1F
PEI $1D
PEI $03
JSL L0718DA
L07E154 PEI $3A
PEI $38
PEA $0000
JSL L074E4D
L07E15F LDA $28
STA $3A
LDA $27
STA $39
LDA $25
TCD
TSC
CLC
ADC #$0038
TCS
RTL
L07E171 ENT
PHD
TSC
CLC
ADC #$FEBA
TCS
ADC #$0059
TCD
PHY
PEI $FA
PEI $F8
PEA $0000
TDC
CLC
ADC #$FFA9
PHA
JSL L07A852
PLA
LSR
BCS L07E199
PEA $1DD6
JSL L07272E
L07E199 PEI $F6
PEI $F4
LDX #$FFBD
LDA $02,X
TAY
LDA $00,X
TYX
JSL L033477
BEQ L07E1B6
BVS L07E1B1
EOR #$8000
L07E1B1 BPL L07E1B6
BRL L07E39E
L07E1B6 PHY
PEI $FA
PEI $F8
PEI $F6
PEI $F4
TDC
CLC
ADC #$0055
PEA $0000
PHA
JSL L07A4B1
PLA
LSR
BCS L07E1D7
PEA $1DD7
JSL L07272E
L07E1D7 PHY
PHY
PEI $57
PEI $55
JSL L0772AE
PLA
STA $E5
PLX
STX $E7
LDA $E5
ORA $E7
BNE L07E1F0
BRL L07E39E
L07E1F0 LDA #$0002
LDX #$0059
AND $00,X
BEQ L07E1FD
LDA #$0001
L07E1FD PHA
LDA #$0001
LDX #$0000
CMP $F4
BNE L07E20A
CPX $F6
L07E20A BEQ L07E211
LDA #$0000
BRA L07E214
L07E211 LDA #$0001
L07E214 ORA $01,S
PLX
STA $D9
TDC
CLC
ADC #$0059
PEA $0000
PHA
LDX #$FFC5
LDA $00,X
ASL
JSL L150488
PHX
PHA
JSL L071ECE
LDA $F2
BEQ L07E295
LDA #$0001
STA $D9
PHY
PEI $FA
PEI $F8
LDX $F6
LDA $F4
BNE L07E247
DEX
L07E247 DEC
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FFD1
PHA
JSL L07A4B1
PLA
LSR
BCC L07E295
LDY #$0002
LDA [$E5],Y
TAX
LDA [$E5]
CLC
ADC #$0020
BCC L07E26A
INX
L07E26A STA $E9
STX $EB
PHY
PHY
LDX #$FFD1
LDA $02,X
PHA
LDA $00,X
PHA
JSL L0745B2
PLA
PLX
CMP [$E9]
BNE L07E289
LDY #$0002
TXA
CMP [$E9],Y
L07E289 BNE L07E290
LDA #$0000
BRA L07E293
L07E290 LDA #$0001
L07E293 STA $D9
L07E295 LDA $D9
BEQ L07E2A6
LDA #$0002
LDX #$0059
ORA $00,X
LDX #$0059
STA $00,X
L07E2A6 PHY
PHY
PEI $E7
PEI $E5
PEA $0001
JSL L07963D
PLA
STA $E1
PLX
STX $E3
PHY
PHY
PEI $E7
PEI $E5
PEA $0003
JSL L07963D
PLA
STA $DD
PLX
STX $DF
LDA #$00FF
AND [$DD]
BEQ L07E2FD
LDA #$0001
LDX #$0059
ORA $00,X
LDX #$0059
STA $00,X
PEI $DF
PEI $DD
TDC
CLC
ADC #$0059
PEA $0000
PHA
LDX #$FFC7
LDA $00,X
PHA
LDX #$FFC5
LDA $00,X
PHA
JSL L078D85
L07E2FD LDY #$0002
LDA [$E5],Y
TAX
LDA [$E5]
CLC
ADC #$002C
BCC L07E30C
INX
L07E30C STA $E9
STX $EB
LDA [$E9]
LDX #$FFA7
STA $00,X
LDX #$FFA7
LDA $00,X
SEC
SBC #$0001
BVS L07E325
EOR #$8000
L07E325 BPL L07E372
LDA #$0001
STA $DB
L07E32C LDA $E1
LDX $E3
CLC
ADC #$0002
BCC L07E337
INX
L07E337 STA $E1
STX $E3
PEI $E3
PEI $E1
TDC
CLC
ADC #$0059
PEA $0000
PHA
LDX #$FFC7
LDA $00,X
PHA
LDX #$FFC5
LDA $00,X
PHA
JSL L078D85
TDC
CLC
ADC #$00E1
PEA $0000
PHA
JSL L071AB8
LDA $DB
LDX #$FFA7
CMP $00,X
BEQ L07E372
INC $DB
BRA L07E32C
L07E372 PEI $57
PEI $55
PEA $0000
JSL L074A90
PHY
PEI $FA
PEI $F8
PEI $F6
PEI $F4
TDC
CLC
ADC #$0055
PEA $0000
PHA
JSL L07CC1F
PLA
LSR
BCS L07E39E
PEA $1DD8
JSL L07272E
L07E39E LDA $F0
STA $FA
LDA $EF
STA $F9
LDA $ED
TCD
TSC
CLC
ADC #$0152
TCS
RTL
L07E3B0 PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
STZ $14
LDA L055063
BEQ L07E41A
LDY #$0049
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
LDY #$0025
LDA [$10],Y
TAX
DEY
DEY
LDA [$10],Y
JSL L1512A5
STA $05
LDX #$0000
LDA $05
BNE L07E3E2
INX
L07E3E2 TXA
BNE L07E3FE
PHA
PHY
LDY #$0025
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
LDA $05
DEC
PHA
JSL L0790EC
PLA
ORA $01,S
PLX
L07E3FE CMP #$0000
BNE L07E41A
PHY
LDY #$0025
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
PEI $05
JSL L0790EC
PLA
BNE L07E41A
BRA L07E486
L07E41A LDA L055061
BEQ L07E481
LDY #$0049
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
PHY
PHY
LDY #$004D
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
JSL L071C98
PLA
PLX
JSL L150F53
PHX
PHA
LDY #$0025
LDA [$10],Y
TAX
DEY
DEY
LDA [$10],Y
JSL L1512A5
STA $05
PHY
LDY #$0025
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
PEI $05
JSL L0790EC
PLA
BNE L07E481
PHY
LDY #$0025
LDA [$10],Y
PHA
DEY
DEY
LDA [$10],Y
PHA
LDA $05
DEC
PHA
JSL L0790EC
PLA
BNE L07E481
BRA L07E486
L07E481 LDA #$0001
STA $14
L07E486 LDA $0E
STA $12
LDA $0D
STA $11
LDA $0B
TCD
TSC
CLC
ADC #$0010
TCS
RTL
L07E498 PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDY #$0051
LDA [$0A],Y
LDY #$0033
STA [$0A],Y
LDA $0E
LDX $10
LDY #$002F
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
LDA #$002B
CLC
ADC $0A
LDX $0C
BCC L07E4C3
INX
L07E4C3 STA $01
STX $03
LDY #$0049
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
LDY #$0025
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
JSL L1512A5
STA [$01]
TXA
LDY #$0002
STA [$01],Y
LDA #$0035
CLC
ADC $0A
LDX $0C
BCC L07E4F3
INX
L07E4F3 STA $01
STX $03
PHY
PHY
LDY #$004D
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
JSL L071C98
PLA
STA [$01]
PLA
LDY #$0002
STA [$01],Y
LDX #$0000
LDA L055065
DEC
BEQ L07E51B
INX
L07E51B PHX
LDX #$0000
LDA #$0003
CMP L055065
BEQ L07E528
INX
L07E528 TXA
AND $01,S
PLX
LSR
BCC L07E563
L07E52F PHY
LDY #$0049
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
LDY #$0035
LDA [$0A],Y
PHA
JSL L0790EC
PLA
LSR
BCS L07E563
LDY #$0037
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
INC
BNE L07E557
INX
L07E557 LDY #$0035
STA [$0A],Y
INY
INY
TXA
STA [$0A],Y
BRA L07E52F
L07E563 LDA #$0027
CLC
ADC $0A
LDX $0C
BCC L07E56E
INX
L07E56E STA $01
STX $03
LDY #$002D
LDA [$0A],Y
PHA
DEY
DEY
LDA [$0A],Y
PHA
LDY #$0037
LDA [$0A],Y
TAX
DEY
DEY
LDA [$0A],Y
JSL L150F53
STA [$01]
TXA
LDY #$0002
STA [$01],Y
LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L07E5A5 ENT
PHD
TSC
CLC
ADC #$FFAA
TCS
TCD
JSL L072328
LDA L055087
LDX L055089
INC
BNE L07E5BB
INX
L07E5BB STA L055087
STX L055089
PHY
JSL L07005C
PLA
LSR
BCC L07E5E7
STZ L055073
STZ L05506F
STZ L055071
STZ L05506B
STZ L05506D
STZ L055067
STZ L055069
LDA #$0001
STA $60
BRL L07EA8E
L07E5E7 STZ $60
LDY #$0002
LDA [$5C],Y
TAX
LDA [$5C]
STA $1F
STX $21
PHY
PHY
PEI $21
PEI $1F
JSL L0772AE
PLA
STA $1B
PLX
STX $1D
LDA $1B
ORA $1D
BNE L07E60E
BRL L07EA8E
L07E60E LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
CLC
ADC #$0010
BCC L07E61D
INX
L07E61D STA $53
STX $55
LDA #$0800
AND [$53]
BEQ L07E62B
BRL L07EA83
L07E62B LDA L055079
STA $0B
LDA #$0001
SEC
SBC $0B
BEQ L07E63F
BVS L07E63D
EOR #$8000
L07E63D BMI L07E69D
L07E63F LDA $0B
STA $4F
L07E643 LDA $4F
DEC
ASL
ASL
TAX
LDAL L05386B,X
PHA
LDAL L053869,X
PLX
STA $4B
STX $4D
PHY
PHY
PEI $1D
PEI $1B
PEA $0001
JSL L07963D
PLA
STA $47
PLX
STX $49
PHY
PEI $4D
PEI $4B
PEI $49
PEI $47
LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
CLC
ADC #$002C
BCC L07E682
INX
L07E682 STA $53
STX $55
LDA [$53]
PHA
JSL L0793D9
PLA
LSR
BCS L07E694
BRL L07EA83
L07E694 LDA $4F
DEC
BEQ L07E69D
DEC $4F
BRA L07E643
L07E69D LDY #$0002
LDA [$1B],Y
TAX
LDA [$1B]
CLC
ADC #$0020
BCC L07E6AC
INX
L07E6AC STA $53
STX $55
LDY #$0002
LDA [$53],Y
TAX
LDA [$53]
STA $17
STX $19
PHY
PHY
PEI $19
PEI $17
JSL L07721A
PLA
STA $13
PLX
STX $15
LDA $13
ORA $15
BNE L07E6D5
BRL L07EA83
L07E6D5 LDY #$0002
LDA [$13],Y
TAX
LDA [$13]
CLC
ADC #$0010
BCC L07E6E4
INX
L07E6E4 STA $53
STX $55
LDA #$0800
AND [$53]
BEQ L07E6F2
BRL L07EA78
L07E6F2 PHY
PEI $19
PEI $17
PEA $0002
JSL L07977D
PLA
STA $45
PHY
PEI $21
PEI $1F
PEA $0002
JSL L07977D
PLA
STA $43
LDA L05505D
LDX L05505F
CMP $1F
BNE L07E71C
CPX $21
L07E71C BEQ L07E733
LDAL L0538C7
BNE L07E727
STZ L055073
L07E727 STZ L05506F
STZ L055071
STZ L05506B
STZ L05506D
L07E733 LDA #$0001
STA $41
LDA $45
STA $3F
LDA #$0001
STA $3D
LDA $43
STA $3B
LDAL L0538C7
BNE L07E74E
BRL L07E7E5
L07E74E LDAL L0538C7
DEC
DEC
BEQ L07E7B7
LDA $17
LDX $19
CMP L05507B
BNE L07E762
CPX L05507D
L07E762 BEQ L07E7B7
LDA #$0003
CMPL L0538C7
BNE L07E784
PHY
PEI $19
PEI $17
LDAL L0538C9
PHA
PEA $0000
JSL L07AD84
PLA
STA L055073
BRA L07E7AD
L07E784 LDAL L0538C7
DEC
BNE L07E7AD
PHY
PEI $19
PEI $17
PHY
PEI $19
PEI $17
PEA $0002
PEA ^L0538C9
PEA L0538C9
JSL L07BF8F
PEA $0000
JSL L07AD84
PLA
STA L055073
L07E7AD LDA $17
LDX $19
STA L05507B
STX L05507D
L07E7B7 LDA L055073
STA $41
LDA $41
SEC
SBC $45
BEQ L07E7CD
BVS L07E7C8
EOR #$8000
L07E7C8 BPL L07E7CD
BRL L07EA78
L07E7CD LDA $41
BPL L07E7D4
BRL L07EA78
L07E7D4 BNE L07E7D9
BRL L07EA78
L07E7D9 LDA L055073
STA $3F
STZ $3D
LDA #$FFFF
STA $3B
L07E7E5 LDA L055073
SEC
SBC #$0000
BMI L07E811
BEQ L07E811
LDA $1F
LDX $21
CMP L05506F
BNE L07E7FC
CPX L055071
L07E7FC BNE L07E80C
STZ $41
LDA #$FFFF
STA $3F
LDA L055073
STA $3D
BRA L07E811
L07E80C LDA L055073
STA $41
L07E811 LDA L055079
STA $01
LDA $01
SEC
SBC #$0001
BVS L07E821
EOR #$8000
L07E821 BMI L07E826
BRL L07EA50
L07E826 LDA #$0001
STA $4F
L07E82B LDA $4F
DEC
ASL
ASL
TAX
LDAL L05386B,X
PHA
LDAL L053869,X
PLX
STA $4B
STX $4D
LDA $41
STA $09
LDA $3F
STA $07
LDA $07
SEC
SBC $09
BVS L07E851
EOR #$8000
L07E851 BMI L07E856
BRL L07E947
L07E856 LDA $09
STA $51
L07E85A PHY
PEI $19
PEI $17
PEI $51
PEA $0002
JSL L07AC17
PLA
STA $39
PHY
PHY
PEI $15
PEI $13
PEI $39
JSL L0791A7
PLA
STA $0D
PLX
STX $0F
LDA $0D
ORA $0F
BNE L07E886
BRL L07EA78
L07E886 LDX #$0000
LDY #$0004
LDA #$4000
AND [$0D],Y
CMP #$0000
BEQ L07E897
INX
L07E897 TXA
BEQ L07E89D
BRL L07E93C
L07E89D LDX #$0000
LDY #$000E
LDA #$0800
AND [$0D],Y
CMP #$0000
BEQ L07E8AE
INX
L07E8AE TXA
BEQ L07E8B4
BRL L07E93C
L07E8B4 PHY
PHY
PEI $15
PEI $13
PEI $1D
PEI $1B
PEI $39
PEA $0000
JSL L07B038
PLA
STA $23
PLX
STX $25
LDA $23
ORA $25
BEQ L07E93C
LDA $23
LDX $25
STA $47
STX $49
LDA $41
CMP $51
BNE L07E8F3
PEI $49
PEI $47
LDA L05506B
LDX L05506D
JSL L150F53
STA $47
STX $49
L07E8F3 PHY
PHY
PEI $4D
PEI $4B
PEI $49
PEI $47
JSL L071CE4
PLA
STA $47
PLX
STX $49
LDA $47
ORA $49
BEQ L07E93C
PHY
PEA $0000
PHD
JSL L07E3B0
PLA
LSR
BCS L07E928
LDA $47
LDX $49
INC
BNE L07E922
INX
L07E922 STA $47
STX $49
BRA L07E8F3
L07E928 LDA $4F
DEC
BNE L07E939
PEI $19
PEI $17
PEA $0000
PHD
JSL L07E498
L07E939 BRL L07EA45
L07E93C LDA $51
CMP $07
BEQ L07E947
INC $51
BRL L07E85A
L07E947 LDA $3D
STA $05
LDA $3B
STA $03
LDA $03
SEC
SBC $05
BVS L07E959
EOR #$8000
L07E959 BMI L07E95E
BRL L07EA43
L07E95E LDA $05
STA $51
L07E962 PHY
PEI $21
PEI $1F
PEI $51
PEA $0002
JSL L07AC17
PLA
STA $39
PHY
PHY
PEI $1D
PEI $1B
PEI $39
JSL L0791A7
PLA
STA $0D
PLX
STX $0F
LDA $0D
ORA $0F
BNE L07E98E
BRL L07EA78
L07E98E LDY #$000E
LDA #$0800
AND [$0D],Y
CMP #$0000
BEQ L07E99E
BRL L07EA38
L07E99E PHY
PHY
PEI $15
PEI $13
PEI $1D
PEI $1B
LDA $39
EOR #$FFFF
INC
PHA
PEA $0000
JSL L07B038
PLA
STA $23
PLX
STX $25
LDA $23
ORA $25
BEQ L07EA38
LDA $23
LDX $25
STA $47
STX $49
LDA $3D
CMP $51
BNE L07E9F0
LDA $1F
LDX $21
CMP L05506F
BNE L07E9DC
CPX L055071
L07E9DC BNE L07E9F0
PEI $49
PEI $47
LDA L05506B
LDX L05506D
JSL L150F53
STA $47
STX $49
L07E9F0 PHY
PHY
PEI $4D
PEI $4B
PEI $49
PEI $47
JSL L071CE4
PLA
STA $47
PLX
STX $49
LDA $47
ORA $49
BEQ L07EA38
PHY
PEA $0000
PHD
JSL L07E3B0
PLA
LSR
BCS L07EA25
LDA $47
LDX $49
INC
BNE L07EA1F
INX
L07EA1F STA $47
STX $49
BRA L07E9F0
L07EA25 LDA $4F
DEC
BNE L07EA36
PEI $21
PEI $1F
PEA $0000
PHD
JSL L07E498
L07EA36 BRA L07EA45
L07EA38 LDA $51
CMP $03
BEQ L07EA43
INC $51
BRL L07E962
L07EA43 BRA L07EA78
L07EA45 LDA $4F
CMP $01
BEQ L07EA50
INC $4F
BRL L07E82B
L07EA50 LDA #$0001
STA $60
LDA $33
STA L055073
LDA $2F
LDX $31
STA L05506F
STX L055071
LDA $2B
LDX $2D
STA L05506B
STX L05506D
LDA $27
LDX $29
STA L055067
STX L055069
L07EA78 PEI $19
PEI $17
PEA $0000
JSL L074A24
L07EA83 PEI $21
PEI $1F
PEA $0000
JSL L074A90
L07EA8E LDA $5A
STA $5E
LDA $59
STA $5D
LDA $57
TCD
TSC
CLC
ADC #$005C
TCS
RTL
Reference in New Issue View Git Blame Copy Permalink