From 087d0a4142a70d86640fff12ee8b623878749dc8 Mon Sep 17 00:00:00 2001 From: Lucian Mogosanu Date: Tue, 23 Dec 2014 19:40:49 +0200 Subject: [PATCH] ZXS: Decode: Fix index parameter --- src/ZXS/Decode.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/ZXS/Decode.hs b/src/ZXS/Decode.hs index 1b21657..ddb4dc4 100644 --- a/src/ZXS/Decode.hs +++ b/src/ZXS/Decode.hs @@ -90,7 +90,7 @@ decode = do 0 -> return . POP_QQ $ decodeRegPair_qq p 1 -> if p > 3 then return . IllegalInstruction $ "decode: opcode = " ++ show b - else return $ [ RET, EXX, JP_HL, LD_SP_HL ] !! fromIntegral y + else return $ [ RET, EXX, JP_HL, LD_SP_HL ] !! fromIntegral p -- z = 2 2 -> do lb <- fetch -- 1.7.10.4