Jetpac: Routine at 761D

761D: Routine at 761D

Used by the routines at 63DA, 6498, 651F, 6A6C, 6AEF, 6C2F, 6CF5, MeteorUpdate, JetmanThrust and JetmanWalk.
761D	LD B,$04
761F	LD HL,$6000
7622	LD E,$00
7624	PUSH HL
7625	INC HL
7626	LD A,(HL)
7627	SUB (IX+$01)
762A	JP P,JetmanWalk_6
762D	NEG
762F	SET 6,E
This entry point is used by the routine at JetmanWalk.
7631	INC HL
7632	INC HL
7633	CP (HL)
7634	JP NC,$7665
7637	ADD A,$12
7639	CP (HL)
763A	JP C,$763F
763D	SET 3,E
763F	DEC HL
7640	LD A,(HL)
7641	SUB (IX+$02)
7644	NEG
7646	INC A
7647	INC A
7648	JP M,$7665
764B	CP $02
764D	JR C,$7661
764F	CP (IX+$07)
7652	JR C,$765D
7654	DEC A
7655	DEC A
7656	CP (IX+$07)
7659	JR NC,$7665
765B	SET 4,E
765D	SET 2,E
765F	POP HL
7660	RET
7661	SET 7,E
7663	JR $765D
7665	POP HL
7666	INC HL
7667	INC HL
7668	INC HL
7669	INC HL
766A	DJNZ $7622	Decrease B by one, and loop back to 7622 until zero
766C	RET