From d4b46d566dd47b3a5cbc3578717885f9e6dc1cb4 Mon Sep 17 00:00:00 2001
From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Sun, 24 Jul 1983 20:39:28 -0800
Subject: [PATCH 1/1] BSD 4_3_Net_2 development Work on file
 usr/src/usr.bin/lisp/lisplib/autorun/unisoft

Synthesized-from: CSRG/cd2/net.2
---
 usr/src/usr.bin/lisp/lisplib/autorun/unisoft | 32 ++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 usr/src/usr.bin/lisp/lisplib/autorun/unisoft

diff --git a/usr/src/usr.bin/lisp/lisplib/autorun/unisoft b/usr/src/usr.bin/lisp/lisplib/autorun/unisoft
new file mode 100644
index 0000000000..8c539837d4
--- /dev/null
+++ b/usr/src/usr.bin/lisp/lisplib/autorun/unisoft
@@ -0,0 +1,32 @@
+; $Header: unisoft 1.2 83/07/25 11:39:17 layer Exp $
+
+"
+OFFSET = 0xOFF
+start:	movl	a7@(4),a0
+clrl	a0@(-4)
+movl	a7,a0
+subql	#0x8,a7
+movl	a0@,a7@
+addql	#0x4,a0
+movl	a0,a7@(4)
+LL0:	tstl	a0@+
+bnes	LL0
+movl	a7@(4),a1
+cmpl	a1@,a0
+blts	LL1
+subql	#0x4,a0
+LL1:	movl	a0,a7@(8)
+movl	a0,a1
+movl	#OFFSET+file,a2
+movl	a2,sp@(4)	| setup new argv[0]
+movl	a2,a0		| file to execute
+movl	#OFFSET+flag,a2
+movl	a2,sp@(8)	| setup new argv[1]
+lea	sp@(4),a2
+movl	a2,d1
+movw	#0x3B,d0
+trap	#0x0
+file:	.asciz	\"/usr/ucb/lisp\"
+flag:	.asciz	\"-f\"
+.even
+"
-- 
2.20.1