pIC12C508 DTMF拔号程序
;|Name:MAIN.ASM|
;|Description:DTMF-》RS232converter(forusewithPCNummerViser)|
;|DetectsDTMFandringing,andtransmitstoastd.|
;|RS232port,at2400baud.|
;|||
;+--------------------------------------------------------------------+
;|Platform:PIC12C508(A)(usinginternal4MHzRC-oscillator)|
;|Uses:90-342W/512Wprogram-mem(all’switches’setto0/1)|
;|6B/25Bdata-mem|
;|Assembler:MPASM2.20(MPLAB4.00.00)|
;|Comments:-|
;+====================================================================+
TITLE’DTMFtoRS232converter’
PROCESSOR12C508
__CONFIG_CP_OFF&_MCLRE_OFF&_IntRC_OSC&_WDT_ON
INCLUDE
RADIXDEC
__IDLOCSh’0104’
OTPSET1;Usefactory-storedcal.-value(onOneTimeProgrammable)
TMR0CLKSET1;UseTMR0externalclockat3,579545MHz(insteadofIntRC)。
PARITYSET1;Useevenparity-bitwhentransmittingtotheserialport.
CLIONLYSET1;TransmitsCLI(A-numbers)only.
RINGSET1;Transmitsringing.
IDENTTXSET1;Transmits’ident’whenpressing’***’(DTMF)。
PWRUPIDSET1;Transmitsshort’ident’atpowerup.
ASCIISET1;TransmitsASCII-charsinsteadofbinary:
;DigitASCIIBinaryDigitASCIIBinary
;00(48d)0000000099(57d)00001001
;11(49d)00000001AA(65d)00001010
;22(50d)00000010BB(66d)00001011
;33(51d)00000011CC(67d)00001100
;44(52d)00000100DD(68d)00001101
;55(53d)00000101**(42d)00001110
;66(54d)00000110##(35d)00001111
;77(55d)00000111RingR(82d)00010000
;88(56d)00001000
;---+++***Constants***+++---
IFTMR0CLK==0;Internaloscillator
OPTION_REGequb’10000001’;’Default’timer/prescalersetup
ENDIF
IFTMR0CLK==1;ExternalTMR0source(3,579545MHz)
OPTION_REGequb’10100011’;’Default’timer/prescalersetup
ENDIF
#defineDTMF0GPIO,0;Bit0(LSB)fromMT8870
#defineDTMF1GPIO,1;Bit1fromMT8870
#defineDTMF2GPIO,3;Bit2fromMT8870/_Ring-detector
#defineDTMF3GPIO,4;Bit3fromMT8870/TxD-output(high=sPACe)
#defineDTMFOKGPIO,5;DTMFdetected,andreadyatDTMF0-3
;---+++***Variabledeclaration***+++---
cblock0Ch
DTMFval
identval
misc
temp1,temp2,teMP3;Temp-variables
endc
#defineCLIPmisc,0;SetwhenCLIPdetected
#defineCLIPendmisc,1;SetbyCLIPdetwhen#received
#defineIdentOKmisc,2;Setwhen’ident’detected(***)
;---+++***Resetvector***+++---
ORG0h
rst_vector:
MOVwfOSCCAL;Setoscillatorcalibration.
callinit
IFPWRUPID==1
gotopwrupident
pwrupidentreturn:
ENDIF
gotomain
;---+++***Identity(located’low’becauseofnoCP《64b)***+++---
identtable:
IFIDENTTX==1
addwfPCL,F
dt“+++PCNummerViser+++”,13
dt“Firmwarev1.04”,13,13
dt“JaCOBBlichfELDt’98”,13,13,13,0
ENDIF
pwrupidenttable:
IFPWRUPID==1
addwfPCL,F
dt“DTMFTORS232”,60,“0104”,62,0
ENDIF
;---+++***Initialization***+++---
init:
;SetupI/O-direction(GP0-3,5=input,GP4=output)
MOVlwb’11101111’
trisGPIO
;TxD=Space(GP4=low)
MOVlwb’00000000’
MOVwfGPIO
;EnableportBpull-up,dISAblewake-uponPINchange
;SetupT0=inc.oneitherOSC.orTMR0,prescaler=4/16(dependsonTMR0CLK)
clrwdt
MOVlwOPTION_REG
option
clrfmisc
clrfidentval
retlw0
;---+++***Power-upidentitytransmission***+++---
IFPWRUPID==1
pwrupident:
MOVlw4;waitapprox.1second
MOVwftemp3
pwrup11:clrftemp2
pwrup12clrftemp1
pwrup13:clrwdt
decfsztemp1,F
gotopwrup13
decfsztemp2,F
gotopwrup12
decfsztemp3,F
gotopwrup11
MOVlwh’0FF’
MOVwftemp3
pwrup2:clrwdt
incftemp3,F
MOVftemp3,W
callpwrupidenttable;Fetchtext
clrftemp2
subwftemp2,F
btfscSTATUS,Z;Endoftable?
gotopwrupend
calltxser
gotopwrup2
pwrupend:
gotopwrupidentreturn
ENDIF
;---+++***Main***+++---
main:gotoDTMFdet
DTMFdetreturn:
gotoringdet
ringdetreturn:
gotomain;Repeatmain
;ReadDTMF-bitsfrom8870,convertstonibble,andreturnsinW.
readDTMF:
MOVfGPIO,W
andlwb’00000011’;Getbit0-1
MOVwfDTMFval
bsfDTMFval,2;Getbit2
btfssDTMF2
bcfDTMFval,2
MOVlwb’11111111’;Getbit3(DTMF3=input)
bcfDTMFval,3
trisGPIO
MOVlwb’11101111’
btfscDTMF3
bsfDTMFval,3
trisGPIO;DTMF3=Output
bcfDTMF3
MOVfDTMFval,W;Convertfrom8870-》’normal’
andlwb’00001111’
callDTMFtable
MOVwfDTMFval
retlw0
DTMFtable:
addwfPCL,F
retlwb’00001101’;DTMF’D’
retlwb’00000001’;DTMF’1’
retlwb’00000010’;DTMF’2’
retlwb’00000011’;DTMF’3’
retlwb’00000100’;DTMF’4’
retlwb’00000101’;DTMF’5’
retlwb’00000110’;DTMF’6’
retlwb’00000111’;DTMF’7’
retlwb’00001000’;DTMF’8’
retlwb’00001001’;DTMF’9’
retlwb’00000000’;DTMF’0’
retlwb’00001110’;DTMF’*’
retlwb’00001111’;DTMF’#’
retlwb’00001010’;DTMF’A’
retlwb’00001011’;DTMF’B’
retlwb’00001100’;DTMF’C’
;ConvertsreceivedDTMFtoASCII(returnsinW)
conASCII:
IFASCII==1
addwfPCL,F
retlwA’0’
retlwA’1’
retlwA’2’
retlwA’3’
retlwA’4’
retlwA’5’
retlwA’6’
retlwA’7’
retlwA’8’
retlwA’9’
retlwA’A’
retlwA’B’
retlwA’C’
retlwA’D’
retlwA’*’
retlwA’#’
ENDIF
;Testsfor3subsequent’*’。
ident:
IFIDENTTX==1
bcfIdentOK
MOVlwb’00001110’;DTMF’*’
subwfDTMFval,W
btfssSTATUS,Z
gotoident1
incfidentval,F
MOVlwd’3’
subwfidentval,W
btfssSTATUS,Z
gotoidentend
bsfIdentOK
ident1:clrfidentval
identend:
retlw0
ENDIF
;TransmitsWat2400bps/std.RS232.Calculatesparity-bit.Returnswhendone.
txser:
MOVwftemp1
bcfSTATUS,C;Transmitstart-bit
calltxcarry
MOVlwd’8’;Transmit8databits
MOVwftemp2
txbits:clrwdt
rrftemp1,F
calltxcarry
decfsztemp2,F
gototxbits
IFPARITY==1
rrftemp1,F;calculateparity(even)
swapftemp1,W
xorwftemp1,W
MOVwftemp1
rrftemp1,F
rrftemp1,F
xorwftemp1,F
rrftemp1,W
xorwftemp1,F
bcfSTATUS,C
btfsctemp1,0
bsfSTATUS,C
calltxcarry
ENDIF
bsfSTATUS,C;Transmit2*stop-bit
calltxcarry
bsfSTATUS,C
calltxcarry
retlw0
;transmitcarry-flag
IFTMR0CLK==0
txcarry:MOVlw(256-104);2400=416,666us=1666,666c/16=104,17
ENDIF
IFTMR0CLK==1
txcarry:MOVlw(256-93);2400=416,666us=1491,477c/16=93,22
ENDIF
txndone:btfscTMR0,7;Lastbittransmitted(TMR0ovfl.)?
gototxndone
bsfDTMF3;Space
btfscSTATUS,C;Settomark(-12V)ifCarry=1
;(RS232invertsoutput)
bcfDTMF3;Mark
MOVwfTMR0
retlw0
;RecognizesCLIP(DTMFreceivedinA),andsets/clearsCLIP.
IFCLIONLY==1
CLIPdet:
MOVwftemp1
MOVlwb’00001010’;DTMF’A’
subwftemp1,W
btfssSTATUS,Z
gotoCLIPdet2
bsfCLIP
gotoCLIPdetend
CLIPdet2:MOVlwb’00001101’;DTMF’D’
subwftemp1,W
btfssSTATUS,Z
gotoCLIPdet3
bsfCLIP
gotoCLIPdetend
CLIPdet3:btfssCLIP
gotoCLIPdetend
MOVlwb’00001111’;DTMF’#’
subwftemp1,W
btfssSTATUS,Z
gotoCLIPdetend
bcfCLIP
bsfCLIPend
CLIPdetend:
retlw0
ENDIF
;DTMF-detection-CallsreadDTMF,CLIPdet,conASCIIandtxserifDTMFispresent.
;ReturnswhenDTMFisreMOVed.
DTMFdet:clrwdt
btfssDTMFOK
gotoDTMFdetreturn
goto$+1;Doublenop
btfssDTMFOK
gotoDTMFdetreturn
callreadDTMF;DTMFpresent,read!
IFIDENTTX==1;Transmitidentif’***’received
callident
btfssIdentOK
gotoDTMFdet2
MOVlwh’0FF’
MOVwftemp3
DTMFdet1:clrwdt
incftemp3,F
MOVftemp3,W
callidenttable;Fetchtext
clrftemp2
subwftemp2,F
btfscSTATUS,Z;Endoftable?
gotoDTMFdet2
calltxser
gotoDTMFdet1
ENDIF
DTMFdet2:
MOVfDTMFval,W
IFCLIONLY==1;TransmitonlyCLI
callCLIPdet
btfssCLIPend;LastdigitinCLI(#)?
gotoDTMFdet21
bcfCLIPend
gotoDTMFdet22
DTMFdet21:
btfssCLIP
gotoDTMFoff
DTMFdet22:
MOVfDTMFval,W
ENDIF
IFASCII==1;ConverttoASCII
MOVfDTMFval,W
callconASCII
ENDIF
calltxser;Transmittoserialport
DTMFoff:clrwdt;WaitforDTMFtostop
btfscDTMFOK
gotoDTMFoff
DTMFend:gotoDTMFdetreturn
;Ring-detection-Ifringingispresent,callstxserwithW=(ascii)’R’。
;ReturnswhenringingendsorDTMFispresent.
ringdet:clrwdt
IFRING==1
btfscDTMF2
gotoringend
ringdet2:;Waitforringing-pulseto
clrwdt;stop(orDTMFpresent)。
btfscDTMFOK
gotoringend
btfssDTMF2
gotoringdet2
MOVlwb’10000111’;Setuptimer:50msbeforeoverflow.
option
MOVlwd’50’
MOVwfTMR0
ringdet3:clrwdt;Waitfornewringing-pulse
MOVlw0
subwfTMR0,W
btfscSTATUS,Z
gotoringend
btfscDTMF2
gotoringdet3
;Newpulsepresent.
MOVlwOPTION_REG;Restoreoldprescaler
option
MOVlwA’R’;Transmit’R’
calltxser
bcfCLIP;TerminateCLIP-sequence(ringdet.)
MOVlwb’10000111’;Setuptimer:50msbeforeoverflow.
option
ringdet4:MOVlwd’50’
MOVwfTMR0
ringdet5:clrwdt;Waitforringingtoend
btfssDTMF2
gotoringdet4
MOVlw0
subwfTMR0,W
btfscSTATUS,Z
gotoringend
btfssDTMFOK
gotoringdet5
ringend:MOVlwOPTION_REG;Restoreoldprescaler
option
ENDIF
gotoringdetreturn
IFOTP==0
ORGh’1FF’;(old12C508calibration-val.)
MOVlwh’0A0’
ENDIF
END
+---------------------------------------------------------------------+
|History|
+---------------------------------------------------------------------+
Rev.ChangeReasonDate
--------------------------------------------------------------------------------
0.0aSource-filecreated.-24.03.98
0.5aHierarchischdiagramfinished.-25.03.98
1.0aEverythingimplemented,readyfortest.-26.03.98
1.0bTestedin’reallife’。。.Everythingok,-27.03.98
(minorbugsreMOVed)。
1.0Firstversion,’inuse’。-27.03.98
1.01Fixed’#’nottransmittedwhenCLIP=1.-29.03.98
Fixed’D’-sequencesnotrecognizedas
CLIP(nottransmittedwhenCLIP=1)。
ImplementedPwrUpIdent.Givespossibilityof
auto-detection,and
FW-versiondetection.
1.02Implementedpossibilityofusingext.Moreprecisethan09.04.98
TMR0source,astimebaseforRS232-internalRC-oscillator.
communication.
BugfixedCLIPdet.ASCII-tablelocatedin
upperpagewhenall
switches=1.
1.03r+++First’public’release.+++IncasetheCLI-02.05.98
BreakCLIP-sequenceifringdetected.sequenceisnottermi-
natedprobably(because
oflinenoiseetc.)
1.04rMinorchanges/bugfixes:18.03.99
ChangedTX-timing.Transmittedat~2325bps.
Changedformatfrom8E1to8E2Enablesreceivertore-
(2stopbits).syncronizebetweeneach
byte,therebysupressing
framing-errors.
Minimized’read-DTMF’timing.ReMOVesunwanted10us
glitchonTXjustbefore
transmittingadigit.
Ideas/futurechanges:
-------------------------------------------------------------------------------
AddEEPROMandchangepower-supply,toenablereception/storingofDTMF,when
thePCisturnedoff.
Addoffhookdetector,toenable’lengthofconversation’,and’answered/not
answeredcall’logging.
『本文转载自网络,版权归原作者所有,如有侵权请联系删除』