diff --git a/bs/Uart/Uart.bs b/bs/Uart/Uart.bs index 7cc45b4..fa86fb1 100644 --- a/bs/Uart/Uart.bs +++ b/bs/Uart/Uart.bs @@ -6,8 +6,13 @@ package Uart( import Serializer import Deserializer import BusTypes +import Types import Util +import FIFO +import FIFOF +import SpecialFIFOs + -- Out is out from the FPGA and In is in to the FPGA interface (UartPhy :: # -> # -> *) clkFreq baudRate = bitOut :: Bit 1 @@ -18,7 +23,10 @@ mkUartPhy :: (BusTypes.BusServer inFlightTransactions numClients) mkUartPhy dedicatedServerInterface = do fileHandle :: Handle <- openFile "mkUartPhy.log" WriteMode deserializer :: Deserializer clkFreq baudRate <- mkDeserialize fileHandle - serializer :: Serializer clkFreq baudRate <- mkSerialize fileHandle + serializer :: Serializer clkFreq baudRate <- mkSerialize fileHandle + + taggedResponseBuffer :: (FIFO (BusTypes.TaggedBusResponse inFlightTransactions)) <- mkFIFO + return |> interface UartPhy bitOut = 1 diff --git a/diagrams/uart-server.drawio b/diagrams/uart-server.drawio new file mode 100644 index 0000000..f6af8cb --- /dev/null +++ b/diagrams/uart-server.drawio @@ -0,0 +1,119 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +