*
* Your tour of the Apple IIgs
*
* (c) 1989, Apple Computer
* (s) 2020, Antoine Vignau
*

	mx	%00
	rel
	lst	off

*-------------------------------

	use	INIT.E
	use	INIT.X
	
	use	4/Event.Macs
	use	4/Line.Macs
	use	4/Locator.Macs
	use	4/Mem.Macs
	use	4/Menu.Macs
	use	4/Misc.Macs
	use	4/NoteSeq.Macs
	use	4/NoteSyn.Macs
	use	4/QD.Macs
	use	4/QDAux.Macs
	use	4/Text.Macs
	use	4/Util.Macs
	
*-------------------------------

L0A0000  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00D1
         TCS
         LDA   #$0006
         STA   $DC
         LDA   #$0004
         STA   $DE
         LDA   #$0100
         STA   $E0
         LDA   #$0006
         STA   $E2
         LDA   #$0100
         STA   $E4
         LDA   #$000F
         STA   $E6
         LDA   #$0100
         STA   $E8
         LDA   #$0014
         STA   $EA
         LDA   #$0100
         STA   $EC
         LDA   #$0019
         STA   $EE
         LDA   #$0100
         STA   $F0
         LDA   #$001A
         STA   $F2
         LDA   #$0001
         STA   $F4
         _TLStartUp
         BCS   L0A0058
         LDA   #$0000
L0A0058  STAL  L0B0002
         LDA   L0B0004
         STA   L0B0066
         _MTStartUp
         BCS   L0A006E
         LDA   #$0000
L0A006E  STAL  L0B0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00DC
         PHA
         _LoadTools
         BCS   L0A0087
         LDA   #$0000
L0A0087  STAL  L0B0002
         PHX
         PHA
         PEA   $0000
         PEA   $0900
         LDA   L0B0066
         PHA
         PEA   $C005
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A00AC
         LDA   #$0000
L0A00AC  STAL  L0B0002
         PLA
         PLX
         STX   $DA
         STA   $D8
         LDY   #$0002
         LDA   [$D8],Y
         TAX
         LDA   [$D8]
         STX   $D6
         STA   $D4
         LDX   $D6
         LDA   $D4
         STX   L0B00CF
         STA   L0B00CD
         LDX   $D6
         LDA   $D4
         PHA
         PEA   $0087
         PEA   $0000
         LDA   L0B0066
         PHA
         _QDStartUp
         BCS   L0A00E7
         LDA   #$0000
L0A00E7  STAL  L0B0002
         _GrafOff
         BCS   L0A00F7
         LDA   #$0000
L0A00F7  STAL  L0B0002
         LDX   $D6
         LDA   $D4
         CLC
         ADC   #$0300
         PHA
         TXA
         ADC   #$0000
         TAX
         PEA   $0000
         PEA   $0000
         PEA   $0140
         PEA   $0000
         PEA   $00C8
         LDA   L0B0066
         PHA
         _EMStartUp
         BCS   L0A0128
         LDA   #$0000
L0A0128  STAL  L0B0002
         LDA   L0B0066
         PHA
         LDX   $D6
         LDA   $D4
         CLC
         ADC   #$0400
         PHA
         TXA
         ADC   #$0000
         TAX
         _MenuStartUp
         BCS   L0A014A
         LDA   #$0000
L0A014A  STAL  L0B0002
         LDA   L0B0066
         PHA
         LDX   $D6
         LDA   $D4
         CLC
         ADC   #$0500
         PHA
         _LEStartUp
         BCS   L0A0167
         LDA   #$0000
L0A0167  STAL  L0B0002
         LDX   $D6
         LDA   $D4
         CLC
         ADC   #$0600
         PHA
         PEA   $0000
         PEA   $0096
         PEA   $0001
         _SeqStartUp
         BCS   L0A0189
         LDA   #$0000
L0A0189  STAL  L0B0002
         PEA   $006E
         JSL   L021DFD
         PLY
         LDX   $D6
         LDA   $D4
         CLC
         ADC   #$0700
         PHA
         TXA
         ADC   #$0000
         TAX
         PLA
         STX   L0B00BF
         STA   L0B00BD
         _StopInts
         BCS   L0A01B6
         LDA   #$0000
L0A01B6  STAL  L0B0002
         PEA   $006F
         JSL   L021DFD
         PLY
         TSC
         CLC
         ADC   #$0029
         TCS
         PLD
         RTL

L0A01CA  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         _SeqShutDown
         BCS   L0A01E1
         LDA   #$0000
L0A01E1  STAL  L0B0002
         _LEShutDown
         BCS   L0A01F1
         LDA   #$0000
L0A01F1  STAL  L0B0002
         _MenuShutDown
         BCS   L0A0201
         LDA   #$0000
L0A0201  STAL  L0B0002
         _EMShutDown
         BCS   L0A0211
         LDA   #$0000
L0A0211  STAL  L0B0002
         _QDShutDown
         BCS   L0A0221
         LDA   #$0000
L0A0221  STAL  L0B0002
         _MTShutDown
         BCS   L0A0231
         LDA   #$0000
L0A0231  STAL  L0B0002
         _TLShutDown
         BCS   L0A0241
         LDA   #$0000
L0A0241  STAL  L0B0002
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0A024D  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         STZ   $F4
         BRL   L0A031D
L0A025D  LDA   $F4
         PHA
         LDA   #$0022
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C1AB2
         LDX   #^L0C1AB2
         JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   $F4
         STA   [$F6]
         PEA   ^L0C2993
         PEA   L0C2993
         LDA   $F4
         PHA
         LDA   #$0022
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C1AB2
         LDX   #^L0C1AB2
         JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         CLC
         ADC   #$0006
         BCC   L0A02B4
         INX
L0A02B4  PHX
         PHA
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A02DF
         LDA   #$0000
L0A02DF  STAL  L0B0002
         LDA   $F4
         PHA
         LDA   #$0022
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C1AB2
         LDX   #^L0C1AB2
         JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         PLA
         PLX
         LDY   #$0004
         PHA
         TXA
         STA   [$F6],Y
         PLA
         LDY   #$0002
         STA   [$F6],Y
         PEA   $0078
         JSL   L021DFD
         PLY
         INC   $F4
L0A031D  LDA   $F4
         SEC
         SBC   #$0032
         BVS   L0A0328
         EOR   #$8000
L0A0328  BMI   L0A032D
         BRL   L0A025D
L0A032D  PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A034E
         LDA   #$0000
L0A034E  STAL  L0B0002
         PLA
         PLX
         STX   L0B002C
         STA   L0B002A
         PEA   $0079
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A0383
         LDA   #$0000
L0A0383  STAL  L0B0002
         PLA
         PLX
         STX   L0B0030
         STA   L0B002E
         PEA   $007A
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A03B8
         LDA   #$0000
L0A03B8  STAL  L0B0002
         PLA
         PLX
         STX   L0B0034
         STA   L0B0032
         PEA   $007B
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A03ED
         LDA   #$0000
L0A03ED  STAL  L0B0002
         PLA
         PLX
         STX   L0B0038
         STA   L0B0036
         PEA   $007C
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A0422
         LDA   #$0000
L0A0422  STAL  L0B0002
         PLA
         PLX
         STX   L0B003C
         STA   L0B003A
         PEA   $007D
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A0457
         LDA   #$0000
L0A0457  STAL  L0B0002
         PLA
         PLX
         STX   L0B0040
         STA   L0B003E
         PEA   $007E
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A048C
         LDA   #$0000
L0A048C  STAL  L0B0002
         PLA
         PLX
         STX   L0B0044
         STA   L0B0042
         PEA   $007F
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A04C1
         LDA   #$0000
L0A04C1  STAL  L0B0002
         PLA
         PLX
         STX   L0B0048
         STA   L0B0046
         PEA   $0080
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A04F6
         LDA   #$0000
L0A04F6  STAL  L0B0002
         PLA
         PLX
         STX   L0B004C
         STA   L0B004A
         PEA   $0081
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A052B
         LDA   #$0000
L0A052B  STAL  L0B0002
         PLA
         PLX
         STX   L0B0050
         STA   L0B004E
         PEA   $0082
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A0560
         LDA   #$0000
L0A0560  STAL  L0B0002
         PLA
         PLX
         STX   L0B0054
         STA   L0B0052
         PEA   $0083
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $000C
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A0595
         LDA   #$0000
L0A0595  STAL  L0B0002
         PLA
         PLX
         STX   L0B0058
         STA   L0B0056
         PEA   $0084
         JSL   L021DFD
         PLY
         PHX
         PHA
         PEA   $0000
         PEA   $0001
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A05CA
         LDA   #$0000
L0A05CA  STAL  L0B0002
         PLA
         PLX
         STX   L0B00F1
         STA   L0B00EF
         PEA   $0085
         JSL   L021DFD
         PLY
         TSC
         CLC
         ADC   #$0008
         TCS
         PLD
         RTL

L0A05E6  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00E7
         TCS
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0280
         PEA   $00C8
         _SetRect
         BCS   L0A0612
         LDA   #$0000
L0A0612  STAL  L0B0002
         PEA   ^L0C03BB
         PEA   L0C03BB
         JSL   L0A11C3
         PLY
         PLY
         LDX   #$0000
         LDA   #$C030
         STX   L0B00B5
         STA   L0B00B3
         STZ   L0B006A
         STZ   L0B006C
         STZ   L0B0078
         STZ   L0B007A
         PEA   ^L0B0070
         PEA   L0B0070
         PEA   ^L0B0072
         PEA   L0B0072
         JSL   L070547
         PLY
         PLY
         PLY
         PLY
         LDX   #$0009
         LDA   #$EB10
         PHX
         PHA
         PHX
         PHA
         _TotalMem
         BCS   L0A0664
         LDA   #$0000
L0A0664  STAL  L0B0002
         PLA
         PLX
         JSL   L010B98
         BEQ   L0A0672
         BCS   L0A0677
L0A0672  LDA   #$0000
         BRA   L0A067A
L0A0677  LDA   #$0001
L0A067A  STA   L0B00A6
         STZ   L0B00A8
         STZ   L0B00AA
         STZ   L0B007C
         STZ   L0B007E
         STZ   L0B0084
         STZ   L0B008C
         STZ   L0B0088
         LDA   #$0001
         STA   L0B009A
         STZ   L0B00A0
         STZ   L0B00A2
         LDA   #$0000
         STAL  L0C1AA4
         LDA   #$0001
         STAL  L0C1AA2
         LDA   #$0001
         STAL  L0C1A9C
         STZ   L0B008E
         LDA   #$0001
         STA   L0B0096
         LDA   #$0001
         STA   L0B009C
         STZ   L0B008A
         LDA   #$0000
         STAL  L0C1AB0
         STZ   L0B00B7
         PEA   ^L0C2994
         PEA   L0C2994
         PEA   ^L0C10BE
         PEA   L0C10BE
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         STZ   L0B0082
         STZ   L0B00AE
         PEA   ^L0C2995
         PEA   L0C2995
         PEA   ^L0C1188
         PEA   L0C1188
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         STZ   $F4
         BRA   L0A0749
L0A0701  LDA   $F4
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C072F
         LDX   #^L0C072F
         JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   #$0000
         STA   [$F6]
         PEA   ^L0C2996
         PEA   L0C2996
         LDA   $F4
         PHA
         LDA   #$0033
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C0759
         LDX   #^L0C0759
         JSL   L010922
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         INC   $F4
L0A0749  LDA   $F4
         CMP   #$0015
         BCC   L0A0701
         STZ   $F4
         BRA   L0A079A
L0A0754  STZ   $F2
         BRA   L0A0791
L0A0758  LDA   $F2
         LDX   #$0000
         PHX
         PHA
         LDA   $F4
         PHA
         LDA   #$0006
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C0FA2
         LDX   #^L0C0FA2
         JSL   L010922
         PLA
         PLX
         JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   #$0000
         SEP   #$20
         STA   [$F6]
         REP   #$20
         INC   $F2
L0A0791  LDA   $F2
         CMP   #$0006
         BCC   L0A0758
         INC   $F4
L0A079A  LDA   $F4
         CMP   #$0005
         BCC   L0A0754
         PEA   ^L0C0F7A
         PEA   L0C0F7A
         PEA   $0000
         PEA   $0000
         PEA   $0280
         PEA   $00C8
         _SetRect
         BCS   L0A07BF
         LDA   #$0000
L0A07BF  STAL  L0B0002
         LDA   #$0000
         STAL  L0C0FEE
         PEA   $0087
         _SetMasterSCB
         BCS   L0A07D9
         LDA   #$0000
L0A07D9  STAL  L0B0002
         PEA   ^L0C0CDC
         PEA   L0C0CDC
         _OpenPort
         BCS   L0A07EF
         LDA   #$0000
L0A07EF  STAL  L0B0002
         PEA   ^L0C0CDC
         PEA   L0C0CDC
         _GetPortLoc
         BCS   L0A0805
         LDA   #$0000
L0A0805  STAL  L0B0002
         PEA   ^L0C0CDC
         PEA   L0C0CDC
         _SetPort
         BCS   L0A081B
         LDA   #$0000
L0A081B  STAL  L0B0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         _ClipRect
         BCS   L0A0834
         LDA   #$0000
L0A0834  STAL  L0B0002
         PEA   ^L0C0C32
         PEA   L0C0C32
         _OpenPort
         BCS   L0A084A
         LDA   #$0000
L0A084A  STAL  L0B0002
         PEA   ^L0C0C32
         PEA   L0C0C32
         _GetPortLoc
         BCS   L0A0860
         LDA   #$0000
L0A0860  STAL  L0B0002
         PEA   ^L0C0C32
         PEA   L0C0C32
         _SetPort
         BCS   L0A0876
         LDA   #$0000
L0A0876  STAL  L0B0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         _ClipRect
         BCS   L0A088F
         LDA   #$0000
L0A088F  STAL  L0B0002
         PEA   ^L0C0B88
         PEA   L0C0B88
         _OpenPort
         BCS   L0A08A5
         LDA   #$0000
L0A08A5  STAL  L0B0002
         PEA   ^L0C0B88
         PEA   L0C0B88
         _GetPortLoc
         BCS   L0A08BB
         LDA   #$0000
L0A08BB  STAL  L0B0002
         PEA   ^L0C0B88
         PEA   L0C0B88
         _SetPort
         BCS   L0A08D1
         LDA   #$0000
L0A08D1  STAL  L0B0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00EA
         PHA
         _ClipRect
         BCS   L0A08EA
         LDA   #$0000
L0A08EA  STAL  L0B0002
         PEA   ^L0C0CDC
         PEA   L0C0CDC
         _SetPort
         BCS   L0A0900
         LDA   #$0000
L0A0900  STAL  L0B0002
         PEA   $0003
         _SetForeColor
         BCS   L0A0913
         LDA   #$0000
L0A0913  STAL  L0B0002
         PEA   $0000
         _SetBackColor
         BCS   L0A0926
         LDA   #$0000
L0A0926  STAL  L0B0002
         PEA   $0004
         _SetTextMode
         BCS   L0A0939
         LDA   #$0000
L0A0939  STAL  L0B0002
         PEA   $0003
         _SetSolidPenPat
         BCS   L0A094C
         LDA   #$0000
L0A094C  STAL  L0B0002
         PEA   $0000
         _SetSolidBackPat
         BCS   L0A095F
         LDA   #$0000
L0A095F  STAL  L0B0002
         STZ   L0B00FB
         STZ   L0B00FD
         LDA   #$000C
         STA   L0B0101
         LDA   #$1000
         STA   L0B0105
         STZ   L0B0107
         LDA   #$0080
         STA   L0B0109
         STZ   L0B010B
         LDA   #L0C24F4
         LDX   #^L0C24F4
         STX   L0B0117
         STA   L0B0115
         LDA   #L0C03B2
         LDX   #^L0C03B2
         STX   L0B011B
         STA   L0B0119
         STZ   $F4
         BRA   L0A09CF
L0A099D  PEA   $0008
         PEI   $F4
         PEA   $0000
         _SetColorEntry
         BCS   L0A09B1
         LDA   #$0000
L0A09B1  STAL  L0B0002
         PEA   $0007
         PEI   $F4
         PEA   $0000
         _SetColorEntry
         BCS   L0A09C9
         LDA   #$0000
L0A09C9  STAL  L0B0002
         INC   $F4
L0A09CF  LDA   $F4
         CMP   #$000F
         BEQ   L0A099D
         BCC   L0A099D
         TSC
         CLC
         ADC   #$0013
         TCS
         PLD
         RTL

L0A09E0  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F3
         TCS
         LDA   #L0C002E
         LDX   #^L0C002E
         STX   L0B00DB
         STA   L0B00D9
         LDA   #L0C00E6
         LDX   #^L0C00E6
         STX   L0B00DF
         STA   L0B00DD
         PEA   $0008
         _SetMasterSCB
         BCS   L0A0A12
         LDA   #$0000
L0A0A12  STAL  L0B0002
         JSL   L03117F
         _InitCursor
         BCS   L0A0A26
         LDA   #$0000
L0A0A26  STAL  L0B0002
         LDA   #$0001
         STA   L0B0092
         LDA   #$0001
         STA   L0B0094
         JSL   L031208
         PEA   $0087
         _SetMasterSCB
         BCS   L0A0A49
         LDA   #$0000
L0A0A49  STAL  L0B0002
         LDX   #$00E0
         LDA   #$1E98
         STX   L0B00D7
         STA   L0B00D5
         JSL   L06204F
         TSC
         CLC
         ADC   #$0007
         TCS
         PLD
         RTL

L0A0A65  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00EE
         TCS
         LDX   #$0000
         LDA   #$0026
         STX   $F2
         STA   $F0
         PHX
         PHA
         PEI   $F2
         PEI   $F0
         LDA   L0B0066
         PHA
         PEA   $0200
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A0A99
         LDA   #$0000
L0A0A99  STAL  L0B0002
         PLA
         PLX
         STX   L0B00E7
         STA   L0B00E5
         LDX   L0B00E7
         LDA   L0B00E5
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         TAX
         LDA   [$F6]
         STA   $F6
         STX   $F8
         LDA   #$0008
         STA   [$F6]
         STZ   $F4
         BRL   L0A0B4B
L0A0AC5  PEA   ^L0C2997
         PEA   L0C2997
         LDA   $F4
         PHA
         LDA   #$000A
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C2416
         LDX   #^L0C2416
         JSL   L010922
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         LDA   $F4
         PHA
         LDA   #$0040
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C2156
         LDX   #^L0C2156
         JSL   L010922
         LDA   $F4
         ASL
         ASL
         LDX   #$0000
         PHX
         PHA
         LDX   L0B00E7
         LDA   L0B00E5
         STA   $F6
         STX   $F8
         LDY   #$0002
         LDA   [$F6],Y
         TAX
         LDA   [$F6]
         STA   $F6
         STX   $F8
         LDX   $F8
         LDA   #$0002
         CLC
         ADC   $F6
         BCC   L0A0B33
         INX
L0A0B33  JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         PLA
         PLX
         LDY   #$0002
         PHA
         TXA
         STA   [$F6],Y
         PLA
         STA   [$F6]
         INC   $F4
L0A0B4B  LDA   $F4
         SEC
         SBC   #$0008
         BVS   L0A0B56
         EOR   #$8000
L0A0B56  BMI   L0A0B5B
         BRL   L0A0AC5
L0A0B5B  LDX   L0B00E7
         LDA   L0B00E5
         PHX
         PHA
         _SetInstTable
         BCS   L0A0B6F
         LDA   #$0000
L0A0B6F  STAL  L0B0002
         STZ   $F4
         BRA   L0A0B90
L0A0B77  PEA   $0064
         PEI   $F4
         PEI   $F4
         _SetTrkInfo
         BCS   L0A0B8A
         LDA   #$0000
L0A0B8A  STAL  L0B0002
         INC   $F4
L0A0B90  LDA   $F4
         SEC
         SBC   #$0008
         BVS   L0A0B9B
         EOR   #$8000
L0A0B9B  BPL   L0A0B77
         STZ   $F4
         BRA   L0A0BDF
L0A0BA1  PEA   ^L0C2998
         PEA   L0C2998
         LDA   $F4
         PHA
         LDA   #$000C
         CLC
         JSL   L010AAE
         PLA
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C2356
         LDX   #^L0C2356
         JSL   L010922
         PLA
         PLX
         STA   $F6
         STX   $F8
         LDA   $F6
         LDX   $F8
         CLC
         ADC   #$0002
         BCC   L0A0BD3
         INX
L0A0BD3  PHX
         PHA
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         INC   $F4
L0A0BDF  LDA   $F4
         SEC
         SBC   #$000C
         BVS   L0A0BEA
         EOR   #$8000
L0A0BEA  BPL   L0A0BA1
         STZ   L0B00E1
         STZ   L0B00E3
         TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L0A0BFA  PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00D5
         TCS
         PEA   ^L0C2999
         PEA   L0C2999
         JSL   L040E53
         PLY
         PLY
         SEC
         SBC   #$0000
         BVS   L0A0C1A
         EOR   #$8000
L0A0C1A  BPL   L0A0C1F
         BRL   L0A0CD0
L0A0C1F  PEA   ^L0C29A6
         PEA   L0C29A6
         PEA   $0000
         TDC
         CLC
         ADC   #$00D8
         PHA
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         LDA   #$0002
         SEP   #$20
         STA   $D7
         REP   #$20
         LDA   #$0000
         STA   $F0
         LDX   #$0000
         TDC
         CLC
         ADC   #$00D7
         STX   $F4
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F0
         PHA
         PEA   $0009
         LDX   #$0000
         JSL   GSOS2
         BCS   L0A0C68
         LDA   #$0000
L0A0C68  STAL  L0B0002
         PEA   ^L0C29A9
         PEA   L0C29A9
         JSL   L040E53
         PLY
         PLY
         SEC
         SBC   #$0000
         BVS   L0A0C81
         EOR   #$8000
L0A0C81  BMI   L0A0CD0
         PEA   ^L0C29B6
         PEA   L0C29B6
         PEA   $0000
         TDC
         CLC
         ADC   #$00D8
         PHA
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         LDA   #$0002
         SEP   #$20
         STA   $D7
         REP   #$20
         LDA   #$0000
         STA   $F0
         LDX   #$0000
         TDC
         CLC
         ADC   #$00D7
         STX   $F4
         STA   $F2
         PEA   $0000
         TDC
         CLC
         ADC   #$00F0
         PHA
         PEA   $0009
         LDX   #$0000
         JSL   GSOS2
         BCS   L0A0CCC
         LDA   #$0000
L0A0CCC  STAL  L0B0002
L0A0CD0  PEA   ^L0C29B9
         PEA   L0C29B9
         JSL   L0A0F0C
         PLY
         PLY
         TSC
         CLC
         ADC   #$0025
         TCS
         PLD
         RTL

L0A0CE4  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         JSL   L0A09E0
         JSL   L0A024D
         JSL   L0A05E6
         JSL   L0A0A65
         JSL   L0A0BFA
         PEA   ^L0C29BE
         PEA   L0C29BE
         PEA   ^L0C1220
         PEA   L0C1220
         JSL   L0110F7
         PLY
         PLY
         PLY
         PLY
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0A0D1F  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F2
         TCS
         PEA   $0006
         _WriteChar
         BCS   L0A0D39
         LDA   #$0000
L0A0D39  STAL  L0B0002
         PEA   ^L0C29C3
         PEA   L0C29C3
         _WriteCString
         BCS   L0A0D4F
         LDA   #$0000
L0A0D4F  STAL  L0B0002
         PEA   ^L0C29CE
         PEA   L0C29CE
         _WriteCString
         BCS   L0A0D65
         LDA   #$0000
L0A0D65  STAL  L0B0002
         LDX   #$0007
         LDA   #$D000
         PHX
         PHA
         PHX
         PHA
         _TotalMem
         BCS   L0A0D7F
         LDA   #$0000
L0A0D7F  STAL  L0B0002
         PLA
         PLX
         JSL   L010B98
         BNE   L0A0D8E
         BRL   L0A0E7D
L0A0D8E  BCS   L0A0D93
         BRL   L0A0E7D
L0A0D93  PEA   ^L0C2A0D
         PEA   L0C2A0D
         _WriteCString
         BCS   L0A0DA5
         LDA   #$0000
L0A0DA5  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0DB8
         LDA   #$0000
L0A0DB8  STAL  L0B0002
         PEA   ^L0C2A16
         PEA   L0C2A16
         _WriteCString
         BCS   L0A0DCE
         LDA   #$0000
L0A0DCE  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0DE1
         LDA   #$0000
L0A0DE1  STAL  L0B0002
         PEA   ^L0C2A5E
         PEA   L0C2A5E
         _WriteCString
         BCS   L0A0DF7
         LDA   #$0000
L0A0DF7  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0E0A
         LDA   #$0000
L0A0E0A  STAL  L0B0002
         PEA   ^L0C2AA8
         PEA   L0C2AA8
         _WriteCString
         BCS   L0A0E20
         LDA   #$0000
L0A0E20  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0E33
         LDA   #$0000
L0A0E33  STAL  L0B0002
         PEA   ^L0C2AF3
         PEA   L0C2AF3
         _WriteCString
         BCS   L0A0E49
         LDA   #$0000
L0A0E49  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0E5C
         LDA   #$0000
L0A0E5C  STAL  L0B0002
         PEA   ^L0C2B3A
         PEA   L0C2B3A
         _WriteCString
         BCS   L0A0E72
         LDA   #$0000
L0A0E72  STAL  L0B0002
L0A0E76  LDA   #$0001
         BEQ   L0A0E7D
         BRA   L0A0E76
L0A0E7D  JSL   L0A0000
         STZ   $F4
         BRA   L0A0EB7
L0A0E85  PEA   $0008
         PEI   $F4
         PEA   $0000
         _SetColorEntry
         BCS   L0A0E99
         LDA   #$0000
L0A0E99  STAL  L0B0002
         PEA   $0007
         PEI   $F4
         PEA   $0000
         _SetColorEntry
         BCS   L0A0EB1
         LDA   #$0000
L0A0EB1  STAL  L0B0002
         INC   $F4
L0A0EB7  LDA   $F4
         SEC
         SBC   #$000F
         BEQ   L0A0E85
         BVS   L0A0EC4
         EOR   #$8000
L0A0EC4  BPL   L0A0E85
         PEA   $0001
         JSL   L030F81
         PLY
         TSC
         CLC
         ADC   #$0008
         TCS
         PLD
         RTL

L0A0ED6  ENT
         PHD
         TSC
         SEC
         SBC   #$00FB
         TCD
         ADC   #$00F4
         TCS
         _GrafOff
         BCS   L0A0EED
         LDA   #$0000
L0A0EED  STAL  L0B0002
         JSL   L0620B1
         JSL   L0A01CA
         STZ   L0B0000
         PEA   $0000
         JSL   L010B7A
         PLY
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

L0A0F0C  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00B2
         TCS
         STZ   $BE
         STZ   $BC
         PEI   $FF
         PEI   $FD
         PEA   $0000
         TDC
         CLC
         ADC   #$00C0
         PHA
         JSL   L040390
         PLY
         PLY
         PLY
         PLY
         TAY
         BEQ   L0A0F36
         BRL   L0A0FD8
L0A0F36  _GrafOff
         BCS   L0A0F42
         LDA   #$0000
L0A0F42  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0F55
         LDA   #$0000
L0A0F55  STAL  L0B0002
         PEA   $000A
         _WriteChar
         BCS   L0A0F68
         LDA   #$0000
L0A0F68  STAL  L0B0002
         PEA   $000A
         _WriteChar
         BCS   L0A0F7B
         LDA   #$0000
L0A0F7B  STAL  L0B0002
         PEA   ^L0C2B68
         PEA   L0C2B68
         _WriteCString
         BCS   L0A0F91
         LDA   #$0000
L0A0F91  STAL  L0B0002
         PEI   $FF
         PEI   $FD
         _WriteCString
         BCS   L0A0FA5
         LDA   #$0000
L0A0FA5  STAL  L0B0002
         PEA   $000D
         _WriteChar
         BCS   L0A0FB8
         LDA   #$0000
L0A0FB8  STAL  L0B0002
         PEA   $000A
         _WriteChar
         BCS   L0A0FCB
         LDA   #$0000
L0A0FCB  STAL  L0B0002
         LDA   #$0000
         BRL   L0A10E8
         BRL   L0A10E8
L0A0FD8  LDAL  L0C0FEE
         STA   $B4
         PEA   $0000
         TDC
         CLC
         ADC   #$00B4
         PHA
         PEA   $0019
         LDX   #$0000
         JSL   GSOS2
         BCS   L0A0FF6
         LDA   #$0000
L0A0FF6  STAL  L0B0002
         PHX
         PHA
         PEA   $0000
         PEA   $0800
         LDA   L0B0066
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         BCS   L0A101B
         LDA   #$0000
L0A101B  STAL  L0B0002
         PLA
         PLX
         STX   L0B0028
         STA   L0B0026
         PEA   $0028
         JSL   L021DFD
         PLY
         LDX   L0B0028
         LDA   L0B0026
         PHX
         PHA
         _HLock
         BCS   L0A1043
         LDA   #$0000
L0A1043  STAL  L0B0002
         PEA   $0000
         TDC
         CLC
         ADC   #$00BE
         PHA
         LDX   L0B0028
         LDA   L0B0026
         STA   $F2
         STX   $F4
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         PHX
         PHA
         PEA   $0000
         JSL   L0402DB
         PLY
         PLY
         PLY
         PLY
         PLY
         LDX   $B8
         LDA   $B6
         PHA
         LDX   L0B0028
         LDA   L0B0026
         STA   $F2
         STX   $F4
         LDY   #$0002
         LDA   [$F2],Y
         TAX
         LDA   [$F2]
         PHX
         PHA
         JSL   L0A10F2
         PLY
         PLY
         PLY
         LDX   L0B0028
         LDA   L0B0026
         PHX
         PHA
         _HUnlock
         BCS   L0A10A4
         LDA   #$0000
L0A10A4  STAL  L0B0002
         PEA   $0032
         JSL   L021DFD
         PLY
         PEI   $B8
         PEI   $B6
         LDX   L0B0028
         LDA   L0B0026
         PHX
         PHA
         _SetHandleSize
         BCS   L0A10C8
         LDA   #$0000
L0A10C8  STAL  L0B0002
         PEA   ^L0C0FEE
         PEA   L0C0FEE
         PEA   $0014
         LDX   #$0000
         JSL   GSOS2
         BCS   L0A10E1
         LDA   #$0000
L0A10E1  STAL  L0B0002
         LDA   #$0001
L0A10E8  TAY
         TSC
         CLC
         ADC   #$0044
         TCS
         TYA
         PLD
         RTL

L0A10F2  PHD
         TSC
         SEC
         SBC   #$00F5
         TCD
         ADC   #$00E8
         TCS
         STZ   $EC
         LDA   #$0001
         STA   $EE
L0A1104  LDA   $FF
         SEC
         SBC   #$0002
         SEC
         SBC   $EC
         BNE   L0A1112
         BRL   L0A11BB
L0A1112  BVS   L0A1117
         EOR   #$8000
L0A1117  BMI   L0A111C
         BRL   L0A11BB
L0A111C  LDA   $EE
         SEC
         SBC   #$0006
         BEQ   L0A112E
         BVS   L0A1129
         EOR   #$8000
L0A1129  BPL   L0A112E
         BRL   L0A11BB
L0A112E  LDA   $EE
         INC   $EE
         ASL
         LDX   #$0000
         PHX
         PHA
         LDA   #L0C1A8A
         LDX   #^L0C1A8A
         JSL   L010922
         PLA
         PLX
         STA   $F0
         STX   $F2
         LDA   $EC
         STA   [$F0]
         LDA   $EC
         CLC
         ADC   #$0002
         STA   $EC
L0A1154  LDA   $EC
         SEC
         SBC   #$0003
         LDX   #$0000
         TAY
         BPL   L0A1161
         DEX
L0A1161  PHX
         PHA
         LDX   $FD
         LDA   $FB
         JSL   L010922
         PLA
         PLX
         STA   $F0
         STX   $F2
         LDA   [$F0]
         AND   #$00FF
         CMP   #$0025
         BNE   L0A11A2
         LDA   $EC
         SEC
         SBC   #$0002
         LDX   #$0000
         TAY
         BPL   L0A1188
         DEX
L0A1188  PHX
         PHA
         LDX   $FD
         LDA   $FB
         JSL   L010922
         PLA
         PLX
         STA   $F0
         STX   $F2
         LDA   [$F0]
         AND   #$00FF
         CMP   #$0077
         BEQ   L0A11B8
L0A11A2  LDA   $FF
         SEC
         SBC   #$0002
         SEC
         SBC   $EC
         BEQ   L0A11B8
         BVS   L0A11B2
         EOR   #$8000
L0A11B2  BPL   L0A11B8
         INC   $EC
         BRA   L0A1154
L0A11B8  BRL   L0A1104
L0A11BB  TSC
         CLC
         ADC   #$000C
         TCS
         PLD
         RTL

L0A11C3  PHD
         TSC
         SEC
         SBC   #$00F7
         TCD
         ADC   #$00F0
         TCS
         PEI   $FF
         PEI   $FD
         JSL   L020134
         PLY
         PLY
         PEA   ^L02277B
         PEA   L02277B
         PEA   ^L0C2B84
         PEA   L0C2B84
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02279E
         PEA   L02279E
         PEA   ^L0C2B8C
         PEA   L0C2B8C
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0227F2
         PEA   L0227F2
         PEA   ^L0C2B93
         PEA   L0C2B93
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022815
         PEA   L022815
         PEA   ^L0C2B95
         PEA   L0C2B95
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02286B
         PEA   L02286B
         PEA   ^L0C2B97
         PEA   L0C2B97
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02299F
         PEA   L02299F
         PEA   ^L0C2B99
         PEA   L0C2B99
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0229C2
         PEA   L0229C2
         PEA   ^L0C2B9B
         PEA   L0C2B9B
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0229DD
         PEA   L0229DD
         PEA   ^L0C2B9D
         PEA   L0C2B9D
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022A0A
         PEA   L022A0A
         PEA   ^L0C2BA0
         PEA   L0C2BA0
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022A3C
         PEA   L022A3C
         PEA   ^L0C2BA3
         PEA   L0C2BA3
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022A7B
         PEA   L022A7B
         PEA   ^L0C2BA7
         PEA   L0C2BA7
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022A92
         PEA   L022A92
         PEA   ^L0C2BAD
         PEA   L0C2BAD
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022B01
         PEA   L022B01
         PEA   ^L0C2BB4
         PEA   L0C2BB4
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022B24
         PEA   L022B24
         PEA   ^L0C2BBB
         PEA   L0C2BBB
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022BA2
         PEA   L022BA2
         PEA   ^L0C2BC0
         PEA   L0C2BC0
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022BCF
         PEA   L022BCF
         PEA   ^L0C2BC4
         PEA   L0C2BC4
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022C43
         PEA   L022C43
         PEA   ^L0C2BC9
         PEA   L0C2BC9
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022C70
         PEA   L022C70
         PEA   ^L0C2BCE
         PEA   L0C2BCE
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022C9D
         PEA   L022C9D
         PEA   ^L0C2BD3
         PEA   L0C2BD3
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022CCA
         PEA   L022CCA
         PEA   ^L0C2BDC
         PEA   L0C2BDC
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022CF7
         PEA   L022CF7
         PEA   ^L0C2BE3
         PEA   L0C2BE3
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022D28
         PEA   L022D28
         PEA   ^L0C2BE9
         PEA   L0C2BE9
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022D54
         PEA   L022D54
         PEA   ^L0C2BEE
         PEA   L0C2BEE
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022D81
         PEA   L022D81
         PEA   ^L0C2BF4
         PEA   L0C2BF4
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022DAD
         PEA   L022DAD
         PEA   ^L0C2BF9
         PEA   L0C2BF9
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022DC8
         PEA   L022DC8
         PEA   ^L0C2C01
         PEA   L0C2C01
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022DF4
         PEA   L022DF4
         PEA   ^L0C2C06
         PEA   L0C2C06
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022F06
         PEA   L022F06
         PEA   ^L0C2C0A
         PEA   L0C2C0A
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022F1D
         PEA   L022F1D
         PEA   ^L0C2C0F
         PEA   L0C2C0F
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023868
         PEA   L023868
         PEA   ^L0C2C14
         PEA   L0C2C14
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022FB5
         PEA   L022FB5
         PEA   ^L0C2C17
         PEA   L0C2C17
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0230C9
         PEA   L0230C9
         PEA   ^L0C2C1B
         PEA   L0C2C1B
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02324E
         PEA   L02324E
         PEA   ^L0C2C20
         PEA   L0C2C20
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023271
         PEA   L023271
         PEA   ^L0C2C24
         PEA   L0C2C24
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02333A
         PEA   L02333A
         PEA   ^L0C2C28
         PEA   L0C2C28
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023369
         PEA   L023369
         PEA   ^L0C2C2D
         PEA   L0C2C2D
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02345E
         PEA   L02345E
         PEA   ^L0C2C2F
         PEA   L0C2C2F
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023548
         PEA   L023548
         PEA   ^L0C2C33
         PEA   L0C2C33
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023591
         PEA   L023591
         PEA   ^L0C2C3B
         PEA   L0C2C3B
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023B3A
         PEA   L023B3A
         PEA   ^L0C2C40
         PEA   L0C2C40
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L022768
         PEA   L022768
         PEA   ^L0C2C44
         PEA   L0C2C44
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0236A5
         PEA   L0236A5
         PEA   ^L0C2C4A
         PEA   L0C2C4A
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023644
         PEA   L023644
         PEA   ^L0C2C51
         PEA   L0C2C51
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023706
         PEA   L023706
         PEA   ^L0C2C58
         PEA   L0C2C58
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02374F
         PEA   L02374F
         PEA   ^L0C2C60
         PEA   L0C2C60
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0237D0
         PEA   L0237D0
         PEA   ^L0C2C67
         PEA   L0C2C67
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02337C
         PEA   L02337C
         PEA   ^L0C2C6F
         PEA   L0C2C6F
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023841
         PEA   L023841
         PEA   ^L0C2C77
         PEA   L0C2C77
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023868
         PEA   L023868
         PEA   ^L0C2C7C
         PEA   L0C2C7C
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0237F3
         PEA   L0237F3
         PEA   ^L0C2C83
         PEA   L0C2C83
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02381A
         PEA   L02381A
         PEA   ^L0C2C88
         PEA   L0C2C88
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02388F
         PEA   L02388F
         PEA   ^L0C2C8F
         PEA   L0C2C8F
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L02399F
         PEA   L02399F
         PEA   ^L0C2C9A
         PEA   L0C2C9A
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0239C6
         PEA   L0239C6
         PEA   ^L0C2CA4
         PEA   L0C2CA4
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L0239ED
         PEA   L0239ED
         PEA   ^L0C2CAE
         PEA   L0C2CAE
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023A14
         PEA   L023A14
         PEA   ^L0C2CB8
         PEA   L0C2CB8
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023B17
         PEA   L023B17
         PEA   ^L0C2CC3
         PEA   L0C2CC3
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023B5D
         PEA   L023B5D
         PEA   ^L0C2CCC
         PEA   L0C2CCC
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         PEA   ^L023BBA
         PEA   L023BBA
         PEA   ^L0C2CD3
         PEA   L0C2CD3
         PEI   $FF
         PEI   $FD
         JSL   L020276
         TAY
         TSC
         CLC
         ADC   #$000C
         TCS
         TYA
         TSC
         CLC
         ADC   #$0006
         TCS
         PLD
         RTL

