stuff

tool/generators/instructions.tcl

@@ -0,0 +1,43 @@
+set instructions {
+    {syscall}
+    {sysret}
+    {sysexit}
+    {sysenter}
+    {leave}
+    {retf}
+    {retn}
+    {pause}
+    {hlt}
+    {lock}
+    {inc  register}
+    {dec  register}
+    {not  register}
+    {neg  register}
+    {mul  register}
+    {imul register}
+    {div  register}
+    {idiv register}
+    {inc  memory}
+    {dec  memory}
+    {not  memory}
+    {neg  memory}
+    {mul  memory}
+    {imul memory}
+    {div  memory}
+    {idiv memory}
+    {add register register}
+    {or  register register}
+    {adc register register}
+    {sbb register register}
+    {and register register}
+    {sub register register}
+    {xor register register}
+    {cmp register register}
+    {sar register immediate}
+    {mov register register}
+    {mov register immediate}
+}
+    
+proc malformed_instruction {i} {
+    error [format "Instruction {%s} is malformed" [join $i ", "]]
+}