github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-31 05:52:12 +00:00
Code Issues Releases Wiki Activity

Fix bug in programs when system time not set.

Browse Source 
- DATE
- DATSRV
- TIME
This commit is contained in:
Lars Brinkhoff
2018-08-24 16:17:22 +02:00
parent dc666df443
commit 07b9e0f539
3 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/sysnet/datsrv.3 → src/sysnet/datsrv.4
View File

@@ -69,6 +69,10 @@ RETRY: MOVEI A,10.
CAIG B,
JSR AUTPSY ; Timed out...
SERVE: .RDATE DATE,
CAMN DATE,[-1]
JRST [ SEND [SIXBIT /TIME @/]
SEND [SIXBIT /UNSET@/]
JRST CRLF ]
LDB A,[360400,,DATE] ; First digit of year
IMULI A,10.
LDB B,[300400,,DATE] ; Second digit of year
@@ -111,7 +115,7 @@ CAL2: ADDI A,5 ; Century starts on a Saturday
AND B,DATE
TLO B,'@
SEND B
.IOT NETO,[15] ; CR
CRLF: .IOT NETO,[15] ; CR
.IOT NETO,[12] ; LF
.NETS NETO, ; Force the output.
.CLOSE NETO, ; Disconnect.