+(defun ez-op-jg (operands operand-types)
+ (let ((s1 (ez-decode-signed-operand (car operands) (car operand-types)))
+ (s2 (ez-decode-signed-operand (cadr operands) (cadr operand-types))))
+ (ez-do-branch (> s1 s2)))
+ t)
+
+(defun ez-op-jl (operands operand-types)
+ (let ((s1 (ez-decode-signed-operand (car operands) (car operand-types)))
+ (s2 (ez-decode-signed-operand (cadr operands) (cadr operand-types))))
+ (ez-do-branch (< s1 s2)))
+ t)
+
+(defun ez-op-inc-jg (operands operand-types)
+ (let ((var (car operands)))
+ (ez-op-inc (list var))
+ (ez-op-jg (cons (ez-get-var var) (cdr operands)) (cons 'w (cdr operand-types))))
+ t)
+
+(defun ez-op-dec-jl (operands operand-types)
+ (let ((var (car operands)))
+ (ez-op-dec (list var))
+ (ez-op-jl (cons (ez-get-var var) (cdr operands)) (cons 'w (cdr operand-types))))
+ t)
+
+