1.0 KiB
1.0 KiB
// 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