ack/mach/z8000/libem/strhp.s

19 lines
201 B
ArmAsm

.define strhp
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
strhp:
popl RR2, *RR14
pop R0, *RR14
cp R0, R15
jp ULT, 1f
push *RR14, $EHEAP
calr trp
jp *RR2
1:
ld reghp, R0
jp *RR2