Return to mc500 CVS log

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

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

1.1       root        1: " 
                      2: |
                      3: | Lisp startup program.
                      4: | insert two new parameters on the argv[] list and re-exec lisp
                      5: |
                      6:        .globl  exece
                      7: start:
                      8:        movl    sp@, d1         | get argc (# of parameters on stack)
                      9:        lea     sp@(4),a3       | save the address of argv[]
                     10:        asll    #2,d1           | multiply argc by 4 to get # of bytes of argv ptrs on stack
                     11:        lea     a3@(4,d1:l),a4  | save the address of arge[] (it's after all of the argv's)
                     12:        movl    #flag,a3@-      | insert (push) the address of the flag string on to top of argv stack
                     13:        movl    #lisp,a3@-      | insert (push) the address of the lisp string on to top of argv stack
                     14:        movl    a3,sp           | set the stack to point to the new stack head.
                     15: |
                     16: |      Set up a call to exece
                     17:        pea     a4@             | push the address of arge on the stack
                     18:        pea     a3@             | push the address of argv on the stack
                     19:        movl    #lisp,sp@-      | push the name of the program on the stack
                     20:        jsr     exece           | now call exece, you've got the right parameters
                     21: exece:
                     22:        moveq    #0x3b,d0
                     23:        movl    a7@(4),d1
                     24:        movl    a7@(8),a0
                     25:        movl    a7@(12),a1
                     26:        trap    #0
                     27:        movl    #0,d0
                     28:        movl    d0,d1
                     29:        trap    #0              | exit if exec fails
                     30: |
                     31: | call exit on a exec failure without losing the return code.
                     32: | we should NEVER return from _exit
                     33: |
                     34: flag:  .asciz  \"-f\"
                     35: lisp:  .asciz  \"/usr/ucb/lisp\"
                     36: .even
                     37: "

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