From 6a6a2ae390424a6676f24224b68a2cfd3d43c282 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Victor?= Date: Tue, 22 Jun 2021 14:22:56 +0200 Subject: [PATCH] Default to a new century in PDTIM Boldly moving into the 21st century --- src/sysen1/{pdset.115 => pdset.116} | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) rename src/sysen1/{pdset.115 => pdset.116} (99%) diff --git a/src/sysen1/pdset.115 b/src/sysen1/pdset.116 similarity index 99% rename from src/sysen1/pdset.115 rename to src/sysen1/pdset.116 index f8864377..cb6a7b13 100755 --- a/src/sysen1/pdset.115 +++ b/src/sysen1/pdset.116 @@ -448,12 +448,12 @@ SBKUP: .RDTIME A, ;SEE HOW LONG IT'S BEEN SINCE . TYPED CMD "C,CENSET,SET CENTURY (precede by NN, for example 20C) CENSET: PUSHJ P,ARGET ;GET CENTURY (-1) - MOVEI A,19. ;NO ARG, RESET TO DEFAULT + MOVEI A,20. ;NO ARG, RESET TO DEFAULT IMULI A,100. ;CONVERT TO YEAR MOVEM A,CENTURY ;SET CENTURY POPJ P, -CENTURY: 1900. ;CENTURY (FOR FIRST TWO DIGITS OF YEAR) +CENTURY: 2000. ;CENTURY (FOR FIRST TWO DIGITS OF YEAR) CMD "A,AM CMD "P,PM