
*---------------------------------------------------------*
*     Disassembled with The Flaming Bird Disassembler     *
*    (c) Phoenix corp. 1992,93  -  All rights reserved    *
*---------------------------------------------------------*

	mx	%00
	rel
	lst	off

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

	use	4/Event.Macs
	use	4/Misc.Macs
	use	4/Util.Macs

	use	TEXT.E
	
*-----------------------

L030000  DW    $0000
L030002  DW    $0000
L030004  DW    $0000

L030006  ENT
         PHB
         PEA   $0000
         PLB
         PLB
         PHP
         SEP   #$30
         LDA   #$80
         TRB   $C029
         STA   $C001
         STA   $C054
         STA   $C051
         STA   $C00D
         JSL   L030035
         DB    $00
         DB    $17
         DB    $00
         DB    $4F
         JSL   L0300D1
         LDA   #$DF
         STAL  L030000
         PLP
         PLB
         RTL

L030035  ENT
         PHP
         REP   #$30
         LDA   $03,S
         STA   $01
         LDA   $02,S
         INC
         STA   $00
         SEP   #$30
         LDY   #$01
         LDA   [$00]
         STA   $20
         LDA   [$00],Y
         INC
         STA   $21
         SEC
         SBC   $20
         STA   $24
         INY
         LDA   [$00],Y
         STA   $22
         INY
         LDA   [$00],Y
         INC
         STA   $23
         SEC
         SBC   $22
         STA   $25
         REP   #$30
         LDA   $00
         CLC
         ADC   #$0003
         STA   $02,S
         PLP
         RTL

L03006F  ENT
         PHP
         SEP   #$20
         REP   #$10
         STA   $26
         REP   #$30
         AND   #$00FF
         PHA
         AND   #$0007
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         ASL
         STA   $2E
         PLA
         LSR
         LSR
         LSR
         TAX
         LDA   #$0000
         CLC
L030091  DEX
         BMI   L030099
         ADC   #$0028
         BCC   L030091
L030099  ADC   $2E
         ADC   #$0400
         LDX   #$0000	; AV 20XX - was #$00E0 originally
         STX   $29
         STA   $28
         PLP
L0300A6  RTL

L0300A7  PHP
         SEP   #$30
         PEI   $27
         LDA   $20
         STA   $26
         LDA   $22
         STA   $27
         LDX   $24
L0300B6  PHX
         LDA   $26
         JSL   L03006F
         JSL   L0300F7
         INC   $26
         PLX
         DEX
         BNE   L0300B6
         PLA
         STA   $27
         PLA
         JSL   L03006F
         PLP
         RTL

L0300D1  ENT
         PHP
         SEP   #$30
         JSL   L0300A7
         LDX   $22
         LDY   $20
         JSL   L0300E2
         PLP
         RTL

L0300E2  ENT
         PHP
         SEP   #$30
         STX   $27
         TYA
         JSL   L03006F
         PLP
         RTL

L0300EE  ENT
         PHP
         SEP   #$30
         LDX   $27
         LDY   $26
         PLP
         RTL

L0300F7  ENT
         PHP
         SEP   #$30
         LDY   $27
         LDA   #$A0
L0300FE  JSL   L030109
         INY
         CPY   $23
         BCC   L0300FE
         PLP
         RTL

L030109  PHP
         SEP   #$30
         PHY
         PHA
         TYA
         STAL  $E0C054
         LSR
         BCS   L03011A
         STAL  $E0C055
L03011A  TAY
         LDAL  L030591
         BEQ   L03012F
         PLA
         AND   #$7F
         CMP   #$40
         BCC   L030130
         CMP   #$60
         BCS   L030130
         AND   #$1F
         PHA
L03012F  PLA
L030130  STA   [$28],Y
         STAL  $E0C054
         PLY
         PLP
         RTL

L030139  ENT
         PHP
         SEP   #$30
         PEI   $26
         LDA   $20
L030140  STA   $26
         JSL   L03006F
         LDA   $28
         STA   $2B
         LDA   $29
         STA   $2C
         LDA   $2A
         STA   $2D
         LDA   $26
         INC
         JSL   L03006F
         LDY   $22
L03015B  PHY
         TYA
         LSR
         TAY
         STAL  $E0C054
         BCS   L030169
         STAL  $E0C055
L030169  LDA   [$28],Y
         STA   [$2B],Y
         STAL  $E0C054
         PLY
         INY
         CPY   $23
         BCC   L03015B
         LDA   $26
         INC
         CMP   $21
         PHP
         DEC
         PLP
         BCC   L030140
         LDA   $22
         STA   $27
         JSL   L0300F7
         PLA
         JSL   L03006F
         PLA
         STA   $27
         PLP
         RTL

L030193  ENT
         PHP
         SEP   #$30
         PEI   $26
         LDA   $20
         STA   $26
         LDA   $21
         DEC
         BPL   L0301A4
         BRL   L0301E7
L0301A4  STA   $26
         JSL   L03006F
         LDA   $28
         STA   $2B
         LDA   $29
         STA   $2C
         LDA   $2A
         STA   $2D
         LDA   $26
         DEC
         JSL   L03006F
         LDY   $22
L0301BF  PHY
         TYA
         LSR
         TAY
         STAL  $E0C054
         BCS   L0301CD
         STAL  $E0C055
L0301CD  LDA   [$28],Y
         STA   [$2B],Y
         STAL  $E0C054
         PLY
         INY
         CPY   $23
         BCC   L0301BF
         LDA   $26
         DEC
         BMI   L0301E7
         CMP   $20
         PHP
         INC
         PLP
         BCS   L0301A4
L0301E7  LDA   $22
         STA   $27
         JSL   L0300F7
         PLA
         JSL   L03006F
         PLA
         STA   $27
         PLP
         RTL

L0301F9  ENT
         PHP
         SEP   #$30
         LDY   $27
         JSL   L030109
         PLP
L030203  PHP
         SEP   #$30
         LDY   $27
         INY
         STY   $27
         CPY   $23
         BCS   L030211
         PLP
         RTL

L030211  LDA   $22
         STA   $27
L030215  PLP
L030216  PHP
         SEP   #$30
         LDA   $26
         INC
         CMP   $21
         BCC   L030227
         DEC
         PHA
         JSL   L030139
         PLA
L030227  JSL   L03006F
         PLP
         RTL

L03022D  ENT
         PHB
         PHK
         PLB
         PHP
         SEP   #$30
         TAX
         AND   #$7F
         CMP   #$20
         BCS   L030248
         LDX   #$07
L03023C  CMPL  L030261,X
         BEQ   L030250
         DEX
         BPL   L03023C
         PLP
         PLB
         RTL

L030248  TXA
         JSL   L0301F9
L03024D  PLP
         PLB
         RTL

L030250  TXA
         ASL
         TAX
         PHK
         PER   L03024D-1
         PHK
         LDA   L030269+1,X
         PHA
         LDA   L030269,X
         PHA
         RTL

L030261  DB    $07
         DB    $08
         DB    $0A
         DB    $0B
         DB    $0C
         DB    $0D
         DB    $15
         DB    $18
L030269  DA    L030279-1
         DA    L030294-1
         DA    L030216-1
         DA    L0302AD-1
         DA    L0300A7-1
         DA    L0302C3-1
         DA    L030203-1
         DA    L030285-1

L030279  PHP
         REP   #$30
         _SysBeep
         PLP
         RTL

L030285  PHP
         SEP   #$30
         LDA   #$DC
         JSL   L03022D
         JSL   L0302C3
         PLP
         RTL

L030294  PHP
         SEP   #$30
         LDA   $27
         CMP   $22
         BEQ   L0302A2
         DEC
         STA   $27
         PLP
         RTL

L0302A2  LDA   $23
         DEC
         STA   $27
         JSL   L0302AD
         PLP
         RTL

L0302AD  PHP
         SEP   #$30
         LDA   $26
         CMP   $20
         BEQ   L0302BD
         DEC
         JSL   L03006F
         PLP
         RTL

L0302BD  JSL   L030193
         PLP
         RTL

L0302C3  ENT
         PHP
         SEP   #$30
         JSL   L0300F7
         JSL   L030216
         LDA   $22
         STA   $27
         PLP
         RTL

L0302D4  ENT
         PHP
         SEP   #$30
         JSL   L030216
         LDA   $22
         STA   $27
         PLP
         RTL

L0302E1  ENT
         PHP
         REP   #$30
         LDA   $03,S
         STA   $01
         LDA   $02,S
         STA   $00
         SEP   #$30
         LDY   #$01
         LDA   [$00],Y
         BEQ   L030303
         TAX
L0302F5  INY
         LDA   [$00],Y
         PHY
         PHX
         JSL   L03022D
         PLX
         PLY
         DEX
         BNE   L0302F5
L030303  LDY   #$01
         LDA   [$00],Y
         REP   #$20
         AND   #$00FF
         INC
         CLC
         ADC   $00
         STA   $02,S
         PLP
         RTL

L030314  ENT
         PHP
         REP   #$30
         LDA   $03,S
         STA   $01
         LDA   $02,S
         STA   $00
         CLC
         ADC   #$0003
         STA   $02,S
         LDY   #$0002
         LDA   [$00],Y
         TAX
         DEY
         LDA   [$00],Y
         STX   $01
         STA   $00
         SEP   #$30
         DEY
         LDA   [$00]
         BEQ   L030348
         TAX
L03033A  INY
         LDA   [$00],Y
         PHY
         PHX
         JSL   L03022D
         PLX
         PLY
         DEX
         BNE   L03033A
L030348  PLP
         RTL

L03034A  ENT
         PHP
         SEP   #$30
         PEI   $2E
         LDA   $27
         STAL  $E0C054
         LSR
         BCS   L03035C
         STAL  $E0C055
L03035C  TAY
         LDA   [$28],Y
         REP   #$10
         STA   $2E
L030363  LDAL  L030000
         STA   [$28],Y
         LDX   #$0014
L03036C  PHX
         PHY
         JSL   L03059F
         PLY
         PLX
         BCC   L030395
         JSR   L0303AA
         DEX
         BNE   L03036C
         LDA   $2E
         STA   [$28],Y
         LDX   #$0014
L030383  PHX
         PHY
         JSL   L03059F
         PLY
         PLX
         BCC   L030395
         JSR   L0303AA
         DEX
         BNE   L030383
         BRA   L030363
L030395  PHA
         LDA   $2E
         STA   [$28],Y
         PLA
         STAL  $E0C010
         STAL  $E0C054
         REP   #$30
         PLX
         STX   $2E
         PLP
         RTL

L0303AA  LDAL  $E0C019
         BMI   L0303AA
L0303B0  LDAL  $E0C019
         BPL   L0303B0
         RTS

         PHB
         PHK
         PLB
         PHP
         REP   #$30
         STZ   L030002
         STZ   L030004
L0303C3  STA   $2B
         SEP   #$30
         STY   $2D
         LDA   #$01
         STA   $2E
         DEC
         STA   [$2B]
         STX   L030418
         LDY   #$00
         STY   $27
         INC   $27
         JSR   L0304F9
L0303DC  JSR   L03041A
         JSL   L03034A
         CMP   #$8D
         BEQ   L03040B
         JSR   L030445
         BCS   L0303DC
         TAX
         LDY   $27
         CPY   $2E
         BCS   L030402
         LDY   $2E
         DEY
L0303F6  LDA   [$2B],Y
         INY
         STA   [$2B],Y
         DEY
         DEY
         CPY   $27
         BCS   L0303F6
         INY
L030402  TXA
         STA   [$2B],Y
         INC   $2E
         INC   $27
         BRA   L0303DC
L03040B  LDA   $2E
         TAY
         DEC
         STA   [$2B]
         LDA   #$00
         STA   [$2B],Y
         PLP
         PLB
         RTL

L030418  DW    $0000

L03041A  LDY   #$01
         STY   $2F
         INY
         STAL  $E0C055
         LDA   L030418
         STA   [$28]
         LDX   #$01
L03042A  LDA   [$2B],Y
         PHY
         TXY
         STA   [$28],Y
         PLY
         INY
         INY
         INX
         CPY   #$4F
         BCC   L03042A
         LDY   #$01
         LDX   #$00
         STAL  $E0C054
         DEC   $2F
         BPL   L03042A
         RTS

L030445  XBA
         PHA
         AND   #$10
         TAX
         PLA
         XBA
         CPX   #$10
         BEQ   L030468
         LDX   #$04
L030452  CMP   L0304B0,X
         BEQ   L0304AA
         DEX
         BPL   L030452
         CMP   #$A0
         BCC   L030468
         LDX   $2E
         CPX   #$4F
         BCS   L030466
         CLC
         RTS

L030466  SEC
         RTS

L030468  REP   #$30
         PHA
         JSL   L03053D
         PLA
         PHB
         TAY
         LDA   L030002
         ORA   L030004
         BEQ   L030491
         PHK
         PER   L030491-1
         TYA
         AND   #$FF7F
         PHA
         SEP   #$10
         LDX   L030004
         PHX
         REP   #$10
         LDA   L030002
         DEC
         PHA
         RTL

L030491  SEP   #$30
         PLB
         JSL   L030553
         LDA   [$2B]
         BEQ   L0304A8
         INC
         STA   $2E
         STA   $27
         LDA   #$00
         STA   [$2B]
         JSR   L0304F9
L0304A8  SEC
         RTS

L0304AA  TXA
         ASL
         TAX
         JMP   (L0304B5,X)

L0304B0  DB    $88
         DB    $95
         DB    $98
         DB    $FF
         DB    $99

L0304B5  DA    L0304BF
         DA    L0304C8
         DA    L0304D3
         DA    L0304DC
         DA    L0304F9

L0304BF  LDA   $27
         DEC
         BEQ   L0304C6
         STA   $27
L0304C6  SEC
         RTS

L0304C8  LDA   $27
         CMP   $2E
         BEQ   L0304D1
         INC
         STA   $27
L0304D1  SEC
         RTS

L0304D3  LDA   #$01
         STA   $27
         STA   $2E
         JMP   L0304F9

L0304DC  LDY   $27
         CPY   #$01
         BEQ   L0304D1
L0304E2  LDA   [$2B],Y
         DEY
         STA   [$2B],Y
         INY
         INY
         CPY   $2E
         BCC   L0304E2
         BEQ   L0304E2
         DEY
         LDA   #$A0
         STA   [$2B],Y
         DEC   $2E
         JMP   L0304BF

L0304F9  LDY   $27
         LDA   #$A0
L0304FD  STA   [$2B],Y
         INY
         CPY   #$4F
         BCC   L0304FD
         LDY   $27
         STY   $2E
         SEC
         RTS

L03050A  ENT
         PHB
         PHK
         PLB
         PHP
         REP   #$30
         LDA   $0C,S
         STA   L030002
         LDA   $0E,S
         STA   L030004
         LDA   $0A,S
         TAY
         LDA   $06,S
         TAX
         LDA   $08,S
         PHA
         LDA   $06,S
         STA   $10,S
         LDA   $04,S
         STA   $0E,S
         LDA   $02,S
         STA   $0C,S
         LDA   $01,S
         STA   $0B,S
         TSC
         CLC
         ADC   #$000A
         TCS
         PLA
         JMP   L0303C3

L03053D  PHB
         PHK
         PLB
         PHP
         REP   #$20
         SEP   #$10
         LDX   #$0E
L030547  LDA   $20,X
         STA   L030569,X
         DEX
         DEX
         BPL   L030547
         PLP
         PLB
         RTL

L030553  PHB
         PHK
         PLB
         PHP
         REP   #$20
         SEP   #$10
         LDX   #$0E
L03055D  LDA   L030569,X
         STA   $20,X
         DEX
         DEX
         BPL   L03055D
         PLP
         PLB
         RTL

L030569  DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
         DB    $00
L030579  ENT
         PHP
         REP   #$30
         LDA   #$FFFF
         STAL  L030591
         PLP
         RTL

L030585  ENT
         PHP
         REP   #$30
         LDA   #$0000
         STAL  L030591
         PLP
         RTL

L030591  DW    $0000
L030593  ENT
         PHP
         REP   #$30
         AND   #$00FF
         STAL  L030000
         PLP
         RTL

L03059F  ENT
         PHB
         PHK
         PLB
         PHP
         REP   #$30
         PHA
         _EMStatus
         PLA
         BEQ   L0305E2
         PHA
         PEA   $FFFF
         PEA   ^L030624
         PEA   L030624
         _GetNextEvent
         PLA
         LDA   L030624
         CMP   #$0003
         BEQ   L0305CF
         CMP   #$0005
         BNE   L0305DE
L0305CF  SEP   #$20
         LDA   L030632+1
         XBA
         LDA   L030626
         ORA   #$80
         PLP
         PLB
         CLC
         RTL

L0305DE  PLP
         PLB
         SEC
         RTL

L0305E2  SEP   #$30
         LDAL  $E0C000
         BPL   L0305DE
         STAL  $E0C010
         PHA
         LDAL  $E0C025
         STZ   L030632+1
         LDX   #$07
L0305F8  PHA
         AND   L030614,X
         BEQ   L030607
         LDA   L03061C,X
         ORA   L030632+1
         STA   L030632+1
L030607  PLA
         DEX
         BPL   L0305F8
         LDA   L030632+1
         XBA
         PLA
         PLP
         PLB
         CLC
         RTL

L030614  DB    $01
         DB    $02
         DB    $04
         DB    $08
         DB    $10
         DB    $20
         DB    $40
         DB    $80
L03061C  DB    $02
         DB    $10
         DB    $04
         DB    $00
         DB    $20
         DB    $00
         DB    $08
         DB    $01
L030624  DW    $0000      ; event code
L030626  ADRL  $00000000  ; event message
         ADRL  $00000000  ; tick count
         DW    $0000      ; mouse location
         DW    $0000
L030632  DW    $0000      ; modifiers
L030634  PHP
         REP   #$30
         LDA   $05,S
         AND   #$000F
         CLC
         ADC   #$00B0
         CMP   #$00BA
         BCC   L030648
         ADC   #$0006
L030648  JSL   L03022D
L03064C  LDA   $03,S
         STA   $05,S
         LDA   $01,S
         STA   $03,S
         TSC
         INC
         INC
         TCS
         PLP
         RTL

L03065A  ENT
         PHP
         REP   #$30
         LDA   $05,S
         PHA
         LSR
         LSR
         LSR
         LSR
         PHA
         JSL   L030634
         JSL   L030634
         JMP   L03064C

L030670  ENT
         PHP
         REP   #$30
         LDA   $05,S
         PHA
         XBA
         PHA
         JSL   L03065A
         JSL   L03065A
         JMP   L03064C

*--- Eval hex expression

L030683  PHP
         REP   #$30
         PHD
         TSC
         CLC
         ADC   #$0007
         TCD
         LDA   [$00]
	 and	#$00ff
	 cmp	#$e1
	 bcc	nochange2
	 cmp	#$e7
	 bcs	nochange2
	 sec
	 sbc	#$20
nochange2
         AND   #$007F
         CMP   #$0030	; >0
         BCC   L0306A6
         CMP   #$0047	; >F
         BCS   L0306A6
         CMP   #$003A	; <9+1
         BCC   L0306AD
         CMP   #$0041	; >A
         BCS   L0306B3
L0306A6  LDA   #$0000
         PLD
         PLP
         SEC
         RTL

L0306AD  SEC
         SBC   #$0030	; 0
         BRA   L0306B7
L0306B3  SEC
         SBC   #$0037	; 7
L0306B7  INC   $00
         PLD
         PLP
         CLC
         RTL

L0306BD  ENT
         PHB
         PHK
         PLB
         PHP
         REP   #$30
         LDA   $08,S
         PHA
         LDA   $08,S
         PHA
         STZ   L030715
         STZ   L030717
         STX   $2E
         JSL   L030683
         LDX   $2E
         BCS   L0306FB
         BCC   L0306E3
L0306DB  STX   $2E
         JSL   L030683
         BCS   L0306FA
L0306E3  LDX   #$0004
L0306E6  ASL   L030715
         ROL   L030717
         DEX
         BNE   L0306E6
         ORA   L030715
         STA   L030715
         LDX   $2E
         DEX
         BNE   L0306DB
L0306FA  CLC
L0306FB  PLA
         STA   $08,S
         PLA
         STA   $08,S
         BCS   L03070D
         LDY   L030717
         LDA   L030715
         PLP
         CLC
         PLB
         RTL

L03070D  LDA   #$0000
         TAY
         PLP
         SEC
         PLB
         RTL

L030715  DW    $0000
L030717  DW    $0000

L030719  ENT
         PHP
         REP   #$30
         LDA   $03,S
         STA   $01
         LDA   $02,S
         STA   $00
         CLC
         ADC   #$0003
         STA   $02,S
         LDY   #$0002
         LDA   [$00],Y
         TAX
         DEY
         LDA   [$00],Y
         STX   $01
         STA   $00
         LDA   [$00]
         BEQ   L03074C
         TAX
         SEP   #$20
L03073E  INY
         LDA   [$00],Y
         PHY
         PHX
         JSL   L03022D
         PLX
         PLY
         DEX
         BNE   L03073E
L03074C  PLP
         RTL

L03074E  ENT
         PHB
         PHK
         PLB
         PHP
         REP   #$30
         LDA   $04,S
         STA   $01
         LDA   $03,S
         INC
         STA   $00
         CLC
         ADC   #$0003
         STA   $03,S
         LDA   [$00]
         STA   L0307D0
         LDY   #$0002
         LDA   [$00],Y
         STA   L0307D2
         SEP   #$30
         INC   L0307D1
         JSR   L0307CC
         LDX   $25
L03077A  LDA   #$DF
         PHX
         JSL   L03022D
         PLX
         DEX
         BNE   L03077A
         LDX   $24
         DEX
         DEX
         DEX
L03078A  PHX
         LDA   #$5F
         JSL   L03022D
         LDX   $25
         DEX
         DEX
L030795  LDA   #$A0
         PHX
         JSL   L03022D
         PLX
         DEX
         BNE   L030795
         LDA   #$5A
         JSL   L03022D
         PLX
         DEX
         BNE   L03078A
         LDX   $25
L0307AC  LDA   #$4C
         PHX
         JSL   L03022D
         PLX
         DEX
         BNE   L0307AC
         INC   L0307D0
         DEC   L0307D1
         DEC   L0307D1
         INC   L0307D2
         DEC   L0307D3
         JSR   L0307CC
         PLP
         PLB
         RTL

L0307CC  JSL   L030035
L0307D0  DB    $00
L0307D1  DB    $00
L0307D2  DB    $00
L0307D3  DB    $00
         LDX   $22
         LDY   $20
         JSL   L0300E2
         RTS

L0307DD  ENT
         PHP
         REP   #$30
         LDA   $09,S
         STA   $00
         LDA   $0B,S
         STA   $02
         LDA   $05,S
         STA   $04
         LDA   $07,S
         STA   $06
         LDA   $03,S
         STA   $0B,S
         LDA   $01,S
         STA   $09,S
         TSC
         CLC
         ADC   #$0008
         TCS
         LDA   #$0000
         SEP   #$30
         LDA   [$00]
         STA   $08
         BEQ   L030820
         LDA   [$04]
         INC
         TAY
         LDX   #$01
L03080F  PHY
         TXY
         LDA   [$00],Y
         PLY
         INX
         STA   [$04],Y
         INY
         DEC   $08
         BNE   L03080F
         DEY
         TYA
         STA   [$04]
L030820  PLP
         CLC
         RTL

L030823  ENT
         PHP
         REP   #$30
         AND   #$000F
         CLC
         ADC   #$00B0
         CMP   #$00BA
         BCC   L030835
         ADC   #$0006
L030835  PLP
         RTL

L030837  ENT
         PHP
         REP   #$30
         PHA
         JSL   L030823
         TAY
         PLA
         PHY
         LSR
         LSR
         LSR
         LSR
         JSL   L030823
         SEP   #$30
         XBA
         PLA
         XBA
         PLY
         PLP
         RTL

L030852  ENT
         PHB
         PHK
         PLB
         PHP
         REP   #$30
         TSC
         PHD
         CLC
         ADC   #$0006
         TCD
         LDA   [$04]
         STA   L0308AD
         BEQ   L030887
         LDA   [$00]
         TAX
         CLC
         ADC   L0308AD
         BCS   L03088A
         STA   [$00]
         LDY   #$0001
         INX
L030875  SEP   #$20
         INY
         INX
         LDA   [$04],Y
         PHY
         TXY
         STA   [$00],Y
         PLY
         REP   #$20
         DEC   L0308AD
         BNE   L030875
L030887  CLV
         BRA   L03088C
L03088A  SEP   #$40
L03088C  PLD
         LDA   $04,S
         STA   $0C,S
         LDA   $02,S
         STA   $0A,S
         LDA   $01,S
         STA   $09,S
         TSC
         CLC
         BVC   L0308A5
         ADC   #$0008
         TCS
         PLP
         SEC
         PLB
         RTL

L0308A5  ADC   #$0008
         TCS
         PLP
         CLC
         PLB
         RTL

L0308AD  DW    $0000
L0308AF  ENT
         PHP
         REP   #$30
         PHD
         PHY
         PHX
         TAX
         TSC
         TCD
         TXA
         JSL   L030837
         JSR   L0308C5
         PLX
         PLY
         PLD
         PLP
         RTL

L0308C5  PHA
         LDA   [$01]
         INC
         INC
         TAY
         STA   [$01]
         PLA
         STA   [$01],Y
         RTS

L0308D1  ENT
         PHP
         REP   #$30
         PHD
         PHA
         PHY
         PHX
         TSC
         TCD
         LDA   $05
         XBA
         JSL   L030837
         JSR   L0308C5
         LDA   $05
         JSL   L030837
         JSR   L0308C5
         PLX
         PLY
         PLA
         PLD
         PLP
         RTL

L0308F3  ENT
         PHP
         REP   #$30
         LDA   $04,S
         XBA
         PHA
         PLB
         PLB
         LDY   #$0001
         LDA   ($02,S),Y
         STAL  L030914
         INY
         INY
         LDA   ($02,S),Y
         STAL  L030916
         PHB
         PHK
         PLB
         JSL   L03074E
L030914  DB    $00
L030915  DB    $00
L030916  DB    $00
L030917  DB    $00
         JSL   L030035
         DB    $00
         DB    $17
         DB    $00
         DB    $4F
         LDA   $03,S
         STA   $10
         LDA   $04,S
         STA   $11
         LDY   #$0005
         LDA   [$10],Y
         STA   $14
         INY
         INY
         LDA   [$10],Y
         STA   $16
         CLC
         LDA   $10
         ADC   #$0008
         STA   $03,S
         LDY   #$0000
         STZ   L03095B
         STZ   L030959
L030946  LDA   [$14],Y
         AND   #$00FF
         BEQ   L0309BD
         INC   L03095B
         PHA
         TYA
         SEC
         ADC   $01,S
         TAY
         PLA
         BRA   L030946
L030959  DB    $00
         DB    $00
L03095B  DB    $00
         DB    $00
L03095D  DB    $00
         DB    $00
L03095F  DB    $00
         DB    $00
L030961  DB    $00
         DB    $00
L030963  DB    $00
         DB    $00
L030965  DB    $00
         DB    $00
L030967  DB    $00
         DB    $00
L030969  DB    $00
         DB    $00
L03096B  DB    $00
L03096C  ASC   "                                        "
         ASC   "                                        "
         ASC   " "
L0309BD  DEC   L03095B
         SEP   #$20
         SEC
         LDA   L030915
         SBC   L030914
         DEC
         STA   L03095D
         DEC
         STA   L030961
         STZ   L03095F
         SEC
         LDA   L030917
         SBC   L030916
         DEC
         STA   L03096B
         DEC
         DEC
         STA   L030969
         REP   #$20
         LDA   L03095B
         STA   L030965
         STA   L030967
         LDA   L03095D
         CMP   L03095B
         BEQ   L0309F9
         BCS   L030A10
L0309F9  LSR
         BCC   L0309FD
         INC
L0309FD  DEC
         STA   L030965
         LDA   L03095B
         SEC
         SBC   L03095D
         INC
         CLC
         ADC   L030965
         STA   L030967
L030A10  STZ   L030963
L030A13  JSR   L030A88
L030A16  SEP   #$20
L030A18  JSL   L03059F
         BCS   L030A18
         REP   #$20
         AND   #$007F
         CMP   #$000B
         BEQ   L030A3B
         CMP   #$000A
         BEQ   L030A5C
         CMP   #$000D
         BEQ   L030A81
         CMP   #$001B
         BNE   L030A16
         PLB
         PLP
         SEC
         RTL

L030A3B  LDA   L030959
         BEQ   L030A16
         DEC   L030959
         LDX   L03095F
         BEQ   L030A57
         CMP   L030967
         BEQ   L030A4F
         BCS   L030A57
L030A4F  DEC   L03095F
         DEC   L030961
         BRA   L030A13
L030A57  DEC   L030963
         BRA   L030A13
L030A5C  LDA   L030959
         CMP   L03095B
         BEQ   L030A16
         INC   L030959
         LDX   L030961
         CPX   L03095B
         BEQ   L030A7C
         CMP   L030965
         BCC   L030A7C
         INC   L03095F
         INC   L030961
         BRA   L030A13
L030A7C  INC   L030963
         BRA   L030A13
L030A81  LDA   L030959
         PLB
         PLP
         CLC
         RTL

L030A88  LDY   #$0000
         LDX   #$0000
L030A8E  CPX   L03095F
         BEQ   L030AA7
         LDA   [$14],Y
         AND   #$00FF
         PHA
         TYA
         CLC
         ADC   $01,S
         INC
         TAY
         PLA
         INX
         BRA   L030A8E
L030AA3  DW    $0000
L030AA5  DW    $0000
L030AA7  TYA
         CLC
         ADC   $14
         STA   $18
         LDA   $16
         STA   $1A
         STZ   L030AA5
L030AB4  LDA   [$18]
         AND   #$00FF
         BNE   L030ABC
         RTS

L030ABC  PHA
         CMP   L030969
         BCC   L030AC5
         LDA   L030969
L030AC5  STA   L030AA3
         LDY   #$0000
L030ACB  INY
         LDA   [$18],Y
         STA   L03096C,Y
         CPY   L030AA3
         BNE   L030ACB
         LDA   #$00A0
L030AD9  INY
         STA   L03096C,Y
         CPY   L030969
         BCC   L030AD9
         STA   L03096C+1,Y
         LDA   L030914
         AND   #$00FF
         INC
         CLC
         ADC   L030AA5
         TAY
         LDA   L030916
         AND   #$00FF
         INC
         TAX
         JSL   L0300E2
         LDA   L030AA5
         CMP   L030963
         BNE   L030B09
         JSL   L030579
L030B09  JSL   L030314
         ADR   L03096B
         JSL   L030585
         PLA
         INC
         CLC
         ADC   $18
         STA   $18
         INC   L030AA5
         LDA   L030AA5
         CMP   L03095D
         BCC   L030AB4
         RTS

L030B27  ENT
         PHP
         REP   #$30
         LDA   $04,S
         XBA
         PHA
         PLB
         PLB
         LDY   #$0001
         LDA   ($02,S),Y
         STAL  L030B67
         INY
         INY
         LDA   ($02,S),Y
         STAL  L030B69
         LDX   #$0000
         SEP   #$20
         INY
L030B47  INY
         INX
         LDA   ($02,S),Y
         STAL  L030BE1,X
         CPY   #$000B
         BCC   L030B47
         LDA   #$5C
         STAL  L030BE1
         STAL  L030BE5
         REP   #$20
         PHB
         PHK
         PLB
         JSL   L03074E
L030B67  DB    $00
L030B68  DB    $00
L030B69  DB    $00
L030B6A  DB    $00
         JSL   L030035
         DB    $00
         DB    $17
         DB    $00
         DB    $4F
         CLC
         LDA   $03,S
         ADC   #$000C
         STA   $03,S
         BRA   L030BE9
L030B7D  DB    $00
         DB    $00
L030B7F  DB    $00
         DB    $00
L030B81  DB    $00
         DB    $00
L030B83  DB    $00
         DB    $00
L030B85  DB    $00
         DB    $00
L030B87  DB    $00
         DB    $00
L030B89  DB    $00
         DB    $00
L030B8B  DB    $00
         DB    $00
L030B8D  DB    $00
         DB    $00
L030B8F  DB    $00
L030B90  ASC   "                                        "
         ASC   "                                        "
         ASC   " "
L030BE1  DB    $00
         DB    $00
         DB    $00
         DB    $00
L030BE5  DB    $00
L030BE6  DB    $00
L030BE7  DB    $00
         DB    $00
L030BE9  SEP   #$20
         SEC
         LDA   L030B68
         SBC   L030B67
         DEC
         STA   L030B81
         SEC
         LDA   L030B6A
         SBC   L030B69
         DEC
         STA   L030B8F
         DEC
         DEC
         STA   L030B8D
L030C06  REP   #$20
         LDA   #$0000
         PHA
         PHA
         DEC
         PHA
         JSL   L030BE1
         PLA
         PLA
         PLX
         STX   L030B7D
         DEC
         STA   L030B7F
         STA   L030B89
         STA   L030B8B
         LDA   L030B81
         CMP   L030B7F
         BEQ   L030C2D
         BCS   L030C44
L030C2D  LSR
         BCC   L030C31
         INC
L030C31  DEC
         STA   L030B89
         LDA   L030B7F
         SEC
         SBC   L030B81
         INC
         CLC
         ADC   L030B89
         STA   L030B8B
L030C44  STZ   L030B87
         STZ   L030B83
         LDA   L030B81
         DEC
         STA   L030B85
         LDA   L030B7D
         CMP   L030B7F
         BEQ   L030C5E
         BCC   L030C5E
         STZ   L030B7D
L030C5E  JSR   L030D16
L030C61  JSR   L030D70
L030C64  SEP   #$20
L030C66  JSL   L03059F
         BCS   L030C66
         REP   #$20
         AND   #$007F
         CMP   #$000B
         BEQ   L030C8C
         CMP   #$000A
         BEQ   L030CAD
         CMP   #$000D
         BEQ   L030CE1
         CMP   #$001B
         BEQ   L030C88
         BRL   L030CE8
L030C88  PLB
         PLP
         SEC
         RTL

L030C8C  LDA   L030B7D
         BEQ   L030C64
         DEC   L030B7D
         LDX   L030B83
         BEQ   L030CA8
         CMP   L030B8B
         BEQ   L030CA0
         BCS   L030CA8
L030CA0  DEC   L030B83
         DEC   L030B85
         BRA   L030C61
L030CA8  DEC   L030B87
         BRA   L030C61
L030CAD  LDA   L030B7D
         CMP   L030B7F
         BEQ   L030C64
         INC   L030B7D
         LDX   L030B85
         CPX   L030B7F
         BEQ   L030CCD
         CMP   L030B89
         BCC   L030CCD
         INC   L030B83
         INC   L030B85
         BRA   L030C61
L030CCD  INC   L030B87
         BRA   L030C61
L030CD2  CMP   L030B7F
         BEQ   L030CD9
         BCS   L030C64
L030CD9  STA   L030B7D
         JSR   L030D16
         BRA   L030C61
L030CE1  LDA   L030B7D
         PLB
         PLP
         CLC
         RTL

L030CE8  TAY
         LDA   L030BE6
         ORA   L030BE7
         BEQ   L030D03
         LDA   #$0000
         PHA
         PHA
         PHY
         JSL   L030BE5
         PLA
         PLY
         PLA
         CMP   #$0005
         BCC   L030D06
L030D03  BRL   L030C64
L030D06  ASL
         TAX
         TYA
         JMP   (L030D0C,X)

L030D0C  DA    L030C64
         DA    L030C06
         DA    L030CD2
         DA    L030C88
         DA    L030CE1

L030D16  STZ   L030B83
         LDA   L030B81
         DEC
         STA   L030B85
         LDA   L030B7D
         STA   L030B87
         CMP   L030B89
         BEQ   L030D6B
         BCC   L030D6B
         LDA   L030B81
         DEC
         LSR
         STA   L030B87
         SEC
         SBC   L030B7D
         EOR   #$FFFF
         INC
         STA   L030B83
         CLC
         ADC   L030B81
         DEC
         STA   L030B85
         LDA   L030B7D
         CMP   L030B8B
         BEQ   L030D6B
         BCC   L030D6B
         LDA   L030B7F
         STA   L030B85
         SEC
         SBC   L030B81
         INC
         STA   L030B83
         SEC
         SBC   L030B7D
         EOR   #$FFFF
         INC
         STA   L030B87
L030D6B  RTS

L030D6C  DW    $0000
L030D6E  DW    $0000
L030D70  LDA   #$0000
         STA   L030D6E
L030D76  CLC
         ADC   L030B83
         PHA
         PHA
         PHA
         JSL   L030BE1
         PLA
         PLA
         STA   $18
         PLA
         STA   $1A
         LDA   [$18]
         AND   #$00FF
         CMP   L030B8D
         BCC   L030D95
         LDA   L030B8D
L030D95  STA   L030D6C
         LDY   #$0000
L030D9B  INY
         LDA   [$18],Y
         STA   L030B90,Y
         CPY   L030D6C
         BCC   L030D9B
         LDY   L030D6C
         LDA   #$00A0
L030DAC  INY
         STA   L030B90,Y
         CPY   L030B8D
         BCC   L030DAC
         STA   L030B90+1,Y
         LDA   L030B67
         AND   #$00FF
         INC
         CLC
         ADC   L030D6E
         TAY
         LDA   L030B69
         AND   #$00FF
         INC
         TAX
         JSL   L0300E2
         LDA   L030D6E
         CMP   L030B87
         BNE   L030DDC
         JSL   L030579
L030DDC  JSL   L030314
         ADR   L030B8F
         JSL   L030585
         INC   L030D6E
         LDA   L030D6E
         CMP   L030B81
         BCC   L030D76
         RTS

