diff options
Diffstat (limited to 'src/TopSim.bs')
| -rw-r--r-- | src/TopSim.bs | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/src/TopSim.bs b/src/TopSim.bs index 0db5c10..d0d17cb 100644 --- a/src/TopSim.bs +++ b/src/TopSim.bs @@ -18,7 +18,15 @@ mkTopSim = when True ==> timer := timer + 1 when True ==> uart.rxPin fakeUart.txPin when (timer == 0x00) ==> fakeUart.send.put 0x30 - when (timer == 0x01) ==> fakeUart.send.put 0x31 - when (timer == 0x40) ==> $finish + when (timer == 0x01) ==> fakeUart.send.put 0x30 + when (timer == 0x02) ==> fakeUart.send.put 0x77 + when (timer == 0x03) ==> fakeUart.send.put 0x31 + when (timer == 0x04) ==> fakeUart.send.put 0x32 + when (timer == 0x05) ==> fakeUart.send.put 0x33 + when (timer == 0x06) ==> fakeUart.send.put 0x34 + when (timer == 0x10) ==> fakeUart.send.put 0x30 + when (timer == 0x11) ==> fakeUart.send.put 0x30 + when (timer == 0x12) ==> fakeUart.send.put 0x72 + when (timer == 0xff) ==> $finish -- vim: set ft=haskell : |