数码管显示.asm

两位数码管动态显示

      ORG 0000H
MAIN: MOV A,#00H
      MOV P3,A
      MOV A,#06H
      MOV P1,A
      MOV R1,#00H
      CLR C
LOOP: JB P3.1,UP2
      CJNE R1,#00H,LOOP2
      JMP LOOP
UP2:  LCALL DELAY
      JB P3.1,UPY2
      JMP LOOP
UPY2: INC R1
      MOV DPTR,#TABLE1
      MOV A,R1
      MOVC A,@A+DPTR
      LJMP DISPLAY
DP1:  JB P3.0,DOWN2
      CJNE R1,#3CH,LOOP
LOOP2:JB P3.0,DOWN2
      CJNE R1,#3CH,LOOP
      JMP LOOP2
      RET
DOWN2:LCALL DELAY
      JB P3.0,DOWNY2
      JB P3.1,UP2
      LCALL LOOP2
DOWNY2:DEC R1
       MOV DPTR,#TABLE1
       MOV A,R1
       MOVC A,@A+DPTR
       LJMP DISPLAY
DP:    JB P3.1,UP2
       CJNE R1,#00H,LOOP2
       LJMP LOOP
       RET
DISPLAY:MOV B,#0AH
        DIV AB
        MOV R3,B
        MOV R2,A
        MOV R4,#200
D_LOP:  MOV DPTR,#TABLE
        MOV A,R3
        MOVC A,@A+DPTR
        MOV P1,A
        MOV P3,#04H
        LCALL D_1MS
        MOV A,R2
        MOVC A,@A+DPTR
        MOV P1,A
        MOV P3,#08H
        LCALL D_1MS
        DJNZ R4,D_LOP
        CALL DP1
        CALL DP
        MOV A,R2
        LJMP DISPLAY


D_1MS:  MOV R7,#250
TEMP:   NOP
        NOP
        DJNZ R7,TEMP
        RET


TABLE:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,67H
TABLE1:DB 00H,02H,04H,06H,08H,0AH,0CH,0EH,10H,12H,14H
       DB 18H,1CH,20H,24H,28H,2CH,30H,34H,38H,3CH

DELAY: MOV R5,#0FH
DELAY1:MOV R6,#0FFH
       DJNZ R6,$
       DJNZ R5,DELAY1
       RET
       END