% 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 ProconA1Mp4 NAMED "ProconA1Mp4" TYPEID 10000 IS

 PARAMETER
  Id       : "Adress" [""]INT;
  V1 : "System ON/OFF" [""]INT; % 0 = System OFF, 1 = System ON, 2 = Emergency Run (read only value), 3 = Test Run (read only value)
  V2 : "Operating Mode" [""]INT; % 0 = Stop, 1 = Hot Water, 2 = Heating
  V3 : "Capacity Mode" [""]INT; % 0 = COP priority, 1 = Capacity priority
  V4 : "Capacity Control Ratio" ["%"]INT; % Value in %. (0 = 0% ... 100 = 100%)

 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>3) THEN count6 := 0; ENDIF;
    IF (count6=0) THEN DATA := 24;
    ELSIF (count6=1) THEN DATA := 25;
    ELSIF (count6=2) THEN DATA := 44;
    ELSIF (count6=3) THEN DATA := 45;
    ENDIF;
   ); % Register adress
   DATA[4] <- RWORD(
    IF (count6=0) THEN DATA := V1;
    ELSIF (count6=1) THEN DATA := V2;
    ELSIF (count6=2) THEN DATA := V3;
    ELSIF (count6=3) THEN DATA := V4;
    ENDIF;
    count6 := count6+1;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(06);
  TIMEOUT 300
 END;
END;