From 098902cf27af845eff5855abb3e52ae1b3b52156 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Fri, 5 Mar 2021 16:24:47 +0300 Subject: Fix. --- src/Suem.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Suem.hs b/src/Suem.hs index 7a259a8..e279d42 100644 --- a/src/Suem.hs +++ b/src/Suem.hs @@ -309,10 +309,10 @@ doCommand cmd | (extractBits cmd [0..3]) == 0b1101 && (extractBits cmd [7]) == 0b1 && (extractBits cmd [10..11]) == 0b00 = - doAND (extractBits cmd [4..6]) - (extractBits cmd [8..9]) - (extractBits cmd [12]) - (extractBits cmd [13..15]) + doADDX (extractBits cmd [4..6]) + (extractBits cmd [8..9]) + (extractBits cmd [12]) + (extractBits cmd [13..15]) | (extractBits cmd [0..3]) == 0b1101 = doADD (extractBits cmd [4..6]) (extractBits cmd [7]) -- cgit v1.2.3