IFD BARFLY
		 CODE		; I prefer this :-)
		 SMALLDATA A4
		ELSE
		 CSECT	text,0
		ENDC

		include	"exec/funcdef.i"
		include	"exec/exec_lib.i"
		include	"scalos/scalos_lib.i"

		XDEF	_FreeMsgInter

_FreeMsgInter:	movem.l	d0-d1/a0-a1/a4/a6,-(sp)
		move.l	a1,a4
.loop:		move.l	a4,a0
		move.l	$4,a6
		jsr	_LVOGetMsg(a6)
		tst.l	d0
		beq	.lastMsg
		move.l	56(a4),a6
		move.l	d0,a1
		jsr	_LVOSCA_FreeMessage(a6)
		bra	.loop

.lastMsg:	sub.w	#1,60(a4)
		movem.l	(sp)+,d0-d1/a0-a1/a4/a6
		rts

		END