Return to hcrt0.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / lisp / franz / tahoe

Annotation of 43BSDTahoe/ucb/lisp/franz/tahoe/hcrt0.s, revision 1.1.1.1

1.1       root        1: # @(#)crt0.s   4.1 (Berkeley) 12/21/80
                      2: # C runtime startoff
                      3: #              TAHOE 3/83
                      4: 
                      5:        .set    exit,1
                      6: .globl _exit
                      7: .globl start
                      8: .globl hstart
                      9: .globl _main
                     10: .globl _environ
                     11: 
                     12: #
                     13: #      C language startup routine
                     14: 
                     15: hstart:
                     16:        .word   0x0000
                     17:        clrl    r1
                     18:        jmp     L0
                     19: start:
                     20:        .word   0x0000
                     21:        movl    $1,r1
                     22: L0:
                     23:        movab   -8(sp),sp
                     24:        movl    8(sp),(sp)  #  argc
                     25:        movab   12(sp),r0
                     26:        movl    r0,4(sp)  #  argv
                     27:        jmp     L3
                     28: L1:
                     29:        addl2   $4,r0
                     30: L3:
                     31:        tstl    (r0)  #  null args term ?
                     32:        jneq    L1
                     33:        addl2   $4,r0
                     34:        cmpl    r0,*4(sp)  #  end of 'env' or 'argv' ?
                     35:        jlss    L2
                     36:        subl2   $4,r0   # envp's are in list
                     37: L2:
                     38:        movl    r0,8(sp)  #  env
                     39:        movl    r0,r10
                     40:        tstl    r1
                     41:        jneq    L4
                     42:        callf   $4,_rlc
                     43: L4:
                     44:        movl    r10,_environ  #  indir is 0 if no env ; not 0 if env
                     45:        callf   $4*3+4,_main
                     46:        pushl   r0
                     47:        callf   $4*1+4,_exit
                     48:        kcall   $exit
                     49: #
                     50:        .data
                     51: _environ:      .space  4

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