From f621a0f1491bd05113aced3a3905318e54681d0b Mon Sep 17 00:00:00 2001
From: Aleksey Veresov <aleksey@veresov.pro>
Date: Mon, 12 Apr 2021 09:59:12 +0300
Subject: Interrupts for Devices added!

Non-blocking check is not done yet.
---
 src/Machine.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Machine.hs')

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.
-- 
cgit v1.2.3