# StrCopy(r3:PTR TO CHAR,r4:PTR TO CHAR,r5=-1:LONG)

	.text
	.global	_StrCopy

_StrCopy:
	subi	r6,r3,1
	subi	r4,r4,1
.loop:	lbzu	r0,1(r4)
	stbu	r0,1(r6)
	mr.	r0,r0
	beq	.finish
	subi	r5,r5,1
	mr.	r5,r5
	bne	.loop
	li	r0,0
	stb	r0,1(r6)
.finish:	blr			# r3 contains dest string pointer

	.type	_StrCopy,@function
	.size	_StrCopy,$-_StrCopy