--- Quote Start ---
q : BUFFER INTERGER RANGE 0 TO 11;
--- Quote End ---
should be
q : BUFFER INTEGER RANGE 0 TO 11;
--- Quote Start ---
q <= q+1 --inputs equation
--- Quote End ---
should be
q <= q+1; --inputs equation
--- Quote Start ---
process (clk,bcd)
BEGIN
IF (Abortd = '1') THEN
...
--- Quote End ---
should be
process (clk,bcd)
BEGIN
if rising_edge(clk) then -- Assuming rising edge
IF (Abortd = '1') THEN
...
end if; -- Don't forget to add one more end if to match the added 'if rising_edge(clk)
--- Quote Start ---
case q is
when '0000'=> onesegment7 <="000000001111110"; -- '0'
when '0001'=> onesegment7 <="000000000110000"; -- '1'
etc.
--- Quote End ---
should be
case q is
when 0 => onesegment7 <="000000001111110"; -- '0'
when 1 => onesegment7 <="000000000110000"; -- '1'
etc.
Kevin Jennings
Honored Contributor
