diff options
Diffstat (limited to 'src/Top.bs')
| -rw-r--r-- | src/Top.bs | 16 |
1 files changed, 10 insertions, 6 deletions
@@ -34,6 +34,7 @@ mkTop = bitState :: Reg (Bit 1) <- mkReg 0 uart <- mkUart (clockFreqHz / 9600) + btn1State :: Reg (Bit 1) <- mkReg 0 {- lastByte :: Reg (Bit 8) <- mkReg 0x21 @@ -46,9 +47,11 @@ mkTop = lastByte := byte -} rules - "echo": when True ==> do - byte <- uart.recv.get - uart.send.put byte + -- "echo": when True ==> do + -- byte <- uart.recv.get + -- uart.send.put byte + "say_one": when btn1State /= 0 ==> do + uart.send.put 0x31 interface Top -- RS232 @@ -57,8 +60,8 @@ mkTop = uart.rxPin bit tx = uart.txPin -- Onboard LEDs - ledR_N = bitState - ledG_N = uart.bit + ledR_N = 1 + ledG_N = uart.debugBit -- RGB LED driver ledRed_N = 1 ledGrn_N = 1 @@ -69,7 +72,8 @@ mkTop = led3 = 0 led4 = 0 led5 = 0 - btn1 _ = return () + btn1 bit = do + btn1State := bit btn2 _ = return () btn3 _ = return () {-# verilog mkTop #-} |