added basic decoding
This commit is contained in:
parent
ef58d5b07e
commit
32932f4816
7 changed files with 289 additions and 61 deletions
|
@ -47,9 +47,6 @@ machine' machine =
|
|||
in
|
||||
machine { cpu = cpu', mem = mem' }
|
||||
|
||||
machineSignal :: HiddenClockResetEnable dom => Signal dom Machine
|
||||
machineSignal = register machine (machine' <$> machineSignal)
|
||||
|
||||
simulationLoop :: Int -> Machine -> IO [Machine]
|
||||
simulationLoop 0 state = return [state]
|
||||
simulationLoop n state = do
|
||||
|
|
Reference in a new issue