мультиплексор => селективный мультиплексор Опции

[moonlight]

Есть описание мультиплексора на языке ADHL на 4 информационных входа и один выход:

Код

SUBDESIGN laboratorn
(
code[1..0] :INPUT;
out1 :OUTPUT;
in[3..0] :INPUT;
)
BEGIN
CASE code[] IS
WHEN 0 => out1=in[0];
WHEN 1 => out1=in[1];
WHEN 2 => out1=in[2];
WHEN 3 => out1=in[3];
END CASE;
END;

Как бы так из него сделать селективный? Что необходимо изменить?

Причина редактирования: Оформление цитаты исходника.