; DupStr(r3:PTR TO CHAR,r4:PTR TO CHAR)(r3:PTR TO CHAR)

	.text
	.global	_DupStr

_DupStr	subi	r5,r3,1
	subi	r4,r4,1
.loop	lbzu	r0,1(r4)
	cmpwi	r0,0
	stbu	r0,1(r5)
	bne	.loop
	blr

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