Werte in DB suchen

FUNCTION FC100 : INT
VAR_INPUT
    DATEN: BLOCK_DB;
    GESUCHT: WORD;
END_VAR
VAR_OUTPUT
    AUSGABE:WORD;
END_VAR
VAR_TEMP
    Index:INT;
END_VAR
BEGIN
    Index := 0;
    REPEAT
        Index := Index + 1;
    UNTIL DATEN.DW[Index] = Gesucht OR Index >=100 
    END_REPEAT
    FC100 := 1;
END_FUNCTION

      L     #Datenbaustein_1 //in INT
      T     #db_1 //temp INT
      L     #Datenbaustein_2 //in INT
      T     #db_2 //temp INT
      L     #Datenanfang_1 //in INT
      T     #datpos1 //temp INT
      L     #Datenanfang_2 //in INT
      T     #datpos2 //temp INT
      L     1
      T     #schleife //temp INT
      L     0
      T     #position //out INT
      CLR   
      =     #gleich// out BOOL
anfa: NOP   0                           //Schleifenanfang
      L     #datpos1
      SLD   3
      LAR1  
      L     #datpos2
      SLD   3
      LAR2  
      AUF   DB [#db_1]
      L     DBD [AR1,P#0.0]
      AUF   DB [#db_2]
      L     DBD [AR2,P#0.0]
      ==D    
      =     #gleich
      SPB   gl1                        //gleich deshalb zum ende

      L     #datpos1
      L     4//+4 wegen dword
      +I    
      T     #datpos1
      L     #datpos2
      L     4 //bei dword
      +I    
      T     #datpos2
      L     #schleife
      L     1
      +I    
      T     #schleife
      L     #schleife
      L     #anzahl//in INT anzahl der variablen die verglichen werden sollten
      >I    
      SPB   fert
      SPA   anfa
fert: NOP   0
      BEA   
gl1: NOP   0
      L     #schleife
      T     #position//position wo  der erste gleich gefunden wurde