WIP on basic config. Amplifier ON works.. WIP

2021-03-16 16:53:29 +01:00
parent 10e2935483
commit 54949701d1
4 changed files with 226 additions and 13 deletions
--- a/ecmc_plugin_socketcan/ecmc_plugin_socketcanApp/Db/pmu905BasicConfig.template
+++ b/ecmc_plugin_socketcan/ecmc_plugin_socketcanApp/Db/pmu905BasicConfig.template
@@ -0,0 +1,119 @@
+###########################################################################
+############## Byte 0
+record(bo,"$(P)CAN${CH_ID}-PowerOnCmd") {  
+  field(DESC, "Power on")
+  field(VAL,  "0")  
+  field(ONAM, "On")
+  field(ZNAM, "Off")
+  field(OUT,  "$(P)CAN${CH_ID}-BasicConfigB0_.B0")
+  field(FLNK, "$(P)CAN${CH_ID}-BasicConfigB0_.PROC")
+}
+
+# Probably not valid for pmu905 (see note bottom in table)
+#record(bo,"$(P)CAN${CH_ID}-PEAK_AV") {  
+#  field(DESC, "PEAK/AV")
+#  field(VAL,  "0")  
+#  field(ONAM, "PEAK")
+#  field(ZNAM, "AV")
+#  field(OUT,  "$(P)CAN${CH_ID}-BasicConfigB0_.B1")
+#  field(FLNK, "$(P)CAN${CH_ID}-BasicConfigB0_.PROC")
+#}
+
+record(mbboDirect,"$(P)CAN${CH_ID}-BasicConfigB0_"){
+  info(asyn:READBACK,"1")
+  field(DESC, "Basic Config B0")
+  field(PINI, "1")
+  field(VAL,  "0")  
+  field(OUT,  "$(P)CAN${CH_ID}-SDO02-BasicConfig.[0]")
+  field(FLNK, "$(P)CAN${CH_ID}-SDO02-BasicConfig.PROC")
+}
+
+
+###########################################################################
+############## Byte 1..2 Vref 0..5000
+
+record(ao,"$(P)CAN${CH_ID}-VrefPwrCmd") {
+  field(DESC, "Vref 0..5000")
+  field(VAL,  "0")
+  field(OUT,  "")
+  field(EGU,  "mV")
+  field(PREC, "0")
+  field(FLNK, "$(P)CAN${CH_ID}-VrefPwrCmdCalcB1_.PROC")
+}
+
+# first byte
+record(calc, "$(P)CAN${CH_ID}-VrefPwrCmdCalcB1_") {
+  field(DESC, "Calc byte 1")
+  field(CALC, "A && 0xFF")
+  field(INPA, "$(P)CAN${CH_ID}-VrefPwrCmd.VAL")
+  field(FLNK, "$(P)CAN${CH_ID}-BasicConfigB1_.PROC")
+}
+
+record(ao,"$(P)CAN${CH_ID}-BasicConfigB1_"){  
+  field(DESC, "Basic config B1")
+  field(VAL,  "0")
+  field(PREC, "0")
+  field(OUT,  "$(P)CAN${CH_ID}-SDO02-BasicConfig.[1]")
+  #field(FLNK, "$(P)CAN${CH_ID}-SDO02-BasicConfig.PROC") # Only process when second byte is set
+}
+
+# second byte
+record(calc, "$(P)CAN${CH_ID}-VrefPwrCmdCalcB2_") {
+  field(DESC, "Calc byte 2")
+  field(CALC, "(A && 0xFF00) >> 8")
+  field(INPA, "$(P)CAN${CH_ID}-VrefPwrCmd.VAL")
+  field(FLNK, "$(P)CAN${CH_ID}-BasicConfigB2_.PROC")
+}
+
+record(ao,"$(P)CAN${CH_ID}-BasicConfigB1_"){  
+  field(DESC, "Basic config B1")
+  field(VAL,  "0")
+  field(PREC, "0")
+  field(OUT,  "$(P)CAN${CH_ID}-SDO02-BasicConfig.[2]")
+  field(FLNK, "$(P)CAN${CH_ID}-SDO02-BasicConfig.PROC")  # Process now!
+}
+
+###########################################################################
+############## Byte 3..4 Vref 4800..10000
+
+record(ao,"$(P)CAN${CH_ID}-VdcCtrlCmd") {
+  field(DESC, "Vref 4800..10000")
+  field(VAL,  "0")  
+  field(EGU,  "mV")
+  field(PREC, "0")
+  field(FLNK, "$(P)CAN${CH_ID}-VrefPwrCmdCalcB1_.PROC")
+}
+
+# third byte
+record(calc, "$(P)CAN${CH_ID}-VdcCtrlCmdCalcB3_") {
+  field(DESC, "Calc byte 3")
+  field(CALC, "A && 0xFF")
+  field(INPA, "$(P)CAN${CH_ID}-VdcCtrlCmd.VAL")
+  field(FLNK, "$(P)CAN${CH_ID}-BasicConfigB3_.PROC")
+}
+
+record(ao,"$(P)CAN${CH_ID}-BasicConfigB3_"){  
+  field(DESC, "Basic config B3")
+  field(VAL,  "0")
+  field(PREC, "0")
+  field(OUT,  "$(P)CAN${CH_ID}-SDO02-BasicConfig.[3]")
+  #field(FLNK, "$(P)CAN${CH_ID}-SDO02-BasicConfig.PROC") # Only process when second byte is set
+}
+
+# fourth byte
+record(calc, "$(P)CAN${CH_ID}-VrefPwrCmdCalcB4_") {
+  field(DESC, "Calc byte 4")
+  field(CALC, "(A && 0xFF00) >> 8")
+  field(INPA, "$(P)CAN${CH_ID}-VdcCtrlCmd.VAL")
+  field(FLNK, "$(P)CAN${CH_ID}-BasicConfigB4_.PROC")
+}
+
+record(ao,"$(P)CAN${CH_ID}-BasicConfigB4_"){  
+  field(DESC, "Basic config B4")
+  field(VAL,  "0")
+  field(PREC, "0")
+  field(OUT,  "$(P)CAN${CH_ID}-SDO02-BasicConfig.[4]")
+  field(FLNK, "$(P)CAN${CH_ID}-SDO02-BasicConfig.PROC")  # Process now!
+}
+
+# Byte 5..7 0