From 21aa1d1f11c369323d8c3bf71648bd0a8321ca61 Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Mon, 12 Apr 2021 01:01:22 +0300
Subject: Device protocol is almost done!

---
 src/Control.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Control.hs')

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
-- 
cgit v1.2.3