From da76d6eca1385b13b811ec3f6cd51f2b5e3ea268 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 26 Jun 2020 16:57:32 +0200
Subject: [PATCH] IMLAC: Also load block register when loading DPC.

Not doing this will make jumps fail when the display processor is
started from an adress larger than 7777.
---
 imlac/imlac_dp.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/imlac/imlac_dp.c b/imlac/imlac_dp.c
index 2265b9bc..7d638f42 100644
--- a/imlac/imlac_dp.c
+++ b/imlac/imlac_dp.c
@@ -149,7 +149,8 @@ dp_iot (uint16 insn, uint16 AC)
   }
   if ((insn & 0772) == 0002) { /* DLA */
     sim_debug (DBG, &dp_dev, "DPC set to %06o\n", AC & memmask);
-    DPC |= AC & memmask;
+    DPC = AC & memmask;
+    BLOCK = (AC >> 12) & 3;
   }
   if ((insn & 0771) == 0011) { /* CTB */
     ;