From 717a132ea55eb634eda375d59d73df826712cd8b Mon Sep 17 00:00:00 2001 From: Nikita Orlov Date: Sat, 3 Apr 2021 22:28:49 +0300 Subject: BSR and RTS added --- src/Suem.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/Suem.hs') diff --git a/src/Suem.hs b/src/Suem.hs index 63e52d2..eeb743d 100644 --- a/src/Suem.hs +++ b/src/Suem.hs @@ -201,9 +201,7 @@ doInstruction opcode (extractBits opcode [8..9]) (extractBits opcode [10..12]) (extractBits opcode [13..15]) - | (extractBits opcode [0..7]) == 0b01100000 = - doBRA (extractBits opcode [8..15]) - | (extractBits opcode [0..7]) == 0b01100000 = + | (extractBits opcode [0..7]) == 0b01100001 = doBSR (extractBits opcode [8..15]) | (extractBits opcode [0..3]) == 0b0110 = doBcc (extractBits opcode [4..7]) -- cgit v1.2.3