*Set Sys$Year would scramble the time. It would also fail to internationalise...

*Set Sys$Year would scramble the time. It would also fail to internationalise the error generated by *Set Year 20000.

Tested on a 32-bit system - changes grafted back on to 26-bit Kernel.

Version 5.08. Tagged as 'Kernel-5_08'

VersionASM

 ;
 ; This file is automatically maintained by srccommit, do not edit manually.
 ;
-			GBLS	Module_MajorVersion
-			GBLA    Module_Version
-			GBLS	Module_MinorVersion
-			GBLS	Module_Date
-			GBLS	Module_FullVersion
-Module_MajorVersion	SETS    "5.07"
-Module_Version          SETA    507
-Module_MinorVersion	SETS	""
-Module_Date		SETS    "02 Nov 1999"
-Module_FullVersion      SETS    "5.07"
+                        GBLS    Module_MajorVersion
+                        GBLA    Module_Version
+                        GBLS    Module_MinorVersion
+                        GBLS    Module_Date
+                        GBLS    Module_FullVersion
+Module_MajorVersion     SETS    "5.08"
+Module_Version          SETA    508
+Module_MinorVersion     SETS    ""
+Module_Date             SETS    "01 Dec 1999"
+Module_FullVersion      SETS    "5.08"
                         END

VersionNum

-/* (5.07)
+/* (5.08)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG     	5.07
-#define Module_MinorVersion_CMHG	
-#define Module_Date_CMHG      		02 Nov 1999
+#define Module_MajorVersion_CMHG        5.08
+#define Module_MinorVersion_CMHG        
+#define Module_Date_CMHG                01 Dec 1999
 
-#define Module_MajorVersion     	"5.07"
-#define Module_Version                  507
-#define Module_MinorVersion		""
-#define Module_Date      		"02 Nov 1999"
+#define Module_MajorVersion             "5.08"
+#define Module_Version                  508
+#define Module_MinorVersion             ""
+#define Module_Date                     "01 Dec 1999"
 
-#define Module_FullVersion              "5.07"
+#define Module_FullVersion              "5.08"

s/Arthur2

@@ -259,7 +259,11 @@ SetTimeVar ROUT
 
 TimeVarTooLong
         ADRL   R0, ErrorBlock_VarTooLong
+      [ International
+        B      TranslateError
+      |
         ORRS   PC, LR, #V_bit
+      ]
 
 ReadYear
         ADR    R0, SysYearFormat
@@ -375,9 +379,9 @@ SetRC   Push  "lr"
 
         Pull  "PC"
 SetYearPrefixFormat
-        =     "%w3, %dy-%m3-", 0
+        =     "%w3,%dy %m3 ", 0
 SetDateSuffixFormat
-        =     "-%ce%yr", 0
+        =     " %ce%yr", 0
         ALIGN
 
         MakeErrorBlock RCExc
@@ -1748,7 +1752,9 @@ SetVarVal_TestVExit
         B       SLVK_TestV
 
 SetVarValBadExit_Translate
+ [ International
         BL      TranslateError
+ ]
 SetVarValBadExit_NoTranslate
         SETV
         B       SetVarVal_TestVExit