Subversion Repositories scarts

        comment "subroutine prologue"

        .macro gdbasm_enter

        addi sp,#-16,sp

        sti fp, @(sp,0)

        mov sp, fp

        movsg lr, gr5

        sti gr5, @(fp,8)

        .endm

        comment "subroutine epilogue"

        .macro gdbasm_leave

        ldi @(fp,8), gr5

        ld @(fp,gr0), fp

        addi sp,#16,sp

        jmpl @(gr5,gr0)

        .endm

        .macro gdbasm_call subr

        call \subr

        .endm

        .macro gdbasm_several_nops

        nop

        nop

        nop

        nop

        .endm

        comment "exit (0)"

        .macro gdbasm_exit0

        comment "Don't know how to exit, but this will certainly halt..."

        ldi @(gr0,0), gr5

        .endm

        comment "crt0 startup"

        .macro gdbasm_startup

        call    .Lcall

.Lcall: movsg   lr, gr4

        sethi   #gprelhi(.Lcall), gr5

        setlo   #gprello(.Lcall), gr5

        sub      gr4, gr5, gr16

        sethi    #gprelhi(_stack), sp

        setlo    #gprello(_stack), sp

        setlos   #0, fp

        add      sp, gr16, sp

        .endm

        comment "Declare a data variable"

        .purgem gdbasm_datavar

        .macro gdbasm_datavar name value

        .data

\name:

        .long   \value

        .endm