1 files changed, 26 insertions, 0 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
new file mode 100644
index 0000000000..6856bc4520
--- /dev/null
+++ b/c/src/lib/libbsp/i386/ts_386ex/tools/ts_1325_ada/ts1325-led.ads
@@ -0,0 +1,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;