//
// memcpy - copies n characters from s2 to s1, and returns s1
//
	.seg

	sp := r15
	SP := rr14

	.psec
	.code
_memcpy::
	{
	ldm	r2,|_stkseg+4|(sp),#5	// rr2 = s1
					// rr4 = s2
					// r6  = n
	cp	r6,#0
	ret	le
	ldl	rr0,rr2			// save s1
	ldirb	@rr2,@rr4,r6
	ldl	rr2,rr0			// return s1
	ret
	}