From: Lucian Mogosanu Date: Tue, 23 Dec 2014 17:40:49 +0000 (+0200) Subject: ZXS: Decode: Fix index parameter X-Git-Url: https://git.mogosanu.ro/?a=commitdiff_plain;h=087d0a4142a70d86640fff12ee8b623878749dc8;p=z80.git ZXS: Decode: Fix index parameter --- 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