From 331f6897470d9a53508ad42db2d27f76ec6ddf4d Mon Sep 17 00:00:00 2001 From: Roberto Sancho Villa Date: Fri, 10 Jul 2020 19:02:20 -0700 Subject: [PATCH] I650: Properly set MT device reclen for all tape operations As reported in #883 --- I650/i650_mt.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/I650/i650_mt.c b/I650/i650_mt.c index 7610305d..283e80e3 100644 --- a/I650/i650_mt.c +++ b/I650/i650_mt.c @@ -9,7 +9,7 @@ and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: - The above copyright notice and this permission notice shall be included in + The above copyright notice and this permission notice shall be included ni all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR @@ -442,7 +442,8 @@ uint32 mt_cmd(UNIT * uptr, uint16 cmd, uint16 fast) if (cmd == OP_WTM) { r = sim_tape_wrtmk(uptr); // calc tape pos: - uptr->u3 += (int32) ((1 * 0.005 + 0.75) * 1000); + uptr->u3 += (int32) ((1 * 0.005 + 0.75) * 1000); // Tape Mark is 1 word long + reclen=1; sim_debug(DEBUG_DETAIL, dptr, "Write Tape Mark\n"); } else { sim_debug(DEBUG_DETAIL, dptr, "IAS TimingRing is %d\n", IAS_TimingRing+9000);