Return to vax CVS log

Up to [CSRG BSD Unix] / 43BSD / ucb / lisp / lisplib / autorun

Annotation of 43BSD/ucb/lisp/lisplib/autorun/vax, revision 1.1.1.1

1.1       root        1: ; $Header: vaxsoft 1.1 83/07/25 11:35:52 layer Exp $
                      2: 
                      3: ".set  exit,1
                      4: .word  0x0000
                      5: subl2  $8,sp
                      6: movl   8(sp),(sp)  #  argc
                      7: movab  12(sp),r0
                      8: movl   r0,4(sp)  #  argv
                      9: QL1:
                     10: tstl   (r0)+  #  null args term ?
                     11: bneq   QL1
                     12: cmpl   r0,*4(sp)  #  end of 'env' or 'argv' ?
                     13: blss   QL2
                     14: tstl   -(r0)  # envp's are in list
                     15: QL2:
                     16: movab  dr,8(sp)
                     17: movab  ln,4(sp)
                     18: movab  4(sp),r1
                     19: movl   sp,r2
                     20: pushl  r0      #stack environment
                     21: pushl  r1
                     22: pushab ln
                     23: calls  $3,_execve
                     24: chmk   $exit
                     25: ln:
                     26: "
                     27: ".asciz        \"/usr/ucb/lisp\"
                     28: dr:
                     29: .asciz \"-f\"
                     30: .set   exece,59
                     31: _execve:
                     32: .word  0x0000
                     33: chmk   $exece
                     34: chmk   $exit
                     35: ret
                     36: "

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.