Lunar Jetman: Routine at 34611

34611: Routine at 8733

Used by the routines at 36102, 37798, 38193, 38670, 40668, 42361, 42812, 42978, 43945, 44342, 45592 and 46056.
34611	LD L,(IX+1)	L=IX+1.
34614	LD H,(IX+4)	H=IX+4.
34617	LD D,(IX+7)	D=IX+7.
34620	LD A,(24151)	A=24151.
34623	AND A
34624	RET Z
34625	LD B,A
34626	CALL AttributeAddress	Call AttributeAddress.
34629	LD A,(24152)	A=24152.
34632	RRCA
34633	RRCA
34634	INC A
34635	RRCA
34636	AND %00011111	Keep only bits 0-4.
34638	INC A	Increment A by one.
34639	LD C,A	C=A.
This entry point is used by the routine at 44342.
34640	PUSH BC
34641	PUSH HL
34642	LD A,H
34643	CP 88
34645	JR C,34672
34647	PUSH BC
34648	PUSH HL
34649	LD BC,23232	BC=23232.
34652	AND A
34653	SBC HL,BC
34655	POP HL
34656	POP BC
34657	JR NC,34672
34659	LD A,(HL)
34660	AND A
34661	JR Z,34664
34663	LD (HL),D
34664	INC L
34665	LD A,L
34666	AND 31
34668	JR Z,34672
34670	DJNZ 34659
34672	POP HL
34673	LD BC,32	BC=0032.
34676	AND A
34677	SBC HL,BC
34679	POP BC
34680	DEC C
34681	JR NZ,34640
34683	RET	Return.