github.com/open-simh.simh
1
0
Fork 0
mirror of https://github.com/open-simh/simh.git synced 2026-02-26 17:03:56 +00:00
Code Issues Projects Releases Wiki Activity

TAPE: Fix P7B record length return when encountering a tape mark

Browse Source
This commit is contained in:
Mark Pizzolato
2019-04-02 09:26:34 -07:00
parent 2ba50a3f70
commit e6490223eb
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
sim_tape.c
View File

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