Subversion Repositories sqmusic

`timescale 1ns / 1ps

module ay_3_8910_capcom_tb;

reg reset_n, clk, int_n, sound_clk;

reg [7:0] data;

reg wr_n, cs_n, adr;

parameter dump_text = 1; // set to 1 to dump data to use log2wav later

initial begin

/*    $dumpfile("dump.lxt");

  $dumpvars(1,pwm0);

  $dumpvars(1,pwm1);*/

//              $dumpvars();

//    $dumpon;

        $shm_open( "ay_3_8910_capcom_tb.shm");

        $shm_probe( ay_3_8910_capcom_tb, "ACTFS" );

  reset_n=0;

        data=0;

        wr_n=1;

        cs_n=1;

        adr=0;

  #1500 reset_n=1;

        // write 201 to register 15 

        adr=0;

        data=8'h3F;

        wr_n=0;

        cs_n=0;

        #668

        data=201;

        adr=1;

        #668

        // write 134 to register 4 

        #668

        adr=0;

        data=8'h04;

        wr_n=0;

        cs_n=0;

        #668

        data=134;

        adr=1;

        #668

        // write 63 to register 12

        #668

        adr=0;

        data=12;

        wr_n=0;

        cs_n=0;

        #668

        data= 63;

        adr=1;

        #668

        wr_n=1;

        data=0;

        #700

        $finish;

end

always begin // main clock

  clk=0;

  forever clk = #167 ~clk;

end

always begin // sound clock

  sound_clk=0;

  forever sound_clk = #334 ~sound_clk;

end

AY_3_8910_capcom #(1,0) ay( .reset_n(reset_n), .clk(clk), // CPU clock

        .sound_clk(sound_clk), // normally slower than the CPU clock

  .din(data), .adr(adr), .wr_n(wr_n), .cs_n(cs_n), // chip select

  .A(A),.B(B),.C(C) // channel outputs

);

endmodule