diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-15 16:43:32 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-15 16:43:32 +0300 |
| commit | f46e607f284f2edb41711550990106f47460fc26 (patch) | |
| tree | 260f91e1eb9f87a37e466f333776ec3f7a7f1062 /src/Device.hs | |
| parent | 12fcc45436309def4a6137c8f6547514c8a706c6 (diff) | |
| download | suem-f46e607f284f2edb41711550990106f47460fc26.tar suem-f46e607f284f2edb41711550990106f47460fc26.tar.xz suem-f46e607f284f2edb41711550990106f47460fc26.zip | |
.
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" |