Stanislav/altera
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Этот вариант работает стабильно. Таймаут перенесли в конец любой передачи, чтобы вывести периферийное устройство в начальное состояние. Линия занята SB_CONTROL_LOWER(1) = '1' - появится в начале передачи и закончится после таймаута.

Browse Source
This commit is contained in:
sokolovstanislav 2024-06-10 17:52:14 +03:00
parent 92fd7969bc
commit 2b055193af
1 changed files with 19 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
MainController/RAM9X8_SerialBusMaster.vhd
View File

@ -111,6 +111,7 @@ begin
process(clk) is
variable count : integer range 0 to 255 := 0;
variable halfPeriod : integer range 0 to 255 := 50;
variable countPause : integer range 0 to 255 := 0;
variable pause : integer range 0 to 255 := 200;
variable state : integer range 0 to 1 := 1;
variable bitCnt : integer range -1 to 31 := 0;
@ -123,6 +124,7 @@ begin
bitCnt := 8;
latch := 0;
resetCRC <= '1';
count := 0;
sbdataout <= '0';
state := 1;
if start = '1' and startPrev = '0' then
@ -132,30 +134,16 @@ begin
dataCRC(23 downto 16) <= cmdBuf(7 downto 0);
dataToTransmit <= dataBufIn;
dataCRC(15 downto 0) <= dataBufIn;
controlBuf(15 downto 2) <= (others => '0');
controlBuf(1) <= '1';
controlBuf(0) <= '0';
if count < pause then
CommunicationState <= Timeout;
count := count + 1;
else
controlBuf(15 downto 0) <= (others => '0');
CommunicationState <= TransmitAddress;
count:= 0;
end if;
else
if count < pause then
count := count + 1;
controlBuf(1) <= '1';
else
controlBuf(1) <= '0';
end if;
end if;
when Timeout =>
if count < pause then
sbclk <= '0';
count := count + 1;
else
CommunicationState <= TransmitAddress;
count:= 0;
controlBuf(1) <= '0';
CommunicationState <= Waiting;
end if;
when TransmitAddress =>
if bitCnt = -1 then
@ -171,6 +159,7 @@ begin
if count = 0 then
if latch = 0 then
sbdataout <= direction;
controlBuf(1) <= '1';
else
sbdataout <= addressToTransmit(bitCnt);
end if;
@ -243,8 +232,9 @@ begin
end if;
end if;
else
--CommunicationState <= Waiting;
count := 0;
CommunicationState <= Waiting;
CommunicationState <= Timeout;
controlBuf(15) <= '1';
end if;
when TransmitCheck =>
@ -255,13 +245,14 @@ begin
count := count + 1;
else
count := 0;
state := 0;
if sbdatain = '0' then
controlBuf(0) <= '1';
else
controlBuf(14) <= '1';
end if;
CommunicationState <= Waiting;
--CommunicationState <= Waiting;
count := 0;
CommunicationState <= Timeout;
end if;
when ReceiveData =>
if bitCnt = -1 then
@ -329,11 +320,10 @@ begin
else
controlBuf(12) <= '1';
end if;
--CommunicationState <= Waiting;
count := 0;
CommunicationState <= Waiting;
CommunicationState <= Timeout;
when others =>
count := 0;
CommunicationState <= Waiting;
end case;
startPrev <= start;
end if;