diff --git a/mach/vax4/libem/fat.s b/mach/vax4/libem/fat.s
index a7535bc12..9543b23c6 100644
--- a/mach/vax4/libem/fat.s
+++ b/mach/vax4/libem/fat.s
@@ -6,12 +6,5 @@
 .fat:
 	pushl	(sp)
 	jsb	.trp
-	movl	$I1,ap
-	movl	(sp)+,6(ap)
-	chmk	(ap)+
+	calls	$1,__exit
 	halt
-
-	.sect .rom
-I1:	.data2	1
-	.data4	1
-	.data4	0
diff --git a/mach/vax4/libem/print.s b/mach/vax4/libem/print.s
index e6c317542..f80dd97ba 100644
--- a/mach/vax4/libem/print.s
+++ b/mach/vax4/libem/print.s
@@ -15,19 +15,12 @@ I1:
 	addb3   $'0',r1,r0
 
 printc:
-	movb    r0,Ich
-	movl	ap,r2
-	movl    $I9,ap
-	chmk    $4
-	movl	r2,ap
+	movb	r0,Ich
+	pushl	$1
+	pushab	Ich
+	pushl	$2
+	calls	$3,_write
 	rsb
 
-	.sect .rom
-I9:
-	.data4   3
-	.data4   2
-	.data4   Ich
-	.data4   1
-
 	.sect .data
-Ich:    .data2   0
+Ich:    .data1   0
diff --git a/mach/vax4/libem/strhp.s b/mach/vax4/libem/strhp.s
index bc7deee2e..6e4a75c0f 100644
--- a/mach/vax4/libem/strhp.s
+++ b/mach/vax4/libem/strhp.s
@@ -10,24 +10,16 @@
 	movl    (sp)+,r0
 	pushl	r1
 	movl    r0,.reghp
-	cmpl    r0,.hplim
+	cmpl    r0,.limhp
 	blssu   I2
 	addl2   $02000,r0
 	bicl2   $0777,r0
-	movl    r0,.hplim
-	movl	ap,r1
-	movl    $I9,ap
-	chmk    (ap)+
-	bcc     I1
+	pushl	r0
+	calls	$1,_brk
+	tst.l	r0
+	beql	I2
 	pushl	$EHEAP
 	jsb     .trp
 	rsb
-I1:
-	movl	r1,ap
 I2:
 	rsb
-
-	.sect .data
-I9:     .data2   17
-	.data4   1
-.hplim: .data4   _end
diff --git a/mach/vax4/libem/trp.s b/mach/vax4/libem/trp.s
index f55f29920..36715d347 100644
--- a/mach/vax4/libem/trp.s
+++ b/mach/vax4/libem/trp.s
@@ -34,18 +34,13 @@ I3:
 	bisb2	r3,-(r1)	! Put them in the '0'.
 	ashl	$-3,r0,r0	! Shift the 3 bits off.
 	sobgtr	r2,I3
-	movl	ap,r2
-	movl	$Iwr,ap
-	chmk	$4		! write
-	movl	r2,ap
+	pushl	$Iemesend-Iemes
+	pushab	Iemes
+	pushl	$2
+	calls	$3,_write
 	bpt
 .sect .data
 Iemes:
 .data1 'E','M',' ','t','r','a','p',' ','0','0','0','0','0',' ','(','o','c','t','a','l',')',0xa
 Iemesend:
 .align 2
-Iwr:
-.data4 3		! 3 arguments.
-.data4 2		! File descriptor 2.
-.data4 Iemes		! Address of character buffer.
-.data4 Iemesend - Iemes	! Number of characters to write.