直接读取PCI网卡的MAC地址的原理与方法(100分)

直接读取PCI网卡的MAC地址的原理与方法
Function GET8139IO(PCIID:String):Word;
var
BUS,DEVICE:BYTE;
O_ADD,L_DAT:INTEGER;
begin
RESULT:=$FFFF;
FOR BUS:=0 TO 5do
FOR DEVICE:=0 TO 31do
begin
O_ADD:=$80000000+BUS*$10000+(DEVICE*8)*$100;
ASM MOV DX,$CF8
MOV EAX,O_ADD
OUT DX,EAX
MOV DX,$CFC
IN EAX,DX
MOV L_DAT,EAX
end;
IF INTTOHEX(L_DAT,8)=PCIID then
begin
O_ADD:=$80000000+BUS*$10000+(DEVICE*8)*$100+$10;
ASM MOV DX,$CF8
MOV EAX,O_ADD
OUT DX,EAX
MOV DX,$CFC
IN EAX,DX
AND EAX,$FFFE
MOV @RESULT,AX
end;
end;

end;
end;


Function READ_93C46(CONST ADD:BYTE;CONST CR93C46:WORD):WORD;
begin
ASM
//7 6 5 4 3 2 1 0
//eem1 eem0 nc nc eecs eesk eedi eedo(93c46命令寄存器)
// cs sk dido
(at93c46管脚)
push ebx
xor bx,bx
mov dx,cr93c46
//out lb
mov al,8ah//100 1010b:cs=1,sk=0,di=1
out dx,al
//out 1,0,a5....,a0b
mov cx,8
mov ah,addr
or ah,80h
@@l0: shl ah,1
jc @@l1
mov al,88h//1000 1000b:cs=1,sk=0,di=0
out dx,al
mov al,8ch//1000 1100b:cs=1,sk=1,di=0
out dx,al
jmp @@l2
@@l1: mov al,8ah//1000 1010b:cs=1,sk=0,di=1
out dx,al
mov al,8eh//1000 1110b:cs=1,sk=1,di=1
out dx,al
@@l2: loop @@l0
//in o,d15...,d0b循环送入BX寄存器
mov cx,16
@@l3:mov al,88h//1000 1000b;cs=1,sk=0,di=0
out dx,al
mov al,8ch//1000 1100b;cs=1,sk=1,di=0
out dx,al
shl bx,1
in al,dx
and al,01h
jz @@l4
or bx,1
@@l4:loop @@l3
mov al,88h//1000 1000b;cs=1,sk=0,di=0
out dx,al
mov al,00h//0000 0000b;cs=0,sk=0,di=0
out dx,al
xchg bh,bl
mov @result,bx
pop ebx
end;
end;


有没有人对这两个代码熟悉的,给个例子

我不懂这个，学习中

MARK