검색해서 찾기는 찾았는데...
밑에 있는건 8비트용 아닌가요?? 어셈블리를 잘 몰라서리..-_-;;
주소 바꿔서 이함수를 4번호출하면 될라나?? *^^*
갈켜주세요..
procedure outportb(Port: word; Data: byte);
begin
asm
mov dx, Port
mov al, Data
out dx, al
end;
end;
function inportb(Port: word): byte;
begin
asm
mov dx, Port
in al, dx
mov Result, al
end;
end;