FUNCTION "BCD (4stellig)_to_INT" : Void
TITLE = BCD-Wert (2-Stellig) in INT-Wert wandeln (Max 00FF)
{ S7_Optimized_Access := 'FALSE' }
VERSION : 0.1
//
//
   VAR_INPUT 
      BCD_Wert : Word;
   END_VAR

   VAR_OUTPUT 
      Int_Wert : Int;
   END_VAR

   VAR_TEMP 
      BCD_Vergleich : Word;
      Multiplikator : Int;
   END_VAR


BEGIN
NETWORK
TITLE = Rückmeldung
      L 0;//erst mal köschen
      T #Int_Wert;

      L 1;
      T #Multiplikator;
NETWORK
TITLE = BCD-Wert wandeln
      L #BCD_Wert;
      T #BCD_Vergleich;
      L 16#000F;
      UW;
      L #Multiplikator;
      *I;
      L #Int_Wert;
      +I;
      T #Int_Wert;

      L #Multiplikator;
      L 16;
      *I;
      T #Multiplikator;

      L #BCD_Vergleich;
      SRW 4;
      T #BCD_Vergleich;

      L 16#000F;
      UW;
      L #Multiplikator;
      *I;
      L #Int_Wert;
      +I;
      T #Int_Wert;

      L #Multiplikator;
      L 16;
      *I;
      T #Multiplikator;

      L #BCD_Vergleich;
      SRW 4;
      T #BCD_Vergleich;

      L 16#000F;
      UW;
      L #Multiplikator;
      *I;
      L #Int_Wert;
      +I;
      T #Int_Wert;

      L #Multiplikator;
      L 16;
      *I;
      T #Multiplikator;

      L #BCD_Vergleich;
      SRW 4;
      T #BCD_Vergleich;

      L 16#000F;
      UW;
      L #Multiplikator;
      *I;
      L #Int_Wert;
      +I;
      T #Int_Wert;

NETWORK
TITLE = Ende
      BE;

END_FUNCTION

