数码管流水灯式显示数据

本程序是采用51单片机实现共阳数码管流动显示数据，蛮好看的，所以把程序写出来和大家一起分享一下！！

电路图在下面

下面是汇编程序代码：

D0  BIT  P2.0
   D1  BIT  P2.1
   D2  BIT  P2.2
   D3  BIT  P2.3
   D4  BIT  P2.5
   ORG  0000H
   SJMP START
   ORG  0040H
 START:MOV SP,#60H
   MOV R0,#00H
   MOV R1,#20
   MOV DPTR,#TABLE
   SETB D4
   MOV A,R0
   MOVC A,@A+DPTR   //1        
   MOV P0,A
   CLR D0
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR    //2
   MOV P0,A
   SETB D0
   CLR D1
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR    //3
   MOV P0,A
   SETB D1
   CLR D2
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR    //4
   MOV P0,A
   SETB D2
   CLR D3
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR    //5
   MOV P0,A
   SETB D3
   CLR D0
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //6
   MOV P0,A
   SETB D0
   CLR D1
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR    //7
   MOV P0,A
   SETB D1
   CLR D2
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR    //8
   MOV P0,A
   SETB D2
   CLR D3
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //9
   MOV P0,A
   SETB D3
   CLR D0
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //10
   MOV P0,A
   SETB D0
   CLR D1
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //11
   MOV P0,A
   SETB D1
   CLR D2
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //12
   MOV P0,A
   SETB D2
   CLR D3
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //13
   MOV P0,A
   SETB D3
   CLR D0
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //14
   MOV P0,A
   SETB D0
   CLR D1
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //15
   MOV P0,A
   SETB D1
   CLR D2
   LCALL DELAY
   MOV R1,#20
   INC R0
   MOV A,R0
   MOVC A,@A+DPTR   //16
   MOV P0,A
   SETB D2
   CLR D3
   LCALL DELAY
   SETB D3
   LJMP START
   DELAY:MOV R7,#200
   DEL1:MOV R6,#125
   DEL2:DJNZ R6,DEL2
   DJNZ R7,DEL1
   DJNZ R1,DELAY
   RETTABLE:DB 0C0H,0F9H,0A4H,0B0H
      DB 99H,92H,82H,0F8H
      DB 80H,90H,88H,83H
      DB 0C6H,0A1H,86H,8EH
      END