MOVLW B'00001100' ;3272 PARTE ALTA
MOVWF R3272_HIG
MOVLW B'11001000'
MOVWF R3272_LOW ;3272 PARTE BAJA
INIC_F MOVF R3272_LOW,0 ;RESUT_LOW - R3272_LOW
SUBWF RESULT_LOW,1
BTFSS STATUS,0
GOTO AAA
MOVF R3272_HIG,0
SUBWF RESULT_HIG,1 ;RESUT_HIG - R3272_HIG
BTFSS STATUS,0
GOTO BBB
INCF mA,1
GOTO INIC_F
AAA MOVLW .1
SUBWF RESULT_HIG,1
BTFSS STATUS,0
GOTO BBB
MOVF R3272_HIG,0
SUBWF RESULT_HIG,1
BTFSS STATUS,0
GOTO BBB
INCF mA,1
GOTO INIC_F