From 7da810ee8642a940ae388c1f97ddacce14924191 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 19 Jun 2019 21:04:24 +0200
Subject: [PATCH] Update 80TRAN to work with latest support files.

---
 build/misc.tcl                   |   4 ++++
 doc/programs.md                  |   1 +
 src/klh/{80tran.38 => 80tran.39} | Bin 15595 -> 15609 bytes
 3 files changed, 5 insertions(+)
 rename src/klh/{80tran.38 => 80tran.39} (99%)

diff --git a/build/misc.tcl b/build/misc.tcl
index 14eccf14..1e8a6553 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1304,6 +1304,10 @@ respond "=" "0\r"
 respond "=" "1\r"
 expect ":KILL"
 
+# 80TRAN
+respond "*" ":midas klh; ts 80tran_80tran\r"
+expect ":KILL"
+
 # The old CLIB has a UFA instruction which doesn't work on a KS10.
 # Patch out the call to FIXIFY.
 respond "*" ":job cc\r"
diff --git a/doc/programs.md b/doc/programs.md
index ac57c1d1..51f7941a 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -7,6 +7,7 @@
 - 20XCVT, convert TOPS-20 CSAVE file to PDUMP.
 - 3406, PDP-6 part of 340D.
 - 340D, Datapoint emulator for 340 display.
+- 80TRAN, translate 8080 program.
 - @, cross reference generation tool.
 - ACNVRT/MCNVRT/PCNVRT/UCNVRT, asciizer and binarator.
 - ACCLNK, sets com-link accept bit for specified TTY.
diff --git a/src/klh/80tran.38 b/src/klh/80tran.39
similarity index 99%
rename from src/klh/80tran.38
rename to src/klh/80tran.39
index accebfe04c2f401ed4495c274a3320bda27e6486..5f623673af383eb76c05045f8c1ed4701c0b1ca9 100644
GIT binary patch
delta 46
zcmaD|`Ll9DB~yO##;Qk*oGL2$C7HRlwuY0VnWTA(D~nU}(ydbxfnuqf8<?`K0KQTY
Au>b%7

delta 54
zcmexa`MPpKC8PDm>PL(!dYO5}MI{Q^#mUxrrKS1B3U*vbLM55GMJ2_X`<Sw=0B*_^
AZ~y=R