[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
*
*
*******
	SUBR 	UCHAR,UC
	SUBR 	UC
*
	REL
UC	DAC	**
	LDA*	UC
	IRS	UC	RETURN ADDRESS
	ICL
	JMP*	UC
*******
	END
Commit	Line	Data
	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	SUBR UCHAR,UC
	13	SUBR UC
	14	*
	15	REL
	16	UC DAC **
	17	LDA* UC
	18	IRS UC RETURN ADDRESS
	19	ICL
	20	JMP* UC
	21	*******
	22	END