From 3cce13152205fce0d51fa299a222957b42aff59b Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Thu, 4 Nov 2021 21:55:14 -0400
Subject: [PATCH] IBM360: Cleanup LRA instruction.

---
 IBM360/ibm360_cpu.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/IBM360/ibm360_cpu.c b/IBM360/ibm360_cpu.c
index 43caadc..ff1cbd4 100644
--- a/IBM360/ibm360_cpu.c
+++ b/IBM360/ibm360_cpu.c
@@ -2429,7 +2429,7 @@ save_dbl:
 
                     /* RX in RS range */
                     if (X2(reg) != 0)
-                        addr1 = (addr1 + regs[X2(reg)]) & AMASK;
+                        addr1 += regs[X2(reg)];
 
                     addr1 &= AMASK;
                     /* Segment number to word address */
@@ -2498,7 +2498,7 @@ save_dbl:
 
                     /* Convert to address */
                     entry >>= pte_shift;
-                    addr2 = (addr1 & page_mask) | (entry << page_shift);
+                    addr2 = (addr1 & page_mask) | ((entry & TLB_PHY) << page_shift);
                     cc = 0;
                     regs[reg1] = addr2;
                     per_mod |= 1 << reg1;