From fe099e1b16be4c7efc1dba9183b47e9f4606dd1f Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Sat, 3 Dec 2022 15:16:10 -0500
Subject: [PATCH] KA10: Fixes to help ITS install on KA10.

---
 PDP10/kx10_cpu.c | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c
index ae83c41..9467106 100644
--- a/PDP10/kx10_cpu.c
+++ b/PDP10/kx10_cpu.c
@@ -1341,7 +1341,7 @@ t_stat dev_mtr(uint32 dev, uint64 *data) {
         *data = mtr_irq;
         if (mtr_enable)
             *data |= 02000;
-        *data |= (uint64)mtr_flags << 12;
+        *data |= ((uint64)mtr_flags) << 12;
         sim_debug(DEBUG_CONI, &cpu_dev, "CONI MTR %012llo\n", *data);
         break;
 
@@ -3217,6 +3217,7 @@ int Mem_read(int flag, int cur_context, int fetch, int mod) {
                     MB = FM[fm_sel|AB];
                 } else {
                     MB = M[ub_ptr + ac_stack + AB];
+                    --sim_interval;
                 }
                 if (fetch == 0 && hst_lnt) {
                     hst[hst_p].mb = MB;
@@ -3357,10 +3358,6 @@ int page_lookup_its(t_addr addr, int flag, t_addr *loc, int wr, int cur_context,
         return 1;
     }
 
-    /* If DPB and IDPB force write */
-    if (BYF5 && (IR & 0776) == 0136)
-        wr = 1;
-
     /* Figure out if this is a user space access */
     if (flag)
         uf = 0;
@@ -4614,9 +4611,6 @@ in_loop:
          if (ind & !pi_rq) {
              if (Mem_read(pi_cycle | uuo_cycle, 1, 0, 0))
                  goto last;
-             if (AB < 020) {
-                --sim_interval;
-             }
 #if KL
              /* Check if extended indexing */
              if (QKLB && t20_page && (cur_sect != 0 || glb_sect)) {
@@ -4698,7 +4692,7 @@ in_loop:
          }
          /* Handle events during a indirect loop */
          AIO_CHECK_EVENT;                                   /* queue async events */
-         if (sim_interval <= 0) {
+         if (--sim_interval <= 0) {
               if ((reason = sim_process_event()) != SCPE_OK) {
                   return reason;
               }