Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2024-12-30 18:31:21 +00:00
Code Issues Projects Releases Wiki Activity
f7209d2f79
antoine-source/yourtour/CTRICKS.S
Antoine Vignau b226c204f3 Your Tour 89 is ready 
Is now HDD installable and System 6 friendly. Perhaps it was already.
2024-04-29 15:25:49 +02:00

6619 lines
119 KiB
ArmAsm
Raw Blame History

*
* Your tour of the Apple IIgs
*
* (c) 1989, Apple Computer
* (s) 2020, Antoine Vignau
*
mx %00
rel
lst off
*-------------------------------
use CTRICKS.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
*-------------------------------
L080000 ENT
L0E0074 ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$FEBE
TCS
LDA #$0001
STA L0B00AA
LDA $FF
BRL L081F5A
L080016 JSL L0311DD
JSL L06063A
JSL L0612B1
LDA #L0C1A84
LDX #^L0C1A84
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FF1C
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
L08003F JSL L083B83
LDX #$FF4E
STA $00,X
TAY
BNE L080078
JSL L0612DE
TAY
BNE L080078
PHA
PEA $0000
TDC
CLC
ADC #$FF1C
PHA
PEA ^L0C1A84
PEA L0C1A84
_EqualPt
BCS L08006E
LDA #$0000
L08006E STAL L0B0002
PLA
TAY
BEQ L080078
BRA L08003F
L080078 LDX #$FF4E
LDA $00,X
BEQ L080082
BRL L08016E
L080082 JSL L0612DE
TAY
BEQ L08008C
BRL L08016E
L08008C LDX #$0000
LDA #$0000
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $006E
PEA $0000
PEA $0037
PEA $0012
PEA $0004
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
PEA $006E
PEA $0000
PEA $003C
PEA $0012
PEA $0004
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
PEA $0000
PEA $0000
PEA $0000
PEA $000A
PEA $0004
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2474
PLA
STAL L0C2472
LDX #$0000
LDA #$0002
PHA
TXA
STAL L0C2478
PLA
STAL L0C2476
LDX #$FFFF
LDA #$FFFF
PHA
TXA
STAL L0C247C
PLA
STAL L0C247A
PEA ^L0C2466
PEA L0C2466
JSL L0502A4
PLY
PLY
PEA $0004
JSL L06152C
PLY
JSL L0612B1
L080140 JSL L083B83
TAY
BNE L08016E
JSL L0612DE
TAY
BNE L08016E
PHA
PEA $046E
PEA ^L0C1A7A
PEA L0C1A7A
_EventAvail
BCS L080164
LDA #$0000
L080164 STAL L0B0002
PLA
TAY
BNE L08016E
BRA L080140
L08016E JSL L031208
BRL L081F68
L080175 JSL L0311DD
JSL L0612B1
LDX #$FF4E
STZ $00,X
LDX #$FF4C
STZ $00,X
LDX #$FF4A
STZ $00,X
L08018C LDX #$FF4E
LDA $00,X
BEQ L080196
BRL L080212
L080196 LDX #$FF4C
LDA $00,X
BEQ L0801A0
BRL L080212
L0801A0 LDX #$FF4A
LDA $00,X
BEQ L0801AA
BRL L080212
L0801AA JSL L083B83
LDX #$FF4E
STA $00,X
LDA #L0C1A84
LDX #^L0C1A84
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FF18
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PHA
PEA $0000
TDC
CLC
ADC #$FF18
PHA
LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_PtInRect
BCS L0801FC
LDA #$0000
L0801FC STAL L0B0002
PLA
LDX #$FF4C
STA $00,X
JSL L0612DE
LDX #$FF4A
STA $00,X
BRL L08018C
L080212 LDX #$FF4E
LDA $00,X
BEQ L08021C
BRL L0802D4
L08021C STZ L0B0090
LDX #$FF4C
LDA $00,X
BNE L080229
BRL L0802C0
L080229 LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L08024B
LDA #$0000
L08024B STAL L0B0002
PEA ^L0C2938
PEA L0C2938
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
L080263 JSL L06063A
PHA
PEA ^L0C1A84
PEA L0C1A84
LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_PtInRect
BCS L080290
LDA #$0000
L080290 STAL L0B0002
PLA
TAY
BNE L080263
LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L0802BA
LDA #$0000
L0802BA STAL L0B0002
BRA L0802D4
L0802C0 PEA ^L0C293A
PEA L0C293A
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
L0802D4 JSL L031208
BRL L081F68
L0802DB PEA ^L0C293C
PEA L0C293C
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L040E53
PLY
PLY
LDX #$FF22
STA $00,X
LDX #$FF22
LDA $00,X
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
TAX
LDY #$0002
LDA [$F4],Y
TXY
LDX #$FF26
STY $02,X
STA $00,X
TYX
PEA $0000
TDC
CLC
ADC #$FF58
PHA
PEA $0220
PEA $0097
PEA $0280
PEA $00AE
_SetRect
BCS L08035F
LDA #$0000
L08035F STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF60
PHA
PEA $0208
PEA $0097
PEA $0220
PEA $00AE
_SetRect
BCS L080384
LDA #$0000
L080384 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF68
PHA
PEA $01F0
PEA $0097
PEA $0208
PEA $00AE
_SetRect
BCS L0803A9
LDA #$0000
L0803A9 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF70
PHA
PEA $01D6
PEA $0097
PEA $01F0
PEA $00AE
_SetRect
BCS L0803CE
LDA #$0000
L0803CE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF78
PHA
PEA $01C2
PEA $0094
PEA $01D6
PEA $00AE
_SetRect
BCS L0803F3
LDA #$0000
L0803F3 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF80
PHA
PEA $01AA
PEA $0091
PEA $01C2
PEA $00AE
_SetRect
BCS L080418
LDA #$0000
L080418 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF88
PHA
PEA $019E
PEA $0090
PEA $01AA
PEA $00AE
_SetRect
BCS L08043D
LDA #$0000
L08043D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF90
PHA
PEA $0190
PEA $008D
PEA $019E
PEA $00AC
_SetRect
BCS L080462
LDA #$0000
L080462 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF98
PHA
PEA $016C
PEA $008A
PEA $0190
PEA $00A9
_SetRect
BCS L080487
LDA #$0000
L080487 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFA0
PHA
PEA $0154
PEA $008A
PEA $016C
PEA $00A7
_SetRect
BCS L0804AC
LDA #$0000
L0804AC STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFA8
PHA
PEA $0144
PEA $0088
PEA $0154
PEA $00A5
_SetRect
BCS L0804D1
LDA #$0000
L0804D1 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFB0
PHA
PEA $012A
PEA $0088
PEA $0144
PEA $00A3
_SetRect
BCS L0804F6
LDA #$0000
L0804F6 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFB8
PHA
PEA $011A
PEA $0088
PEA $012A
PEA $00A1
_SetRect
BCS L08051B
LDA #$0000
L08051B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFC0
PHA
PEA $0102
PEA $0088
PEA $011A
PEA $009F
_SetRect
BCS L080540
LDA #$0000
L080540 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFC8
PHA
PEA $00F0
PEA $0086
PEA $0102
PEA $009F
_SetRect
BCS L080565
LDA #$0000
L080565 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFD0
PHA
PEA $00D8
PEA $0086
PEA $00F0
PEA $009F
_SetRect
BCS L08058A
LDA #$0000
L08058A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFD8
PHA
PEA $00C6
PEA $0086
PEA $00D8
PEA $009F
_SetRect
BCS L0805AF
LDA #$0000
L0805AF STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFE0
PHA
PEA $00AC
PEA $0089
PEA $00C6
PEA $009F
_SetRect
BCS L0805D4
LDA #$0000
L0805D4 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFE8
PHA
PEA $0094
PEA $0089
PEA $00AC
PEA $009F
_SetRect
BCS L0805F9
LDA #$0000
L0805F9 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFF0
PHA
PEA $0000
PEA $005E
PEA $0094
PEA $009F
_SetRect
BCS L08061E
LDA #$0000
L08061E STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC4
PHA
PEA $01E0
PEA $0098
_SetPt
BCS L08063D
LDA #$0000
L08063D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC8
PHA
PEA $01CE
PEA $0098
_SetPt
BCS L08065C
LDA #$0000
L08065C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FECC
PHA
PEA $01B6
PEA $0098
_SetPt
BCS L08067B
LDA #$0000
L08067B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED0
PHA
PEA $01A0
PEA $0095
_SetPt
BCS L08069A
LDA #$0000
L08069A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED4
PHA
PEA $0188
PEA $0092
_SetPt
BCS L0806B9
LDA #$0000
L0806B9 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED8
PHA
PEA $017A
PEA $0092
_SetPt
BCS L0806D8
LDA #$0000
L0806D8 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEDC
PHA
PEA $0170
PEA $008F
_SetPt
BCS L0806F7
LDA #$0000
L0806F7 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE0
PHA
PEA $014A
PEA $008C
_SetPt
BCS L080716
LDA #$0000
L080716 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE4
PHA
PEA $0134
PEA $008C
_SetPt
BCS L080735
LDA #$0000
L080735 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE8
PHA
PEA $0124
PEA $008A
_SetPt
BCS L080754
LDA #$0000
L080754 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEEC
PHA
PEA $010C
PEA $0088
_SetPt
BCS L080773
LDA #$0000
L080773 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEF0
PHA
PEA $00FA
PEA $008A
_SetPt
BCS L080792
LDA #$0000
L080792 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEF4
PHA
PEA $00E2
PEA $008A
_SetPt
BCS L0807B1
LDA #$0000
L0807B1 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEF8
PHA
PEA $00D0
PEA $0088
_SetPt
BCS L0807D0
LDA #$0000
L0807D0 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEFC
PHA
PEA $00B8
PEA $0088
_SetPt
BCS L0807EF
LDA #$0000
L0807EF STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $00A6
PEA $0086
_SetPt
BCS L08080E
LDA #$0000
L08080E STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF04
PHA
PEA $008E
PEA $0086
_SetPt
BCS L08082D
LDA #$0000
L08082D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF08
PHA
PEA $008E
PEA $0086
_SetPt
BCS L08084C
LDA #$0000
L08084C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF0C
PHA
PEA $008E
PEA $0089
_SetPt
BCS L08086B
LDA #$0000
L08086B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$004C
PHA
PEA $0000
PEA $0000
PEA $0082
PEA $0011
_SetRect
BCS L080890
LDA #$0000
L080890 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0054
PHA
PEA $0084
PEA $0000
PEA $0118
PEA $0011
_SetRect
BCS L0808B5
LDA #$0000
L0808B5 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$005C
PHA
PEA $011A
PEA $0000
PEA $01AE
PEA $0011
_SetRect
BCS L0808DA
LDA #$0000
L0808DA STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0064
PHA
PEA $01B0
PEA $0000
PEA $0246
PEA $0014
_SetRect
BCS L0808FF
LDA #$0000
L0808FF STAL L0B0002
PEA $0000
TDC
CLC
ADC #$006C
PHA
PEA $0000
PEA $0011
PEA $0098
PEA $0028
_SetRect
BCS L080924
LDA #$0000
L080924 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0074
PHA
PEA $009A
PEA $0011
PEA $012C
PEA $0028
_SetRect
BCS L080949
LDA #$0000
L080949 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$007C
PHA
PEA $012E
PEA $0014
PEA $01B4
PEA $002D
_SetRect
BCS L08096E
LDA #$0000
L08096E STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0084
PHA
PEA $01B6
PEA $0014
PEA $024E
PEA $0030
_SetRect
BCS L080993
LDA #$0000
L080993 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$008C
PHA
PEA $0000
PEA $0028
PEA $009A
PEA $0044
_SetRect
BCS L0809B8
LDA #$0000
L0809B8 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0094
PHA
PEA $009C
PEA $0028
PEA $0122
PEA $0041
_SetRect
BCS L0809DD
LDA #$0000
L0809DD STAL L0B0002
PEA $0000
TDC
CLC
ADC #$009C
PHA
PEA $0124
PEA $002D
PEA $01B0
PEA $0045
_SetRect
BCS L080A02
LDA #$0000
L080A02 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00A4
PHA
PEA $01B2
PEA $0030
PEA $0244
PEA $0041
_SetRect
BCS L080A27
LDA #$0000
L080A27 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00AC
PHA
PEA $0000
PEA $0045
PEA $0094
PEA $0056
_SetRect
BCS L080A4C
LDA #$0000
L080A4C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00B4
PHA
PEA $0096
PEA $0045
PEA $0128
PEA $0058
_SetRect
BCS L080A71
LDA #$0000
L080A71 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00BC
PHA
PEA $012A
PEA $0045
PEA $01BE
PEA $0058
_SetRect
BCS L080A96
LDA #$0000
L080A96 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00C4
PHA
PEA $006E
PEA $006F
PEA $0100
PEA $0082
_SetRect
BCS L080ABB
LDA #$0000
L080ABB STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00CC
PHA
PEA $0000
PEA $0058
PEA $0094
PEA $006F
_SetRect
BCS L080AE0
LDA #$0000
L080AE0 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00D4
PHA
PEA $0096
PEA $0058
PEA $0118
PEA $006F
_SetRect
BCS L080B05
LDA #$0000
L080B05 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00DC
PHA
PEA $011A
PEA $0058
PEA $016C
PEA $006C
_SetRect
BCS L080B2A
LDA #$0000
L080B2A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF50
PHA
PEA $0013
PEA $0000
TDC
CLC
ADC #$0044
PHA
PEA $0000
TDC
CLC
ADC #$FEC0
PHA
LDX #$FF28
LDA $00,X
TAX
PHX
LDX #$FF26
LDA $00,X
PHA
JSL L081F70
TAY
TSC
CLC
ADC #$0012
TCS
TYA
BRL L081F68
L080B68 PEA ^L0C2947
PEA L0C2947
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L040E53
PLY
PLY
LDX #$FF22
STA $00,X
LDX #$FF22
LDA $00,X
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
TAX
LDY #$0002
LDA [$F4],Y
TXY
LDX #$FF26
STY $02,X
STA $00,X
TYX
PEA $0000
TDC
CLC
ADC #$FF58
PHA
PEA $0064
PEA $0049
PEA $00BC
PEA $006E
_SetRect
BCS L080BEC
LDA #$0000
L080BEC STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF60
PHA
PEA $00BC
PEA $0059
PEA $00D4
PEA $006E
_SetRect
BCS L080C11
LDA #$0000
L080C11 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF68
PHA
PEA $00D4
PEA $0059
PEA $00F0
PEA $006E
_SetRect
BCS L080C36
LDA #$0000
L080C36 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF70
PHA
PEA $00F0
PEA $0059
PEA $0104
PEA $006E
_SetRect
BCS L080C5B
LDA #$0000
L080C5B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF78
PHA
PEA $0104
PEA $0058
PEA $012E
PEA $006E
_SetRect
BCS L080C80
LDA #$0000
L080C80 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC4
PHA
PEA $005A
PEA $005A
_SetPt
BCS L080C9F
LDA #$0000
L080C9F STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC8
PHA
PEA $0072
PEA $005B
_SetPt
BCS L080CBE
LDA #$0000
L080CBE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FECC
PHA
PEA $008C
PEA $0058
_SetPt
BCS L080CDD
LDA #$0000
L080CDD STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED0
PHA
PEA $00A6
PEA $0058
_SetPt
BCS L080CFC
LDA #$0000
L080CFC STAL L0B0002
PEA $0000
TDC
CLC
ADC #$004C
PHA
PEA $00BC
PEA $0000
PEA $0156
PEA $0023
_SetRect
BCS L080D21
LDA #$0000
L080D21 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0054
PHA
PEA $00BA
PEA $0023
PEA $0158
PEA $0035
_SetRect
BCS L080D46
LDA #$0000
L080D46 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$005C
PHA
PEA $009C
PEA $0038
PEA $0150
PEA $004C
_SetRect
BCS L080D6B
LDA #$0000
L080D6B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0064
PHA
PEA $0000
PEA $0058
PEA $009A
PEA $006C
_SetRect
BCS L080D90
LDA #$0000
L080D90 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF50
PHA
PEA $0004
PEA $0000
TDC
CLC
ADC #$0044
PHA
PEA $0000
TDC
CLC
ADC #$FEC0
PHA
LDX #$FF28
LDA $00,X
TAX
PHX
LDX #$FF26
LDA $00,X
PHA
JSL L081F70
TAY
TSC
CLC
ADC #$0012
TCS
TYA
BRL L081F68
L080DCE JSL L0827A6
BRL L081F68
L080DD5 PEA ^L0C2952
PEA L0C2952
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L040E53
PLY
PLY
LDX #$FF22
STA $00,X
LDX #$FF22
LDA $00,X
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
TAX
LDY #$0002
LDA [$F4],Y
TXY
LDX #$FF26
STY $02,X
STA $00,X
TYX
PEA $0000
TDC
CLC
ADC #$FF58
PHA
PEA $00E6
PEA $005A
PEA $014E
PEA $0070
_SetRect
BCS L080E59
LDA #$0000
L080E59 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF60
PHA
PEA $014E
PEA $005A
PEA $0166
PEA $0074
_SetRect
BCS L080E7E
LDA #$0000
L080E7E STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF68
PHA
PEA $0166
PEA $005C
PEA $017E
PEA $0077
_SetRect
BCS L080EA3
LDA #$0000
L080EA3 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF70
PHA
PEA $017E
PEA $005E
PEA $0196
PEA $007D
_SetRect
BCS L080EC8
LDA #$0000
L080EC8 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF78
PHA
PEA $0196
PEA $0063
PEA $01A8
PEA $0081
_SetRect
BCS L080EED
LDA #$0000
L080EED STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF80
PHA
PEA $01A8
PEA $006A
PEA $01C4
PEA $0086
_SetRect
BCS L080F12
LDA #$0000
L080F12 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF88
PHA
PEA $01C4
PEA $006C
PEA $01DA
PEA $0086
_SetRect
BCS L080F37
LDA #$0000
L080F37 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF90
PHA
PEA $01DA
PEA $006D
PEA $01F6
PEA $0086
_SetRect
BCS L080F5C
LDA #$0000
L080F5C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF98
PHA
PEA $01F6
PEA $005D
PEA $0226
PEA $0080
_SetRect
BCS L080F81
LDA #$0000
L080F81 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFA0
PHA
PEA $01F4
PEA $0054
PEA $0226
PEA $005D
_SetRect
BCS L080FA6
LDA #$0000
L080FA6 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFA8
PHA
PEA $01F4
PEA $004D
PEA $0226
PEA $0054
_SetRect
BCS L080FCB
LDA #$0000
L080FCB STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFB0
PHA
PEA $01F4
PEA $0047
PEA $0226
PEA $004D
_SetRect
BCS L080FF0
LDA #$0000
L080FF0 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFB8
PHA
PEA $01F4
PEA $0000
PEA $0226
PEA $0047
_SetRect
BCS L081015
LDA #$0000
L081015 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC4
PHA
PEA $0104
PEA $005B
_SetPt
BCS L081034
LDA #$0000
L081034 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC8
PHA
PEA $0104
PEA $005B
_SetPt
BCS L081053
LDA #$0000
L081053 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FECC
PHA
PEA $011E
PEA $005B
_SetPt
BCS L081072
LDA #$0000
L081072 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED0
PHA
PEA $0136
PEA $005F
_SetPt
BCS L081091
LDA #$0000
L081091 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED4
PHA
PEA $0150
PEA $0062
_SetPt
BCS L0810B0
LDA #$0000
L0810B0 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED8
PHA
PEA $0166
PEA $0068
_SetPt
BCS L0810CF
LDA #$0000
L0810CF STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEDC
PHA
PEA $017E
PEA $006C
_SetPt
BCS L0810EE
LDA #$0000
L0810EE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE0
PHA
PEA $0194
PEA $004D
_SetPt
BCS L08110D
LDA #$0000
L08110D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE4
PHA
PEA $01AE
PEA $0048
_SetPt
BCS L08112C
LDA #$0000
L08112C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE8
PHA
PEA $01F8
PEA $003F
_SetPt
BCS L08114B
LDA #$0000
L08114B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEEC
PHA
PEA $01F8
PEA $003C
_SetPt
BCS L08116A
LDA #$0000
L08116A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEF0
PHA
PEA $01F8
PEA $0036
_SetPt
BCS L081189
LDA #$0000
L081189 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$004C
PHA
PEA $0000
PEA $0000
PEA $0082
PEA $0011
_SetRect
BCS L0811AE
LDA #$0000
L0811AE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0054
PHA
PEA $0084
PEA $0000
PEA $0120
PEA $0015
_SetRect
BCS L0811D3
LDA #$0000
L0811D3 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$005C
PHA
PEA $0122
PEA $0000
PEA $01A8
PEA $001C
_SetRect
BCS L0811F8
LDA #$0000
L0811F8 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0064
PHA
PEA $01AA
PEA $0000
PEA $023E
PEA $001B
_SetRect
BCS L08121D
LDA #$0000
L08121D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$006C
PHA
PEA $0000
PEA $0011
PEA $0080
PEA $0030
_SetRect
BCS L081242
LDA #$0000
L081242 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0074
PHA
PEA $0082
PEA $0015
PEA $0118
PEA $002E
_SetRect
BCS L081267
LDA #$0000
L081267 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$007C
PHA
PEA $011A
PEA $001C
PEA $01B8
PEA $0031
_SetRect
BCS L08128C
LDA #$0000
L08128C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0084
PHA
PEA $0000
PEA $0030
PEA $008E
PEA $0064
_SetRect
BCS L0812B1
LDA #$0000
L0812B1 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$008C
PHA
PEA $0090
PEA $002E
PEA $0104
PEA $0067
_SetRect
BCS L0812D6
LDA #$0000
L0812D6 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0094
PHA
PEA $01BA
PEA $001B
PEA $01E4
PEA $005C
_SetRect
BCS L0812FB
LDA #$0000
L0812FB STAL L0B0002
PEA $0000
TDC
CLC
ADC #$009C
PHA
PEA $01E6
PEA $001B
PEA $0210
PEA $0056
_SetRect
BCS L081320
LDA #$0000
L081320 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00A4
PHA
PEA $0212
PEA $001B
PEA $023C
PEA $0056
_SetRect
BCS L081345
LDA #$0000
L081345 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF50
PHA
PEA $000C
PEA $0000
TDC
CLC
ADC #$0044
PHA
PEA $0000
TDC
CLC
ADC #$FEC0
PHA
LDX #$FF28
LDA $00,X
TAX
PHX
LDX #$FF26
LDA $00,X
PHA
JSL L081F70
TAY
TSC
CLC
ADC #$0012
TCS
TYA
BRL L081F68
L081383 LDX #$FF24
STZ $00,X
LDX #$FF4E
STZ $00,X
LDX #$FF4C
STZ $00,X
LDX #$FF4A
STZ $00,X
L081397 JSL L0311DD
PEA $0001
JSL L06078F
PLY
LDA L0B0078
CMP #$0002
BNE L0813AE
BRL L08162E
L0813AE LDA L0B0078
SEC
SBC #$0000
BVS L0813BA
EOR #$8000
L0813BA BPL L0813BF
BRL L08162C
L0813BF LDA L0B0078
CMP #$FFFF
BEQ L0813CA
BRL L081430
L0813CA LDAL L0C0747
PHA
PEA $000A
JSL L0251CD
PLY
PLY
LDAL L0C0749
PHA
PEA $000B
JSL L0251CD
PLY
PLY
PEA $0001
PEA $0001
JSL L0312C8
PLY
PLY
LDAL L0C1188
AND #$00FF
CMP #$0031
BNE L08142D
LDA #$0001
LDX #$FF4E
STA $00,X
PEA ^L0C0EFA
PEA L0C0EFA
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_SetRect
BCS L081424
LDA #$0000
L081424 STAL L0B0002
LDX #$FF24
INC $00,X
L08142D BRL L08150F
L081430 LDA L0B0078
CMP #$FFFE
BEQ L08143B
BRL L0814A1
L08143B LDAL L0C074B
PHA
PEA $000A
JSL L0251CD
PLY
PLY
LDAL L0C074D
PHA
PEA $000B
JSL L0251CD
PLY
PLY
PEA $0001
PEA $0001
JSL L0312C8
PLY
PLY
LDAL L0C1188
AND #$00FF
CMP #$0031
BNE L08149E
LDA #$0001
LDX #$FF4C
STA $00,X
PEA ^L0C0F02
PEA L0C0F02
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_SetRect
BCS L081495
LDA #$0000
L081495 STAL L0B0002
LDX #$FF24
INC $00,X
L08149E BRL L08150F
L0814A1 LDA L0B0078
CMP #$FFFD
BEQ L0814AC
BRL L08150F
L0814AC LDAL L0C074F
PHA
PEA $000A
JSL L0251CD
PLY
PLY
LDAL L0C0751
PHA
PEA $000B
JSL L0251CD
PLY
PLY
PEA $0001
PEA $0001
JSL L0312C8
PLY
PLY
LDAL L0C1188
AND #$00FF
CMP #$0031
BNE L08150F
LDA #$0001
LDX #$FF4A
STA $00,X
PEA ^L0C0F0A
PEA L0C0F0A
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_SetRect
BCS L081506
LDA #$0000
L081506 STAL L0B0002
LDX #$FF24
INC $00,X
L08150F LDX #$FF24
LDA $00,X
BNE L081519
BRL L08162C
L081519 LDX #$FF24
LDA $00,X
SEC
SBC #$0003
BVS L081527
EOR #$8000
L081527 BPL L08152C
BRL L08162C
L08152C LDAL L0C1188
AND #$00FF
CMP #$0031
BEQ L08153B
BRL L08162C
L08153B LDX #$0000
LDA #$0000
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $0078
PEA $0000
PEA $0037
PEA $0012
PEA $0004
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
PEA $0078
PEA $0000
PEA $003C
PEA $0012
PEA $0004
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
PEA $006E
PEA $0000
PEA $0000
PEA $000A
PEA $0004
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2474
PLA
STAL L0C2472
LDX #$0000
LDA #$0002
PHA
TXA
STAL L0C2478
PLA
STAL L0C2476
LDX #$FFFF
LDA #$FFFF
PHA
TXA
STAL L0C247C
PLA
STAL L0C247A
LDX #$FF24
LDA $00,X
CMP #$0002
BEQ L0815E4
BRL L081620
L0815E4 LDAL L0C246C
TAX
LDAL L0C246A
PHA
TXA
STAL L0C2480
PLA
STAL L0C247E
LDAL L0C2470
TAX
LDAL L0C246E
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDAL L0C2480
TAX
LDAL L0C247E
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
L081620 PEA ^L0C2466
PEA L0C2466
JSL L0502A4
PLY
PLY
L08162C BRA L081646
L08162E LDA #$0001
LDX #$FF4E
STA $00,X
LDA #$0001
LDX #$FF4C
STA $00,X
LDA #$0001
LDX #$FF4A
STA $00,X
L081646 LDX #$FF4E
LDA $00,X
BNE L081650
BRL L081397
L081650 LDX #$FF4C
LDA $00,X
BNE L08165A
BRL L081397
L08165A LDX #$FF4A
LDA $00,X
BNE L081664
BRL L081397
L081664 JSL L031208
BRL L081F68
L08166B PEA ^L0C295D
PEA L0C295D
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L040E53
PLY
PLY
LDX #$FF22
STA $00,X
LDX #$FF22
LDA $00,X
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
TAX
LDY #$0002
LDA [$F4],Y
TXY
LDX #$FF26
STY $02,X
STA $00,X
TYX
PEA $0000
TDC
CLC
ADC #$FF58
PHA
PEA $01C2
PEA $0033
PEA $0216
PEA $0049
_SetRect
BCS L0816EF
LDA #$0000
L0816EF STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF60
PHA
PEA $01AC
PEA $0033
PEA $01C2
PEA $0047
_SetRect
BCS L081714
LDA #$0000
L081714 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF68
PHA
PEA $019A
PEA $002D
PEA $01AC
PEA $0047
_SetRect
BCS L081739
LDA #$0000
L081739 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF70
PHA
PEA $018E
PEA $002A
PEA $019A
PEA $0047
_SetRect
BCS L08175E
LDA #$0000
L08175E STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF78
PHA
PEA $016C
PEA $0028
PEA $018E
PEA $0040
_SetRect
BCS L081783
LDA #$0000
L081783 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF80
PHA
PEA $00C8
PEA $0024
PEA $016C
PEA $0040
_SetRect
BCS L0817A8
LDA #$0000
L0817A8 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC4
PHA
PEA $0186
PEA $0033
_SetPt
BCS L0817C7
LDA #$0000
L0817C7 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC8
PHA
PEA $0174
PEA $002D
_SetPt
BCS L0817E6
LDA #$0000
L0817E6 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FECC
PHA
PEA $0168
PEA $002A
_SetPt
BCS L081805
LDA #$0000
L081805 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED0
PHA
PEA $014A
PEA $0029
_SetPt
BCS L081824
LDA #$0000
L081824 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED4
PHA
PEA $0146
PEA $0024
_SetPt
BCS L081843
LDA #$0000
L081843 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$004C
PHA
PEA $0000
PEA $0051
PEA $0094
PEA $0071
_SetRect
BCS L081868
LDA #$0000
L081868 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0054
PHA
PEA $0000
PEA $0000
PEA $0094
PEA $001B
_SetRect
BCS L08188D
LDA #$0000
L08188D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$005C
PHA
PEA $0096
PEA $0000
PEA $0122
PEA $001E
_SetRect
BCS L0818B2
LDA #$0000
L0818B2 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0064
PHA
PEA $0124
PEA $0000
PEA $01B2
PEA $001E
_SetRect
BCS L0818D7
LDA #$0000
L0818D7 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$006C
PHA
PEA $01DC
PEA $0000
PEA $0260
PEA $0023
_SetRect
BCS L0818FC
LDA #$0000
L0818FC STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF50
PHA
PEA $0005
PEA $0000
TDC
CLC
ADC #$0044
PHA
PEA $0000
TDC
CLC
ADC #$FEC0
PHA
LDX #$FF28
LDA $00,X
TAX
PHX
LDX #$FF26
LDA $00,X
PHA
JSL L081F70
TAY
TSC
CLC
ADC #$0012
TCS
TYA
BRL L081F68
L08193A PEA $0000
TDC
CLC
ADC #$0044
PHA
PEA $0000
TDC
CLC
ADC #$FEC0
PHA
JSL L0822DC
PLY
PLY
PLY
PLY
BRL L081F68
L081957 JSL L0311DD
JSL L0612B1
LDA #$0001
STA L0B00C7
LDA #$0004
STA L0B0080
PEA ^L0C2968
PEA L0C2968
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDA $F4
LDX $F6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
PEA $0000
JSL L060C20
TAY
TSC
CLC
ADC #$000C
TCS
TYA
JSL L04169A
TAY
BEQ L0819D5
BRL L081A24
L0819D5 JSL L0612DE
TAY
BEQ L0819DF
BRL L081A24
L0819DF PHA
PEA ^L0C1A84
PEA L0C1A84
LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_PtInRect
BCS L081A08
LDA #$0000
L081A08 STAL L0B0002
PLA
TAY
BEQ L081A24
PEA ^L0C296A
PEA L0C296A
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
L081A24 JSL L031208
STZ L0B00C7
BRL L081F68
L081A2E PEA ^L0C296C
PEA L0C296C
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FF2A
PHA
JSL L040E53
PLY
PLY
LDX #$FF22
STA $00,X
LDX #$FF22
LDA $00,X
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
TAX
LDY #$0002
LDA [$F4],Y
TXY
LDX #$FF26
STY $02,X
STA $00,X
TYX
PEA $0000
TDC
CLC
ADC #$FF58
PHA
PEA $015C
PEA $0028
PEA $019A
PEA $003C
_SetRect
BCS L081AB2
LDA #$0000
L081AB2 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF60
PHA
PEA $0144
PEA $0027
PEA $015C
PEA $0039
_SetRect
BCS L081AD7
LDA #$0000
L081AD7 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF68
PHA
PEA $012E
PEA $0023
PEA $0144
PEA $0039
_SetRect
BCS L081AFC
LDA #$0000
L081AFC STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF70
PHA
PEA $0116
PEA $0021
PEA $012E
PEA $0039
_SetRect
BCS L081B21
LDA #$0000
L081B21 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF78
PHA
PEA $0102
PEA $001D
PEA $0116
PEA $0039
_SetRect
BCS L081B46
LDA #$0000
L081B46 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF80
PHA
PEA $00F4
PEA $001A
PEA $0102
PEA $0037
_SetRect
BCS L081B6B
LDA #$0000
L081B6B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF88
PHA
PEA $00DA
PEA $0016
PEA $00F4
PEA $0035
_SetRect
BCS L081B90
LDA #$0000
L081B90 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF90
PHA
PEA $00BA
PEA $0016
PEA $00DA
PEA $0035
_SetRect
BCS L081BB5
LDA #$0000
L081BB5 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF98
PHA
PEA $0064
PEA $0016
PEA $00BA
PEA $0035
_SetRect
BCS L081BDA
LDA #$0000
L081BDA STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC4
PHA
PEA $0122
PEA $0021
_SetPt
BCS L081BF9
LDA #$0000
L081BF9 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEC8
PHA
PEA $010A
PEA $0021
_SetPt
BCS L081C18
LDA #$0000
L081C18 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FECC
PHA
PEA $00F0
PEA $0022
_SetPt
BCS L081C37
LDA #$0000
L081C37 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED0
PHA
PEA $00DC
PEA $001D
_SetPt
BCS L081C56
LDA #$0000
L081C56 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED4
PHA
PEA $00D2
PEA $001A
_SetPt
BCS L081C75
LDA #$0000
L081C75 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FED8
PHA
PEA $00B2
PEA $0016
_SetPt
BCS L081C94
LDA #$0000
L081C94 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEDC
PHA
PEA $0098
PEA $0016
_SetPt
BCS L081CB3
LDA #$0000
L081CB3 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FEE0
PHA
PEA $0098
PEA $0016
_SetPt
BCS L081CD2
LDA #$0000
L081CD2 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$004C
PHA
PEA $00CA
PEA $001E
PEA $0146
PEA $003A
_SetRect
BCS L081CF7
LDA #$0000
L081CF7 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0054
PHA
PEA $0148
PEA $001E
PEA $01DC
PEA $003A
_SetRect
BCS L081D1C
LDA #$0000
L081D1C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$005C
PHA
PEA $01DE
PEA $0023
PEA $027C
PEA $0039
_SetRect
BCS L081D41
LDA #$0000
L081D41 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0064
PHA
PEA $0000
PEA $0037
PEA $009A
PEA $0051
_SetRect
BCS L081D66
LDA #$0000
L081D66 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$006C
PHA
PEA $009C
PEA $003A
PEA $012A
PEA $0057
_SetRect
BCS L081D8B
LDA #$0000
L081D8B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0074
PHA
PEA $012C
PEA $003A
PEA $01BA
PEA $005B
_SetRect
BCS L081DB0
LDA #$0000
L081DB0 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$007C
PHA
PEA $01BC
PEA $003A
PEA $0258
PEA $005B
_SetRect
BCS L081DD5
LDA #$0000
L081DD5 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$0084
PHA
PEA $0096
PEA $0057
PEA $0112
PEA $0071
_SetRect
BCS L081DFA
LDA #$0000
L081DFA STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FF50
PHA
PEA $0008
PEA $0000
TDC
CLC
ADC #$0044
PHA
PEA $0000
TDC
CLC
ADC #$FEC0
PHA
LDX #$FF28
LDA $00,X
TAX
PHX
LDX #$FF26
LDA $00,X
PHA
JSL L081F70
TAY
TSC
CLC
ADC #$0012
TCS
TYA
BRL L081F68
L081E38 PEA $0000
PEA $0001
JSL L031233
PLY
PLY
BRL L081F68
L081E47 JSL L0311DD
JSL L0612B1
LDX #$FF4E
STZ $00,X
LDX #$FF4C
STZ $00,X
LDX #$FF4A
STZ $00,X
L081E5E LDX #$FF4E
LDA $00,X
BEQ L081E68
BRL L081EE4
L081E68 LDX #$FF4C
LDA $00,X
BEQ L081E72
BRL L081EE4
L081E72 LDX #$FF4A
LDA $00,X
BEQ L081E7C
BRL L081EE4
L081E7C JSL L083B83
LDX #$FF4E
STA $00,X
LDA #L0C1A84
LDX #^L0C1A84
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FF18
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PHA
PEA $0000
TDC
CLC
ADC #$FF18
PHA
LDAL L0C072F
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_PtInRect
BCS L081ECE
LDA #$0000
L081ECE STAL L0B0002
PLA
LDX #$FF4C
STA $00,X
JSL L0612DE
LDX #$FF4A
STA $00,X
BRL L081E5E
L081EE4 LDX #$FF4E
LDA $00,X
BEQ L081EEE
BRL L081F22
L081EEE STZ L0B0090
LDX #$FF4C
LDA $00,X
BEQ L081F0E
PEA ^L0C2977
PEA L0C2977
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
BRA L081F22
L081F0E PEA ^L0C2979
PEA L0C2979
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
L081F22 JSL L031208
BRL L081F68
L081F29 BRL L081F68
L081F2C DA L080016
DA L080175
DA L0802DB
DA L080B68
DA L080DCE
DA L080DD5
DA L081383
DA L08166B
DA L08193A
DA L081957
DA L081A2E
DA L081F29
DA L081F29
DA L081F29
DA L081F29
DA L081F29
DA L081F29
DA L081F29
DA L081F29
DA L081E38
DA L081F29
DA L081E47
DA L081F29
L081F5A DEC
CMP #$0016
BCC L081F63
LDA #$0016
L081F63 ASL
TAX
JMP (L081F2C,X)
L081F68 TSC
CLC
ADC #$023A
TCS
PLD
RTL
L081F70 PHD
TSC
SEC
SBC #$00E9
TCD
ADC #$00D7
TCS
STZ $DA
STZ $DC
BRA L081FAC
L081F81 LDA $DC
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $E4
STX $E6
LDX #$0000
LDA #$0000
LDY #$0002
PHA
TXA
STA [$E4],Y
PLA
STA [$E4]
INC $DC
L081FAC LDA $DC
SEC
SBC #$0020
BVS L081FB7
EOR #$8000
L081FB7 BPL L081F81
LDA $F7
CLC
ADC #$0008
TAX
LDA $F9
BCC L081FC5
INC
L081FC5 PHA
PHX
PEA $0000
PEI $FB
PEI $F1
PEI $EF
JSL L071136
TAY
TSC
CLC
ADC #$000C
TCS
TYA
LDA #$0001
STA $E0
JSL L0311DD
JSL L0311AA
PEA ^L0C2466
PEA L0C2466
LDA $E0
LDX #$0000
TAY
BPL L081FF8
DEX
L081FF8 STX $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
LDA $E0
LDX #$0000
TAY
BPL L082015
DEX
L082015 STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $F9
LDA $F7
JSL L010922
PEA $0063
PEA $0000
PEA $0000
PEA $0000
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
L082047 JSL L06063A
JSL L0612DE
TAY
BNE L08205E
JSL L04169A
TAY
BNE L08205E
LDA #$0000
BRA L082061
L08205E LDA #$0001
L082061 STA $DA
PHA
PEA ^L0C1A84
PEA L0C1A84
LDA $E0
LDX #$0000
TAY
BPL L082073
DEX
L082073 STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
_PtInRect
BCS L082096
LDA #$0000
L082096 STAL L0B0002
PLA
TAY
BNE L0820A2
LDA $DA
BEQ L082047
L0820A2 LDA $E0
SEC
SBC $FB
BEQ L0820B3
BVS L0820AE
EOR #$8000
L0820AE BPL L0820B3
BRL L0822D0
L0820B3 LDA $DA
BEQ L0820BA
BRL L0822D0
L0820BA JSL L06063A
JSL L0612DE
TAY
BNE L0820D1
JSL L04169A
TAY
BNE L0820D1
LDA #$0000
BRA L0820D4
L0820D1 LDA #$0001
L0820D4 STA $DA
PHA
PEA ^L0C1A84
PEA L0C1A84
LDA $E0
LDX #$0000
TAY
BPL L0820E6
DEX
L0820E6 STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
_PtInRect
BCS L082109
LDA #$0000
L082109 STAL L0B0002
PLA
TAY
BEQ L082115
LDA $DA
BEQ L0820BA
L082115 STZ $DE
LDA #$0001
STA $DC
BRA L082161
L08211E PHA
PEA ^L0C1A84
PEA L0C1A84
LDA $DC
LDX #$0000
TAY
BPL L08212E
DEX
L08212E STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
_PtInRect
BCS L082151
LDA #$0000
L082151 STAL L0B0002
PLA
TAY
BEQ L08215F
LDA $DC
STA $DE
BRA L082171
L08215F INC $DC
L082161 LDA $FB
CLC
ADC #$0001
SEC
SBC $DC
BVS L08216F
EOR #$8000
L08216F BMI L08211E
L082171 LDA $DE
CMP #$0000
BNE L08217B
BRL L082287
L08217B LDA $DE
SEC
SBC $E0
BVS L082185
EOR #$8000
L082185 BPL L08218A
BRL L082208
L08218A LDA #$0001
STA $DC
BRA L0821F7
L082191 PEA ^L0C2466
PEA L0C2466
LDA $E0
SEC
SBC $DC
LDX #$0000
TAY
BPL L0821A3
DEX
L0821A3 STX $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
LDA $E0
SEC
SBC $DC
LDX #$0000
TAY
BPL L0821C3
DEX
L0821C3 STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $F9
LDA $F7
JSL L010922
PEA $0063
PEA $0000
PEA $0000
PEA $0000
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
INC $DC
L0821F7 LDA $E0
SEC
SBC $DE
SEC
SBC $DC
BVS L082204
EOR #$8000
L082204 BMI L082191
BRA L082281
L082208 PEA ^L0C2466
PEA L0C2466
LDA $E0
CLC
ADC #$0001
LDX #$0000
TAY
BPL L08221B
DEX
L08221B STX $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
LDA $E0
CLC
ADC #$0001
LDX #$0000
TAY
BPL L08223C
DEX
L08223C STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $F9
LDA $F7
JSL L010922
PEA $0063
PEA $0000
PEA $0000
PEA $0000
LDA $DE
SEC
SBC $FB
BVS L082269
EOR #$8000
L082269 BMI L08226F
LDA $DE
BRA L082271
L08226F LDA $FB
L082271 SEC
SBC $E0
PHA
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
L082281 LDA $DE
STA $E0
BRA L0822CD
L082287 JSL L06063A
PHA
PEA ^L0C1A84
PEA L0C1A84
LDA $E0
LDX #$0000
TAY
BPL L08229B
DEX
L08229B STX $E8
ASL
ROL $E8
ASL
ROL $E8
ASL
ROL $E8
LDX $E8
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
_PtInRect
BCS L0822BE
LDA #$0000
L0822BE STAL L0B0002
PLA
TAY
BNE L0822CD
JSL L0612DE
TAY
BEQ L082287
L0822CD BRL L0820A2
L0822D0 JSL L031208
TSC
CLC
ADC #$0011
TCS
PLD
RTL
L0822DC PHD
TSC
SEC
SBC #$00F3
TCD
ADC #$00BD
TCS
STZ $E4
BRA L082316
L0822EB LDA $E4
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $EE
STX $F0
LDX #$0000
LDA #$0000
LDY #$0002
PHA
TXA
STA [$EE],Y
PLA
STA [$EE]
INC $E4
L082316 LDA $E4
SEC
SBC #$0020
BVS L082321
EOR #$8000
L082321 BPL L0822EB
PEA ^L0C297B
PEA L0C297B
PEA $0000
TDC
CLC
ADC #$00C4
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00C4
PHA
JSL L040E53
PLY
PLY
STA $E2
LDA $E2
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $EE
STX $F0
LDY #$0004
LDA [$EE],Y
TAX
LDY #$0002
LDA [$EE],Y
STX $EC
STA $EA
PEI $FF
PEI $FD
PEA $0002
PEA $0001
PEA $00F4
PEA $005E
_SetRect
BCS L082397
LDA #$0000
L082397 STAL L0B0002
LDA $FD
CLC
ADC #$0008
TAX
LDA $FF
BCC L0823A7
INC
L0823A7 PHA
PHX
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_SetRect
BCS L0823C1
LDA #$0000
L0823C1 STAL L0B0002
PEI $FB
PEI $F9
LDAL L0C0731
PHA
LDAL L0C0733
PHA
_SetPt
BCS L0823DF
LDA #$0000
L0823DF STAL L0B0002
PEI $FF
PEI $FD
PEA $0001
PEA $0000
PEI $EC
PEI $EA
JSL L071136
TAY
TSC
CLC
ADC #$000C
TCS
TYA
JSL L0311DD
PEA $0001
JSL L06078F
PLY
LDA L0B0078
SEC
SBC #$0000
BVS L082415
EOR #$8000
L082415 BPL L08241A
BRL L0825E3
L08241A PHX
PHA
_GetTick
BCS L082428
LDA #$0000
L082428 STAL L0B0002
PLA
PLX
STX $C1
STA $BF
PEA ^L0C2466
PEA L0C2466
PEI $FB
PEI $F9
PEI $FF
PEI $FD
PEA $0063
PEA $0000
PEA $0000
PEA $0002
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
PHA
PEA $0000
_StillDown
BCS L08246B
LDA #$0000
L08246B STAL L0B0002
PLA
TAY
BEQ L0824B1
LDA L0B0078
EOR #$FFFF
INC
STA $E8
LDA $E8
SEC
SBC #$0008
BVS L082487
EOR #$8000
L082487 BMI L0824B1
LDA $E8
BEQ L0824B1
LDA $E8
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L0824AD
LDA #$0000
L0824AD STAL L0B0002
L0824B1 PHA
PEA $0000
_StillDown
BCS L0824C1
LDA #$0000
L0824C1 STAL L0B0002
PLA
TAY
BNE L0824CC
BRL L0825C6
L0824CC JSL L06063A
LDA #L0C1A7A
LDX #^L0C1A7A
TAY
TSC
SEC
SBC #$0010
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0010
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
JSL L061079
TAY
TSC
CLC
ADC #$0010
TCS
TYA
LDA L0B0078
EOR #$FFFF
INC
CMP $E8
BNE L08250A
BRL L0825C3
L08250A LDA L0B0078
EOR #$FFFF
INC
SEC
SBC #$0008
BVS L08251A
EOR #$8000
L08251A BPL L08251F
BRL L0825C3
L08251F LDA L0B0078
CMP #$0000
BNE L082561
LDA $E8
SEC
SBC #$0008
BVS L082532
EOR #$8000
L082532 BMI L08255C
LDA $E8
BEQ L08255C
LDA $E8
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L082558
LDA #$0000
L082558 STAL L0B0002
L08255C STZ $E8
BRL L0825C3
L082561 LDA $E8
SEC
SBC #$0008
BVS L08256C
EOR #$8000
L08256C BMI L082596
LDA $E8
BEQ L082596
LDA $E8
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L082592
LDA #$0000
L082592 STAL L0B0002
L082596 LDA L0B0078
EOR #$FFFF
INC
STA $E8
LDA $E8
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L0825BF
LDA #$0000
L0825BF STAL L0B0002
L0825C3 BRL L0824B1
L0825C6 PEA $0000
PEA ^L0C0E30
PEA L0C0E30
PEI $FB
PEI $F9
PEI $FF
PEI $FD
JSL L08264C
TAY
TSC
CLC
ADC #$000E
TCS
TYA
L0825E3 PHX
PHA
_GetTick
BCS L0825F1
LDA #$0000
L0825F1 STAL L0B0002
PLA
PLX
SEC
SBC $BF
PHA
TXA
SBC $C1
TAX
PLA
STX $C1
STA $BF
SEC
LDA $BF
SBC #$0028
BNE L082613
LDA $C1
SBC #$0000
BRA L08261A
L082613 LDA $C1
SBC #$0000
REP #$02
L08261A BVS L08261F
EOR #$8000
L08261F BMI L082624
STZ L0B0078
L082624 JSL L031208
LDX L0B0048
LDA L0B0046
PHX
PHA
JSL L04023C
PLY
PLY
LDX L0B0044
LDA L0B0042
PHX
PHA
JSL L04023C
PLY
PLY
TSC
CLC
ADC #$0035
TCS
PLD
RTL
L08264C PHD
TSC
SEC
SBC #$00ED
TCD
ADC #$00DE
TCS
PEA $0000
TDC
CLC
ADC #$00E0
PHA
PEA $0000
PEA $0000
LDA $FF
LDX #$0000
TAY
BPL L08266F
DEX
L08266F STX $EC
ASL
ROL $EC
ASL
ROL $EC
ASL
ROL $EC
LDX $EC
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
PLA
PLX
STA $E8
STX $EA
LDY #$0002
LDA [$E8],Y
PHA
LDA $FF
LDX #$0000
TAY
BPL L08269B
DEX
L08269B STX $EC
ASL
ROL $EC
ASL
ROL $EC
ASL
ROL $EC
LDX $EC
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
PLA
PLX
STA $E8
STX $EA
LDY #$0006
LDA [$E8],Y
PLX
STX $EC
SEC
SBC $EC
PHA
LDA $FF
LDX #$0000
TAY
BPL L0826CD
DEX
L0826CD STX $EC
ASL
ROL $EC
ASL
ROL $EC
ASL
ROL $EC
LDX $EC
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
PLA
PLX
STA $E8
STX $EA
LDA [$E8]
PHA
LDA $FF
LDX #$0000
TAY
BPL L0826F6
DEX
L0826F6 STX $EC
ASL
ROL $EC
ASL
ROL $EC
ASL
ROL $EC
LDX $EC
PHX
PHA
LDX $F5
LDA $F3
JSL L010922
PLA
PLX
STA $E8
STX $EA
LDY #$0004
LDA [$E8],Y
PLX
STX $EC
SEC
SBC $EC
PHA
_SetRect
BCS L08272B
LDA #$0000
L08272B STAL L0B0002
PEI $FD
PEI $FB
PEA $0000
TDC
CLC
ADC #$00E0
PHA
LDA $FF
LDX #$0000
TAY
BPL L082745
DEX
L082745 STX $EC
ASL
ROL $EC
ASL
ROL $EC
LDX $EC
PHX
PHA
LDX $F9
LDA $F7
JSL L010922
PLA
PLX
STA $E8
STX $EA
LDY #$0002
LDA [$E8],Y
PHA
LDA $FF
LDX #$0000
TAY
BPL L08276E
DEX
L08276E STX $EC
ASL
ROL $EC
ASL
ROL $EC
LDX $EC
PHX
PHA
LDX $F9
LDA $F7
JSL L010922
PLA
PLX
STA $E8
STX $EA
LDA [$E8]
PHA
PEA $0000
_PPToPort
BCS L08279A
LDA #$0000
L08279A STAL L0B0002
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L0827A6 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$FF3E
TCS
STZ $C4
BRA L0827E0
L0827B5 LDA $C4
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDX #$0000
LDA #$0000
LDY #$0002
PHA
TXA
STA [$F6],Y
PLA
STA [$F6]
INC $C4
L0827E0 LDA $C4
SEC
SBC #$0004
BVS L0827EB
EOR #$8000
L0827EB BPL L0827B5
STZ $C4
BRL L082875
L0827F2 LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0074
LDY #$0002
STA [$F6],Y
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$005A
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$00FC
LDY #$0002
STA [$F6],Y
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$0078
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0184
LDY #$0002
STA [$F6],Y
INC $C4
L082875 LDA $C4
SEC
SBC #$0005
BVS L082880
EOR #$8000
L082880 BMI L082885
BRL L0827F2
L082885 STZ $C4
BRL L0829B5
L08288A LDA $C4
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0015
LDY #$0004
STA [$F6],Y
LDA $C4
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$002C
LDY #$000A
STA [$F6],Y
LDA $C4
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0043
LDY #$0010
STA [$F6],Y
LDA $C4
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$005A
LDY #$0016
STA [$F6],Y
LDA $C4
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0071
LDY #$001C
STA [$F6],Y
STZ $C2
BRA L0829A6
L082965 LDA $C2
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
STA [$F6]
INC $C2
L0829A6 LDA $C2
SEC
SBC #$0005
BVS L0829B1
EOR #$8000
L0829B1 BPL L082965
INC $C4
L0829B5 LDA $C4
SEC
SBC #$0003
BVS L0829C0
EOR #$8000
L0829C0 BMI L0829C5
BRL L08288A
L0829C5 PEA $0000
TDC
CLC
ADC #$00D6
PHA
PEA $0000
PEA $0000
PEA $006C
PEA $0017
_SetRect
BCS L0829E6
LDA #$0000
L0829E6 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00DE
PHA
PEA $008C
PEA $0000
PEA $00F6
PEA $0017
_SetRect
BCS L082A0B
LDA #$0000
L082A0B STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00E6
PHA
PEA $0118
PEA $0000
PEA $01A2
PEA $0012
_SetRect
BCS L082A30
LDA #$0000
L082A30 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $01A4
PEA $0000
PEA $022E
PEA $0012
_SetRect
BCS L082A55
LDA #$0000
L082A55 STAL L0B0002
LDA #L0C0CDC
LDX #^L0C0CDC
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FF40
PHA
PEA $00AA
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PEA $0000
TDC
CLC
ADC #$00C6
PHA
PEA $0074
PEA $0015
PEA $020E
PEA $0088
_SetRect
BCS L082A97
LDA #$0000
L082A97 STAL L0B0002
LDA #$0004
PHA
LDA $CC
SEC
SBC $C8
SEC
JSL L01092D
PLY
PHA
LDA #$0001
PLX
STX $FA
CLC
ADC $FA
LDX #$FF46
STA $00,X
PEA $C000
LDA $CA
SEC
SBC $C6
LDX #$0000
TAY
BPL L082AC8
DEX
L082AC8 PHX
PHA
LDX #$FF46
LDA $00,X
LDX #$0000
SEC
JSL L010AF3
LDX L0B0040
LDA L0B003E
PHX
PHA
JSL L040000
PLY
PLY
PLY
PLY
PLY
PHX
PHA
LDX L0B0040
LDA L0B003E
PHX
PHA
_GetHandleSize
BCS L082AFE
LDA #$0000
L082AFE STAL L0B0002
PLA
PLX
STA $C4
LDX L0B0040
LDA L0B003E
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
TAX
LDA [$F6]
TXY
LDX #$FF42
STY $02,X
STA $00,X
TYX
PEA $0000
TDC
CLC
ADC #$009A
PHA
PEA $0000
PEA $0000
_SetPt
BCS L082B3C
LDA #$0000
L082B3C STAL L0B0002
LDA #L0C0CDC
LDX #^L0C0CDC
TXY
LDX #$FFEA
STY $02,X
STA $00,X
TYX
LDX #$0000
TDC
CLC
ADC #$FF40
TXY
LDX #$FFEE
STY $02,X
STA $00,X
TYX
LDX #$0000
TDC
CLC
ADC #$00C6
TXY
LDX #$FFF2
STY $02,X
STA $00,X
TYX
LDX #$0000
TDC
CLC
ADC #$009A
TXY
LDX #$FFF6
STY $02,X
STA $00,X
TYX
LDA #$0000
LDX #$FFFA
STA $00,X
LDAL L0C0CF6
TAX
LDAL L0C0CF4
TXY
LDX #$FFFC
STY $02,X
STA $00,X
TYX
JSL L03117F
PEA $0000
TDC
CLC
ADC #$FFEA
PHA
_PaintPixels
BCS L082BB5
LDA #$0000
L082BB5 STAL L0B0002
PEA $0002
JSL L021DFD
PLY
LDX #$0000
TDC
CLC
ADC #$FF40
TXY
LDX #$FFEA
STY $02,X
STA $00,X
TYX
LDA #L0C0CDC
LDX #^L0C0CDC
TXY
LDX #$FFEE
STY $02,X
STA $00,X
TYX
PEA ^L0C2988
PEA L0C2988
PEA $0000
TDC
CLC
ADC #$009E
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$009E
PHA
JSL L040E53
PLY
PLY
STA $BC
PEA $0000
TDC
CLC
ADC #$00D6
PHA
PEA $0001
PEA $0004
LDA $BC
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
TAX
LDY #$0002
LDA [$F6],Y
PHX
PHA
JSL L071136
TAY
TSC
CLC
ADC #$000C
TCS
TYA
PHX
PHA
_GetTick
BCS L082C60
LDA #$0000
L082C60 STAL L0B0002
_SetRandSeed
BCS L082C70
LDA #$0000
L082C70 STAL L0B0002
STZ $C4
BRL L08312F
L082C79 PEA $0003
JSL L031FA1
PLY
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
PLA
STA [$F6]
PEA $0005
JSL L031FA1
PLY
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
PLA
LDY #$0002
STA [$F6],Y
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
BEQ L082D64
BRL L082C79
L082D64 LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0001
STA [$F6]
PEA $0000
TDC
CLC
ADC #$009A
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
PHA
_SetPt
BCS L082F3E
LDA #$0000
L082F3E STAL L0B0002
LDA #$0002
PHA
LDA $C4
SEC
JSL L01092D
PLA
TAY
BNE L082F86
PEA $005F
PEA $0000
PEA $0007
JSL L031FA1
PLY
PHA
LDA #$0027
PLX
STX $FA
CLC
ADC $FA
PHA
PEA $0011
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
BRA L082FB9
L082F86 PEA $0057
PEA $0000
PEA $0007
JSL L031FA1
PLY
PHA
LDA #$0027
PLX
STX $FA
CLC
ADC $FA
PHA
PEA $001A
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
L082FB9 PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$009A
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PEA $0063
PEA $0000
PEA $0000
PEA $0001
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
JSL L0612B1
L083007 LDX #$0000
LDA #$0006
PHX
PHA
PHX
PHA
_TickCount
BCS L08301D
LDA #$0000
L08301D STAL L0B0002
PLA
PLX
SEC
SBC L0B0062
PHA
TXA
SBC L0B0064
TAX
PLA
JSL L010B98
BCC L083036
BRA L083007
L083036 LDA $C4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PEI $9C
PEI $9A
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0006
LDA [$F6],Y
PLX
STX $FA
SEC
SBC $FA
PHA
LDA $9C
PLX
STX $FA
CLC
ADC $FA
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
PLX
STX $FA
SEC
SBC $FA
PHA
LDA $9A
PLX
STX $FA
CLC
ADC $FA
PHA
_SetRect
BCS L083129
LDA #$0000
L083129 STAL L0B0002
INC $C4
L08312F LDA $C4
SEC
SBC #$0008
BVS L08313A
EOR #$8000
L08313A BMI L08313F
BRL L082C79
L08313F LDA #$0008
STA $BE
STZ L0B0078
JSL L0612B1
PHX
PHA
_GetTick
BCS L083159
LDA #$0000
L083159 STAL L0B0002
PLA
PLX
STX $98
STA $96
JSL L0311DD
JSL L0311AA
L08316B JSL L06063A
LDAL L0C1A7A
CMP #$0001
BNE L0831A4
LDA #L0C1A7A
LDX #^L0C1A7A
TAY
TSC
SEC
SBC #$0010
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0010
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
JSL L061079
TAY
TSC
CLC
ADC #$0010
TCS
TYA
L0831A4 LDA L0B0078
CMP #$0002
BNE L0831B1
STZ $BE
BRL L083B0F
L0831B1 LDA L0B0078
CMP #$0000
BNE L0831BC
BRL L0834A9
L0831BC LDA L0B0078
EOR #$FFFF
INC
SEC
SBC #$0001
STA $C4
LDA L0B0078
EOR #$FFFF
INC
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L0831EE
LDA #$0000
L0831EE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$009A
PHA
LDA L0B0078
EOR #$FFFF
INC
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA L0B0078
EOR #$FFFF
INC
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
_SetPt
BCS L08324E
LDA #$0000
L08324E STAL L0B0002
LDA L0B0078
EOR #$FFFF
INC
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA $F6
LDX $F8
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00C6
PHA
PEA $0008
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PEA $0000
TDC
CLC
ADC #$00C6
PHA
PEA $FF8C
PEA $FFEB
_OffsetRect
BCS L0832A7
LDA #$0000
L0832A7 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FFEA
PHA
_PaintPixels
BCS L0832C0
LDA #$0000
L0832C0 STAL L0B0002
PEA $0003
JSL L021DFD
PLY
LDA $BE
SEC
SBC #$0000
BNE L0832D7
BRL L083366
L0832D7 BVS L0832DC
EOR #$8000
L0832DC BMI L0832E1
BRL L083366
L0832E1 LDX #$0000
LDA #$0000
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $006E
PEA $0000
PEA $002F
PEA $0023
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
PEA $0000
PEA $0000
PEA $0000
PEA $0005
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
LDX #$0000
LDA #$0002
PHA
TXA
STAL L0C2474
PLA
STAL L0C2472
LDX #$FFFF
LDA #$FFFF
PHA
TXA
STAL L0C2478
PLA
STAL L0C2476
PEA ^L0C2466
PEA L0C2466
JSL L0502A4
PLY
PLY
L083366 LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
STA [$F6]
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
STA [$F6]
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA L0B0078
EOR #$FFFF
INC
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_SetRect
BCS L08349D
LDA #$0000
L08349D STAL L0B0002
DEC $BE
STZ L0B0078
BRL L083B0F
L0834A9 LDX #$0000
LDA #$005A
PHX
PHA
PHX
PHA
_GetTick
BCS L0834BF
LDA #$0000
L0834BF STAL L0B0002
PLA
PLX
SEC
SBC $96
PHA
TXA
SBC $98
TAX
PLA
JSL L010B98
BCC L0834D7
BRL L083B0F
L0834D7 PEA $0008
JSL L031FA1
PLY
STA $C4
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
BEQ L0834D7
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
STA $C2
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
STA $C0
L08355C PEA $0003
JSL L031FA1
PLY
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
PLA
STA [$F6]
PEA $0005
JSL L031FA1
PLY
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
PLA
LDY #$0002
STA [$F6],Y
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
BEQ L083647
BRL L08355C
L083647 LDA $C0
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C2
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
STA [$F6]
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0001
STA [$F6]
PEA $0000
TDC
CLC
ADC #$009A
PHA
LDA $C0
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C2
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA $C0
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C2
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
PHA
_SetPt
BCS L0837A3
LDA #$0000
L0837A3 STAL L0B0002
LDA $C4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA $F6
LDX $F8
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00C6
PHA
PEA $0008
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA $C4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PEA $0000
PEA $0000
PEA $0000
PEA $0000
_SetRect
BCS L083810
LDA #$0000
L083810 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00C6
PHA
PEA $FF8C
PEA $FFEB
_OffsetRect
BCS L08382F
LDA #$0000
L08382F STAL L0B0002
JSL L03117F
PEA $0000
TDC
CLC
ADC #$FFEA
PHA
_PaintPixels
BCS L08384C
LDA #$0000
L08384C STAL L0B0002
PEA $0000
TDC
CLC
ADC #$009A
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA $C4
PHA
LDA #$0006
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$000C
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$001E
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$003C
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
PHA
_SetPt
BCS L083977
LDA #$0000
L083977 STAL L0B0002
PEA $005F
PEA $0000
PEA $0007
JSL L031FA1
PLY
PHA
LDA #$0028
PLX
STX $FA
CLC
ADC $FA
PHA
PEA $0025
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$009A
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PEA $0063
PEA $0000
PEA $0000
PEA $0001
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
JSL L0311DD
JSL L0311AA
LDA $C4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PEI $9C
PEI $9A
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0006
LDA [$F6],Y
PLX
STX $FA
SEC
SBC $FA
PHA
LDA $9C
PLX
STX $FA
CLC
ADC $FA
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
PHA
LDA #$0004
PHA
LDA $C4
SEC
JSL L01092D
PLA
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00D6
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
PLX
STX $FA
SEC
SBC $FA
PHA
LDA $9A
PLX
STX $FA
CLC
ADC $FA
PHA
_SetRect
BCS L083AF3
LDA #$0000
L083AF3 STAL L0B0002
PHX
PHA
_GetTick
BCS L083B05
LDA #$0000
L083B05 STAL L0B0002
PLA
PLX
STX $98
STA $96
L083B0F LDA $BE
SEC
SBC #$0000
BEQ L083B2F
BVS L083B1C
EOR #$8000
L083B1C BPL L083B2F
JSL L0612DE
TAY
BNE L083B2F
JSL L04169A
TAY
BNE L083B2F
BRL L08316B
L083B2F STZ $C0
BRA L083B5E
L083B33 LDA $C0
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDX #$0000
LDA #$0000
LDY #$0002
PHA
TXA
STA [$F6],Y
PLA
STA [$F6]
INC $C0
L083B5E LDA $C0
SEC
SBC #$0005
BEQ L083B33
BVS L083B6B
EOR #$8000
L083B6B BPL L083B33
LDX L0B0040
LDA L0B003E
PHX
PHA
JSL L04023C
PLY
PLY
TSC
CLC
ADC #$01BC
TCS
PLD
RTL
L083B83 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00F0
TCS
STZ $F4
JSL L06063A
LDAL L0C1A7A
CMP #$0003
BNE L083BC5
LDAL L0C1A7C
CMP #$001B
BNE L083BC5
LDAL L0C1A7E
CMP #$0000
BNE L083BC5
LDA L0B0078
CMP #$0002
BEQ L083BBC
LDA #$0000
BRA L083BBF
L083BBC LDA #$0001
L083BBF JSL L04169A
STA $F4
L083BC5 LDA $F4
TAY
TSC
CLC
ADC #$000A
TCS
TYA
PLD
RTL
Reference in New Issue View Git Blame Copy Permalink