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

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