Отправлено =mse= 19 ноября 2004 г. 15:05 В ответ на: Деклараций не надо - результат покажите. Попробовал для AVR вычитанием. Получилось медленнее (1180), не говоря о размере кода. отправлено асибо 19 ноября 2004 г. 14:32

        ldi     r19,ramend
        out     spl,r19
        rcall   bin2bcd16
        nop
        nop

bin2bcd16:
        ldi     bcd_8,'0'-1
        ldi     bcd_7,'0'-1
        ;movw    bcd_2,bcd_4     ;for Mega's ;O)
        mov     bcd_6,bcd_8
        mov     bcd_5,bcd_7
        mov     bcd_4,bcd_8
        mov     bcd_3,bcd_7
        mov     bcd_2,bcd_8
bcd16_8:
        inc     bcd_8
        subi    source_dat_L,low(10000000)
        sbci    source_dat_H,high(10000000)
        sbci    source_dat_HH,byte3(10000000)
        brcc    bcd16_8
        subi    source_dat_L,low(-10000000)
        sbci    source_dat_H,high(-10000000)
        sbci    source_dat_HH,byte3(-10000000)
bcd16_7:
        inc     bcd_7
        subi    source_dat_L,low(1000000)
        sbci    source_dat_H,high(1000000)
        sbci    source_dat_HH,byte3(1000000)
        brcc    bcd16_7
        subi    source_dat_L,low(-1000000)
        sbci    source_dat_H,high(-1000000)
        sbci    source_dat_HH,byte3(-1000000)
bcd16_6:
        inc     bcd_6
        subi    source_dat_L,low(100000)
        sbci    source_dat_H,high(100000)
        sbci    source_dat_HH,byte3(100000)
        brcc    bcd16_6
        subi    source_dat_L,low(-100000)
        sbci    source_dat_H,high(-100000)
        sbci    source_dat_HH,byte3(-100000)
bcd16_5:
        inc     bcd_5
        subi    source_dat_L,low(10000)
        sbci    source_dat_H,high(10000)
        sbci    source_dat_HH,byte3(10000)
        brcc    bcd16_5
        subi    source_dat_L,low(-10000)
        sbci    source_dat_H,high(-10000)
        sbci    source_dat_HH,byte3(-10000)
bcd16_4:
        inc     bcd_4
        subi    source_dat_L,low(1000)
        sbci    source_dat_H,high(1000)
        brcc    bcd16_4
        subi    source_dat_L,low(-1000)
        sbci    source_dat_H,high(-1000)
bcd16_3:
        inc     bcd_3
        subi    source_dat_L,low(100)
        brcc    bcd16_3
        subi    source_dat_L,low(-100)
bcd16_2:
        inc     bcd_2
        subi    source_dat_L,low(10)
        brcc    bcd16_2
        subi    source_dat_L,(-10-'0')
        ret

• для числа а 0f423ff->1599999 - 332 такта. Кстати, в первом сообщении ошибка, кусок с исправлением здесь — =mse=   (19.11.2004 15:14, 405 байт)
• Фу... Ассемблер. Предупреждал же - интересует Си. — асибо   (19.11.2004 15:08, пустое)
  • Ха! "С" его интересует! ;О). Вон не прошло и 5 лет, как ИАР стал использовать умножитель в АВРах. Думаю, они и бинбцд такой же левой ногой пишут. Колян хотел АСМ, вот пущай и гребёт. А смеха ради, напиши для ПИКа. Интересно, сможет хотя бы к 500 приблизиться? ;О) — =mse=   (19.11.2004 15:21, пустое)
    • все уже написано — пьеро   (19.11.2004 15:42, пустое, ссылка)
      • ну и как циферка? — =mse=   (19.11.2004 15:58, пустое)
        • в три раза меньше :( — пьеро   (19.11.2004 16:31, пустое)
          • меньше чего? Скока в тактах? ;О) — =mse=   (19.11.2004 16:48, пустое)
            • если ты не врешь про свои ~330 тактов, то у тебя меньше, чем у них раза в три. (они на пик16), но если попробовать на dsPIC'е ... ;) — пьеро   (19.11.2004 18:00, пустое)
              • Чё мне врать - исходник дал - проверяй. А насчёт ДСПика, ну тоды давай сАРМой или ТМСом каким померяемся. Разговор то идёт о МК ценой до $5-10. — =mse=   (20.11.2004 10:18, пустое)
    • Слабая отмазка, и неубедительная и не по делу. Ищу Си вариант. — асибо   (19.11.2004 15:26, пустое)
      • флаг сам знаешь куда ;О), я на Ц не пишу — =mse=   (19.11.2004 15:31, пустое)
        • Оно и заметно. Сочувствую. Ну ничего, ничего, не переживай, всякое случается ;) — асибо   (19.11.2004 15:35, пустое)
          • Эт я вам сочувствую. Как начнётся заваруха "хлопцЫ, как мне на Ц сделать это?" и флейма на пол-страницы ;О) — =mse=   (19.11.2004 15:39, пустое)