LIST P=16F877A INCLUDE __CONFIG _CP_ALL & _DEBUG_OFF & _WRT_OFF & _CPD_ON & _LVP_OFF & _BODEN_ON & _HS_OSC & _WDT_OFF & _PWRTE_ON ERRORLEVEL -302 ERRORLEVEL -305 ERRORLEVEL -306 SALVAR_W equ 0x05C SALVAR_STATUS equ 0x05D SALVAR_RESUL equ 0x05E SALVAR_R_ContA equ 0x05F SALVAR_R_ContB equ 0x060 SALVAR_FSR equ 0x040 SALVAR_PCLATH equ 0x041 SALVAR_OPTION_REG equ 0x042 bit_recepcion equ 0x061 bit_cont equ 0x062 bit_cont_temp equ 0x063 RCSTA_temp equ 0x064 dato_recibido equ 0x065 dato_recibido_temp equ 0x066 RESET ORG H'00' GOTO main ORG H'04' ;VECTOR INTERRUPCION goto INTERRUP main BCF STATUS,RP0 BCF STATUS,RP1 ;BANCO 0 CLRF PORTA CLRF PORTB CLRF PORTC CLRF PORTD CLRF PORTE BSF STATUS,RP0 ;BANCO 1 CLRF TRISA CLRF TRISB CLRF TRISC CLRF TRISD CLRF TRISE MOVLW 0x06 MOVWF ADCON1 ; BSF TRISC,6 bcf TRISC,6 BSF TRISC,7 ; ;INICIALIZACION DEL MODULO USART ; BSF TXSTA,BRGH MOVLW .25 MOVWF SPBRG BCF TXSTA,SYNC ;ASINCRONO BCF STATUS,RP0 ;BANCO 0 BSF RCSTA,SPEN ; ;ACTIVACION DEL MODULO USART ; bcf PORTC, 5 BSF RCSTA,CREN ; ;RECEPCION DE DATOS DEL USART ; INICIO BTFSS PIR1,RCIF GOTO INICIO MOVFW RCREG MOVWF PORTD BCF RCSTA,OERR BCF RCSTA,CREN ;DESHABILITO LA RECEPCION NOP ;PARA ESTABILIZAR. BSF RCSTA,CREN ;HABILITO LA RECEPCION GOTO INICIO INTERRUP nop nop retfie END