DEVICETYPE MC402 NAMED "Kamstrup_MC402" TYPEID 17972
IS
% --- Device created 12:02:12 PM 6/26/2014
  PARAMETER
    Id :"Address"INT;
  PUBLIC
    IDNr : "ID number"INT;
    rec1 : "Fabrication No"[""]INT;
    rec2 : "Energy E1"["Wh"]INT;
    rec3 : "Volume V1"["m³"]DEC2;
    rec5 : "Flow Temperature"["°C"]DEC2;
    rec6 : "Return Temperature"["°C"]DEC2;
    rec7 : "Temperature Difference"["°K"]DEC2;
    rec8 : "Actual Power"["W"]DEC2;
    rec9 : "Max Power"["W"]DEC2;
    rec10 : "Actual Flow"["m³/h"]DEC2;
    rec11 : "Max Flow"["m³/h"]DEC2;
  PRIVATE
    Exp;
    tmp;
  BAUDRATE 2400;
  PARITY EVEN;
  CHECKSUM SUM8 SKIP 4;
  POSTBYTES 1;

  TELEGRAM Init NAMED "Init" IS
    QUESTION
    DATA[0] := HEX(10);
    DATA[1] := HEX(40);
    DATA[2] := BYTE(Id);
    DATA[3] <- BYTE(DATA :=Id+64;);
    DATA[4] := HEX(16);
  ANSWER SIZE 1
    DATA[0] = HEX(E5);
  TIMEOUT 5000
  END;

  TELEGRAM Read NAMED "Read" IS
    QUESTION
      DATA[0] := HEX(10);
      DATA[1] := HEX(5B);
      DATA[2] := BYTE(Id);
      DATA[3] <- BYTE(DATA :=Id+91;);
      DATA[4] := HEX(16);
    ANSWER SIZE 253
      DATA[0] = HEX(68);
      DATA[1] = HEX(F7);
      DATA[2] = HEX(F7);
      DATA[3] = HEX(68);
      DATA[4] = HEX(08);
      DATA[5] = BYTE(Id);
      DATA[6] = HEX(72);
      DATA[7] -> BYTE(IDNr := (DATA & HEX(F)) + 10*(DATA & HEX(F0))/16;);
      DATA[8] -> BYTE(IDNr := IDNr + 100*(DATA & HEX(F)) + 1000*(DATA & HEX(F0))/16;);
      DATA[9] -> BYTE(IDNr := IDNr + 10000*(DATA & HEX(F)) + 100000*(DATA & HEX(F0))/16;);
      DATA[10] -> BYTE(IDNr := IDNr + 1000000*(DATA & HEX(F)) + 10000000*(DATA & HEX(F0))/16;);
      DATA[14] = HEX(04);
      % 8 digit BCD 
      DATA[21] -> BYTE(rec1 := (DATA & HEX(F)) + 10*(DATA & HEX(F0))/16;);
      DATA[22] -> BYTE(rec1 := rec1 + 100*(DATA & HEX(F)) + 1000*(DATA & HEX(F0))/16;);
      DATA[23] -> BYTE(rec1 := rec1 + 10000*(DATA & HEX(F)) + 100000*(DATA & HEX(F0))/16;);
      DATA[24] -> BYTE(rec1 := rec1 + 1000000*(DATA & HEX(F)) + 10000000*(DATA & HEX(F0))/16;);
            % 32 bit integer 
      DATA[27] -> WORD(tmp:=DATA;);
      DATA[29] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec2:=tmp-4294967296; ELSE rec2:=tmp; ENDIF;);
      DATA[26] -> BYTE(Exp := (DATA & 7) - 3; rec2 := rec2*10^Exp;);
      % 32 bit integer 
      DATA[33] -> WORD(tmp:=DATA;);
      DATA[35] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec3:=tmp-4294967296; ELSE rec3:=tmp; ENDIF;);
      DATA[32] -> BYTE(Exp := (DATA & 7) - 6; rec3 := rec3*10^Exp;);
      % 32 bit integer 
      DATA[45] -> WORD(tmp:=DATA;);
      DATA[47] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec5:=tmp-4294967296; ELSE rec5:=tmp; ENDIF;);
      DATA[44] -> BYTE(Exp := (DATA & 3) - 3; rec5 := rec5*10^Exp;);
      % 32 bit integer 
      DATA[51] -> WORD(tmp:=DATA;);
      DATA[53] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec6:=tmp-4294967296; ELSE rec6:=tmp; ENDIF;);
      DATA[50] -> BYTE(Exp := (DATA & 3) - 3; rec6 := rec6*10^Exp;);
      % 32 bit integer 
      DATA[57] -> WORD(tmp:=DATA;);
      DATA[59] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec7:=tmp-4294967296; ELSE rec7:=tmp; ENDIF;);
      DATA[56] -> BYTE(Exp := (DATA & 3) - 3; rec7 := rec7*10^Exp;);
      % 32 bit integer 
      DATA[63] -> WORD(tmp:=DATA;);
      DATA[65] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec8:=tmp-4294967296; ELSE rec8:=tmp; ENDIF;);
      DATA[62] -> BYTE(Exp := (DATA & 7) - 3; rec8 := rec8*10^Exp;);
      % 32 bit integer 
      DATA[69] -> WORD(tmp:=DATA;);
      DATA[71] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec9:=tmp-4294967296; ELSE rec9:=tmp; ENDIF;);
      DATA[68] -> BYTE(Exp := (DATA & 7) - 3; rec9 := rec9*10^Exp;);
      % 32 bit integer 
      DATA[75] -> WORD(tmp:=DATA;);
      DATA[77] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec10:=tmp-4294967296; ELSE rec10:=tmp; ENDIF;);
      DATA[74] -> BYTE(Exp := (DATA & 7) - 6; rec10 := rec10*10^Exp;);
      % 32 bit integer 
      DATA[81] -> WORD(tmp:=DATA;);
      DATA[83] -> WORD(tmp:=tmp + 65536*DATA; IF (tmp>2147483647) THEN rec11:=tmp-4294967296; ELSE rec11:=tmp; ENDIF;);
      DATA[80] -> BYTE(Exp := (DATA & 7) - 6; rec11 := rec11*10^Exp;);
    TIMEOUT 5000
  END;
END;