diff --git a/mach/i80/libem/pchl.s b/mach/i80/libem/pchl.s
new file mode 100644
index 000000000..6fd97d52c
--- /dev/null
+++ b/mach/i80/libem/pchl.s
@@ -0,0 +1,10 @@
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+
+.define .pchl
+.pchl:
+	pchl
+
diff --git a/mach/i80/ncg/table b/mach/i80/ncg/table
index 8baba1a0c..0368b31e3 100644
--- a/mach/i80/ncg/table
+++ b/mach/i80/ncg/table
@@ -1819,11 +1819,7 @@ gen Call {label,$1}
 pat cai
 with hlreg
 kills ALL
-uses dereg
-gen lxi de,{label,1f}
-    push de
-    pchl.
-    1:
+gen Call {label, ".pchl"}
 
 pat lfr $1==2				yields de