From 6da518a9ea64b833aa49de216e0f7daeb673fd35 Mon Sep 17 00:00:00 2001
From: cancel <cancel@cancel.fm>
Date: Fri, 21 Dec 2018 01:21:03 +0900
Subject: [PATCH] Update behavior of 'C' and 'D'

---
 sim.c | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/sim.c b/sim.c
index b426c4a..c5b6aa4 100644
--- a/sim.c
+++ b/sim.c
@@ -555,10 +555,8 @@ END_PHASE
 BEGIN_DUAL_PHASE_1(clock)
   REALIZE_DUAL;
   STOP_IF_DUAL_INACTIVE;
-  Usz mod_num = index_of(PEEK(0, 1));
-  if (mod_num == 0)
-    mod_num = 10;
-  Usz rate = usz_clamp(index_of(PEEK(0, -1)), 1, 16);
+  Usz mod_num = index_of(PEEK(0, 1)) + 1;
+  Usz rate = index_of(PEEK(0, -1)) + 1;
   Glyph g = glyph_of(Tick_number / rate % mod_num);
   POKE(1, 0, g);
 END_PHASE
@@ -575,7 +573,7 @@ BEGIN_DUAL_PHASE_1(delay)
   REALIZE_DUAL;
   STOP_IF_DUAL_INACTIVE;
   Usz offset = index_of(PEEK(0, 1));
-  Usz rate = usz_clamp(index_of(PEEK(0, -1)), 2, 16);
+  Usz rate = index_of(PEEK(0, -1)) + 1;
   Glyph g = (Tick_number + offset) % rate == 0 ? '*' : '.';
   POKE(1, 0, g);
 END_PHASE