Added new program, UPTINI, to create .temp.;UPTIME DATA. A future

commit can run this program, create the file, and copy to bawden
directory rather than using a pre-built version.

Resolves #1471.

build/misc.tcl

@@ -1561,3 +1561,7 @@ expect ":KILL"
 # TBMOFF
 respond "*" ":midas sys; ts tbmoff_cstacy; tbmoff\r"
 expect ":KILL"
+
+# UPTINI
+respond "*" ":midas ejs;ts uptini_uptini\r"
+expect ":KILL"

doc/programs.md

@@ -311,6 +311,7 @@
 - UP/DOWN, check if host is online.
 - UPTIME, Chaosnet uptime server.
 - UPTIME, record ITS uptimes.
+- UPTINI, program to create new UPTIME DATA.
 - URUG, GT40 debugger.
 - USQ/TYPESQ, unsqueeze/uncram or type a file.
 - VERSA/SPOOLR, Versatec/Gould printer spooler.

src/ejs/uptini.1

@@ -0,0 +1,41 @@
+title UPTINI - Create UPTIME DATA
+
+chdsko=10
+
+flose=.lose %lsfil
+
+data:
+	IRP M,,[DB,NO,UP,ES,LC]
+        sixbit/M/		; sixbit host name
+	0			; sixbit date
+	0			; sixbit time
+	TERMIN
+	0	;; end of data
+dataln==.-data
+
+datptr: -dataln,,data
+
+go:	.call [ setz
+		sixbit /open/
+		[.bio,,chdsko]
+		dbdev
+		dbfn1
+		dbfn2
+		setz dbdir ]
+	 flose
+	.call [ setz
+		sixbit /iot/
+	        %climm,,chdsko
+		setz datptr ]
+	 flose
+	.close chdsko,
+	.logout 1,
+
+dbdev:	sixbit /dsk/
+dbdir:	sixbit /.temp./
+dbfn1:	sixbit /uptime/
+dbfn2:	sixbit /data/
+
+cnstnt:	constants
+
+end go