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