- Most instrument test files have been tested

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

insttest/amortest

@@ -21,6 +21,8 @@ config rights lnsmanager lnsSICSlns
 #--------- remember soz position
 set sozpos [SICSValue soz]
 
+standardPrelude $instrument count
+
 set notList [list chopperspeed chopper1phase chopper2phase ch1ph ch2ph chsp]
 lappend notList aby pby
 
@@ -68,10 +70,6 @@ lappend varList [list "d5b sign" -1 .1]
 lappend varList [list "com sign" -1 .1]
 lappend varList [list "cox sign" -1 .1]
 
-exe upload
-exe append counter setthreshold 1 0 
-exe append count timer 120
-exe forcesave insttestbatch.tcl
 
 lappend interruptList "drive soz 90"
 lappend interruptList "count timer 120"
@@ -107,6 +105,7 @@ if {$det == 1} {
 }
 #--------- put detector back where it was
 drive soz $sozpos
+standardRestore 
 
 #------------ print a summary
 set inst [string toupper $instrument]
@@ -114,3 +113,4 @@ puts stdout "Test Summary for $inst"
 printStandardSummary $counters
 puts stdout "Chopper NOT tested!!"
 
+exit