From b48f89c185d60a3381646b6d354164f93e2a6053 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 9 Mar 2019 17:45:26 +0100
Subject: [PATCH] Assemble TECO 335.

---
 build/misc.tcl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/build/misc.tcl b/build/misc.tcl
index cc196415..3a4f97c9 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -13,6 +13,16 @@ respond "*" "purify\033g"
 respond "TS MIDAS" "midas;ts 324\r"
 respond "*" ":kill\r"
 
+# TECO6
+respond "*" ":midas sysbin;teco 335bin_.teco.; teco 335\r"
+expect ":KILL"
+respond "*" ":job teco\r"
+respond "*" ":load sysbin; teco 335bin\r"
+respond "*" "purify\033g"
+respond "PURIFIED" "\r"
+respond "*" ":pdump .teco.; ts 335\r"
+respond "*" ":kill\r"
+
 respond "*" ":link teach;teach emacs,emacs;teach emacs\r"
 type ":vk\r"
 respond "*" "teach\033\023"