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

[Exitm]

Помогите узнать дату и версию BIOS с помощью Assembler.

Заранее спасибо!

[s-andriano]

Они находятся по адресу FFFF:0

[Exitm]

s-andriano, спасибо!
А можно чуть конкретнее (какие прерывания использовать и что в какой регистр помещать)?

[Serge_Bliznykov]

если Вас ваша винда к портам пустит, то вот так можно целиком биос прочитать в файл (старый добрый TurboPascal):

{$A+,B-,D+,E+,F-,G-,I-,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 16384,0,655360}
const
    DefName = 'bios.$$$';

var f: file;
    i: integer;
    buf : array[0..2] of byte absolute $F000:0;
    Name2,Name : string[80];
    Ext2 : string[4];

procedure ReadByte; assembler;
asm
{процедура чтения байта}
  out 70h,al
  jcxz @m2
@m2: jcxz @m3
@m3: in al,71h
end;

function Read(Addres:byte) : byte; assembler;
asm
  mov al,Addres
  pushf
  cli
  and al,al
  js @m1
  or al,80h
  stc
@m1:
  call ReadByte
  push ax
  jmp  @m5


@m5:
  mov al,0Dh
  jb  @m6
  or al,80h
@m6:
  call ReadByte
  sti
  pop  ax
  popf
end;

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

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

[Exitm]

Спасибо вам огромное, Serge_Bliznykov!

Попытаюсь разобраться...

[Rin]

Sergey_Bliznykov, паскаль может и разрешает обращаться по абсолютному адресу $F000:0 , но вот Delphi разрешает указывать на адрес какой-либо переменной. Как же тогда обратиться по адресу $F000:0?

[s-andriano]

Это абсолютный адрес в физическом адресном пространстве.
Чтобы каким-то образом получить к нему доступ из защищенного режима, нужно воспользоваться соответствующими средствами ОС, если она такое позволяет. Т.е. отмапить физический адрес на логический.
В DPMI я это делал, а вот как это сделать в WinAPI - как-то не знаю, не возникало такой потребности.
Подозреваю, что эти данные можно раздобыть из реестра.

Да, есть в реестре
\HKEY_LOCAL_MACHINE\HARDWARE\DESCRI PTION\System\SystemBiosDate
и
SystemBiosVersion

[Stilet]

Подозреваю, что эти данные можно раздобыть из реестра.

Или поискать в WMI... Думаю там тоже будет возможность получить все о БИОСе что можно.

[s-andriano]

WMI - из пушки по воробьям. Намного как тяжелее, так и дольше, чем работа с реестром.

[Rin]

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

p:=F00000;

Или же все сложнее?