复旦微电子FM1702QSL官方源程序

复旦微电子FM1702Q（SL）官方源程序，直接由复旦微电子官方提供（100%纯官方）。使用FM1702Q或FM1702SL13.56MHz TypeA射频读卡芯片的源程序，可直接使用。

#include “at89x52.h“
#include “intrins.h“
#include “pin.h“
#include “fm17xx.h“
unsigned char rfid[8];
void ISO15693_init（void）;
unsigned char ISO15693_read（unsigned char block）;
unsigned char ISO15693_write（unsigned char block unsigned char *wdata）;
unsigned char ISO15693_get_info（void）;
unsigned char ISO15693_iventory（void）;
unsigned char ISO15693_select（void）;

void ISO15693_init（void）
{
SPIWrite（0x260x02）;
SPIWrite（0x140x2f）;
SPIWrite（0x150x3f）;
SPIWrite（0x190x8b）;
SPIWrite（0x1a0x14）;
SPIWrite（0x1c0xf8）;
SPIWrite（0x1e0x41）;
SPIWrite（0x220x2c）;
SPIWrite（0x230xff）;
SPIWrite（0x240xff）;
}

unsigned char ISO15693_iventory（void）
{
unsigned char itemp1temp2;
//SPIWrite（0x110x58）;
//delay_100us（100）;
	SPIWrite（0x110x5b）;
//delay_100us（100）;
	SPIWrite（0x140x2f）;
	SetTime_delay（10）;
	temp[0] = 0x06;
 	temp[1] = 0x01;    //Inventory
  	temp[2] = 0x00;    //AFI

  Command_Send（3tempTransceive）;

  for（i=0;i<=15;i++）
  {
    temp2 =SPIRead（0x01）;
    temp1 = SPIRead（ 0x0a） & 0x0f;
    if （（temp2 ==0）&& （temp1==0x00））
    {
      for（i=0;i<8;i++）
      {
        rfid[i]=temp[i+2];
      }
      return 0;
    }
    if（i<15）
    {
     SPIWrite（0x14 0xaf）;
     Command_Send（0tempTransceive）;
    }
  }
  	return 1;
}

unsigned char ISO15693_select（void）
{

unsigned char i;
	SetTime_delay（50）;
 SPIWrite（0x140x2f）;

  temp[0] = 0x22;
  temp[1] = 0x25;  //select
  for（i=0;i<8;i++）
  {
    temp[i+2] = rfid[i];  //UID
  }  

 Command_Send（10tempTransceive）;
return rec_len;
}

unsigned char ISO15693_read（unsigned char block）
{
//unsigned char temp1;
	SetTime_delay（50）;

  temp[0] = 0x02;
  temp[1] = 0x20;
  temp[2] = block;

 Command_Send（3tempTransceive）;

//	temp=SPIRead（0x04）;
//  Read_FIFO（FIFO_Buff）;					//从FIFO中读取应答信息
    return rec_len;

}

unsigned char ISO15693_write（unsigned char block unsigned char *wdata）
{
//unsigned char temp;
	SetTime_delay（50）;

  temp[0] = 0x02;
  temp[1] = 0x21;
  temp[2] = block;
  temp[3] = wdata[0];	
  temp[4] = wdata[1];	
  temp[5] = wdata[2];
  temp[6] = wdata[3];	
 Command_Send（7tempTransceive）;
//if （temp == OK）
 // {
 //   temp = SPIRead（0x0a）;
 //   temp = temp & 0x0f;	
 //   if （temp ==0）
 //   {
 //     Read_FIFO（FIFO_Buff）;					//从FIFO中读取应答信息
//      return OK;
//    }
 //   else
 //   {
 //     return ERROR;
//    }
//  }
 // else
 // {	
 //   return ERROR;
//	}
	return rec_len;
}

unsigned char ISO15693_get_info（void）
{
//unsigned char temp;
	SetTime_delay（100）;

  temp[0] = 0x02;
  temp[1] = 0x2B;
  
 Command_Send（2tempTransceive）;
//	temp=SPIRead（0x04）;
  //  Read_FIFO（FIFO_Buff）;					//从FIFO中读取应答信息
    return rec_len;

}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2801  2011-08-30 11:03  1702Q_test\15693.c

     文件       5829  2011-12-12 10:15  1702Q_test\15693.LST

     文件      18113  2011-12-12 10:15  1702Q_test\15693.OBJ

     文件     205676  2011-12-12 10:15  1702Q_test\1702Q

     文件      50521  2011-12-12 10:15  1702Q_test\1702Q.hex

     文件        127  2011-12-12 10:15  1702Q_test\1702Q.lnp

     文件     165128  2011-12-12 10:15  1702Q_test\1702Q.M51

     文件        162  2011-12-14 09:12  1702Q_test\1702Q.plg

     文件     182033  2011-03-21 14:09  1702Q_test\1715

     文件        107  2011-03-21 14:09  1702Q_test\1715.lnp

     文件     150332  2011-03-21 14:09  1702Q_test\1715.M51

     文件        679  2011-03-21 15:35  1702Q_test\1715.plg

     文件     202267  2011-11-03 14:04  1702Q_test\1722

     文件      49469  2011-11-03 14:04  1702Q_test\1722.hex

     文件        126  2011-11-03 14:04  1702Q_test\1722.lnp

     文件     162288  2011-11-03 14:04  1702Q_test\1722.M51

     文件       8529  2011-11-03 14:07  1702Q_test\1722.plg

     文件     182126  2011-05-04 17:39  1702Q_test\1735

     文件        107  2011-05-04 17:39  1702Q_test\1735.lnp

     文件     150275  2011-05-04 17:39  1702Q_test\1735.M51

     文件       1468  2011-05-09 10:31  1702Q_test\1735.plg

     文件      34488  2010-06-11 10:20  1702Q_test\17XX

     文件         80  2010-06-11 10:20  1702Q_test\17XX.lnp

     文件     116003  2010-06-11 10:20  1702Q_test\17XX.M51

     文件       1984  2011-03-11 11:36  1702Q_test\17XX.opt.bak

     文件        532  2010-06-11 10:21  1702Q_test\17XX.plg

     文件       1892  2011-03-07 09:03  1702Q_test\17XX.Uv2.bak

    .......     63622  2011-12-14 09:12  1702Q_test\17XX.uvopt

     文件      14261  2011-11-03 14:07  1702Q_test\17XX.uvproj

     文件       1845  2011-03-11 11:15  1702Q_test\17XX_Opt.Bak

............此处省略37个文件信息