Lunar Jetman: Routine at 9020

9020: Routine at 9020

Used by the routine at LevelNew.
9020	LD A,($5E6C)	If 5E6C is non-zero then return.
9023	AND A
9024	RET NZ
9025	LD A,($6090)	A=6090.
9028	SUB $1A
902A	CP $10
902C	RET NC
902D	LD HL,$9D5A	HL=9D5A.
9030	LD DE,$6078	DE=6078.
9033	LD BC,$0018	BC=0018.
9036	LDIR
9038	LD HL,($6092)	HL=6092.
903B	LD BC,($6182)	BC=6182.
903F	CALL $AD3F	Call AD3F.
9042	LD HL,($6092)	HL=6092.
9045	JR NC,$9076
9047	LD BC,$0040	BC=0040.
904A	CALL $A002	Call A002.
904D	LD A,L
904E	AND %11111000	Keep only bits 3-7.
9050	LD L,A
9051	LD ($607A),HL
9054	LD A,$40	A=40.
9056	LD HL,$5E00	HL=GameOptions.
9059	BIT 0,(HL)
905B	JR Z,$905F
905D	ADD A,$3F
905F	LD ($5E67),A
9062	LD A,($5EA1)
9065	DEC A
9066	LD ($5EA1),A
9069	LD HL,$9000	Write 9000 to FuelLevel_1.
906C	LD ($608E),HL	Write 9000 to FuelLevel_1.
906F	XOR A	Write 00 to 5E6C.
9070	LD ($5E6C),A	Write 00 to 5E6C.
9073	JP DisplayPlayerLives	Jump to DisplayPlayerLives.
9076	LD BC,$FFC0	BC=FFC0.
9079	JR $904A	Jump to 904A.