section	text,code

	xref	_ArpBase
	xdef	_LoadPrg

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

	end