Lunar Jetman: Routine at A7E2

A7E2: Routine at A7E2

Used by the routine at A796.
A7E2	INC HL	Increment HL by one.
A7E3	INC HL	Increment HL by one.
A7E4	EX DE,HL	Switch the DE and HL registers.
A7E5	LD A,(DE)	A=DE.
A7E6	INC DE	Increment DE by one.
A7E7	LD C,A	C=A.
A7E8	LD A,(DE)	A=DE.
A7E9	INC DE	Increment DE by one.
A7EA	LD B,A	B=A.
A7EB	LD HL,$0090	HL=0090.
A7EE	ADD HL,BC
A7EF	LD BC,($607A)	BC=607A.
A7F3	LD A,C
A7F4	ADD A,(IX+$02)
A7F7	LD C,A
A7F8	LD A,B
A7F9	ADC A,$00
A7FB	LD B,A
A7FC	AND A
A7FD	SBC HL,BC
A7FF	LD A,H
A800	AND $1F
A802	RET NZ
A803	LD A,L
A804	CP $20
A806	RET NC
A807	LD A,(DE)
A808	ADD A,$04
A80A	SUB (IX+$01)
A80D	CP $18
A80F	RET NC
A810	EX DE,HL
A811	LD BC,$000C	HL+=000C.
A814	ADD HL,BC	HL+=000C.
A815	SET 0,(HL)
A817	RES 2,(IX+$02)
A81B	RET	Return.
A81C	CALL $8B73	Call 8B73.
A81F	CALL $8733	Call 8733.
A822	INC (IX+$00)	Increment IX+00 by one.
A825	RET	Return.