From 08b92153a0663212d815e565ca8eb2fca17bfc99 Mon Sep 17 00:00:00 2001
From: David Given <dg@cowlark.com>
Date: Wed, 6 Feb 2019 20:36:23 +0100
Subject: [PATCH] Use a helper function for cai --- only saves two bytes per
 invocation, but is much less embarassing.

---
 mach/i80/libem/pchl.s | 10 ++++++++++
 mach/i80/ncg/table    |  6 +-----
 2 files changed, 11 insertions(+), 5 deletions(-)
 create mode 100644 mach/i80/libem/pchl.s

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