/
/ New I/O.
/ Isdigit.
/

	.globl	isdigi

/
/ int isdigit(c);
/ int c;
/ Check if the character `c' is a digit.
/ Return 1 if it is; 0 otherwise.
/

isdigi:	clr	r0
	mov	2(sp),r1

	cmp	r1,$'0
	blo	0f
	cmp	r1,$'9
	bhi	0f
	inc	r0

0:	rts	pc
