hejsa......
DElphi har ikke understøtelse af de functioner direkte, saa du maa selv lave
dem.
Jeg tror at det er det her du er ude efter.............
Hilsen
Finn Bindeballe
FinnB@post6.tele.dk
unit port;
interface
procedure WritePort(adr:Word;Value:Byte);
procedure WritePortW(adr,Value:Word);
file://procedure WritePortL(adr:Word;value:LongWord);
function ReadPort(adr:Word):byte;
function ReadPortW(adr:Word):Word;
file://function ReadPortL(adr:Word):LongWord;
procedure uSec(Delay:Integer);
implementation
procedure WritePort(adr:Word;Value:Byte);
begin
asm
mov dx,adr
mov al,value
out dx,al
end;
end;
procedure WritePortW(adr,Value:Word);
begin
asm
mov dx,adr
mov ax,value
out dx,ax
end;
end;
{
procedure WritePortL(adr:Word;value:LongWord);
begin
asm
mov dx,adr
mov eax,value
out dx,eax
end;
end;
}
function ReadPort(adr:Word):byte;
begin
asm
mov dx,adr
in al,dx
mov Result,al
end;
end;
function ReadPortW(adr:Word):Word;
begin
asm
mov dx,adr
in ax,dx
mov Result,ax
end;
end;
{
function ReadPortL(adr:Word):LongWord;
begin
asm
mov dx,adr
in eax,dx
mov Result,eax
end;
end;
}
procedure uSec(Delay:Integer);
var
StopTime:Integer;
Time,OldTime:Word;
begin
OldTime:=not ReadPort($40) +(not Readport($40)) shl 8;
StopTime:=OldTime+round((delay-20)*2.4);
repeat
Time:=not ReadPort($40) +(not Readport($40)) shl 8;
if Time<OldTime then dec(StopTime,65536);
OldTime:=Time;
until Time>StopTime;
end;
end.
<torben@amtrup.dk> wrote in message news:9169pr$amt$1@news.inet.tele.dk...
> Eksisterer de specielle arrays Port, PortW, Mem, MemL, MemW ikke i Delphi
> 5.0? Hvis de gør: i hvilken unit?
> Jeg har ledt i helpfilen og ikke fundet noget..
>
> Hilsen Torben
>
>
>