Return to tahoe CVS log

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

Annotation of 43BSDTahoe/ucb/lisp/lisplib/autorun/tahoe, revision 1.1.1.1

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

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