inaccurate frequency using TMR1 PI18F452

[nkarpovich]

Disable  
miint:
	IF PIR1.0 = 1 THEN
		T1CON.0 = 0
		OFFCNT_H =TMR1H
		OFFCNT_L =TMR1L
		IF ARRANCA_MOTOR = 1 THEN
			PORTC.5 = 0				'PULSO DE STEP
			PORTA.5 = 0					'SALIDA PARA SHAFT
			PRESCALER = FRECUENCIA + OFFCNT
			TMR1H = PRESCALERH
			TMR1L = PRESCALERL
			PORTA.5 = 1				'SALIDA PARA SHAFT
			PORTC.5 = 1				'PULSO DE STEP
		ELSE
			IF EMULACION = 1 THEN
				IF ACTIVA_PRESENCIA = 0 THEN
					TRIGGER = 0
				ELSE
					TRIGGER = 1
				ENDIF
			ENDIF
		ENDIF
	'*****************************************************************************************************
	ENDIF
	T1CON.0 = 1
	PIR1.0 = 0
	'**************************** INTERRUPCION POR TIMER 0  ****************************
	
salida1:
	Resume                 ' retorna al programa principal
 	Enable