source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads @ 3299388d

4.104.114.84.95
Last change on this file since 3299388d was 16a384cf, checked in by Joel Sherrill <joel.sherrill@…>, on Apr 23, 1999 at 4:35:11 PM

New BSP from Tony R. Ambardar <tonya@…> from the
University of British Columbia. The BSP is for:

Yes, this is the "entry model" of a series of boards from Technologic
Systems. Costs <$200 I believe. They have a WWW page at www.t-systems.com.
I am letting them know about the availability of this BSP too.

  • Property mode set to 100644
File size: 1.1 KB
Line 
1with Interfaces;
2
3package I386_Ports is
4
5   type Port_Address is new Interfaces.Unsigned_16;
6
7   type Byte is new Interfaces.Unsigned_8;
8
9   type Word is new Interfaces.Unsigned_16;
10
11   type Long is new Interfaces.Unsigned_32;
12
13   procedure Outport (Addr: in Port_Address; Data: in Byte);
14
15   procedure Inport (Addr: in Port_Address; Data: out Byte);
16
17   P1PIN: constant Port_Address;
18   P1LTC: constant Port_Address;
19   P1DIR: constant Port_Address;
20
21   P2PIN: constant Port_Address;
22   P2LTC: constant Port_Address;
23   P2DIR: constant Port_Address;
24
25   P3PIN: constant Port_Address;
26   P3LTC: constant Port_Address;
27   P3DIR: constant Port_Address;
28
29private
30
31   pragma Inline (Outport, Inport);
32
33   P1PIN: constant Port_Address := 16#F860#;
34   P1LTC: constant Port_Address := 16#F862#;
35   P1DIR: constant Port_Address := 16#F864#;
36
37   P2PIN: constant Port_Address := 16#F868#;
38   P2LTC: constant Port_Address := 16#F86A#;
39   P2DIR: constant Port_Address := 16#F86C#;
40
41   P3PIN: constant Port_Address := 16#F870#;
42   P3LTC: constant Port_Address := 16#F872#;
43   P3DIR: constant Port_Address := 16#F874#;
44
45end I386_Ports;
46
47
Note: See TracBrowser for help on using the repository browser.