From 7993cd3191122738b45e8968cd2d7ed63273e69b Mon Sep 17 00:00:00 2001
From: Nicola Pisanti <nicola@npisanti.com>
Date: Sat, 12 Jan 2019 03:41:24 +0100
Subject: [PATCH] T out disabled with len 0

---
 sim.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sim.c b/sim.c
index 2e3c813..ccc10ea 100644
--- a/sim.c
+++ b/sim.c
@@ -630,13 +630,13 @@ BEGIN_OPERATOR(track)
   Usz key = index_of(PEEK(0, -2));
   PORT(0, -1, IN | PARAM);
   PORT(0, -2, IN | PARAM);
-  PORT(1, 0, OUT);
   if (len == 0) return;
   Isz read_val_x = (Isz)(key % len) + 1;
   for (Usz i = 0; i < len; ++i) {
     LOCK(0, (Isz)(i + 1));
   }
   PORT(0, (Isz)read_val_x, IN);
+  PORT(1, 0, OUT);
   POKE(1, 0, PEEK(0, read_val_x));
 END_OPERATOR