{
      int i;
      unsigned char a;

      /* '450'/4 -> 0,4;5,0 */
      /* '450'/3 -> 4,5;0,x */

      if (bcd_len&1) {
            bcd_data[bcd_len/2] &= 0x0f;
            bcd_data[bcd_len/2] |= (freq%10)<<4;      /* NB: low nibble is left uncleared */
            freq /= 10;
      }
      for (i=(bcd_len/2)-1; i >= 0; i--) {
            a = freq%10;
            freq /= 10;
            a |= (freq%10)<<4;
            freq /= 10;
            bcd_data[i] = a;
      }

      return bcd_data;
}