Subversion Repositories eco32

//
// dsp.v -- character display interface
//
 
 
`timescale 1ns/10ps
`default_nettype none
 
 
module dsp(clk, rst,
           stb, we, addr,
           data_in, data_out, ack);
    input clk;
    input rst;
    input stb;
    input we;
    input [13:2] addr;
    input [15:0] data_in;
    output [15:0] data_out;
    output ack;
 
  integer dsp_out;		// file handle for display output
 
  reg [15:0] mem[0:4095];	// 32 x 128 attr/char display memory
 
  initial begin
    dsp_out = $fopen("dsp.out", "w");
  end
 
  always @(posedge clk) begin
    if (stb & we) begin
      mem[addr[13:2]] <= data_in[15:0];
      $fdisplay(dsp_out,
                "row = %d, col = %d, attr = 0x%h, char = 0x%h",
                addr[13:9], addr[8:2], data_in[15:8], data_in[7:0]);
    end
  end
 
  assign data_out[15:0] = mem[addr[13:2]];
  assign ack = stb;
 
endmodule