извлечь инфу по адресу 0010:0040

[fru1t__]

вот что я в гугл нашел про это : Состав оборудования XT (и PC) определяется положением переключателей на специальных колодках. Состояние этих переключателей может быть прочитано из программы обращением к порту 0x60. Но необходимости в этом нет - эту операцию выполняет BIOS при инициализации системы. На основании этой информации BIOS формирует так называемый список оборудования - 2-байтное слово по адресу 0040:0010. Прочитать это слово можно либо обратившись по указанному адресу, либо обратившись к BIOS через прерывание 0x11. Назначения разрядов списка оборудования следующие: 0 - установлен в 1, если есть НГМД (см.разряды 6, 7);
1 - установлен в 1, если есть сопроцессор;
2,3 - число 16-Кбайтных блоков ОЗУ на системной плате;
4,5 - код видеоадаптера: 11 - MDA, 10 - CGA, 80 колонок, 01 - CGA, 40 колонок, 00 - другой;
6,7 - число НГМД-1 (если в разряде 0 единица);
8 - 0, если установлен канал ПДП;
9,10,11 - число последовательных портов RS-232;
12 - 1, если установлен джойстик;
13 - 1, если установлен последовательный принтер;
14,15 - число параллельных принтеров.
и адрес не 0010:0040 а 0040:0010

[fru1t__]

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

[alexBlack]

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

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

Примерно так:

var x:word absolute $0040:$0010;
begin
  writeln(x); // у меня $C822 (51234)
  if (x and $2) = $2 then writeln('soprocessor installed');
  if ((x shr 4) and $3) = $2 then writeln('mode 80x25 color');
  // ...

  readln;

Насчет битов 4-5. В другом источнике:

4,5 видео режим, устанавливаемый при инициализации
00 - unused 01 - 40x25 color
10 - 80x25 color 11 - 80x25 monochrome

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

да ну! они находятся от 0000:0000 до 0000:03ff

ну да: $0010:$0040 = $0000:$0140

[fru1t__]

что значит строчка "if ((x shr 4) and $3) = $2"?

[alexBlack]

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

что значит строчка "if ((x shr 4) and $3) = $2"?

Так понятней ? :
y := x shr 4;
y := y and $3;
if y = $2 then

уж извините, но Вам помогла бы любая книжка по Паскалю.

[fru1t__]

нет структуру я понимаю, я не понимаю что значит x and $3... 3 строчка переменной x или что? и зачем значок доллара?

[alexBlack]

Почитайте:

http://tolks.narod.ru/textbook/syntax.html#3
http://www.delphikingdom.ru/asp/view...?catalogid=838
http://www.codenet.ru/progr/other/lpas2.php (Битовая арифметика)
http://programmersforum.ru/showthread.php?t=20981
http://tolks.narod.ru/textbook/index.html

[Kostia]

У меня возникла пара вопросов.
Во-первых: Delphi ругается на строку var x:word absolute $0040:$0010; "Variable name expected"
Во-вторых:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

function SegOfsToLinear(Segment, Offset: Word): Integer;
begin
  result := (Segment shl 4) or Offset;
end;

function GetBiosDate: string;
begin
  result := PChar(Ptr(SegOfsToLinear($F000, $FFF5)));
end;

begin
  write(GetBiosDate);
  readln;
end.

Программа беспричинно вылетает, хотя должна выводить дату BIOSа.

Пишу на Delphi7.

[alexBlack]

Ну почему же беспричинно:
Access violation at ..... Read of address 000FFFF5.

Если не ошибаюсь, процесс в Windows грузится с абсолютного адреса $400000

Вот это работает:

var b:byte;
begin
  b := byte(Ptr($400000)^);
  ShowMessage(intToStr(b));

Доступ к адресам вне памяти процесса дает исключение.
Никаких сегментов и тем более BIOS откуда можно прочитать данные нет.

а объявление переменной absolute по адресу в Delphi исключено (наверное по соображениям безопасности)

Тот код, который я приводил работает в Borland Pascal.