;延时5秒左右
DELAY5S:PUSH     04H                                
               PUSH     05H                        
               PUSH     06H                                
               MOV       R4,#50                          
DELAY5S_0:MOV   R5,#200                                                            
DELAY5S_1:MOV   R6,#245                                                            
               DJNZ     R6,$                                                  
               DJNZ     R5,DELAY5S_1
               DJNZ     R4,DELAY5S_0                                                  
               POP       06H                                    
               POP       05H                                    
               POP       04H                                    
               RET                                                                                    

;10毫秒延时程序
DL10MS: MOV         R3,#14H
DL10MS1:LCALL     DELAY
               DJNZ       R3,DL10MS1
               RET

;0.1s延时程序12mhz
DELAY: MOV R6,#250
DL1: MOV R7,#200
DL2: DJNZ R6,DL2
  DJNZ R7,DL1
  RET

;延时1046549微秒(12mhz)
;具体的计算公式是:
;((((r7*2+1)+2)*r6+1)+2)*r5+1+4 = ((r7*2+3)*r6+3)

*r5+5
DEL : MOV   R5,#08H
DEL1: MOV   R6,#0FFH
DEL2: MOV   R7,#0FFH
               DJNZ   R7,$
               DJNZ   R6,DEL2
               DJNZ   R5,DEL1
               RET

;1秒延时子程序是以12MHz晶振
Delay1S:mov   r1,#50
del0:   mov r2,#91
del1:     mov r3,#100  
               djnz r3,$  
               djnz r2,del1  
               djnz r1,del0
     Ret

;1秒延时子程序是以12MHz晶振为例算指令周期耗时
KK: MOV       R5,#10       ;1指令周期1
K1: MOV       R6,#0FFH       ;1指令周期10
K2: MOV       R7,#80H       ;1指令周期256*10=2560
K3: NOP                 ;1指令周期

128*256*10=327680
  DJNZ       R7,K3       ;2指令周期

2*128*256*10=655360
  DJNZ       R6,K2       ;2指令周期

2*256*10=5120
  DJNZ       R5,K1       ;2指令周期2*10=20
  RET            
;2指令周期21+10+2560+327680+655360+5120+20+2=990753
;约等于1秒1秒=1000000微秒

;这样算下来应该是1.000011秒
T_0:   MOV     R7,#10;
D1:   MOV     R6,#200;
D2:   NOP
   MOV     R5,#248;
   DJNZ     R5,$
   DJNZ     R6,D2;
   DJNZ     R7,D1;
   RET