📄 24c04-shumaguan-play.asm
字号:
;*******************************************************************
;* *
;* ME500单片机开发系统演示程序 - 24C04读写 *
;* *
;* 8位数码管显示显示 *
;* *
;* 将数据先写入24C04芯片内，再将其数据逐个读出送数码管显示。 *
;* *
;* 版本： V1.0 (2006/11/20) *
;* 作者： gguoqing (Email: gguoqing@willar.com) *
;* 网站： www.willar.com(伟纳电子) www.mcusj.com(伟纳单片机世界) *
;* 邮箱： support@willar.com *
;* *
;*【版权】Copyright(C)伟纳电子 www.willar.com All Rights Reserved *
;*【声明】此程序仅用于学习与参考，引用请注明版权和作者信息！ *
;* *
;*******************************************************************
SDA BIT P3.5 ;定义24C02数据线
SCL BIT P3.4 ;定义24C02时钟线
DISSTART EQU 40H ;显示单元首地址
LED_DATA EQU P0 ;数码管数据口定义
;-----------------------------------------------------
ORG 0000H
AJMP MAIN
ORG 0030H
;-----------------------------------------------------
MAIN:
MOV SP,#60H
MOV P0,#0FFH
ACALL WRITE_DATA ;写数据入24C02
MOV R4,#04H ;延时约20ms
LCALL DELAY_5MS ;从24C02中读出数据
ACALL READ_DATA
M_LOOP:
CALL PLAY
JMP M_LOOP
;-----------------------------------------------------
;写N字节数据子程序
;查表写数据入24C02
;-----------------------------------------------------
WRITE_DATA:
MOV R0,#00H ;数据写入首地址
MOV R1,#8 ;共写入8个字节的数据
MOV DPTR,#TAB_NU ;查表
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 ;8个数写入完毕?
RET
;-----------------------------------------------------
;读N字节数据子程序
;从24C02读出数据，
;-----------------------------------------------------
READ_DATA:
MOV R0,#00H ;设定读取的初始地址
MOV R3,#8 ;设定读取个数
MOV R1,#DISSTART
RE_LOOP:
LCALL READ_BYTE ;读EEPROM
CALL STOP
MOV @R1,A ;存储读出的数据
INC R1
INC R0 ;地址+1
MOV R4,#04H ;延时约20ms
LCALL DELAY_5MS
DJNZ R3,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
;----------------------------------------------------
; 显示子程序
;----------------------------------------------------
PLAY:
MOV R0,#DISSTART ;获得显示单元首地址
MOV R1,#0FEH ;从第一个数码管开始
MOV R2,#08H ;共显示3位数码管
DISP1:
MOV A,@R0 ;获得当前位地址
MOV LED_DATA,A ;显示数据
MOV P2,R1 ;开始显示当前位
MOV A,R1 ;准备显示下一位
RL A
MOV R1,A ;下一位
INC R0 ;取下一个单元地址
LCALL DELAY2MS ;延时 2 MS
DJNZ R2,DISP1 ;重复显示下一个
MOV P2,#0FFH ;关闭显示
RET ;显示完成，返回
;-----------------------------------------------------
;延时子程序
;-----------------------------------------------------
DELAY2MS:
MOV R6,#10
DEL1:
MOV R7,#100
DJNZ R7,$
DJNZ R6,DEL1
RET
;-----------------------------------------------------
TAB_NU:
DB 0C0H,0F9H,0A4H,0B0H,099H,092H,082H,0F8H
DB 080H,090H,0FFH,088H,083H,0C6H,0A1H,086H,08EH
;-----------------------------------------------------
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -