;------------------------------------------------------------------------
;	This is a very minimal version of the startup code.
;	Also see the main, etc. in SPClock.c.
;	Note that this code is based on code provided by Manx, which is
;	Copyright (C) 1986,1987 by Manx Software Systems, Inc.
;-------------------------------------------------------------------------*/
	entry	.begin
	public	.begin
.begin
	far	data
	lea	__H1_org+32766,a4	; Point a4 toward the data segment
	near data
; I didn't include the check for clearing the static data because
; I don't care if it is initialized to 0
	move.l	sp,__savsp		;save stack pointer
	move.l	4,a6			;get Exec's library base pointer
	move.l	a6,_SysBase		;and save it in a global variable
	movem.l	d0/a0,-(sp)		;save CLI command parameters
	jsr	_main				;start the program! 
	add.w	#8,sp			;pop args - we probably won't ever get here
	rts						;and return

	public	_main

	dseg

	public	__savsp,_SysBase,__H1_org