diff --git a/mach/ns/libem/LIST b/mach/ns/libem/LIST
index be3e03668..c5a5ebcb6 100644
--- a/mach/ns/libem/LIST
+++ b/mach/ns/libem/LIST
@@ -24,3 +24,4 @@ print.s
 prstr.s
 prnl.s
 putchar.s
+strhp.s
diff --git a/mach/ns/libem/strhp.s b/mach/ns/libem/strhp.s
new file mode 100644
index 000000000..4ace7d4a8
--- /dev/null
+++ b/mach/ns/libem/strhp.s
@@ -0,0 +1,25 @@
+#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