// 2002.7.31	小山智史(弘前大学)
// タッチスイッチにn秒タッチし続けた時に2度チャイムを鳴らすプログラム
// nはプリセットスイッチを押し続けることで1〜7秒の設定ができる(デフォルトは3)

#include <io.h>
#include <interrupt.h>
#include <sig-avr.h>
#include <eeprom.h>
#include <progmem.h>
#include <prg_rdw.h>
uint8_t c_1ms, c_25us, tsw, psw, T;
prog_int C[]={	11364,	10124,	9019,	8513,	7584,	6757,	6020,	5682};
		//f:	440		494		554		587		659		740		831		880

SIGNAL(SIG_OUTPUT_COMPARE1A){	outp(inp(PORTB)^0x08,PORTB);}	// Alt Bzz
SIGNAL(SIG_OVERFLOW0){						// 25.6 us sync
	if(++c_25us>=39){						//    1 ms sync
		c_25us=0;
		c_1ms++;							// for t_1ms function
		if(bit_is_clear(PIND,0))	tsw=100;
		else if(tsw>0)				tsw--;
		if(bit_is_clear(PINB,7))	psw=100;
		else if(psw>0)				psw--;
	}
}
void t_1ms(unsigned char t){	for(c_1ms=0;c_1ms<t;);}
void t_100ms(unsigned char t){
	uint8_t i;
	for(i=0;i<t;i++)	t_1ms(100);
}
void settone(uint8_t i){
	if(i==0)	outp(1<<TOIE0,TIMSK);
	else{
		__outw(0,TCNT1L);
		__outw_atomic(PRG_RDW(&C[i-1]),OCR1L);
		outp((1<<OCIE1A)|(1<<TOIE0),TIMSK);
	}
}
void preset(){
	uint8_t t;
	for(t=0;t<80;t++){
		if(psw==0){
			if(t>=10){T=t/10;	eeprom_wb(0,T);}
			settone(0);	return;
		}
		if(t%10==0)	settone(t/10);
		else		settone(0);
		t_1ms(100);
	}
	t_100ms(10);								// wait      1 sec
	while(psw>0);
}
void select(){
	uint8_t t;
	for(t=0;t<T*10;t++){						// T sec
		if(tsw==0){	settone(0);	return;	}
		if(t%10==0)	settone(t/10);
		else		settone(0);
		t_1ms(100);
	}
	settone(8);
	cbi(PORTB,1);	t_100ms(2);	sbi(PORTB,1);	// Relay ON .2 sec
	settone(0);

	t_100ms(15);								// wait    1.5 sec

	settone(8);
	cbi(PORTB,1);	t_100ms(2);	sbi(PORTB,1);	// Relay ON .2 sec
	settone(0);

	t_100ms(10);								// wait      1 sec
	while(tsw>0);
}
int main(void){
	uint8_t t, i, mode;						// PORTB/PINB	PORTD/PIND
	outp(0xf7,PORTB);	outp(0x7e,PORTD);	// uuuu0u1u		xuuuuuux
	outp(0x0a,DDRB);	outp(0x00,DDRD);	// ixxxoxox		xxxxxxxi

	c_25us=0;
	outp(0x01,TCCR0);						// CK0 = 0.1 us

	__outw(0,TCNT1L);						// TCNT1=0
	outp((1<<CTC1)|1,TCCR1B);				// CK1 = 0.1 us
	outp(1<<TOIE0,TIMSK);
	sei();

	T=eeprom_rb(0);
	if(T==0||T>=8)	T=3;
	t_100ms(1);
	for(;;){
		if(psw>0)	preset();
		if(tsw>0)	select();
	}
}