clean up magic numbers

1 files changed, 14 insertions, 0 deletions

diff --git a/src/isa.ads b/src/isa.ads
index fbb81c4..a15fd96 100644
--- a/src/isa.ads
+++ b/src/isa.ads
@@ -42,6 +42,20 @@ package ISA is
       Input         => 14,
       Misc          => 15);
 
+   Clear_Screen : constant Byte := 16#E0#;
+   Ret          : constant Byte := 16#EE#;
+   Key_Down     : constant Byte := 16#9E#;
+   Key_Up       : constant Byte := 16#A1#;
+   Get_Delay    : constant Byte := 16#07#;
+   Get_Key      : constant Byte := 16#0A#;
+   Set_Delay    : constant Byte := 16#15#;
+   Set_Sound    : constant Byte := 16#18#;
+   Add_Address  : constant Byte := 16#1E#;
+   Get_Font     : constant Byte := 16#29#;
+   Get_BCD      : constant Byte := 16#33#;
+   Reg_Store    : constant Byte := 16#55#;
+   Reg_Load     : constant Byte := 16#65#;
+
    Start_Address : constant Address := 16#200#;
 
    function To_Byte (O : Opcode) return Byte;