Added strhp.s

diff --git a/mach/ns/libem/LIST b/mach/ns/libem/LIST
index be3e036..c5a5ebc 100644 (file)
--- 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 (file)
index 0000000..4ace7d4
--- /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