folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I650: Properly set MT device reclen for all tape operations

Browse source 
As reported in #883
This commit is contained in:
Roberto Sancho Villa 2020-07-10 19:02:20 -07:00 • committed by Mark Pizzolato
parent a73ab48c0e
commit 331f689747
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
I650/i650_mt.c
View file

@ -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);