% 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 MOD_PWN NAMED "MOD_PWN" TYPEID 10030 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "Frånluftstemp" ["ºC "];
  V2 : "changeovertemp" ["ºC "];
  V3 : "Betteritemp" ["ºC "];
  V4 : "Läge" [""]; % 0=endast fläkt, 1=kyla, 2=värme, 3=auto
  V5 : "Fläkthastighet" [""]; % 0=auto, 1=låg, 2=medium, 3) hög
  V6 : "Börvärde" ["ºC"];
  V7 : "Kylindikering" ["%"];
  V8 : "Fläkt låg" [""]; % 1=på, 0=av
  V9 : "Fläkt medium" [""]; % 1=på, 0=av
  V10 : "Fläkt hög" [""]; % 1=på, 0=av
  V11 : "På av" [""]; % 1=på, 0=av

 PRIVATE

 BAUDRATE 9600;
 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(31); % Antal register att läsa
  ANSWER SIZE 67 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[2] = BYTE(62); % Antal Bytes
   DATA[3] -> RWORD(V1 := DATA;);
   DATA[5] -> RWORD(IF (DATA>=32768) THEN V2:=(DATA-65536); ELSE V2:=DATA; ENDIF;);
   DATA[7] -> RWORD(IF (DATA>=32768) THEN V3:=(DATA-65536); ELSE V3:=DATA; ENDIF;);
   DATA[9] -> RWORD(V4 := DATA;);
   DATA[11] -> RWORD(V5 := DATA;);
   DATA[13] -> RWORD(V6 := DATA;);
   DATA[29] -> RWORD(V7 := DATA;);
   DATA[57] -> RWORD(V8 := DATA;);
   DATA[59] -> RWORD(V9 := DATA;);
   DATA[61] -> RWORD(V10 := DATA;);
   DATA[63] -> RWORD(V11 := DATA;);
  TIMEOUT 300
 END;
END;