Start of an application.

1 files changed, 7 insertions, 10 deletions

diff --git a/src/TopSim.bs b/src/TopSim.bs
index a4f1967..0db5c10 100644
--- a/src/TopSim.bs
+++ b/src/TopSim.bs
@@ -1,27 +1,24 @@
 package TopSim where
 
+import App
 import GetPut
-import Top
 import Uart
 
 mkTopSim :: Module Empty
 mkTopSim =
   module
     timer :: Reg (Bit 8) <- mkReg 0
-    next :: Reg (Bit 8) <- mkReg 0
-    saved :: Reg (Bit 8) <- mkReg 0x6a
 
     uart <- mkUart 1
+    app <- mkApp uart.recv uart.send
+
+    fakeUart <- mkUart 1
 
     rules
       when True ==> timer := timer + 1
-      when True ==> uart.rxPin uart.txPin
-      when True ==> do
-        b <- uart.recv.get
-        next := timer + 5
-        saved := b
-      when (timer == next) ==> do
-        uart.send.put saved
+      when True ==> uart.rxPin fakeUart.txPin
+      when (timer == 0x00) ==> fakeUart.send.put 0x30
+      when (timer == 0x01) ==> fakeUart.send.put 0x31
       when (timer == 0x40) ==> $finish
 
 -- vim: set ft=haskell :