{$R *.DFM}
procedure portout(IOport:word;value:byte) ;assembler;
asm
xchg ax,dx //port'a deger göndermek
out dx,al
end;
function portin(IOport:word) :byte;assembler;
asm
mov dx,ax //port'taki degeri okumak için
in al,dx
end;
//kullanýmý
procedure TForm1.Button1Click(Sender: TObject) ;
begin
portout(8080,2);
label1.caption:=inttostr(portin(8080)) ;
end;