Circuitos

#
list p=16F84A
#
#include P16F84A.inc
#
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
#

#
;**** Declaración de Registros ****
#
RS232_ContBits equ 0x0C
#
RS232_Dato equ 0x0D
#Flags equ 0x0E
#
Contador equ 0x0F
#
#
;**** Definiciones para el ensamblador ****
#
#DEFINE RS232_RX PORTB,0 ; Línea por la que se reciben los datos.
#
#DEFINE RS232_TX PORTB,1 ; Línea porla que se envían los datos.
#
#DEFINE Kbhit Flags,0 ; Indica si se ha recibido algun dato.-
#
;**** Definición de macros ****
#
; Se envia la data de un registro a PC.-
#
Putreg macro Registro#
movfw Registro
#
call RS232_EnviaDato
#
endm
#
; Se envia un literal a PC.-
#
Putc macro ACKII
#
movlw ACKII
#
call RS232_EnviaDato
#
endm
#

#;//////////////////////////////////////////
#
;**** Inicio del Micro ****
#
Reset
#
org 0x00 ; Aqui comienza el micro.-
#
goto Inicio ; Salto a inicio de mi programa.-
#
;**** Vector de Interrupcion ****
#
org 0x04 ;Atiendo Interrupcion.-
#
goto ISR
#

#
; **** Programa Principal ****
#
;**** Configuracion de puertos ***
#
org 0x05 ; Origen del codigo de programa.-
#
Inicio
#
call RS232_Puerto ; Seinicializa el puerto e interrupcion para enviar y recibir datos RS232.-
#
;**** Espera a recibir Dato ****
#
Bucle
#
btfss Kbhit ; ¿Se recibio Dato?
#
goto $-1 ; No, seguimos esperando.-
#
bcfKbhit ; Si, borramos bandera.-
#
Putreg RS232_Dato ; Enviamos lo guardado en RS232_Dato.-
#
goto Bucle ;
#
;.............................................
#
;**** Rutina de servicio deInterrupcion ****
#
;**** Interrupcion por RB0 ****
#
; Se lee dato enviado por PC.-
#
; En este caso no es necesario hacer copias de respaldo de W y STATUS.-
#;----------------------------------------------------------------------------------------------
#
; El 1º bit recibido se guarda en RS232_Dato,7; al rotarse 7 veces (Se recibe el byte completo)
#
; este queda en RS232_Dato,0.-
#...