blob: 796d70af99ab4a6e8cb445a12b53b32537ddcdb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Michael Van Canneyt
member of the Free Pascal development team
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
Unit ports;
{$mode objfpc}
{ Implements the
port[] portw[] and portl[]
constructs using Delphi classes }
Interface
type
tport = class
protected
procedure writeport(p : longint;data : byte);
function readport(p : longint) : byte;
public
property pp[w : longint] : byte read readport write writeport;default;
end;
tportw = class
protected
procedure writeport(p : longint;data : word);
function readport(p : longint) : word;
public
property pp[w : longint] : word read readport write writeport;default;
end;
tportl = class
Protected
procedure writeport(p : longint;data : longint);
function readport(p : longint) : longint;
Public
property pp[w : Longint] : longint read readport write writeport;default;
end;
{ Non-Instantiaded vars. As yet, they don't have to be instantiated,
because there is no need for 'self' etc. }
var
port,
portb : tport;
portw : tportw;
portl : tportl;
implementation
uses x86;
{ to give easy port access like tp with port[] }
procedure tport.writeport(p : Longint;data : byte);
begin
x86.writeport (p,data)
end;
function tport.readport(p : Longint) : byte;
begin
readport := x86.readportb (p);
end;
procedure tportw.writeport(p : longint;data : word);
begin
x86.writeport (p,data)
end;
function tportw.readport(p : longint) : word;
begin
readport := x86.readportw(p);
end;
procedure tportl.writeport(p : longint;data : longint);
begin
x86.writeport (p,data)
end;
function tportl.readport(p : longint) : longint;
begin
readPort := x86.readportl(p);
end;
end.
|
