github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-29 05:11:14 +00:00
Code Issues Releases Wiki Activity

Y2K fixes for PEEK and DIRDEV.

Browse Source 
From Paul Svensson and Björn Victor.
This commit is contained in:
Lars Brinkhoff
2017-02-07 19:54:01 +01:00
committed by Eric Swenson
parent 14320d9526
commit 5e0b68d4db
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/syseng/dirdev.86
View File

@@ -1445,7 +1445,7 @@ LFF1: POP P,A
SOJGE B,LFF1
POP P,C
LFCHR9: MOVEI A,49.
LFCHR9: MOVEI A,51.
PUSHJ P,LFHPOS
MOVEI A,BLANK ;REFERENCE DATE.
IDPB A,LFBPTR
@@ -1514,8 +1514,7 @@ LFDATE: CAMN A,[-1]
MOVEI A,"/
IDPB A,LFBPTR
LDB A,[UNYRB B]
CAIG A,9
IDPB C,LFBPTR
ADDI A,1900.
PUSHJ P,LFDEC
POP P,B
POP P,C