DEVICETYPE SysAirSkrivBV NAMED "SystemAirCorrigoSkrivBV" TYPEID 22123 IS

 PARAMETER
  Id       : "Adress";
  V1 : "Skriv BV Frånluft GT21" ["°C"]DEC1;
  V2 : "Skriv BV GF11 1/1 fart" ["m3/tim"];
  V3 : "Skriv BV GF11 1/2 fart" ["m3/tim"];
  V4 : "Skriv BV GF12 1/1 fart" ["m3/tim"];
  V5 : "Skriv BV GF12 1/2 fart" ["m3/tim"];
  V6 : "Skriv BV Varmhållning" ["°C"]DEC1;
  V7 : "Skriv BV Frysskydd" ["°C"]DEC1;
  V8 : "Skriv Låg verkningsgrad VX01" ["%"];
  V9 : "Skriv Larmfördröjning" ["min"];
  V10a : "Skriv Tidkanal 1/1" [""]; % 0=från 1=tidkanal 1/2 2=tidkanal1/1
  V10b : "Skriv Tidkanal 1/2" [""]; % 0=från 1=tidkanal 1/2 2=tidkanal1/1
  V11 : "Skriv Pumpstopp GT91" ["°C"]DEC1;
  V12 : "Skriv Max tillufttemp" ["°C"]DEC1;
  V13 : "Skriv Min tillufttemp" ["°C"]DEC1;

 PUBLIC

 PRIVATE
  count6;
  tmp;

 BAUDRATE 9600;
 CHECKSUM MODBUS SWAPPED;

 TELEGRAM WriteRegister NAMED "Write Register" IS
  QUESTION
   DATA[0] := BYTE(Id); % Enhetens Modbus adress
   DATA[1] :=  HEX(06); % Modbus kommando för att skriva ett register
   DATA[2] <- RWORD(
    IF(count6>12) THEN count6 := 0; ENDIF;
    IF (count6=0) THEN DATA := 17;
    ELSIF (count6=1) THEN DATA := 27;
    ELSIF (count6=2) THEN DATA := 28;
    ELSIF (count6=3) THEN DATA := 29;
    ELSIF (count6=4) THEN DATA := 30;
    ELSIF (count6=5) THEN DATA := 32;
    ELSIF (count6=6) THEN DATA := 338;
    ELSIF (count6=7) THEN DATA := 341;
    ELSIF (count6=8) THEN DATA := 352;
    ELSIF (count6=9) THEN DATA := 367;
    ELSIF (count6=10) THEN DATA := 402;
    ELSIF (count6=11) THEN DATA := 403;
    ELSIF (count6=12) THEN DATA := 404;
    ENDIF;
   ); % Register adress
   DATA[4] <- RWORD(
    IF (count6=0) THEN IF (V1<0) THEN DATA := ROUND((V1*10)+65536); ELSE DATA := ROUND(V1*10); ENDIF;
    ELSIF (count6=1) THEN DATA := V2;
    ELSIF (count6=2) THEN DATA := V3;
    ELSIF (count6=3) THEN DATA := V4;
    ELSIF (count6=4) THEN DATA := V5;
    ELSIF (count6=5) THEN IF (V6<0) THEN DATA := ROUND((V6*10)+65536); ELSE DATA := ROUND(V6*10); ENDIF;
    ELSIF (count6=6) THEN IF (V7<0) THEN DATA := ROUND((V7*10)+65536); ELSE DATA := ROUND(V7*10); ENDIF;
    ELSIF (count6=7) THEN DATA := V8;
    ELSIF (count6=8) THEN DATA := V9;
    ELSIF (count6=9) THEN IF V10a=1 THEN DATA := 2; ELSIF V10b=1 THEN DATA := 1; ELSE DATA :=0; ENDIF;
    ELSIF (count6=10) THEN IF (V11<0) THEN DATA := ROUND((V11*10)+65536); ELSE DATA := ROUND(V11*10); ENDIF;
    ELSIF (count6=11) THEN IF (V12<0) THEN DATA := ROUND((V12*10)+65536); ELSE DATA := ROUND(V12*10); ENDIF;
    ELSIF (count6=12) THEN IF (V13<0) THEN DATA := ROUND((V13*10)+65536); ELSE DATA := ROUND(V13*10); ENDIF;
    ENDIF;
    count6 := count6+1;
   );
  ANSWER SIZE 8
   DATA[0] = BYTE(Id);
   DATA[1] = BYTE(06);
  TIMEOUT 300
 END;
END;