From bf0d445031e08f0d22d207c12384e96731adc686 Mon Sep 17 00:00:00 2001
From: bernardo carvalho <bernardo.carvalho@tecnico.ulisboa.pt>
Date: Fri, 7 May 2021 15:07:37 +0100
Subject: [PATCH] changeg pfiffer interface

---
 .../ISTTOKrpi2App/Db/ISTTOKpfeiffer.db        | 31 +++++++++++++------
 .../ISTTOKrpi2App/Db/pfeiffer.proto           |  8 ++---
 .../ISTTOKrpi2/iocBoot/iocISTTOKrpi2/st.cmd   |  6 +++-
 3 files changed, 31 insertions(+), 14 deletions(-)

diff --git a/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/ISTTOKpfeiffer.db b/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/ISTTOKpfeiffer.db
index 577e88b..f2d6a7c 100644
--- a/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/ISTTOKpfeiffer.db
+++ b/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/ISTTOKpfeiffer.db
@@ -3,7 +3,7 @@ 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, "1 second")
+#	field (SCAN, "1 second")
 	field (FLNK, "$(P)$(R)VVessel-Pressure")
 }
 record (longin, "$(P)$(R)P001:E")
@@ -18,14 +18,19 @@ record (calc, "$(P)$(R)VVessel-Pressure")
 	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(HHSV,"MAJOR")
+        field(HSV, "MINOR")
 }
-
+# 8/5/2021 Only sensor 2 is working. Running with dspIC
 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, "2 second")
+	field (SCAN, "I/O Intr")
+#	field (SCAN, "2 second")
 	field (FLNK, "$(P)$(R)RPump1-Pressure")
 }
 record (longin, "$(P)$(R)P002:E")
@@ -40,8 +45,8 @@ record (calc, "$(P)$(R)RPump1-Pressure")
 	field(CALC, "(A*0.001)*10.0**(B-20)")
 	field(PREC, "3") 
 	field(EGU, "mBar")
-#   field(HIHI,"1.0e-1")
-#   field(HIGH,"5.0e-3")
+        field(HIHI,"1.0e-1")
+        field(HIGH,"5.0e-2")
 #   field(LOW, "20.0")
 #   field(LOLO,"0.0")
    field(HHSV,"MAJOR")
@@ -55,7 +60,7 @@ 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 (SCAN, "1 second")
 #	field (SCAN, "I/O Intr")
 	field (FLNK, "$(P)$(R)TMPump1-PressureAdmission")
 }
@@ -72,6 +77,14 @@ record (calc, "$(P)$(R)TMPump1-PressureAdmission")
 	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, "20.0")
+#   field(LOLO,"0.0")
+   field(HHSV,"MAJOR")
+   field(HSV, "MINOR")
+#   field(LSV, "MINOR")
+#   field(LLSV,"MAJOR")  
 }
 
 
@@ -80,7 +93,7 @@ record (longin, "$(P)$(R)P004:M")
 	field (DESC, "getPressure004 Mantissa $(bus)")
 	field (DTYP, "stream")
 	field (INP, "@pfeiffer.proto getPressure004($(P)$(R)P004:E) $(bus)")
-	field (SCAN, "1 second")
+#	field (SCAN, "1 second")
 	field (FLNK, "$(P)$(R)RPump2-Pressure")
 }
 record (longin, "$(P)$(R)P004:E")
@@ -100,8 +113,8 @@ record (calc, "$(P)$(R)RPump2-Pressure")
 #   field(HIGH,"5.0e-3")
 #   field(LOW, "20.0")
 #   field(LOLO,"0.0")
-   field(HHSV,"MAJOR")
-   field(HSV, "MINOR")
+#   field(HHSV,"MAJOR")
+#   field(HSV, "MINOR")
 #   field(LSV, "MINOR")
 #   field(LLSV,"MAJOR")  
 }
diff --git a/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/pfeiffer.proto b/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/pfeiffer.proto
index 527ef03..bcb4149 100644
--- a/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/pfeiffer.proto
+++ b/epics/iocs/ISTTOKrpi2/ISTTOKrpi2App/Db/pfeiffer.proto
@@ -1,17 +1,17 @@
 Terminator=CR; 
-MaxInput = 20;
+#MaxInput = 20;
 
 # in millisecond
-#ReadTimeout = 2000;
-ReplyTimeout = 250;
+ReadTimeout = 1500;
+#ReplyTimeout = 250;
 
 # Using redirection to read 2 records, mantissa and exponent
 getPressure001 {
     out "0010074002=?106";
     in  "0011074006%4u%(\$1)2u%+<sum8>";
 }
+#    out "0020074002=?107";
 getPressure002 {
-    out "0020074002=?107";
     in  "0021074006%4u%(\$1)2u%+<sum8>";
 }
 getPressure003 {
diff --git a/epics/iocs/ISTTOKrpi2/iocBoot/iocISTTOKrpi2/st.cmd b/epics/iocs/ISTTOKrpi2/iocBoot/iocISTTOKrpi2/st.cmd
index c553ca0..0f263a6 100755
--- a/epics/iocs/ISTTOKrpi2/iocBoot/iocISTTOKrpi2/st.cmd
+++ b/epics/iocs/ISTTOKrpi2/iocBoot/iocISTTOKrpi2/st.cmd
@@ -26,7 +26,11 @@ asynSetOption("RS0", 0, "clocal", "Y")
 asynSetOption("RS0", 0, "crtscts", "N")
 
 dbLoadRecords("db/ISTTOKpfeiffer.db","P=ISTTOK:,R=vacuum:,bus=RS0")
-
+# Uncomment to Debug STREAM serial activity
+var streamError 1
+var streamDebug 1
+streamSetLogfile("stream_logfile.txt")
+ 
 cd "${TOP}/iocBoot/${IOC}"
 iocInit