NAO CONSIGO FAZER FUNCIONAR, ESSE CODE DO FABIO.

[PROF.PARDAL]

OLA SEI QUE ESSE CODE JA FOI POSTADO AQUI NO FORUM PELO NOSSO COLEGA FABIO, MAS TAMBÉM SEI QUE ELE DEIXOU ALGUMAS PEGADINHA NO CODE. ALGUÉM PODE ME AJUDA.
ESTOU A DIAS TENTANDO E NAO CONSIGO. FAZER FUNCIONAR


O código é esse aqui:

Code:

LIST P=12F629, R=HEX
#INCLUDE <P12F629.INC>
ERRORLEVEL -302

__CONFIG _CP_OFF & _BODEN_OFF & _MCLRE_ON & _WDT_OFF & _PWRTE_OFF & _INTRC_OSC_NOCLKOUT
; criado POR FABIO RICARDO DA SILVA
; PRO ENERGY SISTEMAS LTDA
; 06/06/2003 - 14:58 HRS
; LEITURA DE CÓDIGO/ APRENDISAGEM (GRAVAÇÃO E2PROM )
; ENCODER HT6P20B COM R/OSC DE 1,4 A 2,2 M-OHMS

; bt learn com pull up de 10K
;
;I/O defininições para PIC12F629
; +--------------------------------------------+
;VDD -(01)-|VDD VSS-|-(08)- GND
;N/U -(02)-|GP5/T1CKI/OSC1/CLKIN GP0/CIN+/ICSPDAT|-(07)- LED-LEARN
;OUT1 -(03)-|GP4/T1G-/OSC2/CLKOUT GP1/CIN-/ICSPCLK|-(06)- LEARN
;Reset -(04)-|GP3/MCLR-/VPP GP2/TOCKI/INT/COUT|-(05)- RFin
; +--------------------------------------------+
;%%%%%%%%%%%%%%%%%%%% PAGINAÇÃO DE BANCOS DE MEMÓRIA %%%%%%%%%%%%%%%%%%%%%%%%%%%%
#DEFINE BANK0 BCF STATUS, RP0
#DEFINE BANK1 BSF STATUS, RP0
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;***********************************************
;************ PROGRAMA INICIAL ***************
;***********************************************
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% PAGINAÇÃO DE VARIAVEIS %%%%%%%%%%%%%%%%%%%%%%%%%%
CBLOCK 0X20
CNTL ;SINC DECODER LOW
CNTH ;SINC DECODER HIG
BTEMPO ;CONTADOR DE TEMPO
AUX2 ;CONTADOR TEMPO
AUX ;CONTADOR TEMPO
BYTE1 ;LSB DADOS
BYTE2
BYTE3 ;MSB DADOS
TEMP ; VARIAVEL DO TEMPO DE ESPERA PARA APRENDIZAGEM
DADO ; PARA LEITURA E GRAVAÇÃO DA EEPROM
AUXILIAR ; ENDEREÇO PARA LEITURA E GRAVAÇÃO
NBITS ;VARIAVEL DO N° DE BITS A SEREM LIDOS
MAX ;VARIAVEL DO N° MÁXIMO DE CONTROLES A GRAVAR NA MEMORIA
FLAGS ;SINALIZAÇÕES DE LÓGICA DO SISTEMA
PDel0 ; VÁRIAVEL DELAY
PDel1 ;VARIAVEL DELAY
VAR ;VARIAVEL DE TEMPORISAÇÃO DE GRAVAÇÃO OU APAGAR
W_TEMP ; WORKS TEMPORÁRIO PARA INTERRUPÇÃO
STATUS_TEMP ; STATUS TEMPORÁRIO PARA INTERRUPÇÃO
ENDC
;%%%%%%%%%%%%%%%%%%%%%%% CONSTANTES DO SISTEMA ENTRADAS E SAIDAS %%%%%%%%%%%%%%%

#DEFINE LED GPIO,0 ; LED INDICATIVO DE ROTINA DE GRAVAÇÃO
#DEFINE LEARN GPIO,1 ; BOTÃO PARA APRENDISADO OU APAGAR MEMORIA
; R DE 10K PULL-UP E CHAVE PULL-DOWN
#DEFINE RFin GPIO,2 ; ENTRADA DO SINAL DIGITAL ( PINO 7 RECEPTOR )
#DEFINE OUT1 GPIO,4 ; SAÍDA DO RELÊ
;###############################################################################
#DEFINE CHAVE INTCON, GIE ; CHAVE GERAL DE INTERRUPÇÃO
#DEFINE APRENDER FLAGS, 1 ;FLAG PARA INFORMAR SE É PARA APRENDER
#DEFINE B0_FLAG FLAGS, 2 ;FLAG DE CONTROLE DA SAIDA DO RELÊ
#DEFINE TEMPO INTCON, T0IE ; flag para ligar a interrupção TMR0
#DEFINE FOI_TEMPO INTCON, T0IF ; FLAG DE ESTOURO POR TMR0

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
INICIAL EQU 0X01 ; ENDEREÇO INICIAL DE LEITURA E COMPARAÇÃO DA EEPROM
POS_MEM EQU 0X00 ; ENDEREÇO QUE INDICA A ULTIMA CASA GRAVADA NA EEPROM


;&&&&&&&&&&&&&&&&&&INICIALIZAÇÃO DA EEPROM &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
ORG H'2100'+POS_MEM
DE 0X00
;%%%%%%%%%%%%%%%%%%% INICIO DE MEMÓRIA DE PROGRAMA %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ORG 0X00
GOTO INICIO
;%%%%%%%%%%%%%%%%%%% VETOR DE INTERRUPÇÃO %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ORG 0X04
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
; ROTINA DE LEITURA DE CÓDIGO DO RECEPTOR DE RF. QUANDO CHAMADA, FAZ A LEITURA DO ENCODER
; E COMPARAÇÃO COM EEPROM, LIGANDO OU DESLIGANDO O RELÊ.E SE O FLAG APRENDER ESTIVER LIGADO
;ELE CAI NA ROTINA DE MEMORIZAÇÃO DO CÓDIGO.
;*********************************************
BANK0 ; HOUVE INTERRUPÇÃO !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
BCF CHAVE ; DESLIGA chave global de interrupção
BTFSS FOI_TEMPO ; FOI ESTOURO DE TMR0 ?
GOTO RECEIVE ; NÃO ENTÃO É INT RB0
TIMER
BCF FOI_TEMPO ; SIM, !!! LIMPA FLAG TEMPO
CLRF TMR0 ; LIMPA VARIAVEL TMR0
BCF TEMPO ; DESLIGA CHAVE DE INTERRUPÇÃO TMR0
DECFSZ TEMP,F ; DECREMENTA VARIAVEL DE TEMPO = 6.535s
GOTO ESPERANDO ; VAI PARA ESPERAR NOVA INTERRUPÇÃO
GOTO SAI_LEARN ; VAI PARA SAIR DA APRENDISAGEM

ESPERANDO
;BCF FOI_TEMPO
BSF TEMPO ; LIGA CHAVE DE INTERRUPÇÃO DE TMR0
BSF CHAVE ; LIGA CHAVE GERAL DE INTERRUPÇÃO
NOP ; NÃO FAZ NADA
GOTO $-1 ; LOOPING ESPERANDO INT TMR0 OU RB0

SAI_LEARN
BTFSS LEARN ; O BOTÃO LEARN ESTA APERTADO
GOTO APAGA_TUDO ; sim APAGA TODA A MEMORIA
CLRF VAR ; não sai int
BCF LED ; APAGA LED DE SINALIZAÇÃO DE ESTADO DE PROGRAMAÇÃO
BCF APRENDER ; LIMPA FLAG QUE INFORMA QUE É PARA APRENDER
BCF TEMPO ; DESLIGA CHAVE DE TMR0
BCF FOI_TEMPO
BSF CHAVE ; LIGA CHAVE GERAL DE INTERRUPÇÃO
GOTO PP ; VAI PARA LOOPING PRINCIPAL
;*********************************************
RECEIVE: ;SINCRONISMO
MOVLW .8 ; 4 MHZ / .16 ;8 MHZ ;.4
MOVWF CNTH
MOVLW .200
MOVWF CNTL
BTFSS RFin ; <<XXXXXXX estava com logica invertida. aff
GOTO FIM_RC
DECFSZ CNTL,F
GOTO $-3
DECFSZ CNTH,F
GOTO $-7

SINCRONISMO_OK
MOVLW 018H ;(24D)
MOVWF NBITS
CLRF BYTE1
CLRF BYTE2
CLRF BYTE3


MOVLW .8 ; 4 MHZ / .16 ;8 MHZ ;.5
MOVWF CNTH
MOVLW .200
MOVWF CNTL
BTFSC RFin ;Espera entrada ficar 1
GOTO LERBITBASE ;
DECFSZ CNTL,F
GOTO $-3
DECFSZ CNTH,F
GOTO $-7
GOTO FIM_RC

LERBITBASE
MOVLW 0x7F ; 4 MHZ / 0X3D ;8 MHZ
MOVWF BTEMPO
BTFSS RFin ;[2]
GOTO CALC_TBASE ;[0]
INCFSZ BTEMPO,F ;[1]
GOTO $-3 ;[2]
GOTO FIM_RC

CALC_TBASE
MOVLW 0x7F ; 4 MHZ / 0X3D ;8 MHZ
SUBWF BTEMPO,F ;Recupera Base de Tempo Bit Inteiro

AGUARDAR_LW
CLRC
RRF BTEMPO,W ;
MOVWF CNTL ;
MOVF BTEMPO,W ;
MOVWF CNTH ;
RLF CNTH,W
MOVWF AUX2 ;AUX2=1/2 Te
BCF STATUS,C ;
RRF BYTE3,F ;
RRF BYTE2,F ;
RRF BYTE1,F ;

BTFSS RFin ; [2]
GOTO RECEBENDO_BITS ; [0]
DECFSZ AUX2,F ; [1]
GOTO $-3 ; [2]
GOTO FIM_RC

RECEBENDO_BITS
GOTO DL1
D_DL1
BTFSC RFin
GOTO FIM_RC
GOTO DL2
D_DL2
BCF BYTE3,7
BTFSS RFin
BSF BYTE3,7
GOTO DL3
D_DL3
BTFSS RFin
GOTO FIM_RC
DECFSZ NBITS,F
GOTO AGUARDAR_LW
GOTO RECEBEU_OK

;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
DL1:
DECFSZ CNTL,F ;[1]
GOTO $+2 ;[2]
GOTO $+2
GOTO $-3 ;[2]
CLRC
RRF CNTH,W ;
MOVWF CNTL ;Meio bit
GOTO D_DL1
;|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
DL2
MOVFW CNTH
MOVWF AUX
DECFSZ AUX,F ;[1]
GOTO $+2 ;[2]
GOTO D_DL2
GOTO $-3 ;[2]
;***************************************************************
DL3
MOVFW CNTH
MOVWF AUX
DECFSZ AUX,F ;[1]
GOTO $+2 ;[2]
GOTO D_DL3
GOTO $-3 ;[2]

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
; ATÉ AQUI:
; Recebeu todos os 24 bits em Byte1,Byte2,Byte3
; Byte1=LSB
; Byte3=MSB
; Os botões do controle estarão nos bit's 6,7 do
; byte3
RECEBEU_OK:
BTFSS APRENDER ; É PARA APRENDER ?
GOTO COMPARA ; N- COMPARA APENAS E TOMA A DECISÃO
GOTO APRENDE ; S- GRAVA NA EEPROM
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;NÃO RECEBEU NADA
;FOI ERRO DE LEITURA
;APENAS UM RUIDO
;OU O CODIGO NÃO É DO HT6P20B
FIM_RC:
BTFSS APRENDER
GOTO $+2
GOTO ESPERANDO
BSF CHAVE
GOTO PP



;$$$$$$$$$$$$$$ configurações dos sfr's do sistema $$$$$$$$$$$$$$$$$$$$$$$$$$$
INICIO
configuracoes:
BANK1 ; banco 1
MOVLW B'00001110' ;S = SAIDA / E= ENTRADA
MOVWF TRISIO ;GPIO/0-S/1-E/2-E/3-E/4-S/5-S
MOVLW B'11000111'
MOVWF OPTION_REG ; desliga pull ups, INTERRUPÇÃO RB0 SUBIDA , PRESCALER 1/256
MOVLW B'10000000'
MOVWF OSCCAL ;oscilador interno de 4 mhz -- ofset de 1/2 clock aprox 4mhz
BANK0 ; banco 0
MOVLW B'10010000'
MOVWF INTCON ; chave global de interrupção ligada
MOVLW B'00000111'
MOVWF CMCON ; desliga comparadores do porta
CLRF GPIO ; coloca GPIO toda a 0
CLRF BYTE1 ; limpeza de variáveis
CLRF BYTE2
CLRF BYTE3
CLRF VAR
CLRF FLAGS


;$$$$$$$$$$$$$$$$$$$$$$$ looping principal $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
PP:
BTFSS LEARN
GOTO PP1
GOTO $-2
PP1
BCF CHAVE
MOVLW .100
MOVWF TEMP
BSF APRENDER
BSF LED
BSF TEMPO
BSF CHAVE
NOP
GOTO $-1

APAGA_TUDO
BCF CHAVE
BCF APRENDER
BCF LED
CALL PDelay
BSF LED
CALL PDelay
BCF LED
CLRF VAR
MOVLW .90
MOVWF MAX
MOVLW 0X00
MOVWF AUXILIAR
MOVLW 0X00
MOVWF DADO
CALL GRAVA_E2PROM
APAGANDO
INCF AUXILIAR, F
MOVLW 0XFF
MOVWF DADO
CALL GRAVA_E2PROM
DECFSZ MAX, F
GOTO APAGANDO
BSF LED
CALL PDelay
BCF LED
CALL PDelay
BSF INTCON, GIE
GOTO PP

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;ROTINA DE APRENDIZADO DO CÓDIGO DO CONTROLE GRAVAÇÃO NA EEPROM
APRENDE:
MOVLW 0X00
MOVWF AUXILIAR
CALL LE_E2PROM
MOVF DADO,W
MOVWF AUXILIAR
INCF AUXILIAR, F
MOVF BYTE1, W
MOVWF DADO
CALL GRAVA_E2PROM
INCF AUXILIAR, F
MOVF BYTE2, W
MOVWF DADO
CALL GRAVA_E2PROM
INCF AUXILIAR, F
MOVF BYTE3, W
MOVWF DADO
CALL GRAVA_E2PROM
MOVF AUXILIAR, W
MOVWF DADO
MOVLW 0X00
MOVWF AUXILIAR
CALL GRAVA_E2PROM
BCF APRENDER
BCF LED
CALL PDelay
BSF INTCON, GIE
GOTO PP
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
; ROTINA DE COMPARAÇÃO DO CÓDIGO RECEBIDO E COMPARAÇÃO COM A EEPROM
COMPARA:

CLRF AUXILIAR
CLRF MAX
MOVLW 0X01
MOVWF AUXILIAR
MOVLW .90
MOVWF MAX

LENDO_E2PROM
CALL LE_E2PROM
MOVF DADO, W
BCF STATUS, Z
XORWF BYTE1, W
BTFSS STATUS, Z
GOTO OUTRO
GOTO COMP

OUTRO
INCF AUXILIAR, F
DECFSZ MAX, F
GOTO LENDO_E2PROM
BSF INTCON, GIE
GOTO PP

COMP
INCF AUXILIAR, F
CALL LE_E2PROM
MOVF DADO, W
CLRZ
XORWF BYTE2, W
BTFSS STATUS, Z
GOTO OUTRO
INCF AUXILIAR, F
CALL LE_E2PROM
MOVF DADO, W
CLRZ
XORWF BYTE3, W
BTFSS STATUS, Z
GOTO OUTRO
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;ROTINA DE EXECUÇÃO DOS BOTÕES CASO A COMPARAÇÃO COM EEPROM FOI OK
MAIN_LOOP
BSF OUT1
CALL PDelay
BCF OUT1
BSF CHAVE
GOTO PP


;B1_BT
; BTFSC B0_FLAG;
; GOTO BAIXO_1
; GOTO ALTO_1
;BAIXO_1;
; BCF B0_FLAG
; BSF OUT1
; GOTO FINAL
;ALTO_1
; BSF B0_FLAG
; BCF OUT1
; GOTO FINAL



;FINAL
; CALL PDelay
; BSF CHAVE
; GOTO PP


;#####################################################################


;#####################################################################

;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;ROTINA DE GRAVAÇÃO DA EEPROM - CHAMADA COM ENDEREÇO EM AUXILIAR E DADO EM DADO

GRAVA_E2PROM
MOVF AUXILIAR, W
BANK1
MOVWF EEADR
BANK0
MOVF DADO, W
BANK1
CLRF EEDATA
MOVWF EEDATA
BSF EECON1,WREN
MOVLW 0X55
MOVWF EECON2
MOVLW 0XAA
MOVWF EECON2
BSF EECON1,WR
BCF EECON1,WREN
BTFSC EECON1,WRERR
GOTO $-9 ; GRAVA_E2PROM+4
BTFSC EECON1,WR
GOTO $-3
BANK0
RETURN
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
;ROTINA DE LEITURA DA EEPROM - CHAMADA COM ENDEREÇO EM AUXILIAR E RETORNA COM DADO
;EN DADO
LE_E2PROM
CLRF DADO
MOVF AUXILIAR, W
BANK1
MOVWF EEADR
BSF EECON1, RD
NOP
NOP
MOVF EEDATA, W
BANK0
MOVWF DADO
RETURN
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;ROTINA DE DELAY DE 500 MS
PDelay movlw .239
movwf PDel0
PLoop1 movlw .232
movwf PDel1
PLoop2 NOP
PDelL1 goto PDelL2
PDelL2 goto PDelL3
PDelL3 NOP
decfsz PDel1, 1
goto PLoop2
decfsz PDel0, 1
goto PLoop1
PDelL4 goto PDelL5
PDelL5 goto PDelL6
PDelL6 goto PDelL7
PDelL7 NOP
return
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%5



END

[Djalma Toledo Rodrigues]

A Priori

Parece que o tratamento de Interrupção não esta correto

não encontrei a Instrução de Retorno de Interrupção --- Retfie

Reveja

DJ

[Andre_Cruz]

Prof

Tem um BTFSS ai no lopping principal estranho, não ?

[proex]

Pessoal, o Fabim colocava esses códigos cheios de bugs, só pra ilustrar.

A tática era para quando alguém reclamar que nao conseguiu rodar o código, ele cobrar R$ 500,00 para enviar o código correto.

Eu caí nessa.

.

[tcpipchip]

Acho que era pegadinha do ENADE!

[ÁgioFelipe]

Eu consegui botar pra funcionar esse código do fábio, não sei alguém viu o post, mas ele não permitiu que postasse o código correto.

[fabim]

Pessoal, o Fabim colocava esses códigos cheios de bugs, só pra ilustrar.

A tática era para quando alguém reclamar que nao conseguiu rodar o código, ele cobrar R$ 500,00 para enviar o código correto.

Eu caí nessa.

.

!!!!!!!! SEPHODEU !!!!!!!!!!

maninho.
Eu possuo dois desses ai.
Um em ASM generico, e um em C tambem generico.rsrs

Eu posso te vender os dois codes por uns 500tim, um tem até projetim pronto pra usar no ac com fonte capacitiva.rsrsrs

Abraços



--------------------------------------------------------------------------------
From: xxxvirtual@hotmail.com
To: fableach@hotmail.com
Subject: estou enterescado.... decodificador de controle remoto
Date: Tue, 8 Nov 2011 23:13:44 +0000


óla fabio esse code de controle remoto, em anexo e seu, encontrei no forum.
e estou interessado, se vc tiver outro mais atual. mande oque vc tive, e valores.
estou afim de compra. mande preços.

[tcpipchip]

Professor Pardal
Pague os 500,00 reais para o FABIM
Quantas horas voce ja perdeu em cima ?
TCPIPCHIP

[MOR_AL]

Professor Pardal
Pague os 500,00 reais para o FABIM
Quantas horas voce ja perdeu em cima ?
TCPIPCHIP

Pior ainda...
Se investisse esse tempo em estudo, já teria sabido fazer, e ...teria adquirido conhecimento para outros projetos.
Agora se o problema é de tempo, aí então só resta “comprar”; o que não seria digno do professor Pardal da Disney.
MOR_AL

[Djalma Toledo Rodrigues]

E QUANTO A ÉTICA?

ISSO É ÉTICO?

É CORRETO?



DJ

[vtrx]

Pardal,se voce não trocou seu nick a um tempo atraz,eu postei uma possível correção em outro forum que tinha a mesma dúvida(foi quando descobrí que era daqui),inclusive aconselhei a mandarE-mail para o Fabeen.
Use o Google...

[ronald]

Não sei ... mas parece que não está sendo zerando o flag da interrupção

[mastk]

A verdade sobre o Fabim:

[fabim]

http://www.asm51.eng.br/phpbb/viewtopic ... ight=chega

peguei trauma do bleach, !!!! Fillers do caraio !!! Desisti de assistir...

to apaixonado, to gritando ao mundo, one peace eu amo voce !!!

[mastk]

Estou vendo que estou no lucro comprando só os mangas rs. O ritmo é mais lendo, mas sem fillers.

Ok, então outra verdade sobre o fabim:



Não confiem no fabim!

Proex, fuja dele é uma cilada!