3207 lines
56 KiB
ArmAsm
3207 lines
56 KiB
ArmAsm
*
|
|
* Your tour of the Apple IIgs
|
|
*
|
|
* (c) 1989, Apple Computer
|
|
* (s) 2020, Antoine Vignau
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
use SIX.X
|
|
|
|
use 4/Event.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/Misc.Macs
|
|
use 4/NoteSeq.Macs
|
|
use 4/NoteSyn.Macs
|
|
use 4/QD.Macs
|
|
use 4/QDAux.Macs
|
|
use 4/Util.Macs
|
|
|
|
*-------------------------------
|
|
|
|
L070000 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00BC
|
|
TCS
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA ^L0C251F
|
|
PEA L0C251F
|
|
JSL L025330
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C0
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C0
|
|
PHA
|
|
PEA ^L0C11EE
|
|
PEA L0C11EE
|
|
JSL L010DD9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L070085
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C0
|
|
PHA
|
|
JSL L040E53
|
|
PLY
|
|
PLY
|
|
STA $BE
|
|
LDA $BE
|
|
SEC
|
|
SBC #$0000
|
|
BVS L070068
|
|
EOR #$8000
|
|
L070068 BPL L070083
|
|
PEI $BE
|
|
JSL L070091
|
|
PLY
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA ^L0C11EE
|
|
PEA L0C11EE
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L070083 BRA L070089
|
|
L070085 JSL L071812
|
|
L070089 TSC
|
|
CLC
|
|
ADC #$003A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070091 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00E1
|
|
TCS
|
|
STZ $F2
|
|
BRL L070122
|
|
L0700A1 LDA $F2
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1A52
|
|
LDX #^L0C1A52
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
STA $F4
|
|
STX $F6
|
|
LDA [$F4]
|
|
PHA
|
|
_DeleteMenu
|
|
BCS L0700E1
|
|
LDA #$0000
|
|
L0700E1 STAL L0B0002
|
|
PEA $0320
|
|
JSL L021DFD
|
|
PLY
|
|
LDA $F2
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1A52
|
|
LDX #^L0C1A52
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
PHX
|
|
PHA
|
|
_DisposeHandle
|
|
BCS L07011C
|
|
LDA #$0000
|
|
L07011C STAL L0B0002
|
|
INC $F2
|
|
L070122 LDA $F2
|
|
SEC
|
|
SBC L0B00B7
|
|
BVS L07012D
|
|
EOR #$8000
|
|
L07012D BMI L070132
|
|
BRL L0700A1
|
|
L070132 PHX
|
|
PHA
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0004
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
PHX
|
|
PHA
|
|
_GetHandleSize
|
|
BCS L07016E
|
|
LDA #$0000
|
|
L07016E STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $EE
|
|
STA $EC
|
|
PEA $0000
|
|
PEI $EE
|
|
PEI $EC
|
|
LDX L0B004C
|
|
LDA L0B004A
|
|
PHX
|
|
PHA
|
|
JSL L040000
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0321
|
|
JSL L021DFD
|
|
PLY
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0004
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
PHX
|
|
PHA
|
|
LDX L0B004C
|
|
LDA L0B004A
|
|
PHX
|
|
PHA
|
|
PEI $EE
|
|
PEI $EC
|
|
_HandToHand
|
|
BCS L0701DE
|
|
LDA #$0000
|
|
L0701DE STAL L0B0002
|
|
LDA $FF
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDA #$0032
|
|
STA [$F4]
|
|
_CompactMem
|
|
BCS L070214
|
|
LDA #$0000
|
|
L070214 STAL L0B0002
|
|
LDX L0B004C
|
|
LDA L0B004A
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
BCS L07022C
|
|
LDA #$0000
|
|
L07022C STAL L0B0002
|
|
LDX L0B004C
|
|
LDA L0B004A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
STX $EA
|
|
STA $E8
|
|
LDX L0B004C
|
|
LDA L0B004A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
STX $E6
|
|
STA $E4
|
|
STZ L0B00B7
|
|
LDA [$E8]
|
|
SEP #$20
|
|
STA $E3
|
|
REP #$20
|
|
L070267 LDX $EA
|
|
LDA $E8
|
|
CLC
|
|
ADC $EC
|
|
PHA
|
|
TXA
|
|
ADC $EE
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDX $E6
|
|
LDA $E4
|
|
JSL L010B98
|
|
BNE L070283
|
|
BRL L070324
|
|
L070283 BVS L070288
|
|
EOR #$8000
|
|
L070288 BMI L07028D
|
|
BRL L070324
|
|
L07028D PHX
|
|
PHA
|
|
PEI $E6
|
|
PEI $E4
|
|
_NewMenu
|
|
BCS L07029F
|
|
LDA #$0000
|
|
L07029F STAL L0B0002
|
|
LDA L0B00B7
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1A52
|
|
LDX #^L0C1A52
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
PLA
|
|
PLX
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F4],Y
|
|
PLA
|
|
STA [$F4]
|
|
PEA $0323
|
|
JSL L021DFD
|
|
PLY
|
|
INC L0B00B7
|
|
LDX $E6
|
|
LDA $E4
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
STX $E6
|
|
STA $E4
|
|
L0702E7 LDA [$E4]
|
|
AND #$00FF
|
|
PHA
|
|
LDA $E3
|
|
AND #$00FF
|
|
PLX
|
|
STX $F4
|
|
CMP $F4
|
|
BEQ L070321
|
|
LDX $EA
|
|
LDA $E8
|
|
CLC
|
|
ADC $EC
|
|
PHA
|
|
TXA
|
|
ADC $EE
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDX $E6
|
|
LDA $E4
|
|
JSL L010B98
|
|
BEQ L070321
|
|
BVS L070317
|
|
EOR #$8000
|
|
L070317 BPL L070321
|
|
INC $E4
|
|
BNE L07031F
|
|
INC $E6
|
|
L07031F BRA L0702E7
|
|
L070321 BRL L070267
|
|
L070324 LDA L0B00B7
|
|
SEC
|
|
SBC #$0001
|
|
STA $F2
|
|
BRA L07036F
|
|
L07032F LDA $F2
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1A52
|
|
LDX #^L0C1A52
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
TAX
|
|
LDA [$F4]
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
_InsertMenu
|
|
BCS L070361
|
|
LDA #$0000
|
|
L070361 STAL L0B0002
|
|
PEA $0324
|
|
JSL L021DFD
|
|
PLY
|
|
DEC $F2
|
|
L07036F LDA $F2
|
|
SEC
|
|
SBC #$0000
|
|
BVS L07037A
|
|
EOR #$8000
|
|
L07037A BMI L07032F
|
|
PHA
|
|
_FixMenuBar
|
|
BCS L070389
|
|
LDA #$0000
|
|
L070389 STAL L0B0002
|
|
PLA
|
|
SEC
|
|
SBC #$0001
|
|
STA L0B00B9
|
|
JSL L071812
|
|
TSC
|
|
CLC
|
|
ADC #$0017
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0703A1 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00E7
|
|
TCS
|
|
PEA ^L0C2525
|
|
PEA L0C2525
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L010DD9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0703EE
|
|
PEA ^L0C2529
|
|
PEA L0C2529
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L010DD9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0703EE
|
|
PEA ^L0C2530
|
|
PEA L0C2530
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L010DD9
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0703EE
|
|
BRL L070435
|
|
L0703EE PHX
|
|
PHA
|
|
_GetSysFont
|
|
BCS L0703FC
|
|
LDA #$0000
|
|
L0703FC STAL L0B0002
|
|
_SetFont
|
|
BCS L07040C
|
|
LDA #$0000
|
|
L07040C STAL L0B0002
|
|
PEA ^L0B0070
|
|
PEA L0B0070
|
|
PEA ^L0B0072
|
|
PEA L0B0072
|
|
JSL L070547
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDX L0B0050
|
|
LDA L0B004E
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
BRL L07053F
|
|
L070435 PEI $FF
|
|
PEI $FD
|
|
PEA ^L0C2538
|
|
PEA L0C2538
|
|
JSL L025330
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L040E53
|
|
PLY
|
|
PLY
|
|
STA $EB
|
|
LDA $EB
|
|
SEC
|
|
SBC #$0000
|
|
BVS L07045E
|
|
EOR #$8000
|
|
L07045E BMI L070463
|
|
BRL L07053F
|
|
L070463 PHX
|
|
PHA
|
|
LDA $EB
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0004
|
|
LDA [$F2],Y
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
PHX
|
|
PHA
|
|
_GetHandleSize
|
|
BCS L07049F
|
|
LDA #$0000
|
|
L07049F STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $EF
|
|
STA $ED
|
|
PEA $0000
|
|
PEI $EF
|
|
PEI $ED
|
|
LDX L0B0050
|
|
LDA L0B004E
|
|
PHX
|
|
PHA
|
|
JSL L040000
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $EB
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0004
|
|
LDA [$F2],Y
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
PHX
|
|
PHA
|
|
LDX L0B0050
|
|
LDA L0B004E
|
|
PHX
|
|
PHA
|
|
PEI $EF
|
|
PEI $ED
|
|
_HandToHand
|
|
BCS L070507
|
|
LDA #$0000
|
|
L070507 STAL L0B0002
|
|
PEA $02BC
|
|
JSL L021DFD
|
|
PLY
|
|
LDX L0B0050
|
|
LDA L0B004E
|
|
PHX
|
|
PHA
|
|
_SetFont
|
|
BCS L070527
|
|
LDA #$0000
|
|
L070527 STAL L0B0002
|
|
PEA ^L0B0070
|
|
PEA L0B0070
|
|
PEA ^L0B0072
|
|
PEA L0B0072
|
|
JSL L070547
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L07053F TSC
|
|
CLC
|
|
ADC #$000F
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070547 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00E4
|
|
TCS
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E6
|
|
PHA
|
|
_GetFontInfo
|
|
BCS L070567
|
|
LDA #$0000
|
|
L070567 STAL L0B0002
|
|
LDA $EA
|
|
STA [$F9]
|
|
LDA $E6
|
|
CLC
|
|
ADC $E8
|
|
CLC
|
|
ADC $EC
|
|
STA [$FD]
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L070581 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00E1
|
|
TCD
|
|
ADC #$00DA
|
|
TCS
|
|
PEI $F5
|
|
PEI $F3
|
|
PEI $F7
|
|
PEI $F1
|
|
PEI $E9
|
|
PEI $E7
|
|
JSL L071136
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
JSL L0311DD
|
|
PEI $FF
|
|
PEI $FD
|
|
PEI $FB
|
|
PEI $F9
|
|
PEI $F5
|
|
PEI $F3
|
|
PEI $ED
|
|
PEI $EF
|
|
PEI $EB
|
|
PEI $F7
|
|
PEI $F1
|
|
JSL L0705F6
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
TYA
|
|
JSL L031208
|
|
LDA $F7
|
|
BEQ L0705EE
|
|
LDX L0B0048
|
|
LDA L0B0046
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
LDX L0B0044
|
|
LDA L0B0042
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
L0705EE TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0705F6 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00E5
|
|
TCD
|
|
ADC #$00A6
|
|
TCS
|
|
STZ $D8
|
|
STZ $DE
|
|
STZ $DA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00A8
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_SetPt
|
|
BCS L070622
|
|
LDA #$0000
|
|
L070622 STAL L0B0002
|
|
LDA #L0C0CDC
|
|
LDX #^L0C0CDC
|
|
STX $AE
|
|
STA $AC
|
|
LDA #L0C0E30
|
|
LDX #^L0C0E30
|
|
STX $B2
|
|
STA $B0
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
STX $B6
|
|
STA $B4
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00A8
|
|
STX $BA
|
|
STA $B8
|
|
LDA #$0000
|
|
STA $BC
|
|
LDAL L0C0CF6
|
|
TAX
|
|
LDAL L0C0CF4
|
|
STX $C0
|
|
STA $BE
|
|
LDA #$0001
|
|
STA L0B00AE
|
|
_StartInts
|
|
BCS L070676
|
|
LDA #$0000
|
|
L070676 STAL L0B0002
|
|
PHA
|
|
PEA $046E
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L07068D
|
|
LDA #$0000
|
|
L07068D STAL L0B0002
|
|
PLA
|
|
L070692 STZ $DC
|
|
BRL L0710E6
|
|
L070697 LDA $ED
|
|
BNE L07069E
|
|
BRL L070C34
|
|
L07069E LDA $DA
|
|
BNE L0706A5
|
|
BRL L070828
|
|
L0706A5 LDA $F1
|
|
SEC
|
|
SBC #$0000
|
|
BVS L0706B0
|
|
EOR #$8000
|
|
L0706B0 BMI L0706BF
|
|
LDA $EB
|
|
SEC
|
|
SBC #$0001
|
|
CMP $DC
|
|
BNE L0706BF
|
|
BRL L070828
|
|
L0706BF PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA $DC
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0706DB
|
|
DEX
|
|
L0706DB STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07070B
|
|
DEX
|
|
L07070B STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0006
|
|
LDA [$E0],Y
|
|
PLX
|
|
STX $E4
|
|
SEC
|
|
SBC $E4
|
|
PHA
|
|
LDA $DC
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070741
|
|
DEX
|
|
L070741 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
LDA $DC
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07076E
|
|
DEX
|
|
L07076E STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0004
|
|
LDA [$E0],Y
|
|
PLX
|
|
STX $E4
|
|
SEC
|
|
SBC $E4
|
|
PHA
|
|
_SetRect
|
|
BCS L0707A3
|
|
LDA #$0000
|
|
L0707A3 STAL L0B0002
|
|
PEA ^L0C0E30
|
|
PEA L0C0E30
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0707C3
|
|
DEX
|
|
L0707C3 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
SEC
|
|
SBC #$0001
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0707F0
|
|
DEX
|
|
L0707F0 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
PEA $0000
|
|
_PPToPort
|
|
BCS L07081C
|
|
LDA #$0000
|
|
L07081C STAL L0B0002
|
|
PEA $07D3
|
|
JSL L021DFD
|
|
PLY
|
|
L070828 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07083A
|
|
DEX
|
|
L07083A STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070863
|
|
DEX
|
|
L070863 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070889
|
|
DEX
|
|
L070889 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0708B2
|
|
DEX
|
|
L0708B2 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0708DE
|
|
DEX
|
|
L0708DE STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0006
|
|
LDA [$E0],Y
|
|
PLX
|
|
STX $E4
|
|
SEC
|
|
SBC $E4
|
|
PLX
|
|
STX $E4
|
|
CLC
|
|
ADC $E4
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070916
|
|
DEX
|
|
L070916 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07093C
|
|
DEX
|
|
L07093C STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070965
|
|
DEX
|
|
L070965 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0004
|
|
LDA [$E0],Y
|
|
PLX
|
|
STX $E4
|
|
SEC
|
|
SBC $E4
|
|
PLX
|
|
STX $E4
|
|
CLC
|
|
ADC $E4
|
|
PHA
|
|
_SetRect
|
|
BCS L0709A0
|
|
LDA #$0000
|
|
L0709A0 STAL L0B0002
|
|
JSL L03117F
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00AC
|
|
PHA
|
|
_PaintPixels
|
|
BCS L0709BD
|
|
LDA #$0000
|
|
L0709BD STAL L0B0002
|
|
JSL L0311AA
|
|
LDA $ED
|
|
CMP #$0002
|
|
BEQ L0709CF
|
|
BRL L070B09
|
|
L0709CF PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0709E1
|
|
DEX
|
|
L0709E1 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070A0D
|
|
DEX
|
|
L070A0D STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070A36
|
|
DEX
|
|
L070A36 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0006
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070A62
|
|
DEX
|
|
L070A62 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0004
|
|
LDA [$E0],Y
|
|
PHA
|
|
_SetRect
|
|
BCS L070A91
|
|
LDA #$0000
|
|
L070A91 STAL L0B0002
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070AAD
|
|
DEX
|
|
L070AAD STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070AD6
|
|
DEX
|
|
L070AD6 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
PEA $0000
|
|
_PPToPort
|
|
BCS L070B02
|
|
LDA #$0000
|
|
L070B02 STAL L0B0002
|
|
BRL L070C2C
|
|
L070B09 LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070B12
|
|
DEX
|
|
L070B12 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA $E0
|
|
LDX $E2
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PEA ^L0C0D86
|
|
PEA L0C0D86
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070B62
|
|
DEX
|
|
L070B62 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070B8B
|
|
DEX
|
|
L070B8B STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
PEA $0003
|
|
_PPToPort
|
|
BCS L070BB7
|
|
LDA #$0000
|
|
L070BB7 STAL L0B0002
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070BD3
|
|
DEX
|
|
L070BD3 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070BFC
|
|
DEX
|
|
L070BFC STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
PEA $0001
|
|
_PPToPort
|
|
BCS L070C28
|
|
LDA #$0000
|
|
L070C28 STAL L0B0002
|
|
L070C2C LDA #$0001
|
|
STA $DA
|
|
BRL L070D6B
|
|
L070C34 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070C46
|
|
DEX
|
|
L070C46 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070C72
|
|
DEX
|
|
L070C72 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070C9B
|
|
DEX
|
|
L070C9B STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0006
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070CC7
|
|
DEX
|
|
L070CC7 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $F7
|
|
LDA $F5
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0004
|
|
LDA [$E0],Y
|
|
PHA
|
|
_SetRect
|
|
BCS L070CF6
|
|
LDA #$0000
|
|
L070CF6 STAL L0B0002
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C2
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070D12
|
|
DEX
|
|
L070D12 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070D3B
|
|
DEX
|
|
L070D3B STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FB
|
|
LDA $F9
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
PHA
|
|
PEA $0000
|
|
_PPToPort
|
|
BCS L070D67
|
|
LDA #$0000
|
|
L070D67 STAL L0B0002
|
|
L070D6B LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070D74
|
|
DEX
|
|
L070D74 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
AND #$007F
|
|
TAY
|
|
BNE L070D99
|
|
BRL L070F29
|
|
L070D99 PHA
|
|
PEA $007F
|
|
_AllocGen
|
|
BCS L070DA9
|
|
LDA #$0000
|
|
L070DA9 STAL L0B0002
|
|
PLA
|
|
STA $D6
|
|
PEI $D6
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070DBB
|
|
DEX
|
|
L070DBB STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$007F
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070DEC
|
|
DEX
|
|
L070DEC STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
AND #$007F
|
|
PHA
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070E15
|
|
DEX
|
|
L070E15 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
XBA
|
|
AND #$00FF
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$000F
|
|
PHA
|
|
LDA #$0040
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C2156
|
|
LDX #^L0C2156
|
|
JSL L010922
|
|
_NoteOn
|
|
BCS L070E63
|
|
LDA #$0000
|
|
L070E63 STAL L0B0002
|
|
PHX
|
|
PHA
|
|
_GetTick
|
|
BCS L070E75
|
|
LDA #$0000
|
|
L070E75 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $D0
|
|
STA $CE
|
|
STZ $CA
|
|
STZ $CC
|
|
L070E83 LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070E8C
|
|
DEX
|
|
L070E8C STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDY #$0002
|
|
LDA [$E0],Y
|
|
AND #$07FF
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX $D0
|
|
LDA $CE
|
|
JSL L010922
|
|
LDX $CC
|
|
LDA $CA
|
|
JSL L010B98
|
|
BEQ L070EE6
|
|
BVS L070ECA
|
|
EOR #$8000
|
|
L070ECA BPL L070EE6
|
|
PHX
|
|
PHA
|
|
_GetTick
|
|
BCS L070EDA
|
|
LDA #$0000
|
|
L070EDA STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $CC
|
|
STA $CA
|
|
BRA L070E83
|
|
L070EE6 PEI $D6
|
|
LDA $DC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L070EF1
|
|
DEX
|
|
L070EF1 STX $E4
|
|
ASL
|
|
ROL $E4
|
|
ASL
|
|
ROL $E4
|
|
LDX $E4
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E0
|
|
STX $E2
|
|
LDA [$E0]
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
LSR
|
|
AND #$007F
|
|
PHA
|
|
_NoteOff
|
|
BCS L070F25
|
|
LDA #$0000
|
|
L070F25 STAL L0B0002
|
|
L070F29 PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L070F37
|
|
LDA #$0000
|
|
L070F37 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $D4
|
|
STA $D2
|
|
L070F41 LDA $EF
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L070F56
|
|
LDA #$0000
|
|
L070F56 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC $D2
|
|
PHA
|
|
TXA
|
|
SBC $D4
|
|
TAX
|
|
PLA
|
|
JSL L010B98
|
|
BEQ L070F6F
|
|
BCC L070F6F
|
|
BRA L070F41
|
|
L070F6F PHA
|
|
PEA $046E
|
|
PEA ^L0C1A7A
|
|
PEA L0C1A7A
|
|
_EventAvail
|
|
BCS L070F85
|
|
LDA #$0000
|
|
L070F85 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BNE L070F90
|
|
BRL L0710D8
|
|
L070F90 LDA $F3
|
|
SEC
|
|
SBC #$0005
|
|
BEQ L070FA2
|
|
BVS L070F9D
|
|
EOR #$8000
|
|
L070F9D BPL L070FA2
|
|
BRL L0710D8
|
|
L070FA2 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
|
|
LDA $F1
|
|
CMP #$001B
|
|
BNE L070FEA
|
|
LDA L0B00B2
|
|
AND #$00FF
|
|
CMP #$001B
|
|
BNE L070FEA
|
|
LDA $F3
|
|
CMP #$0003
|
|
BEQ L070FF4
|
|
L070FEA PEA $0004
|
|
JSL L060851
|
|
PLY
|
|
BRA L07100F
|
|
L070FF4 PHA
|
|
PEA $046E
|
|
PEA ^L0C1A7A
|
|
PEA L0C1A7A
|
|
_GetNextEvent
|
|
BCS L07100A
|
|
LDA #$0000
|
|
L07100A STAL L0B0002
|
|
PLA
|
|
L07100F LDA $F3
|
|
BRL L071088
|
|
L071014 LDAL L0C1A7A
|
|
CMP #$0003
|
|
BNE L071033
|
|
LDA $F1
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDAL L0C1A7E
|
|
TAX
|
|
LDAL L0C1A7C
|
|
JSL L010B98
|
|
BEQ L071038
|
|
L071033 LDA #$0000
|
|
BRA L07103B
|
|
L071038 LDA #$0001
|
|
L07103B STA $D8
|
|
BRL L071096
|
|
L071040 LDAL L0C1A7A
|
|
CMP #$0002
|
|
BEQ L07104E
|
|
LDA #$0000
|
|
BRA L071051
|
|
L07104E LDA #$0001
|
|
L071051 STA $D8
|
|
BRL L071096
|
|
L071056 LDA L0B0078
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L071066
|
|
BVS L071064
|
|
EOR #$8000
|
|
L071064 BMI L07106B
|
|
L071066 LDA #$0000
|
|
BRA L07106E
|
|
L07106B LDA #$0001
|
|
L07106E STA $D8
|
|
BRL L071096
|
|
L071073 LDA #$0001
|
|
STA $D8
|
|
BRL L071096
|
|
L07107B BRL L071096
|
|
L07107E DA L071056
|
|
DA L071040
|
|
DA L071014
|
|
DA L071073
|
|
DA L07107B
|
|
L071088 DEC
|
|
CMP #$0004
|
|
BCC L071091
|
|
LDA #$0004
|
|
L071091 ASL
|
|
TAX
|
|
JMP (L07107E,X)
|
|
|
|
L071096 LDA $D8
|
|
BNE L0710AA
|
|
LDA L0B0078
|
|
CMP #$0001
|
|
BEQ L0710AA
|
|
LDA L0B0078
|
|
CMP #$0002
|
|
BNE L0710B3
|
|
L0710AA LDA #$0001
|
|
STA $DE
|
|
BRA L0710F9
|
|
BRA L0710D6
|
|
L0710B3 PEI $F3
|
|
JSL L06145F
|
|
PLY
|
|
JSL L0311DD
|
|
PHA
|
|
PEA $046E
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L0710D1
|
|
LDA #$0000
|
|
L0710D1 STAL L0B0002
|
|
PLA
|
|
L0710D6 BRA L0710E4
|
|
L0710D8 JSL L0612DE
|
|
TAY
|
|
BEQ L0710E4
|
|
LDA #$0001
|
|
STA $DE
|
|
L0710E4 INC $DC
|
|
L0710E6 LDA $EB
|
|
SEC
|
|
SBC #$0001
|
|
SEC
|
|
SBC $DC
|
|
BVS L0710F4
|
|
EOR #$8000
|
|
L0710F4 BPL L0710F9
|
|
BRL L070697
|
|
L0710F9 LDA $DE
|
|
BNE L071104
|
|
LDA $F1
|
|
BEQ L071104
|
|
BRL L070692
|
|
L071104 JSL L0503D4
|
|
TAY
|
|
BNE L07112B
|
|
_AllNotesOff
|
|
BCS L071117
|
|
LDA #$0000
|
|
L071117 STAL L0B0002
|
|
_StopInts
|
|
BCS L071127
|
|
LDA #$0000
|
|
L071127 STAL L0B0002
|
|
L07112B STZ L0B00AE
|
|
TSC
|
|
CLC
|
|
ADC #$003E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L071136 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00EF
|
|
TCD
|
|
ADC #$008A
|
|
TCS
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E2
|
|
STX $DC
|
|
STA $DA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00BE
|
|
STX $C4
|
|
STA $C2
|
|
LDX $F7
|
|
LDA $F5
|
|
STX $A8
|
|
STA $A6
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDA [$EA]
|
|
AND #$00FF
|
|
AND #$0080
|
|
CMP #$0000
|
|
BEQ L071181
|
|
LDA #$0004
|
|
STA $D2
|
|
BRA L071186
|
|
L071181 LDA #$0002
|
|
STA $D2
|
|
L071186 LDA $D2
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0002
|
|
LDA [$EA],Y
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
CLC
|
|
ADC #$0001
|
|
STAL L0C0C38
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0001
|
|
LDA [$EA],Y
|
|
AND #$00FF
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDAL L0C0C38
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $CC
|
|
LDX L0B0048
|
|
LDA L0B0046
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
LDX L0B0044
|
|
LDA L0B0042
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
PEA ^L0B002A
|
|
PEA L0B002A
|
|
JSL L030D54
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
_CompactMem
|
|
BCS L071209
|
|
LDA #$0000
|
|
L071209 STAL L0B0002
|
|
PEI $CC
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
PEA ^L0B002A
|
|
PEA L0B002A
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_SetPort
|
|
BCS L071236
|
|
LDA #$0000
|
|
L071236 STAL L0B0002
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0001
|
|
LDA [$EA],Y
|
|
AND #$00FF
|
|
CLC
|
|
ADC #$0024
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071259
|
|
DEX
|
|
L071259 STX $B8
|
|
STA $B6
|
|
STZ $E6
|
|
STZ $E0
|
|
BRA L07129D
|
|
L071263 LDA $E0
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDX $EC
|
|
LDA #$0024
|
|
CLC
|
|
ADC $EA
|
|
BCC L071281
|
|
INX
|
|
L071281 JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EA
|
|
STX $EC
|
|
LDA [$EA]
|
|
AND #$00FF
|
|
PHA
|
|
LDA $E6
|
|
PLX
|
|
STX $EE
|
|
CLC
|
|
ADC $EE
|
|
STA $E6
|
|
INC $E0
|
|
L07129D LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0001
|
|
LDA [$EA],Y
|
|
AND #$00FF
|
|
SEC
|
|
SBC $E0
|
|
BEQ L0712BD
|
|
BVS L0712BB
|
|
EOR #$8000
|
|
L0712BB BMI L071263
|
|
L0712BD LDA $CC
|
|
CLC
|
|
ADC #$00C8
|
|
STA [$DA]
|
|
LDAL L0C0C36
|
|
TAX
|
|
LDAL L0C0C34
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$C2],Y
|
|
PLA
|
|
STA [$C2]
|
|
PEI $F7
|
|
PEI $F5
|
|
_HLock
|
|
BCS L0712E8
|
|
LDA #$0000
|
|
L0712E8 STAL L0B0002
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$F5],Y
|
|
TAX
|
|
LDA [$F5]
|
|
CLC
|
|
ADC $B6
|
|
PHA
|
|
TXA
|
|
ADC $B8
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
PEI $E6
|
|
PEI $C4
|
|
PEI $C2
|
|
PEI $DC
|
|
PEI $DA
|
|
_UnPackBytes
|
|
BCS L071316
|
|
LDA #$0000
|
|
L071316 STAL L0B0002
|
|
PLA
|
|
STA $E4
|
|
PEI $F7
|
|
PEI $F5
|
|
_HUnlock
|
|
BCS L07132D
|
|
LDA #$0000
|
|
L07132D STAL L0B0002
|
|
LDA $FB
|
|
BNE L071338
|
|
BRL L07157B
|
|
L071338 PEI $F9
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D0
|
|
PHA
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L071583
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA #L0C0CDC
|
|
LDX #^L0C0CDC
|
|
PHX
|
|
PHA
|
|
PEA ^L0C0E30
|
|
PEA L0C0E30
|
|
PEA $00AA
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $D2
|
|
PHA
|
|
LDA $D0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071376
|
|
DEX
|
|
L071376 STX $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
LDX $EE
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0002
|
|
LDA [$EA],Y
|
|
PHA
|
|
LDA $D0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0713A2
|
|
DEX
|
|
L0713A2 STX $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
LDX $EE
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0006
|
|
LDA [$EA],Y
|
|
PLX
|
|
STX $EE
|
|
SEC
|
|
SBC $EE
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
CLC
|
|
ADC #$0002
|
|
STA $CE
|
|
LDA $CE
|
|
STAL L0C0E36
|
|
LDA $CE
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDA $D0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0713EC
|
|
DEX
|
|
L0713EC STX $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
LDX $EE
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EA
|
|
STX $EC
|
|
LDA [$EA]
|
|
PHA
|
|
LDA $D0
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071415
|
|
DEX
|
|
L071415 STX $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
ASL
|
|
ROL $EE
|
|
LDX $EE
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0004
|
|
LDA [$EA],Y
|
|
PLX
|
|
STX $EE
|
|
SEC
|
|
SBC $EE
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $CA
|
|
LDA #L0C0C32
|
|
LDX #^L0C0C32
|
|
PHX
|
|
PHA
|
|
PEA ^L0C0D86
|
|
PEA L0C0D86
|
|
PEA $00AA
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PEI $CA
|
|
PEA ^L0C0E30
|
|
PEA L0C0E30
|
|
PEA ^L0B0046
|
|
PEA L0B0046
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $CC
|
|
PEA ^L0C0D86
|
|
PEA L0C0D86
|
|
PEA ^L0B0042
|
|
PEA L0B0042
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $FB
|
|
CMP #$0001
|
|
BEQ L071497
|
|
BRL L071565
|
|
L071497 LDA #$0000
|
|
STA $8E
|
|
LDA #$0000
|
|
STA $8C
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00AA
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA $D2
|
|
PHA
|
|
LDA #$0004
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0002
|
|
LDA [$EA],Y
|
|
SEC
|
|
SBC #$0001
|
|
SEC
|
|
JSL L010AAE
|
|
LDY #$0002
|
|
LDA [$A6],Y
|
|
TAX
|
|
LDA [$A6]
|
|
STA $EA
|
|
STX $EC
|
|
LDY #$0001
|
|
LDA [$EA],Y
|
|
AND #$00FF
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
_SetRect
|
|
BCS L0714FC
|
|
LDA #$0000
|
|
L0714FC STAL L0B0002
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$008C
|
|
STX $9E
|
|
STA $9C
|
|
LDA #$0000
|
|
STA $A0
|
|
LDAL L0C0CF6
|
|
TAX
|
|
LDAL L0C0CF4
|
|
STX $A4
|
|
STA $A2
|
|
LDA #L0C0C32
|
|
LDX #^L0C0C32
|
|
STX $92
|
|
STA $90
|
|
LDA #L0C0D86
|
|
LDX #^L0C0D86
|
|
STX $96
|
|
STA $94
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00AA
|
|
STX $9A
|
|
STA $98
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0090
|
|
PHA
|
|
_PaintPixels
|
|
BCS L071553
|
|
LDA #$0000
|
|
L071553 STAL L0B0002
|
|
LDX L0B0044
|
|
LDA L0B0042
|
|
PHX
|
|
PHA
|
|
JSL L071684
|
|
PLY
|
|
PLY
|
|
L071565 PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_SetPort
|
|
BCS L071577
|
|
LDA #$0000
|
|
L071577 STAL L0B0002
|
|
L07157B TSC
|
|
CLC
|
|
ADC #$0064
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L071583 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F1
|
|
TCD
|
|
ADC #$00E6
|
|
TCS
|
|
LDA #$0000
|
|
STA [$FB]
|
|
LDA #$0001
|
|
STA $EA
|
|
BRL L071647
|
|
L07159B LDA $EA
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0715A4
|
|
DEX
|
|
L0715A4 STX $F0
|
|
ASL
|
|
ROL $F0
|
|
ASL
|
|
ROL $F0
|
|
ASL
|
|
ROL $F0
|
|
LDX $F0
|
|
PHX
|
|
PHA
|
|
LDX $F9
|
|
LDA $F7
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EC
|
|
STX $EE
|
|
LDA $EC
|
|
LDX $EE
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L07165E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PHA
|
|
LDA [$FB]
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0715F1
|
|
DEX
|
|
L0715F1 STX $F0
|
|
ASL
|
|
ROL $F0
|
|
ASL
|
|
ROL $F0
|
|
ASL
|
|
ROL $F0
|
|
LDX $F0
|
|
PHX
|
|
PHA
|
|
LDX $F9
|
|
LDA $F7
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $EC
|
|
STX $EE
|
|
LDA $EC
|
|
LDX $EE
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0008
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L07165E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLX
|
|
STX $EC
|
|
SEC
|
|
SBC $EC
|
|
BVS L07163F
|
|
EOR #$8000
|
|
L07163F BMI L071645
|
|
LDA $EA
|
|
STA [$FB]
|
|
L071645 INC $EA
|
|
L071647 LDA $EA
|
|
SEC
|
|
SBC $FF
|
|
BVS L071651
|
|
EOR #$8000
|
|
L071651 BMI L071656
|
|
BRL L07159B
|
|
L071656 TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L07165E PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDA $FD
|
|
SEC
|
|
SBC $F9
|
|
PHA
|
|
LDA $FF
|
|
SEC
|
|
SBC $FB
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L071684 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00E8
|
|
TCS
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L0401D9
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BNE L07169F
|
|
BRL L07180A
|
|
L07169F PEI $FF
|
|
PEI $FD
|
|
_HLock
|
|
BCS L0716AF
|
|
LDA #$0000
|
|
L0716AF STAL L0B0002
|
|
LDY #$0002
|
|
LDA [$FD],Y
|
|
TAX
|
|
LDA [$FD]
|
|
STX $EC
|
|
STA $EA
|
|
PHX
|
|
PHA
|
|
PEI $FF
|
|
PEI $FD
|
|
_GetHandleSize
|
|
BCS L0716D1
|
|
LDA #$0000
|
|
L0716D1 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STZ $EE
|
|
BRL L0717FB
|
|
L0716DE LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0716E7
|
|
DEX
|
|
L0716E7 PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
BNE L071701
|
|
BRL L0717F9
|
|
L071701 LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07170A
|
|
DEX
|
|
L07170A PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
SEC
|
|
SBC #$0010
|
|
BVS L071728
|
|
EOR #$8000
|
|
L071728 BMI L07176F
|
|
LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071733
|
|
DEX
|
|
L071733 PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
ORA #$000F
|
|
PHA
|
|
LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071755
|
|
DEX
|
|
L071755 PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
PLA
|
|
SEP #$20
|
|
STA [$F2]
|
|
REP #$20
|
|
BRL L0717F9
|
|
L07176F LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L071778
|
|
DEX
|
|
L071778 PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
AND #$000F
|
|
TAY
|
|
BEQ L0717B7
|
|
LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L07179C
|
|
DEX
|
|
L07179C PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA #$00FF
|
|
SEP #$20
|
|
STA [$F2]
|
|
REP #$20
|
|
BRA L0717F9
|
|
L0717B7 LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0717C0
|
|
DEX
|
|
L0717C0 PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00FF
|
|
ORA #$00F0
|
|
PHA
|
|
LDA $EE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0717E2
|
|
DEX
|
|
L0717E2 PHX
|
|
PHA
|
|
LDX $EC
|
|
LDA $EA
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
PLA
|
|
SEP #$20
|
|
STA [$F2]
|
|
REP #$20
|
|
L0717F9 INC $EE
|
|
L0717FB LDA $EE
|
|
SEC
|
|
SBC $F0
|
|
BVS L071805
|
|
EOR #$8000
|
|
L071805 BMI L07180A
|
|
BRL L0716DE
|
|
L07180A TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L071812 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
JSL L03117F
|
|
PEA $0080
|
|
PEA $000C
|
|
PEA $0000
|
|
JSL L0321FD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
_DrawMenuBar
|
|
BCS L07183D
|
|
LDA #$0000
|
|
L07183D STAL L0B0002
|
|
_InitPalette
|
|
BCS L07184D
|
|
LDA #$0000
|
|
L07184D STAL L0B0002
|
|
STZ $F4
|
|
BRA L0718A5
|
|
L071855 STZ $F2
|
|
BRA L071894
|
|
L071859 PEI $F4
|
|
PEI $F2
|
|
PEA $0000
|
|
_SetColorEntry
|
|
BCS L07186C
|
|
LDA #$0000
|
|
L07186C STAL L0B0002
|
|
PEI $F4
|
|
LDA $F2
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
PEA $0FFF
|
|
_SetColorEntry
|
|
BCS L071888
|
|
LDA #$0000
|
|
L071888 STAL L0B0002
|
|
LDA $F2
|
|
CLC
|
|
ADC #$0004
|
|
STA $F2
|
|
L071894 LDA $F2
|
|
SEC
|
|
SBC #$000F
|
|
BEQ L071859
|
|
BVS L0718A1
|
|
EOR #$8000
|
|
L0718A1 BPL L071859
|
|
INC $F4
|
|
L0718A5 LDA $F4
|
|
SEC
|
|
SBC #$0006
|
|
BEQ L071855
|
|
BVS L0718B2
|
|
EOR #$8000
|
|
L0718B2 BPL L071855
|
|
JSL L0718C4
|
|
JSL L0311AA
|
|
TSC
|
|
CLC
|
|
ADC #$000A
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0718C4 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDA #L0C0256
|
|
LDX #^L0C0256
|
|
STX L0B00DF
|
|
STA L0B00DD
|
|
LDA #L0C019E
|
|
LDX #^L0C019E
|
|
STX L0B00DB
|
|
STA L0B00D9
|
|
JSL L031208
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0718F3 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDA #L0C00E6
|
|
LDX #^L0C00E6
|
|
STX L0B00DF
|
|
STA L0B00DD
|
|
LDA #L0C002E
|
|
LDX #^L0C002E
|
|
STX L0B00DB
|
|
STA L0B00D9
|
|
JSL L031208
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|