From 4db412b32081be84c2df309b3a2124da135c49bb Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 24 Feb 2017 22:34:49 +0100
Subject: [PATCH] WHOSEN - print author of last send.

---
 README.md          |  1 +
 build/build.tcl    |  4 ++++
 src/syseng/wsent.1 | 45 +++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 50 insertions(+)
 create mode 100755 src/syseng/wsent.1

diff --git a/README.md b/README.md
index bd12b855..0aaddc22 100644
--- a/README.md
+++ b/README.md
@@ -251,6 +251,7 @@ A list of [known ITS machines](doc/machines.md).
    - WHAT, humorous quips to various "what" questions.
    - WHO%, list index/uname/jname/%time in sorted list.
    - WHOLIN, mode line for display terminals (with date/time/job/etc info).
+   - WHOSEN, print author of last send.
    - X, Y, Z, remember DDT command and re-execute it.
 
 6. A brand new host table is built from the host table source and
diff --git a/build/build.tcl b/build/build.tcl
index e24b0425..20638989 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -865,6 +865,10 @@ respond "*" ":link sys3;ts sned,sys;ts send\r"
 respond "*" ":midas sys3;ts psend_sysen2;b\r"
 expect ":KILL"
 
+# whosen
+respond "*" ":midas sys2;ts whosen_syseng;wsent\r"
+expect ":KILL"
+
 # more lisp packages
 respond "*" ":link lisp;tty fasl,liblsp;tty fasl\r"
 respond "*" "complr\013"
diff --git a/src/syseng/wsent.1 b/src/syseng/wsent.1
new file mode 100755
index 00000000..ad1f6a0f
--- /dev/null
+++ b/src/syseng/wsent.1
@@ -0,0 +1,45 @@
+; -*- Midas -*-
+
+	TITLE Print author of last send
+
+A=1		;General purpose AC's
+B=2
+D=5		;Used by TYPE
+E=6
+TYOC==4		;TTY output chnl
+
+DEFINE SYSCAL OP,ARGS
+	.CALL [SETZ ? SIXBIT /OP/ ? ARGS ((SETZ))]
+	TERMIN
+
+DEFINE TYPE &STRING
+	MOVEI D,<.LENGTH STRING>
+	MOVE E,[440700,,[ASCII STRING]]
+	SYSCAL SIOT,[%CLIMM,,TYOC ? E ? D]
+	  .LOSE %LSFIL
+	TERMIN
+
+
+START:	SYSCAL OPEN,[%CLBIT,,.UAO
+		     %CLIMM,,TYOC	;Open TTY for output
+		     [SIXBIT /TTY/]]
+	  .LOSE %LSFIL
+
+	.VALUE [ASCIZ \:DDTSYM CLIUNM/1/1QîP\]	;Get contents of
+							;CLIUNM -> AC A
+	JUMPN A,YUP		;Was there something in there?
+	TYPE "No sends"		;No.  Say so
+	JRST DONE		;and Quit
+
+YUP:	TYPE "Last send by "	;Yup, something there...
+
+6TYPE:	ROTC A,6	;Leftmost char in A into B
+	JUMPE B,DONE	;A 0?  Yes, so at end of 6bit, so quit
+	ADDI B,40	;Change to ASCII
+	.IOT TYOC,B	;Output it
+	SETZ B,		;Zap B so we don't keep old character
+	JRST 6TYPE	;and get next from A
+
+DONE:	.LOGOUT 1,	;Self-destruct
+	
+	END START
\ No newline at end of file