Add support for clr instruction

2021-11-09 21:25:48 +01:00
parent 71ec09c326
commit ae2ff96cb7
3 changed files with 18 additions and 4 deletions
--- a/app/VirtualMachine/VM.hs
+++ b/app/VirtualMachine/VM.hs
@@ -37,6 +37,7 @@ data Op = Nop  -- 0x00
        | Ld   -- 0x15
        | In   -- 0x16
        | Out  -- 0x17
+        | Clr  -- 0x18
        deriving (Eq, Ord, Enum, Show, Read, Bounded)

 empty :: VM