2624 lines
47 KiB
ArmAsm
2624 lines
47 KiB
ArmAsm
*
|
|
* HypercardGS
|
|
* segment: $1E XWindSeg
|
|
*
|
|
* (k) 2015, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
dsk XWindSeg.l
|
|
lst off
|
|
|
|
*---------------------------------------
|
|
|
|
use XWindSeg.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
|
|
|
|
*---------------------------------------
|
|
|
|
L1E0000 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FF52
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0011
|
|
PEA $0000
|
|
PHA
|
|
PEI $C2
|
|
PEI $C0
|
|
PEA $002E
|
|
JSL L0313BE
|
|
LDY #$0002
|
|
LDA [$C4],Y
|
|
TAX
|
|
LDA [$C4]
|
|
STA $0D
|
|
STX $0F
|
|
LDY #$0038
|
|
LDA [$0D],Y
|
|
BEQ L1E0032
|
|
BRL L1E01AC
|
|
L1E0032 LDY #$0036
|
|
LDA [$0D],Y
|
|
SEC
|
|
SBC #$0000
|
|
BMI L1E0064
|
|
BEQ L1E0064
|
|
LDA $11
|
|
SEC
|
|
SBC #$000F
|
|
BEQ L1E004E
|
|
BVS L1E004C
|
|
EOR #$8000
|
|
L1E004C BMI L1E005A
|
|
L1E004E LDY #$003A
|
|
LDA [$0D],Y
|
|
BNE L1E0058
|
|
BRL L1E01AC
|
|
L1E0058 BRA L1E0064
|
|
L1E005A LDY #$003C
|
|
LDA [$0D],Y
|
|
BNE L1E0064
|
|
BRL L1E01AC
|
|
L1E0064 TDC
|
|
CLC
|
|
ADC #$005F
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $004C
|
|
JSL L071EC5
|
|
LDA #$FFFF
|
|
STA $5F
|
|
LDY #$0002
|
|
LDA [$C4],Y
|
|
TAX
|
|
LDA [$C4]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E008B
|
|
INX
|
|
L1E008B STA $AB
|
|
STX $AD
|
|
LDA [$AB]
|
|
STA $A7
|
|
TDC
|
|
CLC
|
|
ADC #$0065
|
|
LDX #$0061
|
|
STA $00,X
|
|
STZ $02,X
|
|
LDX #$0061
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
STA $09
|
|
STX $0B
|
|
LDA #$0004
|
|
CLC
|
|
ADC $09
|
|
LDX $0B
|
|
BCC L1E00B7
|
|
INX
|
|
L1E00B7 PHX
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0011
|
|
PEA $0000
|
|
PHA
|
|
PEA $002E
|
|
JSL L0313BE
|
|
LDY #$0002
|
|
LDA [$C4],Y
|
|
TAX
|
|
LDA [$C4]
|
|
CLC
|
|
ADC #$0004
|
|
BCC L1E00D8
|
|
INX
|
|
L1E00D8 STA $AB
|
|
STX $AD
|
|
LDY #$0002
|
|
LDA [$AB],Y
|
|
TAX
|
|
LDA [$AB]
|
|
STA [$09]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$09],Y
|
|
LDA $BC
|
|
LDX $BE
|
|
LDY #$0032
|
|
STA [$09],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$09],Y
|
|
LDA #$0032
|
|
CLC
|
|
ADC $09
|
|
LDX $0B
|
|
BCC L1E0105
|
|
INX
|
|
L1E0105 CLC
|
|
ADC #$0004
|
|
BCC L1E010C
|
|
INX
|
|
L1E010C STA $AB
|
|
STX $AD
|
|
LDA $B8
|
|
LDX $BA
|
|
STA [$AB]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$AB],Y
|
|
LDY #$0002
|
|
LDA [$C4],Y
|
|
TAX
|
|
LDA [$C4]
|
|
STA $05
|
|
STX $07
|
|
LDY #$0036
|
|
LDA [$05],Y
|
|
INC
|
|
LDY #$0036
|
|
STA [$05],Y
|
|
TDC
|
|
CLC
|
|
ADC #$003F
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L052506
|
|
PEA L052506
|
|
PEA $0020
|
|
JSL L0313BE
|
|
PEA ^L052506
|
|
PEA L052506
|
|
LDA #$0008
|
|
CLC
|
|
ADC $05
|
|
LDX $07
|
|
BCC L1E015A
|
|
INX
|
|
L1E015A CLC
|
|
ADC #$0006
|
|
BCC L1E0161
|
|
INX
|
|
L1E0161 PHX
|
|
PHA
|
|
PEA $0020
|
|
JSL L0313BE
|
|
PEI $C6
|
|
PEI $C4
|
|
TDC
|
|
CLC
|
|
ADC #$005F
|
|
PEA $0000
|
|
PHA
|
|
JSL L1E104A
|
|
LDY #$0002
|
|
LDA [$C4],Y
|
|
TAX
|
|
LDA [$C4]
|
|
STA $01
|
|
STX $03
|
|
LDY #$0036
|
|
LDA [$01],Y
|
|
DEC
|
|
LDY #$0036
|
|
STA [$01],Y
|
|
PEA ^L052506
|
|
PEA L052506
|
|
TDC
|
|
CLC
|
|
ADC #$003F
|
|
PEA $0000
|
|
PHA
|
|
PEA $0020
|
|
JSL L0313BE
|
|
LDA $A5
|
|
STA [$B4]
|
|
L1E01AC LDA $B2
|
|
STA $C6
|
|
LDA $B1
|
|
STA $C5
|
|
LDA $AF
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$00C4
|
|
TCS
|
|
RTL
|
|
|
|
L1E01BE ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $07
|
|
PHY
|
|
PHY
|
|
PEI $14
|
|
PEI $12
|
|
JSL L0A1421
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $01
|
|
ORA $03
|
|
BNE L1E01E6
|
|
BRA L1E0226
|
|
L1E01E6 PEI $03
|
|
PEI $01
|
|
PEA $03E9
|
|
TDC
|
|
CLC
|
|
ADC #$0005
|
|
PEA $0000
|
|
PHA
|
|
JSL L1E11EA
|
|
PHY
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L1E0DC0
|
|
PLA
|
|
LSR
|
|
BCC L1E0220
|
|
PEI $14
|
|
PEI $12
|
|
JSL L0732B7
|
|
PEI $14
|
|
PEI $12
|
|
JSL L151385
|
|
JSL L09AFB1
|
|
L1E0220 PEI $07
|
|
JSL L071AA4
|
|
L1E0226 LDA $10
|
|
STA $14
|
|
LDA $0F
|
|
STA $13
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
RTL
|
|
|
|
L1E0238 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
STZ $05
|
|
PHY
|
|
PHY
|
|
JSL L1E09E4
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
L1E024E LDA $01
|
|
ORA $03
|
|
BEQ L1E026B
|
|
LDA $05
|
|
INC
|
|
STA $05
|
|
PHY
|
|
PHY
|
|
PEI $03
|
|
PEI $01
|
|
JSL L1E0A35
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
BRA L1E024E
|
|
L1E026B LDA $05
|
|
STA $10
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L1E0276 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
LDA L0551D3
|
|
ORA L0551D5
|
|
BEQ L1E0289
|
|
BRL L1E03B3
|
|
L1E0289 LDA L0551CF
|
|
ORA L0551D1
|
|
BNE L1E0294
|
|
BRL L1E03B3
|
|
L1E0294 PHY
|
|
PHY
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
PHX
|
|
PHA
|
|
JSL L151301
|
|
PEA $0000
|
|
PEA $0006
|
|
JSL L150290
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA $03
|
|
LDA $03
|
|
STA $01
|
|
LDA $01
|
|
SEC
|
|
SBC #$0001
|
|
BVS L1E02C1
|
|
EOR #$8000
|
|
L1E02C1 BMI L1E02C6
|
|
BRL L1E03A1
|
|
L1E02C6 LDA #$0001
|
|
STA $05
|
|
L1E02CB PHY
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
STA $07
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
PHX
|
|
PHA
|
|
LDA $05
|
|
JSL L150488
|
|
TAY
|
|
BNE L1E02EA
|
|
DEX
|
|
L1E02EA DEC
|
|
PEA $0000
|
|
PEA $0006
|
|
JSL L150D50
|
|
PLA
|
|
PLX
|
|
JSL L150F53
|
|
STA $07
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
PHX
|
|
PHA
|
|
JSL L1E0965
|
|
PLA
|
|
LSR
|
|
BCS L1E0314
|
|
BRL L1E0396
|
|
L1E0314 LDA L0551CF
|
|
LDX L0551D1
|
|
STA $07
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
PHX
|
|
PHA
|
|
LDA $05
|
|
JSL L150488
|
|
TAY
|
|
BNE L1E0332
|
|
DEX
|
|
L1E0332 DEC
|
|
PEA $0000
|
|
PEA $0006
|
|
JSL L150D50
|
|
PLA
|
|
PLX
|
|
JSL L150F53
|
|
CLC
|
|
ADC #$0004
|
|
BCC L1E034A
|
|
INX
|
|
L1E034A STA $07
|
|
STX $09
|
|
LDA [$07]
|
|
PHA
|
|
JSL L151343
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
STA $07
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
PHX
|
|
PHA
|
|
LDA $05
|
|
JSL L150488
|
|
TAY
|
|
BNE L1E0373
|
|
DEX
|
|
L1E0373 DEC
|
|
PEA $0000
|
|
PEA $0006
|
|
JSL L150D50
|
|
PLA
|
|
PLX
|
|
JSL L150F53
|
|
STA $07
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
PHX
|
|
PHA
|
|
JSL L07185A
|
|
L1E0396 LDA $05
|
|
CMP $01
|
|
BEQ L1E03A1
|
|
INC $05
|
|
BRL L1E02CB
|
|
L1E03A1 LDA L0551CF
|
|
LDX L0551D1
|
|
PHX
|
|
PHA
|
|
JSL L07185A
|
|
STZ L0551CF
|
|
STZ L0551D1
|
|
L1E03B3 PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L1E03BA ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
STZ $14
|
|
STZ $16
|
|
LDA $12
|
|
SEC
|
|
SBC #$0001
|
|
BVS L1E03D1
|
|
EOR #$8000
|
|
L1E03D1 BMI L1E03D5
|
|
BRA L1E0422
|
|
L1E03D5 PHY
|
|
PHY
|
|
JSL L1E09E4
|
|
PLA
|
|
STA $03
|
|
PLX
|
|
STX $05
|
|
LDA $12
|
|
DEC
|
|
STA $01
|
|
LDA $01
|
|
SEC
|
|
SBC #$0001
|
|
BVS L1E03F1
|
|
EOR #$8000
|
|
L1E03F1 BPL L1E041A
|
|
LDA #$0001
|
|
STA $07
|
|
L1E03F8 PHY
|
|
PHY
|
|
PEI $05
|
|
PEI $03
|
|
JSL L1E0A35
|
|
PLA
|
|
STA $03
|
|
PLX
|
|
STX $05
|
|
LDA $03
|
|
ORA $05
|
|
BNE L1E0410
|
|
BRA L1E0422
|
|
L1E0410 LDA $07
|
|
CMP $01
|
|
BEQ L1E041A
|
|
INC $07
|
|
BRA L1E03F8
|
|
L1E041A LDA $03
|
|
LDX $05
|
|
STA $14
|
|
STX $16
|
|
L1E0422 LDA $10
|
|
STA $12
|
|
LDA $0F
|
|
STA $11
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
RTL
|
|
|
|
L1E0434 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
LDA #$0001
|
|
STA $05
|
|
PHY
|
|
PHY
|
|
JSL L1E09E4
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $10
|
|
LDX $12
|
|
CMP $01
|
|
BNE L1E0457
|
|
CPX $03
|
|
L1E0457 BEQ L1E0482
|
|
L1E0459 LDA $05
|
|
INC
|
|
STA $05
|
|
PHY
|
|
PHY
|
|
PEI $03
|
|
PEI $01
|
|
JSL L1E0A35
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $10
|
|
LDX $12
|
|
CMP $01
|
|
BNE L1E0478
|
|
CPX $03
|
|
L1E0478 BEQ L1E0482
|
|
LDA $01
|
|
ORA $03
|
|
BNE L1E0459
|
|
STZ $05
|
|
L1E0482 LDA $05
|
|
STA $14
|
|
LDA $0E
|
|
STA $12
|
|
LDA $0D
|
|
STA $11
|
|
LDA $0B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
RTL
|
|
|
|
L1E0498 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEF4
|
|
TCS
|
|
ADC #$001D
|
|
TCD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE7
|
|
PHA
|
|
PEI $FA
|
|
PEI $F8
|
|
PEA $0100
|
|
JSL L0313BE
|
|
STZ $FC
|
|
STZ $FE
|
|
LDX #$0000
|
|
LDA L0551B1
|
|
ORA L0551B3
|
|
BNE L1E04C7
|
|
INX
|
|
L1E04C7 TXA
|
|
BNE L1E04E1
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE7
|
|
PHA
|
|
PEA ^L040AC2
|
|
PEA L040AC2
|
|
JSL L1503DD
|
|
PLA
|
|
BEQ L1E04E4
|
|
L1E04E1 BRL L1E0586
|
|
L1E04E4 LDA L0551B1
|
|
LDX L0551B3
|
|
STA $E7
|
|
STX $E9
|
|
L1E04EE PHY
|
|
LDY #$0002
|
|
LDA [$E7],Y
|
|
TAX
|
|
LDA [$E7]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E04FE
|
|
INX
|
|
L1E04FE CLC
|
|
ADC #$0006
|
|
BCC L1E0505
|
|
INX
|
|
L1E0505 PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFE7
|
|
PHA
|
|
JSL L071C56
|
|
PLA
|
|
LSR
|
|
BCC L1E0565
|
|
LDY #$0002
|
|
LDA [$E7],Y
|
|
TAX
|
|
LDA [$E7]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E0527
|
|
INX
|
|
L1E0527 TXY
|
|
LDX #$FFE3
|
|
STA $00,X
|
|
TYA
|
|
STA $02,X
|
|
LDX #$FFE3
|
|
LDA $02,X
|
|
TAY
|
|
LDA $00,X
|
|
TYX
|
|
CLC
|
|
ADC #$0002
|
|
BCC L1E0540
|
|
INX
|
|
L1E0540 STA $EB
|
|
STX $ED
|
|
LDY #$0002
|
|
LDA [$EB],Y
|
|
TAX
|
|
LDA [$EB]
|
|
STA $FC
|
|
STX $FE
|
|
LDX #$FFE3
|
|
LDA $02,X
|
|
PHA
|
|
LDA $00,X
|
|
PHA
|
|
PLA
|
|
PLX
|
|
STA $EB
|
|
STX $ED
|
|
LDA [$EB]
|
|
STA [$F4]
|
|
BRA L1E0586
|
|
L1E0565 LDY #$0002
|
|
LDA [$E7],Y
|
|
TAX
|
|
LDA [$E7]
|
|
STA $EB
|
|
STX $ED
|
|
LDY #$0002
|
|
LDA [$EB],Y
|
|
TAX
|
|
LDA [$EB]
|
|
STA $E7
|
|
STX $E9
|
|
LDA $E7
|
|
ORA $E9
|
|
BEQ L1E0586
|
|
BRL L1E04EE
|
|
L1E0586 LDA $F2
|
|
STA $FA
|
|
LDA $F1
|
|
STA $F9
|
|
LDA $EF
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0116
|
|
TCS
|
|
RTL
|
|
|
|
L1E0598 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFD8
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEI $30
|
|
PEI $2E
|
|
PEA $0020
|
|
JSL L0313BE
|
|
STZ $32
|
|
STZ $34
|
|
LDX #$0000
|
|
LDA L0551B1
|
|
ORA L0551B3
|
|
BNE L1E05C4
|
|
INX
|
|
L1E05C4 TXA
|
|
BNE L1E05DE
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEA ^L040AC3
|
|
PEA L040AC3
|
|
JSL L1503DD
|
|
PLA
|
|
BEQ L1E05E0
|
|
L1E05DE BRA L1E0635
|
|
L1E05E0 LDA L0551B1
|
|
LDX L0551B3
|
|
STA $21
|
|
STX $23
|
|
L1E05EA PHY
|
|
LDY #$0002
|
|
LDA [$21],Y
|
|
TAX
|
|
LDA [$21]
|
|
CLC
|
|
ADC #$0042
|
|
BCC L1E05FA
|
|
INX
|
|
L1E05FA PHX
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L071C56
|
|
PLA
|
|
LSR
|
|
BCC L1E0617
|
|
LDA $21
|
|
LDX $23
|
|
STA $32
|
|
STX $34
|
|
BRA L1E0635
|
|
L1E0617 LDY #$0002
|
|
LDA [$21],Y
|
|
TAX
|
|
LDA [$21]
|
|
STA $25
|
|
STX $27
|
|
LDY #$0002
|
|
LDA [$25],Y
|
|
TAX
|
|
LDA [$25]
|
|
STA $21
|
|
STX $23
|
|
LDA $21
|
|
ORA $23
|
|
BNE L1E05EA
|
|
L1E0635 LDA $2C
|
|
STA $30
|
|
LDA $2B
|
|
STA $2F
|
|
LDA $29
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$002E
|
|
TCS
|
|
RTL
|
|
|
|
L1E0647 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FEF8
|
|
TCS
|
|
ADC #$0015
|
|
TCD
|
|
LDA L0550E9
|
|
LDX L0550EB
|
|
CMP $F8
|
|
BNE L1E065E
|
|
CPX $FA
|
|
L1E065E BNE L1E0674
|
|
PEI $FE
|
|
PEI $FC
|
|
PEA ^L040AC4
|
|
PEA L040AC4
|
|
PEA $0005
|
|
JSL L0313BE
|
|
BRL L1E0745
|
|
L1E0674 LDA L0550E5
|
|
LDX L0550E7
|
|
CMP $F8
|
|
BNE L1E0680
|
|
CPX $FA
|
|
L1E0680 BNE L1E0696
|
|
PEI $FE
|
|
PEI $FC
|
|
PEA ^L040AC9
|
|
PEA L040AC9
|
|
PEA $0003
|
|
JSL L0313BE
|
|
BRL L1E0745
|
|
L1E0696 LDA L0550DD
|
|
LDX L0550DF
|
|
CMP $F8
|
|
BNE L1E06A2
|
|
CPX $FA
|
|
L1E06A2 BNE L1E06B8
|
|
PEI $FE
|
|
PEI $FC
|
|
PEA ^L040ACC
|
|
PEA L040ACC
|
|
PEA $0008
|
|
JSL L0313BE
|
|
BRL L1E0745
|
|
L1E06B8 LDA L0550E1
|
|
LDX L0550E3
|
|
CMP $F8
|
|
BNE L1E06C4
|
|
CPX $FA
|
|
L1E06C4 BNE L1E06D9
|
|
PEI $FE
|
|
PEI $FC
|
|
PEA ^L040AD4
|
|
PEA L040AD4
|
|
PEA $0008
|
|
JSL L0313BE
|
|
BRA L1E0745
|
|
L1E06D9 LDA L0550ED
|
|
LDX L0550EF
|
|
CMP $F8
|
|
BNE L1E06E5
|
|
CPX $FA
|
|
L1E06E5 BNE L1E0709
|
|
PEI $FE
|
|
PEI $FC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FFEB
|
|
PHA
|
|
LDA L055043
|
|
LDX L055045
|
|
PHX
|
|
PHA
|
|
JSL L072CD4
|
|
PEA $0020
|
|
JSL L0313BE
|
|
BRA L1E0745
|
|
L1E0709 LDAL L040ADC
|
|
SEP #$20
|
|
STA [$FC]
|
|
REP #$20
|
|
PHY
|
|
PHY
|
|
PEI $FA
|
|
PEI $F8
|
|
JSL L0A1421
|
|
PLA
|
|
STA $EB
|
|
PLX
|
|
STX $ED
|
|
LDA $EB
|
|
ORA $ED
|
|
BEQ L1E0745
|
|
PEI $FE
|
|
PEI $FC
|
|
LDY #$0002
|
|
LDA [$EB],Y
|
|
TAX
|
|
LDA [$EB]
|
|
CLC
|
|
ADC #$0042
|
|
BCC L1E073C
|
|
INX
|
|
L1E073C PHX
|
|
PHA
|
|
PEA $0020
|
|
JSL L0313BE
|
|
L1E0745 LDA $F6
|
|
STA $FA
|
|
LDA $F5
|
|
STA $F9
|
|
LDA $F3
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$010E
|
|
TCS
|
|
RTL
|
|
|
|
L1E0757 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $05
|
|
PHY
|
|
PHY
|
|
PEI $12
|
|
PEI $10
|
|
JSL L0A1421
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $01
|
|
ORA $03
|
|
BNE L1E077F
|
|
BRA L1E07A4
|
|
L1E077F LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$003E
|
|
BCC L1E078E
|
|
INX
|
|
L1E078E STA $07
|
|
STX $09
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
STA $14
|
|
STX $16
|
|
PEI $05
|
|
JSL L071AA4
|
|
L1E07A4 LDA $0E
|
|
STA $12
|
|
LDA $0D
|
|
STA $11
|
|
LDA $0B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
RTL
|
|
|
|
L1E07B6 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PEA $0000
|
|
JSL L1E07C9
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L1E07C9 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF2
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $09
|
|
LDA L0550E9
|
|
LDX L0550EB
|
|
PHX
|
|
PHA
|
|
PEI $14
|
|
JSL L1E087E
|
|
LDA L0550E5
|
|
LDX L0550E7
|
|
PHX
|
|
PHA
|
|
PEI $14
|
|
JSL L1E087E
|
|
LDA L0550DD
|
|
LDX L0550DF
|
|
PHX
|
|
PHA
|
|
PEI $14
|
|
JSL L1E087E
|
|
LDA L0550E1
|
|
LDX L0550E3
|
|
PHX
|
|
PHA
|
|
PEI $14
|
|
JSL L1E087E
|
|
LDA L0551B1
|
|
LDX L0551B3
|
|
STA $01
|
|
STX $03
|
|
L1E081B LDA $01
|
|
ORA $03
|
|
BEQ L1E0866
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA $05
|
|
STX $07
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$0004
|
|
BCC L1E0848
|
|
INX
|
|
L1E0848 STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
PHX
|
|
PHA
|
|
PEI $14
|
|
JSL L1E087E
|
|
LDA $05
|
|
LDX $07
|
|
STA $01
|
|
STX $03
|
|
BRA L1E081B
|
|
L1E0866 PEI $09
|
|
JSL L071AA4
|
|
LDA $12
|
|
STA $14
|
|
LDA $11
|
|
STA $13
|
|
LDA $0F
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
RTL
|
|
|
|
L1E087E PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF4
|
|
TCS
|
|
TCD
|
|
LDA $12
|
|
BEQ L1E08AE
|
|
LDY #$00AE
|
|
LDA #$0010
|
|
AND [$14],Y
|
|
CMP #$0000
|
|
BEQ L1E08AC
|
|
LDY #$00CE
|
|
LDA #$0020
|
|
AND [$14],Y
|
|
CMP #$0000
|
|
BNE L1E08AC
|
|
PEI $16
|
|
PEI $14
|
|
JSL L09A5A7
|
|
L1E08AC BRA L1E090B
|
|
L1E08AE LDY #$00CE
|
|
LDA #$0020
|
|
AND [$14],Y
|
|
CMP #$0000
|
|
BEQ L1E08E8
|
|
LDA #$00AE
|
|
CLC
|
|
ADC $14
|
|
LDX $16
|
|
BCC L1E08C6
|
|
INX
|
|
L1E08C6 STA $09
|
|
STX $0B
|
|
LDY #$00AE
|
|
LDA #$0010
|
|
ORA [$14],Y
|
|
JSL L150488
|
|
STA [$09]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$09],Y
|
|
PEI $16
|
|
PEI $14
|
|
JSL L09A5A7
|
|
BRA L1E090B
|
|
L1E08E8 LDA #$00AE
|
|
CLC
|
|
ADC $14
|
|
LDX $16
|
|
BCC L1E08F3
|
|
INX
|
|
L1E08F3 STA $09
|
|
STX $0B
|
|
LDY #$00AE
|
|
LDA [$14],Y
|
|
AND #$FFEF
|
|
JSL L150488
|
|
STA [$09]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$09],Y
|
|
L1E090B PHY
|
|
PEI $16
|
|
PEI $14
|
|
JSL L0B0653
|
|
PLA
|
|
LSR
|
|
BCC L1E091A
|
|
BRA L1E0953
|
|
L1E091A LDA $12
|
|
BEQ L1E0925
|
|
LDA #$03ED
|
|
STA $05
|
|
BRA L1E092A
|
|
L1E0925 LDA #$03EC
|
|
STA $05
|
|
L1E092A PHY
|
|
PHY
|
|
PEI $16
|
|
PEI $14
|
|
JSL L0A1421
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $01
|
|
ORA $03
|
|
BEQ L1E0953
|
|
PEI $03
|
|
PEI $01
|
|
PEI $05
|
|
TDC
|
|
CLC
|
|
ADC #$0007
|
|
PEA $0000
|
|
PHA
|
|
JSL L1E11EA
|
|
L1E0953 LDA $10
|
|
STA $16
|
|
LDA $0F
|
|
STA $15
|
|
LDA $0D
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
RTL
|
|
|
|
L1E0965 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF8
|
|
TCS
|
|
TCD
|
|
LDA #$0001
|
|
STA $12
|
|
LDA L0551B1
|
|
ORA L0551B3
|
|
BNE L1E097C
|
|
BRA L1E09D2
|
|
L1E097C LDA L0551B1
|
|
LDX L0551B3
|
|
STA $01
|
|
STX $03
|
|
L1E0986 LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E0995
|
|
INX
|
|
L1E0995 CLC
|
|
ADC #$0002
|
|
BCC L1E099C
|
|
INX
|
|
L1E099C STA $05
|
|
STX $07
|
|
LDA $0E
|
|
LDX $10
|
|
CMP [$05]
|
|
BNE L1E09AE
|
|
LDY #$0002
|
|
TXA
|
|
CMP [$05],Y
|
|
L1E09AE BNE L1E09B4
|
|
STZ $12
|
|
BRA L1E09D2
|
|
L1E09B4 LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
STA $05
|
|
STX $07
|
|
LDY #$0002
|
|
LDA [$05],Y
|
|
TAX
|
|
LDA [$05]
|
|
STA $01
|
|
STX $03
|
|
LDA $01
|
|
ORA $03
|
|
BNE L1E0986
|
|
L1E09D2 LDA $0C
|
|
STA $10
|
|
LDA $0B
|
|
STA $0F
|
|
LDA $09
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
RTL
|
|
|
|
L1E09E4 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF8
|
|
TCS
|
|
TCD
|
|
PHY
|
|
PHY
|
|
JSL L150574
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
L1E09F8 LDA $01
|
|
ORA $03
|
|
BEQ L1E0A01
|
|
LDA #$0001
|
|
L1E0A01 BEQ L1E0A27
|
|
PHY
|
|
PEI $03
|
|
PEI $01
|
|
JSL L1E1305
|
|
PLA
|
|
EOR #$0001
|
|
CMP #$0000
|
|
BEQ L1E0A27
|
|
PHY
|
|
PHY
|
|
PEI $03
|
|
PEI $01
|
|
JSL L151699
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
BRA L1E09F8
|
|
L1E0A27 LDA $01
|
|
LDX $03
|
|
STA $0E
|
|
STX $10
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L1E0A35 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
L1E0A3D PHY
|
|
PHY
|
|
PEI $0C
|
|
PEI $0A
|
|
JSL L151699
|
|
PLA
|
|
STA $0A
|
|
PLX
|
|
STX $0C
|
|
LDX #$0000
|
|
LDA $0A
|
|
ORA $0C
|
|
BNE L1E0A57
|
|
INX
|
|
L1E0A57 PHX
|
|
PHY
|
|
PEI $0C
|
|
PEI $0A
|
|
JSL L1E1305
|
|
PLA
|
|
ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L1E0A3D
|
|
LDA $0A
|
|
LDX $0C
|
|
STA $0E
|
|
STX $10
|
|
LDA $08
|
|
STA $0C
|
|
LDA $07
|
|
STA $0B
|
|
LDA $05
|
|
TCD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
RTL
|
|
|
|
L1E0A81 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FF9A
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0029
|
|
PEA $0000
|
|
PHA
|
|
PEI $76
|
|
PEI $74
|
|
PEA $0008
|
|
JSL L0313BE
|
|
TDC
|
|
CLC
|
|
ADC #$0009
|
|
PEA $0000
|
|
PHA
|
|
PEI $72
|
|
PEI $70
|
|
PEA $0020
|
|
JSL L0313BE
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $61
|
|
STZ $78
|
|
STZ $7A
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0062
|
|
LDA L054FBD
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
JSL L1513F4
|
|
PLA
|
|
STA $55
|
|
PLX
|
|
STX $57
|
|
LDA $55
|
|
ORA $57
|
|
BNE L1E0AE5
|
|
BRL L1E0C9B
|
|
L1E0AE5 LDY #$0002
|
|
LDA [$55],Y
|
|
PHA
|
|
LDA [$55]
|
|
PHA
|
|
PEA $0000
|
|
PEA $0062
|
|
JSL L071EC5
|
|
TDC
|
|
CLC
|
|
ADC #$0031
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0024
|
|
JSL L071EC5
|
|
TDC
|
|
CLC
|
|
ADC #$0045
|
|
PEA $0000
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0029
|
|
PEA $0000
|
|
PHA
|
|
PEA $0008
|
|
JSL L0313BE
|
|
LDA #L086734
|
|
LDX #^L086734
|
|
STA $33
|
|
STX $35
|
|
LDA #$FFFF
|
|
TAX
|
|
STA $4D
|
|
STX $4F
|
|
LDA $6C
|
|
JSL L150488
|
|
STA $39
|
|
STX $3B
|
|
PHY
|
|
PHY
|
|
TDC
|
|
CLC
|
|
ADC #$0031
|
|
PEA $0000
|
|
PHA
|
|
JSL L15027E
|
|
PLA
|
|
STA $5D
|
|
PLX
|
|
STX $5F
|
|
LDX #$0000
|
|
LDA $5D
|
|
ORA $5F
|
|
BNE L1E0B5F
|
|
INX
|
|
L1E0B5F PHX
|
|
LDAL L05565D
|
|
BEQ L1E0B69
|
|
LDA #$0001
|
|
L1E0B69 ORA $01,S
|
|
PLX
|
|
LSR
|
|
BCC L1E0B7A
|
|
PEI $57
|
|
PEI $55
|
|
JSL L07185A
|
|
BRL L1E0C9B
|
|
L1E0B7A LDA $6E
|
|
BEQ L1E0B86
|
|
PEI $5F
|
|
PEI $5D
|
|
JSL L15102F
|
|
L1E0B86 LDY #$0002
|
|
LDA [$55],Y
|
|
TAX
|
|
LDA [$55]
|
|
STA $05
|
|
STX $07
|
|
LDA #$0042
|
|
CLC
|
|
ADC $05
|
|
LDX $07
|
|
BCC L1E0B9D
|
|
INX
|
|
L1E0B9D PHX
|
|
PHA
|
|
TDC
|
|
CLC
|
|
ADC #$0009
|
|
PEA $0000
|
|
PHA
|
|
PEA $0020
|
|
JSL L0313BE
|
|
LDA $5D
|
|
LDX $5F
|
|
LDY #$0004
|
|
STA [$05],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$05],Y
|
|
LDA #$0032
|
|
CLC
|
|
ADC $05
|
|
LDX $07
|
|
BCC L1E0BC8
|
|
INX
|
|
L1E0BC8 STA $63
|
|
STX $65
|
|
PHY
|
|
PHY
|
|
JSL L151319
|
|
PLA
|
|
STA [$63]
|
|
PLA
|
|
LDY #$0002
|
|
STA [$63],Y
|
|
LDA #$0001
|
|
LDY #$0038
|
|
STA [$05],Y
|
|
LDA #$0008
|
|
CLC
|
|
ADC $05
|
|
LDX $07
|
|
BCC L1E0BEE
|
|
INX
|
|
L1E0BEE STA $01
|
|
STX $03
|
|
LDA L0551D7
|
|
STA [$01]
|
|
LDA L0551D3
|
|
LDX L0551D5
|
|
LDY #$0002
|
|
STA [$01],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$01],Y
|
|
LDA #$0006
|
|
CLC
|
|
ADC $01
|
|
LDX $03
|
|
BCC L1E0C12
|
|
INX
|
|
L1E0C12 PHX
|
|
PHA
|
|
PEA ^L052506
|
|
PEA L052506
|
|
PEA $0020
|
|
JSL L0313BE
|
|
LDA L0551B1
|
|
ORA L0551B3
|
|
BNE L1E0C35
|
|
LDA $55
|
|
LDX $57
|
|
STA L0551B1
|
|
STX L0551B3
|
|
BRA L1E0C86
|
|
L1E0C35 LDA L0551B1
|
|
LDX L0551B3
|
|
STA $59
|
|
STX $5B
|
|
L1E0C3F LDY #$0002
|
|
LDA [$59],Y
|
|
TAX
|
|
LDA [$59]
|
|
STA $63
|
|
STX $65
|
|
LDA [$63]
|
|
LDY #$0002
|
|
ORA [$63],Y
|
|
BEQ L1E0C6E
|
|
LDY #$0002
|
|
LDA [$59],Y
|
|
TAX
|
|
LDA [$59]
|
|
STA $63
|
|
STX $65
|
|
LDY #$0002
|
|
LDA [$63],Y
|
|
TAX
|
|
LDA [$63]
|
|
STA $59
|
|
STX $5B
|
|
BRA L1E0C3F
|
|
L1E0C6E LDY #$0002
|
|
LDA [$59],Y
|
|
TAX
|
|
LDA [$59]
|
|
STA $63
|
|
STX $65
|
|
LDA $55
|
|
LDX $57
|
|
STA [$63]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$63],Y
|
|
L1E0C86 LDA #$0001
|
|
STA L0551D9
|
|
LDA $5D
|
|
LDX $5F
|
|
STA $78
|
|
STX $7A
|
|
LDA L0551DB
|
|
INC
|
|
STA L0551DB
|
|
L1E0C9B PEI $61
|
|
JSL L071AA4
|
|
LDA $6A
|
|
STA $76
|
|
LDA $69
|
|
STA $75
|
|
LDA $67
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0074
|
|
TCS
|
|
RTL
|
|
|
|
L1E0CB3 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF8
|
|
TCS
|
|
TCD
|
|
LDA $0E
|
|
LDX $10
|
|
STA $01
|
|
STX $03
|
|
LDA #$0000
|
|
TAX
|
|
LDY #$0002
|
|
STA [$01],Y
|
|
INY
|
|
INY
|
|
TXA
|
|
STA [$01],Y
|
|
LDA #$0006
|
|
CLC
|
|
ADC $01
|
|
LDX $03
|
|
BCC L1E0CDC
|
|
INX
|
|
L1E0CDC STA $05
|
|
STX $07
|
|
PHY
|
|
PHY
|
|
JSL L151319
|
|
PLA
|
|
STA [$05]
|
|
PLA
|
|
LDY #$0002
|
|
STA [$05],Y
|
|
LDA #$000A
|
|
CLC
|
|
ADC $01
|
|
LDX $03
|
|
BCC L1E0CFA
|
|
INX
|
|
L1E0CFA PHX
|
|
PHA
|
|
JSL L150801
|
|
LDA #$000A
|
|
CLC
|
|
ADC $01
|
|
LDX $03
|
|
BCC L1E0D0B
|
|
INX
|
|
L1E0D0B PHX
|
|
PHA
|
|
JSL L151412
|
|
LDA #$0000
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
PHY
|
|
JSL L090A90
|
|
PLA
|
|
LSR
|
|
BCC L1E0D30
|
|
LDY #$000E
|
|
LDA #$0100
|
|
CLC
|
|
ADC [$01],Y
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
L1E0D30 PHY
|
|
JSL L099DCE
|
|
PLA
|
|
LSR
|
|
BCC L1E0D47
|
|
LDY #$000E
|
|
LDA #$0200
|
|
CLC
|
|
ADC [$01],Y
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
L1E0D47 PHY
|
|
JSL L0903C7
|
|
PLA
|
|
LSR
|
|
BCC L1E0D5E
|
|
LDY #$000E
|
|
LDA #$0400
|
|
CLC
|
|
ADC [$01],Y
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
L1E0D5E PHY
|
|
JSL L09771E
|
|
PLA
|
|
LSR
|
|
BCC L1E0D75
|
|
LDY #$000E
|
|
LDA #$0800
|
|
CLC
|
|
ADC [$01],Y
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
L1E0D75
|
|
* PHY
|
|
* PEA $0000
|
|
* PEA $C025
|
|
* JSL L071A89
|
|
* PLA
|
|
ldal $c025 ; AV 202208
|
|
AND #$0002
|
|
BEQ L1E0D94
|
|
LDY #$000E
|
|
LDA #$1000
|
|
CLC
|
|
ADC [$01],Y
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
L1E0D94 PHY
|
|
PEA $0000
|
|
JSL L150580
|
|
PLA
|
|
LSR
|
|
BCC L1E0DAE
|
|
LDY #$000E
|
|
LDA #$0080
|
|
CLC
|
|
ADC [$01],Y
|
|
LDY #$000E
|
|
STA [$01],Y
|
|
L1E0DAE LDA $0C
|
|
STA $10
|
|
LDA $0B
|
|
STA $0F
|
|
LDA $09
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
RTL
|
|
|
|
L1E0DC0 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF2
|
|
TCS
|
|
TCD
|
|
STZ $18
|
|
LDA [$14]
|
|
LDY #$0002
|
|
ORA [$14],Y
|
|
BNE L1E0DD6
|
|
BRL L1E1038
|
|
L1E0DD6 LDA L0551B1
|
|
LDX L0551B3
|
|
CMP [$14]
|
|
BNE L1E0DE6
|
|
LDY #$0002
|
|
TXA
|
|
CMP [$14],Y
|
|
L1E0DE6 BNE L1E0E11
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA L0551B1
|
|
STX L0551B3
|
|
BRL L1E0E91
|
|
L1E0E11 LDA L0551B1
|
|
LDX L0551B3
|
|
STA $07
|
|
STX $09
|
|
L1E0E1B LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
CMP [$0B]
|
|
BNE L1E0E39
|
|
LDY #$0002
|
|
TXA
|
|
CMP [$0B],Y
|
|
L1E0E39 BEQ L1E0E55
|
|
LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA $07
|
|
STX $09
|
|
BRA L1E0E1B
|
|
L1E0E55 LDY #$0002
|
|
LDA [$07],Y
|
|
TAX
|
|
LDA [$07]
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
PHX
|
|
PHA
|
|
PLA
|
|
PLY
|
|
PLX
|
|
STX $0B
|
|
PLX
|
|
STX $0D
|
|
STA [$0B]
|
|
TYA
|
|
LDY #$0002
|
|
STA [$0B],Y
|
|
L1E0E91 LDA L0551D3
|
|
ORA L0551D5
|
|
BEQ L1E0E9C
|
|
BRL L1E0F32
|
|
L1E0E9C PHY
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E0EB8
|
|
INX
|
|
L1E0EB8 CLC
|
|
ADC #$0002
|
|
BCC L1E0EBF
|
|
INX
|
|
L1E0EBF STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
PHX
|
|
PHA
|
|
JSL L1E0965
|
|
PLA
|
|
LSR
|
|
BCC L1E0F2F
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E0EF0
|
|
INX
|
|
L1E0EF0 STA $0B
|
|
STX $0D
|
|
LDA [$0B]
|
|
PHA
|
|
JSL L151343
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E0F16
|
|
INX
|
|
L1E0F16 CLC
|
|
ADC #$0002
|
|
BCC L1E0F1D
|
|
INX
|
|
L1E0F1D STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
PHX
|
|
PHA
|
|
JSL L07185A
|
|
L1E0F2F BRL L1E1026
|
|
L1E0F32 LDA L0551CF
|
|
ORA L0551D1
|
|
BNE L1E0F54
|
|
PHY
|
|
PHY
|
|
PEA $0000
|
|
PEA $0006
|
|
LDA L055019
|
|
PHA
|
|
JSL L0B249C
|
|
PLA
|
|
STA L0551CF
|
|
PLA
|
|
STA L0551D1
|
|
BRA L1E0F79
|
|
L1E0F54 PHY
|
|
PHY
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
PHX
|
|
PHA
|
|
JSL L151301
|
|
PLA
|
|
PLX
|
|
CLC
|
|
ADC #$0006
|
|
BCC L1E0F6B
|
|
INX
|
|
L1E0F6B PHX
|
|
PHA
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
PHX
|
|
PHA
|
|
JSL L1512FB
|
|
L1E0F79 PHY
|
|
PHY
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
PHX
|
|
PHA
|
|
JSL L151301
|
|
PEA $0000
|
|
PEA $0006
|
|
JSL L150290
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA $05
|
|
LDA L0551CF
|
|
LDX L0551D1
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
PHX
|
|
PHA
|
|
LDA $05
|
|
JSL L150488
|
|
TAY
|
|
BNE L1E0FB5
|
|
DEX
|
|
L1E0FB5 DEC
|
|
PEA $0000
|
|
PEA $0006
|
|
JSL L150D50
|
|
PLA
|
|
PLX
|
|
JSL L150F53
|
|
STA $01
|
|
STX $03
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E0FE5
|
|
INX
|
|
L1E0FE5 CLC
|
|
ADC #$0002
|
|
BCC L1E0FEC
|
|
INX
|
|
L1E0FEC STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA [$01]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$01],Y
|
|
LDY #$0002
|
|
LDA [$14],Y
|
|
TAX
|
|
LDA [$14]
|
|
STA $0B
|
|
STX $0D
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
CLC
|
|
ADC #$0008
|
|
BCC L1E101B
|
|
INX
|
|
L1E101B STA $0B
|
|
STX $0D
|
|
LDA [$0B]
|
|
LDY #$0004
|
|
STA [$01],Y
|
|
L1E1026 LDY #$0002
|
|
LDA [$14],Y
|
|
PHA
|
|
LDA [$14]
|
|
PHA
|
|
JSL L07185A
|
|
LDA #$0001
|
|
STA $18
|
|
L1E1038 LDA $12
|
|
STA $16
|
|
LDA $11
|
|
STA $15
|
|
LDA $0F
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
RTL
|
|
|
|
L1E104A PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFE6
|
|
TCS
|
|
TCD
|
|
LDY #$0002
|
|
LDA [$24],Y
|
|
TAX
|
|
LDA [$24]
|
|
STA $01
|
|
STX $03
|
|
LDA #$0008
|
|
CLC
|
|
ADC $01
|
|
LDX $03
|
|
BCC L1E1069
|
|
INX
|
|
L1E1069 CLC
|
|
ADC #$0002
|
|
BCC L1E1070
|
|
INX
|
|
L1E1070 STA $17
|
|
STX $19
|
|
LDY #$0002
|
|
LDA [$17],Y
|
|
TAX
|
|
LDA [$17]
|
|
STA $0D
|
|
STX $0F
|
|
LDA $0D
|
|
ORA $0F
|
|
BNE L1E1089
|
|
BRL L1E112A
|
|
L1E1089 LDA [$0D]
|
|
LDY #$0002
|
|
ORA [$0D],Y
|
|
BNE L1E1095
|
|
BRL L1E112A
|
|
L1E1095 PHY
|
|
PHY
|
|
JSL L150493
|
|
PLA
|
|
STA $05
|
|
PLX
|
|
STX $07
|
|
LDY #$0006
|
|
LDA [$01],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$01],Y
|
|
PHA
|
|
JSL L151131
|
|
LDA L055205
|
|
STA $11
|
|
LDA #$0001
|
|
STA L055205
|
|
LDA L0551D3
|
|
LDX L0551D5
|
|
STA $09
|
|
STX $0B
|
|
LDA $0D
|
|
LDX $0F
|
|
STA L0551D3
|
|
STX L0551D5
|
|
LDA L0551D7
|
|
STA $15
|
|
LDY #$0008
|
|
LDA [$01],Y
|
|
STA L0551D7
|
|
LDA L0551DB
|
|
STA $13
|
|
LDY #$0002
|
|
LDA [$0D],Y
|
|
PHA
|
|
LDA [$0D]
|
|
PHA
|
|
PEI $22
|
|
PEI $20
|
|
JSL L0B4245
|
|
LDA $11
|
|
STA L055205
|
|
LDA $15
|
|
STA L0551D7
|
|
LDA $09
|
|
LDX $0B
|
|
STA L0551D3
|
|
STX L0551D5
|
|
PEI $07
|
|
PEI $05
|
|
JSL L151131
|
|
LDA L0551DB
|
|
SEC
|
|
SBC $13
|
|
BEQ L1E1121
|
|
BVS L1E111B
|
|
EOR #$8000
|
|
L1E111B BPL L1E1121
|
|
JSL L1E113C
|
|
L1E1121 LDA $13
|
|
STA L0551DB
|
|
JSL L1E0276
|
|
L1E112A LDA $1E
|
|
STA $26
|
|
LDA $1D
|
|
STA $25
|
|
LDA $1B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0024
|
|
TCS
|
|
RTL
|
|
|
|
L1E113C ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFEA
|
|
TCS
|
|
TCD
|
|
LDA L0551B1
|
|
LDX L0551B3
|
|
STA $0B
|
|
STX $0D
|
|
L1E114E LDA $0B
|
|
ORA $0D
|
|
BNE L1E1157
|
|
BRL L1E11E2
|
|
L1E1157 LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA $13
|
|
STX $15
|
|
LDY #$0002
|
|
LDA [$13],Y
|
|
TAX
|
|
LDA [$13]
|
|
STA $0F
|
|
STX $11
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
STA $01
|
|
STX $03
|
|
LDY #$0038
|
|
LDA [$01],Y
|
|
BEQ L1E11D7
|
|
LDA #$0000
|
|
LDY #$0038
|
|
STA [$01],Y
|
|
LDY #$0002
|
|
LDA [$0B],Y
|
|
TAX
|
|
LDA [$0B]
|
|
CLC
|
|
ADC #$0004
|
|
BCC L1E1199
|
|
INX
|
|
L1E1199 STA $13
|
|
STX $15
|
|
LDY #$0002
|
|
LDA [$13],Y
|
|
TAX
|
|
LDA [$13]
|
|
STA $05
|
|
STX $07
|
|
PEI $0D
|
|
PEI $0B
|
|
PEA $03E8
|
|
TDC
|
|
CLC
|
|
ADC #$0009
|
|
PEA $0000
|
|
PHA
|
|
JSL L1E11EA
|
|
PHY
|
|
PHY
|
|
PEI $07
|
|
PEI $05
|
|
JSL L0A1421
|
|
PLA
|
|
PLX
|
|
STX $13
|
|
ORA $13
|
|
BEQ L1E11D7
|
|
PEI $07
|
|
PEI $05
|
|
JSL L09B242
|
|
L1E11D7 LDA $0F
|
|
LDX $11
|
|
STA $0B
|
|
STX $0D
|
|
BRL L1E114E
|
|
L1E11E2 TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L1E11EA ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFCE
|
|
TCS
|
|
TCD
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L1E0CB3
|
|
LDA $3C
|
|
STA $01
|
|
PEI $40
|
|
PEI $3E
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEI $3A
|
|
PEI $38
|
|
JSL L1E0000
|
|
LDA $36
|
|
STA $40
|
|
LDA $35
|
|
STA $3F
|
|
LDA $33
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$003E
|
|
TCS
|
|
RTL
|
|
|
|
L1E1236 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $05
|
|
PHY
|
|
PHY
|
|
PEI $16
|
|
PEI $14
|
|
JSL L0A1421
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $01
|
|
ORA $03
|
|
BEQ L1E127B
|
|
LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$002E
|
|
BCC L1E126B
|
|
INX
|
|
L1E126B STA $07
|
|
STX $09
|
|
LDA $10
|
|
LDX $12
|
|
STA [$07]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$07],Y
|
|
L1E127B PEI $05
|
|
JSL L071AA4
|
|
LDA $0E
|
|
STA $16
|
|
LDA $0D
|
|
STA $15
|
|
LDA $0B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
RTL
|
|
|
|
L1E1293 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF6
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $05
|
|
PHY
|
|
PHY
|
|
PEI $16
|
|
PEI $14
|
|
JSL L0A1421
|
|
PLA
|
|
STA $01
|
|
PLX
|
|
STX $03
|
|
LDA $01
|
|
ORA $03
|
|
BNE L1E12BB
|
|
BRA L1E12E0
|
|
L1E12BB LDY #$0002
|
|
LDA [$01],Y
|
|
TAX
|
|
LDA [$01]
|
|
CLC
|
|
ADC #$003E
|
|
BCC L1E12CA
|
|
INX
|
|
L1E12CA STA $07
|
|
STX $09
|
|
LDA $10
|
|
LDX $12
|
|
STA [$07]
|
|
TXA
|
|
LDY #$0002
|
|
STA [$07],Y
|
|
PEI $05
|
|
JSL L071AA4
|
|
L1E12E0 LDA $0E
|
|
STA $16
|
|
LDA $0D
|
|
STA $15
|
|
LDA $0B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0014
|
|
TCS
|
|
RTL
|
|
|
|
L1E12F2 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PEA $0001
|
|
JSL L1E07C9
|
|
PLY
|
|
PLY
|
|
PLD
|
|
RTL
|
|
|
|
L1E1305 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
PHY
|
|
PEI $0C
|
|
PEI $0A
|
|
JSL L0B0653
|
|
PLA
|
|
BNE L1E1332
|
|
PHA
|
|
PHY
|
|
PHY
|
|
PEI $0C
|
|
PEI $0A
|
|
JSL L0A1421
|
|
PLA
|
|
PLX
|
|
STX $01
|
|
ORA $01
|
|
BEQ L1E132F
|
|
LDA #$0001
|
|
L1E132F ORA $01,S
|
|
PLX
|
|
L1E1332 STA $0E
|
|
LDA $08
|
|
STA $0C
|
|
LDA $07
|
|
STA $0B
|
|
LDA $05
|
|
TCD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
RTL
|
|
|
|
L1E1345 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF2
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L071BFF
|
|
PLA
|
|
STA $09
|
|
PHY
|
|
PHY
|
|
PEI $1A
|
|
PEI $18
|
|
JSL L0A1421
|
|
PLA
|
|
STA $05
|
|
PLX
|
|
STX $07
|
|
LDA $05
|
|
ORA $07
|
|
BEQ L1E1385
|
|
LDY #$0002
|
|
LDA [$05],Y
|
|
TAX
|
|
LDA [$05]
|
|
STA $01
|
|
STX $03
|
|
LDA $16
|
|
LDY #$003A
|
|
STA [$01],Y
|
|
LDA $14
|
|
LDY #$003C
|
|
STA [$01],Y
|
|
L1E1385 PEI $09
|
|
JSL L071AA4
|
|
LDA $12
|
|
STA $1A
|
|
LDA $11
|
|
STA $19
|
|
LDA $0F
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0018
|
|
TCS
|
|
RTL
|
|
|