github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-27 12:42:10 +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

1
src/system/its.1647 → src/system/its.1648
View File

@@ -18711,6 +18711,7 @@ UQL5A: JSP B,GDPT ;TYPE OUT # BLOCKS
MOVEI I,"/
PUSHJ P,OUTC
LDB TT,[UNYRB+@DIRPT(A)]
ADDI TT,1900.
JSP B,GDPT ;TYPE YEAR
PUSHJ P,OUTCS
HRRZ TT,@DIRPT(A)