From 8efbc790595f0fa78ccb3965fefc48e17dd80b40 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Thu, 3 Jun 2021 19:38:08 -0400
Subject: [PATCH] IBM360: Fixed issue with shift instructions.

---
 IBM360/ibm360_cpu.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/IBM360/ibm360_cpu.c b/IBM360/ibm360_cpu.c
index 4d1510f..89657dc 100644
--- a/IBM360/ibm360_cpu.c
+++ b/IBM360/ibm360_cpu.c
@@ -2025,6 +2025,7 @@ char_save:
                         cc = 3;
                     addr1--;
                 }
+                dest &= ~MSIGN;
                 dest |= src2;
                 if (cc == 3)
                     goto set_cc3;
@@ -2098,6 +2099,8 @@ char_save:
                            cc = 3;
                        addr1--;
                    }
+                   src1L &= ~MSIGNL;
+                   src1L |= src2L;
 save_dbl:
                    STDBL(reg1, src1L);
                    if (cc != 3 && src1L != 0)
@@ -2114,6 +2117,8 @@ save_dbl:
                        src1h <<= 1;
                        addr1--;
                    }
+                   src1 &= ~MSIGN;
+                   src1 |= dest;
 save_dbl:
                    STDBLx(reg1, src1);
                    if (cc != 3 && (src1 | src1h) != 0)