程序如下 P0口为字型 P1.1 P1.3为字位 程序功能是P1.1从1-9变 P1.3保持8不变
org 000h
mov a,#0
mov p1,a
mov 30h,#9
mov dptr,#TAB
star: nop
;-----------------------------查表
mov a,#1
movc a,@a+dptr
mov r6,a
inc dptr
;------------------------------段限制9
djnz 30h,aa
mov dptr,#TAB
aa: nop
;------------------------------动态扫描入口参数r6,r7
mov a,r6
mov p0,a
setb p1.1
nop
acall D1MS
clr p1.1
mov a,#0
mov r7,#092h
mov a,r7
mov p0,a
setb p1.3
nop
acall D1MS
clr p1.3
ljmp star
;--------------------------------延时子程式
D1MS: MOV R7,#80
DJNZ R7,$
RET
TAB: Db 0c0H,0f9H,0a4H,0b0H,099H
Db 092H,082H,0f8H,080H,090H
end |
楼主
标题置顶
标题高亮
