;******** 数码管显示程序 ***************
pro_8led:
mov b,#32 ;一共显示32个数字
clr psw.3 ;重新设置寄存器组
setb psw.4 ; mov r0,#00h ;数据显示从0开始
mov r1,#01h ;数码管从第1个开始
loop:mov p0,r1 ;点亮当前数码管
mov a,r0 ;准备第一个数据
mov dptr,#tab_nu ;获得表头
movc a,@a+dptr ;得到第一个数据
mov led_data,a ;输出到显示数据口
lcall delay ; 500 ms 延时
lcall delay ; 1 s 延时
inc r0 ;准备下一个数据
mov a,r1 ;准备下一位数码管
rlc a ;设置下一个数码管
jc c1 ;8位全部显示，转移
mov r1,a ;否则，设置下一位
djnz b,loop ;32个数没有显示完，返回显示
ret ;否则返回主程序 c1: mov r1,#1 ;8位显示完，重新开始循环
clr c ;设置显示位
djnz b,loop ;32位显示完则返回重新显示
ret ;否则返回到主程序
;************* 数码管显示 ******************************* ;************* 软件延时 500ms *****************************
delay: push psw ; 保存原来的寄存器内容
clr psw.3 ;
clr psw.4 ; 设置新的寄存器组
mov r0,#2 ; 延时参数1
mov r1,#250 ; 延时参数2
mov r2,#2 ; 延时参数3
dl1:djnz r0,dl1 ; 延时循环1
mov r0,#250 ;
dl2:djnz r1,dl1 ; 延时循环2
mov r0,#240 ;
mov r1,#248 ;
dl3:djnz r2,dl1 ; 延时循环3
nop ; 定时精度调整
pop psw ; 恢复原来的寄存器
ret ; 返回
;********************************************************** ;**********************************************************
;这是数字显示表格，其中 带小数点的数字比不带小数点的数字大16
; 比如 0 的显示代码为 0;那么 0.的显示代码为 16；如此类推 tab_nu:
db 0c0h, 0f9h, 0a4h, 0b0h, 99h , 92h , 82h, 0f8h ; 数字0-7 不带小数点代码
db 80h , 90h, 88h , 83h , 0c6h, 0a1h, 86h, 8eh ; 数字8-f 不带小数点代码
db 40h , 79h, 24h , 30h , 19h , 12h , 02h, 78h ; 数字0-7 带小数点代码
db 00h , 10h, 08h , 03h , 46h , 21h , 06h, 0eh ; 数字8-f 带小数点代码 end |
