From 2ac8ea044d2d75265026465561df4e426bbd745e Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Fri, 23 Apr 2021 12:08:20 +0200
Subject: [PATCH] KA10: Make III DATAO execute instruction right away.

Or else the MAR will not be updated until iii_svc had a chance to run.
If that doesn't happen before the next III CONO, the III will not
proceed at the correct address.
---
 PDP10/ka10_iii.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/PDP10/ka10_iii.c b/PDP10/ka10_iii.c
index d9e33d1..429011c 100644
--- a/PDP10/ka10_iii.c
+++ b/PDP10/ka10_iii.c
@@ -379,7 +379,8 @@ t_stat iii_devio(uint32 dev, uint64 *data) {
              uptr->STATUS |= DATA_FLG;
          else {
              iii_instr = *data;
-             sim_activate(uptr, 10);
+             /* Process instruction right away to ensure MAR is updated. */
+             iii_svc(iii_unit);
          }
          sim_debug(DEBUG_DATAIO, &iii_dev, "III %03o DATAO %06o\n", dev, (uint32)*data);
          break;