What is the function of the follwing routine?
(For the purists: written by me, assembled and disassembled to hide the label names and other formatting which could lead to the solution too easily).

Jan Waclawek

X008a:	mov	a,@r0
	inc	r0
	lcall	X00ed
	mov	b,#64h
	mul	ab
	mov	r2,a
	mov	r3,b
	mov	a,@r0
	inc	r0
	lcall	X00ed
	add	a,r2
	jnc	X009f
	inc	r3
X009f:	mov	b,#64h
	mul	ab
	mov	r2,a
	mov	a,b
	xch	a,r3
	mov	b,#64h
	mul	ab
	add	a,r3
	mov	r3,a
	clr	a
	addc	a,b
	mov	r4,a
	mov	a,@r0
	inc	r0
	lcall	X00ed
	add	a,r2
	jnc	X00be
	inc	r3
	cjne	r3,#0,X00be
	inc	r4
X00be:	mov	b,#64h
	mul	ab
	mov	r2,a
	mov	a,b
	xch	a,r3
	mov	b,#64h
	mul	ab
	add	a,r3
	mov	r3,a
	clr	a
	addc	a,b
	xch	a,r4
	mov	b,#64h
	mul	ab
	add	a,r4
	mov	r4,a
	clr	a
	addc	a,b
	mov	r5,a
	mov	a,@r0
	inc	r0
	lcall	X00ed
	add	a,r2
	jnc	X00eb
	inc	r3
	cjne	r3,#0,X00eb
	inc	r4
	cjne	r4,#0,X00eb
	inc	r5
X00eb:	mov	r2,a
	ret	
;
X00ed:	xrl	a,#0f0h
	jbc	acc.4,X00f4
	add	a,#0ah
X00f4:	jbc	acc.5,X00f9
	add	a,#14h
X00f9:	jbc	acc.6,X00fe
	add	a,#28h
X00fe:	jbc	acc.7,X0103
	add	a,#50h
X0103:	ret	
;