/*****************************************/
/* Copyright (c) 2005, 通信工程學院      */
/* All rights reserved.                  */
/* 作    者：戴 佳						 */
/*****************************************/

#include "ICRdWr.h"

/* 延時t毫秒 */
void delay(uint t)
{
	uint i;
	while(t--)
	{
		/* 對于11.0592M時鐘，約延時1ms */
		for (i=0;i<125;i++)
		{}
	}
} 

/* 獲取需要存入IC卡數據的函數*/
void getdata()
{
	// 此函數簡化如下：
	uchar i;
	for (i=0;i<8;i++)
		data_in[i]=i+1;
}

/* 寫單片機AT89S8252的SPDR寄存器，數據通過SPI口串行輸出給IC卡芯片 */
void write_spi(uchar dat)
{
       SPDR = dat;
       while (!(SPSR & 0x80)) ;         // 等待一次傳輸完成
}

/* 獲取IC卡芯片狀態函數 */
uchar IC_stat(void)
{
    P1_1 = 0;               			// 使能IC卡芯片；/cs=0
    
	write_spi(STAT_REG_READ);			// 寫入讀IC卡芯片狀態指令
	write_spi(0x00);                    // 寫無關比特
   
    P1_1 = 1;                			// 禁用IC卡芯片；/cs=1
    return SPDR;						// 返回IC卡芯片狀態字節
}

/* 寫IC卡芯片函數:將數據寫入buffer，如果buffer滿，
	則將buffer中數據寫入主內存頁 */
void write_to_IC(uchar dat)
{ 
	uchar stat;

    /* 檢查IC卡芯片是否忙 */
	stat = IC_stat();
    while ((stat&0x80)==0x00);
	
	/* 數據寫入buffer */
    P1_1 = 0;                 				// 使能IC卡芯片；/cs=0     	
   	write_spi(BUFFER_1_WRITE);				// buffer1寫指令代碼 
    write_spi(0x00);                       	// 寫入8位無關位
    write_spi((uchar)(buf_start_addr>>8)); 	// 寫入7位無關位加上9位buffer起始字節地址的第1位
    write_spi((uchar)buf_start_addr);      	// 寫入9位buffer起始字節地址的后8位
    write_spi(dat);                   		// 寫入數據        
    P1_1 = 1;                				// 禁用IC卡芯片；結束buffer write指令
    
    buf_start_addr++; 						// 下一buffer起始字節地址
    
    /* 如果buffer寫滿，則將buffer中數據寫入主內存頁 */
    if (buf_start_addr > 263)               
    {
        buf_start_addr = 0;					// buffer起始字節地址重置0
        if (page_addr < 2047)            	// 如果主內存頁不滿
        { 
			/* buffer數據寫入主內存頁 */
            P1_1 = 0;          					// 使能IC卡芯片；/cs=0
           	write_spi(B1_TO_MM_PAGE_NO_ERA);	// 寫入無在線擦除的buffer1寫主內存頁指令代碼             
            write_spi((uchar)(page_addr>>7));	// 寫入4位保留位加上11位頁地址的高4位
            write_spi((uchar)(page_addr<<1));	// 寫入11位頁地址的低7位和1位無關位
            write_spi(0x00);                   	// 再寫入8位無關位        
            P1_1 = 1;                			// 禁用IC卡芯片；結束無在線擦除的buffer寫主內存頁指令

            page_addr++;              			// 下一頁地址
        }
    }  
}

/* 讀IC卡芯片函數，如果一頁讀完，則讀取下一頁 */
uchar read_from_IC()
{
	uchar stat;
	uchar tmp;

	/* 檢查IC卡芯片是否忙 */
	stat = IC_stat();
    while ((stat&0x80)==0x00);

	/* 從主內存頁中讀出數據 */
	P1_1 = 0;          				// 使能IC卡芯片；/cs=0	
	write_spi(MM_PAGE_READ) ;		// 寫入主內存頁讀指令代碼
	tmp = (uchar)(page_addr>>7);
	write_spi(tmp);					// 寫入4位保留位加上11位頁地址的高4位
	tmp = (uchar)(page_addr<<1)|((uchar)(page_start_addr>>8)&0x01);
    write_spi(tmp);					// 寫入11位頁地址的低7位和9位頁起始字節地址的最高位
	tmp = (uchar)(page_start_addr);
	write_spi(tmp);					// 寫入9位頁起始字節地址的低8位
	write_spi(0x00) ;				// 寫入8位無關位
	write_spi(0x00) ;				// 寫入8位無關位
	write_spi(0x00) ;				// 寫入8位無關位
	write_spi(0x00) ;				// 再寫入8位無關位，共寫入32位無關位
	write_spi(0xff) ;				// 寫入8位無意義值以確保完成一字節數據的讀出	
	P1_1 = 1;            			// 禁用IC卡芯片；結束主內存頁讀指令

	page_start_addr++; 				// 下一頁中起始字節地址

	/* 如果讀完一頁，則讀取下一頁 */
    if (page_start_addr > 263)               
    {
        page_start_addr = 0;				// 頁起始字節地址重置0
        if (page_addr < 2047)            	// 如果主內存頁沒有讀完
        	page_addr++;              		// 下一頁地址        
    }  

	return SPDR;					// 返回讀出數據
}

/* 主函數 */
void main()
{
	uchar i;

	P1_0 = 1;						// /RST引腳置高

	/* SPIE=0,SPE=1,DORD=0,MSTR=1,CPOL=CPHA=1,SPR1=0,SPR0=1*/
	SPCR=0x5d;

	buf_start_addr = 0;
	page_start_addr = 0;
	page_addr = 0;	
	
	/* 獲取需要寫入IC卡的數據，存放在data_in[]中 */
	getdata();						

	/* 將data_in[]中存放數據寫入IC卡 */
	for (i=0;i<DATA_IN_MAX_LEN;i++)
	{
		write_to_IC(data_in[i]);
		delay(2);					// 延時2ms
	}

	delay(10);						// 延時10ms

	buf_start_addr = 0;
	page_start_addr = 0;
	page_addr = 0;

	/* 數據讀出IC卡，存放在data_out[]中 */
	for (i=0;i<DATA_OUT_MAX_LEN;i++)
	{
		data_out[i] = read_from_IC();
		delay(2);					// 延時2ms
	}

	while(1);	
}