- Most instrument test files have been tested

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

insttest/marstest

@@ -16,16 +16,20 @@ if {$argc > 0} {
 } 
 
 initSicsDebug $instrument
-config rights lnsmanager lnsSICSlns
+config rights lnsmanager lnsMARSlns
 
 set th [SICSValue th01]
 if {[string equal $instrument local]} {
     colldr tf 12
 }
 
+standardPrelude $instrument count
+set thresh [SICSValue "el737  getthrehold 1"]
+
 #---------- configuration
 lappend notList chopperspeed snailphase masterphase rabbitphase fourphase 
 lappend notList fivephase s1phase mphase s2phase s3phase s4phase mspeed
+lappend notList masterspeed
 
 lappend commandList "count timer 2"
 lappend commandList "repeat 2"
@@ -34,11 +38,6 @@ lappend commandList "marsupdateinfo"
 lappend commandList "colldr th 86."
 
 
-exe upload
-exe append count timer 120
-exe append count timer 120
-exe forcesave insttestbatch.tcl
-
 lappend interruptList "colldr th 77."
 lappend interruptList "count timer 120"
 lappend interruptList "exe insttestbatch.tcl"
@@ -74,9 +73,13 @@ if {$det == 1} {
 #--------- put detector back where it was
 colldr th $th
 
+standardRestore
+el737 setthreshold 1 $thresh
+
 #------------ print a summary
 set inst [string toupper $instrument]
 puts stdout "Test Summary for $inst"
 printStandardSummary $counters
 puts stdout "Choppers NOT tested!!"
 
+exit