anchor.diff:     FIFOF#(void) mReady <- mkFIFOF;
   
      Reg#(Bool) hirschARunning <- mkReg(False);
  +   Reg#(Bool) hirschBRunning <- mkReg(False);
   
      MCSAlgortihm hirschA <- mkHirschA(strA.portA, strB.portA, matL.portA);
      MCSAlgorithm hirschB <- mkHirschB(strA.portA, strB.portA, matL.portA);
  
positive.code:       $display ("start %d", alg);
        case (alg) 
  	 0: begin
  	       hirschA.fsm.start();
  	       hirschARunning <= True;
  	       end
  	 1: hirschB.start();
  //	 2: hirschC.start();
        endcase
     endmethod
  
negative.code:       indication.searchResult(22);
        endrule
     
     rule hirschB_completion (hirschBRunning && hirschB.fsm.done);
        hirschBRunning <= False;
        indication.searchResult(23);
        endrule
     
     
     method Action setupA(Bit#(32) strPointer, Bit#(32) strLen);
        aLenReg <= truncate(strLen);
  