From: Rutger van Bergen <rbergen@xs4all.nl>
Date: Fri, 4 Mar 2022 09:59:49 +0000 (+0100)
Subject: Make x.block isolation consistent
X-Git-Tag: v1.1~3
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=2c746cbf937b9d309dd048d042269df0fe237539;p=minsk.git

Make x.block isolation consistent
---

diff --git a/minsk.c b/minsk.c
index 9fd3fa4..6091229 100644
--- a/minsk.c
+++ b/minsk.c
@@ -472,7 +472,7 @@ static void run(void)
       int op = (w >> 30) & 0177;	// Operation code
       int ax = (w >> 28) & 3;		// Address extensions supported in Minsk-22 mode
       int ix = (w >> 24) & 15;		// Indexing
-      loc x = { (ax & 2) >> 1, (w >> 12) & 07777 };	// Operands (original form)
+      loc x = { ax >> 1, (w >> 12) & 07777 };	// Operands (original form)
       loc y = { ax & 1, w & 07777 };
       loc xi=x, yi=y;			// (indexed form)
       if (trace)