co z tym programem jest nie tak ?!? (TP)

Vein [ Sannin ]

co z tym programem jest nie tak ?!? (TP)

no wlasnie, co z nim nie tak ? menda kompilatorz nazeka ze nie wie co to "port" (borland delphi) a TP 7.0 mowi by w to co jest za "port" wsadzic nawiasy (mimo ze juz są), a oto kod:


uses crt,dos;
var
LPT :Word; ‹ adres bazowy porty LPT ›
B :Byte;

procedure ZapiszLPT(Bajt:Byte; Portadr:Word);
begin
asm
mov dx,Portadr
mov al,Bajt
out dx,al
end;
end;

begin
LPT:=$378; ‹ ustalenie adresu bazowego dla LPT1 ›
‹ LPT:=$278; › ‹ ustalenie adresu bazowego dla LPT2 ›
repeat
B:=port(LPT+1);
ZapiszLPT(B,LPT);
until false; ‹ niekończąca się pętla ›
end.

Vein [ Sannin ]

łup!