From f46e607f284f2edb41711550990106f47460fc26 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Mon, 15 Mar 2021 16:43:32 +0300 Subject: . --- src/Device.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 src/Device.hs (limited to 'src/Device.hs') diff --git a/src/Device.hs b/src/Device.hs new file mode 100644 index 0000000..1d42bb8 --- /dev/null +++ b/src/Device.hs @@ -0,0 +1,14 @@ +module Machine where + +import Data.Word (Word32, Word16, Word8) + + +data DeviceRequest = DeviceGetByte Long + | DeviceGetWord Long + | DeviceGetLong Long + | DeviceSetByte Long Word8 + | DeviceSetWord Long Word16 + | DeviceSetLong Long Word32 + +checkInteruptsFromDevices :: Emulator () +checkInteruptsFromDevices = putStrLn "blah-blah" -- cgit v1.2.3