; a2 - variable address
; a1 - src list
; d0 - count
; a3 - dest list
; a0 - quote address

	xdef	_MapList

_MapList	move.w	d0,d2		; count
	move.l	a3,-(a7)
	move.w	-4(a3),d0
	cmp.w	-2(a1),d0
	bmi.s	.1
	move.w	-2(a1),-2(a3)
	beq.s	.1
	subq.l	#1,d2
;	move.l	d0,d1
.l:	move.l	(a1)+,(a2)
	movem.l	d2/a0-a3,-(a7)
	jsr	(a0)
	movem.l	(a7)+,d2/a0-a3
	move.l	d0,(a3)+
	dbra	d2,.l
.1:	move.l	(a7)+,d0
	rts