DEVICETYPE SysAirInput NAMED "SystemAirCorrigoInput" TYPEID 22119 IS

 PARAMETER
  Id       : "Adress";

 PUBLIC
  V0 : "Verkningsgrad VX01" ["%"]DEC1;
  V1 : "Driftstatus" [""]; % 0=Stopp 1=Startar 2= Start 1/2 3=Start 1/1 4=Start Normal, 5=Normal 7=Nattdrift 8=Handdrift 9=Nattkyla
  V2 : "Flöde GF11" ["m3/tim"];
  V3 : "Flöde GF12" ["m3/tim"];
  V4 : "Tillufttemp GT11" ["°C"]DEC1;
  V5 : "Frånlufttemp GT21" ["°C"]DEC1;
  V6 : "Utelufttemp GT41" ["°C"]DEC1;
  V7 : "Avlufttemp GT42" ["°C"]DEC1;
  V8 : "Flöde GF12" ["m3/h"]DEC1; % 1 decimal
  V9 : "Flöde GF11" ["m3/h"]DEC1; % 1 decimal
  V10 : "Frysskyddsgivare GT81" ["°C"]DEC1;
  V11 : "Uträknat BV tilluft" ["°C"]DEC1;
 PRIVATE

 BAUDRATE 9600;
 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(1); % Start address
   DATA[4] := RWORD(31); % Antal register att läsa
  ANSWER SIZE 67 % (Antal register * 2) + 5
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(04);
   DATA[2] = BYTE(62); % Antal Bytes
   DATA[3] -> RWORD(V0 := DATA;);
   DATA[5] -> RWORD(V1 := DATA;);
   DATA[15] -> RWORD(IF (DATA>=32768) THEN V11:=(DATA-65536)/10; ELSE V11:=DATA/10; ENDIF;);
   DATA[29] -> RWORD(V2 := DATA;);
   DATA[31] -> RWORD(V3 := DATA;);
   DATA[51] -> RWORD(IF (DATA>=32768) THEN V4:=(DATA-65536)/10; ELSE V4:=DATA/10; ENDIF;);
   DATA[53] -> RWORD(IF (DATA>=32768) THEN V5:=(DATA-65536)/10; ELSE V5:=DATA/10; ENDIF;);
   DATA[55] -> RWORD(IF (DATA>=32768) THEN V6:=(DATA-65536)/10; ELSE V6:=DATA/10; ENDIF;);
   DATA[57] -> RWORD(IF (DATA>=32768) THEN V7:=(DATA-65536)/10; ELSE V7:=DATA/10; ENDIF;);
   DATA[59] -> RWORD(IF (DATA>=32768) THEN V8:=(DATA-65536)/10; ELSE V8:=DATA/10; ENDIF;);
   DATA[61] -> RWORD(IF (DATA>=32768) THEN V9:=(DATA-65536)/10; ELSE V9:=DATA/10; ENDIF;);
   DATA[63] -> RWORD(IF (DATA>=32768) THEN V10:=(DATA-65536)/10; ELSE V10:=DATA/10; ENDIF;);
  TIMEOUT 300
 END;
END;