github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-02-04 07:43:02 +00:00
Code Issues Releases Wiki Activity

Some Y2K fixes.

Browse Source
This commit is contained in:
Lars Brinkhoff
2017-01-10 21:44:01 +01:00
committed by Eric Swenson
parent d33a24c218
commit 508f8970b3
7 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/sysen2/dired.187 → src/sysen2/dired.188
View File

@@ -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

2
src/sysen2/find.199 → src/sysen2/find.200
View File

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

2
src/sysen2/init.230 → src/sysen2/init.231
View File

@@ -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