DEVICETYPE VEX300 NAMED "VEX300Larm" TYPEID 21338 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "FC1operation" [""]; % 0=not running, 1=running
  V2 : "FC2operation" [""]; % 0=not running, 1=running
  V3 : "AktuelltLarm1" [""]; % om större än 0 och vi inte har nått driftsvar från FC1 eller FC2 då har vi ett A-Larm
  A  : "A-larm" ; % 1 = A-larm
  B  : "B-larm" ; % 1 = B-larm

 PRIVATE

 BAUDRATE 9600;
 PARITY EVEN;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM Read4 NAMED "Read 4" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(04); % Modbus kommando för att läsa register kod 04
   DATA[2] := RWORD(115); % Start address
   DATA[4] := RWORD(5); % Antal register att läsa
  ANSWER SIZE 15 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(10); % Antal Bytes
   DATA[3] -> RWORD(V1 := DATA;);
   DATA[11] -> RWORD(V2 := DATA;);
  TIMEOUT 300
 END;
 TELEGRAM Read41 NAMED "Read 41" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(04); % Modbus kommando för att läsa register kod 04
   DATA[2] := RWORD(185); % Start address
   DATA[4] := RWORD(1); % Antal register att läsa
  ANSWER SIZE 7 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(2); % Antal Bytes
   DATA[3] -> RWORD(V3 := DATA;
    IF(V3 > 0) THEN    
     IF((V1 = 0) AND (V2 = 0)) THEN A := 1; B := 0;
     ELSE A := 0;B := 1; ENDIF;
    ELSE A := 0; B := 0;
    ENDIF;
   );
  TIMEOUT 300
 END;
END;