附上程序
org 0000h
jmp start
org 0003h
reti
org 000bh
reti
org 0013h
jmp wzd1
org 001bh
reti
org 0023h
reti
wzd1: push psw ;外中断入口
push acc
clr ea
clr ex1
jnb p1.3,key3 ;P1.3为0时转KEY3
wzdfh:pop acc ;外中断返回
pop psw
setb ea
setb ex1
reti
key3:call delay10ms
jb p1.3,wzdfh
l1: jnb p1.3,$
inc 31h ;P1.3松开时31H加1
mov a,#10
cjne a,31h,wzdfh ;31H中不等于10中断返回
clr a
mov 31h,a ;31H中的数据清0并对下一地址中的数据加一
inc 32h
mov a,#10
cjne a,32h,wzdfh
clr a
mov 32h,a
inc 33h
mov a,#10
cjne a,33h,wzdfh
clr a
mov 33h,a
inc 34h
mov a,#10
cjne a,34h,wzdfh
clr a
mov 34h,a
inc 35h
mov a,#10
cjne a,35h,wzdfh
clr a
mov 35h,a
inc 36h
mov a,#10
cjne a,36h,wzdfh
clr a
mov 36h,a
jmp wzdfh
start:mov 31h,#1
mov 32h,#2
mov 33h,#3
mov 34h,#4
mov 35h,#5
mov 36h,#6
clr p1.5
setb ea
setb ex1
start1:call display
jmp start1
display:mov r1,#31h
mov r2,#00000001
play: mov p0,#0ffh
mov a,r2
mov p2,a
mov a,@r1
mov dptr,#tab
movc a,@a+dptr
mov p0,a
call delay1ms
inc r1
mov a,p2
jb acc.5,endout
rl a
mov r2,a
mov p2,#0h
jmp play
endout:mov p0,#0ffh
mov p2,#0
ret
delay1ms:mov r3,#2
d1: mov r4,#250
d2: djnz r4,$
djnz r3,d1
ret
delay10ms: call play ;10ms子程序,调用一次显示子程序约6ms,调两次约12ms
call play
ret
tab:db 48h,0ebh,52h,62h,0e1h,64h,44h,0eah,40h,60h
end |
楼主
标题置顶
标题高亮
;){kind=link}