Переворачивание регистров

[Валенок]

К примеру эта же функция с пресловутыми двумя тысячами

))) Картинка ни о чем.
Вы путаете ЗНАЧЕНИЕ и ПРЕДСТАВЛЕНИЕ. Для dword - они совпадают (исторически сложилось)
Но для ТС при получении данных с ai нужно переставить слова не ЗНАЧЕНИЯ (как на картинке), а в ПРЕДСТАВЛЕНИИ real. А оно на картинке - отсутствует.

Все работает, много лет.
Из данных пишется график, архив и пр...
А выглядит это так:
A1_p:=Mantisa; (*присваеваем значение регистра 108 промежуточной переменной*)
..
VAR_OUT:=DWORD_TO_WORD(A7); (*Упаковываем значение в 1 регистр*)

Не сомневаюсь что это работает, но задачу ТС по перестановке регистров (слов) в ПРЕДСТАВЛЕНИИ можно решить не зная формата ПРЕДСТАВЛЕНИЯ. Достаточно знать что это 4 байта. Например:

ai:real;
p: pointer to dword; //Вы, кстати, без указателей не обошлись ))

p:=adr(ai);
p^:=rol(p^,16); //всё

[lara197a]

))) Картинка ни о чем.
//Вы, кстати, без указателей не обошлись ))

1. Это не картинка, а контроллер в режиме исполнения.
2. Указатель там не нужен -100%. Используйте косвенную адресацию и будет Вам счастье.
Много лет назад я имел по поводу указателей разговор с уважаемым И.Петровым,
ведущим специалистом КДС в России. Использовать их он крайне не рекомендовал....
3. С таким же успехом можно сделать без указателя. А:=ror(B,16)
4. Вообще перевод применен реал-дворд для наглядности,
первоначально в примере сдвинул влево и в право с заполнением нулями и сложил переменные.
Но потом решил, что и так все видно, что и Вам показал.
5. Спор ни о чем.