add function calling (call, ret and drop instructions) with a testbench + bugfix in stack machine

1 files changed, 24 insertions, 0 deletions

diff --git a/tclasm.tcl b/tclasm.tcl
index f80863d..0dec4b0 100755
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -273,6 +273,11 @@ proc tee {} {
 }
 
 
+proc get_frame {} {
+    puts 0001000000000001
+}
+
+
 proc _const {value_part} {
     puts 010100000[__to_binary $value_part 7]
 }
@@ -282,6 +287,15 @@ proc const {value} {
 }
 
 
+proc _call {address_part} {
+    puts 010100001[__to_binary $address_part 7]
+}
+
+proc call {address} {
+    _with_im _call $address
+}
+
+
 # Instructions, that shrink stack
 
 proc add {} {
@@ -304,6 +318,16 @@ proc mul {} {
 }
 
 
+proc drop {} {
+    puts 0011000000000100
+}
+
+
+proc ret {} {
+    puts 0011000010000000
+}
+
+
 proc _cond_jump {address_part} {
     puts 011100001[__to_binary $address_part 7]
 }