From 767fcdb254f0eb3461e1144d4d2206ad810c959b Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 2 May 2024 12:55:11 +0200
Subject: [PATCH] Set SYS;RECORD TIME timestamp for current uptime record.

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.
---
 build/build.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/build/build.tcl b/build/build.tcl
index 6b9662cc..c8ac2bbc 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -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