Lunar Jetman: Routine at 42902

42902: Routine at A796

Used by the routine at LaserBeam_Animate.
42902	LD HL,25008	HL=Alien_States.
42905	LD DE,24	DE=0024.
42908	LD B,6	B=6.
42910	CALL 42955	Call 42955.
42913	LD HL,24840	HL=24840.
42916	LD B,1	B=1.
42918	CALL 42955	Call 42955.
42921	LD HL,24888	HL=24888.
42924	LD B,1	B=1.
42926	CALL 42955	Call 42955.
42929	LD HL,24864	HL=24864.
42932	LD A,(HL)	A=HL.
42933	SUB 200	A-=200.
42935	CP 4
42937	JR NC,42944
42939	LD B,1	B=1.
42941	CALL 42955	Call 42955.
42944	LD HL,24912	HL=24912.
42947	LD A,(HL)	A=HL.
42948	SUB 200	A-=200.
42950	CP 4
42952	RET NC
42953	LD B,1	B=1.
42955	LD A,(HL)	A=HL.
42956	AND A
42957	JR Z,42974
42959	BIT 2,(IX+2)
42963	JR Z,42974
42965	PUSH BC	Stash BC, DE and HL on the stack.
42966	PUSH DE
42967	PUSH HL
42968	CALL 42978	Call 42978.
42971	POP HL	Restore HL, DE and BC from the stack.
42972	POP DE
42973	POP BC
42974	ADD HL,DE	HL+=DE.
42975	DJNZ 42955	Decrease counter by one and loop back to 42955 until counter is zero.
42977	RET	Return.