From 73e659f5de2db13f45af20f0dd4f4d158464e116 Mon Sep 17 00:00:00 2001
From: "Jakob L. Kreuze" <zerodaysfordays@sdf.lonestar.org>
Date: Fri, 27 Dec 2019 17:13:34 -0500
Subject: Implement SKP instruction.

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

(limited to 'asm.myr')

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]))
     ;;
-- 
cgit v1.3