Lunar Jetman: Routine at 8CBC

8CBC: Routine at 8CBC


8CBC	LD (IX+$06),$F0	Write F0 to IX+06.
8CC0	CALL HandlerControls	Call HandlerControls.
8CC3	BIT 3,A
8CC5	JP Z,$9005
8CC8	CALL $91BB	Call 91BB.
8CCB	LD A,D
8CCC	AND A
8CCD	JP Z,$9005
8CD0	LD A,E
8CD1	AND A
8CD2	JP Z,$9005
8CD5	LD A,E
8CD6	OR E
8CD7	BIT 3,A
8CD9	JP NZ,$9005
8CDC	JP $8DC5	Jump to 8DC5.
8CDF	JP $8DD9	Jump to 8DD9.
8CE2	LD A,$F0	Write F0 to IX+05.
8CE4	LD (IX+$05),A	Write F0 to IX+05.
8CE7	LD A,(IX+$00)	A=IX+00.
8CEA	DEC A	Decrease A by one.
8CEB	RES 2,A	Reset bit 2 of A.
8CED	INC A	Increment A by one.
8CEE	LD (IX+$00),A	Write A back to IX+00.
8CF1	JP $8CBC	Jump to 8CBC.
8CF4	LD A,$10	Write 10 to IX+05.
8CF6	LD (IX+$05),A	Write 10 to IX+05.
8CF9	LD A,(IX+$00)	A=IX+00.
8CFC	DEC A	Decrease A by one.
8CFD	SET 2,A	Set bit 2 of A.
8CFF	INC A	Increment A by one.
8D00	LD (IX+$00),A	Write A back to IX+00.
8D03	JP $8CBC	Jump to 8CBC.