Lunar Jetman: Routine at 36028

36028: Routine at 8CBC


36028	LD (IX+6),240	Write 240 to IX+6.
36032	CALL HandlerControls	Call HandlerControls.
36035	BIT 3,A
36037	JP Z,36869
36040	CALL 37307	Call 37307.
36043	LD A,D
36044	AND A
36045	JP Z,36869
36048	LD A,E
36049	AND A
36050	JP Z,36869
36053	LD A,E
36054	OR E
36055	BIT 3,A
36057	JP NZ,36869
36060	JP 36293	Jump to 36293.
36063	JP 36313	Jump to 36313.
36066	LD A,240	Write 240 to IX+5.
36068	LD (IX+5),A	Write 240 to IX+5.
36071	LD A,(IX+0)	A=IX+0.
36074	DEC A	Decrease A by one.
36075	RES 2,A	Reset bit 2 of A.
36077	INC A	Increment A by one.
36078	LD (IX+0),A	Write A back to IX+0.
36081	JP 36028	Jump to 36028.
36084	LD A,16	Write 16 to IX+5.
36086	LD (IX+5),A	Write 16 to IX+5.
36089	LD A,(IX+0)	A=IX+0.
36092	DEC A	Decrease A by one.
36093	SET 2,A	Set bit 2 of A.
36095	INC A	Increment A by one.
36096	LD (IX+0),A	Write A back to IX+0.
36099	JP 36028	Jump to 36028.