% 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 AWD3 NAMED "AWD3 Energimätare" TYPEID 16354 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V0 : "WT total hög" ["kWh"]DEC1;
  V1 : "PRMS fas 1" ["kW"]DEC1;
  V2 : "PRMS fas 2" ["kW"]DEC1;
  V3 : "PRMS fas 3" ["kW"]DEC1;
  V4 : "PRMS total" ["kW"]DEC1;

 PRIVATE
  tmp;

 BAUDRATE 9600;
 PARITY EVEN;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM ReadEnergy NAMED "ReadEnergy" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); % Modbus kommando för att läsa register
   DATA[2] := RWORD(27);
   DATA[4] := RWORD(02);
  ANSWER SIZE 9
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[3] -> RWORD(tmp:=DATA*65536;);
   DATA[5] -> RWORD(V0:=(DATA+tmp)/10;);
  TIMEOUT 600
 END;
 
 TELEGRAM ReadPower NAMED "ReadPower" 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(37); % Start address
   DATA[4] := RWORD(15); % Antal register att läsa
  ANSWER SIZE 35 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(03);
   DATA[2] = BYTE(30); % Antal Bytes
   DATA[3] -> RWORD(V1 := DATA/10;);
   DATA[13] -> RWORD(V2 := DATA/10;);
   DATA[23] -> RWORD(V3 := DATA/10;);
   DATA[29] -> RWORD(V4 := DATA/10;);
  TIMEOUT 600
 END;
END;