-
This commit is contained in:
parent
8a64f5c04b
commit
14f542a674
@ -94,432 +94,453 @@ BEGIN
|
|||||||
|
|
||||||
|
|
||||||
process(reset, clock) begin
|
process(reset, clock) begin
|
||||||
case general_current_state is
|
if reset = '1' then
|
||||||
when waitForChar =>
|
register1 <= SPACE;
|
||||||
--report "General current state is wait for char" severity note;
|
register2 <= SPACE;
|
||||||
register1 <= SPACE;
|
register3 <= SPACE;
|
||||||
register2 <= SPACE;
|
register4 <= SPACE;
|
||||||
register3 <= SPACE;
|
register5 <= SPACE;
|
||||||
register4 <= SPACE;
|
signSendRegisters <= '0';
|
||||||
register5 <= SPACE;
|
elsif rising_edge(clock) then
|
||||||
signSendRegisters <= '0';
|
|
||||||
if charNotReady = '0' then
|
|
||||||
general_next_state <= storeChar;
|
|
||||||
readChar <= '1';
|
|
||||||
report "charReady" severity note;
|
|
||||||
else
|
|
||||||
general_next_state <= waitForChar;
|
|
||||||
readChar <= '0';
|
|
||||||
--report "charNotReady" severity note;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
when storeChar =>
|
case general_current_state is
|
||||||
report "General current state is store char" severity note;
|
when waitForChar =>
|
||||||
if isA then
|
--report "General current state is wait for char" severity note;
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
report "New char: A" severity note;
|
|
||||||
elsif isB then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isC then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isD then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isE then
|
|
||||||
register1 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
report "New char: E" severity note;
|
|
||||||
elsif isF then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isG then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isH then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isI then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
report "New char: I" severity note;
|
|
||||||
elsif isJ then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isK then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isL then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isM then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
report "New char: M" severity note;
|
|
||||||
elsif isN then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isO then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isP then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isQ then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isR then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isS then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isT then
|
|
||||||
register1 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
report "New char: T" severity note;
|
|
||||||
elsif isU then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isV then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isW then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isX then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isY then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif isZ then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is0 then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= LONG;
|
|
||||||
register5 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is1 then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= LONG;
|
|
||||||
register5 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is2 then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= LONG;
|
|
||||||
register5 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is3 then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= LONG;
|
|
||||||
register5 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is4 then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
register5 <= LONG;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is5 then
|
|
||||||
register1 <= SHORT;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
register5 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is6 then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= SHORT;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
register5 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is7 then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= SHORT;
|
|
||||||
register4 <= SHORT;
|
|
||||||
register5 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is8 then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= SHORT;
|
|
||||||
register5 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
elsif is9 then
|
|
||||||
register1 <= LONG;
|
|
||||||
register2 <= LONG;
|
|
||||||
register3 <= LONG;
|
|
||||||
register4 <= LONG;
|
|
||||||
register5 <= SHORT;
|
|
||||||
general_next_state <= sendRegisters;
|
|
||||||
else
|
|
||||||
register1 <= SPACE;
|
register1 <= SPACE;
|
||||||
register2 <= SPACE;
|
register2 <= SPACE;
|
||||||
register3 <= SPACE;
|
register3 <= SPACE;
|
||||||
register4 <= SPACE;
|
register4 <= SPACE;
|
||||||
register5 <= SPACE;
|
register5 <= SPACE;
|
||||||
general_next_state <= storeChar;
|
signSendRegisters <= '0';
|
||||||
report "Char look not correct" severity warning;
|
if charNotReady = '0' then
|
||||||
end if;
|
general_next_state <= storeChar;
|
||||||
signSendRegisters <= '1';
|
readChar <= '1';
|
||||||
|
report "charReady" severity note;
|
||||||
|
else
|
||||||
|
general_next_state <= waitForChar;
|
||||||
|
readChar <= '0';
|
||||||
|
--report "charNotReady" severity note;
|
||||||
|
end if;
|
||||||
|
|
||||||
when sendRegisters =>
|
when storeChar =>
|
||||||
--report "General current state is send registers" severity note;
|
report "General current state is store char" severity note;
|
||||||
readChar <= '0';
|
if isA then
|
||||||
signSendRegisters <= '0';
|
register1 <= SHORT;
|
||||||
if signRegistersSended then
|
register2 <= LONG;
|
||||||
general_next_state <= sended;
|
general_next_state <= sendRegisters;
|
||||||
report "Char is send" severity note;
|
report "New char: A" severity note;
|
||||||
end if;
|
elsif isB then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isC then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isD then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isE then
|
||||||
|
register1 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
report "New char: E" severity note;
|
||||||
|
elsif isF then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isG then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isH then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isI then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
report "New char: I" severity note;
|
||||||
|
elsif isJ then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isK then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isL then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isM then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
report "New char: M" severity note;
|
||||||
|
elsif isN then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isO then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isP then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isQ then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isR then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isS then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isT then
|
||||||
|
register1 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
report "New char: T" severity note;
|
||||||
|
elsif isU then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isV then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isW then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isX then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isY then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif isZ then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is0 then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= LONG;
|
||||||
|
register5 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is1 then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= LONG;
|
||||||
|
register5 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is2 then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= LONG;
|
||||||
|
register5 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is3 then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= LONG;
|
||||||
|
register5 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is4 then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
register5 <= LONG;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is5 then
|
||||||
|
register1 <= SHORT;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
register5 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is6 then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= SHORT;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
register5 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is7 then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= SHORT;
|
||||||
|
register4 <= SHORT;
|
||||||
|
register5 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is8 then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= SHORT;
|
||||||
|
register5 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
elsif is9 then
|
||||||
|
register1 <= LONG;
|
||||||
|
register2 <= LONG;
|
||||||
|
register3 <= LONG;
|
||||||
|
register4 <= LONG;
|
||||||
|
register5 <= SHORT;
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
|
else
|
||||||
|
register1 <= SPACE;
|
||||||
|
register2 <= SPACE;
|
||||||
|
register3 <= SPACE;
|
||||||
|
register4 <= SPACE;
|
||||||
|
register5 <= SPACE;
|
||||||
|
general_next_state <= storeChar;
|
||||||
|
report "Char look not correct" severity warning;
|
||||||
|
end if;
|
||||||
|
signSendRegisters <= '1';
|
||||||
|
|
||||||
when sended =>
|
when sendRegisters =>
|
||||||
--report "General current state is sended" severity note;
|
--report "General current state is send registers" severity note;
|
||||||
general_next_state <= waitForChar;
|
readChar <= '0';
|
||||||
register1 <= SPACE;
|
signSendRegisters <= '0';
|
||||||
register2 <= SPACE;
|
if signRegistersSended = '1' then
|
||||||
register3 <= SPACE;
|
general_next_state <= sended;
|
||||||
register4 <= SPACE;
|
report "Char is send" severity note;
|
||||||
register5 <= SPACE;
|
else
|
||||||
|
general_next_state <= sendRegisters;
|
||||||
WHEN OTHERS =>
|
end if;
|
||||||
report "General current state is BROKEN" severity warning;
|
|
||||||
general_next_state <= waitForChar;
|
|
||||||
|
|
||||||
end case;
|
when sended =>
|
||||||
|
--report "General current state is sended" severity note;
|
||||||
|
general_next_state <= waitForChar;
|
||||||
|
register1 <= SPACE;
|
||||||
|
register2 <= SPACE;
|
||||||
|
register3 <= SPACE;
|
||||||
|
register4 <= SPACE;
|
||||||
|
register5 <= SPACE;
|
||||||
|
|
||||||
|
WHEN OTHERS =>
|
||||||
|
report "General current state is BROKEN" severity warning;
|
||||||
|
general_next_state <= waitForChar;
|
||||||
|
|
||||||
|
end case;
|
||||||
|
|
||||||
|
end if;
|
||||||
end process;
|
end process;
|
||||||
|
|
||||||
process(reset, clock) begin
|
process(reset, clock) begin
|
||||||
case sending_current_state is
|
if reset = '1' then
|
||||||
|
morseOut <= '0';
|
||||||
|
startCounter <= '0';
|
||||||
|
unitNb <= "000";
|
||||||
|
signRegistersSended <= '0';
|
||||||
|
elsif rising_edge(clock) then
|
||||||
|
|
||||||
when waiting =>
|
case sending_current_state is
|
||||||
morseOut <= '0';
|
|
||||||
startCounter <= '0';
|
when waiting =>
|
||||||
unitNb <= "000";
|
morseOut <= '0';
|
||||||
signRegistersSended <= '0';
|
startCounter <= '0';
|
||||||
if signSendRegisters = '1' then
|
unitNb <= "000";
|
||||||
sending_next_state <= sendR1;
|
signRegistersSended <= '0';
|
||||||
report "Start to send new char" severity note;
|
if signSendRegisters = '1' then
|
||||||
else
|
sending_next_state <= sendR1;
|
||||||
|
report "Start to send new char" severity note;
|
||||||
|
else
|
||||||
|
sending_next_state <= waiting;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
when sendR1 =>
|
||||||
|
--report "Send register1" severity note;
|
||||||
|
startCounter <= '1';
|
||||||
|
morseOut <= '1';
|
||||||
|
case register1 is
|
||||||
|
when SHORT =>
|
||||||
|
unitNb <= "001";
|
||||||
|
when LONG =>
|
||||||
|
unitNb <= "011";
|
||||||
|
when others =>
|
||||||
|
report "Error when sending register1" severity error;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
case register2 is
|
||||||
|
when SPACE =>
|
||||||
|
sending_next_state <= waitSpace;
|
||||||
|
when END_WORD =>
|
||||||
|
sending_next_state <= waitEndWord;
|
||||||
|
when others =>
|
||||||
|
sending_next_state <= waitR1;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
when waitR1 =>
|
||||||
|
--report "Wait register1" severity note;
|
||||||
|
startCounter <= '0';
|
||||||
|
if counterDone = '1' then
|
||||||
|
morseOut <= '0';
|
||||||
|
sending_next_state <= sendR2;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
when sendR2 =>
|
||||||
|
--report "Send register2" severity note;
|
||||||
|
startCounter <= '1';
|
||||||
|
morseOut <= '1';
|
||||||
|
case register2 is
|
||||||
|
when SHORT =>
|
||||||
|
unitNb <= "001";
|
||||||
|
when LONG =>
|
||||||
|
unitNb <= "011";
|
||||||
|
when others =>
|
||||||
|
report "Error when sending register2" severity error;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
case register3 is
|
||||||
|
when SPACE =>
|
||||||
|
sending_next_state <= waitSpace;
|
||||||
|
when END_WORD =>
|
||||||
|
sending_next_state <= waitEndWord;
|
||||||
|
when others =>
|
||||||
|
sending_next_state <= waitR2;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
when waitR2 =>
|
||||||
|
--report "Wait register2" severity note;
|
||||||
|
startCounter <= '0';
|
||||||
|
if counterDone = '1' then
|
||||||
|
morseOut <= '0';
|
||||||
|
sending_next_state <= sendR3;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
when sendR3 =>
|
||||||
|
--report "Send register3" severity note;
|
||||||
|
startCounter <= '1';
|
||||||
|
morseOut <= '1';
|
||||||
|
case register3 is
|
||||||
|
when SHORT =>
|
||||||
|
unitNb <= "001";
|
||||||
|
when LONG =>
|
||||||
|
unitNb <= "011";
|
||||||
|
when others =>
|
||||||
|
report "Error when sending register3" severity error;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
case register4 is
|
||||||
|
when SPACE =>
|
||||||
|
sending_next_state <= waitSpace;
|
||||||
|
when END_WORD =>
|
||||||
|
sending_next_state <= waitEndWord;
|
||||||
|
when others =>
|
||||||
|
sending_next_state <= waitR3;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
when waitR3 =>
|
||||||
|
startCounter <= '0';
|
||||||
|
if counterDone = '1' then
|
||||||
|
morseOut <= '0';
|
||||||
|
sending_next_state <= sendR4;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
when sendR4 =>
|
||||||
|
startCounter <= '1';
|
||||||
|
morseOut <= '1';
|
||||||
|
case register4 is
|
||||||
|
when SHORT =>
|
||||||
|
unitNb <= "001";
|
||||||
|
when LONG =>
|
||||||
|
unitNb <= "011";
|
||||||
|
when others =>
|
||||||
|
report "Error when sending register4" severity error;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
case register5 is
|
||||||
|
when SPACE =>
|
||||||
|
sending_next_state <= waitSpace;
|
||||||
|
when END_WORD =>
|
||||||
|
sending_next_state <= waitEndWord;
|
||||||
|
when others =>
|
||||||
|
sending_next_state <= waitR4;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
when waitR4 =>
|
||||||
|
startCounter <= '0';
|
||||||
|
if counterDone = '1' then
|
||||||
|
morseOut <= '0';
|
||||||
|
sending_next_state <= sendR5;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
when sendR5 =>
|
||||||
|
startCounter <= '1';
|
||||||
|
morseOut <= '1';
|
||||||
|
case register5 is
|
||||||
|
when SHORT =>
|
||||||
|
unitNb <= "001";
|
||||||
|
when LONG =>
|
||||||
|
unitNb <= "011";
|
||||||
|
when others =>
|
||||||
|
report "Error when sending register5" severity error;
|
||||||
|
end case;
|
||||||
|
|
||||||
|
sending_next_state <= waitSpace;
|
||||||
|
|
||||||
|
when waitSpace =>
|
||||||
|
startCounter <= '0';
|
||||||
|
if counterDone = '1' then
|
||||||
|
morseOut <= '0';
|
||||||
|
sending_next_state <= waiting;
|
||||||
|
end if;
|
||||||
|
signRegistersSended <= '1';
|
||||||
|
|
||||||
|
when waitEndWord =>
|
||||||
sending_next_state <= waiting;
|
sending_next_state <= waiting;
|
||||||
end if;
|
when others =>
|
||||||
|
|
||||||
when sendR1 =>
|
|
||||||
report "Send register1" severity note;
|
|
||||||
startCounter <= '1';
|
|
||||||
morseOut <= '1';
|
|
||||||
case register1 is
|
|
||||||
when SHORT =>
|
|
||||||
unitNb <= "001";
|
|
||||||
when LONG =>
|
|
||||||
unitNb <= "011";
|
|
||||||
when others =>
|
|
||||||
report "Error when sending register1" severity error;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
case register2 is
|
|
||||||
when SPACE =>
|
|
||||||
sending_next_state <= waitSpace;
|
|
||||||
when END_WORD =>
|
|
||||||
sending_next_state <= waitEndWord;
|
|
||||||
when others =>
|
|
||||||
sending_next_state <= waitR1;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
when waitR1 =>
|
|
||||||
report "Wait register1" severity note;
|
|
||||||
startCounter <= '0';
|
|
||||||
if counterDone = '1' then
|
|
||||||
morseOut <= '0';
|
|
||||||
sending_next_state <= sendR2;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
when sendR2 =>
|
|
||||||
report "Send register2" severity note;
|
|
||||||
startCounter <= '1';
|
|
||||||
morseOut <= '1';
|
|
||||||
case register2 is
|
|
||||||
when SHORT =>
|
|
||||||
unitNb <= "001";
|
|
||||||
when LONG =>
|
|
||||||
unitNb <= "011";
|
|
||||||
when others =>
|
|
||||||
report "Error when sending register2" severity error;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
case register3 is
|
|
||||||
when SPACE =>
|
|
||||||
sending_next_state <= waitSpace;
|
|
||||||
when END_WORD =>
|
|
||||||
sending_next_state <= waitEndWord;
|
|
||||||
when others =>
|
|
||||||
sending_next_state <= waitR2;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
when waitR2 =>
|
|
||||||
report "Wait register2" severity note;
|
|
||||||
startCounter <= '0';
|
|
||||||
if counterDone = '1' then
|
|
||||||
morseOut <= '0';
|
|
||||||
sending_next_state <= sendR3;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
when sendR3 =>
|
|
||||||
report "Send register3" severity note;
|
|
||||||
startCounter <= '1';
|
|
||||||
morseOut <= '1';
|
|
||||||
case register3 is
|
|
||||||
when SHORT =>
|
|
||||||
unitNb <= "001";
|
|
||||||
when LONG =>
|
|
||||||
unitNb <= "011";
|
|
||||||
when others =>
|
|
||||||
report "Error when sending register3" severity error;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
case register4 is
|
|
||||||
when SPACE =>
|
|
||||||
sending_next_state <= waitSpace;
|
|
||||||
when END_WORD =>
|
|
||||||
sending_next_state <= waitEndWord;
|
|
||||||
when others =>
|
|
||||||
sending_next_state <= waitR3;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
when waitR3 =>
|
|
||||||
startCounter <= '0';
|
|
||||||
if counterDone = '1' then
|
|
||||||
morseOut <= '0';
|
|
||||||
sending_next_state <= sendR4;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
when sendR4 =>
|
|
||||||
startCounter <= '1';
|
|
||||||
morseOut <= '1';
|
|
||||||
case register4 is
|
|
||||||
when SHORT =>
|
|
||||||
unitNb <= "001";
|
|
||||||
when LONG =>
|
|
||||||
unitNb <= "011";
|
|
||||||
when others =>
|
|
||||||
report "Error when sending register4" severity error;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
case register5 is
|
|
||||||
when SPACE =>
|
|
||||||
sending_next_state <= waitSpace;
|
|
||||||
when END_WORD =>
|
|
||||||
sending_next_state <= waitEndWord;
|
|
||||||
when others =>
|
|
||||||
sending_next_state <= waitR4;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
when waitR4 =>
|
|
||||||
startCounter <= '0';
|
|
||||||
if counterDone = '1' then
|
|
||||||
morseOut <= '0';
|
|
||||||
sending_next_state <= sendR5;
|
|
||||||
end if;
|
|
||||||
|
|
||||||
when sendR5 =>
|
|
||||||
startCounter <= '1';
|
|
||||||
morseOut <= '1';
|
|
||||||
case register5 is
|
|
||||||
when SHORT =>
|
|
||||||
unitNb <= "001";
|
|
||||||
when LONG =>
|
|
||||||
unitNb <= "011";
|
|
||||||
when others =>
|
|
||||||
report "Error when sending register5" severity error;
|
|
||||||
end case;
|
|
||||||
|
|
||||||
sending_next_state <= waitSpace;
|
|
||||||
|
|
||||||
when waitSpace =>
|
|
||||||
startCounter <= '0';
|
|
||||||
if counterDone = '1' then
|
|
||||||
morseOut <= '0';
|
|
||||||
sending_next_state <= waiting;
|
sending_next_state <= waiting;
|
||||||
end if;
|
|
||||||
signRegistersSended <= '1';
|
|
||||||
|
|
||||||
when waitEndWord =>
|
|
||||||
sending_next_state <= waiting;
|
|
||||||
when others =>
|
|
||||||
sending_next_state <= waiting;
|
|
||||||
|
|
||||||
end case;
|
end case;
|
||||||
|
end if;
|
||||||
end process;
|
end process;
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user