From f46e607f284f2edb41711550990106f47460fc26 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Mon, 15 Mar 2021 16:43:32 +0300 Subject: . --- src/Machine.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'src/Machine.hs') diff --git a/src/Machine.hs b/src/Machine.hs index 06860bf..46ff38d 100644 --- a/src/Machine.hs +++ b/src/Machine.hs @@ -13,6 +13,7 @@ import Control.Monad.IO.Class (liftIO) import Control.Monad.Reader (MonadReader, ReaderT, ask) import Control.Monad.Trans (MonadIO) import Utils +import Network ------------------------------------------------------------------------------- @@ -30,7 +31,15 @@ data Machine = Machine { usp :: IORef Long, -- this is a7 in user mode ssp :: IORef Long, -- this is a7 in supermode ram :: VM.IOVector Byte, - rom :: V.Vector Byte + rom :: V.Vector Byte, + s0 :: Maybe Socket, + s1 :: Maybe Socket, + s2 :: Maybe Socket, + s3 :: Maybe Socket, + s4 :: Maybe Socket, + s5 :: Maybe Socket, + s6 :: Maybe Socket, + s7 :: Maybe Socket } -- Emulator is a monad which contains Machine and allows easy change of it. -- cgit v1.2.3