Executes up to into message.

[ez.git] / ez.el

diff --git a/ez.el b/ez.el
index d33f857..ac40980 100644 (file)
--- 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)))