如何在Delphi中读取Bios中的内容?

Question

直接读写BIOS倒没有研究过，好像不那么简单.不过若只是
读写CMOS区就比较容易了，只要往端口70写一个地址，就可
以用端口71访问CMOS里的相应内容了.下面是此方法的代码:
procedure Tform1.SpeedButton2Click(Sender: TObject);
var _buf: array[0..127] of byte;
    i:integer;
    _coms:string;
begin
memo1.Text:='COMS数据';
for i:=0 to 127 do
begin
outportb($70,i);
_buf[i]:=inportb($71);
appendstr(_coms,inttohex(_buf[i],2));
appendstr(_coms,#32);
end;
memo1.Lines.Add(_coms);
end;

Answer 1

好像delphi 中没有outportb这个过程吧

Answer 2

sorry,忘记贴了。inportb\outportb是用汇编写的。
function TForm1.inportb(portAddr: word): byte;
asm
  mov dx, portAddr
  in al, dx
end;procedure TForm1.outportb(portAddr: word; bytePut: byte);
asm
  mov cl, bytePut //save dl to cl, bytePut is Passed by DL Register
  mov dx, portAddr
  mov al, cl
  out dx, al
end;

Answer 3

在delphi 中直接内嵌asm如何
比如debug命令
-o 70 11
-o 71 ff