From ca948e4e397057ff07f2d2daea9c58ca2515b008 Mon Sep 17 00:00:00 2001
From: Richard Cornwell <rich@sky-visions.com>
Date: Tue, 13 Dec 2022 23:41:14 -0500
Subject: [PATCH] KA10: Fix 1Proceed over PUSHJ under ITS.

---
 PDP10/kx10_cpu.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c
index 9467106..e536561 100644
--- a/PDP10/kx10_cpu.c
+++ b/PDP10/kx10_cpu.c
@@ -8884,6 +8884,11 @@ jrstf:
                   glb_sect = 0;
 #endif
               BR = AOB(BR);
+#if KL_ITS
+              if (QITS && one_p_arm)    /* Don't clear traps if 1proc */
+                 FLAGS &= ~ (BYTI);
+              else
+#endif
               FLAGS &= ~ (BYTI|ADRFLT|TRP1|TRP2);
               if (BR & C1) {
 #if KI | KL | KS