Work on file usr/src/usr.bin/lisp/franz/vax/crt0.s
Synthesized-from: CSRG/cd2/net.2
--- /dev/null
+# 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