Jetpac: Routine at 30237

30237: Routine at 761D

Used by the routines at 25562, 25752, 25887, 27244, 27375, 27695, 27893, MeteorUpdate, JetmanThrust and JetmanWalk.
30237	LD B,4
30239	LD HL,24576
30242	LD E,0
30244	PUSH HL
30245	INC HL
30246	LD A,(HL)
30247	SUB (IX+1)
30250	JP P,JetmanWalk_6
30253	NEG
30255	SET 6,E
This entry point is used by the routine at JetmanWalk.
30257	INC HL
30258	INC HL
30259	CP (HL)
30260	JP NC,30309
30263	ADD A,18
30265	CP (HL)
30266	JP C,30271
30269	SET 3,E
30271	DEC HL
30272	LD A,(HL)
30273	SUB (IX+2)
30276	NEG
30278	INC A
30279	INC A
30280	JP M,30309
30283	CP 2
30285	JR C,30305
30287	CP (IX+7)
30290	JR C,30301
30292	DEC A
30293	DEC A
30294	CP (IX+7)
30297	JR NC,30309
30299	SET 4,E
30301	SET 2,E
30303	POP HL
30304	RET
30305	SET 7,E
30307	JR 30301
30309	POP HL
30310	INC HL
30311	INC HL
30312	INC HL
30313	INC HL
30314	DJNZ 30242	Decrease B by one, and loop back to 30242 until zero
30316	RET