From 9a481e490764493a810c1af71c04484e827b6abb Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Fri, 27 Dec 2019 15:17:20 -0500
Subject: [PATCH] B5500: Fixed DTC for SCP change.

B5500: Fixed DTC for SCP change.
---
 B5500/b5500_dtc.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/B5500/b5500_dtc.c b/B5500/b5500_dtc.c
index 958bf570..a4d6b832 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 */
@@ -728,8 +728,9 @@ dtco_srv(UNIT * uptr)
                     continue;   /* On to next line */
                  }
                  sim_debug(DEBUG_DATA, &dtc_dev,
-                        "Datacomm transmit %d %02o %c\n", ln, c&077, c1);
-                 tmxr_putc_ln(&dtc_ldsc[ln], c1);
+                        "Datacomm transmit %d %02o %c\n", ln, c, isprint(c1)?c1:'?');
+                 if (c1 != 0)
+                     tmxr_putc_ln(&dtc_ldsc[ln], c1);
                  if (c1 == '\n') {
                      tmxr_putc_ln(&dtc_ldsc[ln], '\r');
                  }