diff options
Diffstat (limited to 'src/Top.bs')
| -rw-r--r-- | src/Top.bs | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -1,5 +1,6 @@ package Top where +import FIFOF import GetPut import Uart @@ -33,12 +34,21 @@ mkTop = bitState :: Reg (Bit 1) <- mkReg 0 uart <- mkUart (clockFreqHz / 9600) - lastByte :: Reg (Bit 8) <- mkReg 0x21 + {- + lastByte :: Reg (Bit 8) <- mkReg 0x21 tick <- mkDivider (clockFreqHz) rules "tick": when tick.clk ==> do uart.send.put lastByte + "recv": when tick.clk ==> do + byte <- uart.recv.get + lastByte := byte + -} + rules + "echo": when True ==> do + byte <- uart.recv.get + uart.send.put byte interface Top -- RS232 @@ -48,7 +58,7 @@ mkTop = tx = uart.txPin -- Onboard LEDs ledR_N = bitState - ledG_N = uart.txPin + ledG_N = uart.bit -- RGB LED driver ledRed_N = 1 ledGrn_N = 1 |