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

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
Show stats 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 */ *bc = sbc; /* save rec lnt */
(void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */ (void)sim_fseek (uptr->fileref, uptr->pos, SEEK_SET); /* for read */
uptr->pos = uptr->pos + sbc; /* spc over record */ uptr->pos = uptr->pos + sbc; /* spc over record */
if (all_eof) /* tape mark? */ if (all_eof) { /* tape mark? */
status = MTSE_TMK; status = MTSE_TMK;
*bc = 0;
}
} }
break; break;