; /**************************************************************************************************
; * 文件信息 : 延時函數
; * 文 件 名 : delaytime.C
; * 創 建 人 : 謝志俊
; * 創建日期 : 2006-4-8
; * 原始版本 : V 1.0.0
; * 說    明 :
; * 修改版本 :
; * 修改日期 :
; * 說    明 :
; * 描    述 :   源代碼
; * (c) Copyright 2004-2006, HNCSXZJ
; * All Rights Reserved
; **************************************************************************************************/

#define DELAY_GLOBALS
$NOMOD51
$INCLUDE(reg51.h)


NAME    DELAYTIME

?PR?_Tdelay_loop_1?DELAYTIME             SEGMENT CODE 
?PR?_Tdelay_loop_2?DELAYTIME             SEGMENT CODE 
?PR?_Tdelay_nms?DELAYTIME                SEGMENT CODE 

    PUBLIC  _Tdelay_nms
    PUBLIC  _Tdelay_loop_2
    PUBLIC  _Tdelay_loop_1
    

    RSEG  ?PR?_Tdelay_loop_1?DELAYTIME
_Tdelay_loop_1:
    USING   0

    DJNZ    R7,_Tdelay_loop_1
    RET




    RSEG  ?PR?_Tdelay_loop_2?DELAYTIME
_Tdelay_loop_2:
    USING   0

    MOV     A,R7
    DEC     R7
    JNZ     _Tdelay_loop_2_
    DEC     R6
_Tdelay_loop_2_:
    DEC     A
    ORL     A,R6
    JNZ     _Tdelay_loop_2
_Tdelay_loop_2_Exit:
    RET 
    
    
    
    RSEG  ?PR?_Tdelay_nms?DELAYTIME
_Tdelay_nms:
    USING   0
    MOV     R5,AR7 
    MOV     R4,AR6
    
    CLR     A
    MOV     R3,A
    MOV     R2,A
    
_Tdelay_nms_1:
    CLR     C
    MOV     A,R3
    SUBB    A,R5
    MOV     A,R2
    SUBB    A,R4
    JNC     _Tdelay_nms_Exit


    Mov      0A6H,#01EH ;先送1E
    Mov      0A6H,#0E1H ;后送E1
    
    MOV     R7,#023H                    ; Tdelay_1ms();
    MOV     R6,#013H
    LCALL   _Tdelay_loop_2
    

    INC     R3
    CJNE    R3,#00H,_Tdelay_nms_2
    INC     R2 
_Tdelay_nms_2:
    SJMP    _Tdelay_nms_1
    
_Tdelay_nms_Exit:
    RET     

END