Lunar Jetman: Routine at A53A

A53A: Routine at A53A

Used by the routine at AD36.
A53A	PUSH IX	HL=IX+0018.
A53C	POP HL
A53D	LD DE,$0018
A540	ADD HL,DE
A541	LD A,(HL)	Return if the byte at this address is non-zero.
A542	AND A
A543	RET NZ
A544	LD (HL),$C8	Write C8 to HL.
A546	INC HL
A547	INC HL
A548	EX DE,HL
A549	LD A,($5E42)
A54C	LD C,A
A54D	LD A,($5E40)
A550	ADD A,C
A551	LD ($5E40),A
A554	LD A,($5E40)
A557	AND %00111100	Keep only bits 2-5.
A559	LD C,A
A55A	LD B,$00
A55C	LD HL,$A68B	HL=A68B.
A55F	ADD HL,BC
A560	INC HL
A561	INC HL
A562	LD A,(IX+$02)
A565	ADD A,$08
A567	LD (DE),A
A568	INC DE
A569	LD A,(IX+$03)
A56C	ADC A,$00
A56E	AND %00011111	Keep only bits 0-4.
A570	LD (DE),A
A571	INC DE
A572	LD A,(IX+$04)
A575	SUB $10
A577	JR $A5C8	Jump to A5C8.