From ef5ab9aee5d957ae0aff1b81f24b28f3f6394934 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Sun, 12 Jan 2025 11:09:56 -0500
Subject: clean up case statements and math

---
 src/isa.ads | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'src/isa.ads')

diff --git a/src/isa.ads b/src/isa.ads
index 98d3d3e..ffc0593 100644
--- a/src/isa.ads
+++ b/src/isa.ads
@@ -46,6 +46,23 @@ package ISA is
    Clear_Screen : constant Opcode_Value := 16#E0#;
    Ret          : constant Opcode_Value := 16#EE#;
 
+   type Math_Class is (
+      Assign, Bit_Or, Bit_And, Bit_Xor, Add, Sub_Y, Shift_Right, Sub_X,
+      Shift_Left
+   );
+
+   for Math_Class use (
+      Assign      => 0,
+      Bit_Or      => 1,
+      Bit_And     => 2,
+      Bit_Xor     => 3,
+      Add         => 4,
+      Sub_Y       => 5,
+      Shift_Right => 6,
+      Sub_X       => 7,
+      Shift_Left  => 14
+   );
+
    type Input_Class is (Key_Down, Key_Up);
 
    for Input_Class use (
-- 
cgit v1.2.3