电话IC卡读钱程序RST EQU P1.6 ;C2CLK EQU P1.5 ;C3DIO EQU P1.1 ;C7LCALL READMMOV 30H,R2MOV 31H,R3LJMP $;=================READM:CLR RSTCLR CLKLCALL DELAYSETB RSTLCALL DELAYLCALL CLOCKCLR RSTLCALL DELAYSETB DIOMOV A,#64LCALL CLOCKDJNZ ACC,$-3MOV R2,#0MOV R3,#0MOV R4,#40HMOV R5,#96HLCALL ADDMMOV R4,#05HMOV R5,#12HLCALL ADDMMOV R4,#00HMOV R5,#64HLCALL ADDMMOV R5,#08HLCALL ADDMMOV R5,#01HADDM: MOV R6,#8MOV C,DIOJNC NEXTMOV A,R3ADD A,R5DA AMOV R3,AMOV A,R2ADDC A,R4DA AMOV R2,ANEXT: LCALL CLOCKDJNZ R6,ADDM+2RETCLOCK:SETB CLKLCALL DELAYCLR CLKDELAY: MOV R7,#4DJNZ R7,$RET