begin
(q3,q2,q1,q0,)= 74160(fin1,vcc,fin2,vcc,vcc,GND,GND,GND,GND);
case q[3..0] is
when 0=>
dout[4..1]=dina[3..0];dout5=gnd;dout[8..6]=dina[6..4];dout9=gnd;dout0=gnd;
when 1=>
dout[3..0]=dinb[3..0];dout4=gnd;dout[7..5]=dinb[6..4]
;dout[9..8]=gnd;
when 2=>
dout[3..0]=dinc[3..0];dout4=gnd;dout[6..5]=dinc[5..4]
;dout[9..7]=gnd;
when 3=>
dout[3..0]=dind[3..0];dout4=gnd;dout[8..5]=dind[7..4];dout9=gnd;
when 4=>
dout[1..0]=dine[1..0];dout[9..2]=gnd;
when others=>
dout[9..0]=gnd;
end case;
end;