; a0 - pool
; a1 - str

	xdef	_RemListPooled

_RemListPooled
	movem.l	d0-d1/a6,-(a7)
	move.l	-(a1),d0
	moveq	#16,d1
	lsr.l	d1,d0
	lsl.l	#2,d0
	addq.l	#4,d0
	movea.l	$4.w,a6
	jsr	(-714,a6)
	movem.l	(a7)+,d0-d1/a6
	rts