From ce627981df794a8497c17dc834df92fbfbde3323 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rcornwell@github.com>
Date: Fri, 27 Sep 2019 23:44:33 -0400
Subject: [PATCH] KA10: Fixed bug in ADJBP.

---
 PDP10/ka10_ch10.c | 2 --
 PDP10/kx10_cpu.c  | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/PDP10/ka10_ch10.c b/PDP10/ka10_ch10.c
index 09d332e..e9a6548 100644
--- a/PDP10/ka10_ch10.c
+++ b/PDP10/ka10_ch10.c
@@ -335,8 +335,6 @@ void ch10_command (uint32 data)
 
 t_stat ch10_devio(uint32 dev, uint64 *data)
 {
-    DEVICE *dptr = &imx_dev;
-
     switch(dev & 07) {
     case CONO:
         sim_debug (DBG_REG, &ch10_dev, "CONO %012llo %012llo \n", *data, ch10_status);
diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c
index 5a7a8f1..e737a40 100644
--- a/PDP10/kx10_cpu.c
+++ b/PDP10/kx10_cpu.c
@@ -5677,7 +5677,7 @@ unasign:
                       }
                       FE = 36 - (adjb * SC) - ((36 - FE) % SC);   /* New P */
                       AR = (((uint64)(FE & 077)) << 30) |    /* Make new BP */
-                           (AR & 00777777000000LL) |  /* S,IX,I */
+                           (AR & PMASK & LMASK) |  /* S,IX,I */
                            ((AR + adjw) & RMASK);
                   }
                   set_reg(AC, AR);