diff options
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 |