2402den.asm

51单片机驱动24C02存储器 可以学习IIC总线

;********************************************************************************
;* 24C02读写 8路花样跑马灯	                                         	*
;* 将演示数据先写入24C02芯片内，再将其数据逐个读出送P0口LED显示。      		*
;硬件连接：8路指示灯接P0,24C02控制SDAP3.7 SCLP3.6   				*                 
;开机， 跑马灯 为证明2402的作用， 去掉2402连线，则无显示 		        *
;********************************************************************************
;*  日期:  2008-2-25                                                            *
;*  版本:  3.0                                                                  *
;*  作者:  深圳志博电子有限公司     专业8051单片机教学站                        *
;*  邮箱: [e-mail]                                                       *
;*  网站： http://www.elecmcu.com     http://www.elecmcu.com    更多例程请登陆网站   *
;********************************************************************************
;*  硬件：此程序在本公司志博电子实验仪运行通过                           *
;********************************************************************************
;* 【版权】 Copyright(C)深圳志博电子有限公司 www.elecmcu.com  All Rights Reserved *
;* 【声明】 此程序仅用于学习与参考，引用请注明版权和作者信息！                  *
;********************************************************************************
         SDA  BIT  P1.7        ;定义24C02数据线
         SCL  BIT  P1.6       ;定义24C02时钟线
;-----------------------------------------------------
         ORG 0000H
         AJMP MAIN
         ORG 0030H
;-----------------------------------------------------
MAIN:
         MOV  SP,#60H
         MOV  P0,#0FFH
         ACALL  WRITE_DATA
M_LOOP:
         ACALL  READ_DATA
         JMP  M_LOOP
;-----------------------------------------------------
;写N字节数据子程序
;查表写数据入24C02
;-----------------------------------------------------
WRITE_DATA:
         MOV R0,#00H         ;数据写入首地址
         MOV R1,#72          ;共写入72个字节的数据
         MOV DPTR,#TAB       ;查表
WR_LOOP:
         CLR A
         MOVC A,@A+DPTR
         MOV B,A
         LCALL WRITE_BYTE    ;将查表结果写入24C02
         INC R0              ;地址+1
         INC DPTR            ;数据指针+1
         DJNZ R1,WR_LOOP     ;72个数写入完毕?
         RET
;-----------------------------------------------------
;读N字节数据子程序
;从24C02读出数据，送P0口显示
;-----------------------------------------------------
READ_DATA:
         MOV R0,#00H         ;设定读取的初始地址
         MOV R1,#72          ;设定读取个数
RE_LOOP:
         LCALL READ_BYTE     ;读EEPROM
         CALL STOP
         INC R0              ;地址+1
         MOV P0,A            ;将结果输出到P0显示
         MOV P2,A
         MOV R4,#60          ;延时约300ms
         LCALL DELAY_5MS
         DJNZ R1,RE_LOOP
         RET
 ;----------------------------------------------------
 ;写操作子程序
 ;输入参数: R0---要写入的地址，B---要写入的数据
 ;----------------------------------------------------
WRITE_BYTE:
       CALL START
       MOV A,#0A0H
       CALL  SENDBYTE
       CALL  WAITACK
       MOV A,R0
       CALL SENDBYTE
       CALL  WAITACK
       MOV A,B
       CALL SENDBYTE
       CALL  WAITACK
       CALL STOP
       MOV R4,#1          ;每写入1个字节，延时若干MS
       CALL DELAY_5MS
       RET
 ;----------------------------------------------------
 ;读操作子程序
 ;输入参数：R0---要读的字节地址,
 ;输出参数: A---结果
 ;----------------------------------------------------
READ_BYTE:
       CALL START
       MOV A,#0A0H
       CALL SENDBYTE
       CALL  WAITACK
       MOV A,R0
       CALL SENDBYTE
       CALL  WAITACK
       CALL START
       MOV A,#0A1H
       CALL SENDBYTE
       CALL  WAITACK
       CALL  RCVBYTE
       RET
;-----------------------------------------------------
;从IIC总线上接收一个字节数据
;出口参数：A---接收数据存放在A中
;-----------------------------------------------------
RCVBYTE:
       MOV R7,#08        ;一个字节共接收8位数据
       CLR  A
       SETB  SDA         ;释放SDA数据线
R_BYTE:
       CLR  SCL
       NOP
       NOP
       NOP
       NOP
       SETB SCL          ;启动一个时钟周期，读总线
       NOP
       NOP
       NOP
       NOP
       MOV C,SDA         ;将SDA状态读入C
       RLC A             ;结果移入Ａ
       SETB  SDA         ;释放SDA数据线
       DJNZ R7,R_BYTE    ;判断8位数据是否接收完全？
       RET
;----------------------------------------------------
;向IIC总线发送一个字节数据
;入口参数：A---待发送数据存放在A中
;----------------------------------------------------
SENDBYTE:
       MOV R7,#08
S_BYTE:
       RLC A
       MOV SDA,C
       SETB SCL
       NOP
       NOP
       NOP
       NOP
       CLR SCL
       DJNZ R7,S_BYTE   ;8位发送完毕?
       RET
;-----------------------------------------------------
;等待应答信号
;等待从机返回一个响应信号
;-----------------------------------------------------
WAITACK:
       CLR  SCL
       SETB SDA       ;释放SDA信号线
       NOP
       NOP
       SETB SCL
       NOP
       NOP
       NOP
       MOV C,SDA
       JC  WAITACK    ;SDA为低电平，返回了响应信号
       CLR  SDA
       CLR  SCL
       RET
 ;----------------------------------------------------
 ;启动信号子程序
 ;----------------------------------------------------
START:
       SETB SDA
       SETB SCL
       NOP
       CLR SDA
       NOP
       NOP
       NOP
       NOP
       CLR SCL
       RET
 ;----------------------------------------------------
 ;停止信号子程序
 ;----------------------------------------------------
STOP:
       CLR SDA
       NOP
       SETB SCL
       NOP
       NOP
       NOP
       NOP
       SETB SDA
       NOP
       NOP
       CLR  SCL
       CLR  SDA
       RET
 ;----------------------------------------------------
 ;延时5MS子程序
 ;输入参数：R4---R4*5MS
 ;输出参数: 无
 ;影响资源: R4,R5,R6等
 ;----------------------------------------------------
DELAY_5MS:
      MOV R6,#10
DE_LP:
      MOV R5,#250
      DJNZ R5,$
      DJNZ R6,DE_LP
      DJNZ R4,DELAY_5MS
      RET
 ;----------------------------------------------------
TAB:
     DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH
     DB 0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH,0FFH
     DB 0FEH,0FCH,0F8H,0F0H,0E0H,0C0H,080H,000H
     DB 080H,0C0H,0E0H,0F0H,0F8H,0FCH,0FEH,0FFH
     DB 0FCH,0F9H,0F3H,0E7H,0CFH,09FH,03FH
     DB 09FH,0CFH,0E7H,0F3H,0F9H,0FCH,0FFH
     DB 0E7H,0DBH,0BDH,07EH,0BDH,0DBH,0E7H,0FFH
     DB 0E7H,0C3H,081H,000H,081H,0C3H,0E7H,0FFH
     DB 0AAH,055H,018H,0FFH,0F0H,00FH
     DB 000H,0FFH,000H,0FFH
;-----------------------------------------------------
      END