% 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 FW227VMMB NAMED "Fläktwoods 227VMMB" TYPEID 16380 IS

 PARAMETER
  Id  : "Adress" [""]INT;
  V10 : "wsetpoint" ["%"]DEC2;
  V11 : "woverride control" [""]; % 0=- 1=open 2=close 3=min 4=max 5=between
  V12 : "wcommand" [""]INT; % 0=- 1=adaption 2=- 3=- 4=controller reset
  V13 : "wdeviceID" [""]INT; % 0=- 1=standard actuator 2=VAV 3=fire damper

 PUBLIC
  V1 : "setpoint" ["%"]DEC2;
  V2 : "override control" [""]INT;
  V3 : "command" [""]INT;
  V4 : "device ID" [""]INT;
  V5 : "relative position" ["%"]DEC2;
  V6 : "absolute position" ["%"]DEC2;
  V7 : "relative flow" ["%"]DEC2;
  V8 : "absolute flow" ["%"]DEC2;
  V9 : "sensor value" ["mV"]INT;

 PRIVATE
  count6;

 BAUDRATE 19200;
 PARITY EVEN;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM Read3 NAMED "Read 3" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); % Modbus kommando för att läsa register kod 03
   DATA[2] := RWORD(0); % Start address
   DATA[4] := RWORD(9); % Antal register att läsa
  ANSWER SIZE 23 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[2] = BYTE(18); % Antal Bytes
   DATA[3] -> RWORD(V1 := DATA/100;);
   DATA[5] -> RWORD(V2 := DATA;);
   DATA[7] -> RWORD(V3 := DATA;);
   DATA[9] -> RWORD(V4 := DATA;);
   DATA[11] -> RWORD(V5 := DATA/100;);
   DATA[13] -> RWORD(V6 := DATA/100;);
   DATA[15] -> RWORD(V7 := DATA/100;);
   DATA[17] -> RWORD(V8 := DATA/100;);
   DATA[19] -> RWORD(V9 := DATA;);
  TIMEOUT 300
 END;

 TELEGRAM WriteRegister NAMED "Write Register" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(06); % Modbus kommando för att skriva ett register
   DATA[2] <- RWORD(
    IF(count6>3) THEN count6 := 0; ENDIF;
    IF (count6=0) THEN DATA := 0;
    ELSIF (count6=1) THEN DATA := 1;
    ELSIF (count6=2) THEN DATA := 2;
    ELSIF (count6=3) THEN DATA := 3;
    ENDIF;
   ); % Register adress
   DATA[4] <- RWORD(
    IF (count6=0) THEN DATA := V10*100;
    ELSIF (count6=1) THEN DATA := V11;
    ELSIF (count6=2) THEN DATA := V12;
    ELSIF (count6=3) THEN DATA := V13;
    ENDIF;
    count6 := count6+1;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(06);
  TIMEOUT 300
 END;
END;