source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.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: 479 bytes
Line 
1with I386_Ports;
2use I386_Ports;
3
4package TS1325.LED is
5
6   type LED_Colour is (Off, Green, Yellow, Red);
7
8   protected LED_State is
9
10      function Get return LED_Colour;
11
12      procedure Set (Col: in LED_Colour);
13
14   end LED_State;
15
16private
17
18   Green_Bit: constant Byte := 2#0010_0000#; -- bit set = LED on
19
20   Red_Bit: constant Byte := 2#0100_0000#; -- bit clear = LED on
21
22   LED_Mask: constant Byte := 2#0110_0000#;
23
24   LED_Port: Port_Address renames P1LTC;
25
26end TS1325.LED;
Note: See TracBrowser for help on using the repository browser.