MANUAL DE MICROCONTROLADORES PIC
MANUAL DE MICROCONTROLADORES PIC
MANUAL DE MICROCONTROLADORES PIC
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Decre<br />
<strong>DE</strong>CFSZ PERSIST,F<br />
GOTO Decre<br />
NOP<br />
NOP<br />
MOVLW 0FFh<br />
MOVWF PORTA<br />
<strong>DE</strong>CFSZ CounterDig,F<br />
GOTO Salt1<br />
NOP<br />
NOP<br />
NOP<br />
RETURN<br />
Tabla<br />
ADDWF PCL,F<br />
RETLW 03h ;0<br />
RETLW 9Fh ;1<br />
RETLW 25h ;2<br />
RETLW 0Dh ;3<br />
RETLW 99h ;4<br />
RETLW 49h ;5<br />
RETLW 41h ;6<br />
RETLW 1Fh ;7<br />
RETLW 01h ;8<br />
RETLW 19h ;9<br />
RETLW 0FDh ;SEG g<br />
RETURN<br />
;************************************************************************<br />
****<br />
HEX_BCD<br />
BCF ADCON0,1 ;FIN <strong>DE</strong> CONVERSIÓN<br />
MOVF ADRES,W ;RESULTADO <strong>DE</strong> LA CONV. A/D<br />
SUBLW 0FBh<br />
BTFSS _c ;<br />
GOTO OVERFLOW<br />
;SITUACION NORMAL<br />
MOVF ADRES,W<br />
MOVWF L_BYTE ;PARA LA CONVERSION B2_BCD<br />
CLRF H_BYTE ;PARA LA CONVERSION B2_BCD<br />
CALL B2_BCD ;CONVERTIR DATO<br />
MOVF R2,W<br />
ANDLW 0Fh<br />
MOVWF DIG1<br />
SWAPF R2,W<br />
ANDLW 0Fh<br />
MOVWF DIG2<br />
MOVF R1,W<br />
MOVWF DIG3