I7000: Minor fixes.

rcornwell · Mar 12, 2024 · 3f579ed · 3f579ed
1 parent 9462ee6
commit 3f579ed
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/I7000/i7090_cpu.c b/I7000/i7090_cpu.c
@@ -3405,14 +3405,16 @@ sim_instr(void)
                     ihold = 1;  /* Hold interupts for one cycle */
                     break;
                 case SCPE_OK:
-                    temp = (MA >> 9) & 017;
-                    if (temp == 0) {
-                        if (opcode==IO_RDS)
-                            MQ = 0;
-                        chan_clear(0, CHS_EOF|CHS_EOT|DEV_REOR);
-                    } else {
-                        iotraps &= ~(1 << temp);
-                        chan_clear(temp, CHS_EOF|CHS_EOT|DEV_REOR);
+                    {   uint16 temp16;
+                        temp16 = (MA >> 9) & 017;
+                        if (temp16 == 0) {
+                            if (opcode==IO_RDS)
+                                MQ = 0;
+                            chan_clear(0, CHS_EOF|CHS_EOT|DEV_REOR);
+                        } else {
+                            iotraps &= ~(1 << temp16);
+                            chan_clear(temp16, CHS_EOF|CHS_EOT|DEV_REOR);
+                        }
                     }
                     ihold = 1;  /* Hold interupts for one cycle */
                     break;

diff --git a/I7000/tests/i7090_test.ini b/I7000/tests/i7090_test.ini
@@ -1,7 +1,6 @@
 cd %~p0
 cd i7090
 rm test.log
-set noasync
 set console -n -q log=test.log
 set cpu 709 
 set dk disable