63 lines
1.0 KiB
Markdown
63 lines
1.0 KiB
Markdown
```pascal
|
|
// Block Type: FC
|
|
// Block Number: 10
|
|
// Original Network Languages: STL
|
|
|
|
FUNCTION "EQ_STRNG" : Bool
|
|
{ S7_Optimized_Access := 'TRUE' }
|
|
VERSION : 0.1
|
|
|
|
VAR_INPUT
|
|
S1 : String[254];
|
|
S2 : String[254];
|
|
END_VAR
|
|
|
|
VAR_TEMP
|
|
w_Temp : Word;
|
|
y_Loop : Byte;
|
|
END_VAR
|
|
|
|
BEGIN
|
|
|
|
// Network 1: (Original Language: STL)
|
|
|
|
// --- BEGIN STL Network 1 ---
|
|
|
|
L _ERR_CONST_
|
|
LAR1_ACCU1
|
|
L _ERR_CONST_
|
|
LAR2_ACCU1
|
|
L NoneW[AR1,P#0.0]
|
|
T "w_Temp"
|
|
AUF DBB[AR?,P#0.0]
|
|
L NoneD[AR1,P#2.0]
|
|
LAR1_ACCU1
|
|
L NoneW[AR2,P#0.0]
|
|
T "w_Temp"
|
|
AUF DIB[AR?,P#0.0]
|
|
L NoneD[AR2,P#2.0]
|
|
OD DW#16#0100_0000
|
|
LAR2_ACCU1
|
|
SET
|
|
SAVE
|
|
L NoneB[AR1,P#0.0]
|
|
LOP: T "y_Loop"
|
|
L NoneB[AR1,P#2.0]
|
|
L NoneB[AR2,P#2.0]
|
|
NE_I
|
|
JC RESE
|
|
ADDAR1 P#1.0
|
|
ADDAR2 P#1.0
|
|
L "y_Loop"
|
|
LOOP LOP
|
|
S "EQ_STRNG"
|
|
JC ENDE
|
|
RESE: R "EQ_STRNG"
|
|
ENDE: BE
|
|
|
|
// --- END STL Network 1 ---
|
|
|
|
END_FUNCTION
|
|
|
|
```
|