
procedure SetPort(spa,spv:Word);
var spvalue:byte;
begin
spvalue:=trunc(spv);
asm
mov dx,spa
mov AL,spvalue
out DX,AL
end;
function GetPort(gpa:Word):word;
var gpvalue:byte;
begin
asm
mov dx,gpa
in aL,dx
mov gpvalue,aL
end;
gpv:=gpvalue;
end;
p.s. email je [email protected]