/ compare	Mark Kampe	11/17/75
/
/	This routine (called from a C routine) performs
/	an unsigned comparison of the two arguments it
/	is passed (as sixteen bit quantities) and returns
/	0: they are equal
/	1: the first is greater
/      -1: the first is smaller
///////////////////////////////

	.globl _compare
arg1	=	2;
arg2	=	4;

_compare:
	clr	r0;
	cmp	arg1(sp),arg2(sp);
	blo	0f;
	bhi	1f;
	rts	pc;

0:	dec	r0;
	rts	pc;

1:	inc	r0;
	rts	pc;
