From e7bc91dd14fb4a6d7b9216382576ee27bce485bb Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 30 Sep 2020 13:35:34 +0200
Subject: [PATCH] Fix Y2K bug in DMARCD.

DMARCD is the source for DEVICE; OARCDV BIN which handles old format
archives.  The file listing used to display the year field as is, so
would go past 99 to 100.  Adding 1900 makes it display a four-digit
year instead.
---
 src/sysen2/{dmarcd.30 => dmarcd.31} | 1 +
 1 file changed, 1 insertion(+)
 rename src/sysen2/{dmarcd.30 => dmarcd.31} (99%)

diff --git a/src/sysen2/dmarcd.30 b/src/sysen2/dmarcd.31
similarity index 99%
rename from src/sysen2/dmarcd.30
rename to src/sysen2/dmarcd.31
index 44d170e3..e1a3ce05 100755
--- a/src/sysen2/dmarcd.30
+++ b/src/sysen2/dmarcd.31
@@ -1067,6 +1067,7 @@ LFFILE:	MOVE	A,[440700,,LFBFR]
 	MOVEI	A,"/
 	IDPB	A,LFBPTR
 	LDB	A,[330700,,UNDATE(C)]
+	ADDI	A,1900.
 	PUSHJ	P,LFDEC
 	MOVEI	A,40
 	IDPB	A,LFBPTR