Lunar Jetman: Routine at 86A1

86A1: Routine at 86A1

Used by the routines at 8614, 8701 and 8A5C.
86A1	LD L,(IX+$02)	L=IX+02.
86A4	LD H,(IX+$03)	H=IX+03.
86A7	LD BC,$0078	HL=HL+0078.
86AA	ADD HL,BC	HL=HL+0078.
86AB	LD BC,($607A)	BC=607A.
86AF	AND A
86B0	SBC HL,BC
86B2	LD A,H
86B3	AND %00011111	Keep only bits 0-4.
86B5	JR NZ,$867F
86B7	LD A,L
86B8	CP $F0
86BA	JR NC,$867F
86BC	LD (IX+$01),L
86BF	CALL $857F	Call 857F.
This entry point is used by the routine at 8614.
86C2	LD L,(IX+$01)	L=IX+01.
86C5	LD H,(IX+$04)	H=IX+04.
86C8	LD A,L
86C9	DEC A
86CA	RLCA
86CB	AND %00001110	Keep only bits 1-3.
86CD	CP $0E
86CF	JR NZ,$86D3
86D1	LD A,$E8	A=E8.
86D3	LD ($861D),A
86D6	LD (IX+$09),A
86D9	LD A,$02
86DB	JR Z,$86DE
86DD	INC A
86DE	LD ($5E57),A
86E1	LD (IX+$0B),H
86E4	CALL ScreenAddress	Call ScreenAddress.
86E7	LD A,(DE)
86E8	INC DE
86E9	LD ($5E59),A
86EC	LD ($5E58),A
86EF	LD (IX+$0A),A
86F2	LD (IX+$0C),E
86F5	LD (IX+$0D),D
86F8	LD (IX+$0E),L
86FB	LD (IX+$0F),H
86FE	LD C,$00	C=00.
8700	RET	Return.