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

@@ -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.

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"

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.

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

src/dragon/hourly.uptime

@@ -0,0 +1 @@
+bawden/uptime.bin