fftf (amoroven) with pwm/low poeer switch

tcl/drivers/amoroven.tcl

@@ -8,6 +8,12 @@ proc stdConfig::amoroven {} {
   prop read amoroven::read_press
 
   kids "pressure, pump and gas" {
+    node highpower wr -int
+    prop enum 1
+    default 1
+    prop write amoroven::write_mode
+    prop read amoroven::read_mode
+
     node vacuumpump wr -int
     prop enum 1
     prop read amoroven::read_pump
@@ -93,3 +99,33 @@ proc amoroven::read_valve {cmd getcmd} {
   }
   return idle
 }
+
+proc amoroven::write_mode {} {
+  if {[sct target]} {
+    tt set/maxheater 0.05A
+    tt set/linearpower 75
+    tt set/manualpower 11.3
+    tt set/resist 100
+    tt set/maxpower 75
+    hsetprop /tt @manual_out 15
+    sct update 1
+  } else {
+    tt set/maxheater 2A
+    tt set/linearpower 0
+    tt set/manualpower 0
+    tt set/resist 10
+    tt set/maxpower 40
+    hsetprop /tt @manual_out 0
+    sct update 0
+  }
+  return idle
+}
+
+proc amoroven::read_mode {} {
+  if {"[hval /tt/set/maxheater]" eq "0.05A"} {
+    sct update 1
+  } else {
+    sct update 0
+  }
+  return idle
+}