/	OS/8 V3D FORTRAN FUNCTION IASCII( INT )
/
/	ARG :		0 - 99
/
/	RESULT :	TWO ASCII CHAR'S
/
/	10-SEP-78	W. HOUBEN
/
	ENTRY	IASCI
	DUMMY	IARG
	OPDEF BSW 7002
TEN,	12
IASCI,	BLOCK	2
	SZA
	JMP	NOARG	/ ARG IN AC
	TAD I	IASCI
	INC	IASCI#
	DCA	IARG
	TAD I	IASCI
	INC	IASCI#
	DCA	IARG#
	TAD I	IARG	/ GET ARGUMENT
NOARG,	CALL	1,DIV
	ARG	TEN
	BSW
	DCA	IARG
	CALL	1,IREM
IARG,	ARG	IARG
	TAD	IARG
	TAD	(6060
	RETRN	IASCI
/
/	ASSIGNED GOTO SUBROUTINE
/
/	CALL	1,AGTO
/	ARG	\LABEL
/	DCA	\IVAR
/
/	16-OCT-78	W. HOUBEN
/
AGTO,	BLOCK	2
	INC	AGTO#
	TAD I	AGTO
	INC	AGTO#
	RETRN	AGTO
	END