diff options
Diffstat (limited to 'src/Suem.hs')
| -rw-r--r-- | src/Suem.hs | 4 |
1 files changed, 1 insertions, 3 deletions
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]) |