1 files changed, 9 insertions, 0 deletions
diff --git a/tclasm.tcl b/tclasm.tcl
index 000f2ca..6a97b1f 100755
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -266,6 +266,15 @@ proc jump {address} {
 }
 
 
+proc _add_sp {number_part} {
+    puts 010000010[__to_binary $number_part 7]
+}
+
+proc add_sp {number} {
+    _with_im _add_sp $number
+}
+
+
 # Instructions, that grow stack
 
 proc tee {} {