#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