From ffecebbda13f7b6186bac90330e8ea33755281ef Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Sat, 11 Jan 2025 18:13:04 -0500 Subject: clean up magic numbers --- src/isa.ads | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/isa.ads') 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; -- cgit v1.2.3