数码管显示1234567

;数码管显示1234567
;*******************************************************************
;* Date : 2004.4.20 　　 *
;* Support Mb: 0735-2197559 E-mail:c51cn@163.com *
;* Create by :邓德武 http://www.c51.cn 更多例程请登陆网站 *
;* 网站单片机学习资料同步更新，敬请新老朋友随时关注 *
;*******************************************************************
AJMP MAIN
ORG 0030H
MAIN:
SETB P2.7
CLR P2.0 ;选中第一个数码管
MOV P0,#0C0H ;显示0
LCALL DELAY ; 调用延时
MOV P0,#0FFH ;关显示
SETB P2.0
CLR P2.1 ;选中第二个数码管
MOV P0,#0F9H ;显示1，
LCALL DELAY
MOV P0,#0FFH
SETB P2.1
CLR P2.2 ;选中第三个数码管
MOV P0,#0A4H ;显示2
LCALL DELAY
MOV P0,#0FFH
SETB P2.2
CLR P2.3 ;选中第四个数码管
MOV P0,#0B0H ;显示3
LCALL DELAY
MOV P0,#0FFH
SETB P2.3
CLR P2.4 ;选中第五个数码管
MOV P0,#99H ;显示4
LCALL DELAY
MOV P0,#0FFH
SETB P2.4
CLR P2.5 ;选中第六个数码管
MOV P0,#92H ; 显示5
LCALL DELAY
MOV P0,#0FFH
SETB P2.5
CLR P2.6 ;选中第七个数码管
MOV P0,#82H ; 显示6
LCALL DELAY
MOV P0,#0FFH
SETB P2.6
CLR P2.7 ;选中第八个数码管
MOV P0,#0F8H ; 显示7
LCALL DELAY
MOV P0,#0FFH
AJMP MAIN ;重新开始
DELAY: ;延时子程序
MOV R7,#2
NOP
NOP
D1: MOV R6,#25
SETB P3.3 ;小喇叭同时响
D2: DJNZ R6,D2
CLR P3.3
DJNZ R7,D1
SETB P3.3
RET
END