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

2775 lines
46 KiB
ArmAsm

*
* HypercardGS
* segment: $13 Functions
*
* (k) 2015, Brutal Deluxe Software
*
mx %00
rel
dsk Functions.l
lst off
*---------------------------------------
use Functions.E
use Functions.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/SANE.Macs
use 4/Sound.Macs
use 4/Std.Macs
use 4/Text.Macs
use 4/Util.Macs
use 4/Window.Macs
*---------------------------------------
L130000 ENT
PHD
TSC
CLC
ADC #$FFDC
TCS
TCD
TDC
CLC
ADC #$0015
PEA $0000
PHA
JSL L0E00CC
LDA $15
BEQ L130037
LDA $17
LDX $19
TXY
BPL L13002E
TAY
TXA
EOR #$FFFF
TAX
TYA
EOR #$FFFF
INC
BNE L13002E
INX
L13002E PHX
PHA
JSL L0E0E79
BRL L1300E0
L130037 PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA ^L0403A0
PEA L0403A0
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
_SANEFP816
BVS L130089
LDA #$0000
BRA L13008C
L130089 LDA #$0001
L13008C BEQ L1300D3
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000D
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
JSL L0313BE
L1300D3 TDC
CLC
ADC #$0017
PEA $0000
PHA
JSL L0E0C71
L1300E0 TSC
CLC
ADC #$0024
TCS
PLD
RTL
L1300E8 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0016
JSL L0B80C8
PLY
PLY
PLD
RTL
L1300FB ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0018
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L130111 ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA ^L0403AA
PEA L0403AA
PEA $000A
JSL L0313BE
PHY
JSL L0E05E8
PLA
STA $2D
LDA $2D
STA $15
LDA $15
SEC
SBC #$0001
BVS L130146
EOR #$8000
L130146 BMI L13014B
BRL L130215
L13014B LDA #$0001
STA $2F
L130150 TDC
CLC
ADC #$0017
PEA $0000
PHA
JSL L0E00CC
LDA $17
BEQ L1301A3
TDC
CLC
ADC #$0019
PEA $0000
PHA
LDA $19
LDX $1B
TXY
LDX #$0011
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$0011
PHA
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $000A
JSL L0313BE
L1301A3 TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$0019
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0000
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
JSL L0313BE
LDA $2F
CMP $15
BEQ L130215
INC $2F
BRL L130150
L130215 PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0009
PHA
LDA $2D
LDX #$0009
STA $00,X
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $0406
_SANEFP816
PEA $0000
TDC
CLC
ADC #$000B
PHA
JSL L0E0C71
TSC
CLC
ADC #$0034
TCS
PLD
RTL
L130266 ENT
PHD
TSC
CLC
ADC #$FFF6
TCS
TCD
JSL L031B09
PHY
PHY
PEA $0000
JSL L031415
PLA
STA $01
PLX
STX $03
LDA #$00FF
AND [$01]
STA $05
JSL L0E0000
LDA $05
AND #$00FF
PHA
JSL L0E0E11
PLY
PLY
PLY
PLY
PLY
PLD
RTL
L13029D ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
LDAL L052D62
PHA
PLA
CMP #$8000
ROR
STA $01,S
JSL L0E0E11
PLY
PLY
PLD
RTL
L1302BA ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDAL L052D62
TAX
LDAL L052D60
STA $01
STX $03
PHY
PEI $03
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E07C5
PLY
PLY
PLY
PLY
PLD
RTL
L1302F8 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDAL L052D60
PHA
JSL L0E0E11
PLY
PLY
PLD
RTL
L13030D ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0002
JSL L0C01FD
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L130334 ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0001
JSL L0C01FD
JSL L0E0F0F
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L13035B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L090A90
JSL L0E0C20
PLY
PLY
PLD
RTL
L130370 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0014
JSL L0B80C8
PLY
PLY
PLD
RTL
L130383 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $001C
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L130399 ENT
PHD
TSC
CLC
ADC #$FEF8
TCS
ADC #$0011
TCD
PHY
PHY
PEA $0006
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_ConvSeconds
STAL L05565D
PLA
STA $EF
PLX
STX $F1
PEI $F1
PEI $EF
LDA L0553B3
PHA
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L0B1E76
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L0E0EA8
TSC
CLC
ADC #$0108
TCS
PLD
RTL
L1303F0 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
LDA L05503F
LDX L055041
PHX
PHA
JSL L0752E6
JSL L0E0E79
PLY
PLY
PLD
RTL
L13040E ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0008
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L130424 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $000C
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L13043A ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $000A
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L130450 ENT
PHD
TSC
CLC
ADC #$FBE8
TCS
ADC #$0321
TCD
PHY
JSL L0314F6
PLA
CMP #$0005
BNE L13047E
TDC
CLC
ADC #$00E7
PEA $0000
PHA
PEA $0000
PEA $000C
PEA $0003
JSL L0E0656
BRA L13048B
L13047E TDC
CLC
ADC #$00E7
PEA $0000
PHA
JSL L0B0D87
L13048B PHY
PHY
JSL L0E05E8
PEA $0000
PEA $0009
JSL L071A1B
PLA
STA $E5
LDA $E5
BNE L1304B0
JSL L0E0000
PEA $006D
JSL L0B0B7A
BRL L130628
L1304B0 PEA $0000
TDC
CLC
ADC #$FFE5
PHA
PEA $0000
TDC
CLC
ADC #$FCDF
PHA
PEA $001C
JSL L0B127A
PEA $0100
JSL L0313BE
LDX #$FFE3
STZ $00,X
PHY
JSL L0314F6
PLA
CMP #$0002
BNE L130508
PEA $0000
TDC
CLC
ADC #$FFE5
PHA
PEA $0000
TDC
CLC
ADC #$FCDF
PHA
PEA $001D
JSL L0B127A
PEA $0100
JSL L0313BE
LDA #$0001
LDX #$FFE3
STA $00,X
L130508 JSL L0E0000
PHY
PEI $E5
PEI $E9
PEI $E7
PEI $ED
PEI $EB
LDX #$FFE3
LDA $00,X
PHA
PEA $0000
TDC
CLC
ADC #$FFDF
PHA
JSL L07A71B
PLA
LDX #$FFE1
STA $00,X
LDX #$FFDF
LDA $00,X
BNE L13056F
PEA $0000
TDC
CLC
ADC #$FFE5
PHA
PEA ^L0403B4
PEA L0403B4
PEA $0000
TDC
CLC
ADC #$FDCB
PHA
LDA $E5
JSL L150488
PHX
PHA
JSL L07346C
PEA ^L0403B5
PEA L0403B5
JSL L0B24DB
PEA $006F
JSL L0B0B7A
BRL L130628
L13056F LDAL L0403B6
LDX #$FEDF
SEP #$20
STA $00,X
REP #$20
LDX #$FFE1
LDA $00,X
BNE L130586
BRL L13061B
L130586 PEA $0000
TDC
CLC
ADC #$FEDF
PHA
PEA $0000
TDC
CLC
ADC #$FFE5
PHA
PEA ^L0403B7
PEA L0403B7
PEA $0000
TDC
CLC
ADC #$FDCB
PHA
LDX #$FFE1
LDA $00,X
JSL L150488
PHX
PHA
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FDDF
PHA
PEA $0003
JSL L1509CE
PEA $0100
JSL L0313BE
LDA L055027
LDX L055029
CMP $E7
BNE L1305D9
CPX $E9
L1305D9 BEQ L13061B
PEA $0000
TDC
CLC
ADC #$FEDF
PHA
PEA $0000
TDC
CLC
ADC #$FEDF
PHA
PEA ^L0403C0
PEA L0403C0
PEA $0000
TDC
CLC
ADC #$FDCB
PHA
PEI $E9
PEI $E7
JSL L07346C
PEA $0000
TDC
CLC
ADC #$FDDF
PHA
PEA $0003
JSL L1509CE
PEA $0100
JSL L0313BE
L13061B PEA $0000
TDC
CLC
ADC #$FEDF
PHA
JSL L0E0EA8
L130628 TSC
CLC
ADC #$0418
TCS
PLD
RTL
L130630 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L1510A7
JSL L0E0E79
PLY
PLY
PLD
RTL
L130646 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
PHY
PHY
PHY
PHY
PEA $0000
JSL L031415
JSL L071C98
PLA
STA $01
PLX
STX $03
JSL L0E0000
PEI $03
PEI $01
JSL L0E0E79
PLY
PLY
PLY
PLY
PLD
RTL
L130675 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0000
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L13068B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0004
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L1306A1 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0002
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L1306B7 ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA ^L0403CD
PEA L0403CD
PEA $000A
JSL L0313BE
PHY
JSL L0E05E8
PLA
STA $2D
LDA $2D
STA $15
LDA $15
SEC
SBC #$0001
BVS L1306EC
EOR #$8000
L1306EC BMI L1306F1
BRL L1307C7
L1306F1 LDA #$0001
STA $2F
L1306F6 TDC
CLC
ADC #$0021
PEA $0000
PHA
JSL L0E00CC
LDA $21
BEQ L130749
TDC
CLC
ADC #$0023
PEA $0000
PHA
LDA $23
LDX $25
TXY
LDX #$0011
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$0011
PHA
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $000A
JSL L0313BE
L130749 PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
_SANEFP816
BMI L13079E
LDA #$0000
BRA L1307A1
L13079E LDA #$0001
L1307A1 BEQ L1307BC
TDC
CLC
ADC #$0017
PEA $0000
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $000A
JSL L0313BE
L1307BC LDA $2F
CMP $15
BEQ L1307C7
INC $2F
BRL L1306F6
L1307C7 TDC
CLC
ADC #$0017
PEA $0000
PHA
JSL L0E0C71
TSC
CLC
ADC #$0034
TCS
PLD
RTL
L1307DC ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA ^L0403D7
PEA L0403D7
PEA $000A
JSL L0313BE
PHY
JSL L0E05E8
PLA
STA $2D
LDA $2D
STA $15
LDA $15
SEC
SBC #$0001
BVS L130811
EOR #$8000
L130811 BMI L130816
BRL L1308EC
L130816 LDA #$0001
STA $2F
L13081B TDC
CLC
ADC #$0021
PEA $0000
PHA
JSL L0E00CC
LDA $21
BEQ L13086E
TDC
CLC
ADC #$0023
PEA $0000
PHA
LDA $23
LDX $25
TXY
LDX #$0011
STA $00,X
TYA
STA $02,X
PEA $0000
TDC
CLC
ADC #$0011
PHA
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $030E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $000A
JSL L0313BE
L13086E PEA $0000
TDC
CLC
ADC #$000B
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$0017
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$000B
PHA
PEA $000A
_SANEFP816
BVS L1308C3
LDA #$0000
BRA L1308C6
L1308C3 LDA #$0001
L1308C6 BEQ L1308E1
TDC
CLC
ADC #$0017
PEA $0000
PHA
TDC
CLC
ADC #$0023
PEA $0000
PHA
PEA $000A
JSL L0313BE
L1308E1 LDA $2F
CMP $15
BEQ L1308EC
INC $2F
BRL L13081B
L1308EC TDC
CLC
ADC #$0017
PEA $0000
PHA
JSL L0E0C71
TSC
CLC
ADC #$0034
TCS
PLD
RTL
L130901 ENT
PHD
TSC
CLC
ADC #$FFCC
TCS
TCD
STZ $01
PHY
PEA $0002
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150070
PHY
PEA $0000
JSL L150580
PLA
ORA $01,S
PLX
PHA
JSL L0E0C20
LDA $01
DEC
BNE L130949
LDA $0B
LDX $0D
STAL L052D60
TXA
STAL L052D62
LDA $07
LDX $09
STA L05522B
STX L05522D
L130949 PHY
PEA $0006
PEA $0000
JSL L150B28
PLA
STA $2F
TSC
CLC
ADC #$0034
TCS
PLD
RTL
L13095F ENT
PHD
TSC
CLC
ADC #$FFCE
TCS
TCD
L130967 PHY
PEA $0006
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150070
PLA
LSR
BCC L1309B1
LDA $01
DEC
BNE L1309AF
PEA $0001
JSL L0E0E4B
LDA $0B
LDX $0D
STAL L052D60
TXA
STAL L052D62
LDA $07
LDX $09
STA L05522B
STX L05522D
L13099F PHY
PEA $0000
JSL L15164B
PLA
EOR #$0001
BEQ L13099F
BRA L1309B8
L1309AF BRA L130967
L1309B1 PEA $0000
JSL L0E0E4B
L1309B8 TSC
CLC
ADC #$0032
TCS
PLD
RTL
L1309C0 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150801
PHY
PEI $03
PLA
CMP #$8000
ROR
STA $01,S
JSL L0E0E11
PLY
PLY
PLY
PLY
PLD
RTL
L1309F5 ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150801
PHY
PEI $03
PLA
CMP #$8000
ROR
STA $01,S
PLA
STA $03
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0004
PEA $000B
JSL L0E07C5
PLY
PLY
PLY
PLY
PLD
RTL
L130A3F ENT
PHD
TSC
CLC
ADC #$FFF8
TCS
TCD
LDA L0550ED
LDX L0550EF
PHX
PHA
JSL L151131
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150801
PEI $01
JSL L0E0E11
PLY
PLY
PLY
PLY
PLD
RTL
L130A6C ENT
PHD
TSC
CLC
ADC #$FEE4
TCS
ADC #$0025
TCD
PHY
JSL L0314F6
PLA
SEC
SBC #$0001
BPL L130A86
BRL L130DEB
L130A86 CMP #$0009
BMI L130A8E
BRL L130DEB
L130A8E ASL
TAX
LDAL L130A96,X
PHA
RTS
L130A96 DA L130AA8-1
DA L130ABC-1
DA L130AD0-1
DA L130DEB-1
DA L130B79-1
DA L130C36-1
DA L130CE6-1
DA L130D9E-1
DA L130DB7-1
L130AA8 LDAL L053ACB
TAX
LDAL L053AC9
STA $EF
STX $F1
JSL L0E0000
BRL L130DEB
L130ABC LDAL L053AC3
TAX
LDAL L053AC1
STA $EF
STX $F1
JSL L0E0000
BRL L130DEB
L130AD0 PHY
JSL L0E05E8
PLA
DEC
BPL L130ADC
BRL L130B76
L130ADC CMP #$0004
BMI L130AE4
BRL L130B76
L130AE4 SEC
SBC #$0000
BEQ L130AF6
DEC
BEQ L130B16
DEC
BEQ L130B36
DEC
BEQ L130B56
BRL L130B76
L130AF6 PHY
LDA L055027
LDX L055029
PHX
PHA
PEA $0001
JSL L07977D
PLA
LDX #$0000
BIT #$8000
BEQ L130B10
DEX
L130B10 STA $EF
STX $F1
BRA L130B76
L130B16 PHY
LDA L05501F
LDX L055021
PHX
PHA
PEA $0001
JSL L07977D
PLA
LDX #$0000
BIT #$8000
BEQ L130B30
DEX
L130B30 STA $EF
STX $F1
BRA L130B76
L130B36 PHY
LDA L055027
LDX L055029
PHX
PHA
PEA $0002
JSL L07977D
PLA
LDX #$0000
BIT #$8000
BEQ L130B50
DEX
L130B50 STA $EF
STX $F1
BRA L130B76
L130B56 PHY
LDA L05501F
LDX L055021
PHX
PHA
PEA $0002
JSL L07977D
PLA
LDX #$0000
BIT #$8000
BEQ L130B70
DEX
L130B70 STA $EF
STX $F1
BRA L130B76
L130B76 BRL L130DEB
L130B79 PHY
PHY
PEA $0012
JSL L03154C
PLA
STA $E7
PLX
STX $E9
LDY #$0002
LDA [$E7],Y
TAX
LDA [$E7]
STA $EB
STX $ED
PHY
PHY
PEA $0000
JSL L031415
PLA
STA $E3
PLX
STX $E5
LDA $E3
LDX $E5
STA $DF
STX $E1
TDC
CLC
ADC #$00DF
PEA $0000
PHA
JSL L071BC3
LDA $EB
DEC
BMI L130C2B
CMP #$0004
BPL L130C2B
SEC
SBC #$0000
BEQ L130BD3
DEC
BEQ L130BE9
DEC
BEQ L130BFF
DEC
BEQ L130C15
BRA L130C2B
L130BD3 PHY
PHY
PEI $E5
PEI $E3
PEI $E1
PEI $DF
JSL L0B0B98
PLA
STA $EF
PLX
STX $F1
BRA L130C2B
L130BE9 PHY
PHY
PEI $E5
PEI $E3
PEI $E1
PEI $DF
JSL L0B0C90
PLA
STA $EF
PLX
STX $F1
BRA L130C2B
L130BFF PHY
PHY
PEI $E5
PEI $E3
PEI $E1
PEI $DF
JSL L0B0C30
PLA
STA $EF
PLX
STX $F1
BRA L130C2B
L130C15 PHY
PHY
PEI $E5
PEI $E3
PEI $E1
PEI $DF
JSL L0B0BC2
PLA
STA $EF
PLX
STX $F1
BRA L130C2B
L130C2B JSL L0E0000
JSL L0E0000
BRL L130DEB
L130C36 TDC
CLC
ADC #$00BD
PEA $0000
PHA
PEA $0000
PEA $0018
PEA $000F
JSL L0E0656
PHY
PEI $C1
PEI $BF
JSL L0D109F
PLA
LSR
BCS L130C5C
BRL L130CE3
L130C5C LDA $BD
DEC
BMI L130CD8
CMP #$0003
BPL L130CD8
SEC
SBC #$0000
BEQ L130C74
DEC
BEQ L130CAA
DEC
BEQ L130CC6
BRA L130CD8
L130C74 PHY
PEI $CF
PEI $CD
PEI $CB
TDC
CLC
ADC #$0093
PEA $0000
PHA
JSL L07ABAE
PLA
LSR
BCC L130CA8
PHY
PEI $CF
PEI $CD
PEI $CB
PEA $0000
JSL L07AD84
PLA
LDX #$0000
BIT #$8000
BEQ L130CA4
DEX
L130CA4 STA $EF
STX $F1
L130CA8 BRA L130CDF
L130CAA PHY
PHY
LDAL L053AD3
PHA
LDAL L053AD1
PHA
PEI $C9
PEI $C7
JSL L07C5A6
PLA
STA $EF
PLX
STX $F1
BRA L130CDF
L130CC6 PHY
PHY
PEI $C5
PEI $C3
JSL L07A3E8
PLA
STA $EF
PLX
STX $F1
BRA L130CDF
L130CD8 PEA $003B
JSL L0B0B7A
L130CDF JSL L0B381C
L130CE3 BRL L130DEB
L130CE6 PEA $0000
TDC
CLC
ADC #$FFDB
PHA
JSL L0940E5
PEA $0000
TDC
CLC
ADC #$0007
PHA
PEA $0000
PEA $002C
PEA $0001
JSL L0E0656
LDA #$0006
LDX #$FFDB
STA $00,X
JSL L0E0000
TDC
CLC
ADC #$0037
PEA $0000
PHA
JSL L0940E5
PHY
PEA $0000
TDC
CLC
ADC #$FFDB
PHA
JSL L0953DD
PLA
LSR
BCC L130D82
STZ $EF
STZ $F1
PHY
PHY
LDA L05501F
LDX L055021
PHX
PHA
JSL L07721A
PLA
STA $DB
PLX
STX $DD
LDA $DB
ORA $DD
BEQ L130D80
LDY #$0002
LDA [$DB],Y
TAX
LDA [$DB]
CLC
ADC #$0014
BCC L130D61
INX
L130D61 STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
STA $EF
STX $F1
LDA L05501F
LDX L055021
PHX
PHA
PEA $0000
JSL L074A24
L130D80 BRA L130D8B
L130D82 PEA $007D
JSL L0B0B7A
BRA L130DF3
L130D8B PHY
TDC
CLC
ADC #$0037
PEA $0000
PHA
JSL L0953DD
PLA
STA $D9
BRA L130DEB
L130D9E PHY
JSL L1606BE
PLA
LDX #$0000
BIT #$8000
BEQ L130DAD
DEX
L130DAD STA $EF
STX $F1
JSL L0E0000
BRA L130DEB
L130DB7 PHY
PHY
JSL L0E061D
PLA
STA $D5
PLX
STX $D7
LDA $D5
ORA $D7
BNE L130DD2
PEA $0084
JSL L0B0B7A
BRA L130DF3
L130DD2 PHY
PEI $D7
PEI $D5
JSL L160758
PLA
LDX #$0000
BIT #$8000
BEQ L130DE5
DEX
L130DE5 STA $EF
STX $F1
L130DE9 BRA L130DEB
L130DEB PEI $F1
PEI $EF
JSL L0E0E79
L130DF3 TSC
CLC
ADC #$011C
TCS
PLD
RTL
L130DFB ENT
PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$000D
TCD
LDX #$FFF3
SEP #$20
LDA #$01
STA $00,X
REP #$20
PHY
JSL L0E05E8
PLA
AND #$00FF
LDX #$FFF4
SEP #$20
STA $00,X
REP #$20
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L0E0EA8
TSC
CLC
ADC #$0104
TCS
PLD
RTL
L130E38 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
PHY
PHY
PEA $0000
JSL L03154C
PLA
STA $01
PLX
STX $03
PHY
PHY
PEA $0000
JSL L031415
PLA
STA $05
PLX
STX $07
PHY
PHY
PEI $03
PEI $01
PEI $07
PEI $05
JSL L071CE4
PLA
STA $09
PLX
STX $0B
JSL L0E0000
JSL L0E0000
LDA $09
ORA $0B
BNE L130E8C
PEA ^L0403E1
PEA L0403E1
JSL L0E0F0F
BRA L130EA2
L130E8C PEI $0B
PEI $09
LDA $05
LDX $07
JSL L1512A5
INC
BNE L130E9C
INX
L130E9C PHX
PHA
JSL L0E0DE2
L130EA2 TSC
CLC
ADC #$0010
TCS
PLD
RTL
L130EAA ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L09771E
JSL L0E0C20
PLY
PLY
PLD
RTL
L130EBF ENT
PHD
TSC
CLC
ADC #$FEFA
TCS
ADC #$000F
TCD
PHY
JSL L0E05E8
PLA
STA $F1
LDA L055205
BEQ L130EDE
JSL L0E0C52
BRL L130F6C
L130EDE LDA #L051BE6
LDX #^L051BE6
CMP L0553B9
BNE L130EEC
CPX L0553BB
L130EEC BEQ L130EF3
LDA #$0000
BRA L130EF6
L130EF3 LDA #$0001
L130EF6 PHA
PEI $F1
LDA L0553B9
LDX L0553BB
CLC
ADC #$001E
BCC L130F06
INX
L130F06 STA $F3
STX $F5
LDA [$F3]
PHA
PLA
LDX #$0001
SEC
SBC $01,S
BVS L130F19
EOR #$8000
L130F19 BPL L130F1C
DEX
L130F1C PLA
TXA
ORA $01,S
PLX
LSR
BCC L130F2A
JSL L0E0C52
BRA L130F6C
L130F2A LDA $F1
BNE L130F5E
LDA L0553B9
LDX L0553BB
STA $F3
STX $F5
LDY #$0002
LDA [$F3],Y
TAX
LDA [$F3]
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FFF1
PHA
JSL L0B1388
PEA $0000
TDC
CLC
ADC #$FFF1
PHA
JSL L0E0EA8
BRA L130F6C
L130F5E LDA L0553BD
LDX L0553BF
PHX
PHA
PEI $F1
JSL L0B3A6A
L130F6C TSC
CLC
ADC #$0106
TCS
PLD
RTL
L130F74 ENT
PHD
TSC
CLC
ADC #$FFFA
TCS
TCD
LDA L055205
BEQ L130F8A
PEA $0000
JSL L0E0E11
BRA L130FA2
L130F8A LDA L0553B9
LDX L0553BB
CLC
ADC #$001E
BCC L130F97
INX
L130F97 STA $03
STX $05
LDA [$03]
PHA
JSL L0E0E11
L130FA2 PLY
PLY
PLY
PLD
RTL
L130FA7 PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$0013
TCD
LDX #$FFED
SEP #$20
LDA #$01
STA $00,X
REP #$20
LDA $FA
LDX #$FFEE
SEP #$20
STA $00,X
REP #$20
PEA $0000
TDC
CLC
ADC #$FFED
PHA
JSL L0E0EA8
JSL L100000
LDA $F4
STA $FA
LDA $F3
STA $F9
LDA $F1
TCD
TSC
CLC
ADC #$010C
TCS
RTL
L130FEB PHD
TSC
CLC
ADC #$FEFC
TCS
ADC #$0011
TCD
PEA ^L050C32
PEA L050C32
JSL L0E06AC
PEA ^L0403E3
PEA L0403E3
PEA ^L050C32
PEA L050C32
PEA ^L0403E5
PEA L0403E5
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
PEA $0003
JSL L1509CE
JSL L0E0F0F
LDA $F6
STA $FA
LDA $F5
STA $F9
LDA $F3
TCD
TSC
CLC
ADC #$010A
TCS
RTL
L131038 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
LDA L0553B9
LDX L0553BB
STA $03
STX $05
JSL L130F74
PHY
JSL L0E05E8
PLA
STA $07
PEA $0000
PEA $0000
JSL L0E0DE2
JSL L130EBF
LDY #$0038
LDA [$03],Y
BEQ L131078
PEA $0028
PEA $0000
PHD
JSL L130FA7
BRA L131090
L131078 LDY #$001E
LDA [$03],Y
SEC
SBC #$0000
BMI L131090
BEQ L131090
PEA $0020
PEA $0000
PHD
JSL L130FA7
L131090 LDA $07
STA $01
LDA $01
SEC
SBC #$0001
BVS L13109F
EOR #$8000
L13109F BMI L1310A4
BRL L131125
L1310A4 LDA #$0001
STA $0B
L1310A9 PEI $0B
JSL L0E0E11
JSL L130EBF
PHY
PHY
JSL L0B3773
PLA
PLX
STX $0D
ORA $0D
BEQ L1310C4
LDA #$0001
L1310C4 EOR #$0001
PHA
LDY #$0050
LDA [$03],Y
EOR #$0001
ORA $01,S
PLX
STA $09
JSL L031B09
LDA $09
BEQ L1310E5
PEA $0000
PHD
JSL L130FEB
L1310E5 JSL L100000
LDY #$001E
LDA [$03],Y
STA $0D
LDA $0B
SEC
SBC $0D
BVS L1310FA
EOR #$8000
L1310FA BMI L13111B
LDY #$0050
LDA [$03],Y
BEQ L131110
PEA $0020
PEA $0000
PHD
JSL L130FA7
BRA L13111B
L131110 PEA $002C
PEA $0000
PHD
JSL L130FA7
L13111B LDA $0B
CMP $01
BEQ L131125
INC $0B
BRA L1310A9
L131125 LDY #$0038
LDA [$03],Y
BEQ L131137
PEA $0029
PEA $0000
PHD
JSL L130FA7
L131137 TSC
CLC
ADC #$0010
TCS
PLD
RTL
L13113F ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
PHY
PHY
JSL L0E061D
PLA
STA $05
PLX
STX $07
PHY
PEI $07
PEI $05
JSL L15057A
PLA
BEQ L131168
PEA $0001
JSL L0E0E11
BRA L131183
L131168 PHY
PHY
PEI $07
PEI $05
JSL L1510CB
JSL L0B7E4F
PLA
STA $01
STZ $03
PEI $03
PEI $01
JSL L0E0E79
L131183 TSC
CLC
ADC #$000C
TCS
PLD
RTL
L13118B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
LDA L0553A7
LDX L0553A9
PHX
PHA
JSL L0E0CB5
PLY
PLY
PLD
RTL
L1311A3 ENT
PHD
TSC
CLC
ADC #$FFF0
TCS
TCD
PHY
JSL L150E95
PLA
STA $0B
PEA $0000
JSL L150DD8
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L0E04A7
PHY
PHY
TDC
CLC
ADC #$0001
PEA $0000
PHA
JSL L150082
JSL L0E0E79
PEI $0B
JSL L150DD8
TSC
CLC
ADC #$0010
TCS
PLD
RTL
L1311E8 ENT
PHD
TSC
CLC
ADC #$FFF4
TCS
TCD
STZ $01
STZ $03
LDA #$0140
STA $07
LDA #$00C8
STA $05
TDC
CLC
ADC #$0001
PEA $0000
PHA
PEA $0000
PEA $0008
PEA $000C
JSL L0E07C5
TSC
CLC
ADC #$000C
TCS
PLD
RTL
L13121C ENT
PHD
TSC
CLC
ADC #$FFE0
TCS
TCD
PHY
PHY
PEA $0006
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_ConvSeconds
STAL L05565D
PLA
STA $15
PLX
STX $17
STZ $19
STZ $1B
TDC
CLC
ADC #$000B
PEA $0000
PHA
TDC
CLC
ADC #$0015
PEA $0000
PHA
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $050E
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $000A
JSL L0313BE
TDC
CLC
ADC #$000B
PEA $0000
PHA
JSL L0E0C71
TSC
CLC
ADC #$0020
TCS
PLD
RTL
L131294 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L099DCE
JSL L0E0C20
PLY
PLY
PLD
RTL
L1312A9 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $001A
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L1312BF ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0301E4
PLA
BNE L1312DB
PEA ^L0403E7
PEA L0403E7
JSL L0E0F0F
BRA L1312E5
L1312DB PEA ^L05088E
PEA L05088E
JSL L0E0EA8
L1312E5 PLY
PLY
PLD
RTL
L1312E9 ENT
PHD
TSC
CLC
ADC #$FFE8
TCS
TCD
TDC
CLC
ADC #$000B
PEA $0000
PHA
JSL L0E04A7
PEA $0000
TDC
CLC
ADC #$0001
PHA
TDC
CLC
ADC #$000B
PEA $0000
PHA
PEA $000A
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$0001
PHA
PEA $0012
_SANEFP816
PEA $0000
TDC
CLC
ADC #$0001
PHA
JSL L0E0C71
TSC
CLC
ADC #$0018
TCS
PLD
RTL
L13133F ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L1510A7
JSL L0E0E79
PLY
PLY
PLD
RTL
L131355 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $001E
PEA $0B0A
JSL L0B808C
PLY
PLY
PLD
RTL
L13136B ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA ^L05103C
PEA L05103C
PEA $0004
JSL L0B6DE3
PLY
PLY
PLD
RTL
L131384 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
PHY
JSL L15035F
JSL L0E0E79
PLY
PLY
PLD
RTL
L13139A ENT
PHD
TSC
CLC
ADC #$FEF8
TCS
ADC #$0011
TCD
PHY
PHY
PEA $0006
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_ConvSeconds
STAL L05565D
PLA
STA $EF
PLX
STX $F1
PEI $F1
PEI $EF
LDX #$0000
LDA L0553B3
DEC
BNE L1313D5
INX
L1313D5 PHX
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L0B21F1
PEA $0000
TDC
CLC
ADC #$FFEF
PHA
JSL L0E0EA8
TSC
CLC
ADC #$0108
TCS
PLD
RTL
L1313F8 ENT
PHD
TSC
CLC
ADC #$FBFC
TCS
ADC #$030D
TCD
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
PEA $0000
TDC
CLC
ADC #$FDF3
PHA
LDA #$0B22
CLC
ADC L0550BB
PHA
JSL L073002
PEA $0000
TDC
CLC
ADC #$FCF3
PHA
PEA $0B22
JSL L073002
PEA $0000
TDC
CLC
ADC #$FEF3
PHA
PEA $0002
JSL L1509CE
PEA $0100
JSL L0313BE
PEA $0000
TDC
CLC
ADC #$FFF3
PHA
JSL L0E0EA8
TSC
CLC
ADC #$0404
TCS
PLD
RTL
L13145D ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PEA $0016
PEA $090A
JSL L0B808C
PLY
PLY
PLD
RTL
L131473 ENT
PHD
TSC
CLC
ADC #$FFFC
TCS
TCD
PHY
JSL L0B5955
PLA
LSR
BCS L13148B
PEA $003C
JSL L0B0B7A
L13148B PLY
PLY
PLD
RTL