github.com/rcornwell.sims
1
0
Fork 0
mirror of https://github.com/rcornwell/sims.git synced 2026-01-19 01:18:10 +00:00
Code Releases Activity

IBM360: Fixed issue with shift instructions.

Browse Source
This commit is contained in:
Richard Cornwell 2021-06-03 19:38:08 -04:00
parent 647eba9763
commit 8efbc79059
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
IBM360/ibm360_cpu.c
View File

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