xin góp ý về mạch đồng hồ

[quangsondt]

em có mạch này các bác góp cho em nha!
đã lỡ hứa với con em là sẻ làm cho nó cái đồng hồ điện tử giúp em sớm nha!
TNX các bác

ORG 0000H
SJMP MAIN
ORG 0BH
LJMP NGAT_TIMER0
ORG 0003H
LJMP NGAT_PHUT
ORG 0013H
LJMP NGAT_GIO
MAIN:
	MOV SP,#30H 		
	MOV  	12H,#00H
	MOV 	13H,#00H
        	MOV  	14H,#00H
	MOV 	15H,#00H
	MOV  	16H,#00H
	MOV 	17H,#00H
	MOV IE,#10000111B  
	MOV  TMOD,#11H
        MOV  TL0,#LOW(-9207)	
        MOV  TH0,#HIGH(-9207)	 
	SETB TR0
LAP:
	CALL HIEN_THI
	CALL KIEM_TRA1S
SJMP LAP
HIEN_THI:    

     MOV DPTR,#BANG_MA_LED
    ;LED1	
 	 MOV P0,#11111110B  
	 MOV A,17H
	 MOVC A,@A+DPTR	
	 MOV P2,A     
	 LCALL DELAY1
	 mov p2,#0ffh; Chong  nhieu
    ;LED2
	 MOV P0,#11111101B
	 MOV A,16H
	 MOVC A,@A+DPTR	
	 MOV P2,A     
	 LCALL DELAY1
	 mov p2,#0ffh ; Chong Nhieu
    ;LED3
	 MOV P0,#11111011B
	 MOV A,15H
	 MOVC A,@A+DPTR	
	 MOV P2,A     
	 LCALL DELAY1
	 mov p2,#0ffh ;Chong Nhieu
    ;LED4
	 MOV P0,#11110111B
	 MOV A,14H
	 MOVC A,@A+DPTR	
	 MOV P2,A     
	 LCALL DELAY1
	 mov p2,#0ffh ;Chong Nhieu
    ;LED5
	 MOV P0,#11101111B
	 MOV A,13H
	 MOVC A,@A+DPTR	
         	MOV P2,A     
	 LCALL DELAY1
	 mov p2,#0ffh ;Chong Nhieu
    ;LED6
	 MOV P0,#11011111B 
	 MOV A,12H
	 					
        	 CJNE A,#0,MOLED_CH 			
		 				
	 MOV P2,#0ffh 				
	 LCALL DELAY1
	 MOV P2,#0ffh 				
	 LJMP	 THOAT_HIENTHI
	 
	;---- MOLED_CH--------     
	MOLED_CH:
		MOVC A,@A+DPTR
		MOV  P2,A
		LCALL DELAY1
		MOV  P2,#0FFH ;Chong Nhieu
	
THOAT_HIENTHI:   
                RET


KIEM_TRA1S:
;-----KIEM TRA XEM DU 1s CHUA ?-------------   
	CJNE R2,#100,KET_THUC 
	MOV  R2,#00H 
CONT_UPDATE_NO_HT:     
	INC 17H
	MOV A,17H 
	CJNE A,#10,KET_THUC 
	MOV 17H,#00
	
	INC 16H
	MOV A,16H             
	CJNE A,#6,KET_THUC 
	MOV 16H,#00
	
	INC 15H
	MOV A,15H             
	CJNE A,#10,KET_THUC
	MOV 15H,#00
	
	INC 14H
	MOV A,14H             
	CJNE A,#6,KET_THUC
	MOV 14H,#00
       	 
	INC 13H
	MOV A,13H             
	CJNE A,#03,TANG_DVH_LEN_10
        	MOV A,12H
	CJNE A,#01,KET_THUC 			
        	MOV 12H,#00H
	MOV 13H,#01H
	cpl p1.0
      	 LJMP KET_THUC 
 TANG_DVH_LEN_10:
	CJNE A,#10,KET_THUC
	MOV 13H,#00
	INC 12H
KET_THUC:
	RET
;***************************************************************

	
;----- DELAY----------
DELAY1:
	MOV R7,#10H
	DJNZ R7,$
	RET    
NGAT_TIMER0:
	INC R2                         
	MOV  TL0,#LOW(-9207)	
	MOV  TH0,#HIGH(-9207)	 
	SETB TR0
	RETI   
TRE_PHIM:       ; chuong trinh con tre phim     
     	 MOV r1,#255
lap2: 	MOV r0,#255
lap1: 	DJNZ r0,lap1
     	 DJNZ r1,lap2
	RET
NGAT_PHUT:
	LCALL   TRE_PHIM	
        	INC 15H
	MOV A,15H
	CJNE A,#10,THOAT1
	MOV 15H,#00H
	INC 14H
	MOV A,14H
	CJNE A,#6,THOAT1    
	MOV 14H,#00H
        	MOV 17H,#00H
THOAT1:
	RETI
NGAT_GIO:
	LCALL TRE_PHIM		
       	 INC 13H
	MOV A,13H
	CJNE A,#03,NGAT_11
	MOV A,12H
	CJNE A,#1,THOAT2    
	MOV 12H,#0H
	MOV 13H,#1
	LJMP THOAT2
NGAT_11:
	CJNE A,#10,THOAT2
	MOV 13H,#0
	MOV 12H,#1
	SJMP THOAT2
THOAT2:
	MOV 17H,#00H
  	 RETI
BANG_MA_LED:
 DB	0c0H;0
 DB	0f9H
 DB	0a4H
 DB	0b0H
 DB	99H
 DB	92H
 DB	82H
 DB	0F8H
 DB	80H
 DB	98H;9
END