|
|   This file is part of the Free Pascal run time library.
|   Copyright (c) 1999-2000 by Michael Van Canneyt and Peter Vreman
|   members of the Free Pascal development team.
|
|   See the file COPYING.FPC, included in this distribution,
|   for details about the copyright.
|
|   This program 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.
|
|**********************************************************************}
|
| Linux ELF startup code for Free Pascal
|

        .file   "prt1.as"
        .text
        .globl  _start
        .type   _start,@function
_start:
        /* First locate the start of the environment variables */
        move.l    (%sp)+,%d3
        move.l    %d0,%d4

        move.l    %sp,%d1               /* Points to the arguments */
        move.l    %d3,%d0
        addq.l    #1,%d0
        lsl.l     #2,%d0
        add.l     %sp,%d0

        move.l    %sp,%d7
        and.l     #0xfffffff8,%d7        /* Align stack */
        move.l    %d7,%sp

        move.l    %d0,U_SYSLINUX_ENVP    /* Move the environment pointer */
        move.l    %d3,U_SYSLINUX_ARGC    /* Move the argument counter    */
        move.l    %d1,U_SYSLINUX_ARGV    /* Move the argument pointer    */

        move.l   #0,%fp                  /* Zero frame pointer to end call stack */

|
|       Start of args for __libc_start_main
|
|
        move.l   %d4,-(%sp)
        move.l   %sp,-(%sp)
        move.l   %a1,-(%sp)
        pea.l    _fini_dummy
        pea.l    _init_dummy
        move.l   %d1,-(%sp)
        move.l   %d3,-(%sp)
        pea.l    main
        jsr      __libc_start_main
        trap     #0

/* fake main routine which will be run from libc */
main:
        /* save return address */
        move.l    (%sp)+,%d0
        move.l    %d0,___fpc_ret
        move.l    %d1,___fpc_ret_d1
        move.l    %fp,___fpc_ret_fp
        move.l    %d0,-(%sp)

        /* start the program */
        move.l   #0,%fp
        jsr      PASCALMAIN

        .globl _haltproc
        .type _haltproc,@function
_haltproc:
        eor.l    %d0,%d0               /* load and save exitcode */
        move.w   U_SYSLINUX_EXITCODE,%d0

        move.l    ___fpc_ret,%d3         /* return to libc */
        move.l    ___fpc_ret_fp,%fp
        move.l    ___fpc_ret_d1,%d1
        move.l    %d3,-(%sp)
_init_dummy:
_fini_dummy:
        rts

.data
        .align  4

        .globl  ___fpc_brk_addr         /* heap management */
        .type   ___fpc_brk_addr,@object
        .size   ___fpc_brk_addr,4
___fpc_brk_addr:
        .long   0

___fpc_ret:                             /* return address to libc */
        .long   0
___fpc_ret_d1:
        .long   0
___fpc_ret_fp:
        .long   0