;=====================================================
; 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
;×××××××频率低采样个数多，频率高采样点少××××××××××
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, #<DTRANS_TBL ; Transfe from number to position
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, #<DACNT_TBL
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, #<FREQ_COM_TBL ; Get the freq combination index
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