Как узнать дату и версию Bios?

[Serge_Bliznykov]

Rin, нет, так нельзя!
это Вы путаете - логический адрес вашего указателя и ФИЗИЧЕСКИЙ адрес.
пост #7 перечитайте...


p.s. я почему по танцы с бубном сразу сказал - Windows'ские программы ограничены в своих возможностях - их просто так не пускают не к физическим портам ввода/вывода, ни к физической памяти. (и, кстати, правильно делают). Получить туда доступ можно, имхо, но либо написав свой драйвер, либо воспользовавшись компонентами (которые это как-то делают, либо через свой драйвер, либо через внедрение в ring0 - не знаю!)
А ещё лучше - отказаться от этой идеи (лезть за версией биоса в сам биос) и воспользоваться информацией из реестра!

[Rin]

Я ж почему спросил про absolute $F000:0 . Помню, мне очень давно попался исходник с этим absolute. И вот я долго думал, что ж мне сделать, чтобы эта дребедень заработала. Так и не придумал, и забыл про неё. А вот опять увидел этот скверную ссылку на адрес. Как ссылаться на адрес, не используя ЭНТОТ absolute?

[s-andriano]

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

$F000:0 так это ж, кажется, и есть логический адрес (F000 - адрес, : - разделитель, 0 - смещение). Физический адрес - это $F0000.
Если я прав, то каким образом сослаться на этот адрес?...

И тот и другой - это один и тот же физический адрес, только записанный в сегментированном и линейном виде.
В многозадачных ОС доступ к физическим адресам затруднен. Поэтому я и предложил воспользоваться реестром.
Еще один вариант - запустить дочерний процесс в RM или DPMI и результат его работы использовать у себя в программе.

Вдогонку:
absolute $F000:0
это исключительно в RM.
вообще же "absolute" служит для того, чтобы у одной и той же переменной создать несколько псевдонимов (возможно, разного типа). К абсолютным (физическим) адресам она никакого отношения не имеет.

[Rin]

Вот интересно, а что по идее должно было записаться в buf, если buf : array[0..2] of byte absolute $F000:0; ? Почему именно array[0..2] of byte ?
А что более интересно, так это то, что мы выходим за размеры массива, выполняя цикл

  for I:=0 to 255 do buf[I] := Read(I);

[s-andriano]

Честно говоря, никогда не интересовался кодами команд 8086, но подозреваю, что первые 3 байта - это команда перехода на начало кода.
А то, что выходим за пределы массива, (разумеется, при выключенной опции проверки) так это не страшно: массив (в отличие от обычного описанного массива) имеет фиксированный адрес в памяти и не заканчивается, в отличие от массива описанного в переменных. Так что цикл мы могли смело продолжать до 65535.
Непонятно только, как мы собираемся записывать в микросхему ПЗУ. (физически там, правда, ОЗУ, но оно все равно защищено от записи)

В приведенном в посте №4 исходнике я не разбирался, но что-то мне кажется, что там читается CMOS, а не BIOS.

Посмотрел код внимательнее.
Вероятно, программа изначально читала как CMOS, так и BIOS, причем CMOS неправильно. Поэтому чтение CMOS из нее выкинули, но не все - остались ненужные процедуры на ассемблере и ненужный цикл, который ни на что не влияет. А в файле оказывается образ BIOS, правда, без последнего байта. Но это не сложно подправить.

Думаю, в БорландПаскале должно работать следующее (у меня проверить не на чем)

const
    DefName = 'bios.$$$';
var f: file;
    i: integer;
    buf : array[0..65535] of byte absolute $F000:0;
    Name : string[80];

procedure Err(MS : string);
begin
  WriteLn(MS); Halt(100)
end;

begin
  WriteLn('Чтение BIOS');
  if ParamCount < 1 then Name := DefName
  else Name := ParamStr(1);
  assign(f,Name);
{$I-}
  rewrite(f,1);
  if IOResult <> 0 then Err('Невозможно создать файл '+Name);
  BlockWrite(f,buf,$ffff);
  if IOResult <> 0 then Err('Ошибка при записи файла '+Name);
  BlockWrite(f,buf[$ffff],1);
  if IOResult <> 0 then Err('Ошибка при записи файла '+Name);
  close(f);
  WriteLn('Done.');
end.