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

Added ISTTOK:central:ELCO-Enable. PV and State Machine

Browse Source 
Signed-off-by: Bernardo Carvalho <bernardo.carvalho@tecnico.ulisboa.pt>
This commit is contained in:
Bernardo Carvalho
2023-12-05 18:19:42 +00:00
parent b84e2c3cd2
commit d27b978ff4
3 changed files with 128 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -267,14 +267,23 @@ record( bo, "$(P)$(R)RPump2-Valve" ) {
################################
record(bo, "$(P)$(R)VVessel-Filament" ) {
field(DESC,"Vacuum Vessel Filament power")
# record(bo, "$(P)$(R)FilamentOnOff" ) {
field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B4 PP" )
field( ZNAM, "On" )
field( ONAM, "Off" )
field(VAL,"1")
field(PINI,"YES")
field( ZNAM, "On" )
field( ONAM, "Off" )
field(VAL,"1")
field(PINI,"YES")
}
################################
# ELCO Security Relay #
################################
record(bo, "$(P)$(R)ELCO-Enable") {
field(DESC,"ELCO Charging Relay Enable")
field(OUT, "$(P)$(R)PCF8574:60:REGISTER.B5 PP" )
field(ZNAM, "On" )
field(ONAM, "Off" )
field(VAL,"1")
field(ZSV,"MINOR")
}
############
# NOT USED #
############

16
epics/iocs/ISTTOKrpi/ISTTOKrpiApp/src/IsttokSeqExec.stt
View File

@@ -247,6 +247,9 @@ assign IsttokClean_PrimContactor to "ISTTOK:central:Clean-PrimContactor";
short IsttokClean_PrimPneuBreaker;
assign IsttokClean_PrimPneuBreaker to "ISTTOK:central:Clean-PrimPneuBreaker";
short IsttokElco_Enable;
assign IsttokElco_Enable to "ISTTOK:central:ELCO-Enable";
short IsttokWaitTimer;
assign IsttokWaitTimer to "ISTTOK:central:COUNTDOWN";
monitor IsttokWaitTimer;
@@ -337,6 +340,9 @@ ss PulseSequence {
IsttokVVessel_Filament = PCF_RELAY_OFF;
pvPut(IsttokVVessel_Filament);
IsttokElco_Enable= PCF_RELAY_OFF;
pvPut(IsttokElco_Enable);
IsttokGasIS_Valves = SEEED_RELAY_OFF;
pvPut(IsttokGasIS_Valves);
@@ -751,6 +757,10 @@ ss PulseSequence {
errlogSevPrintf(MAJOR, "%s\n",msg);
IsttokVVessel_Filament = PCF_RELAY_OFF;
pvPut(IsttokVVessel_Filament);
IsttokElco_Enable= PCF_RELAY_OFF;
pvPut(IsttokElco_Enable);
}
when (delay(1.0) && (IsttokEmergency == OFF) && (IsttokOPSTATE == POS_WaitShot || IsttokOPSTATE==POS_Clean) ){
/* Pulse state change to Idle */
@@ -1182,6 +1192,9 @@ ss ShotSequence {
when( IsttokTTSystem_tzero == 0 ){
strcpy(msg, "Trigger received...");
pvPut(msg);
IsttokElco_Enable= PCF_RELAY_ON;
pvPut(IsttokElco_Enable);
IsttokWaitTimer = -70;
pvPut(IsttokWaitTimer);
WSHOTINGSTATE = WSHTST_Shooting2;
@@ -1293,6 +1306,9 @@ ss ShotSequence {
strcpy(msg, "Buzzer 2-Sound" );
pvPut(msg);
errlogSevPrintf(NO_ALARM, "%s\n", msg);
IsttokElco_Enable= PCF_RELAY_OFF;
pvPut(IsttokElco_Enable);
IsttokBuzzer = SEEED_RELAY_PULSE;
pvPut(IsttokBuzzer);
strcpy(msg, "Filament ON");