CCR2,CCR2HT: exchange loops

this is needed to achieve 650 K on the hot stage

tcl/ccr2.config

@@ -5,13 +5,17 @@ defineTemperature tt
 makenv tt -driver [lsdriver] {
   lsc_sensor tm B -sensor x31319 -sensorname main
   lsc_sensor te A -sensor x31318 -sensorname screen
-  lsc_loop set -loop 2 -channel C -maxheater 100W -resist 25Ohm
+  if {[lsdriver] eq "336_lsc"} {
+    lsc_loop set -loop 2 -channel A -maxheater 100W -resist 25Ohm
+  }
+}
+if {[catch {
+  tt set/limit 310
+  tt set/prop 10
+  tt set/integ 2
+}]} {
+  error "CCR2 does not work with a LakeShore 340"
+} else {
+  appendVars tt.te/K/Screen_T/7 tt.p/W/Power/1
+  makeCCU4 ccr2ht
 }
-tt set/limit 310
-tt set/prop 10
-tt set/integ 2
-appendVars tt.te/K/Screen_T/7 tt.p/W/Power/1
-
-makeCCU4 ccr2ht
-
-