From 9ace55c8c5626e306c2b78179690bdc390b25f3c Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Thu, 22 Feb 2024 09:37:13 -0800
Subject: [PATCH] Add fix to ITS to ensure it doesn't hang waiting forever for
 TUTs to be written to disk. Fix guarantees that TUTs will get written out
 when the system is shutting down.

Addresses #2220.
---
 src/system/{disk.1227 => disk.1228} | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
 rename src/system/{disk.1227 => disk.1228} (99%)

diff --git a/src/system/disk.1227 b/src/system/disk.1228
similarity index 99%
rename from src/system/disk.1227
rename to src/system/disk.1228
index 6b9e196b..4daf355c 100644
--- a/src/system/disk.1227
+++ b/src/system/disk.1228
@@ -5504,7 +5504,9 @@ QMDW:	SKIPGE QACT(Q)
 	JRST QINT1
 
 QMDWA:	AOBJN Q,QMDW
-QTDW:	SKIPG QACTTM
+QTDW:	SKIPGE SHUTDN
+         JRST .+3
+        SKIPG QACTTM
 	 JRST QUDW
 	MOVSI Q,-NQS
 QTDW1:	SKIPGE QACT(Q)