2612 lines
48 KiB
ArmAsm
2612 lines
48 KiB
ArmAsm
*
|
|
* Your tour of the Apple IIgs
|
|
*
|
|
* (c) 1989, Apple Computer
|
|
* (s) 2020, Antoine Vignau
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
use INIT.E
|
|
use INIT.X
|
|
|
|
use 4/Event.Macs
|
|
use 4/Line.Macs
|
|
use 4/Locator.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/Text.Macs
|
|
use 4/Util.Macs
|
|
|
|
*-------------------------------
|
|
|
|
L0A0000 ENT
|
|
L0E003C ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00D1
|
|
TCS
|
|
LDA #$0006
|
|
STA $DC
|
|
LDA #$0004
|
|
STA $DE
|
|
LDA #$0100
|
|
STA $E0
|
|
LDA #$0006
|
|
STA $E2
|
|
LDA #$0100
|
|
STA $E4
|
|
LDA #$000F
|
|
STA $E6
|
|
LDA #$0100
|
|
STA $E8
|
|
LDA #$0014
|
|
STA $EA
|
|
LDA #$0100
|
|
STA $EC
|
|
LDA #$0019
|
|
STA $EE
|
|
LDA #$0100
|
|
STA $F0
|
|
LDA #$001A
|
|
STA $F2
|
|
LDA #$0001
|
|
STA $F4
|
|
_TLStartUp
|
|
BCS L0A0058
|
|
LDA #$0000
|
|
L0A0058 STAL L0B0002
|
|
LDA L0B0004
|
|
STA L0B0066
|
|
_MTStartUp
|
|
BCS L0A006E
|
|
LDA #$0000
|
|
L0A006E STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
_LoadTools
|
|
BCS L0A0087
|
|
LDA #$0000
|
|
L0A0087 STAL L0B0002
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0900
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $C005
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A00AC
|
|
LDA #$0000
|
|
L0A00AC STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $DA
|
|
STA $D8
|
|
LDY #$0002
|
|
LDA [$D8],Y
|
|
TAX
|
|
LDA [$D8]
|
|
STX $D6
|
|
STA $D4
|
|
LDX $D6
|
|
LDA $D4
|
|
STX L0B00CF
|
|
STA L0B00CD
|
|
LDX $D6
|
|
LDA $D4
|
|
PHA
|
|
PEA $0087
|
|
PEA $0000
|
|
LDA L0B0066
|
|
PHA
|
|
_QDStartUp
|
|
BCS L0A00E7
|
|
LDA #$0000
|
|
L0A00E7 STAL L0B0002
|
|
_GrafOff
|
|
BCS L0A00F7
|
|
LDA #$0000
|
|
L0A00F7 STAL L0B0002
|
|
LDX $D6
|
|
LDA $D4
|
|
CLC
|
|
ADC #$0300
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0140
|
|
PEA $0000
|
|
PEA $00C8
|
|
LDA L0B0066
|
|
PHA
|
|
_EMStartUp
|
|
BCS L0A0128
|
|
LDA #$0000
|
|
L0A0128 STAL L0B0002
|
|
LDA L0B0066
|
|
PHA
|
|
LDX $D6
|
|
LDA $D4
|
|
CLC
|
|
ADC #$0400
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
_MenuStartUp
|
|
BCS L0A014A
|
|
LDA #$0000
|
|
L0A014A STAL L0B0002
|
|
LDA L0B0066
|
|
PHA
|
|
LDX $D6
|
|
LDA $D4
|
|
CLC
|
|
ADC #$0500
|
|
PHA
|
|
_LEStartUp
|
|
BCS L0A0167
|
|
LDA #$0000
|
|
L0A0167 STAL L0B0002
|
|
LDX $D6
|
|
LDA $D4
|
|
CLC
|
|
ADC #$0600
|
|
PHA
|
|
PEA $0000
|
|
PEA $0096
|
|
PEA $0001
|
|
_SeqStartUp
|
|
BCS L0A0189
|
|
LDA #$0000
|
|
L0A0189 STAL L0B0002
|
|
PEA $006E
|
|
JSL L021DFD
|
|
PLY
|
|
LDX $D6
|
|
LDA $D4
|
|
CLC
|
|
ADC #$0700
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
STX L0B00BF
|
|
STA L0B00BD
|
|
_StopInts
|
|
BCS L0A01B6
|
|
LDA #$0000
|
|
L0A01B6 STAL L0B0002
|
|
PEA $006F
|
|
JSL L021DFD
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0029
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A01CA PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
_SeqShutDown
|
|
BCS L0A01E1
|
|
LDA #$0000
|
|
L0A01E1 STAL L0B0002
|
|
_LEShutDown
|
|
BCS L0A01F1
|
|
LDA #$0000
|
|
L0A01F1 STAL L0B0002
|
|
_MenuShutDown
|
|
BCS L0A0201
|
|
LDA #$0000
|
|
L0A0201 STAL L0B0002
|
|
_EMShutDown
|
|
BCS L0A0211
|
|
LDA #$0000
|
|
L0A0211 STAL L0B0002
|
|
_QDShutDown
|
|
BCS L0A0221
|
|
LDA #$0000
|
|
L0A0221 STAL L0B0002
|
|
_MTShutDown
|
|
BCS L0A0231
|
|
LDA #$0000
|
|
L0A0231 STAL L0B0002
|
|
_TLShutDown
|
|
BCS L0A0241
|
|
LDA #$0000
|
|
L0A0241 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A024D PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
STZ $F4
|
|
BRL L0A031D
|
|
L0A025D LDA $F4
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA $F4
|
|
STA [$F6]
|
|
PEA ^L0C2993
|
|
PEA L0C2993
|
|
LDA $F4
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA $F6
|
|
LDX $F8
|
|
CLC
|
|
ADC #$0006
|
|
BCC L0A02B4
|
|
INX
|
|
L0A02B4 PHX
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A02DF
|
|
LDA #$0000
|
|
L0A02DF STAL L0B0002
|
|
LDA $F4
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
PLA
|
|
PLX
|
|
LDY #$0004
|
|
PHA
|
|
TXA
|
|
STA [$F6],Y
|
|
PLA
|
|
LDY #$0002
|
|
STA [$F6],Y
|
|
PEA $0078
|
|
JSL L021DFD
|
|
PLY
|
|
INC $F4
|
|
L0A031D LDA $F4
|
|
SEC
|
|
SBC #$0032
|
|
BVS L0A0328
|
|
EOR #$8000
|
|
L0A0328 BMI L0A032D
|
|
BRL L0A025D
|
|
L0A032D PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A034E
|
|
LDA #$0000
|
|
L0A034E STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B002C
|
|
STA L0B002A
|
|
PEA $0079
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A0383
|
|
LDA #$0000
|
|
L0A0383 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0030
|
|
STA L0B002E
|
|
PEA $007A
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A03B8
|
|
LDA #$0000
|
|
L0A03B8 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0034
|
|
STA L0B0032
|
|
PEA $007B
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A03ED
|
|
LDA #$0000
|
|
L0A03ED STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0038
|
|
STA L0B0036
|
|
PEA $007C
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A0422
|
|
LDA #$0000
|
|
L0A0422 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B003C
|
|
STA L0B003A
|
|
PEA $007D
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A0457
|
|
LDA #$0000
|
|
L0A0457 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0040
|
|
STA L0B003E
|
|
PEA $007E
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A048C
|
|
LDA #$0000
|
|
L0A048C STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0044
|
|
STA L0B0042
|
|
PEA $007F
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A04C1
|
|
LDA #$0000
|
|
L0A04C1 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0048
|
|
STA L0B0046
|
|
PEA $0080
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A04F6
|
|
LDA #$0000
|
|
L0A04F6 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B004C
|
|
STA L0B004A
|
|
PEA $0081
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A052B
|
|
LDA #$0000
|
|
L0A052B STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0050
|
|
STA L0B004E
|
|
PEA $0082
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A0560
|
|
LDA #$0000
|
|
L0A0560 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0054
|
|
STA L0B0052
|
|
PEA $0083
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $000C
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A0595
|
|
LDA #$0000
|
|
L0A0595 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0058
|
|
STA L0B0056
|
|
PEA $0084
|
|
JSL L021DFD
|
|
PLY
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0001
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A05CA
|
|
LDA #$0000
|
|
L0A05CA STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B00F1
|
|
STA L0B00EF
|
|
PEA $0085
|
|
JSL L021DFD
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A05E6 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00E7
|
|
TCS
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0280
|
|
PEA $00C8
|
|
_SetRect
|
|
BCS L0A0612
|
|
LDA #$0000
|
|
L0A0612 STAL L0B0002
|
|
PEA ^L0C03BB
|
|
PEA L0C03BB
|
|
JSL L0A11C3
|
|
PLY
|
|
PLY
|
|
LDX #$0000
|
|
LDA #$C030
|
|
STX L0B00B5
|
|
STA L0B00B3
|
|
STZ L0B006A
|
|
STZ L0B006C
|
|
STZ L0B0078
|
|
STZ L0B007A
|
|
PEA ^L0B0070
|
|
PEA L0B0070
|
|
PEA ^L0B0072
|
|
PEA L0B0072
|
|
JSL L070547
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDX #$0009
|
|
LDA #$EB10
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TotalMem
|
|
BCS L0A0664
|
|
LDA #$0000
|
|
L0A0664 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
JSL L010B98
|
|
BEQ L0A0672
|
|
BCS L0A0677
|
|
L0A0672 LDA #$0000
|
|
BRA L0A067A
|
|
L0A0677 LDA #$0001
|
|
L0A067A STA L0B00A6
|
|
STZ L0B00A8
|
|
STZ L0B00AA
|
|
STZ L0B007C
|
|
STZ L0B007E
|
|
STZ L0B0084
|
|
STZ L0B008C
|
|
STZ L0B0088
|
|
LDA #$0001
|
|
STA L0B009A
|
|
STZ L0B00A0
|
|
STZ L0B00A2
|
|
LDA #$0000
|
|
STAL L0C1AA4
|
|
LDA #$0001
|
|
STAL L0C1AA2
|
|
LDA #$0001
|
|
STAL L0C1A9C
|
|
STZ L0B008E
|
|
LDA #$0001
|
|
STA L0B0096
|
|
LDA #$0001
|
|
STA L0B009C
|
|
STZ L0B008A
|
|
LDA #$0000
|
|
STAL L0C1AB0
|
|
STZ L0B00B7
|
|
PEA ^L0C2994
|
|
PEA L0C2994
|
|
PEA ^L0C10BE
|
|
PEA L0C10BE
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STZ L0B0082
|
|
STZ L0B00AE
|
|
PEA ^L0C2995
|
|
PEA L0C2995
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STZ $F4
|
|
BRA L0A0749
|
|
L0A0701 LDA $F4
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C072F
|
|
LDX #^L0C072F
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA #$0000
|
|
STA [$F6]
|
|
PEA ^L0C2996
|
|
PEA L0C2996
|
|
LDA $F4
|
|
PHA
|
|
LDA #$0033
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0759
|
|
LDX #^L0C0759
|
|
JSL L010922
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC $F4
|
|
L0A0749 LDA $F4
|
|
CMP #$0015
|
|
BCC L0A0701
|
|
STZ $F4
|
|
BRA L0A079A
|
|
L0A0754 STZ $F2
|
|
BRA L0A0791
|
|
L0A0758 LDA $F2
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA $F4
|
|
PHA
|
|
LDA #$0006
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0FA2
|
|
LDX #^L0C0FA2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA #$0000
|
|
SEP #$20
|
|
STA [$F6]
|
|
REP #$20
|
|
INC $F2
|
|
L0A0791 LDA $F2
|
|
CMP #$0006
|
|
BCC L0A0758
|
|
INC $F4
|
|
L0A079A LDA $F4
|
|
CMP #$0005
|
|
BCC L0A0754
|
|
PEA ^L0C0F7A
|
|
PEA L0C0F7A
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0280
|
|
PEA $00C8
|
|
_SetRect
|
|
BCS L0A07BF
|
|
LDA #$0000
|
|
L0A07BF STAL L0B0002
|
|
LDA #$0000
|
|
STAL L0C0FEE
|
|
PEA $0087
|
|
_SetMasterSCB
|
|
BCS L0A07D9
|
|
LDA #$0000
|
|
L0A07D9 STAL L0B0002
|
|
PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_OpenPort
|
|
BCS L0A07EF
|
|
LDA #$0000
|
|
L0A07EF STAL L0B0002
|
|
PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_GetPortLoc
|
|
BCS L0A0805
|
|
LDA #$0000
|
|
L0A0805 STAL L0B0002
|
|
PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_SetPort
|
|
BCS L0A081B
|
|
LDA #$0000
|
|
L0A081B STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
_ClipRect
|
|
BCS L0A0834
|
|
LDA #$0000
|
|
L0A0834 STAL L0B0002
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
_OpenPort
|
|
BCS L0A084A
|
|
LDA #$0000
|
|
L0A084A STAL L0B0002
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
_GetPortLoc
|
|
BCS L0A0860
|
|
LDA #$0000
|
|
L0A0860 STAL L0B0002
|
|
PEA ^L0C0C32
|
|
PEA L0C0C32
|
|
_SetPort
|
|
BCS L0A0876
|
|
LDA #$0000
|
|
L0A0876 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
_ClipRect
|
|
BCS L0A088F
|
|
LDA #$0000
|
|
L0A088F STAL L0B0002
|
|
PEA ^L0C0B88
|
|
PEA L0C0B88
|
|
_OpenPort
|
|
BCS L0A08A5
|
|
LDA #$0000
|
|
L0A08A5 STAL L0B0002
|
|
PEA ^L0C0B88
|
|
PEA L0C0B88
|
|
_GetPortLoc
|
|
BCS L0A08BB
|
|
LDA #$0000
|
|
L0A08BB STAL L0B0002
|
|
PEA ^L0C0B88
|
|
PEA L0C0B88
|
|
_SetPort
|
|
BCS L0A08D1
|
|
LDA #$0000
|
|
L0A08D1 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
_ClipRect
|
|
BCS L0A08EA
|
|
LDA #$0000
|
|
L0A08EA STAL L0B0002
|
|
PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_SetPort
|
|
BCS L0A0900
|
|
LDA #$0000
|
|
L0A0900 STAL L0B0002
|
|
PEA $0003
|
|
_SetForeColor
|
|
BCS L0A0913
|
|
LDA #$0000
|
|
L0A0913 STAL L0B0002
|
|
PEA $0000
|
|
_SetBackColor
|
|
BCS L0A0926
|
|
LDA #$0000
|
|
L0A0926 STAL L0B0002
|
|
PEA $0004
|
|
_SetTextMode
|
|
BCS L0A0939
|
|
LDA #$0000
|
|
L0A0939 STAL L0B0002
|
|
PEA $0003
|
|
_SetSolidPenPat
|
|
BCS L0A094C
|
|
LDA #$0000
|
|
L0A094C STAL L0B0002
|
|
PEA $0000
|
|
_SetSolidBackPat
|
|
BCS L0A095F
|
|
LDA #$0000
|
|
L0A095F STAL L0B0002
|
|
STZ L0B00FB
|
|
STZ L0B00FD
|
|
LDA #$000C
|
|
STA L0B0101
|
|
LDA #$1000
|
|
STA L0B0105
|
|
STZ L0B0107
|
|
LDA #$0080
|
|
STA L0B0109
|
|
STZ L0B010B
|
|
LDA #L0C24F4
|
|
LDX #^L0C24F4
|
|
STX L0B0117
|
|
STA L0B0115
|
|
LDA #L0C03B2
|
|
LDX #^L0C03B2
|
|
STX L0B011B
|
|
STA L0B0119
|
|
STZ $F4
|
|
BRA L0A09CF
|
|
L0A099D PEA $0008
|
|
PEI $F4
|
|
PEA $0000
|
|
_SetColorEntry
|
|
BCS L0A09B1
|
|
LDA #$0000
|
|
L0A09B1 STAL L0B0002
|
|
PEA $0007
|
|
PEI $F4
|
|
PEA $0000
|
|
_SetColorEntry
|
|
BCS L0A09C9
|
|
LDA #$0000
|
|
L0A09C9 STAL L0B0002
|
|
INC $F4
|
|
L0A09CF LDA $F4
|
|
CMP #$000F
|
|
BEQ L0A099D
|
|
BCC L0A099D
|
|
TSC
|
|
CLC
|
|
ADC #$0013
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A09E0 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F3
|
|
TCS
|
|
LDA #L0C002E
|
|
LDX #^L0C002E
|
|
STX L0B00DB
|
|
STA L0B00D9
|
|
LDA #L0C00E6
|
|
LDX #^L0C00E6
|
|
STX L0B00DF
|
|
STA L0B00DD
|
|
PEA $0008
|
|
_SetMasterSCB
|
|
BCS L0A0A12
|
|
LDA #$0000
|
|
L0A0A12 STAL L0B0002
|
|
JSL L03117F
|
|
_InitCursor
|
|
BCS L0A0A26
|
|
LDA #$0000
|
|
L0A0A26 STAL L0B0002
|
|
LDA #$0001
|
|
STA L0B0092
|
|
LDA #$0001
|
|
STA L0B0094
|
|
JSL L031208
|
|
PEA $0087
|
|
_SetMasterSCB
|
|
BCS L0A0A49
|
|
LDA #$0000
|
|
L0A0A49 STAL L0B0002
|
|
LDX #$00E0
|
|
LDA #$1E98
|
|
STX L0B00D7
|
|
STA L0B00D5
|
|
JSL L06204F
|
|
TSC
|
|
CLC
|
|
ADC #$0007
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A0A65 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDX #$0000
|
|
LDA #$0026
|
|
STX $F2
|
|
STA $F0
|
|
PHX
|
|
PHA
|
|
PEI $F2
|
|
PEI $F0
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0200
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A0A99
|
|
LDA #$0000
|
|
L0A0A99 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B00E7
|
|
STA L0B00E5
|
|
LDX L0B00E7
|
|
LDA L0B00E5
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
STA $F6
|
|
STX $F8
|
|
LDA #$0008
|
|
STA [$F6]
|
|
STZ $F4
|
|
BRL L0A0B4B
|
|
L0A0AC5 PEA ^L0C2997
|
|
PEA L0C2997
|
|
LDA $F4
|
|
PHA
|
|
LDA #$000A
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C2416
|
|
LDX #^L0C2416
|
|
JSL L010922
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $F4
|
|
PHA
|
|
LDA #$0040
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C2156
|
|
LDX #^L0C2156
|
|
JSL L010922
|
|
LDA $F4
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX L0B00E7
|
|
LDA L0B00E5
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
TAX
|
|
LDA [$F6]
|
|
STA $F6
|
|
STX $F8
|
|
LDX $F8
|
|
LDA #$0002
|
|
CLC
|
|
ADC $F6
|
|
BCC L0A0B33
|
|
INX
|
|
L0A0B33 JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
PLA
|
|
PLX
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$F6],Y
|
|
PLA
|
|
STA [$F6]
|
|
INC $F4
|
|
L0A0B4B LDA $F4
|
|
SEC
|
|
SBC #$0008
|
|
BVS L0A0B56
|
|
EOR #$8000
|
|
L0A0B56 BMI L0A0B5B
|
|
BRL L0A0AC5
|
|
L0A0B5B LDX L0B00E7
|
|
LDA L0B00E5
|
|
PHX
|
|
PHA
|
|
_SetInstTable
|
|
BCS L0A0B6F
|
|
LDA #$0000
|
|
L0A0B6F STAL L0B0002
|
|
STZ $F4
|
|
BRA L0A0B90
|
|
L0A0B77 PEA $0064
|
|
PEI $F4
|
|
PEI $F4
|
|
_SetTrkInfo
|
|
BCS L0A0B8A
|
|
LDA #$0000
|
|
L0A0B8A STAL L0B0002
|
|
INC $F4
|
|
L0A0B90 LDA $F4
|
|
SEC
|
|
SBC #$0008
|
|
BVS L0A0B9B
|
|
EOR #$8000
|
|
L0A0B9B BPL L0A0B77
|
|
STZ $F4
|
|
BRA L0A0BDF
|
|
L0A0BA1 PEA ^L0C2998
|
|
PEA L0C2998
|
|
LDA $F4
|
|
PHA
|
|
LDA #$000C
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C2356
|
|
LDX #^L0C2356
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA $F6
|
|
LDX $F8
|
|
CLC
|
|
ADC #$0002
|
|
BCC L0A0BD3
|
|
INX
|
|
L0A0BD3 PHX
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC $F4
|
|
L0A0BDF LDA $F4
|
|
SEC
|
|
SBC #$000C
|
|
BVS L0A0BEA
|
|
EOR #$8000
|
|
L0A0BEA BPL L0A0BA1
|
|
STZ L0B00E1
|
|
STZ L0B00E3
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A0BFA PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00D5
|
|
TCS
|
|
PEA ^L0C2999
|
|
PEA L0C2999
|
|
JSL L040E53
|
|
PLY
|
|
PLY
|
|
SEC
|
|
SBC #$0000
|
|
BVS L0A0C1A
|
|
EOR #$8000
|
|
L0A0C1A BPL L0A0C1F
|
|
BRL L0A0CD0
|
|
L0A0C1F PEA ^L0C29A6
|
|
PEA L0C29A6
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA #$0002
|
|
SEP #$20
|
|
STA $D7
|
|
REP #$20
|
|
LDA #$0000
|
|
STA $F0
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D7
|
|
STX $F4
|
|
STA $F2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEA $0009
|
|
LDX #$0000
|
|
JSL GSOS2
|
|
BCS L0A0C68
|
|
LDA #$0000
|
|
L0A0C68 STAL L0B0002
|
|
PEA ^L0C29A9
|
|
PEA L0C29A9
|
|
JSL L040E53
|
|
PLY
|
|
PLY
|
|
SEC
|
|
SBC #$0000
|
|
BVS L0A0C81
|
|
EOR #$8000
|
|
L0A0C81 BMI L0A0CD0
|
|
PEA ^L0C29B6
|
|
PEA L0C29B6
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA #$0002
|
|
SEP #$20
|
|
STA $D7
|
|
REP #$20
|
|
LDA #$0000
|
|
STA $F0
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D7
|
|
STX $F4
|
|
STA $F2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00F0
|
|
PHA
|
|
PEA $0009
|
|
LDX #$0000
|
|
JSL GSOS2
|
|
BCS L0A0CCC
|
|
LDA #$0000
|
|
L0A0CCC STAL L0B0002
|
|
L0A0CD0 PEA ^L0C29B9
|
|
PEA L0C29B9
|
|
JSL L0A0F0C
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0025
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A0CE4 ENT
|
|
L0E0020 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
JSL L0A09E0
|
|
JSL L0A024D
|
|
JSL L0A05E6
|
|
JSL L0A0A65
|
|
JSL L0A0BFA
|
|
PEA ^L0C29BE
|
|
PEA L0C29BE
|
|
PEA ^L0C1220
|
|
PEA L0C1220
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A0D1F ENT
|
|
L0E0012 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
PEA $0006
|
|
_WriteChar
|
|
BCS L0A0D39
|
|
LDA #$0000
|
|
L0A0D39 STAL L0B0002
|
|
PEA ^L0C29C3
|
|
PEA L0C29C3
|
|
_WriteCString
|
|
BCS L0A0D4F
|
|
LDA #$0000
|
|
L0A0D4F STAL L0B0002
|
|
PEA ^L0C29CE
|
|
PEA L0C29CE
|
|
_WriteCString
|
|
BCS L0A0D65
|
|
LDA #$0000
|
|
L0A0D65 STAL L0B0002
|
|
LDX #$0007
|
|
LDA #$D000
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TotalMem
|
|
BCS L0A0D7F
|
|
LDA #$0000
|
|
L0A0D7F STAL L0B0002
|
|
PLA
|
|
PLX
|
|
JSL L010B98
|
|
BNE L0A0D8E
|
|
BRL L0A0E7D
|
|
L0A0D8E BCS L0A0D93
|
|
BRL L0A0E7D
|
|
L0A0D93 PEA ^L0C2A0D
|
|
PEA L0C2A0D
|
|
_WriteCString
|
|
BCS L0A0DA5
|
|
LDA #$0000
|
|
L0A0DA5 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0DB8
|
|
LDA #$0000
|
|
L0A0DB8 STAL L0B0002
|
|
PEA ^L0C2A16
|
|
PEA L0C2A16
|
|
_WriteCString
|
|
BCS L0A0DCE
|
|
LDA #$0000
|
|
L0A0DCE STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0DE1
|
|
LDA #$0000
|
|
L0A0DE1 STAL L0B0002
|
|
PEA ^L0C2A5E
|
|
PEA L0C2A5E
|
|
_WriteCString
|
|
BCS L0A0DF7
|
|
LDA #$0000
|
|
L0A0DF7 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0E0A
|
|
LDA #$0000
|
|
L0A0E0A STAL L0B0002
|
|
PEA ^L0C2AA8
|
|
PEA L0C2AA8
|
|
_WriteCString
|
|
BCS L0A0E20
|
|
LDA #$0000
|
|
L0A0E20 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0E33
|
|
LDA #$0000
|
|
L0A0E33 STAL L0B0002
|
|
PEA ^L0C2AF3
|
|
PEA L0C2AF3
|
|
_WriteCString
|
|
BCS L0A0E49
|
|
LDA #$0000
|
|
L0A0E49 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0E5C
|
|
LDA #$0000
|
|
L0A0E5C STAL L0B0002
|
|
PEA ^L0C2B3A
|
|
PEA L0C2B3A
|
|
_WriteCString
|
|
BCS L0A0E72
|
|
LDA #$0000
|
|
L0A0E72 STAL L0B0002
|
|
L0A0E76 LDA #$0001
|
|
BEQ L0A0E7D
|
|
BRA L0A0E76
|
|
L0A0E7D JSL L0A0000
|
|
STZ $F4
|
|
BRA L0A0EB7
|
|
L0A0E85 PEA $0008
|
|
PEI $F4
|
|
PEA $0000
|
|
_SetColorEntry
|
|
BCS L0A0E99
|
|
LDA #$0000
|
|
L0A0E99 STAL L0B0002
|
|
PEA $0007
|
|
PEI $F4
|
|
PEA $0000
|
|
_SetColorEntry
|
|
BCS L0A0EB1
|
|
LDA #$0000
|
|
L0A0EB1 STAL L0B0002
|
|
INC $F4
|
|
L0A0EB7 LDA $F4
|
|
SEC
|
|
SBC #$000F
|
|
BEQ L0A0E85
|
|
BVS L0A0EC4
|
|
EOR #$8000
|
|
L0A0EC4 BPL L0A0E85
|
|
PEA $0001
|
|
JSL L030F81
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A0ED6 ENT
|
|
L0E002E ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
_GrafOff
|
|
BCS L0A0EED
|
|
LDA #$0000
|
|
L0A0EED STAL L0B0002
|
|
JSL L0620B1
|
|
JSL L0A01CA
|
|
STZ L0B0000
|
|
PEA $0000
|
|
JSL L010B7A
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A0F0C PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00B2
|
|
TCS
|
|
STZ $BE
|
|
STZ $BC
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C0
|
|
PHA
|
|
JSL L040390
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TAY
|
|
BEQ L0A0F36
|
|
BRL L0A0FD8
|
|
L0A0F36 _GrafOff
|
|
BCS L0A0F42
|
|
LDA #$0000
|
|
L0A0F42 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0F55
|
|
LDA #$0000
|
|
L0A0F55 STAL L0B0002
|
|
PEA $000A
|
|
_WriteChar
|
|
BCS L0A0F68
|
|
LDA #$0000
|
|
L0A0F68 STAL L0B0002
|
|
PEA $000A
|
|
_WriteChar
|
|
BCS L0A0F7B
|
|
LDA #$0000
|
|
L0A0F7B STAL L0B0002
|
|
PEA ^L0C2B68
|
|
PEA L0C2B68
|
|
_WriteCString
|
|
BCS L0A0F91
|
|
LDA #$0000
|
|
L0A0F91 STAL L0B0002
|
|
PEI $FF
|
|
PEI $FD
|
|
_WriteCString
|
|
BCS L0A0FA5
|
|
LDA #$0000
|
|
L0A0FA5 STAL L0B0002
|
|
PEA $000D
|
|
_WriteChar
|
|
BCS L0A0FB8
|
|
LDA #$0000
|
|
L0A0FB8 STAL L0B0002
|
|
PEA $000A
|
|
_WriteChar
|
|
BCS L0A0FCB
|
|
LDA #$0000
|
|
L0A0FCB STAL L0B0002
|
|
LDA #$0000
|
|
BRL L0A10E8
|
|
BRL L0A10E8
|
|
L0A0FD8 LDAL L0C0FEE
|
|
STA $B4
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00B4
|
|
PHA
|
|
PEA $0019
|
|
LDX #$0000
|
|
JSL GSOS2
|
|
BCS L0A0FF6
|
|
LDA #$0000
|
|
L0A0FF6 STAL L0B0002
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
PEA $0800
|
|
LDA L0B0066
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
_NewHandle
|
|
BCS L0A101B
|
|
LDA #$0000
|
|
L0A101B STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX L0B0028
|
|
STA L0B0026
|
|
PEA $0028
|
|
JSL L021DFD
|
|
PLY
|
|
LDX L0B0028
|
|
LDA L0B0026
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
BCS L0A1043
|
|
LDA #$0000
|
|
L0A1043 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00BE
|
|
PHA
|
|
LDX L0B0028
|
|
LDA L0B0026
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
TAX
|
|
LDA [$F2]
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
JSL L0402DB
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDX $B8
|
|
LDA $B6
|
|
PHA
|
|
LDX L0B0028
|
|
LDA L0B0026
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
TAX
|
|
LDA [$F2]
|
|
PHX
|
|
PHA
|
|
JSL L0A10F2
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDX L0B0028
|
|
LDA L0B0026
|
|
PHX
|
|
PHA
|
|
_HUnlock
|
|
BCS L0A10A4
|
|
LDA #$0000
|
|
L0A10A4 STAL L0B0002
|
|
PEA $0032
|
|
JSL L021DFD
|
|
PLY
|
|
PEI $B8
|
|
PEI $B6
|
|
LDX L0B0028
|
|
LDA L0B0026
|
|
PHX
|
|
PHA
|
|
_SetHandleSize
|
|
BCS L0A10C8
|
|
LDA #$0000
|
|
L0A10C8 STAL L0B0002
|
|
PEA ^L0C0FEE
|
|
PEA L0C0FEE
|
|
PEA $0014
|
|
LDX #$0000
|
|
JSL GSOS2
|
|
BCS L0A10E1
|
|
LDA #$0000
|
|
L0A10E1 STAL L0B0002
|
|
LDA #$0001
|
|
L0A10E8 TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0044
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0A10F2 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00E8
|
|
TCS
|
|
STZ $EC
|
|
LDA #$0001
|
|
STA $EE
|
|
L0A1104 LDA $FF
|
|
SEC
|
|
SBC #$0002
|
|
SEC
|
|
SBC $EC
|
|
BNE L0A1112
|
|
BRL L0A11BB
|
|
L0A1112 BVS L0A1117
|
|
EOR #$8000
|
|
L0A1117 BMI L0A111C
|
|
BRL L0A11BB
|
|
L0A111C LDA $EE
|
|
SEC
|
|
SBC #$0006
|
|
BEQ L0A112E
|
|
BVS L0A1129
|
|
EOR #$8000
|
|
L0A1129 BPL L0A112E
|
|
BRL L0A11BB
|
|
L0A112E LDA $EE
|
|
INC $EE
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1A8A
|
|
LDX #^L0C1A8A
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA $EC
|
|
STA [$F0]
|
|
LDA $EC
|
|
CLC
|
|
ADC #$0002
|
|
STA $EC
|
|
L0A1154 LDA $EC
|
|
SEC
|
|
SBC #$0003
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0A1161
|
|
DEX
|
|
L0A1161 PHX
|
|
PHA
|
|
LDX $FD
|
|
LDA $FB
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
CMP #$0025
|
|
BNE L0A11A2
|
|
LDA $EC
|
|
SEC
|
|
SBC #$0002
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0A1188
|
|
DEX
|
|
L0A1188 PHX
|
|
PHA
|
|
LDX $FD
|
|
LDA $FB
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F0
|
|
STX $F2
|
|
LDA [$F0]
|
|
AND #$00FF
|
|
CMP #$0077
|
|
BEQ L0A11B8
|
|
L0A11A2 LDA $FF
|
|
SEC
|
|
SBC #$0002
|
|
SEC
|
|
SBC $EC
|
|
BEQ L0A11B8
|
|
BVS L0A11B2
|
|
EOR #$8000
|
|
L0A11B2 BPL L0A11B8
|
|
INC $EC
|
|
BRA L0A1154
|
|
L0A11B8 BRL L0A1104
|
|
L0A11BB TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0A11C3 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020134
|
|
PLY
|
|
PLY
|
|
PEA ^L02277B
|
|
PEA L02277B
|
|
PEA ^L0C2B84
|
|
PEA L0C2B84
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02279E
|
|
PEA L02279E
|
|
PEA ^L0C2B8C
|
|
PEA L0C2B8C
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0227F2
|
|
PEA L0227F2
|
|
PEA ^L0C2B93
|
|
PEA L0C2B93
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022815
|
|
PEA L022815
|
|
PEA ^L0C2B95
|
|
PEA L0C2B95
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02286B
|
|
PEA L02286B
|
|
PEA ^L0C2B97
|
|
PEA L0C2B97
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02299F
|
|
PEA L02299F
|
|
PEA ^L0C2B99
|
|
PEA L0C2B99
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0229C2
|
|
PEA L0229C2
|
|
PEA ^L0C2B9B
|
|
PEA L0C2B9B
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0229DD
|
|
PEA L0229DD
|
|
PEA ^L0C2B9D
|
|
PEA L0C2B9D
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022A0A
|
|
PEA L022A0A
|
|
PEA ^L0C2BA0
|
|
PEA L0C2BA0
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022A3C
|
|
PEA L022A3C
|
|
PEA ^L0C2BA3
|
|
PEA L0C2BA3
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022A7B
|
|
PEA L022A7B
|
|
PEA ^L0C2BA7
|
|
PEA L0C2BA7
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022A92
|
|
PEA L022A92
|
|
PEA ^L0C2BAD
|
|
PEA L0C2BAD
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022B01
|
|
PEA L022B01
|
|
PEA ^L0C2BB4
|
|
PEA L0C2BB4
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022B24
|
|
PEA L022B24
|
|
PEA ^L0C2BBB
|
|
PEA L0C2BBB
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022BA2
|
|
PEA L022BA2
|
|
PEA ^L0C2BC0
|
|
PEA L0C2BC0
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022BCF
|
|
PEA L022BCF
|
|
PEA ^L0C2BC4
|
|
PEA L0C2BC4
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022C43
|
|
PEA L022C43
|
|
PEA ^L0C2BC9
|
|
PEA L0C2BC9
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022C70
|
|
PEA L022C70
|
|
PEA ^L0C2BCE
|
|
PEA L0C2BCE
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022C9D
|
|
PEA L022C9D
|
|
PEA ^L0C2BD3
|
|
PEA L0C2BD3
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022CCA
|
|
PEA L022CCA
|
|
PEA ^L0C2BDC
|
|
PEA L0C2BDC
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022CF7
|
|
PEA L022CF7
|
|
PEA ^L0C2BE3
|
|
PEA L0C2BE3
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022D28
|
|
PEA L022D28
|
|
PEA ^L0C2BE9
|
|
PEA L0C2BE9
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022D54
|
|
PEA L022D54
|
|
PEA ^L0C2BEE
|
|
PEA L0C2BEE
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022D81
|
|
PEA L022D81
|
|
PEA ^L0C2BF4
|
|
PEA L0C2BF4
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022DAD
|
|
PEA L022DAD
|
|
PEA ^L0C2BF9
|
|
PEA L0C2BF9
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022DC8
|
|
PEA L022DC8
|
|
PEA ^L0C2C01
|
|
PEA L0C2C01
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022DF4
|
|
PEA L022DF4
|
|
PEA ^L0C2C06
|
|
PEA L0C2C06
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022F06
|
|
PEA L022F06
|
|
PEA ^L0C2C0A
|
|
PEA L0C2C0A
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022F1D
|
|
PEA L022F1D
|
|
PEA ^L0C2C0F
|
|
PEA L0C2C0F
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023868
|
|
PEA L023868
|
|
PEA ^L0C2C14
|
|
PEA L0C2C14
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022FB5
|
|
PEA L022FB5
|
|
PEA ^L0C2C17
|
|
PEA L0C2C17
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0230C9
|
|
PEA L0230C9
|
|
PEA ^L0C2C1B
|
|
PEA L0C2C1B
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02324E
|
|
PEA L02324E
|
|
PEA ^L0C2C20
|
|
PEA L0C2C20
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023271
|
|
PEA L023271
|
|
PEA ^L0C2C24
|
|
PEA L0C2C24
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02333A
|
|
PEA L02333A
|
|
PEA ^L0C2C28
|
|
PEA L0C2C28
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023369
|
|
PEA L023369
|
|
PEA ^L0C2C2D
|
|
PEA L0C2C2D
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02345E
|
|
PEA L02345E
|
|
PEA ^L0C2C2F
|
|
PEA L0C2C2F
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023548
|
|
PEA L023548
|
|
PEA ^L0C2C33
|
|
PEA L0C2C33
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023591
|
|
PEA L023591
|
|
PEA ^L0C2C3B
|
|
PEA L0C2C3B
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023B3A
|
|
PEA L023B3A
|
|
PEA ^L0C2C40
|
|
PEA L0C2C40
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L022768
|
|
PEA L022768
|
|
PEA ^L0C2C44
|
|
PEA L0C2C44
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0236A5
|
|
PEA L0236A5
|
|
PEA ^L0C2C4A
|
|
PEA L0C2C4A
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023644
|
|
PEA L023644
|
|
PEA ^L0C2C51
|
|
PEA L0C2C51
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023706
|
|
PEA L023706
|
|
PEA ^L0C2C58
|
|
PEA L0C2C58
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02374F
|
|
PEA L02374F
|
|
PEA ^L0C2C60
|
|
PEA L0C2C60
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0237D0
|
|
PEA L0237D0
|
|
PEA ^L0C2C67
|
|
PEA L0C2C67
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02337C
|
|
PEA L02337C
|
|
PEA ^L0C2C6F
|
|
PEA L0C2C6F
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023841
|
|
PEA L023841
|
|
PEA ^L0C2C77
|
|
PEA L0C2C77
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023868
|
|
PEA L023868
|
|
PEA ^L0C2C7C
|
|
PEA L0C2C7C
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0237F3
|
|
PEA L0237F3
|
|
PEA ^L0C2C83
|
|
PEA L0C2C83
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02381A
|
|
PEA L02381A
|
|
PEA ^L0C2C88
|
|
PEA L0C2C88
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02388F
|
|
PEA L02388F
|
|
PEA ^L0C2C8F
|
|
PEA L0C2C8F
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L02399F
|
|
PEA L02399F
|
|
PEA ^L0C2C9A
|
|
PEA L0C2C9A
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0239C6
|
|
PEA L0239C6
|
|
PEA ^L0C2CA4
|
|
PEA L0C2CA4
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L0239ED
|
|
PEA L0239ED
|
|
PEA ^L0C2CAE
|
|
PEA L0C2CAE
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023A14
|
|
PEA L023A14
|
|
PEA ^L0C2CB8
|
|
PEA L0C2CB8
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023B17
|
|
PEA L023B17
|
|
PEA ^L0C2CC3
|
|
PEA L0C2CC3
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023B5D
|
|
PEA L023B5D
|
|
PEA ^L0C2CCC
|
|
PEA L0C2CCC
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
PEA ^L023BBA
|
|
PEA L023BBA
|
|
PEA ^L0C2CD3
|
|
PEA L0C2CD3
|
|
PEI $FF
|
|
PEI $FD
|
|
JSL L020276
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|