add load_store bench for new stack machine

1 files changed, 8 insertions, 0 deletions

diff --git a/tclasm.tcl b/tclasm.tcl
index 27c92ae..e552b4d 100644
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -76,6 +76,14 @@ proc _store+ {address_part} {
     puts 011011100[__to_binary $address_part 7]
 }
 
+proc _load {address_part} {
+    puts 010111100[__to_binary $address_part 7]
+}
+
+proc _load+ {address_part} {
+    puts 010011100[__to_binary $address_part 7]
+}
+
 proc _set_sp {address_part} {
     puts 010000000[__to_binary $address_part 7]
 }