From dee87e744be942205f6431991eb9fa01ba95c424 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Sat, 23 Oct 2021 22:30:00 -0400
Subject: [PATCH] IBM360: Fixed nop command on CDR.

---
 IBM360/ibm360_cdr.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/IBM360/ibm360_cdr.c b/IBM360/ibm360_cdr.c
index 9178f35..d1b175c 100644
--- a/IBM360/ibm360_cdr.c
+++ b/IBM360/ibm360_cdr.c
@@ -156,13 +156,14 @@ uint8  cdr_startcmd(UNIT *uptr,  uint8 cmd) {
 
     case 3:              /* Control */
          uptr->SNS = 0;
-         uptr->CMD &= ~(CDR_CMDMSK|CDR_CARD);
+         uptr->CMD &= ~(CDR_CMDMSK);
          if (cmd == 0x3)
              return SNS_CHNEND|SNS_DEVEND;
          if ((cmd & 0x30) != 0x20 || (cmd & 0xc0) == 0xc0) {
              uptr->SNS |= SNS_CMDREJ;
              return SNS_CHNEND|SNS_DEVEND|SNS_UNITCHK;
          }
+         uptr->CMD &= ~(CDR_CARD);
          uptr->CMD |= (cmd & CDR_CMDMSK);
          uptr->COL = 0;
          sim_activate(uptr, 1000);       /* Start unit off */