github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-02-13 19:34:58 +00:00
Code Releases Activity

IBM360: Cleanup LRA instruction.

Browse Source
This commit is contained in:
Richard Cornwell
2021-11-04 21:55:14 -04:00
parent 36bf66f6ed
commit 3cce131522
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
IBM360/ibm360_cpu.c
View File

@@ -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;