diff options
Diffstat (limited to 'src/Machine.hs')
-rw-r--r-- | src/Machine.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Machine.hs b/src/Machine.hs index 75ad877..60f9a41 100644 --- a/src/Machine.hs +++ b/src/Machine.hs @@ -44,7 +44,10 @@ data Machine = Machine { c4 :: IORef (Maybe Handle), c5 :: IORef (Maybe Handle), c6 :: IORef (Maybe Handle), - c7 :: IORef (Maybe Handle) + c7 :: IORef (Maybe Handle), + -- Deps for Devices + getFnInterruptLevel :: Emulator Int, + getFnDoInterrupt :: Emulator () } -- Emulator is a monad which contains Machine and allows easy change of it. |