sle4442程序(ic卡程序,C語言源代碼)

/**********讀主存儲器**************/
void ReadMainMemory(uchar addr,uchar *p,uchar N)
{Command(0x30,addr,0xff);
?do{*p=ReceiveData();
??? p++;}while(--N);
}

/**********讀保護存儲器***********/
void ReadProtectMemory(uchar *p)
{uchar i=4;
?Command(0x34,0xff,0xff);
?do{*p=ReceiveData();
??? p++;}while(i--);
}

/************寫主存儲器************/
void WriteMainMemory(uchar Address,uchar Data)
{Command(0x38,Address,Data);
?Process();
}

/**************寫保護存儲器**********/
void WriteProtectMemory(uchar Address,uchar Data)
{Command(0x3c,Address,Data);
?Process();
}

/**************讀安全存儲器************/
void ReadSafeMemory(uchar *p)
{uchar i;
?Command(0x31,0xff,0xff);
?for(i=0;i<4;i++)
? {*p=ReceiveData();
? p++;}
}

/*************寫安全存儲器***************/
void WriteSafeMemory(uchar Address,uchar Data)
{Command(0x39,Address,Data);//Address=0,1,2,3
?Process();
}

/**************校驗密碼*******************/
uchar VerifyPassword(uchar *p)
{uchar temp[4];//暫存4字節(jié)保護密碼；
?uchar i;
?ReadSafeMemory(temp);//讀安全代碼以取得錯誤計數(shù)器
?if((temp[0]&0x07)!=0)
? {if((temp[0]&0x07)==0x07)? i=0x06;
? if((temp[0]&0x07)==0x06)? i=0x04;
???? if((temp[0]&0x07)==0x04)? i=0x00;
? WriteSafeMemory(0,i);
? for(i=1;i<4;i++,p++)
?? {Command(0x33,i,*p);
?? Process();}
???? WriteSafeMemory(0,0xff);
? ReadSafeMemory(temp);
? if((temp[0]&0x07)==0x07) return(0x1);
?
?}
?return(0);
}
//*************SLE4442函數(shù)結(jié)束*****************//

//*************數(shù)據(jù)變換**********//
void Change(uchar *Source,uchar *Destination,uchar N)
{uchar i,temp;
?for(i=0;i?{temp=Source[i];
? Destination[i]=temp>>4;
? Destination[2*i+1]=temp&0x0f;}
}

//***********密碼錯誤報警***********************//
void Buzzle_Password(void)
{uchar i;
?for(i=0;i<2;i++)
?{Voice(0);
???? DelayMs(1000);
???? Voice(1);
???? DelayMs(1000);}
}
?
//**********非法卡錯誤報警*************************//
void Buzzle_Card(void)
{uchar i;
?for(i=0;i<2;i++)
?{Voice(0);
???? DelayMs(3000);}
}

//*************余額不足報警**********************//
void Buzzle_Money(void)
{uchar i;
?for(i=0;i<1;i++)
? {Buzzle_Password();
?? Buzzle_Card();}
}
?
//*********************讀卡函數(shù)********************//
//說明：
//函數(shù)使用的數(shù)組參數(shù)用來存放讀出的余額值；
//返回值信息：
//0:卡壞！
//1:非法卡(特征值不正確)
//2:非法卡（特征值正確，帳號不正確）
//3:讀卡成功！
uchar Read_Card(uchar *p)
{uchar i,tag=0,temp[4];
?ReadSafeMemory(temp);
?if(temp[0]==0x07)
? {ReadMainMemory(32,p,14);//讀主存儲器14字節(jié)：32-35特征碼；36-3A帳號；3B-3F余額
?? if(p[0]==0x00&&p[1]==0x0f&&p[2]==0xf0&&p[3]==0xff)//特征碼：0x00,0x0f,0xf0,0xff
? {for(i=0;i<10;i++)
? if((p[i+4]>=0&&p[i+4]<=9)) tag=tag+1;
? if(tag!=10) return(2);
? else return(3);
?}
?? else
??? return(1);
? }
?else return(0);
}

//*********************卡初始化函數(shù)********************//
//說明：
//函數(shù)使用的數(shù)組參數(shù)用來存放寫入的的ID值；
//返回值信息：
//2:初始化失敗！
//3:初始化成功！
uchar Initial_Card(uchar *p)
{uchar Psw[3]={0xff,0xff,0xff};
?uchar i,j,temp=0;
?uchar tp[20];
// ResetIC(ICcode);//IC卡復(fù)位，讀出復(fù)位后的廠家信息代碼A2131091;
? j=VerifyPassword(Psw);
? WriteMainMemory(32,0x00);//寫特征碼：
? WriteMainMemory(33,0x0f);
? WriteMainMemory(34,0xf0);
? WriteMainMemory(35,0xff);
? for(i=0;i<5;i++)//寫帳號
? WriteMainMemory(36+i,p[i]);//從32+i地址開始寫5字節(jié)帳號；
? for(i=0;i<5;i++)
? WriteMainMemory(41+i,0);//從32+i地址開始寫5字節(jié)初始化金額0000.0
? j=Read_Card(tp);
? if(j==3)
?? {for(i=0;i<10;i++)
???? if(p[i]==tp[i+4]) temp=temp+1;
? }
? if(temp==10)? return(3);
? else return(2);
}

//***************卡修復(fù)函數(shù)********************//
//說明：
//返回值信息：
//0:修復(fù)失?。?br>//1:修復(fù)成功！????????????
uchar Repair_Card(void)
{uchar Psw[3]={0xff,0xff,0xff};
?uchar i,j,temp;
?i=VerifyPassword(Psw);
?return(i);
}

//********************加卡函數(shù)***********//
void Add_Card(uchar *p)
{uchar i;
?uchar temp[14];
?i=Read_Card(temp);
?if(i==3)
? {temp[13]=temp[13]+p[4];
? if(temp[13]>9) {temp[13]=temp[13]-10;temp[12]=temp[12]+1;}
? temp[12]=temp[12]+p[3];
? if(temp[12]>9) {temp[12]=temp[12]-10;temp[11]=temp[11]+1;}
? temp[11]=temp[11]+p[2];
? if(temp[11]>9) {temp[11]=temp[11]-10;temp[10]=temp[10]+1;}
? temp[10]=temp[10]+p[1];
? if(temp[10]>9) {temp[10]=temp[10]-10;temp[9]=temp[9]+1;}
?
? WriteMainMemory(41,temp[9]);
? WriteMainMemory(42,temp[10]);
? WriteMainMemory(43,temp[11]);
? WriteMainMemory(44,temp[12]);
???? WriteMainMemory(45,temp[13]);
?}
}

//********************減卡函數(shù)***********//
void Sub_Card(uchar *p)
{uchar i,B_Flag;
?uchar temp[14];
?i=Read_Card(temp);
?if((i==3)&&(!(temp[9]? {if(temp[13]? else temp[13]=temp[13]-p[4];
? //以上處理小數(shù)點右邊的數(shù)字；
? if(B_Flag==1)
?? {if(temp[12]==0) {temp[12]=9;B_Flag=0;}
??? else temp[12]=temp[12]-1;}
? //以上對存在借位情況時對小數(shù)點左邊第一位進行預(yù)處理；
? if(temp[12]? else temp[12]=temp[12]-p[3];
? //以上處理小數(shù)點小數(shù)點左邊第一位數(shù)字；
?? if(B_Flag==1)
?? {if(temp[11]==0) {temp[11]=9;B_Flag=0;}
??? else temp[11]=temp[11]-1;}
? //以上對存在借位情況時對小數(shù)點左邊第二位進行預(yù)處理；
?? if(temp[11]?? else temp[11]=temp[11]-p[2];
? //以上處理小數(shù)點小數(shù)點左邊第二位數(shù)字；
?? if(B_Flag==1)
?? {if(temp[10]==0) {temp[10]=9;B_Flag=0;}
??? else temp[10]=temp[10]-1;}
? //以上對存在借位情況時對小數(shù)點左邊第三位進行預(yù)處理；
?? if(temp[10]?? else temp[10]=temp[10]-p[1];
? //以上處理小數(shù)點小數(shù)點左邊第三位數(shù)字；
?? if(B_Flag==1)
?? {if(temp[9]==0) {temp[9]=0;B_Flag=0;}
??? else temp[9]=temp[9]-1;}
? //以上對存在借位情況時對小數(shù)點左邊第二位進行預(yù)處理；
?? temp[9]=temp[9]-p[0];
? //以上處理小數(shù)點小數(shù)點左邊第二位數(shù)字；
????
? WriteMainMemory(41,temp[9]);
? WriteMainMemory(42,temp[10]);
? WriteMainMemory(43,temp[11]);
? WriteMainMemory(44,temp[12]);
???? WriteMainMemory(45,temp[13]);
?}
}
?
//*****************數(shù)碼管顯示函數(shù)********************//
void Display(uchar *p)
{uchar sel,i;
?sel=0x01;
?for(i=0;i<6;i++)
?? {PORTA=table[p[i]];
??? PORTB=sel;
?DelayMs(2);
?sel=sel<<1;}
}
?

//****************鍵盤掃描函數(shù)***********************//
uchar Key_Scan(void)
{uchar sccode,recode;
?PORTC=0xf0;
?if((PINC&0xf0)!=0xf0)
? {DelayMs(10);
? if((PINC&0xf0)!=0xf0)
??? {sccode=0xfe;
???? while(sccode&0x10!=0x00)
???????? {PORTC=sccode; //對第一行鍵盤測試
??? if((PINC&0xf0)!=0xf0)
???? {recode=(PINC&0xf0)|0x0f;
????? return((~sccode)+(~recode));}
??? else
???? sccode=(sccode<<1)|0x01;
????? }
??? }
? }
?return(0x00);
}
??
//******************按鍵處理函數(shù)*******************//
void Key_Process(uchar *p)
{uchar temp,value;
?temp=Key_Scan();
?switch(temp)
? {case 0x11:value=9;Num_Flag=1;break;
?? case 0x21:value=8;Num_Flag=1;break;
?? case 0x41:value=7;Num_Flag=1;break;
?? case 0x12:value=6;Num_Flag=1;break;
?? case 0x22:value=5;Num_Flag=1;break;
?? case 0x42:value=4;Num_Flag=1;break;
?? case 0x14:value=3;Num_Flag=1;break;
?? case 0x24:value=2;Num_Flag=1;break;
?? case 0x44:value=1;Num_Flag=1;break;
?? case 0x18:value=0;Num_Flag=1;break;
?? case 0x28:Point_Flag=1;break;
?? case 0x82:Add_Flag=1;Sub_Flag=0;Key_Flag=1;break;
?? case 0x84:Sub_Flag=1;Add_Flag=0;Key_Flag=1;break;
?? case 0x48:Repair_Flag=1;Key_Flag=1;break;
?? case 0x81:Init_Flag=1;Key_Flag=1;break;
?? case 0x88:Enter_Flag=1;Key_Flag=0;break;
?? default:???? NOP();
? }
?if(Num_Flag==1){p[4]=p[3];p[3]=p[2];p[2]=p[1];p[1]=value;Num_Flag=0;}
?if(Point_Flag==1){p[0]=value;Point_Flag=0;}
?if(Add_Flag==1) {Add_Flag=1;Sub_Flag=0;}
?if(Sub_Flag==1) {Sub_Flag=1;Add_Flag=0;}
?if(Init_Flag==1) {Init_Flag=1;}
?if(Repair_Flag==1) {Repair_Card();Repair_Flag=0;}
?if(Enter_Flag==1)
?? {if(Add_Flag==1) {Add_Card(p);Enter_Flag=0;Add_Flag=0;}
??? if(Sub_Flag==1) {Sub_Card(p);Enter_Flag=0;Sub_Flag=0;}
?if(Init_Flag==1) {Initial_Card(p);Init_Flag=0;}}
}
??
//***************中斷處理********************//
//**********定時器2：16ms中斷顯示一次*******//
#pragma interrupt_handler TIMER1_INT:9
void TIMER1_INT(void)
{uchar temp[5],i;
?for(i=0;i<5;i++)
?? temp[i]=ICcontent[9+i];
?if(IC_Flag==0) Display(EEEEE);
?if(IC_Flag==1) Display(FFFFF);
?if(IC_Flag==3)
?? {if(Key_Flag==1)//顯示此次操作金額；
????? {Money[1]|=0x80;//顯示時加上小數(shù)點;
??? Display(Money);}
?else????????? //顯示卡內(nèi)余額；
?? {temp[4]|=0x80;
??? Display(temp);}
?? }
}

//*************系統(tǒng)初始化*************//
void Initial_System(void)
{//系統(tǒng)初始化
?//SPL=0x5f;//AT90S8535的堆棧指針指向最高RAM地址；
?//SPH=0x02;
?//IO口初始化；
?DDRA=0xff; //A口輸出高電平
?PORTA=0xff;
?DDRB=0xff; //B口輸出低電平
?PORTB=0x00;
?DDRC=0x0f; //C口高四位輸入（不帶上拉電阻）低四位輸出0
?PORTC=0xf0;
?DDRD=0xff; //D口輸出低電平
?PORTD=0x00;
?//中斷系統(tǒng)初始化（定時器1中斷）
?SREG=SREG|0x80; //I(SREG^7)全局中斷使能置位
?TIMSK=TIMSK|0x40;//TOIE1(TIMSK^2)T/C1溢出中斷使能置位
?TIFR=TIFR|0x40;//TOV1(TIFR^2)T/C1溢出中斷標(biāo)志位寫"1"清0
?//定時器初始化
?TCCR1B=TCCR1B|0x20;//定時器時鐘分頻＝CLK/8 (1uS計數(shù))
?TCNT1H=0xc1;//需要計數(shù)16000＝0x3E80次，
?TCNT1L=0x7f;//計數(shù)初值0xff-0x3e80=0xc17f;
?//顯示系統(tǒng)初始化
?IC_Flag=0;//如果IC卡沒有上電，則顯示的是8.8.8.8.，否則顯示IC卡的內(nèi)容
}
???
void main(void)
{uchar i,j;
?Initial_System();
?while(IC_Flag==1)
?? {DelayMs(5);
??? ResetIC(ICcode);
?i=Read_Card(ICcontent);
?if(i==0) {IC_Flag=0; Buzzle_Password();}??? //顯示EEEE,提示卡壞
??? if((i==1)|(i==2)) {IC_Flag=1;Buzzle_Card();} //顯示FFFF,提示非法卡
??? if(i==3)
?? {if(ICcontent[12]<5)
????? {IC_Flag=3;Buzzle_Money();}
??? else
????? {do Key_Process(Money);
??? while(Enter_Flag!=0);
??? Enter_Flag=0;}
?? }?
?? }
}