Subversion Repositories openrisc_me

/*#######################################################################

# RDOS operating system

# Copyright (C) 1988-2006, Leif Ekblad

#

# This library is free software; you can redistribute it and/or modify

# it under the terms of the GNU Lesser General Public License as published

# by the Free Software Foundation; either version 2.1 of the License, or

# (at your option) any later version.

#

# This library is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU Lesser General Public License for more details.

#

# You should have received a copy of the GNU Lesser General Public

# License along with this library; if not, write to the Free Software

# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

#

# The author of this program may be contacted at leif@rdos.net

#

# crt0.S

# GCC startupcode for RDOS

#

##########################################################################*/

#include "user.def"

    KEY_ENTRIES = 256

    .macro UserGate nr

    .byte 0x9A

    .long \nr

    .word 2

    .endm

    .data

    .align  8

_key_section:

    .word 0

_key_ref_arr:

    .long 0

_key_dtor_arr:

    .long 0

        .text

        .align 4

/*##########################################################################

#

#   Name       : _start

#

#   Purpose....: GCC startup-code

#

##########################################################################*/

        .global _start

_start:

        call get_impure_data_size

        movl %eax,%ecx

        UserGate allocate_app_mem_nr

        xorl %eax,%eax

        .byte 0x64

        movl %edx,(%eax)

        movl %edx,%edi

        rep

        stosb

        pushl %edx

    movl $(4 * KEY_ENTRIES),%eax

        movl %eax,%ecx

    UserGate allocate_app_mem_nr

    movl $4,%eax

    .byte 0x64

    movl %edx,(%eax)

    movl %edx,%edi

        xorl %eax,%eax

    rep

    stosb

    movl $(4 * KEY_ENTRIES),%eax

        movl %eax,%ecx

    UserGate allocate_app_mem_nr

    movl %edx,_key_ref_arr

    movl %edx,%edi

        xorl %eax,%eax

    rep

    stosb

    movl $(4 * KEY_ENTRIES),%eax

        movl %eax,%ecx

    UserGate allocate_app_mem_nr

    movl %edx,_key_dtor_arr

    movl %edx,%edi

        xorl %eax,%eax

    rep

    stosb

        UserGate create_user_section_nr

        movw %bx,_key_section

        call __init_rdos

        add $4, %esp

        movl $0x1000,%eax

        UserGate allocate_app_mem_nr

        pushl %edx

        UserGate get_cmd_line_nr

        xorl %ecx,%ecx

        xorb %ah,%ah

arg_loop:

        movl %edi,(%edx)

        addl $4,%edx

        movb (%edi),%al

        orb %al,%al

        je arg_done

arg_scan:

        movb (%edi),%al

        orb %al,%al

        je next_arg

        cmpb $0x22,%al

        jne arg_no_quote

        xorb $1,%ah

        jmp arg_scan_next

arg_no_quote:

        orb %ah,%ah

        jnz arg_scan_next

        cmpb $0x20,%al

        je next_arg

        cmpb $0x8,%al

        je next_arg

arg_scan_next:

        incl %edi

        jmp arg_scan

next_arg:

        incl %ecx

to_next_arg:

        orb %al,%al

        je arg_done

        xorb %al,%al

        movb %al,(%edi)

        incl %edi

        movb (%edi),%al

        cmpb $0x20,%al

        je to_next_arg

        cmpb $0x8,%al

        je to_next_arg

        jmp arg_loop

arg_done:

        int $3

        pushl %ecx

        call main

        add $8, %esp

        pushl %eax

        call    exit

/*##########################################################################

#

#   Name       : _exit

#

#   Purpose....: GCC exit-code

#

##########################################################################*/

        .global _exit

_exit:

        pushl %ebp

        movl %esp,%ebp

        movl 8(%ebp),%eax

        UserGate unload_exe_nr

/*##########################################################################

#

#   Name       : __getreent

#

#   Purpose....: ?

#

##########################################################################*/

        .global __getreent

__getreent:

    xorl %eax,%eax

        .byte 0x64

        movl (%eax),%eax

        ret

/*##########################################################################

#

#   Name       : __rdos_thread_key_create

#

#   Purpose....: Emulate GCC pthread_key_create

#

#   Parameters.: dtor

#

#   Returns....: Key index

#

##########################################################################*/

        .global __rdos_thread_key_create

__rdos_thread_key_create:

    int $3

        pushl %ebp

        movl %esp,%ebp

        pushl %ebx

        pushl %ecx

    mov _key_section,%bx

    UserGate enter_user_section_nr

        movl _key_ref_arr,%ebx

    movl KEY_ENTRIES,%ecx

rtkc_scan_loop:

    movl (%ebx), %eax

    orl %eax, %eax

    jz rtkc_entry_found

    add $4, %ebx

    loop rtkc_scan_loop

    movl $-1, %eax

    jmp rtkc_leave

rtkc_entry_found:

    movb $255,3(%ebx)

    subl _key_ref_arr,%ebx

    addl _key_dtor_arr,%ebx

        movl 8(%ebp),%eax

        movl %eax,(%ebx)

        subl _key_dtor_arr,%ebx

        movl %ebx,%eax

rtkc_leave:

    mov _key_section, %bx

    UserGate leave_user_section_nr

    popl %ecx

    popl %ebx

        leave

        ret

/*##########################################################################

#

#   Name       : __rdos_thread_key_delete

#

#   Purpose....: Emulate GCC pthread_key_delete

#

#   Parameters.: index

#

#   Returns....: result

#

##########################################################################*/

        .global __rdos_thread_key_delete

__rdos_thread_key_delete:

    int $3

        pushl %ebp

        movl %esp,%ebp

        pushl %ebx

    mov _key_section,%bx

    UserGate enter_user_section_nr

        movl 8(%ebp),%ebx

        testb $3,%bl

        jnz rtkd_fail

    cmpl $(4 * KEY_ENTRIES),%ebx

    jae rtkd_fail

    addl _key_ref_arr,%ebx

    movb $0,3(%ebx)

    mov (%ebx),%eax

    orl %eax,%eax

    jz rtkd_ok

    subl _key_ref_arr,%ebx

    movl $0,(%ebx)

    jmp rtkd_ok

rtkd_fail:

    movl $1,%eax

    jmp rtkd_leave

rtkd_ok:

    xorl %eax,%eax

rtkd_leave:

    mov _key_section, %bx

    UserGate leave_user_section_nr

    popl %ebx

        leave

        ret

/*##########################################################################

#

#   Name       : __rdos_thread_getspecific

#

#   Purpose....: Emulate GCC pthread_getspecific

#

#   Parameters.: index

#

#   Returns....: value

#

##########################################################################*/

        .global __rdos_thread_getspecific

__rdos_thread_getspecific:

    int $3

        pushl %ebp

        movl %esp,%ebp

        pushl %ebx

        movl 8(%ebp),%ebx

        testb $3,%bl

        jnz rtg_fail

    cmpl $(4 * KEY_ENTRIES),%ebx

    jae rtg_fail

    movl $4,%eax

    .byte 0x64

    movl (%eax),%eax

    addl %eax,%ebx

    movl (%ebx),%eax

    jmp rtg_done

rtg_fail:

    xorl %eax,%eax

rtg_done:

    popl %ebx

        leave

        ret

/*##########################################################################

#

#   Name       : __rdos_thread_setspecific

#

#   Purpose....: Emulate GCC pthread_setspecific

#

#   Parameters.: index

#                value

#

##########################################################################*/

        .global __rdos_thread_setspecific

__rdos_thread_setspecific:

    int $3

        pushl %ebp

        movl %esp,%ebp

        pushl %ebx

        pushl %ecx

        movl 8(%ebp),%ebx

        testb $3,%bl

        jnz rts_fail

    cmpl $(4 * KEY_ENTRIES),%ebx

    jae rts_fail

    movl $4,%eax

    .byte 0x64

    movl (%eax),%eax

    addl %eax,%ebx

        movl 12(%ebp),%eax

    movl %eax,(%ebx)

    xorl %eax,%eax

    jmp rts_done

rts_fail:

    movl $1,%eax

rts_done:

    popl %ebx

        leave

        ret