diff options
author | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-15 16:43:32 +0300 |
---|---|---|
committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-15 16:43:32 +0300 |
commit | f46e607f284f2edb41711550990106f47460fc26 (patch) | |
tree | 260f91e1eb9f87a37e466f333776ec3f7a7f1062 /src/Machine.hs | |
parent | 12fcc45436309def4a6137c8f6547514c8a706c6 (diff) | |
download | suem-f46e607f284f2edb41711550990106f47460fc26.tar suem-f46e607f284f2edb41711550990106f47460fc26.tar.xz suem-f46e607f284f2edb41711550990106f47460fc26.zip |
.
Diffstat (limited to 'src/Machine.hs')
-rw-r--r-- | src/Machine.hs | 11 |
1 files changed, 10 insertions, 1 deletions
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. |