66 lines
1 KiB
PHP
66 lines
1 KiB
PHP
|
comment "subroutine declare"
|
||
|
.purgem gdbasm_declare
|
||
|
.macro gdbasm_declare name
|
||
|
.ent \name
|
||
|
\name:
|
||
|
.endm
|
||
|
|
||
|
comment "subroutine prologue"
|
||
|
.macro gdbasm_enter
|
||
|
.frame $30, 16, $26, 0
|
||
|
.mask 0x04000000, -16
|
||
|
ldgp $gp, 0($27)
|
||
|
subq $sp, 16, $sp
|
||
|
stq $26, 0($sp)
|
||
|
.prologue 1
|
||
|
.endm
|
||
|
|
||
|
comment "subroutine epilogue"
|
||
|
.macro gdbasm_leave
|
||
|
ldq $26, 0($sp)
|
||
|
addq $sp, 16, $sp
|
||
|
ret
|
||
|
.endm
|
||
|
|
||
|
comment "subroutine end"
|
||
|
.purgem gdbasm_end
|
||
|
.macro gdbasm_end name
|
||
|
.end \name
|
||
|
.endm
|
||
|
|
||
|
comment "subroutine call"
|
||
|
/* Can't use ldgp here because the finish-frame test expects the
|
||
|
pc to wind up on the next line. That's ok, we're all local. */
|
||
|
.macro gdbasm_call subr
|
||
|
jsr $26, \subr
|
||
|
.endm
|
||
|
|
||
|
.macro gdbasm_several_nops
|
||
|
nop
|
||
|
nop
|
||
|
nop
|
||
|
nop
|
||
|
.endm
|
||
|
|
||
|
comment "exit (0)"
|
||
|
.macro gdbasm_exit0
|
||
|
lda $16, 0($31)
|
||
|
lda $0, 1($31)
|
||
|
callsys
|
||
|
.endm
|
||
|
|
||
|
comment "crt0 startup"
|
||
|
.macro gdbasm_startup
|
||
|
.frame $31, 0, $31, 0
|
||
|
.prologue
|
||
|
ldgp $gp, 0($27)
|
||
|
.endm
|
||
|
|
||
|
comment "Declare a data variable"
|
||
|
.purgem gdbasm_datavar
|
||
|
.macro gdbasm_datavar name value
|
||
|
.data
|
||
|
\name:
|
||
|
.long \value
|
||
|
.endm
|