6  * broadcast timecode. Alternatively, it can generate the IRIG-B
24  * over the range 0-255. The signal generator by default uses WWV
26  * switches to IRIG-B format.
42  * the transmissionorder is low-order first as the frame is processed
44  * For IRIG the on-time marker M preceeds the first (units) bit, so its
64 #define	SECOND	8000		/* one second of 125-us samples */
68 #define	IRIG	1		/* IRIG-B encoder */
82 int c3000[] = {1, 48, 63, 70, 78, 82, 85, 89, 92, 94,	/* 0-9 */
83      96,  98,  99, 100, 101, 101, 102, 103, 103, 103,	/* 10-19 */
84     103, 103, 103, 103, 102, 101, 101, 100,  99,  98,	/* 20-29 */
85      96,  94,  92,  89,  85,  82,  78,  70,  63,  48,	/* 30-39 */
86     129, 176, 191, 198, 206, 210, 213, 217, 220, 222,	/* 40-49 */
87     224, 226, 227, 228, 229, 229, 230, 231, 231, 231, 	/* 50-59 */
88     231, 231, 231, 231, 230, 229, 229, 228, 227, 226,	/* 60-69 */
89     224, 222, 220, 217, 213, 210, 206, 198, 191, 176}; 	/* 70-79 */
93 int c6000[] = {1, 63, 78, 86, 93, 98, 101, 104, 107, 110, /* 0-9 */
94     112, 113, 115, 116, 117, 117, 118, 118, 119, 119,	/* 10-19 */
95     119, 119, 119, 118, 118, 117, 117, 116, 115, 113,	/* 20-29 */
96     112, 110, 107, 104, 101,  98,  93,  86,  78,  63,	/* 30-39 */
97     129, 191, 206, 214, 221, 226, 229, 232, 235, 238,	/* 40-49 */
98     240, 241, 243, 244, 245, 245, 246, 246, 247, 247, 	/* 50-59 */
99     247, 247, 247, 246, 246, 245, 245, 244, 243, 241,	/* 60-69 */
100     240, 238, 235, 232, 229, 226, 221, 214, 206, 191}; 	/* 70-79 */
105  * by second number. Each entry in the table contains a case switch
109 	int sw;			/* case switch number */
114  * Case switch numbers
126  * WWV/H format (100-Hz, 9 digits, 1 m frame)
242 int	encode = WWV;		/* encoder select */
271 	while ((temp = getopt(argc, argv, "a:dhilsu:v:y:")) != -1) {  in main()
272 		switch (temp) {  in main()
282 		case 'h':	/* select WWVH sync frequency */  in main()
286 		case 'i':	/* select irig format */  in main()
298 		case 'u':	/* set DUT1 offset (-7 to +7) */  in main()
306 		case 'v':	/* set output level (0-255) */  in main()
354 		minute = tm->tm_min;  in main()
355 		hour = tm->tm_hour;  in main()
356 		day = tm->tm_yday + 1;  in main()
357 		year = tm->tm_year % 100;  in main()
358 		second = tm->tm_sec;  in main()
365 		delay(SECOND - tv.tv_usec * 8 / 1000);  in main()
368 	switch (encode) {  in main()
383 				ptr--;  in main()
452 		switch(encode) {  in main()
455 		 * The IRIG second consists of 20 BCD digits of width-  in main()
457 		 * percent on the 1000-Hz carrier.  in main()
468 				switch(sw) {  in main()
483 					ptr--;  in main()
486 					peep(10 - arg, 1000, LOW);  in main()
491 					peep(10 - arg, 1000, LOW);  in main()
502 		 * The WWV/H second consists of 9 BCD digits of width-  in main()
503 		 * modulateod pulses 200, 500 and 800 ms at 100-Hz.  in main()
508 			switch(sw) {  in main()
535 				ptr--;  in main()
542 				peep(1000 - arg, tone, OFF);  in main()
553 				ptr--;  in main()
584 	 * respectively. Note the 100-Hz data pulses are transmitted 6  in sec()
585 	 * dB below the 1000-Hz sync pulses. Originally the data pulses  in sec()
587 	 * engineers increased that to 6 dB because the Heath GC-1000  in sec()
592 	peep(code - 30, 100, LOW);	/* send data */  in sec()
593 	peep(1000 - code, 100, OFF);  in sec()
602 	int	freq,		/* frequency (Hz) */  in peep()  argument
609 	if (amp == OFF || freq == 0)  in peep()
612 		increm = freq / 100;  in peep()
615 		switch (amp) {  in peep()
650 		samples -= BUFLNG;  in delay()