root9885自用数码管

 

START: MOV DPTR,#NIXIE_TUBE
   MOV R0,#0  
LOOP: MOV A,R0
   MOVC A,@A+DPTR
   MOV P2,A
   MOV P1,R0
   ACALL DLY1s
   INC R0
   CJNE R0,#8,LOOP
   JMP START
DLY1s: MOV R5,#1
D1:   MOV R6,#20
D2:   MOV R7,#20
   DJNZ R7,$
   DJNZ R6,D2
   DJNZ R5,D1
   RET
NIXIE_TUBE:
   DB 77H,3FH,3FH,31H
   DB 6FH,7FH,7FH,6DH
END