25 lines
207 B
C
25 lines
207 B
C
|
|
||
|
|
/*
|
||
|
|
* @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;
|
||
|
|
}
|
||
|
|
|
||
|
|
|