ack/mach/z8000/libem/strhp.s
1985-02-17 00:57:20 +00:00

11 lines
161 B
ArmAsm

.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