From 92206c93690c5658928c9f8b1324e1a455e1a453 Mon Sep 17 00:00:00 2001
From: Wojciech Kosior <kwojtus@protonmail.com>
Date: Sat, 5 Sep 2020 18:57:00 +0200
Subject: add cond_jump instruction together with bench

---
 tclasm.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tclasm.tcl')

diff --git a/tclasm.tcl b/tclasm.tcl
index 1f716ee..cafe99f 100644
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -195,3 +195,12 @@ proc div {} {
 proc mul {} {
     puts 0011000000000011
 }
+
+
+proc _cond_jump {address_part} {
+    puts 011100001[__to_binary $address_part 7]
+}
+
+proc cond_jump {address} {
+    _with_im _cond_jump $address
+}
-- 
cgit v1.2.3