Преобразование Знакового Числа Из Дополнительного Кода В Прямой

[Геннадий]

Ставлю число 5 - показывает t=+005C, ставлю 10 - показывает t=+00:C, 20 - +014C, 12 - +00<C

проверил с числом 25 - в программе все правильно в ОЗУ заносится. а на экран выводится t=+22;C

Где-то у вас преобразование "зашкаливает", т.е. десятичные числа превышают значение 9. Смотрите сами код 10 с преобразованием в ASCII имеет значение :, число 20 у Вас преобразуется до 16-ти с переносом единицы в старший разряд десятков и остатком 4 (14), код 12 в ASCII будет выглядеть так (<). Похоже на Ваш первый пример?

Изменено 29 мая, 2014 пользователем Геннадий

[Реклама]

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

[Григорий Т.]

Попробуйте так

WORK:
call PREOBRAZ
call BIN2BCD
call BCD2ASCII
call INTERM
jmp WORK
PREOBRAZ:
; Умножение на 400
; Х= 400*Х= (16*Х + 8*Х + Х)*16
; Сумма в регистрах r7:r6:r5:r4
; Счетные регистры r3:r2:r1
;
;заносим в сумму Х .
; берем из таймера0
mov r7,#00
mov r6,#00
mov r5,#00
mov r4,#20
;заносим в счетные регистры Х.
mov r3,#00
mov a,r5
mov r2,a
mov a,r4
mov r1,a
; умножаем на 8 тремя сдвигами влево
mov r0,#03 ; три сдвига
m1:
clr c ; сбрасываем С (он попадет в младший бит)
mov a,r1 ; младший байт в аккумулятор
rlc a ; сдвиг влево через перенос
mov r1,a ; обратно в регистр
mov a,r2 ; средний регистр в аккумулятор
rlc a ; сдвиг влево через перенос
mov r2,a ; обратно в регистр
mov a,r3 ; старший регистр в аккумулятор
rlc a ; сдвиг влево через перенос
mov r3,a ; обратно в регистр
djnz r0,m1 ; вычесть из r1 единицу и перейти, если r0 не равен 0
; складываем с суммой
mov a,r1 ; регистр в аккумулятор
add a,r4 ; складываем с регистром суммы
mov r4,a ; обратно в регистр суммы
mov a,r2 ; регистр в аккумулятор
addc a,r5 ; складываем с регистром суммы с учетом переноса
mov r5,a ; обратно в регистр суммы
mov a,r3 ; регистр в аккумулятор
addc a,r6 ; складываем с регистром суммы с учетом переноса
mov r6,a ; обратно в регистр суммы
clr a ; старший байт счетных регистров = 0
addc a,r7 ; складываем с регистром суммы с учетом переноса
mov r7,a ; обратно в регистр суммы
; умножаем счетные регистры еще раз на 2. В итоге получится X*16
clr c
mov a,r1
rlc a
mov r1,a
mov a,r2
rlc a
mov r2,a
mov a,r3
rlc a
mov r3,a
; складываем с суммой
mov a,r1
add a,r4
mov r4,a
mov a,r2
addc a,r5
mov r5,a
mov a,r3
addc a,r6
mov r6,a
clr a
addc a,r7
mov r7,a
; умножаем сумму на 16 четырьмя сдвигами влево
mov r0,#04 ; четыре сдвига
m2:
clr c
mov a,r4
rlc a
mov r4,a
mov a,r5
rlc a
mov r5,a
mov a,r6
rlc a
mov r6,a
mov a,r7
rlc a
mov r7,a
djnz r0,m2
;
; Деление сумма/Т2
; (r7:r6:r5:r4)/(r3:r2) = r5:r4
;
; делитель берем из таймера1
mov r3,#00 ; старший байт
mov r2,#40 ; младший байт
; проверяем на переполнение частного (если старшие два байта делимого >= делителю)
clr c ; сбрасываем С, чтобы не повлиял на команду subb
mov a,r6 ; регистр в аккумулятор
subb a,r2 ; вычитаем
mov a,r7 ; регистр в аккумулятор
subb a,r3 ; вычитаем (важен С)
jnc div_error ; если есть перенос(число больше), то уходим на ошибку
mov b,#16 ; 16 циклов
; сдвиг влево r7:r6:r5:r4
div16_0:
clr c
mov a,r4
rlc a
mov r4,a
mov a,r5
rlc a
mov r5,a
mov a,r6
rlc a
mov r6,a
mov a,r7
rlc a
mov r7,a
jc div16_3 ; если есть перенос, то вычесть делитель и прибавить 1 в частное r5:r4
; вычитаем делитель r3:r2
mov a,r6
subb a,r2
mov r6,a
mov a,r7
subb a,r3
mov r7,a
jnc div16_1 ; переноса нет, +1 к частному
; восстанавливаем остаток
mov a,r6
add a,r2
mov r6,a
mov a,r7
addc a,r3
mov r7,a
sjmp div16_2
; вычитаем остаток
div16_3:
clr c
mov a,r6
subb a,r2
mov r6,a
mov a,r7
subb a,r3
mov r7,a
; +1 к частному
div16_1:
inc r4
; следующий цикл
div16_2:
djnz b,div16_0
;
; 235 - r5:r4
;
div_error:
raznost:
; в r7:r6 заносим 235
mov r7,#00
mov r6,#235
; вычитаем
clr c
mov a,r6
subb a,r4
mov r4,a
mov a,r7
subb a,r5
mov r5,a
mov r3,#0
;проверка полученного числа на отрицательность
mov a,r5
jnb acc.7, loop
inc r3
inc r3
mov a, r4
cpl a
add a,#00000001b
mov r4, a
mov a, r5
cpl a
addc a,#0
mov r5, a
loop:
mov CALCBUFL,r4 ;младший байт результата
mov 47H,r3 ;знак результата
ret

CALCBUFL DATA 048h ;младший байт двоично-десятичного
CALCBUFM DATA 049h ;средний байт двоично-десятичного
CALCBUFH DATA 04Ah ;старший байт двоично-десятичного

BIN2BCD:
mov A,CALCBUFL
mov B,#100
div AB
add A,#30h
mov CALCBUFH,A
mov A,B
mov B,#10
div AB
add A,#30h
mov CALCBUFM,A
mov A,B
add A,#30h
mov CALCBUFL,A
ret

BCD2ASCII:
CALCBUFZN DATA 047h ;знак
CALCBUFTEMP DATA 051h ;знак t
CALCRAVNO DATA 052h ;знак =
CALCC DATA 053h ;знак С
;загружаем t
mov 051h,#74h
;загружаем знак =
mov 052h,#3Dh
;загружаем С
mov 053h,#43h
;загружаем знак
mov A, CALCBUFZN
add A,#2Bh ;число знака
mov 047h,A
ret

INTERM:
;подпрограмма отправки строки в терминал
JMP start
start:
MOV SCON, #50h
MOV TH1, #0FDh
ORL TMOD, #20h
SETB TR1
MOV DPTR, #txt
again:
CLR TI
CLR A
MOVC A, @A+DPTR
CJNE A, #1Bh, write_char
JMP time
write_char:
mov R0,A
mov A,@R0
MOV SBUF, A
JNB TI, $
INC DPTR
SJMP again
txt: DB 051h,052h,047h,04Ah,049h,048h,053h, 1Bh
time:
delay equ -(30000000)
MOV TH0, #high(delay)
MOV TL0, #low(delay)
MOV TMOD, #1h
MOV R0, #230
SETB TCON.4
again1:
JNB TCON.5, $
CLR TCON.5
DJNZ R0, again1
skip:
mov r0,a
mov R0, #231
out:
SETB TCON.4
JNB TCON.5, $
CLR TCON.5
DJNZ R0, out
ret
END

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

Изменено 29 мая, 2014 пользователем Григорий Т.

[Реклама]

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

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

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

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

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

[Pragmatik91]

Попробуйте так

Все получилось теперь Значит все верно - дело было в BIN2BCD Спасибо вам огромное за помощь А то мне уже даже преподаватель сказал "у тебя тут нечистая сила. Иди в церковь молись"

[Реклама]

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

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

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

[Григорий Т.]

Аминь...

[Pragmatik91]

Теперь говорит преподаватель, выводи мне в UART не строкой, а чтоб вот так было 'text'. Символы я смогу перекинуть, а как быть с моим числом? Его же нельзя в кавычки поставить. Так вообще можно сделать, чтобы сразу в кавычках весь текст был вместе с числом моим?

[Григорий Т.]

А что за проблема кавычки вывести?

[Pragmatik91]

А что за проблема кавычки вывести?

Не, он мне говорит выводить не так, как у меня, из ячейки брать знак, потом выводить его, а вот так:

start:
MOV SCON, #50h
MOV TH1, #0FDh
ORL TMOD, #20h
SETB TR1
MOV DPTR, #txt
again:
CLR TI
CLR A
MOVC A, @A+DPTR
CJNE A, #1Bh, write_char
JMP $
write_char:
MOV SBUF, A
JNB TI, $
INC DPTR
SJMP again
RSEG myDATA
txt: DB ‘HELLO’, 1Bh
END

Вопрос: как мне занести в кавычки мою температуру? надо написать '°t=-165°C' но у меня температура всегда разная и ее надо из озу вытаскивать.

Изменено 5 июня, 2014 пользователем Pragmatik91

[Григорий Т.]

Может, ты не так его понял? У тебя немного через задницу производится вывод из за того, что выводимые символы идут не по порядку. Зарезервируй в памяти в области data нужное количество байт по адресу txt, чтобы не нужна была эта лишняя структура

txt: DB 051h,052h,047h,04Ah,049h,048h,053h, 1Bh

и всё заноси туда в порядке очереди.

[Pragmatik91]

Спросили, как работает датчик мой, и я ушел.. Сейчас узнал принцип работы, но как то смутно.. Внутренний датчик генерирует напряжение, точно пропорциональное абсолютной температуре, которое сравнивается с внутренним опорным напряжением и подается на цифровой модулятор. Вопрос: как внутренний датчик генерирует это самое напряжение? Оно зависит от напряжения питания? И как вообще напряжение может сравниваться с температурой? И каков диапазон этого самого генерируемого напряжения? Потом когда оно сравнивается с опорным напряжением, что получается на выходе?

[Григорий Т.]

Это нужно смотреть даташит на датчик. Здесь экстрасенсов нет.

[Pragmatik91]

Это нужно смотреть даташит на датчик. Здесь экстрасенсов нет.

В даташите только написано, что работает при напряжении питания от 4.5 до 7 вольт и в диапазоне температур от -40 до 100 градусов

[Григорий Т.]

Так и отвечай.

[Pragmatik91]

Так и отвечай.

Я вот не могу понять, как генерируется напряжение пропорционально температуре?

[Григорий Т.]

Я не понял, вам нужно и датчик проектировать?

[солар]

А как изменяется высота столбика в термометре в зависимости от температуры?

Изменено 9 июня, 2014 пользователем солар

[Pragmatik91]

Я не понял, вам нужно и датчик проектировать?

Не, мне надо рассказать, как он работает

[Pragmatik91]

А как изменяется высота столбика в термометре в зависимости от температуры?

Изменяется объем ртути при изменении температуры.

[Григорий Т.]

В инете полно информации по температурным датчикам.

[mvkarp]

Pragmatik91, в даташите четко указано, что есть преобразователь (сенсор) температуры в напряжение. Подсуньте кто спрашивает даташит, пусть почитают. Дальше в даташите расписано, как формируется выходной сигнал. Думаю, именно это у Вас и спрашивают, а не то, что там за первичный сенсор установлен.

Может там ртутный нанотермометр стоит, а микросхема преобразует длину столба в длину импульса.

[Pragmatik91]

Pragmatik91, в даташите четко указано, что есть преобразователь (сенсор) температуры в напряжение. Подсуньте кто спрашивает даташит, пусть почитают. Дальше в даташите расписано, как формируется выходной сигнал. Думаю, именно это у Вас и спрашивают, а не то, что там за первичный сенсор установлен.

Может там ртутный нанотермометр стоит, а микросхема преобразует длину столба в длину импульса.

Не, они у меня спросили про диапазон вот этого преобразованного напряжения. Я его не нашел в даташите. Там просто написано, что это напряжение сравнивается с опорным и подается на цифровой модулятор. А величины опорного напряжения в даташите тоже нету.

[Григорий Т.]

Может, они думают, что датчик тоже ты разработал? Откуда тебе знать, что там в чёрном ящике?

[Pragmatik91]

Может, они думают, что датчик тоже ты разработал? Откуда тебе знать, что там в чёрном ящике?

Не, я понял. Если у меня в зависимости от температуры генерируется напряжение, то оно будет всегда разным. Значит мне нужно найти зависимость, как оно будет изменяться при изменении температуры. Если будет температура меняться на 1 градус, то как будет при этом меняться напряжение.. Я думаю, это надо узнать. В спецификации ничего подобного нема

[mvkarp]

У Вас там крыша не отъехала, пока Вы бились с UARTом?

Напряжение изменится на 0,05 вольт. И что? Или напряжение изменится на 10 вольт. И что?

Используемая Вами микросхема - это датчик. У него свой выходной интерфейс. У спиртового термометра выходной интерфейс - линейка. У этого - длительность.

[Pragmatik91]

У Вас там крыша не отъехала, пока Вы бились с UARTом?

Напряжение изменится на 0,05 вольт. И что? Или напряжение изменится на 10 вольт. И что?

Используемая Вами микросхема - это датчик. У него свой выходной интерфейс. У спиртового термометра выходной интерфейс - линейка. У этого - длительность.

Тогда про диапазон какого напряжения они меня спрашивали? Про напряжение питания?

[mvkarp]

А я доктор, что ли? Откуда мне знать, что они там у Вас спрашивали? И как Вы сами поняли вопрос.