diff options
| author | Nikita Orlov <nikitf-97@mail.ru> | 2021-04-03 22:28:49 +0300 |
|---|---|---|
| committer | Nikita Orlov <nikitf-97@mail.ru> | 2021-04-03 22:28:49 +0300 |
| commit | 717a132ea55eb634eda375d59d73df826712cd8b (patch) | |
| tree | 5f669aed99d8c74e3141e454bc6ac7a4c84beed7 /src/Suem.hs | |
| parent | 3d4e47bb5a290c638d61ddf6dcfdf1101f6bebae (diff) | |
| download | suem-717a132ea55eb634eda375d59d73df826712cd8b.tar suem-717a132ea55eb634eda375d59d73df826712cd8b.tar.xz suem-717a132ea55eb634eda375d59d73df826712cd8b.zip | |
BSR and RTS added
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]) |