Lunar Jetman: Routine at 8E5A

8E5A: Routine at 8E5A

Used by the routine at 8D06.
8E5A	LD A,(IX+$00)
8E5D	DEC A
8E5E	SET 2,A
8E60	INC A
8E61	LD (IX+$00),A
8E64	BIT 0,(IX+$08)
8E68	JR NZ,$8E97
8E6A	LD A,(IX+$05)
8E6D	AND A
8E6E	JP M,$8E89
8E71	EX AF,AF'
8E72	LD A,($608F)
8E75	AND A
8E76	JR Z,$8E93
8E78	EX AF,AF'
8E79	CP $40
8E7B	JP NC,$8D3A
8E7E	ADD A,$08
8E80	CP $30
8E82	JR C,$8E86
8E84	ADD A,$10
8E86	JP $8D37
8E89	CP $D0
8E8B	JR NC,$8E8F
8E8D	ADD A,$10
8E8F	ADD A,$08
8E91	JR $8E86
8E93	LD A,$10
8E95	JR $8E86
8E97	LD A,(IX+$05)
8E9A	AND A
8E9B	JP M,$8EB0
8E9E	EX AF,AF'
8E9F	LD A,($608F)
8EA2	AND A
8EA3	JR Z,$8EBB
8EA5	EX AF,AF'
8EA6	CP $20
8EA8	JP NC,$8EC0
8EAB	ADD A,$04
8EAD	JP $8D37
8EB0	CP $D0
8EB2	JR NC,$8EB6
8EB4	ADD A,$10
8EB6	ADD A,$08
8EB8	JP $8D37
8EBB	LD A,$10
8EBD	JP $8D37
8EC0	LD A,$20
8EC2	JP $8D37
This entry point is used by the routine at 8D06.
8EC5	LD A,(IX+$00)
8EC8	DEC A
8EC9	RES 2,A
8ECB	INC A
8ECC	LD (IX+$00),A
8ECF	BIT 0,(IX+$08)
8ED3	JR NZ,$8F03
8ED5	LD A,(IX+$05)
8ED8	AND A
8ED9	JP P,$8EF3
8EDC	EX AF,AF'
8EDD	LD A,($608F)
8EE0	AND A
8EE1	JR Z,$8EFF
8EE3	EX AF,AF'
8EE4	CP $D0
8EE6	JP C,$8D3A
8EE9	SUB $08
8EEB	CP $E0
8EED	JR NC,$8E86
8EEF	SUB $10
8EF1	JR $8E86
8EF3	CP $30
8EF5	JR C,$8EFB
8EF7	SUB $10
8EF9	JR $8E86
8EFB	SUB $08
8EFD	JR $8E86
8EFF	LD A,$F0
8F01	JR $8E86
8F03	LD A,(IX+$05)
8F06	AND A
8F07	JP P,$8F1C
8F0A	EX AF,AF'
8F0B	LD A,($608F)
8F0E	AND A
8F0F	JR Z,$8F2A
8F11	EX AF,AF'
8F12	CP $F0
8F14	JP C,$8F2F
8F17	SUB $04
8F19	JP $8D37
8F1C	CP $30
8F1E	JR C,$8F25
8F20	SUB $10
8F22	JP $8D37
8F25	SUB $08
8F27	JP $8D37
8F2A	LD A,$F0
8F2C	JP $8D37
8F2F	LD A,$E0
8F31	JP $8D37
This entry point is used by the routine at 8D06.
8F34	LD A,(IX+$06)
8F37	AND A
8F38	LD B,A
8F39	JP P,$8F4C
8F3C	NEG
8F3E	LD B,A
8F3F	NEG
8F41	BIT 0,(IX+$08)
8F45	JR NZ,$8F51
8F47	CP $C0
8F49	JP C,$8D61
8F4C	LD C,$F8
8F4E	JP $8D5D
8F51	CP $E0
8F53	LD C,$FC
8F55	JP NC,$8D5D
8F58	LD (IX+$06),$E0
8F5C	LD B,$40
8F5E	JP $8D61
This entry point is used by the routine at 8D06.
8F61	LD (IX+$06),$00
8F65	LD B,$10
8F67	JP $8D93