source: trunk/libs/newlib/src/newlib/libc/sys/rdos/crt0.S

Last change on this file was 444, checked in by satin@…, 6 years ago

add newlib,libalmos-mkh, restructure shared_syscalls.h and mini-libc
File size: 7.1 KB
Line 
1/*#######################################################################
2# RDOS operating system
3# Copyright (C) 1988-2006, Leif Ekblad
4#
5# This library is free software; you can redistribute it and/or modify
6# it under the terms of the GNU Lesser General Public License as published
7# by the Free Software Foundation; either version 2.1 of the License, or
8# (at your option) any later version.
9#
10# This library is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13# GNU Lesser General Public License for more details.
14#
15# You should have received a copy of the GNU Lesser General Public
16# License along with this library; if not, write to the Free Software
17# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
18#
19# The author of this program may be contacted at leif@rdos.net
20#
21# crt0.S                                                               
22# GCC startupcode for RDOS
23#
24##########################################################################*/
25 
26#include "user.def"
27
28    KEY_ENTRIES = 256
29 
30    .macro UserGate nr
31    .byte 0x9A
32    .long \nr
33    .word 2
34    .endm
35
36    .data
37    .align  8
38
39_key_section:
40    .word 0
41
42_key_ref_arr:
43    .long 0
44
45_key_dtor_arr:
46    .long 0
47
48        .text
49        .align 4
50                                                                                   
51/*##########################################################################
52#
53#   Name       : _start
54#
55#   Purpose....: GCC startup-code
56#
57##########################################################################*/
58
59        .global _start
60
61_start:
62        call get_impure_data_size
63        movl %eax,%ecx
64        UserGate allocate_app_mem_nr
65
66        xorl %eax,%eax
67        .byte 0x64
68        movl %edx,(%eax)
69        movl %edx,%edi
70        rep
71        stosb
72        pushl %edx
73
74    movl $(4 * KEY_ENTRIES),%eax
75        movl %eax,%ecx
76    UserGate allocate_app_mem_nr
77    movl $4,%eax
78    .byte 0x64
79    movl %edx,(%eax)
80    movl %edx,%edi
81        xorl %eax,%eax
82    rep
83    stosb
84
85    movl $(4 * KEY_ENTRIES),%eax
86        movl %eax,%ecx
87    UserGate allocate_app_mem_nr
88    movl %edx,_key_ref_arr
89    movl %edx,%edi
90        xorl %eax,%eax
91    rep
92    stosb
93
94    movl $(4 * KEY_ENTRIES),%eax
95        movl %eax,%ecx
96    UserGate allocate_app_mem_nr
97    movl %edx,_key_dtor_arr
98    movl %edx,%edi
99        xorl %eax,%eax
100    rep
101    stosb
102
103        UserGate create_user_section_nr
104        movw %bx,_key_section
105
106        call __init_rdos
107        add $4, %esp
108
109        movl $0x1000,%eax
110        UserGate allocate_app_mem_nr
111
112        pushl %edx
113        UserGate get_cmd_line_nr
114
115        xorl %ecx,%ecx
116        xorb %ah,%ah
117
118arg_loop:
119        movl %edi,(%edx)
120        addl $4,%edx
121        movb (%edi),%al
122        orb %al,%al
123        je arg_done
124
125arg_scan:       
126        movb (%edi),%al
127        orb %al,%al
128        je next_arg
129
130        cmpb $0x22,%al
131        jne arg_no_quote
132
133        xorb $1,%ah
134        jmp arg_scan_next
135
136arg_no_quote:
137        orb %ah,%ah
138        jnz arg_scan_next
139
140        cmpb $0x20,%al
141        je next_arg
142
143        cmpb $0x8,%al
144        je next_arg
145
146arg_scan_next:
147        incl %edi
148        jmp arg_scan
149
150next_arg:
151        incl %ecx
152
153to_next_arg:
154        orb %al,%al
155        je arg_done
156
157        xorb %al,%al
158        movb %al,(%edi)
159        incl %edi
160        movb (%edi),%al
161        cmpb $0x20,%al
162        je to_next_arg
163
164        cmpb $0x8,%al
165        je to_next_arg
166       
167        jmp arg_loop   
168
169arg_done:
170        int $3
171        pushl %ecx
172        call main
173        add $8, %esp
174
175        pushl %eax
176        call    exit
177                                           
178/*##########################################################################
179#
180#   Name       : _exit
181#
182#   Purpose....: GCC exit-code
183#
184##########################################################################*/
185
186        .global _exit
187
188_exit:
189        pushl %ebp
190        movl %esp,%ebp
191        movl 8(%ebp),%eax
192        UserGate unload_exe_nr
193                                                                                   
194/*##########################################################################
195#
196#   Name       : __getreent
197#
198#   Purpose....: ?
199#
200##########################################################################*/
201
202        .global __getreent
203
204__getreent:
205    xorl %eax,%eax
206        .byte 0x64
207        movl (%eax),%eax
208        ret
209                                                                                                                           
210/*##########################################################################
211#
212#   Name       : __rdos_thread_key_create
213#
214#   Purpose....: Emulate GCC pthread_key_create
215#
216#   Parameters.: dtor
217#
218#   Returns....: Key index
219#
220##########################################################################*/
221
222        .global __rdos_thread_key_create
223       
224__rdos_thread_key_create:
225    int $3
226        pushl %ebp
227        movl %esp,%ebp
228        pushl %ebx
229        pushl %ecx
230
231    mov _key_section,%bx
232    UserGate enter_user_section_nr     
233
234        movl _key_ref_arr,%ebx
235    movl KEY_ENTRIES,%ecx
236
237rtkc_scan_loop:
238    movl (%ebx), %eax
239    orl %eax, %eax
240    jz rtkc_entry_found
241
242    add $4, %ebx
243    loop rtkc_scan_loop
244
245    movl $-1, %eax
246    jmp rtkc_leave
247
248rtkc_entry_found:
249    movb $255,3(%ebx)
250    subl _key_ref_arr,%ebx
251    addl _key_dtor_arr,%ebx
252        movl 8(%ebp),%eax
253        movl %eax,(%ebx)
254        subl _key_dtor_arr,%ebx
255        movl %ebx,%eax
256
257rtkc_leave:
258    mov _key_section, %bx
259    UserGate leave_user_section_nr     
260
261    popl %ecx
262    popl %ebx   
263        leave
264        ret
265                                                                                                                           
266/*##########################################################################
267#
268#   Name       : __rdos_thread_key_delete
269#
270#   Purpose....: Emulate GCC pthread_key_delete
271#
272#   Parameters.: index
273#
274#   Returns....: result
275#
276##########################################################################*/
277
278        .global __rdos_thread_key_delete
279       
280__rdos_thread_key_delete:
281    int $3
282        pushl %ebp
283        movl %esp,%ebp
284        pushl %ebx
285
286    mov _key_section,%bx
287    UserGate enter_user_section_nr     
288
289        movl 8(%ebp),%ebx
290        testb $3,%bl
291        jnz rtkd_fail
292
293    cmpl $(4 * KEY_ENTRIES),%ebx
294    jae rtkd_fail
295       
296    addl _key_ref_arr,%ebx
297    movb $0,3(%ebx)
298    mov (%ebx),%eax
299    orl %eax,%eax
300    jz rtkd_ok
301
302    subl _key_ref_arr,%ebx   
303    movl $0,(%ebx)
304    jmp rtkd_ok
305
306rtkd_fail:
307    movl $1,%eax
308    jmp rtkd_leave   
309
310rtkd_ok:
311    xorl %eax,%eax
312
313rtkd_leave:
314    mov _key_section, %bx
315    UserGate leave_user_section_nr     
316
317    popl %ebx   
318        leave
319        ret
320                                                                                                                           
321/*##########################################################################
322#
323#   Name       : __rdos_thread_getspecific
324#
325#   Purpose....: Emulate GCC pthread_getspecific
326#
327#   Parameters.: index
328#
329#   Returns....: value
330#
331##########################################################################*/
332
333        .global __rdos_thread_getspecific
334       
335__rdos_thread_getspecific:
336    int $3
337        pushl %ebp
338        movl %esp,%ebp
339        pushl %ebx
340
341        movl 8(%ebp),%ebx
342        testb $3,%bl
343        jnz rtg_fail
344
345    cmpl $(4 * KEY_ENTRIES),%ebx
346    jae rtg_fail
347
348    movl $4,%eax
349    .byte 0x64
350    movl (%eax),%eax
351    addl %eax,%ebx
352    movl (%ebx),%eax
353    jmp rtg_done
354
355rtg_fail:
356    xorl %eax,%eax
357
358rtg_done:
359    popl %ebx   
360        leave
361        ret
362                                                                                                                           
363/*##########################################################################
364#
365#   Name       : __rdos_thread_setspecific
366#
367#   Purpose....: Emulate GCC pthread_setspecific
368#
369#   Parameters.: index
370#                value
371#
372##########################################################################*/
373
374        .global __rdos_thread_setspecific
375       
376__rdos_thread_setspecific:
377    int $3
378        pushl %ebp
379        movl %esp,%ebp
380        pushl %ebx
381        pushl %ecx
382
383        movl 8(%ebp),%ebx
384        testb $3,%bl
385        jnz rts_fail
386
387    cmpl $(4 * KEY_ENTRIES),%ebx
388    jae rts_fail
389
390    movl $4,%eax
391    .byte 0x64
392    movl (%eax),%eax
393    addl %eax,%ebx
394
395        movl 12(%ebp),%eax
396    movl %eax,(%ebx)
397    xorl %eax,%eax
398    jmp rts_done
399
400rts_fail:
401    movl $1,%eax
402
403rts_done:
404    popl %ebx   
405        leave
406        ret
Note: See TracBrowser for help on using the repository browser.