/ movem.s

/ EMACS_MODES: !c !fill

/ block move routine of n bytes of data
/
/ C calling sequence:
/	movem (from, to, nbytes)
/	char *from;
/	char *to;
/	int  nbytes;
/

	.globl	_movem

from	=	4		/ from data ptr.
to	=	6		/ to data ptr.
nbytes	=	8		/ no. of bytes to move

_movem:
	jsr	r5, csv		/ save all regs.
	mov	from(r5),r0	/ r0 is source
	mov	to(r5),r1	/ r1 is dest
	mov	nbytes(r5),r2	/ r2 is count
1:
	movb	(r0)+,(r1)+	/ move a byte
	sob	r2,1b		/ until done

	jmp	cret		/ that's it