确。
程序的扩展1：改动计算部分cjnea,#6,stlop全部改为cjnea,#10,stlop，那么就变成了一个6位的计数器。所有位都是从0到9依次显示。
程序的扩展2：改动的计数器不能受外界的控制，因此没有实际意义。 那么可已通过一个按键来进行控制，每按一次按键数字加一，那么可以在程序的计算部分增加几行判断按键的代码：
stlop: acall display ;调用显示
jb p3.2,stlop ;监测键盘,如果p3.2按下那么执行显示
we: acall display ;显示保持!
acall d1ms ;延时1ms避免键盘误动作
jnb p3.2,we ;如果p3.2还没有放开继续延时
那么就可以通过按键来实现计数显示的功能了，由p3.2端口作控制，每按键一次程序加1。
完整的程序清单：
org 00h
a_bit equ 30h ;秒寄存器
b_bit equ 31h ;10秒寄存器
c_bit equ 32h ;分寄存器
d_bit equ 33h ;10分寄存器
e_bit equ 34h ;小时寄存器
f_bit equ 35h ;10小时集存器
org0000h
ajmpstar
org0030h
star:
mova,#00h ;把各个位全部清0
mova_bit,a
movb_bit,a
movc_bit,a
movd_bit,a
move_bit,a
movf_bit,a
stlop: acall display;程序的计算部分
inc a_bit ;秒位加1
mova,a_bit ;送a
cjnea,#10,stlop;如果秒到10那么转到10秒处理
mova_bit,#00h ;秒位清0
inc b_bit ;10秒位加1
mova,b_bit ;送a
cjnea,#6,stlop ;如果10秒到了6那么到分处理
movb_bit,#00h ; 10秒位清0
inc c_bit
mova,c_bit
cjnea,#10,stlop
movc_bit,#00h
inc d_bit
mova,d_bit
cjnea,#6,stlop
movd_bit,#00h
inc e_bit
mova,e_bit
cjnea,#10,stlop
move_bit,#00h
inc f_bit
mova,f_bit
cjnea,#3,stlop
movf_bit,#00h
ajmpstlop ;重新开始计算
display: ;显示子程序
mov dptr,#numtab ;指定查表启始地址
mov r0,#4
dpl1: mov r1,#250 ;显示1000次
dplop: mov a,a_bit ;取秒位的值
MOVC A,@A+DPTR ;查秒位数的7段代码
mov p0,a ;送出到P0口显示
clr p2.6 ;开个位显示
acall d1ms;显示1ms
setb p2.6 ;关闭显示
mov a,b_bit ;取10秒位的值
MOVC A,@A+DPTR ;查10秒位的7段代码
mov p0,a ;送出10秒位到P0口显示
clr p2.5 ;开10秒位显示
acall d1ms ;显示1ms
setb p2.5
mov a,c_bit ;取分位
MOVC A,@A+DPTR ;
mov p0,a ;
clr p2.4 ;
acall d1ms ;
setb p2.4
mov a,d_bit ;取10分位
MOVC A,@A+DPTR ;
mov p0,a ;
clr p2.3 ;
acall d1ms ;
setb p2.3
mov a,e_bit ;取小时位
MOVC A,@A+DPTR ;
mov p0,a ;
clr p2.2 ;
acall d1ms ;
setb p2.2
mov a,f_bit ;取10小时位
MOVC A,@A+DPTR ;
mov p0,a ;
clr p2.1 ;
acall d1ms ;
setb p2.1
djnz r1,dplop ;100次没完循环
djnz r0,dpl1 ;4个100次没完循环
ret
D1MS: MOV R7,#20 ;1MS延时(按12MHZ算)
DJNZ R7,$
RET
;7段数码管各划的数字排列表
numtab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
;0 1 2 3 4 5 6 7 8 9
end 
|
