diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-12 01:01:22 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-04-12 01:01:22 +0300 |
| commit | 21aa1d1f11c369323d8c3bf71648bd0a8321ca61 (patch) | |
| tree | 68b29b89cb3bbb26167d990ac22dba580b9467a1 /src/Control.hs | |
| parent | 0be6a61d0a819b057b43848632928a261021ed25 (diff) | |
| download | suem-21aa1d1f11c369323d8c3bf71648bd0a8321ca61.tar suem-21aa1d1f11c369323d8c3bf71648bd0a8321ca61.tar.xz suem-21aa1d1f11c369323d8c3bf71648bd0a8321ca61.zip | |
Device protocol is almost done!
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 |