section	text,code

	xref	_ArpBase
	xdef	_UnLoadPrg

_UnLoadPrg:
	move.l	a6,-(sp)
	move.l	_ArpBase,a6
	move.l	8(sp),d1
	jsr	-594(a6)
	move.l	(sp)+,a6
	rts

	end