INCLUDE "exec/types.i"
	INCLUDE "libraries/dosextens.i"

FUNCINIT	MACRO
COUNT_FUNC	SET	-30
		ENDM

FUNCDEF		MACRO
LVO\1		EQU	COUNT_FUNC
COUNT_FUNC	SET	COUNT_FUNC-6
		ENDM

SYSCALL		MACRO
		jsr	LVO\1(a6)
		ENDM

	FUNCINIT
	INCLUDE "exec/exec_lib.i"

ABSBASE EQU	4

	XREF	__resetfpu
	XREF	__main
	XREF	_SysBase

	XDEF	__exit

	CODE

startup:			;Reference for Wack users.

	move.l	ABSBASE,_SysBase

	move.l	a0,-(sp)	;The address of the command line arguments.
	move.l	d0,-(sp)	;The length of the command line arguments.
	jsr	__resetfpu
	jsr	__main
	addq	#8,sp

	moveq	#0,d2
	bra.s	exit2

__exit
	move.l	4(sp),d2
exit2
	move.l	_SysBase,a6
	sub.l	a1,a1
	SYSCALL	FindTask
	move.l	d0,a0
	move.l	pr_ReturnAddr(a0),a0
	lea	-4(a0),sp
	move.l	d2,d0
	rts

	END