|
@@ -61,49 +61,52 @@ var
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
-uses unix;
|
|
|
|
|
|
+uses x86;
|
|
|
|
|
|
{ to give easy port access like tp with port[] }
|
|
{ to give easy port access like tp with port[] }
|
|
|
|
|
|
procedure tport.writeport(p : Longint;data : byte);
|
|
procedure tport.writeport(p : Longint;data : byte);
|
|
|
|
|
|
begin
|
|
begin
|
|
- unix.writeport (p,data)
|
|
|
|
|
|
+ x86.writeport (p,data)
|
|
end;
|
|
end;
|
|
|
|
|
|
function tport.readport(p : Longint) : byte;
|
|
function tport.readport(p : Longint) : byte;
|
|
|
|
|
|
begin
|
|
begin
|
|
- readport := unix.readportb (p);
|
|
|
|
|
|
+ readport := x86.readportb (p);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure tportw.writeport(p : longint;data : word);
|
|
procedure tportw.writeport(p : longint;data : word);
|
|
|
|
|
|
begin
|
|
begin
|
|
- unix.writeport (p,data)
|
|
|
|
|
|
+ x86.writeport (p,data)
|
|
end;
|
|
end;
|
|
|
|
|
|
function tportw.readport(p : longint) : word;
|
|
function tportw.readport(p : longint) : word;
|
|
|
|
|
|
begin
|
|
begin
|
|
- readport := unix.readportw(p);
|
|
|
|
|
|
+ readport := x86.readportw(p);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure tportl.writeport(p : longint;data : longint);
|
|
procedure tportl.writeport(p : longint;data : longint);
|
|
|
|
|
|
begin
|
|
begin
|
|
- unix.writeport (p,data)
|
|
|
|
|
|
+ x86.writeport (p,data)
|
|
end;
|
|
end;
|
|
|
|
|
|
function tportl.readport(p : longint) : longint;
|
|
function tportl.readport(p : longint) : longint;
|
|
|
|
|
|
begin
|
|
begin
|
|
- readPort := Unix.readportl(p);
|
|
|
|
|
|
+ readPort := x86.readportl(p);
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|
|
end.
|
|
$Log$
|
|
$Log$
|
|
- Revision 1.4 2002-09-07 16:01:27 peter
|
|
|
|
|
|
+ Revision 1.5 2003-09-20 18:10:28 marco
|
|
|
|
+ * More fixes
|
|
|
|
+
|
|
|
|
+ Revision 1.4 2002/09/07 16:01:27 peter
|
|
* old logs removed and tabs fixed
|
|
* old logs removed and tabs fixed
|
|
|
|
|
|
}
|
|
}
|