mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-30 18:31:21 +00:00
3892 lines
70 KiB
ArmAsm
3892 lines
70 KiB
ArmAsm
*
|
|
* Your tour of the Apple IIgs
|
|
*
|
|
* (c) 1989, Apple Computer
|
|
* (s) 2020, Antoine Vignau
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
use FIVE.X
|
|
|
|
use 4/Event.Macs
|
|
use 4/Int.Macs
|
|
use 4/Line.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/Misc.Macs
|
|
use 4/QD.Macs
|
|
use 4/QDAux.Macs
|
|
use 4/Text.Macs
|
|
use 4/Util.Macs
|
|
|
|
*-------------------------------
|
|
|
|
L060000 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDA L0B00C9
|
|
STA $F0
|
|
LDA L0B009A
|
|
BEQ L06006B
|
|
LDA L0B00AC
|
|
BEQ L06006B
|
|
LDA #$0002
|
|
PHA
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEI $F0
|
|
_TextWidth
|
|
BCS L06003E
|
|
LDA #$0000
|
|
L06003E STAL L0B0002
|
|
LDAL L0C0F80
|
|
SEC
|
|
SBCL L0C0F7C
|
|
PLX
|
|
STX $F6
|
|
SEC
|
|
SBC $F6
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
PHA
|
|
PEA $0000
|
|
_Move
|
|
BCS L060067
|
|
LDA #$0000
|
|
L060067 STAL L0B0002
|
|
L06006B LDA L0B00A0
|
|
BEQ L060081
|
|
PEI $FF
|
|
PEI $FD
|
|
LDA L0B00C9
|
|
PHA
|
|
JSL L0600DC
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRA L0600B3
|
|
L060081 LDA $F0
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L0600B3
|
|
BVS L06008E
|
|
EOR #$8000
|
|
L06008E BPL L0600B3
|
|
LDX $FF
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEI $F0
|
|
_DrawText
|
|
BCS L0600AF
|
|
LDA #$0000
|
|
L0600AF STAL L0B0002
|
|
L0600B3 LDA L0B00C9
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
PEA $0000
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L02456E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L0244F2
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0600DC PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00E8
|
|
TCS
|
|
LDA #$0001
|
|
STA $EE
|
|
BRL L0601AA
|
|
L0600EF LDA L0B00C1
|
|
BNE L060117
|
|
LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0600FD
|
|
DEX
|
|
L0600FD PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BNE L06011C
|
|
L060117 LDA #$0000
|
|
BRA L06011F
|
|
L06011C LDA #$0001
|
|
L06011F STA $EA
|
|
STZ $EC
|
|
BRA L060127
|
|
L060125 INC $EC
|
|
L060127 LDA $EC
|
|
SEC
|
|
SBC #$0EA6
|
|
BEQ L060125
|
|
BVS L060134
|
|
EOR #$8000
|
|
L060134 BPL L060125
|
|
LDA $EA
|
|
BEQ L06014D
|
|
LDX L0B00B5
|
|
LDA L0B00B3
|
|
STA $F0
|
|
STX $F2
|
|
LDA #$0001
|
|
SEP #$20
|
|
STA [$F0]
|
|
REP #$20
|
|
L06014D LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L060156
|
|
DEX
|
|
L060156 PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
PHA
|
|
_DrawChar
|
|
BCS L060178
|
|
LDA #$0000
|
|
L060178 STAL L0B0002
|
|
STZ $EC
|
|
BRA L060182
|
|
L060180 INC $EC
|
|
L060182 LDA $EC
|
|
SEC
|
|
SBC #$0EA6
|
|
BEQ L060180
|
|
BVS L06018F
|
|
EOR #$8000
|
|
L06018F BPL L060180
|
|
LDA $EA
|
|
BEQ L0601A8
|
|
LDX L0B00B5
|
|
LDA L0B00B3
|
|
STA $F0
|
|
STX $F2
|
|
LDA #$0001
|
|
SEP #$20
|
|
STA [$F0]
|
|
REP #$20
|
|
L0601A8 INC $EE
|
|
L0601AA LDA $EE
|
|
SEC
|
|
SBC $FB
|
|
BNE L0601B4
|
|
BRL L0600EF
|
|
L0601B4 BVS L0601B9
|
|
EOR #$8000
|
|
L0601B9 BMI L0601BE
|
|
BRL L0600EF
|
|
L0601BE TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0601C6 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00ED
|
|
TCS
|
|
LDA #$0020
|
|
SEP #$20
|
|
STA $F1
|
|
REP #$20
|
|
JSL L03117F
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L060593
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BNE L0601F8
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L0605F0
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L060215
|
|
L0601F8 LDA L0B0096
|
|
BEQ L060215
|
|
LDAL L0C0D1E
|
|
CMPL L0C0F7C
|
|
BEQ L06020B
|
|
JSL L0604FD
|
|
L06020B JSL L0604FD
|
|
STZ L0B00A2
|
|
BRL L0604DE
|
|
L060215 LDA L0B00A2
|
|
BEQ L060232
|
|
LDA [$FD]
|
|
AND #$00FF
|
|
STA L0B00C9
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L060000
|
|
PLY
|
|
PLY
|
|
STZ L0B00A2
|
|
BRL L0604DE
|
|
L060232 LDA L0B009A
|
|
BEQ L06027E
|
|
LDY #$0001
|
|
LDA [$FD],Y
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BNE L06027E
|
|
LDA #$0001
|
|
STA L0B00AC
|
|
PEA $0020
|
|
PEA $0001
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L024161
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA L0B00C9
|
|
LDA L0B00C9
|
|
PHA
|
|
PEA $0000
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L02456E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L0244F2
|
|
PLY
|
|
PLY
|
|
BRA L060281
|
|
L06027E STZ L0B00AC
|
|
L060281 LDA L0B009A
|
|
BEQ L060299
|
|
LDA L0B00AC
|
|
BEQ L060299
|
|
LDAL L0C0D1E
|
|
CMPL L0C0F7C
|
|
BEQ L060299
|
|
JSL L0604FD
|
|
L060299 LDA [$FD]
|
|
AND #$00FF
|
|
STA L0B00C9
|
|
L0602A1 PEI $FF
|
|
PEI $FD
|
|
JSL L0605F0
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0602B1
|
|
BRL L0604DE
|
|
L0602B1 PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDA L0B00C9
|
|
PHA
|
|
_TextWidth
|
|
BCS L0602D3
|
|
LDA #$0000
|
|
L0602D3 STAL L0B0002
|
|
PLA
|
|
STA $EF
|
|
LDA $EF
|
|
CLC
|
|
ADCL L0C0D1E
|
|
SEC
|
|
SBCL L0C0F80
|
|
BEQ L0602F2
|
|
BVS L0602ED
|
|
EOR #$8000
|
|
L0602ED BPL L0602F2
|
|
BRL L0603FC
|
|
L0602F2 LDA [$FD]
|
|
AND #$00FF
|
|
STA L0B00C9
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L060000
|
|
PLY
|
|
PLY
|
|
LDA L0B0096
|
|
BNE L06030C
|
|
BRL L0603F9
|
|
L06030C LDA L0B00C9
|
|
LDX #$0000
|
|
TAY
|
|
BPL L060316
|
|
DEX
|
|
L060316 PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BNE L060333
|
|
BRL L0603F9
|
|
L060333 PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F1
|
|
PHA
|
|
PEA $0001
|
|
_TextWidth
|
|
BCS L06034C
|
|
LDA #$0000
|
|
L06034C STAL L0B0002
|
|
LDAL L0C0F80
|
|
PLX
|
|
STX $F6
|
|
SEC
|
|
SBC $F6
|
|
SEC
|
|
SBCL L0C0D1E
|
|
BEQ L060384
|
|
BVS L060366
|
|
EOR #$8000
|
|
L060366 BPL L060384
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F1
|
|
PHA
|
|
PEA $0001
|
|
_DrawText
|
|
BCS L060380
|
|
LDA #$0000
|
|
L060380 STAL L0B0002
|
|
L060384 LDA L0B00C9
|
|
LDX #$0000
|
|
TAY
|
|
BPL L06038E
|
|
DEX
|
|
L06038E PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
CMP #$002E
|
|
BNE L0603F9
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F1
|
|
PHA
|
|
PEA $0001
|
|
_TextWidth
|
|
BCS L0603C1
|
|
LDA #$0000
|
|
L0603C1 STAL L0B0002
|
|
LDAL L0C0F80
|
|
PLX
|
|
STX $F6
|
|
SEC
|
|
SBC $F6
|
|
SEC
|
|
SBCL L0C0D1E
|
|
BEQ L0603F9
|
|
BVS L0603DB
|
|
EOR #$8000
|
|
L0603DB BPL L0603F9
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F1
|
|
PHA
|
|
PEA $0001
|
|
_DrawText
|
|
BCS L0603F5
|
|
LDA #$0000
|
|
L0603F5 STAL L0B0002
|
|
L0603F9 BRL L0604DB
|
|
L0603FC LDA L0B00C9
|
|
SEC
|
|
SBC #$0000
|
|
BNE L060408
|
|
BRL L060485
|
|
L060408 BVS L06040D
|
|
EOR #$8000
|
|
L06040D BMI L060412
|
|
BRL L060485
|
|
L060412 PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDA L0B00C9
|
|
PHA
|
|
_TextWidth
|
|
BCS L060434
|
|
LDA #$0000
|
|
L060434 STAL L0B0002
|
|
PLA
|
|
CLC
|
|
ADCL L0C0D1E
|
|
SEC
|
|
SBCL L0C0F80
|
|
BVS L060448
|
|
EOR #$8000
|
|
L060448 BPL L060485
|
|
LDA L0B00C9
|
|
CMP #$0001
|
|
BNE L060457
|
|
STZ L0B00C9
|
|
BRA L060482
|
|
L060457 PEA $0020
|
|
LDA L0B00C9
|
|
SEC
|
|
SBC #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
JSL L024078
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA L0B00C9
|
|
L060482 BRL L0603FC
|
|
L060485 LDA L0B00C9
|
|
SEC
|
|
SBC #$0000
|
|
BVS L060491
|
|
EOR #$8000
|
|
L060491 BPL L06049D
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L060000
|
|
PLY
|
|
PLY
|
|
L06049D JSL L0604FD
|
|
PEA $0020
|
|
PEA $0001
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L024161
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA L0B00C9
|
|
LDA L0B00C9
|
|
PHA
|
|
PEA $0000
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L02456E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L0244F2
|
|
PLY
|
|
PLY
|
|
LDA [$FD]
|
|
AND #$00FF
|
|
STA L0B00C9
|
|
L0604DB BRL L0602A1
|
|
L0604DE LDA L0B0096
|
|
BEQ L0604ED
|
|
LDA L0B009A
|
|
BEQ L0604F1
|
|
LDA L0B00AC
|
|
BEQ L0604F1
|
|
L0604ED JSL L0604FD
|
|
L0604F1 JSL L0311AA
|
|
TSC
|
|
CLC
|
|
ADC #$0009
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0604FD PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
LDA L0B0070
|
|
PHA
|
|
LDAL L0C0F7E
|
|
SEC
|
|
SBCL L0C0D1C
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L060555
|
|
BVS L060526
|
|
EOR #$8000
|
|
L060526 BPL L060555
|
|
PEA ^L0C10BA
|
|
PEA L0C10BA
|
|
_GetPen
|
|
BCS L06053A
|
|
LDA #$0000
|
|
L06053A STAL L0B0002
|
|
PEA $0000
|
|
LDA L0B0070
|
|
PHA
|
|
_Move
|
|
BCS L060551
|
|
LDA #$0000
|
|
L060551 STAL L0B0002
|
|
L060555 LDA L0B009E
|
|
BEQ L060571
|
|
PEA $0000
|
|
LDA L0B0070
|
|
PHA
|
|
_Move
|
|
BCS L06056D
|
|
LDA #$0000
|
|
L06056D STAL L0B0002
|
|
L060571 LDAL L0C0F7C
|
|
PHA
|
|
LDAL L0C0D1C
|
|
PHA
|
|
_MoveTo
|
|
BCS L060587
|
|
LDA #$0000
|
|
L060587 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L060593 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDA #$0001
|
|
STA $F0
|
|
LDA #$0001
|
|
STA $F0
|
|
BRA L0605D4
|
|
L0605AA LDA $F0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0605B3
|
|
DEX
|
|
L0605B3 PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
CMP #$0020
|
|
BEQ L0605D2
|
|
LDA #$0000
|
|
BRA L0605E6
|
|
L0605D2 INC $F0
|
|
L0605D4 LDA [$FD]
|
|
AND #$00FF
|
|
SEC
|
|
SBC $F0
|
|
BVS L0605E1
|
|
EOR #$8000
|
|
L0605E1 BMI L0605AA
|
|
LDA #$0001
|
|
L0605E6 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0605F0 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
LDA [$FD]
|
|
AND #$00FF
|
|
BEQ L060607
|
|
LDA #$0000
|
|
BRA L06060A
|
|
L060607 LDA #$0001
|
|
L06060A TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L060614 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
PEA $0007
|
|
_WriteChar
|
|
BCS L06062E
|
|
LDA #$0000
|
|
L06062E STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L06063A ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
PHA
|
|
PEA $046E
|
|
PEA ^L0C1A7A
|
|
PEA L0C1A7A
|
|
_GetNextEvent
|
|
BCS L06065B
|
|
LDA #$0000
|
|
L06065B STAL L0B0002
|
|
PLA
|
|
LDAL L0C1A86
|
|
ASL
|
|
STAL L0C1A86
|
|
STZ L0B00CB
|
|
JSL L060DE3
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L060679 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
LDA $FF
|
|
BRL L060776
|
|
L060689 LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L060697
|
|
LDA #$0000
|
|
BRA L06069A
|
|
L060697 LDA #$0001
|
|
L06069A STA $F2
|
|
LDAL L0C1A7A
|
|
CMP #$0002
|
|
BNE L0606EB
|
|
LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
LDA L0B0078
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L0606E1
|
|
BVS L0606DF
|
|
EOR #$8000
|
|
L0606DF BMI L0606E6
|
|
L0606E1 LDA #$0000
|
|
BRA L0606E9
|
|
L0606E6 LDA #$0001
|
|
L0606E9 STA $F2
|
|
L0606EB BRL L060783
|
|
L0606EE LDA $FF
|
|
CMPL L0C1A7A
|
|
BEQ L060704
|
|
LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L060704
|
|
LDA #$0000
|
|
BRA L060707
|
|
L060704 LDA #$0001
|
|
L060707 STA $F2
|
|
STZ L0B00CB
|
|
LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
BRL L060783
|
|
L06073B LDAL L0C1A7A
|
|
CMP #$0000
|
|
BNE L060749
|
|
LDA #$0000
|
|
BRA L06074C
|
|
L060749 LDA #$0001
|
|
L06074C STA $F2
|
|
BRL L060783
|
|
L060751 LDAL L0C1A7A
|
|
CMP #$0000
|
|
BEQ L06075F
|
|
LDA #$0000
|
|
BRA L060762
|
|
L06075F LDA #$0001
|
|
L060762 STA $F2
|
|
BRL L060783
|
|
L060767 BRL L060783
|
|
L06076A DA L060751
|
|
DA L0606EE
|
|
DA L0606EE
|
|
DA L060689
|
|
DA L06073B
|
|
DA L060767
|
|
L060776 CMP #$0005
|
|
BCC L06077E
|
|
LDA #$0005
|
|
L06077E ASL
|
|
TAX
|
|
JMP (L06076A,X)
|
|
|
|
L060783 LDA $F2
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L06078F ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
L06079A JSL L06063A
|
|
JSL L04169A
|
|
TAY
|
|
BNE L0607B6
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L0607B6
|
|
PEI $FF
|
|
JSL L060679
|
|
PLY
|
|
TAY
|
|
BEQ L06079A
|
|
L0607B6 TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0607BE ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
PEA $0001
|
|
LDA $FF
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0F82
|
|
LDX #^L0C0F82
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDA $F4
|
|
LDX $F6
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L0613E4
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L060815 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F9
|
|
PHA
|
|
_InvertRect
|
|
BCS L060835
|
|
LDA #$0000
|
|
L060835 STAL L0B0002
|
|
LDA L0B00C5
|
|
BEQ L060843
|
|
LDA #$0000
|
|
BRA L060846
|
|
L060843 LDA #$0001
|
|
L060846 STA L0B00C5
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L060851 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00D6
|
|
TCS
|
|
STZ $F2
|
|
JSL L0612B1
|
|
LDA $FF
|
|
CMP #$0001
|
|
BEQ L060885
|
|
LDA $FF
|
|
CMP #$0004
|
|
BEQ L060885
|
|
LDA $FF
|
|
CMP #$0002
|
|
BEQ L060885
|
|
LDAL L0C072F
|
|
CMP #$FFFD
|
|
BEQ L060885
|
|
LDA #$0000
|
|
BRA L060888
|
|
L060885 LDA #$0001
|
|
L060888 STA L0B00C7
|
|
LDA $FF
|
|
CMP #$0001
|
|
BEQ L06089B
|
|
LDAL L0C072F
|
|
CMP #$FFFD
|
|
BNE L0608C0
|
|
L06089B LDA #L0C0F9A
|
|
LDX #^L0C0F9A
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA #$0004
|
|
STA L0B0080
|
|
BRA L0608FA
|
|
L0608C0 STZ L0B0080
|
|
LDAL L0C072F
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDA $F4
|
|
LDX $F6
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
L0608FA JSL L0311DD
|
|
L0608FE LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0001
|
|
PEI $F2
|
|
JSL L060C20
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
LDAL L0C1A7A
|
|
CMP #$0001
|
|
BEQ L06093D
|
|
BRL L060B0A
|
|
L06093D LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
LDA L0B0078
|
|
CMP #$0000
|
|
BNE L060974
|
|
BRL L060ADA
|
|
L060974 JSL L061210
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA L0B0078
|
|
STA $EC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_InvertRect
|
|
BCS L0609A9
|
|
LDA #$0000
|
|
L0609A9 STAL L0B0002
|
|
LDA #$0001
|
|
STA L0B00C5
|
|
L0609B3 JSL L06063A
|
|
LDA #L0C1A84
|
|
LDX #^L0C1A84
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E8
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E8
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PtInRect
|
|
BCS L0609F3
|
|
LDA #$0000
|
|
L0609F3 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L060A21
|
|
LDA L0B00C5
|
|
BNE L060A21
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_InvertRect
|
|
BCS L060A15
|
|
LDA #$0000
|
|
L060A15 STAL L0B0002
|
|
LDA #$0001
|
|
STA L0B00C5
|
|
BRA L060A69
|
|
L060A21 PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E8
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_PtInRect
|
|
BCS L060A40
|
|
LDA #$0000
|
|
L060A40 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BNE L060A69
|
|
LDA L0B00C5
|
|
BEQ L060A69
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_InvertRect
|
|
BCS L060A62
|
|
LDA #$0000
|
|
L060A62 STAL L0B0002
|
|
STZ L0B00C5
|
|
L060A69 PHA
|
|
PEA $0000
|
|
_StillDown
|
|
BCS L060A79
|
|
LDA #$0000
|
|
L060A79 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L060A84
|
|
BRL L0609B3
|
|
L060A84 LDA L0B00C5
|
|
BEQ L060AA2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_InvertRect
|
|
BCS L060A9E
|
|
LDA #$0000
|
|
L060A9E STAL L0B0002
|
|
L060AA2 LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
LDA L0B0078
|
|
CMP $EC
|
|
BEQ L060AD8
|
|
STZ L0B0078
|
|
L060AD8 BRA L060AF8
|
|
L060ADA PHA
|
|
PEA $0000
|
|
_StillDown
|
|
BCS L060AEA
|
|
LDA #$0000
|
|
L060AEA STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L060AF8
|
|
JSL L06063A
|
|
BRA L060ADA
|
|
L060AF8 LDAL L0C1A7A
|
|
CMP #$0002
|
|
BEQ L060B08
|
|
LDA #$0002
|
|
STAL L0C1A7A
|
|
L060B08 BRA L060B36
|
|
L060B0A LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
L060B36 LDA $FF
|
|
BRL L060BA7
|
|
L060B3B LDA L0B0078
|
|
CMP #$0001
|
|
BEQ L060B53
|
|
LDA L0B0078
|
|
CMP #$0002
|
|
BEQ L060B53
|
|
LDA L0B0078
|
|
CMP #$0003
|
|
BNE L060B5A
|
|
L060B53 LDA #$0001
|
|
STA $EE
|
|
BRA L060B5C
|
|
L060B5A STZ $EE
|
|
L060B5C BRL L060BB5
|
|
L060B5F LDAL L0C1A7A
|
|
CMP #$0002
|
|
BNE L060B6F
|
|
LDA #$0001
|
|
STA $EE
|
|
BRA L060B71
|
|
L060B6F STZ $EE
|
|
L060B71 BRL L060BB5
|
|
L060B74 LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L060B86
|
|
LDAL L0C1A7A
|
|
CMP #$0005
|
|
BNE L060B8D
|
|
L060B86 LDA #$0001
|
|
STA $EE
|
|
BRA L060B8F
|
|
L060B8D STZ $EE
|
|
L060B8F BRL L060BB5
|
|
L060B92 LDA #$0001
|
|
STA $EE
|
|
BRL L060BB5
|
|
L060B9A BRL L060BB5
|
|
L060B9D DA L060B3B
|
|
DA L060B5F
|
|
DA L060B74
|
|
DA L060B92
|
|
DA L060B9A
|
|
L060BA7 DEC
|
|
CMP #$0004
|
|
BCC L060BB0
|
|
LDA #$0004
|
|
L060BB0 ASL
|
|
TAX
|
|
JMP (L060B9D,X)
|
|
|
|
L060BB5 JSL L04169A
|
|
TAY
|
|
BNE L060BEC
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L060BC7
|
|
LDA $EE
|
|
BNE L060BE5
|
|
L060BC7 INC $F2
|
|
LDA $F2
|
|
SEC
|
|
SBC #$0001
|
|
BEQ L060BE3
|
|
BVS L060BD6
|
|
EOR #$8000
|
|
L060BD6 BPL L060BE3
|
|
PEI $FF
|
|
JSL L06145F
|
|
PLY
|
|
JSL L0311DD
|
|
L060BE3 BRA L060BEA
|
|
L060BE5 LDA #$FFFF
|
|
STA $F2
|
|
L060BEA BRA L060BF1
|
|
L060BEC LDA #$FFFF
|
|
STA $F2
|
|
L060BF1 LDA $F2
|
|
SEC
|
|
SBC #$0000
|
|
BVS L060BFC
|
|
EOR #$8000
|
|
L060BFC BPL L060C08
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L060C08
|
|
BRL L0608FE
|
|
L060C08 JSL L031208
|
|
PEA $0000
|
|
PEA $0000
|
|
JSL L0251CD
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0022
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L060C20 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00EF
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
L060C2B STZ L0B00C5
|
|
L060C2E JSL L06063A
|
|
LDX #$0000
|
|
LDA #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$002C
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L060C50
|
|
LDA #$0000
|
|
L060C50 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
CLC
|
|
JSL L0109B2
|
|
PLA
|
|
PLX
|
|
JSL L010B98
|
|
BNE L060C68
|
|
LDA #$0001
|
|
STA $E8
|
|
L060C68 LDA L0B00C7
|
|
BNE L060C70
|
|
BRL L060CF1
|
|
L060C70 LDA $F5
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L060C7F
|
|
BVS L060C7D
|
|
EOR #$8000
|
|
L060C7D BMI L060C90
|
|
L060C7F JSL L061036
|
|
SEC
|
|
SBC L0B0080
|
|
BEQ L060CF1
|
|
BVS L060C8E
|
|
EOR #$8000
|
|
L060C8E BPL L060CF1
|
|
L060C90 LDX #$0000
|
|
LDA #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$002D
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L060CAE
|
|
LDA #$0000
|
|
L060CAE STAL L0B0002
|
|
PLA
|
|
PLX
|
|
CLC
|
|
JSL L0109B2
|
|
PLA
|
|
PLX
|
|
JSL L010B98
|
|
BNE L060CF1
|
|
LDA $E8
|
|
BEQ L060CEF
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F9
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L060815
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L060CEF STZ $E8
|
|
L060CF1 LDA $F7
|
|
BEQ L060D0B
|
|
LDAL L0C1A7A
|
|
CMP #$0000
|
|
BNE L060D03
|
|
LDA #$0000
|
|
BRA L060D06
|
|
L060D03 LDA #$0001
|
|
L060D06 STA $E6
|
|
BRL L060D75
|
|
L060D0B LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
PHA
|
|
PEA ^L0C1A84
|
|
PEA L0C1A84
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F9
|
|
PHA
|
|
_PtInRect
|
|
BCS L060D53
|
|
LDA #$0000
|
|
L060D53 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BNE L060D70
|
|
LDA L0B0078
|
|
CMP #$0001
|
|
BEQ L060D70
|
|
LDA L0B0078
|
|
CMP #$0002
|
|
BEQ L060D70
|
|
LDA #$0000
|
|
BRA L060D73
|
|
L060D70 LDA #$0001
|
|
L060D73 STA $E6
|
|
L060D75 LDA $E6
|
|
BNE L060D83
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L060D83
|
|
BRL L060C2E
|
|
L060D83 LDA L0B00C5
|
|
BEQ L060DB2
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F9
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L060815
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L060DB2 LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L060DDB
|
|
LDAL L0C1A7A
|
|
CMP #$0005
|
|
BEQ L060DDB
|
|
LDAL L0C1A7A
|
|
CMP #$0001
|
|
BEQ L060DDB
|
|
LDA $E6
|
|
BNE L060DDB
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L060DDB
|
|
BRL L060C2B
|
|
L060DDB TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L060DE3 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F1
|
|
TCS
|
|
STZ $F3
|
|
LDAL L0C1A88
|
|
AND #$0300
|
|
CMP #$0300
|
|
BEQ L060DFF
|
|
BRL L06102A
|
|
L060DFF LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L060E0B
|
|
BRL L06102A
|
|
L060E0B LDAL L0C1A7E
|
|
TAX
|
|
LDAL L0C1A7C
|
|
AND #$00FF
|
|
ORA #$0020
|
|
SEP #$20
|
|
STA $F5
|
|
REP #$20
|
|
LDA $F5
|
|
AND #$00FF
|
|
CMP #$0064
|
|
BNE L060E32
|
|
LDA #$0001
|
|
STA L0B007E
|
|
BRA L060E3F
|
|
L060E32 LDA $F5
|
|
AND #$00FF
|
|
CMP #$0074
|
|
BNE L060E3F
|
|
STZ L0B007E
|
|
L060E3F LDA $F5
|
|
AND #$00FF
|
|
CMP #$0073
|
|
BNE L060E4C
|
|
BRL L060FF5
|
|
L060E4C _GrafOff
|
|
BCS L060E58
|
|
LDA #$0000
|
|
L060E58 STAL L0B0002
|
|
PEA ^L0C2699
|
|
PEA L0C2699
|
|
_WriteCString
|
|
BCS L060E6E
|
|
LDA #$0000
|
|
L060E6E STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L060E81
|
|
LDA #$0000
|
|
L060E81 STAL L0B0002
|
|
PEA ^L0C26A3
|
|
PEA L0C26A3
|
|
_WriteCString
|
|
BCS L060E97
|
|
LDA #$0000
|
|
L060E97 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L060EAA
|
|
LDA #$0000
|
|
L060EAA STAL L0B0002
|
|
PEA ^L0C26C7
|
|
PEA L0C26C7
|
|
_WriteCString
|
|
BCS L060EC0
|
|
LDA #$0000
|
|
L060EC0 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L060ED3
|
|
LDA #$0000
|
|
L060ED3 STAL L0B0002
|
|
PEA ^L0C26F4
|
|
PEA L0C26F4
|
|
_WriteCString
|
|
BCS L060EE9
|
|
LDA #$0000
|
|
L060EE9 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L060EFC
|
|
LDA #$0000
|
|
L060EFC STAL L0B0002
|
|
PEA ^L0C2739
|
|
PEA L0C2739
|
|
_WriteCString
|
|
BCS L060F12
|
|
LDA #$0000
|
|
L060F12 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L060F25
|
|
LDA #$0000
|
|
L060F25 STAL L0B0002
|
|
PEA ^L0C276A
|
|
PEA L0C276A
|
|
_WriteCString
|
|
BCS L060F3B
|
|
LDA #$0000
|
|
L060F3B STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L060F4E
|
|
LDA #$0000
|
|
L060F4E STAL L0B0002
|
|
PEA ^L0C279C
|
|
PEA L0C279C
|
|
_WriteCString
|
|
BCS L060F64
|
|
LDA #$0000
|
|
L060F64 STAL L0B0002
|
|
LDA L0B007E
|
|
BEQ L060F85
|
|
PEA ^L0C27AF
|
|
PEA L0C27AF
|
|
_WriteCString
|
|
BCS L060F7F
|
|
LDA #$0000
|
|
L060F7F STAL L0B0002
|
|
BRA L060F9B
|
|
L060F85 PEA ^L0C27B5
|
|
PEA L0C27B5
|
|
_WriteCString
|
|
BCS L060F97
|
|
LDA #$0000
|
|
L060F97 STAL L0B0002
|
|
L060F9B PEA ^L0C27BF
|
|
PEA L0C27BF
|
|
_WriteCString
|
|
BCS L060FAD
|
|
LDA #$0000
|
|
L060FAD STAL L0B0002
|
|
PEA $0006
|
|
_WriteChar
|
|
BCS L060FC0
|
|
LDA #$0000
|
|
L060FC0 STAL L0B0002
|
|
PEA $0039
|
|
JSL L06135C
|
|
PLY
|
|
_GrafOn
|
|
BCS L060FD8
|
|
LDA #$0000
|
|
L060FD8 STAL L0B0002
|
|
PEA $0005
|
|
_WriteChar
|
|
BCS L060FEB
|
|
LDA #$0000
|
|
L060FEB STAL L0B0002
|
|
JSL L0311DD
|
|
BRA L06102A
|
|
L060FF5 _GrafOff
|
|
BCS L061001
|
|
LDA #$0000
|
|
L061001 STAL L0B0002
|
|
PHA
|
|
PEA $0000
|
|
_ReadChar
|
|
BCS L061015
|
|
LDA #$0000
|
|
L061015 STAL L0B0002
|
|
PLA
|
|
_GrafOn
|
|
BCS L061026
|
|
LDA #$0000
|
|
L061026 STAL L0B0002
|
|
L06102A LDA $F3
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0009
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L061036 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDX #$0000
|
|
LDA #$003C
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L061057
|
|
LDA #$0000
|
|
L061057 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC L0B0062
|
|
PHA
|
|
TXA
|
|
SBC L0B0064
|
|
TAX
|
|
PLA
|
|
CLC
|
|
JSL L0109B2
|
|
PLY
|
|
PLY
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L061079 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00EB
|
|
TCD
|
|
ADC #$00DE
|
|
TCS
|
|
LDA L0B00CB
|
|
BEQ L06108C
|
|
BRL L061208
|
|
L06108C STZ L0B0078
|
|
SEP #$20
|
|
STZ L0B00B2
|
|
REP #$20
|
|
LDA $F1
|
|
CMP #$0003
|
|
BNE L0610A0
|
|
BRL L06116C
|
|
L0610A0 LDA $F1
|
|
CMP #$0005
|
|
BNE L0610AA
|
|
BRL L06116C
|
|
L0610AA STZ $E4
|
|
L0610AC LDA $E4
|
|
SEC
|
|
SBC #$0010
|
|
BEQ L0610BB
|
|
BVS L0610B9
|
|
EOR #$8000
|
|
L0610B9 BMI L06111B
|
|
L0610BB LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00FB
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
LDA $E4
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
_PtInRect
|
|
BCS L061104
|
|
LDA #$0000
|
|
L061104 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L061117
|
|
LDA $E4
|
|
EOR #$FFFF
|
|
INC
|
|
STA L0B0078
|
|
BRA L06111B
|
|
L061117 INC $E4
|
|
BRA L0610AC
|
|
L06111B LDA L0B0078
|
|
CMP #$0000
|
|
BNE L061169
|
|
LDA #$0003
|
|
STA $E4
|
|
L061128 LDA $E4
|
|
BEQ L061169
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
LDA $E4
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0F82
|
|
LDX #^L0C0F82
|
|
JSL L010922
|
|
_PtInRect
|
|
BCS L061156
|
|
LDA #$0000
|
|
L061156 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L061165
|
|
LDA $E4
|
|
STA L0B0078
|
|
BRA L061169
|
|
L061165 DEC $E4
|
|
BRA L061128
|
|
L061169 BRL L061202
|
|
L06116C LDA $F3
|
|
CMP #$000D
|
|
BNE L06118A
|
|
LDA $F5
|
|
CMP #$0000
|
|
BNE L06118A
|
|
LDA #$0003
|
|
STA L0B0078
|
|
PEA $0003
|
|
JSL L0607BE
|
|
PLY
|
|
BRA L0611A6
|
|
L06118A LDA $F3
|
|
CMP #$001B
|
|
BNE L0611A6
|
|
LDA $F5
|
|
CMP #$0000
|
|
BNE L0611A6
|
|
LDA #$0002
|
|
STA L0B0078
|
|
PEA $0002
|
|
JSL L0607BE
|
|
PLY
|
|
L0611A6 LDX $F5
|
|
LDA $F3
|
|
SEP #$20
|
|
STA L0B00B2
|
|
REP #$20
|
|
LDA L0B009C
|
|
BEQ L0611EA
|
|
LDA L0B00B2
|
|
AND #$00FF
|
|
SEC
|
|
SBC #$005A
|
|
BEQ L0611C9
|
|
BVS L0611C7
|
|
EOR #$8000
|
|
L0611C7 BMI L0611EA
|
|
L0611C9 LDA L0B00B2
|
|
AND #$00FF
|
|
SEC
|
|
SBC #$0041
|
|
BVS L0611D8
|
|
EOR #$8000
|
|
L0611D8 BPL L0611EA
|
|
LDA L0B00B2
|
|
AND #$00FF
|
|
ORA #$0020
|
|
SEP #$20
|
|
STA L0B00B2
|
|
REP #$20
|
|
L0611EA LDA $FF
|
|
AND #$0100
|
|
TAY
|
|
BEQ L061202
|
|
LDA L0B00B2
|
|
AND #$00FF
|
|
ORA #$0080
|
|
SEP #$20
|
|
STA L0B00B2
|
|
REP #$20
|
|
L061202 LDA #$0001
|
|
STA L0B00CB
|
|
L061208 TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L061210 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDA L0B0078
|
|
SEC
|
|
SBC #$0001
|
|
BVS L061227
|
|
EOR #$8000
|
|
L061227 BPL L061270
|
|
LDA L0B0078
|
|
SEC
|
|
SBC #$0003
|
|
BEQ L061239
|
|
BVS L061237
|
|
EOR #$8000
|
|
L061237 BMI L061270
|
|
L061239 LDA L0B0078
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0F82
|
|
LDX #^L0C0F82
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA $F6
|
|
LDX $F8
|
|
PHX
|
|
PHA
|
|
PEA ^L0C27D7
|
|
PEA L0C27D7
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
BRA L0612A7
|
|
BRA L0612A7
|
|
L061270 LDA L0B0078
|
|
EOR #$FFFF
|
|
INC
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA $F6
|
|
LDX $F8
|
|
PHX
|
|
PHA
|
|
PEA ^L0C27D7
|
|
PEA L0C27D7
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
L0612A7 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0612B1 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L0612CA
|
|
LDA #$0000
|
|
L0612CA STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0064
|
|
STA L0B0062
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0612DE ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
JSL L061036
|
|
SEC
|
|
SBC L0B007A
|
|
BEQ L06130A
|
|
BVS L0612F8
|
|
EOR #$8000
|
|
L0612F8 BPL L06130A
|
|
LDA L0B007A
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L06130A
|
|
BVS L061308
|
|
EOR #$8000
|
|
L061308 BMI L06130F
|
|
L06130A LDA #$0000
|
|
BRA L061312
|
|
L06130F LDA #$0001
|
|
L061312 STA L0B007C
|
|
JSL L061036
|
|
SEC
|
|
SBC #$00B4
|
|
BEQ L06134F
|
|
BVS L061324
|
|
EOR #$8000
|
|
L061324 BPL L06134F
|
|
LDA L0B007E
|
|
BEQ L06134F
|
|
LDA #$0002
|
|
STA L0B0078
|
|
PEA $0000
|
|
PEA $0013
|
|
JSL L0251CD
|
|
PLY
|
|
PLY
|
|
PEA ^L0C27C9
|
|
PEA L0C27C9
|
|
JSL L040728
|
|
PLY
|
|
PLY
|
|
LDA #$0001
|
|
STA L0B007C
|
|
L06134F LDA L0B007C
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L06135C ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00E2
|
|
TCS
|
|
JSL L0311DD
|
|
JSL L0612B1
|
|
L06136F JSL L06063A
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L0613C0
|
|
JSL L04169A
|
|
TAY
|
|
BNE L0613C0
|
|
LDAL L0C1A7A
|
|
CMP #$0000
|
|
BNE L0613C0
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0006
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L0613A9
|
|
LDA #$0000
|
|
L0613A9 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC L0B0062
|
|
PHA
|
|
TXA
|
|
SBC L0B0064
|
|
TAX
|
|
PLA
|
|
JSL L010B98
|
|
BCS L06136F
|
|
L0613C0 PHA
|
|
PEA $0247
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L0613D3
|
|
LDA #$0000
|
|
L0613D3 STAL L0B0002
|
|
PLA
|
|
JSL L031208
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0613E4 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F1
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
LDA $FF
|
|
CMP #$0000
|
|
BNE L0613FD
|
|
LDA #$0001
|
|
STA $E6
|
|
BRA L06140B
|
|
L0613FD LDA $FF
|
|
PHA
|
|
LDA #$0002
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $E6
|
|
L06140B LDA #$0001
|
|
STA $EA
|
|
BRA L061449
|
|
L061412 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F7
|
|
PHA
|
|
_InvertRect
|
|
BCS L061427
|
|
LDA #$0000
|
|
L061427 STAL L0B0002
|
|
LDA #$0001
|
|
STA $E8
|
|
BRA L061438
|
|
L061432 LDA $E8
|
|
STA $E8
|
|
INC $E8
|
|
L061438 LDA $E8
|
|
SEC
|
|
SBC #$1B58
|
|
BEQ L061432
|
|
BVS L061445
|
|
EOR #$8000
|
|
L061445 BPL L061432
|
|
INC $EA
|
|
L061449 LDA $EA
|
|
SEC
|
|
SBC $E6
|
|
BEQ L061412
|
|
BVS L061455
|
|
EOR #$8000
|
|
L061455 BPL L061412
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L06145F ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$0088
|
|
TCS
|
|
STZ $F2
|
|
LDA $FF
|
|
SEC
|
|
SBC #$0006
|
|
BEQ L06147E
|
|
BVS L061479
|
|
EOR #$8000
|
|
L061479 BPL L06147E
|
|
BRL L061524
|
|
L06147E PEA ^L0C27CE
|
|
PEA L0C27CE
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$008A
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $FF
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1A8A
|
|
LDX #^L0C1A8A
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDA [$F4]
|
|
STA $EE
|
|
L0614B1 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$008A
|
|
PHA
|
|
JSL L023BE0
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0614CD
|
|
LDA $8B
|
|
AND #$00FF
|
|
CMP #$0077
|
|
BEQ L061524
|
|
L0614CD PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$008A
|
|
PHA
|
|
JSL L023C7E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$008A
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
LDX L0B0028
|
|
LDA L0B0026
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
PHX
|
|
PHA
|
|
JSL L040508
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
BRA L0614B1
|
|
L061524 TSC
|
|
CLC
|
|
ADC #$0070
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L06152C ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
LDA $FF
|
|
STA L0B007A
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L061544 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00A0
|
|
TCS
|
|
STZ $A2
|
|
STZ $A4
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
JSL L061834
|
|
PLY
|
|
PLY
|
|
PEA ^L0C27D1
|
|
PEA L0C27D1
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PHX
|
|
PHA
|
|
_GetMenuBar
|
|
BCS L061584
|
|
LDA #$0000
|
|
L061584 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $E4
|
|
STA $E2
|
|
JSL L0612B1
|
|
JSL L0311DD
|
|
L061596 PEA $0004
|
|
JSL L06078F
|
|
PLY
|
|
LDA L0B0078
|
|
CMP #$0001
|
|
BEQ L0615B3
|
|
LDA L0B0078
|
|
CMP #$0002
|
|
BEQ L0615B3
|
|
LDA #$0000
|
|
BRA L0615B6
|
|
L0615B3 LDA #$0001
|
|
L0615B6 STA $AC
|
|
LDAL L0C1A7A
|
|
CMP #$0000
|
|
BNE L0615CC
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L0615CC
|
|
LDA $AC
|
|
BEQ L061596
|
|
L0615CC JSL L0612DE
|
|
TAY
|
|
BNE L0615D7
|
|
LDA $AC
|
|
BEQ L0615E9
|
|
L0615D7 STZ L0B0076
|
|
STZ L0B0074
|
|
LDA L0B0078
|
|
PHA
|
|
JSL L0607BE
|
|
PLY
|
|
BRL L06181A
|
|
L0615E9 LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
STX $C4
|
|
STA $C2
|
|
LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
STX $C0
|
|
STA $BE
|
|
LDA $BE
|
|
LDX $C0
|
|
PHX
|
|
PHA
|
|
LDA $C4
|
|
PHA
|
|
LDA $C2
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L061623
|
|
BRL L0616C7
|
|
L061623 STZ $F2
|
|
STZ $F0
|
|
LDA $D4
|
|
AND #$0100
|
|
TAY
|
|
BNE L061632
|
|
BRL L0616A1
|
|
L061632 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
PEI $E4
|
|
PEI $E2
|
|
_MenuKey
|
|
BCS L06164B
|
|
LDA #$0000
|
|
L06164B STAL L0B0002
|
|
PHA
|
|
PEI $D8
|
|
PEI $D6
|
|
_LoWord
|
|
BCS L061660
|
|
LDA #$0000
|
|
L061660 STAL L0B0002
|
|
PLA
|
|
STA $F0
|
|
PHA
|
|
PEI $D8
|
|
PEI $D6
|
|
_HiWord
|
|
BCS L061678
|
|
LDA #$0000
|
|
L061678 STAL L0B0002
|
|
PLA
|
|
STA $F2
|
|
LDA $F2
|
|
CMP L0B0074
|
|
BNE L0616A1
|
|
LDA $F0
|
|
CMP L0B0076
|
|
BNE L0616A1
|
|
PEA ^L0C27D3
|
|
PEA L0C27D3
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L0616A1 LDA $F2
|
|
BEQ L0616BA
|
|
PEA $0000
|
|
PEI $F2
|
|
_HiliteMenu
|
|
BCS L0616B6
|
|
LDA #$0000
|
|
L0616B6 STAL L0B0002
|
|
L0616BA LDA $F2
|
|
STA L0B0074
|
|
LDA $F0
|
|
STA L0B0076
|
|
BRL L06181A
|
|
L0616C7 LDA #L0C1A84
|
|
LDX #^L0C1A84
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DE
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DE
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
_PtInRect
|
|
BCS L061703
|
|
LDA #$0000
|
|
L061703 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L06171B
|
|
LDA L0B0078
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L06172E
|
|
BVS L061719
|
|
EOR #$8000
|
|
L061719 BPL L06172E
|
|
L06171B LDA L0B0074
|
|
BNE L061725
|
|
LDA L0B0076
|
|
BEQ L06172E
|
|
L061725 STZ L0B0074
|
|
STZ L0B0076
|
|
BRL L06181A
|
|
L06172E PHX
|
|
PHA
|
|
_GetTick
|
|
BCS L06173C
|
|
LDA #$0000
|
|
L06173C STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $A4
|
|
STA $A2
|
|
JSL L061EBD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
PEI $E4
|
|
PEI $E2
|
|
_MenuSelect
|
|
BCS L061763
|
|
LDA #$0000
|
|
L061763 STAL L0B0002
|
|
JSL L061F5B
|
|
PHA
|
|
PEI $D8
|
|
PEI $D6
|
|
_LoWord
|
|
BCS L06177C
|
|
LDA #$0000
|
|
L06177C STAL L0B0002
|
|
PLA
|
|
STA $F0
|
|
PHA
|
|
PEI $D8
|
|
PEI $D6
|
|
_HiWord
|
|
BCS L061794
|
|
LDA #$0000
|
|
L061794 STAL L0B0002
|
|
PLA
|
|
STA $F2
|
|
PHX
|
|
PHA
|
|
_GetTick
|
|
BCS L0617A9
|
|
LDA #$0000
|
|
L0617A9 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC $A2
|
|
PHA
|
|
TXA
|
|
SBC $A4
|
|
TAX
|
|
PLA
|
|
STX $A4
|
|
STA $A2
|
|
LDA $F2
|
|
CMP #$0000
|
|
BNE L0617CA
|
|
LDA $F0
|
|
CMP #$0000
|
|
BEQ L061801
|
|
L0617CA LDA $F2
|
|
CMP L0B0074
|
|
BNE L0617EC
|
|
LDA $F0
|
|
CMP L0B0076
|
|
BNE L0617EC
|
|
PEA ^L0C27D5
|
|
PEA L0C27D5
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L0617EC PEA $0000
|
|
PEI $F2
|
|
_HiliteMenu
|
|
BCS L0617FD
|
|
LDA #$0000
|
|
L0617FD STAL L0B0002
|
|
L061801 LDA $F2
|
|
CMP #$0000
|
|
BNE L061810
|
|
LDA L0B0074
|
|
CMP #$0000
|
|
BNE L061815
|
|
L061810 LDA $F2
|
|
STA L0B0074
|
|
L061815 LDA $F0
|
|
STA L0B0076
|
|
L06181A LDX $A4
|
|
LDA $A2
|
|
PHA
|
|
PEA $0000
|
|
JSL L0251CD
|
|
PLY
|
|
PLY
|
|
JSL L031208
|
|
TSC
|
|
CLC
|
|
ADC #$005A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L061834 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDA #$03E8
|
|
PHA
|
|
LDA L0B0076
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
STA L0B0074
|
|
LDA #$0000
|
|
STA [$FD]
|
|
LDA #$0000
|
|
LDY #$0002
|
|
STA [$FD],Y
|
|
LDA #$0001
|
|
STA $F0
|
|
BRA L061888
|
|
L061863 PHA
|
|
PEI $F0
|
|
_GetMTitleWidth
|
|
BCS L061872
|
|
LDA #$0000
|
|
L061872 STAL L0B0002
|
|
LDY #$0002
|
|
LDA [$FD],Y
|
|
PLX
|
|
STX $F6
|
|
CLC
|
|
ADC $F6
|
|
LDY #$0002
|
|
STA [$FD],Y
|
|
INC $F0
|
|
L061888 LDA $F0
|
|
SEC
|
|
SBC L0B0074
|
|
BVS L061893
|
|
EOR #$8000
|
|
L061893 BPL L061863
|
|
PHA
|
|
_GetMTitleStart
|
|
BCS L0618A2
|
|
LDA #$0000
|
|
L0618A2 STAL L0B0002
|
|
LDY #$0002
|
|
LDA [$FD],Y
|
|
PLX
|
|
STX $F6
|
|
CLC
|
|
ADC $F6
|
|
LDY #$0002
|
|
STA [$FD],Y
|
|
PHA
|
|
LDA L0B0074
|
|
PHA
|
|
_GetMTitleWidth
|
|
BCS L0618C7
|
|
LDA #$0000
|
|
L0618C7 STAL L0B0002
|
|
LDY #$0002
|
|
LDA [$FD],Y
|
|
PLX
|
|
STX $F6
|
|
CLC
|
|
ADC $F6
|
|
LDY #$0006
|
|
STA [$FD],Y
|
|
LDA L0B00B9
|
|
LDY #$0004
|
|
STA [$FD],Y
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0618EB ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00CB
|
|
TCS
|
|
STZ L0B0078
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D9
|
|
PHA
|
|
_GetPen
|
|
BCS L06190E
|
|
LDA #$0000
|
|
L06190E STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E5
|
|
PHA
|
|
PEI $DB
|
|
LDA $D9
|
|
SEC
|
|
SBC L0B0070
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDAL L0C0F80
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
LDA $D9
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
_SetRect
|
|
BCS L061944
|
|
LDA #$0000
|
|
L061944 STAL L0B0002
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E5
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDAL L0C1AA2
|
|
BEQ L061970
|
|
BRL L0619EF
|
|
L061970 STZ $EF
|
|
PEA ^L0C11BB
|
|
PEA L0C11BB
|
|
JSL L010D87
|
|
PLY
|
|
PLY
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L0619B9
|
|
BVS L061989
|
|
EOR #$8000
|
|
L061989 BPL L0619B9
|
|
PHA
|
|
PEA ^L0C11BB
|
|
PEA L0C11BB
|
|
PEA ^L0C11BB
|
|
PEA L0C11BB
|
|
JSL L010D87
|
|
PLY
|
|
PLY
|
|
PHA
|
|
_TextWidth
|
|
BCS L0619AB
|
|
LDA #$0000
|
|
L0619AB STAL L0B0002
|
|
LDA $EF
|
|
PLX
|
|
STX $FA
|
|
CLC
|
|
ADC $FA
|
|
STA $EF
|
|
L0619B9 LDA $DB
|
|
CLC
|
|
ADC $EF
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDAL L0C0F80
|
|
SEC
|
|
SBC #$0001
|
|
PLX
|
|
STX $F6
|
|
SEC
|
|
SBC $F6
|
|
BEQ L0619E5
|
|
BVS L0619D8
|
|
EOR #$8000
|
|
L0619D8 BPL L0619E5
|
|
LDA $DB
|
|
CLC
|
|
ADC $EF
|
|
CLC
|
|
ADC #$0001
|
|
BRA L0619ED
|
|
L0619E5 LDAL L0C0F80
|
|
SEC
|
|
SBC #$0001
|
|
L0619ED STA $E3
|
|
L0619EF PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E5
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PHA
|
|
PEA $0066
|
|
_LENew
|
|
BCS L061A12
|
|
LDA #$0000
|
|
L061A12 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $D7
|
|
STA $D5
|
|
PEA $05DD
|
|
JSL L021DFD
|
|
PLY
|
|
PEA ^L0C11BB
|
|
PEA L0C11BB
|
|
PEA ^L0C11BB
|
|
PEA L0C11BB
|
|
JSL L010D87
|
|
PLY
|
|
PLY
|
|
PHA
|
|
PEI $D7
|
|
PEI $D5
|
|
_LEInsert
|
|
BCS L061A47
|
|
LDA #$0000
|
|
L061A47 STAL L0B0002
|
|
PEA $05E3
|
|
JSL L021DFD
|
|
PLY
|
|
LDAL L0C1AA8
|
|
PHA
|
|
LDAL L0C1AA8
|
|
PHA
|
|
PEI $D7
|
|
PEI $D5
|
|
_LESetSelect
|
|
BCS L061A6D
|
|
LDA #$0000
|
|
L061A6D STAL L0B0002
|
|
PEA $05E5
|
|
JSL L021DFD
|
|
PLY
|
|
PEI $D7
|
|
PEI $D5
|
|
_LEActivate
|
|
BCS L061A89
|
|
LDA #$0000
|
|
L061A89 STAL L0B0002
|
|
PEA $05E7
|
|
JSL L021DFD
|
|
PLY
|
|
JSL L0612B1
|
|
JSL L0311DD
|
|
LDA #$0001
|
|
SEP #$20
|
|
STA $F5
|
|
REP #$20
|
|
L061AA6 PEI $D7
|
|
PEI $D5
|
|
_LEIdle
|
|
BCS L061AB6
|
|
LDA #$0000
|
|
L061AB6 STAL L0B0002
|
|
JSL L06063A
|
|
LDA #L0C1A7A
|
|
LDX #^L0C1A7A
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0010
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0010
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L061079
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
JSL L0612DE
|
|
TAY
|
|
BNE L061B09
|
|
JSL L04169A
|
|
TAY
|
|
BNE L061B09
|
|
LDA L0B0078
|
|
CMP #$0003
|
|
BNE L061B12
|
|
LDAL L0C1A7A
|
|
CMP #$0000
|
|
BEQ L061B12
|
|
L061B09 SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
BRL L061D06
|
|
L061B12 LDAL L0C1A7A
|
|
CMP #$0003
|
|
BEQ L061B27
|
|
LDAL L0C1A7A
|
|
CMP #$0005
|
|
BEQ L061B27
|
|
BRL L061D06
|
|
L061B27 LDAL L0C1A88
|
|
AND #$1000
|
|
TAY
|
|
BEQ L061B34
|
|
BRL L061D06
|
|
L061B34 LDA #$0001
|
|
SEP #$20
|
|
STA $F3
|
|
REP #$20
|
|
LDAL L0C1A7E
|
|
TAX
|
|
LDAL L0C1A7C
|
|
AND #$00FF
|
|
PHA
|
|
TXA
|
|
AND #$0000
|
|
TAX
|
|
PLA
|
|
STA $ED
|
|
LDAL L0C1A88
|
|
STA $F1
|
|
LDAL L0C1AAC
|
|
BEQ L061B7F
|
|
LDA $ED
|
|
CMP #$007F
|
|
BEQ L061B76
|
|
SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
LDAL L0C1AAE
|
|
INC
|
|
STAL L0C1AAE
|
|
BRA L061B7F
|
|
L061B76 LDAL L0C1AAE
|
|
DEC
|
|
STAL L0C1AAE
|
|
L061B7F LDA $ED
|
|
CMP #$000A
|
|
BEQ L061B8D
|
|
LDA $ED
|
|
CMP #$000D
|
|
BNE L061B99
|
|
L061B8D SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
SEP #$20
|
|
STZ $F3
|
|
REP #$20
|
|
L061B99 LDAL L0C1AA6
|
|
BEQ L061BAB
|
|
SEP #$20
|
|
STZ $F3
|
|
REP #$20
|
|
SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
L061BAB LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDAL L0C1A9A
|
|
PLX
|
|
STX $F6
|
|
CMP $F6
|
|
BEQ L061BCE
|
|
BCS L061BDD
|
|
L061BCE LDAL L0C1AB0
|
|
CMP #$0001
|
|
BNE L061BDD
|
|
SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
L061BDD LDA $ED
|
|
CMP #$007F
|
|
BEQ L061BEB
|
|
LDA $ED
|
|
CMP #$0008
|
|
BNE L061BFF
|
|
L061BEB LDA #$0001
|
|
SEP #$20
|
|
STA $F3
|
|
REP #$20
|
|
LDA #$0001
|
|
SEP #$20
|
|
STA $F5
|
|
REP #$20
|
|
BRA L061C1B
|
|
L061BFF LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
CMP #$0064
|
|
BCC L061C1B
|
|
SEP #$20
|
|
STZ $F3
|
|
REP #$20
|
|
L061C1B LDAL L0C1AA2
|
|
BEQ L061C24
|
|
BRL L061CC6
|
|
L061C24 LDA $F3
|
|
AND #$00FF
|
|
BNE L061C2E
|
|
BRL L061CC6
|
|
L061C2E LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STX $D3
|
|
STA $D1
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00ED
|
|
PHA
|
|
PEA $0001
|
|
_TextWidth
|
|
BCS L061C53
|
|
LDA #$0000
|
|
L061C53 STAL L0B0002
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$D1],Y
|
|
TAX
|
|
LDA [$D1]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
PHX
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$D1],Y
|
|
PHA
|
|
_TextWidth
|
|
BCS L061C80
|
|
LDA #$0000
|
|
L061C80 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $FA
|
|
CLC
|
|
ADC $FA
|
|
STA $EF
|
|
LDA $DB
|
|
CLC
|
|
ADC $EF
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDAL L0C0F80
|
|
SEC
|
|
SBC #$0001
|
|
PLX
|
|
STX $F6
|
|
SEC
|
|
SBC $F6
|
|
BEQ L061CB9
|
|
BVS L061CAC
|
|
EOR #$8000
|
|
L061CAC BPL L061CB9
|
|
LDA $DB
|
|
CLC
|
|
ADC $EF
|
|
CLC
|
|
ADC #$0001
|
|
BRA L061CC1
|
|
L061CB9 LDAL L0C0F80
|
|
SEC
|
|
SBC #$0001
|
|
L061CC1 LDY #$0016
|
|
STA [$D1],Y
|
|
L061CC6 LDA $F3
|
|
AND #$00FF
|
|
BEQ L061CE5
|
|
PEI $ED
|
|
PEI $F1
|
|
PEI $D7
|
|
PEI $D5
|
|
_LEKey
|
|
BCS L061CE1
|
|
LDA #$0000
|
|
L061CE1 STAL L0B0002
|
|
L061CE5 LDAL L0C1AAA
|
|
BEQ L061CF1
|
|
SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
L061CF1 LDAL L0C1AAC
|
|
BEQ L061D06
|
|
LDAL L0C1AAE
|
|
CMP #$0000
|
|
BNE L061D06
|
|
SEP #$20
|
|
STZ $F5
|
|
REP #$20
|
|
L061D06 LDA $F5
|
|
AND #$00FF
|
|
BEQ L061D10
|
|
BRL L061AA6
|
|
L061D10 LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
STX $CF
|
|
STA $CD
|
|
LDAL L0C1A9C
|
|
BEQ L061D88
|
|
LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
CMPL L0C1A9A
|
|
BEQ L061D59
|
|
BCC L061D59
|
|
LDAL L0C1A9A
|
|
BRA L061D6A
|
|
L061D59 LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
L061D6A LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX $CF
|
|
LDA $CD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA #$0000
|
|
SEP #$20
|
|
STA [$F6]
|
|
REP #$20
|
|
BRA L061DD2
|
|
L061D88 LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
CMP #$0031
|
|
BEQ L061DA5
|
|
BCC L061DA5
|
|
LDA #$0031
|
|
BRA L061DB6
|
|
L061DA5 LDY #$0002
|
|
LDA [$D5],Y
|
|
TAX
|
|
LDA [$D5]
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
L061DB6 LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX $CF
|
|
LDA $CD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA #$0000
|
|
SEP #$20
|
|
STA [$F6]
|
|
REP #$20
|
|
L061DD2 PEI $CF
|
|
PEI $CD
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $CF
|
|
PEI $CD
|
|
PEA ^L0C11BB
|
|
PEA L0C11BB
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L031208
|
|
LDAL L0C1AA4
|
|
BNE L061E03
|
|
BRL L061E7C
|
|
L061E03 PEA $0020
|
|
PEA $0000
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L024161
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA $EF
|
|
PEI $EF
|
|
PEA $0000
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L02456E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0020
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L010D87
|
|
PLY
|
|
PLY
|
|
SEC
|
|
SBC #$0001
|
|
EOR #$FFFF
|
|
INC
|
|
PHA
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L024161
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA $EF
|
|
LDA $EF
|
|
CLC
|
|
ADC #$0001
|
|
STA $EF
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L010D87
|
|
PLY
|
|
PLY
|
|
SEC
|
|
SBC $EF
|
|
PHA
|
|
PEI $EF
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L02456E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L061E7C LDA L0B009C
|
|
BEQ L061E8D
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0242F7
|
|
PLY
|
|
PLY
|
|
L061E8D PEI $D7
|
|
PEI $D5
|
|
_LEDeactivate
|
|
BCS L061E9D
|
|
LDA #$0000
|
|
L061E9D STAL L0B0002
|
|
PEI $D7
|
|
PEI $D5
|
|
_LEDispose
|
|
BCS L061EB1
|
|
LDA #$0000
|
|
L061EB1 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$002F
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L061EBD PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
_HideCursor
|
|
BCS L061ED4
|
|
LDA #$0000
|
|
L061ED4 STAL L0B0002
|
|
PEA $0000
|
|
PEA $027F
|
|
PEA $0000
|
|
PEA $00C7
|
|
_ClampMouse
|
|
BCS L061EF0
|
|
LDA #$0000
|
|
L061EF0 STAL L0B0002
|
|
PEA $0001
|
|
PEA $0000
|
|
LDAL L0C1A86
|
|
PHA
|
|
LDAL L0C1A84
|
|
PHA
|
|
PEA $8000
|
|
_FakeMouse
|
|
BCS L061F13
|
|
LDA #$0000
|
|
L061F13 STAL L0B0002
|
|
_InitCursor
|
|
BCS L061F23
|
|
LDA #$0000
|
|
L061F23 STAL L0B0002
|
|
LDX L0B00DF
|
|
LDA L0B00DD
|
|
PHX
|
|
PHA
|
|
_SetCursor
|
|
BCS L061F3B
|
|
LDA #$0000
|
|
L061F3B STAL L0B0002
|
|
JSL L0620B1
|
|
_ShowCursor
|
|
BCS L061F4F
|
|
LDA #$0000
|
|
L061F4F STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L061F5B PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
JSL L06204F
|
|
_HideCursor
|
|
BCS L061F76
|
|
LDA #$0000
|
|
L061F76 STAL L0B0002
|
|
PEA ^L0C1A84
|
|
PEA L0C1A84
|
|
_GetMouse
|
|
BCS L061F8C
|
|
LDA #$0000
|
|
L061F8C STAL L0B0002
|
|
PEA $0000
|
|
PEA $013F
|
|
PEA $0000
|
|
PEA $00C7
|
|
_ClampMouse
|
|
BCS L061FA8
|
|
LDA #$0000
|
|
L061FA8 STAL L0B0002
|
|
LDA #$0002
|
|
PHA
|
|
LDAL L0C1A86
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
STAL L0C1A86
|
|
PEA $0000
|
|
_SetMasterSCB
|
|
BCS L061FCD
|
|
LDA #$0000
|
|
L061FCD STAL L0B0002
|
|
PEA $0001
|
|
PEA $0000
|
|
LDAL L0C1A86
|
|
PHA
|
|
LDAL L0C1A84
|
|
PHA
|
|
PEA $8000
|
|
_FakeMouse
|
|
BCS L061FF0
|
|
LDA #$0000
|
|
L061FF0 STAL L0B0002
|
|
LDX L0B00DF
|
|
LDA L0B00DD
|
|
PHX
|
|
PHA
|
|
_SetCursor
|
|
BCS L062008
|
|
LDA #$0000
|
|
L062008 STAL L0B0002
|
|
_InitCursor
|
|
BCS L062018
|
|
LDA #$0000
|
|
L062018 STAL L0B0002
|
|
PEA $0080
|
|
_SetMasterSCB
|
|
BCS L06202B
|
|
LDA #$0000
|
|
L06202B STAL L0B0002
|
|
PHA
|
|
PEA $00FF
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L062042
|
|
LDA #$0000
|
|
L062042 STAL L0B0002
|
|
PLA
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L06204F ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDX L0B00D7
|
|
LDA L0B00D5
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
STX L0B00D3
|
|
STA L0B00D1
|
|
LDX #$0000
|
|
LDA #$0008
|
|
PHX
|
|
PHA
|
|
LDA #L0620DE
|
|
LDX #^L0620DE
|
|
SEC
|
|
JSL L010CB2
|
|
PLA
|
|
PLX
|
|
ORA #$005C
|
|
PHA
|
|
TXA
|
|
ORA #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDX L0B00D7
|
|
LDA L0B00D5
|
|
STA $F6
|
|
STX $F8
|
|
PLA
|
|
PLX
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F6],Y
|
|
PLA
|
|
STA [$F6]
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0620B1 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDX L0B00D7
|
|
LDA L0B00D5
|
|
STA $F6
|
|
STX $F8
|
|
LDX L0B00D3
|
|
LDA L0B00D1
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F6],Y
|
|
PLA
|
|
STA [$F6]
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0620DE PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00E8
|
|
TCS
|
|
LDX L0B00CF
|
|
LDA L0B00CD
|
|
STX $F4
|
|
STA $F2
|
|
LDA $F2
|
|
LDX $F4
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA #$0002
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
LDY #$0002
|
|
STA [$F2],Y
|
|
LDA #$0002
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$F2],Y
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
LDY #$0006
|
|
STA [$F2],Y
|
|
PHD
|
|
LDAL L0B00CD
|
|
TCD
|
|
JSL L0B00D1
|
|
PLD
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHX
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
LDA $F2
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|