c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

with I386_Ports;
use I386_Ports;

package TS1325.LED is

   type LED_Colour is (Off, Green, Yellow, Red);

   protected LED_State is

      function Get return LED_Colour;

      procedure Set (Col: in LED_Colour);

   end LED_State;

private

   Green_Bit: constant Byte := 2#0010_0000#; -- bit set = LED on

   Red_Bit: constant Byte := 2#0100_0000#; -- bit clear = LED on

   LED_Mask: constant Byte := 2#0110_0000#;

   LED_Port: Port_Address renames P1LTC;

end TS1325.LED;