Lunar Jetman: Routine at 8A5C

8A5C: Routine at 8A5C

Used by the routine at 8B73.
8A5C	LD A,C
8A5D	AND A
8A5E	JR Z,$8A70
8A60	DEC C
8A61	CALL $8A93
8A64	EXX
8A65	LD A,C
8A66	AND A
8A67	JR Z,$8A6D
8A69	DEC C
8A6A	CALL $8AC8
8A6D	EXX
8A6E	JR $8A5C
8A70	EXX
8A71	LD A,C
8A72	AND A
8A73	JR NZ,$8A69
This entry point is used by the routine at 8B73.
8A75	EXX
This entry point is used by the routine at 8B73.
8A76	LD A,($5E5A)
8A79	LD C,A
8A7A	LD A,($5E59)
8A7D	OR C
8A7E	RET Z
8A7F	XOR A
8A80	LD ($5E5A),A
8A83	EXX
8A84	LD A,($5E59)
8A87	LD C,A
8A88	XOR A
This entry point is used by the routine at 8B73.
8A89	LD ($5E59),A
8A8C	EXX
8A8D	JR $8A5C
8A8F	EX DE,HL
8A90	EX (SP),HL
8A91	JR $8AAF
8A93	PUSH HL
8A94	EX DE,HL
8A95	PUSH DE
8A96	LD D,$00
8A98	LD E,(HL)
8A99	INC HL
8A9A	EX DE,HL
8A9B	JR $8A9B
8A9D	ADD HL,HL
8A9E	ADD HL,HL
8A9F	ADD HL,HL
8AA0	ADD HL,HL
8AA1	ADD HL,HL
8AA2	ADD HL,HL
8AA3	ADD HL,HL
8AA4	EX DE,HL
8AA5	EX (SP),HL
8AA6	LD A,D
8AA7	XOR (HL)
8AA8	LD (HL),A
8AA9	INC L
8AAA	LD A,L
8AAB	AND $1F
8AAD	JR Z,$8AB2
8AAF	LD A,E
8AB0	XOR (HL)
8AB1	LD (HL),A
8AB2	POP DE
8AB3	POP HL
8AB4	DEC H
8AB5	LD A,H
8AB6	CPL
8AB7	AND $07
8AB9	RET NZ
8ABA	LD A,L
8ABB	SUB $20
8ABD	LD L,A
8ABE	RET C
8ABF	LD A,H
8AC0	ADD A,$08
8AC2	LD H,A
8AC3	RET
8AC4	EX DE,HL
8AC5	EX (SP),HL
8AC6	JR $8AAF
8AC8	PUSH HL
8AC9	EX DE,HL
8ACA	PUSH DE
8ACB	LD D,$00
8ACD	LD E,(HL)
8ACE	INC HL
8ACF	EX DE,HL
8AD0	JR $8AD0
8AD2	ADD HL,HL
8AD3	ADD HL,HL
8AD4	ADD HL,HL
8AD5	ADD HL,HL
8AD6	ADD HL,HL
8AD7	ADD HL,HL
8AD8	ADD HL,HL
8AD9	EX DE,HL
8ADA	JR $8AA5
8ADC	CALL $86A1
8ADF	EXX
8AE0	XOR A
8AE1	LD ($5E5A),A
8AE4	LD C,A
8AE5	JP $8A5C
This entry point is used by the routines at A579 and A73C.
8AE8	XOR A
8AE9	LD ($5E59),A
8AEC	LD ($5E58),A
8AEF	LD C,A
8AF0	EXX
8AF1	CALL $8B52
8AF4	JP $8A5C
This entry point is used by the routine at 8B73.
8AF7	LD L,(IX+$02)
8AFA	LD H,(IX+$03)
8AFD	LD BC,($607A)
8B01	AND A
8B02	SBC HL,BC
8B04	LD BC,$0078
8B07	ADD HL,BC
8B08	LD A,H
8B09	AND $1F
8B0B	JP NZ,$867F
8B0E	LD (IX+$01),L
8B11	CALL $857F
8B14	LD L,(IX+$01)
8B17	LD H,(IX+$04)
8B1A	LD A,L
8B1B	DEC A
8B1C	AND $07
8B1E	CP $07
8B20	JR NZ,$8B24
8B22	LD A,$F2
8B24	LD ($8AD1),A
8B27	LD (IX+$09),A
8B2A	LD A,$01
8B2C	JR Z,$8B2F
8B2E	INC A
8B2F	LD ($5E57),A
8B32	LD (IX+$0B),H
8B35	CALL ScreenAddress
8B38	LD A,(DE)
8B39	INC DE
8B3A	LD ($5E59),A
8B3D	LD ($5E58),A
8B40	LD (IX+$0A),A
8B43	LD (IX+$0C),E
8B46	LD (IX+$0D),D
8B49	LD (IX+$0E),L
8B4C	LD (IX+$0F),H
8B4F	LD C,$00
8B51	RET
This entry point is used by the routine at 8B73.
8B52	LD E,(IX+$0C)
8B55	LD D,(IX+$0D)
8B58	LD L,(IX+$0E)
8B5B	LD H,(IX+$0F)
8B5E	LD A,(IX+$09)
8B61	LD ($8A9C),A
8B64	LD A,(IX+$0A)
8B67	LD ($5E5A),A
8B6A	LD A,(IX+$0B)
8B6D	LD ($5E56),A
8B70	LD C,$00
8B72	RET