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

B5500: Fixed bug in printer moving to start of file after prompt.

Browse source
This commit is contained in:
Richard Cornwell 2019-08-12 07:38:26 -07:00 • committed by Mark Pizzolato
parent bc01220e06
commit 68df51fc22
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
B5500/b5500_urec.c
View file

@ -741,6 +741,7 @@ print_line(UNIT * uptr, int unit)
/* Print out buffer */ /* Print out buffer */
sim_fwrite(&out, 1, i, uptr->fileref); sim_fwrite(&out, 1, i, uptr->fileref);
uptr->pos += i;
uptr->CMD &= ~URCSTA_EOF; uptr->CMD &= ~URCSTA_EOF;
} }
@ -758,6 +759,7 @@ print_line(UNIT * uptr, int unit)
if ((uptr->LINENUM & 1) == 1) { if ((uptr->LINENUM & 1) == 1) {
sim_fwrite("\r", 1, 1, uptr->fileref); sim_fwrite("\r", 1, 1, uptr->fileref);
sim_fwrite("\n", 1, 1, uptr->fileref); sim_fwrite("\n", 1, 1, uptr->fileref);
uptr->pos += 2;
uptr->LINENUM++; uptr->LINENUM++;
uptr->CMD &= ~URCSTA_EOF; uptr->CMD &= ~URCSTA_EOF;
} }
@ -766,6 +768,7 @@ print_line(UNIT * uptr, int unit)
if ((uptr->LINENUM & 1) == 0) { if ((uptr->LINENUM & 1) == 0) {
sim_fwrite("\r", 1, 1, uptr->fileref); sim_fwrite("\r", 1, 1, uptr->fileref);
sim_fwrite("\n", 1, 1, uptr->fileref); sim_fwrite("\n", 1, 1, uptr->fileref);
uptr->pos += 2;
uptr->LINENUM++; uptr->LINENUM++;
uptr->CMD &= ~URCSTA_EOF; uptr->CMD &= ~URCSTA_EOF;
} }
@ -775,6 +778,7 @@ print_line(UNIT * uptr, int unit)
(uptr->LINENUM != (uptr->capac))) { (uptr->LINENUM != (uptr->capac))) {
sim_fwrite("\r", 1, 1, uptr->fileref); sim_fwrite("\r", 1, 1, uptr->fileref);
sim_fwrite("\n", 1, 1, uptr->fileref); sim_fwrite("\n", 1, 1, uptr->fileref);
uptr->pos += 2;
uptr->LINENUM++; uptr->LINENUM++;
if (((uint32)uptr->LINENUM) > uptr->capac) { if (((uint32)uptr->LINENUM) > uptr->capac) {
uptr->LINENUM = 1; uptr->LINENUM = 1;
@ -790,6 +794,7 @@ print_line(UNIT * uptr, int unit)
(uptr->LINENUM != (uptr->capac))) { (uptr->LINENUM != (uptr->capac))) {
sim_fwrite("\r", 1, 1, uptr->fileref); sim_fwrite("\r", 1, 1, uptr->fileref);
sim_fwrite("\n", 1, 1, uptr->fileref); sim_fwrite("\n", 1, 1, uptr->fileref);
uptr->pos += 2;
uptr->LINENUM++; uptr->LINENUM++;
if (((uint32)uptr->LINENUM) > uptr->capac) { if (((uint32)uptr->LINENUM) > uptr->capac) {
uptr->LINENUM = 1; uptr->LINENUM = 1;
@ -805,6 +810,7 @@ print_line(UNIT * uptr, int unit)
case 11: case 11:
sim_fwrite("\r", 1, 1, uptr->fileref); sim_fwrite("\r", 1, 1, uptr->fileref);
sim_fwrite("\n", 1, 1, uptr->fileref); sim_fwrite("\n", 1, 1, uptr->fileref);
uptr->pos += 2;
uptr->LINENUM++; uptr->LINENUM++;
break; break;
} }
@ -814,6 +820,7 @@ print_line(UNIT * uptr, int unit)
uptr->LINENUM = 1; uptr->LINENUM = 1;
uptr->CMD |= URCSTA_EOF; uptr->CMD |= URCSTA_EOF;
sim_fwrite("\f", 1, 1, uptr->fileref); sim_fwrite("\f", 1, 1, uptr->fileref);
uptr->pos ++;
sim_fseek(uptr->fileref, 0, SEEK_CUR); sim_fseek(uptr->fileref, 0, SEEK_CUR);
sim_debug(DEBUG_DETAIL, &lpr_dev, "lpr %d page\n", unit); sim_debug(DEBUG_DETAIL, &lpr_dev, "lpr %d page\n", unit);
} }