# StringF(r3:PTR TO CHAR,r4:PTR TO CHAR,r5=0:PTR TO ULONG)

	.text
	.global	_StringF
	.global	_VStringF

_VStringF:
_StringF:
	mflr	r0
	stw	r0,8(r1)
	stwu	r1,-32(r1)
	stw	r3,24(r1)
				# r4 and r5 are set
	li	r6,0		# copy all characters
	mr	r7,r3
	lwz	r3,_PowerPCBase(r2)
	lwz	r0,-840+2(r3)
	mtlr	r0
	blrl

	lwz	r3,24(r1)
	addi	r1,r1,32
	lwz	r0,8(r1)
	mtlr	r0
	blr

	.type	_StringF,@function
	.size	_StringF,$-_StringF
	.type	_VStringF,@function
	.size	_VStringF,$-_VStringF

	.extern	_PowerPCBase