arduino: src/timer.c@504c2310cddb (annotated)

52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	1	#include <avr/interrupt.h>
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	2
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	3	#define TIMER_FLAGS GPIOR0
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	4	#define TIMER1_BUSY 1
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	5
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	6	/*
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	7	* Setup timers.
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	8	*/
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	9	void timer_init (void)
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	10	{
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	11	TCCR1A = (
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	12	// OC1A output pin disconnected
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	13	0b00 << COM1A0
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	14	// OC1B output pin disconnected
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	15	\| 0b00 << COM1B0
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	16	// no PWM
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	17	\| 0b00 << WGM10
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	18	);
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	19	TCCR1B = (
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	20	// CTC mode
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	21	0b01 << WGM12
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	22	);
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	23	TCCR1C = 0;
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	24	}
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	25
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	26	static void timer1_set ()
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	27	{
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	28	sbi(&TIMER_FLAGS, TIMER1_BUSY);
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	29	}
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	30
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	31	void timer1_start (short cycles)
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	32	{
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	33	// count up from zero...
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	34	TCNT1 = 0;
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	35
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	36	// ...to the given number of timer cycles
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	37	OCR1A = cycles;
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	38
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	39	// start!
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	40	timer1_set();
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	41	TIMSK1 = (
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	42	// OCA interrupt
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	43	0b1 << OCIE1A // enable
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	44	);
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	45	TCCR1B = (
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	46	// WGM
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	47	0b01 << WGM12 // CTC
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	48
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	49	// clocksource
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	50	\| 0b101 << CS10 // 1024'th
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	51	);
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	52	}
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	53
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	54	/*
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	55	* Keep the timer running, but clear the flag..
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	56	*/
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	57	static void timer1_clear ()
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	58	{
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	59	cbi(&TIMER_FLAGS, TIMER1_BUSY);
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	60	}
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	61
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	62	/*
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	63	* Stop the timer at its current value.
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	64	*/
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	65	static void timer1_stop ()
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	66	{
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	67	// WGM: normal
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	68	// clocksource: stop
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	69	TCCR1B = 0;
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	70
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	71	timer1_clear();
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	72	}
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	73
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	74	ISR(TIMER1_COMPA_vect)
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	75	{
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	76	timer1_clear();
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	77
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	78	// cpu will wake up from sleep()
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	79	}
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	80
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	81	/*
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	82	* Sleep on timer1 interrupt.
53 dfe67409fbcd hello: interruptable timer sleep, with buffered serial IO Tero Marttila <terom@paivola.fi> parents: 52 diff changeset	83	*
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	84	* Starts fresh timer that sleeps given cycles if given, or continues on the running timer.
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	85	*
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	86	* Returns 1 on timeout, 0 on other interrupt.
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	87	*/
63 e9b478c817df timer: sleep cycles are unsigned Tero Marttila <terom@paivola.fi> parents: 54 diff changeset	88	char timer_sleep (unsigned cycles)
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	89	{
54 ec42f36d8614 hello: interactive console Tero Marttila <terom@paivola.fi> parents: 53 diff changeset	90	if (cycles) {
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	91	// set fresh timer
54 ec42f36d8614 hello: interactive console Tero Marttila <terom@paivola.fi> parents: 53 diff changeset	92	timer1_start(cycles);
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	93	} else {
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	94	// wait for next cycle...
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	95	timer1_set();
54 ec42f36d8614 hello: interactive console Tero Marttila <terom@paivola.fi> parents: 53 diff changeset	96	}
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	97
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	98	// sleep while timer is running
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	99	// XXX: atomic?
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	100	if (tbi(&TIMER_FLAGS, TIMER1_BUSY)) {
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	101	// TODO: PRR
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	102	SMCR = (
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	103	// idle sleep
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	104	(0b00 << SM0)
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	105
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	106	// enable sleep
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	107	\| (0b1 << SE)
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	108	);
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	109
78 504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	110	// sleep
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	111	__asm__ ( "sleep" :: );
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	112
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	113	// cleanup
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	114	SMCR = 0;
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	115	}
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	116
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	117	if (tbi(&TIMER_FLAGS, TIMER1_BUSY)) {
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	118	// interrupt
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	119	return 0;
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	120
504c2310cddb timer: continuous interval-sleep operation Tero Marttila <terom@paivola.fi> parents: 63 diff changeset	121	} else {
54 ec42f36d8614 hello: interactive console Tero Marttila <terom@paivola.fi> parents: 53 diff changeset	122	// timeout
ec42f36d8614 hello: interactive console Tero Marttila <terom@paivola.fi> parents: 53 diff changeset	123	return 1;
53 dfe67409fbcd hello: interruptable timer sleep, with buffered serial IO Tero Marttila <terom@paivola.fi> parents: 52 diff changeset	124	}
52 237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	125	}
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	126
237d1f5c1c32 hello: split out timer; add serial Tero Marttila <terom@paivola.fi> parents: diff changeset	127

author	Tero Marttila <terom@paivola.fi>
	Sun, 20 Apr 2014 22:47:41 +0300
changeset 78	504c2310cddb
parent 63	e9b478c817df
permissions	-rw-r--r--