1{
2    This file is part of the Free Pascal run time library.
3    and implements some stuff for protected mode programming
4    Copyright (c) 1999-2000 by the Free Pascal development team.
5
6    These files adds support for TP styled port accesses
7
8    See the file COPYING.FPC, included in this distribution,
9    for details about the copyright.
10
11    This program is distributed in the hope that it will be useful,
12    but WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
14
15 **********************************************************************}
16
17unit ports;
18
19interface
20
21{ Since this platform has port access built into the System unit, this unit just
22  creates aliases, for compatibility for programs, that already use the ports
23  unit.  }
24
25type
26  tport = System.tport;
27  tportw = System.tportw;
28  tportl = System.tportl;
29
30var
31   port  : tport absolute System.port;
32   portb : tport absolute System.portb;
33   portw : tportw absolute System.portw;
34   portl : tportl absolute System.portl;
35
36implementation
37
38end.
39