one.asm

用0809 和单片机开发的一个电要表的程序为共阳数码管显示

ORG 0000H
LJMP START
ORG 0100H
START:MOV TMOD,#15H
      MOV TL1,#0B0H
      MOV TH1,#3CH
      MOV TL0,#00H
      MOV TH0,#00H
      MOV R2,#14H

       SETB TR0
    L2:SETB TR1
    L1:JBC TF1,LP
       AJMP L1
    LP:MOV TMOD,#15H
       MOV TL1,#0B0H
       MOV TH1,#3CH
       DJNZ R2,L2
       CLR TR0
       CLR TR1
   PLAY:MOV R0,#11111110B
        MOV A,TL0
        ANL A,#0FH
        MOV R1,A
        LCALL DISPLAY
        LCALL DELAY
        MOV R0,#11111101B
        MOV A,TL0
        SWAP A
        ANL A,#0FH
        MOV R1,A
        LCALL DISPLAY
        LCALL DELAY
        MOV R0,#11111011B
        MOV A,TH0
        ANL A,#0FH
        MOV R1,A
        LCALL DISPLAY
        LCALL DELAY
        MOV R0,#11110111B
        MOV A,TH0
        SWAP A
        ANL A,#0FH
        MOV R1,A
        LCALL DISPLAY
        LCALL DELAY
        LJMP PLAY
 DISPLAY:MOV A,R0
         MOV P1,A
         MOV A,R1
         MOV DPTR,#TAB
         MOVC A,@A+DPTR
         MOV P0,A
         RET

  DELAY:MOV R7,#0AH
      DL:MOV R6,#0FFH
      DL6:DJNZ R6,DL6
          DJNZ R7,DL
          RET
  TAB:DB 3FH,06H,5BH,4FH
      DB 66H,6DH,7DH,07H
      DB 7FH,6FH,77H,7CH
      DB 39H,5EH,79H,71H
     END