From f97c6df093d4529303981e6ffc52a026327b3e11 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 21 Feb 2018 16:20:18 +0100
Subject: [PATCH] Always run PDSET after booting.

---
 build/build.tcl | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

diff --git a/build/build.tcl b/build/build.tcl
index 1a8698ab..679136ee 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -42,18 +42,6 @@ proc pdset {} {
     expect ":KILL"
 }
 
-proc maybe_pdset {} {
-    expect "YOU MAY HAVE TO :PDSET" {
-	pdset
-    } "PDTIME OFFSET" {
-	pdset
-    } "IT IS NOW" {
-	type "\032"
-	expect "Fair"
-	type ":vk\r"
-    }
-}
-
 proc shutdown {} {
     global emulator_escape
     respond "*" ":lock\r"
@@ -136,7 +124,7 @@ quit_emulator
 start_its
 respond "DSKDMP" "its\r"
 type "\033g"
-maybe_pdset
+pdset
 
 respond "*" ":login db\r"
 sleep 1
@@ -221,7 +209,7 @@ respond "DSKDMP" "m\033nsalv bin\r"
 expect "\n"; type "d\033nits\r"
 expect "\n"; type "nits\r"
 expect "\n"; type "\033g"
-maybe_pdset
+pdset
 
 respond "*" ":login db\r"
 sleep 1