Add some comments.

[matthijs/master-project/cλash.git] / Alu.hs

diff --git a/Alu.hs b/Alu.hs
index 2495df25f0c80b885f4095012088e4f2b30f2623..59e5fd521a9ac856bc489eafbbb4d04cfc2cf2a8 100644 (file)
--- a/Alu.hs
+++ b/Alu.hs
@@ -16,8 +16,7 @@ program = [
 
 initial_state = ((Low, High), (), Low, Low)
 
---
---
+-- Register bank
 
 type RegAddr = Bit
 type RegisterBankState = (Bit, Bit)
@@ -40,6 +39,8 @@ register_bank (addr, High, d) s = -- Write
     r1' = if addr == High then d else r1
     s' = (r0', r1')
 
+-- ALU
+
 type AluState = ()
 type AluOp = Bit