Net2/usr/src/usr.bin/lisp/lisplib/autorun/tahoe

".set	exit,1
	.word	0x0000
movab	-8(sp),sp
movl	8(sp),(sp)  #  argc
movab	12(sp),r0
movl	r0,4(sp)  #  argv
brb	QL3
QL1:
addl2	$4,r0
QL3:
tstl	(r0)  #  null args term ?
bneq	QL1
addl2	$4,r0
cmpl	r0,*4(sp)  #  end of 'env' or 'argv' ?
blss	QL2
subl2	$4,r0
tstl	(r0)  # envp's are in list
QL2:
movab	dr,8(sp)
movab	ln,4(sp)
movab	4(sp),r1
movab	(sp),r2
pushl	r0	#stack environment
pushl	r1
pushab	ln
callf	$16,_execve
kcall	$exit
ln:
"
".asciz	\"/usr/ucb/lisp\"
dr:
.asciz	\"-f\"
.set	exece,59
_execve:
.word	0x0000
kcall	$exece
kcall	$exit
ret
"