*    UPPER CHAR
*    UC(INTEGER) RETURN THE ARGUMENT'S FIRST 8 BIT IN LOWER 8 BIT
*  
*    USAGE:
*    JST  UC
*    DAC  ARG1
* 
*    RESULT WILL BE IN A-REG
*
*
*******
	SUBR 	UCHAR,UC
	SUBR 	UC
*
	REL
UC	DAC	**
	LDA*	UC
	IRS	UC	RETURN ADDRESS
	ICL
	JMP*	UC
*******
	END