From 7e7b143ae71296f07f9971e845560cd10e3de597 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Wed, 18 Jul 2018 13:54:03 -0400
Subject: [PATCH] KA10: Minor cleanup. Added definitions for DEV_CARD,
 DEV_TAPE.

---
 PDP10/ka10_cp.c  | 2 +-
 PDP10/ka10_cr.c  | 2 +-
 PDP10/ka10_cty.c | 2 --
 PDP10/ka10_mt.c  | 2 +-
 PDP10/ka10_tu.c  | 2 +-
 5 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/PDP10/ka10_cp.c b/PDP10/ka10_cp.c
index f432912..064a98d 100644
--- a/PDP10/ka10_cp.c
+++ b/PDP10/ka10_cp.c
@@ -100,7 +100,7 @@ DEVICE              cp_dev = {
     "CP", &cp_unit, NULL, cp_mod,
     NUM_DEVS_CP, 8, 15, 1, 8, 8,
     NULL, NULL, NULL, NULL, &cp_attach, &cp_detach,
-    &cp_dib, DEV_DISABLE | DEV_DEBUG, 0, crd_debug,
+    &cp_dib, DEV_DISABLE | DEV_DEBUG | DEV_CARD, 0, crd_debug,
     NULL, NULL, &cp_help, NULL, NULL, &cp_description
 };
 
diff --git a/PDP10/ka10_cr.c b/PDP10/ka10_cr.c
index 1e57bb4..7d6e1b0 100644
--- a/PDP10/ka10_cr.c
+++ b/PDP10/ka10_cr.c
@@ -100,7 +100,7 @@ DEVICE              cr_dev = {
     "CR", &cr_unit, NULL, cr_mod,
     NUM_DEVS_CR, 8, 15, 1, 8, 8,
     NULL, NULL, NULL, NULL, &cr_attach, &cr_detach,
-    &cr_dib, DEV_DISABLE | DEV_DEBUG, 0, crd_debug,
+    &cr_dib, DEV_DISABLE | DEV_DEBUG | DEV_CARD, 0, crd_debug,
     NULL, NULL, &cr_help, NULL, NULL, &cr_description
 };
 
diff --git a/PDP10/ka10_cty.c b/PDP10/ka10_cty.c
index a7cc3a4..d0d148c 100644
--- a/PDP10/ka10_cty.c
+++ b/PDP10/ka10_cty.c
@@ -115,8 +115,6 @@ t_stat cty_devio(uint32 dev, uint64 *data) {
          cty_unit[0].u4 = *data & 0x7f;
          cty_unit[0].u3 &= ~TEL_RDY;
          cty_unit[0].u3 |= TEL_BSY;
-         if ((cty_unit[0].u3 & KEY_RDY) == 0)
-             clr_interrupt(dev);
          sim_activate(&cty_unit[0], cty_unit[0].wait);
          sim_debug(DEBUG_DATAIO, &cty_dev, "CTY %03o DATAO %06o\n", dev, (uint32)*data);
          break;
diff --git a/PDP10/ka10_mt.c b/PDP10/ka10_mt.c
index c41db61..da24363 100644
--- a/PDP10/ka10_mt.c
+++ b/PDP10/ka10_mt.c
@@ -201,7 +201,7 @@ DEVICE              mt_dev = {
     "MTA", mt_unit, NULL, mt_mod,
     8, 8, 15, 1, 8, 8,
     NULL, NULL, &mt_reset, &mt_boot, &mt_attach, &mt_detach,
-    &mt_dib, DEV_DISABLE | DEV_DEBUG, 0, dev_debug,
+    &mt_dib, DEV_DISABLE | DEV_DEBUG | DEV_TAPE, 0, dev_debug,
     NULL, NULL, &mt_help, NULL, NULL, &mt_description
 };
 
diff --git a/PDP10/ka10_tu.c b/PDP10/ka10_tu.c
index 389ee35..3c1d4aa 100644
--- a/PDP10/ka10_tu.c
+++ b/PDP10/ka10_tu.c
@@ -270,7 +270,7 @@ DEVICE              tua_dev = {
     "TUA", tu_unit, NULL, tu_mod,
     NUM_UNITS_TU, 8, 18, 1, 8, 36,
     NULL, NULL, &tu_reset, &tu_boot, &tu_attach, &tu_detach,
-    &tu_dib[0], DEV_DISABLE | DEV_DEBUG, 0, dev_debug,
+    &tu_dib[0], DEV_DISABLE | DEV_DEBUG | DEV_TAPE, 0, dev_debug,
     NULL, NULL, &tu_help, NULL, NULL, &tu_description
 };