/
/ Equal.
/

	.globl	equal

/
/ equal(a, b)
/ char *a, *b;
/ Returns true if equal.
/

equal:	jsr	r0,__csav	/ Linkage.

	mov	12(r5),r2	/ Pick up `a'
	mov	14(r5),r3	/ And `b'
	clr	r0		/ Default to `false'

0:	cmpb	(r2)+,(r3)	/ Are they the same
	bne	0f		/ No
	tstb	(r3)+		/ At the end of the string
	bne	0b		/ No
	inc	r0		/ Make value `true'

0:	jmp	__cret		/ Return
