From 1e318d266a2416b64123b60d14c1e2be1ac2fff4 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Mon, 21 Sep 2020 19:11:15 -0400
Subject: [PATCH] IBM360: Clear command on program I/O error.

---
 IBM360/ibm360_chan.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/IBM360/ibm360_chan.c b/IBM360/ibm360_chan.c
index f1fcbf4..ad9b576 100644
--- a/IBM360/ibm360_chan.c
+++ b/IBM360/ibm360_chan.c
@@ -350,6 +350,7 @@ loop:
     /* Check invalid count */
     if (ccw_count[chan] == 0) {
         chan_status[chan] |= STATUS_PCHK;
+        ccw_cmd[chan] = 0;
         irq_pend = 1;
         return 1;
     }
@@ -364,6 +365,7 @@ loop:
          /* Check if invalid command */
          if ((ccw_cmd[chan] & 0xF) == 0) {
              chan_status[chan] |= STATUS_PCHK;
+             ccw_cmd[chan] = 0;
              irq_pend = 1;
              return 1;
          }