debugging larger frames write/read

.settings/com.elphel.vdt.iverilog.prefs

-com.elphel.store.context.iverilog=iverilog_81_TopModulesOther<-@\#\#@->iverilog_83_ExtraFiles<-@\#\#@->iverilog_88_ShowNoProblem<-@\#\#@->iverilog_77_Param_Exe<-@\#\#@->iverilog_78_VVP_Exe<-@\#\#@->iverilog_99_GrepFindErrWarn<-@\#\#@->iverilog_84_IncludeDir<-@\#\#@->iverilog_89_ShowNoProblem<-@\#\#@->
+com.elphel.store.context.iverilog=iverilog_81_TopModulesOther<-@\#\#@->iverilog_83_ExtraFiles<-@\#\#@->iverilog_88_ShowNoProblem<-@\#\#@->iverilog_77_Param_Exe<-@\#\#@->iverilog_78_VVP_Exe<-@\#\#@->iverilog_99_GrepFindErrWarn<-@\#\#@->iverilog_84_IncludeDir<-@\#\#@->iverilog_89_ShowNoProblem<-@\#\#@->iverilog_79_GtkWave_Exe<-@\#\#@->
 eclipse.preferences.version=1
 iverilog_77_Param_Exe=/usr/local/bin/iverilog
 iverilog_78_VVP_Exe=/usr/local/bin/vvp
+iverilog_79_GtkWave_Exe=/usr/local/bin/gtkwave
 iverilog_81_TopModulesOther=glbl<-@\#\#@->
 iverilog_83_ExtraFiles=glbl.v<-@\#\#@->
 iverilog_84_IncludeDir=/home/andrey/git/x393/ddr3<-@\#\#@->/home/andrey/git/x393/includes<-@\#\#@->

glbl.v

 `timescale  1 ps / 1 ps
 module glbl ();
-    parameter ROC_WIDTH = 100000;
+    parameter ROC_WIDTH = 10000;// 100000;
     parameter TOC_WIDTH = 0;
 
     //SuppressWarnings VEditor - this value is used in other modules through global reference

includes/x393_tasks_mcntrl_buffers.vh

@@ -19,10 +19,12 @@
  * You should have received a copy of the GNU General Public License
  * along with this program.  If not, see <http://www.gnu.org/licenses/> .
  *******************************************************************************/
+/* 
 task write_block_scanline_chn;  // S uppressThisWarning VEditor : may be unused
     input integer chn; // buffer channel
     input   [1:0] page;
-    input integer num_words; // number of words to write (will be rounded up to multiple of 16)
+//    input integer num_words; // number of words to write (will be rounded up to multiple of 16)
+    input [NUM_XFER_BITS:0] num_bursts; // number of 8-bursts to write (will be rounded up to multiple of 16)
     input integer startX;
     input integer startY;
     reg    [29:0] start_addr;
@@ -36,10 +38,11 @@ task write_block_scanline_chn;  // S uppressThisWarning VEditor : may be unused
                 start_addr = MCONTR_BUF1_WR_ADDR+ (page << 8);
             end
         endcase
-        write_block_incremtal (start_addr, num_words, (startX<<2) + (startY<<16)); // 1 of startX is 8x16 bit, 16 bytes or 4 32-bit words
+//        write_block_incremtal (start_addr, num_words, (startX<<2) + (startY<<16)); // 1 of startX is 8x16 bit, 16 bytes or 4 32-bit words
+        write_block_incremtal (start_addr, num_bursts << 2, (startX<<2) + (startY<<16)); // 1 of startX is 8x16 bit, 16 bytes or 4 32-bit words
     end
 endtask
-
+*/
 
 task write_block_incremtal;
     input [29:0] start_word_address;

x393_testbench01.sav

 [*]
-[*] GTKWave Analyzer v3.3.58 (w)1999-2014 BSI
-[*] Mon Feb 16 09:23:49 2015
+[*] GTKWave Analyzer v3.3.64 (w)1999-2014 BSI
+[*] Tue Feb 17 01:52:35 2015
 [*]
-[dumpfile] "/home/andrey/git/x393/simulation/x393_testbench01-20150216011942991.lxt"
-[dumpfile_mtime] "Mon Feb 16 08:28:40 2015"
-[dumpfile_size] 433558175
+[dumpfile] "/home/andrey/git/x393/simulation/x393_testbench01-20150216153037852.lxt"
+[dumpfile_mtime] "Mon Feb 16 22:50:05 2015"
+[dumpfile_size] 1073751632
 [savefile] "/home/andrey/git/x393/x393_testbench01.sav"
-[timestart] 150542000
-[size] 1823 1180
-[pos] 1940 0
-*-19.698502 157370000 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1
+[timestart] 52831600
+[size] 1823 1173
+[pos] 1927 0
+*-14.698502 52944323 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1 -1
 [treeopen] x393_testbench01.
 [treeopen] x393_testbench01.x393_i.
 [treeopen] x393_testbench01.x393_i.mcntrl393_i.
@@ -754,7 +754,7 @@ x393_testbench01.x393_i.mcntrl393_test01_i.status_router4_i.status_router2_01_i.
 -group_end
 @1401200
 -test01_status_router2_01
-@800200
+@c00200
 -axibram_read
 @28
 x393_testbench01.x393_i.axibram_read_i.aclk[0]
@@ -847,11 +847,10 @@ x393_testbench01.x393_i.axibram_read_i.bram_regen[0]
 -
 @28
 x393_testbench01.x393_i.axibram_read_i.read_in_progress[0]
-@29
 x393_testbench01.x393_i.axibram_read_i.bram_ren[0]
 @200
 -
-@1000200
+@1401200
 -axibram_read
 @c00200
 -refresh
@@ -892,7 +891,9 @@ x393_testbench01.x393_i.SDA[14:0]
 x393_testbench01.x393_i.SDBA[2:0]
 @28
 x393_testbench01.x393_i.SDRAS[0]
+@29
 x393_testbench01.x393_i.SDCAS[0]
+@28
 x393_testbench01.x393_i.SDWE[0]
 x393_testbench01.x393_i.DQSL[0]
 x393_testbench01.x393_i.DQSU[0]
@@ -1327,6 +1328,8 @@ x393_testbench01.x393_i.mcntrl393_test01_i.suspend_chn4[0]
 x393_testbench01.x393_i.mcntrl393_test01_i.suspend_chn4_r[0]
 @1401200
 -mcntrl393_test01
+@22
+x393_testbench01.ii[31:0]
 @200
 -
 @c00200
@@ -1459,7 +1462,7 @@ x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn2_i.xfer_start_r[2:0]
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn2_i.xfer_want[0]
 @1401200
 -linear_ch2
-@800200
+@c00200
 -read_block_scanline
 @200
 -
@@ -1527,10 +1530,24 @@ x393_testbench01.x393_i.mcntrl393_i.cmd_encod_linear_rd_i.skip_next_page_in[0]
 x393_testbench01.x393_i.mcntrl393_i.cmd_encod_linear_rd_i.start[0]
 @22
 x393_testbench01.x393_i.mcntrl393_i.cmd_encod_linear_rd_i.start_col[6:0]
-@1000200
+@1401200
 -read_block_scanline
-@c00200
+@800200
 -linear_ch3
+@200
+-
+@800200
+-write_scanline_chn
+@22
+x393_testbench01.write_block_scanline_chn.chn[31:0]
+x393_testbench01.write_block_scanline_chn.num_bursts[6:0]
+x393_testbench01.write_block_scanline_chn.num_words[31:0]
+x393_testbench01.write_block_scanline_chn.page[1:0]
+x393_testbench01.write_block_scanline_chn.startX[31:0]
+x393_testbench01.write_block_scanline_chn.startY[31:0]
+x393_testbench01.write_block_scanline_chn.start_addr[29:0]
+@1000200
+-write_scanline_chn
 @28
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn3_i.busy_r[0]
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn3_i.calc_valid[0]
@@ -1716,7 +1733,7 @@ x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn3_i.xfer_row[14:0]
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn3_i.xfer_start[0]
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn3_i.xfer_start_r[2:0]
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_linear_rw_chn3_i.xfer_want[0]
-@1401200
+@1000200
 -linear_ch3
 @800200
 -cmd1_buf
@@ -1756,7 +1773,7 @@ x393_testbench01.x393_i.mcntrl393_i.memctrl16_i.mcontr_sequencer_i.cmd1_buf_i.we
 -cmd1_buf
 @200
 -
-@800200
+@c00200
 -encod_linear_wr
 @200
 -
@@ -1958,7 +1975,7 @@ x393_testbench01.x393_i.mcntrl393_i.cmd_encod_linear_wr_i.start_col[6:0]
 x393_testbench01.x393_i.mcntrl393_i.cmd_encod_linear_wr_i.start_d[0]
 @200
 -
-@1000200
+@1401200
 -encod_linear_wr
 @c00200
 -encod_linear_mux
@@ -2466,7 +2483,7 @@ x393_testbench01.x393_i.mcntrl393_i.mcntrl_ps_pio_i.want_rq0[0]
 x393_testbench01.x393_i.mcntrl393_i.mcntrl_ps_pio_i.want_rq1[0]
 @1401200
 -PS_PIO
-@800200
+@c00200
 -memcntrl16_0
 @22
 x393_testbench01.x393_i.mcntrl393_i.memctrl16_i.ext_buf_rchn_late[3:0]
@@ -2575,6 +2592,7 @@ x393_testbench01.x393_i.mcntrl393_i.memctrl16_i.mcontr_sequencer_i.cmd0_buf_i.we
 x393_testbench01.x393_i.mcntrl393_i.memctrl16_i.ext_buf_rrefresh[0]
 @1000200
 -cmd0_buf
+@1401200
 -memcntrl16_0
 @c00200
 -max_0001

x393_testbench01.tf

@@ -190,16 +190,18 @@ module  x393_testbench01 #(
   wire        bready;
   integer     NUM_WORDS_READ;
   integer     NUM_WORDS_EXPECTED;
+//  integer     SCANLINE_CUR_X;
+//  integer     SCANLINE_CUR_Y;
   wire AXI_RD_EMPTY=NUM_WORDS_READ==NUM_WORDS_EXPECTED; //SuppressThisWarning VEditor : may be unused, just for simulation
   
   localparam       FRAME_START_ADDRESS= 'h1000; // RA=80, CA=0, BA=0 22-bit frame start address (3 CA LSBs==0. BA==0)
   localparam       FRAME_FULL_WIDTH=    'h0c0;  // Padded line length (8-row increment), in 8-bursts (16 bytes)
 //  localparam SCANLINE_WINDOW_WH=  `h079000a2;  // 2592*1936: low word - 13-bit window width (0->'h4000), high word - 16-bit frame height (0->'h10000)
 //  localparam       SCANLINE_WINDOW_WH=  'h0009000b;  // 176*9: low word - 13-bit window width (0->'h4000), high word - 16-bit frame height (0->'h10000)
-  localparam       SCANLINE_WINDOW_W=   'h000b;  // 176:  13-bit window width (0->'h4000)
+  localparam       SCANLINE_WINDOW_W=   'h005b; //'h000b;  // 176:  13-bit window width (0->'h4000)
   localparam       SCANLINE_WINDOW_H=   'h0009;  // 9:    16-bit frame height (0->'h10000)
 //  localparam       SCANLINE_X0Y0=       'h00050003;  // X0=3*16=48, Y0=5: // low word - 13-bit window left, high word - 16-bit window top
-  localparam       SCANLINE_X0=         'h7c; // 'h0003;  // X0=3*16=48 - 13-bit window left
+  localparam       SCANLINE_X0=         'h005c; // 'h7c; // 'h0003;  // X0=3*16=48 - 13-bit window left
   localparam       SCANLINE_Y0=         'h0005;  // Y0=5: 16-bit window top
 //  localparam       SCANLINE_STARTXY=    'h0;         // low word - 13-bit start X (relative to window), high word - 16-bit start y (normally 0)
   localparam       SCANLINE_STARTX=     'h0;         // 13-bit start X (relative to window), high word (normally 0)
@@ -208,8 +210,15 @@ module  x393_testbench01 #(
   
   localparam       TEST01_START_FRAME=   1;         
   localparam       TEST01_NEXT_PAGE=     2;         
-  localparam       TEST01_SUSPEND=       4;         
+  localparam       TEST01_SUSPEND=       4;
+  
+  //NUM_XFER_BITS=6
+  localparam       SCANLINE_PAGES_PER_ROW= (SCANLINE_WINDOW_W>>NUM_XFER_BITS)+((SCANLINE_WINDOW_W[NUM_XFER_BITS-1:0]==0)?0:1);
+//  localparam  integer     SCANLINE_FULL_XFER= 1<<NUM_XFER_BITS; // 64 - full page transfer in 8-bursts
+//  localparam  integer     SCANLINE_LAST_XFER= SCANLINE_WINDOW_W % (1<<NUM_XFER_BITS); // last page transfer size in a row
+  
   integer ii;
+  integer  SCANLINE_XFER_SIZE;
   localparam       TEST_INITIAL_BURST=   4; // 3;
 always #(CLKIN_PERIOD/2) CLK <= ~CLK;
   initial begin
@@ -227,19 +236,20 @@ always #(CLKIN_PERIOD/2) CLK <= ~CLK;
     $dumpfile(lxtname);
   // SuppressWarnings VEditor : assigned in $readmem() system task
     $dumpvars(0,x393_testbench01);
-    CLK <=1'b0;
-    RST <= 1'bx;
-    AR_SET_CMD_r <= 1'b0;
-    AW_SET_CMD_r <= 1'b0;
-    W_SET_CMD_r <= 1'b0;
+    CLK =1'b0;
+    RST = 1'bx;
+    AR_SET_CMD_r = 1'b0;
+    AW_SET_CMD_r = 1'b0;
+    W_SET_CMD_r = 1'b0;
     #500;
 //    $display ("x393_i.ddrc_sequencer_i.phy_cmd_i.phy_top_i.rst=%d",x393_i.ddrc_sequencer_i.phy_cmd_i.phy_top_i.rst);
     #500;
-    RST <= 1'b1;
-    NUM_WORDS_EXPECTED <=0;
-    #99000; // same as glbl
+    RST = 1'b1;
+    NUM_WORDS_EXPECTED =0;
+//    #99000; // same as glbl
+    #9000; // same as glbl
     repeat (20) @(posedge CLK) ;
-    RST <=1'b0;
+    RST =1'b0;
 //set simulation-only parameters   
     axi_set_b_lag(0); //(1);
     axi_set_rd_lag(0);
@@ -377,13 +387,40 @@ always #(CLKIN_PERIOD/2) CLK <= ~CLK;
 //  localparam       TEST01_START_FRAME=   1;         
 //  localparam       TEST01_NEXT_PAGE=     2;         
 //  localparam       TEST01_SUSPEND=       4;         
-    
+ /*
+   integer     SCANLINE_CUR_X;
+  integer     SCANLINE_CUR_Y;
+//SCANLINE_PAGES_PER_ROW
+ */   
     write_contol_register(MCNTRL_TEST01_ADDR + MCNTRL_TEST01_CHN3_MODE,            TEST01_START_FRAME);
     for (ii=0;ii<TEST_INITIAL_BURST;ii=ii+1) begin
-        write_block_scanline_chn(3, (ii & 3), SCANLINE_WINDOW_W << 2, SCANLINE_X0,SCANLINE_Y0+ii);  // now assumes that width is <= than maximal xfer
+//        SCANLINE_CUR_X = SCANLINE_X0 + ((ii % SCANLINE_PAGES_PER_ROW) << NUM_XFER_BITS);
+//        SCANLINE_CUR_Y = SCANLINE_Y0 + (ii / SCANLINE_PAGES_PER_ROW);
+// VDT bugs: 1:does not propagate undefined width through ?:, 2: - does not allow to connect it to task integer input, 3: shows integer input width as 1  
+        SCANLINE_XFER_SIZE= ((SCANLINE_PAGES_PER_ROW>1)?
+                (
+                    (
+                        ((ii % SCANLINE_PAGES_PER_ROW) < (SCANLINE_PAGES_PER_ROW-1))?
+                        
+                        (1<<NUM_XFER_BITS):
+                        (SCANLINE_WINDOW_W % (1<<NUM_XFER_BITS))
+                    )
+                ):
+                (SCANLINE_WINDOW_W));
+        write_block_scanline_chn(
+            3,
+            (ii & 3),
+            SCANLINE_XFER_SIZE,
+            SCANLINE_X0 + ((ii % SCANLINE_PAGES_PER_ROW)<<NUM_XFER_BITS),  // SCANLINE_CUR_X,
+            SCANLINE_Y0 + (ii / SCANLINE_PAGES_PER_ROW)); // SCANLINE_CUR_Y);\
+            
     end
+/*
+  localparam       SCANLINE_FULL_XFER= 1<<NUM_XFER_BITS; // 64 - full page transfer in 8-bursts
+  localparam       SCANLINE_LAST_XFER= SCANLINE_WINDOW_W % (1<<NUM_XFER_BITS); // last page transfer size in a row
 
-    for (ii=0;ii<SCANLINE_WINDOW_H;ii = ii+1) begin // here assuming 1 page per line
+*/    
+    for (ii=0;ii< (SCANLINE_WINDOW_H * SCANLINE_PAGES_PER_ROW) ;ii = ii+1) begin // here assuming 1 page per line
         if (ii >= TEST_INITIAL_BURST) begin // wait page ready and fill page after first 4 are filled
             wait_status_condition (
                 MCNTRL_TEST01_STATUS_REG_CHN3_ADDR,
@@ -392,7 +429,23 @@ always #(CLKIN_PERIOD/2) CLK <= ~CLK;
                 (ii-TEST_INITIAL_BURST)<<16, // 4-bit page number
                 'hf << 16,  // mask for the 4-bit page number
                 1); // not equal to
-            write_block_scanline_chn(3, (ii & 3), SCANLINE_WINDOW_W << 2, SCANLINE_X0,SCANLINE_Y0+ii);
+//            write_block_scanline_chn(3, (ii & 3), SCANLINE_WINDOW_W, SCANLINE_X0,SCANLINE_Y0+ii);
+        SCANLINE_XFER_SIZE= ((SCANLINE_PAGES_PER_ROW>1)?
+                (
+                    (
+                        ((ii % SCANLINE_PAGES_PER_ROW) < (SCANLINE_PAGES_PER_ROW-1))?
+                        
+                        (1<<NUM_XFER_BITS):
+                        (SCANLINE_WINDOW_W % (1<<NUM_XFER_BITS))
+                    )
+                ):
+                (SCANLINE_WINDOW_W));
+        write_block_scanline_chn(
+            3,
+            (ii & 3),
+            SCANLINE_XFER_SIZE,
+            SCANLINE_X0 + ((ii % SCANLINE_PAGES_PER_ROW)<<NUM_XFER_BITS),  // SCANLINE_CUR_X,
+            SCANLINE_Y0 + (ii / SCANLINE_PAGES_PER_ROW)); // SCANLINE_CUR_Y);
         end
         write_contol_register(MCNTRL_TEST01_ADDR + MCNTRL_TEST01_CHN3_MODE,            TEST01_NEXT_PAGE);
     end
@@ -419,7 +472,18 @@ always #(CLKIN_PERIOD/2) CLK <= ~CLK;
     enable_memcntrl_channels(16'h000f); // channels 0,1,2,3 are enabled
 
     write_contol_register(MCNTRL_TEST01_ADDR + MCNTRL_TEST01_CHN2_MODE,            TEST01_START_FRAME);
-    for (ii=0;ii<SCANLINE_WINDOW_H;ii = ii+1) begin // here assuming 1 page per line
+    for (ii=0;ii<(SCANLINE_WINDOW_H * SCANLINE_PAGES_PER_ROW);ii = ii+1) begin
+        SCANLINE_XFER_SIZE= ((SCANLINE_PAGES_PER_ROW>1)?
+                (
+                    (
+                        ((ii % SCANLINE_PAGES_PER_ROW) < (SCANLINE_PAGES_PER_ROW-1))?
+                        
+                        (1<<NUM_XFER_BITS):
+                        (SCANLINE_WINDOW_W % (1<<NUM_XFER_BITS))
+                    )
+                ):
+                (SCANLINE_WINDOW_W));
+    
             wait_status_condition (
                 MCNTRL_TEST01_STATUS_REG_CHN2_ADDR,
                 MCNTRL_TEST01_ADDR + MCNTRL_TEST01_CHN2_STATUS_CNTRL,
@@ -429,13 +493,17 @@ always #(CLKIN_PERIOD/2) CLK <= ~CLK;
                 1); // not equal to
 // read block (if needed), for now just sikip   
         `ifdef TEST_SCANLINE_READ_SHOW
-            read_block_buf_chn (2, (ii & 3), SCANLINE_WINDOW_W << 2, 1 ); // chn=0, page=3, number of 32-bit words=256, wait_done
+            read_block_buf_chn (
+                2,
+                (ii & 3),
+                SCANLINE_XFER_SIZE <<2,
+                1 ); // chn=0, page=3, number of 32-bit words=256, wait_done
         `endif             
         write_contol_register(MCNTRL_TEST01_ADDR + MCNTRL_TEST01_CHN2_MODE,            TEST01_NEXT_PAGE);
     end
 `endif
 
-  #40000;
+  #20000;
   $finish;
 end
 // protect from never end
@@ -1059,6 +1127,32 @@ task set_all_sequences;
         end
 endtask
 
+task write_block_scanline_chn;  // S uppressThisWarning VEditor : may be unused
+    input integer chn; // buffer channel
+    input   [1:0] page;
+//    input integer num_words; // number of words to write (will be rounded up to multiple of 16)
+    input [NUM_XFER_BITS:0] num_bursts; // number of 8-bursts to write (will be rounded up to multiple of 16)
+    input integer startX;
+    input integer startY;
+    reg    [29:0] start_addr;
+    integer num_words;
+    begin
+//        $display("====== write_block_scanline_chn:%d page: %x X=0x%x Y=0x%x num=%d @%t", chn, page, startX, startY,num_words, $time);
+        $display("====== write_block_scanline_chn:%d page: %x X=0x%x Y=0x%x num=%d @%t", chn, page, startX, startY,num_bursts, $time);
+        case (chn)
+            1:  start_addr=MCONTR_BUF1_WR_ADDR + (page << 8);
+            3:  start_addr=MCONTR_BUF3_WR_ADDR + (page << 8);
+            default: begin
+                $display("**** ERROR: Invalid channel for write_block_scanline_chn = %d @%t", chn, $time);
+                start_addr = MCONTR_BUF1_WR_ADDR+ (page << 8);
+            end
+        endcase
+        num_words=num_bursts << 2;
+        write_block_incremtal (start_addr, num_words, (startX<<2) + (startY<<16)); // 1 of startX is 8x16 bit, 16 bytes or 4 32-bit words
+//        write_block_incremtal (start_addr, num_bursts << 2, (startX<<2) + (startY<<16)); // 1 of startX is 8x16 bit, 16 bytes or 4 32-bit words
+    end
+endtask
+
 
 `include "includes/x393_tasks_mcntrl_en_dis_priority.vh"
 `include "includes/x393_tasks_mcntrl_buffers.vh"