DEVICETYPE R01 NAMED "Siox R01" TYPEID 18378 IS

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

 PUBLIC
  DI1 : "Input 1" INT;
  DI2 : "Input 2" INT;
  DO1 : "Output 1" INT;
  DO2 : "Output 2" INT;
  C1 : "Counter 1" [""]INT;
  C2 : "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(3); % Antal register att läsa
  ANSWER SIZE 11 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = HEX(03);
   DATA[2] = BYTE(6); % Antal Bytes
   DATA[3] -> RWORD(
    IF DATA & 1 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI1:=tmp;
    IF DATA & 2 THEN tmp:=1; ELSE tmp:=0; ENDIF; DI2:=tmp;
    IF DATA & 256 THEN tmp:=1; ELSE tmp:=0; ENDIF; DO1:=tmp;
    IF DATA & 512 THEN tmp:=1; ELSE tmp:=0; ENDIF; DO2:=tmp;
   );
   DATA[5] -> RWORD(C1:=DATA;);
   DATA[7] -> RWORD(C2:=DATA;);
  TIMEOUT 800
 END;
END;