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 accebfe0..5f623673 100644
Binary files a/src/klh/80tran.38 and b/src/klh/80tran.39 differ