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

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/syseng/datime.73 → src/syseng/datime.74
View File

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

1
src/syseng/dump.443 → src/syseng/dump.444
View File

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