Subversion Repositories firewire

// $Id: fw_host_tasks.v,v 1.1 2002-03-10 17:18:07 johnsonw10 Exp $
//////////////////////////////////////////////////////////////////////
////                                                              ////
//// FIREWIRE IP Core                                             ////
////                                                              ////
//// This file is part of the firewire project                    ////
//// http://www.opencores.org/cores/firewire/                     ////
////                                                              ////
//// Description                                                  ////
//// Implementation of firewire IP core according to              ////
//// firewire IP core specification document.                     ////
////                                                              ////
//// To Do:                                                       ////
//// -                                                            ////
////                                                              ////
//// Author(s):                                                   ////
//// - johnsonw10@opencores.org                                   ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
////                                                              ////
//// Copyright (C) 2001 Authors and OPENCORES.ORG                 ////
////                                                              ////
//// This source file may be used and distributed without         ////
//// restriction provided that this copyright statement is not    ////
//// removed from the file and that any derivative work contains  ////
//// the original copyright notice and the associated disclaimer. ////
////                                                              ////
//// This source file is free software; you can redistribute it   ////
//// and/or modify it under the terms of the GNU Lesser General   ////
//// Public License as published by the Free Software Foundation; ////
//// either version 2.1 of the License, or (at your option) any   ////
//// later version.                                               ////
////                                                              ////
//// This source is distributed in the hope that it will be       ////
//// useful, but WITHOUT ANY WARRANTY; without even the implied   ////
//// warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR      ////
//// PURPOSE. See the GNU Lesser General Public License for more  ////
//// details.                                                     ////
////                                                              ////
//// You should have received a copy of the GNU Lesser General    ////
//// Public License along with this source; if not, download it   ////
//// from http://www.opencores.org/lgpl.shtml                     ////
////                                                              ////
//////////////////////////////////////////////////////////////////////
//
// CVS Revision History
//
// $Log: not supported by cvs2svn $
//
//
 
task host_write_reg;
input [7:0] addr;
input [31:0] data;
 
 
begin
    @ (posedge sclk);
    host_cs_n <= 0;
    host_wr_n <= 0;
    host_addr <= addr;
    host_data_out <= data;
 
    @ (posedge sclk);
    host_cs_n <= 1;
    host_wr_n <= 1;
    host_data_out <= 32'hzzzz_zzzz;
end
endtask // host_write_reg
 
task host_write_atxf;
input data_num;
integer data_num;
 
reg [0:31] temp;
integer i;
 
begin
    i = 0;
    while (i < data_num) begin
	temp <= send_buf[i];
	@ (posedge sclk);
	if (!atxf_ff) begin
	    atxf_wr <= 1;
	    atxf_din <= temp;
	    i = i + 1;  // have to use blocking assignment
	end
    end
 
    @ (posedge sclk);
    atxf_wr <= 0;
end
 
endtask // host_write_atxf