From 508f8970b370304c7bd0a540d9324e3e72caaf3d Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 10 Jan 2017 21:44:01 +0100
Subject: [PATCH] Some Y2K fixes.

---
 src/sysen1/{gmsgs.92 => gmsgs.93}   | 4 +++-
 src/sysen2/{dired.187 => dired.188} | 2 ++
 src/sysen2/{find.199 => find.200}   | 2 ++
 src/sysen2/{init.230 => init.231}   | 2 +-
 src/syseng/{datime.73 => datime.74} | 2 ++
 src/syseng/{dump.443 => dump.444}   | 1 +
 src/system/{its.1647 => its.1648}   | 1 +
 7 files changed, 12 insertions(+), 2 deletions(-)
 rename src/sysen1/{gmsgs.92 => gmsgs.93} (99%)
 rename src/sysen2/{dired.187 => dired.188} (99%)
 rename src/sysen2/{find.199 => find.200} (99%)
 rename src/sysen2/{init.230 => init.231} (99%)
 rename src/syseng/{datime.73 => datime.74} (99%)
 rename src/syseng/{dump.443 => dump.444} (99%)
 rename src/system/{its.1647 => its.1648} (99%)

diff --git a/src/sysen1/gmsgs.92 b/src/sysen1/gmsgs.93
similarity index 99%
rename from src/sysen1/gmsgs.92
rename to src/sysen1/gmsgs.93
index defb7fc6..d00a5b2b 100755
--- a/src/sysen1/gmsgs.92
+++ b/src/sysen1/gmsgs.93
@@ -966,7 +966,9 @@ ASZTY1:	ILDB C,D
 	IDPB C,B
 	JRST ASZTY1
 
-2DTYP:	IDIVI D,10.
+2DTYP:	IDIV D,100.
+	MOVE D,E
+	IDIVI D,10.
 	ADDI D,"0
 	ADDI E,"0
 	IDPB D,B
diff --git a/src/sysen2/dired.187 b/src/sysen2/dired.188
similarity index 99%
rename from src/sysen2/dired.187
rename to src/sysen2/dired.188
index 565b53e4..09d1c343 100644
--- a/src/sysen2/dired.187
+++ b/src/sysen2/dired.188
@@ -4094,6 +4094,7 @@ DATPRT:	OASCI	"
 	ODEC	K
 	OASCI	"/
 	LDB	K,[330700,,(M)UNDATE]
+	ADDI	K,1900.
 	ODEC	K
 	OASCI	" 
 	HRRZ	B,(M)UNDATE
@@ -4128,6 +4129,7 @@ PRTREF:	OASC	[ASCIZ / (/]
 	ODEC	K
 	OASCI	"/
 	LDB	K,[330700,,(M)4]
+	ADDI	K,1900.
 	ODEC	K
 	OASCI	")
 ; print creator if not sname
diff --git a/src/sysen2/find.199 b/src/sysen2/find.200
similarity index 99%
rename from src/sysen2/find.199
rename to src/sysen2/find.200
index fdc6b0f2..f504874a 100755
--- a/src/sysen2/find.199
+++ b/src/sysen2/find.200
@@ -2490,6 +2490,7 @@ DATPRT:	MOVE	H,HPOS		; save current hpos
 	ODEC	K
 	OASCI	"/
 	LDB	K,[330700,,(M)UNDATE]
+	ADDI	K,1900.
 	ODEC	K
 	OASCI	" 
 	HRRZ	B,(M)UNDATE
@@ -2527,6 +2528,7 @@ REFPRT:	LDB	K,[222000,,UNREF(M)]
 	ODEC	K
 	OASCI	"/
 	LDB	K,[330700,,UNREF(M)]
+	ADDI	K,1900.
 	ODEC	K
 	OASCI	")
 
diff --git a/src/sysen2/init.230 b/src/sysen2/init.231
similarity index 99%
rename from src/sysen2/init.230
rename to src/sysen2/init.231
index 2097f177..31c09dfb 100644
--- a/src/sysen2/init.230
+++ b/src/sysen2/init.231
@@ -1627,8 +1627,8 @@ PRDATE:	LDB	B,[270400,,A]
 	LDB	B,[220500,,A]
 	ODEC	B			; DATE
 	OASCI	",
-	ODEC	[19.]
 	LDB	B,[330700,,A]
+	ADDI	B.1900.
 	ODEC	B			; YEAR
 	OASC	[ASCIZ / at /]
 	HRRZ	A,A
diff --git a/src/syseng/datime.73 b/src/syseng/datime.74
similarity index 99%
rename from src/syseng/datime.73
rename to src/syseng/datime.74
index e443c421..91c6ed42 100755
--- a/src/syseng/datime.73
+++ b/src/syseng/datime.74
@@ -98,6 +98,8 @@ DATASC:	PUSH P,B
 			TM$YR,,A ] ]
 TMDT2:	 IDPB B,D
 	LDB B,(E)		; Get numerical value into B.
+	IDIVI B,100.
+	MOVE B,C
 	IDIVI B,10.		; Divide into 2 digits.
 	MOVEI B,"0(B)
 	IDPB B,D		; Output first,
diff --git a/src/syseng/dump.443 b/src/syseng/dump.444
similarity index 99%
rename from src/syseng/dump.443
rename to src/syseng/dump.444
index ac36325f..4323e7b4 100644
--- a/src/syseng/dump.443
+++ b/src/syseng/dump.444
@@ -5174,6 +5174,7 @@ PFDATE:	MOVE A,DAYTIM		;PRINTS CONTENTS OF DAYTIM AS FILE CREATION DATE AND TIME
 	PUSHJ P,DPT		;PRINT DAY
 	PASC [ASCIZ \/\]
 	LDB A,[330700,,DAYTIM]
+	ADDI A,1900.
 	PUSHJ P,DPT
 	HRRZ A,DAYTIM	; TIME
 	PASC [ASCIZ / /]
diff --git a/src/system/its.1647 b/src/system/its.1648
similarity index 99%
rename from src/system/its.1647
rename to src/system/its.1648
index a5db6282..846fd131 100644
--- a/src/system/its.1647
+++ b/src/system/its.1648
@@ -18711,6 +18711,7 @@ UQL5A:	JSP B,GDPT	;TYPE OUT # BLOCKS
 	MOVEI I,"/
 	PUSHJ P,OUTC
 	LDB TT,[UNYRB+@DIRPT(A)]
+	ADDI TT,1900.
 	JSP B,GDPT	;TYPE YEAR
 	PUSHJ P,OUTCS
 	HRRZ TT,@DIRPT(A)