bernardo/ISTTOK
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

drvI2C working ?

Browse Source
This commit is contained in:
Bernardo Carvalho
2021-05-12 11:04:00 +01:00
parent 9f1e47c424
commit 9007221515
7 changed files with 243 additions and 247 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKmachineControl.db
View File

@@ -23,22 +23,18 @@
### 24V commands - Optocoupler Out### ### 24V commands - Optocoupler Out###
##################################### #####################################
record(bo, "$(P)$(R)TMPump1-ControllerOn" ) { record(bo, "$(P)$(R)TMPump1-ControllerOn" ) {
# field(DESC,"Sinal p/ TMP 1, Liga a alimentação do controlador, vai a HIGH e depois a LOW") field(DESC,"Signal to TMP 1, goes HIGH and LW")
# field( ZNAM, "Off" )record(bo, "$(P)$(R)TMPControllerOn" ) {
field(ZNAM, "Off" ) field(ZNAM, "Off" )
field(ONAM, "Pulse" ) field(ONAM, "Pulse" )
field(HIGH, "2.5") field(HIGH, "2.5")
field(FLNK, "$(P)$(R)TMPump1-ControllerOnInv" ) field(FLNK, "$(P)$(R)TMPump1-ControllerOnInv" )
field(VAL,"0") field(VAL,"0")
# field( FLNK, "$(P)$(R)TMPControllerOnInv" )
} }
record(calcout, "$(P)$(R)TMPump1-ControllerOnInv" ) { record(calcout, "$(P)$(R)TMPump1-ControllerOnInv") {
#record(calcout, "$(P)$(R)TMPControllerOnInv" ) { field(INPA, "$(P)$(R)TMPump1-ControllerOn NPP MS")
field( INPA, "$(P)$(R)TMPControllerOn NPP MS" ) field(OUT, "$(P)$(R)PCF8574:56:REGISTER.B0 PP MS")
field( OUT, "$(P)$(R)PCF8574:56:REGISTER.B0 PP MS" ) field(OOPT, "On Change")
field( OOPT, "On Change" ) field(CALC, "A?0:1")
field( CALC, "A?0:1" )
} }
record(bo, "$(P)$(R)TMPump1-ControllerOff" ) { record(bo, "$(P)$(R)TMPump1-ControllerOff" ) {
@@ -47,16 +43,15 @@ record(bo, "$(P)$(R)TMPump1-ControllerOff" ) {
field(ZNAM, "Off" ) field(ZNAM, "Off" )
field(ONAM, "Pulse" ) field(ONAM, "Pulse" )
field(HIGH, "2.5") field(HIGH, "2.5")
#field( FLNK, "$(P)$(R)TMPControllerOffInv" )
field(FLNK, "$(P)$(R)TMPump1-ControllerOffInv" ) field(FLNK, "$(P)$(R)TMPump1-ControllerOffInv" )
field(VAL,"0") field(VAL,"0")
} }
record(calcout, "$(P)$(R)TMPump1-ControllerOffInv") { record(calcout, "$(P)$(R)TMPump1-ControllerOffInv") {
field( INPA, "$(P)$(R)TMPump1-ControllerOff NPP MS" ) field(INPA, "$(P)$(R)TMPump1-ControllerOff NPP MS" )
field( OUT, "$(P)$(R)PCF8574:56:REGISTER.B1 PP MS") field(OUT, "$(P)$(R)PCF8574:56:REGISTER.B1 PP MS")
field( OOPT, "On Change" ) field(OOPT, "On Change")
field( CALC, "A?0:1" ) field(CALC, "A?0:1")
} }
record(bo, "$(P)$(R)TMPump1-MotorOn" ) { record(bo, "$(P)$(R)TMPump1-MotorOn" ) {

16
epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKpcf8574.db
View File

@@ -19,7 +19,7 @@
################################################### ###################################################
record( mbboDirect, "$(P)$(R)PCF8574:56:REGISTER") { record( mbboDirect, "$(P)$(R)PCF8574:56:REGISTER") {
field(DTYP, "stream") field(DTYP, "stream")
field(OUT, "@pcf8574.proto wReg(56) I2C") field(OUT, "@pcf8574.proto wReg(56) $(BUS)")
field(SHFT, "0") field(SHFT, "0")
field(NOBT, "8") field(NOBT, "8")
field(VAL, 255) field(VAL, 255)
@@ -28,7 +28,7 @@ record( mbboDirect, "$(P)$(R)PCF8574:56:REGISTER") {
record( mbbiDirect, "$(P)$(R)PCF8574:56:REGISTER:READ" ) { record( mbbiDirect, "$(P)$(R)PCF8574:56:REGISTER:READ" ) {
field(DTYP, "stream") field(DTYP, "stream")
field(INP, "@pcf8574.proto rReg(56) I2C") field(INP, "@pcf8574.proto rReg(56) $(BUS)")
field(NOBT, "8") field(NOBT, "8")
field(SCAN, "1 second") field(SCAN, "1 second")
field(FLNK, "$(P)$(R)PCF8574:56:REGISTER:READ:FNOUT") field(FLNK, "$(P)$(R)PCF8574:56:REGISTER:READ:FNOUT")
@@ -39,7 +39,7 @@ record( mbbiDirect, "$(P)$(R)PCF8574:56:REGISTER:READ" ) {
################################################### ###################################################
record( mbboDirect, "$(P)$(R)PCF8574:57:REGISTER") { record( mbboDirect, "$(P)$(R)PCF8574:57:REGISTER") {
field(DTYP, "stream") field(DTYP, "stream")
field(OUT, "@pcf8574.proto wReg(57) I2C") field(OUT, "@pcf8574.proto wReg(57) $(BUS)")
field(SHFT, "0") field(SHFT, "0")
field(NOBT, "8") field(NOBT, "8")
field(VAL, 255) field(VAL, 255)
@@ -48,7 +48,7 @@ record( mbboDirect, "$(P)$(R)PCF8574:57:REGISTER") {
record( mbbiDirect, "$(P)$(R)PCF8574:57:REGISTER:READ" ) { record( mbbiDirect, "$(P)$(R)PCF8574:57:REGISTER:READ" ) {
field(DTYP, "stream") field(DTYP, "stream")
field(INP, "@pcf8574.proto rReg(57) I2C") field(INP, "@pcf8574.proto rReg(57) $(BUS)")
field(NOBT, "8") field(NOBT, "8")
field(SCAN, "1 second") field(SCAN, "1 second")
field(FLNK, "$(P)$(R)PCF8574:57:REGISTER:READ:FNOUT") field(FLNK, "$(P)$(R)PCF8574:57:REGISTER:READ:FNOUT")
@@ -59,7 +59,7 @@ record( mbbiDirect, "$(P)$(R)PCF8574:57:REGISTER:READ" ) {
################################################### ###################################################
record( mbboDirect, "$(P)$(R)PCF8574:60:REGISTER") { record( mbboDirect, "$(P)$(R)PCF8574:60:REGISTER") {
field( DTYP, "stream") field( DTYP, "stream")
field( OUT, "@pcf8574.proto wReg(60) I2C") field( OUT, "@pcf8574.proto wReg(60) $(BUS)")
field( SHFT, "0") field( SHFT, "0")
field( NOBT, "8") field( NOBT, "8")
field(VAL, 255) field(VAL, 255)
@@ -68,7 +68,7 @@ record( mbboDirect, "$(P)$(R)PCF8574:60:REGISTER") {
record( mbbiDirect, "$(P)$(R)PCF8574:60:REGISTER:READ" ) { record( mbbiDirect, "$(P)$(R)PCF8574:60:REGISTER:READ" ) {
field( DTYP, "stream") field( DTYP, "stream")
field( INP, "@pcf8574.proto rReg(60) I2C") field( INP, "@pcf8574.proto rReg(60) $(BUS)")
field(NOBT, "8") field(NOBT, "8")
field(SCAN, "1 second") field(SCAN, "1 second")
# field(FLNK, "$(P)$(R)PCF8574:60:REGISTER:READ:FNOUT") # field(FLNK, "$(P)$(R)PCF8574:60:REGISTER:READ:FNOUT")
@@ -80,7 +80,7 @@ record( mbbiDirect, "$(P)$(R)PCF8574:60:REGISTER:READ" ) {
################################################### ###################################################
record( mbboDirect, "$(P)$(R)PCF8574:61:REGISTER") { record( mbboDirect, "$(P)$(R)PCF8574:61:REGISTER") {
field( DTYP, "stream") field( DTYP, "stream")
field( OUT, "@pcf8574.proto wReg(61) I2C") field( OUT, "@pcf8574.proto wReg(61) $(BUS)")
field( SHFT, "0") field( SHFT, "0")
field( NOBT, "8") field( NOBT, "8")
field(VAL, 255) field(VAL, 255)
@@ -89,7 +89,7 @@ record( mbboDirect, "$(P)$(R)PCF8574:61:REGISTER") {
record( mbbiDirect, "$(P)$(R)PCF8574:61:REGISTER:READ" ) { record( mbbiDirect, "$(P)$(R)PCF8574:61:REGISTER:READ" ) {
field( DTYP, "stream") field( DTYP, "stream")
field( INP, "@pcf8574.proto rReg(61) I2C") field( INP, "@pcf8574.proto rReg(61) $(BUS)")
field(NOBT, "8") field(NOBT, "8")
field(SCAN, "1 second") field(SCAN, "1 second")
#field(PINI,"YES") #field(PINI,"YES")

18
epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKpcf8591.db
View File

@@ -17,9 +17,9 @@
##################################################### #####################################################
# Read/Write pcf8591 register @ address 0x48=d72 ### # # Read/Write pcf8591 register @ address 0x48=d72 ### #
##################################################### #####################################################
record( mbboDirect, "$(P)$(R)PCF8591:72:CTRLREGISTER") { record(mbboDirect, "$(P)$(R)PCF8591:72:CTRLREGISTER") {
field(DTYP, "stream") field(DTYP, "stream")
field(OUT, "@pcf8591.proto wReg(72) I2C") field(OUT, "@pcf8591.proto wReg(72) $(BUS)")
field(SHFT, "0") field(SHFT, "0")
field(NOBT, "8") field(NOBT, "8")
field(VAL, 255) field(VAL, 255)
@@ -28,7 +28,7 @@ record( mbboDirect, "$(P)$(R)PCF8591:72:CTRLREGISTER") {
# Receiving two bytes. last one counts # Receiving two bytes. last one counts
record( longin, "$(P)$(R)PCF8591:72:ADC_CH1" ) { record( longin, "$(P)$(R)PCF8591:72:ADC_CH1" ) {
field(DTYP, "stream") field(DTYP, "stream")
field(INP, "@pcf8591.proto rConvAdc0(72) I2C") field(INP, "@pcf8591.proto rConvAdc0(72) $(BUS)")
} }
record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH1" ) { record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH1" ) {
field(INPA, "$(P)$(R)PCF8591:72:ADC_CH1 PP NMS") field(INPA, "$(P)$(R)PCF8591:72:ADC_CH1 PP NMS")
@@ -48,18 +48,18 @@ record( ai, "$(P)$(R)TMPump2-Speed" ) {
field(HOPR, "5000" ) field(HOPR, "5000" )
field(LOPR, "0" ) field(LOPR, "0" )
field(LOW, "200.0") field(LOW, "200.0")
# # field(LOLO,"0.0") # field(LOLO,"0.0")
field(LSV, "MINOR") field(LSV, "MINOR")
# # field(LLSV,"MAJOR") # field(LLSV,"MAJOR")
} }
record( longin, "$(P)$(R)PCF8591:72:ADC_CH2" ) { record( longin, "$(P)$(R)PCF8591:72:ADC_CH2" ) {
field(DTYP, "stream") field(DTYP, "stream")
field(INP, "@pcf8591.proto rConvAdc1(72) I2C") field(INP, "@pcf8591.proto rConvAdc1(72) $(BUS)")
} }
record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH2" ) { record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH2" ) {
field(INPA, "$(P)$(R)PCF8591:72:ADC_CH2 PP NMS") field(INPA, "$(P)$(R)PCF8591:72:ADC_CH2 PP NMS")
# LSB i=last byte received # LSB i=last byte received
field(CALC, " (A & 255)" ) field(CALC, "(A & 255)" )
} }
record( ai, "$(P)$(R)TMPump2-Current" ) { record( ai, "$(P)$(R)TMPump2-Current" ) {
@@ -82,7 +82,7 @@ record( ai, "$(P)$(R)TMPump2-Current" ) {
# Receiving two bytes. last one counts # Receiving two bytes. last one counts
record( longin, "$(P)$(R)PCF8591:72:ADC_CH3" ) { record( longin, "$(P)$(R)PCF8591:72:ADC_CH3" ) {
field(DTYP, "stream") field(DTYP, "stream")
field(INP, "@pcf8591.proto rConvAdc2(72) I2C") field(INP, "@pcf8591.proto rConvAdc2(72) $(BUS)")
} }
record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH3" ) { record( calc, "$(P)$(R)PCF8591:72:BYTE2_CH3" ) {
field(INPA, "$(P)$(R)PCF8591:72:ADC_CH3 PP NMS") field(INPA, "$(P)$(R)PCF8591:72:ADC_CH3 PP NMS")
@@ -110,7 +110,7 @@ record(ai, "$(P)$(R)Shot-TorPSCurrentImage" ) {
record( longout, "$(P)$(R)PCF8591:72:DAC") { record( longout, "$(P)$(R)PCF8591:72:DAC") {
field(DTYP, "stream") field(DTYP, "stream")
field(OUT, "@pcf8591.proto wDac(72) I2C") field(OUT, "@pcf8591.proto wDac(72) $(BUS)")
field(DRVH, "255" ) field(DRVH, "255" )
field(DRVL, "0" ) field(DRVL, "0" )
field(VAL, 128) field(VAL, 128)

2
epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/pcf8574.proto
View File

@@ -1,5 +1,5 @@
Terminator = ""; Terminator = "";
LockTimeout = 200; LockTimeout = 500;
ReplyTimeout = 100; ReplyTimeout = 100;
ReadTimeout = 100; ReadTimeout = 100;
WriteTimeout = 100; WriteTimeout = 100;

2
epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/pcf8591.proto
View File

@@ -1,5 +1,5 @@
Terminator = ""; Terminator = "";
LockTimeout = 500; LockTimeout = 200;
ReplyTimeout = 100; ReplyTimeout = 100;
ReadTimeout = 100; ReadTimeout = 100;
WriteTimeout = 100; WriteTimeout = 100;

5
epics/iocs/ISTTOKrpi/iocBoot/iocISTTOKrpi/save/iocISTTOKrpi.sav
View File

@@ -1,4 +1,5 @@
# autosave R5.3 Automatically generated - DO NOT MODIFY - 210511-172433 # autosave R5.3 Automatically generated - DO NOT MODIFY - 210512-110358
! 1 channel(s) not connected - or not all gets were successful
ISTTOK:central:PULSE-NUMBER.VAL 0 ISTTOK:central:PULSE-NUMBER.VAL 0
ISTTOK:central:LogMessage.VAL ISTTOK:central:LogMessage.VAL
ISTTOK:central:LASTOPSTATE.VAL 5 ISTTOK:central:LASTOPSTATE.VAL 5
@@ -7,5 +8,5 @@ ISTTOK:central:PROCESS-MODE.VAL 0
ISTTOK:central:CLEANINGMANMODE.VAL 0 ISTTOK:central:CLEANINGMANMODE.VAL 0
ISTTOK:central:Emergency-UserButton.VAL 0 ISTTOK:central:Emergency-UserButton.VAL 0
ISTTOK:central:TMPump1-ManualValve.VAL 0 ISTTOK:central:TMPump1-ManualValve.VAL 0
ISTTOK:central:Shot-TorPSCurrent 1 #ISTTOK:central:Shot-TorPSCurrent Search Issued
<END> <END>

4
epics/iocs/ISTTOKrpi/iocBoot/iocISTTOKrpi/st.cmd
View File

@@ -21,7 +21,7 @@ drvAsynI2CConfigure( "I2C", "/dev/i2c-1", 1 )
dbLoadRecords("db/ISTTOKstates.db","P=ISTTOK:,R=central:") dbLoadRecords("db/ISTTOKstates.db","P=ISTTOK:,R=central:")
dbLoadRecords("db/ISTTOKpcf8574.db","P=ISTTOK:,R=central:,BUS=I2C") dbLoadRecords("db/ISTTOKpcf8574.db","P=ISTTOK:,R=central:,BUS=I2C")
dbLoadRecords("db/ISTTOKpcf8591.db","P=ISTTOK:,R=central:,BUS=I2C") dbLoadRecords("db/ISTTOKpcf8591.db","P=ISTTOK:,R=central:,BUS=I2C")
dbLoadRecords("db/ISTTOKtda8444.db","P=ISTTOK:,R=central:,BUS=I2C") #dbLoadRecords("db/ISTTOKtda8444.db","P=ISTTOK:,R=central:,BUS=I2C")
dbLoadRecords("db/ISTTOKmachineControl.db","P=ISTTOK:,R=central:") dbLoadRecords("db/ISTTOKmachineControl.db","P=ISTTOK:,R=central:")
## Load Serial drivers ## Load Serial drivers
@@ -44,7 +44,7 @@ drvAsynIPPortConfigure("L0","193.136.136.3:25",0,1,0)
dbLoadRecords("db/sendmail.db", "P=ISTTOK:,PORT=L0,R=central:,L=0,A=0") dbLoadRecords("db/sendmail.db", "P=ISTTOK:,PORT=L0,R=central:,L=0,A=0")
# Uncomment to Debug STREAM serial activity # Uncomment to Debug STREAMDEVICE serial activity
#var streamError 1 #var streamError 1
#var streamDebug 1 #var streamDebug 1
streamSetLogfile("logfile.txt") streamSetLogfile("logfile.txt")