X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=Alu.hs;h=59e5fd521a9ac856bc489eafbbb4d04cfc2cf2a8;hb=844555bd28c13cfe1bcb450960008e81928fe2c5;hp=2495df25f0c80b885f4095012088e4f2b30f2623;hpb=c26287ccb501b5645531cc7c8e7f07de0efe7340;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

diff --git a/Alu.hs b/Alu.hs
index 2495df2..59e5fd5 100644
--- 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