Четырёхразрядное арифметико-логическое устройство в MAX PLUS II

[BrightWInd]

Вобщем-то задание смоделировать АЛУ в Max Plus II, таблицу для реализации взял эту

вот что вышло для логической части

subdesign ArifmLogicUstr
(
a0[0]:input;
a1[0]:input;
a2[0]:input;
a3[0]:input;
b0[0]:input;
b1[0]:input;
b2[0]:input;
b3[0]:input;
s[3..0]:input;
--m[1..0]:input;
f0[1..0]:output;
f1[1..0]:output;
f2[1..0]:output;
f3[1..0]:output;
)
begin
--if direction=="M=0"
case s[] is
when b"0000"=> f0[]=!a0[]; f1[]=!a1[]; f2[]=!a2[]; f3[]=!a3[];
when b"0001"=> f0[]=!(a0[]#b0[]); f1[]=!(a1[]#b1[]); f2[]=!(a2[]#b2[]); f3[]=!(a3[]#b3[]);
when b"0010"=> f0[]=!a0[]&b0[]; f1[]=!a1[]&b1[]; f2[]=!a2[]&b2[]; f3[]=!a3[]&b3[];
when b"0011"=> f0[]=0; f1[]=0; f2[]=0; f3[]=0;
when b"0100"=> f0[]=!(a0[]&b0[]); f1[]=!(a1[]&b1[]); f2[]=!(a2[]&b2[]); f3[]=!(a3[]&b3[]);
when b"0101"=> f0[]=!b0[]; f1[]=!b1[]; f2[]=!b2[]; f2[]=!b2[];
when b"0110"=> f0[]=a0[]$b0[]; f1[]=a1[]$b1[]; f2[]=a2[]$b2[]; f3[]=a3[]$b3[];
when b"0111"=> f0[]=a0[]&!b0[]; f1[]=a1[]&!b1[]; f2[]=a2[]&!b2[]; f3[]=a3[]&!b3[];
when b"1000"=> f0[]=!a0[]#b0[]; f1[]=!a1[]#b1[]; f2[]=!a2[]#b2[]; f3[]=!a3[]#b3[];
when b"1001"=> f0[]=!(a0[]$b0[]); f1[]=!(a1[]$b1[]); f2[]=!(a2[]$b2[]); f3[]=!(a3[]$b3[]);
when b"1010"=> f0[]=b0[]; f1[]=b1[]; f2[]=b2[]; f3[]=b3[];
when b"1011"=> f0[]=a0[]&b0[]; f1[]=a1[]&b1[]; f2[]=a2[]&b2[]; f3[]=a3[]&b3[];
when b"1100"=> f0[]=1; f1[]=1; f2[]=1; f3[]=1;
when b"1101"=> f0[]=a0[]#!b0[]; f1[]=a1[]#!b1[]; f2[]=a2[]#!b2[]; f3[]=a3[]#!b3[];
when b"1110"=> f0[]=a0[]#b0[]; f1[]=a1[]#b1[]; f2[]=a2[]#b2[];  f3[]=a3[]#b3[];
when b"1111"=> f0[]=a0[]; f1[]=a1[]; f2[]=a2[]; f3[]=a3[];
end case;

правильно ли я делаю, или как можно сделать, чтобы не для каждого разряда прописывать действие, если это не правильно