.define strhp

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