diff options
Diffstat (limited to 'src/Device.hs')
-rw-r--r-- | src/Device.hs | 14 |
1 files changed, 14 insertions, 0 deletions
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" |