; a1 - dest
; a0 - src
; d0 - length

	xdef	_ListCmp

_ListCmp	cmp.w	#-1,d0
	bne.s	.1
	move.w	(-2,a0),d0
.1	cmp.w	(-2,a1),d0
	bne.s	.4			; lendest<>lensrc
	cmp.w	#1,d0
	bmi.s	.3
	subq.w	#1,d0
.l	cmpm.l	(a0)+,(a1)+
	bne.s	.4
	dbra	d0,.l
.3	moveq	#-1,d0
	rts
.4	moveq	#0,d0
	rts