blob: 1d42bb8b114d45f6d2cd3cdac326dcf517e8083d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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"
|