95 lines
1.5 KiB
PHP
95 lines
1.5 KiB
PHP
|
# You'll find a bunch of nop opcodes in the below macros. They are
|
||
|
|
# there to keep the code correctly aligned. Be careful to maintain
|
||
|
|
# them when changing the code.
|
||
|
|
|
||
|
|
comment "subroutine declare"
|
||
|
|
.purgem gdbasm_declare
|
||
|
|
.macro gdbasm_declare name
|
||
|
|
.align 1
|
||
|
|
.global \name
|
||
|
|
\name:
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "subroutine prologue"
|
||
|
|
.macro gdbasm_enter
|
||
|
|
mov.l r14,@-r15
|
||
|
|
sts.l pr,@-r15
|
||
|
|
mov r15,r14
|
||
|
|
nop
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "subroutine epilogue"
|
||
|
|
.macro gdbasm_leave
|
||
|
|
mov r14,r15
|
||
|
|
lds.l @r15+,pr
|
||
|
|
mov.l @r15+,r14
|
||
|
|
rts
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "subroutine end"
|
||
|
|
.purgem gdbasm_end
|
||
|
|
.macro gdbasm_end name
|
||
|
|
.size \name, . - \name
|
||
|
|
.align 1
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "subroutine call"
|
||
|
|
.macro gdbasm_call subr
|
||
|
|
mov.l .Lconst\@,r1
|
||
|
|
bra .Lafterconst\@
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
.Lconst\@:
|
||
|
|
.align 2
|
||
|
|
.long \subr
|
||
|
|
.align 1
|
||
|
|
.Lafterconst\@:
|
||
|
|
jsr @r1
|
||
|
|
nop
|
||
|
|
.endm
|
||
|
|
|
||
|
|
.macro gdbasm_several_nops
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
nop
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "exit (0)"
|
||
|
|
.macro gdbasm_exit0
|
||
|
|
sleep
|
||
|
|
nop
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "crt0 startup"
|
||
|
|
.macro gdbasm_startup
|
||
|
|
comment "If there is a _stack symbol, use it for setting up the stack"
|
||
|
|
comment "pointer. In hosted mode (when there is no _stack symbol),"
|
||
|
|
comment "the operating system will have initialized it already."
|
||
|
|
mov.l .stackaddr, r0
|
||
|
|
tst r0, r0
|
||
|
|
bt .afterstackaddr
|
||
|
|
mov r0, r15
|
||
|
|
bra .afterstackaddr
|
||
|
|
nop
|
||
|
|
.align 2
|
||
|
|
.stackaddr:
|
||
|
|
.weak _stack
|
||
|
|
.long _stack
|
||
|
|
.align 1
|
||
|
|
.afterstackaddr:
|
||
|
|
.endm
|
||
|
|
|
||
|
|
comment "Declare a data variable"
|
||
|
|
.purgem gdbasm_datavar
|
||
|
|
.macro gdbasm_datavar name value
|
||
|
|
.data
|
||
|
|
.align 2
|
||
|
|
.type \name, @object
|
||
|
|
.size \name, 4
|
||
|
|
\name:
|
||
|
|
.long \value
|
||
|
|
.endm
|