Получение даты BIOS в Windows 95

function GetBIOSDate:string;
{получение даты BIOS в Win95}
var
 s:array[0..7] of char;
 p:pchar;
begin
 p:=@s;
 asm
  push esi
  push edi
  push ecx
  mov esi,$0ffff5
  mov edi,p
  mov cx,8
@@1:mov al,[esi]
  mov [edi],al
  inc edi
  inc esi
  loop @@1
  pop ecx
  pop edi
  pop esi
 end;
 setstring(result,s,8);
end;