**********************************************************************
; Monitorear Corriente
;**********************************************************************
monitor
bcf PIR1,TMR1IF ;Limpio bandera del Timer1
bcf T1CON,TMR1ON ;Apago Timer1
movlw 0x0A ;Checar si se cumplio un lapso mayor de 100 mseg
xorwf cont_Timer1,W
btfss STATUS,Z
goto salir_monitor
clrf cont_Timer1 ;El lapso mayor de 100mseg si se cumplio
btfss INTCON,TMR0IF
goto mensaje_off ;No se desbordo Timer0
;mensaje_on
;Se desbordo Timer0
bcf INTCON,TMR0IF
movlw 0xFA
movwf TMR0
btfsc tcpServerFlags,candado
goto salir_monitor
;Candado abierto y resultado positivo
bsf tcpServerFlags,candado
bcf tcpServerFlags,candado2
clrf indiceTx
movf indiceTx,W
call tabla3 ;Se carga el caracter que se va enviar
call SerialSend ;Se envia el caracter
incf indiceTx,F ;Se incrementa el indice del siguiente caracter que va hacer enviado
xorlw 0x0A
btfss STATUS,Z
goto $-6
goto salir_monitor
mensaje_off
btfsc tcpServerFlags,candado2
goto salir_monitor
;Candado abierto y resultado negativo
bcf tcpServerFlags,candado
bsf tcpServerFlags,candado2
clrf indiceTx
movf indiceTx,W
call tabla5 ;Se carga el caracter que se va enviar
call SerialSend ;Se envia el caracter
incf indiceTx,F ;Se incrementa el indice del siguiente caracter que va hacer enviado
xorlw 0x0A
btfss STATUS,Z
goto $-6
movlw 0xFA
movwf TMR0
salir_monitor
incf cont_Timer1,F
movlw 0xE7
movwf TMR1H
movlw 0x96
movwf TMR1L
bsf T1CON,TMR1ON
return
;********************************************************************************************