Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O.../Source/source/Instrument_Scanner.md

1.1 KiB

// Block Type: FC
// Block Number: 1968
// Original Network Languages: STL

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

VAR_TEMP
  mAirPressureOk : Bool;
  Dim_HMI_Instrument : Int;
  PDim_HMI_Instrument : DWord;
END_VAR

BEGIN

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

  // --- BEGIN STL Network 1 ---
   
     	AUF	"HMI_Instrument"
     	L_DBLG
     	T	"Dim_HMI_Instrument"
     	L	P#0.0
     	L	"Dim_HMI_Instrument"
     	SLD	3
     	ADD_D
     	T	"PDim_HMI_Instrument"
   
  // --- END STL Network 1 ---

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

  // --- BEGIN STL Network 2 ---
   
     	A	"gIN_VoltageOk"
     	JCN	M012
     	SET
     	R	"gInstrumentFault"
     	AUF	"HMI_Instrument"
     	L	P#0.0
     	LAR1_ACCU1
     M010:   		SET
     	AN	DBX[AR1,P#0.7]
     	O	DBX[AR1,P#0.4]
     	JC	M011
     	A	DBX[AR1,P#0.7]
     	AN	DBX[AR1,P#0.4]
     	A	DBX[AR1,P#0.3]
     	S	"gInstrumentFault"
     M011:   		NOP_0
     	ADDAR1	P#26.0
     	TAR1_ACCU1
     	L	"PDim_HMI_Instrument"
     	LT_D
     	JC	M010
     M012:   		NOP_0
   
  // --- END STL Network 2 ---

END_FUNCTION