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

CHIP RAM4K {
    IN in[16], load, address[12];
    OUT out[16];

    PARTS:
    DMux8Way(in=load, sel[0..2]=address[9..11], a=r0, b=r1, c=r2, d=r3, e=r4, f=r5, g=r6, h=r7);
    RAM512(in=in, load=r0, address=address[0..8], out=reg0);
	RAM512(in=in, load=r1, address=address[0..8], out=reg1);
	RAM512(in=in, load=r2, address=address[0..8], out=reg2);
	RAM512(in=in, load=r3, address=address[0..8], out=reg3);
	RAM512(in=in, load=r4, address=address[0..8], out=reg4);
	RAM512(in=in, load=r5, address=address[0..8], out=reg5);
	RAM512(in=in, load=r6, address=address[0..8], out=reg6);
	RAM512(in=in, load=r7, address=address[0..8], out=reg7);
	Mux8Way16(a=reg0, b=reg1, c=reg2, d=reg3, e=reg4, f=reg5, g=reg6, h=reg7, sel=address[9..11], out=out);
}