[Artem28]

Код:

procedure SetPort(address, Value:Word);  
var  
  bValue: byte;  
begin  
  bValue := trunc(Value and 255);  
  asm  
    mov dx, address  
    mov al, bValue  
    out dx, al  
  end;  
end;  

function GetPort(address:word):word;  
var  
  bValue: byte;  
begin  
  asm  
    mov dx, address  
    in al, dx  
    mov bValue, al  
  end;  
  GetPort := bValue;  
end;