FUNCTION_BLOCK FB 110
TITLE =
AUTHOR : Ralle
FAMILY : System
NAME : Search
VERSION : 0.9
VAR_INPUT
DBNr : INT ; //DB-Nummer des DB, der durchsucht werden soll
Scanncode : STRING [18 ]; //18 Zeichen langer Suchstring
Max_Len : INT ; //Wieviele Bytes sollen im DB durchsucht werden?
END_VAR
VAR_OUTPUT
Pos : INT ; //Byte-Nr, an der der Code gefunden wurde
END_VAR
VAR_IN_OUT
Start : BOOL ; //einmalig zum Start setzen, wird am Ende vom FB zurückgesetzt
Fertig : BOOL ; //Fertigmeldung, wird bei Start immer gelöscht
Code_gefunden : BOOL ; //Codevergeleich war positiv, wird bei Start immer gelöscht
END_VAR
VAR
ddSuch : DWORD ; //erstes DWord zur Suche
Zaehler : INT ; //Suchzähler
END_VAR
VAR_TEMP
SAVE_VKE : BOOL ;
RETTAR1 : DWORD ;
RETTAR2 : DWORD ;
wDBNo : WORD ;
TEMP0 : DWORD ;
END_VAR
BEGIN
NETWORK
TITLE =
//Sichere VKE im BIE
SET ;
SAVE ;
= #SAVE_VKE;
//Adressregister retten
TAR1 #RETTAR1;
TAR2 #RETTAR2;
U #Start;
SPBN ENDE;
L #DBNr;
T #wDBNo;
AUF DB [#wDBNo]; //globalen DB öffnen
SET ;
R #fertig;
R #Code_gefunden;
L P##Scanncode;
LAR1 ;
L DID [AR1,P#2.0]; //Instanz-DB, Byte0+1 sind Stringlänge, also gehts bei 2 los
T #ddSuch; //Das ist das erste DWord, das gesucht wird
L #Max_Len; //Maximale Länge der Daten im DB
Z001: T #Zaehler;
L #Max_Len;
L #Zaehler;
-D ; //wir wollen ja bei DBD0 anfangen (bei Bedarf noch ein Offset dazu)
SLD 3; //aus dem Zähler einen Pointer machen
LAR1 ;
L DBD [AR1,P#0.0]; //globaler DB
L #ddSuch;
==D ;
SPB VERG;
L MD 100;
L 1;
+D ;
T MD 100;
WESU: L #Zaehler;
LOOP Z001; //der Zaehler wird automatisch um 1 dekrementiert (erniedrigt)
SPA KCOD; //alles durchsucht, aber keine Übereinstimmung gefunden
VERG: NOP 0;
//18 Zeichen vergleichen
//1 Zeichen entspricht einem Byte, 4 Zeichen haben wir schon, bleiben 14 weitere, macht 3 DWORD + 1 WORD
//Zeichen 5-8
L #Max_Len;
L #Zaehler;
-D ;
SLD 3;
LAR1 ;
L DBD [AR1,P#4.0]; //globaler DB
T #TEMP0;
L P##Scanncode;
LAR1 ;
L DID [AR1,P#6.0]; //Instanz-DB
L #TEMP0;
==D ;
SPBN WESU; //ungleich, also oben weitersuchen mit dem nächsten Byte
//Zeichen 9-12
L #Max_Len;
L #Zaehler;
-D ;
SLD 3;
LAR1 ;
L DBD [AR1,P#8.0];
T #TEMP0;
L P##Scanncode;
LAR1 ;
L DID [AR1,P#10.0];
L #TEMP0;
==D ;
SPBN WESU; //ungleich, also oben weitersuchen mit dem nächsten Byte
//Zeichen 13-16
L #Max_Len;
L #Zaehler;
-D ;
SLD 3;
LAR1 ;
L DBD [AR1,P#12.0];
T #TEMP0;
L P##Scanncode;
LAR1 ;
L DID [AR1,P#14.0];
L #TEMP0;
==D ;
SPBN WESU; //ungleich, also oben weitersuchen mit dem nächsten Byte
//Zeichen 17-18
L #Max_Len;
L #Zaehler;
-D ;
SLD 3;
LAR1 ;
L DBW [AR1,P#16.0];
T #TEMP0;
L P##Scanncode;
LAR1 ;
L DIW [AR1,P#18.0];
L #TEMP0;
==D ;
SPBN WESU; //ungleich, also oben weitersuchen mit dem nächsten Byte
//18 Zeichen gleich, also Code gefunden und fertig
SET ;
S #fertig;
S #Code_gefunden;
R #Start;
L #Max_Len;
L #Zaehler;
-D ;
T #Pos;
SPA ENDE;
//keine Übereinstimmung gefunden, aber das Ende des Suchbereiches erreicht
KCOD: SET ;
S #fertig;
R #Code_gefunden;
R #Start;
L 0;
T #Pos;
ENDE: NOP 0;
//Zurückübertragen der geretteten Adressregister
LAR1 #RETTAR1;
LAR2 #RETTAR2;
U #SAVE_VKE;
SAVE ;
BE ;
END_FUNCTION_BLOCK
