1.6 KiB
1.6 KiB
// Block Type: FC
// Block Number: 1719
// Original Network Languages: STL
FUNCTION "Input_DigitalScanner" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1
VAR_TEMP
Dim_HMI_Digital : Int;
PDim_HMI_Digital : DWord;
END_VAR
BEGIN
// Network 1: (Original Language: STL)
// --- BEGIN STL Network 1 ---
AUF "HMI_Digital"
L_DBLG
T "Dim_HMI_Digital"
L P#0.0
L "Dim_HMI_Digital"
SLD 3
ADD_D
T "PDim_HMI_Digital"
// --- END STL Network 1 ---
// Network 2: DIGITAL SCANNER (Original Language: STL)
// --- BEGIN STL Network 2 ---
AUF "HMI_Digital"
L P#0.0
LAR1_ACCU1
M011: NOP_0
A DBX[AR1,P#0.7]
JC M012
SET
R DBX[AR1,P#0.1]
R DBX[AR1,P#0.2]
L 0
T DBW[AR1,P#6.0]
T DBW[AR1,P#8.0]
JU M030
M012: AN DBX[AR1,P#0.0]
JC M022
L 0
T DBW[AR1,P#8.0]
A DBX[AR1,P#0.1]
JC M030
L DBW[AR1,P#6.0]
AN CLK_0.1S
JC M013
ADD 1
T DBW[AR1,P#6.0]
M013: L DBW[AR1,P#2.0]
LT_I
JC M030
SET
S DBX[AR1,P#0.1]
JU M030
M022: L 0
T DBW[AR1,P#6.0]
AN DBX[AR1,P#0.1]
JC M030
L DBW[AR1,P#8.0]
AN CLK_0.1S
JC M023
ADD 1
T DBW[AR1,P#8.0]
M023: L DBW[AR1,P#4.0]
LT_I
JC M030
SET
R DBX[AR1,P#0.1]
M030: NOP_0
ADDAR1 P#10.0
TAR1_ACCU1
L "PDim_HMI_Digital"
LT_D
JC M011
// --- END STL Network 2 ---
END_FUNCTION