119 lines
3.6 KiB
Plaintext
119 lines
3.6 KiB
Plaintext
#######################################################
|
|
# ### ### #
|
|
# ### EPICS Database for ### #
|
|
# ### I2C PCF8591 board ### #
|
|
# ### ### #
|
|
# ### author: B. Carvalho IPFN ### #
|
|
# ### ### #
|
|
# ### Ref 2.0; 2019-10-14 ### #
|
|
# ### ### #
|
|
# ### macros: ID I2C address of ADC ### #
|
|
# ### Description: ### #
|
|
# ### This DB file is using ### #
|
|
# ### stream(asynI2C) to read/write ### #
|
|
# ### an PCF8591 ADDA chip ### #
|
|
#######################################################
|
|
|
|
#####################################################
|
|
# Read/Write pcf8591 register @ address 0x48=d72 ### #
|
|
#####################################################
|
|
record(mbboDirect, "$(P)$(R)PCF8591:72:CTRLREGISTER") {
|
|
field(DTYP, "stream")
|
|
field(OUT, "@pcf8591.proto wReg(72) $(BUS)")
|
|
field(SHFT, "0")
|
|
field(NOBT, "8")
|
|
field(VAL, 255)
|
|
field(PINI,"YES")
|
|
}
|
|
# Receiving two bytes. last one counts
|
|
record( longin, "$(P)$(R)PCF8591:72:ADC_CH1" ) {
|
|
field(DTYP, "stream")
|
|
field(INP, "@pcf8591.proto rConvAdc0(72) $(BUS)")
|
|
}
|
|
record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH1" ) {
|
|
field(INPA, "$(P)$(R)PCF8591:72:ADC_CH1 PP NMS")
|
|
# extract LSB =last byte received
|
|
field(CALC, " (A & 255 )" )
|
|
}
|
|
|
|
record( ai, "$(P)$(R)TMPump2-Speed" ) {
|
|
field(DESC, "TMPump2-Speed")
|
|
field(DTYP, "Raw Soft Channel" )
|
|
field(INP, "$(P)$(R)PCF8591:72:BYTE2_CH1 PP NMS")
|
|
# field(SCAN, "1 second")
|
|
field(ASLO, "16" )
|
|
field(AOFF, "0" )
|
|
field(EGU, "RPM" )
|
|
field(PREC, "3" )
|
|
field(HOPR, "5000" )
|
|
field(LOPR, "0" )
|
|
field(LOW, "200.0")
|
|
# field(LOLO,"0.0")
|
|
field(LSV, "MINOR")
|
|
# field(LLSV,"MAJOR")
|
|
}
|
|
record( longin, "$(P)$(R)PCF8591:72:ADC_CH2" ) {
|
|
field(DTYP, "stream")
|
|
field(INP, "@pcf8591.proto rConvAdc1(72) $(BUS)")
|
|
}
|
|
record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH2" ) {
|
|
field(INPA, "$(P)$(R)PCF8591:72:ADC_CH2 PP NMS")
|
|
# LSB i=last byte received
|
|
field(CALC, "(A & 255)" )
|
|
}
|
|
|
|
record( ai, "$(P)$(R)TMPump2-Current" ) {
|
|
field(DESC, "TMPump2-Current")
|
|
field(DTYP, "Raw Soft Channel" )
|
|
field(INP, "$(P)$(R)PCF8591:72:BYTE2_CH2 PP NMS")
|
|
# field(SCAN, "1 second")
|
|
field(ASLO, "0.1" )
|
|
field(AOFF, "0" )
|
|
field(EGU, "mA" )
|
|
field(PREC, "3" )
|
|
field(HOPR, "50" )
|
|
field(LOPR, "0" )
|
|
field(LOW, "2.0")
|
|
# # field(LOLO,"0.0")
|
|
field(LSV, "MINOR")
|
|
# # field(LLSV,"MAJOR")
|
|
}
|
|
|
|
# Receiving two bytes. last one counts
|
|
record( longin, "$(P)$(R)PCF8591:72:ADC_CH3" ) {
|
|
field(DTYP, "stream")
|
|
field(INP, "@pcf8591.proto rConvAdc2(72) $(BUS)")
|
|
}
|
|
record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH3" ) {
|
|
field(INPA, "$(P)$(R)PCF8591:72:ADC_CH3 PP NMS")
|
|
# extract LSB =last byte received
|
|
field(CALC, " (A & 255 )" )
|
|
}
|
|
record(ai, "$(P)$(R)Shot-TorPSCurrentImage" ) {
|
|
field(DESC, "Toroidal Current Image")
|
|
field(DTYP, "Raw Soft Channel" )
|
|
field(INP, "$(P)$(R)PCF8591:72:BYTE2_CH3 PP NMS")
|
|
# field(SCAN, ".2 second")
|
|
field(ASLO, "39.215686275" )
|
|
field(AOFF, "0.0" )
|
|
field(EGU, "A" )
|
|
field(PREC, "3" )
|
|
field(HOPR, "10000" )
|
|
field(LOPR, "0" )
|
|
field(MDEL, "20" )
|
|
# field(LOW, "200.0")
|
|
# # field(LOLO,"0.0")
|
|
# field(LSV, "MINOR")
|
|
# # field(LLSV,"MAJOR")
|
|
}
|
|
|
|
|
|
record( longout, "$(P)$(R)PCF8591:72:DAC") {
|
|
field(DTYP, "stream")
|
|
field(OUT, "@pcf8591.proto wDac(72) $(BUS)")
|
|
field(DRVH, "255" )
|
|
field(DRVL, "0" )
|
|
field(VAL, 128)
|
|
field(PINI,"YES")
|
|
}
|