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

Fix Y2K bug in KLH; OUT.

Browse Source 
U4 is the next accumulator after U3.  I don't know whether U4 need
saving or not, so better do it just in case.
This commit is contained in:
Lars Brinkhoff
2019-06-12 09:47:56 +02:00
parent 01a0202ab5
commit dd61d3e737
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/klh/out.250 → src/klh/out.251
View File

@@ -2360,12 +2360,18 @@ OXTMD: MOVE U3,TM.MON(UTMAC)
CALL OXTD2
STDOUT("/)
OXTYR2: MOVE U3,TM.YR(UTMAC) ; Year as 2-digit number.
SUBI U3,1900.
PUSH P,U4
IDIVI U3,100.
MOVE U3,U4
POP P,U4
CALRET OXTD2
; Date as YYMMDD
OXTYMD: MOVE U3,TM.YR(UTMAC) ; Year as 2-digit number.
SUBI U3,1900.
PUSH P,U4
IDIVI U3,100.
MOVE U3,U4
POP P,U4
CALL OXTD2
MOVE U3,TM.MON(UTMAC) ; Month.
CALL OXTD2
@@ -2426,7 +2432,10 @@ OXTRF1: CALL OXTDAY
CALL OXTMON ; Output 3-letter month
STDOUT(40) ; Space out
MOVE U3,TM.YR(UTMAC) ; Year as 2-digit number.
SUBI U3,1900.
PUSH P,U4
IDIVI U3,100.
MOVE U3,U4
POP P,U4
CALL OXTD2
STDOUT(40)
MOVE U3,TM.HR(UTMAC)