ref: 86d268b19fa55eec0482009eacdd4a2c60a2f04a
parent: f702b7adf649141a41c15a8d7f88bae5256b5d0a
author: cancel <[email protected]>
date: Tue Nov 27 12:00:56 EST 2018
Add 'H'
--- a/sim.c
+++ b/sim.c
@@ -200,9 +200,10 @@
_('W', 'w', west) \ _('Z', 'z', southeast) \ _('A', 'a', add) \- _('M', 'm', modulo) \+ _('H', 'h', halt) \+ _('I', 'i', increment) \ _('J', 'j', jump) \- _('I', 'i', increment)+ _('M', 'm', modulo)ORCA_DECLARE_OPERATORS(ORCA_SOLO_OPERATORS, ORCA_DUAL_OPERATORS)
@@ -232,6 +233,15 @@
REALIZE_DUAL;
STOP_IF_DUAL_INACTIVE;
POKE(1, 0, glyphs_add(PEEK(0, 1), PEEK(0, 2)));
+END_PHASE
+
+BEGIN_DUAL_PHASE_0(halt)
+ REALIZE_DUAL;
+ BEGIN_DUAL_PORTS
+ O_PORT(1, 0, LOCKING);
+ END_PORTS
+END_PHASE
+BEGIN_DUAL_PHASE_1(halt)
END_PHASE
BEGIN_DUAL_PHASE_0(increment)