Obsidean_VM/04-SIDEL/00 - MASTER/Source/source/Pneumatic_Valve_Fault.md

1.7 KiB

// Block Type: FC
// Block Name (Original): Pneumatic Valve Fault
// Block Number: 1969
// Original Network Languages: STL

FUNCTION "Pneumatic_Valve_Fault" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_TEMP
  mAirPressureOk : Bool;
END_VAR

BEGIN

  // Network 1: MIX - SAFETIES (Original Language: STL)

  // --- BEGIN STL Network 1 ---
   
     	SET
     	A	"HMI_Digital"._PAL_S11.Filtered
     	=	"mAirPressureOk"
     	AUF	"HMI_Device"
     	AUF DI	"Pneumatic Valve Fault DB"
     	L	P#0.0
     	LAR1_ACCU1
     	LAR2_ACCU1
     M011:   		SET
     	AN	DBX[AR1,P#1.0]
     	AN	DBX[AR1,P#1.1]
     	ON	DBX[AR1,P#0.7]
     	O	DBX[AR1,P#0.4]
     	ON	"mAirPressureOk"
     	JC	M012
     	A	DBX[AR1,P#0.2]
     	A_BRACK
     	AN	DBX[AR1,P#0.5]
     	A	DBX[AR1,P#1.0]
     	O_BRACK
     	A	DBX[AR1,P#0.6]
     	A	DBX[AR1,P#1.1]
     	BRACKET
     	BRACKET
     	O_BRACK
     	AN	DBX[AR1,P#0.2]
     	A_BRACK
     	A	DBX[AR1,P#0.5]
     	A	DBX[AR1,P#1.0]
     	O_BRACK
     	AN	DBX[AR1,P#0.6]
     	A	DBX[AR1,P#1.1]
     	BRACKET
     	BRACKET
     	BRACKET
     	JCN	M012
     	L	DIB[AR2,P#0.0]
     	L	DIB[AR2,P#106.0]
     	LE_I
     	JC	M014
     	AN	CLK_1.0S
     	JC	M013
     	ADD	1
     	T	DIB[AR2,P#106.0]
     	JU	M013
     M012:   		NOP_0
     	L	0
     	T	DIB[AR2,P#106.0]
     M013:   		NOP_0
     	A	"gIN_ResetBtn"
     	R	DBX[AR1,P#0.3]
     	R	"gDeviceFault"
     	JU	M010
     M014:   		NOP_0
     	SET
     	S	"gDeviceFault"
     	S	"gBlenderAlarm"
     	SET
     	S	DBX[AR1,P#0.3]
     M010:   		NOP_0
     	ADDAR2	P#1.0
     	TAR2_ACCU1
     	ADDAR1	P#2.0
     	TAR1_ACCU1
     	L	P#211.0
     	LT_D
     	JC	M011
   
  // --- END STL Network 1 ---

END_FUNCTION