diff options
| author | Nathan Ringo <nathan@remexre.com> | 2024-09-23 15:14:05 -0500 |
|---|---|---|
| committer | Nathan Ringo <nathan@remexre.com> | 2024-09-23 15:14:05 -0500 |
| commit | fee3c373fc233805d43c14daabbd10b4985a799b (patch) | |
| tree | 314ccaf3db706bdd4d2ac94d8c5807f9a06bf187 /src/TopSim.bs | |
| parent | 0f80a1960037ba1a7a4835f57ca100d5caf8d8ef (diff) | |
Gets RAM working.
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 : |