% 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 IV_AHUClimatix NAMED "IV_AHUClimatix" TYPEID 10718 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "Manual mode" [""];
  V2 : "OperatingMode" [""]; % 0=off, 1=on/comfort, 5=nightcooling, 6=unoccupied(tem start), 12=startup
  V3 : "ActFanStep" [""]; % 0=off, stage 1-3
  V4 : "ManOpSteps" [""]; % 0=auto, 1=off, 2-4= step 1-3
  V5 : "OutsideAirDamper" [""]; % 0=off
  V6 : "ExtractAirDamper" [""]; % 0=off
  V7 : "SupplyFanOut" ["%"];
  V8 : "ExhaustFanOut" ["%"];
  V9 : "CoolingOut" ["%"];
  V10 : "CoolingPumpCmd" ["%"]; % on/off
  V11 : "HeatRecOut" ["%"];
  V12 : "HeatingOut" ["%"];
  V13 : "HeatingPumpCmd" [""]; % off/on
  V14 : "OutsideTemp" ["°C"]DEC1;
  V15 : "SupplyTemp" ["°C"]DEC1;
  V16 : "HeatingFrostTemp" ["°C"]DEC1;
  V17 : "ExhaustTemp" ["°C"]DEC1;
  V18 : "HeatingSP" ["°C"]DEC1;
  V19 : "SupplyHeatSP" ["°C"]DEC1;
  V20 : "SupplyCoolingSP" ["°C"]DEC1;

 PRIVATE

 BAUDRATE 9600;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM Read1 NAMED "Read 1" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(01); % Modbus kommando för att läsa register kod 01
   DATA[2] := RWORD(4); % Start address
   DATA[4] := RWORD(1); % Antal register att läsa
  ANSWER SIZE 6 % (Antal register / 8) avrundat uppåt + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(01);
   DATA[2] = BYTE(1); % Antal Bytes
   DATA[3] -> BYTE(
    IF (DATA & 1) THEN V1 := 1; ELSE V1 := 0; ENDIF;
   );
  TIMEOUT 300
 END;

 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(16); % Start address
   DATA[4] := RWORD(91); % Antal register att läsa
  ANSWER SIZE 187 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(182); % Antal Bytes
   DATA[3] -> RWORD(V2 := DATA;);
   DATA[5] -> RWORD(V3 := DATA;);
   DATA[7] -> RWORD(V4 := DATA;);
   DATA[19] -> RWORD(V5 := DATA;);
   DATA[21] -> RWORD(V6 := DATA;);
   DATA[27] -> RWORD(V7 := DATA;);
   DATA[31] -> RWORD(V8 := DATA;);
   DATA[35] -> RWORD(V9 := DATA;);
   DATA[37] -> RWORD(V10 := DATA;);
   DATA[41] -> RWORD(V11 := DATA;);
   DATA[49] -> RWORD(V12 := DATA;);
   DATA[51] -> RWORD(V13 := DATA;);
   DATA[113] -> RWORD(V14 := DATA/10;);
   DATA[115] -> RWORD(V15 := DATA/10;);
   DATA[117] -> RWORD(V16 := DATA/10;);
   DATA[121] -> RWORD(V17 := DATA/10;);
   DATA[177] -> RWORD(V18 := DATA/10;);
   DATA[181] -> RWORD(V19 := DATA/10;);
   DATA[183] -> RWORD(V20 := DATA/10;);
  TIMEOUT 300
 END;
END;

% 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 IV_AHUClimatix2 NAMED "IV_AHUClimatix2" TYPEID 10719 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "ONC(Steps)" [""]; % auto*off*stage1-3
  V2 : "ComfortTempDZ" ["°C"]DEC1;
  V3 : "ComfortHeatSP" ["°C"]DEC1;
  V4 : "SummerWinterComp" ["°C"]DEC1;
  V5 : "SupplyTempMinSP" ["°C"]DEC1;
  V6 : "SupplyTempMaxSP" ["°C"]DEC1;
  V7 : "SupplyFanSt1SP" [""]; % %, Pa, l/s
  V8 : "SupplyFanSt2SP" [""];
  V9 : "SupplyFanSt3SP" [""];
  V10 : "ExhaustFanSt1SP" [""];
  V11 : "ExhaustFanSt2SP" [""];
  V12 : "ExhaustFanSt3SP" [""];
  V13 : "TempStartHeatStart" ["°C"]DEC1;
  V14 : "TemStartHeatSP" ["°C"]DEC1;
  V15 : "SupplyFanSP" [""]; % %, Pa, l/s
  V16 : "ExhaustFanSP" [""]; % %, Pa, l/s

 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(4); % Start address
   DATA[4] := RWORD(71); % Antal register att läsa
  ANSWER SIZE 147 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[2] = BYTE(142); % Antal Bytes
   DATA[3] -> RWORD(V1 := DATA;);
   DATA[35] -> RWORD(V2 := DATA/10;);
   DATA[37] -> RWORD(V3 := DATA/10;);
   DATA[57] -> RWORD(V4 := DATA/10;);
   DATA[65] -> RWORD(V5 := DATA/10;);
   DATA[67] -> RWORD(V6 := DATA/10;);
   DATA[93] -> RWORD(V7 := DATA;);
   DATA[95] -> RWORD(V8 := DATA;);
   DATA[97] -> RWORD(V9 := DATA;);
   DATA[101] -> RWORD(V10 := DATA;);
   DATA[103] -> RWORD(V11 := DATA;);
   DATA[105] -> RWORD(V12 := DATA;);
   DATA[141] -> RWORD(V13 := DATA/10;);
   DATA[143] -> RWORD(V14 := DATA/10;);
  TIMEOUT 300
 END;

 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(111); % Start address
   DATA[4] := RWORD(2); % Antal register att läsa
  ANSWER SIZE 9 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(4); % Antal Bytes
   DATA[3] -> RWORD(V15 := DATA;);
   DATA[5] -> RWORD(V16 := DATA;);
  TIMEOUT 300
 END;
END;