[an error occurred while processing this directive]
[an error occurred while processing this directive]
|
/*преобразует двоичное число в диапазоне от 0 до 99 в упакованное
двоично-десятичное. */byte2bcd:
subi byte,-(128-80)
sbrs byte,7
subi byte,(128-80)subi byte,-(64-40)
sbrs byte,6
subi byte,(64-40)subi byte,-(32-20)
sbrs byte,5
subi byte,(32-20)subi byte,-(16-10)
sbrs byte,4
subi byte,(16-10)
ret
E-mail: info@telesys.ru