-defConst("TIB", tib)
-defVar("#TIB", :numtib)
-defVar(">IN", :toin)
-
-KEY = defPrim("KEY", (reg) -> begin
- if toin >= numtib
-
- end
-
- return NEXT
-end)
-
-EMIT = defPrim("EMIT", (reg) -> begin
+#defConst("TIB", tib)
+#defVar("#TIB", :numtib)
+#defVar(">IN", :toin)
+#
+#KEY = defPrim("KEY", (reg) -> begin
+# if toin >= numtib
+#
+# end
+#
+# return NEXT
+#end)
+#
+#EMIT = defPrim("EMIT", (reg) -> begin
+#
+# return NEXT
+#end)
+#
+#WORD = defPrim("WORD", (reg) -> begin
+#
+# return NEXT
+#end)
+#
+#NUMBER = defPrim("NUMBER", (reg) -> begin
+#
+# return NEXT
+#end)
+#
+#### VM loop ####
+#function runVM(reg::Reg)
+# jmp = NEXT
+# while (jmp = callPrim(reg, jmp)) != 0 end
+#end