From 89909343a8b8b7af4ff44afab77a54c28f164cbe Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Mon, 15 Mar 2021 17:00:35 +0300 Subject: Device module started. --- src/Device.hs | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'src/Device.hs') 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 () -- cgit v1.2.3