]> git.lizzy.rs Git - plan9front.git/blob - sys/src/libc/68020/main9p.s
vt: but not too fast :-)
[plan9front.git] / sys / src / libc / 68020 / main9p.s
1 #define NPRIVATES       16
2
3 TEXT    _mainp(SB), 1, $(16 + NPRIVATES*4)
4         MOVL    $a6base(SB), A6
5         MOVL    R0, _tos(SB)            /* return value of sys exec!! */
6         LEA     p-64(SP),A0
7         MOVL    A0,_privates+0(SB)
8         MOVL    $16,R0
9         MOVL    R0,_nprivates+0(SB)
10         BSR     _profmain(SB)
11         MOVL    __prof+4(SB), __prof+0(SB)
12         PEA     inargv+0(FP)
13         MOVL    inargc-4(FP), TOS
14         BSR     main(SB)
15
16 loop:
17         MOVL    $_exits<>+0(SB), R0
18         MOVL    R0,TOS
19         BSR     exits(SB)
20         LEA     _profin(SB), A0         /* force loading of profile */
21         BRA     loop
22
23 TEXT    _saveret(SB), 1, $0
24 TEXT    _savearg(SB), 1, $0
25         RTS
26
27 TEXT    _callpc(SB), 1, $0
28         MOVL    argp+0(FP), A0
29         MOVL    4(A0), R0
30         RTS
31
32 DATA    _exits<>+0(SB)/4, $"main"
33 GLOBL   _exits<>+0(SB), $5