From e6490223eba4eea282fcfa8acffd9340c1b62a37 Mon Sep 17 00:00:00 2001
From: Mark Pizzolato <mark@infocomm.com>
Date: Tue, 2 Apr 2019 09:26:34 -0700
Subject: [PATCH] TAPE: Fix P7B record length return when encountering a tape
 mark

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

diff --git a/sim_tape.c b/sim_tape.c
index 1627f359..4df727b6 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;