单片机 电子时钟（只有调时）

单片机 电子时钟 这是一个比较简单 没有什么太多功能 只有个调时的

ORG  0000H
LJMP  STAR
ORG  000BH     
LJMP  INTT0	
STAR:MOV R0,#70H
     MOV  R7,#07H

INIT:  MOV  @R0,#00H
       INC  R0
       DJNZ  R7,INIT
       MOV  72H,#10
       MOV  75H,#10
       MOV  TMOD,#01H
       MOV  TL0,#0B0H
       MOV  TH0,#03CH
       SETB  EA
       SETB  ET0
       SETB  TR0
START1:LCALL SCAN
       SJMP START1	

INTT0: PUSH  ACC
       PUSH  PSW
       CLR  ET0
       CLR  TR0
       MOV  TL0,#0B0H
       MOV  TH0,#03CH
       SETB  TR0
       INC  7BH
       MOV  A,7BH
       CJNE  A,#14H,OUTT0
       MOV  7BH,#00
       INC  78H
       MOV  A,78H
       CJNE  A,#3CH,OUTT0
       MOV  78H,#00
       INC  79H
       MOV  A,79H
       CJNE  A,#3CH,OUTT0
       MOV  79H,#00
       INC  7AH
       MOV  A,7AH
       CJNE  A,#18H,OUTT0
       MOV  7AH,#00
OUTT0:
       SETB  ET0
       POP  PSW
       POP  ACC
       RETI

SCAN:   MOV  A,78H      ; 时间存入显示缓冲区相应位置
        MOV  B,#0AH
        DIV  AB
        MOV  71H,A
        MOV  70H,B
        MOV  A,79H
        MOV  B,#0AH
        DIV  AB
        MOV  74H,A
        MOV  73H,B
		MOV  A,7AH
        MOV  B,#0AH
        DIV  AB
        MOV  77H,A
        MOV  76H,B
		MOV  R1,#70H
		MOV  R5,#7FH
		MOV  R3,#08H
SCAN1:  MOV  A,R5
		LCALL LOOP
		MOV A,@R1
		MOV DPTR,#TAB
		MOVC A,@A+DPTR
		MOV P0,A
		MOV A,R5
		LCALL DL1MS
		INC R1
		MOV A,R5
		RR A
		MOV R5,A
		DJNZ R3,SCAN1
		RET

LOOP:   SETB P2.7
		CLR  P2.6
		MOV  P0,A
		CLR  P2.7
		SETB P2.6
		RET
DL1MS:MOV  R6,#14H
DL1:MOV  R7,#19H
DL2:DJNZ  R7,DL2
    DJNZ  R6,DL1
    RET	 

TAB:DB 3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH,40H
	   
	   END