数码管动态扫描显示01234567.txt

单片机的源程序

ORG  0000H 

AJMP MAIN 

ORG  0030H 

MAIN: 

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 

 SETB     P2.7 

MOV P0,#0FFH 

AJMP MAIN               ;重新开始 

DELAY:                      ;延时子程序 

MOV  R7,#2 

D1:  MOV  R6,#25 

D2:  DJNZ R6,D2 

DJNZ R7,D1 

RET 

END