Lunar Jetman: Routine at 8733

8733: Routine at 8733

Used by the routines at 8D06, 93A6, 9531, 970E, 9EDC, A579, A73C, A7E2, ABA9, AD36, B218 and B3E8.
8733	LD L,(IX+$01)	L=IX+01.
8736	LD H,(IX+$04)	H=IX+04.
8739	LD D,(IX+$07)	D=IX+07.
873C	LD A,($5E57)	A=5E57.
873F	AND A
8740	RET Z
8741	LD B,A
8742	CALL AttributeAddress	Call AttributeAddress.
8745	LD A,($5E58)	A=5E58.
8748	RRCA
8749	RRCA
874A	INC A
874B	RRCA
874C	AND %00011111	Keep only bits 0-4.
874E	INC A	Increment A by one.
874F	LD C,A	C=A.
This entry point is used by the routine at AD36.
8750	PUSH BC
8751	PUSH HL
8752	LD A,H
8753	CP $58
8755	JR C,$8770
8757	PUSH BC
8758	PUSH HL
8759	LD BC,$5AC0	BC=5AC0.
875C	AND A
875D	SBC HL,BC
875F	POP HL
8760	POP BC
8761	JR NC,$8770
8763	LD A,(HL)
8764	AND A
8765	JR Z,$8768
8767	LD (HL),D
8768	INC L
8769	LD A,L
876A	AND $1F
876C	JR Z,$8770
876E	DJNZ $8763
8770	POP HL
8771	LD BC,$0020	BC=0020.
8774	AND A
8775	SBC HL,BC
8777	POP BC
8778	DEC C
8779	JR NZ,$8750
877B	RET	Return.