マイコン電子工作あれこれ - 78K0 横丁

10. 78K0S/KA1+応用ガス検知換気扇制御器の工作 2006/07/09

unsigned short t_cnt, ad_data, fan_s;

void main( void )
{
	TMH1_Start();
	AD_Start(ADChannel0);
	WDTE = 0xac;
	fan_s = 0;
	ad_data = 0;
	while(1){
		if( t_cnt >= 1 && t_cnt <= 8 ){
			P4 |= 0b00000110;
		}else{
			P4 &= 0b11111001;
		}
		if( t_cnt >= 100 && t_cnt <= 200 ){
			ad_data = (unsigned short)( ADCRH );
		}else{
			P4 |= 0b00000010;
		}
		if( fan_s >= 240 ) P4 |= 0b00000001;
		if( fan_s <= 10 ) P4 &= 0b11111110;
		if( t_cnt >= 250 ){
			if( ad_data >= 30 ){
				if( fan_s <= 255 ) fan_s++;
			}else{
				if( fan_s >= 1 ) fan_s--;
			}
			t_cnt = 0;
		}
		WDTE = 0xac;
	}
}


extern unsigned short t_cnt;

__interrupt void MD_INTTMH1( void )
{
	t_cnt++;
}