

;******************** Registros de control *******************

status		equ		03h
porta		equ		05h
portb		equ		06h
portc		equ		07h
portd		equ		08h
porte		equ		09h

pir1		equ		0ch
rcsta		equ		18h
txreg		equ		19h
rcreg		equ		1ah

trisa		equ		85h
trisb		equ		86h
trisc		equ		87h
trisd		equ		88h
trise		equ		89h
txsta		equ		98h
spbrg		equ		99h


;********************** Registro de usuario ***********************

loop		equ		30h
loop1		equ		31h
tiempo		equ		35h
tiempo2		equ		36h
tiempo3		equ		37h
dato		equ		40h


list p = 16f877


;********************* inicia el programa *************************

		org	00
		goto	inicio

;******************** Rutina de un segundo **************************

unsegundo	movlw	d'13'		; cargo los valores respectivos 
		movwf	tiempo		; en la variables de control
atraz3		movlw	d'252'		; 252
		movwf	tiempo2
atraz2		movlw	d'100'		; 100
		movwf	tiempo3
		
atraz		decfsz	tiempo3,1	; decrmento tiempo3 
		goto	atraz		; hasta llegar a cero salta
		
		decfsz	tiempo2,1	; decremento tiempo2
		goto	atraz2		; hasta llegar a cero salta

		decfsz	tiempo,1	; decremento tiempo 
		goto	atraz3		; hasta llegar a cero salta
		return


;********************* Rutina que enva por medio de la norma RS-232 *******************


envia		movf	rcreg,0
espere		btfss	pir1,5
		goto	espere
		movf	rcreg,0
		;addlw	30h		; ASCII
		movwf	portb
		return



inicio		bcf	status,6
		bsf	status,5	; banco 1
		
		movlw	b'00000000'	
		movwf	trisb		; configuro el puerto b
		movlw	b'11111111'
		movwf	trisc		; configuro el puerto de transmisin
		movlw	b'11111111'
		movwf	porta
		movwf	portd
		movwf	porte		; configuro el resto de puertos como entradas

		movlw	b'00100110'
		movwf	txsta		; configuro la comunicacin asincrona
		movlw	d'103'		; configuro a 4MHz
		movwf	spbrg		; 2600bps,8,1
		
		bcf	status,5	; me paso al banco 0
		movlw	b'11011000'
		movwf	rcsta		; habilitar el mdulo RS-232
		
		clrf	portb
		clrf	dato		; limpio la variable de transmisin
		clrf	portb		; limpio el puerto b
hasta		call	envia		; envia por RS-232
		goto 	hasta
		end		
		
				