*
* Genesys v1.2.4
* Main program: segment 4
*

         mx    %00
         rel
         lst   off

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

         use   4/Ctl.Macs
         use   4/Int.Macs
         use   4/Line.Macs
         use   4/Mem.Macs
         use   4/Menu.Macs
         use   4/QD.Macs
         use   4/QDAux.Macs
         use   4/Resource.Macs
	 use   4/Std.Macs
         use   4/Text.Macs
	 use   4/TextEdit.Macs
         use   4/Util.Macs
         use   4/Window.Macs

	 use   GESEG4.X.S
	
*----------------------------

L040000  ENT
         TSC
         SEC
         SBC   #$0024
         TCS
         PHD
         TCD
         LDX   $2A
         LDA   $28
         STX   L027EA9
         STA   L027EA7
         LDA   #$0000
         SEP   #$20
         STA   L027EB0
         REP   #$20
         LDA   #$007F
         SEP   #$20
         STA   L027EAF
         REP   #$20
         STZ   L027ECF
         LDA   #$0022
         STA   L027ECD
         STZ   L027EB7
         LDA   #$002E
         STA   L027EB5
         LDA   #$0000
         STA   L027ECB
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$0004
         LDA   [$01],Y
         PHA
         _SetCurResourceFile
         PHA
         PEA   $0001
         _SetResourceFileDepth
         PLA
         STA   $0B
         JSL   L040D38
         STA   $07
         LDA   $07
         BEQ   L0400C7
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0004
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
         PHA
         PEI   $0B
         _SetResourceFileDepth
         PLA
         STA   $0B
         LDA   $07
         CMP   #$FFFF
         BEQ   L0400BF
         JSL   L0409D2
         LDA   $07
         STA   $05
         BRL   L0406A7
L0400BF  LDA   #$0000
         STA   $05
         BRL   L0406A7
L0400C7  LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         STX   L027EBD
         STA   L027EBB
         LDX   L027EBD
         LDA   L027EBB
         STX   L0280F7
         STA   L0280F5
         STX   L027EEF
         STA   L027EED
         STX   L0280AF
         STA   L0280AD
         PEA   $2002
         PEA   ^L0280AB
         PEA   L0280AB
         JSL   L02C243
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$000A
         LDA   [$01],Y
         PHA
         LDY   #$0008
         LDA   [$01],Y
         PHA
         PEA   $0000
         PEA   $007F
         JSL   L02D6DE
         BEQ   L040189
         LDA   #$0004
         STA   L027EF3
         PEA   ^L027EF5
         PEA   L027EF5
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         LDY   #$0002
         STA   [$01],Y
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$000A
         LDA   [$01],Y
         PHA
         LDY   #$0008
         LDA   [$01],Y
         PHA
         LDA   #$00FF
         LDX   #$0000
         LDY   #$0001
         CMP   $01,S
         BEQ   L040166
         DEY
L040166  TXA
         CMP   $03,S
         BEQ   L04016E
         LDY   #$0000
L04016E  PLA
         PLA
         TYA
         BEQ   L040187
         LDA   #$0080
         SEP   #$20
         STA   L027EB0
         REP   #$20
         LDA   #$00FF
         SEP   #$20
         STA   L027EAF
         REP   #$20
L040187  BRA   L0401BB
L040189  LDA   #$00B0
         STA   L027EF3
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$000A
         LDA   [$01],Y
         TAX
         LDY   #$0008
         LDA   [$01],Y
         PHX
         PHA
         PEA   ^L027EF5
         PEA   L027EF5
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
L0401BB  PEA   $2001
         PEA   ^L027EEB
         PEA   L027EEB
         JSL   L02C243
         JSL   L02CA27
         STA   $07
         LDA   $07
         BEQ   L040217
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0004
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
         JSL   L0409D2
         PHA
         PEI   $0B
         _SetResourceFileDepth
         PLA
         STA   $0B
         LDA   $07
         STA   $05
         BRL   L0406A7
L040217  LDA   #$0002
         STA   L0280F1
         PEA   $2010
         PEA   ^L0280F1
         PEA   L0280F1
         JSL   L02C243
         JSL   L02CA27
         STA   $07
         LDA   $07
         BEQ   L040279
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0004
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
         JSL   L0409D2
         PHA
         PEI   $0B
         _SetResourceFileDepth
         PLA
         STA   $0B
         LDA   $07
         STA   $05
         BRL   L0406A7
L040279  PEA   ^L027F61
         PEA   L027F61
         LDA   L0280F3
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         PHA
         _CountTypes
         PLA
         STA   $0D
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
         PEA   $0001
         JSL   L0406BA
         LDA   #$0001
         STA   $07
         LDA   #$0000
         STA   L027EB9
L0402D4  LDA   $0D
         LDX   #$0001
         SEC
         SBC   $07
         BVS   L0402E1
         EOR   #$8000
L0402E1  BMI   L0402E4
         DEX
L0402E4  TXA
         CMP   #$0000
         BEQ   L040307
         LDA   L027EB9
         LDX   #$0001
         SEC
         SBC   #$FFFE
         BEQ   L0402FD
         BVS   L0402FB
         EOR   #$8000
L0402FB  BMI   L0402FE
L0402FD  DEX
L0402FE  TXA
         CMP   #$0000
         BEQ   L040307
         LDA   #$0001
L040307  TAX
         BNE   L04030D
         BRL   L04064F
L04030D  PHA
         PEI   $07
         _GetIndType
         PLA
         STA   $17
         CMP   #$8014
         BNE   L040325
         BRL   L04064A
L040325  LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0001
         PEA   $0000
         PEI   $07
         PEA   $0000
         PEI   $0D
         PEA   $0000
         PEA   $0000
         PEI   $17
         JSL   L02ACFE
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$000E
         LDA   [$01],Y
         AND   #$8000
         LDX   #$0000
         CMP   #$0000
         BEQ   L040367
         INX
L040367  TXA
         BNE   L04036E
         LDA   $17
         BRA   L040371
L04036E  LDA   #$8014
L040371  PHA
         JSL   L042616
         STX   $1F
         STA   $1D
         PHA
         PHA
         PEI   $17
         _CountResources
         PLA
         PLX
         STA   $0F
         LDA   #$0001
         STA   $09
L040391  LDA   $0F
         LDX   #$0001
         SEC
         SBC   $09
         BVS   L04039E
         EOR   #$8000
L04039E  BMI   L0403A1
         DEX
L0403A1  TXA
         CMP   #$0000
         BEQ   L0403C4
         LDA   L027EB9
         LDX   #$0001
         SEC
         SBC   #$FFFF
         BEQ   L0403BA
         BVS   L0403B8
         EOR   #$8000
L0403B8  BMI   L0403BB
L0403BA  DEX
L0403BB  TXA
         CMP   #$0000
         BEQ   L0403C4
         LDA   #$0001
L0403C4  TAX
         BNE   L0403CA
         BRL   L04064A
L0403CA  PHA
         PHA
         PEI   $17
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L0403D7
         DEX
L0403D7  PHX
         PHA
         _GetIndResource
         PLA
         STA   $19
         PLA
         STA   $1B
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0002
         PEI   $09
         PEI   $07
         PEI   $0F
         PEI   $0D
         LDX   $1B
         LDA   $19
         PHX
         PHA
         PEI   $17
         JSL   L02ACFE
         PHA
         PEI   $17
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _GetResourceAttr
         PLA
         STA   $11
         PEA   $000C
         PEI   $17
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _SetResourceAttr
         PHA
         PHA
         PEI   $17
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _LoadResource
         PLA
         STA   $21
         PLA
         STA   $23
         LDX   $23
         LDA   $21
         PHX
         PHA
         _HLock
         PEI   $11
         PEI   $17
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _SetResourceAttr
         LDX   $1F
         LDA   $1D
         STX   L027EC5
         STA   L027EC3
         LDY   #$0002
         LDA   [$21],Y
         TAX
         LDA   [$21]
         STX   L027EC1
         STA   L027EBF
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         PEA   ^L028258
         PEA   L028258
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L02825C
         PEA   L02825C
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         PHA
         PHA
         LDX   $23
         LDA   $21
         PHX
         PHA
         _GetHandleSize
         PEA   ^L028260
         PEA   L028260
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         LDA   $17
         PEA   $0000
         PHA
         PEA   ^L028264
         PEA   L028264
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         PEA   ^L028268
         PEA   L028268
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   $19
         STA   [$01]
         LDA   $1B
         STA   [$01],Y
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L04051F
         DEX
L04051F  PHX
         PHA
         PEA   ^L02826C
         PEA   L02826C
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         PEA   ^L028270
         PEA   L028270
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         PHA
         PHA
         STA   [$01]
         STA   $03,S
         STA   [$01],Y
         PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         LDA   $0F
         LDX   #$0000
         TAY
         BPL   L040568
         DEX
L040568  PHX
         PHA
         PEA   ^L028278
         PEA   L028278
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         PEI   $11
         JSL   L0426A8
         PHX
         PHA
         PEA   ^L02827C
         PEA   L02827C
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         JSL   L041442
         LDA   L027EB9
         BNE   L0405CC
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0003
         PEI   $09
         PEI   $07
         PEI   $0F
         PEI   $0D
         LDX   $1B
         LDA   $19
         PHX
         PHA
         PEI   $17
         JSL   L02ACFE
         BRA   L040630
L0405CC  LDA   L027EB9
         CMP   #$FFFF
         BNE   L0405FE
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0005
         PEI   $09
         PEI   $07
         PEI   $0F
         PEI   $0D
         LDX   $1B
         LDA   $19
         PHX
         PHA
         PEI   $17
         JSL   L02ACFE
         STA   L027EB9
         BRA   L040630
L0405FE  LDA   L027EB9
         BMI   L040606
         DEC
         BPL   L040608
L040606  BRA   L040630
L040608  LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0006
         PEI   $09
         PEI   $07
         PEI   $0F
         PEI   $0D
         LDX   $1B
         LDA   $19
         PHX
         PHA
         PEI   $17
         JSL   L02ACFE
         STA   L027EB9
L040630  PEA   $FFFF
         PEI   $17
         LDX   $1B
         LDA   $19
         PHX
         PHA
         _ReleaseResource
         INC   $09
         BRL   L040391
L04064A  INC   $07
         BRL   L0402D4
L04064F  PEA   $0002
         JSL   L0406BA
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0004
         PEI   $09
         PEI   $07
         PEI   $0F
         PEI   $0D
         PEA   $0000
         PEA   $0000
         PEI   $17
         JSL   L02ACFE
         LDA   #$0001
         STA   L0280F1
         PEA   $2014
         PEA   ^L0280F1
         PEA   L0280F1
         JSL   L02C243
         JSL   L0409D2
         PHA
         PEI   $0B
         _SetResourceFileDepth
         PLA
         STA   $0B
         LDA   #$0000
         STA   $05
L0406A7  LDA   $26
         STA   $2A
         LDA   $25
         STA   $29
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0028
         TCS
         TYA
         RTL

L0406BA  TSC
         SEC
         SBC   #$0004
         TCS
         PHD
         TCD
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         LDA   $08
         CLC
         ADC   #$0008
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$000E
         LDA   [$01],Y
         AND   #$8000
         BEQ   L04070A
         LDA   $08
         INC
         INC
         STA   $08
L04070A  LDA   L027ED5
         ORA   L027ED7
         BEQ   L040758
         LDX   L027ED7
         LDA   L027ED5
         STX   L027EC5
         STA   L027EC3
         LDA   $08
         LDX   #$0000
         TAY
         BPL   L040727
         DEX
L040727  PHX
         PHA
         PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         JSL   L041442
         PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         LDY   #$0002
         STA   [$01],Y
L040758  LDA   $06
         STA   $08
         LDA   $05
         STA   $07
         PLD
         TSC
         CLC
         ADC   #$0006
         TCS
         RTL

L040768  TSC
         SEC
         SBC   #$000C
         TCS
         PHD
         TCD
         LDA   $10
         ORA   $12
         BNE   L0407DF
         PHA
         PHA
         PEA   $0000
         PEA   $000A
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$0006
         LDA   [$01],Y
         PHA
         PEA   $C018
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   $09
         PLA
         STA   $0B
         LDX   $0B
         LDA   $09
         PHX
         PHA
         _HLock
         LDY   #$0002
         LDA   [$09],Y
         TAX
         LDA   [$09]
         STX   $12
         STA   $10
         LDA   $14
         STA   [$10]
         LDA   $16
         STA   [$10],Y
         INY
         INY
         LDA   $18
         STA   [$10],Y
         LDY   #$0006
         LDA   #$0000
         STA   [$10],Y
         INY
         INY
         STA   [$10],Y
         BRA   L04080B
L0407DF  LDA   [$10]
         CMP   $14
         BEQ   L04080B
         LDX   $18
         LDA   $16
         PHX
         PHA
         PEI   $14
         LDY   #$0008
         LDA   [$10],Y
         TAX
         LDY   #$0006
         LDA   [$10],Y
         PHX
         PHA
         JSL   L040768
         PHX
         PHA
         LDY   #$0006
         PLA
         STA   [$10],Y
         INY
         INY
         PLA
         STA   [$10],Y
L04080B  LDA   $10
         LDX   $12
         STA   $05
         STX   $07
         LDA   $0E
         STA   $18
         LDA   $0D
         STA   $17
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0016
         TCS
         TYA
         RTL

L040828  TSC
         SEC
         SBC   #$000C
         TCS
         PHD
         TCD
         LDA   $10
         STA   $0B
         BRA   L040898
L040836  PEA   ^L040916
         PEA   L040916
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L040844  PEA   ^L04092F
         PEA   L04092F
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L040852  PEA   ^L040949
         PEA   L040949
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L040860  PEA   ^L04095B
         PEA   L04095B
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L04086E  PEA   ^L040978
         PEA   L040978
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L04087C  PEA   ^L040988
         PEA   L040988
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L04088A  PEA   ^L0409AB
         PEA   L0409AB
         PLA
         STA   $07
         PLA
         STA   $09
         BRA   L0408BC
L040898  LDA   $0B
         SEC
         SBC   #$0100
         CMP   #$0006
         BCC   L0408A6
         LDA   #$0006
L0408A6  ASL
         TAX
         LDAL  $0408AE,X
         PHA
         RTS

L0408AE  DA    L040836-1
         DA    L040852-1
         DA    L040844-1
         DA    L040860-1
         DA    L04086E-1
         DA    L04087C-1
         DA    L04088A-1

L0408BC  LDX   $09
         LDA   $07
         PHX
         PHA
         PEA   ^L0409B3
         PEA   L0409B3
         LDA   L027F63
         LDX   L027F63+2
         PHX
         PHA
         JSL   L02C68C
         LDX   #$0000
         TAY
         BPL   L0408DB
         DEX
L0408DB  PHX
         PHA
         PEA   ^L027F67
         PEA   L027F67
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         PEA   $2013
         PEA   ^L027F5F
         PEA   L027F5F
         JSL   L02C243
         LDA   $10
         STA   $05
         LDA   $0E
         STA   $10
         LDA   $0D
         STA   $0F
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         RTL

L040916  ASC   'BAD BIT COMMAND MODIFIER'00
L04092F  ASC   'BAD READ COMMAND MODIFIER'00
L040949  ASC   'UNDEFINED COMMAND'00
L04095B  ASC   'UNASSIGNED CTRL COMMAND CODE'00
L040978  ASC   'DIV/MOD BY ZERO'00
L040988  ASC   'AND/OR COMMAND WITHOUT ADJACENT IF'00
L0409AB  ASC   'UNKNOWN'00
L0409B3  ASC   0D
         ASC   '<<< TEMPLATE ERROR - %s >>>'0D0D00

L0409D2  TSC
         SEC
         SBC   #$000E
         TCS
         PHD
         TCD
         LDX   L027EC9
         LDA   L027EC7
         STX   $09
         STA   $07
L0409E4  LDA   $07
         ORA   $09
         BEQ   L040A1F
         LDY   #$0008
         LDA   [$07],Y
         TAX
         LDY   #$0006
         LDA   [$07],Y
         STX   $0D
         STA   $0B
         PHA
         PHA
         LDX   $09
         LDA   $07
         PHX
         PHA
         _FindHandle
         _DisposeHandle
         LDA   $0B
         LDX   $0D
         STA   $07
         STX   $09
         BRA   L0409E4
L040A1F  LDA   #$0000
         STA   $05
L040A24  LDA   $05
         ASL
         ASL
         TAX
         LDY   L028732,X
         LDA   L028730,X
         PHY
         PHA
         LDA   #$0000
         TAX
         LDY   #$0001
         CMP   $01,S
         BEQ   L040A3D
         DEY
L040A3D  TXA
         CMP   $03,S
         BEQ   L040A45
         LDY   #$0000
L040A45  PLA
         PLA
         TYA
         EOR   #$0001
         CMP   #$0000
         BEQ   L040A6C
         LDA   #$0010
         LDX   #$0001
         SEC
         SBC   $05
         BEQ   L040A62
         BVS   L040A60
         EOR   #$8000
L040A60  BMI   L040A63
L040A62  DEX
L040A63  TXA
         CMP   #$0000
         BEQ   L040A6C
         LDA   #$0001
L040A6C  TAX
         BEQ   L040A8A
         LDA   $05
         ASL
         ASL
         TAX
         LDY   L028732,X
         LDA   L028730,X
         PHY
         PHA
         _DisposeHandle
         INC   $05
         BRA   L040A24
L040A8A  PLD
         TSC
         CLC
         ADC   #$000E
         TCS
         RTL

L040A92  TSC
         SEC
         SBC   #$0010
         TCS
         PHD
         TCD
         LDA   #$0000
         STA   $0D
         STA   $0F
         LDA   #L027F71
         STA   $09
         LDA   #^L027F71
         STA   $0B
L040AAB  LDX   L027EC1
         LDA   L027EBF
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         TAX
         LDA   L02C277,X
         AND   #$00FF
         AND   #$0080
         CMP   #$0000
         BEQ   L040ADD
         PEI   $16
         PEI   $14
         PEI   $0F
         PEI   $0D
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L040ADD
         LDA   #$0001
L040ADD  CMP   #$0000
         BEQ   L040B0A
         LDX   L027EC1
         LDA   L027EBF
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         PHA
         LDX   L027ECF
         LDA   L027ECD
         SEC
         SBC   $01,S
         PLX
         TAX
         BEQ   L040B02
         LDA   #$0001
L040B02  CMP   #$0000
         BEQ   L040B0A
         LDA   #$0001
L040B0A  TAX
         BEQ   L040B3D
         PEI   $0B
         PEI   $09
         INC   $09
         BNE   L040B17
         INC   $0B
L040B17  LDX   L027EC1
         LDA   L027EBF
         INC   L027EBF
         BNE   L040B25
         INC   L027EC1
L040B25  STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         PLX
         STX   $01
         PLX
         STX   $03
         SEP   #$20
         STA   [$01]
         REP   #$20
         BRL   L040BEE
L040B3D  PEI   $0F
         PEI   $0D
         PEA   $0000
         PEA   $0000
         JSL   L02D6DE
         BEQ   L040BB0
         SEP   #$20
         LDA   #$00
         STA   [$09]
         REP   #$20
         PEA   ^L028270
         PEA   L028270
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   $0D
         STA   [$01]
         LDY   #$0002
         LDA   $0F
         STA   [$01],Y
         LDX   $16
         LDA   $14
         LDY   #$0000
         CMP   $0D
         BNE   L040B79
         CPX   $0F
L040B79  BNE   L040B7C
         INY
L040B7C  TYA
         BNE   L040B87
         PEA   $0000
         PEA   $0002
         BRA   L040B8D
L040B87  PEA   $0000
         PEA   $0000
L040B8D  PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         PEA   ^L027F71
         PEA   L027F71
         PLA
         STA   $05
         PLA
         STA   $07
         BRA   L040BF7
L040BB0  PEA   ^L028270
         PEA   L028270
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0001
         STA   [$01]
         LDY   #$0002
         LDA   #$0000
         STA   [$01],Y
         PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0001
         STA   [$01]
         LDA   #$0000
         STA   [$01],Y
         PEA   $0001
         JSL   L040C0C
         PHX
         STA   $05
         PLA
         STA   $07
         BRA   L040BF7
L040BEE  INC   $0D
         BNE   L040BF4
         INC   $0F
L040BF4  BRL   L040AAB
L040BF7  LDA   $12
         STA   $16
         LDA   $11
         STA   $15
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0014
         TCS
         TYA
         RTL

L040C0C  TSC
         SEC
         SBC   #$0010
         TCS
         PHD
         TCD
         PHA
         CLC
         LDA   L027EBF
         STA   $0D
         ADC   $14
         STA   L027EBF
         LDA   L027EC1
         STA   $0F
         ADC   #$0000
         STA   L027EC1
         PLA
         LDY   #$0002
         LDA   [$0D],Y
         TAX
         LDA   [$0D]
         STX   $0B
         STA   $09
         LDA   $14
         CMP   #$0001
         BNE   L040C56
         PEI   $0B
         LDA   $09
         AND   #$00FF
         PHA
         LDA   $03,S
         AND   #$0000
         STA   $03,S
         PLA
         STA   $09
         PLA
         STA   $0B
         BRA   L040C72
L040C56  LDA   $14
         CMP   #$0002
         BNE   L040C72
         PEI   $0B
         LDA   $09
         AND   #$FFFF
         PHA
         LDA   $03,S
         AND   #$0000
         STA   $03,S
         PLA
         STA   $09
         PLA
         STA   $0B
L040C72  LDA   $09
         LDX   $0B
         STA   $05
         STX   $07
         LDA   $12
         STA   $14
         LDA   $11
         STA   $13
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0012
         TCS
         TYA
         RTL

L040C8F  TSC
         SEC
         SBC   #$000C
         TCS
         PHD
         TCD
         LDA   #$0000
         STA   $09
         STA   $0B
L040C9E  LDA   [$10]
         AND   #$00FF
         TAX
         LDA   L02C277,X
         AND   #$00FF
         AND   #$0040
         BEQ   L040D1B
         PEI   $0B
         PEI   $09
         PEA   $0000
         PEA   $0004
         JSL   L02DCF2
         PLA
         STA   $09
         PLA
         STA   $0B
         LDA   [$10]
         AND   #$00FF
         LDX   #$0001
         SEC
         SBC   #$0039
         BEQ   L040CD8
         BVS   L040CD6
         EOR   #$8000
L040CD6  BMI   L040CD9
L040CD8  DEX
L040CD9  TXA
         BNE   L040CE7
         LDA   [$10]
         AND   #$00FF
         SEC
         SBC   #$0030
         BRA   L040CF5
L040CE7  LDA   [$10]
         AND   #$00FF
         PHA
         JSL   L02CA2C
         SEC
         SBC   #$0037
L040CF5  LDX   #$0000
         TAY
         BPL   L040CFC
         DEX
L040CFC  PHX
         PHA
         PEI   $0B
         PEI   $09
         CLC
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   $09
         PLA
         STA   $0B
         INC   $10
         BNE   L040D19
         INC   $12
L040D19  BRA   L040C9E
L040D1B  LDA   $09
         LDX   $0B
         STA   $05
         STX   $07
         LDA   $0E
         STA   $12
         LDA   $0D
         STA   $11
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0010
         TCS
         TYA
         RTL

L040D38  TSC
         SEC
         SBC   #$000E
         TCS
         PHD
         TCD
         PEA   $0001
         PEA   ^L027F3D
         PEA   L027F3D
         JSL   L026E47
         TAX
         BEQ   L040D73
         PEA   $0000
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         JSL   L026E47
         LDA   #$FFFF
         STA   $05
         BRL   L041145
L040D73  STZ   L027EC9
         STZ   L027EC7
         PEA   ^L027F3D
         PEA   L027F3D
         PEA   ^L027F07
         PEA   L027F07
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         PEA   ^L028854
         PEA   L028854
         PEA   ^L028075
         PEA   L028075
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         PEA   ^L028854
         PEA   L028854
         PEA   ^L0280BD
         PEA   L0280BD
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         PEA   $2010
         PEA   ^L027F03
         PEA   L027F03
         JSL   L02C243
         PEA   ^L0280B5
         PEA   L0280B5
         LDA   L027F05
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         STZ   L027ED7
         STZ   L027ED5
         LDA   #$0000
         STA   $0B
L040DED  LDA   $0B
         BMI   L040DF9
         CMP   #$0010
         BCC   L040DF9
         BRL   L0410D4
L040DF9  LDA   $0B
         ASL
         ASL
         CLC
         ADC   #L028730
         PEA   ^L028730
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         LDY   #$0002
         STA   [$01],Y
         LDA   #$0020
         STA   L028854
         PEA   $201C
         PEA   ^L0280B3
         PEA   L0280B3
         JSL   L02C243
         JSL   L02CA27
         STA   $0D
         TAX
         BEQ   L040E3E
         LDA   $0D
         CMP   #$0061
         BNE   L040E3B
         LDA   #$0000
         STA   $0D
L040E3B  BRL   L0410D4
L040E3E  LDA   L0280C3
         LDX   #$0000
         CMP   #$00B0
         BNE   L040E4A
         INX
L040E4A  TXA
         CMP   #$0000
         BEQ   L040E88
         LDA   L0280DF
         LDX   L0280E1
         PHX
         PHA
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$000A
         LDA   [$01],Y
         TAX
         LDY   #$0008
         LDA   [$01],Y
         LDY   #$0001
         CMP   $01,S
         BEQ   L040E75
         DEY
L040E75  TXA
         CMP   $03,S
         BEQ   L040E7D
         LDY   #$0000
L040E7D  PLA
         PLA
         TYA
         CMP   #$0000
         BEQ   L040E88
         LDA   #$0001
L040E88  TAX
         BNE   L040E8E
         BRL   L0410D1
L040E8E  PEA   ^L028854
         PEA   L028854
         LDA   L028856
         INC
         INC
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         LDA   #$3A35
         STA   L028856
         PEA   $2010
         PEA   ^L028071
         PEA   L028071
         JSL   L02C243
         LDA   #$0004
         STA   L027ED9
         PEA   ^L027EDB
         PEA   L027EDB
         LDA   L028073
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         PHA
         PHA
         LDA   L02809B
         LDX   L02809D
         PHX
         PHA
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$0006
         LDA   [$01],Y
         PHA
         PEA   $C018
         PEA   $0000
         PEA   $0000
         _NewHandle
         LDA   $0B
         ASL
         ASL
         CLC
         ADC   #L028730
         PEA   ^L028730
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         JSL   L02CA27
         STA   $0D
         LDA   $0D
         BEQ   L040F1E
         BRL   L0410CF
L040F1E  LDA   $0B
         ASL
         ASL
         TAX
         LDY   L028732,X
         LDA   L028730,X
         PHY
         PHA
         _HLock
         LDA   $0B
         ASL
         ASL
         TAX
         LDY   L028732,X
         LDA   L028730,X
         TYX
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         PHA
         LDA   [$01]
         PHA
         PEA   ^L027EDD
         PEA   L027EDD
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         LDA   L02809B
         LDX   L02809D
         PHX
         PHA
         PEA   ^L027EE1
         PEA   L027EE1
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         PEA   $2012
         PEA   ^L027ED9
         PEA   L027ED9
         JSL   L02C243
         LDA   #$0001
         STA   L027ED9
         PEA   $2014
         PEA   ^L027ED9
         PEA   L027ED9
         JSL   L02C243
         LDA   L027EDD
         LDX   L027EDF
         STX   L027EC5
         STA   L027EC3
         LDA   L02809B
         LDX   L02809D
         PHX
         PHA
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         CLC
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   $07
         PLA
         STA   $09
L040FC7  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L0421B5
         PHX
         STA   L027EC3
         PLA
         STA   L027EC5
         LDA   L027EB3
         CMP   #$001C
         BNE   L041036
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0001
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         LDX   L027ED3
         LDA   L027ED1
         PHA
         JSL   L02ACFE
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHA
         LDX   L027EC9
         LDA   L027EC7
         PHX
         PHA
         JSL   L040768
         PHX
         STA   L027EC7
         PLA
         STA   L027EC9
         BRA   L04108D
L041036  LDA   L027EB3
         CMP   #$0028
         BNE   L04104C
         LDX   L027EC5
         LDA   L027EC3
         STX   L027ED7
         STA   L027ED5
         BRA   L04108D
L04104C  LDA   L027EB3
         LDX   #$0000
         CMP   #$0026
         BNE   L041058
         INX
L041058  TXA
         CMP   #$0000
         BEQ   L041063
         LDA   #$0001
         BRA   L041078
L041063  LDA   L027EB3
         LDX   #$0000
         CMP   #$001E
         BNE   L04106F
         INX
L04106F  TXA
         CMP   #$0000
         BEQ   L041078
         LDA   #$0001
L041078  TAX
         BEQ   L04108D
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L0421B5
         STX   L027EC5
         STA   L027EC3
L04108D  LDX   L027EC5
         LDA   L027EC3
         STX   $01
         ORA   $01
         BEQ   L0410C6
         LDA   L027EC3
         PHX
         PHA
         LDX   $09
         LDA   $07
         TAY
         TXA
         LDX   #$0001
         CMP   $03,S
         BNE   L0410AE
         TYA
         CMP   $01,S
L0410AE  BEQ   L0410B2
         BCS   L0410B3
L0410B2  DEX
L0410B3  PLA
         PLA
         TXA
         LDX   #$0000
         TAY
         BPL   L0410BD
         DEX
L0410BD  STX   $01
         ORA   $01
         BEQ   L0410C6
         LDA   #$0001
L0410C6  BEQ   L0410CB
         BRL   L040FC7
L0410CB  INC   $0B
         BRA   L0410D1
L0410CF  BRA   L0410D4
L0410D1  BRL   L040DED
L0410D4  LDA   #$0001
         STA   L027ED9
         PEA   ^L027EDB
         PEA   L027EDB
         LDA   L0280B5
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         PEA   $2014
         PEA   ^L027ED9
         PEA   L027ED9
         JSL   L02C243
         LDY   #$0000
         LDA   L027EC7
         ORA   L027EC9
         BNE   L041104
         INY
L041104  TYA
         CMP   #$0000
         BEQ   L04111E
         LDA   $0D
         LDX   #$0000
         CMP   #$0000
         BNE   L041115
         INX
L041115  TXA
         CMP   #$0000
         BEQ   L04111E
         LDA   #$0001
L04111E  TAX
         BEQ   L041126
         LDA   #$0046
         STA   $0D
L041126  PEA   $0000
         LDX   L027EA9
         LDA   L027EA7
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         PHX
         PHA
         JSL   L026E47
         LDA   $0D
         STA   $05
L041145  LDY   $05
         PLD
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         RTL

L041150  TSC
         SEC
         SBC   #$0011
         TCS
         PHD
         TCD
         LDA   #L02812B
         STA   $0A
         LDA   #^L02812B
         STA   $0C
         PEA   ^L028230
         PEA   L028230
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         LDY   #$0002
         STA   [$01],Y
L041178  PEI   $17
         PEI   $15
         INC   $15
         BNE   L041182
         INC   $17
L041182  PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         SEP   #$20
         STA   $09
         REP   #$20
         CMP   #$000D
         BNE   L04119B
         BRL   L04134E
L04119B  LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L0411A8
         ORA   #$FF00
L0411A8  CMP   #$0000
         CMP   #$0025
         BNE   L0411D6
         PEA   ^L028230
         PEA   L028230
         PLA
         STA   $0E
         PLA
         STA   $10
         LDY   #$0002
         LDA   [$0E],Y
         PHA
         LDA   [$0E]
         CLC
         ADC   #$0001
         PHA
         LDA   $01,S
         STA   [$0E]
         LDA   $03,S
         STA   [$0E],Y
         PLA
         PLA
         BRL   L041325
L0411D6  LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L0411E3
         ORA   #$FF00
L0411E3  CMP   #$0000
         CMP   #$005C
         BEQ   L0411EE
         BRL   L041325
L0411EE  PEI   $17
         PEI   $15
         INC   $15
         BNE   L0411F8
         INC   $17
L0411F8  PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         PHA
         JSL   L02CA0D
         SEP   #$20
         STA   $09
         REP   #$20
         LDX   #$0000
         CMP   #$006E
         BNE   L041217
         INX
L041217  TXA
         CMP   #$0000
         BEQ   L041222
         LDA   #$0001
         BRA   L041244
L041222  LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L04122F
         ORA   #$FF00
L04122F  CMP   #$0000
         LDX   #$0000
         CMP   #$0072
         BNE   L04123B
         INX
L04123B  TXA
         CMP   #$0000
         BEQ   L041244
         LDA   #$0001
L041244  TAX
         BEQ   L041253
         LDA   #$000D
         SEP   #$20
         STA   $09
         REP   #$20
         BRL   L041325
L041253  LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L041260
         ORA   #$FF00
L041260  CMP   #$0000
         CMP   #$0074
         BNE   L041274
         LDA   #$0009
         SEP   #$20
         STA   $09
         REP   #$20
         BRL   L041325
L041274  LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L041281
         ORA   #$FF00
L041281  CMP   #$0000
         CMP   #$0078
         BEQ   L04128C
         BRL   L041325
L04128C  LDA   [$15]
         AND   #$00FF
         LDX   #$0001
         SEC
         SBC   #$0039
         BEQ   L0412A1
         BVS   L04129F
         EOR   #$8000
L04129F  BMI   L0412A2
L0412A1  DEX
L0412A2  TXA
         BNE   L0412B4
         LDA   [$15]
         AND   #$00FF
         SEC
         SBC   #$0030
         ASL
         ASL
         ASL
         ASL
         BRA   L0412C6
L0412B4  LDA   [$15]
         AND   #$00FF
         PHA
         JSL   L02CA2C
         SEC
         SBC   #$0037
         ASL
         ASL
         ASL
         ASL
L0412C6  SEP   #$20
         STA   $09
         REP   #$20
         INC   $15
         BNE   L0412D2
         INC   $17
L0412D2  LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L0412DF
         ORA   #$FF00
L0412DF  CMP   #$0000
         PHA
         LDA   [$15]
         AND   #$00FF
         LDX   #$0001
         SEC
         SBC   #$0039
         BEQ   L0412F8
         BVS   L0412F6
         EOR   #$8000
L0412F6  BMI   L0412F9
L0412F8  DEX
L0412F9  TXA
         BNE   L041307
         LDA   [$15]
         AND   #$00FF
         SEC
         SBC   #$0030
         BRA   L041315
L041307  LDA   [$15]
         AND   #$00FF
         PHA
         JSL   L02CA2C
         SEC
         SBC   #$0037
L041315  CLC
         ADC   $01,S
         PLX
         SEP   #$20
         STA   $09
         REP   #$20
         INC   $15
         BNE   L041325
         INC   $17
L041325  PEI   $0C
         PEI   $0A
         INC   $0A
         BNE   L04132F
         INC   $0C
L04132F  PLA
         PLX
         STA   $01
         STX   $03
         LDA   $09
         AND   #$00FF
         BIT   #$0080
         BEQ   L041342
         ORA   #$FF00
L041342  CMP   #$0000
         SEP   #$20
         STA   [$01]
         REP   #$20
         BRL   L041178
L04134E  SEP   #$20
         LDA   #$00
         STA   [$0A]
         REP   #$20
         LDA   L028230
         BEQ   L041369
         ASL
         ASL
         TAX
         INX
         INX
L041360  LDA   L028230,X
         PHA
         DEX
         DEX
         CPX   #$0002
L041369  BNE   L041360
         PEA   ^L02812B
         PEA   L02812B
         LDA   L027F63
         LDX   L027F63+2
         PHX
         PHA
         JSL   L02C68C
         LDX   #$0000
         TAY
         BPL   L041384
         DEX
L041384  PHX
         PHA
         PEA   ^L027F67
         PEA   L027F67
         PLA
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         LDA   L027F63
         LDX   L027F63+2
         STX   $0C
         STA   $0A
L0413A5  LDA   [$0A]
         AND   #$00FF
         BEQ   L041418
         LDA   $0A
         LDX   $0C
         STA   $0E
         STX   $10
         PEI   $10
         PEI   $0E
         LDA   [$0E]
         AND   #$00FF
         PHA
         LDA   L027EB0
         AND   #$00FF
         BIT   #$0080
         BEQ   L0413CC
         ORA   #$FF00
L0413CC  CMP   #$0000
         ORA   $01,S
         PLX
         PLX
         STX   $01
         PLX
         STX   $03
         SEP   #$20
         STA   [$01]
         REP   #$20
         LDA   $0A
         LDX   $0C
         STA   $0E
         STX   $10
         PEI   $10
         PEI   $0E
         LDA   [$0E]
         AND   #$00FF
         PHA
         LDA   L027EAF
         AND   #$00FF
         BIT   #$0080
         BEQ   L0413FE
         ORA   #$FF00
L0413FE  CMP   #$0000
         AND   $01,S
         PLX
         PLX
         STX   $01
         PLX
         STX   $03
         SEP   #$20
         STA   [$01]
         REP   #$20
         INC   $0A
         BNE   L041416
         INC   $0C
L041416  BRA   L0413A5
L041418  PEA   $2013
         PEA   ^L027F5F
         PEA   L027F5F
         JSL   L02C243
         LDA   $15
         LDX   $17
         STA   $05
         STX   $07
         LDA   $13
         STA   $17
         LDA   $12
         STA   $16
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0015
         TCS
         TYA
         RTL

L041442  TSC
         SEC
         SBC   #$001A
         TCS
         PHD
         TCD
L04144A  LDA   L027EC3
         ORA   L027EC5
         BNE   L041455
         BRL   L0421AD
L041455  LDA   L027EB9
         BNE   L041487
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0007
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
         STA   L027EB9
L041487  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L0421B5
         STX   L027EC5
         STA   L027EC3
         LDA   L027EB3
         STA   $13
L04149E  BRL   L042146
L0414A1  BRL   L0421AA
L0414A4  LDA   L027EAB
         BNE   L0414E1
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         AND   $03,S
         STA   $03,S
         PLA
         AND   $03,S
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         BRL   L041667
L0414E1  LDA   L027EAB
         CMP   #$0017
         BNE   L04154D
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         ORA   $03,S
         STA   $03,S
         PLA
         ORA   $03,S
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDA   [$15],Y
         PHA
         LDA   [$15]
         EOR   #$FFFF
         PHA
         LDA   $03,S
         EOR   #$FFFF
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         BRL   L041667
L04154D  LDA   L027EAB
         CMP   #$0019
         BNE   L04158D
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         ORA   $03,S
         STA   $03,S
         PLA
         ORA   $03,S
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         BRL   L041667
L04158D  LDA   L027EAB
         CMP   #$001F
         BNE   L0415CD
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         EOR   $03,S
         STA   $03,S
         PLA
         EOR   $03,S
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         BRL   L041667
L0415CD  LDA   L027EAB
         CMP   #$0024
         BNE   L041615
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         AND   #$001F
         PHA
         LDA   $03,S
         AND   #$0000
         STA   $03,S
         JSL   L02DCF2
         PLA
         STA   [$15]
         LDY   #$0002
         PLA
         STA   [$15],Y
         BRA   L041667
L041615  LDA   L027EAB
         CMP   #$0025
         BNE   L04165D
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         AND   #$001F
         PHA
         LDA   $03,S
         AND   #$0000
         STA   $03,S
         JSL   L02CA46
         PLA
         STA   [$15]
         LDY   #$0002
         PLA
         STA   [$15],Y
         BRA   L041667
L04165D  PEA   $0100
         JSL   L040828
         STA   L027EB9
L041667  BRL   L0421AA
L04166A  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         STA   L027EC3
         PLA
         STA   L027EC5
         BRL   L0421AA
L041681  LDX   L027ED3
         LDA   L027ED1
         STA   $19
         BRL   L041956
L04168C  LDA   #$0080
         SEP   #$20
         STA   L027EB0
         REP   #$20
         LDA   #$00FF
         SEP   #$20
         STA   L027EAF
         REP   #$20
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L04197B
L0416C5  LDA   #$0000
         SEP   #$20
         STA   L027EB0
         REP   #$20
         LDA   #$007F
         SEP   #$20
         STA   L027EAF
         REP   #$20
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L04197B
L0416FE  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         LDA   #$0000
         TAX
         LDY   #$0001
         CMP   $01,S
         BEQ   L041718
         DEY
L041718  TXA
         CMP   $03,S
         BEQ   L041720
         LDY   #$0000
L041720  PLA
         PLA
         TYA
         BEQ   L041728
         BRL   L0421AD
L041728  BRL   L04197B
L04172B  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         LDA   #$0000
         TAX
         LDY   #$0001
         CMP   $01,S
         BEQ   L041745
         DEY
L041745  TXA
         CMP   $03,S
         BEQ   L04174D
         LDY   #$0000
L04174D  PLA
         PLA
         TYA
         BNE   L041755
         BRL   L0421AD
L041755  BRL   L04197B
L041758  PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0001
         STA   [$01]
         LDY   #$0002
         LDA   #$0000
         STA   [$01],Y
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         PEA   $0000
         PEA   $001F
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L0417AE
         PEA   $0000
         PEA   $007F
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L0417AE
         LDA   #$0001
L0417AE  CMP   #$0000
         BEQ   L0417D7
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         TYX
         LDY   #$0000
         CMP   L027ECD
         BNE   L0417CB
         CPX   L027ECF
L0417CB  BEQ   L0417CE
         INY
L0417CE  TYA
         CMP   #$0000
         BEQ   L0417D7
         LDA   #$0001
L0417D7  TAX
         BEQ   L041829
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PEA   ^L02822B
         PEA   L02822B
         JSL   L02C78E
         PHX
         PLA
         PEA   ^L02822B
         PEA   L02822B
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         STA   [$01],Y
L041829  BRL   L04197B
L04182C  PEA   $0000
         PEA   $0020
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L04184E
         LDA   #$0001
         BRA   L04186E
L04184E  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         PEA   $0000
         PEA   $007F
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L04186E
         LDA   #$0001
L04186E  TAX
         BEQ   L041893
         LDX   L027EB7
         LDA   L027EB5
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
L041893  PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PEA   ^L02822B
         PEA   L02822B
         JSL   L02C78E
         PHX
         PLA
         PEA   ^L02822B
         PEA   L02822B
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L04197B
L0418D2  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         PEA   $0000
         PEA   $001F
         JSL   L02D6DE
         BEQ   L04190C
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         AND   #$007F
         PHA
         LDA   $03,S
         AND   #$0000
         STA   $03,S
         PLA
         STA   L027ECD
         PLA
         STA   L027ECF
L04190C  BRA   L04197B
L04190E  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         PEA   $0000
         PEA   $001F
         JSL   L02D6DE
         BEQ   L041948
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         AND   #$007F
         PHA
         LDA   $03,S
         AND   #$0000
         STA   $03,S
         PLA
         STA   L027EB5
         PLA
         STA   L027EB7
L041948  BRA   L04197B
L04194A  PEA   $0103
         JSL   L040828
         STA   L027EB9
         BRA   L04197B
L041956  LDA   $19
         DEC
         CMP   #$0008
         BCC   L041961
         LDA   #$0008
L041961  ASL
         TAX
         LDAL  L041969,X
         PHA
         RTS

L041969  DA    L04168C-1
         DA    L0416C5-1
         DA    L0416FE-1
         DA    L04172B-1
         DA    L041758-1
         DA    L04182C-1
         DA    L0418D2-1
         DA    L04190E-1
         DA    L04194A-1

L04197B  BRL   L0421AA
L04197E  PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         SEC
         PLA
         SBC   $03,S
         STA   $03,S
         PLA
         SBC   $03,S
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         BRL   L0421AA
L0419B9  LDY   #$0000
         LDA   L027ED1
         ORA   L027ED3
         BNE   L0419C5
         INY
L0419C5  TYA
         CMP   #$0000
         BEQ   L0419D0
         LDA   #$0001
         BRA   L0419ED
L0419D0  LDA   L028264
         LDX   L028266
         LDY   #$0000
         CMP   L027ED1
         BNE   L0419E1
         CPX   L027ED3
L0419E1  BNE   L0419E4
         INY
L0419E4  TYA
         CMP   #$0000
         BEQ   L0419ED
         LDA   #$0001
L0419ED  TAX
         BEQ   L0419F3
L0419F0  BRL   L0421AD
L0419F3  LDA   L027EB3
         CMP   #$0009
         BEQ   L041A11
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L0421B5
         PHX
         STA   L027EC3
         PLA
         STA   L027EC5
L041A0F  BRA   L0419F3
L041A11  BRL   L0421AA
L041A14  LDA   #$0001
         STA   L027EAD
L041A1A  LDX   L027EC5
         LDA   L027EC3
         STX   $11
         STA   $0F
         LDA   #$0000
         STA   $05
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         TYX
         STX   $0D
         STA   $0B
         LDA   L027EB3
         CMP   #$0019
         BNE   L041A54
         LDA   L027EAD
         BNE   L041A4F
         LDA   #$0001
         STA   L027EAD
         BRA   L041A54
L041A4F  LDA   #$0001
         STA   $05
L041A54  LDA   $05
         LDX   #$0000
         CMP   #$0000
         BNE   L041A5F
         INX
L041A5F  TXA
         CMP   #$0000
         BNE   L041A68
         BRL   L041BCA
L041A68  LDA   L027EAB
         LDX   #$0000
         CMP   #$000A
         BNE   L041A74
         INX
L041A74  TXA
         CMP   #$0000
         BEQ   L041A95
         LDX   L027ED3
         LDA   L027ED1
         LDY   #$0000
         CMP   $0B
         BNE   L041A89
         CPX   $0D
L041A89  BEQ   L041A8C
         INY
L041A8C  TYA
         CMP   #$0000
         BEQ   L041A95
         LDA   #$0001
L041A95  CMP   #$0000
         BEQ   L041A9F
         LDA   #$0001
         BRA   L041AD1
L041A9F  LDA   L027EAB
         LDX   #$0000
         CMP   #$000B
         BNE   L041AAB
         INX
L041AAB  TXA
         CMP   #$0000
         BEQ   L041AC9
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         PEI   $0D
         PEI   $0B
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L041AC9
         LDA   #$0001
L041AC9  CMP   #$0000
         BEQ   L041AD1
         LDA   #$0001
L041AD1  CMP   #$0000
         BEQ   L041ADB
         LDA   #$0001
         BRA   L041B0D
L041ADB  LDA   L027EAB
         LDX   #$0000
         CMP   #$000D
         BNE   L041AE7
         INX
L041AE7  TXA
         CMP   #$0000
         BEQ   L041B05
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         LDX   $0D
         LDA   $0B
         JSL   L02D6AD
         CMP   #$0000
         BEQ   L041B05
         LDA   #$0001
L041B05  CMP   #$0000
         BEQ   L041B0D
         LDA   #$0001
L041B0D  CMP   #$0000
         BEQ   L041B17
         LDA   #$0001
         BRA   L041B49
L041B17  LDA   L027EAB
         LDX   #$0000
         CMP   #$0010
         BNE   L041B23
         INX
L041B23  TXA
         CMP   #$0000
         BEQ   L041B41
         PEI   $0D
         PEI   $0B
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         JSL   L02D6DE
         CMP   #$0000
         BEQ   L041B41
         LDA   #$0001
L041B41  CMP   #$0000
         BEQ   L041B49
         LDA   #$0001
L041B49  CMP   #$0000
         BEQ   L041B53
         LDA   #$0001
         BRA   L041B83
L041B53  LDA   L027EAB
         LDX   #$0000
         CMP   #$0014
         BNE   L041B5F
         INX
L041B5F  TXA
         CMP   #$0000
         BEQ   L041B7B
         PEI   $0D
         PEI   $0B
         LDX   L027ED3
         LDA   L027ED1
         JSL   L02D6AD
         CMP   #$0000
         BEQ   L041B7B
         LDA   #$0001
L041B7B  CMP   #$0000
         BEQ   L041B83
         LDA   #$0001
L041B83  CMP   #$0000
         BEQ   L041B8D
         LDA   #$0001
         BRA   L041BC2
L041B8D  LDA   L027EAB
         LDX   #$0000
         CMP   #$0016
         BNE   L041B99
         INX
L041B99  TXA
         CMP   #$0000
         BEQ   L041BBA
         LDX   L027ED3
         LDA   L027ED1
         LDY   #$0000
         CMP   $0B
         BNE   L041BAE
         CPX   $0D
L041BAE  BNE   L041BB1
         INY
L041BB1  TYA
         CMP   #$0000
         BEQ   L041BBA
         LDA   #$0001
L041BBA  CMP   #$0000
         BEQ   L041BC2
         LDA   #$0001
L041BC2  CMP   #$0000
         BEQ   L041BCA
         LDA   #$0001
L041BCA  TAX
         BEQ   L041BD3
         LDA   #$0000
         STA   L027EAD
L041BD3  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L0421B5
         STX   L027EC5
         STA   L027EC3
         LDA   L027EB3
         LDX   #$0000
         CMP   #$0000
         BNE   L041BF1
         INX
L041BF1  TXA
         CMP   #$0000
         BEQ   L041BFC
         LDA   #$0001
         BRA   L041C11
L041BFC  LDA   L027EB3
         LDX   #$0000
         CMP   #$0019
         BNE   L041C08
         INX
L041C08  TXA
         CMP   #$0000
         BEQ   L041C11
         LDA   #$0001
L041C11  BEQ   L041C16
         BRL   L041A1A
L041C16  LDA   L027EAD
         BNE   L041C5B
L041C1B  LDA   L027EB3
         LDX   #$0000
         CMP   #$0009
         BEQ   L041C27
         INX
L041C27  TXA
         CMP   #$0000
         BEQ   L041C42
         LDA   L027EB3
         LDX   #$0000
         CMP   #$0008
         BEQ   L041C39
         INX
L041C39  TXA
         CMP   #$0000
         BEQ   L041C42
         LDA   #$0001
L041C42  TAX
         BEQ   L041C59
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L0421B5
         STX   L027EC5
         STA   L027EC3
         BRA   L041C1B
L041C59  BRA   L041C65
L041C5B  LDX   $11
         LDA   $0F
         STX   L027EC5
         STA   L027EC3
L041C65  BRL   L0421AA
L041C68  PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         CLC
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   [$15]
         PLA
         STA   [$15],Y
         BRL   L0421AA
L041CA3  LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         PEA   $0000
         PEA   $0002
         JSL   L02DCF2
         PEA   ^L028230
         PEA   L028230
         CLC
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         PHA
         LDA   [$01]
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         PLA
         STA   [$01],Y
         BRL   L0421AA
L041CEF  LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L0421AA
L041D14  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L0421AA
L041D39  LDA   L027ED1
         ORA   L027ED3
         BNE   L041D76
         PEA   $005F
         LDA   L028268
         LDX   L02826A
         PHX
         PHA
         LDA   L028264
         LDX   L028266
         PHA
         JSL   L025A27
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L041DF7
L041D76  LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         LDA   #$0000
         TAX
         LDY   #$0001
         CMP   $01,S
         BEQ   L041D90
         DEY
L041D90  TXA
         CMP   $03,S
         BEQ   L041D98
         LDY   #$0000
L041D98  PLA
         PLA
         TYA
         BEQ   L041DBF
         PEA   ^L0280B1
         PEA   L0280B1
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRA   L041DF7
L041DBF  PEA   $005F
         LDA   L027EB1
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         PHY
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHA
         JSL   L025A27
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
L041DF7  BRL   L0421AA
L041DFA  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         LDA   #$0001
         STA   $07
L041E21  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         LDA   $07
         INC   $07
         LDX   #$0000
         TAY
         BPL   L041E34
         DEX
L041E34  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         CMP   #$000D
         BNE   L041E21
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PLX
         STA   $01
         STX   $03
         LDA   $07
         DEC
         DEC
         SEP   #$20
         STA   [$01]
         REP   #$20
         LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         LDA   $07
         LDX   #$0000
         TAY
         BPL   L041E75
         DEX
L041E75  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   L027EC3
         PLA
         STA   L027EC5
         BRL   L0421AA
L041E8A  LDA   L027EAB
         CMP   #$0002
         BNE   L041EB8
         PEA   $0001
         JSL   L040C0C
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L041FEF
L041EB8  LDA   L027EAB
         CMP   #$0004
         BNE   L041EF1
         LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         JSL   L02C7C2
         PHX
         PHA
         JSL   L040A92
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L041FEF
L041EF1  LDA   L027EAB
         CMP   #$000C
         BNE   L041F25
         PEA   $0002
         JSL   L040C0C
         PHX
         PHA
         JSL   L040A92
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L041FEF
L041F25  LDA   L027EAB
         CMP   #$0012
         BNE   L041F53
         PEA   $0004
         JSL   L040C0C
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRL   L041FEF
L041F53  LDA   L027EAB
         CMP   #$0018
         BNE   L041F85
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         JSL   L040A92
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRA   L041FEF
L041F85  LDA   L027EAB
         CMP   #$001A
         BNE   L041FB8
         PEA   $0001
         JSL   L040C0C
         PHX
         PHA
         JSL   L040A92
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRA   L041FEF
L041FB8  LDA   L027EAB
         CMP   #$001D
         BNE   L041FE5
         PEA   $0002
         JSL   L040C0C
         PHX
         PHA
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   #L028230
         PEA   ^L028230
         STA   $01
         PLA
         STA   $03
         PLA
         STA   [$01]
         LDY   #$0002
         PLA
         STA   [$01],Y
         BRA   L041FEF
L041FE5  PEA   $0102
         JSL   L040828
         STA   L027EB9
L041FEF  LDX   L027EC1
         LDA   L027EBF
         PHX
         PHA
         PEA   ^L028230
         PEA   L028230
         PEA   $0008
         LDA   L02826C
         LDX   L02826E
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         JSL   L02ACFE
L04201D  BRL   L0421AA
L042020  BRL   L0421AA
L042023  LDX   L027EC5
         LDA   L027EC3
         PHX
         PHA
         JSL   L041150
         PHX
         STA   L027EC3
         PLA
         STA   L027EC5
         BRL   L0421AA
L04203A  PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDY   #$0002
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         JSL   L02DBC3
         PLA
         STA   [$15]
         LDY   #$0002
         PLA
         STA   [$15],Y
         BRL   L0421AA
L042071  PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         LDY   #$0002
         STA   [$01],Y
         LDA   L027ED1
         ORA   L027ED3
         BEQ   L0420C2
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         JSL   L02DC66
         PLA
         STA   [$15]
         LDY   #$0002
         PLA
         STA   [$15],Y
         BRA   L0420CC
L0420C2  PEA   $0104
         JSL   L040828
         STA   L027EB9
L0420CC  BRL   L0421AA
L0420CF  PEA   ^L028274
         PEA   L028274
         PLA
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         LDY   #$0002
         STA   [$01],Y
         LDA   L027ED1
         ORA   L027ED3
         BEQ   L042122
         PEA   ^L028230
         PEA   L028230
         LDA   L027EB1
         ASL
         ASL
         CLC
         ADC   $01,S
         STA   $01,S
         PLA
         STA   $15
         PLA
         STA   $17
         LDA   [$15],Y
         PHA
         LDA   [$15]
         PHA
         LDX   L027ED3
         LDA   L027ED1
         PHX
         PHA
         JSL   L02DB10
         PLY
         PLY
         PLA
         STA   [$15]
         LDY   #$0002
         PLA
         STA   [$15],Y
         BRA   L04212C
L042122  PEA   $0104
         JSL   L040828
         STA   L027EB9
L04212C  BRA   L0421AA
L04212E  PEA   $0105
         JSL   L040828
         STA   L027EB9
         BRA   L0421AA
L04213A  PEA   $0101
         JSL   L040828
         STA   L027EB9
         BRA   L0421AA
L042146  LDA   $13
         CMP   #$0028
         BCC   L042150
         LDA   #$0028
L042150  ASL
         TAX
         LDAL  L042158,X
         PHA
         RTS

L042158  DA    L04212E-1
         DA    L0414A4-1
         DA    L04213A-1
         DA    L04166A-1
         DA    L04213A-1
         DA    L041681-1
         DA    L04197E-1
         DA    L0419B9-1
         DA    L0419F3-1
         DA    L041A11-1
         DA    L04213A-1
         DA    L04213A-1
         DA    L04213A-1
         DA    L04213A-1
         DA    L041A14-1
         DA    L041C68-1
         DA    L04213A-1
         DA    L041CEF-1
         DA    L04213A-1
         DA    L041D14-1
         DA    L04213A-1
         DA    L041D39-1
         DA    L04213A-1
         DA    L04213A-1
         DA    L04213A-1
         DA    L04212E-1
         DA    L04213A-1
         DA    L041E8A-1
         DA    L042020-1
         DA    L04213A-1
         DA    L042023-1
         DA    L04213A-1
         DA    L0414A1-1
         DA    L04203A-1
         DA    L042071-1
         DA    L0420CF-1
         DA    L04213A-1
         DA    L04213A-1
         DA    L041DFA-1
         DA    L041CA3-1
         DA    L04213A-1

L0421AA  BRL   L04144A
L0421AD  PLD
         TSC
         CLC
         ADC   #$001A
         TCS
         RTL

L0421B5  TSC
         SEC
         SBC   #$0012
         TCS
         PHD
         TCD
         LDA   #$0001
         STA   $0F
         LDA   #$0000
         STA   $11
         STA   $0D
         STA   $0B
         STA   $09
L0421CD  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L0421DA
         DEX
L0421DA  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         LDX   #$0000
         CMP   #$000D
         BNE   L0421F8
         INX
L0421F8  TXA
         CMP   #$0000
         BEQ   L042203
         LDA   #$0001
         BRA   L042237
L042203  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L042210
         DEX
L042210  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         LDX   #$0000
         CMP   #$0000
         BNE   L04222E
         INX
L04222E  TXA
         CMP   #$0000
         BEQ   L042237
         LDA   #$0001
L042237  TAX
         BEQ   L042279
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   $0D
         TAX
         SEP   #$20
         LDA   #$00
         STA   L028814,X
         REP   #$20
         PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L04225A
         DEX
L04225A  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         BNE   L042276
         LDA   #$0001
         STA   $11
L042276  BRL   L042402
L042279  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L042286
         DEX
L042286  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         LDX   #$0000
         CMP   #$0020
         BNE   L0422A4
         INX
L0422A4  TXA
         CMP   #$0000
         BEQ   L0422AF
         LDA   #$0001
         BRA   L0422E3
L0422AF  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L0422BC
         DEX
L0422BC  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         LDX   #$0000
         CMP   #$0009
         BNE   L0422DA
         INX
L0422DA  TXA
         CMP   #$0000
         BEQ   L0422E3
         LDA   #$0001
L0422E3  TAX
         BNE   L0422E9
         BRL   L0423B2
L0422E9  LDA   $0F
         BNE   L04230C
         LDA   $0B
         INC   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   $0D
         TAX
         SEP   #$20
         LDA   #$00
         STA   L028814,X
         REP   #$20
         LDA   #$0000
         STA   $0D
         LDA   #$0001
         STA   $0F
L04230C  LDA   $0B
         BMI   L042316
         DEC
         DEC
         DEC
         DEC
         BPL   L042319
L042316  BRL   L0423B0
L042319  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L042326
         DEX
L042326  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         LDX   #$0000
         CMP   #$000D
         BEQ   L042344
         INX
L042344  TXA
         CMP   #$0000
         BEQ   L04237E
         PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L042357
         DEX
L042357  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         LDX   #$0000
         CMP   #$0000
         BEQ   L042375
         INX
L042375  TXA
         CMP   #$0000
         BEQ   L04237E
         LDA   #$0001
L04237E  TAX
         BEQ   L042385
         INC   $09
         BRA   L042319
L042385  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L042392
         DEX
L042392  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         BNE   L0423AE
         LDA   #$0001
         STA   $11
L0423AE  BRA   L042402
L0423B0  BRA   L0423FD
L0423B2  LDA   #$0000
         STA   $0F
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   $0D
         INC   $0D
         CLC
         ADC   #L028814
         PEA   ^L028814
         PHA
         PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L0423D7
         DEX
L0423D7  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         PHA
         JSL   L02CA2C
         PLX
         STX   $01
         PLX
         STX   $03
         SEP   #$20
         STA   [$01]
         REP   #$20
L0423FD  INC   $09
         BRL   L0421CD
L042402  LDA   $0B
         BMI   L04240B
         DEC
         DEC
         DEC
         BPL   L042423
L04240B  INC   $0B
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #$0000
         TAX
         SEP   #$20
         LDA   #$00
         STA   L028814,X
         REP   #$20
         BRA   L042402
L042423  LDA   #$FFFF
         STA   L027EAB
         STA   L027EB3
         LDA   #$0000
         STA   $0B
L042431  LDA   $0B
         BMI   L04243A
         CMP   #$0029
         BCS   L042484
L04243A  LDA   $0B
         ASL
         ASL
         TAX
         LDY   L028770+2,X
         LDA   L028770,X
         PHY
         PHA
         PEA   ^L028814
         PEA   L028814
         JSL   L02C751
         TAX
         BNE   L042459
         LDA   $0B
         STA   L027EB3
L042459  LDA   $0B
         ASL
         ASL
         TAX
         LDY   L028770+2,X
         LDA   L028770,X
         PHY
         PHA
         PEA   ^L028814
         PEA   L028814
         LDA   #$0020
         CLC
         ADC   $01,S
         STA   $01,S
         JSL   L02C751
         TAX
         BNE   L042480
         LDA   $0B
         STA   L027EAB
L042480  INC   $0B
         BRA   L042431
L042484  LDA   L028824
         AND   #$00FF
         CMP   #$0052
         BNE   L0424A4
         PEA   ^L028824
         PEA   L028824
         LDA   #$0001
         CLC
         ADC   $01,S
         STA   $01,S
         JSL   L02C377
         STA   L027EB1
L0424A4  LDA   L027EB3
         ASL
         TAX
         LDA   L028878,X
         STA   $0B
         LDA   $0B
         BMI   L0424B5
         DEC
         BPL   L0424B8
L0424B5  BRL   L0425BA
L0424B8  LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #$0000
         TAX
         LDA   L028814,X
         AND   #$00FF
         CMP   #$0052
         BNE   L0424FB
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #L028814
         PEA   ^L028814
         PHA
         LDA   #$0001
         CLC
         ADC   $01,S
         STA   $01,S
         JSL   L02C377
         ASL
         ASL
         TAX
         LDY   L028232,X
         LDA   L028230,X
         TYX
         STX   L027ED3
         STA   L027ED1
         BRL   L0425BA
L0424FB  LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #$0000
         TAX
         LDA   L028814,X
         AND   #$00FF
         CMP   #$0024
         BNE   L042536
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #L028814
         PEA   ^L028814
         PHA
         LDA   #$0001
         CLC
         ADC   $01,S
         STA   $01,S
         JSL   L040C8F
         PHX
         STA   L027ED1
         PLA
         STA   L027ED3
         BRL   L0425BA
L042536  LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #$0000
         TAX
         LDA   L028814,X
         AND   #$00FF
         LDX   #$0000
         CMP   #$0030
         BNE   L042550
         INX
L042550  TXA
         CMP   #$0000
         BEQ   L042579
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #$0001
         TAX
         LDA   L028814,X
         AND   #$00FF
         LDX   #$0000
         CMP   #$0058
         BNE   L042570
         INX
L042570  TXA
         CMP   #$0000
         BEQ   L042579
         LDA   #$0001
L042579  TAX
         BEQ   L0425A0
         LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #L028814
         PEA   ^L028814
         PHA
         LDA   #$0002
         CLC
         ADC   $01,S
         STA   $01,S
         JSL   L040C8F
         PHX
         STA   L027ED1
         PLA
         STA   L027ED3
         BRA   L0425BA
L0425A0  LDA   $0B
         ASL
         ASL
         ASL
         ASL
         CLC
         ADC   #L028814
         PEA   ^L028814
         PHA
         JSL   L02C377
         PHX
         STA   L027ED1
         PLA
         STA   L027ED3
L0425BA  LDA   $11
         LDX   #$0000
         CMP   #$0000
         BNE   L0425C5
         INX
L0425C5  TXA
         BNE   L0425D0
         PEA   $0000
         PEA   $0000
         BRA   L0425FB
L0425D0  PEI   $18
         PEI   $16
         LDA   $09
         LDX   #$0000
         TAY
         BPL   L0425DD
         DEX
L0425DD  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         LDA   #$0001
         LDX   #$0000
         TAY
         BPL   L0425F1
         DEX
L0425F1  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
L0425FB  PLA
         STA   $05
         PLA
         STA   $07
         LDA   $14
         STA   $18
         LDA   $13
         STA   $17
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0016
         TCS
         TYA
         RTL

L042616  TSC
         SEC
         SBC   #$000C
         TCS
         PHD
         TCD
         LDX   L027EC9
         LDA   L027EC7
         STX   $0B
         STA   $09
L042628  LDA   [$09]
         CMP   $10
         BEQ   L042684
         LDY   #$0008
         LDA   [$09],Y
         PHA
         LDY   #$0006
         LDA   [$09],Y
         PHA
         LDA   #$0000
         TAX
         LDY   #$0001
         CMP   $01,S
         BEQ   L042646
         DEY
L042646  TXA
         CMP   $03,S
         BEQ   L04264E
         LDY   #$0000
L04264E  PLA
         PLA
         TYA
         BNE   L042664
         LDY   #$0008
         LDA   [$09],Y
         TAX
         LDY   #$0006
         LDA   [$09],Y
         STX   $0B
         STA   $09
         BRA   L042682
L042664  LDA   $10
         BEQ   L042679
         LDX   L027EC9
         LDA   L027EC7
         STX   $0B
         STA   $09
         LDA   #$0000
         STA   $10
         BRA   L042682
L042679  LDA   #$0000
         STA   $05
         STA   $07
         BRA   L042693
L042682  BRA   L042628
L042684  LDY   #$0004
         LDA   [$09],Y
         TAX
         LDY   #$0002
         LDA   [$09],Y
         STX   $07
         STA   $05
L042693  LDA   $0E
         STA   $10
         LDA   $0D
         STA   $0F
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         RTL

L0426A8  TSC
         SEC
         SBC   #$000C
         TCS
         PHD
         TCD
         LDA   $10
         STA   $09
         STZ   $0B
         LDA   $09
         LDX   $0B
         STA   $05
         STX   $07
         LDA   $0E
         STA   $10
         LDA   $0D
         STA   $0F
         LDX   $07
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$000E
         TCS
         TYA
         RTL

L0426D3  TSC
         SEC
         SBC   #$006C
         TCS
         PHD
         TCD
         LDX   $72
         LDA   $70
         PHX
         PHA
         _HLock
         LDY   #$0002
         LDA   [$70],Y
         PHA
         LDA   [$70]
         PHA
         TYA
         LDX   #$0000
         BPL   L0426FB
         DEX
L0426FB  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   $07
         PLA
         STA   $09
         LDA   #$000F
         STA   $21
         LDA   $07
         STA   $25
         LDA   $09
         STA   $27
         LDA   #$0000
         STA   $29
         STA   $2B
         STA   $47
         STA   $49
         PEA   $2010
         PEA   $0000
         TDC
         CLC
         ADC   #$0021
         PHA
         JSL   L02C243
         JSL   L02CA27
         STA   $13
         TAX
         BEQ   L04275C
         PEA   $3010
         PEI   $13
         JSL   L027CEB
         LDX   $72
         LDA   $70
         PHX
         PHA
         _HUnlock
         LDA   $13
         STA   $05
         BRL   L0429D0
L04275C  LDA   #$0001
         STA   $0B
         PEA   $0000
         TDC
         CLC
         ADC   #$000D
         PHA
         LDA   $23
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         PHA
         PHA
         LDA   $4B
         LDX   $4D
         PHX
         PHA
         LDA   L024112
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   $0F
         PLA
         STA   $11
         JSL   L02CA27
         STA   $13
         TAX
         BEQ   L0427DE
         PEA   $3020
         PEI   $13
         JSL   L027CEB
         PEA   $2014
         PEA   $0000
         TDC
         CLC
         ADC   #$000B
         PHA
         JSL   L02C243
         PEA   $3021
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $72
         LDA   $70
         PHX
         PHA
         _HUnlock
         LDA   $13
         STA   $05
         BRL   L0429D0
L0427DE  LDX   $11
         LDA   $0F
         PHX
         PHA
         _HLock
         LDA   #$0004
         STA   $5B
         PEA   $0000
         TDC
         CLC
         ADC   #$005D
         PHA
         LDA   $23
         PLX
         STX   $01
         PLX
         STX   $03
         STA   [$01]
         LDY   #$0002
         LDA   [$0F],Y
         PHA
         LDA   [$0F]
         STA   $5F
         PLA
         STA   $61
         LDA   $4B
         LDX   $4D
         PHX
         STA   $63
         PLA
         STA   $65
         PEA   $2012
         PEA   $0000
         TDC
         CLC
         ADC   #$005B
         PHA
         JSL   L02C243
         JSL   L02CA27
         STA   $13
         TAX
         BEQ   L04288E
         PEA   $3030
         PEI   $13
         JSL   L027CEB
         PEA   $2014
         PEA   $0000
         TDC
         CLC
         ADC   #$000B
         PHA
         JSL   L02C243
         PEA   $3031
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $11
         LDA   $0F
         PHX
         PHA
         _DisposeHandle
         PEA   $3232
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $72
         LDA   $70
         PHX
         PHA
         _HUnlock
         LDA   $13
         STA   $05
         BRL   L0429D0
L04288E  PEA   $2014
         PEA   $0000
         TDC
         CLC
         ADC   #$000B
         PHA
         JSL   L02C243
         JSL   L02CA27
         STA   $13
         TAX
         BEQ   L0428E6
         PEA   $3040
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $11
         LDA   $0F
         PHX
         PHA
         _DisposeHandle
         PEA   $3041
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $72
         LDA   $70
         PHX
         PHA
         _HUnlock
         LDA   $13
         STA   $05
         BRL   L0429D0
L0428E6  LDY   #$0002
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         STX   $17
         STA   $15
         LDA   $4B
         LDX   $4D
         PHX
         PHA
         PEI   $17
         PEI   $15
         CLC
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   $19
         PLA
         STA   $1B
L04290D  PEI   $17
         PEI   $15
         LDX   $1B
         LDA   $19
         TAY
         TXA
         LDX   #$0001
         CMP   $03,S
         BNE   L042921
         TYA
         CMP   $01,S
L042921  BEQ   L042925
         BCS   L042926
L042925  DEX
L042926  PLA
         PLA
         TXA
         BEQ   L042953
         LDA   $15
         LDX   $17
         STA   $1D
         STX   $1F
         PEI   $1F
         PEI   $1D
         LDA   [$1D]
         AND   #$00FF
         AND   #$007F
         PLX
         STX   $01
         PLX
         STX   $03
         SEP   #$20
         STA   [$01]
         REP   #$20
         INC   $15
         BNE   L042951
         INC   $17
L042951  BRA   L04290D
L042953  PEA   $000D
         LDX   $11
         LDA   $0F
         PHX
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   ^L0220FD
         PEA   L0220FD
         PHA
         PHA
         PHA
         PHA
         _FrontWindow
         PEA   $0000
         PEA   $1000
         _GetCtlHandleFromID
         _TESetText
         PEA   $3050
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $11
         LDA   $0F
         PHX
         PHA
         _DisposeHandle
         PEA   $3251
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $72
         LDA   $70
         PHX
         PHA
         _HUnlock
         LDA   #$0000
         STA   $05
L0429D0  LDA   $6E
         STA   $72
         LDA   $6D
         STA   $71
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0070
         TCS
         TYA
         RTL

L0429E3  ENT
         TSC
         SEC
         SBC   #$0028
         TCS
         PHD
         TCD
         LDA   #$0003
         STA   $1D
         STA   $23
         PEA   $007D
         PEA   $0023
         PEA   $0000
         PEA   ^L042C30
         PEA   L042C30
         PEA   $0000
         PEA   $0000
         PEA   ^L02ACEC
         PEA   L02ACEC
         PEA   $0000
         TDC
         CLC
         ADC   #$0015
         PHA
         _SFGetFile2
         JSL   L02CA27
         STA   $13
         PEA   $3110
         PEI   $13
         JSL   L027CEB
         LDA   $15
         CMP   #$0000
         BEQ   L042A48
         LDA   $13
         BEQ   L042A3D
         LDA   #$0001
L042A3D  EOR   #$0001
         CMP   #$0000
         BEQ   L042A48
         LDA   #$0001
L042A48  TAX
         BNE   L042A4E
         BRL   L042C21
L042A4E  _WaitCursor
         LDA   $1F
         LDX   $21
         STA   $01
         STX   $03
         LDY   #$0002
         LDA   [$01],Y
         TAX
         LDA   [$01]
         STX   $0D
         STA   $0B
         PEI   $0D
         PEI   $0B
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L042A7A
         DEX
L042A7A  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PEI   $0D
         PEI   $0B
         LDA   #$0002
         LDX   #$0000
         TAY
         BPL   L042A92
         DEX
L042A92  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         PLX
         STA   $01
         STX   $03
         LDA   [$01]
         AND   #$00FF
         PLX
         STX   $01
         PLX
         STX   $03
         SEP   #$20
         STA   [$01]
         REP   #$20
         PEI   $0D
         PEI   $0B
         LDA   #$0003
         LDX   #$0000
         TAY
         BPL   L042AC1
         DEX
L042AC1  CLC
         ADC   $01,S
         STA   $01,S
         TXA
         ADC   $03,S
         STA   $03,S
         PLA
         STA   $0B
         PLA
         STA   $0D
         LDA   $1F
         LDX   $21
         PHX
         PHA
         _HLock
         PHA
         PHA
         LDX   $0D
         LDA   $0B
         PHX
         PHA
         PEA   $0000
         PEA   $0000
         PEA   ^L026AB5
         PEA   L026AB5
         PEA   $0000
         PEA   $0000
         PEA   $0002
         PEA   $0000
         PEA   $0FFB
         PEA   $800E
         _NewWindow2
         PLA
         STA   $07
         PLA
         STA   $09
         PEA   $3120
         JSL   L02CA27
         PHA
         JSL   L027CEB
         PHA
         PHA
         PEA   $0000
         PEA   $000C
         LDA   L024112
         PHA
         PEA   $0000
         PEA   $0000
         PEA   $0000
         _NewHandle
         PLA
         STA   $0F
         PLA
         STA   $11
         PEA   $3122
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDX   $11
         LDA   $0F
         PHX
         PHA
         LDX   $09
         LDA   $07
         PHX
         PHA
         _SetWRefCon
         PEA   $3123
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDY   #$0002
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         STA   $01
         STX   $03
         LDA   #$0000
         STA   [$01]
         LDA   [$0F],Y
         PHA
         LDA   [$0F]
         CLC
         ADC   #$0002
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         STA   [$01],Y
         LDA   [$0F],Y
         TAX
         LDA   [$0F]
         CLC
         ADC   #$0006
         STA   $01
         STX   $03
         LDA   #$5754
         STA   [$01]
         LDA   [$0F],Y
         PHA
         LDA   [$0F]
         CLC
         ADC   #$0008
         STA   $01
         PLA
         STA   $03
         LDA   #$0000
         STA   [$01]
         STA   [$01],Y
         LDX   $09
         LDA   $07
         PHX
         PHA
         _SetPort
         LDA   $25
         LDX   $27
         PHX
         PHA
         JSL   L0426D3
         STA   $13
         LDA   $1F
         LDX   $21
         PHX
         PHA
         _DisposeHandle
         PEA   $3124
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDA   $25
         LDX   $27
         PHX
         PHA
         _DisposeHandle
         PEA   $3125
         JSL   L02CA27
         PHA
         JSL   L027CEB
         _InitCursor
L042C21  LDA   $13
         STA   $05
         LDY   $05
         PLD
         TSC
         CLC
         ADC   #$0028
         TCS
         TYA
         RTL

L042C30  STR   'Select a file...'
         DB    $00
L042C42  ENT
         TSC
         SEC
         SBC   #$000A
         TCS
         PHD
         TCD
         PHA
         PHA
         PHA
         PHA
         _FrontWindow
         _GetWRefCon
         PLA
         STA   $07
         PLA
         STA   $09
         PEA   $3210
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDY   #$0002
         LDA   [$07],Y
         TAX
         LDA   [$07]
         STA   $01
         STX   $03
         LDY   #$0006
         LDA   [$01],Y
         CMP   #$5754
         BEQ   L042C91
         LDA   #$FFFF
         STA   $05
         BRA   L042CD4
L042C91  LDX   $09
         LDA   $07
         PHX
         PHA
         _DisposeHandle
         PEA   $3216
         JSL   L02CA27
         PHA
         JSL   L027CEB
         PHA
         PHA
         _FrontWindow
         _CloseWindow
         PEA   $3220
         JSL   L02CA27
         PHA
         JSL   L027CEB
         LDA   #$0000
         STA   $05
L042CD4  LDY   $05
         PLD
         TSC
         CLC
         ADC   #$000A
         TCS
         TYA
         RTL

