Lunar Jetman: Routine at 36896

36896: Routine at 9020

Used by the routine at LevelNew.
36896	LD A,(24172)	If 24172 is non-zero then return.
36899	AND A
36900	RET NZ
36901	LD A,(24720)	A=24720.
36904	SUB 26
36906	CP 16
36908	RET NC
36909	LD HL,40282	HL=40282.
36912	LD DE,24696	DE=24696.
36915	LD BC,24	BC=0024.
36918	LDIR
36920	LD HL,(24722)	HL=24722.
36923	LD BC,(24962)	BC=24962.
36927	CALL 44351	Call 44351.
36930	LD HL,(24722)	HL=24722.
36933	JR NC,36982
36935	LD BC,64	BC=0064.
36938	CALL 40962	Call 40962.
36941	LD A,L
36942	AND %11111000	Keep only bits 3-7.
36944	LD L,A
36945	LD (24698),HL
36948	LD A,64	A=64.
36950	LD HL,24064	HL=GameOptions.
36953	BIT 0,(HL)
36955	JR Z,36959
36957	ADD A,63
36959	LD (24167),A
36962	LD A,(24225)
36965	DEC A
36966	LD (24225),A
36969	LD HL,36864	Write 36864 to FuelLevel_1.
36972	LD (24718),HL	Write 36864 to FuelLevel_1.
36975	XOR A	Write 0 to 24172.
36976	LD (24172),A	Write 0 to 24172.
36979	JP DisplayPlayerLives	Jump to DisplayPlayerLives.
36982	LD BC,65472	BC=65472.
36985	JR 36938	Jump to 36938.