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.

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