% 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 AcquanewS NAMED "AcquanewS" TYPEID 13407 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V1 : "Current SP" ["°C"];
  V2 : "Return temp" ["°C"]DEC1;
  V3 : "Supply temp" ["°C"]DEC1;
  V4 : "Ext. air temp" ["°C"]DEC1;
  V5 : "Condensing pressure" [""];
  V6 : "Evaporating pressure" [""];
  V7 : "Compressor hours 1" [""];
  V8 : "Compressor starts 1" [""];
  V9 : "Compressor hours 2" [""];
  V10 : "Compressor starts 2" [""];
  E12 : "Demand limit input" [""]INT;
  E13 : "Phase monitor" [""]INT;
  E26 : "Compressor 1 thermal" [""]INT;
  F01 : "High pressure HP" [""]INT;
  F02 : "High pressure LP" [""]INT;

 PRIVATE
  count3;
  tmp;

 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
   DATA[2] <- RWORD(
    IF(count3>11) THEN count3 := 0; ENDIF;
    IF (count3=0) THEN tmp := 4200;
    ELSIF (count3=1) THEN tmp := 4210;
    ELSIF (count3=2) THEN tmp := 4211;
    ELSIF (count3=3) THEN tmp := 4213;
    ELSIF (count3=4) THEN tmp := 4219;
    ELSIF (count3=5) THEN tmp := 4220;
    ELSIF (count3=6) THEN tmp := 4227;
    ELSIF (count3=7) THEN tmp := 4228;
    ELSIF (count3=8) THEN tmp := 4229;
    ELSIF (count3=9) THEN tmp := 4230;
ELSIF (count3=10) THEN tmp := 3000;
ELSIF (count3=11) THEN tmp := 3001;
    ENDIF;
    DATA:= tmp;
   );
   DATA[4] := RWORD(01);
  ANSWER SIZE 7   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[3] -> RWORD(
    IF (count3=0) THEN V1 := DATA;
    ELSIF (count3=1) THEN V2 := DATA/10;
    ELSIF (count3=2) THEN V3 := DATA/10;
    ELSIF (count3=3) THEN V4 := DATA/10;
    ELSIF (count3=4) THEN V5 := DATA;
    ELSIF (count3=5) THEN V6 := DATA;
    ELSIF (count3=6) THEN V7 := DATA;
    ELSIF (count3=7) THEN V8 := DATA;
    ELSIF (count3=8) THEN V9 := DATA;
    ELSIF (count3=9) THEN V10 := DATA;
ELSIF (count3=10) THEN 
 IF(DATA & 4096) THEN E12:=1; ELSE E12:=0; ENDIF;
 IF(DATA & 8192) THEN E13:=1; ELSE E13:=0; ENDIF;
 IF(DATA & 16384) THEN F01:=1; ELSE F01:=0; ENDIF;
 IF(DATA & 32768) THEN F02:=1; ELSE F02:=0; ENDIF;
    ELSIF (count3=11) THEN IF(DATA & 1) THEN E26:=1; ELSE E26:=0; ENDIF;
    ENDIF;
    count3 := count3+1;
   );
  TIMEOUT 300
 END;
END;