;PLANTILLA QUE SEPARA EN EL ARCHIVO AUXILIAR "KEY.inc" 
;LA INICIALIZACION DE LOS PUERTOS

	include	  <p16f88.inc>
	include	  "KEY.inc"

J	EQU 0X20			;LOCALIDADES PARA SUBRUTINA DE RETRASO
K	EQU 0X21 
	
		ORG 	0
		CLRF 	PCLATH		;REQUERIDO POR EL BOOTLOADER TINY
		GOTO	INICIO		;AQUI DEBE HABER UN GOTO AL INICIO DEL PROGRAMA	
		ORG 	3		;REQUERIDO POR EL BOOTLOADER TINY. 						
INICIO		PUERTOS			;MACRO PARA INICIALIZAR LOS PUERTOS DE 16F88

;aquí inicia el programa del usuario
		
		END

;rutina de retraso de 200 milisegundos 
         
retro:	movlw	D'250'		; w = 250 decimal
	movwf	J		; J = w
jloop:	movwf	K		; K = w
kloop:	decfsz	K,f		; K = K-1, omite si es cero
	goto 	kloop
	decfsz	J,f		; J = J-1, omite si es cero
	goto	jloop
	return