source: rtems/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.adb @ 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 
1package body TS1325.LED is
2
3   protected body LED_State is
4
5      function Get return LED_Colour is
6         State: Byte;
7         Red_On, Green_On: Boolean;
8      begin
9         Inport (LED_Port, State);
10
11         Green_On := (State and Green_Bit) = Green_Bit;
12         Red_On := (State and Red_Bit) /= Red_Bit;
13
14         if not (Green_On or Red_On) then
15            return Off;
16         elsif Green_On and not Red_On then
17            return Green;
18         elsif Green_On and Red_On then
19            return Yellow;
20         else
21            return Red;
22         end if;
23      end Get;
24
25      procedure Set (Col: in LED_Colour) is
26         State: Byte;
27      begin
28         Inport (LED_Port, State);
29
30         case Col is
31            when Off =>
32               State := (State and not Green_Bit) or Red_Bit;
33            when Green =>
34               State := State or Green_Bit or Red_Bit;
35            when Yellow =>
36               State := (State or Green_Bit) and not Red_Bit;
37            when Red =>
38               State := State and not (Green_Bit or Red_Bit);
39         end case;
40
41         Outport (LED_Port, State);
42      end Set;
43
44   end LED_State;
45
46end TS1325.LED;
Note: See TracBrowser for help on using the repository browser.