1 files changed, 9 insertions, 0 deletions
diff --git a/tclasm.tcl b/tclasm.tcl
index c5b1cb3..1f716ee 100644
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -150,6 +150,15 @@ proc set_sp {address} {
 }
 
 
+proc _jump {address_part} {
+    puts 010000001[__to_binary $address_part 7]
+}
+
+proc jump {address} {
+    _with_im _jump $address
+}
+
+
 # Instructions, that grow stack
 
 proc tee {} {