2775 lines
46 KiB
ArmAsm
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
|
|
|