.define	.strhp

.strhp:
        ! $Header$
	pop	bx
	pop	ax
	mov	(.reghp),ax
	cmp	ax,(.limhp)
	jb	1f
	add	ax,02000
	and	ax,~0777
	mov	(.limhp),ax
	cmp	ax,sp
	jae	2f
1:
	jmp	bx
2:
	mov	ax,EHEAP
	jmp	.fat