Счетное устройство видеоимпульсов на ПЛИС
Дипломная работа - Разное
Другие дипломы по предмету Разное
>
Dmsh[DATA_WITH-1..0] = H"80";OE = vcc;
Eena = vcc;_RW = gnd;_RS = gnd;Pause.aclr = vcc;
ST = bz1;
WHEN bz1 =>
Dmsh[DATA_WITH-1..0] = H"00";OE = gnd;
Eena = vcc;_RW = vcc;_RS = gnd;Pause.aclr = vcc;
ST = cz1;
WHEN cz1 =>
Dmsh[DATA_WITH-1..0] = H"00";OE = gnd;
Eena = gnd;_RW = vcc;_RS = gnd;Pause.aclr = gnd;
IF Din[DATA_WITH-1].q==0 THEN ST = ds; ELSE ST = bz1; END IF;
END CASE;
INBUF[5..0][DATA_WITH-1..0].clk=READ.q;
INBUF[5..0][DATA_WITH-1..0].d=IN[5..0][DATA_WITH-1..0];
IF ST==dz1 THEN READ.d=vcc; ELSE READ.d=gnd; END IF;
READ.clk=clk;
IF ST==ds THEN STR.clock=vcc; ELSE STR.clock=gnd; END IF;
STR.aclr=READ.q;
CASE STR.q[] IS
WHEN H"1" => LINE[]=INBUF[5][DATA_WITH-1..0];
WHEN H"2" => LINE[]=INBUF[4][DATA_WITH-1..0];
WHEN H"3" => LINE[]=INBUF[3][DATA_WITH-1..0];
WHEN H"4" => LINE[]=INBUF[2][DATA_WITH-1..0];
WHEN H"5" => LINE[]=INBUF[1][DATA_WITH-1..0];
WHEN H"6" => LINE[]=INBUF[0][DATA_WITH-1..0];
WHEN H"7" => LINE[]=H"20";
WHEN H"8" => LINE[]=H"43";
WHEN H"9" => LINE[]=H"44";
WHEN H"A" => LINE[]=H"45";
WHEN H"B" => LINE[]=H"46";
WHEN H"C" => LINE[]=H"47";
WHEN H"D" => LINE[]=H"48";
WHEN H"E" => LINE[]=H"49";
WHEN H"F" => LINE[]=H"4A";
END CASE;
END;