;desde Pc, se usa el programa "hyperterminal"
;modo asincrono a 300 bauds, 300 8-N-1
;desde el teclado de la PC se envía un caracter hacia EVOLUPIC
;usando el puerto COM1. El EVOLUPIC funciona como repetidor (ECO) y
;regresa el caracter hacia la PC para desplegarlo en el monitor.
;también se puede enviar un archivo de texto desde hyperterminal
;para configurar el envío de un archivo de texto, siga lo siguiente:
;en hyperterminal seleccionar: >archivo>propiedades>configuración
;emulación=autodetect, Id.terminal=ANSI, líneas en buffer=500
;>configuración ASCII
;al enviar ASCII:
;NO SELECCIONAR: "enviar fin de línea"
;NO SELECCIONAR: "eco de los caracteres escritos localmente"
;reterdo de línea=0 milisegundos
;retardo de caracter=0 milisegundos
;al recibir ASCII:
;seleccionar:"agregar avance de línea al final de cada línea" 
;seleccionar:"ajustar líneas que sobrepasen ancho de terminal"
;clic en "aceptar"
;>transferir>enviar archivo de texto (seleccionar un archivo)
;usa cable DB9 macho-DB9 hembra  


	processor 16F628
	include <p16f628.inc>
	__config _XT_OSC & _WDT_OFF & _PWRTE_OFF & _MCLRE_ON & _BODEN_OFF & _LVP_OFF

	#DEFINE	BANCO0	BCF	STATUS,5
	#DEFINE	BANCO1	BSF	STATUS,5

INICIO	ORG	00H
	BANCO1
	MOVLW	02H	;B1/RX entrada, B2/TX salida
	MOVWF	TRISB	;=> RB1=1 , RB2=0
	MOVLW	0CFH	;x=207(10)=CF(16) en formula de baud rate
	MOVWF	SPBRG	;para 300 bauds, modo sincrono
	MOVLW	00H	;BRG=0, SYNC=0, TXEN=0, TX9=0
	MOVWF	TXSTA	;baja Vel., Asin, no Hab. Tx, 8 bits de datos
	BANCO0
	MOVLW	0X00
	MOVWF	RCREG
	MOVWF	TXREG
	MOVLW	0X90	
	MOVWF	RCSTA	;bits 7 SPEN y 4 CREN a uno
RECIBO	BTFSS	PIR1,5
	GOTO	RECIBO
	MOVFW	RCREG	;algo del teclado
	MOVWF	TXREG	;valor a enviar de aqui pasa a TSR	
	BANCO1	
	BSF	TXSTA,5
ENVIO	BTFSS	TXSTA,1
	GOTO	ENVIO
	NOP
	BANCO0
	GOTO	INICIO
	END
	
