diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-22 16:45:26 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2021-03-22 16:45:26 +0300 |
| commit | 77b2540293dea4b6c348b3154e62c095de780142 (patch) | |
| tree | e2cec7002d04c92bfa8e2438703e1319fb37e6f2 /src/Machine.hs | |
| parent | 1328d948ba1d3e4d72ceb8a4a01db7bb982535b4 (diff) | |
| download | suem-77b2540293dea4b6c348b3154e62c095de780142.tar suem-77b2540293dea4b6c348b3154e62c095de780142.tar.xz suem-77b2540293dea4b6c348b3154e62c095de780142.zip | |
.
Diffstat (limited to 'src/Machine.hs')
| -rw-r--r-- | src/Machine.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Machine.hs b/src/Machine.hs index 23b7872..947d43a 100644 --- a/src/Machine.hs +++ b/src/Machine.hs @@ -167,6 +167,7 @@ writeA _ _ = return $ error "Incorrect Address register write" ------------------------------------------------------------------------------- -- PC Register Access + readPC = with pc $ \pc -> do return pc |