;=====================================================
;?Lixin: 2002/7/30
;?dtmf dial
;?fx=8M
;=====================================================
.include "sys.h"
.include "def_macro.h"
.include "sys_var.h"
.include?"InterruptServer.h"

.global?DialOutController_DialOut
.global?DialOutController_Initial
.global?DialOutController_SetIndex
.global?DialOutController_Int_TimerA
.global?DialOutController_Int_DA

_sr_DA_OUT??equ??_doc_data
_sr_DTMF_FLAG?equ??_doc_flag

bDIAL_INP??equ??0
bFINISH???equ??1

cDIAL_TIME?equ 50?;25???;0x600*(286/8000000)=54.912ms
cDTSLI_TIME?equ 100?;50??;(0xc00-0x600)*286/8000000=54.912ms

;DACNT_TBL is the da numbers in one sin wave of a frequency
DACNT_TBL:?DW?86,78,71,64,50,45,41,37

;DTRANS_TBL is used to calculate the two freq for one number
DTRANS_TBL:?DW?0DH, 00H, 01H, 02H, 04H, 05H, 06H, 08H, 09H, 0AH, 0CH, 0EH, 0BH, 0FH, 03H, 07H; '*'->0AH, '#'->0BH
; the DA out table
;×××××××頻率低采樣個數(shù)多，頻率高采樣點少××××××××××
F_697:
?DW?0X1C0,0X1E0,0X201,0X221,0X241,0X260,0X27E,0X29B,0X2B7,0X2D1,0X2EA,0X302,0X318,0X32C,0X33E,0X34E,0X35C,0X368,0X371,0X378
?DW?0X37D,0X37F,0X37F,0X37D,0X378,0X371,0X368,0X35C,0X34E,0X33E,0X32C,0X318,0X302,0X2EA,0X2D1,0X2B7,0X29B,0X27E,0X260,0X241
?DW?0X221,0X201,0X1E0,0X1C0,0X19F,0X17E,0X15E,0X13E,0X11F,0X101,0XE4,0XC8,0XAE,0X95,0X7D,0X67,0X53,0X41,0X31,0X23
?DW?0X17,0XE,0X7,0X2,0X0,0X0,0X2,0X7,0XE,0X17,0X23,0X31,0X41,0X53,0X67,0X7D,0X95,0XAE,0XC8,0XE4
?DW?0X101,0X11F,0X13E,0X15E,0X17E,0X19F

F_770:
?DW?0X1C0,0X1E4,0X207,0X22B,0X24D,0X26F,0X290,0X2AF,0X2CD,0X2E9,0X303,0X31B,0X330,0X343,0X354,0X362,0X36E,0X376,0X37C,0X37F
?DW?0X37F,0X37C,0X376,0X36E,0X362,0X354,0X343,0X330,0X31B,0X303,0X2E9,0X2CD,0X2AF,0X290,0X26F,0X24D,0X22B,0X207,0X1E4,0X1C0
?DW?0X19B,0X178,0X154,0X132,0X110,0XEF,0XD0,0XB2,0X96,0X7C,0X64,0X4F,0X3C,0X2B,0X1D,0X11,0X9,0X3,0X0,0X0
?DW?0X3,0X9,0X11,0X1D,0X2B,0X3C,0X4F,0X64,0X7C,0X96,0XB2,0XD0,0XEF,0X110,0X132,0X154,0X178,0X19B

F_852:
?DW?0X1C0,0X1E7,0X20E,0X235,0X25B,0X27F,0X2A2,0X2C4,0X2E3,0X300,0X31A,0X332,0X347,0X358,0X367,0X372,0X37A,0X37F,0X37F,0X37D
?DW?0X377,0X36D,0X360,0X350,0X33D,0X326,0X30D,0X2F2,0X2D3,0X2B3,0X291,0X26D,0X248,0X222,0X1FB,0X1D3,0X1AC,0X184,0X15D,0X137
?DW?0X112,0XEE,0XCC,0XAC,0X8D,0X72,0X59,0X42,0X2F,0X1F,0X12,0X8,0X2,0X0,0X0,0X5,0XD,0X18,0X27,0X38
?DW?0X4D,0X65,0X7F,0X9C,0XBB,0XDD,0X100,0X124,0X14A,0X171,0X198

F_941:
?DW?0X1C0,0X1EB,0X217,0X242,0X26B,0X293,0X2B8,0X2DC,0X2FC,0X31A,0X334,0X34B,0X35D,0X36C,0X377,0X37D,0X380,0X37D,0X377,0X36C
?DW?0X35D,0X34B,0X334,0X31A,0X2FC,0X2DC,0X2B8,0X293,0X26B,0X242,0X217,0X1EB,0X1C0,0X194,0X168,0X13D,0X114,0XEC,0XC7,0XA3
?DW?0X83,0X65,0X4B,0X34,0X22,0X13,0X8,0X2,0X0,0X2,0X8,0X13,0X22,0X34,0X4B,0X65,0X83,0XA3,0XC7,0XEC
?DW?0X114,0X13D,0X168,0X194

F_1209:
?DW?0X240,0X288,0X2CF,0X314,0X355,0X392,0X3CA,0X3FB,0X426,0X449,0X463,0X475,0X47E,0X47E,0X475,0X463,0X449,0X426,0X3FB,0X3CA
?DW?0X392,0X355,0X314,0X2CF,0X288,0X240,0X1F7,0X1B0,0X16B,0X12A,0XED,0XB5,0X84,0X59,0X36,0X1C,0XA,0X1,0X1,0XA
?DW?0X1C,0X36,0X59,0X84,0XB5,0XED,0X12A,0X16B,0X1B0,0X1F7

F_1336:
?DW?0X240,0X290,0X2DE,0X32A,0X371,0X3B2,0X3EC,0X41D,0X445,0X463,0X477,0X47F,0X47C,0X46E,0X456,0X432,0X405,0X3D0,0X392,0X34E
?DW?0X305,0X2B7,0X268,0X217,0X1C8,0X17A,0X131,0XED,0XAF,0X7A,0X4D,0X29,0X11,0X3,0X0,0X8,0X1C,0X3A,0X62,0X93
?DW?0XCD,0X10E,0X155,0X1A1,0X1EF

F_1477:
?DW?0X240,0X297,0X2ED,0X33F,0X38B,0X3CF,0X40A,0X43A,0X45E,0X475,0X47F,0X47C,0X46B,0X44D,0X423,0X3EE,0X3AE,0X366,0X317,0X2C3
?DW?0X26C,0X213,0X1BC,0X168,0X119,0XD1,0X91,0X5C,0X32,0X14,0X3,0X0,0XA,0X21,0X45,0X75,0XB0,0XF4,0X140,0X192
?DW?0X1E8

F_1633:
?DW?0X240,0X2A1,0X2FF,0X358,0X3A9,0X3F0,0X42A,0X456,0X473,0X47F,0X47B,0X466,0X442,0X40F,0X3CE,0X382,0X32D,0X2D1,0X270,0X20F
?DW?0X1AE,0X152,0XFD,0XB1,0X70,0X3D,0X19,0X4,0X0,0XC,0X29,0X55,0X8F,0XD6,0X127,0X180,0X1DE
;FREQ_INDEX is the adresss for the sin data
FREQ_COM_TBL?DW?F_697,F_770,F_852,F_941,F_1209,F_1336,F_1477,F_1633

TMR16_CON?DB?1

; 子程序=>>

DialOutController_Initial:
??ret

DialOutController_SetIndex:
?cp?r3,#0bh
?jp?UGT,_set_index_fail
?ld?_doc_index,r3
?jp?_set_index_exit
_set_index_fail:
?ld?r3,#0fh
?ld?_doc_index,r3?
_set_index_exit:
?ret
??
DialOutController_Int_TimerA:
?LD??R0,_sr_DA_OUT
?BITS?ADCON.5???
?LD??DADATA,R0
?LD??DADATA,R0
?LD??DADATA,R0
?LD??DADATA,R0
?BITS?_sr_DTMF_FLAG.bFINISH?
?ret
?
DialOutController_Int_DA:
?
?ret
????
;------------撥號程序>>----------------?
;??? PUBLIC _fun_DTMF_DIAL
;**********************************************
;*_FUN_DIAL
;*FUNCTION:?DIAL (NUMBER)
;*OUTPUT:?DTMF wave
;*HW STACK:?USED 1+1=2 LEVEL
;*SW STACK:?USED 0 BYTES
;*USED:??NUM_COUNTER,L_FQ_DA_NUM,H_FQ_DA_NUM,LOW_FREQ_I,HIGH_FREQ_I,LOW_F_CNTR,HIGH_F_CNTR,TIMECNTR
;*???IDH,IDL0,ILH,ILL,TBL,TBH,R0,R1,R2,R3_tr_MAC_TMP0[0-1]
;*????????? FLAG C(Z,NZ)
;**********************************************
;tempdata
STACK_SIZE?.SETVAR?0
_tm_LOWFDA_CNT??EQU?STACK_SIZE?;DA num in one cycle of? low frequency wave
STACK_SIZE?.SETVAR?STACK_SIZE+1
_tm_HIGFDA_CNT??EQU?STACK_SIZE?;DA num in one cycle of? high frequency wave
STACK_SIZE?.SETVAR?STACK_SIZE+1
_tm_LOWF_INDEX??EQU?STACK_SIZE?;STORE LOW FREQUENCY SIN DATA ADDRESS
STACK_SIZE?.SETVAR?STACK_SIZE+2
_tm_HIGF_INDEX??EQU?STACK_SIZE?;STORE HIGH FREQUENCY SIN DATA ADDRESS
STACK_SIZE?.SETVAR?STACK_SIZE+2
_tm_LOWF_CNTR??EQU?STACK_SIZE?;low freq counter
STACK_SIZE?.SETVAR?STACK_SIZE+1
_tm_HIGF_CNTR??EQU?STACK_SIZE?;high freq counter
STACK_SIZE?.SETVAR?STACK_SIZE+1
_tm_TIME_CNTR??EQU?STACK_SIZE?;counter to control the output time
STACK_SIZE?.SETVAR?STACK_SIZE+2

bDTMF_FINISH??EQU??bFINISH
;*--------------------------------------------------------------
; Func: _fun_DTMF_DIAL,
; Input: _doc_index, the number to dial out
;*--------------------------------------------------------------

DialOutController_DialOut:
??bitr?p4.0
??_macro_ALLOC STACK_SIZE
??
??ld?r3,#IS_TIMER_A_DIALOUT
??lcall?InterruptServer_Regist
??ld?r3,#IS_DA_DIALOUT
??lcall?InterruptServer_Regist
??
??ld?r3,_doc_index
??cp?r3,#0fh
??jp?z,_dial_out_exit
??
??BMS
??LD?R0, #??LD?ILH, R0
??LD?R0, #>DTRANS_TBL
??ADD?R0, R3
??LD?ILL, R0
??LDC?@IL
??LD?R2, TBL
??LD?R3, R2???; Get the DA count for the frequent combination
??SR?R3
??SR?R3
??AND?R2, #3???; R2 for high freq, R3 for low freq
??ADD?R2, #4
??LD?R0, #??LD?ILH, R0
??LD?R0, #>DACNT_TBL
??ADD?R0, R3
??LD?ILL, R0
??LDC?@IL
??LD?R0, TBL
??_macro_WRITE?_tm_LOWFDA_CNT, R0
??LD?R0, #>DACNT_TBL
??ADD?R0, R2
??LD?ILL, R0
??LDC?@IL
??LD?R0, TBL
??_macro_WRITE?_tm_HIGFDA_CNT, R0
??LD?R0, #??LD?ILH, R0
??LD?R0, #>FREQ_COM_TBL
??ADD?R0, R3
??LD?ILL, R0
??LDC?@IL
??LD?R0, TBH
??_macro_WRITE?_tm_LOWF_INDEX, R0
??LD?R0, TBL
??_macro_WRITE?_tm_LOWF_INDEX+1, R0
??LD?R0, #>FREQ_COM_TBL
??ADD?R0, R2
??LD?ILL, R0
??LDC?@IL
??LD?R0, TBH
??_macro_WRITE?_tm_HIGF_INDEX, R0
??LD?R0, TBL
??_macro_WRITE?_tm_HIGF_INDEX+1, R0
??LD?R0, #0
??_macro_WRITE?_tm_LOWF_CNTR, R0
??_macro_WRITE?_tm_HIGF_CNTR, R0
??_macro_WRITE?_tm_TIME_CNTR, R0
??_macro_WRITE?_tm_TIME_CNTR+1, R0
??BITS?_sr_DTMF_FLAG.bDIAL_INP
??
; Set the timer A for DTMF usage
??LD?R0, TACON
??PUSH?R0
??LD?R0, #43H??; timer A run, Fxx/1
??LD?TACON, R0
??LD?R0, TADATA
??PUSH?R0
??LD?R0, #134; the FREQ dividor
??LD?TADATA, R0
??BITS?ADCON.6???; Enable the DA int?
; Backup the interrupt setting
??DI
??LD?R0, IMR00
??PUSH?R0
??LD?R0, #00
??LD?IMR00, R0
??LD?R0, IMR01
??PUSH?R0
??LD?R0, #00
??LD?IMR01, R0
??LD?R0, IMR1
??PUSH?R0?
??LD?R0, #00?
??LD?IMR1, R0
; Initial the interrupt setting??
??BITS?ADCON.5????; Enable the AD/DA clk
??BITS?IMR00.0????; Enable the DA INT
??BITS?IMR00.1????; Enable timer A
??BITS?DACON.0????; Enable DA
??EI
; Dial out the DTMF wave
?DA_LOOP:
??_macro_READ?R2, _tm_LOWF_INDEX?; Get the low freq DA out
??_macro_READ?R0, _tm_LOWF_INDEX+1
??_macro_READ?R1, _tm_LOWF_CNTR
??ADD?R0, R1
??INCC?R2
??LD?ILH, R2
??LD?ILL, R0
??LDC?@IL
??LD?R0, TBL
??PUSH?R0
??LD?R1, TBH
??_macro_READ?R0, _tm_HIGF_INDEX?; Get the high freq DA out
??_macro_READ?R2, _tm_HIGF_INDEX+1
??_macro_READ?R3, _tm_HIGF_CNTR
??ADD?R2, R3
??INCC?R0
??LD?ILH, R0
??LD?ILL, R2
??LDC?@IL
??LD?R2, TBL
??LD?R3, TBH
??POP?R0
??ADD?R0, R2
??ADC?R1, R3
??SR?R1
??RRC?R0
??SR?R1
??RRC?R0
??SR?R1??
??RRC?R0
??_macro_READ?R1, _tm_LOWF_CNTR?; loop the DTMF wave
??INC?R1
??_macro_READ?R2, _tm_LOWFDA_CNT
??CP?R1, R2
??Jp?ULE, %F1
??LD?R1, #0
?%1:?
??_macro_WRITE?_tm_LOWF_CNTR, R1
??_macro_READ?R1, _tm_HIGF_CNTR
??INC?R1
??_macro_READ?R2, _tm_HIGFDA_CNT
??CP?R1, R2
??Jp?ULE, %F2
??LD?R1, #0
?%2:?
??_macro_WRITE?_tm_HIGF_CNTR, R1
??LD?_sr_DA_OUT, R0
?WAIT_DA:
??NOP?
??BITT?_sr_DTMF_FLAG.bFINISH
??Jp?Z, WAIT_DA
??BMS
??BITR?_sr_DTMF_FLAG.bFINISH
??_macro_READ?R0, _tm_TIME_CNTR?; output enough long time
??_macro_READ?R1, _tm_TIME_CNTR+1
??INC?R1
??INCC?R0
??_macro_WRITE?_tm_TIME_CNTR, R0
??_macro_WRITE?_tm_TIME_CNTR+1, R1
??CP?R1, #0
??Jp?NZ, DA_LOOP
??CP?R0, #cDIAL_TIME
??Jp?ULE, DA_LOOP
??
??LD?R0, #7FH???; output enough long empty time
??LD?_sr_DA_OUT, R0
?DTMF_WTIME:
??NOP?
??BITT?_sr_DTMF_FLAG.bDTMF_FINISH?
??Jp?Z, DTMF_WTIME
??BITR?_sr_DTMF_FLAG.bDTMF_FINISH
??_macro_READ?R0, _tm_TIME_CNTR
??_macro_READ?R1, _tm_TIME_CNTR+1
??INC?R1
??INCC?R0
??_macro_WRITE?_tm_TIME_CNTR, R0
??_macro_WRITE?_tm_TIME_CNTR+1, R1
??CP?R1, #0
??Jp?NZ, DTMF_WTIME
??CP?R0, #cDTSLI_TIME
??Jp?ULE, DTMF_WTIME
??
??BITR?_sr_DTMF_FLAG.bDIAL_INP
; Disable the DA clk and interrupt

??DI
??BITR?ADCON.5??; Disable the AD/DA clk
??BITR?DACON.0??; Disable the DA
; Restore the IMR??
??POP?R0
??LD?IMR1, R0
??POP?R0
??LD?IMR01, R0
??POP?R0
??LD?IMR00, R0
??POP?R0
??LD?TADATA, R0
??POP?R0
??LD?TACON, R0
??EI
??
_dial_out_exit:
??ld?r3,#IS_TIMER_A_DIALOUT
??lcall?InterruptServer_Unregist
??ld?r3,#IS_DA_DIALOUT
??lcall?InterruptServer_Unregist

??_macro_FREE STACK_SIZE
??bits?p4.0
??
??RET
.end