From cf8b94c188df502e3a58e4177eaa10cc9aa49341 Mon Sep 17 00:00:00 2001
From: cancel <cancel@cancel.fm>
Date: Wed, 28 Nov 2018 18:42:53 +0900
Subject: [PATCH] Add 'K'

---
 sim.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/sim.c b/sim.c
index db3c3a2..0f6c2f2 100644
--- a/sim.c
+++ b/sim.c
@@ -266,6 +266,7 @@ Usz UCLAMP(Usz val, Usz min, Usz max) {
   _('H', 'h', halt)                                                            \
   _('I', 'i', increment)                                                       \
   _('J', 'j', jump)                                                            \
+  _('K', 'k', kill)                                                            \
   _('M', 'm', modulo)                                                          \
   _('O', 'o', offset)                                                          \
   _('U', 'u', uturn)                                                           \
@@ -402,6 +403,19 @@ BEGIN_DUAL_PHASE_1(jump)
   POKE(1, 0, PEEK(-1, 0));
 END_PHASE
 
+BEGIN_DUAL_PHASE_0(kill)
+  REALIZE_DUAL;
+  BEGIN_DUAL_PORTS
+    PORT(1, 0, OUT | HASTE);
+  END_PORTS
+  STOP_IF_DUAL_INACTIVE;
+  BEGIN_HASTE
+    POKE(1, 0, '.');
+  END_HASTE
+END_PHASE
+BEGIN_DUAL_PHASE_1(kill)
+END_PHASE
+
 BEGIN_DUAL_PHASE_0(modulo)
   REALIZE_DUAL;
   BEGIN_DUAL_PORTS