Some Y2K fixes.

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

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

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	")
 

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

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,

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 / /]

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)