bit_read_TIMERLL (Bit_Chain *dat)
{
  BITCODE_TIMERLL date;
  BITCODE_BD ms;
  date.days = bit_read_RL (dat);
  date.ms = bit_read_RL (dat);
  ms = (double)date.ms;
  while (ms > 1.0)
    ms /= 10.0;
  date.value = date.days + ms; // just for display, not calculations
  return date;
}
bit_read_TIMERLL (Bit_Chain *dat)
{
  BITCODE_TIMERLL date;
  BITCODE_BD ms;
  date.days = bit_read_RL (dat);
  date.ms = bit_read_RL (dat);
  ms = (double)date.ms;
  while (ms > 1.0)
    ms /= 10.0;
  date.value = date.days + ms;  
  return date;
}