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

Fix TV wholine Y2K bug.

Browse Source 
Years later than 1999 displays as three digits.
This commit is contained in:
Lars Brinkhoff
2018-11-30 20:27:59 +01:00
parent dc896af2f9
commit 813b5d7c30
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/system/sysjob.117 → src/system/sysjob.118
View File

@@ -1149,6 +1149,9 @@ VWSYS5: LDB D,[MUR,,MEMBLT(TT)]
AOJA TT,VWSYS5
IDPB C,B ;TOTAL MEM AVAIL FOR USERS
HLRZ C,QDATE
LDB D,[110700,,C]
IDIVI D,100. ;YEAR MODULO 100
DBP E,[110700,,C]
IDPB C,B
MOVE C,SYSDBG
IDPB C,B