% 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 IVClimatrix2 NAMED "IV Climatrix AHU 3_14_2" TYPEID 14530 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "Outside air temp" ["°C"]DEC1;
  V2 : "Supply air temp" ["°C"]DEC1;
  V3 : "Heating frost temp" ["°C"]DEC1;
  V4 : "Actual room temå" ["°C"]DEC1;
  V5 : "Exhaust air temp" ["°C"]DEC1;
  V6 : "Extract air temp" ["°C"]DEC1;
  V7 : "Supply air hum relative" ["%rH"];
  V8 : "Room/return humidity relative" ["%rH"];
  V9 : "Supply air flow" ["l/s"];
  V10 : "Exhaust air flow" ["l/s"];
  V11 : "Supply air pressure" ["Pa"];
  V12 : "Exhaust air pressure" ["Pa"];
  V13 : "Actual heating SP, main" ["°C"]DEC1;
  V14 : "Actual humidity SP, main" ["%rH"]DEC1;
  V15 : "Actual dehumity SP, main" ["%rH"]DEC1;
  V16 : "Actual supply fan SP" ["% Pa l/s"];
  V17 : "Actual exhaust fan SP" ["% Pa l/s"];
  V18 : "Heat recovery efficiency" ["%"];
  V19 : "Supply filter alarm" ["Pa"]DEC1;
  V20 : "Exhaust filter alarm" ["Pa"]DEC1;

 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(71); % Start address
   DATA[4] := RWORD(78); % Antal register att läsa
  ANSWER SIZE 161 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(156); % Antal Bytes
   DATA[3] -> RWORD(IF (DATA>=32768) THEN V1:=(DATA-65536)/10; ELSE V1:=DATA/10; ENDIF;);
   DATA[5] -> RWORD(IF (DATA>=32768) THEN V2:=(DATA-65536)/10; ELSE V2:=DATA/10; ENDIF;);
   DATA[7] -> RWORD(IF (DATA>=32768) THEN V3:=(DATA-65536)/10; ELSE V3:=DATA/10; ENDIF;);
   DATA[9] -> RWORD(IF (DATA>=32768) THEN V4:=(DATA-65536)/10; ELSE V4:=DATA/10; ENDIF;);
   DATA[11] -> RWORD(IF (DATA>=32768) THEN V5:=(DATA-65536)/10; ELSE V5:=DATA/10; ENDIF;);
   DATA[13] -> RWORD(IF (DATA>=32768) THEN V6:=(DATA-65536)/10; ELSE V6:=DATA/10; ENDIF;);
   DATA[33] -> RWORD(V7 := DATA;);
   DATA[39] -> RWORD(V8 := DATA;);
   DATA[49] -> RWORD(V9 := DATA;);
   DATA[51] -> RWORD(V10 := DATA;);
   DATA[53] -> RWORD(V11 := DATA;);
   DATA[55] -> RWORD(V12 := DATA;);
   DATA[67] -> RWORD(IF (DATA>=32768) THEN V13:=(DATA-65536)/10; ELSE V13:=DATA/10; ENDIF;);
   DATA[75] -> RWORD(V14 := DATA/10;);
   DATA[77] -> RWORD(V15 := DATA/10;);
   DATA[83] -> RWORD(V16 := DATA;);
   DATA[85] -> RWORD(V17 := DATA;);
   DATA[93] -> RWORD(V18 := DATA;);
   DATA[155] -> RWORD(V19 := DATA/10;);
   DATA[157] -> RWORD(V20 := DATA/10;);
  TIMEOUT 300
 END;
END;