.define strhp
.sect .text
.sect .rom
.sect .data
.sect .bss
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