paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 04:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ support of port-array added

Browse Source
This commit is contained in:
florian 1998-04-12 22:35:29 +00:00
parent c876b474c6
commit f966d959ee
1 changed files with 74 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
rtl/dos/go32.pp
View File

@ -181,6 +181,34 @@ unit go32;
dosmemfillchar : procedure(seg,ofs : word;count : longint;c : char)=dpmi_dosmemfillchar;
dosmemfillword : procedure(seg,ofs : word;count : longint;w : word)=dpmi_dosmemfillword;
{$ifdef SUPPORT_PORT}
type
tport = class
procedure writeport(p : word;data : byte);
function readport(p : word) : byte;
property p[w : word] : byte read readport write writeport;default;
end;
tportw = class
procedure writeport(p : word;data : word);
function readport(p : word) : word;
property p[w : word] : word read readport write writeport;default;
end;
tportl = class
procedure writeport(p : word;data : longint);
function readport(p : word) : longint;
property p[w : word] : longint read readport write writeport;default;
end;
var
{ we don't need to initialize port, because neither member
variables nor virtual methods are accessed
}
port,portb : tport;
portw : tportw;
portl : tportl;
{$endif SUPPORT_PORT}
implementation
{$ifndef go32v2}
@ -1119,6 +1147,48 @@ unit go32;
{$endif not V0_6}
{$ifdef SUPPORT_PORT}
{ to give easy port access }
procedure tport.writeport(p : word;data : byte);
begin
outportb(p,data);
end;
function tport.readport(p : word) : byte;
begin
readport:=inportb(p);
end;
procedure tportw.writeport(p : word;data : word);
begin
outportw(p,data);
end;
function tportw.readport(p : word) : word;
begin
readport:=inportw(p);
end;
procedure tportl.writeport(p : word;data : longint);
begin
outportl(p,data);
end;
function tportl.readport(p : word) : longint;
begin
readport:=inportl(p);
end;
{$endif SUPPORT_PORT}
begin
int31error:=0;
{$ifndef go32v2}
@ -1139,7 +1209,10 @@ end.
{
$Log$
Revision 1.2 1998-03-29 17:26:20 florian
Revision 1.3 1998-04-12 22:35:29 florian
+ support of port-array added
Revision 1.2 1998/03/29 17:26:20 florian
* small improvements
Revision 1.1.1.1 1998/03/25 11:18:41 root