Отправлено Sergey Smirnow 10 января 2003 г. 14:22 В ответ на: Ответ: ok отправлено bam 10 января 2003 г. 14:07

;Эта подпрограмма преобразовывает 3-байное двоичное беззнаковое
; число в упакованное BCD-число (занимает 4 байта).
;(Максимальные возможности 0xffffff -> .16777215)
;
;Вход подпрограммы:
;------------------
; BIN0, BIN1, BIN2 - 3-байтное двоичное число, размещенное
; в последовательно расположенных в памяти ячейках (BIN0 - младший байт).
;
;Выход подпрограммы:
;-------------------
; BCD0, BCD1, BCD2, BCD3 - BCD-число (возвращается в последовательно
; расположенных ячейках, где в младших 4 битах BCD0 размещается младший разряд
; BCD - числа).
;
;Используется алгоритм сдвига двоичного числа в двоично-десятичную
; разрядную сетку.
;
; 985 циклов

clrfbcd0
clrfbcd1
clrfbcd2
clrfbcd3
movlwd'24'
movwfcount
gotolab

nextmovfbcd0,W
callcorr
movwfbcd0
movfbcd1,W
callcorr
movwfbcd1
movfbcd2,W
callcorr
movwfbcd2
movfbcd3,W
callcorr
movwfbcd3
labrlfbin0
rlfbin1
rlfbin2
rlfbcd0
rlfbcd1
rlfbcd2
rlfbcd3
decfszcount,F
gotonext
return

corraddwfPCL,F
retlwb'00000000';0
retlwb'00000001';1
retlwb'00000010';2
retlwb'00000011';3
retlwb'00000100';4
retlwb'00001000';5+3=8
retlwb'00001001';6+3=9

retlwb'11000011';9+3=C 3
retlwb'11000100';9+3=C 4
retlwb'11001000';9+3=C5+3=8
retlwb'11001001';9+3=C 6+3=9
retlwb'11001010';9+3=C7+3=A
retlwb'11001011';9+3=C8+3=B
retlwb'11001100';9+3=C 9+3=C

• Ответ: я бы не сказал что это понятнее и к томуже работать п.п. 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 байт)