BSD 4_3_Tahoe development

Work on file usr/tmp/housel/franz/vax/crt0.s
Work on file usr/src/ucb/lisp/franz/vax/crt0.s

Synthesized-from: CSRG/cd2/4.3tahoe

diff --git a/usr/src/ucb/lisp/franz/vax/crt0.s b/usr/src/ucb/lisp/franz/vax/crt0.s
new file mode 100644 (file)
index 0000000..2facc1a
--- /dev/null
+++ b/usr/src/ucb/lisp/franz/vax/crt0.s
@@ -0,0 +1,30 @@
+# C runtime startoff
+# $Header: /na/franz/franz/vax/RCS/crt0.s,v 1.1 83/03/27 18:39:57 jkf Exp $
+
+       .set    exit,1
+.globl _exit
+.globl start
+.globl _main
+.globl _environ
+
+start:
+       .word   0x0000
+       subl2   $8,sp
+       movl    8(sp),(sp)  #  argc
+       movab   12(sp),r0
+       movl    r0,4(sp)  #  argv
+L1:
+       tstl    (r0)+  #  null args term ?
+       bneq    L1
+       cmpl    r0,*4(sp)  #  end of 'env' or 'argv' ?
+       blss    L2
+       tstl    -(r0)  # envp's are in list
+L2:
+       movl    r0,8(sp)  #  env
+#      movl    r0,_environ  #  indir is 0 if no env ; not 0 if env
+       calls   $3,_main
+       pushl   r0
+       calls   $1,_exit
+       chmk    $exit
+       .data
+_environ:      .space  4

diff --git a/usr/tmp/housel/franz/vax/crt0.s b/usr/tmp/housel/franz/vax/crt0.s
new file mode 100644 (file)
index 0000000..2facc1a
--- /dev/null
+++ b/usr/tmp/housel/franz/vax/crt0.s
@@ -0,0 +1,30 @@
+# C runtime startoff
+# $Header: /na/franz/franz/vax/RCS/crt0.s,v 1.1 83/03/27 18:39:57 jkf Exp $
+
+       .set    exit,1
+.globl _exit
+.globl start
+.globl _main
+.globl _environ
+
+start:
+       .word   0x0000
+       subl2   $8,sp
+       movl    8(sp),(sp)  #  argc
+       movab   12(sp),r0
+       movl    r0,4(sp)  #  argv
+L1:
+       tstl    (r0)+  #  null args term ?
+       bneq    L1
+       cmpl    r0,*4(sp)  #  end of 'env' or 'argv' ?
+       blss    L2
+       tstl    -(r0)  # envp's are in list
+L2:
+       movl    r0,8(sp)  #  env
+#      movl    r0,_environ  #  indir is 0 if no env ; not 0 if env
+       calls   $3,_main
+       pushl   r0
+       calls   $1,_exit
+       chmk    $exit
+       .data
+_environ:      .space  4