92 lines
1.6 KiB
Markdown
92 lines
1.6 KiB
Markdown
```pascal
|
|
// 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
|
|
|
|
```
|