2404 lines
44 KiB
ArmAsm
2404 lines
44 KiB
ArmAsm
*
|
|
* HypercardGS
|
|
* segment: $0C LowMemCmdF
|
|
*
|
|
* (k) 2015, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
dsk LowMemCmdF.l
|
|
lst off
|
|
|
|
*---------------------------------------
|
|
|
|
use LowMemCmdF.E
|
|
use LowMemCmdF.X
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Desk.Macs
|
|
use 4/Dialog.Macs
|
|
use 4/Event.Macs
|
|
use 4/Int.Macs
|
|
use 4/Line.Macs
|
|
use 4/List.Macs
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/MidiSyn.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Qd.Macs
|
|
use 4/Sound.Macs
|
|
use 4/Std.Macs
|
|
use 4/Text.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*---------------------------------------
|
|
|
|
L0C0000 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFB6
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PEA $0000
|
|
PHA
|
|
PEI $60
|
|
PEI $5E
|
|
PEA $002A
|
|
JSL L0313BE
|
|
STZ $43
|
|
STZ $3B
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PEA $0000
|
|
PHA
|
|
PEI $58
|
|
TDC
|
|
CLC
|
|
ADC #$0031
|
|
PEA $0000
|
|
PHA
|
|
JSL L083B58
|
|
LDA $1D
|
|
STA $2D
|
|
LDA $21
|
|
SEP #$20
|
|
STA $2F
|
|
REP #$20
|
|
LDA $1F
|
|
SEP #$20
|
|
STA $30
|
|
REP #$20
|
|
PEI $2F
|
|
PEI $2D
|
|
JSL L087547
|
|
LDA $37
|
|
SEC
|
|
SBC $33
|
|
STA $3D
|
|
LDA #$000F
|
|
AND $11
|
|
CMP #$0007
|
|
BNE L0C006D
|
|
LDA $3D
|
|
SEC
|
|
SBC #$001A
|
|
STA $3D
|
|
L0C006D LDA #$0000
|
|
STA [$50]
|
|
LDA $56
|
|
DEC
|
|
STA $01
|
|
LDA $01
|
|
SEC
|
|
SBC #$0001
|
|
BVS L0C0082
|
|
EOR #$8000
|
|
L0C0082 BPL L0C00DD
|
|
LDA #$0001
|
|
STA $45
|
|
L0C0089 PEI $5C
|
|
PEI $5A
|
|
PEI $3D
|
|
TDC
|
|
CLC
|
|
ADC #$0041
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$003F
|
|
PEA $0000
|
|
PHA
|
|
JSL L081B04
|
|
LDA $41
|
|
CLC
|
|
ADC $43
|
|
STA $43
|
|
PEI $5C
|
|
PEI $5A
|
|
LDA $41
|
|
JSL L150488
|
|
JSL L150F53
|
|
STA $5A
|
|
STX $5C
|
|
LDA #$00FF
|
|
AND [$5A]
|
|
BNE L0C00D3
|
|
LDA $43
|
|
STA $62
|
|
LDA $56
|
|
SEC
|
|
SBC $45
|
|
STA [$50]
|
|
BRL L0C01EB
|
|
L0C00D3 LDA $45
|
|
CMP $01
|
|
BEQ L0C00DD
|
|
INC $45
|
|
BRA L0C0089
|
|
L0C00DD PEI $5C
|
|
PEI $5A
|
|
PEI $3D
|
|
TDC
|
|
CLC
|
|
ADC #$0041
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$003F
|
|
PEA $0000
|
|
PHA
|
|
JSL L081B04
|
|
L0C00F9 LDA $41
|
|
CLC
|
|
ADC $43
|
|
DEC
|
|
TAY
|
|
LDA #$00FF
|
|
AND [$5A],Y
|
|
CMP #$0020
|
|
BNE L0C0111
|
|
LDA $41
|
|
DEC
|
|
STA $41
|
|
BRA L0C00F9
|
|
L0C0111 LDX #$0000
|
|
LDA #$FFFF
|
|
CMP $1B
|
|
BNE L0C011C
|
|
INX
|
|
L0C011C PHX
|
|
LDX #$0000
|
|
LDA $1B
|
|
DEC
|
|
BNE L0C0126
|
|
INX
|
|
L0C0126 TXA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L0C014D
|
|
LDA $3D
|
|
SEC
|
|
SBC $3F
|
|
STA $3F
|
|
LDA $1B
|
|
DEC
|
|
BNE L0C0146
|
|
PEI $3F
|
|
PEA $0002
|
|
JSL L1500F5
|
|
PLX
|
|
PLX
|
|
STA $3F
|
|
L0C0146 LDA $54
|
|
SEC
|
|
SBC $3F
|
|
STA $54
|
|
L0C014D LDA $54
|
|
BPL L0C0155
|
|
STZ $54
|
|
BRA L0C0167
|
|
L0C0155 LDA $54
|
|
SEC
|
|
SBC $3D
|
|
BEQ L0C0167
|
|
BVS L0C0161
|
|
EOR #$8000
|
|
L0C0161 BPL L0C0167
|
|
LDA $3D
|
|
STA $54
|
|
L0C0167 STZ $39
|
|
L0C0169 LDX #$0000
|
|
LDA #$00FF
|
|
AND [$5A]
|
|
BNE L0C0174
|
|
INX
|
|
L0C0174 PHX
|
|
LDX #$0000
|
|
LDA #$00FF
|
|
AND [$5A]
|
|
CMP #$000D
|
|
BNE L0C0183
|
|
INX
|
|
L0C0183 TXA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L0C0195
|
|
LDA $39
|
|
BNE L0C0193
|
|
LDA $43
|
|
INC
|
|
STA $43
|
|
L0C0193 BRA L0C01E7
|
|
L0C0195 PEI $3B
|
|
PHY
|
|
LDA #$00FF
|
|
AND [$5A]
|
|
PHA
|
|
JSL L151089
|
|
PLA
|
|
CLC
|
|
ADC $01,S
|
|
PLX
|
|
STA $3B
|
|
LDA $43
|
|
INC
|
|
STA $43
|
|
LDA $5A
|
|
LDX $5C
|
|
INC
|
|
BNE L0C01B6
|
|
INX
|
|
L0C01B6 STA $5A
|
|
STX $5C
|
|
LDA $39
|
|
INC
|
|
STA $39
|
|
LDA $3B
|
|
SEC
|
|
SBC $54
|
|
BEQ L0C01CD
|
|
BVS L0C01CB
|
|
EOR #$8000
|
|
L0C01CB BMI L0C01D2
|
|
L0C01CD LDA #$0000
|
|
BRA L0C01D5
|
|
L0C01D2 LDA #$0001
|
|
L0C01D5 PHA
|
|
LDX #$0000
|
|
LDA $41
|
|
CMP $39
|
|
BNE L0C01E0
|
|
INX
|
|
L0C01E0 TXA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L0C0169
|
|
L0C01E7 LDA $43
|
|
STA $62
|
|
L0C01EB LDA $4E
|
|
STA $60
|
|
LDA $4D
|
|
STA $5F
|
|
LDA $4B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$005E
|
|
TCS
|
|
RTL
|
|
|
|
L0C01FD ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEFA
|
|
TCS
|
|
ADC #$0011
|
|
TCD
|
|
LDAL L040664
|
|
SEP #$20
|
|
STA [$FC]
|
|
REP #$20
|
|
LDA L0551FF
|
|
BNE L0C021A
|
|
BRL L0C05FD
|
|
L0C021A LDA L055027
|
|
LDX L055029
|
|
CMP L055201
|
|
BNE L0C0228
|
|
CPX L055203
|
|
L0C0228 BNE L0C0242
|
|
TDC
|
|
CLC
|
|
ADC #$00B3
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040665
|
|
PEA L040665
|
|
PEA $0005
|
|
JSL L0313BE
|
|
BRA L0C026D
|
|
L0C0242 LDA L05501F
|
|
LDX L055021
|
|
CMP L055201
|
|
BNE L0C0250
|
|
CPX L055203
|
|
L0C0250 BNE L0C026A
|
|
TDC
|
|
CLC
|
|
ADC #$00B3
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L04066A
|
|
PEA L04066A
|
|
PEA $0006
|
|
JSL L0313BE
|
|
BRA L0C026D
|
|
L0C026A BRL L0C05FD
|
|
L0C026D PHY
|
|
LDA L055201
|
|
LDX L055203
|
|
PHX
|
|
PHA
|
|
LDA L0551FF
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0069
|
|
PEA $0000
|
|
PHA
|
|
JSL L07ABAE
|
|
PLA
|
|
LSR
|
|
BCS L0C028E
|
|
BRL L0C05FD
|
|
L0C028E LDA #$2000
|
|
AND $77
|
|
BEQ L0C02A1
|
|
LDA #$0004
|
|
STA $EB
|
|
LDA #$000A
|
|
STA $E9
|
|
BRA L0C02AB
|
|
L0C02A1 LDA #$0001
|
|
STA $EB
|
|
LDA #$0004
|
|
STA $E9
|
|
L0C02AB TDC
|
|
CLC
|
|
ADC #$006F
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00C7
|
|
PEA $0000
|
|
PHA
|
|
JSL L0808E0
|
|
PHY
|
|
PHY
|
|
LDAL L052D5E
|
|
PHA
|
|
LDAL L052D5C
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00C7
|
|
PEA $0000
|
|
PHA
|
|
JSL L1505B6
|
|
PLA
|
|
STAL L052D5C
|
|
PLA
|
|
STAL L052D5E
|
|
LDA $E9
|
|
CLC
|
|
ADC $C9
|
|
STA $F1
|
|
LDAL L052D5E
|
|
SEC
|
|
SBC $F1
|
|
STA $EF
|
|
LDA $EB
|
|
CLC
|
|
ADC $C7
|
|
STA $F1
|
|
LDAL L052D5C
|
|
SEC
|
|
SBC $F1
|
|
STA $ED
|
|
LDA $ED
|
|
BPL L0C030A
|
|
STZ $ED
|
|
L0C030A LDA $EF
|
|
BPL L0C0310
|
|
STZ $EF
|
|
L0C0310 PHY
|
|
PHY
|
|
LDA L05501F
|
|
LDX L055021
|
|
PHX
|
|
PHA
|
|
JSL L07721A
|
|
PLA
|
|
STA $D3
|
|
PLX
|
|
STX $D5
|
|
PHY
|
|
PHY
|
|
LDA L055027
|
|
LDX L055029
|
|
PHX
|
|
PHA
|
|
JSL L0772AE
|
|
PLA
|
|
STA $CF
|
|
PLX
|
|
STX $D1
|
|
LDA $6B
|
|
STA $E3
|
|
LDA L05501F
|
|
LDX L055021
|
|
CMP L055201
|
|
BNE L0C034A
|
|
CPX L055203
|
|
L0C034A BEQ L0C0351
|
|
LDA #$0000
|
|
BRA L0C0354
|
|
L0C0351 LDA #$0001
|
|
L0C0354 STA $DB
|
|
LDA $DB
|
|
BNE L0C0362
|
|
LDA $E3
|
|
EOR #$FFFF
|
|
INC
|
|
STA $E3
|
|
L0C0362 PHY
|
|
PHY
|
|
PEI $D5
|
|
PEI $D3
|
|
PEI $D1
|
|
PEI $CF
|
|
PEI $E3
|
|
LDA #$4000
|
|
AND $6D
|
|
BEQ L0C0378
|
|
LDA #$0001
|
|
L0C0378 AND $DB
|
|
PHA
|
|
JSL L07B038
|
|
PLA
|
|
STA $D7
|
|
PLX
|
|
STX $D9
|
|
PEI $ED
|
|
PEI $89
|
|
JSL L1500F5
|
|
PLX
|
|
PLX
|
|
INC
|
|
PHA
|
|
PHY
|
|
PEI $E3
|
|
JSL L086029
|
|
PLA
|
|
CLC
|
|
ADC $01,S
|
|
PLX
|
|
STA $E5
|
|
LDX #$0000
|
|
LDA $D7
|
|
ORA $D9
|
|
BNE L0C03A9
|
|
INX
|
|
L0C03A9 PHX
|
|
LDX #$0000
|
|
LDA #$00FF
|
|
AND [$D7]
|
|
BNE L0C03B5
|
|
INX
|
|
L0C03B5 TXA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L0C0418
|
|
LDA $FA
|
|
DEC
|
|
DEC
|
|
BEQ L0C03DA
|
|
TDC
|
|
CLC
|
|
ADC #$0093
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040670
|
|
PEA L040670
|
|
PEA $000C
|
|
JSL L0313BE
|
|
BRA L0C0415
|
|
L0C03DA TDC
|
|
CLC
|
|
ADC #$0093
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L04067C
|
|
PEA L04067C
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
LDA $E5
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
TDC
|
|
CLC
|
|
ADC #$004F
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
JSL L1509CE
|
|
PEA $0019
|
|
JSL L0313BE
|
|
L0C0415 BRL L0C056D
|
|
L0C0418 PHY
|
|
TDC
|
|
CLC
|
|
ADC #$0069
|
|
PEA $0000
|
|
PHA
|
|
PEI $D9
|
|
PEI $D7
|
|
PEI $DB
|
|
PEI $E5
|
|
PEI $EF
|
|
TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PEA $0000
|
|
PHA
|
|
JSL L0C0000
|
|
PLA
|
|
STA $E7
|
|
LDA $FA
|
|
DEC
|
|
DEC
|
|
BNE L0C049E
|
|
TDC
|
|
CLC
|
|
ADC #$0093
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040682
|
|
PEA L040682
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
PHY
|
|
PHY
|
|
PEI $D9
|
|
PEI $D7
|
|
PEI $D9
|
|
PEI $D7
|
|
LDA $E7
|
|
JSL L150488
|
|
JSL L150F53
|
|
PHX
|
|
PHA
|
|
JSL L0B0C30
|
|
LDA $DD
|
|
JSL L150488
|
|
JSL L150F53
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
TDC
|
|
CLC
|
|
ADC #$004F
|
|
PEA $0000
|
|
PHA
|
|
PEA $0002
|
|
JSL L1509CE
|
|
PEA $0019
|
|
JSL L0313BE
|
|
BRL L0C056D
|
|
L0C049E PHY
|
|
PEI $D9
|
|
PEI $D7
|
|
LDA $E7
|
|
DEC
|
|
PHA
|
|
JSL L0790EC
|
|
PLA
|
|
LSR
|
|
BCC L0C04B9
|
|
LDA $E7
|
|
STA $E1
|
|
LDA $E7
|
|
STA $DF
|
|
BRA L0C0517
|
|
L0C04B9 LDA $E7
|
|
STA $E1
|
|
L0C04BD LDA $E1
|
|
DEC
|
|
STA $E1
|
|
LDX #$0000
|
|
LDA $E1
|
|
BNE L0C04CA
|
|
INX
|
|
L0C04CA PHX
|
|
PHY
|
|
PEI $D9
|
|
PEI $D7
|
|
LDA $E1
|
|
DEC
|
|
PHA
|
|
JSL L0790EC
|
|
PLA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L0C04BD
|
|
LDA $E1
|
|
INC
|
|
STA $E1
|
|
LDA $E7
|
|
STA $DF
|
|
L0C04E8 LDA $DF
|
|
INC
|
|
STA $DF
|
|
PHY
|
|
PEI $D9
|
|
PEI $D7
|
|
LDA $DF
|
|
DEC
|
|
PHA
|
|
JSL L0790EC
|
|
PLA
|
|
BNE L0C0512
|
|
LDX #$0000
|
|
LDA $DF
|
|
DEC
|
|
TAY
|
|
LDA #$00FF
|
|
AND [$D7],Y
|
|
CMP #$0000
|
|
BNE L0C050F
|
|
INX
|
|
L0C050F TXA
|
|
BEQ L0C04E8
|
|
L0C0512 LDA $DF
|
|
DEC
|
|
STA $DF
|
|
L0C0517 TDC
|
|
CLC
|
|
ADC #$0093
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040688
|
|
PEA L040688
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
LDA $E1
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
PEA ^L04068E
|
|
PEA L04068E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEF
|
|
PHA
|
|
LDA $DF
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
TDC
|
|
CLC
|
|
ADC #$0039
|
|
PEA $0000
|
|
PHA
|
|
PEA $0004
|
|
JSL L1509CE
|
|
PEA $0020
|
|
JSL L0313BE
|
|
L0C056D LDA $D3
|
|
ORA $D5
|
|
BEQ L0C0582
|
|
LDA L05501F
|
|
LDX L055021
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
JSL L074A24
|
|
L0C0582 LDA $CF
|
|
ORA $D1
|
|
BEQ L0C0597
|
|
LDA L055027
|
|
LDX L055029
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
JSL L074A90
|
|
L0C0597 PEI $FE
|
|
PEI $FC
|
|
TDC
|
|
CLC
|
|
ADC #$0093
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040693
|
|
PEA L040693
|
|
TDC
|
|
CLC
|
|
ADC #$00B3
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040698
|
|
PEA L040698
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
PHY
|
|
LDA L055201
|
|
LDX L055203
|
|
PHX
|
|
PHA
|
|
LDA L0551FF
|
|
PHA
|
|
PEA $0000
|
|
JSL L07AD84
|
|
PLA
|
|
LDX #$0000
|
|
BIT #$8000
|
|
BEQ L0C05E0
|
|
DEX
|
|
L0C05E0 PHX
|
|
PHA
|
|
JSL L07346C
|
|
TDC
|
|
CLC
|
|
ADC #$0017
|
|
PEA $0000
|
|
PHA
|
|
PEA $0005
|
|
JSL L1509CE
|
|
PEA $0051
|
|
JSL L0313BE
|
|
L0C05FD LDA $F8
|
|
STA $FA
|
|
LDA $F7
|
|
STA $F9
|
|
LDA $F5
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$010A
|
|
TCS
|
|
RTL
|
|
|
|
L0C060F ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FDBA
|
|
TCS
|
|
ADC #$0151
|
|
TCD
|
|
LDAL L0406A0
|
|
SEP #$20
|
|
STA [$FC]
|
|
REP #$20
|
|
LDA L055027
|
|
LDX L055029
|
|
CMP L0550AF
|
|
BNE L0C0632
|
|
CPX L0550B1
|
|
L0C0632 BNE L0C064C
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA ^L0406A1
|
|
PEA L0406A1
|
|
PEA $0005
|
|
JSL L0313BE
|
|
BRA L0C0677
|
|
L0C064C LDA L05501F
|
|
LDX L055021
|
|
CMP L0550AF
|
|
BNE L0C065A
|
|
CPX L0550B1
|
|
L0C065A BNE L0C0674
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA ^L0406A6
|
|
PEA L0406A6
|
|
PEA $0006
|
|
JSL L0313BE
|
|
BRA L0C0677
|
|
L0C0674 BRL L0C086F
|
|
L0C0677 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA ^L0406AC
|
|
PEA L0406AC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEC3
|
|
PHA
|
|
LDA L0550B3
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FED7
|
|
PHA
|
|
PEA $0003
|
|
JSL L1509CE
|
|
PEA $0100
|
|
JSL L0313BE
|
|
LDA $FA
|
|
DEC
|
|
BNE L0C0729
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA ^L0406B4
|
|
PEA L0406B4
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEC3
|
|
PHA
|
|
LDA L0550AD
|
|
INC
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
PEA ^L0406BA
|
|
PEA L0406BA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEAF
|
|
PHA
|
|
LDA L0550AB
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L07346C
|
|
PEA ^L0406BF
|
|
PEA L0406BF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FED7
|
|
PHA
|
|
PEA $0006
|
|
JSL L1509CE
|
|
PEA $0100
|
|
JSL L0313BE
|
|
L0C0729 LDA $FA
|
|
DEC
|
|
DEC
|
|
BEQ L0C0732
|
|
BRL L0C085B
|
|
L0C0732 LDA #$0001
|
|
LDX #$0000
|
|
STA $ED
|
|
STX $EF
|
|
PHY
|
|
LDA L0550AF
|
|
LDX L0550B1
|
|
PHX
|
|
PHA
|
|
LDA L0550B3
|
|
PHA
|
|
PEA $0002
|
|
JSL L07AC17
|
|
PLA
|
|
STA $EB
|
|
LDA L055027
|
|
LDX L055029
|
|
CMP L0550AF
|
|
BNE L0C0761
|
|
CPX L0550B1
|
|
L0C0761 BNE L0C076B
|
|
LDA $EB
|
|
EOR #$FFFF
|
|
INC
|
|
STA $EB
|
|
L0C076B PHY
|
|
PHY
|
|
LDA L055027
|
|
LDX L055029
|
|
PHX
|
|
PHA
|
|
JSL L0772AE
|
|
PLA
|
|
STA $E5
|
|
PLX
|
|
STX $E7
|
|
LDA $E5
|
|
ORA $E7
|
|
BNE L0C0788
|
|
BRL L0C0815
|
|
L0C0788 PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0000
|
|
PEI $E7
|
|
PEI $E5
|
|
PEI $EB
|
|
PEA $0000
|
|
JSL L07B038
|
|
PLA
|
|
STA $DD
|
|
PLX
|
|
STX $DF
|
|
LDA $DD
|
|
ORA $DF
|
|
BEQ L0C0806
|
|
PEI $DF
|
|
PEI $DD
|
|
LDA L0550AD
|
|
JSL L150488
|
|
JSL L150F53
|
|
STA $D9
|
|
STX $DB
|
|
LDA #$00FF
|
|
AND [$D9]
|
|
STA $D7
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$D9]
|
|
REP #$20
|
|
L0C07CB TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PEA $0000
|
|
PHA
|
|
JSL L071B83
|
|
LDA #$00FF
|
|
AND [$DD]
|
|
BEQ L0C07F7
|
|
LDA $ED
|
|
LDX $EF
|
|
INC
|
|
BNE L0C07E7
|
|
INX
|
|
L0C07E7 STA $ED
|
|
STX $EF
|
|
LDA $DD
|
|
LDX $DF
|
|
INC
|
|
BNE L0C07F3
|
|
INX
|
|
L0C07F3 STA $DD
|
|
STX $DF
|
|
L0C07F7 LDA #$00FF
|
|
AND [$DD]
|
|
BNE L0C07CB
|
|
LDA $D7
|
|
SEP #$20
|
|
STA [$D9]
|
|
REP #$20
|
|
L0C0806 LDA L055027
|
|
LDX L055029
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
JSL L074A90
|
|
L0C0815 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA ^L0406C4
|
|
PEA L0406C4
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEC3
|
|
PHA
|
|
PEI $EF
|
|
PEI $ED
|
|
JSL L0715D9
|
|
PEA ^L0406CA
|
|
PEA L0406CA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FED7
|
|
PHA
|
|
PEA $0004
|
|
JSL L1509CE
|
|
PEA $0100
|
|
JSL L0313BE
|
|
L0C085B PEI $FE
|
|
PEI $FC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFD7
|
|
PHA
|
|
PEA $0100
|
|
JSL L0313BE
|
|
L0C086F LDA $F8
|
|
STA $FA
|
|
LDA $F7
|
|
STA $F9
|
|
LDA $F5
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$024A
|
|
TCS
|
|
RTL
|
|
|
|
L0C0881 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEE2
|
|
TCS
|
|
ADC #$0027
|
|
TCD
|
|
LDA L0550B3
|
|
BNE L0C0894
|
|
BRL L0C09A1
|
|
L0C0894 PHY
|
|
LDA L0550AF
|
|
LDX L0550B1
|
|
PHX
|
|
PHA
|
|
LDA L0550B3
|
|
PHA
|
|
PEA $0002
|
|
JSL L07AC17
|
|
PLA
|
|
STA $DF
|
|
LDA $DF
|
|
STA $DD
|
|
LDA L055027
|
|
LDX L055029
|
|
CMP L0550AF
|
|
BNE L0C08BD
|
|
CPX L0550B1
|
|
L0C08BD BNE L0C08C7
|
|
LDA $DD
|
|
EOR #$FFFF
|
|
INC
|
|
STA $DD
|
|
L0C08C7 LDA L0550AB
|
|
SEC
|
|
SBC L0550AD
|
|
STA $E9
|
|
LDA $E9
|
|
BPL L0C08D7
|
|
BRL L0C09A1
|
|
L0C08D7 BNE L0C08DC
|
|
BRL L0C09A1
|
|
L0C08DC PHY
|
|
PHY
|
|
LDA $E9
|
|
INC
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
LDA L055019
|
|
PHA
|
|
JSL L0B249C
|
|
PLA
|
|
STA $EF
|
|
PLX
|
|
STX $F1
|
|
LDA $EF
|
|
ORA $F1
|
|
BNE L0C08FE
|
|
BRL L0C09A1
|
|
L0C08FE PHY
|
|
PHY
|
|
LDA L055027
|
|
LDX L055029
|
|
PHX
|
|
PHA
|
|
JSL L0772AE
|
|
PLA
|
|
STA $D9
|
|
PLX
|
|
STX $DB
|
|
LDA $D9
|
|
ORA $DB
|
|
BNE L0C091B
|
|
BRL L0C09A1
|
|
L0C091B PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0000
|
|
PEI $DB
|
|
PEI $D9
|
|
PEI $DD
|
|
PEA $0000
|
|
JSL L07B038
|
|
PLA
|
|
STA $E5
|
|
PLX
|
|
STX $E7
|
|
LDA $E5
|
|
ORA $E7
|
|
BNE L0C0943
|
|
PEA $2F50
|
|
JSL L07272E
|
|
L0C0943 PEI $E7
|
|
PEI $E5
|
|
LDA L0550AD
|
|
JSL L150488
|
|
JSL L150F53
|
|
STA $E5
|
|
STX $E7
|
|
LDY #$0002
|
|
LDA [$EF],Y
|
|
TAX
|
|
LDA [$EF]
|
|
STA $E1
|
|
STX $E3
|
|
PEI $E7
|
|
PEI $E5
|
|
PEI $E3
|
|
PEI $E1
|
|
LDA $E9
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
JSL L070597
|
|
PEI $E3
|
|
PEI $E1
|
|
LDA $E9
|
|
JSL L150488
|
|
JSL L150F53
|
|
STA $E1
|
|
STX $E3
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$E1]
|
|
REP #$20
|
|
LDA L055027
|
|
LDX L055029
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
JSL L074A90
|
|
BRA L0C09CB
|
|
L0C09A1 PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L055019
|
|
PHA
|
|
JSL L0B249C
|
|
PLA
|
|
STA $EF
|
|
PLX
|
|
STX $F1
|
|
LDY #$0002
|
|
LDA [$EF],Y
|
|
TAX
|
|
LDA [$EF]
|
|
STA $F3
|
|
STX $F5
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$F3]
|
|
REP #$20
|
|
L0C09CB LDA $EF
|
|
LDX $F1
|
|
STA $FC
|
|
STX $FE
|
|
TSC
|
|
CLC
|
|
ADC #$011E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0C09DB ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FDAA
|
|
TCS
|
|
ADC #$0161
|
|
TCD
|
|
LDAL L0406CF
|
|
SEP #$20
|
|
STA [$FC]
|
|
REP #$20
|
|
LDA L0551F3
|
|
BEQ L0C0A65
|
|
LDA L055111
|
|
LDX L055113
|
|
STA $D3
|
|
STX $D5
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA ^L0406D0
|
|
PEA L0406D0
|
|
PEA $000C
|
|
JSL L0313BE
|
|
LDY #$0002
|
|
LDA [$D3],Y
|
|
TAX
|
|
LDA [$D3]
|
|
TXY
|
|
LDX #$FEC7
|
|
STA $00,X
|
|
TYA
|
|
STA $02,X
|
|
LDX #$FEC7
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0020
|
|
BCC L0C0A36
|
|
INX
|
|
L0C0A36 STA $F1
|
|
STX $F3
|
|
LDA [$F1]
|
|
JSL L150488
|
|
STA $E7
|
|
STX $E9
|
|
LDX #$FEC7
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0022
|
|
BCC L0C0A54
|
|
INX
|
|
L0C0A54 STA $F1
|
|
STX $F3
|
|
LDA [$F1]
|
|
JSL L150488
|
|
STA $E3
|
|
STX $E5
|
|
BRL L0C0B35
|
|
L0C0A65 LDA L05511F
|
|
BNE L0C0A6D
|
|
BRL L0C0B32
|
|
L0C0A6D LDA L055121
|
|
LDX L055123
|
|
STA $EB
|
|
STX $ED
|
|
LDA L055027
|
|
LDX L055029
|
|
CMP L055129
|
|
BNE L0C0A85
|
|
CPX L05512B
|
|
L0C0A85 BNE L0C0A9F
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA ^L0406DC
|
|
PEA L0406DC
|
|
PEA $0005
|
|
JSL L0313BE
|
|
BRA L0C0AB5
|
|
L0C0A9F PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA ^L0406E1
|
|
PEA L0406E1
|
|
PEA $0006
|
|
JSL L0313BE
|
|
L0C0AB5 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA ^L0406E7
|
|
PEA L0406E7
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEB3
|
|
PHA
|
|
PHY
|
|
LDA L055129
|
|
LDX L05512B
|
|
PHX
|
|
PHA
|
|
LDAL L05328D
|
|
PHA
|
|
PEA $0000
|
|
JSL L07AD84
|
|
PLA
|
|
LDX #$0000
|
|
BIT #$8000
|
|
BEQ L0C0AF5
|
|
DEX
|
|
L0C0AF5 PHX
|
|
PHA
|
|
JSL L07346C
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FECB
|
|
PHA
|
|
PEA $0003
|
|
JSL L1509CE
|
|
PEA $0100
|
|
JSL L0313BE
|
|
TDC
|
|
CLC
|
|
ADC #$00E7
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$00E3
|
|
PEA $0000
|
|
PHA
|
|
LDA L055121
|
|
LDX L055123
|
|
PHX
|
|
PHA
|
|
JSL L150000
|
|
BRA L0C0B35
|
|
L0C0B32 BRL L0C0CD7
|
|
L0C0B35 LDA $FA
|
|
DEC
|
|
BNE L0C0B9D
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA ^L0406EF
|
|
PEA L0406EF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEB3
|
|
PHA
|
|
LDA $E7
|
|
LDX $E9
|
|
INC
|
|
BNE L0C0B5A
|
|
INX
|
|
L0C0B5A PHX
|
|
PHA
|
|
JSL L07346C
|
|
PEA ^L0406F5
|
|
PEA L0406F5
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FE9F
|
|
PHA
|
|
PEI $E5
|
|
PEI $E3
|
|
JSL L07346C
|
|
PEA ^L0406FA
|
|
PEA L0406FA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FECB
|
|
PHA
|
|
PEA $0006
|
|
JSL L1509CE
|
|
PEA $0100
|
|
JSL L0313BE
|
|
L0C0B9D LDA $FA
|
|
DEC
|
|
DEC
|
|
BEQ L0C0BA6
|
|
BRL L0C0CC3
|
|
L0C0BA6 LDA #$0001
|
|
LDX #$0000
|
|
STA $DF
|
|
STX $E1
|
|
LDA L0551F3
|
|
BEQ L0C0BDB
|
|
LDY #$0002
|
|
LDA [$D3],Y
|
|
TAX
|
|
LDA [$D3]
|
|
STA $F1
|
|
STX $F3
|
|
LDY #$0002
|
|
LDA [$F1],Y
|
|
TAX
|
|
LDA [$F1]
|
|
STA $F1
|
|
STX $F3
|
|
LDY #$0002
|
|
LDA [$F1],Y
|
|
TAX
|
|
LDA [$F1]
|
|
STA $DB
|
|
STX $DD
|
|
BRA L0C0C16
|
|
L0C0BDB PHY
|
|
PHY
|
|
PEA $0019
|
|
TDC
|
|
CLC
|
|
ADC #$00CF
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L055121
|
|
LDX L055123
|
|
PHX
|
|
PHA
|
|
JSL L150B22
|
|
PLA
|
|
STA $CB
|
|
PLX
|
|
STX $CD
|
|
LDY #$0002
|
|
LDA [$CF],Y
|
|
TAX
|
|
LDA [$CF]
|
|
STA $DB
|
|
STX $DD
|
|
L0C0C16 LDA $DB
|
|
LDX $DD
|
|
PEI $E9
|
|
PEI $E7
|
|
JSL L150F53
|
|
STA $D7
|
|
STX $D9
|
|
LDA #$00FF
|
|
AND [$D7]
|
|
STA $EF
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$D7]
|
|
REP #$20
|
|
L0C0C35 TDC
|
|
CLC
|
|
ADC #$00DB
|
|
PEA $0000
|
|
PHA
|
|
JSL L071B83
|
|
LDA #$00FF
|
|
AND [$DB]
|
|
BEQ L0C0C61
|
|
LDA $DB
|
|
LDX $DD
|
|
INC
|
|
BNE L0C0C51
|
|
INX
|
|
L0C0C51 STA $DB
|
|
STX $DD
|
|
LDA $DF
|
|
LDX $E1
|
|
INC
|
|
BNE L0C0C5D
|
|
INX
|
|
L0C0C5D STA $DF
|
|
STX $E1
|
|
L0C0C61 LDA #$00FF
|
|
AND [$DB]
|
|
BNE L0C0C35
|
|
LDA $EF
|
|
SEP #$20
|
|
STA [$D7]
|
|
REP #$20
|
|
LDA L05511F
|
|
BEQ L0C0C7D
|
|
PEI $D1
|
|
PEI $CF
|
|
JSL L07185A
|
|
L0C0C7D PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA ^L0406FF
|
|
PEA L0406FF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FEB3
|
|
PHA
|
|
PEI $E1
|
|
PEI $DF
|
|
JSL L07346C
|
|
PEA ^L040705
|
|
PEA L040705
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FECB
|
|
PHA
|
|
PEA $0004
|
|
JSL L1509CE
|
|
PEA $0100
|
|
JSL L0313BE
|
|
L0C0CC3 PEI $FE
|
|
PEI $FC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFCB
|
|
PHA
|
|
PEA $0100
|
|
JSL L0313BE
|
|
L0C0CD7 LDA $F8
|
|
STA $FA
|
|
LDA $F7
|
|
STA $F9
|
|
LDA $F5
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$025A
|
|
TCS
|
|
RTL
|
|
|
|
L0C0CE9 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFE4
|
|
TCS
|
|
TCD
|
|
LDA L0551F3
|
|
BNE L0C0CF9
|
|
BRL L0C0DCE
|
|
L0C0CF9 LDA L055111
|
|
LDX L055113
|
|
STA $19
|
|
STX $1B
|
|
LDY #$0002
|
|
LDA [$19],Y
|
|
TAX
|
|
LDA [$19]
|
|
STA $05
|
|
STX $07
|
|
LDY #$0022
|
|
LDA [$05],Y
|
|
LDY #$0020
|
|
SEC
|
|
SBC [$05],Y
|
|
JSL L150488
|
|
STA $11
|
|
STX $13
|
|
PEI $13
|
|
PEI $11
|
|
LDA #$0000
|
|
TAX
|
|
JSL L033477
|
|
BPL L0C0D33
|
|
BRL L0C0E08
|
|
L0C0D33 BNE L0C0D38
|
|
BRL L0C0E08
|
|
L0C0D38 PHY
|
|
PHY
|
|
LDA $11
|
|
LDX $13
|
|
INC
|
|
BNE L0C0D42
|
|
INX
|
|
L0C0D42 PHX
|
|
PHA
|
|
LDA L055019
|
|
PHA
|
|
JSL L0B249C
|
|
PLA
|
|
STA $15
|
|
PLX
|
|
STX $17
|
|
LDA $15
|
|
ORA $17
|
|
BNE L0C0D5B
|
|
BRL L0C0E08
|
|
L0C0D5B LDA L055111
|
|
LDX L055113
|
|
STA $19
|
|
STX $1B
|
|
LDY #$0002
|
|
LDA [$19],Y
|
|
TAX
|
|
LDA [$19]
|
|
STA $01
|
|
STX $03
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
STA $19
|
|
STX $1B
|
|
LDY #$0002
|
|
LDA [$19],Y
|
|
TAX
|
|
LDA [$19]
|
|
PHX
|
|
PHA
|
|
LDY #$0020
|
|
LDA [$01],Y
|
|
JSL L150488
|
|
JSL L150F53
|
|
STA $0D
|
|
STX $0F
|
|
LDY #$0002
|
|
LDA [$15],Y
|
|
TAX
|
|
LDA [$15]
|
|
STA $09
|
|
STX $0B
|
|
PEI $0F
|
|
PEI $0D
|
|
PEI $0B
|
|
PEI $09
|
|
PEI $13
|
|
PEI $11
|
|
JSL L070597
|
|
LDA $09
|
|
LDX $0B
|
|
PEI $13
|
|
PEI $11
|
|
JSL L150F53
|
|
STA $09
|
|
STX $0B
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$09]
|
|
REP #$20
|
|
BRA L0C0E32
|
|
L0C0DCE LDA L05511F
|
|
BEQ L0C0E08
|
|
PHY
|
|
PHY
|
|
PEA $0039
|
|
TDC
|
|
CLC
|
|
ADC #$0015
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA L055121
|
|
LDX L055123
|
|
PHX
|
|
PHA
|
|
JSL L150B22
|
|
PLA
|
|
STA $11
|
|
PLX
|
|
STX $13
|
|
LDAL L05565D
|
|
BEQ L0C0E32
|
|
L0C0E08 PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L055019
|
|
PHA
|
|
JSL L0B249C
|
|
PLA
|
|
STA $15
|
|
PLX
|
|
STX $17
|
|
LDY #$0002
|
|
LDA [$15],Y
|
|
TAX
|
|
LDA [$15]
|
|
STA $19
|
|
STX $1B
|
|
SEP #$20
|
|
LDA #$00
|
|
STA [$19]
|
|
REP #$20
|
|
L0C0E32 LDA $15
|
|
LDX $17
|
|
STA $22
|
|
STX $24
|
|
TSC
|
|
CLC
|
|
ADC #$001C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0C0E42 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FDB2
|
|
TCS
|
|
ADC #$0161
|
|
TCD
|
|
STZ $FC
|
|
STZ $FE
|
|
LDA $F6
|
|
BEQ L0C0E69
|
|
PHY
|
|
PHY
|
|
PEA ^L04071E
|
|
PEA L04071E
|
|
JSL L0B88AC
|
|
PLA
|
|
STA $E5
|
|
PLX
|
|
STX $E7
|
|
BRA L0C0E7B
|
|
L0C0E69 PHY
|
|
PHY
|
|
PEA ^L04072B
|
|
PEA L04072B
|
|
JSL L0B88AC
|
|
PLA
|
|
STA $E5
|
|
PLX
|
|
STX $E7
|
|
L0C0E7B PEI $E7
|
|
PEI $E5
|
|
JSL L0718BF
|
|
LDY #$0002
|
|
LDA [$E5],Y
|
|
TAX
|
|
LDA [$E5]
|
|
STA $E1
|
|
STX $E3
|
|
JSL L09999B
|
|
L0C0E93 PHY
|
|
PHY
|
|
PEI $FA
|
|
PEI $F8
|
|
PEA $0000
|
|
JSL L0730BE
|
|
PLA
|
|
STA $D9
|
|
PLX
|
|
STX $DB
|
|
LDA #$0003
|
|
STA $9F
|
|
LDY #$0002
|
|
LDA [$D9],Y
|
|
TAX
|
|
LDA [$D9]
|
|
STA $A1
|
|
STX $A3
|
|
TDC
|
|
CLC
|
|
ADC #$009F
|
|
PEA $0000
|
|
PHA
|
|
PEA $2006
|
|
JSL GSOS2
|
|
STAL L05565D
|
|
LDAL L05565D
|
|
BNE L0C0F19
|
|
LDA $F6
|
|
BEQ L0C0F0E
|
|
LDX #$0000
|
|
LDA #$00B3
|
|
CMP $A7
|
|
BEQ L0C0EE0
|
|
INX
|
|
L0C0EE0 PHX
|
|
LDX #$0000
|
|
LDA #$00FF
|
|
CMP $A7
|
|
BEQ L0C0EEC
|
|
INX
|
|
L0C0EEC TXA
|
|
AND $01,S
|
|
PLX
|
|
LSR
|
|
BCC L0C0F0E
|
|
PEA $004D
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FE9F
|
|
PHA
|
|
PEI $DB
|
|
PEI $D9
|
|
JSL L072CD4
|
|
JSL L0B0841
|
|
BRL L0C0FCD
|
|
L0C0F0E LDA $D9
|
|
LDX $DB
|
|
STA $FC
|
|
STX $FE
|
|
BRL L0C0FCD
|
|
L0C0F19 PEI $DB
|
|
PEI $D9
|
|
JSL L07185A
|
|
TDC
|
|
CLC
|
|
ADC #$00E1
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF9F
|
|
PHA
|
|
JSL L0712B0
|
|
LDA #$00FF
|
|
LDX #$FF9F
|
|
AND $00,X
|
|
BEQ L0C0F78
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF9F
|
|
PHA
|
|
JSL L0735A8
|
|
PLA
|
|
STA $DD
|
|
PLX
|
|
STX $DF
|
|
PEA $0000
|
|
LDA L05503F
|
|
LDX L055041
|
|
PHX
|
|
PHA
|
|
JSL L077086
|
|
PEA $0000
|
|
PEI $DF
|
|
PEI $DD
|
|
JSL L077086
|
|
PEI $DF
|
|
PEI $DD
|
|
JSL L07185A
|
|
L0C0F78 LDA #$00FF
|
|
LDX #$FF9F
|
|
AND $00,X
|
|
BEQ L0C0F85
|
|
BRL L0C0E93
|
|
L0C0F85 LDA $F6
|
|
BEQ L0C0F9A
|
|
LDA #$0007
|
|
STA $D7
|
|
LDA #$00B3
|
|
STA $D5
|
|
LDA #$00FF
|
|
STA $D3
|
|
BRA L0C0FA3
|
|
L0C0F9A LDA #$C006
|
|
STA $D7
|
|
STZ $D5
|
|
STZ $D3
|
|
L0C0FA3 PHY
|
|
PEI $D7
|
|
PEI $D5
|
|
LDA $D3
|
|
JSL L150488
|
|
PHX
|
|
PHA
|
|
PEI $FA
|
|
PEI $F8
|
|
TDC
|
|
CLC
|
|
ADC #$00D9
|
|
PEA $0000
|
|
PHA
|
|
JSL L09B294
|
|
PLA
|
|
LSR
|
|
BCC L0C0FCD
|
|
LDA $D9
|
|
LDX $DB
|
|
STA $FC
|
|
STX $FE
|
|
L0C0FCD PEI $E7
|
|
PEI $E5
|
|
JSL L07185A
|
|
LDA $F0
|
|
STA $FA
|
|
LDA $EF
|
|
STA $F9
|
|
LDA $ED
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$025A
|
|
TCS
|
|
RTL
|
|
|
|
L0C0FE7 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
PEI $18
|
|
PEI $16
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0005
|
|
PEA $0000
|
|
PHA
|
|
JSL L07869F
|
|
PEA $0000
|
|
PEI $03
|
|
PEI $01
|
|
JSL L077086
|
|
PEI $03
|
|
PEI $01
|
|
PEI $07
|
|
PEI $05
|
|
JSL L071825
|
|
LDA $10
|
|
STA $18
|
|
LDA $0F
|
|
STA $17
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
RTL
|
|
|
|
L0C1032 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FD80
|
|
TCS
|
|
ADC #$018B
|
|
TCD
|
|
LDA L0550B9
|
|
DEC
|
|
BNE L0C1049
|
|
JSL L1601FC
|
|
BRA L0C104D
|
|
L0C1049 JSL L0A1625
|
|
L0C104D PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
JSL L0E06AC
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
PEA $0001
|
|
PEA $0000
|
|
PHD
|
|
JSL L0C0E42
|
|
PLA
|
|
STA $EB
|
|
PLX
|
|
STX $ED
|
|
LDA $EB
|
|
ORA $ED
|
|
BNE L0C1089
|
|
PEA ^L040735
|
|
PEA L040735
|
|
JSL L0B2D94
|
|
BRL L0C1351
|
|
L0C1089 STZ $E7
|
|
STZ $E9
|
|
PHY
|
|
JSL L0314F6
|
|
PLA
|
|
BNE L0C109B
|
|
JSL L0E0000
|
|
BRA L0C10E3
|
|
L0C109B PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
JSL L0E06AC
|
|
JSL L0E0000
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PHD
|
|
JSL L0C0E42
|
|
PLA
|
|
STA $E7
|
|
PLX
|
|
STX $E9
|
|
LDA $E7
|
|
ORA $E9
|
|
BNE L0C10E3
|
|
PEA ^L040749
|
|
PEA L040749
|
|
JSL L0B2D94
|
|
PEI $ED
|
|
PEI $EB
|
|
JSL L07185A
|
|
BRL L0C1351
|
|
L0C10E3 LDA L055027
|
|
LDX L055029
|
|
STA $DB
|
|
STX $DD
|
|
PHY
|
|
PHY
|
|
LDA L05503F
|
|
LDX L055041
|
|
PHX
|
|
PHA
|
|
LDA L055043
|
|
LDX L055045
|
|
PHX
|
|
PHA
|
|
JSL L072B9F
|
|
PLA
|
|
STA $DF
|
|
PLX
|
|
STX $E1
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FE75
|
|
PHA
|
|
PEI $E1
|
|
PEI $DF
|
|
JSL L072CD4
|
|
PEA $0100
|
|
JSL L0313BE
|
|
PEI $E1
|
|
PEI $DF
|
|
JSL L07185A
|
|
JSL L0A129A
|
|
PEA $001D
|
|
JSL L099176
|
|
LDA #$0002
|
|
STA $7B
|
|
LDA #$0001
|
|
LDX #$0000
|
|
STA $81
|
|
STX $83
|
|
LDA #$0006
|
|
STA $A7
|
|
LDA L05502B
|
|
LDX L05502D
|
|
STA $D3
|
|
STX $D5
|
|
PHY
|
|
TDC
|
|
CLC
|
|
ADC #$007B
|
|
PEA $0000
|
|
PHA
|
|
JSL L0953DD
|
|
PLA
|
|
LSR
|
|
BCC L0C119B
|
|
LDA L055051
|
|
BNE L0C119B
|
|
LDA $DB
|
|
LDX $DD
|
|
STAL L053B99
|
|
TXA
|
|
STAL L053B9B
|
|
PEA ^L053B9D
|
|
PEA L053B9D
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
PEA $0100
|
|
JSL L0313BE
|
|
LDA #$0001
|
|
STA L05504D
|
|
L0C119B PEA $0000
|
|
PEA $0001
|
|
JSL L090000
|
|
JSL L093A99
|
|
JSL L074D35
|
|
LDA $E7
|
|
ORA $E9
|
|
BNE L0C11B6
|
|
BRL L0C12F7
|
|
L0C11B6 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FE75
|
|
PHA
|
|
PEI $E9
|
|
PEI $E7
|
|
JSL L072CD4
|
|
PEA $0100
|
|
JSL L0313BE
|
|
LDA #$00FF
|
|
LDX #$FF7B
|
|
AND $00,X
|
|
LDX #$FF79
|
|
STA $00,X
|
|
LDX #$FF79
|
|
LDA $00,X
|
|
SEC
|
|
SBC #$0001
|
|
BVS L0C11F2
|
|
EOR #$8000
|
|
L0C11F2 BPL L0C1226
|
|
LDA #$0001
|
|
STA $EF
|
|
L0C11F9 LDA $EF
|
|
CLC
|
|
ADC #$FF7B
|
|
TAX
|
|
LDA #$00FF
|
|
AND $00,X
|
|
CMP #$003A
|
|
BNE L0C1219
|
|
LDA $EF
|
|
CLC
|
|
ADC #$FF7B
|
|
TAX
|
|
SEP #$20
|
|
LDA #$2F
|
|
STA $00,X
|
|
REP #$20
|
|
L0C1219 LDA $EF
|
|
LDX #$FF79
|
|
CMP $00,X
|
|
BEQ L0C1226
|
|
INC $EF
|
|
BRA L0C11F9
|
|
L0C1226 LDA #$00FF
|
|
LDX #$FF7B
|
|
AND $00,X
|
|
INC
|
|
CLC
|
|
ADC #$FF7B
|
|
TAX
|
|
SEP #$20
|
|
LDA #$00
|
|
STA $00,X
|
|
REP #$20
|
|
PEI $E9
|
|
PEI $E7
|
|
JSL L07185A
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0108
|
|
LDA L054FBD
|
|
PHA
|
|
PEA $4000
|
|
PEA $0000
|
|
PEA $0000
|
|
JSL L1513F4
|
|
PLA
|
|
STA $D7
|
|
PLX
|
|
STX $D9
|
|
LDAL L05565D
|
|
BEQ L0C126C
|
|
BRL L0C12F7
|
|
L0C126C LDY #$0002
|
|
LDA [$D7],Y
|
|
TAX
|
|
LDA [$D7]
|
|
TXY
|
|
LDX #$FF75
|
|
STA $00,X
|
|
TYA
|
|
STA $02,X
|
|
LDX #$FF75
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
STA $F1
|
|
STX $F3
|
|
LDA #$0000
|
|
TAX
|
|
STA [$F1]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$F1],Y
|
|
LDX #$FF75
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0004
|
|
BCC L0C12A6
|
|
INX
|
|
L0C12A6 STA $F1
|
|
STX $F3
|
|
LDA #$0001
|
|
STA [$F1]
|
|
LDX #$FF75
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0006
|
|
BCC L0C12BF
|
|
INX
|
|
L0C12BF STA $F1
|
|
STX $F3
|
|
LDA $FA
|
|
STA [$F1]
|
|
LDX #$FF75
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0008
|
|
BCC L0C12D7
|
|
INX
|
|
L0C12D7 PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF7B
|
|
PHA
|
|
PEA $0100
|
|
JSL L0313BE
|
|
PEA $0001
|
|
PEA $0001
|
|
PEI $D9
|
|
PEI $D7
|
|
JSL L150F3B
|
|
L0C12F7 PEI $ED
|
|
PEI $EB
|
|
PEA $0000
|
|
PHD
|
|
JSL L0C0FE7
|
|
PEA ^L050C32
|
|
PEA L050C32
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FE75
|
|
PHA
|
|
PEI $ED
|
|
PEI $EB
|
|
JSL L072CD4
|
|
PEA $0100
|
|
JSL L0313BE
|
|
PEI $ED
|
|
PEI $EB
|
|
JSL L07185A
|
|
JSL L0A3FE2
|
|
LDA #$8000
|
|
STAL L055453
|
|
LDA #L050C32
|
|
STAL L055455
|
|
LDA #^L050C32
|
|
STAL L055457
|
|
PEA $0000
|
|
JSL L033335
|
|
TAY
|
|
CLC
|
|
TSC
|
|
ADC #$0002
|
|
TCS
|
|
TYA
|
|
L0C1351 LDA $F8
|
|
STA $FA
|
|
LDA $F7
|
|
STA $F9
|
|
LDA $F5
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0284
|
|
TCS
|
|
RTL
|
|
|