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

	xdef	_OStrCmp

_OStrCmp
.loop	cmpm.b	(a1)+,(a0)+
	bne.s	.nosame
	tst.b	(-1,a0)
	beq.s	.same
	dbf.s	d0,.loop
.same	moveq	#0,d0
	rts
.nosame	move.b	(-1,a0),d0
	cmp.b	(-1,a1),d0
	bgt.s	.higher
.lower	moveq	#1,d0
	rts
.higher	moveq	#-1,d0
	rts