add relational operations to stack machine

1 files changed, 45 insertions, 0 deletions

diff --git a/tclasm.tcl b/tclasm.tcl
index 6a97b1f..90adda5 100755
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -332,6 +332,51 @@ proc drop {} {
 }
 
 
+proc eq {} {
+    puts 0011000000000111
+}
+
+
+proc lt {} {
+    puts 0011000000001000
+}
+
+
+proc ult {} {
+    puts 0011000000001001
+}
+
+
+proc le {} {
+    puts 0011000000001010
+}
+
+
+proc ule {} {
+    puts 0011000000001011
+}
+
+
+proc gt {} {
+    puts 0011000000001100
+}
+
+
+proc ugt {} {
+    puts 0011000000001101
+}
+
+
+proc ge {} {
+    puts 0011000000001110
+}
+
+
+proc uge {} {
+    puts 0011000000001111
+}
+
+
 proc ret {} {
     puts 0011000010000000
 }