From 1d3d20e9991895af656ccdfe6c0eb7f763d21602 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 14 Jun 2020 19:55:12 +0200
Subject: [PATCH] IMLAC: Fix bug in long vector instruction.

X and Y were swapped.
---
 imlac/imlac_dp.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/imlac/imlac_dp.c b/imlac/imlac_dp.c
index 6bd9872a..9696b516 100644
--- a/imlac/imlac_dp.c
+++ b/imlac/imlac_dp.c
@@ -383,11 +383,11 @@ dp_dlvh (uint16 insn1, uint16 insn2, uint16 insn3)
   m = insn2 & 07777;
   n = insn3 & 07777;
   if (insn3 & 010000) {
-    dx = m;
-    dy = n;
-  } else {
     dx = n;
     dy = m;
+  } else {
+    dx = m;
+    dy = n;
   }
   if (insn3 & 040000)
     XA -= SCALE * dx;