Contributor: SWAG SUPPORT TEAM
{
Or better yet, the BIOS stores the addresses of the parallel Interfaces
on the system at memory location 0040ドル:0008ドル. There are four Words
here, allowing up to 4 parallel devices.
-Brian Pape
}
Var
i : Byte;
par : Array[1..4] of Word;
begin
For i := 1 to 4 do
begin
par[i] := Word(ptr(0040,ドル 0008ドル + (i - 1) * 2)^);
If Par[i] = 0 then
Writeln('Not Found')
else
Writeln(Par[i]);
end;
end.