WHOSEN - print author of last send.

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

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"

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