From 7769149edba759f002ff9652a579e5cf3b21a4b1 Mon Sep 17 00:00:00 2001
From: Mason Ticehurst <masonticehurst@me.com>
Date: Tue, 13 Feb 2024 19:24:58 -0500
Subject: [PATCH] Add interrupt handler routine for user button

---
 eRINA_STM32F7/src/rina/board.adb | 11 +++++++++++
 eRINA_STM32F7/src/rina/board.ads |  9 +++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 eRINA_STM32F7/src/rina/board.adb
 create mode 100644 eRINA_STM32F7/src/rina/board.ads

diff --git a/eRINA_STM32F7/src/rina/board.adb b/eRINA_STM32F7/src/rina/board.adb
new file mode 100644
index 0000000..0376d16
--- /dev/null
+++ b/eRINA_STM32F7/src/rina/board.adb
@@ -0,0 +1,11 @@
+with Debug;
+
+package body Board is
+   protected body Button_Handler is
+      procedure Pressed is
+      begin
+         STM32.Board.All_LEDs_On;
+         Debug.Print(Debug.Info, "Button pressed!");
+      end Pressed;
+   end Button_Handler;
+end Board;
\ No newline at end of file
diff --git a/eRINA_STM32F7/src/rina/board.ads b/eRINA_STM32F7/src/rina/board.ads
new file mode 100644
index 0000000..e69d1ef
--- /dev/null
+++ b/eRINA_STM32F7/src/rina/board.ads
@@ -0,0 +1,9 @@
+with STM32;
+with STM32.Board;
+
+package Board is
+   protected type Button_Handler is
+      procedure Pressed;
+      pragma Attach_Handler (Pressed, STM32.Board.User_Button_Interrupt);
+   end Button_Handler;
+end Board;
\ No newline at end of file