diff options
Diffstat (limited to 'c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads')
-rw-r--r-- | c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads deleted file mode 100644 index 6856bc4520..0000000000 --- a/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads +++ /dev/null @@ -1,26 +0,0 @@ -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; |