BSD 4_3_Net_2 development

Work on file usr/src/usr.bin/lisp/lisplib/autorun/unisoft

Synthesized-from: CSRG/cd2/net.2

diff --git a/usr/src/usr.bin/lisp/lisplib/autorun/unisoft b/usr/src/usr.bin/lisp/lisplib/autorun/unisoft
new file mode 100644 (file)
index 0000000..8c53983
--- /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
+"