From 5f2d9456ae89b6a99672c33e72c2c7568b24d779 Mon Sep 17 00:00:00 2001
From: Yehowshua Immanuel <yehowshua@yehowshuaimmanuel.com>
Date: Thu, 20 Mar 2025 06:28:55 -0400
Subject: [PATCH] Tag engine building

---
 bs/TagEngine.bs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/bs/TagEngine.bs b/bs/TagEngine.bs
index 68b39fd..d734354 100644
--- a/bs/TagEngine.bs
+++ b/bs/TagEngine.bs
@@ -14,6 +14,9 @@ interface (TagEngine :: # -> *) numTags =
     requestTag :: ActionValue UIntLog2N(numTags)
     retireTag  :: UIntLog2N(numTags) -> Action
 
+instance FShow (Reg (Tag numTags)) where
+    fshow value = fshow (readReg value)
+
 initTagNext :: Integer -> Module(Reg (Tag numTags))
 initTagNext i = do
     t :: Reg (Tag numTags)
@@ -45,17 +48,14 @@ mkTagEngine =
 
         fileHandle   :: Handle <- openFile "compile.log" WriteMode
 
-        cycle <- mkReg 0
-        end_cycle <- mkReg 4
-
-        addRules (simulate_for cycle end_cycle)
+        debugOnce <- mkReg True
 
         addRules $
             rules
-                "display": when True ==>
+                "display": when (debugOnce == True) ==>
                     do
-                        $display (fshow (tagVec !! 0))
-                        $finish
+                        $display (fshow tagVec)
+                        debugOnce := False
 
         counter <- mkReg(0 :: UIntLog2N(numTags))
         return $