% Skapad med Modbus Creator
% - OBS! Användaren ansvarar själv för att samma TYPID inte används flera gånger i samma apparat.
%   TYPID 10000-19999 är för användardefinierade enheter
DEVICETYPE fwLarm2 NAMED "Fläkt Woods larm2" TYPEID 12360 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "TL fläktlarm" [""]INT;
  V2 : "FL fläktlarm" [""]INT;
  V3 : "Kyla larm" [""]INT;
  V4 : "Värmeåterv larm" [""]INT;
  V5 : "Värme pump larm" [""]INT;
  V6 : "Värme frost larm" [""]INT;
  V7 : "Filterlarm" [""]INT;
  V8 : "TL tempavv larm" [""]INT;
  V9 : "TLtryck/flödelarm" [""]INT;
  V10 : "FLtryck/flödelarm" [""]INT;
  
 PRIVATE

 BAUDRATE 9600;
 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(313); % Start address
   DATA[4] := RWORD(4); % Antal register att läsa
  ANSWER SIZE 13 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(8); % Antal Bytes
   DATA[3] -> RWORD(
    IF DATA&4 THEN V1:=1; ELSE V1:=0; ENDIF;
    IF DATA&8 THEN V2:=1; ELSE V2:=0; ENDIF;
    IF DATA&128 THEN V3:=1; ELSE V3:=0; ENDIF;
    IF DATA&1024 THEN V4:=1; ELSE V4:=0; ENDIF;
   );
   DATA[5] -> RWORD(
    IF DATA&1 THEN V5:=1; ELSE V5:=0; ENDIF;
    IF DATA&2 THEN V6:=1; ELSE V6:=0; ENDIF;
IF DATA&32768 THEN V7:=1; ELSE V7:=0; ENDIF;
   );
   DATA[7] -> RWORD(
IF DATA&16384 THEN V8:=1; ELSE V8:=0; ENDIF;
   );
   DATA[9] -> RWORD(
    IF DATA&1 THEN V9:=1; ELSE V9:=0; ENDIF;
    IF DATA&2 THEN V10:=1; ELSE V10:=0; ENDIF;
);
  TIMEOUT 300
 END;
END;