|
|
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: movl a0,sp@(8) | env
22: movl a0,_environ | indir is 0 if no env ; not 0 if env
23: jsr _main
24: addql #8,sp
25: movl d0,sp@-
26: jsr _exit
27: addql #4,sp
28: pea exit
29: trap #0
30: #
31: .data
32: _environ: .long 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.