|
|
1.1 root 1: # C runtime startoff
2:
3: exit = 1
4: .globl _exit
5: .globl start
6: .globl _main
7: .globl _environ
8:
9: #
10: # C language startup routine
11:
12: start:
13: subql #8,sp
14: movl sp@(8),sp@ | argc
15: lea sp@(12),a0
16: movl a0,sp@(4) | argv
17: movl a0@,d1
18: L1:
19: tstl a0@+ | null args term ?
20: bne L1
21: cmpl a0,d1 | end of 'env' or 'argv' ?
22: blt L2
23: tstl a0@- | envp's are in list
24: L2:
25: movl a0,sp@(8) | env
26: movl a0,_environ | indir is 0 if no env ; not 0 if env
27: jsr _main
28: addql #8,sp
29: movl d0,sp@-
30: jsr _exit
31: addql #4,sp
32: pea exit
33: trap #0
34: #
35: .data
36: _environ: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.