From 110f3cfdcb9cebdcfaf69e02b989e2ba24360d86 Mon Sep 17 00:00:00 2001 From: Richard Cornwell Date: Sat, 28 Dec 2019 00:35:43 -0500 Subject: [PATCH] B5500: Fixed DTC for SCP change. --- B5500/b5500_dtc.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/B5500/b5500_dtc.c b/B5500/b5500_dtc.c index d739fc0..a4d6b83 100644 --- a/B5500/b5500_dtc.c +++ b/B5500/b5500_dtc.c @@ -714,7 +714,7 @@ dtco_srv(UNIT * uptr) c1 = '\n'; /* LF */ break; case 076: /* < */ - c1 = 0; /* X-ON */ + c1 = 021; /* X-ON */ break; case 016: /* > */ c1 = 0; /* DEL */ @@ -727,10 +727,10 @@ dtco_srv(UNIT * uptr) t = 0; continue; /* On to next line */ } + sim_debug(DEBUG_DATA, &dtc_dev, + "Datacomm transmit %d %02o %c\n", ln, c, isprint(c1)?c1:'?'); if (c1 != 0) - sim_debug(DEBUG_DATA, &dtc_dev, - "Datacomm transmit %d %02o %c\n", ln, c&077, c1); - tmxr_putc_ln(&dtc_ldsc[ln], c1); + tmxr_putc_ln(&dtc_ldsc[ln], c1); if (c1 == '\n') { tmxr_putc_ln(&dtc_ldsc[ln], '\r'); }