% 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 Nibe1345FS NAMED "Nibe 1345 Förskjutning" TYPEID 15678 IS
 
 PARAMETER
  Id       : "Adress" INT;
  V1 : "FSBV" ["C"]DEC1;
  
 PUBLIC

 PRIVATE

 BAUDRATE 9600;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM WriteRegister NAMED "Write Register" IS
 QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(10); % Modbus kommando för att skriva ett register
   DATA[2] := RWORD(47011); % Register adress (om det står 47011 i manualen)
   DATA[4] := RWORD(1); % Antal register att skriva
   DATA[6] := BYTE(2); % Antal bytes som ska skrivas
   DATA[7] <- RWORD(
    IF (V1<0) THEN DATA := ROUND((V1*-10)+32768); ELSE DATA := ROUND(V1*10); ENDIF;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = HEX(10);
  TIMEOUT 300
 END;
END;