[an error occurred while processing this directive]
|
|
%---------------------------------------%
% CONTROL VOICE BROADCAST %
% Управление кодеком %
%---------------------------------------%
SUBDESIGN CONTROL_VB
(
D[8..0] : INPUT=VCC;
CS_DATA, FS, CS : OUTPUT;
)
VARIABLE
DATA_FF : DFF;
FS_FF : DFF;
CS_FF : DFF;
BEGIN
DEFAULTS
DATA_FF.D = VCC;
FS_FF.D = GND;
CS_FF.D = GND;
END DEFAULTS;
CS_FF.CLK = !D4;
DATA_FF.CLK = !D3;
FS_FF.CLK = !D0;
CS_DATA = DATA_FF.Q;
FS = FS_FF.Q;
CS = CS_FF.Q;
CASE D[8..0] IS
WHEN B"1110XXXXX" => CS_FF.D = VCC;
WHEN B"X11111101" => FS_FF.D = VCC;
WHEN B"X11111XXX" => DATA_FF.D = GND;
END CASE;
END;
E-mail: info@telesys.ru