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

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

1
src/sysen2/peek.629
View File

@@ -4610,6 +4610,7 @@ PDTIME: MOVE C,@QDATE ; Get disk-format date
DNUM 1,A ; Output day
CTYPE "/
LDB A,[$TMYR,,C]
ADDI A,1900.
DNUM 2,A ; Output year
CTYPE 40
IDIVI B,60.*60.*2 ; Find # hours in B