📄 24c04-p0-p2-led.asm
字号:
;*******************************************************************
;* *
;* ME500单片机开发系统演示程序 - 多花样流水灯 *
;* *
;* P0,P2 LED显示 *
;* *
;* 用数据块写方式将数据写入24C04芯片内，再将其数据读出送LED显示。 *
;* *
;* 版本： V1.0 (2007/1/8) *
;* 作者： gguoqing (Email: gguoqing@willar.com) *
;* 网站： www.willar.com(伟纳电子) www.mcusj.com(伟纳单片机世界) *
;* 邮箱： support@willar.com *
;* *
;*【版权】Copyright(C)伟纳电子 www.willar.com All Rights Reserved *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！ *
;* *
;*******************************************************************
;* *
;* 24C04的写入数据块最大字节数n为16,一次写入的字节数m不能多于n. *
;* *
;*******************************************************************
SDA BIT P3.5 ;定义24C04数据线
SCL BIT P3.4 ;定义24C04时钟线
TEMP EQU 2AH
DISP EQU 30H ;数据存放首地址
SLAW DATA 0A0H ;写控制字节 (第一页)
SLAR DATA 0A1H ;读控制字节
; SLAW DATA 0A2H ;写控制字节 (第二页)
; SLAR DATA 0A3H ;读控制字节
;**********************************************************
ORG 0000H
AJMP MAIN
ORG 0030H
;**********************************************************
MAIN:
MOV SP,#70H
MOV P0,#0FFH
MOV TEMP,#00H
MOV DPTR,#TAB1
ACALL WRITE_DATA
MOV TEMP,#10H
MOV DPTR,#TAB2
ACALL WRITE_DATA
MOV TEMP,#20H
MOV DPTR,#TAB3
ACALL WRITE_DATA
MOV TEMP,#30H
MOV DPTR,#TAB4
ACALL WRITE_DATA
ACALL READ_DATA
MAIN1:
MOV R0,#DISP
MOV R1,#64
MAIN2:
MOV A,@R0
MOV P0,A
MOV P2,A
MOV R4,#60
CALL DELAY_5MS
INC R0
DJNZ R1,MAIN2
JMP MAIN1
;**********************************************************
; 写16字节数据子程序
; 查表写数据入24C04
;**********************************************************
WRITE_DATA:
MOV R1,#16 ;写入16个字节的数据
CALL I2C_START
MOV A,#SLAW ;写入控制字节
CALL SENDBYTE
CALL I2C_CASK
JB F0,WRITE_DATA
MOV A,TEMP ;写入I2C单元地址
CALL SENDBYTE
CALL I2C_CASK
JB F0,WRITE_DATA
WR_LOOP:
CLR A
MOVC A,@A+DPTR
CALL SENDBYTE ;写入数据
CALL I2C_CASK
JB F0,WRITE_DATA
INC R0 ;地址+1
INC DPTR ;数据指针+1
DJNZ R1,WR_LOOP ;16个数写入完毕?
CALL I2C_STOP
MOV R4,#2 ;延时若干MS
CALL DELAY_5MS
RET
;**********************************************************
; 读N字节数据子程序
; 从24C04读出数据，存放在首地址为30H的单元内。
;**********************************************************
READ_DATA:
CALL I2C_START
MOV A,#SLAW ;写入写控制字节
CALL SENDBYTE
CALL I2C_CASK
JB F0,READ_DATA
MOV A,#00H ;写入I2C单元地址
CALL SENDBYTE
CALL I2C_CASK
JB F0,READ_DATA
CALL I2C_START
MOV A,#SLAR ;写入读控制字节
CALL SENDBYTE
CALL I2C_CASK
JB F0,READ_DATA
MOV R0,#DISP ;设定存放数据单元
MOV R1,#64 ;设定读取个数
RE_LOOP:
CALL RCVBYTE ;读取字节数据
MOV @R0,A ;存放数据
DJNZ R1,RE_LOOP1
CALL I2C_NACK ;发送非应答位
CALL I2C_STOP
RET
RE_LOOP1:
CALL I2C_ACK ;发送应答位
INC R0
MOV R4,#1 ;延时若干MS
CALL DELAY_5MS
JMP RE_LOOP
;**********************************************************
;从IIC总线上接收一个字节数据
;出口参数：A---接收数据存放在A中
;**********************************************************
RCVBYTE:
MOV R7,#08 ;一个字节共接收8位数据
R_BYTE:
SETB SDA ;置SDA为输入方式
SETB SCL
NOP
NOP
NOP
NOP
MOV C,SDA ;将SDA状态读入C
RLC A ;结果移入Ａ
CLR SCL ;SCL=0,继续接收数据
DJNZ R7,R_BYTE ;判断8位数据是否接收完全？
RET
;**********************************************************
;向IIC总线发送一个字节数据
;入口参数：A---待发送数据存放在A中
;**********************************************************
SENDBYTE:
MOV R7,#08 ;8位数据长度送R7
S_BYTE:
RLC A ;A左移，发送位加入C
MOV SDA,C
SETB SCL
NOP
NOP
NOP
NOP
CLR SCL
DJNZ R7,S_BYTE ;8位发送完毕?
RET
;**********************************************************
; 发送应答子程序
;**********************************************************
I2C_ACK:
CLR SDA
SETB SCL
NOP
NOP
NOP
NOP
CLR SCL
SETB SDA
RET
;**********************************************************
; 发送非应答子程序
;**********************************************************
I2C_NACK:
SETB SDA
SETB SCL
NOP
NOP
NOP
NOP
CLR SCL
CLR SDA
RET
;**********************************************************
;检查应答信号
;等待从机返回一个响应信号
;**********************************************************
I2C_CASK:
SETB SDA ;释放SDA信号线
SETB SCL
CLR F0
NOP
NOP
NOP
MOV C,SDA
JNC CEND
SETB F0 ;应答不正常，F0=1
CEND:
CLR SCL
RET
;**********************************************************
; 启动信号子程序
;**********************************************************
I2C_START:
SETB SDA
SETB SCL
NOP
CLR SDA
NOP
NOP
NOP
NOP
CLR SCL
RET
;**********************************************************
; 停止信号子程序
;**********************************************************
I2C_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
;**********************************************************
TAB1:
DB 0FEH,0FDH,0FBH,0F7H,0EFH,0DFH,0BFH,07FH
DB 0BFH,0DFH,0EFH,0F7H,0FBH,0FDH,0FEH,0FFH
TAB2:
DB 0FEH,0FCH,0F8H,0F0H,0E0H,0C0H,080H,000H
DB 080H,0C0H,0E0H,0F0H,0F8H,0FCH,0FEH,0FFH
TAB3:
DB 0FCH,0F9H,0F3H,0E7H,0CFH,09FH,03FH,09FH
DB 0CFH,0E7H,0F3H,0F9H,0FCH,0FFH,0FFH,0FFH
TAB4:
DB 0E7H,0DBH,0BDH,07EH,0BDH,0DBH,0E7H,0FFH
DB 0E7H,0C3H,081H,000H,081H,0C3H,0E7H,0FFH
;**********************************************************
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -