;**************************************

1.;发送命令头5字节

;**************************************

SEND_COMMAND:

MOV.b@BX+,TRDATA//发送命令头5字节

CALL#SENDCHAR

bit#c,sr

Jnzsendcom_out

DEC.BRESETCNT

JNZSEND_COMMAND

CLRC

sendcom_out:

RET

；**********************************************************

2.；发送一个字节，C=0发送正确，C＝1发送出错，容错次数为3次

；**********************************************************

SENDCHAR:

MOV.B#3,ERRCNT//错误次数为3次

schar1:

BIS.B#ICIO+ICRST,&PDIRA//将数据口设为输出口

BIS.B#SAMIO+SAMRST,&PDIRB

clr.bicflag1

BIT.B#ICSAM

JNZSCHAR_IC1

BIC.B#SAMIO,&POUTB//发送起始位

CALL#DELAY1ETU

BIS.B#SAMIO,&PDIRB

CALL#SENDONEbYTE

BIC.B#SAMIO,&PDIRB//转为接收态

CALL#DELAY05ETU

bit.b#samio,&pinb

JZSCHAR_ERR//若数据线为低，表出错

JMPSCHAR_OK

SCHAR_IC1:

BIC.B#ICIO,&POUTA

CALL#DELAY1ETU

BIS.B#ICIO,&PDIRA

CALL#SENDONEbYTE

BIC.B#ICIO,&PDIRA

CALL#DELAY05ETU

BIT.B#ICIO,&PINA

JZSCHAR_ERR

SCHAR_OK:

CALL#DELAY05ETU//一字节发送完毕

call#DELAY1ETU

CLRC

RET

SCHAR_ERR:

CALL#DELAY1ETU

BIS.B#ICIO,&PDIRA

BIS.B#SAMIO,&PDIRB

CALL#DELAY1ETU

DEC.BERRCNT

JNZSCHAR1

SETC

RET

；**************************************

3.；发送一字节：8位加校验位

；**************************************

SENDONEBYTE://发送一字节：8位加校验位

MOV.B#8,CNTREG

CLRC

BIT.B#ICSAM

JNZS1BYTE_IC//ICCARD

S1BYTE_ASAM:

RRA.BTRDATA

JCS1BYTE_C1//=1

BIC.B#SAMIO,&POUTB

JMPS1BYTE_NEXT

S1BYTE_C1:

BIS.B#SAMIO,&POUTB

XOR.B#80H,ICFLAG1//计算校验和

S1BYTE_NEXT:

CALL#DELAY1ETU

DEC.BCNTREG

JNZS1BYTE_ASAM

BIT.B#80H,ICFLAG1//发校验和

JNZS1BYTE_MXOR1//1

BIC.B#SAMIO,&POUTB

JMPS1BYTE_OUT

S1BYTE_MXOR1:

BIS.B#SAMIO,&POUTB

S1BYTE_OUT:

CALL#DELAY1ETU

BIC.B#SAMIO,&PDIRB

JMPS1BYTE_OUT2

S1BYTE_IC:

RRA.BTRDATA

JCS1BYTE_IC1//=1

BIC.B#ICIO,&POUTA

JMPS1BYTE_NEXTIC

S1BYTE_IC1:

BIS.B#ICIO,&POUTA

XOR.B#80H,ICFLAG1//计算校验和

S1BYTE_NEXTIC:

CALL#DELAY1ETU

DEC.BCNTREG

JNZS1BYTE_IC

BIT.B#80H,ICFLAG1

JNZS1BYTE_MXORIC1//1

BIC.B#ICIO,&POUTA

JMPS1BYTE_OUTIC

S1BYTE_MXORIC1:

BIS.B#ICIO,&POUTA

S1BYTE_OUTIC:

CALL#DELAY1ETU

BIC.B#ICIO,&PDIRA

S1BYTE_OUT2:

RET

；************************************************************

4.;复位应答，接收13个应答信号，存放在RSTDATABUF开始的区域

；************************************************************

CARDRESET:

clr.bicflag1

MOV.B#8,CNTREG;发送或接收的位数

CLR.BTRDATA;发送或接收的数据

MOV#RSTDATABUF,BX;复位信号存放区

MOV.B#13,RESETCNT;计数器

clr.b&poutb;

bis.b#sampower,&poutb;

bis.b#samio,&poutB;esam模块io口输出高

bic.b#samrst,&poutB;esam模块rst口输出低

bis.b#sampower+samio+samrst,&pdirb;

BIC.B#CARDPRO_ERR

call#delay1etu

bit.b#icsam//判是对IC卡还是对ESAM的复位

jzrst_sam

RST_IC://对IC卡复位

clr.b&poutA

bis.b#ICpower,&poutA

bis.b#ICio,&poutA

bic.b#ICrst,&poutA

bis.b#ICpower+ICio+ICrst,&pdirA

BIC.B#CARDPRO_ERR

call#delay1etu

mov.b#0fh,&scfi1//对时钟频率进行设置

bis.b#dcoplus,&053h

mov.b#(64-1),&scfqctl//MCLK=4.196MHZ

mov.b#40h,&scfi0

mov.b#02h,P1dir//使P1.1为时钟输出

mov.b#02h,p1sel

bic.b#ICpower,&poutA//上电

bis.b#ICpower,&pdirA

CALL#DELAY05ETU

bic.b#ICIO,&pdirA//把口线置为接收态

call#delay1etu

call#delay1etu

call#delay1etu

BIS.B#ICRST,&POUTA//把RST置高

;starttoreceivedata:400clk

call#delay1etu

JMPRST_A

rst_sam:

bic.b#sampower,&poutB

bis.b#sampower,&pdirB

mov.b#0fh,&scfi1

bis.b#dcoplus,&053h

mov.b#(64-1),&scfqctl//MCLK=4.196MHZ

mov.b#40h,&scfi0

mov.b#02h,P1dir

mov.b#02h,p1sel

CALL#DELAY05ETU

bic.b#samio,&pdirb

call#delay1etu

call#delay1etu

call#delay1etu

BIS.B#SAMRST,&POUTB

;starttoreceivedata:400clk

call#delay1etu

RST_A:

call#recchar//接收13个复位字符

bit.b#c,sr

jnzrst_err

mov.btrdata,0(bx)

incbx

dec.bresetcnt

jnzRST_A

ret

rst_err:

bis.b#CARDPRO_ERR//将错误标志置1

ret