1 module Shifter (main, mainIO) where
5 main = Sim.simulate shifter [High, Low, Low, Low] [High, Low, High, Low]
6 mainIO = Sim.simulateIO shifter [High, Low, High, Low]
8 type ShifterState = [Bit]
9 shifter :: Bit -> ShifterState -> (ShifterState, Bit)
13 s' = (o `hwxor` i) : (init s)
16 -- vim: set ts=8 sw=2 sts=2 expandtab: