JONATHA19820

Obrigado pela atenção

Cara , sei que estou abusando da sua paciência, mas poderia testar se compila no mplab pramim pois testei aqui e não deu certo

Obrigado amigo pela dica Poderia me indicar um

Olá amigos Sou iniciante na programação, mas gosto muito desta arte Arte de mestre que e programar. Parece fácil + não e , arte onde o poder da criação e infinita Agradeço a atenção de todo,mas preciso da a juda de vocês Estou tem tando compilar este código em Mikroc e ta dando erro Este e um decodificador DTMF com pic 16f628a baixado da net O código HEX grava normal no pic e roda legal mas o codig asm não compila Segue o código fonte ; DTMFCTRL.ASM ; Current Version: 0.00 ; ; PIC Based software DTMF decoder which controls ; 8 outputs. Command syntax: #ABCD#XY* ; ; - #ABCD# stands for a 4 digit code surrounded bij # ; - X indicates the channel (1..8) ; - Y indicates ON (1) of OFF (0) ; ; Created by Wim de Vree PE1GRL - [email protected] ; ; Brief overview: ; This program decodes DTMF tones using the Goertzel algorithm. ; Heavily based on the code from Radu Constantinescu ; which got the idea from David Hedly. Also thanks to ; Scott Dattalo who wrote a nice decription on the web. ; After the correct sequence is received on of the PORTB ; data lines is set or reset. ; ; Revision History ;---------------------------------------------------------------------- ; 2011-01-25 0.00 Initial creation, Based on the RS232 decoder ; 2011-01-26 0.10 Completed program, removed diagnostic RS232 stuff ; 2011-01-27 0.20 Some optimalisation to fit in a 1K Flash PIC ; now using 1012 out of 1024 program words ; ; SOFTWARE DTMF DECODER ; modified Goertzel algorithm ; timer 2 used to generate interupts at 9765.625hz ; with 1X and 2X frequency bins ; ; FOR 16F88 / 20 Mhz ; F sample = 5000000/512 hz = 9765. 625 hz ; ; RA0 OUT pin 17 Interrupt Indicator ( =1 durring interrupt) ; RA2 Comparator IN pin + DTMF/FSK INPUT (Comparator) ; RA1 Comparator IN pin - Grounded ; RB 8 output channels ; LIST P=PIC16F628A, F=INHX8M __CONFIG _CP_OFF & _WDT_OFF & _HS_OSC & _LVP_OFF & _PWRTE_ON ; define treshods for the dtmf decoder #define treshold1XL .240/4 ; for 1X frequencies DTMF detector / 240 samples #define treshold1XH .240/5 ; for 1X frequencies DTMF detector / 240 samples #define treshold2XL .113/3 ; for 2X frequencies DTMF detector / 113 samples #define treshold2XH .113/3 ; for 2X frequencies DTMF detector / 113 samples ; 50 40 2 ; 40 40 3 < best OF 126 - GOOD EXCEPT * ; 35 35 3 RADIX DEC #include <p16f628A.inc> XTAL_FREQ EQU 20000000 ; OSC freq in Hz #include <rxtables.asm> ; Only need the decode tables ERRORLEVEL -302 ; disable warnings about not in bank0 CBLOCK 0x20 PCLATH_SAVE: 1 ; Interrupt save vars STATUS_TEMP: 1 FSR_SAVE: 1 TempH: 1 ; Used in the DTMF Detector ISR for Temp Lowtemplate TempL: 1 ; Used in the DTMF Detector ISR for Temp Highemplate ; Freq AddH AddL Error(%) ; 1000 26 55 0.001692772 ; 697 18 69 -0.01042912 ; 770 20 47 -0.007402742 ; 852 22 86 0.005680407 ; 941 24 171 0.000885164 ; 1209 31 177 -0.00569002 ; 1336 35 6 0.002852743 ; 1477 38 184 0.000209718 ; 1633 42 207 0.001117896 ;Frequency 1209 1336 1477 1633 ;697 1 2 3 A ;770 4 5 6 B ;852 7 8 9 C ;941 * 0 # D ;**************************** ; SERIAL ROUTINES VARIABLES ;**************************** Flags:1 ; flags for serial comunincation Temp:1 ; temp byte ONLY to be used locally and no calls ! ;**************************** ; DELAY ROUTINES VARIABLES ;**************************** TIME0: 1 ;DELAY COUNTER LSB TIME1: 1 ;DELAY COUNTER MSB ;**************************** ; DTMF DECODER ROUTINES VARIABLES ;**************************** A697SIN, A697COS:1 ; ACCUMULATOR for 697 Hz sin A770SIN, A770COS:1 ; ACC A852SIN, A852COS:1 ; ACC A941SIN, A941COS:1 ; ACC A1209SIN,A1209COS:1 ; ACC A1336SIN,A1336COS:1 ; ACC A1447SIN,A1447COS:1 ; ACC A1633SIN,A1633COS:1 ; ACC ; double frequency bins A697SIN2, A697COS2:1 ; ACCUMULATOR for 697 Hz sin A770SIN2, A770COS2:1 ; ACC A852SIN2, A852COS2:1 ; ACC A941SIN2, A941COS2:1 ; ACC A1209SIN2,A1209COS2:1 ; ACC A1336SIN2,A1336COS2:1 ; ACC A1447SIN2,A1447COS2:1 ; ACC A1633SIN2,A1633COS2:1 ; ACC SAMPLEBIT:1 TABLECOUNTER:1 LOWTEMPLATE:1 ; USED BY DTMF DETECTOR ISR - temp val for Lowfreq Table Value HIGHTEMPLATE:1 ; USED BY DTMF DETECTOR ISR - temp val for Highfreq Table Value BYTE_DTMF:1 RESULT1:1 ; DECODED DIGIT OR 0 RESULT:1 ; USED BY DTMF DETECTOR ISR - result bits for 1X BINS RESULT2X:1 ; USED BY DTMF DETECTOR ISR - result bits for 2X BINS FSR_SAVE_DTMF:1 ; DTMF ISR ROUTINE TEMP Variable TEMP_VAL:1 TEMP_TIMES:1 DTMF_RESULT:1 ; LAST detected DTMF digit or '-' Uidx ; Index when hunting the unlock code Expected ; Expected character Channel ; Received channel Action ; ON or OFF ChannelMask ENDC ; ************* Bit variable definitions *************************** #define TIMEOUT Flags,1 ; timeout flag #define DTMF_DONE Flags,4 ; 1 DTMF detector off / 0 - DTMF detector on #define DTMF_DETECTED Flags,5 ; one DTMF digit detected in DTMF_RESULT #define DTMF_RECOVER Flags,6 ; =1 do not send the next digit - just recover (used by the decision alg.) #define Temp_Flag Flags,7 #define ACTION_ON Flags,2 ; =1: Turn on, else turn off ;*********************************************** ;Shared Ram ;*********************************************** CBLOCK 0x78 ; variables for all the RAM pages, skip 70 for ICD W_TEMP: 1 ; int W save/shared Ram ENDC ;**************************** ORG 0x00 clrf PCLATH ; Page 0 clrf STATUS ; BANK 0 goto START INTERRUPT_VECTOR ORG 0x04 ;**************************** ; ; CONTEXT SAVE ; ;**************************** C_SAVE movwf W_TEMP swapf STATUS,W clrf STATUS ;ENSURE BANK0 SAVE movwf STATUS_TEMP bsf PORTA, 0 ; set interrupt indicator movf PCLATH,W ; SAVE PCLATH movwf PCLATH_SAVE movf FSR, W movwf FSR_SAVE btfss PIR1,TMR2IF ; TMR2 Overflow Check ? goto $ ; NO, hang system with led ON ;********************** ;Timer 2 ISR ;********************** btfsc DTMF_DONE goto T2ISR_1 ; Skip Comparator input if dtmf detect is off clrf BYTE_DTMF ; input = 0 btfsc CMCON,C2OUT ; Output of comparator comf BYTE_DTMF, F ; input = 1 T2ISR_1 bcf PIR1,TMR2IF ; RESET TIMER 2 INT FLAG ;********************** ; DTMF DETECTOR ISR ;********************** DTMF_DETECT btfsc DTMF_DONE goto DTMF_ISR_END ; Skip dtmf detect isr if done=1, goto delay ISR ; input value in DTMF_BYTE = 00 or FF ;***************************** ; ;Get the expected Lowband Bits ; ;***************************** movlw low LOWBAND addwf TABLECOUNTER,W ; add low lowband + tablecounter with carry movlw high LOWBAND ; to pclath skpnc addlw 1 movwf PCLATH ; if the table will be alligned to a 256 boundary this will nor be necessary movf TABLECOUNTER,W ; read 1X template call LOWBAND ; read table movwf LOWTEMPLATE movf BYTE_DTMF,W xorwf LOWTEMPLATE, F ; APPLY INPUT OVER MASK ; read 2X template - must use TABLECOUNTER X 2 as pointer movf TABLECOUNTER,W clrc ; Carry=0 rlf TABLECOUNTER,W ; TABLECOUNTER X 2 > W call LOWBAND ; read table movwf TempL movf BYTE_DTMF,W xorwf TempL, F ; APPLY INPUT OVER MASK ;***************************** ; ;Get the expected Highband Bits ; ;***************************** movlw low HIGHBAND addwf TABLECOUNTER,W movlw high HIGHBAND skpnc addlw 1 movwf PCLATH movf TABLECOUNTER,W ; read 1X template call HIGHBAND movwf HIGHTEMPLATE movf BYTE_DTMF,W xorwf HIGHTEMPLATE, F ; APPLY INPUT OVER MASK ; read 2X template - must use TABLECOUNTER X 2 as pointer movf TABLECOUNTER,W clrc rlf TABLECOUNTER,W ; TABLECOUNTER X 2 > W call HIGHBAND ; read table movwf TempH movf BYTE_DTMF,W xorwf TempH, F ; APPLY 2X frequencies Mask over the 1X frequencies result clrf PCLATH ; clear pclath before any GOTO....... ;******************************* ; ; LOWTEMPLATE AND HIGHTEMPLATE ; CONTAIN THE EXPECTED VALUES ; FOR THE INCOMING BIT ; ;******************************* ; do it for the 1Xfreq bins movlw low A697SIN movwf FSR ; ACCUMULATOR ADDR in pointer FSR movlw .8 movwf SAMPLEBIT ; samplebit is the number of the bit being tested COMPAREBITL rlf LOWTEMPLATE,F bnc MATCHL decf INDF,F ; decrement accumulator goto CONTINL MATCHL incf INDF,F CONTINL incf FSR,F ; increment pointer - next accumulator decfsz SAMPLEBIT,F ; next bit goto COMPAREBITL ; FINISH THE BYTE ; MOVF TABLECOUNTER,W ; SUBLW .66-1 ; 0-65=66 SAMPLES This is the number of samples to test against (max 127) ; this will go from 0 to 125 and stop at 126, a total of 126 samples ;treshold-w--> W, carry=0 on borrow, ; W=31 carry=0, W=30 carry=1, W=29 carry=1! ; therefore C is 0 for W > treshold bnc SKIPHI1X movlw LOW A1209SIN movwf FSR ;ACCUMULATOR ADDR movlw 8 movwf SAMPLEBIT COMPAREBITH rlf HIGHTEMPLATE,F bnc MATCHH decf INDF,F goto CONTINH MATCHH incf INDF,F CONTINH incf FSR,F decfsz SAMPLEBIT,F goto COMPAREBITH ;FINISH THE BYTE SKIPHI1X ; do it again for the 2Xfreq bins ; SKIP 2X IF TABLECOUNTER>113 movf TABLECOUNTER,W sublw .113-1 ;This is the number of samples to test against (max 127) ; this will go from 0 to 125 and stop at 126, a total of 126 samples ;treshold-w--> W, carry=0 on borrow, ; W=31 carry=0, W=30 carry=1, W=29 carry=1! ; therefore C is 0 for W > treshold bnc SKIPHI2X movlw low A697SIN2 movwf FSR ; ACCUMULATOR ADDR in pointer FSR movlw .8 movwf SAMPLEBIT ; samplebit is the number of the bit being tested COMPAREBITL2 rlf TempL,F bnc MATCHL2 decf INDF,F ; decrement accumulator goto CONTINL2 MATCHL2 incf INDF,F CONTINL2 incf FSR,F ; increment pointer - next accumulator decfsz SAMPLEBIT,F ; next bit goto COMPAREBITL2 ; FINISH THE BYTE movlw low A1209SIN2 movwf FSR ;ACCUMULATOR ADDR movlw .8 movwf SAMPLEBIT COMPAREBITH2 rlf TempH,F bnc MATCHH2 decf INDF,F goto CONTINH2 MATCHH2 incf INDF,F CONTINH2 incf FSR,F decfsz SAMPLEBIT,F goto COMPAREBITH2 ;FINISH THE BYTE SKIPHI2X ;******************************** ; ; Increment Tablecounter 0..255 ; ;******************************** incf TABLECOUNTER,F movf TABLECOUNTER,W xorlw .240 ;This is the number of samples to test against (max 127) ; this will go from 0 to 125 and stop at 126, a total of 126 samples skpnz bsf DTMF_DONE DTMF_ISR_END ;********************** ; Delay ISR ;********************** ; TIME1:TIME0 counter will be decremented each Timer2 Tick, ; TIMEOUT flag will be set when counter reaches zero. DELAY_ISR btfsc TIMEOUT ; CHECK IF NOT TIMEOUT goto DELAY_ISR_END decf TIME0, F ; DECREMENT TIMEOUT COUNTER bnz DELAY_ISR_END ; TIME0<>0 decf TIME1, F skpnz bsf TIMEOUT ; TIME1==0, SET TIMEOUT=TRUE DELAY_ISR_END ;********************** ; Context Restore ;********************** INT_EXIT clrf STATUS ; ENSURE BANK0 RESTORE movf FSR_SAVE,W movwf FSR movf PCLATH_SAVE,W movwf PCLATH ; RESTORE PCLATH bcf PORTA, 0 ; reset interrupt indicator swapf STATUS_TEMP,W movwf STATUS swapf W_TEMP,F swapf W_TEMP,W retfie ;********************************************************** ; Main Program ;********************************************************** START INIT ; INIT ROUTINE ;*************** ; setup delay ;*************** bcf TIMEOUT ; KEEP DELAY COUNTER STOPPED clrf TIME0 ; INIT DELAY COUNTER clrf TIME1 ;*************** ; setup Comparator input on AN1/AN2 ;*************** bsf STATUS,RP0 ; Switch to Bank 1 movlw b'11111110' ; PortA: only RA0 output movwf TRISA bcf STATUS,RP0 ; Back to Bank 0 bcf PORTA,0 ; Led OFF movlw b'00000101' ; One comparator used (RA1/RA2) movwf CMCON ;*************** ; setup DTMF DETECTOR ;*************** bsf DTMF_DONE ; STOP DTMF detector movlw '-' movwf TEMP_VAL movlw 1 movwf TEMP_TIMES bcf DTMF_RECOVER ;************************* ; setup timer2 and PWM and PORTB ;************************* clrf PORTB ; CLEAR PORTB bsf STATUS,RP0 ; (bank 1) clrf TRISB ; PortB all outputs movlw B'00111111' ; 78.12Khz PWM with 20Mhz crystal movwf PR2 ; NOTE: PWM module is OFF bcf STATUS,RP0 ; (bank 0) movlw B'00111000' ; set Timer2 prescaler 1/1, post scaler 1/8 movwf T2CON ; Interrupt (sample) rate is 9767Hz ; reset TMR2IF, enable interrupts bcf PIR1, TMR2IF BANKSEL PIE1 ;(bank 1) bsf PIE1, TMR2IE BANKSEL INTCON ;(bank 0) ; Start the interrupts bsf INTCON,GIE ; global int bsf INTCON,PEIE ; Peripherals int bsf T2CON,TMR2ON ; start Timer2, bank0 ;********************************* ; MAIN LOOP ;********************************* MAIN: ; Wait for a hash which starts the scan for the lock code WaitStartHash: clrf Uidx ; Start of unlockcode WaitUnLock: movlw high GetUnLockChar movwf PCLATH movlw low UnlockCode addwf Uidx,W call GetUnLockChar clrf PCLATH andlw 0xFF bz CodeReceived ; Got complete unlockcode movwf Expected ; This is the char we expect call GetDTMFWithTimeOut btfsc TIMEOUT goto WaitStartHash ; TimeOut, restart movfw DTMF_RESULT xorwf Expected,W bnz WaitStartHash ; Unexpected char detected incf Uidx,F goto WaitUnLock ; Do Next char in unlockcode CodeReceived: ; The unlock code was rx'd call GetDTMFWithTimeOut ; Channel Number btfsc TIMEOUT goto WaitStartHash ; TimeOut, restart movfw DTMF_RESULT movwf Channel call GetDTMFWithTimeOut ; Channel Status btfsc TIMEOUT goto WaitStartHash ; TimeOut, restart movfw DTMF_RESULT movwf Action call GetDTMFWithTimeOut ; Terminator btfsc TIMEOUT goto WaitStartHash ; TimeOut, restart movfw DTMF_RESULT xorlw '*' bnz WaitStartHash ; No Match on terminator ; Check if we have a valid CHANNEL (1..8) movlw '1' ; Check if >= 1 subwf Channel,W bnc WaitStartHash ; No: Invalid Channel movlw '9' ; Check if < 8 subwf Channel,W bc WaitStartHash ; No: Invalid Channel movlw '0' subwf Channel,F ; Channel now 1..8 ; Check if we have a valid ACTION (0..1) movlw '0' ; Check if >= 0 subwf Action,W bnc WaitStartHash ; No: Invalid Action movlw '2' ; Check if < 2 subwf Action,W bc WaitStartHash ; No: Invalid Action bcf ACTION_ON movlw '0' xorwf Action,F ; Action now 0 or 1 skpz bsf ACTION_ON ; Get the mask for the channel clrf ChannelMask setc _gm rlf ChannelMask,F decfsz Channel,F goto _gm comf ChannelMask,W andwf PORTB,W ; Channel now 0 btfsc ACTION_ON ; Turn ON ? iorwf ChannelMask,W ; Yep movwf PORTB ; Place DTMF command on I/O port goto WaitStartHash ; Wait for next command ;************************************************************************ ;SUBROUTINES ;************************************************************************ ;Wait until a single DTMF character is received ;GetDTMF: ; call DETECT_DTMF ; START DTMF DETECTOR ; btfss DTMF_DETECTED ; goto GetDTMF ; return ;Wait until a single DTMF character is received ;But return after a timeout GetDTMFWithTimeOut: movlw .113 ; Max 3 seconds wait movwf TIME0 movlw .114 movwf TIME1 bcf TIMEOUT ; start 3 sec delay waitDTMF call DETECT_DTMF ; START DTMF DETECTOR btfsc DTMF_DETECTED return ; Got a DTMF tone btfss TIMEOUT goto waitDTMF ; No time out, try again return ; Timed Out ;************************************************************************ ; TO START DTMF DETECTOR - CALL DETECT_DTMF - this will return in ~130 timer cycles ; if DTMF_DETECTED=1 on return one NEW DTMF digit was detected in DTMF_RESULT or '-' for pause ;************************************************************************ ;START DTMF DECODER DETECT_DTMF ; clear the dtmf detector values movf FSR,W movwf FSR_SAVE_DTMF ; SAVE FSR movlw (Low A697SIN)-1 ; start -1 movwf FSR TEMPXX1 incf FSR,F clrf INDF movf FSR,W xorlw LOW A1633COS2 ; CLEAR RAM FROM A697SIN-A1633COS2!!! bnz TEMPXX1 ; table read pointer clrf TABLECOUNTER clrf RESULT1 ; CLEAR RESULT DIGIT movf FSR_SAVE_DTMF, W movwf FSR ; RESTORE FSR bcf DTMF_DONE ; CLEAR DONE, START DTMF ISR ROUTINE DETECT1 btfss DTMF_DONE ; wait for the ISR part to end goto DETECT1 ; got one dtmf digit or '-' ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; DTMF DECISION ALGORITHM ; compute absolute value acc = ABS(acc) STARTTEST movlw low A697SIN movwf FSR TESTFORNEG btfsc INDF,7 goto NEG goto NEXT NEG ; SUBTRACT F FROM 0 movf INDF,W sublw 0 movwf INDF NEXT incf FSR,F movf FSR,W xorlw low A1633COS2+1 ; for 1X and 2X bins the end is A1633COS2 bnz TESTFORNEG ; add acumulator results for sin and cos, results in cos , sin=0 movlw LOW A697SIN movwf FSR MORERESULTS movf INDF,W clrf INDF incf FSR,F addwf INDF,F movf FSR,W incf FSR,F xorlw low A1633COS2 ; for 1X and 2X bins the end is A1633COS2 bnz MORERESULTS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; compare acc with treshold1X ; for 1X bins movlw LOW A697COS ; first result movwf FSR TEMPX1L movf INDF,W sublw treshold1XL ; treshold-w--> W, carry=0 on borrow, ; W=31 carry=0, W=30 carry=1, W=29 carry=1! ; therefore the bit is 0 in RESULT for W > treshold rrf RESULT,F incf FSR,F incf FSR,F movf FSR,W xorlw low A941COS+2 bnz TEMPX1L movlw low A1209COS ; first result movwf FSR TEMPX1H movf INDF,W sublw treshold1XH ; treshold-w--> W, carry=0 on borrow, ; W=31 carry=0, W=30 carry=1, W=29 carry=1! ; therefore the bit is 0 in RESULT for W > treshold rrf RESULT,F incf FSR,F incf FSR,F movf FSR,W xorlw LOW A1633COS+2 bnz TEMPX1H comf RESULT,F ; complement result>> bit is set if A...COS > TRESHOLD ; RESULT bits are 1633/1477/1336/1209/941/852/770/697 FOR VALUE>Treshold ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; compare acc with treshold2X for 2X bins movlw LOW A697COS2 ; first result movwf FSR TEMPX2L movf INDF,W sublw treshold2XL ; treshold-w--> W, carry=0 on borrow, ; W=31 carry=0, W=30 carry=1, W=29 carry=1! ; therefore the bit is 0 in RESULT for W > treshold rrf RESULT2X,F incf FSR,F incf FSR,F movf FSR,W xorlw low A941COS2+2 bnz TEMPX2L movlw low A1209COS2 ; first result movwf FSR TEMPX2H movf INDF,W sublw treshold2XH ; treshold-w--> W, carry=0 on borrow, ; W=31 carry=0, W=30 carry=1, W=29 carry=1! ; therefore the bit is 0 in RESULT for W > treshold rrf RESULT2X,F incf FSR,F incf FSR,F movf FSR,W xorlw LOW A1633COS2+2 bnz TEMPX2H movf RESULT2X, W ; 2X frequencies mask is 0 for 2X freq bin > treshold andwf RESULT, F ; apply 2X frequencies mask over 1X RESULT ; RESULT2 bits are for 2X frequencies 1633/1477/1336/1209/941/852/770/697 FOR VALUE>Treshold ; translate to ASCII ;********************************************** ; GOT ONE CHARACTER, CONVERT IT TO ASCII.... ;********************************************** movf RESULT,W xorlw B'00010001' bz GOTCHA1 movf RESULT,W xorlw D'33' bz GOTCHA2 movf RESULT,W xorlw D'65' bz GOTCHA3 movf RESULT,W xorlw D'18' bz GOTCHA4 movf RESULT,W xorlw D'34' bz GOTCHA5 movf RESULT,W xorlw D'66' bz GOTCHA6 movf RESULT,W xorlw D'20' bz GOTCHA7 movf RESULT,W xorlw D'36' bz GOTCHA8 movf RESULT,W xorlw D'68' bz GOTCHA9 movf RESULT,W xorlw D'40' bz GOTCHA0 movf RESULT,W xorlw D'72' bz GOTCHAPOUND movf RESULT,W xorlw D'24' bz GOTCHASTAR movf RESULT,W xorlw B'10000001' bz GOTCHAA movf RESULT,W xorlw B'10000010' bz GOTCHAB movf RESULT,W xorlw B'10000100' bz GOTCHAC movf RESULT,W xorlw B'10001000' bz GOTCHAD movlw '-' ; GOT ONLY TRASH... goto SENDIT ; CONVERT ASCII GOTCHAPOUND MOVLW H'23' GOTO SENDIT GOTCHASTAR MOVLW H'2A' GOTO SENDIT GOTCHA1 MOVLW H'31' GOTO SENDIT GOTCHA2 MOVLW H'32' GOTO SENDIT GOTCHA3 MOVLW H'33' GOTO SENDIT GOTCHA4 MOVLW H'34' GOTO SENDIT GOTCHA5 MOVLW H'35' GOTO SENDIT GOTCHA6 MOVLW H'36' GOTO SENDIT GOTCHA7 MOVLW H'37' GOTO SENDIT GOTCHA8 MOVLW H'38' GOTO SENDIT GOTCHA9 MOVLW H'39' GOTO SENDIT GOTCHA0 MOVLW H'30' GOTO SENDIT GOTCHAA MOVLW 'A' GOTO SENDIT GOTCHAB MOVLW 'B' GOTO SENDIT GOTCHAC MOVLW 'C' GOTO SENDIT GOTCHAD MOVLW 'D' GOTO SENDIT SENDIT movwf RESULT1 ; PLACE RECEIVED CHAR IN RESULT1 ;newline ; debug print: result of every decode ; movf RESULT1, W ; result of ONE decode ; call SendChar ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; DECISION ALGORITHM : A VALUE MUST BE DETECTED AT LEAST 2 TIMES ; BEFORE IS CONSIDERED VALID ; a missing value is accepted if it was detected at lest 2 times before ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; movf RESULT1, W ; use RESULT1 ASCII result xorwf TEMP_VAL,W ; COMPARE RESULT WITH TEMP_VAL bz DECI1 ; == ; RESULT1<>TEMP_VAL decf TEMP_TIMES, F bnz keepvalue ;<>0 ; reset value goto resetvalue keepvalue ; keep old RESULT1 value, but temp_times=1 - this will allow 1 missing value ; reset temp times to 1 movlw 1 movwf TEMP_TIMES bsf DTMF_RECOVER ; signal recover ; exception when temp_val='-' ==> reset to RESULT1 movlw '-' xorwf TEMP_VAL, W ; compare '-' with result1 bnz keepvalue1 ; <>0 ; reset value resetvalue movlw 1 movwf TEMP_TIMES movf RESULT1, W movwf TEMP_VAL bcf DTMF_RECOVER ; no recover keepvalue1 ; no new digit detected bcf DTMF_DETECTED return ; RESULT1==TEMP_VAL DECI1 incf TEMP_TIMES, F ; INC TEMP_TIMES skpnz decf TEMP_TIMES, F ; if temp_times=0 decrement to 255 ; check if TEMP_VAL='-' movlw '-' xorwf RESULT1, W ; compare '-' with result1 - if so temp_times=1 and return bnz DECI3 ; <>0 movlw 1 movwf TEMP_TIMES goto keepvalue1 DECI3 movlw .2 ; NUMBER OF TIMES DETECTED BEFORE DECIDE FOR A DIGIT! xorwf TEMP_TIMES,W bnz keepvalue1 ; <> no new digit ; GOT ONE VALUE MORE TIMES !!!!!!!!!!! btfss DTMF_RECOVER ; test for recover goto DECI2 ; no recover bcf DTMF_RECOVER ; reset recover bit and return with no new digit goto keepvalue1 ; no new digit DECI2 ; exit with new digit ; return result movf RESULT1, W movwf DTMF_RESULT bsf DTMF_DETECTED return GetUnLockChar movwf PCL UnlockCode: dt "#3479#",0 ; DTMF ACCESS CODE UnLockCodeEnd: IF ( (GetUnLockChar & 0x0FF) >= (UnLockCodeEnd & 0x0FF) ) MESSG "Warning - User Definded: UNLOCK CODE crosses page boundary" ENDIF END Pofavor se poderem me ajudar Soqueria mudar esta senha Segue a pagina onde tirei o projeto ( http://pe1grl.khds.nl/dtmf/dtmf.htm )

Cara genial, para você pode ser simples + para mim iria demorar uma eternidade para chegar nessa perfeição. Com essa proteção extra que você criou tive outra ideia, vou usa-la como uma espécie de bloquei do motor de partida, tipo um ante roubo ja que estou com uma ideia maluca de fazer uma engenhoca completa para o meu carro. Vou fazer um alarme com reconhecimento do controle, junto a ele este projeto que o amigo fez, assim posso usar esta outra proteção junto com o alarme Tenho outros projetos prontos, agora vou juntar tudo num só Obrigado +1 vez pela ajuda Assim que tiver pronto posto aqui como ficou. Grato pela ajuda (ViniciusKruz)

Oláamigo sem querer incomodar, você consegui ver o codigo? desde já agradeço a atenção

Cara você e fera mesmo to a tanto tempo tentando fazer isso e você fez em poucos minutos Amigo simulei aqui no proteus e encontrei só dois pequenos erros 1 ao acionar o botão ele liga, e ao acionar de novo ele não desliga(simulando, ligando e deligando meia chave) 2 ao acionar o botão com o freio acionado o (A4) ele pulsa legal + quando tiro o pé do freio ele desliga tudo Era para desligar só se tivesse um terceiro toque no botão não quando tiro o pé do freio assim teria que andar com pé no freio kkkk Conto com sua ajuda e paciência. Grato + uma vez pela ajuda Obrigado ViniciusKruz adicionado 8 minutos depois To tentando fazer um botão start stop Sei que poderia comprar um + não e mais emocionante você mesmo fazer Assim adquirimos novos conhecimentos e fazemos novas amizades. Funcionamento dele 1 toque no botão ele liga o painel do carro 2 toque ou ele da a partida no carro ou desliga tudo + pra dar a partida o pedaldo freio tem que esta pressionado para desligar basta dar um terceiro toque se puder me ajudar agradeço to com a cabeça a 1000 Valeu. adicionado 18 minutos depois image botão start.bmp adicionado 23 minutos depois imagem 2 start.pdf

Cara muito show Obrigado pele ajuda + Vou abusar um pouco + dos seus conhecimentos Desta forma toda vez que eu quiser ligar meia chave vou ter que dar a partida no carro Precisaria de uma porta independente ex: se aperta o botão uma vez liga o painel, se pressionado de novo desliga, para acionar a partida teria que pisar no freio No estágio da partida teria que ser no modo pulso (desliga o arranque só quando soltar botão) 1 toque liga o painel 2 toque desliga o painel (ou dar a partida se o pedal estiver pressionado) obs:o arranque só para de girar se eu soltar o botão, pois alguns carros têm dificuldades para pegar pela manhã, por isso precisa força o arranque até pegar. 3 toque desliga tudo Muito obrigado pela ajuda Compartilhar o conhecimento e uma das grandes virtudes do ser humano Valeu. Aguardo ajuda.

Olá amigos sou novo poraqui Sou amante do mundo da eletrônica, gosto de criar, estou tentando fazer um botão start stop para meu carro To usando o pic 16f628a e o compilador ccs se possível como vocês são mestre nisso poderiam me ajudar? Algo do tipo Pressionando o botão uma vez liga o painel de instrumento, num segundo toque da a partida Como se no primeiro toque acendesse um led e permaneceria aceso( painel ligado ) e um segundo toque pulsava um segundo led (partida do motor) e um terceiro toque desligaria o primeiro led deligava o carro Grato pela atenção de todos