4394 lines
77 KiB
ArmAsm
4394 lines
77 KiB
ArmAsm
*
|
|
* Your tour of the Apple IIgs
|
|
*
|
|
* (c) 1989, Apple Computer
|
|
* (s) 2020, Antoine Vignau
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
lst off
|
|
|
|
*-------------------------------
|
|
|
|
use TWO.X
|
|
|
|
use 4/Event.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Misc.Macs
|
|
use 4/QD.Macs
|
|
use 4/QDAux.Macs
|
|
use 4/Util.Macs
|
|
|
|
*-------------------------------
|
|
|
|
L030000 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00E9
|
|
TCD
|
|
ADC #$FF54
|
|
TCS
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
STX $D0
|
|
STA $CE
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00BA
|
|
STX $C0
|
|
STA $BE
|
|
LDY #$0002
|
|
LDA [$EF],Y
|
|
TAX
|
|
LDA [$EF]
|
|
STX $94
|
|
STA $92
|
|
LDX $F1
|
|
LDA $EF
|
|
STX $90
|
|
STA $8E
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDA [$E4]
|
|
AND #$00FF
|
|
STA $A2
|
|
LDA $A2
|
|
AND #$0080
|
|
CMP #$0000
|
|
BEQ L030062
|
|
LDA #$0004
|
|
STA $8C
|
|
STZ $FF
|
|
LDA #$0087
|
|
STA $A2
|
|
BRA L03006C
|
|
L030062 LDA #$0008
|
|
STA $A2
|
|
LDA #$0002
|
|
STA $8C
|
|
L03006C LDA $F7
|
|
CMP #$0006
|
|
BNE L030075
|
|
STZ $FF
|
|
L030075 LDA $A2
|
|
SEC
|
|
SBC #$0080
|
|
BVS L030080
|
|
EOR #$8000
|
|
L030080 BMI L03008B
|
|
LDA $F9
|
|
BEQ L03008B
|
|
LDA #$0000
|
|
BRA L03008E
|
|
L03008B LDA #$0001
|
|
L03008E STA $88
|
|
LDA $F9
|
|
BNE L0300EE
|
|
PEI $FD
|
|
PEI $FB
|
|
PEA $0000
|
|
PEA $0000
|
|
LDA $8C
|
|
PHA
|
|
LDA #$0004
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
SEC
|
|
SBC #$0001
|
|
SEC
|
|
JSL L010AAE
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0001
|
|
LDA [$E4],Y
|
|
AND #$00FF
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
_SetRect
|
|
BCS L0300EA
|
|
LDA #$0000
|
|
L0300EA STAL L0B0002
|
|
L0300EE LDA [$FB]
|
|
STA $E0
|
|
LDY #$0004
|
|
LDA [$FB],Y
|
|
SEC
|
|
SBC #$0001
|
|
STA $DE
|
|
LDA $DE
|
|
SEC
|
|
SBC $E0
|
|
CLC
|
|
ADC #$0001
|
|
STA $E2
|
|
LDA #L0C0C32
|
|
LDX #^L0C0C32
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF56
|
|
PHA
|
|
PEA $00AA
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $8C
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
CLC
|
|
ADC #$0001
|
|
LDX #$FF5C
|
|
STA $00,X
|
|
LDX #$FF5C
|
|
LDA $00,X
|
|
CLC
|
|
ADC #$0001
|
|
STA $C2
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0001
|
|
LDA [$E4],Y
|
|
AND #$00FF
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDA #$0002
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03017C
|
|
DEX
|
|
L03017C STX $A6
|
|
STA $A4
|
|
PEA $C000
|
|
PEI $A6
|
|
PEI $A4
|
|
LDX L0B0034
|
|
LDA L0B0032
|
|
PHX
|
|
PHA
|
|
JSL L040000
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0386
|
|
JSL L021DFD
|
|
PLY
|
|
LDX L0B0034
|
|
LDA L0B0032
|
|
PHX
|
|
PHA
|
|
_HLock
|
|
BCS L0301B4
|
|
LDA #$0000
|
|
L0301B4 STAL L0B0002
|
|
PEA $0387
|
|
JSL L021DFD
|
|
PLY
|
|
LDX L0B0034
|
|
LDA L0B0032
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
TAX
|
|
LDA [$E4]
|
|
STX $B2
|
|
STA $B0
|
|
LDA $F7
|
|
SEC
|
|
SBC #$0003
|
|
BVS L0301E1
|
|
EOR #$8000
|
|
L0301E1 BPL L0301F2
|
|
LDA $F7
|
|
SEC
|
|
SBC #$0004
|
|
BEQ L030234
|
|
BVS L0301F0
|
|
EOR #$8000
|
|
L0301F0 BPL L030234
|
|
L0301F2 STZ $C6
|
|
BRA L030225
|
|
L0301F6 LDA $C6
|
|
CLC
|
|
ADC $E0
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03020D
|
|
DEX
|
|
L03020D SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
PLA
|
|
STA [$E4]
|
|
INC $C6
|
|
L030225 LDA $C6
|
|
SEC
|
|
SBC $E2
|
|
BVS L03022F
|
|
EOR #$8000
|
|
L03022F BPL L0301F6
|
|
BRL L0302CD
|
|
L030234 STZ $C6
|
|
BRL L0302BE
|
|
L030239 LDA #$0002
|
|
PHA
|
|
LDA $C6
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
PHA
|
|
LDA $E0
|
|
PLX
|
|
STX $E8
|
|
CLC
|
|
ADC $E8
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L030260
|
|
DEX
|
|
L030260 SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
PLA
|
|
STA [$E4]
|
|
LDA #$0002
|
|
PHA
|
|
LDA $C6
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
PHA
|
|
LDA $DE
|
|
PLX
|
|
STX $E8
|
|
SEC
|
|
SBC $E8
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03029D
|
|
DEX
|
|
L03029D SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
PLA
|
|
LDY #$0002
|
|
STA [$E4],Y
|
|
LDA $C6
|
|
CLC
|
|
ADC #$0002
|
|
STA $C6
|
|
L0302BE LDA $C6
|
|
SEC
|
|
SBC $E2
|
|
BVS L0302C8
|
|
EOR #$8000
|
|
L0302C8 BMI L0302CD
|
|
BRL L030239
|
|
L0302CD LDA $F7
|
|
CMP #$0002
|
|
BEQ L0302DE
|
|
LDA $F7
|
|
CMP #$0004
|
|
BEQ L0302DE
|
|
BRL L030375
|
|
L0302DE STZ $C6
|
|
BRA L030353
|
|
L0302E2 LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0302F3
|
|
DEX
|
|
L0302F3 SEC
|
|
JSL L010CB2
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $E2
|
|
LDX #$0000
|
|
TAY
|
|
BPL L030309
|
|
DEX
|
|
L030309 SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
JSL L010AA3
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC #$0002
|
|
PHA
|
|
TXA
|
|
SBC #$0000
|
|
TAX
|
|
PLA
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03033C
|
|
DEX
|
|
L03033C SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
JSL L0321DE
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC $C6
|
|
L030353 LDA #$0002
|
|
PHA
|
|
LDA $E2
|
|
SEC
|
|
SBC #$0001
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
SEC
|
|
SBC $C6
|
|
BEQ L030372
|
|
BVS L03036D
|
|
EOR #$8000
|
|
L03036D BPL L030372
|
|
BRL L0302E2
|
|
L030372 BRL L0303FC
|
|
L030375 LDA $F7
|
|
CMP #$0001
|
|
BNE L0303DD
|
|
STZ $C6
|
|
BRA L0303CF
|
|
L030380 PEI $E2
|
|
JSL L031FA1
|
|
PLY
|
|
STA $CC
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $CC
|
|
LDX #$0000
|
|
TAY
|
|
BPL L03039A
|
|
DEX
|
|
L03039A SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0303B8
|
|
DEX
|
|
L0303B8 SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
JSL L0321DE
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
INC $C6
|
|
L0303CF LDA $C6
|
|
SEC
|
|
SBC $E2
|
|
BVS L0303D9
|
|
EOR #$8000
|
|
L0303D9 BPL L030380
|
|
BRA L0303FC
|
|
L0303DD LDA $F7
|
|
CMP #$0005
|
|
BEQ L0303EB
|
|
LDA $F7
|
|
CMP #$0007
|
|
BNE L0303FC
|
|
L0303EB LDA $E2
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDA $C2
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $C2
|
|
L0303FC LDA #L0C0CE4
|
|
LDX #^L0C0CE4
|
|
STX $A0
|
|
STA $9E
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF5E
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$9E],Y
|
|
PHA
|
|
LDA [$9E]
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$9E],Y
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$9E],Y
|
|
PHA
|
|
_SetRect
|
|
BCS L030430
|
|
LDA #$0000
|
|
L030430 STAL L0B0002
|
|
PEI $C2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF56
|
|
PHA
|
|
PEA ^L0B0036
|
|
PEA L0B0036
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L0C0CDC
|
|
PEA L0C0CDC
|
|
_SetPort
|
|
BCS L030460
|
|
LDA #$0000
|
|
L030460 STAL L0B0002
|
|
PEA $0000
|
|
PEI $F1
|
|
PEI $EF
|
|
_SetPurge
|
|
BCS L030477
|
|
LDA #$0000
|
|
L030477 STAL L0B0002
|
|
PEA $038C
|
|
JSL L021DFD
|
|
PLY
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0001
|
|
LDA [$E4],Y
|
|
AND #$00FF
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDA #$0004
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0304AC
|
|
DEX
|
|
L0304AC STX $A6
|
|
STA $A4
|
|
PEA $038E
|
|
JSL L021DFD
|
|
PLY
|
|
PEA $C000
|
|
PEI $A6
|
|
PEI $A4
|
|
LDX L0B0030
|
|
LDA L0B002E
|
|
PHX
|
|
PHA
|
|
JSL L040000
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0398
|
|
JSL L021DFD
|
|
PLY
|
|
PEI $F1
|
|
PEI $EF
|
|
_HLock
|
|
BCS L0304E8
|
|
LDA #$0000
|
|
L0304E8 STAL L0B0002
|
|
PEA $03A2
|
|
JSL L021DFD
|
|
PLY
|
|
LDX L0B0030
|
|
LDA L0B002E
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
TAX
|
|
LDA [$E4]
|
|
STX $AE
|
|
STA $AC
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0001
|
|
LDA [$E4],Y
|
|
AND #$00FF
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$EF],Y
|
|
TAX
|
|
LDA [$EF]
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
TXA
|
|
ADC #$0000
|
|
TAX
|
|
PLA
|
|
STX $AA
|
|
STA $A8
|
|
STZ $C4
|
|
BRA L0305B8
|
|
L030544 LDX #$0000
|
|
LDA #$0002
|
|
PHX
|
|
PHA
|
|
LDA $C4
|
|
LDX #$0000
|
|
TAY
|
|
BPL L030555
|
|
DEX
|
|
L030555 SEC
|
|
JSL L010CB2
|
|
LDX $AE
|
|
LDA $AC
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDX $AA
|
|
LDA $A8
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$E4],Y
|
|
PLA
|
|
STA [$E4]
|
|
LDA $C4
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDX $E6
|
|
LDA #$0024
|
|
CLC
|
|
ADC $E4
|
|
BCC L030594
|
|
INX
|
|
L030594 JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDA [$E4]
|
|
AND #$00FF
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX $AA
|
|
LDA $A8
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STX $AA
|
|
STA $A8
|
|
INC $C4
|
|
L0305B8 LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0001
|
|
LDA [$E4],Y
|
|
AND #$00FF
|
|
SEC
|
|
SBC $C4
|
|
BEQ L0305DB
|
|
BVS L0305D6
|
|
EOR #$8000
|
|
L0305D6 BPL L0305DB
|
|
BRL L030544
|
|
L0305DB LDA $FF
|
|
BEQ L03060F
|
|
PEA $0008
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDA $E4
|
|
LDX $E6
|
|
CLC
|
|
ADC #$0004
|
|
BCC L0305F9
|
|
INX
|
|
L0305F9 PHX
|
|
PHA
|
|
_SetColorTable
|
|
BCS L030607
|
|
LDA #$0000
|
|
L030607 STAL L0B0002
|
|
JSL L03223A
|
|
L03060F PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0096
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$FB],Y
|
|
PHA
|
|
PEA $0000
|
|
LDY #$0006
|
|
LDA [$FB],Y
|
|
PHA
|
|
PEA $0001
|
|
_SetRect
|
|
BCS L030636
|
|
LDA #$0000
|
|
L030636 STAL L0B0002
|
|
STZ $8A
|
|
LDA $F7
|
|
CMP #$0005
|
|
BEQ L03064D
|
|
LDA $F7
|
|
CMP #$0007
|
|
BEQ L03064D
|
|
BRL L0307B4
|
|
L03064D LDA $E2
|
|
STA $9A
|
|
STZ $DA
|
|
LDA [$FB]
|
|
STA $C6
|
|
BRA L030693
|
|
L030659 LDA $C6
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDX $E6
|
|
LDA #$0024
|
|
CLC
|
|
ADC $E4
|
|
BCC L030677
|
|
INX
|
|
L030677 JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDA [$E4]
|
|
AND #$00FF
|
|
PHA
|
|
LDA $DA
|
|
PLX
|
|
STX $E8
|
|
CLC
|
|
ADC $E8
|
|
STA $DA
|
|
INC $C6
|
|
L030693 LDA [$FB]
|
|
CLC
|
|
ADC $E2
|
|
SEC
|
|
SBC $C6
|
|
BEQ L0306A4
|
|
BVS L0306A2
|
|
EOR #$8000
|
|
L0306A2 BMI L030659
|
|
L0306A4 LDA $E2
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
LDA $8C
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $D6
|
|
LDX #$FF5A
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$FF58
|
|
LDA $00,X
|
|
PLX
|
|
STX $BC
|
|
STA $BA
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$0002
|
|
PHX
|
|
PHA
|
|
LDA [$FB]
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0306F0
|
|
DEX
|
|
L0306F0 SEC
|
|
JSL L010CB2
|
|
LDX $AE
|
|
LDA $AC
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
TAX
|
|
LDA [$E4]
|
|
PHX
|
|
PHA
|
|
LDA $DA
|
|
PHA
|
|
PEI $C0
|
|
PEI $BE
|
|
PEI $D0
|
|
PEI $CE
|
|
_UnPackBytes
|
|
BCS L030724
|
|
LDA #$0000
|
|
L030724 STAL L0B0002
|
|
PLA
|
|
STA $D8
|
|
LDA [$FB]
|
|
PHA
|
|
LDA $F5
|
|
PLX
|
|
STX $E8
|
|
SEC
|
|
SBC $E8
|
|
STA $DC
|
|
LDA $88
|
|
BEQ L030751
|
|
PEI $A2
|
|
LDA $DC
|
|
CLC
|
|
ADC $E2
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
PEI $DC
|
|
JSL L0321FD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L030751 LDA $F7
|
|
CMP #$0005
|
|
BNE L030781
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF56
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0096
|
|
PHA
|
|
PEI $F3
|
|
PEI $F5
|
|
PEA $0000
|
|
_PPToPort
|
|
BCS L03077D
|
|
LDA #$0000
|
|
L03077D STAL L0B0002
|
|
L030781 LDA $F7
|
|
CMP #$0007
|
|
BNE L0307B1
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF56
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0096
|
|
PHA
|
|
PEI $F3
|
|
PEI $F5
|
|
PEA $0001
|
|
_PPToPort
|
|
BCS L0307AD
|
|
LDA #$0000
|
|
L0307AD STAL L0B0002
|
|
L0307B1 BRL L0308F6
|
|
L0307B4 STZ $C6
|
|
BRL L0308E7
|
|
L0307B9 LDX #$0000
|
|
LDA #$0001
|
|
PHX
|
|
PHA
|
|
LDA $C6
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0307CA
|
|
DEX
|
|
L0307CA SEC
|
|
JSL L010CB2
|
|
LDX $B2
|
|
LDA $B0
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDA [$E4]
|
|
STA $D4
|
|
LDA $D4
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDX $E6
|
|
LDA #$0024
|
|
CLC
|
|
ADC $E4
|
|
BCC L0307FF
|
|
INX
|
|
L0307FF JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDA [$E4]
|
|
AND #$00FF
|
|
STA $DA
|
|
LDA $8C
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
CLC
|
|
ADC #$0003
|
|
STA $D6
|
|
LDX #$FF5A
|
|
LDA $00,X
|
|
TAX
|
|
PHX
|
|
LDX #$FF58
|
|
LDA $00,X
|
|
PLX
|
|
LDY #$0002
|
|
PHA
|
|
TXA
|
|
STA [$BE],Y
|
|
PLA
|
|
STA [$BE]
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$0002
|
|
PHX
|
|
PHA
|
|
LDA $D4
|
|
LDX #$0000
|
|
TAY
|
|
BPL L030859
|
|
DEX
|
|
L030859 SEC
|
|
JSL L010CB2
|
|
LDX $AE
|
|
LDA $AC
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
TAX
|
|
LDA [$E4]
|
|
PHX
|
|
PHA
|
|
LDA $DA
|
|
PHA
|
|
PEI $C0
|
|
PEI $BE
|
|
PEI $D0
|
|
PEI $CE
|
|
_UnPackBytes
|
|
BCS L03088D
|
|
LDA #$0000
|
|
L03088D STAL L0B0002
|
|
PLA
|
|
STA $D8
|
|
LDA [$FB]
|
|
PHA
|
|
LDA $F5
|
|
CLC
|
|
ADC $D4
|
|
PLX
|
|
STX $E8
|
|
SEC
|
|
SBC $E8
|
|
STA $DC
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF56
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0096
|
|
PHA
|
|
PEI $F3
|
|
PEI $DC
|
|
PEA $0000
|
|
_PPToPort
|
|
BCS L0308C9
|
|
LDA #$0000
|
|
L0308C9 STAL L0B0002
|
|
LDA $88
|
|
BEQ L0308E5
|
|
PEI $DC
|
|
PEI $A2
|
|
_SetSCB
|
|
BCS L0308E1
|
|
LDA #$0000
|
|
L0308E1 STAL L0B0002
|
|
L0308E5 INC $C6
|
|
L0308E7 LDA $C6
|
|
SEC
|
|
SBC $E2
|
|
BVS L0308F1
|
|
EOR #$8000
|
|
L0308F1 BMI L0308F6
|
|
BRL L0307B9
|
|
L0308F6 LDA $F7
|
|
CMP #$0006
|
|
BNE L03091C
|
|
LDY #$0002
|
|
LDA [$8E],Y
|
|
TAX
|
|
LDA [$8E]
|
|
STA $E4
|
|
STX $E6
|
|
LDA $E4
|
|
LDX $E6
|
|
CLC
|
|
ADC #$0004
|
|
BCC L030914
|
|
INX
|
|
L030914 PHX
|
|
PHA
|
|
JSL L031FD5
|
|
PLY
|
|
PLY
|
|
L03091C PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$FF56
|
|
PHA
|
|
PEA ^L0B0036
|
|
PEA L0B0036
|
|
JSL L030D54
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDX L0B0030
|
|
LDA L0B002E
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
LDX L0B0034
|
|
LDA L0B0032
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
PEI $F1
|
|
PEI $EF
|
|
_HUnlock
|
|
BCS L03095F
|
|
LDA #$0000
|
|
L03095F STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0194
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03096B ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDA L0B008A
|
|
BNE L03097E
|
|
BRL L030A0B
|
|
L03097E JSL L03117F
|
|
LDA #$0000
|
|
STA $F0
|
|
LDA #$0000
|
|
STA $EE
|
|
LDAL L0C0EE8
|
|
SEC
|
|
SBCL L0C0EE4
|
|
STA $F4
|
|
LDAL L0C0EE6
|
|
SEC
|
|
SBCL L0C0EE2
|
|
STA $F2
|
|
PEA ^L0C0B88
|
|
PEA L0C0B88
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EE
|
|
PHA
|
|
LDAL L0C0EE4
|
|
PHA
|
|
LDAL L0C0EE2
|
|
PHA
|
|
PEA $0000
|
|
_PPToPort
|
|
BCS L0309CA
|
|
LDA #$0000
|
|
L0309CA STAL L0B0002
|
|
PEA ^L0C0B88
|
|
PEA L0C0B88
|
|
PEA ^L0B003A
|
|
PEA L0B003A
|
|
JSL L030D54
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L0C0F7A
|
|
PEA L0C0F7A
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0280
|
|
PEA $00C8
|
|
_SetRect
|
|
BCS L030A00
|
|
LDA #$0000
|
|
L030A00 STAL L0B0002
|
|
STZ L0B008A
|
|
JSL L0311AA
|
|
L030A0B TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L030A13 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00C6
|
|
TCS
|
|
JSL L03096B
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_SetPt
|
|
BCS L030A3D
|
|
LDA #$0000
|
|
L030A3D STAL L0B0002
|
|
LDA $FD
|
|
LDX $FF
|
|
PHX
|
|
PHA
|
|
PEA ^L0C0EE2
|
|
PEA L0C0EE2
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDAL L0C0CE2
|
|
PHA
|
|
LDA #$0280
|
|
CLC
|
|
JSL L01092D
|
|
PLY
|
|
STA $CA
|
|
LDA $CA
|
|
PHA
|
|
LDAL L0C0EE8
|
|
SEC
|
|
SBCL L0C0EE4
|
|
CLC
|
|
ADC #$0001
|
|
CLC
|
|
JSL L01092D
|
|
PLY
|
|
CLC
|
|
ADC #$0001
|
|
STAL L0C0B8E
|
|
LDAL L0C0EE6
|
|
SEC
|
|
SBCL L0C0EE2
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDAL L0C0B8E
|
|
CLC
|
|
ADC #$0001
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $C8
|
|
PEI $C8
|
|
PEA ^L0C0B88
|
|
PEA L0C0B88
|
|
PEA ^L0B003A
|
|
PEA L0B003A
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA #L0C0CE4
|
|
LDX #^L0C0CE4
|
|
STX $D6
|
|
STA $D4
|
|
PEA ^L0C0B90
|
|
PEA L0C0B90
|
|
LDY #$0002
|
|
LDA [$D4],Y
|
|
PHA
|
|
LDA [$D4]
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$D4],Y
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$D4],Y
|
|
PHA
|
|
_SetRect
|
|
BCS L030AED
|
|
LDA #$0000
|
|
L030AED STAL L0B0002
|
|
LDA #L0C0CDC
|
|
LDX #^L0C0CDC
|
|
STX $DE
|
|
STA $DC
|
|
LDA #L0C0B88
|
|
LDX #^L0C0B88
|
|
STX $E2
|
|
STA $E0
|
|
LDA #L0C0EE2
|
|
LDX #^L0C0EE2
|
|
STX $E6
|
|
STA $E4
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D8
|
|
STX $EA
|
|
STA $E8
|
|
LDA #$0000
|
|
STA $EC
|
|
LDAL L0C0CF6
|
|
TAX
|
|
LDAL L0C0CF4
|
|
STX $F0
|
|
STA $EE
|
|
JSL L03117F
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
_PaintPixels
|
|
BCS L030B46
|
|
LDA #$0000
|
|
L030B46 STAL L0B0002
|
|
PEA $0087
|
|
LDAL L0C0EE6
|
|
PHA
|
|
LDAL L0C0EE2
|
|
PHA
|
|
JSL L0321FD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
_SetPenMode
|
|
BCS L030B6D
|
|
LDA #$0000
|
|
L030B6D STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CC
|
|
PHA
|
|
LDAL L0C0EE4
|
|
PHA
|
|
LDAL L0C0EE2
|
|
PHA
|
|
LDAL L0C0EE8
|
|
SEC
|
|
SBC #$0006
|
|
PHA
|
|
LDAL L0C0EE6
|
|
SEC
|
|
SBC #$0003
|
|
PHA
|
|
_SetRect
|
|
BCS L030BA2
|
|
LDA #$0000
|
|
L030BA2 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CC
|
|
PHA
|
|
_EraseRect
|
|
BCS L030BBB
|
|
LDA #$0000
|
|
L030BBB STAL L0B0002
|
|
PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
BCS L030BD1
|
|
LDA #$0000
|
|
L030BD1 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CC
|
|
PHA
|
|
_FrameRect
|
|
BCS L030BEA
|
|
LDA #$0000
|
|
L030BEA STAL L0B0002
|
|
PEA $0006
|
|
PEA $0003
|
|
_SetPenSize
|
|
BCS L030C00
|
|
LDA #$0000
|
|
L030C00 STAL L0B0002
|
|
LDAL L0C0EE4
|
|
CLC
|
|
ADC #$0006
|
|
PHA
|
|
LDAL L0C0EE6
|
|
SEC
|
|
SBC #$0004
|
|
PHA
|
|
_MoveTo
|
|
BCS L030C22
|
|
LDA #$0000
|
|
L030C22 STAL L0B0002
|
|
LDAL L0C0EE8
|
|
SEC
|
|
SBC #$0006
|
|
PHA
|
|
LDAL L0C0EE6
|
|
SEC
|
|
SBC #$0004
|
|
PHA
|
|
_LineTo
|
|
BCS L030C44
|
|
LDA #$0000
|
|
L030C44 STAL L0B0002
|
|
LDAL L0C0EE8
|
|
SEC
|
|
SBC #$0006
|
|
PHA
|
|
LDAL L0C0EE2
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
_LineTo
|
|
BCS L030C66
|
|
LDA #$0000
|
|
L030C66 STAL L0B0002
|
|
JSL L0311AA
|
|
PEA ^L0C0F7A
|
|
PEA L0C0F7A
|
|
LDA $CE
|
|
CLC
|
|
ADC #$0014
|
|
PHA
|
|
LDA $CC
|
|
CLC
|
|
ADC #$0006
|
|
PHA
|
|
LDA $D2
|
|
SEC
|
|
SBC #$0012
|
|
PHA
|
|
LDA $D0
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
_SetRect
|
|
BCS L030C9C
|
|
LDA #$0000
|
|
L030C9C STAL L0B0002
|
|
LDA #L0C0F7A
|
|
LDX #^L0C0F7A
|
|
PHX
|
|
PHA
|
|
PEA ^L0C0EDA
|
|
PEA L0C0EDA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA #$0001
|
|
STA L0B008A
|
|
STZ L0B00A2
|
|
PEA $0001
|
|
PEA $0001
|
|
_SetPenSize
|
|
BCS L030CD5
|
|
LDA #$0000
|
|
L030CD5 STAL L0B0002
|
|
LDAL L0C0F7C
|
|
PHA
|
|
LDAL L0C0F7A
|
|
CLC
|
|
ADC L0B0070
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
_MoveTo
|
|
BCS L030CF7
|
|
LDA #$0000
|
|
L030CF7 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0030
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L030D03 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F1
|
|
TCD
|
|
ADC #$00EA
|
|
TCS
|
|
PEA $C000
|
|
LDA $FF
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$F7],Y
|
|
TAX
|
|
LDA [$F7]
|
|
PHX
|
|
PHA
|
|
JSL L040000
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDY #$0002
|
|
LDA [$F7],Y
|
|
TAX
|
|
LDA [$F7]
|
|
STA $EC
|
|
STX $EE
|
|
LDY #$0002
|
|
LDA [$EC],Y
|
|
TAX
|
|
LDA [$EC]
|
|
LDY #$0004
|
|
PHA
|
|
TXA
|
|
STA [$FB],Y
|
|
PLA
|
|
LDY #$0002
|
|
STA [$FB],Y
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L030D54 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDY #$0002
|
|
LDA [$F9],Y
|
|
TAX
|
|
LDA [$F9]
|
|
PHX
|
|
PHA
|
|
JSL L04023C
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L030D77 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00CE
|
|
TCS
|
|
LDA #L0C00E6
|
|
LDX #^L0C00E6
|
|
PHX
|
|
PHA
|
|
LDX L0B00DF
|
|
LDA L0B00DD
|
|
JSL L010B98
|
|
BNE L030DAF
|
|
PEA ^L0C2500
|
|
PEA L0C2500
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRA L030DC6
|
|
L030DAF PEA ^L0C2509
|
|
PEA L0C2509
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L030DC6 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DD
|
|
PHA
|
|
JSL L010D87
|
|
PLY
|
|
PLY
|
|
SEP #$20
|
|
STA $DC
|
|
REP #$20
|
|
PEA $0000
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D0
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
JSL L031F08
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
TYA
|
|
PEA $0087
|
|
LDA $FF
|
|
CLC
|
|
ADC #$000F
|
|
PHA
|
|
PEI $FF
|
|
JSL L0321FD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA ^L0C0F8A
|
|
PEA L0C0F8A
|
|
LDA #$0004
|
|
CLC
|
|
ADC $FD
|
|
PHA
|
|
LDA #$0001
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
LDA #$0031
|
|
CLC
|
|
ADC $FD
|
|
PHA
|
|
LDA #$000E
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
_SetRect
|
|
BCS L030E47
|
|
LDA #$0000
|
|
L030E47 STAL L0B0002
|
|
PEA ^L0C0F92
|
|
PEA L0C0F92
|
|
LDA #$0033
|
|
CLC
|
|
ADC $FD
|
|
PHA
|
|
LDA #$0001
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
LDA #$0081
|
|
CLC
|
|
ADC $FD
|
|
PHA
|
|
LDA #$000E
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
_SetRect
|
|
BCS L030E79
|
|
LDA #$0000
|
|
L030E79 STAL L0B0002
|
|
PEA ^L0C0F9A
|
|
PEA L0C0F9A
|
|
LDA #$0083
|
|
CLC
|
|
ADC $FD
|
|
PHA
|
|
LDA #$0001
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
LDA #$00B0
|
|
CLC
|
|
ADC $FD
|
|
PHA
|
|
LDA #$000E
|
|
CLC
|
|
ADC $FF
|
|
PHA
|
|
_SetRect
|
|
BCS L030EAB
|
|
LDA #$0000
|
|
L030EAB STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0028
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L030EB7 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
PEA ^L0C0F92
|
|
PEA L0C0F92
|
|
LDA #L0C0F8A
|
|
LDX #^L0C0F8A
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0002
|
|
LDA [$F6],Y
|
|
SEC
|
|
SBC #$0008
|
|
PHA
|
|
LDAL L0C0F8A
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
LDA #L0C0F9A
|
|
LDX #^L0C0F9A
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0006
|
|
LDA [$F6],Y
|
|
CLC
|
|
ADC #$0006
|
|
PHA
|
|
LDA #L0C0F9A
|
|
LDX #^L0C0F9A
|
|
STA $F6
|
|
STX $F8
|
|
LDY #$0004
|
|
LDA [$F6],Y
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
_SetRect
|
|
BCS L030F19
|
|
LDA #$0000
|
|
L030F19 STAL L0B0002
|
|
PEA ^L0C0F92
|
|
PEA L0C0F92
|
|
_EraseRect
|
|
BCS L030F2F
|
|
LDA #$0000
|
|
L030F2F STAL L0B0002
|
|
LDA #$0001
|
|
STA $F4
|
|
BRA L030F6C
|
|
L030F3A LDA $F4
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0F82
|
|
LDX #^L0C0F82
|
|
JSL L010922
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $FFFF
|
|
_SetRect
|
|
BCS L030F66
|
|
LDA #$0000
|
|
L030F66 STAL L0B0002
|
|
INC $F4
|
|
L030F6C LDA $F4
|
|
SEC
|
|
SBC #$0004
|
|
BVS L030F77
|
|
EOR #$8000
|
|
L030F77 BPL L030F3A
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L030F81 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00DA
|
|
TCS
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EC
|
|
PHA
|
|
LDA #L0C0F8A
|
|
LDX #^L0C0F8A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
SEC
|
|
SBC #$0004
|
|
PHA
|
|
LDAL L0C0F8A
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
LDA #L0C0F9A
|
|
LDX #^L0C0F9A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0006
|
|
LDA [$F4],Y
|
|
CLC
|
|
ADC #$0003
|
|
PHA
|
|
LDA #L0C0F9A
|
|
LDX #^L0C0F9A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0004
|
|
LDA [$F4],Y
|
|
CLC
|
|
ADC #$0002
|
|
PHA
|
|
_SetRect
|
|
BCS L030FE6
|
|
LDA #$0000
|
|
L030FE6 STAL L0B0002
|
|
LDA #L0C0F8A
|
|
LDX #^L0C0F8A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0002
|
|
LDA [$F4],Y
|
|
PHA
|
|
LDA #L0C0F8A
|
|
LDX #^L0C0F8A
|
|
STA $F4
|
|
STX $F6
|
|
LDY #$0006
|
|
LDA [$F4],Y
|
|
PLX
|
|
STX $F8
|
|
SEC
|
|
SBC $F8
|
|
CMP #$0000
|
|
BNE L031019
|
|
LDA #$FFFF
|
|
STA $F0
|
|
L031019 PEA $0000
|
|
_SetPenMode
|
|
BCS L031028
|
|
LDA #$0000
|
|
L031028 STAL L0B0002
|
|
LDA #L0C0F7A
|
|
LDX #^L0C0F7A
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $FF
|
|
BEQ L031076
|
|
JSL L03096B
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
PEA $0280
|
|
PEA $00C8
|
|
_SetRect
|
|
BCS L031072
|
|
LDA #$0000
|
|
L031072 STAL L0B0002
|
|
L031076 LDA L0B008E
|
|
BEQ L0310F0
|
|
LDA $E8
|
|
SEC
|
|
SBC $EC
|
|
BEQ L0310F0
|
|
BVS L031087
|
|
EOR #$8000
|
|
L031087 BPL L0310F0
|
|
LDA $EA
|
|
SEC
|
|
SBC $EE
|
|
BEQ L0310F0
|
|
BVS L031095
|
|
EOR #$8000
|
|
L031095 BPL L0310F0
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
PEI $E6
|
|
PEI $EC
|
|
PEI $EE
|
|
PEI $E8
|
|
_SetRect
|
|
BCS L0310B4
|
|
LDA #$0000
|
|
L0310B4 STAL L0B0002
|
|
LDA $EC
|
|
STA $E8
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
PHA
|
|
_EraseRect
|
|
BCS L0310D1
|
|
LDA #$0000
|
|
L0310D1 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
_EraseRect
|
|
BCS L0310EA
|
|
LDA #$0000
|
|
L0310EA STAL L0B0002
|
|
BRA L031109
|
|
L0310F0 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
PHA
|
|
_EraseRect
|
|
BCS L031105
|
|
LDA #$0000
|
|
L031105 STAL L0B0002
|
|
L031109 LDA $FF
|
|
BEQ L031152
|
|
PEA $0008
|
|
LDA $EC
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
PEA $0000
|
|
JSL L0321FD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0008
|
|
PEA $00C8
|
|
LDA $F0
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
JSL L0321FD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0008
|
|
PEA $000A
|
|
PEA $0FFF
|
|
_SetColorEntry
|
|
BCS L03114A
|
|
LDA #$0000
|
|
L03114A STAL L0B0002
|
|
JSL L0718F3
|
|
L031152 STZ L0B00A2
|
|
LDAL L0C0F7C
|
|
PHA
|
|
LDAL L0C0F7A
|
|
CLC
|
|
ADC L0B0070
|
|
SEC
|
|
SBC #$0001
|
|
PHA
|
|
_MoveTo
|
|
BCS L031173
|
|
LDA #$0000
|
|
L031173 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$001E
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03117F ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDA L0B0094
|
|
BEQ L0311A2
|
|
STZ L0B0094
|
|
_HideCursor
|
|
BCS L03119E
|
|
LDA #$0000
|
|
L03119E STAL L0B0002
|
|
L0311A2 TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0311AA ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDA L0B0092
|
|
BEQ L0311D5
|
|
LDA L0B0094
|
|
BNE L0311D5
|
|
LDA #$0001
|
|
STA L0B0094
|
|
_ShowCursor
|
|
BCS L0311D1
|
|
LDA #$0000
|
|
L0311D1 STAL L0B0002
|
|
L0311D5 TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0311DD ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDX L0B00DF
|
|
LDA L0B00DD
|
|
PHX
|
|
PHA
|
|
_SetCursor
|
|
BCS L0311FC
|
|
LDA #$0000
|
|
L0311FC STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031208 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00F4
|
|
TCS
|
|
LDX L0B00DB
|
|
LDA L0B00D9
|
|
PHX
|
|
PHA
|
|
_SetCursor
|
|
BCS L031227
|
|
LDA #$0000
|
|
L031227 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031233 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00F0
|
|
TCS
|
|
PHA
|
|
PEA $046E
|
|
PEA $0000
|
|
_FlushEvents
|
|
BCS L031251
|
|
LDA #$0000
|
|
L031251 STAL L0B0002
|
|
PLA
|
|
JSL L0311DD
|
|
JSL L0612B1
|
|
PEA $0001
|
|
JSL L06078F
|
|
PLY
|
|
JSL L0612DE
|
|
TAY
|
|
BEQ L031291
|
|
LDAL L0C1A7A
|
|
CMP #$0000
|
|
BNE L031291
|
|
STZ L0B0078
|
|
PEA ^L0C2515
|
|
PEA L0C2515
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRA L0312BE
|
|
BRA L0312B0
|
|
L031291 LDAL L0C1A7A
|
|
CMP #$0003
|
|
BNE L0312B0
|
|
PEA ^L0C2517
|
|
PEA L0C2517
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRA L0312BE
|
|
L0312B0 PEI $FF
|
|
PEI $FD
|
|
JSL L0312C8
|
|
PLY
|
|
PLY
|
|
JSL L031208
|
|
L0312BE TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L0312C8 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$0020
|
|
TCS
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
PEA ^L0B003E
|
|
PEA L0B003E
|
|
JSL L030D54
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA L0B0078
|
|
SEC
|
|
SBC #$0000
|
|
BVS L0312F6
|
|
EOR #$8000
|
|
L0312F6 BPL L0312FB
|
|
BRL L03163D
|
|
L0312FB LDA L0B0078
|
|
EOR #$FFFF
|
|
INC
|
|
STA $22
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA $F2
|
|
LDX $F4
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E2
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
STA $D8
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
STA $D6
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_GetPort
|
|
BCS L0313AC
|
|
LDA #$0000
|
|
L0313AC STAL L0B0002
|
|
JSL L031DB9
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0010
|
|
TCS
|
|
TYA
|
|
LDA $FF
|
|
BNE L0313FE
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
PEA $0017
|
|
PEA $0025
|
|
PEA $0239
|
|
PEA $0028
|
|
_SetRect
|
|
BCS L0313E1
|
|
LDA #$0000
|
|
L0313E1 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00EA
|
|
PHA
|
|
_ClipRect
|
|
BCS L0313FA
|
|
LDA #$0000
|
|
L0313FA STAL L0B0002
|
|
L0313FE PEI $FF
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
JSL L031717
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDY #$0002
|
|
LDA [$F2],Y
|
|
STA $D4
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
STA $D2
|
|
LDA $FD
|
|
BEQ L0314BA
|
|
LDAL L0C0733
|
|
PHA
|
|
LDAL L0C0731
|
|
PHA
|
|
LDAL L0C0745
|
|
PHA
|
|
LDAL L0C0743
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0004
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L0316A6
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
TAY
|
|
BNE L031505
|
|
L0314BA LDA $FD
|
|
BEQ L0314C1
|
|
BRL L0315B9
|
|
L0314C1 PEA $0000
|
|
PEA $0000
|
|
LDAL L0C0745
|
|
PHA
|
|
LDAL L0C0743
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0004
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
JSL L0316A6
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
TYA
|
|
TAY
|
|
BNE L031505
|
|
BRL L0315B9
|
|
L031505 PEA ^L0C2519
|
|
PEA L0C2519
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDAL L0C0743
|
|
STA $D0
|
|
LDAL L0C0745
|
|
STA $CE
|
|
PEI $FF
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CE
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0004
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
JSL L03191A
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
TYA
|
|
PEI $FF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CE
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CE
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E2
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
JSL L031C09
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0016
|
|
TCS
|
|
TYA
|
|
BRL L031623
|
|
L0315B9 PEA ^L0C251B
|
|
PEA L0C251B
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEI $FF
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
TAY
|
|
TSC
|
|
SEC
|
|
SBC #$0004
|
|
TCS
|
|
PHX
|
|
PHY
|
|
PEA $0000
|
|
INC
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDA $22
|
|
ASL
|
|
ASL
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C0EF2
|
|
LDX #^L0C0EF2
|
|
JSL L010922
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DA
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
JSL L03191A
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
TYA
|
|
L031623 PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0024
|
|
PHA
|
|
PEA ^L0B003E
|
|
PEA L0B003E
|
|
JSL L030D54
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
BRL L031684
|
|
L03163D PEA ^L0C251D
|
|
PEA L0C251D
|
|
PEA ^L0C1188
|
|
PEA L0C1188
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
L031651 PHA
|
|
PEA $0000
|
|
_StillDown
|
|
BCS L031661
|
|
LDA #$0000
|
|
L031661 STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BEQ L03166B
|
|
BRA L031651
|
|
L03166B LDA L0B0078
|
|
SEC
|
|
SBC #$0000
|
|
BEQ L031684
|
|
BVS L031679
|
|
EOR #$8000
|
|
L031679 BPL L031684
|
|
LDA L0B0078
|
|
PHA
|
|
JSL L0607BE
|
|
PLY
|
|
L031684 LDA $FF
|
|
BNE L03169E
|
|
PEA ^L0C0CEC
|
|
PEA L0C0CEC
|
|
_ClipRect
|
|
BCS L03169A
|
|
LDA #$0000
|
|
L03169A STAL L0B0002
|
|
L03169E TSC
|
|
CLC
|
|
ADC #$00D6
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0316A6 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00EF
|
|
TCD
|
|
ADC #$00E6
|
|
TCS
|
|
LDA $FD
|
|
BNE L0316C3
|
|
LDA $FF
|
|
BNE L0316C3
|
|
LDA #$000B
|
|
STA $FD
|
|
LDA #$0004
|
|
STA $FF
|
|
L0316C3 LDA $F9
|
|
SEC
|
|
SBC $FD
|
|
SEC
|
|
SBC $F7
|
|
BEQ L0316D4
|
|
BVS L0316D2
|
|
EOR #$8000
|
|
L0316D2 BMI L031703
|
|
L0316D4 LDA $F9
|
|
CLC
|
|
ADC $FD
|
|
SEC
|
|
SBC $F7
|
|
BVS L0316E1
|
|
EOR #$8000
|
|
L0316E1 BPL L031703
|
|
LDA $FB
|
|
SEC
|
|
SBC $FF
|
|
SEC
|
|
SBC $F5
|
|
BEQ L0316F4
|
|
BVS L0316F2
|
|
EOR #$8000
|
|
L0316F2 BMI L031703
|
|
L0316F4 LDA $FB
|
|
CLC
|
|
ADC $FF
|
|
SEC
|
|
SBC $F5
|
|
BVS L031701
|
|
EOR #$8000
|
|
L031701 BMI L03170A
|
|
L031703 LDA #$0000
|
|
BRA L03170D
|
|
BRA L03170D
|
|
L03170A LDA #$0001
|
|
L03170D TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L031717 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00ED
|
|
TCD
|
|
ADC #$0016
|
|
TCS
|
|
PHX
|
|
PHA
|
|
_GetPort
|
|
BCS L031730
|
|
LDA #$0000
|
|
L031730 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $30
|
|
STA $2E
|
|
LDA $2E
|
|
LDX $30
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0032
|
|
PHA
|
|
PEA $00AA
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0032
|
|
PHA
|
|
_SetPort
|
|
BCS L03176A
|
|
LDA #$0000
|
|
L03176A STAL L0B0002
|
|
PEA $0002
|
|
_SetPenMode
|
|
BCS L03177D
|
|
LDA #$0000
|
|
L03177D STAL L0B0002
|
|
PEA $0002
|
|
PEA $0001
|
|
_SetPenSize
|
|
BCS L031793
|
|
LDA #$0000
|
|
L031793 STAL L0B0002
|
|
PEI $FD
|
|
PEI $FB
|
|
_FrameRect
|
|
BCS L0317A7
|
|
LDA #$0000
|
|
L0317A7 STAL L0B0002
|
|
PEI $FD
|
|
PEI $FB
|
|
_FrameRect
|
|
BCS L0317BB
|
|
LDA #$0000
|
|
L0317BB STAL L0B0002
|
|
LDY #$0002
|
|
LDA [$FB],Y
|
|
STA $E6
|
|
LDA [$FB]
|
|
STA $E4
|
|
LDA #L0C1A84
|
|
LDX #^L0C1A84
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDX $F5
|
|
LDA $F3
|
|
STX $1A
|
|
STA $18
|
|
LDX $30
|
|
LDA $2E
|
|
STX $1E
|
|
STA $1C
|
|
LDX $F9
|
|
LDA $F7
|
|
STX $22
|
|
STA $20
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
STX $26
|
|
STA $24
|
|
LDY #$001A
|
|
LDA [$2E],Y
|
|
TAX
|
|
LDY #$0018
|
|
LDA [$2E],Y
|
|
STX $2C
|
|
STA $2A
|
|
L03181A PHA
|
|
PEA $0000
|
|
_StillDown
|
|
BCS L03182A
|
|
LDA #$0000
|
|
L03182A STAL L0B0002
|
|
PLA
|
|
TAY
|
|
BNE L031835
|
|
BRL L0318B8
|
|
L031835 JSL L06063A
|
|
LDA #L0C1A84
|
|
LDX #^L0C1A84
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $FF
|
|
BNE L03185E
|
|
LDA $E0
|
|
STA $DC
|
|
L03185E LDA $DE
|
|
CMP $E2
|
|
BNE L03186A
|
|
LDA $DC
|
|
CMP $E0
|
|
BEQ L0318B5
|
|
L03186A PEI $FF
|
|
LDA $DC
|
|
SEC
|
|
SBC $E0
|
|
PHA
|
|
LDA $DE
|
|
SEC
|
|
SBC $E2
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E4
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0018
|
|
PHA
|
|
JSL L031B0B
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
L0318B5 BRL L03181A
|
|
L0318B8 LDY #$0002
|
|
LDA [$FB],Y
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$FB],Y
|
|
PHA
|
|
LDA $E6
|
|
PLX
|
|
STX $EC
|
|
CLC
|
|
ADC $EC
|
|
PLX
|
|
STX $EC
|
|
SEC
|
|
SBC $EC
|
|
LDY #$0006
|
|
STA [$FB],Y
|
|
LDA $E6
|
|
LDY #$0002
|
|
STA [$FB],Y
|
|
LDA [$FB]
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$FB],Y
|
|
PHA
|
|
LDA $E4
|
|
PLX
|
|
STX $EC
|
|
CLC
|
|
ADC $EC
|
|
PLX
|
|
STX $EC
|
|
SEC
|
|
SBC $EC
|
|
LDY #$0004
|
|
STA [$FB],Y
|
|
LDA $E4
|
|
STA [$FB]
|
|
PEI $30
|
|
PEI $2E
|
|
_SetPort
|
|
BCS L03190E
|
|
LDA #$0000
|
|
L03190E STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$00D6
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03191A PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00E9
|
|
TCD
|
|
ADC #$00B8
|
|
TCS
|
|
PHX
|
|
PHA
|
|
_GetPort
|
|
BCS L031933
|
|
LDA #$0000
|
|
L031933 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $D2
|
|
STA $D0
|
|
JSL L03117F
|
|
LDY #$0002
|
|
LDA [$F7],Y
|
|
STA $D6
|
|
LDA [$F7]
|
|
STA $D4
|
|
LDX $F1
|
|
LDA $EF
|
|
STX $BC
|
|
STA $BA
|
|
LDX $D2
|
|
LDA $D0
|
|
STX $C0
|
|
STA $BE
|
|
LDX $F5
|
|
LDA $F3
|
|
STX $C4
|
|
STA $C2
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D4
|
|
STX $C8
|
|
STA $C6
|
|
LDY #$001A
|
|
LDA [$D0],Y
|
|
TAX
|
|
LDY #$0018
|
|
LDA [$D0],Y
|
|
STX $CE
|
|
STA $CC
|
|
LDA $FD
|
|
SEC
|
|
SBC $D6
|
|
STA $DE
|
|
LDA $FB
|
|
SEC
|
|
SBC $D4
|
|
STA $DC
|
|
L03198D LDA $DE
|
|
BNE L031998
|
|
LDA $DC
|
|
BNE L031998
|
|
BRL L031ABD
|
|
L031998 PEI $DE
|
|
JSL L0108F6
|
|
PLY
|
|
STA $E2
|
|
PEI $DC
|
|
JSL L0108F6
|
|
PLY
|
|
STA $E0
|
|
LDA $E0
|
|
CMP #$0000
|
|
BNE L0319DF
|
|
LDA #$0000
|
|
STA $D8
|
|
LDA $E2
|
|
CMP #$0000
|
|
BNE L0319C4
|
|
LDA #$0000
|
|
STA $DA
|
|
BRA L0319DC
|
|
L0319C4 LDA $E2
|
|
SEC
|
|
SBC #$0008
|
|
BVS L0319CF
|
|
EOR #$8000
|
|
L0319CF BPL L0319D8
|
|
LDA #$0008
|
|
STA $DA
|
|
BRA L0319DC
|
|
L0319D8 LDA $E2
|
|
STA $DA
|
|
L0319DC BRL L031A5E
|
|
L0319DF LDA $E0
|
|
PHA
|
|
LDA $E2
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
STA $DA
|
|
SEC
|
|
SBC #$0001
|
|
BVS L0319F5
|
|
EOR #$8000
|
|
L0319F5 BPL L031A12
|
|
LDA #$0001
|
|
STA $D8
|
|
LDA $DA
|
|
SEC
|
|
SBC #$0008
|
|
BEQ L031A10
|
|
BVS L031A09
|
|
EOR #$8000
|
|
L031A09 BPL L031A10
|
|
LDA #$0008
|
|
STA $DA
|
|
L031A10 BRA L031A5E
|
|
L031A12 LDA $E2
|
|
CMP #$0000
|
|
BNE L031A38
|
|
LDA #$0000
|
|
STA $DA
|
|
LDA $E0
|
|
SEC
|
|
SBC #$0004
|
|
BVS L031A29
|
|
EOR #$8000
|
|
L031A29 BPL L031A32
|
|
LDA #$0004
|
|
STA $D8
|
|
BRA L031A36
|
|
L031A32 LDA $E0
|
|
STA $D8
|
|
L031A36 BRA L031A5E
|
|
L031A38 LDA #$0001
|
|
STA $DA
|
|
LDA $E2
|
|
PHA
|
|
LDA $E0
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
STA $D8
|
|
LDA $D8
|
|
SEC
|
|
SBC #$0004
|
|
BEQ L031A5E
|
|
BVS L031A57
|
|
EOR #$8000
|
|
L031A57 BPL L031A5E
|
|
LDA #$0004
|
|
STA $D8
|
|
L031A5E LDA $DE
|
|
SEC
|
|
SBC #$0000
|
|
BVS L031A69
|
|
EOR #$8000
|
|
L031A69 BMI L031A73
|
|
LDA $DA
|
|
EOR #$FFFF
|
|
INC
|
|
STA $DA
|
|
L031A73 LDA $DC
|
|
SEC
|
|
SBC #$0000
|
|
BVS L031A7E
|
|
EOR #$8000
|
|
L031A7E BMI L031A88
|
|
LDA $D8
|
|
EOR #$FFFF
|
|
INC
|
|
STA $D8
|
|
L031A88 PEI $FF
|
|
PEI $D8
|
|
PEI $DA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D4
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00BA
|
|
PHA
|
|
JSL L031B0B
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$000E
|
|
TCS
|
|
TYA
|
|
LDA $FD
|
|
SEC
|
|
SBC $D6
|
|
STA $DE
|
|
LDA $FB
|
|
SEC
|
|
SBC $D4
|
|
STA $DC
|
|
BRL L03198D
|
|
L031ABD JSL L0311AA
|
|
LDY #$0002
|
|
LDA [$F7],Y
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$F7],Y
|
|
PLX
|
|
STX $E8
|
|
SEC
|
|
SBC $E8
|
|
STA $DA
|
|
LDA [$F7]
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$F7],Y
|
|
PLX
|
|
STX $E8
|
|
SEC
|
|
SBC $E8
|
|
STA $D8
|
|
LDA $FD
|
|
LDY #$0002
|
|
STA [$F7],Y
|
|
LDA $FB
|
|
STA [$F7]
|
|
LDA $FD
|
|
CLC
|
|
ADC $DA
|
|
LDY #$0006
|
|
STA [$F7],Y
|
|
LDA $FB
|
|
CLC
|
|
ADC $D8
|
|
LDY #$0004
|
|
STA [$F7],Y
|
|
TSC
|
|
CLC
|
|
ADC #$0030
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031B0B PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00ED
|
|
TCD
|
|
ADC #$00C4
|
|
TCS
|
|
LDX $F9
|
|
LDA $F7
|
|
LDY #$000E
|
|
PHA
|
|
TXA
|
|
STA [$F3],Y
|
|
PLA
|
|
LDY #$000C
|
|
STA [$F3],Y
|
|
LDA $FF
|
|
BEQ L031B4A
|
|
LDA #$0002
|
|
LDY #$0010
|
|
STA [$F3],Y
|
|
PEI $F5
|
|
PEI $F3
|
|
_PaintPixels
|
|
BCS L031B43
|
|
LDA #$0000
|
|
L031B43 STAL L0B0002
|
|
BRL L031BD9
|
|
L031B4A LDA $F3
|
|
LDX $F5
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00C6
|
|
PHA
|
|
PEA $0016
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $CE
|
|
LDX $D0
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEA $0008
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA $D2
|
|
LDX $D4
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00DC
|
|
PHA
|
|
PEA $0004
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
PEI $DE
|
|
PEI $DC
|
|
_OffsetRect
|
|
BCS L031BB4
|
|
LDA #$0000
|
|
L031BB4 STAL L0B0002
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00E0
|
|
PHA
|
|
_EraseRect
|
|
BCS L031BCD
|
|
LDA #$0000
|
|
L031BCD STAL L0B0002
|
|
LDA #$0000
|
|
LDY #$0010
|
|
STA [$F3],Y
|
|
L031BD9 LDY #$0002
|
|
LDA [$F7],Y
|
|
CLC
|
|
ADC $FB
|
|
LDY #$0002
|
|
STA [$F7],Y
|
|
LDA [$F7]
|
|
CLC
|
|
ADC $FD
|
|
STA [$F7]
|
|
PEI $F5
|
|
PEI $F3
|
|
_PaintPixels
|
|
BCS L031BFD
|
|
LDA #$0000
|
|
L031BFD STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0028
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031C09 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00E5
|
|
TCD
|
|
ADC #$0011
|
|
TCS
|
|
JSL L03117F
|
|
LDA #$0004
|
|
STA $16
|
|
LDA #$0000
|
|
STA $1A
|
|
LDA #$0000
|
|
STA $18
|
|
PHX
|
|
PHA
|
|
_GetPort
|
|
BCS L031C35
|
|
LDA #$0000
|
|
L031C35 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
STX $C8
|
|
STA $C6
|
|
PEI $F5
|
|
PEI $F3
|
|
_EraseRect
|
|
BCS L031C4F
|
|
LDA #$0000
|
|
L031C4F STAL L0B0002
|
|
LDX $ED
|
|
LDA $EB
|
|
STX $CC
|
|
STA $CA
|
|
LDX $C8
|
|
LDA $C6
|
|
STX $D0
|
|
STA $CE
|
|
LDX $F1
|
|
LDA $EF
|
|
STX $D4
|
|
STA $D2
|
|
LDY #$001A
|
|
LDA [$C6],Y
|
|
TAX
|
|
LDY #$0018
|
|
LDA [$C6],Y
|
|
STX $DE
|
|
STA $DC
|
|
LDX $F9
|
|
LDA $F7
|
|
STX $D8
|
|
STA $D6
|
|
LDA #$0002
|
|
STA $DA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CA
|
|
PHA
|
|
_PaintPixels
|
|
BCS L031C9C
|
|
LDA #$0000
|
|
L031C9C STAL L0B0002
|
|
LDA $EB
|
|
LDX $ED
|
|
PHX
|
|
PHA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$001C
|
|
PHA
|
|
PEA $00AA
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDA [$EF]
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$EF],Y
|
|
PLX
|
|
STX $E4
|
|
SEC
|
|
SBC $E4
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDA $22
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $14
|
|
PEI $14
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$001C
|
|
PHA
|
|
PEA ^L0B0042
|
|
PEA L0B0042
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$001C
|
|
STX $D0
|
|
STA $CE
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$0018
|
|
STX $D8
|
|
STA $D6
|
|
LDA #$0000
|
|
STA $DA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CA
|
|
PHA
|
|
_PaintPixels
|
|
BCS L031D24
|
|
LDA #$0000
|
|
L031D24 STAL L0B0002
|
|
LDX L0B0044
|
|
LDA L0B0042
|
|
PHX
|
|
PHA
|
|
JSL L071684
|
|
PLY
|
|
PLY
|
|
LDX $C8
|
|
LDA $C6
|
|
STX $D0
|
|
STA $CE
|
|
LDX $FD
|
|
LDA $FB
|
|
STX $D8
|
|
STA $D6
|
|
LDA #$0003
|
|
STA $DA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$001C
|
|
STX $CC
|
|
STA $CA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CA
|
|
PHA
|
|
_PaintPixels
|
|
BCS L031D6C
|
|
LDA #$0000
|
|
L031D6C STAL L0B0002
|
|
LDA #$0001
|
|
STA $DA
|
|
LDX $ED
|
|
LDA $EB
|
|
STX $CC
|
|
STA $CA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CA
|
|
PHA
|
|
_PaintPixels
|
|
BCS L031D92
|
|
LDA #$0000
|
|
L031D92 STAL L0B0002
|
|
JSL L0311AA
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$001C
|
|
PHA
|
|
PEA ^L0B0042
|
|
PEA L0B0042
|
|
JSL L030D54
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
TSC
|
|
CLC
|
|
ADC #$00D3
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031DB9 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00EB
|
|
TCD
|
|
ADC #$00C6
|
|
TCS
|
|
JSL L03117F
|
|
LDA $F1
|
|
LDX $F3
|
|
PHX
|
|
PHA
|
|
LDA $F7
|
|
PHA
|
|
LDA $F5
|
|
PHA
|
|
PEA $00AA
|
|
JSL L010BC3
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLA
|
|
PLX
|
|
LDY #$0006
|
|
LDA [$F1],Y
|
|
PHA
|
|
LDA #$0280
|
|
CLC
|
|
JSL L01092D
|
|
PLY
|
|
STA $CA
|
|
LDA $CA
|
|
PHA
|
|
LDY #$0002
|
|
LDA [$F9],Y
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$F9],Y
|
|
PLX
|
|
STX $EA
|
|
SEC
|
|
SBC $EA
|
|
CLC
|
|
ADC #$0001
|
|
CLC
|
|
JSL L01092D
|
|
PLY
|
|
CLC
|
|
ADC #$0001
|
|
LDY #$0006
|
|
STA [$F5],Y
|
|
LDA [$F9]
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$F9],Y
|
|
PLX
|
|
STX $EA
|
|
SEC
|
|
SBC $EA
|
|
CLC
|
|
ADC #$0001
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$F5],Y
|
|
CLC
|
|
ADC #$0001
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
STA $C8
|
|
PEI $C8
|
|
PEI $F7
|
|
PEI $F5
|
|
PEA ^L0B003E
|
|
PEA L0B003E
|
|
JSL L030D03
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CC
|
|
PHA
|
|
PEA $0000
|
|
PEA $0000
|
|
_SetPt
|
|
BCS L031E6C
|
|
LDA #$0000
|
|
L031E6C STAL L0B0002
|
|
LDX $F3
|
|
LDA $F1
|
|
STX $D2
|
|
STA $D0
|
|
LDX $F7
|
|
LDA $F5
|
|
STX $D6
|
|
STA $D4
|
|
LDX $FB
|
|
LDA $F9
|
|
STX $DA
|
|
STA $D8
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00CC
|
|
STX $DE
|
|
STA $DC
|
|
LDA #$0000
|
|
STA $E0
|
|
LDY #$001A
|
|
LDA [$F1],Y
|
|
TAX
|
|
LDY #$0018
|
|
LDA [$F1],Y
|
|
STX $E4
|
|
STA $E2
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D0
|
|
PHA
|
|
_PaintPixels
|
|
BCS L031EBD
|
|
LDA #$0000
|
|
L031EBD STAL L0B0002
|
|
JSL L0311AA
|
|
PEI $FF
|
|
PEI $FD
|
|
PEA $0000
|
|
PEA $0000
|
|
LDY #$0002
|
|
LDA [$F9],Y
|
|
PHA
|
|
LDY #$0006
|
|
LDA [$F9],Y
|
|
PLX
|
|
STX $EA
|
|
SEC
|
|
SBC $EA
|
|
PHA
|
|
LDA [$F9]
|
|
PHA
|
|
LDY #$0004
|
|
LDA [$F9],Y
|
|
PLX
|
|
STX $EA
|
|
SEC
|
|
SBC $EA
|
|
PHA
|
|
_SetRect
|
|
BCS L031EFC
|
|
LDA #$0000
|
|
L031EFC STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0024
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031F08 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00E9
|
|
TCD
|
|
ADC #$0075
|
|
TCS
|
|
PEI $F1
|
|
PEI $EF
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$007F
|
|
PHA
|
|
JSL L0110F7
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$0080
|
|
PHA
|
|
JSL L040E53
|
|
PLY
|
|
PLY
|
|
STA $77
|
|
SEC
|
|
SBC #$0000
|
|
BVS L031F42
|
|
EOR #$8000
|
|
L031F42 BPL L031F99
|
|
LDA $77
|
|
SEC
|
|
SBC #$0032
|
|
BVS L031F4F
|
|
EOR #$8000
|
|
L031F4F BMI L031F99
|
|
PEI $FF
|
|
PEI $FD
|
|
PEI $FB
|
|
PEI $F9
|
|
PEI $F7
|
|
PEI $F5
|
|
PEI $F3
|
|
LDA $77
|
|
PHA
|
|
LDA #$0022
|
|
CLC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDA #L0C1AB2
|
|
LDX #^L0C1AB2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $E4
|
|
STX $E6
|
|
LDY #$0004
|
|
LDA [$E4],Y
|
|
TAX
|
|
LDY #$0002
|
|
LDA [$E4],Y
|
|
PHX
|
|
PHA
|
|
JSL L030000
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0012
|
|
TCS
|
|
TYA
|
|
L031F99 TSC
|
|
CLC
|
|
ADC #$0073
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L031FA1 ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F9
|
|
TCD
|
|
ADC #$00F2
|
|
TCS
|
|
LDA $FF
|
|
PHA
|
|
PHA
|
|
_Random
|
|
BCS L031FBC
|
|
LDA #$0000
|
|
L031FBC STAL L0B0002
|
|
PLA
|
|
SEC
|
|
JSL L01092D
|
|
JSL L0108F6
|
|
PLY
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|
|
L031FD5 PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F7
|
|
TCD
|
|
ADC #$00CA
|
|
TCS
|
|
STZ $CE
|
|
BRA L032005
|
|
L031FE4 LDA $CE
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA #$0000
|
|
STA [$F2]
|
|
INC $CE
|
|
L032005 LDA $CE
|
|
SEC
|
|
SBC #$0010
|
|
BVS L032010
|
|
EOR #$8000
|
|
L032010 BPL L031FE4
|
|
PEA $0008
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
PHA
|
|
_SetColorTable
|
|
BCS L03202A
|
|
LDA #$0000
|
|
L03202A STAL L0B0002
|
|
LDA #$000E
|
|
STA $D0
|
|
BRL L0321C2
|
|
L032036 STZ $CE
|
|
BRL L03214A
|
|
L03203B LDA #$0008
|
|
PHA
|
|
LDA $CE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L032048
|
|
DEX
|
|
L032048 STX $F6
|
|
ASL
|
|
ROL $F6
|
|
LDX $F6
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$0F00
|
|
SEC
|
|
JSL L010CD9
|
|
PLA
|
|
SEC
|
|
SBC $D0
|
|
BEQ L032098
|
|
BVS L032074
|
|
EOR #$8000
|
|
L032074 BPL L032098
|
|
LDA $CE
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
CLC
|
|
ADC #$0100
|
|
STA [$F2]
|
|
L032098 LDA #$0004
|
|
PHA
|
|
LDA $CE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0320A5
|
|
DEX
|
|
L0320A5 STX $F6
|
|
ASL
|
|
ROL $F6
|
|
LDX $F6
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$00F0
|
|
SEC
|
|
JSL L010CD9
|
|
PLA
|
|
SEC
|
|
SBC $D0
|
|
BEQ L0320F5
|
|
BVS L0320D1
|
|
EOR #$8000
|
|
L0320D1 BPL L0320F5
|
|
LDA $CE
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
CLC
|
|
ADC #$0010
|
|
STA [$F2]
|
|
L0320F5 LDA $CE
|
|
LDX #$0000
|
|
TAY
|
|
BPL L0320FE
|
|
DEX
|
|
L0320FE STX $F6
|
|
ASL
|
|
ROL $F6
|
|
LDX $F6
|
|
PHX
|
|
PHA
|
|
LDX $FF
|
|
LDA $FD
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
AND #$000F
|
|
SEC
|
|
SBC $D0
|
|
BEQ L032148
|
|
BVS L032124
|
|
EOR #$8000
|
|
L032124 BPL L032148
|
|
LDA $CE
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F2
|
|
STX $F4
|
|
LDA [$F2]
|
|
CLC
|
|
ADC #$0001
|
|
STA [$F2]
|
|
L032148 INC $CE
|
|
L03214A LDA $CE
|
|
SEC
|
|
SBC #$0010
|
|
BVS L032155
|
|
EOR #$8000
|
|
L032155 BMI L03215A
|
|
BRL L03203B
|
|
L03215A PEA $0008
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D2
|
|
PHA
|
|
_SetColorTable
|
|
BCS L032172
|
|
LDA #$0000
|
|
L032172 STAL L0B0002
|
|
JSL L0612B1
|
|
L03217A LDA #$0002
|
|
PHA
|
|
LDA #$000E
|
|
SEC
|
|
SBC $D0
|
|
SEC
|
|
JSL L01092D
|
|
PLY
|
|
PHA
|
|
LDA #$0006
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
PHX
|
|
PHA
|
|
_TickCount
|
|
BCS L0321A7
|
|
LDA #$0000
|
|
L0321A7 STAL L0B0002
|
|
PLA
|
|
PLX
|
|
SEC
|
|
SBC L0B0062
|
|
PHA
|
|
TXA
|
|
SBC L0B0064
|
|
TAX
|
|
PLA
|
|
JSL L010B98
|
|
BCC L0321C0
|
|
BRA L03217A
|
|
L0321C0 DEC $D0
|
|
L0321C2 LDA $D0
|
|
SEC
|
|
SBC #$0000
|
|
BVS L0321CD
|
|
EOR #$8000
|
|
L0321CD BPL L0321D2
|
|
BRL L032036
|
|
L0321D2 JSL L03223A
|
|
TSC
|
|
CLC
|
|
ADC #$002C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0321DE PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F3
|
|
TCD
|
|
ADC #$00EA
|
|
TCS
|
|
LDA [$F9]
|
|
STA $EC
|
|
LDA [$FD]
|
|
STA [$F9]
|
|
LDA $EC
|
|
STA [$FD]
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0321FD ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00EC
|
|
TCS
|
|
LDA $FB
|
|
STA $EE
|
|
BRA L032224
|
|
L03220E PEI $EE
|
|
PEI $FF
|
|
_SetSCB
|
|
BCS L03221E
|
|
LDA #$0000
|
|
L03221E STAL L0B0002
|
|
INC $EE
|
|
L032224 LDA $EE
|
|
SEC
|
|
SBC $FD
|
|
BEQ L03220E
|
|
BVS L032230
|
|
EOR #$8000
|
|
L032230 BPL L03220E
|
|
TSC
|
|
CLC
|
|
ADC #$0008
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03223A ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00AE
|
|
TCS
|
|
PEA $0008
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
PHA
|
|
_GetColorTable
|
|
BCS L03225D
|
|
LDA #$0000
|
|
L03225D STAL L0B0002
|
|
LDA $D6
|
|
STA $B6
|
|
LDA #$0008
|
|
PHA
|
|
LDA $D6
|
|
SEC
|
|
JSL L010CD9
|
|
PLA
|
|
AND #$000F
|
|
PHA
|
|
LDA #$0004
|
|
PHA
|
|
LDA $D6
|
|
SEC
|
|
JSL L010CD9
|
|
PLA
|
|
AND #$000F
|
|
PHA
|
|
LDA $D6
|
|
AND #$000F
|
|
PLX
|
|
STX $FA
|
|
CLC
|
|
ADC $FA
|
|
PLX
|
|
STX $FA
|
|
CLC
|
|
ADC $FA
|
|
STA $B0
|
|
LDA $B0
|
|
SEC
|
|
SBC #$0015
|
|
BEQ L0322AE
|
|
BVS L0322A5
|
|
EOR #$8000
|
|
L0322A5 BPL L0322AE
|
|
LDA #$0000
|
|
STA $BC
|
|
BRA L0322B3
|
|
L0322AE LDA #$0FFF
|
|
STA $BC
|
|
L0322B3 PEA $000F
|
|
PEA $000F
|
|
PEA $000F
|
|
JSL L03238E
|
|
PLY
|
|
PLY
|
|
PLY
|
|
STA $BA
|
|
PEA $0007
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00B6
|
|
PHA
|
|
_SetColorTable
|
|
BCS L0322DD
|
|
LDA #$0000
|
|
L0322DD STAL L0B0002
|
|
JSL L0322ED
|
|
TSC
|
|
CLC
|
|
ADC #$004C
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L0322ED ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00FB
|
|
TCD
|
|
ADC #$00D2
|
|
TCS
|
|
PEA $0007
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
PHA
|
|
_GetColorTable
|
|
BCS L032310
|
|
LDA #$0000
|
|
L032310 STAL L0B0002
|
|
LDA #$0004
|
|
STA $D4
|
|
BRA L03235B
|
|
L03231B LDA $D4
|
|
SEC
|
|
SBC #$0004
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
LDA [$F6]
|
|
PHA
|
|
LDA $D4
|
|
ASL
|
|
LDX #$0000
|
|
PHX
|
|
PHA
|
|
LDX #$0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
JSL L010922
|
|
PLA
|
|
PLX
|
|
STA $F6
|
|
STX $F8
|
|
PLA
|
|
STA [$F6]
|
|
INC $D4
|
|
L03235B LDA $D4
|
|
SEC
|
|
SBC #$000F
|
|
BEQ L03231B
|
|
BVS L032368
|
|
EOR #$8000
|
|
L032368 BPL L03231B
|
|
PEA $0007
|
|
PEA $0000
|
|
TDC
|
|
CLC
|
|
ADC #$00D6
|
|
PHA
|
|
_SetColorTable
|
|
BCS L032382
|
|
LDA #$0000
|
|
L032382 STAL L0B0002
|
|
TSC
|
|
CLC
|
|
ADC #$0028
|
|
TCS
|
|
PLD
|
|
RTL
|
|
|
|
L03238E ENT
|
|
PHD
|
|
TSC
|
|
SEC
|
|
SBC #$00F5
|
|
TCD
|
|
ADC #$00EE
|
|
TCS
|
|
LDA $FD
|
|
PHA
|
|
LDA #$0010
|
|
SEC
|
|
JSL L010AAE
|
|
LDA $FB
|
|
PHA
|
|
LDA #$0100
|
|
SEC
|
|
JSL L010AAE
|
|
PLA
|
|
PLX
|
|
STX $F4
|
|
CLC
|
|
ADC $F4
|
|
CLC
|
|
ADC $FF
|
|
TAY
|
|
TSC
|
|
CLC
|
|
ADC #$0006
|
|
TCS
|
|
TYA
|
|
PLD
|
|
RTL
|
|
|