[ blackadder @ 17.04.2001. 13:08 ] @
Da li je sve u redu sa ovim funkcijama, i ako jeste, zasto ne 'funkcionisu'?

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]

[ Gojko Vujovic @ 17.04.2001. 14:21 ] @
Citat:
blackadder wrote:
Da li je sve u redu sa ovim funkcijama, i ako jeste, zasto ne 'funkcionisu'?

procedure SetPort(spa,spv:Word);
var spvalue:byte;
begin
spvalue:=trunc(spv);
asm
mov dx,spa
mov AL,spvalue
out DX,AL
end;
ovde ti fali jos jedno end; - moras da imas i za begin i za asm po jedan end;


A za ovaj asm kod ne znam to ce morati neko drugi da ti kaze..
[ morlic @ 09.06.2006. 10:08 ] @
Imas i nepoznatu promenjivu (gpv).

Inace, ako pokusavas ovaj kod pod Windows NT,XP ili 2000 sistemima to nece raditi, koliko me sluzi secanje naredbe in i out spadaju u one koje se ne mogu direktno pozivati, neka me neko ispravi.
[ Nemanja Avramović @ 09.06.2006. 14:09 ] @
ot: Zašto teme iz 2001. godine iskaču na prvu stranu a niko ih nije dirao? :/
[ morlic @ 09.06.2006. 15:58 ] @
Ha, ha... nisam ni video koji je datum u pitanju...cccc