Unit Daugyba;
           Reg C[15];
           Reg A[15];
	   Reg APrad[15];
	   Reg BPrad[8];
           Alu alu[15];
           Reg B[8];
           Cnt SK[3];
	   Reg ZenklasB[1];
MicroOperations
1: A[1:8]=input; /1
2: B=input; /1
3: C=0; /1
4: SK = 111; /1
5: R=A; /1
6: R=B;/1
7: F=0100; /2
8: A=M;/3
9: R=C;/1
10: F=1000;/2
11: C=M;/3
12: A=RLS(A);/1
13: B=LLS(B);/1
14: SK=SK-1;/1
15: APrad = A;/1
16: B=M[8:15];/3
17: A = APrad;/1
18: F=0100;/2
19: L = A;/1
20: BPrad = B;/1
21: A[1] = 1;/3
22: C[1] = 0;/1
23: C[1] = 1;/3

Trace      A,APrad, BPrad,B,C,SK;

Conditions
1: B[1]==1;
2: APrad[1]==1;
3: SK==0;
4: BPrad[1]==0;
5: APrad[1]==0;
6: BPrad[1]==1;



AddressingMode F1;

Format  Y1,Y2,Y3,Y4,X,A;

Yfields
           1: 5,16,1,15,14,19,23;
           2: 7,9,2,12,20,22;
           3: 8,10,3,13,18;
           4: 6,11,4,17,21;

Xfield 1,2,3,4,5,6;

MiMemory
0:         3 3 3 3  0 1;
// Suvedu A,B, C prilyginu 0 ir SK = 7
1:         4 5 0 0  2 2;
// Prisiskiriu APrad = A, BPRad = B ir tikrinu ar A[1] = 1 jeigu True eina i 3, jeigu false i 2
2:         0 0 0 0  1 4;
// Tuscia operacija taciau tikrina ar B[1] = 1 jeigu true eina i 5 jeigu false i 4
3:         1 1 1 5  0 2;
// Daro operacija A = ^A + 1
4:         0 4 4 0  2 6;
// daro RLS(A), LLS(B) ir tikrina ar APrad = 1 jei true eina i 7 jei false eina i 6
5:         2 1 0 1  0 4;
// Atlieka operacija B = ^B +1 ir eina i 4
6:         0 0 0 0  1 8;
// Tuscia operacija, kuri tikrina ar B[1]=1 jei false eina i 8 jei true eina i 9
7:         0 0 0 5  0 6;
// Uzpildo vienetais A[1]
8:         0 4 0 0  2 10;
// Atlieka RLS(A) operacija ir patikrina ar APrad = 1 jei false eina i 10 jei true eina i 11
9:         6 2 2 2  0 8;
// Atlieka operacija C=C+A ir eina i 8
10:        0 0 4 0  0 12;
// Atlieka LLS(B) ir eina i 12
11:	   0 0 0 5  0 10;
// Uzpildo vienetais A[1] ir eina i 10
12:	   5 0 0 0  3 13;
// Operacija SK = SK-1 ir tikrina ar SK = 0 jeigu false eina i 13 jei true i 14
13:	   0 0 0 0  1 8;
// Tuscia operacija, kuri tikrina ar B[1] = 1 jei false eina i 8 jei true eina i 9
14:        0 0 0 0  2 15;
// Tuscia operacija, kuri tikrina ar APrad[1] = 1 jei false eina i 15 jei true eina i 16
15:        0 0 0 0  2 20;
// Tuscia operacija, kuri tikrina ar APrad[1] = 1 jei false eina i 20 jei true eina i 21
16:        0 0 0 0  6 17;
// Tuscia operacija, kur tikrina ar BPrad =1 jei false eina i 17 jei true eina i 18
17:        0 0 0 0  2 20;
// Patikrina Ar APrad[1]= 0 jeigu false eina i 20 jeigu true eina i 21
18:        0 0 0 4  0 19;
// Atlieka operacija A = APrad;
19:        6 2 2 2  0 24;
// Atlieka operacija C = C+A
20:        0;

21:        0 0 0 0  6 22;

22:        6 2 5 2  0 25;

23:        0;
24:        0 6 0 0  0 17;
25:        7 0 0 0  0 23;
Begin
End