The Lambda Lab
/
projects
/
ez.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d6715a8
)
Executes up to into message.
author
plugd
<plugd@thelambdalab.xyz>
Mon, 15 Nov 2021 10:14:12 +0000
(11:14 +0100)
committer
plugd
<plugd@thelambdalab.xyz>
Mon, 15 Nov 2021 10:14:12 +0000
(11:14 +0100)
ez.el
patch
|
blob
|
history
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 #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)
((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)
(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)))
(defun ez-op-and (operands operand-types)
(let ((a (car operands))
(b (cadr operands)))