32 бит в 16

[alexey_kip]

Программирую на ТР7 с ассемблерными вставками.
Т.к. там команды только 16-битные, то я не могу использовать регистры EDX,ECX, а необходимая информация возвращается именно в них

в EDX — сигнатура «PCI» («Р» — в DL, «С» — в DH и т. д., в старшем байте — пробел);

Как эту информацию можно оттуда выудить?

[Stilet]

Никак. Возьми паскаль поновее.

[Son Of Pain]

На самом деле способ есть, но он не для слабых духом
В древних версиях паскаля можно было вставлять машинные коды напрямую с помощью директивы inline. Потому, например, получить доступ к старшему слову edx можно, используя коды инструкций

mov eax, edx
ror eax, 16

После этого младшее слово можно будет забирать из dx, а старшее - из eax, и спокойно работать с ними в 16-битном коде.
Ну а быстро узнать опкоды можно тут, например - https://defuse.ca/online-x86-assembler.htm
В итоге получаем

inline($66/$89/$D0/$66/$C1/$C8/$10)

P.S. Хотя, безусловно, куда проще и эффективнее будет обновить компилятор.

[Stilet]

Son Of Pain

По-моему там была одна маленькая сложность - загрузчик программы (или ядро винды) ведь распознает битность, и для 16, 32 и 64 битных программ загружает по разному. В результате даже если использовать такой способ программа скорее всего падет смертью храбрых на исполнении этих инструкций. Не помню у кого я читал про такие выкрутасы, кажется на хакере статья была.

[Serge_Bliznykov]

На самом деле способ есть, но он не для слабых духом

проверил....

сильно удивлён.
похоже, что действительно, внутри 16-битной программы можно работать с 32-х битными регистрами!

[alexey_kip]

Ок, спасибо большое)

[Vapaamies]

Сообщение от Son Of Pain

В древних версиях паскаля можно было вставлять машинные коды напрямую с помощью директивы inline.

Мне кажется, что этот способ был выпилен из компилятора одновременно с появлением встроенного ассемблера, то есть в TP 6.0. Могу ошибаться. Ой, невнимательно на скриншот посмотрел. Ошибся.

Способ по-любому есть -- это разработка на ассемблере и компиляция в OMF (obj-файлы) внешним ассемблером, а потом компоновка Паскалем директивой external. Но с удобством встроенного ассемблера не сравнить, согласен.

Сообщение от Serge_Bliznykov

сильно удивлён.
похоже, что действительно, внутри 16-битной программы можно работать с 32-х битными регистрами!

Я читал об этом, но на практике не пользовал, поэтому решил не флудить почем зря.

[alexey_kip]

Ошибка синтаксиса((

inline($66/$89/$D0/$66/$C1/$C8/$10)

Попробовал заюзать код из хэлпа для инлайн - такая же ошибка(
Подкажите, плз, где можно скачать паскать чтобы с 32 битами работать было можно?
Скачивал TP7.1 тоже не хочет работать(

[alexey_kip]

Скачал BC 3.1
Пишу

void main()
{
 _asm
 {
   mov ax,bx;
 }
}

Не найден mov

void main()
{
 _asm
 {
   movl ax,bx;
 }
}

Не нейден movl

void main()
{
 _asm
   ("movl %ax,%bx;");
}

Опять...

Как правильно-то?

[Vapaamies]

Сообщение от alexey_kip

Подкажите, плз, где можно скачать паскать чтобы с 32 битами работать было можно?

Есть Free Pascal (FPC), были также Virtual Pascal и TMT Pascal. Попробуй также обычный TP в связке с TASM, как уже говорил. При большом желании можно и самостоятельно кодогенератор TP 6.0 доработать, благо исходники давно открыты.