Отправлено bam 10 января 2003 г. 09:23 В ответ на: Ищу пример для PIC12(16) как 3х байтное целое число перевести в 5 значное десятичное ? отправлено Sergey Smirnow 10 января 2003 г. 07:59

MOVL macro reg,value
if value
movlw value
movwf reg
else
clrf reg
endif
endm

MOVFF macro mov_reg,mov_reg1
movf mov_reg1,W
movwf mov_reg
endm

bin_2_bcd
i=0
while (i < 5)
clrf string+i
i++
endw
MOVL count1,d'32'
i=0
while (i<4)
MOVFF print_temp+i,hex_counter+i
i++
endw
b bin_2_bcd_loop_intro

bin_2_bcd_loop32
movlw 0x33
i=0
while ( i < 5 )
addwf string+i,F
i++
endw
movlw 0x03
i=0
while ( i < 5 )
btfss string+i,3
subwf string+i,F
i++
endw
movlw 0x30
i=0
while ( i < 5 )
btfss string+i,7
subwf string+i,F
i++
endw
bin_2_bcd_loop_intro
i=0
while (i<4)
rlf print_temp+i,F
i++
endw
i=0
while (i<5)
rlf string+i,F
i++
endw
decfsz count1,F
b bin_2_bcd_loop32
return

• Вариант для 1-байтного числа — L.A.   (10.01.2003 19:30, 652 байт)
• Спасибо а ссылка на оригинал (откуда взято) есть и ещё... — Sergey Smirnow   (10.01.2003 09:33, 186 байт)
  • Ответ: хм. сам говорил что разберешся :) — bam   (10.01.2003 12:07, 298 байт)
    • Спасибо сейчас попробую :) — Sergey Smirnow   (10.01.2003 12:37, 342 байт)
      • Ответ: ok — bam   (10.01.2003 14:07, пустое)
        • Нашёл более понятный мне вариант по ссылке ниже, так что придётся отложить изучение наворотов на потом, всё одно спасибо. — Sergey Smirnow   (10.01.2003 14:22, 1472 байт)
          • Ответ: я бы не сказал что это понятнее и к томуже работать п.п. corr не будет :( вылетит за пределы массива — bam   (10.01.2003 14:57, пустое)
            • Так в чём там проблема... таблица мала ? Как продлить ? — Sergey Smirnow   (10.01.2003 16:25, 329 байт)
              • А тред тамошний читали? Разве непонятно что 985 это ИЗВРАТ позволяющий ускорить вычисления за счет большой таблицы (100 элементов)? — типа автор   (10.01.2003 17:19, пустое)
                • Ясное дело не 100 а 154. Давно было, сам забыл :( — типа автор   (11.01.2003 15:00, пустое)
                • нашёл где не изврат и много всего простого без наворотов ;) — Sergey Smirnow   (10.01.2003 20:38, 13 байт, ссылка)
            • разве ж невыдно что не программа это a иллюстрация построения алгоритма? — типа автор   (10.01.2003 15:12, пустое)
              • Ответ: "иллюстрации" на АСМе рисовать для того кто только начал программировать - 8( — bam   (10.01.2003 15:51, 84 байт)