diff options
Diffstat (limited to 'tclasm.tcl')
-rw-r--r-- | tclasm.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -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 +} |