IBM1130: Fix Coverity identified PTR positioning bookkeeping
This commit is contained in:
parent
5d1f5c33fc
commit
0559308ee4
1 changed files with 3 additions and 2 deletions
|
@ -127,10 +127,11 @@ static t_stat ptr_svc (UNIT *uptr)
|
||||||
|
|
||||||
if (IS_ONLINE(uptr)) { /* fetch character from file */
|
if (IS_ONLINE(uptr)) { /* fetch character from file */
|
||||||
ptr_char = getc(uptr->fileref);
|
ptr_char = getc(uptr->fileref);
|
||||||
uptr->pos++;
|
|
||||||
|
|
||||||
if (! feof(uptr->fileref)) /* there's more left */
|
if (! feof(uptr->fileref)) { /* there's more left */
|
||||||
CLRBIT(ptr_dsw, PTR1134_DSW_READER_NOT_READY);
|
CLRBIT(ptr_dsw, PTR1134_DSW_READER_NOT_READY);
|
||||||
|
uptr->pos++;
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
SETBIT(ptr_dsw, PTR1134_DSW_READER_RESPONSE); /* indicate read complete */
|
SETBIT(ptr_dsw, PTR1134_DSW_READER_RESPONSE); /* indicate read complete */
|
||||||
|
|
Loading…
Add table
Reference in a new issue