ack/mach/z8000/libem/strhp.s
1987-01-19 10:51:50 +00:00

16 lines
219 B
ArmAsm

.define strhp
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
strhp:
popl RR2, *RR14
pop R0, *RR14
ld reghp, R0 !heappointer must be < stackpointer.
cp R0, R15
jp ULT, *RR2
push *RR14, $EHEAP
jr fatal