diff --git a/programs/use_tcc.lua b/programs/use_tcc.lua
new file mode 100644
index 0000000000..4cf62be3cd
--- /dev/null
+++ b/programs/use_tcc.lua
@@ -0,0 +1,19 @@
+TCC = "kos32-tcc-kx -B" .. tup.getcwd().. "/develop/ktcc/trunk/kx"
+
+CFLAGS = "-I" ..tup.getcwd().. "/develop/ktcc/trunk/libc.obj/include"
+LFLAGS = ""
+LIBS = ""
+
+OBJS = {}
+
+function compile_tcc(input, output)
+  if not output then output = '%B.o' end
+  tup.append_table(OBJS, 
+        tup.foreach_rule(input, TCC .. " -c " .. CFLAGS .. " %f -o %o"), output
+  )
+end
+
+function link_tcc(input, output)
+  if not output then input,output = OBJS,input end
+  tup.rule(input, TCC .. " " .. CFLAGS .. " " .. LFLAGS .. " %f -o %o " .. LIBS .. " " .. tup.getconfig("KPACK_CMD"), output)
+end