From 0f80a1960037ba1a7a4835f57ca100d5caf8d8ef Mon Sep 17 00:00:00 2001
From: Nathan Ringo <nathan@remexre.com>
Date: Mon, 23 Sep 2024 14:15:37 -0500
Subject: Start of an application.

---
 src/Top.bs | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

(limited to 'src/Top.bs')

diff --git a/src/Top.bs b/src/Top.bs
index 18802bf..9afaaab 100644
--- a/src/Top.bs
+++ b/src/Top.bs
@@ -1,7 +1,6 @@
 package Top where
 
-import FIFOF
-import GetPut
+import App
 import Uart
 
 interface Top =
@@ -32,10 +31,7 @@ mkTop :: Module Top
 mkTop =
   module
     uart <- mkUart (clockFreqHz / 9600)
-    rules
-      "recv": when True ==> do
-        byte <- uart.recv.get
-        uart.send.put byte
+    app <- mkApp uart.recv uart.send
 
     interface Top
       -- RS232
@@ -43,7 +39,7 @@ mkTop =
       tx = uart.txPin
       -- Onboard LEDs
       ledR_N = uart.txPin
-      ledG_N = 1
+      ledG_N = 1 - app.led
       -- RGB LED driver
       ledRed_N = 1
       ledGrn_N = 1
-- 
cgit v1.2.3