"
					` $Header: news4.3,v 1.2 88/02/27 09:47:05 hikichi Exp $
					` startup routine for liszt
	.set	SYS_execve, 59		` system call #
	.set	SYS_exit, 1		` system call #
start:
	move.l	(sp),d0			` argc
	lea	(4+4,sp,d0.l*4),a1	` envp
	move.l	#flag,(sp)		` argv[1]
	pea	lisp			` argv[0]
	movea.l	sp,a0			` argv
	move.l	a1,-(sp)
	move.l	a0,-(sp)		` argv
	pea	lisp
	jbsr	execve
	move.l	d0,-(sp)
	jbsr	exit
execve:
	link.l	fp,#0
	move.l	#SYS_execve,d0
	trap	#0			` execve
	unlk	fp
	rts
exit:
	link.l	fp,#0
	move.l	#SYS_exit,d0
	trap	#0			` exit
	unlk	fp
	rts
flag:
	.asciz	\"-f\"
lisp:
	.asciz	\"/usr/ucb/lisp\"
	.align	1
"
