.MCALL CALL
	.TITLE UPCASE
UPCASE::	CMP	4(R5),#-1
	BEQ	SKIP
	MOV	@4(R5),R2
	BR	GO
SKIP:	JSR	PC,LEN
	MOV	R0,R2
	TST	R2
	BNE	GO
	SEC
	RTS	PC
GO:	MOV	2(R5),R0
	MOV	6(R5),R1
	CALL	$CVTUC
	CLC
	RTS	PC
	.END