% 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 SEHAM2 NAMED "Hagab SEHAM2" TYPEID 17288 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  S1 : "Fire alarm relay output is activated" [""]INT;
  S2 : "Fault alarm relay output is activated" [""]INT;
  S3 : "Fan 1 relay output is activated" [""]INT;
  S4 : "Fan 2 relay output is activated" [""]INT;
  S5 : "Hardware nighttime input is activated" [""]INT;
  S6 : "Hardware external fire alarm input is activated" [""]INT;
  S7 : "Hardware pressure sensor input is activated" [""]INT;
  S8 : "Hardware auxilliary input is activated" [""]INT;
  S9 : "Slave communication error (non-latching)" [""]INT;
  S10 : "Exhaust fan test is in progress in FG1 (function group 1)" [""]INT;
  S11 : "Exhaust fan test is in progress in FG2 (function group 2)" [""]INT;
  S12 : "Damper test is in progress in FG1 (function group 1)" [""]INT;
  S13 : "Damper test is in progress in FG2 (function group 2)" [""]INT;
 PRIVATE

 BAUDRATE 9600;
 PARITY EVEN;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM Read4 NAMED "Read 4" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(04); % Modbus kommando för att läsa register kod 04
   DATA[2] := RWORD(1296); % Start address
   DATA[4] := RWORD(1); % Antal register att läsa
  ANSWER SIZE 7 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(2); % Antal Bytes
   DATA[3] -> RWORD(
    IF DATA & 1 THEN S1:=1; ELSE S1:=0; ENDIF;
IF DATA & 2 THEN S2:=1; ELSE S2:=0; ENDIF;
IF DATA & 4 THEN S3:=1; ELSE S3:=0; ENDIF;
IF DATA & 8 THEN S4:=1; ELSE S4:=0; ENDIF;
IF DATA & 16 THEN S5:=1; ELSE S5:=0; ENDIF;
IF DATA & 32 THEN S6:=1; ELSE S6:=0; ENDIF;
IF DATA & 64 THEN S7:=1; ELSE S7:=0; ENDIF;
IF DATA & 128 THEN S8:=1; ELSE S8:=0; ENDIF;
IF DATA & 256 THEN S9:=1; ELSE S9:=0; ENDIF;
IF DATA & 512 THEN S10:=1; ELSE S10:=0; ENDIF;
IF DATA & 1024 THEN S11:=1; ELSE S11:=0; ENDIF;
IF DATA & 2048 THEN S12:=1; ELSE S12:=0; ENDIF;
IF DATA & 4096 THEN S13:=1; ELSE S13:=0; ENDIF;
   );
  TIMEOUT 300
 END;
END;