#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define  .strhp

        ! $Header$


.strhp:
	movd    tos,r7
	movd    tos,r0
	movd	r7,tos
	movd    r0,@.reghp
	cmpd    r0,@.limhp
	blo	I2
	addd    02000,r0
	bicd    0777,r0
	movd	r0,tos
	jsr	@_brk
	adjspd	-4
	cmpqd	0,r0
	beq	I2
	movd	EHEAP,tos
	jsr     @.trp
I2:
	ret	0