retardo
bcf PIR1,TMR1IF ;Deshabilito la interrupcion de TMR1
movlw 0xFF; Cargo el valor de 65513 que he calculado
movwf TRM1H
movlw 0XE9
movwf TMR1L
bsf T1CON,TMR1ON ;Activo TMR1
espera btfss PIR1,TMR1IF
goto espera
bcf T1CON,TMR1ON ;Desactivo TMR1
return