antoine-source/yourtour/FIVE.S
Antoine Vignau 0498bcc0c9 Mass upload
of a couple of (working) disassemblies
2020-11-10 11:31:13 +01:00

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