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

Set SYS;RECORD TIME timestamp for current uptime record.

Browse Source 
The TIME program checks the SYS;RECORD TIME timestamp to see if a new
uptime record has been set.  It's not a normal timestamp, but is
relative to day 0 of month 0 in year 1900.

Thanks for Heinz-Bernd Eggenstein for discovering this.
This commit is contained in:
Lars Brinkhoff
2024-05-02 12:55:11 +02:00
parent 2c3cdfe4d4
commit 767fcdb254
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
build/build.tcl
View File

@@ -199,6 +199,12 @@ if [file exists $build/mchn/$mchn/custom.tcl] {
source $build/mchn/$mchn/custom.tcl
}
# Set timestamp for current uptime record.
respond "*" ":create sys;record time\r"
respond "for help" "\003"
expect ":KILL"
respond "*" ":sfdate sys;record time, 0/0/00\r"
if {![info exists env(NODUMP)]} {
# make output.tape
respond "*" $emulator_escape