;HEX2BDC: Transforma el código en Hexadecimal que viene en el w,
;en dos bcd, el mas alto en los 4 MSBs y el mas bajo en los 4 LSBs del registro w
hex2bcd movwf contador1
clrf contador2
comf contador1,f
h2bcd1 movf contador1,w
addlw 0x0a
btfsc status,0
goto h2bcd2
movwf contador1
incf contador2,f
goto h2bcd1
h2bcd2 comf contador1,f
movf contador2,w;Si contador2 no es cero
btfsc status,2
goto h2bcd4
h2bcd3 movf contador1,w
addlw 0x10 ;Se le suma a contador1 tantos 0x10 como indique
movwf contador1
decfsz contador2,f
goto h2bcd3
h2bcd4 movf contador1,w
return