[an error occurred while processing this directive]
|
Требуется выводить целое беззнаковое на ЖКИ на АВР. (использую асм)
Из эстетско-чайницких (с) =) соображений использовать алгоритм с делением-вычитанием не хочу. Накопал вот пример для PIC, но разобраться пока не смог, бо с ПИК-асмом не в ладах. Если не сложно, просьба этот кусок кода откомментарить по сишному:
=== cut ===
Общая идея следующая: имеем исходное двоичное число энной разрядности. Делаем
цикл на количество его разрядов. В каждой итерации сдвигаем его влево. Имеем
конечное число, которое в каждой итерации цикла умножаем на два и прибавляем к
нему выдвинутый бит - то есть прибавляем единицу, если была единица. Умножение
конечного числа на два и это сложение выглядит как сдвиг на бит обоих чисел
разом, после чего проводится десятичная коррекция результирующего числа: все
десятичные разряды от младшего просматриваются на предмет превышения девяти, и
если таковое обнаружено - вычитается 10 и прибавляется единичка к более
старшему разряду. Hа пике эта процедура делается так (преобразуем 64-битное
двоичное число без знака в 17-разрядное десятичное):
movlw 64 ;количество разрядов исходного числа
movwf temp1
num_a movlw 17 ;количество разрядов результата
movwf temp2
movlw buffer+17 ;конец буфера результата (младший разряд)
movwf FSR
call rlt1 ;здесь делаем сдвиг исходного числа влево
num_b decf FSR
rlf INDF ;умножаем на два, прибавляя перенос
movf INDF,w
addlw 246 ;десятичная коррекция
btfsc STATUS,C
movwf INDF
decfsz temp2
goto num_b
btfsc STATUS,C
goto errorr
decfsz temp1
goto num_a
return
E-mail: info@telesys.ru