From f792e535a558aa7d093a3f9d188eaa64804d85d7 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Fri, 22 Jan 2021 08:08:46 +0100 Subject: [PATCH] SURSND - Arpanet survey sender demon. Send survey data to the Datacomputer. --- Makefile | 2 +- bin/survey/atsign.sursnd | Bin 0 -> 4748 bytes build/dm.tcl | 4 ++++ build/timestamps.txt | 1 + doc/programs.md | 1 + 5 files changed, 7 insertions(+), 1 deletion(-) create mode 100644 bin/survey/atsign.sursnd diff --git a/Makefile b/Makefile index 0271c153..33b5d1f4 100644 --- a/Makefile +++ b/Makefile @@ -40,7 +40,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \ BIN = sys sys1 sys2 emacs _teco_ lisp liblsp alan inquir sail comlap \ c decsys graphs draw datdrw fonts fonts1 fonts2 games macsym \ maint _www_ gt40 llogo bawden sysbin -pics- lmman r shrdlu imlac \ - pdp10 madman + pdp10 madman survey MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP) # These are not included on the tape. diff --git a/bin/survey/atsign.sursnd b/bin/survey/atsign.sursnd new file mode 100644 index 0000000000000000000000000000000000000000..3328b6ab58063159c1c5a8d450e4832e7e5638d0 GIT binary patch literal 4748 zcmb7HX>3&26~1rgz5B+F0ecp&*gOx$*coSRGX{*8c#J)G8!vb~V8>vO@iN$WU%&x} zOq8H3Qk$iUBDG1C{>YE0qE(yH1VxCV$N?0gB#k1P{)wst(H1p$1}|Vk-SgdX8A#Jg zogdfV{mydFJ@?#mpT~`ivGGL468~8lVA5lSjKz!-Ct*;*>9u4+nCiBdtZ~YHJ^i?G zlriY33+u@N^kjST8W*+D$(RC8nP1OX3iKYav9&c~#?wd{T+)5+I~((b{iTQqFsyex zv9@mN;@fMXZLk^0%>wC4H&4dO9nmzSpA=uck;zVh|F2=?oiAp7ImfvBMteg^1EY;H zcKhc0k55EfTNq7|$8_s17Ei`AC5zxK0tLoCgGQM;Y%}{u3o|sfh+U4&G@XW4%pdj2V1Po~B&$)6nx7 z$bpHx$cKPZ7C#8^3kEBbCxr^uI25GSD(o5LYOj^-gHeQp6nl`CvjWT%j0&uA3ojGO zd7K1V2GivP^Jp5Mpq;Fx_>@ONe+}^2MdB2SN-^itlCnVHq6Eq#PDk#QE%OGl#p3#< zvrMt%bdb}9H;9AO7Ma2O=8K@xgqO?id<+v_zI!&MS_mCzc82q|_Q7P>_F+kw4_4Z>d{{7n?G zX~yoy{J=p8?!RPGIg1KY#P*{GsI?f@k>^D!(Je^C;dv>*uZR9ZedBK3x81pjua}}= zlCMwop<64LS6-yO-9OdY{7O0t2(Ah}9Q@=0`HLL5fa3RrIrc$S6--#*_1%j*% z7&uuxP;k%-(#xTW^PNZcaZrQmA}{1QhRNU9Skl%bh!0ImxqcuM0!pGjXeKkE98Sc> z04Zy~GzyeOoRDs-WV{cFI8L$1K2c5IQ)#8+(dOfrd|@y{74^cT z6-t<7_0f=*!DJ>J+|`y|2~vDq59N;{Yef8!9#_SZ*g_Cny%0Ioh*NtH#j=ftuJDd1 z(NaVYcXcW(pnG{kAaoi%8nO;Zp+e^gnt}1737L!!CeWGdD!qmEs6TF894BQz6}4{h zw*kJ{K}GGPfcQTOsu_<(^HtDQbU^z1?s4<@O=Pl@4pfRquFeHS{{R;hV9n8?(Wl@|j1lz3aItax>#YjXXOs4T=+M()+P#Y?nv zsJO*yRNbms^iOQ{ShT&O-0jvHTrIoZby{Cn|6p&A*3~!JJFdB!n;V<8{$VZrwWLjs zXq6SwNJDf>O}(qp+w#8^qq_%3CLZ>-^y%lHP~{c!h9C4xu6Iy3?KW(n&Pm5cuMr(q ztW9COiAqb&rovNgB6w^gKJr3|TaM>e4aNm%FkvubKqm{N|A13O3zAv3DS3(QmW|b6=l*b zw6Qs+*6(t%QF+W>vn@Z*UYsucO3cafc<(BHPBzW^+>KQ=4O)Foi@mbmV-J6xYQ-93 z^aafQLEXYH+7aKt(&}9})wyrfQ2nxl#`QJ(itv&Ay~;yqPa~iStY?{H$!lMt^e+Kp zcQ});wY9eHZC!Yt$ro>3q+za#hC3<^WjCjpMBzH}ozf_MiAvMFox;GQQ?_~!HDeLq z<{mh1%j0uGIWKY**mp0fn?4RoL_iBAqI~pDN_yPDi> zMbS)j3b>ncLT%-pKiX`XMp>Ar?x>Izlc*bsL~RS-dpr})#ioFo4zpuOR5_`|B;Q%R zt8OL4zQd4A`Bg3U+Ff~h!*YyaE9uF{Z;txtxyl)e_Y1T<`+K%`W#~oaOJhuxh>=O2 z)?_>W4`5P@r;2U`kTGKhe}PK#!+Ls>9!!Cr-stTULZ)jzFjIj-2YSj-4XI)rP6=Bm zCf*d*)3+4X))Py%-jU6@!i!24se+Te?mX);*hZO;9}3%UXztL-6W}%(56sj}!dCO@ zJ%0KgA+&sS-OzSOpIzSn+{bSbkm8#QjVX}I%%b<$U?FQElD-V&1o{zK$mfh5QG4pa zbsEiW*_q(Z8=E>t=y9hf(A4SH3+{s1y0=jR*A;r`?WtG1ous-_rPaJpL{L!tDlC^bz_I#Av{l-jCCjI^Mt+?Loa1b zp8}e;?9Y|x8-i-V)S6U)vQ#9~CT}d#r&vP%zrS*Xq)HsP9pJWr8v)^cL>cHiIdjnj% zhd4L5+|XMix-Wt9%;QBqKTtj$-~f(SDFm8=#h7`#(BcGFV%cv$TmV!WI&*brE~HNr zSI`P{D)io=w{eup^CaDP1$xz?H-BD4Etn~bb(SrpV($n!KKm~Gd-|~1)2u8nb1jGH*TR=(yDLD#BbV7xcGM?CnE6A$}b*%uo;|<1ICs32IcgH~= ikjIkg*oB<()1e=4F$sTX$U^%y8Yb(O%4W(%NBb8}A*Uz+ literal 0 HcmV?d00001 diff --git a/build/dm.tcl b/build/dm.tcl index e382e1fe..6b8ebcee 100644 --- a/build/dm.tcl +++ b/build/dm.tcl @@ -33,3 +33,7 @@ respond "*" ":midas survey; atsign surgiv_surgiv\r" expect ":KILL" respond "*" ":link sys; atsign surgiv, survey;\r" type ":vk\r" + +# Survey sender demon. +respond "*" ":link sys; atsign sursnd, survey;\r" +type ":vk\r" diff --git a/build/timestamps.txt b/build/timestamps.txt index 16b84aaf..d51cd765 100644 --- a/build/timestamps.txt +++ b/build/timestamps.txt @@ -1730,6 +1730,7 @@ shrdlu/ts.twdemo 197110312144.38 sra/usefmt.9 198905011833.08 stan_k/3406.40 197411302122.54 _/@.stink 197306120431.21 +survey/atsign.sursnd 197610191929.05 survey/surgiv.mmb012 197606212141.59 survey/survey.msg207 197801272221.28 sys1/ts.speedy 197408060500.00 diff --git a/doc/programs.md b/doc/programs.md index 7bb4da9b..f75100f5 100644 --- a/doc/programs.md +++ b/doc/programs.md @@ -321,6 +321,7 @@ - SUPARD, draw ARDS graphics to SUPDUP. - SUPDUP, Supdup client. - SURGIV, survey giver demon. +- SURSND, Arpanet survey sender demon. - SURVEY, survey Arpanet hosts. - SWAR, Imlac Spacewar. - SYSCHK, check up on system job.