read125k__.c

125K IC卡读卡器读头源码

			if(key_value==10)key_value=0;
			if(key_value>=11){key_value-=1;card_ok=0;}
				j =0x08;		
			for(i=0;i<4;i++)
			{
				if(key_value & j) send_wiegand1();
				else send_wiegand0();
				j>>=1;        
			}
			break;
		}	
		if(key_value==11)
		{
			card_ok=0;
			cmd_status=0;
		}
		key_value=0;
		break;					
	}		
}
void key_scan(void)
{
	char i;
	#asm( "wdr" )
    switch(key_status)
	{
	case 0:
		key_result=key_history_result=0;
		for(i=0;i<4;i++)
		{
			clr(PORTC,(i+2));
			delay_us(1);			
			if(testf(PINC,1)) {key_history_result=(4-i);set(PORTC,(i+2));key_status++;break;}
			if(testf(PINC,0)) {key_history_result=(8-i);set(PORTC,(i+2));key_status++;break;}
			if(testf(PINB,2)) {key_history_result=(12-i);set(PORTC,(i+2));key_status++;break;}
			set(PORTC,(i+2));			
		}
		sec1=0;
		break;                             
	case 1:
		delay_ms(1);
		for(i=0;i<4;i++)
		{
			clr(PORTC,(i+2));			
			delay_us(1);			
			if(testf(PINC,1)) {key_result=(4-i);set(PORTC,(i+2));break;}
			if(testf(PINC,0)) {key_result=(8-i);set(PORTC,(i+2));break;}
			if(testf(PINB,2)) {key_result=(12-i);set(PORTC,(i+2));break;}
			set(PORTC,(i+2));			
		}
		if(key_result==key_history_result)
		{
			key_value=key_result;
			key_status++;
		}
		else{key_result=key_history_result=key_value=0;key_status=0;}
		break;
	case 2: 
		clr(PORTC,2);
		clr(PORTC,3);
		clr(PORTC,4); 
		clr(PORTC,5);
		delay_us(1);	       
		if((test(PINC,0)) && (test(PINC,1)) && (test(PINB,2)))
		{
			set(PORTC,2);set(PORTC,3);set(PORTC,4);
			set(PORTC,5);key_status=0;
		}			
		break;
	default:
		break;									
	}
}

unsigned char read_head(void)
{
	if((PIND & 0X40)==0x00) return 0;
	while(1)
	{
		#asm( "wdr" )   
		if(run_count>=10) {run_count=0;err_flag=1;return 0;}
		switch(head_status)
		{
		case 0:
			if(((PIND & 0X40)==0x40))
			{
				count=0;
				head_status++;			
				TCNT1=0;
				time_count=0;
			}
			break;		
		case 1:
			time_count=TCNT1;
			if(time_count<3436)
			{
				if(((PIND & 0X40)==0x00))
				{
					TCNT1=0;
					time_count=0;
					head_status++;
					count++;
					if(count==9)
					{
						count=0;
						head_status=0;
						return 1;
					}
				}
			}
			else {head_status=0;run_count++;}
			break;		
		case 2:
			time_count=TCNT1;
			if(time_count<3436)
			{
				if(((PIND & 0X40)==0x40))
				{
					time_count=0;
					TCNT1=0;				
					head_status=1;
				}
			}	
			else {head_status=0;run_count++;}
			break;		             
		}
	}
}

void read_uid(void)
{
	char i,j,count1;

	if(read_head())
	{   
		main_status=4;
		while(1)
		{
			#asm( "wdr" )
			#asm("cli")
			switch( main_status )
			{
			case 4:               //初始电平为低检测高跳变
				time_count=TCNT1;
				if(time_count<3136) //在一个周期内有跳变
				{
					if(((PIND & 0X40)==0x40))
					{
						time_count=0;
						TCNT1=0;				
						main_status++;
					}		
				}
				else main_status=7;//低电平空跳
				break;
			case 5:               //检测在一个周期内有无跳变 有效检测
				time_count=TCNT1;
				if(time_count<3136)
				{
					if(((PIND & 0X40)==0x00))
					{
						time_count=0;
						TCNT1=0;				
						data_buf1[count]=1;
						count++;
						main_status=4;
						if(count==55) main_status=10;				
					}		
				}                 
				else 
				{
				    #asm("sei")
					return;
				}
				break;
			case 7:               //低电平空跳检测
				time_count=TCNT1;
				if(time_count<4608)
				{
					if(((PIND & 0X40)==0x40))
					{
						main_status++;	
						time_count=0;
						TCNT1=0;				
						data_buf1[count]=0;
						count++;
						if(count==55) main_status=10;				
					}
				}
				else 
				{
				    #asm("sei")
					return;
				}
				break;		          
			case 8: 	               
				time_count=TCNT1;
				if(time_count<3136)
				{
					if(((PIND & 0X40)==0x00))
					{
						time_count=0;
						TCNT1=0;				
						main_status=11;	
						if(count==55) main_status=10;				
					}   	
				}
				else main_status=9;//没检到则到降沿则为高电平空跳
				break;
			case 11:               
				time_count=TCNT1;
				if(time_count<3136)
				{
					if(((PIND & 0X40)==0x40))
					{
						time_count=0;     
						TCNT1=0;				
						data_buf1[count]=0;
						count++;
						main_status=8;	
						if(count==55) main_status=10;				
					}
				}
				else 
				{
				    #asm("sei")
					return;
				}
				break;		
			case 9: 				//空跳检测
				time_count=TCNT1;
				if(time_count<4608)
				{   	
					if(((PIND & 0X40)==0x00))
					{
						time_count=0;
						TCNT1=0;				
						data_buf1[count]=1;
						count++;
						main_status=4;	
						if(count==55) main_status=10;				
					}
				}   	
				else 
				{
				    #asm("sei")
					return;
				}
				break;	
			case 10:
				main_status=1;
				for(i=0;i<11;i++) data_buf[i]=0;
				for(i=0;i<55;i++)
				{
					data_buf[i/5]=((data_buf[i/5]<<1)|data_buf1[i]);
				}   	
				for(i=0;i<10;i++)
				{
					if(parity_table[data_buf[i]]!=0) 
					{
					    #asm("sei")
						return;
					}
				}
				if(i==10)
				{
		    		for(i=0;i<11;i++) data_buf[i] >>= 1;
					if(data_buf[10]==(data_buf[0]^data_buf[1]^data_buf[2]^data_buf[3]\
					^data_buf[4]^data_buf[5]^data_buf[6]\
					^data_buf[7]^data_buf[8]^data_buf[9]))
					{
						/*for(i=0;i<11;i++)
						{
							putchar(data_buf[i]);
						}
						beep(1);
						*/
						main_status=20;
						break;
					}
				    #asm("sei")
					return;
				}						
				break;		
			case 20:
			    #asm("sei")
				for(i=0,j=0; i<5; i++,j+=2)
				{
					data_buf1[i]=((data_buf[j]<<4) | data_buf[j+1]);
				}
				for(i=0;i<5;i++)
				{
					data_buf[i]=data_buf1[i];
				}
	   			if(out_485==2)
	   			{   	
    	    		switch(weigen_out)
	    	    	{
		    	    case 1:
   			   			wiegand_decoder_26();
       					break;
					case 2:
		       			wiegand_decoder_34();
						break;
					case 3:
       					wiegand_decoder_36();
						break;
					case 4:
   				   		wiegand_decoder_44();
						break;									        	
        			}   	      		
		   		}
				if(testf(PINB,5))beep(1);
				else beep(2);
		   		card_ok=1;
		   		return;
			}   
		}
	}
}       

#include <mega8.h> 
#include <stdio.h>
#include "bit_op.h" 
#include "delay.h" 

extern void beep(char);

void 	Recv_process(void);
void 	Send_IdCode(void);  
void 	Get_My_Informat(void);  
void 	Set_My_Id(void);
void 	Get_My_Id(void);
void 	Check_First_Set1(void); 
char 	CheckBCC(void);
void 	DoBCC(unsigned char *str, unsigned char len );
void 	Send_Error_Public(unsigned char ErrorCode);
void 	CheckShorCommand(void);
void  	CheckLongCommand(void);   
extern char 	data_buf[6];
char 	re_len;   
char 	Recv_buf[16];
char 	Send_buf[18];
char	BCC_HI;
char  	BCC_LOW;
extern char 	eeprom	*ptrto_eeprom;

//==================================
//			'F' 命令 46
//将接收到的UID码上 （data_buf[0]-data_buf[3]）
//==================================
void Send_IdCode(void)
{
    unsigned char temp_high,temp_low,i,j;
	Send_buf[0] = 0x0a;
	Send_buf[1] = Recv_buf[1];
	
	Send_buf[2] = Recv_buf[2];
	Send_buf[3] = Recv_buf[3];
	Send_buf[4] ='0';
	Send_buf[5] ='0';
	Send_buf[6] ='0';
	Send_buf[7] ='0';
	for(i=0,j=0; i<3; i++)
	{
		temp_high = data_buf[i+2]>>4;
		temp_low  = data_buf[i+2]&0x0f;
		if(temp_high>0x09) Send_buf[8+j] = temp_high + 0x37;
		else Send_buf[8+j] = temp_high + 0x30;
		j++;
		if(temp_low>0x09) Send_buf[8+j] = temp_low  + 0x37;
		else Send_buf[8+j] = temp_low  + 0x30;
		j++;
	}
	DoBCC(&Send_buf[0],14);
	Send_buf[14] = BCC_HI;
	Send_buf[15] = BCC_LOW;
	Send_buf[16] = 0x0D;
	delay_ms(5);
	for(i=0;i<17;i++) putchar(Send_buf[i]);
}                   
//==================================
//			'B' 命令 42
//		读取模块出厂序列号                          
//==================================
void Get_My_Informat(void)
{
	char i;
	ptrto_eeprom=ID_ADDR;
    Send_buf[0] = 0x0a;
    Send_buf[1] = Recv_buf[1];
    Send_buf[2] = Recv_buf[2];
    Send_buf[3] = Recv_buf[3];
    Send_buf[4] = *ptrto_eeprom++;
    Send_buf[5] = *ptrto_eeprom++;
    Send_buf[6] = *ptrto_eeprom++;
	Send_buf[7] = *ptrto_eeprom++;
    Send_buf[8] = *ptrto_eeprom++;
    Send_buf[9] = *ptrto_eeprom++;
	Send_buf[10]= *ptrto_eeprom++;
    Send_buf[11]= *ptrto_eeprom;
    DoBCC(&Send_buf[0],12);
	Send_buf[12] = BCC_HI;
	Send_buf[13] = BCC_LOW;
	Send_buf[14] = 0x0D;
	delay_ms(5);
	for(i=0;i<15;i++) putchar(Send_buf[i]);
}
//==================================
//			'C' 命令 43
//			设定模块ID号
//==================================
void Set_My_Id(void)
{
    char i;
    char MY_ID;
    
    if('0' < Recv_buf[2] < '9')
    {                                    
		ptrto_eeprom=ID_ADDR;
		for(i=0;i<8;i++)
		{
			if(*ptrto_eeprom++ != Recv_buf[4+i])break;
		}
		if(i==8)
		{
		   	MY_ID=Recv_buf[12]-'0';
		   	
			ptrto_eeprom=MY_ADDR;
			*ptrto_eeprom=MY_ID;
			
			ptrto_eeprom=MY_ADDR_C;  //备份
			*ptrto_eeprom=MY_ID;
			delay_ms(5);
    	    Send_buf[0] = 0x0a;
    	    Send_buf[1] = Recv_buf[1];
    		Send_buf[2] = Recv_buf[2];
    		Send_buf[3] = Recv_buf[3];
    		DoBCC(&Send_buf[0],4);
			Send_buf[4] = BCC_HI;
			Send_buf[5] = BCC_LOW;
			Send_buf[6] = 0x0D; 
			//beep(1); 
			delay_ms(5);
			for(i=0;i<7;i++)putchar(Send_buf[i]);
 	    }
		else 
		{
			Send_Error_Public(1);		
		}
    }
    else Send_Error_Public(2);
}
//==================================
//			'D' 命令 44
//			读取模块地址编号                         
//==================================
void Get_My_Id(void)
{
    char i;
    char my_id,my_id1; 
	ptrto_eeprom=ID_ADDR;
	for(i=0;i<8;i++){if(*ptrto_eeprom++ != Recv_buf[4+i])break;}
	ptrto_eeprom=MY_ADDR;
	my_id=*ptrto_eeprom;  
	my_id1 = *ptrto_eeprom;
	if(my_id!=my_id1)
	{
     	my_id=*ptrto_eeprom; 
	}	
	
    if(i==8)
	{
        delay_ms(20);                 
    	Send_buf[0] = 0x0a;
    	Send_buf[1] = Recv_buf[1];
    	Send_buf[2] = Recv_buf[2];
    	Send_buf[3] = Recv_buf[3];
    	Send_buf[4] = my_id + '0';
    	delay_ms(5);
    	DoBCC(&Send_buf[0],5);
		Send_buf[5] = BCC_HI;
		Send_buf[6] = BCC_LOW;
		Send_buf[7] = 0x0D;
     	beep(1); 
    	delay_ms(5);
		for(i=0;i<8;i++) putchar(Send_buf[i]);
	}
    else 
    {
		Send_Error_Public(2);    
    }
}         
//==================================
//			'Z' 命令
//		目前还不知道此命令干什么用                          
//==================================
void Check_First_Set1(void)    
{
	unsigned char i;
	
	ptrto_eeprom=ID_ADDR;
	for(i=0;i<8;i++) *ptrto_eeprom++=Recv_buf[4+i];
    Send_buf[0] = 0x0a;
    Send_buf[1] = Recv_buf[1];
    Send_buf[2] = Recv_buf[2];
    Send_buf[3] = Recv_buf[3];
    DoBCC(&Send_buf[0],4);
	Send_buf[4] = BCC_HI;
	Send_buf[5] = BCC_LOW;
	Send_buf[6] = 0x0D;
	delay_ms(5);
	for(i=0;i<7;i++) putchar(Send_buf[i]);
}

char CheckBCC(void)
{
    unsigned char len,i,BCC,BCCH,BCCL;
	BCC = 0;
	len = re_len - 3;
	for(i=0; i<=len; i++) BCC=BCC^Recv_buf[i];
    BCCH = (BCC>>4)+ 0X30;
	BCCL = (BCC & 0X0F) +0X30;
	if(BCCH>0X39) BCCH +=0X07;
    if(BCCL>0X39) BCCL +=0X07;
	if(BCCH==Recv_buf[len+1] && BCCL==Recv_buf[len+2]) return 1;
	else return 0;
}

void DoBCC(unsigned char *str, unsigned char len )
{
    unsigned char i,BCC;
    BCC = 0;
	for(i =0; i<len; i++) BCC = BCC^ (*(str+i));
	BCC_HI  = (BCC>>4)+ 0X30;
    BCC_LOW = (BCC & 0X0F) +0X30;
	if(BCC_HI > 0x39) BCC_HI  +=0X07;
	if(BCC_LOW > 0x39) BCC_LOW +=0X07;    
}
void Send_Error_Public(unsigned char ErrorCode)
{
	char i;
    Send_buf[0] = 0x0a;
    Send_buf[1] = Recv_buf[1];
    Send_buf[2] = Recv_buf[2];
    Send_buf[3] = Recv_buf[3];
    Send_buf[4] = 0x0e;
	Send_buf[5] = ErrorCode;
    DoBCC(&Send_buf[0],6);
	Send_buf[6] = BCC_HI;
	Send_buf[7] = BCC_LOW;
	Send_buf[8] = 0x0D; 
	delay_ms(5);
	for(i=0;i<9;i++) putchar(Send_buf[i]);
	delay_ms(20);
}
void CheckShorCommand(void)
{                       
	char my_id;
	ptrto_eeprom=MY_ADDR;
	my_id=*ptrto_eeprom;
         
	if(Recv_buf[0]==0x09 && Recv_buf[1]=='H' /*&& Recv_buf[2] == (my_id +'0')*/)
	{
		UCSRB=0x48;
	   	delay_us(5);
	   	set(PORTD,4);
		if(CheckBCC())
 	    {
        	switch(Recv_buf[3])
			{
			case 'B':
               	Get_My_Informat();  
				break;
			case 'F':
                Send_IdCode();  
				break; 
		    default: 
			    Send_Error_Public(1);
				break;
			}
  			delay_ms(20);
			UCSRB=0xD8;			 
		   	clr(PORTD,4);			 
	    }
	    else
	    {
	        Send_Error_Public(1);
   	        delay_ms(10);
	    }
		UCSRB=0xD8;			 
	   	clr(PORTD,4);	
	}
}

void  CheckLongCommand(void)
{ 
	if(Recv_buf[0]==0x09 && (Recv_buf[1]=='H' || Recv_buf[1]=='A'))
	{    
		UCSRB=0x48;
	   	set(PORTD,4);
		if(CheckBCC())
 	    {
        	switch(Recv_buf[3])
			{
			case 'C':
            	Set_My_Id();     
				break;
			case 'D':
            	Get_My_Id();     
				break;
			case 'Z':
            	Check_First_Set1();
   				break;
			default: 
				Send_Error_Public(1);
		        delay_ms(10);
				break;
			 }
			 delay_ms(10);
			 UCSRB=0xD8;			 
		   	 clr(PORTD,4);			 
	    }
	    else
	    {
	        Send_Error_Public(1);
	        delay_ms(10);
	    }
		UCSRB=0xD8;			 
	   	clr(PORTD,4);			 
    } 
}          

void Recv_process(void)
{
	switch(re_len)
	{
	case  0x06:
	case  0x07:
		CheckShorCommand();
		break;
	case  0x0E:
	case  0x0F:
		CheckLongCommand();
		break;
	default:  
		break;
	}  
    re_len = 0;
}