Lines Matching refs:up
116 * x40 Codec error (overrun). The machine is not fast enough to keep up
130 * probably chew up too much CPU time anyway.
292 irig_start, /* start up driver */
312 struct irigunit *up;
335 up = emalloc_zero(sizeof(*up));
344 free(up);
347 pp->unitptr = up;
355 up->tc = MINTC;
356 up->decim = 1;
357 up->gain = 127;
363 up->comp[0] = up->comp[OFFSET] = 0.;
364 up->comp[1] = 1; up->comp[OFFSET + 1] = -1.;
365 up->comp[2] = 3; up->comp[OFFSET + 2] = -3.;
368 up->comp[i] = up->comp[i - 1] + step;
369 up->comp[OFFSET + i] = -up->comp[i];
373 DTOLFP(1. / SECOND, &up->tick);
388 struct irigunit *up;
391 up = pp->unitptr;
394 if (NULL != up)
395 free(up);
412 struct irigunit *up;
424 up = pp->unitptr;
432 up->timestamp = rbufp->recv_time;
435 sample = up->comp[~*dpt++ & 0xff];
445 up->phase += (up->freq + clock_codec) / SECOND;
446 up->phase += pp->fudgetime2 / 1e6;
447 if (up->phase >= .5) {
448 up->phase -= 1.;
449 } else if (up->phase < -.5) {
450 up->phase += 1.;
456 L_ADD(&up->timestamp, &up->tick);
458 if (sample > up->signal)
459 up->signal = sample;
460 up->signal += (sample - up->signal) /
466 up->seccnt = (up->seccnt + 1) % SECOND;
467 if (up->seccnt == 0) {
468 if (up->irig_b > up->irig_e) {
469 up->decim = 1;
470 up->fdelay = IRIG_B;
472 up->decim = 10;
473 up->fdelay = IRIG_E;
475 up->irig_b = up->irig_e = 0;
485 up->port = 2;
487 up->port = 1;
489 up->mongain = MONGAIN;
491 up->mongain = 0;
512 struct irigunit *up;
520 up = pp->unitptr;
527 irig_b = (up->bpf[8] = up->bpf[7]) * 6.505491e-001;
528 irig_b += (up->bpf[7] = up->bpf[6]) * -3.875180e+000;
529 irig_b += (up->bpf[6] = up->bpf[5]) * 1.151180e+001;
530 irig_b += (up->bpf[5] = up->bpf[4]) * -2.141264e+001;
531 irig_b += (up->bpf[4] = up->bpf[3]) * 2.712837e+001;
532 irig_b += (up->bpf[3] = up->bpf[2]) * -2.384486e+001;
533 irig_b += (up->bpf[2] = up->bpf[1]) * 1.427663e+001;
534 irig_b += (up->bpf[1] = up->bpf[0]) * -5.352734e+000;
535 up->bpf[0] = sample - irig_b;
536 irig_b = up->bpf[0] * 4.952157e-003
537 + up->bpf[1] * -2.055878e-002
538 + up->bpf[2] * 4.401413e-002
539 + up->bpf[3] * -6.558851e-002
540 + up->bpf[4] * 7.462108e-002
541 + up->bpf[5] * -6.558851e-002
542 + up->bpf[6] * 4.401413e-002
543 + up->bpf[7] * -2.055878e-002
544 + up->bpf[8] * 4.952157e-003;
545 up->irig_b += irig_b * irig_b;
552 irig_e = (up->lpf[4] = up->lpf[3]) * 8.694604e-001;
553 irig_e += (up->lpf[3] = up->lpf[2]) * -3.589893e+000;
554 irig_e += (up->lpf[2] = up->lpf[1]) * 5.570154e+000;
555 irig_e += (up->lpf[1] = up->lpf[0]) * -3.849667e+000;
556 up->lpf[0] = sample - irig_e;
557 irig_e = up->lpf[0] * 3.215696e-003
558 + up->lpf[1] * -1.174951e-002
559 + up->lpf[2] * 1.712074e-002
560 + up->lpf[3] * -1.174951e-002
561 + up->lpf[4] * 3.215696e-003;
562 up->irig_e += irig_e * irig_e;
567 up->badcnt = (up->badcnt + 1) % up->decim;
568 if (up->badcnt == 0) {
569 if (up->decim == 1)
591 struct irigunit *up;
602 up = pp->unitptr;
610 up->envphase = (up->envphase + 1) % BAUD;
611 up->integ[up->envphase] += (sample - up->integ[up->envphase]) /
612 (5 * up->tc);
613 lope = up->integ[up->envphase];
614 carphase = up->envphase % CYCLE;
615 up->lastenv[carphase] = sample;
616 up->lastint[carphase] = lope;
623 if (up->lastsig > 0 && lope <= 0)
624 up->zxing += (double)(carphase - 4) / CYCLE;
625 up->lastsig = lope;
631 if (up->envphase == 0) {
632 up->maxsignal = up->intmax; up->noise = up->intmin;
633 up->intmin = 1e6; up->intmax = -1e6;
634 if (up->maxsignal < DRPOUT)
635 up->errflg |= IRIG_ERR_AMP;
636 if (up->maxsignal > 0)
637 up->modndx = (up->maxsignal - up->noise) /
638 up->maxsignal;
640 up->modndx = 0;
641 if (up->modndx < MODMIN)
642 up->errflg |= IRIG_ERR_MOD;
643 if (up->errflg & (IRIG_ERR_AMP | IRIG_ERR_FREQ |
645 up->tc = MINTC;
646 up->tcount = 0;
656 dtemp = up->zxing * up->decim / BAUD;
657 up->yxing = dtemp;
658 up->zxing = 0.;
659 up->phase += dtemp / up->tc;
660 up->freq += dtemp / (4. * up->tc * up->tc);
661 if (up->freq > MAXFREQ) {
662 up->freq = MAXFREQ;
663 up->errflg |= IRIG_ERR_FREQ;
664 } else if (up->freq < -MAXFREQ) {
665 up->freq = -MAXFREQ;
666 up->errflg |= IRIG_ERR_FREQ;
683 lope = (up->lastint[2] - up->lastint[6]) / 2.;
684 if (lope > up->intmax)
685 up->intmax = lope;
686 if (lope < up->intmin)
687 up->intmin = lope;
695 up->pulse = (up->pulse + 1) % 10;
696 up->cycles <<= 1;
697 if (lope >= (up->maxsignal + up->noise) / 2.)
698 up->cycles |= 1;
699 if ((up->cycles & 0x303c0f03) == 0x300c0300) {
700 if (up->pulse != 0)
701 up->errflg |= IRIG_ERR_SYNCH;
702 up->pulse = 0;
711 env = (up->lastenv[2] - up->lastenv[6]) / 2.;
712 up->dcycles <<= 1;
713 if (env >= up->slice)
714 up->dcycles |= 1;
715 switch(up->pulse) {
718 irig_baud(peer, up->dcycles);
719 if (env < up->envmin)
720 up->envmin = env;
721 up->slice = (up->envmax + up->envmin) / 2;
722 up->envmin = 1e6; up->envmax = -1e6;
726 up->envmax = env;
730 if (env > up->envmax)
731 up->envmax = env;
735 up->envmin = env;
750 struct irigunit *up;
755 up = pp->unitptr;
764 up->exing = -up->yxing;
765 if (abs(up->envxing - up->envphase) <= 1) {
766 up->tcount++;
767 if (up->tcount > 20 * up->tc) {
768 up->tc++;
769 if (up->tc > MAXTC)
770 up->tc = MAXTC;
771 up->tcount = 0;
772 up->envxing = up->envphase;
774 up->exing -= up->envxing - up->envphase;
777 up->tcount = 0;
778 up->envxing = up->envphase;
786 up->prvstamp = up->chrstamp;
787 dtemp = up->decim * (up->exing / SECOND) + up->fdelay;
789 up->chrstamp = up->timestamp;
790 L_SUB(&up->chrstamp, <emp);
798 switch (up->dcycles & 0xff) {
819 up->errflg |= IRIG_ERR_DECODE;
839 struct irigunit *up;
851 up = pp->unitptr;
856 up->bits >>= 1;
858 up->bits |= 0x200;
859 } else if (bit == BITP && up->lastbit == BITP) {
868 if (up->frmcnt != 1)
869 up->errflg |= IRIG_ERR_SYNCH;
870 up->frmcnt = 1;
871 up->refstamp = up->prvstamp;
873 up->lastbit = bit;
874 if (up->frmcnt % SUBFLD == 0) {
881 temp = up->bits;
882 if (up->frmcnt == 10)
884 if (up->xptr >= 2) {
885 up->timecode[--up->xptr] = hexchar[temp & 0xf];
886 up->timecode[--up->xptr] = hexchar[(temp >> 5) &
889 if (up->frmcnt == 0) {
904 up->xptr = 2 * SUBFLD;
905 if (sscanf((char *)up->timecode,
912 up->second = (up->second + up->decim) % 60;
928 up->errflg |= IRIG_ERR_SIGERR;
929 if (pp->second != up->second)
930 up->errflg |= IRIG_ERR_CHECK;
931 up->second = pp->second;
938 if (up->errflg == 0 && up->tc == MAXTC) {
940 pp->lastrec = up->refstamp;
947 up->errflg, pp->year, pp->day,
949 up->maxsignal, up->gain, up->modndx,
950 up->tc, up->exing * 1e6 / SECOND, up->freq *
953 up->errflg = 0;
965 up->frmcnt = (up->frmcnt + 1) % FIELD;
972 * This routine sweeps up the timecode updates since the last poll. For
1018 struct irigunit *up;
1021 up = pp->unitptr;
1028 if (up->maxsignal < MINAMP) {
1029 up->gain += 4;
1030 if (up->gain > MAXGAIN)
1031 up->gain = MAXGAIN;
1032 } else if (up->maxsignal > MAXAMP) {
1033 up->gain -= 4;
1034 if (up->gain < 0)
1035 up->gain = 0;
1037 audio_gain(up->gain, up->mongain, up->port);