imm :: Word8 -- ^ Base opcode
-> (IMM -> Instruction) -- ^ Instruction constructor
-> Word8 -- ^ Opcode to parse
-> GetState s Instruction
imm base constr x = return $ constr $ toEnum $ fromIntegral (x-base)
imm :: Word8 -- ^ Base opcode
-> (IMM -> Instruction) -- ^ Instruction constructor
-> Word8 -- ^ Opcode to parse
-> GetState s Instruction
imm base constr x = return $ constr $ toEnum $ fromIntegral (x-base)