headache with 2 process state machine

Hi jacklsw and FvM

so this is working (sufficiently for my purpose)

I went down jacklsw route (mostly because in my post I did ask

'Am I trying to do too much in each of the states, should I be creating some other code to do the donkey work?' :rolleyes: s

but I do think FvM is (part of) the more formal way to write this sort of stuff,

So I guess, my working code (below-- yes, is still a bit scruffy, but its not getting released into the wild, its my test) might be called a three process state machine? Or is it really two process, as the third is doing work rather than managing?

Any comments on the code are welcome, and indeed gratefully recieved, if you have the time to look,

(note added InterFrameDelay to sensitivity list - Im pretty sure that just a simulation thing, and it would work 'in the real world' without it

Thanks so much (again)

Pete B

begin

process (nReset,Clock50)

begin

if (nReset ='0') then

CurrentState <= InReset;

elsif (rising_edge (Clock50)) then

CurrentState <= NextState;

end if;

end process;

process (CurrentState,InterFrameDelay)

begin

case CurrentState is

when InReset =>

NextState <= StartCol;

when StartCol =>

NextState <= WriteFreq;

when WriteFreq =>

NextState <= StrobeOff;

when StrobeOff =>

if (CurrentFreqBin="00000") then

NextState <= ColumnFinished;

else

NextState <= WriteFreq;

end if;

when ColumnFinished =>

NextState <= ColFinStrobeOff;

when ColFinStrobeOff =>

if (index = 256) then

NextState <= AllDone;

else

NextState <=StartCol;

end if;

when AllDone =>

NextState <= AllDoneLoop;

when AllDoneLoop =>

if interFrameDelay<"000000000000000000000010")

then

NextState <= AllDone;

else

NextState <= AllDoneLoop;

end if;

end case;

end process;

---------------------------------------------------------------------------

process (CurrentState,Clock50)

begin

if (Rising_edge (Clock50)) then

case CurrentState is

when InReset =>

CurrentFreqBin<="00000";

TargetBin<="00000";

TargBinInt<=0;

index <= 0;

InterFrameDelay<="000000000000000000000000";

------------------------

when StartCol =>

TargBinInt<=FreqTable(index);

TargetBin <= std_logic_vector(to_unsigned(TargBinInt,5));

-----------------------

when WriteFreq =>

FreqSlot<=CurrentFreqBin;

if (CurrentFreqBin=TargetBin) then

Amplitude<="11111111";

else

Amplitude<="00000000";

end if;

Strobe<='1';

----------------------

when StrobeOff =>

Strobe<='0';

CurrentFreqBin<=CurrentFreqBin+1;

------------------------

when ColumnFinished =>

ColumnDone<='1';

index<=index+1;

------------------------

when ColFinStrobeOff =>

if (index = 256) then

ColumnDone<='1';

else

ColumnDone<='0';

end if;

------------------------

when AllDone =>

InterFrameDelay <="000000000000000000100000";

ColumnDone<='1';

------------------------

when AllDoneLoop =>

ColumnDone<='0';

InterFrameDelay <=InterFrameDelay-'1';

-------------

end case;

end if;

end process;