/* ----- file MISC.C66 -----                                                */



/* Miscellaneous functions                                                  */



#include "MISC.H"



/****************************************************************************/
/* function to convert a BCD value to integer                               */

int BCD2INT(BCD16 BCDValue) {
   int   Result;


   Result = BCDValue & 0x000F;
   Result += (((BCDValue & 0x00F0) >> 4) * 10);
   Result += (((BCDValue & 0x0F00) >> 8) * 100);
   Result += (((BCDValue & 0xF000) >> 12) * 1000);
   return(Result);
}

/****************************************************************************/
/* function to convert a BCD value to integer                               */

BCD16 INT2BCD(int INTValue) {
   BCD16 Result;



   Result = INTValue % 10;
   INTValue = INTValue / 10; 
   Result |= ((INTValue % 10) << 4);
   INTValue = INTValue / 10; 
   Result |= ((INTValue % 10) << 8);
   INTValue = INTValue / 10; 
   Result |= ((INTValue % 10) << 12);
   return(Result);
}

/****************************************************************************/

/* ----- end MISC.C66 ----- */