% 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 AHUwSPplus2 NAMED "AHUwSPplus2" TYPEID 16466 IS

 PARAMETER
  Id       : "Adress";
  V1 : "NightCoolRoomHyst" ["°C"]DEC1;
  V2 : "NightCoolRoomSP" ["°C"]DEC1;
  V3 : "CoolDisOutsideTemp" ["°C"]DEC1;
  V4 : "HeatFrostSP" ["°C"]DEC1;
  V5 : "HeatStbySP" ["°C"]DEC1;
  V6 : "MqaxDevSupTemp" ["°C"]DEC1;
  V7 : "MaxDevSupFan" [""]; % %, Pa or l/s depending on configuration
  V8 : "MaxDevExhFan" [""];

 PUBLIC

 PRIVATE
  count6;

 BAUDRATE 9600;
 CHECKSUM MODBUS SWAPPED;

 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>7) THEN count6 := 0; ENDIF;
    IF (count6=0) THEN DATA := 71;
    ELSIF (count6=1) THEN DATA := 72;
    ELSIF (count6=2) THEN DATA := 85;
    ELSIF (count6=3) THEN DATA := 91;
    ELSIF (count6=4) THEN DATA := 92;
    ELSIF (count6=5) THEN DATA := 110;
    ELSIF (count6=6) THEN DATA := 114;
    ELSIF (count6=7) THEN DATA := 115;
    ENDIF;
   ); % Register adress
   DATA[4] <- RWORD(
    IF (count6=0) THEN IF (V1<0) THEN DATA := ROUND((V1*10)+65536); ELSE DATA := ROUND(V1*10); ENDIF;
    ELSIF (count6=1) THEN IF (V2<0) THEN DATA := ROUND((V2*10)+65536); ELSE DATA := ROUND(V2*10); ENDIF;
    ELSIF (count6=2) THEN IF (V3<0) THEN DATA := ROUND((V3*10)+65536); ELSE DATA := ROUND(V3*10); ENDIF;
    ELSIF (count6=3) THEN IF (V4<0) THEN DATA := ROUND((V4*10)+65536); ELSE DATA := ROUND(V4*10); ENDIF;
    ELSIF (count6=4) THEN IF (V5<0) THEN DATA := ROUND((V5*10)+65536); ELSE DATA := ROUND(V5*10); ENDIF;
    ELSIF (count6=5) THEN DATA := V6*10;
    ELSIF (count6=6) THEN DATA := V7;
    ELSIF (count6=7) THEN DATA := V8;
    ENDIF;
    count6 := count6+1;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(06);
  TIMEOUT 300
 END;
END;