From 416a55a1434b5b00d0220724e4d1a8523f7e2b68 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 3 May 2019 07:48:22 +0200
Subject: [PATCH] Y2K fix for DECUUO's TIME emulation.

Use RQDATE instead of .RDATE to get the full year.  The previous
version was presumably written in 1972, breaking 28 years later in
2000.  The updated version will stop working in 2052 due to TOPS-10
limiting the returned value to 15 bits.
---
 src/decsys/{decuuo.312 => decuuo.313} | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)
 rename src/decsys/{decuuo.312 => decuuo.313} (99%)

diff --git a/src/decsys/decuuo.312 b/src/decsys/decuuo.313
similarity index 99%
rename from src/decsys/decuuo.312
rename to src/decsys/decuuo.313
index 646a929b..fa5ef9f9 100755
--- a/src/decsys/decuuo.312
+++ b/src/decsys/decuuo.313
@@ -5229,19 +5229,19 @@ THSJO1:	.SUSET [.RUIND,,C]
 	JRST (B)
 
 XDATE:	MOVEI A,0
-	.RDATE B,
+	SYSCAL RQDATE,[2000,,B]
+	 JRST UPUTAC
 	CAMN B,[-1]
 	 JRST UPUTAC	;DATE NOT AVAILABLE
-	MOVE C,[440600,,B]
-	PUSHJ P,POOF	;YEAR
-	SUBI D,64.	;THIS PROGRAM WILL NOT WORK IN 28 YEARS
+	LDB D,[331100,,B] ;YEAR
+	SUBI D,64.	;THIS PROGRAM WILL NOT WORK IN 33 YEARS
 	MOVE A,D
 	IMULI A,12.
-	PUSHJ P,POOF	;MONTH
+	LDB D,[270400,,B] ;MONTH
 	SUBI D,1
 	ADD A,D
 	IMULI A,31.
-	PUSHJ P,POOF	;DAY
+	LDB D,[220500,,B] ;DAY
 	SUBI D,1
 	ADD A,D
 XDATE1:	PUSHJ P,UPUTAC