c51超长时间延时程序1小时到1000...小时

;;///////////////////////////////////////////////////////////;;
;;[汇编原创]c51超长时间延时程序1小时到1000...小时。
;;19:44 2007-3-10;;
;;6MHZ晶振为100ms;若晶振为12mhz时则50ms;进入一次定时中断;;
;;你用定时中断0方式1，进一次中断，中断内加1如：inc 40h;
;;RUN COMMAND;;执行命令;;
;;///////////////////////////////////////////////////////////;;
ORG 0000H
AJMP MAIN
ORG 000BH
AJMP ET0_0
RETI
ORG 0030H
MAIN:
     MOV SP,#10H
     MOV TMOD,#01H
     MOV IE,#82H
     MOV TH0,#(65536-50000)/256
     MOV TL0,#(65536-50000)MOD 256
     MOV TCON,#10H
     MOV 40H,#00H;;毫秒
     MOV 41H,#00H;;秒
     MOV 42H,#00H;;分
     MOV 43H,#00H;;时
     MOV 44H,#00H;;日
;;..

LOOP:
     NOP
     MOV A,40H
    CJNE A,#10,TIME1;;10*100ms=1000ms=1s
     MOV 40H,#00H
;;RUN COMMAND;;    
     INC 41H
     MOV A,41H
    CJNE A,#60,TIME1;;60*1s=1分钟
     MOV 41H,#00H
     MOV 40H,#00H
;;RUN COMMAND;;    
     INC 42H
     MOV A,42H
    CJNE A,#60,TIME1;;60*1MIN=60分钟=1小时;;
     MOV 42H,#00H
     MOV 41H,#00H
     MOV 40H,#00H
;;RUN COMMAND;;
     INC 43H
     MOV A,43H
    CJNE A,#24,TIME1;;24*1小时=1天
     MOV 43H,#00H
     MOV 42H,#00H
     MOV 41H,#00H
     MOV 40H,#00H
;;RUN COMMAND;;执行命令;;

    INC 44H
    MOV A,44H
   CJNE A,#30,TIME1;;1天*30=1个月;;
    MOV 44H,#00H
    MOV 43H,#00H
    MOV 42H,#00H
    MOV 41H,#00H
    MOV 40H,#00H
;;RUN COMMAND;;

TIME1:
MOV PCON,#01H
AJMP LOOP

ET0_0:
NOP
INC 40H 
     MOV TH0,#(65536-50000)/256;;
     MOV TL0,#(65536-50000)MOD 256
RETI
END