-module Alu where
-import Bits
+module Alu where
import qualified Sim
-import Data.SizedWord
-import Types
-import Types.Data.Num
+import CLasH.HardwareTypes hiding (fst,snd)
import CLasH.Translator.Annotations
import qualified Prelude as P
dontcare = Low
-newtype State s = State s deriving (P.Show)
-
program = [
-- (addr, we, op)
(High, Low, High), -- z = r1 and t (0) ; t = r1 (1)