From 222c9d91b4eb8d29c051d1173a345627fd55548f Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Wed, 4 Nov 2020 14:41:19 +0100
Subject: [PATCH] IMLAC: Improve debug output.

---
 imlac/imlac_cpu.c | 6 ++++--
 imlac/imlac_dp.c  | 3 ++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/imlac/imlac_cpu.c b/imlac/imlac_cpu.c
index b83e2217..797d2a45 100644
--- a/imlac/imlac_cpu.c
+++ b/imlac/imlac_cpu.c
@@ -196,8 +196,10 @@ static void cpu_class1 (uint16 insn)
     L = !L;
   if (insn & 0000004) /* T3: IAC */
     AC++;
-  if (insn & 0000040) /* T3: ODA */
+  if (insn & 0000040) { /* T3: ODA */
+    sim_debug (DBG_CPU, &cpu_dev, "Read data switches: %06o\n", DS);
     AC |= DS;
+  }
 
   halt = !(insn & 0100000);
 }
@@ -283,7 +285,7 @@ static void cpu_iot (uint16 insn)
 {
   SUBDEV *dev = dev_tab[(insn >> 3) & 077];
   if (dev == NULL) {
-    sim_debug (DBG_CPU, &cpu_dev, "Unknown device IOT: %06o\n", IR);
+    sim_debug (DBG_CPU, &cpu_dev, "Unknown device IOT @ %06o: %06o\n", PC, IR);
     return;
   }
   AC = dev->iot (insn, AC);
diff --git a/imlac/imlac_dp.c b/imlac/imlac_dp.c
index 7d638f42..80fe7104 100644
--- a/imlac/imlac_dp.c
+++ b/imlac/imlac_dp.c
@@ -432,7 +432,8 @@ dp_insn (uint16 insn)
       DT[SP++] = DPC;
     else
       sim_debug (DBG, &dp_dev, "stack overflow");
-    /* Fall through. */
+    jump (insn);
+    break;
   case 6: /* DJMP */
     sim_debug (DBG, &dp_dev, "DJMP\n");
     jump (insn);