do
//  {
//      a = b;    
//      b = (a + c/a)/2;
//  } while (a > b);

               typedef unsigned char  tU8;  /* 8 bits, unsigned */
    typedef signed char  tS8;  /* 8 bits, unsigned */
    typedef unsigned int  tU16;    /* Two-byte unsigned int */
    typedef long int  tS32;
    typedef signed int  tS16;    /* Two-byte signed int */
    typedef unsigned long  tU32;    /* Four-byte unsigned */
    typedef union {tU8 Byte[4]; tS16 I[2]; tU32 L;} tAll;

tS16 Sqrt(tS16 value)
{
    
    tAll  a;
    tS16 b;    
    tU8  c;
    tAll temp;

    {
//  c = 10000;
//  c = c*Result;
//  b = c;
//  do
//  {
//      a = b;    
//      b = (a + c/a)/2;
//  } while (a > B);
//    }
//    Result = a;
//    return  Result;

 c = value>>8;                   /*Выделяем старший байт*/
 a.L = value * 429496;        /* домнажаем на 65556*6.5536 для точности */
 b = 1;
 temp.I[0] = a.I[1];
 temp.I[1] = a.I[1];
 while(b>0)
 {
     a.L = (tU32)temp.I[0]*(tU16)temp.I[0];   /*  y^2 */
     b = (temp.I[1] - a.I[1]);                         /* X - y^2 */
     if (c > 9)                                              /* Если больше чем 0x900 */
     {
                    b =b>>2;                                       /* (X - y^2)/2 */
     }      
     temp.I[0]+=b;                                    /* y = y+(X-y^2) или y = y+(X-y^2)/2*/
 };
    }
    a.L = (tU32)temp.I[0] * 10000;           /* Множим на 65536/6.5536 = 10000*/
    return a.I[1]; /* В старшем байте искомый результат */
    
}

tS16 Sqrt(tS16 value)          
{
       tS16 Result;
       tU32 ulinput;       // вход 27 бит
       tU16 uitemp;    // результат, и врем.
       tU8  ucc;        // счетчики

    
/* uniput = (value*10000) Для точности 2 знака */
       ulinput =  value<<1;                    
       ulinput += (tU32)value<<3;

       ulinput =  ulinput<<1;
       ulinput += ulinput<<2;
    
       ulinput  = ulinput<<1;
       ulinput += ulinput<<2;

       ulinput = ulinput<<1;
       ulinput +=ulinput<<2;
/*********************Конец умножения на 10000 *********************/
    
        Result  = 0;
        uitemp = 0;

        ucc = 14;

        do
       {
               uitemp <<= 1;
               if (ulinput & 0x08000000)
                     uitemp |= 1;
             
               ulinput <<= 1;    
               Result <<= 1;
   
              uitemp <<= 1;
              if (ulinput & 0x08000000)
                     uitemp |= 1;
                 
              ulinput <<= 1;    
              Result <<= 1;
   

              Result &= ~2;   // set '01' at the end
              Result |= 1;

              if (uitemp >= Result)
              {
                      uitemp -= Result;    
                      Result |= 2;
               }
               Result >>= 1;
       } while (--ucc != 0);    // конец циклов

        return Result;
}