//------------------------------------------------------------------------------

char toBCD(char bin_val)
{
   char temp;
   char retval;

   temp = bin_val;
   retval = 0;

   while(1)
   {
      if(temp >= 10)
      {
         temp -= 10;
         retval += 0x10; // increment tens digit
      }
         else            // get ones digit by adding remainder
      {
         retval += temp; // adjusted result
         break;
      }
   }
         return(retval);
}

//------------------------------------------------------------------------------

char tobin(char BCD_val)

{
   char temp0;
   char retval0;

   temp0 = BCD_val;
   retval0 = 0;

   while(1)
   {
   //
   //

      if(temp0 >= 16)
      {
         temp0 -= 16;
         retval0 += 1; //
      }
         else            //
      {
         retval0 *= 10;
         retval0 +=  temp0; //
         break;
      }
   }
         return(retval0);
}

//------------------------------------------------------------------------------