add cond_jump instruction together with bench

1 files changed, 9 insertions, 0 deletions

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
+}