function  __crc16(value: byte; crc: word)   :    word;

  var
    crc16 : longint;

  begin
    crc16 := $0000;
    crc16 := __crc16(xxxx, crc16);
  end;