/*
 * 
 */
void long_xrlc() __naked
{
	__asm
	.globl long_xrlc

long_xrlc:
	movx	a,@r0
	rlc	a
	movx	@r0,a
	inc	r0
	djnz	r7,long_xrlc
	ret

	__endasm;
}