+(defun ez-op-or (operands operand-types)
+ (let ((a (car operands))
+ (b (cadr operands)))
+ (ez-set-var (ez-read-pc-byte-and-inc) (logior a b)))
+ t)
+
+(defun ez-op-add (operands operand-types)
+ (let ((a (car operands))
+ (b (cadr operands)))
+ (ez-set-var (ez-read-pc-byte-and-inc) (mod (+ a b) #x10000)))
+ t)
+
+(defun ez-op-sub (operands operand-types)
+ (let ((a (car operands))
+ (b (cadr operands)))
+ (ez-set-var (ez-read-pc-byte-and-inc) (mod (+ (- a b) #x10000) #x10000)))
+ t)
+
+(defun ez-op-mul (a b)
+ (let ((a (car operands))
+ (b (cadr operands)))
+ (ez-set-var (ez-read-pc-byte-and-inc) (mod (* a b) #x10000)))
+ t)
+
+(defun ez-op-div (a b)
+ (error "Not implemented"))
+
+(defun ez-op-mod (a b)
+ (error "Not implemented"))
+
+(defun ez-op-callf (operands operand-types)
+ (let* ((raddr (car operands))
+ (call-operands (cdr operands))
+ (r (* 2 raddr))
+ (L (ez-mem-ref-byte r))
+ (n (length call-operands))
+ (new-pc (+ r 1 (* L 2))))
+ (ez-add-call-stack-frame new-pc)
+ (dotimes (i L)
+ (if (< i n)
+ (ez-set-local-var (+ i 1) (elt call-operands i))
+ (ez-set-local-var (+ i 1) (ez-mem-ref-word (+ r 1 (* 2 i)))))))
+ t)
+
+(defun ez-op-test-attr (operands operand-types)
+ (let ((obj (car operands))
+ (attr (cadr operands)))
+ (ez-do-branch (= 1 (ez-get-obj-attr obj attr)))
+ t))
+
+(defun ez-op-get-sibling (operands operand-types)
+ (let ((sib (ez-get-obj-sibling (car operands))))
+ (ez-set-var (ez-read-pc-byte-and-inc) sib)
+ (ez-do-branch (> sib 0))
+ t))
+
+(defun ez-op-get-child (operands operand-types)
+ (let ((child (ez-get-obj-child (car operands))))
+ (ez-set-var (ez-read-pc-byte-and-inc) child)
+ (ez-do-branch (> child 0))
+ t))
+
+(defun ez-op-get-parent (operands operand-types)
+ (let ((parent (ez-get-obj-parent (car operands))))
+ (ez-set-var (ez-read-pc-byte-and-inc) parent)
+ (ez-do-branch (> parent 0))
+ t))
+
+(defun ez-op-put-prop (operands operand-types)
+ (let* ((obj (car operands))
+ (prop (cadr operands))
+ (a (caddr operands)))
+ (ez-set-obj-prop obj prop a)
+ t))
+
+(defun ez-op-print (operands operand-types)
+ (let* ((word-count-and-string (ez-get-zstring (ez-get-pc)))
+ (word-count (car word-count-and-string))
+ (string (cdr word-count-and-string)))
+ (ez-print string)
+ (ez-increment-pc (* 2 word-count)))
+ t)
+
+(defun ez-op-new-line (operands operand-types)
+ (ez-print "\n")
+ t)
+
+(defun ez-op-print-num (operands operand-types)
+ (let ((s (ez-decode-signed-operand (car operands) (car operand-types))))
+ (ez-print (number-to-string s)))
+ t)