add tee instruction

1 files changed, 3 insertions, 1 deletions

diff --git a/tclasm.tcl b/tclasm.tcl
index d326c00..99b01a1 100755
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -181,6 +181,8 @@ proc __encode_extended_instruction {instruction} {
 	return [__to_binary 5 9]
     } elseif {"$instruction" == "mul"} {
 	return [__to_binary 6 9]
+    } elseif {"$instruction" == "tee"} {
+	return [__to_binary 7 9]
     } else {
 	error "no such extended instruction: '$instruction'"
     }
@@ -306,7 +308,7 @@ proc cond_jump {{address im_address}} {
     }
 }
 
-foreach instruction {halt nop swap add sub div mul} {
+foreach instruction {halt nop swap add sub div mul tee} {
     proc $instruction {} "
         _extended_instruction $instruction
     "