diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-04-23 16:35:11 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1999-04-23 16:35:11 +0000 |
| commit | 16a384cfb161f6a3dbcd69fc3b788b6dbc229669 (patch) | |
| tree | dbbb2e908c64a7f8de5d4c99c16559158b99f1cf /c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads | |
| parent | Added lstat(). (diff) | |
| download | rtems-16a384cfb161f6a3dbcd69fc3b788b6dbc229669.tar.bz2 | |
New BSP from Tony R. Ambardar <tonya@ece.ubc.ca> 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.
Diffstat (limited to 'c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads')
| -rw-r--r-- | c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads new file mode 100644 index 0000000000..c27ea646e7 --- /dev/null +++ b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/i386_ports.ads @@ -0,0 +1,47 @@ +with Interfaces; + +package I386_Ports is + + type Port_Address is new Interfaces.Unsigned_16; + + type Byte is new Interfaces.Unsigned_8; + + type Word is new Interfaces.Unsigned_16; + + type Long is new Interfaces.Unsigned_32; + + procedure Outport (Addr: in Port_Address; Data: in Byte); + + procedure Inport (Addr: in Port_Address; Data: out Byte); + + P1PIN: constant Port_Address; + P1LTC: constant Port_Address; + P1DIR: constant Port_Address; + + P2PIN: constant Port_Address; + P2LTC: constant Port_Address; + P2DIR: constant Port_Address; + + P3PIN: constant Port_Address; + P3LTC: constant Port_Address; + P3DIR: constant Port_Address; + +private + + pragma Inline (Outport, Inport); + + P1PIN: constant Port_Address := 16#F860#; + P1LTC: constant Port_Address := 16#F862#; + P1DIR: constant Port_Address := 16#F864#; + + P2PIN: constant Port_Address := 16#F868#; + P2LTC: constant Port_Address := 16#F86A#; + P2DIR: constant Port_Address := 16#F86C#; + + P3PIN: constant Port_Address := 16#F870#; + P3LTC: constant Port_Address := 16#F872#; + P3DIR: constant Port_Address := 16#F874#; + +end I386_Ports; + + |