32-разрядная адрсация в Паскале

[smileman]

Подскажите,как перейти к 32-разрядной адресации?

[Stilet]

В Паскале по-моему никак.

[smileman]

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

[OCTAGRAM]

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

Хотя, если ограничиться DOSBox, то можно перейти в защищённый режим, настроить fs на начало памяти, без ограничения на 65535 байтов смещения, и вернуться в реальный режим. У каждого сегментного регистра есть теневой регистр, содержащий информацию о начале и протяжённости сегмента. Теневой регистр обновляется только во время присваивания ему нового значения. Если fs настроить в защищённом режиме и больше не трогать его, можно неограниченно долго использовать 32битную адресацию.

Не знаю, проканает ли это в DOSBox.

[smileman]

да я в досе сижу..(в реальном режиме,не в эмуляции), значит средств встроенного асма думаешь хватит?стоит этим извращением заниматься,или сразу на асме писать?

[smileman]

подсказали, средств достаточно

procedure enable_pb;
begin
asm
mov eax, cr0
or eax, 1
mov cr0, eax
end;
end;

+ создание IDT и тп

[OCTAGRAM]

Turbo Pascal такое не скомпилирует.

Неподдерживаемые инструкции можно через db писать, а, что касается памяти, то тут какие–нибудь inline функции надо замутить, чтоб считывать байты, слова, двойные слова и т. п. по 32битному адресу.

[smileman]

мда,не скомпилил..как можно использовать 32разрядные регистры,не переходя в РМ?

[OCTAGRAM]

Да запросто. Они есть независимо от режима. Это просто встроенных ассемблер их не понимает, но они всё равно есть.

db $66; mov ax,bx

Эта конструкция эквивалентна mov eax,ebx

Аналогично можно в большинстве случаев кодить другие инструкции. Правда, если присваивать непосредственные значения, нужно разбивать эти значения на части:

db $66; mov bx,$5678; dw $1234

Это эквивалентно mov ebx,$12345678

Для 32битной адресации аналогично, только db $67

db 67h; mov ax,WORD PTR [si]

Эквивалентно mov ax,word ptr [esi]

А вообще, можно уже доставать TASM. TASM нормально генерит код для 32разрядных инструкций в реальном режиме.

[smileman]

Благодарствуем ..