blob: 50fb3fc59280ba487b68533d21b8866de786d862 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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 Byte
| DeviceSetWord Long Word
| DeviceSetLong Long Long
checkInteruptsFromDevices :: Emulator ()
checkInteruptsFromDevices = return ()
|
