pygar: modules/bluespec/Pygar/core/Processor.bsv comparison

comparison modules/bluespec/Pygar/core/Processor.bsv @ 33:2c8166d205d5 pygar svn.34

[svn r34] uses scratchpad, set up for audio through c

author	punk
date	Tue, 04 May 2010 10:13:53 -0400
parents	f5dfbe28fa59
children	14f7a7ace3f5

comparison

equal deleted inserted replaced

-:0c775e733b81
+:2c8166d205d5
 // Pipelines
 FIFO#(PCStat)           pcQ <-mkSizedFIFO(3);
 SFIFO#(WBResult, Rindx) wbQ <-mkSFIFO(findwbf);
+// NEED TO ADD CAPABILITY FOR RESET (should be able to just say if I get valid in and these are flagged, clear them.
 Reg#(Bit#(32)) cp0_tohost   <- mkReg(0);
 Reg#(Bit#(32)) cp0_fromhost <- mkReg(0);
 Reg#(Bool)     cp0_statsEn  <- mkReg(False);
+Reg#(Bool)     cp0_audioEOF <- mkReg(False);  // Register to let code that EOF is reached
+Reg#(Bool)     cp0_progComp <- mkReg(False);  // Register to let processor know that the program is complete (as this terminates)
 // Memory request/response state
 FIFO#(InstReq)  instReqQ    <- mkBFIFO1();
 FIFO#(InstResp) instRespQ   <- mkFIFO();
 	  branchTaken = True;
 end
 // -- Cop0 ------------------------------------------------------
-tagged MTC0  .it :
+tagged MTC0  .it : //Recieve things from host computer
 	 begin
+	    $display( " PROCESSOR MTC0 call\n");
 case ( it.cop0dst )
 	       5'd10 : cp0_statsEn <= unpack(truncate(rf.rd1(it.rsrc)));
 	       5'd21 : cp0_tohost  <= truncate(rf.rd1(it.rsrc));
+	       5'd26 : cp0_progComp <= unpack(truncate(rf.rd1(it.rsrc))); //states audio program completed and termination okay
+	       5'd27 : outAudioFifo.enq(tagged Sample unpack(truncate(rf.rd1(it.rsrc))));  //Bit size is 16 not 32
 	       default :
 	       $display( " RTL-ERROR : %m : Illegal MTC0 cop0dst register!" );
 	    endcase
 	    wbQ.enq(tagged WB_Host 0); //no idea wwhat this actually should be.
 	 end
 //this is host stuff?
-tagged MFC0  .it :
+tagged MFC0  .it :  //Things out
 	 begin
+	    $display( " PROCESSOR MFC0 call\n");
 case ( it.cop0src )
 	    // not actually an ALU instruction but don't have the format otherwise
 5'd10 : wbQ.enq(tagged WB_ALU {dest:it.rdst, data:zext(pack(cp0_statsEn)) });
 5'd20 : wbQ.enq(tagged WB_ALU {dest:it.rdst, data:cp0_fromhost });
 5'd21 : wbQ.enq(tagged WB_ALU {dest:it.rdst, data:cp0_tohost   });
+	       5'd25 : begin
+			  $display( "**** EOF Requested\n ");
+			  wbQ.enq(tagged WB_ALU {dest:it.rdst, data:zext(pack(cp0_audioEOF)) });  // Reading clears bit
+			  cp0_audioEOF <= False;
+		       end
+	       5'd28 : begin
+			  $display( "***** Reqesting Sample \n");
+			  let sample = inAudioFifo.first();        // is this going to cause perf. delay?
+			  if (sample matches tagged Sample .audio) // if it is EOF another rule sets the cp0_audioEOF
+	      		     wbQ.enq(tagged WB_ALU {dest:it.rdst, data:zext(pack(audio)) });  // do I need pack?
+			  else $display ( "Audio File EOF Reached.  Invalid sample request.");
+			  inAudioFifo.deq();
+		       end
 default :
 $display( " RTL-ERROR : %m : Illegal MFC0 cop0src register!" );
 endcase
 	end
 2: server_stub.sendResponse_ReadCPUToHost(zeroExtend(pack(stage)));
 endcase
 endrule
 // for now, we don't do anything.
-rule connectAudioReqResp;
+//  rule connectAudioReqResp;
 //    $display("rlm: PROCESSOR copies a datum\n");
-outAudioFifo.enq(inAudioFifo.first());
+//    outAudioFifo.enq(inAudioFifo.first());
-inAudioFifo.deq;
+//    inAudioFifo.deq;
+//  endrule
+rule flagAudioEnd (inAudioFifo.first() matches tagged EndOfFile);
+$display (" Proc Says End Audio Flag Set ");
+cp0_audioEOF <= True;
+inAudioFifo.deq;
+endrule
+rule sendAudioEnd (cp0_progComp);
+$display (" PROCESSOR Says Program Complete ");
+outAudioFifo.enq(tagged EndOfFile);
+cp0_progComp <= False;  //only send one.  And functions to reset
 endrule
 // Server items & rules:
 rule feedInput;
 let command <- server_stub.acceptRequest_SendUnprocessedStream();
 AudioProcessorControl ctrl = unpack(truncate(command.ctrl));
 if(ctrl == EndOfFile)
 	begin
-//	  $display("lsp: PROCESSOR received EOF   ");
+	  $display("lsp: PROCESSOR received EOF   ");
 inAudioFifo.enq(tagged EndOfFile);
 end
 else
 	begin
-//	  $display("lsp: PROCESSOR received Data   ");
+	  $display("lsp: PROCESSOR received Data   ");
 inAudioFifo.enq(tagged Sample unpack(truncate(command.sample)));
 end
 endrule

Mercurial > pygar

comparison modules/bluespec/Pygar/core/Processor.bsv @ 33:2c8166d205d5 pygar svn.34