[h316.git] / lib / fortran / src / uc.asm

*    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
*
*
*******
	REL
	SUBR UC
UC	DAC	**
	LDA*	UC
	IRS	UC	RETURN ADDRESS
	ICL
	JMP*	UC
*******
	END
Commit	Line	Data
c08e22bb	1	* UPPER CHAR
	2	* UC(INTEGER) RETURN THE ARGUMENT'S FIRST 8 BIT IN LOWER 8 BIT
	3	*
	4	* USAGE:
	5	* JST UC
	6	* DAC ARG1
	7	*
	8	* RESULT WILL BE IN A-REG
	9	*
	10	*
	11	*******
	12	REL
	13	SUBR UC
	14	UC DAC **
	15	LDA* UC
	16	IRS UC RETURN ADDRESS
	17	ICL
	18	JMP* UC
	19	*******
	20	END