Implement SKP instruction.

1 files changed, 9 insertions, 0 deletions

diff --git a/asm.myr b/asm.myr
index 94d80f0..3d70adc 100644
--- a/asm.myr
+++ b/asm.myr
@@ -152,6 +152,15 @@ const emitinstr = {p
         | _:
             -> `std.Err(std.fmt("invalid arguments to SNE: {}, {}", p[1], p[2]))
         ;;
+    | "SKP":
+        if p.len < 2
+            -> `std.Err("SKP missing address")
+        ;;
+        match parselit(p[1])
+        | `Register(n): b = `std.Some([0xe0 | (n & 0x0f), 0x9e])
+        | _:
+            -> `std.Err(std.fmt("invalid argument to SKP: {}", p[1]))
+        ;;
     | _:
         -> `std.Err(std.fmt("unrecognized instruction {}", p[0]))
     ;;