; a0 - str1
; a1 - str2
; d0 - length

	xdef	_StrCmp

_StrCmp	subq.l	#1,d0
.loop	cmpm.b	(a1)+,(a0)+
	bne.s	.nosame
	tst.b	(-1,a0)
	beq.s	.same
	dbf.s	d0,.loop
.same	moveq	#-1,d0
	bra.s	.finish
.nosame	moveq	#0,d0
.finish	rts