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

IBM360: Fixed bug in AP instruction, thanks to Roberto Sancho for finding this.

Browse Source
This commit is contained in:
Richard Cornwell 2021-11-07 12:04:28 -05:00
parent f1ee4fa69c
commit 265f4b49e5
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
IBM360/ibm360_cpu.c
View File

@ -5750,7 +5750,8 @@ dec_add(int op, uint32 addr1, uint8 len1, uint32 addr2, uint8 len2)
if (op & 1)
sb = !sb;
len = 2*(len+1)+1;
/* Length is 1 plus number of digits times two, including the sign nibble. */
len = 2*(len+1)-1;
/* On all but ZAP load first operand */
if ((op & 3) != 0) {
if (dec_load(a, addr1, (int)len1, &sa))
@ -5765,7 +5766,7 @@ dec_add(int op, uint32 addr1, uint8 len1, uint32 addr2, uint8 len2)
cy = addsub;
zero = 1;
/* Add numbers together */
for (i = 1; i < len; i++) {
for (i = 1; i <= len; i++) {
acc = b[i] + ((addsub)? (0x9 - a[i]):a[i]) + cy;
if (acc > 0x9)
acc += 0x6;
@ -5784,7 +5785,7 @@ dec_add(int op, uint32 addr1, uint8 len1, uint32 addr2, uint8 len2)
/* We need to recomplent the result */
cy = 1;
zero = 1;
for (i = 1; i < len; i++) {
for (i = 1; i <= len; i++) {
acc = (0x9 - a[i]) + cy;
if (acc > 0x9)
acc += 0x6;
@ -5803,7 +5804,7 @@ dec_add(int op, uint32 addr1, uint8 len1, uint32 addr2, uint8 len2)
if ((op & 3) != 1) {
if (!zero && !ov) {
/* Start at len1 and go to len2 and see if any non-zero digits */
for (i = (len1+1)*2; i < len; i++) {
for (i = (len1+1)*2; i <= len; i++) {
if (a[i] != 0) {
ov = 1;
break;