.TITLE	MRC10.	CHARACTER PROCEDURES IN MACRO
;
	.IDENT	/MRC10./
;
	.PAGE
	.SBTTL	.	CONVERT LOWERCASE CHARACTERS TO UPPERCASE
;
R$LCUC::			;CONVERT A LOWERCASE CHARACTER TO UPPERCASE
;
;		ENTRY CONDITIONS
;	R0 =	CHARACTER
;
;		EXIT CONDITIONS
;	R0 =	CONVERTED CHARACTER
;
	SAVE R1			;PROTECT R1
	MOV R0,R1		;HOLD CHARACTER
	BIC #177600,R1		;STRIP PARITY BIT
	CMP R1,#97.		;IS CHARACTER IN LC CHAR RANGE
	BLT	10$		;J IF NOT LC ALPHA
	CMP R1,#122.		;IS CHARACTER STILL IN RANGE
	BGT	10$		;J IF NOT LC ALPHA
	BIC #40,R1		;CONVERT CHARACTER
	MOV R1,R0		;LOAD CONVERTED CHARACTER
10$:	UNSAVE R1		;RESTORE R1
	RETURN			;EXIT TO CALLING PROGRAM
;
;
;
;
;
;
	.END
;
;