From dd61d3e737bfe28525616f4c5dcea4ee778452e4 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 12 Jun 2019 09:47:56 +0200
Subject: [PATCH] Fix Y2K bug in KLH; OUT.

U4 is the next accumulator after U3.  I don't know whether U4 need
saving or not, so better do it just in case.
---
 src/klh/{out.250 => out.251} | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)
 rename src/klh/{out.250 => out.251} (99%)

diff --git a/src/klh/out.250 b/src/klh/out.251
similarity index 99%
rename from src/klh/out.250
rename to src/klh/out.251
index 8128f506..0b476e74 100755
--- a/src/klh/out.250
+++ b/src/klh/out.251
@@ -2360,12 +2360,18 @@ OXTMD:	MOVE U3,TM.MON(UTMAC)
 	CALL OXTD2
 	STDOUT("/)
 OXTYR2:	MOVE U3,TM.YR(UTMAC)	; Year as 2-digit number.
-	SUBI U3,1900.
+	PUSH P,U4
+	IDIVI U3,100.
+	MOVE U3,U4
+	POP P,U4
 	CALRET OXTD2
 	
 	; Date as YYMMDD
 OXTYMD:	MOVE U3,TM.YR(UTMAC)	; Year as 2-digit number.
-	SUBI U3,1900.
+	PUSH P,U4
+	IDIVI U3,100.
+	MOVE U3,U4
+	POP P,U4
 	CALL OXTD2
 	MOVE U3,TM.MON(UTMAC)	; Month.
 	CALL OXTD2
@@ -2426,7 +2432,10 @@ OXTRF1:	CALL OXTDAY
 	CALL OXTMON		; Output 3-letter month
 	STDOUT(40)		; Space out
 	MOVE U3,TM.YR(UTMAC)	; Year as 2-digit number.
-	SUBI U3,1900.
+	PUSH P,U4
+	IDIVI U3,100.
+	MOVE U3,U4
+	POP P,U4
 	CALL OXTD2
 	STDOUT(40)
 	MOVE U3,TM.HR(UTMAC)