#include
#include "main.h"
#include "smartcard.h"
#include "stdio.h"

typedef enum { false, true }bool;

#if 0
sbit PIN_RXD = P1^0; //接收發送同一個引腳定義
sbit PIN_TXD = P1^0; //接收發送同一個發送引腳定義
sbit PIN_CLK = P3^1; //智能卡時鐘引腳定義
sbit PIN_3v5v = P3^2; //智能卡3v_5v引腳定義
sbit PIN_RST = P3^3; //智能卡復位引腳定義
sbit PIN_CMDVCC = P3^4; //智能卡CMD引腳定義
#else
// test Parity
sbit PIN_RXD = P1^0; //接收 腳定義
sbit PIN_TXD = P1^2; //發送 腳定義
sbit PIN_CLK = P3^5; //智能卡時鐘引腳定義
sbit PIN_3v5v = P3^2; //智能卡3v_5v引腳定義
sbit PIN_RST = P3^3; //智能卡復位引腳定義
sbit PIN_CMDVCC = P3^4; //智能卡CMD引腳定義

sbit Test_CLK = P0^3; //接收 腳定義

#endif

bit RxdOrTxd = 0; //指示當前狀態為接收還是發送
bit RxdEnd = 0; //接收結束標志
bit TxdEnd = 0; //發送結束標志
uint8_t RxdBuf = 0; //接收緩沖器
uint8_t TxdBuf = 0; //發送緩沖器
void ConfigUART(unsigned int baud);
void StartTXD(unsigned char dat);
void StartRXD();
void test_IO();

//通過嵌套宏定義，制作一張包括0~255各個數字中包含1的個數，其中包含偶數個1，則ParityTable256[i]=0，否則ParityTable256[i]=1；

static const bool ParityTable256[256] = 
{
#define P2(n) n, n^1, n^1, n
#define P4(n) P2(n), P2(n^1), P2(n^1), P2(n)
#define P6(n) P4(n), P4(n^1), P4(n^1), P4(n)
P6(0), P6(1), P6(1), P6(0)
};

void mainb(){
EA = 1; //開總中斷
ConfigUART(9600);//配置波特率為 9600
while (1){ 
while (PIN_RXD); //等待接收引腳出現低電平，即起始位
StartRXD(); //啟動接收
while (!RxdEnd); //等待接收完成
StartTXD(RxdBuf+1); //接收到的數據+1 后，發送回去
while (!TxdEnd); //等待發送完成
}
return;
}

void SET_3v5v()
{
PIN_3v5v=1;
}
void RESET_3v5v()
{
PIN_3v5v=0;
}

void RST_SET(BitAction ResetState)
{

PIN_RST = ResetState;
}

void SET_CMVCC()
{
PIN_CMDVCC =1;
}
void RESET_CMVCC()
{
PIN_CMDVCC =0;
}

/* 串口配置函數，baud-通信波特率 */
void ConfigUART(unsigned int baud){
TMOD &= 0xF0; //清零 T0 的控制位
TMOD |= 0x02; //配置 T0 為模式 2
// TH0 = 256 - (11059200/6)/baud; //計算 T0 重載值
TH0 = 256 - (FOSC/12)/baud; //計算 T0 重載值

}
/* 啟動串行接收 */
void StartRXD(){

while (PIN_RXD);
//printf("PIN_RXD2=0x%02Xrn", (int)PIN_RXD);
TL0 = 256 - ((256-TH0)>>1); //接收啟動時的 T0 定時為半個波特率周期
ET0 = 1; //使能 T0 中斷
TR0 = 1; //啟動 T0
RxdEnd = 0; //清零接收結束標志
RxdOrTxd = 0; //設置當前狀態為接收

}
/* 啟動串行發送，dat-待發送字節數據 */
void StartTXD(uint8_t dat){
TxdBuf = dat; //待發送數據保存到發送緩沖器
TL0 = TH0; //T0 計數初值為重載值
ET0 = 1; //使能 T0 中斷
TR0 = 1; //啟動 T0
PIN_TXD = 0; //發送起始位
TxdEnd = 0; //清零發送結束標志
RxdOrTxd = 1; //設置當前狀態為發送
}

uint16_t USART_ReceiveData(USART_TypeDef* USARTx)
{
/* Check the parameters */
// assert_param(IS_USART_ALL_PERIPH(USARTx));

/* Receive Data */
#if 0
uint16_t tt= USARTx->SR ;
USARTx->SR = tt & (uint16_t)0x3df; //wuhh add ,remove later

return (uint16_t)(USARTx->DR & (uint16_t)0x01FF);
#endif
return (uint16_t) RxdBuf;

}
void USART_SendData(USART_TypeDef* USARTx, uint8_t Data)
{
StartTXD(Data);
}
FlagStatus USART_GetFlagStatus(USART_TypeDef* USARTx, uint16_t USART_FLAG)
{
FlagStatus bitstatus = RESET; 
if (USART_FLAG== USART_FLAG_TC)
if (TxdEnd)
{
bitstatus = SET;
}
else
{
bitstatus = RESET;
}

if (USART_FLAG== USART_FLAG_RXNE)
if (RxdEnd)
{
bitstatus = SET;
}
else
{
bitstatus = RESET;
}
return bitstatus;
}
static bit polarity = 0; //輸出智能卡時鐘極性

#if 1

/* T0 中斷服務函數，處理串行發送和接收 */
void InterruptTimer0() interrupt 1{

static unsigned char cnt = 0; //位接收或發送計數
Test_CLK = !Test_CLK;

if (RxdOrTxd)
{ //串行發送處理
cnt++;
if (cnt <= 8){ //低位在先依次發送 8bit 數據位
PIN_TXD = TxdBuf & 0x01;
TxdBuf >>= 1;
}else
if (cnt == 9)
{ //發送停止位
PIN_TXD = 1;
}
else{ //發送結束
cnt = 0; //復位 bit 計數器
TR0 = 0; //關閉 T0
TxdEnd = 1; //置發送結束標志
}
}
else{ //串行接收處理
if (cnt == 0){ //處理起始位
if (!PIN_RXD){ //起始位為 0 時，清零接收緩沖器，準備接收數據位
RxdBuf = 0;
cnt++;
}
else{ //起始位不為 0 時，中止接收
TR0 = 0; //關閉 T0
}
}else if (cnt <= 8){ //處理 8 位數據位
RxdBuf >>= 1; //低位在先，所以將之前接收的位向右移
//接收腳為 1 時，緩沖器最高位置 1，
//而為 0 時不處理即仍保持移位后的 0
if (PIN_RXD){
RxdBuf |= 0x80;
}
cnt++;
}else{ //停止位處理
cnt = 0; //復位 bit 計數器
TR0 = 0; //關閉 T0
if (PIN_RXD){ //停止位為 1 時，方能認為數據有效
RxdEnd = 1; //置接收結束標志
}
}
}
}

#else
/* T0 中斷服務函數，處理串行發送和接收 */

void InterruptTimer0() interrupt 1{

static unsigned char cnt = 0; //位接收或發送計數 
//test_IO();
#if 0
PIN_TXD = !PIN_TXD;
#else

if (RxdOrTxd){ //串行發送處理
cnt++;
if (cnt <= 8){ //低位在先依次發送 8bit 數據位
PIN_TXD = TxdBuf & 0x01;
TxdBuf >>= 1;
}else if (cnt == 9){ //奇偶位
PIN_TXD=ParityTable256[TxdBuf]; 
}else if (cnt == 10){ //發送停止位1 智能卡協議共兩個停止位
PIN_TXD = 1;
}else if (cnt == 11){ //發送停止位2 
PIN_TXD = 1;
}else{ //發送結束
cnt = 0; //復位 bit 計數器
TR0 = 0; //關閉 T0
TxdEnd = 1; //置發送結束標志
}
}else{ //串行接收處理
if (cnt == 0){ //處理起始位
if (!PIN_RXD){ //起始位為 0 時，清零接收緩沖器，準備接收數據位
RxdBuf = 0;
cnt++; 
//printf("InterruptTimer 0n");
} else{ //起始位不為 0 時，中止接收
TR0 = 0; //關閉 T0
printf("InterruptTimer closen");
}
}
else if (cnt <= 8){ //處理 8 位數據位
RxdBuf >>= 1; //低位在先，所以將之前接收的位向右移
//接收腳為 1 時，緩沖器最高位置 1，
//而為 0 時不處理即仍保持移位后的 0
if (PIN_RXD){
RxdBuf |= 0x80;
}
printf("RxdBuf=0x%02Xrn", (int)RxdBuf);
cnt++;
}else{ //停止位處理
cnt = 0; //復位 bit 計數器
TR0 = 0; //關閉 T0
if (PIN_RXD){ //停止位為 1 時，方能認為數據有效
RxdEnd = 1; //置接收結束標志
}
}
}
#endif
}
#endif