4442.c

该程序用来测试89C51与IDE硬盘的接口

//4442卡的底层操作程序

#include <stdio.h>
#include <intrins.h>
#include <reg52.h>

typedef unsigned char uchar;
typedef unsigned int  uint;

#define RMM_COMM 0x30    //读主存命令字
#define UMM_COMM 0x38    //写主存命令字
#define CVD_COMM 0x33    //校验密码
#define RSM_COMM 0x31    //读密码存储区
#define USM_COMM 0x39    //写密码存储区
#define RPM_COMM 0x34    //读保护存储区
#define WPM_COMM 0x3c    //写保护存储区

#define Pow_On  0        //低电平供电
#define Pow_Off 1        //高电平断电

//******************************************
//定义IC卡接口
sbit CLK=P1^1;           //时钟
sbit OUTDATA=P1^2;       //输出(CPU侧)
sbit INDATA=P1^2;        //输入(CPU侧)
sbit POWER=P1^4;         //电源
sbit RST=P1^0;           //复位
//******************************************


//************************************************************************
//4442卡底层程序的外部函数声明
extern void Rmm(uchar CardAdd,uchar idata *pt,uchar i);  //读IC卡主存
extern void Umm(uchar CardAdd,uchar idata *pt);          //写IC卡主存,每次写一字节
extern void Rpm(uchar idata *pt);                        //读保护存储器
extern void P_Byte(uchar CardAdd,uchar idata *pt);       //保护一字节,注意待保护的字节是已经写入过的,地址只能在保护存储区内
extern void Power_On(uchar idata *pt);                   //卡上电,延时约80us,卡复位,同时读入4个标示字节
extern void Power_Off(void);                             //卡下电,延时约80us
extern bit Verify(uchar idata *pt);                      //校验密码,成功返回1
//******************************************************************



//************************************************************
//功能演示,在实际用的时候把这段注释掉
void main(void)
{
        uchar idata *pt;
	uchar cc;
	bit temp_flag;
        uchar test[12]={1,2,3,4,5,6,7,8,9};
        uchar test1[12];
        pt=&test1[0];

        Power_Off();
        Power_On(pt);    //上电同时读入标示字节

        *pt=0xff;        //第一个密码
        pt++;
        *pt=0xff;        //第二个密码
        pt++;
        *pt=0xff;        //第三个密码
        pt=&test1[0];
        temp_flag=Verify(pt);  //校验密码
        pt=&test1[0];
        Rpm(pt);         //读入保密区字节
        pt=&test[0];
        for (cc=0;cc<10;cc++,pt++)
        Umm(0x40+cc,pt);
        pt=&test1[0];
	    Umm(0x40+cc,pt);

        Rmm(0x40,pt,12);
        *pt=0xaa;
        Umm(0x04,pt);
        P_Byte(0x05,pt);

	while (1);
}
//**********************************************

















//******************************************
//延时10微秒（包括调用和返回的时间）,base=12M
//入口：没有入口
//出口：无
static void Delay10us(void)
{
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	_nop_();
	_nop_();
}
//******************************************


//******************************************
//输出一个字节
//入口：一个uchar形变量
//出口：无
static void OutByte(uchar ch)
{
     uchar i;
     for (i=8;i>0;i--)
     {
          OUTDATA=(bit)(ch&0x01);   //强制取为位变量，输出
          _nop_();_nop_();_nop_();_nop_();_nop_();
          CLK=1;
          Delay10us();
          CLK=0;
	  ch=ch>>1;                 //右移一位
     }
}
//******************************************


//******************************************
//输入一个字节
//入口：没有入口
//出口：一个uchar形变量
static uchar InByte(void)
{
    uchar i,a;
    a=0;
    INDATA=1;           //置为输出状态
    for (i=8;i>0;i--)
    {
        a=a>>1;
	if((uchar)INDATA)
	a|=0x80;
        CLK=1;
        Delay10us();
        CLK=0;
        Delay10us();
    }
    return(a);
}
//*****************************************


//*****************************************
//结束命令模式
//入口：没有入口
//出口：无
static void Stop_Comm(void)
{
	OUTDATA=0;
	Delay10us();
	CLK=1;
	Delay10us();
	OUTDATA=1;
	Delay10us();
}
//*****************************************


//*****************************************
//开始命令模式
//入口：没有入口
//出口：无
static void Start_Comm(void)
{
    OUTDATA=1;
    _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();     //延时6us
    CLK=1;
    _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();
    OUTDATA=0;
    _nop_();_nop_();_nop_();_nop_();_nop_();_nop_();
    CLK=0;
    _nop_();_nop_();_nop_();
}
//******************************************


//******************************************
//处理模式,开始处理模式后，卡片将输入口拉低，然后等待输入口变成高电平，
//如果等待超过10ms(BASE=12M)，程序退出
//入口：没有入口
//出口：无
static void Proce_Mod(void)
{
    uint i;
    CLK=0;
    Delay10us();
    OUTDATA=1;
    INDATA=0;
    for (i=620;i>0;i--)
    {
    	CLK=1;
	Delay10us();
	CLK=0;
	Delay10us();
	if(INDATA)     //输入为高就跳出
	break;
    }
}
//******************************************

//******************************************
//发送命令
//入口：a＝命令字,b＝地址,c数据
//出口：无
static void SendComm(uchar a,uchar b,uchar c)
{
    Start_Comm();     //开始发送命令
    OutByte(a);	      //发命令字
    OutByte(b);	      //发地址
    OutByte(c);	      //发数据
    Stop_Comm();      //结束发送命令
}

//******************************************

//******************************************
//卡复位,用于结束读模式
//入口:无
//出口:无
static void RstCard(void)
{
    uchar temp;
    RST=1;
    Delay10us();
    CLK=1;
    Delay10us();
    Delay10us();
    CLK=0;
    Delay10us();
    RST=0;
    Delay10us();                //发出复位时序
    temp=InByte();
    temp=InByte();
    temp=InByte();
    temp=InByte();              //空读4次
}
//******************************************


//******************************************
//连续输入i(=<255)个字节,存放到以pt开头的内部单元中,
//必须在某一读数据命令模式之后使用
//入口：pt＝起始地址,i＝数据个数
//出口:无
static void Read_Mod(uchar idata *pt,uchar i)
{
	CLK=0;
	Delay10us();
	do
	{
	*pt=InByte();    //读入一个字节
    	pt++;            //指针加一
	}
	while(--i);          //计数器减一,判断
}
//******************************************



//******************************************
//写IC卡主存,每次写一字节
//入口:IC卡地址,指向数据区的指针
//出口:无
extern void Umm(uchar CardAdd,uchar idata *pt)
{
	SendComm(UMM_COMM,CardAdd,*pt);     //写主存的命令字,地址,数据
	Proce_Mod();
}
//******************************************



//******************************************
//读ic卡主存
//入口:卡地址,指向内部RAM的指针,数量
//出口:无
extern void Rmm(uchar cardAdd,uchar idata *pt,uchar i)
{
	SendComm(RMM_COMM,cardAdd,0);
	Read_Mod(pt,i);
        RstCard();
}
//******************************************



//******************************************
//读保护存储器
//入口:指向直接寻址数据区的指针
//出口:无
extern void Rpm(uchar idata *pt)
{
	SendComm(RPM_COMM,1,1);       //读保护存储器的命令字,后两个参数忽略
        Read_Mod(pt,4);               //读出
}
//******************************************


//******************************************
//保护一字节,注意待保护的字节是已经写入过的,地址只能在保护存储区内
//入口:IC卡地址,指向直接寻址数据区的指针
//出口:无
extern void P_Byte(uchar CardAdd,uchar idata *pt)
{
	SendComm(WPM_COMM,CardAdd,*pt); //写主存的命令字,地址,数据
	Proce_Mod();
}
//******************************************



//******************************************
//卡上电,延时约80us,卡复位,同时读入4个标示字节
//入口:入口:指向存放标示的内部直接寻址RAM地址
//出口:无
extern void Power_On(uchar idata *pt)
{
    uchar i=40;
    POWER=Pow_On;
    INDATA=1;
    OUTDATA=1;
    while(--i)
    ;           //延时80us
    RST=1;
    Delay10us();
    CLK=1;
    Delay10us();
    Delay10us();
    CLK=0;
    Delay10us();
    RST=0;
    Delay10us();         //复位
    i=4;
    do
    {
 	*pt=InByte();
	pt++;
    }
    while(--i);     //读入4个标记字节
}
//******************************************


//******************************************
//卡下电,延时约80us
//入口:无
//出口:无
extern void Power_Off(void)
{
	POWER=Pow_Off;
	CLK=0;
	OUTDATA=0;
	INDATA=1;
	RST=0;
}
//******************************************



//******************************************
//校验密码
//入口:指向存放密码的内部直接寻址RAM地址
//出口:成功返回1,失败返回0,卡片已锁也返回0
extern bit Verify(uchar idata *pt)
{
     uchar idata temp[4];            		//暂存4字节的保密区内容
     uchar *tpt;
     uchar i;
     tpt=&temp[0];
     SendComm(RSM_COMM,1,1);        		//读保密存储区的命令字,第2,3个参数在此命令中被忽略
     Read_Mod(tpt,4);               		//读出
     if((temp[0]&0x07)!=0)          		//第一字节是重试计数器,如果重试计数器为0,直接退出
     {
	if((temp[0]&0x07)==0x07)
       	i=0x06;
        else if((temp[0]&0x07)==0x06)
              i=0x04;
	      else if((temp[0]&0x07)==0x04)
	       	    i=0x00;        		//将其中一位为1的改为0
    	SendComm(USM_COMM,0,i);    		//重写计数器
        Proce_Mod();                            //处理
	for (i=1;i<4;i++,pt++)     		//校对3字节的密码
	{
             SendComm(CVD_COMM,i,*pt);         //发出校对命令
             Proce_Mod();                      //处理
        }
    	SendComm(USM_COMM,0,0xff);              //擦除计数器
        Proce_Mod();                            //处理
    	SendComm(RSM_COMM,1,1);                 //读保密存储区的命令字,第2,3个参数在此命令中被忽略
    	tpt=&temp;                              //写到数组
	Read_Mod(tpt,4);                        //读出计数器的内容
    	if((temp[0]&0x07)==0x07)                //如果没有被成功擦除,表明校对失败
    	     return(1);
     }
     return(0);
}
//******************************************