4.104.114.84.95
Last change
on this file since 16a384cf was
16a384cf,
checked in by Joel Sherrill <joel.sherrill@…>, on 04/23/99 at 16:35:11
|
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 | |
---|
1 | with Interfaces; |
---|
2 | |
---|
3 | package 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 | |
---|
29 | private |
---|
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 | |
---|
45 | end I386_Ports; |
---|
46 | |
---|
47 | |
---|
Note: See
TracBrowser
for help on using the repository browser.