9200driver.asm

来自「这个系统是我根据常州拨云拨号器的硬体写的应用系统,完全兼容拨云拨号器的硬件和全功」· 汇编 代码 · 共 133 行

	PUBLIC	  _SendDTMF

	RSEG	?DT?_SendDTMF
	ch:	DS	1
	i:	DS	1

_SendDTMF:
        MOV    ch, R7
	MOV	A, R7
	JNZ	StartSendDTMF
	MOV	R7, #0AH
	MOV	ch, R7
StartSendDTMF:
        NOP
        CLR    CE
        NOP
        NOP
        NOP
        NOP
        CLR    A
        MOV    i, A
LL1723H:
        SETB   CLK
        MOV    A, ch
        RRC    A
        MOV    DQ, C
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        CLR    CLK
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
LL1734H:
        MOV    A, ch
        CLR    C
        RRC    A
        MOV    ch, A
        INC    i
        MOV    A, i
        CJNE   A, #05H, LL1723H
        MOV    R7, #23H
        MOV    R6, #00H
        LCALL  _Delay_n_ms
        MOV    ch, #0FFH
        CLR    CE
        NOP
        NOP
        NOP
        NOP
        CLR    A
        MOV    i, A
LL1750H:
        SETB   CLK
        NOP
        NOP
        NOP
        NOP
        MOV    A, ch
        RRC    A
        MOV    DQ, C
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        CLR    CLK
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        NOP
        MOV    A, ch
        CLR    C
        RRC    A
        MOV    ch, A
        MOV    R7, #23H
        MOV    R6, #00H
        LCALL  _Delay_n_ms
        INC    i
        MOV    A, i
        CLR    C
        SUBB   A, #05H
        JC     LL1750H
        SETB   CLK
        NOP
        NOP
        NOP
        NOP
        RET
// ===============================================================
// ***************************************************************
// ***************************************************************
// ===============================================================
_Delay_n_ms:
        MOV    A, R7
        DEC    R7
        MOV    R2, 06H
        JNZ    Delay0
        DEC    R6
Delay0:
        ORL    A, R2
        JZ     ExitDelay
        CLR    A
        MOV    R5, A
Delay1:
        MOV    A, R5
        CLR    C
        SUBB   A, #7DH
        JNC    _Delay_n_ms
        INC    R5
        SJMP   Delay1
ExitDelay:
        RET 
END