From b7fe5b0dd71814302391037867f22834cc30749a Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 1 Oct 2018 08:15:38 +0200
Subject: [PATCH] Created source for defanged JEDGAR.

From disassembly of SYS2; TS JEDGAR, dated 1976-09-29.
---
 bin/sys2/ts.jedgar  | Bin 181 -> 0 bytes
 build/misc.tcl      |   4 ++++
 src/sysen3/jedgar.1 |  24 ++++++++++++++++++++++++
 3 files changed, 28 insertions(+)
 delete mode 100644 bin/sys2/ts.jedgar
 create mode 100644 src/sysen3/jedgar.1

diff --git a/bin/sys2/ts.jedgar b/bin/sys2/ts.jedgar
deleted file mode 100644
index 164d80f9851cad39dd9e12972c47412133b38ed7..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 181
zcmeyGz`(%xzAk`4fkTObL5(AWfq~&8Cj)~on5Ce>z`*-ah=GCmBO?Pt@JEIQ23C-S
zmVy!kqr*pm1_tJ@Km$BKFfjXCeqiADwRFr?@KngjOis-!PEAoL$ydnE%*nA=P*7-(
zU{JRT2=aG!b>U+8#9($nRvT!QLc0UdaGhMSbPyxRBSeqk15lVT$RmLlNCR1-VfKL$
OAeO@St%1_MU`+sl_9!3#

diff --git a/build/misc.tcl b/build/misc.tcl
index aee62e38..5bd6688a 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -269,6 +269,10 @@ expect ":KILL"
 respond "*" ":midas sys1;ts timoon_syseng;timoon\r"
 expect ":KILL"
 
+# jedgar
+respond "*" ":midas sys2; ts jedgar_sysen3; jedgar\r"
+expect ":KILL"
+
 # ports
 respond "*" ":midas sys2;ts ports_sysen2;ports\r"
 expect ":KILL"
diff --git a/src/sysen3/jedgar.1 b/src/sysen3/jedgar.1
new file mode 100644
index 00000000..9bdd5a46
--- /dev/null
+++ b/src/sysen3/jedgar.1
@@ -0,0 +1,24 @@
+TITLE FAKE JEDGAR
+
+;This is not the original source code.  It's created from disassembly
+;of the file SYS2; TS JEDGAR, dated 1976-09-29.  The assembled binary
+;is identical.
+
+CHI=1
+CHO=2
+
+START:	.OPEN CHI,['TTY]
+	 .VALUE
+	.OPEN CHO,['#TTY]
+	 .VALUE
+	MOVEI 4,20.
+	.SLEEP 4,
+	.IOT CHO,[-5,,[ascii /Am I licensed to kill?   /]]
+	.IOT CHI,5
+	.VALUE [ASCIZ /:PROCED
+/]
+	MOVEI 1,600
+	.SLEEP 1,
+	JRST .-2
+
+END START