原创 通用延时子程序

            ;通用延时子程序(晶振12M)

        
     ;----------------------------------------------
     ;      通用X*100US延时子程序
     ;          055
     ;----------------------------------------------

    ;=======(X*100US)=======
    T_01M:      MOV R5,#X
    T_U1:       CALL T_100U
                DJNZ R5,T_U1
                RET

    ;=======100US=======
    T_100U:     MOV R6,#47
                DJNZ R6,$
                RET   
        

     ;----------------------------------------------
     ;      通用X*1MS延时子程序
     ;           055

     ;---------------------------------------------- 
        
      ;=======(X*1MS)=======
   
    T_1M:       MOV R5,#X
                MOV R6,#5
    TM1:        MOV R7,#98
    TM2:        DJNZ R7,$
                DJNZ R6,TM1
                DJNZ R5,T_1M
                RET
 
        
     ;----------------------------------------------
     ;      通用X*100MS延时子程序
     ;          055

     ;----------------------------------------------

    ;=======(X*100MS)=======
    T_100M:     MOV R5,#X
    TM3:        MOV R6,#250
    TM4:        MOV R7,#200
    TM5:        DJNZ R7,TM5
                DJNZ R6,TM4
                DJNZ R5,TM3
                RET