DA 11.02.26
ALU 4 bit ver.2 kompletni ALU s akumulátorem A
device 16v8

clk	1	'hodiny
f1	2	'funkce alu: load A, A+B+C, A NOR B, A AND B
f2	3	'funkce carry: carry, A /= B, clear C, A = 0,  
/la	4	'/load A
/lc	5	'/load C
b1	6	'B operand sbernice
b2	7
b3	8
b4	9
gnd     10
/oe     11	'/output enable
a4	12	'A akumulator
a3	13
a2	14
a1	15
c1	16	'C carry
c2	17
c3	18
c4	19
vcc     20

start

a1     :=         a1*/la		'pridrz
	+     b1*     la*/f2*/f1	'load A       
	+/c4*/b1* a1* la*/f2* f1	'A+B+C 
	+/c4* b1*/a1* la*/f2* f1
	+ c4*/b1*/a1* la*/f2* f1
	+ c4* b1* a1* la*/f2* f1
	+    /b1*/a1* la* f2*/f1	'A NOR B	   
	+     b1* a1* la* f2* f1	'A AND B;

c1	=     b1* a1*/f2* f1		'carry 
	+ c4* b1*/a1*/f2* f1
	+ c4*/b1* a1*/f2* f1
	+    /b1* a1*    /f1		'A /= B
	+     b1*/a1*    /f1
	+    /b3* a3*	 /f1		
	+     b3*/a3*	 /f1;

a2     :=         a2*/la		'pridrz
	+     b2*     la*/f2*/f1	'load A       
	+/c1*/b2* a2* la*/f2* f1	'A+B+C 
	+/c1* b2*/a2* la*/f2* f1
	+ c1*/b2*/a2* la*/f2* f1
	+ c1* b2* a2* la*/f2* f1
	+    /b2*/a2* la* f2*/f1	'A NOR B	   
	+     b2* a2* la* f2* f1	'A AND B;

c2	=     b2* a2*/f2* f1		'carry 
	+ c1* b2*/a2*/f2* f1
	+ c1*/b2* a2*/f2* f1
	+    /b2* a2*    /f1		'A /= B
	+     b2*/a2*    /f1
	+    /b4* a4*    /f1
	+     b4*/a4*    /f1;

a3     :=         a3*/la		'pridrz
	+     b3*     la*/f2*/f1	'load A       
	+/c2*/b3* a3* la*/f2* f1	'A+B+C 
	+/c2* b3*/a3* la*/f2* f1
	+ c2*/b3*/a3* la*/f2* f1
	+ c2* b3* a3* la*/f2* f1
	+    /b3*/a3* la* f2*/f1	'A NOR B	   
	+     b3* a3* la* f2* f1	'A AND B;

c3	=     b3* a3*/f2* f1		'carry
	+ c2* b3*/a3*/f2* f1
	+ c2*/b3* a3*/f2* f1
	+/a4*/a3*/a2*/a1*/f1;		'A = 0

a4     :=         a4*/la		'pridrz
	+     b4*     la*/f2*/f1	'load A       
	+/c3*/b4* a4* la*/f2* f1	'A+B+C 
	+/c3* b4*/a4* la*/f2* f1
	+ c3*/b4*/a4* la*/f2* f1
	+ c3* b4* a4* la*/f2* f1
	+    /b4*/a4* la* f2*/f1	'A NOR B	   
	+     b4* a4* la* f2* f1	'A AND B;

c4     := c4*        /lc		'pridrz
	+     b4* a4* lc*/f2* f1	'carry
	+ c3* b4*/a4* lc*/f2* f1
	+ c3*/b4* a4* lc*/f2* f1
	+ c2*         lc*    /f1	'A /= B
	+ c1*         lc*    /f1
	+             0*  f2* f1;	'clear C
end