void long_xadd() __naked
{
	__asm
	.globl long_xadd
	.globl long_xaddc
long_xadd:
	clr	c
long_xaddc:
	movx	a,@r1
	mov	b,a
	movx	a,@r0
	addc	a,b
	movx	@r0,a
	inc	r0
	inc	r1
	djnz	r7,long_xaddc
	ret
	__endasm;
}