C51简单的时钟程序

AD0 EQU 40H
AD1 EQU 41H
AD2 EQU 42H
AD3 EQU 43H
ORG 0000H
MOV DPTR,#TAB
MOV R0,#00H
MOV R1,#00H
MOV R3,#00H
LOOP3:MOV R7,#150
LOOP2:MOV R2,#04H
MOV A,R0
MOV B,#10
DIV AB
MOV AD0,A
MOV A,B
MOVC A,@A+DPTR
MOV P0 ,A
MOV P2,R2
LCALL DELAY
MOV A,R2
RL A
MOV R2,A
MOV A,AD0
MOVC A,@A+DPTR
MOV P0,A
MOV P2,R2
LCALL DELAY

MOV A,R2
RL A
MOV R2,A
MOV A,R1
MOV B,#10
DIV AB
MOV AD1,A
MOV A,B
MOVC A,@A+DPTR
MOV P0 ,A
MOV P2,R2
LCALL DELAY
MOV A,R2
RL A
MOV R2,A
MOV A,AD1
MOVC A,@A+DPTR
MOV P0,A
MOV P2,R2
LCALL DELAY

MOV A,R2
RL A
MOV R2,A
MOV A,R3
MOV B,#10
DIV AB
MOV AD2,A
MOV A,B
MOVC A,@A+DPTR
MOV P0 ,A
MOV P2,R2
LCALL DELAY
MOV A,R2
RL A
MOV R2,A
MOV A,AD2
MOVC A,@A+DPTR
MOV P0,A
MOV P2,R2
LCALL DELAY
DJNZ R7,LOOP2
      INC R0
      CJNE R0,#60,LOOP1
      MOV R0,#00H
      INC R1
      CJNE R1,#60,LOOP1
      MOV R1,#00
      INC R3
      CJNE A,#24,LOOP1
      SJMP $

 

LOOP1:JMP LOOP3
TAB:DB 0C0H,0F9H,0A4H,0B0H
    DB 99H,92H,82H,0F8H,80H,90H

DELAY:MOV R5,#250
DEL1: NOP
      NOP
      DJNZ R5,DEL1
      RET
      END