то ли я охренел, то ли ты оборзел. //поискать лень, строчек десять кода написать и всё проверить на PC лень, на бумажке ли сделать лень, по моему - наглость это! Если бы кому то из тех , кто здесь общается такого уровня ТЗ - докторами были бы все лет 10-40 назад! (+) («Телесистемы»: Конференция «Микроконтроллеры и их применение»)

то ли я охренел, то ли ты оборзел. //поискать лень, строчек десять кода написать и всё проверить на PC лень, на бумажке ли сделать лень, по моему - наглость это! Если бы кому то из тех , кто здесь общается такого уровня ТЗ - докторами были бы все лет 10-40 назад! (+)

Отправлено Ациль Шифер 30 января 2007 г. 07:10
В ответ на: Подскажите пожалуйста хоть какой-нибудь алгоритм преобразования 2-х байт BIN в BCD отправлено pigu 29 января 2007 г. 23:56

1. Делим на 10 с остатком.
И переписываем последний результат как первый знак, далее остатки в обратном порядке. // подходит для перевода из любого основания (16,10,32,5) в любое (10,2,3,4,8).
2. Описаное в других постах (вычитание до посинения.)
3. Cамый простой и тупой способ (avr204/pdf типа doc0938).
текст алгоритма

“bin2BCD16” implements the following algorithm:
1. Load Loop counter with 16.
2. Clear all three bytes of result.
3. Shift left input value Low byte.
4. Shift left carry into input value High byte.
5. Shift left carry into result byte 0 (two least significant digits).
6. Shift left carry into result byte 1.
7. Shift left carry into result byte 2 (most significant digit).
8. Decrement Loop counter
9. If Loop counter is zero, return from subroutine.
10. Add $03 to result byte 2.
11. If bit 3 is zero after addition, restore old value of byte 2.
12. Add $30 to result byte 2.
13. If bit 7 is zero after addition, restore old value of byte 2.
14. Add $03 to result byte 1.
15. If bit 3 is zero after addition, restore old value of byte 1.
16. Add $30 to result byte 1.
17. If bit 7 is zero after addition, restore old value of byte 1.
18. Add $03 to result byte 0.
19. If bit 3 is zero after addition, restore old value of byte 0.
20. Add $30 to result byte 0.
21. If bit 7 is zero after addition, restore old value of byte 0.
22. Goto Step 3.
перевести или исходничек дать?

Ответы