/*
 * @r0 = number
 * r7 = len
 *
 * modyfies: r0,r7,a 
 */
static void long_rlc__() __naked
{
	__asm
	.globl long_rlc

long_rlc:
	mov	a,@r0
	rlc	a
	mov	@r0,a
	inc	r0
	djnz	r7,long_rlc
	ret

	__endasm;
}