start:
	move.l	a7,stacksave
	move.l	4(a7),a3      ;basepage
	move.l	$C(a3),d0     ;text length
	add.l 	$14(a3),d0    ;data length
	add.l 	$1C(a3),d0    ;BSS length
	add.l 	#500,d0     ;any additional memory
	add.l 	#$100,d0      ;basepage length
*	move.l	#mystack,a7   ;before shrinking
	move.l	d0,-(a7)
	move.l	a3,-(a7)
	clr.w 	-(a7)
	move.w	#$4a,-(a7)
	trap	#1		;do the shrink
	lea	12(sp),sp     
