From 68fbca919c39ca9d9cd10880615e96256a721b93 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Wed, 4 Sep 2013 19:56:18 -0700
Subject: [PATCH] I1401: Read TMK does not write GM+WM to memory from Bob
 Supnik

---
 I1401/i1401_mt.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/I1401/i1401_mt.c b/I1401/i1401_mt.c
index 57a7f436..39a06a26 100644
--- a/I1401/i1401_mt.c
+++ b/I1401/i1401_mt.c
@@ -25,6 +25,7 @@
 
    mt           7-track magtape
 
+   03-Sep-13    RMS     Read TMK does not write GM+WM to memory
    19-Mar-11    RMS     Restored lost edit to insert EOF in memory on read EOF
                         Reverted multiple tape indicator implementation
    20-Jan-11    RMS     Fixed branch on END indicator per hardware (Van Snyder)
@@ -341,6 +342,8 @@ switch (mod) {
                 return STOP_WRAP;
                 }
             }
+        if (st == MTSE_TMK)                             /* if TMK, no GM+WM */
+            break;
         if (M[BS] != (BCD_GRPMRK + WM)) {               /* not GM+WM at end? */
             if (flag & MD_WM)                           /* LCA: clear WM */
                 M[BS] = BCD_GRPMRK;