Subversion Repositories or1k_old

/*

 * crt0.S -- startup file for hppa.

 *              rob@cygnus.com (Rob Savoye)

 */

        .VERSION "0.2"

        .COPYRIGHT "crt0.S for hppa"

;sp      .equ    %r30                   ; stack pointer

;dp      .equ    %r27                   ; global data pointer

;arg0    .equ    %r26                   ; argument

;arg1    .equ    %r25                   ; argument or high part of double argument

;arg2    .equ    %r24                   ; argument

;arg3    .equ    %r23                   ; argument or high part of double argument

#define         IMM(a,b)        ldil L%a,b  ! ldo  R%a(b),b

#define         imm(i,t)        ldil LS%i,t ! addi RS%i,t,t

        .DATA

/****

 * FIXME: these are just a gross hack so this will assemble

 ****/

_bss_start      .WORD

_bss_end        .WORD

_foobar

                .STRINGZ "Foo Bar...\r\n"

;;_SYSTEM_ID    .WORD

;;              .EXPORT _SYSTEM_ID      ; FIXME this is only so it'll

                                        ; link

/*

 * Set up the standard spaces (sections) These definitions come

 * from /lib/pcc_prefix.s.

 */

        .space  $TEXT$,0

        .SUBSPA $BOOT$,QUAD=0,ALIGN=8,ACCESS=0x2c,SORT=4

        .IMPORT _start

/*

 * stuff we need that's defined elsewhere.

 */

        .IMPORT main, CODE

        .IMPORT _bss_start, DATA

        .IMPORT _bss_end, DATA

        .IMPORT environ, DATA

/*

 * start -- set things up so the application will run.

 *

 */

        .PROC

        .CALLINFO SAVE_SP, FRAME=48

        .EXPORT $START$,ENTRY

$START$

        /* FIXME: this writes to page zero */

        ;; setup the %30 (stack pointer) with some memory

        ldil    L%_stack+48,%r30

        ldo     R%_stack+48(%r30),%r30          ; should be %r30 (sp) but then

                                                ; we'd kill our test program :-)

        ;; we need to set %r27 (global data pointer) here too 

        ldil    L%$global$,%r27

        ldo     R%$global$(%r27),%r27           ; same problem as above

/*

 * zerobss -- zero out the bss section

 */

        ; load the start of bss

        ldil    L%_bss_start,%r4

        ldo     R%_bss_start(%r4),%r4

        ;  load the end of bss

        ldil    L%_bss_end,%r5

        ldo     R%_bss_end(%r5),%r5

bssloop

        addi    -1,%r5,%r5                      ; decrement _bss_end

        stb     %r0,0(0,%r5)                      ; we do this by bytes for now even

                                                ; though it's slower, it's safer

        combf,= %r4,%r5, bssloop

        nop

        ldi     1,%ret0

/*

 * Call the main routine from the application to get it going.

 * main (argc, argv, environ)

 * We pass argv as a pointer to NULL.

 */

        bl      main,%r2

        nop

        .PROCEND

/*

 * _exit -- Exit from the application. Normally we cause a user trap

 *          to return to the ROM monitor for another run, but with

 *          this monitor we can't. Still, "C" wants this symbol, it

 *          should be here. Jumping to 0xF0000004 jumps back into the

 *          firmware, while writing a 5 to 0xFFFE0030 causes a reset.

 */

        .EXPORT _exit, ENTRY

_exit

        .PROC

        .CALLINFO

        .ENTRY

;;      ldil    L%0xf0000004,%r1

;;      bl      %r1, %r2

        ldil    L'4026531844,%r19

        ldo     R'4026531844(%r19),%r19

        blr     %r19, %r2

        nop

        ;; This just causes a breakpoint exception

;;      break   0x0e,0xa5a

;;      bv,n    (%rp)

        nop

        .EXIT

        .PROCEND

        .subspa $UNWIND_START$,QUAD=0,ALIGN=8,ACCESS=0x2c,SORT=56

        .export $UNWIND_START

$UNWIND_START

        .subspa $UNWIND$,QUAD=0,ALIGN=8,ACCESS=0x2c,SORT=64

        .subspa $UNWIND_END$,QUAD=0,ALIGN=8,ACCESS=0x2c,SORT=72

        .export $UNWIND_END

$UNWIND_END

        .subspa $RECOVER_START$,QUAD=0,ALIGN=4,ACCESS=0x2c,SORT=73

        .export $RECOVER_START

$RECOVER_START

        .subspa $RECOVER$,QUAD=0,ALIGN=4,ACCESS=0x2c,SORT=80

        .subspa $RECOVER_END$,QUAD=0,ALIGN=4,ACCESS=0x2c,SORT=88

        .export $RECOVER_END

$RECOVER_END

; The following declarations are, by default in the data space ($PRIVATE$)

;;        .space  $PRIVATE$,1

/*

 * Here we set up the standard date sub spaces.

 * _dp is for the WinBond board.

 *

 * Set up some room for a stack. We just grab a chunk of memory.

 * We also setup some space for the global variable space, which

 * must be done using the reserved name "$global$" so "C" code

 * can find it. The stack grows towards the higher addresses.

 */

        .subspa $DATA$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=16

        .subspa $SHORTDATA$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=24

        .subspa $GLOBAL$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=40

        .export $global$

        .export _dp

$global$

_dp

        .subspa $SHORTBSS$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=80,ZERO

        .subspa $BSS$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=82,ZERO

       .subspa $STACK$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=88,ZERO

        .export _stack

_stack

        .BLOCK          0x2000

/*

 * The heap follows the stack. To use dynamic memory routines in an

 * application, some space MUST be assigned to the stack.

 */

        .subspa $HEAP$,QUAD=1,ALIGN=8,ACCESS=0x1f,SORT=96,ZERO

        .export _heap

_heap

        .end