diff --git a/src/Mima/Assembler/Parser/RawInstruction.hs b/src/Mima/Assembler/Parser/RawInstruction.hs index 7ecf2c8..b50aef7 100644 --- a/src/Mima/Assembler/Parser/RawInstruction.hs +++ b/src/Mima/Assembler/Parser/RawInstruction.hs @@ -27,6 +27,8 @@ parseByLiteral = foldl (<|>) empty . map (\(a, b) -> b <$ C.string' a) smallOpcode' :: Parser SmallOpcode smallOpcode' = parseByLiteral [ ( "LDC", LDC) + , ("LDVR", LDVR) -- Needs to be before LDV + , ("STVR", STVR) -- Needs to be before STV , ( "LDV", LDV) , ( "STV", STV) , ( "ADD", ADD) @@ -39,8 +41,6 @@ smallOpcode' = parseByLiteral , ("LDIV", LDIV) , ("STIV", STIV) , ("CALL", CALL) - , ("LDVR", LDVR) - , ("STVR", STVR) ] largeOpcode' :: Parser LargeOpcode