Hunchback: Routine at 8796

8796: Check if Quasimodo is close enough to have collided

Used by the routine at 86C4.
8796	POP DE
8797	LD A,E
8798	ADD A,L
8799	LD L,A
879A	LD ($87BE),HL
879D	LD A,D
879E	ADD A,$08
87A0	LD D,A
87A1	PUSH DE
87A2	CALL $8826
87A5	POP DE
87A6	LD A,E
87A7	ADD A,L
87A8	LD L,A
87A9	LD ($87E2),HL
87AC	POP BC
87AD	CALL $8816
87B0	LD ($87C1),DE
87B4	LD A,E
87B5	ADD A,$08
87B7	LD E,A
87B8	LD ($87E5),DE
87BC	PUSH BC
87BD	LD HL,$4830
87C0	LD DE,$C410
87C3	PUSH HL
87C4	PUSH DE
87C5	LD C,$08
87C7	PUSH BC
87C8	LD A,(DE)
87C9	LD C,A
87CA	AND (HL)
87CB	CP C
87CC	CALL NZ,$8854
87CF	POP BC
87D0	INC H
87D1	INC DE
87D2	DEC C
87D3	JR NZ,$87C7
87D5	POP DE
87D6	LD A,E
87D7	ADC A,$10
87D9	JR NC,$87DC
87DB	INC D
87DC	LD E,A
87DD	POP HL
87DE	INC HL
87DF	DJNZ $87C3
87E1	LD HL,$4850
87E4	LD DE,$C418
87E7	POP BC
87E8	PUSH HL
87E9	PUSH DE
87EA	LD C,$08
87EC	PUSH BC
87ED	LD A,(DE)
87EE	LD C,A
87EF	AND (HL)
87F0	CP C
87F1	CALL NZ,$8854
87F4	POP BC
87F5	INC H
87F6	INC DE
87F7	DEC C
87F8	JR NZ,$87EC
87FA	POP DE
87FB	LD A,E
87FC	ADC A,$10
87FE	JR NC,$8801
8800	INC D
8801	LD E,A
8802	POP HL
8803	INC HL
8804	DJNZ $87E8
8806	RET