ref: cf8b94c188df502e3a58e4177eaa10cc9aa49341
parent: 783a23b744884d7b1bde1c95cb9e7dd9601cc3d1
author: cancel <cancel@cancel.fm>
date: Wed Nov 28 13:42:53 EST 2018
Add 'K'
--- a/sim.c
+++ b/sim.c
@@ -266,6 +266,7 @@
_('H', 'h', halt) \ _('I', 'i', increment) \ _('J', 'j', jump) \+ _('K', 'k', kill) \ _('M', 'm', modulo) \ _('O', 'o', offset) \ _('U', 'u', uturn) \@@ -400,6 +401,19 @@
REALIZE_DUAL;
STOP_IF_DUAL_INACTIVE;
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)