From c5429fe1e505e3db84576ed28ba4da799f5f4e33 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Tue, 2 Apr 2019 20:16:52 -0400
Subject: [PATCH] SCP: Updated to current.

---
 sim_tape.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/sim_tape.c b/sim_tape.c
index 1627f35..4df727b 100644
--- a/sim_tape.c
+++ b/sim_tape.c
@@ -944,8 +944,10 @@ else switch (f) {                                       /* otherwise the read me
             *bc = sbc;                                      /* save rec lnt */
             (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */
             uptr->pos = uptr->pos + sbc;                    /* spc over record */
-            if (all_eof)                                    /* tape mark? */
+            if (all_eof) {                                  /* tape mark? */
                 status = MTSE_TMK;
+                *bc = 0;
+                }
             }
         break;