汇编AT24C02 一个字节程序段

;定义引脚SDABITP3.3SCLBITP3.2ORG0000HMAIN:MOV30H,#25H;存想存的数字MOV31H,#34HMOVR1,30HLL:MOVB,R1CALLW24C02;写入24c02CALLR24C02;读出24c02CALLDISPLAY;显示数字INCR1JMPLL;****************************显示*************************************************DISPLAY:MOVA,32HANLA,#0F0HSWAPAMOVDPTR,#TAB1MOVCA,@A+DPTRMOVP0,ACLRP1.0CALLDELAY;显示延时SETBP1.0ANL32H,#0FHMOVA,32HMOVDPTR,#TAB1MOVCA,@A+DPTRMOVP0,ACLRP1.1CALLDELAY;显示延时RETTAB1:DB0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H,080H,090HRETDELAY:MOVR7,#14H;延迟子程序DLY:MOVR6,#0F8HDLY1:DJNZR6,DLY1DJNZR7,DLYRET;*******************************写入24c02**********************************************W24C02:CALLSTART;写入AT24C02的程序段MOVA,#0A0HCALLWBYTECALLACKMOVA,#0CALLWBYTECALLACKMOVA,BCALLWBYTECALLACKCALLSTOPCALLS005RETS005:MOVR7,#10;延时程序段S0051:MOVR6,#248DJNZR6,$DJNZR7,S0051RET;*********************************读24c02***************************************************R24C02:CALLSTART;读AT24c02程序段MOVA,#0A0HCALLWBYTECALLACKMOVA,#0CALLWBYTECALLACKCALLSTARTMOVA,#0A1HCALLWBYTECALLACKCALLRBYTECALLNACKCALLSTOPRET;*******************************************************WBYTE:MOVR7,#8;写程序段WLOOP:RLCAJCWLOOP2CLRSDASETBSCLNOPNOPNOPNOPCLRSCLDJNZR7,WLOOPRETWLOOP2:SETBSDASETBSCLNOPNOPNOPNOPCLRSCLCLRSDADJNZR7,WLOOPRET;******************************************************************************RBYTE:MOVR7,#8;读02程序段RLOOP:SETBSDASETBSCLMOVC,SDAMOVA,32HRLCAMOV32H,ACLRSCLDJNZR7,RLOOPRET;*****************************************************START:SETBSDA;复位程序段SETBSCLNOPNOPNOPNOPCLRSDANOPNOPNOPCLRSCLNOPRETSTOP:CLRSDASETBSCLNOPNOPNOPNOPSETBSDANOPNOPNOPNOPCLRSCLNOPNOPRET;***************************************************************ACK:CLRSDA;响应程序段应答程序NOPSETBSCLNOPNOPNOPNOPCLRSCLNOPNOPRETNACK:SETBSDA;非应答程序段NOPNOPSETBSCLNOPNOPNOPNOPCLRSCLNOPRETEND