build: Support tcc, create tinycc-seed with tcc.
[mes.git] / lib / crt1.c
1 /* -*-comment-start: "//";comment-end:""-*-
2  * Mes --- Maxwell Equations of Software
3  * Copyright © 2017,2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
4  *
5  * This file is part of Mes.
6  *
7  * Mes is free software; you can redistribute it and/or modify it
8  * under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 3 of the License, or (at
10  * your option) any later version.
11  *
12  * Mes is distributed in the hope that it will be useful, but
13  * WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with Mes.  If not, see <http://www.gnu.org/licenses/>.
19  */
20
21 char **environ = 0;
22 int main (int argc, char *argv[]);
23
24 #if __MESC__
25
26 int
27 _start ()
28 {
29   asm ("mov____%ebp,%eax");
30   asm ("add____$i8,%eax !4");
31
32   asm ("movzbl_(%eax),%eax");
33   asm ("add____$i8,%eax !3");
34
35   asm ("shl____$i8,%eax !0x02");
36   asm ("add____%ebp,%eax");
37   asm ("mov____%eax,0x32 &environ");
38
39   asm ("mov____%ebp,%eax");
40   asm ("add____$i8,%eax !8");
41   asm ("push___%eax");
42
43   asm ("mov____%ebp,%eax");
44   asm ("add____$i8,%eax !4");
45   asm ("movzbl_(%eax),%eax");
46   asm ("push___%eax");
47
48   main ();
49
50   asm ("mov____%eax,%ebx");
51   asm ("mov____$i32,%eax %1");
52   asm ("int____$0x80");
53   asm ("hlt");
54 }
55
56 #else // !__MESC__
57
58 void
59 _start ()
60 {
61   asm (
62        "mov     %%ebp,%%eax\n\t"
63        "add     $4,%%eax\n\t"
64        "movzbl  (%%eax),%%eax\n\t"
65        "add     $3,%%eax\n\t"
66        "shl     $2,%%eax\n\t"
67        "add     %%ebp,%%eax\n\t"
68        "mov     %%eax,%0\n\t"
69        : "=r" (environ)
70        : //no inputs ""
71        );
72   asm (
73        "mov     %ebp,%eax\n\t"
74        "add     $8,%eax\n\t"
75        "push    %eax\n\t"
76
77        "mov     %ebp,%eax\n\t"
78        "add     $4,%eax\n\t"
79        "movzbl  (%eax),%eax\n\t"
80        "push    %eax\n\t"
81
82        "call    main\n\t"
83
84        "mov     %eax,%ebx\n\t"
85        "mov     $1,%eax\n\t"
86        "int     $0x80\n\t"
87        "hlt      \n\t"
88        );
89 }
90
91 #endif // !__MESC__