diff options
Diffstat (limited to 'src/Control.hs')
-rw-r--r-- | src/Control.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Control.hs b/src/Control.hs index 65b3831..a6a6271 100644 --- a/src/Control.hs +++ b/src/Control.hs @@ -276,6 +276,7 @@ setByte :: Long -> Byte -> Emulator () setByte a b | a < 0x8 = return () | a < 0x7e0000 = with ram $ \ram -> VM.write ram (fromIntegral a) b + | a < 0x800000 = return () | otherwise = deviceSetByte a b -- TODO: only even addresses are allowed |