include	gemmacro.s		

	move.l	4(a7),a6
	move.l	#bss_end,a7
	move.l	$c(a6),d0
	add.l	$14(a6),d0
	add.l	$1c(a6),d0
	add.l	#$100,d0
	move.l	d0,-(sp)
	move.l	a6,-(sp)
	clr.w	-(sp)
	move.w	#$4a,-(sp)
	trap	#1
	lea	12(sp),sp

	appl_init

	graf_handle

	move.w	d0,current_handle
	lea	intin,a0
	moveq	#9,d0
fillint	move.w	#1,(a0)+
	dbf	d0,fillint
	move.w	#2,(a0)+

	v_opnvwk