diff --git a/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKvacummPumps.db b/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKvacummPumps.db index 9a42c8a..bfce745 100644 --- a/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKvacummPumps.db +++ b/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/Db/ISTTOKvacummPumps.db @@ -1,175 +1,8 @@ -########## -# Relays # -########## -record( bo, "$(P)$(R)RotatoryPump" ) { - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B7 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} -record( bo, "$(P)$(R)RotatoryValve" ) { - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B6 PP" ) - field( ZNAM, "Open" ) - field( ONAM, "Closed" ) -} - -############################## -# BUZZER ON/OFF # -############################## -record(bo, "$(P)$(R)BuzzerOnOff" ) { - field( ZNAM, "Off" ) - field( ONAM, "Pulse" ) - field( HIGH, "2.5") - field( FLNK, "$(P)$(R)BuzzerOnOffInv" ) -} -record(calcout, "$(P)$(R)BuzzerOnOffInv" ) { - field( INPA, "$(P)$(R)BuzzerOnOff NPP MS" ) - #field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B5 PP MS" ) - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B5 PP MS" ) - field( OOPT, "On Change" ) - field( CALC, "A?0:1" ) -} - -############################## -# LIGHTS ON/OFF # -############################## -record(bo, "$(P)$(R)LightsOnOff" ) { - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B4 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} -record(bi , "$(P)$(R)LightsOnOff-G" ) { - field( INP, "$(P)$(R)PCF8574:60:REGISTER:READ.B4 NPP NMS") - field( SCAN, "1 second") - field( ZNAM, "ON" ) - field( ONAM, "OFF" ) -} - -################################## -# GIS VALVES ON/OFF # -################################## -record(bo, "$(P)$(R)GISValvesOnOff" ) { - #field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B3 PP" ) - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B4 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -################################ -# FILAMENT ON/OFF # -################################ -record(bo, "$(P)$(R)FilamentOnOff" ) { - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B2 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -########################################## -# CAP BANK CONNECTOR ON/OFF # -########################################## -record(bo, "$(P)$(R)CapBankConOnOff" ) { - #field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B1 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -############################### -### PRIMARY CLEANING ON/OFF ### -############################### -record(bo, "$(P)$(R)PrimaryCleaningOnOff"){ - field( DESC, "Primary Cleaning OnOff") - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B1 PP" ) - field( ZNAM, "On") - field( ONAM, "Off") -} - -####################################### -# CAP BANK CHARGE ON/OFF # -####################################### -record(bo, "$(P)$(R)CapBankChargeOnOff" ) { - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B0 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -#################################### -# TIMING TRIGGER ON/OFF # -#################################### -record(bi , "$(P)$(R)TimingTriggerSignal" ) { - field( INP, "$(P)$(R)PCF8574:57:REGISTER:READ.B7") - field( SCAN, "1 second" ) - field( ZNAM, "OFF" ) - field( ONAM, "ON" ) -} - -########################################## -# CAP BANK DISCHARGE ON/OFF # -########################################## -record(bo, "$(P)$(R)CapBankDischargeOnOff" ) { - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B6 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -################################## -# PPS BAKING ON/OFF # -################################## -record(bo, "$(P)$(R)BakingPPSOnOff" ) { - #field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B5 PP" ) - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B5 PP MS" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -################################### -# TRANSFORMER ON/OFF # -################################### -#record(bo, "$(P)$(R)TransformerOnOff" ) { -# field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B4 PP" ) -# field( ZNAM, "On" ) -# field( ONAM, "Off" ) -#} - -###################################### -# TRANSFORMER500 ON/OFF # -###################################### -record(bo, "$(P)$(R)Trans500OnOff" ) { - #field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B4 PP" ) - field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B3 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -###################################### -# TRANS TO POWER ON/OFF # -###################################### -record(bo, "$(P)$(R)TransToPowerOnOff" ) { - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B3 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} - -############################# -# ROTARY PUMP2 # -############################# -record( bo, "$(P)$(R)RotatoryPump2" ) { - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B2 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) -} -record( bo, "$(P)$(R)RotatoryValve2" ) { - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B1 PP" ) - field( ZNAM, "Open" ) - field( ONAM, "Closed" ) -} - -############################## -# EMERGENCY MODE # -############################## -record( bo, "$(P)$(R)EmergencyModeOnOff" ) { - field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B0 PP" ) - field( ZNAM, "On" ) - field( ONAM, "Off") -} +############### +############### +# REGISTER 56 # +############### +############### ##################################### ### 24V commands - Optocoupler Out### @@ -180,42 +13,49 @@ record(bo, "$(P)$(R)TMPControllerOn" ) { field( HIGH, "2.5") field( FLNK, "$(P)$(R)TMPControllerOnInv" ) } + record(calcout, "$(P)$(R)TMPControllerOnInv" ) { field( INPA, "$(P)$(R)TMPControllerOn NPP MS" ) field( OUT, "$(P)$(R)PCF8574:56:REGISTER.B0 PP MS" ) field( OOPT, "On Change" ) field( CALC, "A?0:1" ) } + record(bo, "$(P)$(R)TMPControllerOff" ) { field( ZNAM, "Off" ) field( ONAM, "Pulse" ) field( HIGH, "2.5") field( FLNK, "$(P)$(R)TMPControllerOffInv" ) } + record(calcout, "$(P)$(R)TMPControllerOffInv") { field( INPA, "$(P)$(R)TMPControllerOff NPP MS" ) field( OUT, "$(P)$(R)PCF8574:56:REGISTER.B1 PP MS") field( OOPT, "On Change" ) field( CALC, "A?0:1" ) } + record(bo, "$(P)$(R)TMPMotorOn" ) { field( ZNAM, "Off") field( ONAM, "Pulse") field( HIGH, "2.5") field( FLNK, "$(P)$(R)TMPMotorOnInv") } + record(calcout, "$(P)$(R)TMPMotorOnInv" ) { field( INPA, "$(P)$(R)TMPMotorOn NPP MS") field( OUT, "$(P)$(R)PCF8574:56:REGISTER.B2 PP MS") field( OOPT, "On Change") field( CALC, "A?0:1" ) } + record(bo, "$(P)$(R)TMPMotorOff") { field( ZNAM, "Off") field( ONAM, "Pulse") field( HIGH, "2.5") field( FLNK, "$(P)$(R)TMPMotorOffInv") } + record(calcout, "$(P)$(R)TMPMotorOffInv") { field( INPA, "$(P)$(R)TMPMotorOff NPP MS") field( OUT, "$(P)$(R)PCF8574:56:REGISTER.B3 PP MS") @@ -233,124 +73,245 @@ record(bi , "$(P)$(R)Turbo_PW_Ind" ) { field( ONAM, "OFF" ) field(FLNK, "$(P)$(R)Turbo_Emergency") } + record(bi , "$(P)$(R)Turbo_Emergency") { field( INP, "$(P)$(R)PCF8574:56:REGISTER:READ.B5 NPP NMS") field( ZNAM, "ON" ) field( ONAM, "OFF" ) field(FLNK, "$(P)$(R)Turbo_Acceleration") } + record(bi , "$(P)$(R)Turbo_Acceleration") { field( INP, "$(P)$(R)PCF8574:56:REGISTER:READ.B6 NPP NMS") field( ZNAM, "ON" ) field( ONAM, "OFF" ) field(FLNK, "$(P)$(R)Turbo_NormalOperation") } + record(bi , "$(P)$(R)Turbo_NormalOperation" ) { field( INP, "$(P)$(R)PCF8574:56:REGISTER:READ.B7 NPP NMS") field( ZNAM, "ON" ) field( ONAM, "OFF" ) } -##################################### -### 24V commands - Optocoupler Out### -##################################### -record(bo, "$(P)$(R)TMP2ControllerOn" ) { - field( ZNAM, "Off" ) - field( ONAM, "Pulse" ) - field( HIGH, "2.5") - field( FLNK, "$(P)$(R)TMP2ControllerOnInv" ) -} -record(calcout, "$(P)$(R)TMP2ControllerOnInv" ) { - field( INPA, "$(P)$(R)TMP2ControllerOn NPP MS" ) - field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B0 PP MS" ) - field( OOPT, "On Change" ) - field( CALC, "A?0:1" ) -} -record(bo, "$(P)$(R)TMP2ControllerOff" ) { - field( ZNAM, "Off" ) - field( ONAM, "Pulse" ) - field( HIGH, "2.5") - field( FLNK, "$(P)$(R)TMP2ControllerOffInv" ) -} -record(calcout, "$(P)$(R)TMP2ControllerOffInv") { - field( INPA, "$(P)$(R)TMP2ControllerOff NPP MS" ) - field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B1 PP MS") - field( OOPT, "On Change" ) - field( CALC, "A?0:1" ) -} -record(bo, "$(P)$(R)TMP2MotorOn" ) { - field( ZNAM, "Off") - field( ONAM, "Pulse") - field( HIGH, "2.5") - field( FLNK, "$(P)$(R)TMP2MotorOnInv") -} -record(calcout, "$(P)$(R)TMP2MotorOnInv" ) { - field( INPA, "$(P)$(R)TMP2MotorOn NPP MS") - field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B2 PP MS") - field( OOPT, "On Change") - field( CALC, "A?0:1" ) -} -record(bo, "$(P)$(R)TMP2MotorOff") { - field( ZNAM, "Off") - field( ONAM, "Pulse") - field( HIGH, "2.5") - field( FLNK, "$(P)$(R)TMP2MotorOffInv") -} -record(calcout, "$(P)$(R)TMP2MotorOffInv") { - field( INPA, "$(P)$(R)TMP2MotorOff NPP MS") - field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B3 PP MS") - field( OOPT, "On Change") - field( CALC, "A?0:1") -} +############### +############### +# REGISTER 57 # +############### +############### -######################################### -# TOR-FIELD TRIGGER ON/OFF BO # -######################################### -record(bi, "$(P)$(R)TorFieldTriggerOnOff" ) { - #field( INP, "$(P)$(R)PCF8574:61:REGISTER:READ.B3 NPP NMS" ) - field( ZNAM, "On" ) - field( ONAM, "Off" ) - field( VAL, 1) -} - -############################# -### TMP2 Controller inputs### -############################# -record(bi , "$(P)$(R)Turbo2_PW_Ind" ) { - field( INP, "$(P)$(R)PCF8574:61:REGISTER:READ.B4 PP NMS") - field( SCAN, "1 second") - field( ZNAM, "ON" ) - field( ONAM, "OFF" ) - field(FLNK, "$(P)$(R)Turbo2_Emergency") -} +############################## +### TMP2 Controller Inputs ### +############################## record(bi , "$(P)$(R)Turbo2_Emergency") { - field( INP, "$(P)$(R)PCF8574:61:REGISTER:READ.B5 NPP NMS") + field( INP, "$(P)$(R)PCF8574:57:REGISTER:READ.B0 NPP NMS") field( ZNAM, "ON" ) field( ONAM, "OFF" ) field(FLNK, "$(P)$(R)Turbo2_Acceleration") } + record(bi , "$(P)$(R)Turbo2_Acceleration") { - field( INP, "$(P)$(R)PCF8574:61:REGISTER:READ.B6 NPP NMS") - field( ZNAM, "ON" ) - field( ONAM, "OFF" ) - field(FLNK, "$(P)$(R)Turbo2_NormalOperation") -} -record(bi , "$(P)$(R)Turbo2_NormalOperation" ) { - field( INP, "$(P)$(R)PCF8574:61:REGISTER:READ.B7 NPP NMS") + field( INP, "$(P)$(R)PCF8574:57:REGISTER:READ.B1 NPP NMS") field( ZNAM, "ON" ) field( ONAM, "OFF" ) } -####################### -###TMP1 Manual Valve### -####################### -record(bo, "$(P)$(R)TMPManualValve"){ - info(autosaveFields, "VAL") - field( DESC, "State of manual valve") - field( ZNAM, "Closed") - field( ONAM, "Open") +############################### +### TMP2 Controller Outputs ### +############################### +record(bo, "$(P)$(R)TMP2MotorOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B2 PP MS") + field( ZNAM, "ON") + field( ONAM, "OFF") } +############################## +# BUZZER ON/OFF # +############################## +record(bo, "$(P)$(R)BuzzerOnOff" ) { + field( ZNAM, "Off" ) + field( ONAM, "Pulse" ) + field( HIGH, "2.5") + field( FLNK, "$(P)$(R)BuzzerOnOffInv" ) +} +record(calcout, "$(P)$(R)BuzzerOnOffInv" ) { + field( INPA, "$(P)$(R)BuzzerOnOff NPP MS" ) + field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B3 PP MS" ) + field( OOPT, "On Change" ) + field( CALC, "A?0:1" ) +} + +############################## +# EMERGENCY MODE # +############################## +record( bo, "$(P)$(R)EmergencyOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:57:REGISTER.B4 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off") +} + +############ +# NOT USED # +############ +#$(P)$(R)PCF8574:57:REGISTER:READ.B5 +#$(P)$(R)PCF8574:57:REGISTER:READ.B6 + +#################################### +# TIMING TRIGGER ON/OFF # +#################################### +record(bi , "$(P)$(R)TimingTriggerSignal" ) { + field( INP, "$(P)$(R)PCF8574:57:REGISTER:READ.B7") + field( SCAN, "1 second" ) + field( ZNAM, "OFF" ) + field( ONAM, "ON" ) +} + +############### +############### +# REGISTER 60 # +############### +############### + +############################# +# ROTARY1 PUMP # +############################# +record( bo, "$(P)$(R)RotatoryPump" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B0 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +############################# +# ROTARY1 VALVE # +############################# +record( bo, "$(P)$(R)RotatoryValve" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B1 PP" ) + field( ZNAM, "Open" ) + field( ONAM, "Closed" ) +} + +############################# +# ROTARY2 PUMP # +############################# +record( bo, "$(P)$(R)RotatoryPump2" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B2 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +############################# +# ROTARY2 VALVE # +############################# +record( bo, "$(P)$(R)RotatoryValve2" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B3 PP" ) + field( ZNAM, "Open" ) + field( ONAM, "Closed" ) +} + +################################ +# FILAMENT ON/OFF # +################################ +record(bo, "$(P)$(R)FilamentOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B4 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +############################## +# LIGHTS ON/OFF # +############################## +record(bo, "$(P)$(R)LightsOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B5 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +############ +# NOT USED # +############ +#$(P)$(R)PCF8574:60:REGISTER:READ.B6 + +############################## +# TOR CLEAN CONTACTOR ON/OFF # +############################## +record(bo, "$(P)$(R)ToroidalCleanContactorOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:60:REGISTER.B7 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +############### +############### +# REGISTER 61 # +############### +############### + +############################ +# TOR CLEAN BREAKER ON/OFF # +############################ +record(bo, "$(P)$(R)ToroidalCleanBreakerOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B0 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +record(bo, "$(P)$(R)ToroidalShotEnableOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B1 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +record(bo, "$(P)$(R)ToroidalShotTriggerOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B2 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +####################################### +# CAP BANK CHARGE ON/OFF # +####################################### +record(bo, "$(P)$(R)CapBankChargeOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B3 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +######################################## +# PRIMARY CLEAN CONTACTOR ON/OFF # +######################################## +record(bo, "$(P)$(R)PrimaryCleanContactorOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B4 PP MS" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +#################################### +### PRIMARY CLEAN BREAKER ON/OFF ### +#################################### +record(bo, "$(P)$(R)PrimaryCleanBreakerOnOff"){ + field( DESC, "Primary Cleaning OnOff") + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B5 PP" ) + field( ZNAM, "On") + field( ONAM, "Off") +} + +################################## +# GIS VALVES ON/OFF # +################################## +record(bo, "$(P)$(R)GISValvesOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B6 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} + +########################################## +# CAP BANK DISCHARGE ON/OFF # +########################################## +record(bo, "$(P)$(R)CapBankDischargeOnOff" ) { + field( OUT, "$(P)$(R)PCF8574:61:REGISTER.B7 PP" ) + field( ZNAM, "On" ) + field( ONAM, "Off" ) +} ######################### ###Pressure Conditions### @@ -376,11 +337,12 @@ record(ai,"$(P)$(R)Bypass_Condition"){ field(VAL,"0") } -##################### -###Dummy Variables### -##################### -record(ao,"$(P)$(R)Pressure_TMP_admission"){ - field(VAL,"1.0e5") - field(PREC,"3") - field(EGU,"mBar") +####################### +###TMP1 Manual Valve### +####################### +record(bo, "$(P)$(R)TMPManualValve"){ + info(autosaveFields, "VAL") + field( DESC, "State of manual valve") + field( ZNAM, "Closed") + field( ONAM, "Open") } diff --git a/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/src/IsttokSeqExec.stt b/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/src/IsttokSeqExec.stt index 27530f6..2eaf0a6 100644 --- a/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/src/IsttokSeqExec.stt +++ b/epics/iocs/ISTTOKrpi/ISTTOKrpiApp/src/IsttokSeqExec.stt @@ -29,107 +29,125 @@ assign IsttokOPREQ to { "{unit}:central:OPREQ" }; monitor IsttokOPREQ; + short IsttokProcMode; assign IsttokProcMode to "{unit}:central:PROCESS-MODE"; monitor IsttokProcMode; + short IsttokProcReq; assign IsttokProcReq to "{unit}:central:PROCESS-REQ"; monitor IsttokProcReq; + short IsttokSTARTINGSTATE; assign IsttokSTARTINGSTATE to "{unit}:central:STARTINGSTATE"; monitor IsttokSTARTINGSTATE; + short IsttokSTOPPINGSTATE; assign IsttokSTOPPINGSTATE to "{unit}:central:STOPPINGSTATE"; monitor IsttokSTOPPINGSTATE; + short IsttokCLEANINGSTATE; assign IsttokCLEANINGSTATE to "{unit}:central:CLEANINGSTATE"; monitor IsttokCLEANINGSTATE; + short IsttokCLEANINGMASTATE; assign IsttokCLEANINGMASTATE to "{unit}:central:CLEANINGMASTATE"; monitor IsttokCLEANINGMASTATE; + short IsttokCLEANINGINOUTSTATE; assign IsttokCLEANINGINOUTSTATE to "{unit}:central:CLEANINGINOUTSTATE"; monitor IsttokCLEANINGINOUTSTATE; + short IsttokCLEANINGINOUTSTATE0; assign IsttokCLEANINGINOUTSTATE0 to "{unit}:central:CLEANINGINOUTSTATE0"; monitor IsttokCLEANINGINOUTSTATE0; + short IsttokCLEANINGINOUTSTATE1; assign IsttokCLEANINGINOUTSTATE1 to "{unit}:central:CLEANINGINOUTSTATE1"; monitor IsttokCLEANINGINOUTSTATE1; + short IsttokCLEANINGINOUTSTATE2; assign IsttokCLEANINGINOUTSTATE2 to "{unit}:central:CLEANINGINOUTSTATE2"; monitor IsttokCLEANINGINOUTSTATE2; + short IsttokCLEANINGINOUTSTATE3; assign IsttokCLEANINGINOUTSTATE3 to "{unit}:central:CLEANINGINOUTSTATE3"; monitor IsttokCLEANINGINOUTSTATE3; + short IsttokCLEANINGINOUTSTATE4; assign IsttokCLEANINGINOUTSTATE4 to "{unit}:central:CLEANINGINOUTSTATE4"; monitor IsttokCLEANINGINOUTSTATE4; + short IsttokCLEANINGINOUTSTATE5; assign IsttokCLEANINGINOUTSTATE5 to "{unit}:central:CLEANINGINOUTSTATE5"; monitor IsttokCLEANINGINOUTSTATE5; + short IsttokWSHOTINGSTATE; assign IsttokWSHOTINGSTATE to "{unit}:central:WSHOTINGSTATE"; monitor IsttokWSHOTINGSTATE; + short IsttokRotatoryPump; assign IsttokRotatoryPump to "{unit}:central:RotatoryPump"; + short IsttokRotatoryValve; assign IsttokRotatoryValve to "{unit}:central:RotatoryValve"; + short IsttokRotatoryPump2; assign IsttokRotatoryPump2 to "{unit}:central:RotatoryPump2"; + short IsttokRotatoryValve2; assign IsttokRotatoryValve2 to "{unit}:central:RotatoryValve2"; + short IsttokTMPControllerOff; assign IsttokTMPControllerOff to "{unit}:central:TMPControllerOff"; + short IsttokTMPControllerOn; assign IsttokTMPControllerOn to "{unit}:central:TMPControllerOn"; + short IsttokTMPMotorOff; assign IsttokTMPMotorOff to "{unit}:central:TMPMotorOff"; + short IsttokTMPMotorOn; assign IsttokTMPMotorOn to "{unit}:central:TMPMotorOn"; -short IsttokTMP2ControllerOff; -assign IsttokTMP2ControllerOff to "{unit}:central:TMP2ControllerOff"; -short IsttokTMP2ControllerOn; -assign IsttokTMP2ControllerOn to "{unit}:central:TMP2ControllerOn"; short IsttokTMP2MotorOff; -assign IsttokTMP2MotorOff to "{unit}:central:TMP2MotorOff"; +assign IsttokTMP2MotorOff to "{unit}:central:TMP2MotorOnOff"; + short IsttokTMP2MotorOn; -assign IsttokTMP2MotorOn to "{unit}:central:TMP2MotorOn"; +assign IsttokTMP2MotorOn to "{unit}:central:TMP2MotorOnOff"; short IsttokTurbo_NormalOperation; assign IsttokTurbo_NormalOperation to "{unit}:central:Turbo_NormalOperation"; monitor IsttokTurbo_NormalOperation; + short IsttokTurbo_PW_Ind; assign IsttokTurbo_PW_Ind to "{unit}:central:Turbo_PW_Ind"; monitor IsttokTurbo_PW_Ind; + short IsttokTurbo_Emergency; assign IsttokTurbo_Emergency to "{unit}:central:Turbo_Emergency"; monitor IsttokTurbo_Emergency; + short IsttokTMPManualValve; assign IsttokTMPManualValve to "{unit}:central:TMPManualValve"; monitor IsttokTMPManualValve; -short IsttokTurbo2_NormalOperation; -assign IsttokTurbo2_NormalOperation to "{unit}:central:Turbo2_NormalOperation"; -monitor IsttokTurbo2_NormalOperation; -short IsttokTurbo2_PW_Ind; -assign IsttokTurbo2_PW_Ind to "{unit}:central:Turbo2_PW_Ind"; -monitor IsttokTurbo2_PW_Ind; + short IsttokTurbo2_Emergency; assign IsttokTurbo2_Emergency to "{unit}:central:Turbo2_Emergency"; monitor IsttokTurbo2_Emergency; -short IsttokFSTriggerState; -assign IsttokFSTriggerState to "{unit}:central:FSTriggerState"; -monitor IsttokFSTriggerState; + float IsttokPressure_Primary1; assign IsttokPressure_Primary1 to "{unit}:vacuum:Pressure_Primary1"; monitor IsttokPressure_Primary1; + float IsttokPressure_Primary2; assign IsttokPressure_Primary2 to "{unit}:vacuum:Pressure_Primary2"; monitor IsttokPressure_Primary2; + float IsttokPressure_PrimaryCondition; assign IsttokPressure_PrimaryCondition to "{unit}:central:Pressure_PrimaryCondition"; monitor IsttokPressure_PrimaryCondition; + float IsttokPressure_Primary2Condition; assign IsttokPressure_Primary2Condition to "{unit}:central:Pressure_Primary2Condition"; monitor IsttokPressure_Primary2Condition; @@ -187,6 +205,7 @@ short NO_ALARM=0; short MINOR=1; short MAJOR=2; short INVALID=3; + short IsttokShotBuzzerOnOff; assign IsttokShotBuzzerOnOff to "{unit}:central:BuzzerOnOff"; monitor IsttokShotBuzzerOnOff; @@ -202,45 +221,49 @@ monitor IsttokShotLightsOnOffState; short IsttokShotGISValvesOnOff; assign IsttokShotGISValvesOnOff to "{unit}:central:GISValvesOnOff"; monitor IsttokShotGISValvesOnOff; + short IsttokShotFilamentOnOff; assign IsttokShotFilamentOnOff to "{unit}:central:FilamentOnOff"; monitor IsttokShotFilamentOnOff; -short IsttokShotCapBankConOnOff; -assign IsttokShotCapBankConOnOff to "{unit}:central:CapBankConOnOff"; -monitor IsttokShotCapBankConOnOff; + short IsttokShotCapBankChargeOnOff; assign IsttokShotCapBankChargeOnOff to "{unit}:central:CapBankChargeOnOff"; monitor IsttokShotCapBankChargeOnOff; + short IsttokShotCapBankDischargeOnOff; assign IsttokShotCapBankDischargeOnOff to "{unit}:central:CapBankDischargeOnOff"; monitor IsttokShotCapBankDischargeOnOff; -short IsttokShotTorFieldTriggerOnOff; -assign IsttokShotTorFieldTriggerOnOff to "{unit}:central:TorFieldTriggerOnOff"; -monitor IsttokShotTorFieldTriggerOnOff; -short IsttokShotTransToPowerOnOff; -assign IsttokShotTransToPowerOnOff to "{unit}:central:TransToPowerOnOff"; -monitor IsttokShotTransToPowerOnOff; -short IsttokShotTrans500OnOff; -assign IsttokShotTrans500OnOff to "{unit}:central:Trans500OnOff"; -monitor IsttokShotTrans500OnOff; -short IsttokShotBakingPPSOnOff; -assign IsttokShotBakingPPSOnOff to "{unit}:central:BakingPPSOnOff"; -monitor IsttokShotBakingPPSOnOff; + +short IsttokShotToroidalCleanContactorOnOff; +assign IsttokShotToroidalCleanContactorOnOff to "{unit}:central:ToroidalCleanContactorOnOff"; +monitor IsttokShotToroidalCleanContactorOnOff; + +short IsttokShotToroidalCleanBreakerOnOff; +assign IsttokShotToroidalCleanBreakerOnOff to "{unit}:central:ToroidalCleanBreakerOnOff"; +monitor IsttokShotToroidalCleanBreakerOnOff; + + +short IsttokShotPrimaryCleanContactorOnOff; +assign IsttokShotPrimaryCleanContactorOnOff to "{unit}:central:PrimaryCleanContactorOnOff"; +monitor IsttokShotPrimaryCleanContactorOnOff; + /*Relays and INPUT (Valleman Board) have negative Logic!*/ short RELAY_ON = 0; short RELAY_OFF= 1; short PCF_INPUT_ON = 0; short PCF_INPUT_OFF= 1; + short IsttokShotCountdown; assign IsttokShotCountdown to "{unit}:central:COUNTDOWN"; monitor IsttokShotCountdown; + string IsttokShotCountdownStart; assign IsttokShotCountdownStart to "{unit}:central:COUNTDOWN.SCAN"; monitor IsttokShotCountdownStart; -short IsttokEmergencyModeOnOff; -assign IsttokEmergencyModeOnOff to "{unit}:central:EmergencyModeOnOff"; -monitor IsttokEmergencyModeOnOff; +short IsttokEmergencyOnOff; +assign IsttokEmergencyOnOff to "{unit}:central:EmergencyOnOff"; +monitor IsttokEmergencyOnOff; short IsttokTimingTriggerSignal; assign IsttokTimingTriggerSignal to "{unit}:central:TimingTriggerSignal"; @@ -282,8 +305,8 @@ ss PulseSequence { IsttokProcMode = OFF; // UPON POWER-DOWN OR FAILURE PREVENT TO ENTER WAITSHOT ON POWER-UP! pvPut(IsttokProcMode); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokShotBuzzerOnOff = 0; pvPut(IsttokShotBuzzerOnOff); @@ -291,9 +314,6 @@ ss PulseSequence { IsttokShotCapBankChargeOnOff = 1; pvPut(IsttokShotCapBankChargeOnOff); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); - IsttokShotCapBankDischargeOnOff = 0; pvPut(IsttokShotCapBankDischargeOnOff); @@ -306,20 +326,11 @@ ss PulseSequence { IsttokShotLightsOnOff = 1; pvPut(IsttokShotLightsOnOff); - IsttokShotTorFieldTriggerOnOff = 1; - pvPut(IsttokShotTorFieldTriggerOnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); - - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); - - IsttokTMP2ControllerOff = 0; - pvPut(IsttokTMP2ControllerOff); - - IsttokTMP2ControllerOn = 0; - pvPut(IsttokTMP2ControllerOn); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokTMP2MotorOff = 0; pvPut(IsttokTMP2MotorOff); @@ -354,15 +365,6 @@ ss PulseSequence { pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); } - if ((IsttokTurbo2_PW_Ind == PCF_INPUT_OFF)) { - strcpy(msg, "TMP2 Controller is OFF"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - }else{ - strcpy(msg, "TMP2 Controller is ON"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - } } when (delay(5)) { strcpy(msg, "Initialization... DONE."); @@ -373,14 +375,14 @@ ss PulseSequence { } /*State Set Emergency*/ state Emergency { - when (delay(1.0) && (IsttokEmergencyModeOnOff == 0) && ((IsttokOPSTATE[0] == POS_WaitShot) || (IsttokOPSTATE[0] == POS_Clean)) ){ + when (delay(1.0) && (IsttokEmergencyOnOff == 0) && ((IsttokOPSTATE[0] == POS_WaitShot) || (IsttokOPSTATE[0] == POS_Clean)) ){ IsttokOPSTATE[0] = POS_Emergency; pvPut(IsttokOPSTATE[0]); strcpy(msg, "EMERGENCY: State Entry"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokEmergencyModeOnOff = 1; - pvPut(IsttokEmergencyModeOnOff ); + IsttokEmergencyOnOff = 1; + pvPut(IsttokEmergencyOnOff ); if ((IsttokShotCapBankChargeOnOff == 0)) { strcpy(msg, "EMERGENCY: CAPBANK Charge OFF"); pvPut(msg); @@ -388,13 +390,6 @@ ss PulseSequence { IsttokShotCapBankChargeOnOff = 1; pvPut(IsttokShotCapBankChargeOnOff); } - if ((IsttokShotCapBankConOnOff == 0)) { - strcpy(msg, "EMERGENCY: CAPBANK Conector OFF"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); - } if ((IsttokShotCapBankDischargeOnOff == 1)) { strcpy(msg, "EMERGENCY: CAPBANK Discharge ON"); pvPut(msg); @@ -425,14 +420,14 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Process; pvPut(IsttokOPSTATE[0]); } state Process - when (delay(1.0) && (IsttokEmergencyModeOnOff == 0) && (IsttokOPSTATE[0] == POS_Process)){ + when (delay(1.0) && (IsttokEmergencyOnOff == 0) && (IsttokOPSTATE[0] == POS_Process)){ IsttokOPSTATE[0] = POS_Emergency; pvPut(IsttokOPSTATE[0]); strcpy(msg, "State to Emergency"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokEmergencyModeOnOff = 1; - pvPut(IsttokEmergencyModeOnOff ); + IsttokEmergencyOnOff = 1; + pvPut(IsttokEmergencyOnOff ); if ((IsttokShotCapBankChargeOnOff == 0)) { strcpy(msg, "EMERGENCY: CAPBANK Charge OFF"); pvPut(msg); @@ -440,13 +435,6 @@ ss PulseSequence { IsttokShotCapBankChargeOnOff = 1; pvPut(IsttokShotCapBankChargeOnOff); } - if ((IsttokShotCapBankConOnOff == 0)) { - strcpy(msg, "EMERGENCY: CAPBANK Conector OFF"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); - } if ((IsttokShotCapBankDischargeOnOff == 1)) { strcpy(msg, "EMERGENCY: CAPBANK Discharge ON"); pvPut(msg); @@ -475,14 +463,14 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Process; pvPut(IsttokOPSTATE[0]); } state Process - when (delay(1.0) && (IsttokEmergencyModeOnOff == 0) && (IsttokOPSTATE[0] == POS_Starting)){ + when (delay(1.0) && (IsttokEmergencyOnOff == 0) && (IsttokOPSTATE[0] == POS_Starting)){ IsttokOPSTATE[0] = POS_Emergency; pvPut(IsttokOPSTATE[0]); strcpy(msg, "State to Emergency"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokEmergencyModeOnOff = 1; - pvPut(IsttokEmergencyModeOnOff ); + IsttokEmergencyOnOff = 1; + pvPut(IsttokEmergencyOnOff ); if ((IsttokShotCapBankChargeOnOff == 0)) { strcpy(msg, "EMERGENCY: CAPBANK Charge OFF"); pvPut(msg); @@ -490,13 +478,6 @@ ss PulseSequence { IsttokShotCapBankChargeOnOff = 1; pvPut(IsttokShotCapBankChargeOnOff); } - if ((IsttokShotCapBankConOnOff == 0)) { - strcpy(msg, "EMERGENCY: CAPBANK Conector OFF"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); - } if ((IsttokShotCapBankDischargeOnOff == 1)) { strcpy(msg, "EMERGENCY: CAPBANK Discharge ON"); pvPut(msg); @@ -527,14 +508,14 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Stopped; pvPut(IsttokOPSTATE[0]); } state Stopped - when (delay(1.0) && (IsttokEmergencyModeOnOff == 0) && (IsttokOPSTATE[0] == POS_Stopping)){ + when (delay(1.0) && (IsttokEmergencyOnOff == 0) && (IsttokOPSTATE[0] == POS_Stopping)){ IsttokOPSTATE[0] = POS_Emergency; pvPut(IsttokOPSTATE[0]); strcpy(msg, "State to Emergency"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokEmergencyModeOnOff = 1; - pvPut(IsttokEmergencyModeOnOff ); + IsttokEmergencyOnOff = 1; + pvPut(IsttokEmergencyOnOff ); if ((IsttokShotCapBankChargeOnOff == 0)) { strcpy(msg, "EMERGENCY: CAPBANK Charge OFF"); pvPut(msg); @@ -542,13 +523,6 @@ ss PulseSequence { IsttokShotCapBankChargeOnOff = 1; pvPut(IsttokShotCapBankChargeOnOff); } - if ((IsttokShotCapBankConOnOff == 0)) { - strcpy(msg, "EMERGENCY: CAPBANK Conector OFF"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); - } if ((IsttokShotCapBankDischargeOnOff == 1)) { strcpy(msg, "EMERGENCY: CAPBANK Discharge ON"); pvPut(msg); @@ -579,14 +553,14 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Stopped; pvPut(IsttokOPSTATE[0]); } state Stopped - when (delay(1.0) && (IsttokEmergencyModeOnOff == 0) && (IsttokOPSTATE[0] == POS_Stopped)){ + when (delay(1.0) && (IsttokEmergencyOnOff == 0) && (IsttokOPSTATE[0] == POS_Stopped)){ IsttokOPSTATE[0] = POS_Emergency; pvPut(IsttokOPSTATE[0]); strcpy(msg, "State to Emergency"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokEmergencyModeOnOff = 1; - pvPut(IsttokEmergencyModeOnOff ); + IsttokEmergencyOnOff = 1; + pvPut(IsttokEmergencyOnOff ); if ((IsttokShotCapBankChargeOnOff == 0)) { strcpy(msg, "EMERGENCY: CAPBANK Charge OFF"); pvPut(msg); @@ -594,13 +568,6 @@ ss PulseSequence { IsttokShotCapBankChargeOnOff = 1; pvPut(IsttokShotCapBankChargeOnOff); } - if ((IsttokShotCapBankConOnOff == 0)) { - strcpy(msg, "EMERGENCY: CAPBANK Conector OFF"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); - } if ((IsttokShotCapBankDischargeOnOff == 1)) { strcpy(msg, "EMERGENCY: CAPBANK Discharge ON"); pvPut(msg); @@ -634,7 +601,7 @@ ss PulseSequence { } /* State Set Stopped */ state Stopped { - when ((IsttokOPREQ[0]==START) && (IsttokEmergencyModeOnOff == 1)) { + when ((IsttokOPREQ[0]==START) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to Starting"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -642,7 +609,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Starting; pvPut(IsttokOPSTATE[0]); } state Starting - when((IsttokEmergencyModeOnOff == 0)){ + when((IsttokEmergencyOnOff == 0)){ strcpy(msg, "Emergency from Stopped"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -653,7 +620,7 @@ ss PulseSequence { } /* State Set Starting */ state Starting { - when ((IsttokOPREQ[0]==STOP) && (IsttokEmergencyModeOnOff == 1)) { + when ((IsttokOPREQ[0]==STOP) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to Stopping"); pvPut(msg); errlogSevPrintf(MINOR, "%s\n",msg); @@ -669,7 +636,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Process; pvPut(IsttokOPSTATE[0]); } state Process - when((IsttokEmergencyModeOnOff == 0)){ + when((IsttokEmergencyOnOff == 0)){ strcpy(msg, "Emergency from Starting"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -680,7 +647,7 @@ ss PulseSequence { } /* State Set Process */ state Process { - when ((IsttokOPREQ[0]==STOP) && (IsttokTMPManualValve == OFF) && (IsttokEmergencyModeOnOff == 1)) { + when ((IsttokOPREQ[0]==STOP) && (IsttokTMPManualValve == OFF) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to Stopping"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -688,7 +655,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Stopping; pvPut(IsttokOPSTATE[0]); } state Stopping - when ((IsttokProcReq==START) && (IsttokProcMode==CLEAN) && (IsttokEmergencyModeOnOff == 1)) { + when ((IsttokProcReq==START) && (IsttokProcMode==CLEAN) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to Clean"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -696,7 +663,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Clean; pvPut(IsttokOPSTATE[0]); } state Clean - when ((IsttokProcReq==START) && (IsttokProcMode==SHOT) && (IsttokEmergencyModeOnOff == 1)) { + when ((IsttokProcReq==START) && (IsttokProcMode==SHOT) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to WaitShot"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -704,7 +671,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_WaitShot; pvPut(IsttokOPSTATE[0]); } state WaitShot - when((IsttokEmergencyModeOnOff == 0)){ + when((IsttokEmergencyOnOff == 0)){ strcpy(msg, "Emergency from Process"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -715,7 +682,7 @@ ss PulseSequence { } /* State Set Clean */ state Clean { - when (( (IsttokOPREQ[0]==STOP) || (IsttokProcReq==STOP)) && (IsttokEmergencyModeOnOff == 1)) { + when (( (IsttokOPREQ[0]==STOP) || (IsttokProcReq==STOP)) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to Process"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -737,7 +704,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Process; pvPut(IsttokOPSTATE[0]); } state Process - when((IsttokEmergencyModeOnOff == 0)){ + when((IsttokEmergencyOnOff == 0)){ strcpy(msg, "Emergency from Clean"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -749,7 +716,7 @@ ss PulseSequence { } /* State Set WaitShot */ state WaitShot { - when ( ((IsttokOPREQ[0]==STOP) || (IsttokProcReq==STOP) ) && (IsttokEmergencyModeOnOff == 1) ) { + when ( ((IsttokOPREQ[0]==STOP) || (IsttokProcReq==STOP) ) && (IsttokEmergencyOnOff == 1) ) { strcpy(msg, "State to Process"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -760,7 +727,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Process; pvPut(IsttokOPSTATE[0]); } state Process - when((IsttokEmergencyModeOnOff == 0)){ + when((IsttokEmergencyOnOff == 0)){ strcpy(msg, "Emergency from WaitShot"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -771,7 +738,7 @@ ss PulseSequence { } /* State Set Stopping */ state Stopping { - when ((IsttokSTOPPINGSTATE == STPST_Stopping5) && (IsttokEmergencyModeOnOff == 1)) { + when ((IsttokSTOPPINGSTATE == STPST_Stopping5) && (IsttokEmergencyOnOff == 1)) { strcpy(msg, "State to Stopped"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -779,7 +746,7 @@ ss PulseSequence { IsttokOPSTATE[0] = POS_Stopped; pvPut(IsttokOPSTATE[0]); } state Stopped - when((IsttokEmergencyModeOnOff == 0)){ + when((IsttokEmergencyOnOff == 0)){ strcpy(msg, "Emergency from Stopping"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); @@ -876,18 +843,12 @@ ss StartingSequence { IsttokTMP2MotorOn = ON; pvPut(IsttokTMP2MotorOn); } - - if(IsttokTurbo_NormalOperation == PCF_INPUT_ON){ - sprintf(tmp1_stat, "ON"); - }else{ - sprintf(tmp1_stat, "OFF"); - } - if(IsttokTurbo2_NormalOperation == PCF_INPUT_ON){ - sprintf(tmp2_stat, "ON"); - }else{ - sprintf(tmp2_stat, "OFF"); - } + if(IsttokTurbo_NormalOperation == PCF_INPUT_ON){ + sprintf(tmp1_stat, "ON"); + }else{ + sprintf(tmp1_stat, "OFF"); + } sprintf(msg, "TMPNO = [1:%s][2:%s]", tmp1_stat, tmp2_stat); pvPut(msg); @@ -904,17 +865,12 @@ ss StartingSequence { IsttokSTARTINGSTATE = STRST_NonStarting; pvPut(IsttokSTARTINGSTATE); } state NonStarting - when ( (IsttokBypass_Condition == 0) || ( (IsttokTurbo_NormalOperation == PCF_INPUT_ON) || (IsttokTurbo2_NormalOperation == PCF_INPUT_ON) ) ) { + when ( (IsttokBypass_Condition == 0) || ( (IsttokTurbo_NormalOperation == PCF_INPUT_ON) ) ) { if(IsttokTurbo_NormalOperation == PCF_INPUT_ON){ strcpy(msg, "TMP1 operating Normal"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); } - if(IsttokTurbo2_NormalOperation == PCF_INPUT_ON){ - strcpy(msg, "TMP2 operating Normal"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - } IsttokSTARTINGSTATE = STRST_Starting5; pvPut(IsttokSTARTINGSTATE); } state Starting5 @@ -1056,26 +1012,26 @@ ss CleaningSequence { IsttokShotFilamentOnOff = 1; pvPut(IsttokShotFilamentOnOff); } - if (IsttokShotBakingPPSOnOff == 0){ + if (IsttokShotPrimaryCleanContactorOnOff == 0){ strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); } - if (IsttokShotTrans500OnOff == 0){ + if (IsttokShotToroidalCleanBreakerOnOff == 0){ strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); } - if (IsttokShotTransToPowerOnOff == 0){ + if (IsttokShotToroidalCleanContactorOnOff == 0){ strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); } IsttokCLEANINGSTATE = CLEAN_NonCleaning; pvPut(IsttokCLEANINGSTATE); @@ -1157,8 +1113,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = 2; @@ -1168,8 +1124,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = -2; @@ -1179,8 +1135,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = 2; @@ -1190,8 +1146,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = -2; @@ -1201,8 +1157,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = 2; @@ -1212,8 +1168,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = -2; @@ -1309,8 +1265,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = 2; @@ -1320,8 +1276,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = -2; @@ -1331,8 +1287,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = 2; @@ -1342,8 +1298,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = -2; @@ -1353,8 +1309,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = 2; @@ -1364,8 +1320,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = -2; @@ -1388,8 +1344,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGINOUTSTATE = 1; pvPut(IsttokCLEANINGINOUTSTATE); IsttokCLEANINGSTATE = CLEAN_Cleaning3; @@ -1461,8 +1417,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = 2; @@ -1472,8 +1428,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = -2; @@ -1483,8 +1439,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = 2; @@ -1494,8 +1450,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = -2; @@ -1505,8 +1461,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = 2; @@ -1516,8 +1472,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = -2; @@ -1529,8 +1485,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGINOUTSTATE = 0; pvPut(IsttokCLEANINGINOUTSTATE); IsttokCLEANINGSTATE = CLEAN_Cleaning2; @@ -1540,8 +1496,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE" ); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGINOUTSTATE = 1; pvPut(IsttokCLEANINGINOUTSTATE); IsttokCLEANINGSTATE = CLEAN_Cleaning4; @@ -1613,8 +1569,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = 2; @@ -1624,8 +1580,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = -2; @@ -1635,8 +1591,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = 2; @@ -1646,8 +1602,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = -2; @@ -1657,8 +1613,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = 2; @@ -1668,8 +1624,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = -2; @@ -1681,8 +1637,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGINOUTSTATE = 0; pvPut(IsttokCLEANINGINOUTSTATE); IsttokCLEANINGSTATE = CLEAN_Cleaning3; @@ -1692,8 +1648,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON" ); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGINOUTSTATE = 1; pvPut(IsttokCLEANINGINOUTSTATE); IsttokCLEANINGSTATE = CLEAN_Cleaning5; @@ -1765,8 +1721,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = 2; @@ -1776,8 +1732,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = -2; @@ -1787,8 +1743,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = 2; @@ -1798,8 +1754,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = -2; @@ -1809,8 +1765,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = 2; @@ -1820,8 +1776,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = -2; @@ -1833,8 +1789,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGINOUTSTATE = 0; pvPut(IsttokCLEANINGINOUTSTATE); IsttokCLEANINGSTATE = CLEAN_Cleaning4; @@ -1906,8 +1862,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 0; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 0; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = 2; @@ -1917,8 +1873,8 @@ ss CleaningSequence { strcpy(msg, "Primary-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotBakingPPSOnOff = 1; - pvPut(IsttokShotBakingPPSOnOff); + IsttokShotPrimaryCleanContactorOnOff = 1; + pvPut(IsttokShotPrimaryCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning3; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE3 = -2; @@ -1928,8 +1884,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK CLOSE"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 0; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 0; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = 2; @@ -1939,8 +1895,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-BK OPEN"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTrans500OnOff = 1; - pvPut(IsttokShotTrans500OnOff); + IsttokShotToroidalCleanBreakerOnOff = 1; + pvPut(IsttokShotToroidalCleanBreakerOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning4; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE4 = -2; @@ -1950,8 +1906,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT ON"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 0; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 0; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = 2; @@ -1961,8 +1917,8 @@ ss CleaningSequence { strcpy(msg, "Toroidal-CT OFF"); pvPut(msg); errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotTransToPowerOnOff = 1; - pvPut(IsttokShotTransToPowerOnOff); + IsttokShotToroidalCleanContactorOnOff = 1; + pvPut(IsttokShotToroidalCleanContactorOnOff); IsttokCLEANINGSTATE = CLEAN_Cleaning5; pvPut(IsttokCLEANINGSTATE); IsttokCLEANINGINOUTSTATE5 = -2; @@ -2047,11 +2003,6 @@ ss ShotingSequence { pvPut(IsttokWSHOTINGSTATE); } state NonShoting when (IsttokShotCountdown == -59) { - strcpy(msg, "CAPBANK Conector ON"); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n",msg); - IsttokShotCapBankConOnOff = 0; - pvPut(IsttokShotCapBankConOnOff); IsttokWSHOTINGSTATE = WSHOT_Shoting3; pvPut(IsttokWSHOTINGSTATE); } state Shoting3 @@ -2124,11 +2075,6 @@ ss ShotingSequence { pvPut(IsttokWSHOTINGSTATE); } state NonShoting when (IsttokShotCountdown == -4) { - strcpy(msg, "Toroidal Field ON" ); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n", msg); - IsttokShotTorFieldTriggerOnOff = 0; - pvPut(IsttokShotTorFieldTriggerOnOff); IsttokWSHOTINGSTATE = WSHOT_Shoting7; pvPut(IsttokWSHOTINGSTATE); } state Shoting7 @@ -2186,16 +2132,6 @@ ss ShotingSequence { errlogSevPrintf(NO_ALARM, "%s\n", msg); IsttokShotFilamentOnOff = 1; pvPut(IsttokShotFilamentOnOff); - strcpy(msg, "Toroidal Field OFF" ); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n", msg); - IsttokShotTorFieldTriggerOnOff = 1; - pvPut(IsttokShotTorFieldTriggerOnOff); - strcpy(msg, "CAPBANK Conector OFF" ); - pvPut(msg); - errlogSevPrintf(NO_ALARM, "%s\n", msg); - IsttokShotCapBankConOnOff = 1; - pvPut(IsttokShotCapBankConOnOff); IsttokWSHOTINGSTATE = WSHOT_Shoting10; pvPut(IsttokWSHOTINGSTATE); } state Shoting10 diff --git a/epics/iocs/ISTTOKrpi/README.me b/epics/iocs/ISTTOKrpi/README.me index 6f4bfd0..3e01e62 100644 --- a/epics/iocs/ISTTOKrpi/README.me +++ b/epics/iocs/ISTTOKrpi/README.me @@ -1,18 +1,22 @@ ### ISTTOK Epics IOC running in the Raspberry Pi Central Control ## Steps -1. Install epics on Rpi Linux. Install Moduled ASYN, StreamDevice and SNCSEQ -2. Goto $HOME folder -3. Run +1. Install epics on Rpi Linux. You need to install the following required support modules + 1. [ASYN](https://github.com/epics-modules/asyn.git) + 2. [StreamDevice](https://github.com/paulscherrerinstitute/StreamDevice.git) + 3. [Sequencer](https://www-csr.bessy.de/control/SoftDist/sequencer/Installation.html) + 4. I2C driver, [drvAsynI2C](https://github.com/ffeldbauer/drvAsynI2C) + +2. Goto $HOME folder and Run * `git clone https://bernardo@git.ipfn.tecnico.ulisboa.pt/r/ISTTOK.git * `cd ISTTOK` * `epics/iocs/ISTTOKrpi` * `make` -## Start IOC on power up -1. Make sure `screen` is installed in Linux -2. Include following Line in /etc/rc.local - * `screen -dm bash -c "cd [..]/ISTTOKrpi/iocBoot/iocISTTOKrpi; ../../bin/linux-arm/ISTTOKrpi st.cmd"` -3. To access EPICS console do - * `screen -r` +## Start the IOC on power up + 1. Make sure `screen` is installed in Linux + 2. Include following Line in /etc/rc.local + * `screen -dm bash -c "cd [..]/ISTTOKrpi/iocBoot/iocISTTOKrpi; ../../bin/linux-arm/ISTTOKrpi st.cmd"` + 3. To access EPICS console run + * `sudo screen -r` diff --git a/epics/iocs/ISTTOKrpi/configure/CONFIG_SITE b/epics/iocs/ISTTOKrpi/configure/CONFIG_SITE index 212485e..14d5d5b 100644 --- a/epics/iocs/ISTTOKrpi/configure/CONFIG_SITE +++ b/epics/iocs/ISTTOKrpi/configure/CONFIG_SITE @@ -23,7 +23,8 @@ CHECK_RELEASE = YES # To install files into a location other than $(TOP) define # INSTALL_LOCATION here. -#INSTALL_LOCATION= +INSTALL_LOCATION=/opt/epics/iocs/ISTTOKrpi +# # Set this when the IOC and build host use different paths # to the install location. This may be needed to boot from diff --git a/epics/iocs/ISTTOKrpi/iocBoot/iocISTTOKrpi/iocISTTOKrpi.req b/epics/iocs/ISTTOKrpi/iocBoot/iocISTTOKrpi/iocISTTOKrpi.req index 53c71e3..5e25bb0 100644 --- a/epics/iocs/ISTTOKrpi/iocBoot/iocISTTOKrpi/iocISTTOKrpi.req +++ b/epics/iocs/ISTTOKrpi/iocBoot/iocISTTOKrpi/iocISTTOKrpi.req @@ -24,19 +24,13 @@ ISTTOK:central:TMPControllerOff.VAL ISTTOK:central:TMPControllerOn.VAL ISTTOK:central:TMPMotorOff.VAL ISTTOK:central:TMPMotorOn.VAL -ISTTOK:central:TMP2ControllerOff.VAL -ISTTOK:central:TMP2ControllerOn.VAL -ISTTOK:central:TMP2MotorOff.VAL -ISTTOK:central:TMP2MotorOn.VAL +ISTTOK:central:TMP2MotorOnOff.VAL ISTTOK:central:Turbo_NormalOperation.VAL ISTTOK:central:Turbo_PW_Ind.VAL ISTTOK:central:Turbo_Emergency.VAL ISTTOK:central:TMPManualValve.VAL -ISTTOK:central:Turbo2_NormalOperation.VAL -ISTTOK:central:Turbo2_PW_Ind.VAL ISTTOK:central:Turbo2_Emergency.VAL -ISTTOK:central:FSTriggerState.VAL ISTTOK:central:Pressure_PrimaryCondition.VAL ISTTOK:central:Pressure_Primary2Condition.VAL ISTTOK:central:Bypass_Condition.VAL -ISTTOK:central:EmergencyModeOnOff.VAL +ISTTOK:central:EmergencyOnOff.VAL