read125k.c~

125K IC卡读卡器读头源码

		*ptrto_eeprom=2;		

		ptrto_eeprom=KEY_ADDR;
		for(i=0;i<4;i++) *ptrto_eeprom++ = (i+1);

		ptrto_eeprom=addr_key_e;//默认键盘不使能
		*ptrto_eeprom=0;
		ptrto_eeprom=addr_key_e_C;
		*ptrto_eeprom=0;
	}
	//校验EEPROM内的关键数据	
	id_flag=0;	  
	ptrto_eeprom=addr_weigen;
	weigen_out=*ptrto_eeprom;  
	ptrto_eeprom=addr_weigen_C;
	if(weigen_out != *ptrto_eeprom)id_flag=1;

	ptrto_eeprom=addr_485E;
	out_485=*ptrto_eeprom; 
	ptrto_eeprom=addr_485E_C;
	if(out_485 != *ptrto_eeprom)id_flag=1;

	ptrto_eeprom=addr_key_e;
	enable_key=*ptrto_eeprom; 
	ptrto_eeprom=addr_key_e_C;
	if(enable_key != *ptrto_eeprom)id_flag=1;	 

	ptrto_eeprom=MY_ADDR;
	id_check = *ptrto_eeprom;
	if(id_check==0xff)id_check=0;
	ptrto_eeprom=MY_ADDR_C;
	if(id_check != *ptrto_eeprom)id_flag=1;
	
	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") 
	if(id_flag==1)
	{
		beep(8);
		while(1)
		{
			#asm( "wdr" )
			if(cmd_flag)
			{
				switch(cmd_word)
				{
				case 0:
					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 7:
					#asm("cli")
					ptrto_eeprom=addr_weigen_C;
					*ptrto_eeprom = key_buf[0];
					#asm("sei")
					break;	   
				case 8:
					ptrto_eeprom = CHECK_ADDR;
					for(i=0;i<4;i++)
					*ptrto_eeprom++=0;
					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);
			}				
		}
	}	 
 	 
	//检测出厂授权 
	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==1)		
    {
    	while(1)
    	{
			#asm( "wdr" )    	
			if(cmd_flag)
			{
				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];