communicating with ports using Pascal language

[cutytongy]

please help me with codes to enable me communicate with my serial and parallel ports using pascal language. pls this is a school project so i need it in a hurry. thanx

 

[TheHungry]

witch pascal , turbo , delphi ......

 

[suromenggolo]

for paralelel port
to output port can use this code with turbo pasacal v.6

procedure output(data_out: byte);
var temp: byte;
begin
temp:=data_out
asm
MOV DX, 387h
MOV AL, temp
OUT DX, AL
end;
end;

 

[yo5oqa]

You have to tell which port do you use:

procedure outport(port:byte;data:byte);
begin
asm
push ax
push dx
mov eax,data
mov edx,port
out dx,ax
pop dx
pop ax
end;
end;


procedure inport(port:byte;var data:byte);
begin
asm
push ax
push dx
mov edx,port
in dx,ax
mov data,eax
pop dx
pop ax
end;
end;

...and you call it like this ($378 = LPT1...):
outport($378,data_out);
inport($378,data_in);

...for input you must change the direction for data bus, first;

 

[dirace]

In Windows NT(XP) You cant access directly the LPT
You have to a driver

take a look here