Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 02.10.2013, 20:39
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию 24-битные числа

Подскажите, как можно осуществить работу с 24-х битными числами?
Т.е. нужен перевод из 24-х битного целого в 32-х битное целое.

Определять знак 24-bit числа можно проверкой "foo > 8388607"?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #2  
Старый 02.10.2013, 22:44
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Если оно целое, зачем проверять знак? SHR 8 не поможет?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 03.10.2013, 01:04
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Определять знак 24-bit числа можно проверкой "foo > 8388607"?
Ну, можно по идеи. А можно, по рекомендации известного Мсье, как-нибудь так:
Код:
mov ebx, eax
shr  ebx, 16
movsx bx, bl
shl ebx, 16
or  ebx, eax
5 команд вместо двух, зато без сравнения (т.е. быстро) и без jz/jnz (т.е. еще быстрее).
Еще вариант, но не такой прикольный:
Код:
bt eax, 23
jnc @positive
   or eax, 0xFF000000
@positive:
Плюс только в том, что вместо вычитания константы просто бит 23 копируется в carry флаг.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 03.10.2013 в 01:40.
Ответить с цитированием
  #4  
Старый 03.10.2013, 01:41
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Или я чего-то не понял или одно из двух
eax = $123456
Код:
  mov ebx, eax ; ebx = $123456 
  shr  ebx, 16 ; ebx = $12
  movsx bx, bl ; ebx = $12
  shl ebx, 16  ; ebx = $120000
  or  ebx, eax ; ebx = $123456
смысл?
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #5  
Старый 03.10.2013, 08:10
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Цитата:
Сообщение от angvelem
Если оно целое, зачем проверять знак? SHR 8 не поможет?
Целое знаковое

Сделал так:
Код:
var
  foo: Integer;    
begin
  foo := $FFFFFF;
  foo := (((foo and $800000) shr 23)*$FF000000) or foo;
  ShowMessage(inttostr(foo));

З.Ы. Bargest, прикольные решение
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию

Последний раз редактировалось M.A.D.M.A.N., 03.10.2013 в 08:32.
Ответить с цитированием
  #6  
Старый 03.10.2013, 22:20
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Цитата:
Или я чего-то не понял или одно из двух
eax = $123456
Именно. Для положительного числа ничего не произойдет.
А для отрицательного (eax = $823456, т.е. старший из 24 бит равен 1):
Код:
mov ebx, eax ; ebx = $823456
shr  ebx, 16 ; ebx = $82
movsx bx, bl ; ebx = $FF82, т.к. movsx копирует старший бит во все недостающие
shl ebx, 16  ; ebx = $FF820000
or  ebx, eax ; ebx = $FF823456
Так и получаем конвертирование 24-битного отрицательного в 32-битное отрицательное.

MADMAN,
Код:
(((foo and $800000) shr 23)*$FF000000)
Оптимизирующий Мсье снова в деле:
Код:
((foo and $800000) *$1FE)
__________________
jmp $ ; Happy End!
The Cake Is A Lie.

Последний раз редактировалось Bargest, 03.10.2013 в 22:25.
Ответить с цитированием
Этот пользователь сказал Спасибо Bargest за это полезное сообщение:
M.A.D.M.A.N. (04.10.2013)
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 22:31.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter