From 07b9e0f53938255165bcf03ab22f677262b5d768 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 24 Aug 2018 16:17:22 +0200
Subject: [PATCH] Fix bug in programs when system time not set.

- DATE
- DATSRV
- TIME
---
 src/sysen2/{time.27 => time.28}   | 5 +++++
 src/sysen3/{date.2 => date.3}     | 7 ++++++-
 src/sysnet/{datsrv.3 => datsrv.4} | 6 +++++-
 3 files changed, 16 insertions(+), 2 deletions(-)
 rename src/sysen2/{time.27 => time.28} (99%)
 rename src/sysen3/{date.2 => date.3} (95%)
 rename src/sysnet/{datsrv.3 => datsrv.4} (95%)

diff --git a/src/sysen2/time.27 b/src/sysen2/time.28
similarity index 99%
rename from src/sysen2/time.27
rename to src/sysen2/time.28
index ab46a502..0b1f0dde 100644
--- a/src/sysen2/time.27
+++ b/src/sysen2/time.28
@@ -74,6 +74,11 @@ START:	MOVE	P,[-40,,PDL]
 
 ; gather ye rosebuds
 GATHER:	.RDATI	RTIME,
+	CAMN	RTIME,[-1]
+	 .VALUE	[ASCIZ /:
+System time not set.  Run PDSET.
+
+:KILL
/]
 	.RLPDT	PDTIM,	; also RYEAR into RYEAR
 	TLNE	RYEAR,400000	; if not leap year, after 2/28, back up a day
 	 SUBI	PDTIM,SPD
diff --git a/src/sysen3/date.2 b/src/sysen3/date.3
similarity index 95%
rename from src/sysen3/date.2
rename to src/sysen3/date.3
index 744ae8cf..6b18df3f 100644
--- a/src/sysen3/date.2
+++ b/src/sysen3/date.3
@@ -40,6 +40,11 @@ GO:	.OPEN TTY,.+1
 	 1,,'TTY
 	PTTY [SIXBIT /   @/]
 	.RDATE T,
+	CAMN T,[-1]
+	 .VALUE [ASCIZ /:
+System time not set.  Run PDSET.
+
+:KILL
/]
 	LDB A,[360400,,T]		; First digit of year
 	IMULI A,10.
 	LDB B,[300400,,T]		; Second digit of year
@@ -134,4 +139,4 @@ CONSTANTS
 
 ASAV:	0
 
-END GO
\ No newline at end of file
+END GO
diff --git a/src/sysnet/datsrv.3 b/src/sysnet/datsrv.4
similarity index 95%
rename from src/sysnet/datsrv.3
rename to src/sysnet/datsrv.4
index 3fe2292d..6c5f305a 100644
--- a/src/sysnet/datsrv.3
+++ b/src/sysnet/datsrv.4
@@ -69,6 +69,10 @@ RETRY:	MOVEI A,10.
 	CAIG B,
 	 JSR AUTPSY		; Timed out...
 SERVE:	.RDATE DATE,
+	CAMN DATE,[-1]
+	 JRST [	SEND [SIXBIT /TIME @/]
+		SEND [SIXBIT /UNSET@/]
+		JRST CRLF ]
 	LDB A,[360400,,DATE]	; First digit of year
 	IMULI A,10.
 	LDB B,[300400,,DATE]	; Second digit of year
@@ -111,7 +115,7 @@ CAL2:	ADDI A,5		; Century starts on a Saturday
 	AND B,DATE
 	TLO B,'@
 	SEND B
-	.IOT NETO,[15]		; CR
+CRLF:	.IOT NETO,[15]		; CR
 	.IOT NETO,[12]		; LF
 	.NETS NETO,		; Force the output.
 	.CLOSE NETO,		; Disconnect.