antoine-source/yourtour/TWO.S

4394 lines
77 KiB
ArmAsm
Raw Normal View History

*
* 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