INCLUDE	"macros.i"
	INCLUDE	"exec/types.i"
	INCLUDE	"libraries/arpbase.i"
	INCLUDE	"exec/ables.i"

ExecBase	EQU	4

	csect	_NOMERGE,0,0,0,4
;	section	_NOMERGE,code

	XDEF	MyExit,cmdlen,cmdline,run
	XREF	LinkerDB,AmiCron,curdir,ArpBase,DOSBase,seglist

run	lea	LinkerDB,a4
	lea	cmdline,a0
	move.l	cmdlen,d0
	jsr	AmiCron(pc)
MyExit	move.l	ArpBase(a4),a6
	move.l	curdir(a4),d1
	Call	UnLock

	move.l	ExecBase.w,a6
	FORBID
	move.l	seglist(a4),d1
	move.l	DOSBase(a4),a6
	Call	UnLoadSeg
	move.l	ArpBase(a4),a6
	Call	ArpExit
	rts

cmdlen	dc.l	0
cmdline	ds.b	256
	END