SCALE_PHASE
ltemp = -time_phase / SCALE_PHASE;
time_phase += ltemp * SCALE_PHASE;
ltemp = time_phase / SCALE_PHASE;
time_phase -= ltemp * SCALE_PHASE;
time_adj = -(lltemp * SCALE_PHASE) / hz / SCALE_UPDATE;
time_adj = (lltemp * SCALE_PHASE) / hz / SCALE_UPDATE;
time_adj += (lltemp * SCALE_PHASE) / (SCALE_USEC * hz);