[an error occurred while processing this directive]
|
--7 разрядов сдвиг влево
SUBDESIGN SHIFT_REG
(
CLK :INPUT;
RESET :INPUT;
ENA : INPUT;
IN :INPUT;
DI[7..0] : INPUT;
LOAD : INPUT;
DO : OUTPUT;
)
----------------------------------------------------------
VARIABLE
SHIFT[7..0] : DFFE;
----------------------------------------------------------
BEGIN
SHIFT[].CLK = CLK;
SHIFT[].CLRN = RESET;
SHIFT[].ENA = ENA;
IF LOAD THEN
SHIFT[].D = DI[];
ELSE
SHIFT[].D = (SHIFT[6..0],IN);
END IF;
DO = SHIFT[7];--забыл выход :o)))
END;
E-mail: info@telesys.ru