DEVICETYPE R03 NAMED "Siox R03" TYPEID 18379 IS

 PARAMETER
  Id : "Adress" [""]INT;

 PUBLIC
  T1 : "Temperatur" ["°C"]DEC2;
  DI1 : "Input 1" INT;
  DI2 : "Input 2" INT;
  C1 : "Counter 1" [""]INT;
  C2 : "Counter 2" [""]INT;
  C1a : "Acc.Counter 1" [""]INT;
  C2a : "Acc.Counter 2" [""]INT;

 PRIVATE
  tmp;
 BAUDRATE 9600;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM Read4 NAMED "Read 4" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(03); 
   DATA[2] := RWORD(5); % Start address
   DATA[4] := RWORD(27); % Antal register att läsa
  ANSWER SIZE 59 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = HEX(03);
   DATA[2] = BYTE(54); % Antal Bytes
   DATA[3] -> RINT(T1:=DATA/10;);
   DATA[11] -> RWORD( %9
    IF DATA & 1 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI1:=tmp;
    IF DATA & 2 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI2:=tmp;
   );   
   DATA[41] -> RWORD32(C1:=DATA;);
   DATA[45] -> RWORD32(C2:=DATA;);
   DATA[49] -> RWORD32(C1a:=DATA;);
   DATA[53] -> RWORD32(C2a:=DATA;);
  TIMEOUT 800
 END;
END;