From 3c33d988d2d67264e874ddf0f25c294e03a06f93 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 13 Oct 2018 06:14:06 +0000
Subject: [PATCH] UPTIME - record ITS uptimes.

Source reconstructed from binary file BAWDEN; UPTIME BIN dated 1986-06-22.

This program is called hourly.  It updates the file BAWDEN; UPTIME
DATA.  Each entry is three words.  The first is the host name.  The
program tries to read the M.F.D. for that host through MLDEV.  If it
responds, the current date and time are written to the next two words.
---
 Makefile                 |   2 +-
 bin/bawden/uptime.data   | Bin 0 -> 5120 bytes
 build/misc.tcl           |   3 ++
 doc/programs.md          |   1 +
 src/bawden/uptime.1      |  65 +++++++++++++++++++++++++++++++++++++++
 src/dragon/hourly.uptime |   1 +
 6 files changed, 71 insertions(+), 1 deletion(-)
 create mode 100755 bin/bawden/uptime.data
 create mode 100644 src/bawden/uptime.1
 create mode 120000 src/dragon/hourly.uptime

diff --git a/Makefile b/Makefile
index d6837d66..42ecc23c 100644
--- a/Makefile
+++ b/Makefile
@@ -34,7 +34,7 @@ DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       aplogo _klfe_ pdp11 chsncp cbf rug bawden llogo
 BIN = sys2 emacs _teco_ lisp liblsp alan inquir sail comlap c decsys \
       graphs draw datdrw fonts fonts1 fonts2 games macsym maint imlac \
-      _www_ hqm gt40 llogo
+      _www_ hqm gt40 llogo bawden
 MINSRC = midas system $(DDT) $(SALV) $(KSFEDR) $(DUMP)
 
 # These are not included on the tape.
diff --git a/bin/bawden/uptime.data b/bin/bawden/uptime.data
new file mode 100755
index 0000000000000000000000000000000000000000..1d594f5313f441b44b71b69fda959c387c5578bb
GIT binary patch
literal 5120
zcmazxU|?V{a%2+GQizpe)sE(Ya9upU1Uk0dj7|V@4HB6}w7*RDO%ZoiL6sE%a=%Hq
zicI|y5!ez5<cxyR5Eu=C(GVC7fzc2c4S~@R7!85Z5Eu=C(GVC7fzc2c4S~@R7!85Z
L5Eu=C!4v`j*!~k*

literal 0
HcmV?d00001

diff --git a/build/misc.tcl b/build/misc.tcl
index 37679347..64fc898b 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -95,6 +95,9 @@ expect ":KILL"
 respond "*" ":midas sys1;ts dir_bawden;dir^k\r"
 expect ":KILL"
 
+respond "*" ":midas bawden;_uptime\r"
+expect ":KILL"
+
 respond "*" ":midas sysbin;_sysnet;echo\r"
 expect ":KILL"
 respond "*" ":link device; chaos echo, sysbin; echo bin\r"
diff --git a/doc/programs.md b/doc/programs.md
index ecca9117..561fc871 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -274,6 +274,7 @@
 - UNTALK, split-screen comm-link program.
 - UP/DOWN, check if host is online.
 - UPTIME, Chaosnet uptime server.
+- UPTIME, record ITS uptimes.
 - URUG, GT40 debugger.
 - USQ/TYPESQ, unsqueeze/uncram or type a file.
 - VERSA/SPOOLR, Versatec/Gould printer spooler.
diff --git a/src/bawden/uptime.1 b/src/bawden/uptime.1
new file mode 100644
index 00000000..bba8d181
--- /dev/null
+++ b/src/bawden/uptime.1
@@ -0,0 +1,65 @@
+;Reconstructed from disassembly of BAWDEN; UPTIME BIN dated 1986-06-22.
+
+a=1
+time=2
+date=3
+
+chdski=10
+chmfdi=11
+
+upname==0
+update==1
+uptime==2
+uplen==3
+
+dbpage==1
+dbaddr=dbpage_10.
+
+quit=.logout 1,
+slose=.lose %lssys
+flose=.lose %lsfil
+
+go:	.call [ setz
+		sixbit /open/
+		[.bii,,chdski]
+		dbdev
+		dbfn1
+		dbfn2
+		setz dbdir ]
+	 flose
+	.call [ setz
+		sixbit /corblk/
+		movei %cbndw
+		movei %jself
+		movei dbpage
+		601000,,chdski ]
+	 slose
+	.call [ setz
+		sixbit /dskupd/
+		601000,,chdski ]
+	 slose
+	.close chdski,
+	.rdatim time,
+	movei a,dbaddr
+loop:	skipn upname(a)
+	 quit
+	.call [ setz
+		sixbit /open/
+		[.bii,,chmfdi]
+		upname(a)
+		[sixbit /m.f.d./]
+		setz [sixbit /(file)/] ]
+	 jrst next
+	movem time,uptime(a)
+	movem date,update(a)
+next:	addi a,uplen
+	jrst loop
+
+dbdev:	sixbit /dsk/
+dbdir:	sixbit /bawden/
+dbfn1:	sixbit /uptime/
+dbfn2:	sixbit /data/
+
+cnstnt:	constants
+
+end
diff --git a/src/dragon/hourly.uptime b/src/dragon/hourly.uptime
new file mode 120000
index 00000000..d2cd2ffa
--- /dev/null
+++ b/src/dragon/hourly.uptime
@@ -0,0 +1 @@
+bawden/uptime.bin
\ No newline at end of file