%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Device definition for REGIN EXO Compact Coil
%
% Settings module:
%       Parity:	None
%       Baud:   9600
%       Mode:   RTU
% 
% Author:  Ove Jansson, ABELKO AB Luleå 
% History: 2011-05-16 initial version
%          2012-05-24 updated for kurortsparken
%
DEVICETYPE ReginCoil NAMED "ReginCoil" TYPEID 21424 IS 

  PARAMETER
    Id         : "Adress";
      
  PUBLIC
    V1  : "FA1_Startad";  	% 100  
    V2  : "VP1_Startad";  	% 101  
  
  PRIVATE
    

  BAUDRATE 9600;
  CHECKSUM MODBUS SWAPPED;

  TELEGRAM ReadCoil NAMED "ReadCoil" IS
    QUESTION
      DATA[0]  := BYTE(Id);      % Modbus unit address
      DATA[1]  := HEX(01);       % Modbus command "01h" Read coil status (bit)
      DATA[2]  := RWORD(0);      % Start adress
      DATA[4]  := RWORD(2);      % Number of inputs
      
    ANSWER SIZE 6
      DATA[0]   = BYTE(Id);
      DATA[1]   = HEX(01); 
      DATA[2]   = BYTE(1);
      DATA[3]  -> BYTE(IF (DATA & 1)   THEN V1 := 1; ELSE V1 := 0; ENDIF;
                       IF (DATA & 2)   THEN V2 := 1; ELSE V2 := 0; ENDIF;
      ); 

    TIMEOUT 2000

  END;
END;