Подсчёт разрядов в 2-байтном числе

[urban radio amateur]

Добрый день.

Пишу прошивку для PIC16F628A + 1602A, тестирую на бредборде. На данный момент завяз в подсчёте количества разрядов в 2-байтном числе, разбитом на два регистра.

Порядок работы такой:

1. Берётся 2-байтная константа varH:varL

2. Последовательно подсчитываются дес. тыс. / тыс. / сотен / дес. / ед. Для этого из varH:varL с помощью подпрограммы subtraction вычитываются tmpH:tmpL = 10^4 / 10^3 / 10^2 / 10^1 / 10^0, цифра разряда после каждого вызова возвращается в виде переменной dignum (к которой затем добавляется b'00110000' и выводится на ЖКИ).

 

Проблема в том, что вывод цифр останавливается после точки. Т.е. должно было быть 65.535_, а получается 65._

Прошу помочь. Подозреваю, что проблема заключается в подпрограмме вычитания или подсчёта разрядов.

call	init_lcd	;инициализация ЖКИ

movlw	b'11111111'	;переменная, в которой надо посчитать разряды
movwf	varH
movlw	b'11111111'
movwf	varL



movlw	b'10000000'	;нач. вывода символов - строка 1, яч. 1 (при иниц. был настр. авт. переход на след. яч.)
movwf	M_byte
call	addr_out

;counting 10^4
movlw	b'00100111'
movwf	tmpH
movlw	b'00010000'
movwf	tmpL
call	dig_count
movf	dignum,0
movwf	M_byte
call	symb_out

;counting 10^3
movlw	b'00000011'
movwf	tmpH
movlw	b'11101000'
movwf	tmpL
call	dig_count
movf	dignum,0
movwf	M_byte
call	symb_out

;dot
movlw	b'00101110'
movwf	M_byte
call	symb_out

;counting 10^2
movlw	b'00000000'
movwf	tmpH
movlw	b'01100100'
movwf	tmpL
call	dig_count
movf	dignum,0
movwf	M_byte
call	symb_out

;counting 10^1
movlw	b'00000000'
movwf	tmpH
movlw	b'00001010'
movwf	tmpL
call	dig_count
movf	dignum,0
movwf	M_byte
call	symb_out

;counting 10^0
movlw	b'00000000'
movwf	tmpH
movlw	b'00000001'
movwf	tmpL
call	dig_count
movf	dignum,0
movwf	M_byte
call	symb_out

stop:
nop
goto	stop



; подпрограммы

dig_count:	;dignum counting subrogram
clrf	dignum
dig_count_start:
movf	varH,W
movwf	backupH
movf	varL,W
movwf	backupL

call	subtraction

btfss	STATUS,C	;проверка на факт заема
goto	dig_count_1		;возник факт заема
goto dig_count_2		;нет заема

dig_count_1:
movf	backupH,W
movwf	varH
movf	backupL,W
movwf	varL
goto dig_count_end

dig_count_2:
incf	dignum,1
goto	dig_count_start

dig_count_end:
movlw	b'00110000'
addwf	dignum,1
return



subtraction:		;subtraction subprogram
movf	tmpL,W		;вычитаем число лежащее в регистре tmpLL из числа
subwf	varL,F		;в регистре varLL
btfss	STATUS,C	;проверка на факт заема
decf	varH,F		;возник факт заема: декремент регистра varLH
movf	tmpH,W		;нет заема: вычитаем число лежащее в регистре tmpLH из  
subwf	varH,F		;числа в регистре varLH
return				;выход из подпрограммы

 

 

[Реклама]

Реклама: ООО ТД Промэлектроника, ИНН: 6659197470, Тел: 8 (800) 1000-321

[urban radio amateur]

Проблема решена использованием вот этого образца

http://www.piclist.com/techref/microchip/math/sub/16bb.htm

subtraction:        ;subtraction subprogram

                
movf    tmpL,W
        subwf   varL
        movf    tmpH,W
        btfss   STATUS,C
        incfsz  tmpH,W
        subwf   varH
return    ;выход из подпрограммы

 

[Реклама]

20% скидка на весь каталог электронных компонентов в ТМ Электроникс!

Акция "Лето ближе - цены ниже", успей сделать выгодные покупки!

Плюс весь апрель действует скидка 10% по промокоду APREL24 + 15% кэшбэк и бесплатная доставка!

Перейти на страницу акции

Реклама: ООО ТМ ЭЛЕКТРОНИКС, ИНН: 7806548420, info@tmelectronics.ru, +7(812)4094849

[_vintik]

Если правильно понял, нужно преобразовать двоичное в десятичное

[Реклама]

Выбираем схему BMS для заряда литий-железофосфатных (LiFePO4) аккумуляторов

Обязательным условием долгой и стабильной работы Li-FePO4-аккумуляторов, в том числе и производства EVE Energy, является применение специализированных BMS-микросхем. Литий-железофосфатные АКБ отличаются такими характеристиками, как высокая многократность циклов заряда-разряда, безопасность, возможность быстрой зарядки, устойчивость к буферному режиму работы и приемлемая стоимость. Но для этих АКБ очень важен контроль процесса заряда и разряда для избегания воздействия внешнего зарядного напряжения после достижения 100% заряда. Инженеры КОМПЭЛ подготовили список таких решений от разных производителей. Подробнее>>

Реклама: АО КОМПЭЛ, ИНН: 7713005406, ОГРН: 1027700032161

[Гар]

Извините пожалуйста, когда я составляю свою программу, и пускаю её в работу, то потом проходит какое то время, месяц...два, а иногда нужно подкорректировать программу. Бывает так, что даже в своей проге не могу разобраться. А вы предлагаете в вашей поковыряться. . Дофига делов.

11 часов назад, urban radio amateur сказал:

Проблема в том, что вывод цифр останавливается после точки

В какую строку эти цифры ввОдите, поясните?

Изменено 11 июля, 2022 пользователем Гар

[urban radio amateur]

5 часов назад, _vintik сказал:

преобразовать двоичное в десятичное

Да, оно самое. Типа двоично-десятичный код.

 

3 часа назад, Гар сказал:

В какую строку эти цифры ввОдите, поясните?

1-я строка, 1-я ячейка, с неё и направо (при инициализации 1602 установлен режим автоматического смещения курсора на 2-3-...-16 яч. по мере ввода символов). В отображении символов проблем нет, взята готовая подпрограмма с Радиохлама.

[my504]

В 11.07.2022 в 06:40, urban radio amateur сказал:

Да, оно самое. Типа двоично-десятичный код.

Зачем изобретать велосипед?

Есть же аппнота Микрочипа с такой функцией на АСМе для младших ПИКов.

Функция (подпрограмма) так и называется - BIN2BCD.

Изменено 13 июля, 2022 пользователем my504

[urban radio amateur]

@my504 И как, моя подпрограмма круче (код короче, быстрей исполняется)?

Изменено 14 июля, 2022 пользователем urban radio amateur

[my504]

Это вряд ли... 

Есть такая наука - высшая арифметика. Она как раз изучает подобные вопросы. Пустым фантазиям тут места нет.

[my504]

В 14.07.2022 в 18:37, urban radio amateur сказал:

@my504 И как?

Читайте: https://ww1.microchip.com/downloads/en/Appnotes/00526e.pdf