From 8b99d318464ab16c9ed54587f038ad06099f0bfc Mon Sep 17 00:00:00 2001 From: Richard Cornwell Date: Fri, 18 Oct 2019 08:15:36 -0400 Subject: [PATCH] KA10: Fixed ITS build issue. --- PDP10/kx10_cpu.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/PDP10/kx10_cpu.c b/PDP10/kx10_cpu.c index d3b59cf..e8d0385 100644 --- a/PDP10/kx10_cpu.c +++ b/PDP10/kx10_cpu.c @@ -4412,16 +4412,18 @@ muuo: #endif unasign: /* Save Opcode */ - AB = ub_ptr | 0424; #if KL & KLB - if (!QKLB && t20_page) - AB = AB + 1; if (QKLB && t20_page) { AR = (((uint64)cur_sect) << 18) | (uint64)AB; /* Save address */ MB = (((uint64)((IR << 9) | (AC << 5))) | ((uint64)(FLAGS) << 23)) & FMASK; } else #endif MB = ((uint64)(IR) << 27) | ((uint64)(AC) << 23) | (uint64)(AB); + AB = ub_ptr | 0424; +#if KL & KLB + if (!QKLB && !QITS && t20_page) + AB = AB + 1; +#endif Mem_write_nopage(); /* Save flags */ AB++;