Subversion Repositories rf6809

// ============================================================================

//  Bitmap Controller (Frame Buffer Display)

//  - Displays a bitmap from memory.

//

//

//        __

//   \\__/ o\    (C) 2008-2022  Robert Finch, Waterloo

//    \  __ /    All rights reserved.

//     \/_//     robfinch@finitron.ca

//       ||

//

//

// BSD 3-Clause License

// Redistribution and use in source and binary forms, with or without

// modification, are permitted provided that the following conditions are met:

//

// 1. Redistributions of source code must retain the above copyright notice, this

//    list of conditions and the following disclaimer.

//

// 2. Redistributions in binary form must reproduce the above copyright notice,

//    this list of conditions and the following disclaimer in the documentation

//    and/or other materials provided with the distribution.

//

// 3. Neither the name of the copyright holder nor the names of its

//    contributors may be used to endorse or promote products derived from

//    this software without specific prior written permission.

//

// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"

// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

// DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE

// FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

// DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR

// SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER

// CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,

// OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE

// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

//

//

//  The default base screen address is:

//              $0200000 - the third meg of RAM

//

//

//      Verilog 1995

//

// ============================================================================

//`define USE_CLOCK_GATE        1'b1

`define INTERNAL_SYNC_GEN       1'b1

`define ABITS   31:0

`define HIGH    1'b1

`define LOW             1'b0

`define TRUE    1'b1

`define FALSE   1'b0

module rfFrameBuffer_x12 (

        rst_i, irq_o,

        s_clk_i, s_cs_i, s_cyc_i, s_stb_i, s_ack_o, s_we_i, s_adr_i, s_dat_i, s_dat_o,

        m_clk_i, m_cyc_o, m_stb_o, m_ack_i, m_we_o, m_sel_o, m_adr_o, m_dat_i, m_dat_o,

        dot_clk_i, zrgb_o, xonoff_i, xal_o,

`ifdef INTERNAL_SYNC_GEN

        , hsync_o, vsync_o, blank_o, border_o, hctr_o, vctr_o, fctr_o, vblank_o

`else

        , hsync_i, vsync_i, blank_i

`endif

);

parameter MDW = 96;             // Bus master data width

parameter MAP = 12'd0;

parameter BM_BASE_ADDR1 = 32'h0020_0000;

parameter BM_BASE_ADDR2 = 32'h0028_0000;

parameter REG_CTRL = 11'd0;

parameter REG_REFDELAY = 11'd1;

parameter REG_PAGE1ADDR = 11'd2;

parameter REG_PAGE2ADDR = 11'd3;

parameter REG_PXYZ = 11'd4;

parameter REG_PCOLCMD = 11'd5;

parameter REG_TOTAL = 11'd8;

parameter REG_SYNC_ONOFF = 11'd9;

parameter REG_BLANK_ONOFF = 11'd10;

parameter REG_BORDER_ONOFF = 11'd11;

parameter REG_RASTCMP = 11'd12;

parameter REG_BMPSIZE = 11'd13;

parameter REG_OOB_COLOR = 11'd14;

parameter REG_WINDOW = 11'd15;

parameter BPP6 = 4'd1;

parameter BPP8 = 4'd2;

parameter BPP12 = 4'd3;

parameter BPP16 = 4'd4;

parameter BPP18 = 4'd5;

parameter BPP21 = 4'd6;

parameter BPP24 = 4'd7;

parameter BPP27 = 4'd8;

parameter BPP32 = 4'd9;

parameter BPP33 = 4'd10;

parameter OPBLACK = 4'd0;

parameter OPCOPY = 4'd1;

parameter OPINV = 4'd2;

parameter OPAND = 4'd4;

parameter OPOR = 4'd5;

parameter OPXOR = 4'd6;

parameter OPANDN = 4'd7;

parameter OPNAND = 4'd8;

parameter OPNOR = 4'd9;

parameter OPXNOR = 4'd10;

parameter OPORN = 4'd11;

parameter OPWHITE = 4'd15;

// Sync Generator defaults: 800x600 60Hz

parameter phSyncOn  = 40;               //   40 front porch

parameter phSyncOff = 168;              //  128 sync

parameter phBlankOff = 252;     //256   //   88 back porch

//parameter phBorderOff = 336;  //   80 border

parameter phBorderOff = 256;    //   80 border

//parameter phBorderOn = 976;           //  640 display

parameter phBorderOn = 1056;            //  800 display

parameter phBlankOn = 1052;             //   4 border

parameter phTotal = 1056;               // 1056 total clocks

parameter pvSyncOn  = 1;                //    1 front porch

parameter pvSyncOff = 5;                //    4 vertical sync

parameter pvBlankOff = 28;              //   23 back porch

parameter pvBorderOff = 28;             //   44 border  0

//parameter pvBorderOff = 72;           //   44 border  0

parameter pvBorderOn = 628;             //  600 display

//parameter pvBorderOn = 584;           //  512 display

parameter pvBlankOn = 628;      //   44 border  0

parameter pvTotal = 628;                //  628 total scan lines

// SYSCON

input rst_i;                            // system reset

output irq_o;

// Peripheral IO slave port

input s_clk_i;

input s_cs_i;

input s_cyc_i;

input s_stb_i;

output s_ack_o;

input s_we_i;

input [13:0] s_adr_i;

input [11:0] s_dat_i;

output [11:0] s_dat_o;

reg [11:0] s_dat_o;

// Video Memory Master Port

// Used to read memory via burst access

input m_clk_i;                          // system bus interface clock

output reg m_cyc_o;             // video burst request

output reg m_stb_o;

output reg m_we_o;

output reg [MDW/12-1:0] m_sel_o;

input  m_ack_i;                 // vid_acknowledge from memory

output reg [`ABITS] m_adr_o;    // address for memory access

input  [MDW-1:0] m_dat_i;       // memory data input

output reg [MDW-1:0] m_dat_o;

// Video

input dot_clk_i;                // Video clock 80 MHz

`ifdef INTERNAL_SYNC_GEN

output hsync_o;

output vsync_o;

output blank_o;

output vblank_o;

output border_o;

output [11:0] hctr_o;

output [11:0] vctr_o;

output [5:0] fctr_o;

`else

input hsync_i;                  // start/end of scan line

input vsync_i;                  // start/end of frame

input blank_i;                  // blank the output

`endif

output [31:0] zrgb_o;           // 24-bit RGB output + z-order

reg [31:0] zrgb_o;

input xonoff_i;

output reg xal_o;               // external access line (sprite access)

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

// IO registers

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

reg irq_o;

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

wire vclk;

reg cs;

reg we;

reg [13:0] adri;

reg [11:0] dat;

always @(posedge s_clk_i)

        cs <= s_cyc_i & s_stb_i & s_cs_i;

always @(posedge s_clk_i)

        we <= s_we_i;

always @(posedge s_clk_i)

        adri <= s_adr_i;

always @(posedge s_clk_i)

        dat <= s_dat_i;

ack_gen #(

        .READ_STAGES(2),

        .WRITE_STAGES(0),

        .REGISTER_OUTPUT(1)

) uag1

(

        .rst_i(rst_i),

        .clk_i(s_clk_i),

        .ce_i(1'b1),

        .i(cs),

        .we_i(s_cyc_i & s_stb_i & s_cs_i & s_we_i),

        .o(s_ack_o),

        .rid_i(0),

        .wid_i(0),

        .rid_o(),

        .wid_o()

);

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

integer n;

reg [11:0] rastcmp;

reg [`ABITS] bm_base_addr1,bm_base_addr2;

reg [3:0] color_depth;

wire [7:0] fifo_cnt;

reg onoff;

reg [2:0] hres,vres;

reg greyscale;

reg page;

reg [3:0] pals;                         // palette select

reg [15:0] hrefdelay;

reg [15:0] vrefdelay;

reg [15:0] windowLeft;

reg [15:0] windowTop;

reg [11:0] windowWidth,windowHeight;

reg [11:0] map;     // memory access period

reg [11:0] mapctr;

reg [15:0] bmpWidth;            // scan line increment (pixels)

reg [15:0] bmpHeight;

reg [`ABITS] baseAddr;  // base address register

wire [MDW-1:0] rgbo1, rgbo1e, rgbo1o, rgbo1m;

reg [31:0] rgbo2,rgbo4;

reg [MDW-1:0] rgbo3;

reg [15:0] pixelRow;

reg [15:0] pixelCol;

wire [11:0] pal_wo;

wire [47:0] pal_o;

reg [15:0] px;

reg [15:0] py;

reg [11:0] pz;

reg [1:0] pcmd,pcmd_o;

reg [3:0] raster_op;

reg [32:0] oob_color;

reg [31:0] color;

reg [31:0] color_o;

reg rstcmd,rstcmd1;

reg [11:0] hTotal = phTotal;

reg [11:0] vTotal = pvTotal;

reg [11:0] hSyncOn = phSyncOn, hSyncOff = phSyncOff;

reg [11:0] vSyncOn = pvSyncOn, vSyncOff = pvSyncOff;

reg [11:0] hBlankOn = phBlankOn, hBlankOff = phBlankOff;

reg [11:0] vBlankOn = pvBlankOn, vBlankOff = pvBlankOff;

reg [11:0] hBorderOn = phBorderOn, hBorderOff = phBorderOff;

reg [11:0] vBorderOn = pvBorderOn, vBorderOff = pvBorderOff;

reg sgLock;

wire pe_hsync, pe_hsync2;

wire pe_vsync;

`ifdef INTERNAL_SYNC_GEN

wire hsync_i, vsync_i, blank_i;

VGASyncGen usg1

(

        .rst(rst_i),

        .clk(vclk),

        .eol(),

        .eof(),

        .hSync(hsync_o),

        .vSync(vsync_o),

        .hCtr(hctr_o),

        .vCtr(vctr_o),

  .blank(blank_o),

  .vblank(vblank),

  .vbl_int(),

  .border(border_o),

  .hTotal_i(hTotal),

  .vTotal_i(vTotal),

  .hSyncOn_i(hSyncOn),

  .hSyncOff_i(hSyncOff),

  .vSyncOn_i(vSyncOn),

  .vSyncOff_i(vSyncOff),

  .hBlankOn_i(hBlankOn),

  .hBlankOff_i(hBlankOff),

  .vBlankOn_i(vBlankOn),

  .vBlankOff_i(vBlankOff),

  .hBorderOn_i(hBorderOn),

  .hBorderOff_i(hBorderOff),

  .vBorderOn_i(vBorderOn),

  .vBorderOff_i(vBorderOff)

);

assign hsync_i = hsync_o;

assign vsync_i = vsync_o;

assign blank_i = blank_o;

assign vblank_o = vblank;

`endif

edge_det edcs1

(

        .rst(rst_i),

        .clk(s_clk_i),

        .ce(1'b1),

        .i(cs),

        .pe(cs_edge),

        .ne(),

        .ee()

);

// Frame counter

//

VT163 #(6) ub1

(

        .clk(vclk),

        .clr_n(!rst_i),

        .ent(pe_vsync),

        .enp(1'b1),

        .ld_n(1'b1),

        .d(6'd0),

        .q(fctr_o),

        .rco()

);

reg rst_irq;

always_ff @(posedge vclk)

if (rst_i)

        irq_o <= `LOW;

else begin

        if (hctr_o==12'd02 && rastcmp==vctr_o)

                irq_o <= `HIGH;

        else if (rst_irq)

                irq_o <= `LOW;

end

always @(page or bm_base_addr1 or bm_base_addr2)

        baseAddr = page ? bm_base_addr2 : bm_base_addr1;

// Color palette RAM for 8bpp modes

syncRam512x48_1rw1r upal1       // Actually 1024x48

(

  .clka(s_clk_i),    // input wire clka

  .ena(cs & adri[13]),      // input wire ena

  .wea(we),      // input wire [3 : 0] wea

  .addra(adri[11:0]),  // input wire [8 : 0] addra

  .dina(dat),                           // input wire [31 : 0] dina

  .douta(pal_wo),  // output wire [31 : 0] douta

  .clkb(vclk),    // input wire clkb

  .enb(1'b1),      // input wire enb

  .web(1'b0),      // input wire [3 : 0] web

  .addrb({pals[2:0],rgbo4[5:0]}),  // input wire [8 : 0] addrb

  .dinb(48'h0),    // input wire [31 : 0] dinb

  .doutb(pal_o)  // output wire [31 : 0] doutb

);

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

always_ff @(posedge s_clk_i)

if (rst_i) begin

        page <= 1'b0;

        pals <= 4'h0;

        hres <= 3'd2;

        vres <= 3'd2;

        windowWidth <= 12'd400;

        windowHeight <= 12'd300;

        onoff <= 1'b0;

        color_depth <= BPP16;

        greyscale <= 1'b0;

        bm_base_addr1 <= BM_BASE_ADDR1;

        bm_base_addr2 <= BM_BASE_ADDR2;

        hrefdelay = 16'hFF99;//12'd103;

        vrefdelay = 16'hFFF3;//12'd13;

        windowLeft <= 16'h0;

        windowTop <= 16'h0;

        windowWidth <= 16'd400;

        windowHeight <= 16'd300;

        bmpWidth <= 16'd400;

        bmpHeight <= 16'd300;

        map <= MAP;

        pcmd <= 2'b00;

        rstcmd1 <= 1'b0;

        rst_irq <= 1'b0;

        rastcmp <= 12'hFFF;

        oob_color <= 32'h00003C00;

end

else begin

        rstcmd1 <= rstcmd;

        rst_irq <= 1'b0;

  if (rstcmd & ~rstcmd1)

    pcmd <= 2'b00;

        if (cs_edge) begin

                if (we) begin

                        casez(adri[13:3])

                        REG_CTRL:

                                case(adri[2:0])

                                3'd0:   onoff <= dat[0];

                                3'd1:

                                        begin

                                                color_depth <= dat[3:0];

                                                greyscale <= dat[4];

                                        end

                                3'd2:

                                        begin

                                                hres <= dat[2:0];

                                                vres <= dat[6:4];

                                        end

                                3'd3:

                                        begin

                                                page <= dat[0];

                                                pals <= dat[3:1];

                                        end

                                3'd6: ;

                                3'd7:   map[11:0] <= dat;

                                default:        ;

                                endcase

                        REG_REFDELAY:

                                case(adri[2:0])

                                3'd0:   hrefdelay[15:12] <= dat[3:0];

                                3'd1:   hrefdelay[11: 0] <= dat;

                                3'd2:   vrefdelay[15:12] <= dat[3:0];

                                3'd3:   vrefdelay[11: 0] <= dat;

                                default:        ;

                                endcase

                        REG_PAGE1ADDR:

                                case(adri[2:0])

                                3'd1:   bm_base_addr1[31:24] <= dat[7:0];

                                3'd2: bm_base_addr1[23:12] <= dat;

                                3'd3:   bm_base_addr1[11: 0] <= dat;

                                default:        ;

                                endcase

                        REG_PAGE2ADDR:

                                case(adri[2:0])

                                3'd1:   bm_base_addr2[31:24] <= dat[7:0];

                                3'd2: bm_base_addr2[23:12] <= dat;

                                3'd3:   bm_base_addr2[11: 0] <= dat;

                                default:        ;

                                endcase

                        REG_PXYZ:

                                case(adri[2:0])

                                3'd0:   px[15:12] <= dat[3:0];

                                3'd1:   px[11: 0] <= dat;

                                3'd2:   py[15:12] <= dat[3:0];

                                3'd3:   py[11: 0] <= dat;

                                3'd5:   pz[11: 0] <= dat;

                                default:        ;

                                endcase

                        REG_PCOLCMD:

                                case(adri[2:0])

                                3'd0:   pcmd <= dat[1:0];

                                3'd2:   raster_op <= dat[3:0];

                                3'd4:   ;

                                3'd5:   color[31:24] <= dat[7:0];

                                3'd6:   color[23:12] <= dat;

                                3'd7:   color[11: 0] <= dat;

                                default:        ;

                                endcase

                        REG_RASTCMP:

                                case(adri[2:0])

                                3'd0:   ;

                                3'd1:   rastcmp[11: 0] <= dat;

                                3'd7:   rst_irq <= dat[11];

                                default:        ;

                                endcase

                        REG_BMPSIZE:

                                case(adri[2:0])

                                3'd2: bmpWidth[15:12] <= dat[3:0];

                                3'd3:   bmpWidth[11:0] <= dat;

                                3'd6: bmpHeight[15:12] <= dat[3:0];

                                3'd7: bmpHeight[11:0] <= dat;

                                default:        ;

                                endcase

                        REG_OOB_COLOR:

                                case(adri[2:0])

                                3'd1:   oob_color[31:24] <= dat[7:0];

                                3'd2:   oob_color[23:12] <= dat;

                                3'd3:   oob_color[11: 0] <= dat;

                                default:        ;

                                endcase

                        REG_WINDOW:

                                case(adri[2:0])

                                3'd0:   windowWidth <= dat;

                                3'd1:   windowHeight <= dat;

                                3'd4:   windowLeft[15:12] <= dat[3:0];

                                3'd5:   windowLeft[11: 0] <= dat;

                                3'd6:   windowTop[15:12] <= dat[3:0];

                                3'd7:   windowTop[11: 0] <= dat;

                                endcase

`ifdef INTERNAL_SYNC_GEN

                        REG_TOTAL:

                                case(adri[2:0])

                                3'd0:   if (!sgLock) hTotal <= dat;

                                3'd1: if (!sgLock) vTotal <= dat;

                                3'd7:   if (dat==12'hA12)

                                                                sgLock <= 1'b1;

                                                        else if (dat==12'h21A)

                                                                sgLock <= 1'b0;

                                default:        ;

                                endcase

                        REG_SYNC_ONOFF:

                                case(adri[2:0])

                                3'd0:   if (!sgLock) hSyncOff <= dat;

                                3'd1:   if (!sgLock) hSyncOn <= dat;

                                3'd2: if (!sgLock) vSyncOff <= dat;

                                3'd3: if (!sgLock) vSyncOn <= dat;

                                default:        ;

                                endcase

                        REG_BLANK_ONOFF:

                                case(adri[2:0])

                                3'd0:   if (!sgLock) hBlankOff <= dat;

                                3'd1:   if (!sgLock) hBlankOn <= dat;

                                3'd2: if (!sgLock) vBlankOff <= dat;

                                3'd3: if (!sgLock) vBlankOn <= dat;

                                default:        ;

                                endcase

                        REG_BORDER_ONOFF:

                                case(adri[2:0])

                                3'd0:   if (!sgLock) hBorderOff <= dat;

                                3'd1:   if (!sgLock) hBorderOn <= dat;

                                3'd2: if (!sgLock) vBorderOff <= dat;

                                3'd3: if (!sgLock) vBorderOn <= dat;

                                default:        ;

                                endcase

`endif

      default:  ;

                        endcase

                end

        end

        if (s_cs_i)

          casez(adri[13:3])

          REG_CTRL:     ;

          /*

              begin

                  s_dat_o[0] <= onoff;

                  s_dat_o[10:8] <= color_depth;

                  s_dat_o[12] <= greyscale;

                  s_dat_o[18:16] <= hres;

                  s_dat_o[22:20] <= vres;

                  s_dat_o[24] <= page;

                  s_dat_o[28:25] <= pals;

                  s_dat_o[47:32] <= bmpWidth;

                  s_dat_o[59:48] <= map;

              end

          */

          REG_REFDELAY:

                        case(adri[2:0])

                        3'd0:   s_dat_o <= {8'h00,hrefdelay[15:12]};

                        3'd1:   s_dat_o <= hrefdelay[11: 0];

                        3'd2:   s_dat_o <= {8'h00,vrefdelay[15:12]};

                        3'd3:   s_dat_o <= vrefdelay[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          REG_PAGE1ADDR:

                        case(adri[2:0])

                        3'd1:   s_dat_o <= {4'h0,bm_base_addr1[31:24]};

                        3'd2: s_dat_o <= bm_base_addr1[23:12];

                        3'd3:   s_dat_o <= bm_base_addr1[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          REG_PAGE2ADDR:

                        case(adri[2:0])

                        3'd1:   s_dat_o <= {4'h0,bm_base_addr2[31:24]};

                        3'd2: s_dat_o <= bm_base_addr2[23:12];

                        3'd3:   s_dat_o <= bm_base_addr2[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          REG_PXYZ:

                        case(adri[2:0])

                        3'd0:   s_dat_o <= {8'h00,px[15:12]};

                        3'd1:   s_dat_o <= px[11: 0];

                        3'd2:   s_dat_o <= {8'h00,py[15:12]};

                        3'd3:   s_dat_o <= py[11: 0];

                        3'd5:   s_dat_o <= pz[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          REG_PCOLCMD:

                        case(adri[2:0])

                        3'd0:   s_dat_o <= {10'h0,pcmd};

                        3'd2:   s_dat_o <= {8'h0,raster_op};

                        3'd5:   s_dat_o <= {4'h0,color[31:24]};

                        3'd6:   s_dat_o <= color[23:12];

                        3'd7:   s_dat_o <= color[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          REG_OOB_COLOR:

                        case(adri[2:0])

                        3'd1:   s_dat_o <= {4'h0,oob_color[31:24]};

                        3'd2:   s_dat_o <= oob_color[23:12];

                        3'd3:   s_dat_o <= oob_color[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          REG_WINDOW:

                        case(adri[2:0])

                        3'd0:   s_dat_o <= windowWidth <= dat;

                        3'd1:   s_dat_o <= windowHeight <= dat;

                        3'd4:   s_dat_o <= {8'h00,windowLeft[15:12]};

                        3'd5:   s_dat_o <= windowLeft[11: 0];

                        3'd6:   s_dat_o <= {8'h00,windowTop[15:12]};

                        3'd7:   s_dat_o <= windowTop[11: 0];

                        default:        s_dat_o <= 12'h0;

                        endcase

          11'b1?_????_????_?:   s_dat_o <= pal_wo;

          default:        s_dat_o <= 12'd0;

          endcase

        else

                s_dat_o <= 12'h0;

end

//`ifdef USE_CLOCK_GATE

//BUFHCE ucb1

//(

//      .I(dot_clk_i),

//      .CE(onoff),

//      .O(vclk)

//);

//`else

assign vclk = dot_clk_i;

//`endif

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

// Horizontal and Vertical timing reference counters

// - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

reg lef;        // load even fifo

reg lof;        // load odd fifo

edge_det edh1

(

        .rst(rst_i),

        .clk(vclk),

        .ce(1'b1),

        .i(hsync_i),

        .pe(pe_hsync),

        .ne(),

        .ee()

);

edge_det edh2

(

        .rst(1'b0),

        .clk(m_clk_i),

        .ce(1'b1),

        .i(hsync_i),

        .pe(pe_hsync2),

        .ne(),

        .ee()

);

edge_det edv1

(

        .rst(rst_i),

        .clk(vclk),

        .ce(1'b1),

        .i(vsync_i),

        .pe(pe_vsync),

        .ne(),

        .ee()

);

reg [3:0] hc = 4'd1;

always_ff @(posedge vclk)

if (pe_hsync) begin

        hc <= 4'd1;

        pixelCol <= hrefdelay;

end

else begin

        if (hc==hres) begin

                hc <= 4'd1;

                pixelCol <= pixelCol + 16'd1;

        end

        else

                hc <= hc + 4'd1;

end

reg [3:0] vc = 4'd1;

always_ff @(posedge vclk)

if (pe_vsync) begin

        vc <= 4'd1;

        pixelRow <= vrefdelay;

end

else begin

        if (pe_hsync) begin

                vc <= vc + 4'd1;

                if (vc==vres) begin

                        vc <= 4'd1;

                        pixelRow <= pixelRow + 16'd1;

                end

        end

end

always_comb

        lef = ~pixelRow[0];

always_comb

        lof =  pixelRow[0];

always_ff @(posedge vclk)

        xal_o <= vc != 4'd1;

// Bits per pixel minus one.

reg [4:0] bpp;

always_comb

case(color_depth)

BPP6: bpp = 5;

BPP8:   bpp = 7;

BPP12: bpp = 11;

BPP16:  bpp = 15;

BPP18:  bpp = 17;

BPP21:  bpp = 20;

BPP24:  bpp = 23;

BPP27:  bpp = 26;

BPP32:  bpp = 31;

BPP33:  bpp = 32;

default:        bpp = 15;

endcase

reg [5:0] shifts;

always_comb

case(MDW)

96:

        case(color_depth)

        BPP6:   shifts = 6'd16;

        BPP8:   shifts = 6'd12;

        BPP12:  shifts = 6'd8;

        BPP16:  shifts = 6'd6;

        BPP18:  shifts = 6'd5;

        BPP21:  shifts = 6'd4;

        BPP24:  shifts = 6'd4;

        BPP27:  shifts = 6'd3;

        BPP32:  shifts = 6'd3;

        BPP33:  shifts = 6'd2;

        default:  shifts = 6'd8;

        endcase

default:

        begin

        $display("rfFrameBuffer_x12: Bad master bus width");

        $finish;

        end

endcase

wire vFetch = !vblank;//pixelRow < windowHeight;

reg fifo_rrst;

reg fifo_wrst;

always_comb fifo_rrst = pixelCol==16'hFFFF;

always_comb fifo_wrst = pe_hsync2 && vc==4'd1;

wire[31:0] grAddr,xyAddr;

reg [11:0] fetchCol;

localparam CMS = MDW==128 ? 6 : MDW==64 ? 5 : 4;

wire [CMS:0] mb,me,ce;

reg [MDW-1:0] mem_strip;

wire [MDW-1:0] mem_strip_o;

wire [31:0] mem_color;

// Compute fetch address

gfx_calc_address #(MDW) u1

(

  .clk(m_clk_i),

        .base_address_i(baseAddr),

        .color_depth_i(color_depth),

        .bmp_width_i(bmpWidth),

        .x_coord_i(windowLeft),

        .y_coord_i(windowTop + pixelRow),

        .address_o(grAddr),

        .mb_o(),

        .me_o(),

        .ce_o()

);

// Compute address for get/set pixel

gfx_calc_address  #(MDW) u2

(

  .clk(m_clk_i),

        .base_address_i(baseAddr),

        .color_depth_i(color_depth),

        .bmp_width_i(bmpWidth),

        .x_coord_i(px),

        .y_coord_i(py),

        .address_o(xyAddr),

        .mb_o(mb),

        .me_o(me),

        .ce_o(ce)

);

always_ff @(posedge m_clk_i)

if (pe_hsync2)

  mapctr <= 12'hFFE;

else begin

  if (mapctr == map)

    mapctr <= 12'd0;

  else

    mapctr <= mapctr + 12'd1;

end

wire memreq = mapctr==12'd0 && vc==4'd1;

// The following bypasses loading the fifo when all the pixels from a scanline

// are buffered in the fifo and the pixel row doesn't change. Since the fifo

// pointers are reset at the beginning of a scanline, the fifo can be used like

// a cache.

wire blankEdge;

edge_det ed2(.rst(rst_i), .clk(m_clk_i), .ce(1'b1), .i(blank_i), .pe(blankEdge), .ne(), .ee() );

reg do_loads;

reg load_fifo = 1'b0;

always_ff @(posedge m_clk_i)

        //load_fifo <= fifo_cnt < 10'd1000 && vFetch && onoff && xonoff && !m_cyc_o && do_loads;

        load_fifo <= /*fifo_cnt < 8'd224 &&*/ vFetch && onoff && xonoff_i && (fetchCol < windowWidth) && memreq;

// The following table indicates the number of pixel that will fit into the

// video fifo.

reg [11:0] hCmp;

always_comb

case(color_depth)

BPP6: hCmp = 128 * $floor(MDW/6);    // must fit in 12 bits

BPP8:   hCmp = 128 * $floor(MDW/8);

BPP12: hCmp = 128 * $floor(MDW/12);

BPP16:  hCmp = 128 * $floor(MDW/16);

BPP18:  hCmp = 128 * $floor(MDW/18);

BPP21:  hCmp = 128 * $floor(MDW/21);

BPP24:  hCmp = 128 * $floor(MDW/24);

BPP27:  hCmp = 128 * $floor(MDW/27);

BPP32:  hCmp = 128 * $floor(MDW/32);

BPP33:  hCmp = 128 * $floor(MDW/33);

default:        hCmp = 128 * $floor(MDW/16);

endcase

/*

always @(posedge m_clk_i)

        // if windowWidth > hCmp we always load because the fifo isn't large enough to act as a cache.

        if (!(windowWidth < hCmp))

                do_loads <= 1'b1;

        // otherwise load the fifo only when the row changes to conserve memory bandwidth

        else if (vc==4'd1)//pixelRow != opixelRow)

                do_loads <= 1'b1;

        else if (blankEdge)

                do_loads <= 1'b0;

*/

always_comb m_stb_o = m_cyc_o;

always_comb m_sel_o = MDW==128 ? 16'hFFFF : MDW==64 ? 8'hFF : 4'hF;

reg [31:0] adr;

reg [3:0] state;

reg [127:0] icolor1;

parameter IDLE = 4'd0;

parameter LOADCOLOR = 4'd2;

parameter LOADSTRIP = 4'd3;

parameter STORESTRIP = 4'd4;

parameter ACKSTRIP = 4'd5;

parameter WAITLOAD = 4'd6;

parameter WAITRST = 4'd7;

parameter ICOLOR1 = 4'd8;

parameter ICOLOR2 = 4'd9;

parameter ICOLOR3 = 4'd10;

parameter ICOLOR4 = 4'd11;

parameter WAIT_NACK = 4'd12;

parameter LOAD_OOB = 4'd13;

function rastop;

input [3:0] op;

input a;

input b;

case(op)

OPBLACK: rastop = 1'b0;

OPCOPY:  rastop = b;

OPINV:   rastop = ~a;

OPAND:   rastop = a & b;

OPOR:    rastop = a | b;

OPXOR:   rastop = a ^ b;

OPANDN:  rastop = a & ~b;

OPNAND:  rastop = ~(a & b);

OPNOR:   rastop = ~(a | b);

OPXNOR:  rastop = ~(a ^ b);

OPORN:   rastop = a | ~b;

OPWHITE: rastop = 1'b1;

default:        rastop = 1'b0;

endcase

endfunction

always_ff @(posedge m_clk_i)

        if (fifo_wrst)

                adr <= grAddr;

  else begin

    if ((state==WAITLOAD && m_ack_i) || state==LOAD_OOB)

        case(MDW)

        32:             adr <= adr + 32'd4;

        64:             adr <= adr + 32'd8;

        default:        adr <= adr + 32'd16;

        endcase

  end

always_ff @(posedge m_clk_i)

        if (fifo_wrst)

                fetchCol <= 12'd0;

  else begin

    if ((state==WAITLOAD && m_ack_i) || state==LOAD_OOB)

      fetchCol <= fetchCol + shifts;

  end

// Check for legal (positive) coordinates

// Illegal coordinates result in a red display

wire [15:0] xcol = fetchCol;

reg legal_x, legal_y;

always_comb legal_x = ~&xcol[15:12] && xcol < bmpWidth;

always_comb legal_y = ~&pixelRow[15:12] && pixelRow < bmpHeight;

reg modd;

always_comb

        case(MDW)

        32:     modd <= m_adr_o[5:2]==4'hF;

        64:     modd <= m_adr_o[5:3]==3'h7;

        default:        modd <= m_adr_o[5:4]==2'h3;

        endcase

always @(posedge m_clk_i)

if (rst_i) begin

        wb_nack();

  rstcmd <= 1'b0;

  state <= IDLE;

end

else begin

        case(state)

  WAITRST:

    if (pcmd==2'b00 && ~m_ack_i) begin

      rstcmd <= 1'b0;

      state <= IDLE;

    end

    else

      rstcmd <= 1'b1;

  IDLE:

        if (load_fifo && !(legal_x && legal_y))

                        state <= LOAD_OOB;

    else if (load_fifo & ~m_ack_i) begin

      m_cyc_o <= `HIGH;

      m_we_o <= `LOW;