*
* HC handler startup module
* 
* Use the following command line to make c.o
* asm c.a
*

AbsExecBase	EQU	4

	
	xref	_LinkerDB	* linker defined base value
	xref	__BSSBAS		* linker defined base of BSS
	xref	__BSSLEN		* linker defined length of BSS
	xref	@main

	section text,code

start:

	move.l	a4,-(sp)
	lea     _LinkerDB,a4		* load base register
	lea     __BSSBAS,a0		* get base of BSS
	moveq   #0,d1
	move.l  #__BSSLEN,d0		* get length of BSS in longwords
	bra.s   lp				* and clear for length given
clr move.l  d1,(a0)+
lp  dbf     d0,clr
	jsr		@main
	move.l	(sp)+,a4
	rts
		END