add archive (files probably no longer used)

here we can find old files

tcl/archive/drivers/ttdummy.tcl

@@ -0,0 +1,31 @@
+namespace eval ttdummy {} {
+}
+
+proc stdConfig::ttdummy {} {
+  controller syncedprot
+
+  obj NvDummy wr 1.5
+  prop read ttdummy::update
+  prop write ttdummy::update
+  prop check ttdummy::update
+  prop target 1.5
+
+  kids "tt dummy" {
+    node set par 0
+
+    node tm par 1.5
+
+    node ts par 1.5
+
+    kids "settings" {
+      node curve -text par "undefined"
+    }
+  }
+}
+
+proc ttdummy::update {} {
+  sct update [sct target]
+  hset [sct]/tm [sct target]
+  hset [sct]/ts [sct target]
+  return idle
+}