- Most instrument test files have been tested

- sinqcom undwerwent extension to cover more devices and is now more or
  less finished

insttest/morpheustest

@@ -2,7 +2,7 @@
 #-------------------------------------------------------------------------
 # This is the regression test for SICS on the MORPHEUS instrument
 #
-# Mark Koennecke, November 2006
+# Mark Koennecke, November 2006, March 2007
 #------------------------------------------------------------------------
 source sicstcldebug.tcl
 source insttestutil.tcl
@@ -20,10 +20,11 @@ config rights lnsmanager lnsSICSlns
 
 #--------- remember soz position
 set sompos [SICSValue som]
+standardPrelude $instrument
 
-set notList [list dil nv]
+set notList [list dil nv h k l cone utz uty sgx sgy scx scy chi phi po1 po2 \
+		sch sph atx aty ana]
 
-lappend commandList "counter setthreshold 1 0"
 lappend commandList "cscan som 0 .1 2 2"
 lappend commandList "sscan som 0. .1 3 2"
 lappend commandList "wwwsics"
@@ -31,12 +32,6 @@ lappend commandList "wwwsics"
 lappend varList [list "mono dd" 3.354 .1]
 lappend varList [list "mono ss" -1 .1]
 
-
-exe upload
-exe append counter setthreshold 1 0 
-exe append co timer 120
-exe forcesave insttestbatch.tcl
-
 lappend interruptList "drive som 90"
 lappend interruptList "co timer 120"
 lappend interruptList "exe insttestbatch.tcl"
@@ -58,9 +53,12 @@ set counters [runStandardTests par]
 #--------- put detector back where it was
 drive som $sompos
 
+standardRestore
+
 #------------ print a summary
 set inst [string toupper $instrument]
 puts stdout "Test Summary for $inst"
 printStandardSummary $counters
+exit