diff options
| author | Nikita Orlov <nikitf-97@mail.ru> | 2021-03-22 13:15:19 +0300 |
|---|---|---|
| committer | Nikita Orlov <nikitf-97@mail.ru> | 2021-03-22 13:15:19 +0300 |
| commit | 1328d948ba1d3e4d72ceb8a4a01db7bb982535b4 (patch) | |
| tree | 92b3a3cefbd206b76e1529d498a917618ea2ed99 /src/Machine.hs | |
| parent | 9180aab5f90381b8e9fec0288b795cf197e3b420 (diff) | |
| download | suem-1328d948ba1d3e4d72ceb8a4a01db7bb982535b4.tar suem-1328d948ba1d3e4d72ceb8a4a01db7bb982535b4.tar.xz suem-1328d948ba1d3e4d72ceb8a4a01db7bb982535b4.zip | |
PC access added
Diffstat (limited to 'src/Machine.hs')
| -rw-r--r-- | src/Machine.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/Machine.hs b/src/Machine.hs index 6a09be9..23b7872 100644 --- a/src/Machine.hs +++ b/src/Machine.hs @@ -166,6 +166,19 @@ writeA _ _ = return $ error "Incorrect Address register write" ------------------------------------------------------------------------------- +-- PC Register Access +readPC = with pc $ \pc -> do + return pc + +writePC r = with pc $ \pc -> do + writeIORef pc r + +incPC = with pc $ \pc -> do + pcval <- readIORef pc + writeIORef pc (pcval + 2) + + +------------------------------------------------------------------------------- -- Status Register Access isTracing :: Emulator Bool |