From a47f8fa9e571c64972b679b94a461cc13ebf33a3 Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Date: Fri, 27 Dec 2019 17:14:39 -0500
Subject: Implement SKNP instruction.

---
 asm.myr | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'asm.myr')

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