diff --git a/mach/z80/libem/pstrng.s b/mach/z80/libem/pstrng.s
index 7e8066642..f3e0885ac 100644
--- a/mach/z80/libem/pstrng.s
+++ b/mach/z80/libem/pstrng.s
@@ -1,3 +1,5 @@
+
+
 .define	pstrng
 ! print a string of characters to the console
 ! entry: DE points to string
@@ -7,7 +9,7 @@ pstrng:	push	af
 1:	ld	a,(de)
 	or	a
 	jr	z,2f
-	call	putchr
+	call	putchar
 	inc	de
 	jr	1b
 2:	pop	af
diff --git a/mach/z80/libmon/Makefile b/mach/z80/libmon/Makefile
index c6dfd6fc6..fbd24f1f4 100644
--- a/mach/z80/libmon/Makefile
+++ b/mach/z80/libmon/Makefile
@@ -15,8 +15,8 @@ tail.cpm:	mon.cpm.s
 		@echo Warning: untested, this is an example
 		arch cr tail.cpm mon.cpm.s
 
-tail.nascom:	mon.s putchr.nas.s
-		arch cr tail.nascom mon.s putchr.nas.s
+tail.nascom:	mon.s char.nas.s
+		arch cr tail.nascom mon.s char.nas.s
 
 tail.hermac:	mon.s char.her.s
 		arch cr tail.hermac mon.s char.her.s
@@ -25,4 +25,4 @@ opr:
 		make pr | opr
 pr:
 		@pr `pwd`/Makefile `pwd`/head_em.s
-		@pr `pwd`/subr.s `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/putchr.s `pwd`/putchr.nas.s `pwd`/char.her.s
+		@pr `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/char.nas.s `pwd`/char.her.s
diff --git a/mach/z80/libsys/Makefile b/mach/z80/libsys/Makefile
index c6dfd6fc6..fbd24f1f4 100644
--- a/mach/z80/libsys/Makefile
+++ b/mach/z80/libsys/Makefile
@@ -15,8 +15,8 @@ tail.cpm:	mon.cpm.s
 		@echo Warning: untested, this is an example
 		arch cr tail.cpm mon.cpm.s
 
-tail.nascom:	mon.s putchr.nas.s
-		arch cr tail.nascom mon.s putchr.nas.s
+tail.nascom:	mon.s char.nas.s
+		arch cr tail.nascom mon.s char.nas.s
 
 tail.hermac:	mon.s char.her.s
 		arch cr tail.hermac mon.s char.her.s
@@ -25,4 +25,4 @@ opr:
 		make pr | opr
 pr:
 		@pr `pwd`/Makefile `pwd`/head_em.s
-		@pr `pwd`/subr.s `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/putchr.s `pwd`/putchr.nas.s `pwd`/char.her.s
+		@pr `pwd`/mon.s `pwd`/mon.cpm.s `pwd`/char.nas.s `pwd`/char.her.s