anchor.diff:     endmethod
   
      method Action start(Bit#(32) alg);
  +      $display ("start %d", alg);
         case (alg) 
  -	 0: hirschA.start();
  +	 0: begin
  +	       hirschA.start();
  +	       hirschARunning <= True;
  +	       end
   	 1: hirschB.start();
   //	 2: hirschC.start();
         endcase
  
positive.code:       indication.fetchComplete();
     endrule
  
     mkHirschA(strA.portA, strB.portA, matL.portA);
  
     
     method Action setupA(Bit#(32) strPointer, Bit#(32) strLen);
        aLenReg <= truncate(strLen);
  
negative.code:    FIFOF#(void) bReady <- mkFIFOF;
     FIFOF#(void) mReady <- mkFIFOF;
  
     Reg#(Bool) hirschARunning <- mkReg(False);
  
     FSM hirschA <- mkHirschA(strA.portA, strB.portA, matL.portA);
     FSM hirschB <- mkHirschB(strA.portA, strB.portA, matL.portA);
     
     // create BRAM Write client for matL
  
  