sub CalculateCRC16    # Bytewert, Initwert
{
  # The CCITT-polynomial is: 0x1021
  # X^16+X^12+X^5+1

  return $CRC16Tab[(($_[1] >> 8) ^ $_[0]) & 0xFF] ^ (($_[1] << 8) & 0xFFFF);
}