% 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 CTC NAMED "CTC" TYPEID 16802 IS

 PARAMETER
  Id       : "Adress" [""]INT;
  PumpNr   : "Pump nummer" ["Pump #1","Pump #2","Pump #3","Pump #4","Pump #5","Pump #6","Pump #7","Pump #8","Pump #9","Pump #10","Pump #"]ENUM;
% kommentera bort raden ovan och använd raden nedan för wmpro
%   PumpNr   : "Pump nummer" []INT; % 0=pump 1 ... 9=pump 10

 PUBLIC
  V1 : "OutsideTemp" ["°C"]DEC1;
  V2 : "High pressure" ["bar"]DEC1;
  V3 : "Low pressure" ["bar"]DEC1;
  V4 : "Defrost timer" [""]INT;
  V5 : "Compressor start delay timer" [""]INT;
  V6 : "Charge pump value" ["%"]INT;
  V7 : "Compressor" [""]INT;
  V8 : "Brine pump" [""]INT;
  V9 : "Charge pump" [""]INT;
  V10 : "Heating cable" [""]INT;
  V11 : "Defrost 4-way valve" [""]INT;
  V12 : "Compressor operating hours" ["h"]INT;
  V13 : "Compressor operating time/24 hours" ["min"]INT;
  V14 : "Compressor starts/24 hours" [""]INT;
  V15 : "Energy heat counter" ["kWh"];

 PRIVATE
  temp;

 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(
     DATA:=(PumpNr*177)+256; %  start
   ); % Start address
   DATA[4] := RWORD(38); % Antal register att läsa
  ANSWER SIZE 81 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[2] = BYTE(76); % Antal Bytes
   DATA[9] -> RWORD(IF(DATA>=32768) THEN V1:=(DATA-65536)/10; ELSE V1:=DATA/10; ENDIF;);
   DATA[17] -> RWORD(IF(DATA>=32768) THEN V2:=(DATA-65536)/10; ELSE V2:=DATA/10; ENDIF;);
   DATA[19] -> RWORD(IF(DATA>=32768) THEN V3:=(DATA-65536)/10; ELSE V3:=DATA/10; ENDIF;);
   DATA[35] -> RWORD(IF(DATA>=32768) THEN V4:=(DATA-65536); ELSE V4:=DATA; ENDIF;);
   DATA[37] -> RWORD(IF(DATA>=32768) THEN V5:=(DATA-65536); ELSE V5:=DATA; ENDIF;);
   DATA[39] -> RWORD(IF(DATA>=32768) THEN V6:=(DATA-65536); ELSE V6:=DATA; ENDIF;);
   DATA[43] -> RWORD(
    IF DATA&1 THEN V7:=1; ELSE V7:=0; ENDIF;
IF DATA&8 THEN V8:=1; ELSE V8:=0; ENDIF;
IF DATA&16 THEN V9:=1; ELSE V9:=0; ENDIF;
IF DATA&32 THEN V10:=1; ELSE V10:=0; ENDIF;
IF DATA&64 THEN V11:=1; ELSE V11:=0; ENDIF;
   );
   DATA[69] -> RWORD(temp:=DATA*1000;);
   DATA[71] -> RWORD(V12:=DATA+temp;);
   DATA[73] -> RWORD(V13:=DATA;);
   DATA[75] -> RWORD(V14:=DATA;);
   DATA[77] -> RWORD(temp:=10000*DATA;);
   DATA[79] -> RWORD(V15:=DATA+temp;);
  TIMEOUT 300
 END;
END;