24c02-p0-p2-led.asm

将演示数据先写入24C04芯片内

;*******************************************************************
;*                                                                 *
;* ME500单片机开发系统演示程序 - 多花样流水灯                      *
;*                                                                 *
;* LED显示                                                         *
;*                                                                 *
;* 将演示数据先写入24C04芯片内，再将其数据逐个读出送P0口LED显示。  *
;*                                                                 *
;* 版本： V1.0 (2006/11/20)                                        *
;* 作者： gguoqing (Email: [e-mail])                    *
;* 网站： www.willar.com(伟纳电子)   www.mcusj.com(伟纳单片机世界) *
;* 邮箱： [e-mail]                                       *
;*                                                                 *
;*【版权】Copyright(C)伟纳电子 www.willar.com  All Rights Reserved *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！       *
;*                                                                 *
;*******************************************************************
           
          SDA BIT P3.5      ;定义24C02数据线
          SCL BIT P3.4      ;定义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