"start:
.long	0
nop
movq	#0,d0
lea	sp@(4),a6
movl	a6,a1
movl	#-1,d0
1:
tstl	a1@+
dbeq	d0,1b
jne	1b
cmpl	a6@,a1
jlt	2f
subql	#4,a1
2:
movl	#flag,sp@
movl	#lisp,d1
movl	d1,sp@-
movl	sp,a0
movl	#59,d0
trap	#1
jra	1f
_exit: 
movl	sp@(4),d1
1:
movq	#1,d0
1:
trap	#1
jra	1b
.data
flag:	.asciz	\"-f\"
lisp:	.asciz  \"/usr/ucb/lisp\"
.text
"
