From 3a3b2ace50d98aaed4c3dc2b694b002bccf2a4db Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 1 Nov 2016 10:56:58 +0100
Subject: [PATCH] Build TECO.

---
 Makefile        |  2 +-
 README.md       |  1 +
 build/build.tcl | 11 +++++++++++
 3 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 541ab2a3..033f3881 100644
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-SRC = system syseng sysen1 sysnet midas
+SRC = system syseng sysen1 sysnet midas _teco_
 MINSYS = _ sys sys3
 RAM = bin/boot/ram.262
 NSALV = bin/boot/salv.rp06
diff --git a/README.md b/README.md
index 7c68368a..bb616fb7 100644
--- a/README.md
+++ b/README.md
@@ -32,6 +32,7 @@ from scratch.
    - MIDAS, the assembler.
    - DDT, debugger and HACTRN user login shell.
    - The ITS monitor (kernel).
+   - TECO, editor.
    - DUMP, tape backup and restore.
 
 4. Finally, the whole file system is dumped to tape.
diff --git a/build/build.tcl b/build/build.tcl
index 56d328b9..3319f4ac 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -107,6 +107,17 @@ respond "*" ":midas system;_its\r"
 respond "MACHINE NAME =" "AI\r"
 expect ":KILL"
 
+respond "*" ":midas sysbin;_.teco.;teco\r"
+expect ":KILL"
+respond "*" ":job teco\r"
+respond "*" ":load sysbin;teco bin\r"
+sleep 2
+respond "*" "dumpit\033g"
+sleep 2
+respond "TECPUR" "\r"
+respond "*" ":kill\r"
+respond "*" ":link sys3;ts teco,.teco.;tecpur >\r"
+
 respond "*" ":midas sysbin;_syseng;dump\r"
 respond "WHICH MACHINE?" "DB\r"
 expect ":KILL"