From 7a61f213fb9be8ab7f9bd0fb33940b21fa143b05 Mon Sep 17 00:00:00 2001 From: Wojciech Kosior Date: Sat, 3 Oct 2020 21:45:24 +0200 Subject: fixes, conditional if-not jump and translation of if-else instruction from wasm --- tclasm.tcl | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'tclasm.tcl') 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] -- cgit v1.2.3