From 15d933dd8b7288124751a0447d8cce2d72d49b1c Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Mon, 26 Oct 2020 18:40:52 -0400
Subject: [PATCH] KA10: Fixed bug in POP instruction on KL10B.

---
 PDP10/kx10_cpu.c | 3 ++-
 PDP10/kx10_rh.c  | 2 ++
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c
index 63251934..02da18f6 100644
--- a/PDP10/kx10_cpu.c
+++ b/PDP10/kx10_cpu.c
@@ -7800,14 +7800,15 @@ jrstf:
                      sect = prev_sect;
                   if (sect != 0 && (AR & SMASK) == 0 && (AR & SECTM) != 0) {
                      AR = (AR - 1) & FMASK;
+                     set_reg(AC, AR & FMASK);
                      break;
                   }
               }
 #endif
 #if PDP6 | KL
               /* This has to before the check for KL10 B extended check */
-              i_flags |= SAC;
               AR = SOB(AR);
+              set_reg(AC, AR & FMASK);
 #endif
               if ((AR & C1) == 0) {
 #if KI | KL
diff --git a/PDP10/kx10_rh.c b/PDP10/kx10_rh.c
index 80d409c1..8b812e75 100644
--- a/PDP10/kx10_rh.c
+++ b/PDP10/kx10_rh.c
@@ -505,6 +505,8 @@ rh_devirq(uint32 dev, t_addr addr) {
            addr = RSIGN | rhc->ivect;
         else if (rhc->imode == 2) /* RH20 style */
            addr = rhc->ivect;
+    } else {
+       sim_printf("Unable to find device %03o\n\r", dev);
     }
     return  addr;
 }