fpga/x359/test_scripts/tests_for_96mhz.php

Go to the documentation of this file.

<?php
/*!***************************************************************************
*! FILE NAME  : tests_for_96mhz.php
*! DESCRIPTION: some tests for the 10359 board
*! Copyright (C) 2008 Elphel, Inc
*! -----------------------------------------------------------------------------**
*!
*!  This program is free software: you can redistribute it and/or modify
*!  it under the terms of the GNU General Public License as published by
*!  the Free Software Foundation, either version 3 of the License, or
*!  (at your option) any later version.
*!
*!  This program 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 General Public License for more details.
*!
*!  You should have received a copy of the GNU General Public License
*!  along with this program.  If not, see <http://www.gnu.org/licenses/>.
*! -----------------------------------------------------------------------------**
*!  $Log: tests_for_96mhz.php,v $
*!  Revision 1.1.1.1  2008/11/27 20:04:02  elphel
*!
*!
*!  Revision 1.2  2008/05/01 20:27:08  dzhimiev
*!  reformatted a little
*!
*!  Revision 1.1  2008/04/23 01:55:50  dzhimiev
*!  1. added x359 files to src lists
*!  2. x359 read/write DDR
*!  3. x359 3 channels mux directly to out
*!  4. x359 one channel through DDR and another directly frames switching at out
*!
*/

function send_i2c($width,$bus,$a,$d,$raw=0) { //$a<0 - use raw read/write
   $w=($width==16)?2:1;
   $i2c_fn='/dev/xi2c'.($raw?'raw':(($w==2)?'16':'8')).(($bus==0)?'':'_aux');
   $i2c  = fopen($i2c_fn, 'w');
   fseek ($i2c, $w*$a) ;
   if ($w==1)    $res=fwrite($i2c, chr ($d));
   else          $res=fwrite($i2c, chr (floor($d/256)).chr ($d-256*floor($d/256)));
   fclose($i2c);
   return $res;
} // end of send_i2c()

function receive_i2c($width,$bus,$a,$raw=0) {
   $w=($width==16)?2:1;
   $i2c_fn='/dev/xi2c'.($raw?'raw':(($w==2)?'16':'8')).(($bus==0)?'':'_aux');
   $i2c  = fopen($i2c_fn, 'r');
   fseek ($i2c, $w*$a);
   $data = fread($i2c, $w);
   fclose($i2c);
   if (strlen($data)<$w) return -1;
   $v=unpack(($w==1)?'C':'n1',$data);
   return $v[1];
} // end of receive_i2c()

function receive_i2c_4($width,$bus,$a,$raw=0) {
   $w=($width==16)?2:1;
   $i2c_fn='/dev/xi2c'.($raw?'raw':(($w==2)?'16':'8')).(($bus==0)?'':'_aux');
   $i2c  = fopen($i2c_fn, 'r');
         fseek ($i2c, 4, SEEK_END);
   fseek ($i2c, $w*$a);
         
   $data = fread($i2c, 2*$w);
   fclose($i2c);
   if (strlen($data)<2*$w) return -1;
   $v=unpack(($w==1)?'C*':'N*',$data);
         //print_r($v);
         //printf("0x%x\n",$v[1]);
         return $v[1];
} // end of receive_i2c()

function receive_i2c_n($width,$bus,$a,$raw=0) {
   $w=($width==16)?2:1;
   $i2c_fn='/dev/xi2c'.($raw?'raw':(($w==2)?'16':'8')).(($bus==0)?'':'_aux');
   $i2c  = fopen($i2c_fn, 'r');
         fseek ($i2c, 16*4, SEEK_END);
   fseek ($i2c, $w*$a);
         
   $data = fread($i2c, 2*$w*4*4);
   fclose($i2c);
   if (strlen($data)<2*$w) return -1;
   $v=unpack(($w==1)?'C*':'N*',$data);
         //print_r($v);
         //printf("0x%x\n",$v[1]);
         return array($v[1],$v[2],$v[3],$v[4],$v[5],$v[6],$v[7],$v[8],$v[9],$v[10],$v[11],$v[12],$v[13],$v[14],$v[15],$v[16]);
} // end of receive_i2c()

function send_i2c_4($width,$bus,$a,$d,$raw=0) { //$a<0 - use raw read/write
   $w=($width==16)?2:1;
   $i2c_fn='/dev/xi2c'.($raw?'raw':(($w==2)?'16':'8')).(($bus==0)?'':'_aux');
   $i2c  = fopen($i2c_fn, 'w');
   fseek ($i2c, $w*$a) ;
   if ($w==1)    $res=fwrite($i2c, chr ($d));
   else          $res=fwrite($i2c, chr (floor($d/(256*256*256))).chr (($d - 256*256*256*floor($d/(256*256*256)))/(256*256)).chr (($d - 256*256*floor($d/(256*256)))/256).chr ($d - 256*floor($d/(256))) );

         //printf("Sending passage ");
         printf("0x%02x%02x%02x%02x ",(floor($d/(256*256*256))),(($d - 256*256*256*floor($d/(256*256*256)))/(256*256)),(($d - 256*256*floor($d/(256*256)))/256),($d - 256*floor($d/(256))));     
         //printf("\n");

   fclose($i2c);
   return $res;
} // end of send_i2c()

function dcm_reset($width,$bus,$raw=0){

        printf("sent 0x%04x ",0x0810); send_i2c_4($width,$bus,0x0810,0xffffffff,$raw=0);
        printf("\nsent 0x%04x ",0x0810); send_i2c_4($width,$bus,0x0810,0x00000000,$raw=0);
        
}

function ramb_check($width,$bus,$raw=0){
        printf("Data sent:     ");

        send_i2c_4($width,0,0x0801,0x01020304,$raw=0);
        send_i2c_4($width,0,0x0801,0x05060708,$raw=0);
        send_i2c_4($width,0,0x0801,0x090a0b0c,$raw=0);
        send_i2c_4($width,0,0x0801,0x0d0e0f10,$raw=0);

        send_i2c_4($width,$bus,0x0801,0x11121314,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x15161718,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x191a1b1c,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x1d1e1f20,$raw=0);

        send_i2c_4($width,$bus,0x0801,0x21222324,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x25262728,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x292a2b2c,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x2d2e2f30,$raw=0);

        send_i2c_4($width,$bus,0x0801,0x31323334,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x35363738,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x393a3b3c,$raw=0);
        send_i2c_4($width,$bus,0x0801,0x3d3e3f40,$raw=0);

        printf("\nData received: ");
        for ($i=0;$i<16;$i++)
        {
                $data=receive_i2c_4($width,$bus,0x0868,$raw=0); // first try to read 4
                printf("0x%08x ",$data);// 0x%x",$data[2]);
        }
}

function ddr_init($width,$bus,$raw=0){

        printf("sent 0x%04x ",0x0827); send_i2c_4($width,$bus,0x0827,0x00000000,$raw=0); printf("\n");

        printf("sent 0x%04x ",0x0823); send_i2c_4($width,$bus,0x0823,0x00017fff,$raw=0); 

        $data=receive_i2c_4($width,$bus,0x0841,$raw=0); 
        printf("read 0x%04x 0x%08x\n",0x0841,$data);

        printf("sent 0x%04x ",0x0823); send_i2c_4($width,$bus,0x0823,0x00002002,$raw=0); 

        $data=receive_i2c_4($width,$bus,0x0841,$raw=0); 
        printf("read 0x%04x 0x%08x\n",0x0841,$data);

        printf("sent 0x%04x ",0x0823); send_i2c_4($width,$bus,0x0823,0x00000163,$raw=0); 

        $data=receive_i2c_4($width,$bus,0x0841,$raw=0); 
        printf("read 0x%04x 0x%08x\n",0x0841,$data);

        printf("sent 0x%04x ",0x0823); send_i2c_4($width,$bus,0x0823,0x00008000,$raw=0);

        $data=receive_i2c_4($width,$bus,0x0841,$raw=0); 
        printf("read 0x%04x 0x%08x\n",0x0841,$data);

        printf("sent 0x%04x ",0x0823); send_i2c_4($width,$bus,0x0823,0x00008000,$raw=0);

        $data=receive_i2c_4($width,$bus,0x0841,$raw=0); 
        printf("read 0x%04x 0x%08x\n",0x0841,$data);

        printf("sent 0x%04x ",0x0823); send_i2c_4($width,$bus,0x0823,0x00017fff,$raw=0); 

        $data=receive_i2c_4($width,$bus,0x0841,$raw=0);
        printf("read 0x%04x 0x%08x\n",0x0841,$data);

}

function ddr_check($width,$bus,$raw=0){

        printf("sent 0x%04x ",0x0827); send_i2c_4($width,$bus,0x0827,0x00000000,$raw=0); printf("\n");
        printf("sent 0x%04x ",0x0827); send_i2c_4($width,$bus,0x0827,0x00000001,$raw=0); printf("\n");

        printf("sent 0x%04x ",0x082c); send_i2c_4($width,$bus,0x082c,0x00004001,$raw=0); printf("\n");
        printf("sent 0x%04x ",0x082d); send_i2c_4($width,$bus,0x082d,0x000001f0,$raw=0); printf("\n");
        printf("sent 0x%04x ",0x082e); send_i2c_4($width,$bus,0x082e,0x00000005,$raw=0); printf("\n");

        printf("sent 0x%04x ",0x0827); send_i2c_4($width,$bus,0x0827,0x00000021,$raw=0); printf("\n");

        printf("\nSent array:\n");

        printf("<font color=\"#0000FF\">");


        for($aha=0;$aha<128;$aha++){
                send_i2c_4($width,$bus,0x0831,4*$aha,$raw=0);
                send_i2c_4($width,$bus,0x0831,4*$aha+1,$raw=0);
                send_i2c_4($width,$bus,0x0831,4*$aha+2,$raw=0);
                send_i2c_4($width,$bus,0x0831,4*$aha+3,$raw=0); printf("\n"); 
        }

        printf("\n");
        printf("</font>");

        printf("sent 0x%04x ",0x0834);send_i2c_4($width,$bus,0x0834,0x11223344,$raw=0); printf("\n");

        printf("sent 0x%04x ",0x082c); send_i2c_4($width,$bus,0x082c,0x00000001,$raw=0);printf("\n");
        printf("sent 0x%04x ",0x082d); send_i2c_4($width,$bus,0x082d,0x000001f0,$raw=0);printf("\n");
        printf("sent 0x%04x ",0x082e); send_i2c_4($width,$bus,0x082e,0x00000005,$raw=0);printf("\n");

        $data=receive_i2c_4($width,$bus,0x0860,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x ",0x0860);
        printf("acquired data is 0x%08x\n",$data);// 0x%x",$data[2]);

        $data=receive_i2c_4($width,$bus,0x0860,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x ",0x0860);
        printf("acquired data is 0x%08x\n",$data);// 0x%x",$data[2]);

        $data_array=receive_i2c_n($width,$bus,0x0833,$raw=0); // first try to read 4
        
        $j=0;   
        printf("\nAcquired data:\n");
        printf("<font color=\"#0000FF\">");

        for ($i=0,$index=count($data_array); $i<$index;$i++) 
        {
                printf("0x%08x ",$data_array[$i]);

                if ($j==3) 
                        {
                                $j=0; printf("\n");
                        }else{
                                $j++;
                        };
        }

        printf("</font>\n");

}

function ddr_read($width,$bus,$raw=0){

        printf("sent 0x%04x ",0x0834);send_i2c_4($width,$bus,0x0834,0x11223344,$raw=0); printf("\n");

        printf("sent 0x%04x ",0x082d); send_i2c_4($width,$bus,0x082d,0x000001f0,$raw=0);printf("\n");
        printf("sent 0x%04x ",0x082e); send_i2c_4($width,$bus,0x082e,0x00000000,$raw=0);printf("\n");
        

        printf("\nAcquired data:\n");

for($k=0;$k<2;$k++){

        printf("sent 0x%04x ",0x082c); send_i2c_4($width,$bus,0x082c,4*$k,$raw=0);printf("\n");


        for($g=0;$g<32;$g++){
                $data_array=receive_i2c_n($width,$bus,0x0833,$raw=0); // first try to read 4
                
                $j=0;

                printf("<font color=\"#0000FF\">");
                for ($i=0,$index=count($data_array); $i<$index;$i++) 
                {
                        printf("%08x ",$data_array[$i]);

                        if ($j==15) 
                                {
                                        $j=0; printf("\n");
                                }else{
                                        $j++;
                                };
                }
                printf("</font>");
        }

        printf("\n");
}

        printf("</font>\n");

}

function channels_init($width,$bus,$raw=0){
        send_i2c_4($width,$bus,0x0827,0x00000001,$raw=0); printf("sent %d\n",$cnt); $cnt++;
// initialize
        send_i2c_4($width,$bus,0x0827,0x00000003,$raw=0); printf("sent %d\n",$cnt); $cnt++;

        send_i2c_4($width,$bus,0x0821,0x00000ff0,$raw=0); printf("sent %d\n",$cnt); $cnt++;
        send_i2c_4($width,$bus,0x0822,0x00000fff,$raw=0); printf("sent %d\n",$cnt); $cnt++;
        send_i2c_4($width,$bus,0x0820,0x00004000,$raw=0); printf("sent %d\n",$cnt); $cnt++;

        //send_i2c_4($width,$bus,0x0827,0x00000007,$raw=0); printf("sent %d\n",$cnt); $cnt++;

        send_i2c_4($width,$bus,0x0829,0x00000ff0,$raw=0); printf("sent %d\n",$cnt); $cnt++;
        send_i2c_4($width,$bus,0x082a,0x00000fff,$raw=0); printf("sent %d\n",$cnt); $cnt++;
        send_i2c_4($width,$bus,0x0828,0x00000000,$raw=0); printf("sent %d\n",$cnt); $cnt++;

        send_i2c_4($width,$bus,0x0827,0x00000017,$raw=0); printf("sent %d\n",$cnt); $cnt++;
}

function sensor_init($width,$bus,$channel,$init_pars,$raw=0){


        for ($i=0;$i<256;$i++){
                send_i2c($width,$bus,0x4800+$i,$init_pars[$i],$raw=0);

                //printf("%04x ",$init_pars[$i]);       

                $readout=receive_i2c($width,$bus,0x4800+$i,$raw=0);
                printf("%04x ",$readout);

                if($j==15){
                        $j=0; printf("\n");
                }else{
                        $j++;
                }
        }
}

  $width=16;
  $bus=0;
        $adr=0x0860;
        $datax=5;
  $nopars=false;
  $raw=0;

        $phase_shift=0;
        $channel=33;
        $lines=1940;
        $pixes=2595;
        $delay=0x00ffffff;
        $sphase=7;
        $ch1_ch2_delay=115;

        printf("<pre>");

        foreach($_GET as $key=>$value) {
                switch($key) {
                        case "phase_shift"  : $phase_shift=$value+0;  break;
                        case "delay"        : $delay=$value+0;        break;
                        case "ch1_ch2_delay": $ch1_ch2_delay=$value+0;break;
                        case "channel"      : $channel=$value+0;      break;
                        case "lines"        : $lines=$value+0;        break;
                        case "pixes"        : $pixes=$value+0;        break;
                }
        }

        if ($phase_shift==0) {
                printf("<h3>Reset DCM</h3>");
                dcm_reset($width,$bus,$raw=0);

                printf("<h3>Set sensors data latch at rise='0'/fall='1'</h3>");
                send_i2c_4($width,$bus,0x083a,$sphase,$raw=0);

                printf("<h3>Set delay between ch1 and ch2 trigger signals</h3>");
                send_i2c_4($width,$bus,0x083b,$ch1_ch2_delay,$raw=0);

                printf("\nSwitch to sensor <font size=\"6\">1</font>\n");
                send_i2c_4($width,$bus,0x0835,0x00000001,$raw=0); 
                // read sens 1 pars
                for ($i=0;$i<256;$i++){
                        $init_pars[$i]=receive_i2c($width,$bus,0x4800+$i,$raw=0);

                        printf("%04x ",$init_pars[$i]); 

                        if($j==15){
                                $j=0; printf("\n");
                        }else{
                                $j++;
                        }
                        
                }
                // write sens1 pars to sens2
                send_i2c_4($width,$bus,0x0835,0x00000002,$raw=0); printf("\nInitializing sensor <font size=\"6\">2</font>\n");
                sensor_init(16,0,0x00000004,$init_pars,$raw=0);
                // write sens1 pars to sens3
                send_i2c_4($width,$bus,0x0835,0x00000004,$raw=0); printf("\nInitializing sensor <font size=\"6\">3</font>\n");
                sensor_init(16,0,0x00000002,$init_pars,$raw=0);

                send_i2c_4($width,$bus,0x0835,0x00000001,$raw=0); printf("\nSet back to sensor <font size=\"6\">1</font>\n");

                //phase adjustment
                for ($i=0;$i<20;$i++){
                        send_i2c_4($width,$bus,0x0807,0x00000001,$raw=0);
                }
        }else{
                printf("<h3>Phase Shift DCM</h3>");
                send_i2c_4($width,$bus,0x0808,$phase_shift,$raw=0);
        }

//      printf("<h3>RAMB & I2C test</h3>");
//      ramb_check($width,$bus,$raw=0);

        printf("<h3>DDR Initialization sequence</h3>");
        ddr_init($width,$bus,$raw=0);

        printf("<h3>Write data array to DDR and read it back</h3>");
        //ddr_check($width,$bus,$raw=0);

        send_i2c_4($width,$bus,0x0835,$channel,$raw=0); printf("\nSet channel to <font size=\"6\">$channel</font>\n");

        send_i2c_4($width,$bus,0x0838,$delay,$raw=0);

        send_i2c_4($width,$bus,0x0837,(0x10000*$lines)+$pixes,$raw=0); printf("\nSet frame resolution to <font size=\"6\">$pixes"."x$lines</font>\n");

        printf("<h3>Initialize channels 0 & 2</h3>");
        channels_init($width,$bus,$raw=0);


        //printf("<h3>Read DDR</h3>");
        //ddr_read($width,$bus,$raw=0);

        printf("</pre>");

?>

---