diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2025-01-11 17:22:15 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2025-01-11 17:22:15 -0500 |
| commit | ca965d766ada49ccddc9c6da388cf223ec04ba3f (patch) | |
| tree | a19095c5e98221d6970ba836c78a1534b7f3c1c5 /src/cpu.ads | |
| parent | 1bd0c44fca6abb9d881b420b951ccac284a2c6cb (diff) | |
render and polling improvements
Diffstat (limited to 'src/cpu.ads')
| -rw-r--r-- | src/cpu.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/cpu.ads b/src/cpu.ads index 562402f..ebf2486 100644 --- a/src/cpu.ads +++ b/src/cpu.ads @@ -8,7 +8,7 @@ package CPU is (Index_Type => Natural, Element_Type => Address); type Instance is record - Memory : Bank := [ + Memory : Bank := ( 16#F0#, 16#90#, 16#90#, 16#90#, 16#F0#, -- 0 16#20#, 16#60#, 16#20#, 16#20#, 16#70#, -- 1 16#F0#, 16#10#, 16#F0#, 16#80#, 16#F0#, -- 2 @@ -26,7 +26,7 @@ package CPU is 16#F0#, 16#80#, 16#F0#, 16#80#, 16#F0#, -- E 16#F0#, 16#80#, 16#F0#, 16#80#, 16#80#, -- F others => 0 - ]; + ); Registers : Register_Bank; Program_Counter : Address := Start_Address; Address_Register : Address := 0; |