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

B5500: Fixed DTC for SCP change.

Browse source 
B5500: Fixed DTC for SCP change.
This commit is contained in:
Richard Cornwell 2019-12-27 15:17:20 -05:00 • committed by Mark Pizzolato
parent 37ec5444ea
commit 9a481e4907
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
B5500/b5500_dtc.c
View file

@ -714,7 +714,7 @@ dtco_srv(UNIT * uptr)
c1 = '\n'; /* LF */ c1 = '\n'; /* LF */
break; break;
case 076: /* < */ case 076: /* < */
c1 = 0; /* X-ON */ c1 = 021; /* X-ON */
break; break;
case 016: /* > */ case 016: /* > */
c1 = 0; /* DEL */ c1 = 0; /* DEL */
@ -728,8 +728,9 @@ dtco_srv(UNIT * uptr)
continue; /* On to next line */ continue; /* On to next line */
} }
sim_debug(DEBUG_DATA, &dtc_dev, sim_debug(DEBUG_DATA, &dtc_dev,
"Datacomm transmit %d %02o %c\n", ln, c&077, c1); "Datacomm transmit %d %02o %c\n", ln, c, isprint(c1)?c1:'?');
tmxr_putc_ln(&dtc_ldsc[ln], c1); if (c1 != 0)
tmxr_putc_ln(&dtc_ldsc[ln], c1);
if (c1 == '\n') { if (c1 == '\n') {
tmxr_putc_ln(&dtc_ldsc[ln], '\r'); tmxr_putc_ln(&dtc_ldsc[ln], '\r');
} }