cpu/cpu.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

open Netlist_gen

(* Dumb CPU that just does an 8-bit addition *)

let sumz n i =
    let rec res =
        let aux = reg n in
        fun () -> fst (Alu.nadder n i (aux res) (value "0")) ()
    in
       res

let p = 
    main_1_1 (sumz 8) 8

let () = Netlist_proc.print stdout p