Fix address computation overlow.

open-simh · Jun 8, 2024 · 9fb4ca0 · 9fb4ca0
1 parent c6b9402
commit 9fb4ca0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Ibm1130/ibm1130_cpu.c b/Ibm1130/ibm1130_cpu.c
@@ -653,7 +653,7 @@ t_stat sim_instr (void)
 
             eaddr = word2;                  /* assume standard addressing & compute effective address */
             if (TAG)                        /* if indexed */
-                eaddr += ReadIndex(TAG);    /* add index register value */
+		eaddr = (eaddr + ReadIndex(TAG)) & 0xFFFF;	/* add index register value */
             if (INDIR)                      /* if indirect addressing */
                 eaddr = ReadW(eaddr);       /* pick up referenced address */