Apple-2-SW
/
antoine-source
mirror of https://github.com/antoinevignau/source.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity
antoine-source/yourtour/LTRICKS.S

10331 lines
188 KiB
ArmAsm
Raw Permalink Blame History

*
* Your tour of the Apple IIgs
*
* (c) 1989, Apple Computer
* (s) 2020, Antoine Vignau
*
mx %00
rel
lst off
*-------------------------------
use LTRICKS.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
*-------------------------------
L090000 PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$0044
TCS
STZ $46
BRA L09004F
L09000F LDA $46
LDX #$0000
TAY
BPL L090018
DEX
L090018 PHX
PHA
LDA #L0C030E
LDX #^L0C030E
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDA [$F4]
PHA
LDA $46
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$0050
JSL L010922
PLA
PLX
STA $F4
STX $F6
PLA
SEP #$20
STA [$F4]
REP #$20
INC $46
L09004F LDA $46
SEC
SBC #$00A4
BVS L09005A
EOR #$8000
L09005A BPL L09000F
LDA $FF
BEQ L09009E
PEA $0000
PEA $004E
PEA $0000
TDC
CLC
ADC #$0054
PHA
JSL L025194
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$0048
PHA
PEA $005C
PEA $001C
PEA $0274
PEA $007E
_SetRect
BCS L090098
LDA #$0000
L090098 STAL L0B0002
BRA L0900C3
L09009E PEA $0000
TDC
CLC
ADC #$0048
PHA
PEA $001C
PEA $0022
PEA $0240
PEA $00AD
_SetRect
BCS L0900BF
LDA #$0000
L0900BF STAL L0B0002
L0900C3 JSL L06063A
PHA
PEA ^L0C1A84
PEA L0C1A84
PEA $0000
TDC
CLC
ADC #$0048
PHA
_PtInRect
BCS L0900E3
LDA #$0000
L0900E3 STAL L0B0002
PLA
TAY
BEQ L09012A
LDX #$0000
TDC
CLC
ADC #$0050
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L090103
LDA #$0000
L090103 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L090128
PEA $0000
TDC
CLC
ADC #$0050
PHA
_SetCursor
BCS L090124
LDA #$0000
L090124 STAL L0B0002
L090128 BRA L090150
L09012A LDX L0B00DF
LDA L0B00DD
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L090140
LDA #$0000
L090140 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L090150
JSL L0311DD
L090150 PEA $0001
JSL L060679
PLY
TAY
BNE L09015E
BRL L0900C3
L09015E PEA $0000
JSL L06152C
PLY
STZ L0B00C7
JSL L0612DE
JSL L04169A
JSL L031208
LDA L0B0078
SEC
SBC #$0000
BEQ L09018E
BVS L090183
EOR #$8000
L090183 BPL L09018E
LDA L0B0078
PHA
JSL L0607BE
PLY
L09018E TSC
CLC
ADC #$00B4
TCS
PLD
RTL
L090196 PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$FDA4
TCS
LDAL L0C072F
PHA
JSL L0108F6
PLY
SEC
SBC #$0001
PHA
JSL L0108F6
PLY
STA $D8
PEA $0000
PEA $00F8
PEA $0000
TDC
CLC
ADC #$FF08
PHA
JSL L025194
PLY
PLY
PLY
PLY
PEA $0000
PEA $00B8
PEA $0000
TDC
CLC
ADC #$FE50
PHA
JSL L025194
PLY
PLY
PLY
PLY
LDA #$000B
SEP #$20
LDX #$FE50
STA $00,X
REP #$20
LDA #$0004
SEP #$20
LDX #$FE52
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEAE
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEB6
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEBE
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEC6
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FECE
STA $00,X
REP #$20
PEA $00FF
PEA $0004
PEA $0000
TDC
CLC
ADC #$FED4
PHA
JSL L025194
PLY
PLY
PLY
PLY
LDA #$00F0
SEP #$20
LDX #$FED8
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEDE
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEE6
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEEE
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEF6
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FEFE
STA $00,X
REP #$20
LDA #$0005
SEP #$20
LDX #$FF04
STA $00,X
REP #$20
LDA #$0004
SEP #$20
LDX #$FF06
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FF08
STA $00,X
REP #$20
LDA #$0004
SEP #$20
LDX #$FF0A
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FF86
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FF87
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FF8E
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FF90
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FF95
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FF98
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FF9D
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FF9E
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FF9F
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFA5
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FFA6
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FFA7
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFAD
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFAF
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FFB4
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFB7
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FFBC
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FFBE
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFC4
STA $00,X
REP #$20
LDA #$000F
SEP #$20
LDX #$FFC6
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFCC
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFCE
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FFD4
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFD6
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FFDC
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FFDD
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FFE4
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFE5
STA $00,X
REP #$20
LDA #$00FF
SEP #$20
LDX #$FFEC
STA $00,X
REP #$20
LDA #$00F0
SEP #$20
LDX #$FFF4
STA $00,X
REP #$20
LDA #$000E
SEP #$20
LDX #$FFFC
STA $00,X
REP #$20
JSL L090D3B
PEA $0000
TDC
CLC
ADC #$FDA6
PHA
_OpenPort
BCS L090455
LDA #$0000
L090455 STAL L0B0002
LDA L0B0002
BEQ L0904AF
PEA $56B9
JSL L021DFD
PLY
PEA $0200
PEA $0000
PEA $5000
LDX L0B0040
LDA L0B003E
PHX
PHA
JSL L040000
PLY
PLY
PLY
PLY
PLY
LDX L0B0040
LDA L0B003E
PHX
PHA
JSL L04023C
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FDA6
PHA
_OpenPort
BCS L0904A3
LDA #$0000
L0904A3 STAL L0B0002
PEA $56BA
JSL L021DFD
PLY
L0904AF PEA $0000
TDC
CLC
ADC #$FDA6
PHA
_SetPort
BCS L0904C4
LDA #$0000
L0904C4 STAL L0B0002
PEA $000F
_SetForeColor
BCS L0904D7
LDA #$0000
L0904D7 STAL L0B0002
PEA $000F
_SetSolidPenPat
BCS L0904EA
LDA #$0000
L0904EA STAL L0B0002
PEA $0004
_SetTextMode
BCS L0904FD
LDA #$0000
L0904FD STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00E4
PHA
PEA $002E
PEA $001C
PEA $013A
PEA $007E
_SetRect
BCS L090522
LDA #$0000
L090522 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00E4
PHA
_ClipRect
BCS L09053B
LDA #$0000
L09053B STAL L0B0002
PEA ^L0C27DF
PEA L0C27DF
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
LDA $FF
CMP #$004B
BEQ L09055D
BRL L09062D
L09055D PEA $0000
TDC
CLC
ADC #$FDB6
PHA
_ClipRect
BCS L090572
LDA #$0000
L090572 STAL L0B0002
PEA $0000
_SetPenMode
BCS L090585
LDA #$0000
L090585 STAL L0B0002
PEI $D8
_SetForeColor
BCS L090597
LDA #$0000
L090597 STAL L0B0002
PEI $D8
_SetSolidPenPat
BCS L0905A9
LDA #$0000
L0905A9 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EC
PHA
PEA $0030
PEA $0083
PEA $0048
PEA $0093
_SetRect
BCS L0905CE
LDA #$0000
L0905CE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EC
PHA
_PaintRect
BCS L0905E7
LDA #$0000
L0905E7 STAL L0B0002
PEA $000F
_SetForeColor
BCS L0905FA
LDA #$0000
L0905FA STAL L0B0002
PEA $000F
_SetSolidPenPat
BCS L09060D
LDA #$0000
L09060D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EC
PHA
_FrameRect
BCS L090626
LDA #$0000
L090626 STAL L0B0002
BRL L090CC2
L09062D LDA $FF
CMP #$004F
BEQ L090637
BRL L0906F0
L090637 JSL L0311DD
LDA #$0002
PHA
LDAL L0C0731
SEC
JSL L01092D
PLY
PHA
LDAL L0C0733
PHA
_MoveTo
BCS L09065B
LDA #$0000
L09065B STAL L0B0002
PEA $000F
_SetForeColor
BCS L09066E
LDA #$0000
L09066E STAL L0B0002
PEA $000F
_SetSolidPenPat
BCS L090681
LDA #$0000
L090681 STAL L0B0002
PEA $0000
_SetBackColor
BCS L090694
LDA #$0000
L090694 STAL L0B0002
PEA $0000
_SetSolidBackPat
BCS L0906A7
LDA #$0000
L0906A7 STAL L0B0002
PEA ^L0C27E1
PEA L0C27E1
PEA ^L0C11BB
PEA L0C11BB
JSL L0110F7
PLY
PLY
PLY
PLY
LDA #$0000
STAL L0C1AA2
LDA #$0000
STAL L0C1AA8
LDA #$0014
STAL L0C1A9A
LDA #$0000
STAL L0C1AA6
LDA #$0000
STAL L0C1AB0
JSL L0618EB
LDA #$0001
STAL L0C1AA2
BRL L090CC2
L0906F0 JSL L06063A
LDA #L0C1A84
LDX #^L0C1A84
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00E0
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA #$0001
PHA
LDA $E2
SEC
JSL L010CD9
PLA
STA $E2
PHA
PEA $0000
TDC
CLC
ADC #$00E0
PHA
PEA $0000
TDC
CLC
ADC #$00E4
PHA
_PtInRect
BCS L09073E
LDA #$0000
L09073E STAL L0B0002
PLA
TAY
BNE L090749
BRL L0907CE
L090749 LDA $FF
CMP #$0051
BNE L09078F
LDX #$0000
TDC
CLC
ADC #$FF08
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L090768
LDA #$0000
L090768 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L09078D
PEA $0000
TDC
CLC
ADC #$FF08
PHA
_SetCursor
BCS L090789
LDA #$0000
L090789 STAL L0B0002
L09078D BRA L0907CC
L09078F LDX #$0000
TDC
CLC
ADC #$FE50
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L0907A7
LDA #$0000
L0907A7 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L0907CC
PEA $0000
TDC
CLC
ADC #$FE50
PHA
_SetCursor
BCS L0907C8
LDA #$0000
L0907C8 STAL L0B0002
L0907CC BRA L0907F4
L0907CE LDX L0B00DF
LDA L0B00DD
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L0907E4
LDA #$0000
L0907E4 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L0907F4
JSL L0311DD
L0907F4 PEA $0001
JSL L060679
PLY
TAY
BNE L090802
BRL L0906F0
L090802 JSL L0612DE
TAY
BEQ L09080C
BRL L090CC2
L09080C JSL L04169A
TAY
BEQ L090816
BRL L090CC2
L090816 LDA L0B0078
BEQ L09081E
BRL L090CC2
L09081E LDAL L0C1A7A
CMP #$0001
BEQ L09082A
BRL L090CC2
L09082A PHA
PEA $0000
TDC
CLC
ADC #$00E0
PHA
PEA $0000
TDC
CLC
ADC #$00E4
PHA
_PtInRect
BCS L090849
LDA #$0000
L090849 STAL L0B0002
PLA
TAY
BNE L090854
BRL L090CC2
L090854 PEA ^L0C27E2
PEA L0C27E2
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0002
_SetPenMode
BCS L090877
LDA #$0000
L090877 STAL L0B0002
PEA $000F
_SetForeColor
BCS L09088A
LDA #$0000
L09088A STAL L0B0002
PEA $000F
_SetSolidPenPat
BCS L09089D
LDA #$0000
L09089D STAL L0B0002
LDX #$0000
TDC
CLC
ADC #$00E0
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00DC
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA $FF
SEC
SBC #$0050
BVS L0908CB
EOR #$8000
L0908CB BPL L0908D0
BRL L090AA1
L0908D0 JSL L06063A
LDA #$0001
PHA
LDAL L0C1A86
SEC
JSL L010CD9
PLA
STAL L0C1A86
PHA
PEA ^L0C1A84
PEA L0C1A84
PEA $0000
TDC
CLC
ADC #$00E4
PHA
_PtInRect
BCS L090902
LDA #$0000
L090902 STAL L0B0002
PLA
TAY
BEQ L090949
LDX #$0000
TDC
CLC
ADC #$FE50
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L090922
LDA #$0000
L090922 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L090947
PEA $0000
TDC
CLC
ADC #$FE50
PHA
_SetCursor
BCS L090943
LDA #$0000
L090943 STAL L0B0002
L090947 BRA L09096F
L090949 LDX L0B00DF
LDA L0B00DD
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L09095F
LDA #$0000
L09095F STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L09096F
JSL L0311DD
L09096F LDA $FF
SEC
SBC #$0046
BVS L09097A
EOR #$8000
L09097A BMI L0909DB
PEI $E2
PEI $E0
_MoveTo
BCS L09098C
LDA #$0000
L09098C STAL L0B0002
LDAL L0C1A86
PHA
LDAL L0C1A84
PHA
_LineTo
BCS L0909A6
LDA #$0000
L0909A6 STAL L0B0002
PEI $E2
PEI $E0
_MoveTo
BCS L0909BA
LDA #$0000
L0909BA STAL L0B0002
LDAL L0C1A86
PHA
LDAL L0C1A84
PHA
_LineTo
BCS L0909D4
LDA #$0000
L0909D4 STAL L0B0002
BRL L090A86
L0909DB PEA $0000
TDC
CLC
ADC #$00EC
PHA
LDAL L0C1A86
SEC
SBC $E2
BVS L0909F0
EOR #$8000
L0909F0 BMI L0909F8
LDAL L0C1A86
BRA L0909FA
L0909F8 LDA $E2
L0909FA PHA
LDAL L0C1A84
SEC
SBC $E0
BVS L090A07
EOR #$8000
L090A07 BMI L090A0F
LDAL L0C1A84
BRA L090A11
L090A0F LDA $E0
L090A11 PHA
LDAL L0C1A86
SEC
SBC $E2
BEQ L090A28
BVS L090A20
EOR #$8000
L090A20 BPL L090A28
LDAL L0C1A86
BRA L090A2A
L090A28 LDA $E2
L090A2A PHA
LDAL L0C1A84
SEC
SBC $E0
BEQ L090A41
BVS L090A39
EOR #$8000
L090A39 BPL L090A41
LDAL L0C1A84
BRA L090A43
L090A41 LDA $E0
L090A43 PHA
_SetRect
BCS L090A50
LDA #$0000
L090A50 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EC
PHA
_FrameRect
BCS L090A69
LDA #$0000
L090A69 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EC
PHA
_FrameRect
BCS L090A82
LDA #$0000
L090A82 STAL L0B0002
L090A86 PHA
PEA $0000
_StillDown
BCS L090A96
LDA #$0000
L090A96 STAL L0B0002
PLA
TAY
BEQ L090AA1
BRL L0908D0
L090AA1 PEA $0000
_SetPenMode
BCS L090AB0
LDA #$0000
L090AB0 STAL L0B0002
LDA $FF
BRL L090CB1
L090AB9 PEI $E2
PEI $E0
_MoveTo
BCS L090AC9
LDA #$0000
L090AC9 STAL L0B0002
LDAL L0C1A86
PHA
LDAL L0C1A84
PHA
_LineTo
BCS L090AE3
LDA #$0000
L090AE3 STAL L0B0002
BRL L090CC2
L090AEA PEI $D8
_SetForeColor
BCS L090AF8
LDA #$0000
L090AF8 STAL L0B0002
PEI $D8
_SetSolidPenPat
BCS L090B0A
LDA #$0000
L090B0A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00EC
PHA
_PaintRect
BCS L090B23
LDA #$0000
L090B23 STAL L0B0002
PEA $000F
_SetForeColor
BCS L090B36
LDA #$0000
L090B36 STAL L0B0002
PEA $000F
_SetSolidPenPat
BCS L090B49
LDA #$0000
L090B49 STAL L0B0002
L090B4D PEA $0000
TDC
CLC
ADC #$00EC
PHA
_FrameRect
BCS L090B62
LDA #$0000
L090B62 STAL L0B0002
BRL L090CC2
L090B69 PEI $E2
PEI $E0
_MoveTo
BCS L090B79
LDA #$0000
L090B79 STAL L0B0002
L090B7D JSL L06063A
LDA #$0001
PHA
LDAL L0C1A86
SEC
JSL L010CD9
PLA
STAL L0C1A86
PHA
PEA ^L0C1A84
PEA L0C1A84
PEA $0000
TDC
CLC
ADC #$00E4
PHA
_PtInRect
BCS L090BAF
LDA #$0000
L090BAF STAL L0B0002
PLA
TAY
BEQ L090BF6
LDX #$0000
TDC
CLC
ADC #$FF08
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L090BCF
LDA #$0000
L090BCF STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L090BF4
PEA $0000
TDC
CLC
ADC #$FF08
PHA
_SetCursor
BCS L090BF0
LDA #$0000
L090BF0 STAL L0B0002
L090BF4 BRA L090C1C
L090BF6 LDX L0B00DF
LDA L0B00DD
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L090C0C
LDA #$0000
L090C0C STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L090C1C
JSL L0311DD
L090C1C LDA #L0C1A84
LDX #^L0C1A84
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00E0
PHX
PHA
LDY #$0003
JSL L01122C
BEQ L090C6E
LDAL L0C1A86
PHA
LDAL L0C1A84
PHA
_LineTo
BCS L090C4D
LDA #$0000
L090C4D STAL L0B0002
LDA #L0C1A84
LDX #^L0C1A84
PHX
PHA
PEA $0000
TDC
CLC
ADC #$00E0
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
L090C6E PHA
PEA $0000
_StillDown
BCS L090C7E
LDA #$0000
L090C7E STAL L0B0002
PLA
TAY
BEQ L090C89
BRL L090B7D
L090C89 JSL L0311DD
BRL L090CC2
L090C90 BRL L090CC2
L090C93 DA L090AB9
DA L090AB9
DA L090C90
DA L090C90
DA L090B4D
DA L090B4D
DA L090C90
DA L090C90
DA L090AEA
DA L090AEA
DA L090C90
DA L090C90
DA L090C90
DA L090B69
DA L090C90
L090CB1 SEC
SBC #$0044
CMP #$000E
BCC L090CBD
LDA #$000E
L090CBD ASL
TAX
JMP (L090C93,X)
L090CC2 PEA ^L0C0CDC
PEA L0C0CDC
_SetPort
BCS L090CD4
LDA #$0000
L090CD4 STAL L0B0002
JSL L090D65
LDA L0B0078
SEC
SBC #$0000
BEQ L090CF5
BVS L090CEA
EOR #$8000
L090CEA BPL L090CF5
LDA L0B0078
PHA
JSL L0607BE
PLY
L090CF5 JSL L031208
LDX #$FDC0
LDA $00,X
TAX
PHX
LDX #$FDBE
LDA $00,X
PHA
_DisposeHandle
BCS L090D12
LDA #$0000
L090D12 STAL L0B0002
LDX #$FDC4
LDA $00,X
TAX
PHX
LDX #$FDC2
LDA $00,X
PHA
_DisposeHandle
BCS L090D2F
LDA #$0000
L090D2F STAL L0B0002
TSC
CLC
ADC #$0354
TCS
PLD
RTL
L090D3B PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00F4
TCS
JSL L0620B1
PEA $0008
_SetMasterSCB
BCS L090D59
LDA #$0000
L090D59 STAL L0B0002
TSC
CLC
ADC #$0006
TCS
PLD
RTL
L090D65 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00F4
TCS
JSL L06204F
PEA $0087
_SetMasterSCB
BCS L090D83
LDA #$0000
L090D83 STAL L0B0002
TSC
CLC
ADC #$0006
TCS
PLD
RTL
L090D8F ENT
L0E004A ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00EA
TCS
LDA #$0001
STA L0B00A8
LDA $FF
BRL L091139
L090DA5 LDX #$0000
LDA #$0000
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
LDAL L0C0731
BRL L090F20
L090DBD PEA $006E
PEA $0000
PEA $0032
PEA $0010
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDAL L0C246C
TAX
LDAL L0C246A
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
LDA #$0003
STA $EE
BRL L090F2E
L090DFC PEA $006E
PEA $0000
PEA $0032
PEA $0008
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDAL L0C246C
TAX
LDAL L0C246A
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
LDA #$0003
STA $EE
BRL L090F2E
L090E3B PEA $006E
PEA $0000
PEA $0032
PEA $0010
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
PEA $006E
PEA $0000
PEA $0039
PEA $0010
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
LDAL L0C2470
TAX
LDAL L0C246E
PHA
TXA
STAL L0C2474
PLA
STAL L0C2472
LDA #$0004
STA $EE
BRL L090F2E
L090E9D PEA $006E
PEA $0000
PEA $0039
PEA $0005
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDAL L0C246C
TAX
LDAL L0C246A
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
LDAL L0C246C
TAX
LDAL L0C246A
PHA
TXA
STAL L0C2474
PLA
STAL L0C2472
PEA $006E
PEA $0000
PEA $0032
PEA $0010
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2478
PLA
STAL L0C2476
LDA #$0005
STA $EE
BRL L090F2E
L090F13 BRL L090F2E
L090F16 DA L090DBD
DA L090DFC
DA L090E3B
DA L090E9D
DA L090F13
L090F20 DEC
CMP #$0004
BCC L090F29
LDA #$0004
L090F29 ASL
TAX
JMP (L090F16,X)
L090F2E PEA $0000
PEA $0000
PEA $0000
PEA $000C
PEA $0002
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHX
PHA
LDA $EE
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $F4
STX $F6
PLA
PLX
LDY #$0002
PHA
TXA
STA [$F4],Y
PLA
STA [$F4]
INC $EE
LDA $EE
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDX #$0000
LDA #$0002
LDY #$0002
PHA
TXA
STA [$F4],Y
PLA
STA [$F4]
INC $EE
LDA $EE
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C2466
LDX #^L0C2466
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDX #$FFFF
LDA #$FFFF
LDY #$0002
PHA
TXA
STA [$F4],Y
PLA
STA [$F4]
PEA ^L0C2466
PEA L0C2466
JSL L0502A4
PLY
PLY
BRL L091154
L090FD2 JSL L094449
BRL L091154
L090FD9 JSL L0311DD
JSL L0612B1
PEA ^L0C09F0
PEA L0C09F0
PEA ^L0C11BB
PEA L0C11BB
JSL L0110F7
PLY
PLY
PLY
PLY
PEA ^L0C11BB
PEA L0C11BB
JSL L010D87
PLY
PLY
STAL L0C1A9A
LDA #$0000
STAL L0C1AB0
LDA #$0001
STAL L0C1AAC
STZ L0B0078
PEA $0000
TDC
CLC
ADC #$00F0
PHA
_GetPen
BCS L09102B
LDA #$0000
L09102B STAL L0B0002
L09102F LDAL L0C0733
STAL L0C1AA8
LDAL L0C0731
STAL L0C1AAE
PEA ^L0C11BB
PEA L0C11BB
JSL L010D87
PLY
PLY
STA $EE
PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L091060
LDA #$0000
L091060 STAL L0B0002
PLA
JSL L0618EB
LDAL L0C1AAE
BEQ L09107D
LDA L0B0078
SEC
SBC #$0000
BEQ L09107D
BVS L09107D
EOR #$8000
L09107D PEA ^L0C11BB
PEA L0C11BB
JSL L010D87
PLY
PLY
CMP $EE
BEQ L0910C6
PEA ^L0C11BB
PEA L0C11BB
JSL L010D87
PLY
PLY
PHA
LDA $EE
PLX
STX $F8
SEC
SBC $F8
STA $EC
LDAL L0C0731
SEC
SBC $EC
PHA
PEA $0001
JSL L0251CD
PLY
PLY
LDAL L0C0733
SEC
SBC $EC
PHA
PEA $0002
JSL L0251CD
PLY
PLY
L0910C6 PEI $F2
PEI $F0
_MoveTo
BCS L0910D6
LDA #$0000
L0910D6 STAL L0B0002
LDAL L0C0731
BEQ L091109
PEA ^L0C11BB
PEA L0C11BB
JSL L010D87
PLY
PLY
TAY
BEQ L091109
LDA L0B0078
SEC
SBC #$0000
BEQ L0910FF
BVS L0910FD
EOR #$8000
L0910FD BMI L091109
L0910FF JSL L0612DE
TAY
BNE L091109
BRL L09102F
L091109 LDA #$0000
STAL L0C1AAC
PEA $0001
JSL L06135C
PLY
PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L09112B
LDA #$0000
L09112B STAL L0B0002
PLA
JSL L031208
BRL L091154
L091137 BRA L091154
L091139 CMP #$0002
BNE L091141
BRL L090DA5
L091141 CMP #$001B
BNE L091149
BRL L090FD2
L091149 CMP #$001F
BNE L091151
BRL L090FD9
L091151 JMP L091137
L091154 TSC
CLC
ADC #$000E
TCS
PLD
RTL
L09115C ENT
L0E0058 ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00EE
TCS
LDA #$0001
STA L0B00A8
LDA $FF
BRL L0912D6
L091172 BRL L09131B
L091175 LDX L0B0030
LDA L0B002E
STA $F4
STX $F6
LDY #$0002
LDA [$F4],Y
TAX
LDA [$F4]
PHX
PHA
LDAL L0C0745
PHA
LDAL L0C0743
PHA
LDAL L0C0733
PHA
LDAL L0C0731
PHA
JSL L095311
TAY
TSC
CLC
ADC #$000C
TCS
TYA
BRL L09131B
L0911AC LDA #L0C0EFA
LDX #^L0C0EFA
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
PHA
LDAL L0C0EFA
PHA
JSL L09546C
PLY
PLY
BRL L09131B
L0911CA JSL L095160
PHA
PEA $0001
JSL L0251CD
PLY
PLY
JSL L0951A8
PHA
PEA $0002
JSL L0251CD
PLY
PLY
BRL L09131B
L0911E9 PEA $0000
JSL L090000
PLY
BRL L09131B
L0911F4 PEA ^L0C078C
PEA L0C078C
JSL L040E53
PLY
PLY
STA $F2
SEC
SBC #$0000
BVS L09120B
EOR #$8000
L09120B BPL L091256
LDA $F2
SEC
SBC #$0032
BVS L091218
EOR #$8000
L091218 BMI L091256
LDA $F2
PHA
LDA #$0022
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C1AB2
LDX #^L0C1AB2
JSL L010922
PLA
PLX
STA $F4
STX $F6
LDY #$0004
LDA [$F4],Y
TAX
LDY #$0002
LDA [$F4],Y
PHX
PHA
PEA ^L0C07BF
PEA L0C07BF
JSL L0915E3
PLY
PLY
PLY
PLY
L091256 BRL L09131B
L091259 PEA ^L0C1188
PEA L0C1188
JSL L0246BF
PLY
PLY
STA $F0
LDA #$0001
STA $F2
BRA L091294
L09126E LDA $F2
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L09128E
LDA #$0000
L09128E STAL L0B0002
INC $F2
L091294 LDA $F2
SEC
SBC $F0
BEQ L09126E
BVS L0912A0
EOR #$8000
L0912A0 BPL L09126E
PEA ^L0C27E4
PEA L0C27E4
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
BRL L09131B
L0912B9 JSL L091323
BRL L09131B
L0912C0 PEA $0001
JSL L090000
PLY
BRL L09131B
L0912CB PEI $FF
JSL L090196
PLY
BRA L09131B
BRA L09131B
L0912D6 CMP #$0000
BNE L0912DE
BRL L091172
L0912DE CMP #$0006
BNE L0912E6
BRL L0911AC
L0912E6 CMP #$0007
BNE L0912EE
BRL L0911CA
L0912EE CMP #$0013
BNE L0912F6
BRL L0911E9
L0912F6 CMP #$0016
BNE L0912FE
BRL L0911F4
L0912FE CMP #$0039
BNE L091306
BRL L091259
L091306 CMP #$003A
BEQ L0912B9
CMP #$004E
BEQ L0912C0
CMP #$FFFA
BNE L091318
BRL L091175
L091318 JMP L0912CB
L09131B TSC
CLC
ADC #$000A
TCS
PLD
RTL
L091323 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00E0
TCS
STZ $E4
BRA L091353
L091332 LDA $E4
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00EA
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
STA [$F6]
INC $E4
L091353 LDA $E4
SEC
SBC #$0005
BEQ L091332
BVS L091360
EOR #$8000
L091360 BPL L091332
JSL L0311DD
PEA $0001
JSL L06078F
PLY
LDA L0B0078
CMP #$FFFF
BNE L091379
BRL L0913E9
L091379 PEA ^L0C27E6
PEA L0C27E6
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
LDA L0B0078
SEC
SBC #$0000
BEQ L0913E6
BVS L09139B
EOR #$8000
L09139B BPL L0913E6
PEA $0001
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
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
JSL L0613E4
PLY
PLY
PLY
PLY
PLY
L0913E6 BRL L0915D7
L0913E9 LDA #$0001
STA $E8
PEA ^L0C0EFA
PEA L0C0EFA
_InvertRect
BCS L091400
LDA #$0000
L091400 STAL L0B0002
LDA #$0001
STA $EC
L091409 JSL L06063A
STZ $E6
LDA #$0001
STA $E4
BRA L091446
L091416 LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
SEC
SBCL L0C1A84
BEQ L091440
BVS L09143E
EOR #$8000
L09143E BMI L091444
L091440 LDA $E4
STA $E6
L091444 INC $E4
L091446 LDA $E4
SEC
SBC #$0005
BEQ L091416
BVS L091453
EOR #$8000
L091453 BPL L091416
LDA $E6
CMP $E8
BNE L09145E
BRL L0915AD
L09145E PHA
PEA $0000
_StillDown
BCS L09146E
LDA #$0000
L09146E STAL L0B0002
PLA
TAY
BNE L091479
BRL L0915AD
L091479 LDA $E6
SEC
SBC $E8
BVS L091483
EOR #$8000
L091483 BPL L091488
BRL L091506
L091488 LDA $E6
CLC
ADC #$0001
STA $E4
BRA L0914F5
L091492 LDA $E4
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00EA
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
BEQ L0914F3
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L0914D0
LDA #$0000
L0914D0 STAL L0B0002
LDA $E4
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00EA
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0000
STA [$F6]
L0914F3 INC $E4
L0914F5 LDA $E4
SEC
SBC $E8
BEQ L091492
BVS L091501
EOR #$8000
L091501 BPL L091492
BRL L0915A9
L091506 LDA $E6
SEC
SBC $E8
BNE L091510
BRL L0915A9
L091510 BVS L091515
EOR #$8000
L091515 BMI L09151A
BRL L0915A9
L09151A LDA #$0001
STA $E2
LDA $E8
SEC
SBC #$0001
BEQ L091532
BVS L09152C
EOR #$8000
L09152C BPL L091532
LDA $E8
STA $E2
L091532 LDA $E2
STA $E4
BRA L09159B
L091538 LDA $E4
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00EA
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
BNE L091599
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA #L0C0EF2
LDX #^L0C0EF2
JSL L010922
_InvertRect
BCS L091576
LDA #$0000
L091576 STAL L0B0002
LDA $E4
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$00EA
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA #$0001
STA [$F6]
L091599 INC $E4
L09159B LDA $E4
SEC
SBC $E6
BEQ L091538
BVS L0915A7
EOR #$8000
L0915A7 BPL L091538
L0915A9 LDA $E6
STA $E8
L0915AD PHA
PEA $0000
_StillDown
BCS L0915BD
LDA #$0000
L0915BD STAL L0B0002
PLA
TAY
BEQ L0915C8
BRL L091409
L0915C8 PEA ^L0C1188
PEA L0C1188
PEI $E8
JSL L02441B
PLY
PLY
PLY
L0915D7 JSL L031208
TSC
CLC
ADC #$001A
TCS
PLD
RTL
L0915E3 PHD
TSC
SEC
SBC #$00F3
TCD
ADC #$006A
TCS
LDA #$00C8
STA $E4
STZ $E2
LDA #$0001
STA $DC
STZ $EA
LDA #$FFFF
STA $EC
STZ $E8
STZ $D8
STZ $DA
STZ $DE
STZ $E0
PEA ^L0C27E8
PEA L0C27E8
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
PEA $0000
PEA $0078
LDX L0B0030
LDA L0B002E
PHX
PHA
JSL L040000
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00E8
PHA
PEI $FB
PEI $F9
JSL L024E3C
PLY
PLY
PLY
PLY
PEA ^L0C27E9
PEA L0C27E9
PEA ^L0C10BE
PEA L0C10BE
JSL L010DD9
PLY
PLY
PLY
PLY
TAY
BNE L09166D
STZ $E0
BRL L0916C1
L09166D PEA ^L0C27ED
PEA L0C27ED
PEA ^L0C10BE
PEA L0C10BE
JSL L010DD9
PLY
PLY
PLY
PLY
TAY
BNE L09168B
LDA #$0001
STA $E0
BRA L0916C1
L09168B PEA ^L0C27F2
PEA L0C27F2
PEA ^L0C10BE
PEA L0C10BE
JSL L010DD9
PLY
PLY
PLY
PLY
TAY
BNE L0916C1
LDA #$0002
STA $E0
PEA $0000
TDC
CLC
ADC #$00E8
PHA
PEI $FB
PEI $F9
JSL L024DE0
PLY
PLY
PLY
PLY
LDA L0B0082
STA $DE
L0916C1 PHX
PHA
PEI $FF
PEI $FD
_GetHandleSize
BCS L0916D3
LDA #$0000
L0916D3 STAL L0B0002
PLA
PLX
STX $D6
STA $D4
PEA $0000
TDC
CLC
ADC #$00E8
PHA
PEI $FB
PEI $F9
PEA $0000
TDC
CLC
ADC #$00DE
PHA
PEA $0000
TDC
CLC
ADC #$00EC
PHA
PEI $E0
JSL L0919E1
TAY
TSC
CLC
ADC #$0012
TCS
TYA
L09170A LDA $EC
SEC
SBC #$0000
BVS L091715
EOR #$8000
L091715 BMI L09171A
BRL L0919D9
L09171A LDA $EC
SEC
SBC $EA
BVS L091724
EOR #$8000
L091724 BPL L091743
SEC
LDA $D8
SBC $D4
BNE L091733
LDA $DA
SBC $D6
BRA L091739
L091733 LDA $DA
SBC $D6
REP #$02
L091739 BVS L09173E
EOR #$8000
L09173E BPL L091743
BRL L0919D9
L091743 LDA $EC
SEC
SBC $EA
BVS L09174D
EOR #$8000
L09174D BMI L091755
STZ $D8
STZ $DA
STZ $EA
L091755 LDA $EA
SEC
SBC $EC
BVS L09175F
EOR #$8000
L09175F BMI L09179F
SEC
LDA $D8
SBC $D4
BNE L09176E
LDA $DA
SBC $D6
BRA L091774
L09176E LDA $DA
SBC $D6
REP #$02
L091774 BVS L091779
EOR #$8000
L091779 BMI L09179F
PEA $0000
TDC
CLC
ADC #$00D8
PHA
PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$00EA
PHA
JSL L091A7A
TAY
TSC
CLC
ADC #$000C
TCS
TYA
BRA L091755
L09179F LDA $EA
CMP $EC
BEQ L0917A8
BRL L0919A9
L0917A8 LDX $DA
LDA $D8
CLC
ADC #$0002
PHA
TXA
ADC #$0000
TAX
PLA
STX $DA
STA $D8
PEA ^L0C1A84
PEA L0C1A84
_GetPen
BCS L0917CD
LDA #$0000
L0917CD STAL L0B0002
JSL L0951A8
STA $E2
L0917D7 PEA $0000
TDC
CLC
ADC #$00D8
PHA
PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$00EA
PHA
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L091BE6
TAY
TSC
CLC
ADC #$0010
TCS
TYA
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L091E64
PLY
PLY
PEA ^L0C27F9
PEA L0C27F9
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L010DD9
PLY
PLY
PLY
PLY
TAY
BEQ L09182E
BRL L091898
L09182E PEA ^L0C10BA
PEA L0C10BA
_GetPen
BCS L091840
LDA #$0000
L091840 STAL L0B0002
LDX L0B0030
LDA L0B002E
STA $EE
STX $F0
LDY #$0002
LDA [$EE],Y
TAX
LDA [$EE]
STX $6E
STA $6C
LDA #L0C10BA
LDX #^L0C10BA
PHX
PHA
LDX #$0000
LDA #$0002
PHX
PHA
LDA $E2
LDX #$0000
TAY
BPL L091873
DEX
L091873 SEC
JSL L010CB2
LDX $6E
LDA $6C
JSL L010922
PLA
PLX
STA $EE
STX $F0
PEI $F0
PEI $EE
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
INC $E2
L091898 LDA #$0000
STAL L0C10BC
LDA #$0000
STAL L0C10BA
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L0601C6
PLY
PLY
LDAL L0C10BC
BNE L0918C1
LDAL L0C10BA
BEQ L09191B
L0918C1 LDX L0B0030
LDA L0B002E
STA $EE
STX $F0
LDY #$0002
LDA [$EE],Y
TAX
LDA [$EE]
STX $6E
STA $6C
LDA #L0C10BA
LDX #^L0C10BA
PHX
PHA
LDX #$0000
LDA #$0002
PHX
PHA
LDA $E2
LDX #$0000
TAY
BPL L0918F0
DEX
L0918F0 SEC
JSL L010CB2
LDX $6E
LDA $6C
JSL L010922
PLA
PLX
STA $EE
STX $F0
PEI $F0
PEI $EE
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDAL L0C10BA
STA $E4
INC $E2
L09191B SEC
LDA $D8
SBC $D4
BNE L091928
LDA $DA
SBC $D6
BRA L09192E
L091928 LDA $DA
SBC $D6
REP #$02
L09192E BVS L091933
EOR #$8000
L091933 BMI L09193E
LDA $EA
CMP $EC
BNE L09193E
BRL L0917D7
L09193E LDA #L0C0D1C
LDX #^L0C0D1C
PHX
PHA
LDA #L0C10BA
LDX #^L0C10BA
PHX
PHA
LDY #$0003
JSL L01122C
BEQ L0919A9
LDX L0B0030
LDA L0B002E
STA $EE
STX $F0
LDY #$0002
LDA [$EE],Y
TAX
LDA [$EE]
STX $6E
STA $6C
LDA #L0C0D1C
LDX #^L0C0D1C
PHX
PHA
LDX #$0000
LDA #$0002
PHX
PHA
LDA $E2
LDX #$0000
TAY
BPL L091986
DEX
L091986 SEC
JSL L010CB2
LDX $6E
LDA $6C
JSL L010922
PLA
PLX
STA $EE
STX $F0
PEI $F0
PEI $EE
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
L0919A9 PEA $0000
TDC
CLC
ADC #$00E8
PHA
PEI $FB
PEI $F9
PEA $0000
TDC
CLC
ADC #$00DE
PHA
PEA $0000
TDC
CLC
ADC #$00EC
PHA
PEI $E0
JSL L0919E1
TAY
TSC
CLC
ADC #$0012
TCS
TYA
BRL L09170A
L0919D9 TSC
CLC
ADC #$0088
TCS
PLD
RTL
L0919E1 PHD
TSC
SEC
SBC #$00E9
TCD
ADC #$00E0
TCS
LDA $EF
CMP #$0000
BNE L0919FB
LDA [$F1]
INC
STA [$F1]
BRL L091A72
L0919FB LDA $EF
CMP #$0001
BNE L091A2F
PEI $FF
PEI $FD
PEI $FB
PEI $F9
JSL L024DE0
PLY
PLY
PLY
PLY
PEA ^L0C10BE
PEA L0C10BE
JSL L010D87
PLY
PLY
TAY
BNE L091A28
LDA #$FFFF
STA [$F1]
BRA L091A2D
L091A28 LDA L0B0082
STA [$F1]
L091A2D BRA L091A72
L091A2F LDA $EF
CMP #$0002
BNE L091A72
LDA [$F1]
INC
STA [$F1]
L091A3B LDA [$F1]
PHA
LDA [$F5]
PLX
STX $E4
CMP $E4
BNE L091A72
PEI $FF
PEI $FD
PEI $FB
PEI $F9
JSL L024DE0
PLY
PLY
PLY
PLY
PEA ^L0C10BE
PEA L0C10BE
JSL L010D87
PLY
PLY
TAY
BEQ L091A6B
LDA L0B0082
STA [$F5]
L091A6B LDA [$F1]
INC
STA [$F1]
BRA L091A3B
L091A72 TSC
CLC
ADC #$0008
TCS
PLD
RTL
L091A7A PHD
TSC
SEC
SBC #$00EF
TCD
ADC #$00E0
TCS
PHX
PHA
PEI $FB
PEI $F9
_GetHandleSize
BCS L091A97
LDA #$0000
L091A97 STAL L0B0002
PLA
PLX
STX $E8
STA $E6
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0002
PHA
TXA
ADC #$0000
TAX
PLA
LDY #$0002
PHA
TXA
STA [$FD],Y
PLA
STA [$FD]
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
LDX #$0000
TAY
BPL L091ACD
DEX
L091ACD PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
SEP #$20
STA $E3
REP #$20
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
PHA
TXA
ADC #$0000
TAX
PLA
LDX #$0000
TAY
BPL L091B03
DEX
L091B03 PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
SEP #$20
STA $E2
REP #$20
L091B1F LDX $E8
LDA $E6
PHX
PHA
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
JSL L010B98
BNE L091B36
BRL L091BD9
L091B36 BVS L091B3B
EOR #$8000
L091B3B BMI L091B40
BRL L091BD9
L091B40 LDA $E3
AND #$00FF
CMP #$0025
BNE L091B57
LDA $E2
AND #$00FF
CMP #$0025
BNE L091B57
BRL L091BD9
L091B57 LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
STA [$FD]
PHA
LDY #$0002
LDA [$FD],Y
BCC L091B6E
INC
L091B6E TAX
LDY #$0002
STA [$FD],Y
PLA
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
LDX #$0000
TAY
BPL L091B84
DEX
L091B84 PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
SEP #$20
STA $E3
REP #$20
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
PHA
TXA
ADC #$0000
TAX
PLA
LDX #$0000
TAY
BPL L091BBA
DEX
L091BBA PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $EA
STX $EC
LDA [$EA]
SEP #$20
STA $E2
REP #$20
BRL L091B1F
L091BD9 LDA [$F5]
INC
STA [$F5]
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L091BE6 PHD
TSC
SEC
SBC #$00EB
TCD
ADC #$00D8
TCS
LDX $F3
LDA $F1
STX $DC
STA $DA
PHX
PHA
PEI $FB
PEI $F9
_GetHandleSize
BCS L091C0B
LDA #$0000
L091C0B STAL L0B0002
PLA
PLX
STX $E2
STA $E0
LDA #$0001
STA $E4
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
LDX #$0000
TAY
BPL L091C29
DEX
L091C29 PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
SEP #$20
STA $DF
REP #$20
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
PHA
TXA
ADC #$0000
TAX
PLA
LDX #$0000
TAY
BPL L091C5F
DEX
L091C5F PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
SEP #$20
STA $DE
REP #$20
L091C7B LDA $E4
BNE L091C82
BRL L091E53
L091C82 LDX $E2
LDA $E0
PHX
PHA
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
JSL L010B98
BEQ L091C9D
BVS L091C9B
EOR #$8000
L091C9B BMI L091CA2
L091C9D STZ $E4
BRL L091DEF
L091CA2 LDA $DF
AND #$00FF
CMP #$0025
BNE L091CC0
LDA $DE
AND #$00FF
CMP #$0025
BNE L091CC0
STZ $E4
LDA [$F5]
INC
STA [$F5]
BRL L091DEF
L091CC0 LDA $DF
AND #$00FF
CMP #$000D
BEQ L091CD7
LDA $DF
AND #$00FF
CMP #$000A
BEQ L091CD7
BRL L091D99
L091CD7 STZ $E4
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
STA [$FD]
PHA
LDY #$0002
LDA [$FD],Y
BCC L091CF0
INC
L091CF0 TAX
LDY #$0002
STA [$FD],Y
PLA
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
LDX #$0000
TAY
BPL L091D06
DEX
L091D06 PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
SEP #$20
STA $DF
REP #$20
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
PHA
TXA
ADC #$0000
TAX
PLA
LDX #$0000
TAY
BPL L091D3C
DEX
L091D3C PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
SEP #$20
STA $DE
REP #$20
LDX $E2
LDA $E0
SEC
SBC #$0002
PHA
TXA
SBC #$0000
TAX
PLA
PHX
PHA
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
JSL L010B98
BEQ L091D97
BVS L091D7C
EOR #$8000
L091D7C BPL L091D97
LDA $DF
AND #$00FF
CMP #$0025
BNE L091D97
LDA $DE
AND #$00FF
CMP #$0025
BNE L091D97
LDA [$F5]
INC
STA [$F5]
L091D97 BRA L091DEF
L091D99 LDA $DF
AND #$00FF
SEC
SBC #$0020
BVS L091DA7
EOR #$8000
L091DA7 BPL L091DD1
LDA $DF
AND #$00FF
SEC
SBC #$007E
BEQ L091DBB
BVS L091DB9
EOR #$8000
L091DB9 BMI L091DD1
L091DBB LDX $F3
LDA $F1
INC $F1
BNE L091DC5
INC $F3
L091DC5 STA $E6
STX $E8
LDA $DF
SEP #$20
STA [$E6]
REP #$20
L091DD1 LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
STA [$FD]
PHA
LDY #$0002
LDA [$FD],Y
BCC L091DE8
INC
L091DE8 TAX
LDY #$0002
STA [$FD],Y
PLA
L091DEF LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
LDX #$0000
TAY
BPL L091DFE
DEX
L091DFE PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
SEP #$20
STA $DF
REP #$20
LDY #$0002
LDA [$FD],Y
TAX
LDA [$FD]
CLC
ADC #$0001
PHA
TXA
ADC #$0000
TAX
PLA
LDX #$0000
TAY
BPL L091E34
DEX
L091E34 PHX
PHA
LDY #$0002
LDA [$F9],Y
TAX
LDA [$F9]
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
SEP #$20
STA $DE
REP #$20
BRL L091C7B
L091E53 LDA #$0000
SEP #$20
STA [$F1]
REP #$20
TSC
CLC
ADC #$0012
TCS
PLD
RTL
L091E64 PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00EF
TCS
PEI $FF
PEI $FD
JSL L024E6B
PLY
PLY
PEI $FF
PEI $FD
JSL L0244F2
PLY
PLY
TSC
CLC
ADC #$0007
TCS
PLD
RTL
L091E8B ENT
L0E0066 ENT
PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00A1
TCS
LDA #$0001
STA L0B00A8
LDA $FF
BRL L092002
L091EA1 PEA ^L0C27FA
PEA L0C27FA
PEA $0000
TDC
CLC
ADC #$00C1
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00C1
PHA
JSL L040E53
PLY
PLY
STA $A3
LDA $A3
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
STX $BF
STA $BD
PEA $0000
TDC
CLC
ADC #$00AD
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L091F1A
LDA #$0000
L091F1A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00B5
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L091F3F
LDA #$0000
L091F3F STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00AD
PHA
PEA $0001
PEA $0002
PEI $BF
PEI $BD
JSL L071136
TAY
TSC
CLC
ADC #$000C
TCS
TYA
BRL L092010
L091F65 LDX #$0000
LDA #$0000
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $0000
TDC
CLC
ADC #$00AD
PHA
PEA $0150
PEA $0002
PEA $01A2
PEA $0024
_SetRect
BCS L091F97
LDA #$0000
L091F97 STAL L0B0002
LDX #$0000
TDC
CLC
ADC #$00A5
STA $F4
STX $F6
LDAL L0C0731
LDY #$0002
STA [$F4],Y
LDAL L0C0733
STA $A5
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$00A5
PHA
PEA $0000
TDC
CLC
ADC #$00AD
PHA
PEA $0063
PEA $0000
PEA $0000
PEA $0001
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L092010
L091FEC JSL L092018
BRL L092010
L091FF3 BRL L092010
L091FF6 DA L091EA1
DA L091FF3
DA L091FF3
DA L091F65
DA L091FEC
DA L091FF3
L092002 DEC
CMP #$0005
BCC L09200B
LDA #$0005
L09200B ASL
TAX
JMP (L091FF6,X)
L092010 TSC
CLC
ADC #$0057
TCS
PLD
RTL
L092018 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$FD27
TCS
PEA $0000
TDC
CLC
ADC #$FEE0
PHA
JSL L09361D
PLY
PLY
STZ $E4
BRA L092061
L092036 LDA $E4
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 $E4
L092061 LDA $E4
SEC
SBC #$0020
BVS L09206C
EOR #$8000
L09206C BPL L092036
LDA #$0002
STA $EE
LDA #$0001
STA $EC
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L092099
LDA #$0000
L092099 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L0920BE
LDA #$0000
L0920BE STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FD48
PHA
LDAL L0C0731
PHA
LDAL L0C0733
PHA
_SetPt
BCS L0920E1
LDA #$0000
L0920E1 STAL L0B0002
LDAL L0C0735
STA $F0
PEA ^L0C2805
PEA L0C2805
PEA $0000
TDC
CLC
ADC #$FD2A
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$FD2A
PHA
JSL L040E53
PLY
PLY
STA $E6
LDA $E6
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
TXY
LDX #$FEDC
STY $02,X
STA $00,X
TYX
STZ $E4
L09214A LDA $E4
LDX #$0000
PHX
PHA
LDA #L0C0759
LDX #^L0C0759
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
AND #$00FF
CMP #$0000
BNE L09216E
BRL L092971
L09216E PEA $0000
TDC
CLC
ADC #$FDCC
PHA
LDX #$FD4A
LDA $00,X
SEC
SBC #$0018
PHA
LDX #$FD48
LDA $00,X
SEC
SBC #$0008
PHA
LDX #$FD4A
LDA $00,X
CLC
ADC #$0052
SEC
SBC #$0018
PHA
LDX #$FD48
LDA $00,X
CLC
ADC #$0022
SEC
SBC #$0008
PHA
_SetRect
BCS L0921B3
LDA #$0000
L0921B3 STAL L0B0002
PEA $0000
PEA $0000
TDC
CLC
ADC #$FDCC
PHA
PEA $0001
PEA $0005
LDX #$FD48
LDA $00,X
PHA
LDX #$FD4A
LDA $00,X
PHA
LDX #$FEDE
LDA $00,X
TAX
PHX
LDX #$FEDC
LDA $00,X
PHA
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
LDA $E4
LDX #$0000
PHX
PHA
LDA #L0C0759
LDX #^L0C0759
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
AND #$00FF
BRL L092939
L09220D LDX #$0000
TDC
CLC
ADC #$FD48
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDX #$0000
TDC
CLC
ADC #$FD4C
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FD50
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PEA $0064
PEA $0000
PEA $001E
PEA $0008
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $0064
PEA $0000
PEA $0021
PEA $0021
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDA $F0
BRL L09250E
L092296 PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $00A8
PEA $0002
PEA $00FA
PEA $0024
_SetRect
BCS L0922B7
LDA #$0000
L0922B7 STAL L0B0002
LDAL L0C073D
BEQ L0922E8
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $00FC
PEA $0071
PEA $014E
PEA $0093
_SetRect
BCS L0922E2
LDA #$0000
L0922E2 STAL L0B0002
BRA L09230D
L0922E8 PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L092309
LDA #$0000
L092309 STAL L0B0002
L09230D PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
LDA #$0003
STA $F0
BRL L09251B
L092348 PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $01A4
PEA $004C
PEA $01F6
PEA $006E
_SetRect
BCS L092369
LDA #$0000
L092369 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0150
PEA $0002
PEA $01A2
PEA $0024
_SetRect
BCS L09238E
LDA #$0000
L09238E STAL L0B0002
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
STZ $F0
BRL L09251B
L0923CA PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0150
PEA $0027
PEA $01A2
PEA $0049
_SetRect
BCS L0923EB
LDA #$0000
L0923EB STAL L0B0002
LDAL L0C073D
BEQ L09241C
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0000
PEA $0071
PEA $0052
PEA $0093
_SetRect
BCS L092416
LDA #$0000
L092416 STAL L0B0002
BRA L092441
L09241C PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $01A4
PEA $0002
PEA $01F6
PEA $0024
_SetRect
BCS L09243D
LDA #$0000
L09243D STAL L0B0002
L092441 PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
LDA #$0001
STA $F0
BRL L09251B
L09247C PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0150
PEA $004C
PEA $01A2
PEA $006E
_SetRect
BCS L09249D
LDA #$0000
L09249D STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0054
PEA $0002
PEA $00A6
PEA $0024
_SetRect
BCS L0924C2
LDA #$0000
L0924C2 STAL L0B0002
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
LDA #$0002
STA $F0
BRL L09251B
L092501 BRL L09251B
L092504 DA L092296
DA L092348
DA L0923CA
DA L09247C
DA L092501
L09250E CMP #$0004
BCC L092516
LDA #$0004
L092516 ASL
TAX
JMP (L092504,X)
L09251B BRL L09296C
L09251E LDX #$0000
TDC
CLC
ADC #$FD48
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDX #$0000
TDC
CLC
ADC #$FD4C
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FD50
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PEA $0064
PEA $0000
PEA $001E
PEA $0008
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $0064
PEA $0000
PEA $0021
PEA $0021
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDA $F0
BRL L09281F
L0925A7 PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $01A4
PEA $004C
PEA $01F6
PEA $006E
_SetRect
BCS L0925C8
LDA #$0000
L0925C8 STAL L0B0002
LDAL L0C073D
BEQ L0925F9
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0000
PEA $0071
PEA $0052
PEA $0093
_SetRect
BCS L0925F3
LDA #$0000
L0925F3 STAL L0B0002
BRA L09261E
L0925F9 PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $01A4
PEA $0002
PEA $01F6
PEA $0024
_SetRect
BCS L09261A
LDA #$0000
L09261A STAL L0B0002
L09261E PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
LDA #$0001
STA $F0
BRL L09282C
L092659 PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0150
PEA $0027
PEA $01A2
PEA $0049
_SetRect
BCS L09267A
LDA #$0000
L09267A STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0054
PEA $0002
PEA $00A6
PEA $0024
_SetRect
BCS L09269F
LDA #$0000
L09269F STAL L0B0002
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
LDA #$0002
STA $F0
BRL L09282C
L0926DE PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0150
PEA $004C
PEA $01A2
PEA $006E
_SetRect
BCS L0926FF
LDA #$0000
L0926FF STAL L0B0002
LDAL L0C073D
BEQ L092730
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $00FC
PEA $0071
PEA $014E
PEA $0093
_SetRect
BCS L09272A
LDA #$0000
L09272A STAL L0B0002
BRA L092755
L092730 PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L092751
LDA #$0000
L092751 STAL L0B0002
L092755 PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
LDA #$0003
STA $F0
BRL L09282C
L092790 PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $00A8
PEA $0002
PEA $00FA
PEA $0024
_SetRect
BCS L0927B1
LDA #$0000
L0927B1 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$FDE4
PHA
PEA $0150
PEA $0002
PEA $01A2
PEA $0024
_SetRect
BCS L0927D6
LDA #$0000
L0927D6 STAL L0B0002
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0002
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
STZ $F0
BRL L09282C
L092812 BRL L09282C
L092815 DA L0925A7
DA L092659
DA L0926DE
DA L092790
DA L092812
L09281F CMP #$0004
BCC L092827
LDA #$0004
L092827 ASL
TAX
JMP (L092815,X)
L09282C BRL L09296C
L09282F LDX #$0000
TDC
CLC
ADC #$FD48
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDX #$0000
TDC
CLC
ADC #$FD4C
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FD50
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PEA $0056
PEA $0000
PEA $0026
PEA $000A
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0150
PEA $0071
PEA $01AA
PEA $0093
_SetRect
BCS L0928B1
LDA #$0000
L0928B1 STAL L0B0002
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD4C
PHA
PEA $0000
TDC
CLC
ADC #$FDDC
PHA
PEA $0063
PEA $0000
PEA $0002
PEA $0001
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L09296C
L0928EB LDA $E4
LDX #$0000
PHX
PHA
LDA #L0C0759
LDX #^L0C0759
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
AND #$00FF
SEC
SBC #$0030
STA $E2
PEA ^L0C2466
PEA L0C2466
PEA $0000
TDC
CLC
ADC #$FD48
PHA
PEI $E2
PEA $0000
TDC
CLC
ADC #$FEE0
PHA
PEI $F0
JSL L0929A2
TAY
TSC
CLC
ADC #$0010
TCS
TYA
BRA L09296C
BRA L09296C
L092939 CMP #$004C
BNE L092941
BRL L09220D
L092941 CMP #$0052
BNE L092949
BRL L09251E
L092949 CMP #$0058
BNE L092951
BRL L09282F
L092951 CMP #$006C
BNE L092959
BRL L09220D
L092959 CMP #$0072
BNE L092961
BRL L09251E
L092961 CMP #$0078
BNE L092969
BRL L09282F
L092969 JMP L0928EB
L09296C INC $E4
BRL L09214A
L092971 LDX #$FD4A
LDA $00,X
PHA
PEA $0001
JSL L0251CD
PLY
PLY
LDX #$FD48
LDA $00,X
PHA
PEA $0002
JSL L0251CD
PLY
PLY
PEI $F0
PEA $0003
JSL L0251CD
PLY
PLY
TSC
CLC
ADC #$03D3
TCS
PLD
RTL
L0929A2 PHD
TSC
SEC
SBC #$00EB
TCD
ADC #$FE76
TCS
LDA #$0040
PHA
LDY #$0002
LDA [$F9],Y
SEC
SBC #$0018
SEC
SBC #$0110
PHA
LDA [$F9]
SEC
SBC #$0008
SEC
SBC #$0035
CLC
ADC #$0022
PHA
LDA #$0008
SEC
JSL L010AAE
PLA
PLX
STX $EA
CLC
ADC $EA
SEC
JSL L01092D
PLY
STA $E2
LDA #$0040
PHA
LDY #$0002
LDA [$F9],Y
SEC
SBC #$0018
SEC
SBC #$0110
PHA
LDA [$F9]
SEC
SBC #$0008
SEC
SBC #$0035
CLC
ADC #$0022
PHA
LDA #$0008
SEC
JSL L010AAE
PLA
PLX
STX $EA
SEC
SBC $EA
SEC
JSL L01092D
PLY
STA $E0
LDA $F7
STA $DC
LDA $F7
STA $DE
LDA #$006C
SEP #$20
STA $DB
REP #$20
L092A2E LDA $F1
CMP #$0000
BNE L092A39
INC $E2
BRA L092A58
L092A39 LDA $F1
CMP #$0001
BNE L092A44
INC $E0
BRA L092A58
L092A44 LDA $F1
CMP #$0002
BNE L092A4F
DEC $E2
BRA L092A58
L092A4F LDA $F1
CMP #$0003
BNE L092A58
DEC $E0
L092A58 LDA $E0
LDX #$0000
TAY
BPL L092A61
DEX
L092A61 STX $EA
ASL
ROL $EA
LDX $EA
PHX
PHA
LDA $E2
LDX #$0000
TAY
BPL L092A73
DEX
L092A73 PEA $0000
PEA $0018
CLC
JSL L010AF3
LDX $F5
LDA $F3
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
BEQ L092AD0
LDA $E2
SEC
SBC #$0000
BVS L092AA1
EOR #$8000
L092AA1 BPL L092AD0
LDA $E2
SEC
SBC #$000B
BEQ L092AB2
BVS L092AB0
EOR #$8000
L092AB0 BMI L092AD0
L092AB2 LDA $E0
SEC
SBC #$0000
BVS L092ABD
EOR #$8000
L092ABD BPL L092AD0
LDA $E0
SEC
SBC #$000A
BEQ L092ACE
BVS L092ACC
EOR #$8000
L092ACC BMI L092AD0
L092ACE DEC $DE
L092AD0 LDA $E0
LDX #$0000
TAY
BPL L092AD9
DEX
L092AD9 STX $EA
ASL
ROL $EA
LDX $EA
PHX
PHA
LDA $E2
LDX #$0000
TAY
BPL L092AEB
DEX
L092AEB PEA $0000
PEA $0018
CLC
JSL L010AF3
LDX $F5
LDA $F3
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDA [$E6]
BEQ L092B58
LDA $E2
SEC
SBC #$0000
BVS L092B19
EOR #$8000
L092B19 BPL L092B58
LDA $E2
SEC
SBC #$000B
BEQ L092B2A
BVS L092B28
EOR #$8000
L092B28 BMI L092B58
L092B2A LDA $E0
SEC
SBC #$0000
BVS L092B35
EOR #$8000
L092B35 BPL L092B58
LDA $E0
SEC
SBC #$000A
BEQ L092B46
BVS L092B44
EOR #$8000
L092B44 BMI L092B58
L092B46 LDA $DE
SEC
SBC #$0000
BEQ L092B58
BVS L092B53
EOR #$8000
L092B53 BPL L092B58
BRL L092A2E
L092B58 LDA $F7
SEC
SBC $DE
STA $F7
LDA $F7
BNE L092B66
BRL L09345A
L092B66 LDA $DB
AND #$00FF
CMP #$0072
BEQ L092B73
BRL L092C07
L092B73 PEA $0064
PEA $0000
PEA $0026
PEA $0014
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$0002
PHA
TXA
STA [$FD],Y
PLA
STA [$FD]
PEA $0056
PEA $0000
PEA $0026
PEA $000A
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$0006
PHA
TXA
STA [$FD],Y
PLA
LDY #$0004
STA [$FD],Y
PEA $0064
PEA $0000
PEA $0028
PEA $0014
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$000A
PHA
TXA
STA [$FD],Y
PLA
LDY #$0008
STA [$FD],Y
PEA $0057
PEA $0000
PEA $0024
PEA $000B
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$000E
PHA
TXA
STA [$FD],Y
PLA
LDY #$000C
STA [$FD],Y
BRL L092C98
L092C07 PEA $0064
PEA $0000
PEA $0028
PEA $0014
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$0002
PHA
TXA
STA [$FD],Y
PLA
STA [$FD]
PEA $0057
PEA $0000
PEA $0024
PEA $000B
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$0006
PHA
TXA
STA [$FD],Y
PLA
LDY #$0004
STA [$FD],Y
PEA $0064
PEA $0000
PEA $0026
PEA $0014
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$000A
PHA
TXA
STA [$FD],Y
PLA
LDY #$0008
STA [$FD],Y
PEA $0056
PEA $0000
PEA $0026
PEA $000A
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$000E
PHA
TXA
STA [$FD],Y
PLA
LDY #$000C
STA [$FD],Y
L092C98 LDA #$0004
STA $E4
BRA L092D01
L092C9F LDA $E4
SEC
SBC #$0004
LDX #$0000
TAY
BPL L092CAC
DEX
L092CAC STX $EA
ASL
ROL $EA
ASL
ROL $EA
LDX $EA
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $E6
STX $E8
LDY #$0002
LDA [$E6],Y
TAX
LDA [$E6]
PHX
PHA
LDA $E4
LDX #$0000
TAY
BPL L092CD9
DEX
L092CD9 STX $EA
ASL
ROL $EA
ASL
ROL $EA
LDX $EA
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $E6
STX $E8
PLA
PLX
LDY #$0002
PHA
TXA
STA [$E6],Y
PLA
STA [$E6]
INC $E4
L092D01 LDA $E4
SEC
SBC #$001C
BVS L092D0C
EOR #$8000
L092D0C BPL L092C9F
LDA $F1
BRL L09344A
L092D13 STZ $E4
BRL L092E6A
L092D18 LDA $DB
AND #$00FF
CMP #$0072
BNE L092D5F
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0000
PEA $0027
PEA $0052
PEA $0049
_SetRect
BCS L092D50
LDA #$0000
L092D50 STAL L0B0002
LDA #$006C
SEP #$20
STA $DB
REP #$20
BRA L092D9A
L092D5F LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $00A8
PEA $0027
PEA $00FA
PEA $0049
_SetRect
BCS L092D8D
LDA #$0000
L092D8D STAL L0B0002
LDA #$0072
SEP #$20
STA $DB
REP #$20
L092D9A LDA $E4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0150
PEA $0002
PEA $01A2
PEA $0024
_SetRect
BCS L092DCC
LDA #$0000
L092DCC STAL L0B0002
LDY #$0002
LDA [$F9],Y
CLC
ADC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
CLC
ADC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDY #$0002
LDA [$F9],Y
CLC
ADC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
CLC
ADC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
CLC
ADC #$0001
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA $E4
CLC
ADC #$0002
STA $E4
L092E6A LDA $F7
ASL
SEC
SBC $E4
BEQ L092E7C
BVS L092E77
EOR #$8000
L092E77 BPL L092E7C
BRL L092D18
L092E7C PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$FE78
PHA
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0063
PEA $0000
PEA $0000
PEA $0001
LDA $F7
ASL
PHA
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L093457
L092EB1 STZ $E4
BRL L0930BA
L092EB6 LDA $DB
AND #$00FF
CMP #$0072
BNE L092F37
LDAL L0C073D
BEQ L092EFA
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $00A8
PEA $0071
PEA $00FA
PEA $0093
_SetRect
BCS L092EF4
LDA #$0000
L092EF4 STAL L0B0002
BRA L092F2C
L092EFA LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $00FC
PEA $0027
PEA $014E
PEA $0049
_SetRect
BCS L092F28
LDA #$0000
L092F28 STAL L0B0002
L092F2C LDA #$006C
SEP #$20
STA $DB
REP #$20
BRA L092FAC
L092F37 LDAL L0C073D
BEQ L092F71
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0054
PEA $0071
PEA $00A6
PEA $0093
_SetRect
BCS L092F6B
LDA #$0000
L092F6B STAL L0B0002
BRA L092FA3
L092F71 LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0054
PEA $0027
PEA $00A6
PEA $0049
_SetRect
BCS L092F9F
LDA #$0000
L092F9F STAL L0B0002
L092FA3 LDA #$0072
SEP #$20
STA $DB
REP #$20
L092FAC LDAL L0C073D
BEQ L092FEA
LDA $E4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0000
PEA $0071
PEA $0052
PEA $0093
_SetRect
BCS L092FE4
LDA #$0000
L092FE4 STAL L0B0002
BRA L093020
L092FEA LDA $E4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $01A4
PEA $0002
PEA $01F6
PEA $0024
_SetRect
BCS L09301C
LDA #$0000
L09301C STAL L0B0002
L093020 LDY #$0002
LDA [$F9],Y
SEC
SBC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
CLC
ADC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDY #$0002
LDA [$F9],Y
SEC
SBC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
CLC
ADC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
CLC
ADC #$0001
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA $E4
CLC
ADC #$0002
STA $E4
L0930BA LDA $F7
ASL
SEC
SBC $E4
BEQ L0930CC
BVS L0930C7
EOR #$8000
L0930C7 BPL L0930CC
BRL L092EB6
L0930CC PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$FE78
PHA
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0063
PEA $0000
PEA $0000
PEA $0001
LDA $F7
ASL
PHA
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L093457
L093101 STZ $E4
BRL L093258
L093106 LDA $DB
AND #$00FF
CMP #$0072
BNE L09314D
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $00A8
PEA $004C
PEA $00FA
PEA $006E
_SetRect
BCS L09313E
LDA #$0000
L09313E STAL L0B0002
LDA #$006C
SEP #$20
STA $DB
REP #$20
BRA L093188
L09314D LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0000
PEA $004C
PEA $0052
PEA $006E
_SetRect
BCS L09317B
LDA #$0000
L09317B STAL L0B0002
LDA #$0072
SEP #$20
STA $DB
REP #$20
L093188 LDA $E4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0054
PEA $0002
PEA $00A6
PEA $0024
_SetRect
BCS L0931BA
LDA #$0000
L0931BA STAL L0B0002
LDY #$0002
LDA [$F9],Y
SEC
SBC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
SEC
SBC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDY #$0002
LDA [$F9],Y
SEC
SBC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
SEC
SBC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
CLC
ADC #$0001
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA $E4
CLC
ADC #$0002
STA $E4
L093258 LDA $F7
ASL
SEC
SBC $E4
BEQ L09326A
BVS L093265
EOR #$8000
L093265 BPL L09326A
BRL L093106
L09326A PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$FE78
PHA
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0063
PEA $0000
PEA $0000
PEA $0001
LDA $F7
ASL
PHA
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L093457
L09329F STZ $E4
BRL L0933F6
L0932A4 LDA $DB
AND #$00FF
CMP #$0072
BNE L0932EB
LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0054
PEA $004C
PEA $00A6
PEA $006E
_SetRect
BCS L0932DC
LDA #$0000
L0932DC STAL L0B0002
LDA #$006C
SEP #$20
STA $DB
REP #$20
BRA L093326
L0932EB LDA $E4
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $00FC
PEA $004C
PEA $014E
PEA $006E
_SetRect
BCS L093319
LDA #$0000
L093319 STAL L0B0002
LDA #$0072
SEP #$20
STA $DB
REP #$20
L093326 LDA $E4
CLC
ADC #$0001
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FF00
JSL L010922
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L093358
LDA #$0000
L093358 STAL L0B0002
LDY #$0002
LDA [$F9],Y
CLC
ADC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
SEC
SBC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDY #$0002
LDA [$F9],Y
CLC
ADC #$0010
LDY #$0002
STA [$F9],Y
LDA [$F9]
SEC
SBC #$0002
STA [$F9]
LDA $F9
LDX $FB
PHX
PHA
LDA $E4
CLC
ADC #$0001
ASL
ASL
LDX #$0000
PHX
PHA
LDX #$0000
TDC
CLC
ADC #$FE78
JSL L010922
PLA
PLX
STA $E6
STX $E8
PEI $E8
PEI $E6
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
LDA $E4
CLC
ADC #$0002
STA $E4
L0933F6 LDA $F7
ASL
SEC
SBC $E4
BEQ L093408
BVS L093403
EOR #$8000
L093403 BPL L093408
BRL L0932A4
L093408 PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$FE78
PHA
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0063
PEA $0000
PEA $0000
PEA $0001
LDA $F7
ASL
PHA
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L093457
L09343D BRL L093457
L093440 DA L092D13
DA L092EB1
DA L093101
DA L09329F
DA L09343D
L09344A CMP #$0004
BCC L093452
LDA #$0004
L093452 ASL
TAX
JMP (L093440,X)
L093457 BRL L093592
L09345A LDA $F1
BRL L093539
L09345F PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0150
PEA $0002
PEA $01A2
PEA $0024
_SetRect
BCS L093480
LDA #$0000
L093480 STAL L0B0002
BRL L093546
L093487 LDAL L0C073D
BEQ L0934B4
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0000
PEA $0071
PEA $0052
PEA $0093
_SetRect
BCS L0934AE
LDA #$0000
L0934AE STAL L0B0002
BRA L0934D9
L0934B4 PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $01A4
PEA $0002
PEA $01F6
PEA $0024
_SetRect
BCS L0934D5
LDA #$0000
L0934D5 STAL L0B0002
L0934D9 BRL L093546
L0934DC PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0054
PEA $0002
PEA $00A6
PEA $0024
_SetRect
BCS L0934FD
LDA #$0000
L0934FD STAL L0B0002
BRL L093546
L093504 PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0000
PEA $0002
PEA $0052
PEA $0024
_SetRect
BCS L093525
LDA #$0000
L093525 STAL L0B0002
BRL L093546
L09352C BRL L093546
L09352F DA L09345F
DA L093487
DA L0934DC
DA L093504
DA L09352C
L093539 CMP #$0004
BCC L093541
LDA #$0004
L093541 ASL
TAX
JMP (L09352F,X)
L093546 LDA $F9
LDX $FB
PHX
PHA
PEA $0000
TDC
CLC
ADC #$FE78
PHA
PEA $0004
JSL L010BC3
PLA
PLA
PLA
PLA
PLX
PEI $FF
PEI $FD
PEA $0000
TDC
CLC
ADC #$FE78
PHA
PEA $0000
TDC
CLC
ADC #$FF00
PHA
PEA $0063
PEA $0000
PEA $0000
PEA $0001
PEA $0001
JSL L0705F6
TAY
TSC
CLC
ADC #$0016
TCS
TYA
L093592 LDA $F7
SEC
SBC $DC
BVS L09359C
EOR #$8000
L09359C BMI L093615
LDX #$0000
LDA #$0000
LDY #$0002
PHA
TXA
STA [$FD],Y
PLA
STA [$FD]
PEA $0059
PEA $0000
PEA $0024
PEA $0013
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$0006
PHA
TXA
STA [$FD],Y
PLA
LDY #$0004
STA [$FD],Y
PEA $0056
PEA $0000
PEA $0027
PEA $000A
PEA $0005
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
LDY #$000A
PHA
TXA
STA [$FD],Y
PLA
LDY #$0008
STA [$FD],Y
LDX #$FFFF
LDA #$FFFF
LDY #$000E
PHA
TXA
STA [$FD],Y
PLA
LDY #$000C
STA [$FD],Y
PEI $FF
PEI $FD
JSL L0502A4
PLY
PLY
L093615 TSC
CLC
ADC #$0274
TCS
PLD
RTL
L09361D PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$00EC
TCS
STZ $F0
BRA L093680
L09362C STZ $EE
BRA L093671
L093630 LDA $EE
LDX #$0000
TAY
BPL L093639
DEX
L093639 STX $F6
ASL
ROL $F6
LDX $F6
PHX
PHA
LDA $F0
LDX #$0000
TAY
BPL L09364B
DEX
L09364B PEA $0000
PEA $0018
CLC
JSL L010AF3
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F2
STX $F4
LDA #$0001
STA [$F2]
INC $EE
L093671 LDA $EE
SEC
SBC #$000C
BVS L09367C
EOR #$8000
L09367C BPL L093630
INC $F0
L093680 LDA $F0
SEC
SBC #$000C
BVS L09368B
EOR #$8000
L09368B BPL L09362C
STZ $F0
BRA L0936BD
L093691 LDA $F0
LDX #$0000
TAY
BPL L09369A
DEX
L09369A PEA $0000
PEA $0018
CLC
JSL L010AF3
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $F2
STX $F4
LDA #$0000
LDY #$0016
STA [$F2],Y
INC $F0
L0936BD LDA $F0
SEC
SBC #$000C
BVS L0936C8
EOR #$8000
L0936C8 BPL L093691
STZ $F0
BRA L0936F7
L0936CE LDA $F0
LDX #$0000
TAY
BPL L0936D7
DEX
L0936D7 PEA $0000
PEA $0018
CLC
JSL L010AF3
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $F2
STX $F4
LDA #$0000
STA [$F2]
INC $F0
L0936F7 LDA $F0
SEC
SBC #$000C
BVS L093702
EOR #$8000
L093702 BPL L0936CE
LDA $FD
CLC
ADC #$0060
LDX $FF
BCC L09370F
INX
L09370F STA $F2
STX $F4
LDA #$0001
STA [$F2]
LDA #$0000
LDY #$0002
STA [$FD],Y
LDA $FD
CLC
ADC #$0018
LDX $FF
BCC L09372B
INX
L09372B STA $F2
STX $F4
LDA #$0000
LDY #$0002
STA [$F2],Y
LDA $FD
CLC
ADC #$00C0
LDX $FF
BCC L093742
INX
L093742 STA $F2
STX $F4
LDA #$0000
LDY #$0002
STA [$F2],Y
LDA $FD
CLC
ADC #$00D8
LDX $FF
BCC L093759
INX
L093759 STA $F2
STX $F4
LDA #$0000
LDY #$0002
STA [$F2],Y
LDA #$0000
LDY #$0004
STA [$FD],Y
LDA $FD
CLC
ADC #$00D8
LDX $FF
BCC L093778
INX
L093778 STA $F2
STX $F4
LDA #$0000
LDY #$0004
STA [$F2],Y
LDA $FD
CLC
ADC #$00F0
LDX $FF
BCC L09378F
INX
L09378F STA $F2
STX $F4
LDA #$0000
LDY #$0004
STA [$F2],Y
LDA $FD
CLC
ADC #$0108
LDX $FF
BCC L0937A6
INX
L0937A6 STA $F2
STX $F4
LDA #$0000
LDY #$0006
STA [$F2],Y
LDA $FD
CLC
ADC #$0108
LDX $FF
BCC L0937BD
INX
L0937BD STA $F2
STX $F4
LDA #$0000
LDY #$000C
STA [$F2],Y
LDA $FD
CLC
ADC #$0108
LDX $FF
BCC L0937D4
INX
L0937D4 STA $F2
STX $F4
LDA #$0000
LDY #$000E
STA [$F2],Y
LDA #$0000
LDY #$0010
STA [$FD],Y
LDA $FD
CLC
ADC #$0108
LDX $FF
BCC L0937F3
INX
L0937F3 STA $F2
STX $F4
LDA #$0000
LDY #$0010
STA [$F2],Y
LDA #$0000
LDY #$0012
STA [$FD],Y
LDA $FD
CLC
ADC #$0018
LDX $FF
BCC L093812
INX
L093812 STA $F2
STX $F4
LDA #$0000
LDY #$0012
STA [$F2],Y
LDA $FD
CLC
ADC #$0030
LDX $FF
BCC L093829
INX
L093829 STA $F2
STX $F4
LDA #$0000
LDY #$0012
STA [$F2],Y
LDA $FD
CLC
ADC #$0108
LDX $FF
BCC L093840
INX
L093840 STA $F2
STX $F4
LDA #$0000
LDY #$0012
STA [$F2],Y
STZ $F0
BRA L09387C
L093850 LDA $F0
LDX #$0000
TAY
BPL L093859
DEX
L093859 PEA $0000
PEA $0018
CLC
JSL L010AF3
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $F2
STX $F4
LDA #$0000
LDY #$0014
STA [$F2],Y
INC $F0
L09387C LDA $F0
SEC
SBC #$000C
BVS L093887
EOR #$8000
L093887 BPL L093850
LDA $FD
CLC
ADC #$0078
LDX $FF
BCC L093894
INX
L093894 STA $F2
STX $F4
LDA #$0001
LDY #$0014
STA [$F2],Y
LDA $FD
CLC
ADC #$0090
LDX $FF
BCC L0938AB
INX
L0938AB STA $F2
STX $F4
LDA #$0001
LDY #$0014
STA [$F2],Y
LDA $FD
CLC
ADC #$00A8
LDX $FF
BCC L0938C2
INX
L0938C2 STA $F2
STX $F4
LDA #$0001
LDY #$0014
STA [$F2],Y
LDA $FD
CLC
ADC #$00C0
LDX $FF
BCC L0938D9
INX
L0938D9 STA $F2
STX $F4
LDA #$0001
LDY #$0014
STA [$F2],Y
LDA $FD
CLC
ADC #$00D8
LDX $FF
BCC L0938F0
INX
L0938F0 STA $F2
STX $F4
LDA #$0001
LDY #$0014
STA [$F2],Y
LDA $FD
CLC
ADC #$0060
LDX $FF
BCC L093907
INX
L093907 STA $F2
STX $F4
LDA #$0000
LDY #$0008
STA [$F2],Y
LDA $FD
CLC
ADC #$0060
LDX $FF
BCC L09391E
INX
L09391E STA $F2
STX $F4
LDA #$0000
LDY #$000A
STA [$F2],Y
LDA $FD
CLC
ADC #$0078
LDX $FF
BCC L093935
INX
L093935 STA $F2
STX $F4
LDA #$0000
LDY #$000A
STA [$F2],Y
TSC
CLC
ADC #$000A
TCS
PLD
RTL
L093949 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00F4
TCS
LDA L0B00B2
AND #$00FF
CMP #$000B
BEQ L093985
LDA L0B00B2
AND #$00FF
CMP #$0008
BEQ L093985
LDA L0B00B2
AND #$00FF
CMP #$000A
BEQ L093985
LDA L0B00B2
AND #$00FF
CMP #$0015
BEQ L093985
LDA #$0000
BRA L093988
L093985 LDA #$0001
L093988 TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L093992 ENT
L0E0082 ENT
PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00DA
TCS
STZ $EA
LDX #$0000
LDA #$001E
STX $E2
STA $E0
JSL L0311DD
JSL L0612B1
STZ L0B0078
STZ $EC
PEA ^L0C280F
PEA L0C280F
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
LDA L0B0072
PHA
LDAL L0C0731
SEC
JSL L010AAE
LDAL L0C0F7C
PLX
STX $FA
CLC
ADC $FA
STA $E6
LDA L0B0070
PHA
LDAL L0C0733
CLC
ADC #$0001
SEC
JSL L010AAE
LDAL L0C0F7A
PLX
STX $FA
CLC
ADC $FA
STA $E8
LDA L0B0072
PHA
LDAL L0C0F80
SEC
SBCL L0C0F7C
SEC
JSL L01092D
PLY
STA $F2
LDA L0B0070
PHA
LDAL L0C0F7E
SEC
SBCL L0C0F7A
SEC
JSL L01092D
PLY
SEC
SBC #$0001
STA $F0
PEA $0002
_SetPenMode
BCS L093A3D
LDA #$0000
L093A3D STAL L0B0002
PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L093A54
LDA #$0000
L093A54 STAL L0B0002
PLA
L093A59 LDA $E6
SEC
SBC #$0001
PHA
PEI $E8
_MoveTo
BCS L093A6E
LDA #$0000
L093A6E STAL L0B0002
L093A72 JSL L06063A
LDX $E2
LDA $E0
PHX
PHA
PHX
PHA
_TickCount
BCS L093A8A
LDA #$0000
L093A8A STAL L0B0002
PLA
PLX
SEC
SBC $DC
PHA
TXA
SBC $DE
TAX
PLA
JSL L010B98
BEQ L093AA1
BCS L093AFF
L093AA1 LDA $E6
SEC
SBC #$0001
PHA
PEI $E8
_MoveTo
BCS L093AB6
LDA #$0000
L093AB6 STAL L0B0002
PEA $0000
LDA L0B0070
SEC
SBC #$0001
EOR #$FFFF
INC
PHA
_Line
BCS L093AD5
LDA #$0000
L093AD5 STAL L0B0002
PHX
PHA
_TickCount
BCS L093AE7
LDA #$0000
L093AE7 STAL L0B0002
PLA
PLX
STX $DE
STA $DC
LDA $EA
BEQ L093AFA
LDA #$0000
BRA L093AFD
L093AFA LDA #$0001
L093AFD STA $EA
L093AFF LDAL L0C1A7A
CMP #$0000
BNE L093B12
JSL L0612DE
TAY
BNE L093B12
BRL L093A72
L093B12 JSL L04169A
TAY
BEQ L093B1C
BRL L093D7F
L093B1C LDA L0B0078
CMP #$0003
BNE L093B27
BRL L093D7F
L093B27 LDA $EA
BEQ L093B65
LDA $E6
SEC
SBC #$0001
PHA
PEI $E8
_MoveTo
BCS L093B40
LDA #$0000
L093B40 STAL L0B0002
PEA $0000
LDA L0B0070
SEC
SBC #$0001
EOR #$FFFF
INC
PHA
_Line
BCS L093B5F
LDA #$0000
L093B5F STAL L0B0002
STZ $EA
L093B65 LDAL L0C1A7A
CMP #$0003
BEQ L093B77
LDAL L0C1A7A
CMP #$0005
BNE L093B84
L093B77 LDAL L0C1A7E
TAX
LDAL L0C1A7C
STA $EE
BRA L093B86
L093B84 STZ $EE
L093B86 LDA $EE
BRL L093D2B
L093B8B LDAL L0C0731
SEC
SBC $F2
BVS L093B97
EOR #$8000
L093B97 BPL L093BE1
LDAL L0C0733
SEC
SBC $F0
BVS L093BA5
EOR #$8000
L093BA5 BMI L093BC7
LDA #$0000
STAL L0C0731
LDAL L0C0F7C
STA $E6
LDAL L0C0733
INC
STAL L0C0733
LDA $E8
CLC
ADC L0B0070
STA $E8
BRA L093BDF
L093BC7 PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L093BDA
LDA #$0000
L093BDA STAL L0B0002
PLA
L093BDF BRA L093BF2
L093BE1 LDAL L0C0731
INC
STAL L0C0731
LDA $E6
CLC
ADC L0B0072
STA $E6
L093BF2 BRL L093D4E
L093BF5 LDAL L0C0731
SEC
SBC #$0000
BEQ L093C09
BVS L093C04
EOR #$8000
L093C04 BPL L093C09
BRL L093C64
L093C09 LDAL L0C0733
SEC
SBC #$0000
BEQ L093C4A
BVS L093C18
EOR #$8000
L093C18 BPL L093C4A
LDA $F2
STAL L0C0731
LDA $F2
PHA
LDA L0B0072
SEC
JSL L010AAE
LDAL L0C0F7C
PLX
STX $FA
CLC
ADC $FA
STA $E6
LDAL L0C0733
DEC
STAL L0C0733
LDA $E8
SEC
SBC L0B0070
STA $E8
BRA L093C62
L093C4A PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L093C5D
LDA #$0000
L093C5D STAL L0B0002
PLA
L093C62 BRA L093C75
L093C64 LDAL L0C0731
DEC
STAL L0C0731
LDA $E6
SEC
SBC L0B0072
STA $E6
L093C75 BRL L093D4E
L093C78 LDAL L0C0733
SEC
SBC $F0
BVS L093C84
EOR #$8000
L093C84 BPL L093CA0
PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L093C99
LDA #$0000
L093C99 STAL L0B0002
PLA
BRA L093CB1
L093CA0 LDAL L0C0733
INC
STAL L0C0733
LDA $E8
CLC
ADC L0B0070
STA $E8
L093CB1 BRL L093D4E
L093CB4 LDAL L0C0733
SEC
SBC #$0000
BEQ L093CC5
BVS L093CC3
EOR #$8000
L093CC3 BMI L093CDF
L093CC5 PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L093CD8
LDA #$0000
L093CD8 STAL L0B0002
PLA
BRA L093CF0
L093CDF LDAL L0C0733
DEC
STAL L0C0733
LDA $E8
SEC
SBC L0B0070
STA $E8
L093CF0 BRL L093D4E
L093CF3 LDAL L0C0731
PHA
PEA $0001
JSL L0251CD
PLY
PLY
LDAL L0C0733
PHA
PEA $0002
JSL L0251CD
PLY
PLY
PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L093D22
LDA #$0000
L093D22 STAL L0B0002
PLA
BRA L093D4E
BRA L093D4E
L093D2B CMP #$0008
BNE L093D33
BRL L093BF5
L093D33 CMP #$000A
BNE L093D3B
BRL L093C78
L093D3B CMP #$000B
BNE L093D43
BRL L093CB4
L093D43 CMP #$0015
BNE L093D4B
BRL L093B8B
L093D4B JMP L093CF3
L093D4E LDAL L0C0731
CMPL L0C0743
BNE L093D62
LDAL L0C0733
CMPL L0C0745
BEQ L093D67
L093D62 LDA #$0000
BRA L093D6A
L093D67 LDA #$0001
L093D6A STA $EC
LDX $DE
LDA $DC
SEC
SBC $E0
PHA
TXA
SBC $E2
TAX
PLA
STX $DE
STA $DC
BRA L093DC8
L093D7F LDA L0B0078
PHA
JSL L0607BE
PLY
LDA $EA
BEQ L093DC6
LDA $E6
SEC
SBC #$0001
PHA
PEI $E8
_MoveTo
BCS L093DA1
LDA #$0000
L093DA1 STAL L0B0002
PEA $0000
LDA L0B0070
SEC
SBC #$0001
EOR #$FFFF
INC
PHA
_Line
BCS L093DC0
LDA #$0000
L093DC0 STAL L0B0002
STZ $EA
L093DC6 BRA L093DCF
L093DC8 LDA $EC
BNE L093DCF
BRL L093A59
L093DCF LDAL L0C0731
PHA
PEA $0001
JSL L0251CD
PLY
PLY
LDAL L0C0733
PHA
PEA $0002
JSL L0251CD
PLY
PLY
PEA $0000
_SetPenMode
BCS L093DFA
LDA #$0000
L093DFA STAL L0B0002
LDA $EC
BEQ L093E16
PEA ^L0C2811
PEA L0C2811
PEA ^L0C1188
PEA L0C1188
JSL L0110F7
PLY
PLY
PLY
PLY
L093E16 JSL L031208
TSC
CLC
ADC #$0020
TCS
PLD
RTL
L093E22 PHD
TSC
SEC
SBC #$00E5
TCD
ADC #$00D0
TCS
LDA [$EF]
PHA
LDA #$0056
SEC
JSL L010AAE
LDA #$001E
PLX
STX $E4
CLC
ADC $E4
STA $DE
LDA [$F3]
PHA
LDA #$0025
SEC
JSL L010AAE
LDA #$000F
PLX
STX $E4
CLC
ADC $E4
SEC
SBC #$0004
STA $DC
PEA $0000
TDC
CLC
ADC #$00D2
PHA
PEI $DE
PEI $DC
LDA $DE
CLC
ADC #$0044
PHA
LDA $DC
CLC
ADC #$001C
SEC
SBC #$0001
PHA
_SetRect
BCS L093E88
LDA #$0000
L093E88 STAL L0B0002
LDA $FF
AND #$00FF
BRL L093FDE
L093E94 PEA $0000
TDC
CLC
ADC #$00D2
PHA
_EraseRect
BCS L093EA9
LDA #$0000
L093EA9 STAL L0B0002
LDA $DC
SEC
SBC #$0025
STA $DC
PEA $0000
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $0001
PEA $0000
PEI $DC
PEI $DE
PEI $ED
PEI $EB
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
LDA [$F3]
SEC
SBC #$0001
STA [$F3]
BRL L093FFE
L093EE6 PEA $0000
TDC
CLC
ADC #$00D2
PHA
_EraseRect
BCS L093EFB
LDA #$0000
L093EFB STAL L0B0002
LDA $DC
CLC
ADC #$0025
STA $DC
PEA $0000
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $0001
PEA $0000
PEI $DC
PEI $DE
PEI $ED
PEI $EB
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
LDA [$F3]
CLC
ADC #$0001
STA [$F3]
BRL L093FFE
L093F38 PEA $0000
TDC
CLC
ADC #$00D2
PHA
_EraseRect
BCS L093F4D
LDA #$0000
L093F4D STAL L0B0002
LDA $DE
SEC
SBC #$0056
STA $DE
PEA $0000
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $0001
PEA $0000
PEI $DC
PEI $DE
PEI $ED
PEI $EB
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
LDA [$EF]
SEC
SBC #$0001
STA [$EF]
BRL L093FFE
L093F8A PEA $0000
TDC
CLC
ADC #$00D2
PHA
_EraseRect
BCS L093F9F
LDA #$0000
L093F9F STAL L0B0002
LDA $DE
CLC
ADC #$0056
STA $DE
PEA $0000
PEA $0000
TDC
CLC
ADC #$00F7
PHA
PEA $0001
PEA $0000
PEI $DC
PEI $DE
PEI $ED
PEI $EB
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
LDA [$EF]
CLC
ADC #$0001
STA [$EF]
BRL L093FFE
L093FDC BRA L093FFE
L093FDE CMP #$0064
BNE L093FE6
BRL L093EE6
L093FE6 CMP #$006C
BNE L093FEE
BRL L093F38
L093FEE CMP #$0072
BEQ L093F8A
CMP #$0075
BNE L093FFB
BRL L093E94
L093FFB JMP L093FDC
L093FFE TSC
CLC
ADC #$0014
TCS
PLD
RTL
L094006 PHD
TSC
SEC
SBC #$00EF
TCD
ADC #$00C2
TCS
PEA $0000
TDC
CLC
ADC #$00E2
PHA
PEA $00D8
PEA $0023
PEA $011C
PEA $003E
_SetRect
BCS L094032
LDA #$0000
L094032 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00DA
PHA
PEA $00D8
PEA $0000
PEA $0126
PEA $0021
_SetRect
BCS L094057
LDA #$0000
L094057 STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00D2
PHA
PEA $00D8
PEA $0040
PEA $011C
PEA $005B
_SetRect
BCS L09407C
LDA #$0000
L09407C STAL L0B0002
LDA [$F9]
PHA
LDA #$0012
SEC
JSL L010AAE
LDA [$F9]
PHA
LDA #$0044
SEC
JSL L010AAE
LDA #$001E
PLX
STX $EE
CLC
ADC $EE
PLX
STX $EE
CLC
ADC $EE
STA $C8
LDA [$FD]
PHA
LDA #$0009
SEC
JSL L010AAE
LDA [$FD]
PHA
LDA #$001C
SEC
JSL L010AAE
LDA #$000F
PLX
STX $EE
CLC
ADC $EE
PLX
STX $EE
CLC
ADC $EE
SEC
SBC #$0004
STA $C6
PEA $0000
TDC
CLC
ADC #$00CA
PHA
PEI $C8
PEI $C6
LDA $C8
CLC
ADC #$0044
PHA
LDA $C6
CLC
ADC #$001C
SEC
SBC #$0001
PHA
_SetRect
BCS L0940FD
LDA #$0000
L0940FD STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00CA
PHA
_EraseRect
BCS L094116
LDA #$0000
L094116 STAL L0B0002
LDA $C8
CLC
ADC #$0056
STA $C8
PEA $0000
PEA $0000
TDC
CLC
ADC #$00E2
PHA
PEA $0001
PEA $0004
PEA $0028
PEA $01CC
PEI $F7
PEI $F5
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
PEA $0005
JSL L06135C
PLY
PEA $0000
PEA $0000
TDC
CLC
ADC #$00D2
PHA
PEA $0001
PEA $0003
PEA $0028
PEA $01CC
PEI $F7
PEI $F5
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
PEA $0000
PEA $0000
TDC
CLC
ADC #$00DA
PHA
PEA $0001
PEA $0004
PEA $0008
PEA $021C
PEI $F7
PEI $F5
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
LDA #$0005
STA [$F9]
LDA #$0001
STA [$FD]
TSC
CLC
ADC #$002C
TCS
PLD
RTL
L0941B4 PHD
TSC
SEC
SBC #$00D7
TCD
ADC #$00C8
TCS
LDX #$0000
LDA #$0000
PHA
TXA
STAL L0C2468
PLA
STAL L0C2466
PEA $007F
PEA $0000
PEA $0027
PEA $000D
PEA $0000
JSL L0102D3
PLY
PLY
PLY
PLY
PLY
PHA
TXA
STAL L0C246C
PLA
STAL L0C246A
LDX #$FFFF
LDA #$FFFF
PHA
TXA
STAL L0C2470
PLA
STAL L0C246E
LDA [$E1]
PHA
LDA #$0012
SEC
JSL L010AAE
LDA [$E1]
PHA
LDA #$0044
SEC
JSL L010AAE
LDA #$001E
PLX
STX $D6
CLC
ADC $D6
PLX
STX $D6
CLC
ADC $D6
STA $D0
LDA [$E5]
PHA
LDA #$0009
SEC
JSL L010AAE
LDA [$E5]
PHA
LDA #$001C
SEC
JSL L010AAE
LDA #$000F
PLX
STX $D6
CLC
ADC $D6
PLX
STX $D6
CLC
ADC $D6
SEC
SBC #$0004
STA $CE
PEA $0000
PEA $0000
TDC
CLC
ADC #$00F1
PHA
PEA $0001
PEA $0000
PEI $CE
PEI $D0
PEI $DF
PEI $DD
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
PEA ^L0C2466
PEA L0C2466
JSL L0502A4
PLY
PLY
PEA $0000
PEA $0000
TDC
CLC
ADC #$00F9
PHA
PEA $0001
PEA $0000
PEI $CE
PEI $D0
PEI $DF
PEI $DD
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L0942B6 PHD
TSC
SEC
SBC #$00CB
TCD
ADC #$00C4
TCS
PEI $D3
PEI $D1
PEA $0000
PEA $003A
PEA $0044
PEA $0055
_SetRect
BCS L0942DD
LDA #$0000
L0942DD STAL L0B0002
PEI $D7
PEI $D5
PEA $0048
PEA $003A
PEA $008C
PEA $0055
_SetRect
BCS L0942FD
LDA #$0000
L0942FD STAL L0B0002
PEI $DB
PEI $D9
PEA $0090
PEA $003A
PEA $00D4
PEA $0055
_SetRect
BCS L09431D
LDA #$0000
L09431D STAL L0B0002
PEI $DF
PEI $DD
PEA $0000
PEA $0000
PEA $0044
PEA $001B
_SetRect
BCS L09433D
LDA #$0000
L09433D STAL L0B0002
PEI $E3
PEI $E1
PEA $0048
PEA $0000
PEA $008C
PEA $001B
_SetRect
BCS L09435D
LDA #$0000
L09435D STAL L0B0002
PEI $E7
PEI $E5
PEA $0090
PEA $0000
PEA $00D4
PEA $001B
_SetRect
BCS L09437D
LDA #$0000
L09437D STAL L0B0002
PEI $EB
PEI $E9
PEA $0000
PEA $0057
PEA $0044
PEA $0072
_SetRect
BCS L09439D
LDA #$0000
L09439D STAL L0B0002
PEI $EF
PEI $ED
PEA $0048
PEA $0057
PEA $008C
PEA $0072
_SetRect
BCS L0943BD
LDA #$0000
L0943BD STAL L0B0002
PEI $F3
PEI $F1
PEA $0090
PEA $0057
PEA $00D4
PEA $0072
_SetRect
BCS L0943DD
LDA #$0000
L0943DD STAL L0B0002
PEI $F7
PEI $F5
PEA $0000
PEA $001D
PEA $0044
PEA $0038
_SetRect
BCS L0943FD
LDA #$0000
L0943FD STAL L0B0002
PEI $FB
PEI $F9
PEA $0048
PEA $001D
PEA $008C
PEA $0038
_SetRect
BCS L09441D
LDA #$0000
L09441D STAL L0B0002
PEI $FF
PEI $FD
PEA $0090
PEA $001D
PEA $00D4
PEA $0038
_SetRect
BCS L09443D
LDA #$0000
L09443D STAL L0B0002
TSC
CLC
ADC #$0006
TCS
PLD
RTL
L094449 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$006E
TCS
LDA #$0001
STA $F0
LDA #$0004
STA $EE
JSL L0311DD
PEA ^L0C2813
PEA L0C2813
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L0110F7
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$0070
PHA
JSL L040E53
PLY
PLY
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
STX $F4
STA $F2
LDA #$0000
STAL L0C2820
LDA #$0000
STAL L0C2848
LDA #L0C2820
LDX #^L0C2820
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2848
LDX #^L0C2848
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2820
LDX #^L0C2820
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2848
LDX #^L0C2848
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2820
LDX #^L0C2820
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #L0C2848
LDX #^L0C2848
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2870
LDA #$0000
STAL L0C2898
LDA #L0C2870
LDX #^L0C2870
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2898
LDX #^L0C2898
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2870
LDX #^L0C2870
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2898
LDX #^L0C2898
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2870
LDX #^L0C2870
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C2898
LDX #^L0C2898
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C28C0
LDA #L0C28C0
LDX #^L0C28C0
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28C0
LDX #^L0C28C0
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C28C0
LDX #^L0C28C0
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0001
STAL L0C2828
LDA #$0001
STAL L0C2850
LDA #L0C2828
LDX #^L0C2828
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2850
LDX #^L0C2850
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2828
LDX #^L0C2828
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2850
LDX #^L0C2850
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2828
LDX #^L0C2828
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #L0C2850
LDX #^L0C2850
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2878
LDA #$0000
STAL L0C28A0
LDA #L0C2878
LDX #^L0C2878
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28A0
LDX #^L0C28A0
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2878
LDX #^L0C2878
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28A0
LDX #^L0C28A0
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2878
LDX #^L0C2878
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C28A0
LDX #^L0C28A0
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0001
STAL L0C28C8
LDA #L0C28C8
LDX #^L0C28C8
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C28C8
LDX #^L0C28C8
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28C8
LDX #^L0C28C8
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0001
STAL L0C2830
LDA #$0001
STAL L0C2858
LDA #L0C2830
LDX #^L0C2830
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2858
LDX #^L0C2858
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2830
LDX #^L0C2830
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2858
LDX #^L0C2858
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2830
LDX #^L0C2830
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C2858
LDX #^L0C2858
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2880
LDA #$0001
STAL L0C28A8
LDA #L0C2880
LDX #^L0C2880
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28A8
LDX #^L0C28A8
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2880
LDX #^L0C2880
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28A8
LDX #^L0C28A8
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2880
LDX #^L0C2880
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #L0C28A8
LDX #^L0C28A8
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C28D0
LDA #$0000
STAL L0C28F8
LDA #L0C28D0
LDX #^L0C28D0
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28F8
LDX #^L0C28F8
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28D0
LDX #^L0C28D0
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28F8
LDX #^L0C28F8
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C28D0
LDX #^L0C28D0
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C28F8
LDX #^L0C28F8
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2920
LDA #L0C2920
LDX #^L0C2920
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2920
LDX #^L0C2920
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2920
LDX #^L0C2920
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2888
LDA #$0000
STAL L0C28B0
LDA #L0C2888
LDX #^L0C2888
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C28B0
LDX #^L0C28B0
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2888
LDX #^L0C2888
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C28B0
LDX #^L0C28B0
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2888
LDX #^L0C2888
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C28B0
LDX #^L0C28B0
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C28D8
LDA #$0001
STAL L0C2900
LDA #L0C28D8
LDX #^L0C28D8
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2900
LDX #^L0C2900
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28D8
LDX #^L0C28D8
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2900
LDX #^L0C2900
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28D8
LDX #^L0C28D8
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C2900
LDX #^L0C2900
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0001
STAL L0C2928
LDA #L0C2928
LDX #^L0C2928
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2928
LDX #^L0C2928
STA $F6
STX $F8
LDA #$0001
LDY #$0004
STA [$F6],Y
LDA #L0C2928
LDX #^L0C2928
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2868
LDA #$0001
STAL L0C2890
LDA #L0C2868
LDX #^L0C2868
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C2890
LDX #^L0C2890
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2868
LDX #^L0C2868
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2890
LDX #^L0C2890
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2868
LDX #^L0C2868
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C2890
LDX #^L0C2890
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
LDA #$0001
STAL L0C28B8
LDA #$0001
STAL L0C28E0
LDA #L0C28B8
LDX #^L0C28B8
STA $F6
STX $F8
LDA #$0000
LDY #$0002
STA [$F6],Y
LDA #L0C28E0
LDX #^L0C28E0
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C28B8
LDX #^L0C28B8
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28E0
LDX #^L0C28E0
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C28B8
LDX #^L0C28B8
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C28E0
LDX #^L0C28E0
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #$0000
STAL L0C2908
LDA #$0001
STAL L0C2930
LDA #L0C2908
LDX #^L0C2908
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2930
LDX #^L0C2930
STA $F6
STX $F8
LDA #$0001
LDY #$0002
STA [$F6],Y
LDA #L0C2908
LDX #^L0C2908
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2930
LDX #^L0C2930
STA $F6
STX $F8
LDA #$0000
LDY #$0004
STA [$F6],Y
LDA #L0C2908
LDX #^L0C2908
STA $F6
STX $F8
LDA #$0001
LDY #$0006
STA [$F6],Y
LDA #L0C2930
LDX #^L0C2930
STA $F6
STX $F8
LDA #$0000
LDY #$0006
STA [$F6],Y
PEA $0000
TDC
CLC
ADC #$00B6
PHA
PEA $0000
PEA $0000
PEA $0044
PEA $001B
_SetRect
BCS L094B83
LDA #$0000
L094B83 STAL L0B0002
PEA $0000
PEA $0000
TDC
CLC
ADC #$00B6
PHA
PEA $0001
PEA $0001
PEA $009E
PEA $0074
PEI $F4
PEI $F2
JSL L030000
TAY
TSC
CLC
ADC #$0012
TCS
TYA
PEA $0000
TDC
CLC
ADC #$008E
PHA
PEA $0000
TDC
CLC
ADC #$0096
PHA
PEA $0000
TDC
CLC
ADC #$009E
PHA
PEA $0000
TDC
CLC
ADC #$00A6
PHA
PEA $0000
TDC
CLC
ADC #$00AE
PHA
PEA $0000
TDC
CLC
ADC #$00B6
PHA
PEA $0000
TDC
CLC
ADC #$00BE
PHA
PEA $0000
TDC
CLC
ADC #$00C6
PHA
PEA $0000
TDC
CLC
ADC #$00CE
PHA
PEA $0000
TDC
CLC
ADC #$00D6
PHA
PEA $0000
TDC
CLC
ADC #$00DE
PHA
PEA $0000
TDC
CLC
ADC #$00E6
PHA
JSL L0942B6
TAY
TSC
CLC
ADC #$0030
TCS
TYA
JSL L0612B1
PHA
PEA $046E
PEA $0000
_FlushEvents
BCS L094C3E
LDA #$0000
L094C3E STAL L0B0002
PLA
STZ L0B00CB
L094C46 PEA $0003
JSL L06078F
PLY
LDA L0B0078
CMP #$0002
BNE L094C58
BRA L094CA3
L094C58 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
_ObscureCursor
BCS L094C90
LDA #$0000
L094C90 STAL L0B0002
JSL L093949
TAY
BNE L094CA3
LDA L0B0078
CMP #$0000
BEQ L094C46
L094CA3 LDA L0B00B2
AND #$00FF
BRL L095110
L094CAC LDA $EE
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA $F0
PHA
LDA #$0028
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C2820
LDX #^L0C2820
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0002
LDA [$F6],Y
BEQ L094D2E
PEA $006C
LDX #$0000
TDC
CLC
ADC #$009E
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L093E22
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L094DB6
L094D2E LDX #$0000
TDC
CLC
ADC #$008E
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$0096
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$009E
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L0941B4
TAY
TSC
CLC
ADC #$0024
TCS
TYA
L094DB6 BRL L095130
L094DB9 LDA $EE
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA $F0
PHA
LDA #$0028
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C2820
LDX #^L0C2820
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDA [$F6]
BEQ L094E38
PEA $0075
LDX #$0000
TDC
CLC
ADC #$00E6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L093E22
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L094EC0
L094E38 LDX #$0000
TDC
CLC
ADC #$00D6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$00DE
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$00E6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L0941B4
TAY
TSC
CLC
ADC #$0024
TCS
TYA
L094EC0 BRL L095130
L094EC3 LDA $EE
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA $F0
PHA
LDA #$0028
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C2820
LDX #^L0C2820
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0006
LDA [$F6],Y
BEQ L094F77
LDA $F0
CMP #$0004
BNE L094F09
LDA $EE
CMP #$0001
BEQ L094F52
L094F09 PEA $0072
LDX #$0000
TDC
CLC
ADC #$00CE
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L093E22
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRA L094F74
L094F52 PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L094006
TAY
TSC
CLC
ADC #$000C
TCS
TYA
L094F74 BRL L094FFF
L094F77 LDX #$0000
TDC
CLC
ADC #$00BE
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$00C6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$00CE
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L0941B4
TAY
TSC
CLC
ADC #$0024
TCS
TYA
L094FFF BRL L095130
L095002 LDA $EE
ASL
ASL
ASL
LDX #$0000
PHX
PHA
LDA $F0
PHA
LDA #$0028
CLC
JSL L010AAE
PLA
LDX #$0000
PHX
PHA
LDA #L0C2820
LDX #^L0C2820
JSL L010922
PLA
PLX
JSL L010922
PLA
PLX
STA $F6
STX $F8
LDY #$0004
LDA [$F6],Y
BEQ L095084
PEA $0064
LDX #$0000
TDC
CLC
ADC #$00B6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L093E22
TAY
TSC
CLC
ADC #$0016
TCS
TYA
BRL L09510C
L095084 LDX #$0000
TDC
CLC
ADC #$00A6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$00AE
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
LDX #$0000
TDC
CLC
ADC #$00B6
TAY
TSC
SEC
SBC #$0008
TCS
PHX
PHY
PEA $0000
INC
PHA
PEA $0008
JSL L010BC3
PLY
PLY
PLY
PLY
PLY
PEA $0000
TDC
CLC
ADC #$00EE
PHA
PEA $0000
TDC
CLC
ADC #$00F0
PHA
PEI $F4
PEI $F2
JSL L0941B4
TAY
TSC
CLC
ADC #$0024
TCS
TYA
L09510C BRA L095130
BRA L095130
L095110 CMP #$0008
BNE L095118
BRL L094CAC
L095118 CMP #$000A
BNE L095120
BRL L095002
L095120 CMP #$000B
BNE L095128
BRL L094DB9
L095128 CMP #$0015
BNE L095130
BRL L094EC3
L095130 LDA L0B0078
SEC
SBC #$0000
BEQ L095140
BVS L09513E
EOR #$8000
L09513E BMI L095154
L095140 LDA $F0
CMP #$0005
BEQ L09514A
BRL L094C46
L09514A LDA $EE
CMP #$0001
BEQ L095154
BRL L094C46
L095154 JSL L031208
TSC
CLC
ADC #$008C
TCS
PLD
RTL
L095160 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00F2
TCS
LDAL L0C1A86
SEC
SBCL L0C0F7C
STA $F4
LDA L0B0072
PHA
LDA $F4
CLC
ADC #$0004
SEC
JSL L01092D
PLY
STA $F4
LDA #$0000
SEC
SBC $F4
BEQ L09519C
BVS L095195
EOR #$8000
L095195 BPL L09519C
LDA #$0000
BRA L09519E
L09519C LDA $F4
L09519E TAY
TSC
CLC
ADC #$0008
TCS
TYA
PLD
RTL
L0951A8 PHD
TSC
SEC
SBC #$00FB
TCD
ADC #$00F2
TCS
LDAL L0C1A84
SEC
SBCL L0C0F7A
STA $F4
LDA L0B0070
PHA
LDA $F4
SEC
SBC #$0001
SEC
JSL L01092D
PLY
STA $F4
LDA $F4
TAY
TSC
CLC
ADC #$0008
TCS
TYA
PLD
RTL
L0951DC PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00F2
TCS
LDA L0B0072
PHA
LDA $FF
SEC
JSL L010AAE
PLA
CLC
ADCL L0C0F7C
TAY
TSC
CLC
ADC #$0006
TCS
TYA
PLD
RTL
L095202 PHD
TSC
SEC
SBC #$00F9
TCD
ADC #$00F0
TCS
LDA L0B0070
PHA
LDA $FF
CLC
ADC #$0001
SEC
JSL L010AAE
PLA
CLC
ADCL L0C0F7A
CLC
ADC #$0001
TAY
TSC
CLC
ADC #$0008
TCS
TYA
PLD
RTL
L095230 PHD
TSC
SEC
SBC #$00F1
TCD
ADC #$00E2
TCS
PEA $0000
TDC
CLC
ADC #$00E4
PHA
LDA $F9
SEC
SBCL L0C0F7C
BEQ L095258
BVS L095252
EOR #$8000
L095252 BPL L095258
LDA $F9
BRA L09525C
L095258 LDAL L0C0F7C
L09525C PHA
LDA L0B0070
SEC
SBC #$0001
PHA
PEI $F7
JSL L095202
PLY
PLX
STX $F0
SEC
SBC $F0
PHA
LDA $F7
LDX #$0000
TAY
BPL L09527C
DEX
L09527C STX $F0
ASL
ROL $F0
ASL
ROL $F0
LDX $F0
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $EC
STX $EE
LDY #$0002
LDA [$EC],Y
SEC
SBC $FB
BEQ L0952AB
BVS L0952A5
EOR #$8000
L0952A5 BPL L0952AB
LDA $FB
BRA L0952D3
L0952AB LDA $F7
LDX #$0000
TAY
BPL L0952B4
DEX
L0952B4 STX $F0
ASL
ROL $F0
ASL
ROL $F0
LDX $F0
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $EC
STX $EE
LDY #$0002
LDA [$EC],Y
L0952D3 PHA
PEI $F7
JSL L095202
PLY
CLC
ADC #$0001
PHA
_SetRect
BCS L0952EC
LDA #$0000
L0952EC STAL L0B0002
PEA $0000
TDC
CLC
ADC #$00E4
PHA
_InvertRect
BCS L095305
LDA #$0000
L095305 STAL L0B0002
TSC
CLC
ADC #$000E
TCS
PLD
RTL
L095311 PHD
TSC
SEC
SBC #$00EF
TCD
ADC #$00E6
TCS
LDA $F7
CMP $FB
BNE L095344
PEI $FF
PEI $FD
PEI $F9
JSL L0951DC
PLY
PHA
PEI $F5
JSL L0951DC
PLY
PHA
PEI $F7
JSL L095230
PLY
PLY
PLY
PLY
PLY
BRL L0953F9
L095344 PEI $FF
PEI $FD
LDA $F7
LDX #$0000
TAY
BPL L095351
DEX
L095351 STX $EE
ASL
ROL $EE
ASL
ROL $EE
LDX $EE
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $EA
STX $EC
LDY #$0002
LDA [$EA],Y
PHA
PEI $F5
JSL L0951DC
PLY
PHA
PEI $F7
JSL L095230
PLY
PLY
PLY
PLY
PLY
LDA $F7
CLC
ADC #$0001
STA $E8
BRA L0953CD
L09538E PEI $FF
PEI $FD
LDA $E8
LDX #$0000
TAY
BPL L09539B
DEX
L09539B STX $EE
ASL
ROL $EE
ASL
ROL $EE
LDX $EE
PHX
PHA
LDX $FF
LDA $FD
JSL L010922
PLA
PLX
STA $EA
STX $EC
LDY #$0002
LDA [$EA],Y
PHA
LDAL L0C0F7C
PHA
PEI $E8
JSL L095230
PLY
PLY
PLY
PLY
PLY
INC $E8
L0953CD LDA $FB
SEC
SBC #$0001
SEC
SBC $E8
BVS L0953DB
EOR #$8000
L0953DB BMI L09538E
PEI $FF
PEI $FD
PEI $F9
JSL L0951DC
PLY
PHA
LDAL L0C0F7C
PHA
PEI $FB
JSL L095230
PLY
PLY
PLY
PLY
PLY
L0953F9 TSC
CLC
ADC #$0008
TCS
PLD
RTL
L095401 PHD
TSC
SEC
SBC #$00EF
TCD
ADC #$00E8
TCS
LDA $F9
SEC
SBC $FD
BVS L095416
EOR #$8000
L095416 BMI L09541E
LDA $FB
CMP $FF
BEQ L09542A
L09541E LDA $FB
SEC
SBC $FF
BVS L095428
EOR #$8000
L095428 BMI L095448
L09542A PEI $F7
PEI $F5
PEI $F9
PEI $FB
PEI $FD
PEI $FF
_SetRect
BCS L095442
LDA #$0000
L095442 STAL L0B0002
BRA L095464
L095448 PEI $F7
PEI $F5
PEI $FD
PEI $FF
PEI $F9
PEI $FB
_SetRect
BCS L095460
LDA #$0000
L095460 STAL L0B0002
L095464 TSC
CLC
ADC #$0006
TCS
PLD
RTL
L09546C PHD
TSC
SEC
SBC #$00F7
TCD
ADC #$0022
TCS
PHA
PEA $0006
PEA $0000
_FlushEvents
BCS L09548A
LDA #$0000
L09548A STAL L0B0002
PLA
LDAL L0C0735
STA $DE
LDA #L0C0CDC
LDX #^L0C0CDC
PHX
PHA
PEA $0000
TDC
CLC
ADC #$0024
PHA
PEA $00AA
JSL L010BC3
PLA
PLA
PLA
_NewRgn
BCS L0954BC
LDA #$0000
L0954BC STAL L0B0002
PLA
PLX
STX $3E
STA $3C
PEA $16A8
JSL L021DFD
PLY
PHX
PHA
_NewRgn
BCS L0954DC
LDA #$0000
L0954DC STAL L0B0002
PLA
PLX
STX $D4
STA $D2
PEA $16A9
JSL L021DFD
PLY
LDA L0B0002
CMP #$0201
BNE L095556
PEA $0200
PEA $0000
PEA $4E20
LDX L0B0044
LDA L0B0042
PHX
PHA
JSL L040000
PLY
PLY
PLY
PLY
PLY
LDX L0B0044
LDA L0B0042
PHX
PHA
JSL L04023C
PLY
PLY
PHX
PHA
_NewRgn
BCS L09552C
LDA #$0000
L09552C STAL L0B0002
PLA
PLX
STX $3E
STA $3C
PHX
PHA
_NewRgn
BCS L095544
LDA #$0000
L095544 STAL L0B0002
PLA
PLX
STX $D4
STA $D2
PEA $16AA
JSL L021DFD
PLY
L095556 PEA $0000
TDC
CLC
ADC #$00D6
PHA
LDAL L0C0F7C
SEC
SBC #$0006
PHA
LDAL L0C0F7A
SEC
SBC #$0003
PHA
LDAL L0C0F80
CLC
ADC #$0008
PHA
LDAL L0C0F7E
PHA
_SetRect
BCS L09558B
LDA #$0000
L09558B STAL L0B0002
PEI $3E
PEI $3C
PEA $0000
TDC
CLC
ADC #$00D6
PHA
_RectRgn
BCS L0955A8
LDA #$0000
L0955A8 STAL L0B0002
PEA $16AD
JSL L021DFD
PLY
PEI $D4
PEI $D2
PEA ^L0C0EE2
PEA L0C0EE2
_RectRgn
BCS L0955CA
LDA #$0000
L0955CA STAL L0B0002
PEA $16AE
JSL L021DFD
PLY
PEI $3E
PEI $3C
PEI $D4
PEI $D2
PEI $3E
PEI $3C
_DiffRgn
BCS L0955EE
LDA #$0000
L0955EE STAL L0B0002
PEA $16AF
JSL L021DFD
PLY
PEA $0000
TDC
CLC
ADC #$0024
PHA
_SetPort
BCS L09560F
LDA #$0000
L09560F STAL L0B0002
PEA ^L0C030E
PEA L0C030E
_SetCursor
BCS L095625
LDA #$0000
L095625 STAL L0B0002
L095629 JSL L06063A
PHA
PEA ^L0C1A84
PEA L0C1A84
PEI $3E
PEI $3C
_PtInRgn
BCS L095644
LDA #$0000
L095644 STAL L0B0002
PLA
TAY
BEQ L095686
LDA #L0C030E
LDX #^L0C030E
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L095662
LDA #$0000
L095662 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L095684
PEA ^L0C030E
PEA L0C030E
_SetCursor
BCS L095680
LDA #$0000
L095680 STAL L0B0002
L095684 BRA L0956AC
L095686 LDX L0B00DF
LDA L0B00DD
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L09569C
LDA #$0000
L09569C STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L0956AC
JSL L0311DD
L0956AC PEA $0004
JSL L060679
PLY
TAY
BNE L0956BA
BRL L095629
L0956BA 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
JSL L04169A
TAY
LDAL L0C1A7A
CMP #$0001
BEQ L09570A
LDA L0B0078
SEC
SBC #$0000
BNE L095700
BRL L095629
L095700 BVS L095705
EOR #$8000
L095705 BMI L09570A
BRL L095629
L09570A LDA L0B0078
CMP #$0000
BEQ L095715
BRL L095966
L095715 PHA
PEA ^L0C1A84
PEA L0C1A84
PEI $3E
PEI $3C
_PtInRgn
BCS L09572C
LDA #$0000
L09572C STAL L0B0002
PLA
TAY
BNE L095737
BRL L095966
L095737 LDA $DE
BEQ L095792
PEA $0000
TDC
CLC
ADC #$00D6
PHA
LDAL L0C0731
PHA
LDAL L0C0733
PHA
LDAL L0C0743
PHA
LDAL L0C0745
PHA
_SetRect
BCS L095764
LDA #$0000
L095764 STAL L0B0002
LDX L0B0030
LDA L0B002E
STA $F2
STX $F4
LDY #$0002
LDA [$F2],Y
TAX
LDA [$F2]
PHX
PHA
PEI $DA
PEI $DC
PEI $D6
PEI $D8
JSL L095311
TAY
TSC
CLC
ADC #$000C
TCS
TYA
STZ $DE
L095792 JSL L095160
STA $EC
JSL L0951A8
SEC
SBC $FF
BVS L0957A4
EOR #$8000
L0957A4 BMI L0957AC
JSL L0951A8
BRA L0957AE
L0957AC LDA $FF
L0957AE SEC
SBC $FD
BEQ L0957D2
BVS L0957B8
EOR #$8000
L0957B8 BPL L0957D2
JSL L0951A8
SEC
SBC $FF
BVS L0957C6
EOR #$8000
L0957C6 BMI L0957CE
JSL L0951A8
BRA L0957D0
L0957CE LDA $FF
L0957D0 BRA L0957D4
L0957D2 LDA $FD
L0957D4 STA $EA
LDA $EC
STA $E8
LDA $EA
STA $E6
L0957DE JSL L06063A
PHA
PEA ^L0C1A84
PEA L0C1A84
PEI $3E
PEI $3C
_PtInRgn
BCS L0957F9
LDA #$0000
L0957F9 STAL L0B0002
PLA
TAY
BEQ L09583B
LDA #L0C030E
LDX #^L0C030E
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L095817
LDA #$0000
L095817 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L095839
PEA ^L0C030E
PEA L0C030E
_SetCursor
BCS L095835
LDA #$0000
L095835 STAL L0B0002
L095839 BRA L095861
L09583B LDX L0B00DF
LDA L0B00DD
PHX
PHA
PHX
PHA
_GetCursorAdr
BCS L095851
LDA #$0000
L095851 STAL L0B0002
PLA
PLX
JSL L010B98
BEQ L095861
JSL L0311DD
L095861 JSL L095160
STA $E2
JSL L0951A8
SEC
SBC $FF
BVS L095873
EOR #$8000
L095873 BMI L09587B
JSL L0951A8
BRA L09587D
L09587B LDA $FF
L09587D SEC
SBC $FD
BEQ L0958A1
BVS L095887
EOR #$8000
L095887 BPL L0958A1
JSL L0951A8
SEC
SBC $FF
BVS L095895
EOR #$8000
L095895 BMI L09589D
JSL L0951A8
BRA L09589F
L09589D LDA $FF
L09589F BRA L0958A3
L0958A1 LDA $FD
L0958A3 STA $E0
LDA $E2
CMP $E8
BNE L0958B1
LDA $E0
CMP $E6
BEQ L0958FE
L0958B1 PEI $E6
PEI $E8
PEI $E0
PEI $E2
PEA $0000
TDC
CLC
ADC #$00D6
PHA
JSL L095401
TAY
TSC
CLC
ADC #$000C
TCS
TYA
LDX L0B0030
LDA L0B002E
STA $F2
STX $F4
LDY #$0002
LDA [$F2],Y
TAX
LDA [$F2]
PHX
PHA
PEI $DA
PEI $DC
PEI $D6
PEI $D8
JSL L095311
TAY
TSC
CLC
ADC #$000C
TCS
TYA
LDA $E2
STA $E8
LDA $E0
STA $E6
L0958FE PHA
PEA $0000
_StillDown
BCS L09590E
LDA #$0000
L09590E STAL L0B0002
PLA
TAY
BEQ L095919
BRL L0957DE
L095919 JSL L031208
PEI $EA
PEI $EC
PEI $E6
PEI $E8
PEA $0000
TDC
CLC
ADC #$00D6
PHA
JSL L095401
TAY
TSC
CLC
ADC #$000C
TCS
TYA
PEI $D8
PEA $0001
JSL L0251CD
PLY
PLY
PEI $D6
PEA $0002
JSL L0251CD
PLY
PLY
PEI $DC
PEA $000A
JSL L0251CD
PLY
PLY
PEI $DA
PEA $000B
JSL L0251CD
PLY
PLY
L095966 PEA ^L0C0CDC
PEA L0C0CDC
_SetPort
BCS L095978
LDA #$0000
L095978 STAL L0B0002
PEI $3E
PEI $3C
_DisposeRgn
BCS L09598C
LDA #$0000
L09598C STAL L0B0002
PEA $16B2
JSL L021DFD
PLY
PEI $D4
PEI $D2
_DisposeRgn
BCS L0959A8
LDA #$0000
L0959A8 STAL L0B0002
PEA $16B3
JSL L021DFD
PLY
LDA L0B0078
SEC
SBC #$0000
BEQ L0959CD
BVS L0959C2
EOR #$8000
L0959C2 BPL L0959CD
LDA L0B0078
PHA
JSL L0607BE
PLY
L0959CD TSC
CLC
ADC #$00D4
TCS
PLD
RTL
Reference in New Issue View Git Blame Copy Permalink