fixes, conditional if-not jump and translation of if-else instruction from wasm

1 files changed, 9 insertions, 0 deletions

diff --git a/tclasm.tcl b/tclasm.tcl
index 0dec4b0..000f2ca 100755
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -337,5 +337,14 @@ proc cond_jump {address} {
 }
 
 
+proc _cond_jump_n {address_part} {
+    puts 011100010[__to_binary $address_part 7]
+}
+
+proc cond_jump_n {address} {
+    _with_im _cond_jump_n $address
+}
+
+
 # translate instructions in the file given as command line argument
 source [lindex $argv 0]