diff options
Diffstat (limited to 'tclasm.tcl')
-rwxr-xr-x | tclasm.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -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] |