Преобразование двоичного числа в двоично-десятичное: от К580 к AVR Mega16

[=GM=]

=GM=, Спасибо за поправку, но, к сожалению, после аргумента 230 в сотнях ошибка - выдает 0

Добрался до компьютера, проверил в симуляторе на примере преобразования числа 0xF5=245.

ldi r16,0xF5 ;2-4-5
rcall bin2bcd ;kazus 02.12.2012

bin2bcd:
clr r17 ;r16 - source number
clr r18
L1: cpi r16,100
brlo L2
subi r16,100
subi r18,-0x01
rjmp L1
L2: cpi r16,10
brlo L3
subi r16,10
subi r17,-0x10
rjmp L2
L3: add r17,r16 ;r18-r17 - BCD number
ret

[analitik33]

=GM=, Спасибо за внимание к моему вопросу. Да, все верно, код в сообщении 21 работает нормально. Это предыдущий код глючил.

[Slav.07]

Уважаемый ANAKOST !
Спасибо за хороший пример ! Заработало с пол оборота !
Пришлось подправить только регистры в дефайне - задвинуть их после r16 , так как они не работают напрямую с инструкцией ldi .
Thank you once again ,
Regards ,
Slav.07

[AR_Favorit]

Ура, теперь и в Эстонии есть Bin2BCD

[Slav.07]

Не совсем как бы так ... just a simple VPN connection ...
Но я тоже рад за Эстонию , если че ...

[AR_Favorit]

Та я ваще-то про некропостинг...

До такого, шоб видеть айпишники на форуме, я еще не дорос)))