diff options
author | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-15 17:00:35 +0300 |
---|---|---|
committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-15 17:00:35 +0300 |
commit | 89909343a8b8b7af4ff44afab77a54c28f164cbe (patch) | |
tree | 62853fb475e77882bde262072ab0e2734ccc5fb8 /src/Device.hs | |
parent | f46e607f284f2edb41711550990106f47460fc26 (diff) | |
download | suem-89909343a8b8b7af4ff44afab77a54c28f164cbe.tar suem-89909343a8b8b7af4ff44afab77a54c28f164cbe.tar.xz suem-89909343a8b8b7af4ff44afab77a54c28f164cbe.zip |
Device module started.
Diffstat (limited to 'src/Device.hs')
-rw-r--r-- | src/Device.hs | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/src/Device.hs b/src/Device.hs index 1d42bb8..50fb3fc 100644 --- a/src/Device.hs +++ b/src/Device.hs @@ -1,14 +1,16 @@ -module Machine where +module Device where +import Prelude hiding (Word) import Data.Word (Word32, Word16, Word8) +import Machine data DeviceRequest = DeviceGetByte Long | DeviceGetWord Long | DeviceGetLong Long - | DeviceSetByte Long Word8 - | DeviceSetWord Long Word16 - | DeviceSetLong Long Word32 + | DeviceSetByte Long Byte + | DeviceSetWord Long Word + | DeviceSetLong Long Long checkInteruptsFromDevices :: Emulator () -checkInteruptsFromDevices = putStrLn "blah-blah" +checkInteruptsFromDevices = return () |