antoine-source/hypercardiigs/BrowseOnly.S

2733 lines
51 KiB
ArmAsm

*
* HypercardGS
* segment: $14 BrowseOnly
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk BrowseOnly.l
lst off
*---------------------------------------
use BrowseOnly.E
use BrowseOnly.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
*---------------------------------------
L140000 PHD
TSC
CLC
ADC #$FF38
TCS
TCD
PHY
JSL L095FB4
PLA
LSR
BCS L14001B
PEA $0041
JSL L0727E0
BRL L1406B3
L14001B LDA L0550F3
BEQ L14002D
PEA ^L04022A
PEA L04022A
JSL L07010A
BRL L1406B3
L14002D LDA L055121
ORA L055123
BEQ L140047
LDA L055121
LDX L055123
PHX
PHA
JSL L15106B
STZ L055121
STZ L055123
L140047 PHY
PEI $D2
PEI $D0
PEI $CE
PEA ^L05328B
PEA L05328B
JSL L07ABAE
PLA
LSR
BCS L140068
STZ L055121
STZ L055123
STZ L05511F
BRL L1406B3
L140068 LDA $D0
LDX $D2
STA L055129
STX L05512B
LDA L055027
LDX L055029
STA L055125
STX L055127
LDA L05501F
LDX L055021
CMP $D0
BNE L14008A
CPX $D2
L14008A BEQ L140091
LDA #$0000
BRA L140094
L140091 LDA #$0001
L140094 STA $C1
PEA ^L05328B
PEA L05328B
PEI $C1
TDC
CLC
ADC #$00B9
PEA $0000
PHA
JSL L083B58
LDX #$0000
LDA #$000F
ANDL L053299
CMP #$0007
BNE L1400BB
INX
L1400BB TXA
STA $C3
LDAL L05328D
STA $AF
LDA $C1
BNE L1400D0
LDA $AF
EOR #$FFFF
INC
STA $AF
L1400D0 LDA #$4000
ANDL L05328F
BEQ L1400DC
LDA #$0001
L1400DC AND $C1
STA $AD
STZ $9D
STZ $9F
STZ $A5
STZ $A7
STZ $A1
STZ $A3
PHY
PHY
LDA L05501F
LDX L055021
PHX
PHA
JSL L07721A
PLA
STA $A5
PLX
STX $A7
PHY
PHY
LDA L055027
LDX L055029
PHX
PHA
JSL L0772AE
PLA
STA $A1
PLX
STX $A3
LDA $A5
ORA $A7
BEQ L140138
LDA $A1
ORA $A3
BEQ L140138
PHY
PHY
PEI $A7
PEI $A5
PEI $A3
PEI $A1
PEI $AF
PEI $AD
JSL L07B038
PLA
STA $9D
PLX
STX $9F
L140138 LDA $9D
ORA $9F
BNE L140148
LDA #L053251
LDX #^L053251
STA $9D
STX $9F
L140148 LDA L0550F5
LDX L0550F7
STA $A9
STX $AB
TDC
CLC
ADC #$009D
PEA $0000
PHA
TDC
CLC
ADC #$00A9
PEA $0000
PHA
JSL L070669
LDA #$0001
STA L0550F1
LDA $A1
ORA $A3
BEQ L140183
LDA L055027
LDX L055029
PHX
PHA
PEA $0000
JSL L074A90
L140183 LDA $A5
ORA $A7
BEQ L140198
LDA L05501F
LDX L055021
PHX
PHA
PEA $0000
JSL L074A24
L140198 PEA ^L053291
PEA L053291
TDC
CLC
ADC #$00B1
PEA $0000
PHA
JSL L0808E0
LDA #$000F
ANDL L053299
CMP #$0004
BNE L1401C2
LDA $B7
DEC
DEC
STA $B7
LDA $B5
DEC
STA $B5
L1401C2 TDC
CLC
ADC #$00B1
PEA $0000
PHA
PEA $0002
PEA $0001
JSL L151005
STZ L055425
LDA L054FBB
SEC
SBC #$0000
BPL L140212
LDA #$00FA
SEC
SBC $B1
STA L055425
TDC
CLC
ADC #$00B1
PEA $0000
PHA
PEA $0000
LDA L055425
PHA
JSL L1501AF
TDC
CLC
ADC #$00B9
PEA $0000
PHA
PEA $0000
LDA L055425
PHA
JSL L1501AF
L140212 TDC
CLC
ADC #$001D
PEA $0000
PHA
PEA $0000
PEA $0056
JSL L071EC5
LDA #$0017
STA $1D
TDC
CLC
ADC #$0023
PEA $0000
PHA
TDC
CLC
ADC #$00B1
PEA $0000
PHA
PEA $0008
JSL L0313BE
LDA #$0000
LDX #$8500
STA $2B
STX $2D
LDA #$0080
STA $2F
LDA #$1400
STA $31
LDA #$0000
LDX #$E000
STA $37
STX $39
LDA $B9
SEC
SBC $B1
STA $3B
LDA $B5
SEC
SBC $BD
STA $3F
LDAL L0532AB
STA $47
LDA #$0001
STA $53
LDA #L053251
LDX #^L053251
STA $55
STX $57
LDA #$7530
LDX #$0000
STA $5D
STX $5F
LDA #L053271
LDX #^L053271
STA $69
STX $6B
LDA #$0004
STA $6D
LDA $C3
BEQ L1402AB
LDA #$FFFF
TAX
STA $43
STX $45
BRA L1402C1
L1402AB PHY
PHY
PEI $39
PEI $37
PEA $0800
PEA $0000
JSL L150241
PLA
STA $37
PLX
STX $39
L1402C1 LDA #$00FF
ANDL L0532AD
STA $8F
PEA $000F
LDA #$00FF
ANDL L05329F
STA $C5
PLA
SEC
SBC $C5
STA $8D
PEA ^L053271
PEA L053271
PEA $0000
PEA $001A
JSL L071EC5
PHY
PEI $8D
JSL L081A92
PLA
STAL L053271
PHY
PEI $8F
JSL L081A92
PLA
STAL L053273
LDA $8F
ASL
ASL
ASL
ASL
STAL L053261
LDA $8D
ASL
ASL
ASL
ASL
STAL L053267
LDA $8F
ORAL L053267
STAL L053263
LDAL L053263
STAL L053265
LDAL L053267
STAL L053269
LDA #$0100
ORAL L053263
STAL L05326D
LDAL L053267
STAL L05326F
LDA $C3
BEQ L1403A0
LDA L0550ED
LDX L0550EF
CLC
ADC #$0018
BCC L140356
INX
L140356 STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $19
STX $1B
TDC
CLC
ADC #$0095
PEA $0000
PHA
LDA #$0002
CLC
ADC $19
LDX $1B
BCC L140386
INX
L140386 PHX
PHA
PEA $0008
JSL L0313BE
LDA #$0002
CLC
ADC $19
LDX $1B
BCC L14039A
INX
L14039A PHX
PHA
JSL L08273B
L1403A0 PHY
PHY
TDC
CLC
ADC #$001D
PEA $0000
PHA
JSL L1512EF
PLA
STA L055121
PLA
STA L055123
LDAL L05565D
BEQ L140413
STZ L055121
STZ L055123
LDA L0550ED
LDX L0550EF
CLC
ADC #$0018
BCC L1403D0
INX
L1403D0 STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $15
STX $17
LDA #$0002
CLC
ADC $15
LDX $17
BCC L1403F7
INX
L1403F7 PHX
PHA
TDC
CLC
ADC #$0095
PEA $0000
PHA
PEA $0008
JSL L0313BE
PEA $0035
JSL L0727E0
BRL L1406B3
L140413 LDA $C3
BEQ L140461
LDA L055121
LDX L055123
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
CLC
ADC #$0092
BCC L140430
INX
L140430 STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
CLC
ADC #$0024
BCC L14044F
INX
L14044F STA $C5
STX $C7
LDA #L053261
LDX #^L053261
STA [$C5]
TXA
LDY #$0002
STA [$C5],Y
L140461 LDAL L0532A5
STA $73
LDAL L0532A9
SEP #$20
STA $75
REP #$20
LDAL L0532A7
SEP #$20
STA $76
REP #$20
PHY
LDA #$00FF
ANDL L0532AE
PHA
JSL L081A92
PLA
STA $77
PEA $0072
TDC
CLC
ADC #$0073
PEA $0000
PHA
LDA L055121
LDX L055123
PHX
PHA
JSL L151077
PEA $0003
TDC
CLC
ADC #$0087
PEA $0000
PHA
LDA L055121
LDX L055123
PHX
PHA
JSL L15011A
LDAL L05565D
BEQ L1404C4
BRL L140556
L1404C4 LDY #$0002
LDA [$87],Y
TAX
LDA [$87]
STA $11
STX $13
LDAL L0532A3
LDY #$0006
STA [$11],Y
LDA $BB
SEC
SBC $B3
STA $8B
LDA $8B
STA [$11]
LDA $8B
LDY #$0002
STA [$11],Y
LDA $BF
SEC
SBC $B3
STA $8B
LDA $C3
BEQ L1404FE
LDA $8B
SEC
SBC #$001A
STA $8B
L1404FE LDA $8B
LDY #$0004
STA [$11],Y
PEI $75
PEI $73
PEA $0000
JSL L151663
TDC
CLC
ADC #$007F
PEA $0000
PHA
JSL L150178
LDA $81
CLC
ADC $7F
CLC
ADC $85
STA $C5
LDAL L0532AB
SEC
SBC $C5
LDY #$0008
STA [$11],Y
LDA #$0000
LDY #$0010
STA [$11],Y
PEA $0001
PEI $89
PEI $87
LDA L055121
LDX L055123
PHX
PHA
JSL L150114
PEI $89
PEI $87
JSL L07185A
L140556 PEA $0001
LDA L0550F5
LDX L0550F7
PHX
PHA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
PEA $0000
LDA L055121
LDX L055123
PHX
PHA
JSL L151645
LDA $C3
BNE L140583
BRL L1406B3
L140583 LDA L055121
LDX L055123
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
CLC
ADC #$0092
BCC L14059C
INX
L14059C STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $0D
STX $0F
LDA #$0008
CLC
ADC $0D
LDX $0F
BCC L1405C3
INX
L1405C3 STA $09
STX $0B
LDA [$09]
DEC
STA [$09]
LDY #$0002
LDA [$09],Y
INC
INC
LDY #$0002
STA [$09],Y
LDY #$0004
LDA [$09],Y
INC
LDY #$0004
STA [$09],Y
LDY #$0006
LDA [$09],Y
INC
INC
LDY #$0006
STA [$09],Y
LDA #$0028
CLC
ADC $0D
LDX $0F
BCC L1405FA
INX
L1405FA PHX
PHA
PEA $0002
PEA $FFFF
JSL L1501AF
LDA #$0030
CLC
ADC $0D
LDX $0F
BCC L140611
INX
L140611 STA $05
STX $07
LDA [$05]
DEC
STA [$05]
LDY #$0002
LDA [$05],Y
INC
INC
LDY #$0002
STA [$05],Y
LDY #$0004
LDA [$05],Y
INC
LDY #$0004
STA [$05],Y
LDY #$0006
LDA [$05],Y
INC
INC
LDY #$0006
STA [$05],Y
PHY
PHY
PEA $0004
PHY
PEI $AF
JSL L086029
PLA
LDX #$0000
BIT #$8000
BEQ L140653
DEX
L140653 PHX
PHA
PEA $0000
PEA $0000
LDA L055121
LDX L055123
PHX
PHA
JSL L1505C2
PLA
STA $91
PLX
STX $93
LDA L0550ED
LDX L0550EF
CLC
ADC #$0018
BCC L14067A
INX
L14067A STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $C5
STX $C7
LDY #$0002
LDA [$C5],Y
TAX
LDA [$C5]
STA $01
STX $03
LDA #$0002
CLC
ADC $01
LDX $03
BCC L1406A1
INX
L1406A1 PHX
PHA
TDC
CLC
ADC #$0095
PEA $0000
PHA
PEA $0008
JSL L0313BE
L1406B3 LDA $CC
STA $D2
LDA $CB
STA $D1
LDA $C9
TCD
TSC
CLC
ADC #$00D0
TCS
RTL
L1406C5 PHD
TSC
CLC
ADC #$FFC2
TCS
TCD
LDA L05543B
LDX L05543D
CMP L055039
BNE L1406DB
CPX L05503B
L1406DB BEQ L14070B
PEA ^L050060
PEA L050060
PEA $0000
PEA $002A
JSL L071EC5
STZ L055447
STZ L055449
STZ L055443
STZ L055445
STZ L05543F
STZ L055441
LDA L055039
LDX L05503B
STA L05543B
STX L05543D
L14070B TDC
CLC
ADC #$0011
PEA $0000
PHA
PEA ^L050060
PEA L050060
PEA $002A
JSL L0313BE
LDA L055447
LDX L055449
STA $0D
STX $0F
LDA L055443
LDX L055445
STA $09
STX $0B
LDA L05543F
LDX L055441
STA $05
STX $07
PHY
LDAL L05008C
PHA
LDAL L05008A
PHA
PEA $0000
PEA ^L055447
PEA L055447
PEA ^L050060
PEA L050060
JSL L0A2034
PLA
STA $03
LDA L055027
LDX L055029
STA L055443
STX L055445
LDA L05501F
LDX L055021
STA L05543F
STX L055441
STZ L055211
STZ L05520F
LDX #$0000
LDA #$000F
ANDL L050064
DEC
DEC
BNE L14078D
INX
L14078D PHX
LDA L055153
EOR #$0001
AND $01,S
PLX
LSR
BCS L14079D
BRL L140828
L14079D LDAL L05006E
AND #$000F
STA $01
LDX #$0000
LDA #$0007
CMP $01
BNE L1407B1
INX
L1407B1 PHX
LDAL L05008C
PHA
LDAL L05006C
SEC
SBC #$000D
ASL
PHA
PLA
LDX #$0001
SEC
SBC $01,S
BVS L1407CD
EOR #$8000
L1407CD BPL L1407D0
DEX
L1407D0 PLA
TXA
AND $01,S
PLX
LSR
BCC L1407E0
LDA #$0001
STA L05520F
BRA L140828
L1407E0 LDX #$0000
LDA L0550BB
DEC
BNE L1407EA
INX
L1407EA PHX
LDA L0551FB
SEC
SBC #$0001
BEQ L1407FB
BVS L1407F9
EOR #$8000
L1407F9 BMI L140800
L1407FB LDA #$0000
BRA L140803
L140800 LDA #$0001
L140803 AND $01,S
PLX
PHA
PHY
JSL L090A90
PLA
EOR #$0001
AND $01,S
PLX
PHA
LDX #$0000
LDAL L05006E
AND #$1000
BNE L140821
INX
L140821 TXA
AND $01,S
PLX
STA L055211
L140828 LDA $44
EOR #$0001
ORA L055153
BEQ L140835
BRL L14091B
L140835 PHY
PHY
JSL L15035F
LDA L054FA9
LDX L054FAB
CLC
ADC #$012C
BCC L140848
INX
L140848 JSL L033477
BVS L140851
EOR #$8000
L140851 BMI L14088B
LDA L054FA7
BNE L14085B
BRL L14091B
L14085B LDA L054FA3
ORA L054FA5
BNE L140866
BRL L14091B
L140866 PHY
PHY
LDA L054FA3
LDX L054FA5
STA $3B
STX $3D
LDY #$0002
LDA [$3B],Y
TAX
LDA [$3B]
PHX
PHA
JSL L071C98
PLA
PLX
STX $3B
ORA $3B
BNE L14088B
BRL L14091B
L14088B LDA $0D
LDX $0F
CMP L055447
BNE L140897
CPX L055449
L140897 BEQ L14089E
LDA #$0000
BRA L1408A1
L14089E LDA #$0001
L1408A1 PHA
LDX #$0000
LDA $13
CMPL L050062
BNE L1408AE
INX
L1408AE TXA
AND $01,S
PLX
LSR
BCC L1408DB
PEA $0018
LDA L055447
LDX L055449
PHX
PHA
LDAL L050062
PHA
LDA L055443
LDX L055445
PHX
PHA
LDA L05543F
LDX L055441
PHX
PHA
JSL L0998E6
BRA L140914
L1408DB PEA $0019
PEI $0F
PEI $0D
PEI $13
PEI $0B
PEI $09
PEI $07
PEI $05
JSL L0998E6
PEA $0017
LDA L055447
LDX L055449
PHX
PHA
LDAL L050062
PHA
LDA L055443
LDX L055445
PHX
PHA
LDA L05543F
LDX L055441
PHX
PHA
JSL L0998E6
L140914 PEA $0016
JSL L0998B0
L14091B LDA $42
STA $44
LDA $41
STA $43
LDA $3F
TCD
TSC
CLC
ADC #$0042
TCS
RTL
L14092D ENT
PHD
TSC
CLC
ADC #$FDB6
TCS
ADC #$0153
TCD
JSL L093F21
LDA L0551FB
SEC
SBC #$0001
BEQ L14094C
BVS L14094A
EOR #$8000
L14094A BMI L140951
L14094C LDA #$0000
BRA L140954
L140951 LDA #$0001
L140954 PHA
LDA L055051
EOR #$0001
AND $01,S
PLX
STA $F1
LDA L0551FB
SEC
SBC #$0001
BEQ L140970
BVS L14096E
EOR #$8000
L14096E BMI L140975
L140970 LDA #$0000
BRA L140978
L140975 LDA #$0001
L140978 PHA
LDA L055243
ORA $F1
AND $01,S
PLX
STA $EF
LDA L054FB5
EOR #$0001
ORA $EF
ORA L0551F3
STA $ED
STZ $EB
LDA L0551FB
SEC
SBC #$0002
BEQ L1409A2
BVS L1409A0
EOR #$8000
L1409A0 BMI L1409A7
L1409A2 LDA #$0000
BRA L1409AA
L1409A7 LDA #$0001
L1409AA AND $ED
PHA
LDA L0551FB
SEC
SBC #$0002
BEQ L1409C2
BVS L1409BB
EOR #$8000
L1409BB BPL L1409C2
LDA #$0000
BRA L1409C5
L1409C2 LDA #$0001
L1409C5 AND $ED
PHA
LDX #$0000
LDA L0551E9
BNE L1409D1
INX
L1409D1 PHX
LDX #$0000
LDA #$1601
CMP L0551E9
BNE L1409DE
INX
L1409DE TXA
ORA $01,S
PLX
AND $01,S
PLX
ORA $01,S
PLX
LSR
BCC L1409F0
LDA #$0001
STA $EB
L1409F0 PEI $EB
PEA $00FD
JSL L073077
PEA ^L05259E
PEA L05259E
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $0007
JSL L073002
PEA ^L052CCE
PEA L052CCE
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05254E
PEA L05254E
PEA ^L040265
PEA L040265
PEA ^L052CBA
PEA L052CBA
TDC
CLC
ADC #$0097
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05259E
PEA L05259E
PEA $00FD
JSL L15039B
LDA L054FB5
EOR #$0001
STA $E9
LDAL L04026C
SEP #$20
STA $C5
REP #$20
LDAL L04026D
SEP #$20
STA $B1
REP #$20
LDA L054FB5
BNE L140A86
BRL L140BF7
L140A86 STZ $E7
LDA L0551F3
BEQ L140AE2
LDA L055111
LDX L055113
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
TXY
LDX #$FFAD
STA $00,X
TYA
STA $02,X
LDX #$FFAD
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$0020
BCC L140AB8
INX
L140AB8 STA $F3
STX $F5
LDA [$F3]
PHA
LDX #$FFAD
LDA $02,X
TAY
LDA $00,X
TYX
CLC
ADC #$0022
BCC L140ACF
INX
L140ACF STA $F3
STX $F5
PLA
CMP [$F3]
BNE L140ADD
LDA #$0000
BRA L140AE0
L140ADD LDA #$0001
L140AE0 STA $E7
L140AE2 LDA L05511F
BEQ L140B27
TDC
CLC
ADC #$00DD
PEA $0000
PHA
TDC
CLC
ADC #$00D9
PEA $0000
PHA
LDA L055121
LDX L055123
PHX
PHA
JSL L150000
PEI $E7
PEI $DF
PEI $DD
LDA $D9
LDX $DB
JSL L033477
BVS L140B18
EOR #$8000
L140B18 BPL L140B1F
LDA #$0000
BRA L140B22
L140B1F LDA #$0001
L140B22 ORA $01,S
PLX
STA $E7
L140B27 LDA $E7
BEQ L140B66
LDA #$0001
STA $E9
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $0008
JSL L073002
PEA $0014
JSL L0313BE
TDC
CLC
ADC #$00B1
PEA $0000
PHA
PEA ^L04026E
PEA L04026E
PEA $0005
JSL L0313BE
L140B66 LDAL L052D34
BNE L140B6F
BRL L140BF7
L140B6F LDA #$0001
STA $E9
LDA #$000F
ANDL L052D36
DEC
BNE L140BB6
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $000B
JSL L073002
PEA $0014
JSL L0313BE
TDC
CLC
ADC #$00B1
PEA $0000
PHA
PEA ^L040273
PEA L040273
PEA $0007
JSL L0313BE
BRA L140BF7
L140BB6 LDA #$000F
ANDL L052D36
DEC
DEC
BNE L140BF7
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $000C
JSL L073002
PEA $0014
JSL L0313BE
TDC
CLC
ADC #$00B1
PEA $0000
PHA
PEA ^L04027A
PEA L04027A
PEA $0006
JSL L0313BE
L140BF7 PEA ^L0525C6
PEA L0525C6
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $0004
JSL L073002
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L052576
PEA L052576
PEA ^L040280
PEA L040280
TDC
CLC
ADC #$00B1
PEA $0000
PHA
TDC
CLC
ADC #$0099
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L0525B2
PEA L0525B2
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $0005
JSL L073002
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L052562
PEA L052562
PEA ^L040285
PEA L040285
TDC
CLC
ADC #$00B1
PEA $0000
PHA
TDC
CLC
ADC #$0097
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05258A
PEA L05258A
PEA $0000
TDC
CLC
ADC #$FEAD
PHA
PEA $0006
JSL L073002
TDC
CLC
ADC #$00C5
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$FFB1
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L05253A
PEA L05253A
PEA ^L04028B
PEA L04028B
TDC
CLC
ADC #$00B1
PEA $0000
PHA
TDC
CLC
ADC #$0097
PEA $0000
PHA
PEA $0002
JSL L1509CE
PEA $0014
JSL L0313BE
PEA ^L0525C6
PEA L0525C6
PEA $00FB
JSL L15039B
PEA ^L0525B2
PEA L0525B2
PEA $00FC
JSL L15039B
PEA ^L05258A
PEA L05258A
PEA $00FE
JSL L15039B
LDA L054FB5
BEQ L140D66
LDA L0551CB
ORA L0551CD
BEQ L140D54
LDA #$0001
L140D54 ORA L05511F
PHA
LDAL L05000A
BEQ L140D61
LDA #$0001
L140D61 ORA $01,S
PLX
STA $E3
L140D66 PEI $E9
PEA $00FC
JSL L073077
LDA $ED
AND $E9
PHA
PEA $00FB
JSL L073077
LDA $ED
AND $E9
PHA
PEA $00FE
JSL L073077
PEI $E3
PEA $00FA
JSL L073077
PEI $F1
PEA $01FC
JSL L073077
PEI $F1
PEA $051C
JSL L073077
PEI $F1
PEA $01FD
JSL L073077
PEI $F1
PEA $051D
JSL L073077
PEI $F1
PEA $01FE
JSL L073077
PEI $F1
PEA $032C
JSL L073077
PEI $F1
PEA $0195
JSL L073077
LDX #$0000
LDA #$4000
ANDL L053AE9
BNE L140DDC
INX
L140DDC PHX
LDA L05504F
EOR #$0001
AND $01,S
PLX
STA $E1
PEI $E1
PEA $0197
JSL L073077
LDAL L052D34
BEQ L140DFA
LDA #$0001
L140DFA ORA L05511F
AND $EF
PHA
PEA $0201
JSL L073077
LDA L055153
PHA
PEA $0202
JSL L15167B
LDAL L052D34
BEQ L140E1B
LDA #$0001
L140E1B AND $EF
STA $E5
PEI $E5
PEA $0327
JSL L073077
PEI $E5
PEA $0328
JSL L073077
LDX #$0000
LDA #$000F
ANDL L052D36
DEC
BNE L140E3F
INX
L140E3F PHX
PEA $0321
JSL L073077
LDX #$0000
LDA #$000F
ANDL L052D36
DEC
DEC
BNE L140E56
INX
L140E56 TXA
ORA L05511F
PHA
PEA $0322
JSL L073077
PEI $EF
PEA $032A
JSL L073077
PEI $EF
PEA $032B
JSL L073077
PEA $0000
PEA $0000
PEA $01F4
JSL L1505D4
PEA $0000
PEA $0000
PEA $0514
JSL L1505D4
TSC
CLC
ADC #$024A
TCS
PLD
RTL
L140E96 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
JSL L0A3283
JSL L0903F2
PEA $0000
PEA $0000
JSL L090000
LDA L055153
EOR #$0001
STA L055153
PEA ^L053259
PEA L053259
JSL L085216
PEA ^L053259
PEA L053259
JSL L087BAE
JSL L083E9E
JSL L087268
TSC
CLC
ADC #$000C
TCS
PLD
RTL
L140EDD ENT
PHD
TSC
CLC
ADC #$FFDE
TCS
TCD
LDA L055235
STA $0D
LDA L055237
STA $0B
LDA L055239
STA $09
LDA L05523B
STA $07
LDA L055211
STA $17
LDA L05520F
STA $15
PHY
JSL L099DCE
PLA
STA L055235
PHY
JSL L09771E
PLA
STA L055237
PHY
JSL L090A90
PLA
STA L055239
PHY
JSL L0903C7
PLA
STA L05523B
LDA $2A
LDX $2C
STAL L05008A
TXA
STAL L05008C
PEI $28
JSL L1406C5
LDA $0D
CMP L055235
BEQ L140F47
LDA #$0001
STA L0551EB
L140F47 LDA L05520D
STA $13
LDA L055209
STA $11
LDA L05524B
BEQ L140F67
LDA #$0013
STA $19
LDA L0550ED
LDX L0550EF
STA $1B
STX $1D
BRA L140F7C
L140F67 PHY
TDC
CLC
ADC #$001B
PEA $0000
PHA
PEI $2C
PEI $2A
JSL L150B9A
PLA
STA $19
L140F7C PHY
PEI $1D
PEI $1B
JSL L0A12DB
PLA
LSR
BCC L140F92
LDA #$0001
STA L054F9F
BRL L14110C
L140F92 STZ L05520D
STZ L055209
LDA #$0013
CMP $19
BNE L140FD1
LDA L0550E1
LDX L0550E3
CMP $1B
BNE L140FAB
CPX $1D
L140FAB BEQ L140FB2
LDA #$0000
BRA L140FB5
L140FB2 LDA #$0001
L140FB5 STA L05520D
LDA L0550ED
LDX L0550EF
CMP $1B
BNE L140FC4
CPX $1D
L140FC4 BEQ L140FCB
LDA #$0000
BRA L140FCE
L140FCB LDA #$0001
L140FCE STA L055209
L140FD1 LDA L05520B
STA $0F
LDA L05520D
STA L05520B
LDA L05520D
BEQ L14101A
LDA L0550E1
LDX L0550E3
PHX
PHA
JSL L151131
LDA $2A
LDX $2C
STA $01
STX $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150BE8
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA ^L053249
PEA L053249
JSL L1512CB
PLA
STA L05520B
L14101A LDA L054F9F
BNE L14102F
PHA
LDX #$0000
LDA $0D
CMP L055235
BEQ L14102B
INX
L14102B TXA
ORA $01,S
PLX
L14102F PHA
PLA
BNE L141043
PHA
LDX #$0000
LDA $0B
CMP L055237
BEQ L14103F
INX
L14103F TXA
ORA $01,S
PLX
L141043 PHA
PLA
BNE L141057
PHA
LDX #$0000
LDA $09
CMP L055239
BEQ L141053
INX
L141053 TXA
ORA $01,S
PLX
L141057 PHA
PLA
BNE L14106B
PHA
LDX #$0000
LDA $17
CMP L055211
BEQ L141067
INX
L141067 TXA
ORA $01,S
PLX
L14106B PHA
PLA
BNE L14107F
PHA
LDX #$0000
LDA $11
CMP L055209
BEQ L14107B
INX
L14107B TXA
ORA $01,S
PLX
L14107F PHA
PLA
BNE L141093
PHA
LDX #$0000
LDA $0F
CMP L05520B
BEQ L14108F
INX
L14108F TXA
ORA $01,S
PLX
L141093 CMP #$0000
BNE L1410A6
LDX #$0000
LDA $15
CMP L05520F
BEQ L1410A3
INX
L1410A3 TXA
BEQ L14110C
L1410A6 LDA #$0004
STA $05
LDA L05520B
BEQ L1410B5
LDA #$0008
STA $05
L1410B5 LDA L055209
BEQ L1410EF
LDA L0550BB
DEC
BNE L1410DF
LDA L055211
BEQ L1410CC
LDA #$0008
STA $05
BRA L1410DD
L1410CC LDA L05520F
BEQ L1410D8
LDA #$0004
STA $05
BRA L1410DD
L1410D8 LDA #$0005
STA $05
L1410DD BRA L1410EF
L1410DF LDA L055237
EOR #$0001
AND L055239
BEQ L1410EF
LDA #$0007
STA $05
L1410EF LDA L054F9F
BEQ L141103
LDA L054FBB
SEC
SBC #$0000
BMI L141103
LDA #$FFFF
STA L054FA1
L141103 STZ L054F9F
PEI $05
JSL L0724F7
L14110C LDA $26
STA $2C
LDA $25
STA $2B
LDA $23
TCD
TSC
CLC
ADC #$002A
TCS
RTL
L14111E ENT
PHD
TSC
CLC
ADC #$FFE6
TCS
TCD
LDA L055423
STA $15
LDA L054FB7
LDX L054FB9
STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
PHX
PHA
PEA $0000
PEA $0004
JSL L150290
PLY
PLY
PLY
PLY
AND #$000F
STA L055423
LDA $15
CMP L055423
BNE L14115D
BRL L1412E6
L14115D PEA ^L05312F
PEA L05312F
JSL L151131
JSL L1510A1
PEA $0002
PEA $0001
JSL L151083
PEA ^L054F6B
PEA L054F6B
JSL L082570
PEA ^L054F6B
PEA L054F6B
JSL L151198
PEA ^L052D38
PEA L052D38
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L0808E0
TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L151418
JSL L1510A1
PEA ^L05312F
PEA L05312F
JSL L151131
TDC
CLC
ADC #$000D
PEA $0000
PHA
LDAL L05314D
TAX
LDAL L05314B
STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$0002
BCC L1411DC
INX
L1411DC PHX
PHA
PEA $0008
JSL L0313BE
LDAL L05314D
TAX
LDAL L05314B
STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$0002
BCC L141201
INX
L141201 PHX
PHA
TDC
CLC
ADC #$0005
PEA $0000
PHA
PEA $0008
JSL L0313BE
LDA L05501F
LDX L055021
CMP L0551F5
BNE L141221
CPX L0551F7
L141221 BNE L141299
LDAL L052D34
PHA
PEA $0004
PEA $0000
JSL L084F9B
LDA L055153
BNE L141297
LDA L0550FD
LDX L0550FF
PHX
PHA
PEA ^L053127
PEA L053127
JSL L084FD4
LDAL L05314D
TAX
LDAL L05314B
STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$0002
BCC L141265
INX
L141265 STA $01
STX $03
LDY #$0002
LDA #$FFF8
AND [$01],Y
LDY #$0002
STA [$01],Y
LDY #$0006
LDA #$0007
CLC
ADC [$01],Y
AND #$FFF8
LDY #$0006
STA [$01],Y
PEA $0000
PEA $0002
PEA $0000
PEA $0000
JSL L081517
L141297 BRA L1412AB
L141299 LDAL L052D34
PHA
PEA $0004
PEA $0000
PEA $0000
JSL L081517
L1412AB TDC
CLC
ADC #$0005
PEA $0000
PHA
JSL L087BAE
LDAL L05314D
TAX
LDAL L05314B
STA $17
STX $19
LDY #$0002
LDA [$17],Y
TAX
LDA [$17]
CLC
ADC #$0002
BCC L1412D4
INX
L1412D4 PHX
PHA
TDC
CLC
ADC #$000D
PEA $0000
PHA
PEA $0008
JSL L0313BE
L1412E6 TSC
CLC
ADC #$001A
TCS
PLD
RTL
L1412EE ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDX #$0000
LDAL L05328D
CMP $0C
BEQ L141302
INX
L141302 PHX
LDA L055129
LDX L05512B
CMP $0E
BNE L14130F
CPX $10
L14130F BNE L141316
LDA #$0000
BRA L141319
L141316 LDA #$0001
L141319 ORA $01,S
PLX
PHA
LDA L055125
LDX L055127
CMP L055027
BNE L14132B
CPX L055029
L14132B BNE L141332
LDA #$0000
BRA L141335
L141332 LDA #$0001
L141335 ORA $01,S
PLX
LSR
BCC L14135B
PEA $0001
JSL L09091E
LDA L055121
ORA L055123
BEQ L141351
PEA $0000
JSL L09091E
L141351 PEI $10
PEI $0E
PEI $0C
JSL L140000
L14135B LDA L055121
ORA L055123
BEQ L141366
LDA #$0001
L141366 AND $0A
BEQ L14137C
LDA L055121
LDX L055123
PHX
PHA
JSL L096D12
LDA #$0001
STA L05511F
L14137C LDA $08
STA $10
LDA $07
STA $0F
LDA $05
TCD
TSC
CLC
ADC #$000E
TCS
RTL
L14138E ENT
PHD
TSC
CLC
ADC #$FF80
TCS
TCD
LDX #$0000
LDA L0550BB
DEC
BEQ L1413A0
INX
L1413A0 TXA
STA $69
PHY
JSL L099DCE
PLA
STA $61
L1413AB LDA $61
STA $5F
LDA #$0001
STA $6B
LDX #$0000
LDA L0550BB
DEC
BNE L1413BE
INX
L1413BE TXA
AND $61
BEQ L1413C5
STZ $6B
L1413C5 LDA #$0003
CMP L0550BB
BNE L1413D9
LDA $61
BEQ L1413D4
BRL L1415A2
L1413D4 LDA #$0002
STA $6B
L1413D9 PEA $0001
JSL L09091E
PEA ^L0532BD
PEA L0532BD
JSL L085216
PEA ^L05312F
PEA L05312F
JSL L151131
PHY
PHY
LDA L05501F
LDX L055021
PHX
PHA
JSL L07721A
PLA
STA $75
PLX
STX $77
LDA $75
ORA $77
BNE L141411
BRL L14149A
L141411 PHY
PHY
LDA L055027
LDX L055029
PHX
PHA
JSL L0772AE
PLA
STA $79
PLX
STX $7B
LDA $79
ORA $7B
BEQ L14148B
PEI $7B
PEI $79
PEI $77
PEI $75
PEI $69
PEI $6B
TDC
CLC
ADC #$006D
PEA $0000
PHA
JSL L083245
LDA L0550FD
LDX L0550FF
PHX
PHA
TDC
CLC
ADC #$006D
PEA $0000
PHA
JSL L083985
PEA ^L05312F
PEA L05312F
JSL L151131
PEI $7B
PEI $79
PEI $77
PEI $75
PEI $69
PEI $6B
TDC
CLC
ADC #$006D
PEA $0000
PHA
JSL L083245
LDA L055027
LDX L055029
PHX
PHA
PEA $0000
JSL L074A90
L14148B LDA L05501F
LDX L055021
PHX
PHA
PEA $0000
JSL L074A24
L14149A PHY
JSL L099DCE
PLA
STA $61
PHY
JSL L09771E
PHY
JSL L090A90
PLA
STA $7D
PLA
AND $7D
STA $5D
PHY
PEA $000A
TDC
CLC
ADC #$002B
PEA $0000
PHA
JSL L096BB1
PLA
STA $67
LDA L0551FB
SEC
SBC #$0005
BVS L1414D4
EOR #$8000
L1414D4 BPL L1414DB
LDA #$0000
BRA L1414DE
L1414DB LDA #$0001
L1414DE AND $67
BEQ L1414E8
JSL L072314
STZ $67
L1414E8 LDX #$0000
LDA $5F
CMP $61
BEQ L1414F2
INX
L1414F2 TXA
ORA $67
PHA
LDA $5D
EOR #$0001
ORA $01,S
PLX
LSR
BCC L14149A
LDA L0550FD
LDX L0550FF
PHX
PHA
TDC
CLC
ADC #$006D
PEA $0000
PHA
JSL L083985
LDX #$0000
LDA $5F
CMP $61
BEQ L141520
INX
L141520 TXA
AND $5D
BEQ L141528
BRL L1413AB
L141528 LDA $67
BEQ L1415A2
JSL L0A3283
LDA $2B
DEC
BNE L141588
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0035
PEA $0000
PHA
JSL L150BE8
PHY
PEI $37
PEI $35
PEI $6B
TDC
CLC
ADC #$0063
PEA $0000
PHA
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0A2034
PLA
LSR
BCC L141586
PEI $65
PEI $63
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0B838F
LDA #$0001
STA L055249
L141586 BRA L1415A2
L141588 LDA #$0003
CMP $2B
BNE L1415A2
PHY
LDA $2D
AND #$00FF
PHA
JSL L09AB66
PLA
LSR
BCS L1415A2
JSL L072314
L1415A2 TSC
CLC
ADC #$0080
TCS
PLD
RTL
L1415AA ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0550BB
CMP $0E
BEQ L1415C3
PEA ^L053259
PEA L053259
JSL L086C8B
L1415C3 LDA L05514B
STA $03
LDA L05514D
STA $01
LDX #$0000
LDA #$0003
CMP $0E
BNE L1415D8
INX
L1415D8 PHX
LDA L0551FB
SEC
SBC #$0003
BEQ L1415E9
BVS L1415E7
EOR #$8000
L1415E7 BMI L1415EE
L1415E9 LDA #$0000
BRA L1415F1
L1415EE LDA #$0001
L1415F1 AND $01,S
PLX
STA L05514B
LDX #$0000
LDA $0E
DEC
DEC
BNE L141601
INX
L141601 PHX
LDA L0551FB
SEC
SBC #$0003
BEQ L141612
BVS L141610
EOR #$8000
L141610 BMI L141617
L141612 LDA #$0000
BRA L14161A
L141617 LDA #$0001
L14161A AND $01,S
PLX
STA L05514D
PEI $0E
JSL L099B9B
LDX #$0000
LDA $01
CMP L05514D
BEQ L141631
INX
L141631 PHX
LDX #$0000
LDA $03
CMP L05514B
BEQ L14163D
INX
L14163D TXA
ORA $01,S
PLX
LSR
BCC L141648
JSL L0875FA
L141648 LDA $0C
STA $0E
LDA $0B
STA $0D
LDA $09
TCD
TSC
CLC
ADC #$000C
TCS
RTL
L14165A ENT
PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
PHY
LDA L055129
LDX L05512B
PHX
PHA
PEA ^L05328B
PEA L05328B
JSL L07D585
PLA
LSR
BCS L141683
PEA $000E
JSL L0727E0
BRL L141735
L141683 LDAL L0532A5
STA $11
LDAL L0532A9
SEP #$20
STA $13
REP #$20
LDAL L0532A7
SEP #$20
STA $14
REP #$20
PEA $0062
TDC
CLC
ADC #$0011
PEA $0000
PHA
LDA L055121
LDX L055123
PHX
PHA
JSL L151077
PEA $0003
TDC
CLC
ADC #$0005
PEA $0000
PHA
LDA L055121
LDX L055123
PHX
PHA
JSL L15011A
LDAL L05565D
BNE L141731
LDY #$0002
LDA [$05],Y
TAX
LDA [$05]
STA $01
STX $03
LDAL L0532A3
LDY #$0006
STA [$01],Y
PEI $13
PEI $11
PEA $0000
JSL L151663
TDC
CLC
ADC #$0009
PEA $0000
PHA
JSL L150178
LDA $0B
CLC
ADC $09
CLC
ADC $0F
STA $1D
LDAL L0532AB
SEC
SBC $1D
LDY #$0008
STA [$01],Y
PEA $0001
PEI $07
PEI $05
LDA L055121
LDX L055123
PHX
PHA
JSL L150114
PEI $07
PEI $05
JSL L07185A
L141731 JSL L0879C5
L141735 PEA ^L053291
PEA L053291
JSL L086CDB
JSL L0875FA
TSC
CLC
ADC #$0020
TCS
PLD
RTL
L14174B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA ^L052D38
PEA L052D38
PEA ^L0532BD
PEA L0532BD
JSL L081E14
JSL L0875FA
PLY
PLY
PLD
RTL