# SetEStr(estr:r3:PTR TO CHAR,length:r4:LONG)

	.text
	.global	_SetEStr

_SetEStr:	lhz	r0,-4(r3)
	cmpw	r0,r4
	bge	.end
	sth	r4,-2(r3)
	li	r0,0
	stbx	r0,r3,r4
.end:	blr

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