|
|
1.1 ! root 1: # C runtime startoff ! 2: # $Header: /na/franz/franz/vax/RCS/crt0.s,v 1.1 83/03/27 18:39:57 jkf Exp $ ! 3: ! 4: .set exit,1 ! 5: .globl _exit ! 6: .globl start ! 7: .globl _main ! 8: .globl _environ ! 9: ! 10: start: ! 11: .word 0x0000 ! 12: subl2 $8,sp ! 13: movl 8(sp),(sp) # argc ! 14: movab 12(sp),r0 ! 15: movl r0,4(sp) # argv ! 16: L1: ! 17: tstl (r0)+ # null args term ? ! 18: bneq L1 ! 19: cmpl r0,*4(sp) # end of 'env' or 'argv' ? ! 20: blss L2 ! 21: tstl -(r0) # envp's are in list ! 22: L2: ! 23: movl r0,8(sp) # env ! 24: # movl r0,_environ # indir is 0 if no env ; not 0 if env ! 25: calls $3,_main ! 26: pushl r0 ! 27: calls $1,_exit ! 28: chmk $exit ! 29: .data ! 30: _environ: .space 4
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.