Hunchback: Routine at 86C4

86C4: See if Quasimodo has collided with something

Used by the routines at 67DE and 67FA.
86C4	LD B,$03
86C6	PUSH BC
86C7	PUSH DE
86C8	CALL $8826
86CB	LD A,$08
86CD	CP E
86CE	JP Z,$8796
86D1	PUSH HL
86D2	PUSH DE
86D3	CALL $8816
86D6	EX DE,HL
86D7	LD ($8729),HL
86DA	POP DE
86DB	LD A,E
86DC	ADD A,L
86DD	LD L,A
86DE	LD ($8750),HL
86E1	LD A,$08
86E3	ADD A,L
86E4	LD L,A
86E5	LD ($8775),HL
86E8	LD A,E
86E9	LD ($872F),A
86EC	LD A,$08
86EE	SUB E
86EF	LD ($877A),A
86F2	POP HL
86F3	POP DE
86F4	LD A,E
86F5	ADD A,L
86F6	LD L,A
86F7	LD ($8726),HL
86FA	SRL D
86FC	SRL D
86FE	SRL D
8700	SLA D
8702	SLA D
8704	SLA D
8706	LD A,D
8707	ADD A,$08
8709	LD D,A
870A	PUSH DE
870B	CALL $8826
870E	POP DE
870F	LD A,E
8710	ADD A,L
8711	LD L,A
8712	LD ($874D),HL
8715	LD A,$08
8717	ADD A,D
8718	LD D,A
8719	PUSH DE
871A	CALL $8826
871D	POP DE
871E	LD A,E
871F	ADD A,L
8720	LD L,A
8721	LD ($8772),HL
8724	POP BC
8725	LD HL,$4A08
8728	LD DE,$C470
872B	PUSH BC
872C	PUSH HL
872D	PUSH DE
872E	LD C,$06
8730	PUSH BC
8731	LD A,(DE)
8732	LD C,A
8733	AND (HL)
8734	CP C
8735	CALL NZ,$8854
8738	POP BC
8739	INC DE
873A	INC H
873B	DEC C
873C	JR NZ,$8730
873E	POP DE
873F	LD A,$10
8741	ADC A,E
8742	JR NC,$8745
8744	INC D
8745	LD E,A
8746	POP HL
8747	INC HL
8748	DJNZ $872C
874A	POP BC
874B	PUSH BC
874C	LD HL,$4828
874F	LD DE,$C476
8752	PUSH HL
8753	PUSH DE
8754	LD C,$08
8756	PUSH BC
8757	LD A,(DE)
8758	LD C,A
8759	AND (HL)
875A	CP C
875B	CALL NZ,$8854
875E	POP BC
875F	INC H
8760	INC DE
8761	DEC C
8762	JR NZ,$8756
8764	POP DE
8765	LD A,$10
8767	ADC A,E
8768	JR NC,$876B
876A	INC D
876B	LD E,A
876C	POP HL
876D	INC HL
876E	DJNZ $8752
8770	POP BC
8771	LD HL,$4848
8774	LD DE,$C47E
8777	PUSH HL
8778	PUSH DE
8779	LD C,$02
877B	PUSH BC
877C	LD A,(DE)
877D	LD C,A
877E	AND (HL)
877F	CP C
8780	CALL NZ,$8854
8783	POP BC
8784	INC H
8785	INC DE
8786	DEC C
8787	JR NZ,$877B
8789	POP DE
878A	LD A,$10
878C	ADC A,E
878D	JR NC,$8790
878F	INC D
8790	LD E,A
8791	POP HL
8792	INC HL
8793	DJNZ $8777
8795	RET