From 4652a2f641cd4aac590d756f64bf669fb4e0230a Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 22 Jan 2019 21:22:57 +0100
Subject: [PATCH] Translate SST21 and get it out of ITS.

---
 Makefile       | 3 ++-
 build/misc.tcl | 4 ++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 6039fa74..e8bfd2e7 100644
--- a/Makefile
+++ b/Makefile
@@ -127,12 +127,13 @@ $(OUT)/dskdmp.tape: $(WRITETAPE) $(RAM) $(DSKDMP)
 	$(MKDIR) $(OUT)
 	$(WRITETAPE) -n 2560 $@ $(RAM) $(DSKDMP)
 
-$(OUT)/bootvt.bin $(OUT)/aplogo.ptp: $(OUT)/output.tape
+$(OUT)/bootvt.bin $(OUT)/aplogo.ptp $(OUT)/sst21.iml: $(OUT)/output.tape
 	$(RM) -rf $(OUT)/tmp
 	$(MKDIR) -p $(OUT)/tmp
 	$(ITSTAR) -xf $< -C $(OUT)/tmp
 	$(CP) $(OUT)/tmp/gt40/bootvt.bin $(OUT)/bootvt.bin
 	-$(CP) $(OUT)/tmp/aplogo/logo.ptp $(OUT)/aplogo.ptp
+	$(CP) $(OUT)/tmp/imlac/sst21.iml $(OUT)/sst21.iml
 	$(RM) -rf $(OUT)/tmp
 
 tools/dasm/palx: tools/dasm/palx.c
diff --git a/build/misc.tcl b/build/misc.tcl
index 200daf75..0ab16942 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1127,6 +1127,10 @@ expect ":KILL"
 # SST
 respond "*" ":midas imlac;_sst21\r"
 expect ":KILL"
+respond "*" ":imtran\r"
+respond "@" "imlac; sst21 iml_imlac; sst21 bin\r"
+respond "@" "\032"
+type ":kill\r"
 
 # Maze War
 respond "*" ":midas /t sysbin;_imsrc; maze\r"