From f37a50d6cfe86e6f5ebe368c0868878fd72aa884 Mon Sep 17 00:00:00 2001
From: Wojciech Kosior <kwojtus@protonmail.com>
Date: Sat, 5 Sep 2020 18:32:44 +0200
Subject: add jump instruction together with bench

---
 tclasm.tcl | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'tclasm.tcl')

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 {} {
-- 
cgit v1.2.3