anchor.diff:     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
   
  
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:    endmethod
  
     method Action start(Bit#(32) alg);
        $display ("start %d", alg);
        case (alg) 
  	 0: begin
  	       hirschA.start();
  	       hirschARunning <= True;
  	       end
  	 1: hirschB.start();
  //	 2: hirschC.start();
        endcase
  