From 4f16fdb8d19762f51b08ab0c306822ee181eff89 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Sun, 21 Nov 2021 19:12:33 -0500
Subject: [PATCH] IBM360: Fix card reader to clear status on detattach.

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

diff --git a/IBM360/ibm360_cdr.c b/IBM360/ibm360_cdr.c
index 7815f46..cd9ddb4 100644
--- a/IBM360/ibm360_cdr.c
+++ b/IBM360/ibm360_cdr.c
@@ -320,8 +320,9 @@ cdr_attach(UNIT * uptr, CONST char *file)
        return r;
     if (uptr->up7 == NULL)
         uptr->up7 = malloc(sizeof(uint16)*80);
-    if (uptr->CMD & CDR_CARD)
+    if (uptr->CMD & CDR_CARD) {
         return SCPE_OK;
+    }
     uptr->CMD &= ~(CDR_CARD|CDR_EOF|CDR_ERR);
     uptr->SNS = 0;
     uptr->COL = 0;
@@ -350,6 +351,7 @@ cdr_detach(UNIT * uptr)
         free(uptr->up7);
     uptr->up7 = 0;
     uptr->SNS = 0;
+    uptr->CMD &= ~(CDR_CARD|CDR_EOF|CDR_ERR);
     return sim_card_detach(uptr);
 }