Added BABYL and BABYLM libraries for emacs. BABYL provides mail

reading/sending facilities. BABYLM provides mail sending.
BABYL is a much improved library over RMAIL.

build/emacs.tcl

@@ -10,6 +10,7 @@ respond "*" ":kill\r"
 respond "*" ":link sys;ts teco,.teco.;tecpur >\r"
 
 respond "*" ":link sys2;ts emacs,emacs;ts >\r"
+respond "*" ":link sys2;ts ne,emacs;ts >\r"
 respond "*" ":emacs\r"
 respond "EMACS Editor" "\033xrun\033einit\033? Generate\r"
 expect -timeout 1000 -exact { -> DSK: EMACS; [PURE]}
@@ -38,6 +39,7 @@ respond "\n" "\033xgenerate\033emacs;ivory\033emacs1;ivory\r"
 respond ":EJ" "\033xgenerate\033emacs;pl1\033emacs1;pl1\r"
 respond ":EJ" "\033xgenerate\033emacs;wordab\033emacs1;wordab\r"
 respond ":EJ" "\033xgenerate\033emacs;tmacs\033emacs1;tmacs\033tmucs\r"
+respond ":EJ" "\033xgenerate\033emacs;babyl\033emacs1;babyl\033babylm\r"
 respond ":EJ" "\030\003"
 respond "*" ":kill\r"
 
@@ -89,6 +91,10 @@ respond "*" ":kill\r"
 
 respond "*" ":rename emacs;\[rmai\] \021:ej, emacs;\[rmai\] 147\r"
 
+# make TS BABYL
+respond "*" ":midas sys3;ts babyl_kmp;babyl\r"
+expect ":KILL"
+
 # INFO
 # For some unknown reason, we can't use a printing terminal when
 # generating a new TSINFO.  Temporarily switch to AAA.

doc/programs.md

@@ -29,6 +29,8 @@
 - ATSIGN TARAKA, starts dragons.
 - ATSIGN TCP, TCP support.
 - BABEL, Chaosnet server.
+- BABYL, mail reading/sending program for EMACS.
+- BABYLM, mail sending program for EMACS.
 - BALANC/MOVDIR, balances directories.
 - BDAY, happy birthday demon.
 - BINPRT, display information about a binary executable file.

src/kmp/babyl.19

@@ -0,0 +1,52 @@
+title Babyl -- Standalone Babyl Job
+
+a=:1
+b=:2
+c=:3
+d=:4
+j=:5
+o=:6
+ch=:7
+p=:17
+
+jclbuf: block 20  ; Give us 16. x 5 = 80. chars of JCL space
+        -1        ; Tell DDT this is end of buffer
+
+njcl1:	asciz \=1l sys2;ts neî:jcl 1,m(m.mRun Library)Babyl\
+njcl2:	asciz \w 164000.fsexitî0g:vp \
+
+outbuf: block 40  ; Output buffer space
+
+babyl:	.break 12,[..RJCL,,JCLBUF]	; Read JCL
+	move o,[440700,,OUTBUF]		; Byte-pointer to output buffer in O
+
+initj:	move j,[440700,,NJCL1]		; Byte-pointer to initial JCL in J
+initj1: ildb ch,j			; Get char into CH from J
+	cain ch,^@			; If null char,
+         jrst getj			;  Go to phase 2 of jcl setup
+	idpb ch,o			; Put char into output area
+	jrst initj1			; Loop
+
+getj:	move j,[440700,,JCLBUF]		; Byte-pointer to JCL in J
+getj1:	ildb ch,j			; Load char from JCLBUF into CH
+	caie ch,^M			; Exit if carriage return
+	 cain ch,^@			;  or null character is seen
+	  jrst termj			;  then go to next phase
+	idpb ch,o			; Write to output buffer
+	jrst getj1			; Loop
+
+termj:	move j,[440700,,NJCL2]		; Byte-pointer to terminating JCL in J
+termj1:	ildb ch,j			; Get char into CH from J
+	cain ch,^@			; If null char,
+	 jrst endj			;  Go set jcl
+	idpb ch,o			; Put char into output area
+	jrst termj1			; Loop
+
+endj:   movei ch,^@			; Put a null in to end ASCIZ
+	idpb ch,o			; Deposit it
+
+reload:	.value outbuf			; Return string to DDT
+	.logout 1,			; Die if we ever get to here!
+
+end babyl
+