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

         REL
	 mx	%00

	 use	LOADSEG.X.S

	 use	4/Load.Macs
	 use	4/Util.Macs
	 
*-------------------------------

L0E0000  ENT
         PHP
         REP   #$20
         LDA   $05,S
         STA   L02034B
         LDA   $07,S
         STA   L02034D
         LDA   $09,S
         STA   L020349
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
         PEA   $0000
L0E0021  LDA   L020349
         PHA
         _Restart
         BCS   L0E0031
         JMP   L0E009A

L0E0031  CMP   #$0046
         BNE   L0E0050
         TAX
         LDA   L024288
         BEQ   L0E0045
         LDX   #$FFFF
         STX   L020349
         JMP   L0E00A8

L0E0045  JSL   L0F028F
         JSL   L0F01F9
         JMP   L0E0021

L0E0050  LDA   L020349
         PHA
         LDA   L02034D
         PHA
         LDA   L02034B
         PHA
         PEA   $0000
         _InitialLoad
         BCC   L0E009A
         CMP   #$0046
         BEQ   L0E0072
         CMP   #$0044
         BNE   L0E008C
L0E0072  TAX
         LDA   L024288
         BEQ   L0E0081
         LDX   #$FFFF
         STX   L020349
         JMP   L0E00A8

L0E0081  JSL   L0F028F
         JSL   L0F01F9
         JMP   L0E0050

L0E008C  LDX   #$FFFF
         STX   L020349
         PLA
         PLA
         PLA
         PLA
         PLA
         JMP   L0E00A8

L0E009A  PLA
         STA   L020349
         PLA
         STA   L02034F
         PLA
         STA   L020351
         PLA
         PLA
L0E00A8  LDA   L020349
         STA   $09,S
         LDA   L02034F
         STA   $05,S
         LDA   L020351
         STA   $07,S
         PLP
         RTL

L0E00B9  ENT
         PHP
         REP   #$20
         LDA   $05,S
         STA   L020349
         PEA   $0000
         LDA   L020349
         PHA
         LDA   L0242F7
         BEQ   L0E00D3
         PEA   $0000
         JMP   L0E00D6

L0E00D3  PEA   $C000
L0E00D6  _UserShutDown
         PLA
         STA   $05,S
         LDA   L0242F7
         BEQ   L0E00EA
         LDA   #$0000
         STA   $05,S
L0E00EA  PLP
         RTL