From: plugd <plugd@thelambdalab.xyz>
Date: Mon, 15 Nov 2021 10:14:12 +0000 (+0100)
Subject: Executes up to into message.
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=737aeafc9a89357b63b50c21d9f60def16cb7388;p=ez.git

Executes up to into message.
---

diff --git a/ez.el b/ez.el
index d33f857..ac40980 100644
--- a/ez.el
+++ b/ez.el
@@ -466,6 +466,7 @@
     ((2op #x0D) store ez-op-store)
     ((1op #x0E) load ez-op-load)
     ((var #x01) storew ez-op-storew)
+    ((2op #x0F) loadw ez-op-loadw)
     ((2op #x01) je ez-op-je)
     ((2op #x08) or ez-op-or)
     ((2op #x09) and ez-op-and)
@@ -528,6 +529,12 @@
     (ez-mem-set-word (+ baddr (* 2 n)) a))
   t)
 
+(defun ez-op-loadw (operands operand-types)
+  (let ((baddr (car operands))
+        (n (cadr operands)))
+    (ez-set-var (ez-read-pc-byte-and-inc) (ez-mem-ref-word (+ baddr (* 2 n)))))
+  t)
+
 (defun ez-op-and (operands operand-types)
   (let ((a (car operands))
         (b (cadr operands)))