# vim: sta:et:sw=4:ts=4:sts=4
# 8/5/2021 Only sensor 2 is working. Running with dspIC
# 20/9/2021 sensors 1,2,3 are working. Running with dspIC
# 20/9/2021 sensors 1,2,3 are working. Running with tty USB
# 11/12/2024 replaced with Inficon Probes
#record (longin, "$(P)$(R)P001:M")
#{
#    field (DESC, "getPressure001  $(bus)")
#    field (DTYP, "stream")
#    field (INP, "@pfeiffer.proto getPressure001($(P)$(R)P001:E) $(bus)")
#   field (SCAN, "I/O Intr")
#    field (SCAN, "1 second")
#    field(PHAS, "1")
#    field (FLNK, "$(P)$(R)VVessel-Pressure")
#}
#record (longin, "$(P)$(R)P001:E")
#{
#    field (DESC, "Pressure001 exponent $(bus)")
#}
#record (ao, "$(P)$(R)VVessel-Pressure")
#{
#    field (DESC, "ISTTOK:central:VVessel-Pressure")
#
#    field(VAL,"2.0E-9")
#    # Maximize Status and Severity, MSS propagate all alarms
#    field(INPA, "$(P)$(R)P001:M MSS")
#    field(INPB, "$(P)$(R)P001:E")
#    field(CALC, "(A*0.001)* 10.0**(B-20)")
#    field(PREC, "3")
#    field(EGU, "mBar")
#    field(HIHI,"1.0e-2")
#    field(HIGH,"1.0e-3")
#    field(LOW,"1.0e-9")
#    field(LOLO,"0.5e-9")
#   field(LOW, "20.0")
#   field(LOLO,"0.0")
#   field(HHSV,"MAJOR")
#   field(HSV, "MINOR")
#   field(LSV, "MINOR")
#   field(LLSV,"MAJOR")
#}
#    out "0020074002=?107";
record (longin, "$(P)$(R)P002:M")
{
    field (DESC, "getPressure002 $(bus)")
    field (DTYP, "stream")
    field (INP, "@pfeiffer.proto getPressure002($(P)$(R)P002:E) $(bus)")
    field (SCAN, "1 second")
    field(PHAS, "0")
    field (FLNK, "$(P)$(R)RPump1-Pressure")
}
record (longin, "$(P)$(R)P002:E")
{
    field (DESC, "Pressure002 exponent $(bus)")
}
record (calc, "$(P)$(R)RPump1-Pressure")
{
    field (DESC, "ISTTOK:central:RPump1-Pressure")
    field(INPA, "$(P)$(R)P002:M MSS")
    field(INPB, "$(P)$(R)P002:E")
    field(CALC, "(A*0.001)*10.0**(B-20)")
    field(PREC, "3")
    field(EGU, "mBar")
    field(HIHI,"1.0e-1")
    field(HIGH,"5.0e-2")
#   field(LOW, "20.0")
#   field(LOLO,"0.0")
   field(HHSV,"MAJOR")
   field(HSV, "MINOR")
#   field(LSV, "MINOR")
#   field(LLSV,"MAJOR")
}

#    # out "0030074002=?108";
#record (longin, "$(P)$(R)P003:M")
#{
#    field (DESC, "getPressure003 Mantissa $(bus)")
#    field (DTYP, "stream")
#    field (INP, "@pfeiffer.proto getPressure003($(P)$(R)P003:E) $(bus)")
#    field (SCAN, "1 second")
#    field(PHAS, "2")
#   field (SCAN, "I/O Intr")
#    field (FLNK, "$(P)$(R)TMPump1-PressureAdmission")
#}

#record (longin, "$(P)$(R)P003:E")
#{
#    field (DESC, "Pressure003 Exponent $(bus)")
#}
#
#record (calc, "$(P)$(R)TMPump1-PressureAdmission")
#{
#    field(DESC, "ISTTOK:central:TMPump1-PressureAdmission")
#    field(INPA, "$(P)$(R)P003:M MSS")
#    field(INPB, "$(P)$(R)P003:E")
#    field(CALC, "(A*0.001)*10.0**(B-20)")
#    field(PREC, "3")
#    field(EGU, "mBar")
#    field(HIHI,"1.0e-1")
#    field(HIGH,"1.0e-2")
#    field(LOW,"1.0e-9")
#    field(LOLO,"0.5e-9")
#    field(HHSV,"MAJOR")
#    field(HSV, "MINOR")
#    field(LSV, "MINOR")
#    field(LLSV,"MAJOR")
#}

    # out "0040074002=?109";
    # NOT connected 26/10/2021

record(stringout,"$(P)$(R)RS485Debug") {
    field(DESC, "")
    field(DTYP, "stream")
    field(OUT, "@pfeiffer.proto debug $(bus)")
    field(VAL,"")
}

record(stringout,"$(P)$(R)RS485Debug-CS") {
    field(DESC, "")
    field(DTYP, "stream")
    field(OUT, "@pfeiffer.proto debugCS $(bus)")
    field(VAL,"")
}