aboutsummaryrefslogtreecommitdiff
path: root/tclasm.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'tclasm.tcl')
-rwxr-xr-xtclasm.tcl45
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
}