# UpperStr(r3:PTR TO CHAR)(PTR TO CHAR)

	.text
	.global	_UpperStr

_UpperStr:
	subi	r4,r3,1		# save for result
.loop:	lbzu	r5,1(r4)
	andi.	r5,r5,0xff
	beq	.finish
	cmplwi	r5,97
	blt	.loop
	cmplwi	r5,123
	bgt	.loop
	subi	r5,r5,32
	stb	r5,0(r4)
	b	.loop
.finish:	blr

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