read125k__.c

125K IC卡读卡器读头源码

			{
				switch(cmd_word)
				{
				case 0:
					break;
				case 6:
					#asm("cli")
					ptrto_eeprom=RIGHT_ADDR;
					for(i=0;i<8;i++)
					{
						*ptrto_eeprom++ = key_buf[i];
					}			
					#asm("sei")
					break;																															
				}
				#asm("sei")
				delay_ms(10);cmd_flag=0;cmd_word=0;
				UCSRB=0x48;set(PORTD,4);delay_us(10);
				j=0x55;putchar(j);j=0xaa;putchar(j);
				j=0x01;putchar(j);j=0x02;putchar(j);
				delay_ms(20);beep(1);
				UCSRB=0xD8;clr(PORTD,4);id_flag=0;
				ptrto_eeprom=RIGHT_ADDR;
			    for(i=0;i<8;i++)
			    {
					if(*ptrto_eeprom++ != (i+1)){id_flag=1;break;}	
			    }
			    if(id_flag==0)
			    break;			   	
			}			
    	}
    } 
  	clr(PORTD,4);
 	for(i=0;i<5;i++)data_buf[i]=0;
    beep(2);
    //主程序
 	while (1)
	{
		if(out_485==1)
		{                                            
			if(command_count)
			{
				if(card_ok )
				{         
					if(Recv_buf[3]=='F')
					{
						card_ok=0;
					}
	       			set(PORTD,4);
					command_flag=0;
					Recv_process();
					re_len=0;   
   	   				clr(PORTD,4);       
				}
				else
				{
					if(Recv_buf[3] != 'F')
					{
			       		set(PORTD,4);
						command_flag=0;
						Recv_process();
						re_len=0;   
       					clr(PORTD,4);       
					}
				}
				command_count=0;
			}
		}
		if(out_485==3)
		{   
			if(card_ok)
			{
				#asm("sei")
   				set(PORTD,4);
   				delay_ms(1);
   				set(PORTD,4);
   				delay_ms(1);

   				send_96h=0x7e;
   				putchar(send_96h);

   				send_96h=0;//id_check;
   				BCC_HI  = ((send_96h>>4)+ 0X30);
   				BCC_LOW = ((send_96h & 0X0F) +0X30);
				if(BCC_HI > 0x39) (BCC_HI  +=0X07);
				if(BCC_LOW > 0x39) BCC_LOW +=0X07; 
				putchar(BCC_HI);
				delay_us(5);
				putchar(BCC_LOW);
				delay_us(5);
				for(i=0;i<5;i++)
				{
	   				BCC_HI  = ((data_buf[i]>>4)+ 0X30);
    				BCC_LOW = ((data_buf[i] & 0X0F) +0X30);
					if(BCC_HI > 0x39) BCC_HI  +=0X07;
					if(BCC_LOW > 0x39) BCC_LOW +=0X07; 
					putchar(BCC_HI);
					delay_us(5);
					putchar(BCC_LOW);
					delay_us(5);
				}

				send_96h=0;//id_check;
				for(i=0;i<5;i++)
				{
					send_96h ^= data_buf[i];
				}   				
   				BCC_HI  = ((send_96h>>4)+ 0X30);
   				BCC_LOW = ((send_96h & 0X0F) +0X30);
				if(BCC_HI > 0x39) BCC_HI  +=0X07;
				if(BCC_LOW > 0x39) BCC_LOW +=0X07; 
				putchar(BCC_HI);
				delay_us(5);
				putchar(BCC_LOW);
				i=0x0D;
				putchar(i);				   				
				i=0x0A;
				putchar(i);				   				
				delay_ms(40);
				clr(PORTD,4); 
				card_ok=0;  		
			}
		}
		if(cmd_flag)
		{
			switch(cmd_word)
			{
			case 0:
				break;
			case 1:
				#asm("cli")
				ptrto_eeprom=MY_ADDR;
				*ptrto_eeprom = key_buf[0];
				id_check = key_buf[0];
				
				ptrto_eeprom=MY_ADDR_C;
				*ptrto_eeprom = key_buf[0];
				#asm("sei")
				break;
			case 2:
				#asm("cli")
				ptrto_eeprom=ID_ADDR;
				for(i=0;i<8;i++)
				{
					*ptrto_eeprom++ = (key_buf[i]+'0');
				}			
				change_by_uart=1;
				#asm("sei")
				break;
			case 3:
				#asm("cli")
				ptrto_eeprom=addr_weigen;
				*ptrto_eeprom=key_buf[0];
				weigen_out=key_buf[0];

				ptrto_eeprom=addr_weigen_C;
				*ptrto_eeprom=key_buf[0];
				#asm("sei")
				break;
			case 4:
				#asm("cli")
				ptrto_eeprom=addr_485E;
				*ptrto_eeprom=key_buf[0];
				out_485=key_buf[0];  

				ptrto_eeprom=addr_485E_C;
				*ptrto_eeprom=key_buf[0];
				
				if(out_485==1||out_485==2)//19200
				{
					UCSRA=0x00;
					UCSRB=0xD8;
					UCSRC=0xA6;
					UBRRH=0x00;
					UBRRL=0x19;				
				}
				else					  //9600	
				{
					UCSRA=0x00;
					UCSRB=0xD8;
					UCSRC=0x86;
					UBRRH=0x00;
					UBRRL=0x33;					
				}
				#asm("sei")
				break;
			case 5:
				#asm("cli")
				ptrto_eeprom=addr_key_e;
				*ptrto_eeprom=key_buf[0];
				enable_key=key_buf[0];  

				ptrto_eeprom=addr_key_e_C;
				*ptrto_eeprom=key_buf[0];
				#asm("sei")
				break;
			case 6:
				#asm("cli")
				ptrto_eeprom=RIGHT_ADDR;
				for(i=0;i<8;i++)
				{
					*ptrto_eeprom++ = (key_buf[i]+'0');
				}			
				#asm("sei")
				break;	
			case 7:
				#asm("cli")
				ptrto_eeprom=addr_weigen_C;
				*ptrto_eeprom = key_buf[0];
				#asm("sei")
				break;
			case 8:
				#asm("cli")
				ptrto_eeprom = CHECK_ADDR;
				for(i=0;i<4;i++)
				*ptrto_eeprom++=0;
				#asm("sei")
				break;
			}
			#asm("sei")
			delay_ms(1);cmd_flag=0;
			cmd_word=0;UCSRB=0x48;
		   	set(PORTD,4);delay_us(10);
			j=0x55;putchar(j);j=0xaa;putchar(j);
			j=0x01;putchar(j);j=0x02;putchar(j);
			delay_ms(20);beep(1);UCSRB=0xD8;
		   	clr(PORTD,4);
		}		
		if(err_flag)
		{   
			if(enable_key)
			{
				if(err_time++<500)
				{
					key_scan(); 
    			    key_process();
				}
				else{err_time=0;err_flag=0;}
			}
			else{err_time=0;err_flag=0;}
		}	 
	    else
	    {		
		    #asm( "wdr" )
		   	read_uid();		
	    }
    }
}
void led(char count)
{
	char k;
	unsigned int i;
	char j;
	k=0;
	j=0;
	for( i=0; i<count; i++ )
	{   
		clr( PORTB,PB0 );
		delay_ms(100);
		#asm( "wdr" )
		set( PORTB,PB0  ); 
		delay_ms(100);
		#asm( "wdr" )
	}
}

void beep(char count)
{
	char k;
	unsigned int n;
	unsigned int i;
	unsigned int j;
	k=0;
	j=0;
	n=0;
	for( i=0; i<count; i++ )
	{
		n=0;
		while(n<200)
		{
			clr( PORTD,7 );
			delay_us(250);
			#asm( "wdr" )
			set( PORTD,7 );
			delay_us(250);
			#asm( "wdr" )
			n++;		
		}
		delay_ms(60);
	}           
}
 
void beep_long(char count)
{
	char k;
	unsigned int n;
	unsigned int i;
	unsigned int j;
	k=0;
	j=0;
	n=0;
	for( i=0; i<count; i++ )
	{
		n=0;
		while(n<200)
		{
			clr( PORTD,7 );
			delay_us(250);
			#asm( "wdr" )
			set( PORTD,7 );
			delay_us(250);
			#asm( "wdr" )
			n++;		
		}
		delay_ms(100);
	}  	
}

//===================================
//				韦根0
//===================================
void send_wiegand0(void)
{
	set( PORTD,PD2);
	delay_us(80);       	// 100us
	clr( PORTD,PD2);
  	delay_us(1700);      	// 2100us
	#asm( "wdr" ) 
}
//===================================
//				韦根1
//===================================
void send_wiegand1(void)
{
	set( PORTD,PD3);
  	delay_us(80);
	clr( PORTD,PD3);
  	delay_us(1700);
	#asm( "wdr" )
}
void wiegand_decoder_26(void)                
{
	unsigned char 	qufe=0,wiegand_parity_even_temp, wiegand_parity_odd_temp,i,j,temp;   
	char 			wiegand_parity_even, wiegand_parity_odd,data_temp[3];;
	for(i=0;i<3;i++){data_temp[i]=data_buf[2+i];}
	for(i=0; i<3; i++)                            
	{                                             
		temp=data_temp[i];                        
		for(j=0; j<8; j++)
		{
			if(i==1 && j==4){wiegand_parity_even_temp = qufe;qufe = 0;}
			qufe = qufe^temp;
			temp = temp<<1;
		}
	}
	wiegand_parity_odd_temp = qufe;
	if(wiegand_parity_even_temp&0x80){wiegand_parity_even = 1;}
	else{wiegand_parity_even = 0;}
	if(wiegand_parity_odd_temp&0x80){wiegand_parity_odd  = 0;}
	else{wiegand_parity_odd  = 1;}
	if(wiegand_parity_even) {send_wiegand1();}
	else{send_wiegand0();}
	for(i=0;i<3;i++)                            
	{
		temp=data_temp[i];
		for(j=0;j<8;j++)
		{
			if(temp&0x80){send_wiegand1();}
			else{send_wiegand0();}
			temp = temp<<1;
		}
	}
	if(wiegand_parity_odd){send_wiegand1();}
	else{send_wiegand0();}
}

void wiegand_decoder_34(void)                
{
	unsigned char wiegand_parity_even, wiegand_parity_odd,i,j,temp;
	char data_temp[4];
	for(i=0;i<4;i++){data_temp[i]=data_buf[1+i];}		
	if(!((parity_table[data_temp[0]])^(parity_table[data_temp[1]])))wiegand_parity_even = 1; 
	else wiegand_parity_even = 0; 
    if((parity_table[data_temp[2]])^(parity_table[data_temp[3]]))wiegand_parity_odd  = 1;
    else wiegand_parity_odd  = 0;
	if(wiegand_parity_even) send_wiegand1();
	else send_wiegand0();
	for(i=0;i<4;i++)                            //卡号输出(由高位到低位)
	{
		temp=data_temp[i];
		for(j=0;j<8;j++)
		{
			if(temp&0x80) send_wiegand1();
			else send_wiegand0();temp <<= 1;
		}
	}
	if(wiegand_parity_odd) send_wiegand1(); 	//奇校验位输出             
	else send_wiegand0();
}
void wiegand_decoder_36(void)                
{
    unsigned char wiegand_parity_even, wiegand_parity_odd,i,j,temp;
  	char data_temp[4];
	for(i=0;i<4;i++){data_temp[i]=data_buf[1+i];}	
	temp = data_temp[2]&0x80; 
    if((parity_table[data_temp[0]])^(parity_table[data_temp[1]]^temp)) wiegand_parity_odd = 1; 
    else wiegand_parity_odd = 0; 
	temp = data_temp[2]&0x7f;
    if(!(temp^(parity_table[data_temp[3]]))) wiegand_parity_even  = 1;
    else wiegand_parity_even  = 0;
	if(wiegand_parity_odd)  send_wiegand1();
	else send_wiegand0();
    for(i=0;i<4;i++)                            //卡号输出(由高位到低位)
    {
		temp=data_temp[i];
		for(j=0;j<8;j++)
		{
			if(temp&0x80) send_wiegand1();
			else send_wiegand0();temp = temp<<1;
		}
	}
	send_wiegand0();send_wiegand0();						   	
    if(wiegand_parity_even) send_wiegand1();
    else send_wiegand0();
}  

void wiegand_decoder_44(void)                
{
    unsigned char i,j,temp,temp1;
    char data_temp[5];
	for(i=0;i<5;i++){data_temp[i]=data_buf[i];}
	temp1 = data_temp[0]^data_temp[1]^data_temp[2]^data_temp[3]^data_temp[4];
	temp1 = temp1^(temp1<<4);
	for(i=0;i<5;i++)                           	//卡号输出(由高位到低位)
    {
		temp = data_temp[i];
       	for(j=0;j<8;j++)
       	{
       		if(temp&0x80) send_wiegand1();
       		else send_wiegand0();temp <<= 1;
       	}
    }
	for(j=0;j<4;j++)
	{
		if(temp1&0x80) send_wiegand1();
		else send_wiegand0();temp1 = temp1<<1;
	}  
}
void initalize()
{
	char i;
	PORTB=0x00;
	DDRB=0x01;

	PORTC=0x00;
	DDRC=0x3C;

	PORTD=0x00;
	DDRD=0x9C;

	TCCR0=0x00;//关定时器
	TCNT0=0x00;

	TCCR1A=0x00;
	TCCR1B=0x01;//8分频率
	TCNT1H=0x00;
	TCNT1L=0x00;
	OCR1AH=0x00;
	OCR1AL=0x00;
	OCR1BH=0x00;
	OCR1BL=0x00;

	ASSR=0x00;
	TCCR2=0x00;
	TCNT2=0x00;
	OCR2=0x00;

	MCUCR=0x00;                                        
	
	TIMSK=0X00;
	// Communication Parameters: 8 Data, 1 Stop, Even Parity
	// USART Baud rate: 19200
	UCSRA=0x00;
	UCSRB=0xD8;
	UCSRC=0xA6;
	UBRRH=0x00;
	UBRRL=0x19;

	ACSR=0x80;
	SFIOR=0x00;

	WDTCR=0x1F;		//看门狗定时时间
	WDTCR=0x0F;

	ACSR=0x80;
	SFIOR=0x04; 		//禁止上拉
	clr(DDRD,PD3);  	//将外部中断口设置为高阻状态
	clr(DDRD,PD2);  	//将外部中断口设置为高阻状态
	clr(DDRD,PD5);
	set(DDRD,PD4);
	
	clr(DDRC,0);		//将键盘的三个输入口设置为高阻状态
	clr(DDRC,1);
	clr(DDRB,2);
	                                              
	set(DDRC,2);		//设置键盘的行扫描线为输出
	set(DDRC,3);set(DDRC,4);
	set(DDRC,5);set(DDRB,1);
		
	set(PORTC,2);		//输出为高电平
	set(PORTC,3);set(PORTC,4);
	set(PORTC,5);set(DDRD,PD4); 
	
	set( DDRD,PD6);set( PORTD,PD6);
	set( DDRD,PD7);set( PORTD,PD7);

	set( DDRD,PD2);clr( PORTD,PD2);
	set( DDRD,PD3);clr( PORTD,PD3);
	clr(DDRB,PB5);
	clr(PORTB,PB5);
	
	#asm("cli")
	led(2);  
	main_status=1;
	clr(DDRB,PB1);
	clr(PORTB,PB1); 
	set(DDRD,4);    
    
    DDRD &= 0XBF;
	count=0;
	clr(DDRD,6);       		
	clr(PORTD,6);
	set(DDRD,7);
	set(PORTD,7);       		
	clr(PORTD,4); 
	beep(2); 
	for(i=0;i<11;i++)data_buf[i]=0;
	#asm("sei")	
}
void key_process(void)
{  
	char i,j;
	#asm( "wdr" )
	if(key_value<13)
	{
		if(key_value>0) 
		{  
			#asm( "wdr" )
			beep(1);
		}
		else return;
	}
	else return; 
    switch(cmd_status)
	{
	//==================
	//按4个#键灯闪一下
	//进入到密码输入界面
	//==================
	case 0:
		set( PORTB,PB0 );
		if((key_value>0) && (key_value<12)) 
		{
			if(out_485==1)
			{
				cmd_status=120;
				key_len=1;
				for(i=0;i<8;i++)key_buf[i]=20;   
				key_buf[0]=(key_value+'0');
				
			}
			else if(out_485==2)
			{
				switch(key_value)
				{
				case 1: case 2: case 3:
				case 4: case 5: case 6:
				case 7: case 8: case 9:
				case 10:case 11:
					if(key_value>=11){key_value-=1;card_ok=0;}
					if(key_value==10)key_value=0;
						j =0x08;		
					for(i=0;i<4;i++)
					{
						if(key_value & j) send_wiegand1();
						else send_wiegand0();
						j>>=1;
					}
					break;
				}
				cmd_status=125;
			}
		}
		key_value=0;
		break;
	case 120:
		#asm( "wdr" )
	    if(key_value==11){beep_long(1);cmd_status=0;}
        else if(key_value==12)
        {   
	        Send_buf[0] = 0x0a;
    	    Send_buf[1] = Recv_buf[1];
        	Send_buf[2] = (id_check+'0');
	        Send_buf[3] = 'F';

    		Send_buf[4] = '0';
    		Send_buf[5] = 'K';			
			for(i=0; i<key_len; i++)
			{
			     Send_buf[6+i] = key_buf[i];
			}
    		DoBCC(&Send_buf[0],(key_len+6));
			Send_buf[key_len+6] = BCC_HI;
			Send_buf[key_len+7] = BCC_LOW;
			Send_buf[key_len+8] = 0x0D; 
			#asm("cli")						
			UCSRB=0x48;
		   	set(PORTD,4);
		   	delay_ms(5);
			for(i=0;i<(key_len+9);i++)putchar(Send_buf[i]);
			#asm( "wdr" )
			delay_ms(10);
			#asm( "wdr" )
			delay_ms(10);
			UCSRB=0xD8;			 
		   	clr(PORTD,4); 
			cmd_status=0;
			beep_long(1);
		}                        
		else  if((key_value>0) && (key_value<12))
		{
			if(key_len<7)
			{
				if(key_value==10)key_value=0;
				key_buf[key_len] = key_value+'0';
				key_len +=1;
			}
			else
			{
				key_len = 7;
			}		
		}
		key_value=0;
		break;
	case 125:
		switch(key_value)
		{
		case 1: case 2: case 3:
		case 4: case 5: case 6:
		case 7: case 8: case 9:
		case 10:case 11:case 12:
			card_ok=0;