;功能说明
;用STC的MCU的IO方式控制74HC595驱动8位数码管。
;显示效果为: 数码时钟.
;使用Timer0的16位自动重装来产生1ms节拍,程序运行于这个节拍下, 用户修改MCU主时钟频率时,自动定时于1ms.
Fosc_KHZ EQU 22118 ;22118KHZ
STACK_POIRTER EQU 0D0H ;堆栈开始地址
Timer0_Reload EQU (65536 - Fosc_KHZ) ; Timer 0 中断频率, 1000次/秒
DIS_DOT EQU 020H
DIS_BLACK EQU 010H
DIS_ EQU 011H
P0M1 DATA 0x93 ;
P0M0 DATA 0x94 ;
P1M1 DATA 0x91 ;
P1M0 DATA 0x92 ;
P2M1 DATA 0x95 ;
P2M0 DATA 0x96 ;
P3M1 DATA 0xB1 ;
P3M0 DATA 0xB2 ;
P4M1 DATA 0xB3 ;
P4M0 DATA 0xB4 ;
P5M1 DATA 0xC9 ;
P5M0 DATA 0xCA ;
P6M1 DATA 0xCB ;
P6M0 DATA 0xCC ;
P7M1 DATA 0xE1 ;
P7M0 DATA 0xE2 ;
AUXR DATA 08EH
P4 DATA 0C0H
P5 DATA 0C8H
;IO口定义
P_HC595_SER BIT P4.0 ; //pin 14 SER data input
P_HC595_RCLK BIT P5.4 ; //pin 12 RCLk store (latch) clock
P_HC595_SRCLK BIT P4.3 ; //pin 11 SRCLK Shift data clock
;本地变量声明
Flag0 DATA 20H
B_1ms BIT Flag0.0 ; 1ms标志
LED8 DATA 30H ; 显示缓冲 30H ~ 37H
display_index DATA 38H ; 显示位索引
hour DATA 39H ;
minute DATA 3AH
second DATA 3BH ;
msecond_H DATA 3CH ;
msecond_L DATA 3DH ;
ORG 0000H ;reset
LJMP F_Main
ORG 000BH ;1 Timer0 interrupt
LJMP F_Timer0_Interrupt
;主程序
ORG 0100H ;reset
F_Main:
CLR A
MOV P0M1, A ;设置为准双向口
MOV P0M0, A
MOV P1M1, A ;设置为准双向口
MOV P1M0, A
MOV P2M1, A ;设置为准双向口
MOV P2M0, A
MOV P3M1, A ;设置为准双向口
MOV P3M0, A
MOV P4M1, A ;设置为准双向口
MOV P4M0, A
MOV P5M1, A ;设置为准双向口
MOV P5M0, A
MOV P6M1, A ;设置为准双向口
MOV P6M0, A
MOV P7M1, A ;设置为准双向口
MOV P7M0, A
MOV SP, #STACK_POIRTER
MOV PSW, #0
USING 0 ;选择第0组R0~R7
;用户初始化程序
MOV display_index, #0
MOV R0, #LED8
MOV R2, #8
L_ClearLoop:
MOV @R0, #DIS_BLACK ;上电消隐
INC R0
DJNZ R2, L_ClearLoop
CLR TR0
ORL AUXR, #(1 SHL 7) ; Timer0_1T();
ANL TMOD, #NOT 04H ; Timer0_AsTimer();
ANL TMOD, #NOT 03H ; Timer0_16bitAutoReload();
MOV TH0, #Timer0_Reload / 256 ;Timer0_Load(Timer0_Reload);
MOV TL0, #Timer0_Reload MOD 256
SETB ET0 ; Timer0_InterruptEnable();
SETB TR0 ; Timer0_Run();
SETB EA ; 打开总中断
MOV hour, #12 ; 初始化时间值
MOV minute, #0
MOV second, #0
LCALL F_DisplayRTC
;主循环
L_Main_Loop:
JNB B_1ms, L_Main_Loop ;1ms未到
CLR B_1ms
INC msecond_L ;msecond + 1
MOV A, msecond_L
JNZ L_Check1000ms
INC msecond_H
L_Check1000ms:
MOV A, msecond_L ;msecond - 1000
CLR C
SUBB A, #LOW 1000
MOV A, msecond_H
SUBB A, #HIGH 1000
JC L_Main_Loop ;if(msecond < 1000), jmp
MOV msecond_L, #0 ;if(msecond >= 1000)
MOV msecond_H, #0
LCALL F_RTC
LCALL F_DisplayRTC
LJMP L_Main_Loop
F_DisplayRTC:
PUSH B ;B入栈
MOV A, hour
MOV B, #10
DIV AB
MOV LED8, A
MOV LED8+1, B
MOV LED8+2, #DIS_;
MOV A, minute
MOV B, #10
DIV AB
MOV LED8+3, A;
MOV LED8+4, B;
MOV LED8+5, #DIS_;
MOV A, second
MOV B, #10
DIV AB
MOV LED8+6, A;
MOV LED8+7, B;
POP B ;B出栈
RET
F_RTC:
INC second ; second + 1
MOV A, second
CLR C
SUBB A,#60
JC L_QuitRTC ; second >= 60?
MOV second, #0;
INC minute ; minute + 1
MOV A, minute
CLR C
SUBB A,#60
JC L_QuitRTC ; minute >= 60?
MOV minute, #0
INC hour ; hour + 1
MOV A, hour
CLR C
SUBB A,#24
JC L_QuitRTC ; hour >= 24?
MOV hour, #0
L_QuitRTC:
RET
; 显示相关程序
T_Display: ;标准字库
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
DB 03FH,006H,05BH,04FH,066H,06DH,07DH,007H,07FH,06FH,077H,07CH,039H,05EH,079H,071H
; black - H J K L N o P U t G Q r M y
DB 000H,040H,076H,01EH,070H,038H,037H,05CH,073H,03EH,078H,03dH,067H,050H,037H,06EH
; 0. 1. 2. 3. 4. 5. 6. 7. 8. 9. -1
DB 0BFH,086H,0DBH,0CFH,0E6H,0EDH,0FDH,087H,0FFH,0EFH,046H
T_COM:
DB 001H,002H,004H,008H,010H,020H,040H,080H ; 位码
F_Send_595:
PUSH 02H ;R2入栈
MOV R2, #8
L_Send_595_Loop:
RLC A
MOV P_HC595_SER,C
SETB P_HC595_SRCLK
CLR P_HC595_SRCLK
DJNZ R2, L_Send_595_Loop
POP 02H ;R2出栈
RET
F_DisplayScan:
PUSH DPH ;DPH入栈
PUSH DPL ;DPL入栈
PUSH 00H ;R0 入栈
MOV DPTR, #T_COM
MOV A, display_index
MOVC A, @A+DPTR
CPL A
LCALL F_Send_595 ;输出位码
MOV DPTR, #T_Display
MOV A, display_index
ADD A, #LED8
MOV R0, A
MOV A, @R0
MOVC A, @A+DPTR
LCALL F_Send_595 ;输出段码
SETB P_HC595_RCLK
CLR P_HC595_RCLK ; 锁存输出数据
INC display_index
MOV A, display_index
ANL A, #0F8H ; if(display_index >= 8)
JZ L_QuitDisplayScan
MOV display_index, #0; ;8位结束回0
L_QuitDisplayScan:
POP 00H ;R0 出栈
POP DPL ;DPL出栈
POP DPH ;DPH出栈
RET
F_Timer0_Interrupt: ;Timer0 1ms中断函数
PUSH PSW ;PSW入栈
PUSH ACC ;ACC入栈
LCALL F_DisplayScan ; 1ms扫描显示一位
SETB B_1ms ; 1ms标志
POP ACC ;ACC出栈
POP PSW ;PSW出栈
RETI
END
上一篇:用C语言写一个温度测量显示程序
下一篇:用C语言写一个驱动数码管程序
推荐帖子
- 【板砖饮水记录仪】之“ESP32-S2-Kaluga-1”的 Ubuntu 环境搭建
- 项目往期传送门【板砖饮水记录仪】之2022得捷电子创新设计大赛物料开箱一.开发环境搭建Ubuntu20.04现在关于ESP32S2的开发环境搭建方法很多,我这边之前也开发过8266,最早在windows上跑安信可的IDE,然后开始转成vscode,然后改成ubuntu下的编译,发现还是这个更顺滑些;因为esp32s2虽然也叫esp32,但其实与以前的ESP32模组是不同的架构,编译链也不一样。这个环境搭建其实是在兼容
- 小默叔叔 DigiKey得捷技术专区
- 实用电子电路设计制作例解
- 实用电子电路设计制作例解实用电子电路设计制作例解大家喜欢大家喜欢大家喜欢Re:实用电子电路设计制作例解haoya,dingqihaodongxi谢谢啊回复楼主aronic的帖子xhal下回啦感谢楼主分享谢谢分享谢谢楼了asdfasfsadfasfsaef又是两枚啊,好心痛的,好东西就是有诱惑力啊PDG格式的还要转一下。谢谢楼了顶一下!对于好资料要顶起来!:carnation::carnation::carnation:
- aronic 模拟电子
- Altium Designer10 PCB 铺铜问题求助
- 本帖最后由RONDO7174于2014-6-1911:40编辑 今天画了一块板子,到收关阶段的时候出现了意想不到问题。最后铺铜的时候,我选的连接到GND网络,但是确一下把整个板子都给连起来了,如下如图。之前没有碰到过这种情况,不知道是什么原因,向各位请教。未铺铜前铺铜后删除铺铜后另外还发现删除铺铜之后的PCB图中,飞线都消失了。这也是很奇怪的情况。希望碰到过这种情况的能够帮助解答一下。AltiumDesigner10PCB铺铜问题求助首先
- RONDO7174 PCB设计
- PCB设计中什么情况下使用沉金表面处理
- PCB设计中,沉金板成本比较高,一般情况下不需要用到沉金工艺。那么我们又该如何去区分哪种PCBA板是需要沉金,哪种线路板不需要沉金?可以根据以下几种情况进行分析判断。1.板子有金手指需要镀金,但金手指以外的版面可以根据情况选择喷锡或者沉金等工艺,也就是通常的“沉金+镀金手指”工艺和“喷锡+镀金手指”工艺,偶尔少数设计者为了节约成本或者时间紧迫选择整版沉金方式来达到目的,不过沉金达不到镀金厚度,如果金手指经常插剥就会出现连接不良情况。2.板子的线宽/焊盘间距不足,这种情
- qwqwqw2088 PCB设计
- 分享一个TI达芬奇系列的支持网站
- 这个网站有TI的达芬奇系列的相关资料,包括相关开发板的原理图和Geber文件资料较全很有帮助http://c6000.spectrumdigital.com/6000系列的http://c5000.spectrumdigital.com/5000系列的http://c2000.spectrumdigital.com/2000系列的分享一个TI达芬奇系列的支持网站
- qwqwqw2088 DSP 与 ARM 处理器
- 老师是这么教我们进修单片机的
- 看到不少网友都在问怎样提高自己的能力,我在这里想谈一下我自己当年的学习过程。我学的是计算机系的通讯工程专业,主要的发展方向是做计算机网络偏软件这一块,这点从我的毕业设计课题《宾馆客房管理系统》就能看出来。因为带到通讯,所以学校里也教数电模电单片机什么的。其中《单片机和通讯接口》这门课我学到了很多东西,可以说,整个大学觉得最有收获的就是这门课。我的老师上课很有特性,首先没有教材,理由是现在技术一日千里,等到教材出来就已经淘汰了。我们直接拿磁盘从老师的电脑上拷课件,然后打印。通常讲到单片机这
- ssjatq 单片机
设计资源 培训 开发板 精华推荐
- AM6TW-2409DZ ±9V 6 瓦双输出 DC/DC 转换器的典型应用
- LT3663EDCB 演示板、1.2A、1.5MHz 降压型开关稳压器,具有输出电流限制
- LT1171HVIT、-12/2.5A 正负降压-升压转换器的典型应用
- 使用 Analog Devices 的 LTC1706-19 的参考设计
- LTC3877EUK 4 相、120A VID 控制转换器的典型应用电路
- 加热台 ESP32-C3-12F
- LTC3642EMS8E 高效 5V 降压型稳压器的典型应用电路
- 3D打印专用无刷FOC步进驱动器
- DDR 内存的 1.25V、1.8V、2.5V DC 到 DC 多路输出电源
- 17届智能车STC16