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

