;PLANTILLA QUE SEPARA EN EL ARCHIVO AUXILIAR "KEY.inc" ;LA INICIALIZACION DE LOS PUERTOS include 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