fpga/x359/test_scripts/switch_to_ch2.php

Go to the documentation of this file.

<?php
/*!***************************************************************************
*! FILE NAME  : switch_to_ch2.php
*! DESCRIPTION: switches between channels
*! 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: switch_to_ch2.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++;
}



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

        $phase_shift=0;
        $channel=9;
        $lines=4;
        $pixes=1619;
        $delay=0x000fffff;
        $change_channel=0;
        $sphase=0x00000000;
        $ch1_ch2_delay=2;

        printf("<pre>");

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

if ($dr==1) {
dcm_reset($width,$bus,$raw=0);
}

if ($cc==1) {
send_i2c_4($width,$bus,0x083a,$sphase,$raw=0);
send_i2c_4($width,$bus,0x083b,$ch1_ch2_delay,$raw=0);
send_i2c_4($width,$bus,0x0838,$delay,$raw=0); printf("\nSet delay to <font size=\"6\">".$delay."0 ns</font>\n");
send_i2c_4($width,$bus,0x0835,$channel,$raw=0); printf("\nSet channel to <font size=\"6\">$channel</font>\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,0x0840,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x ",0x0840);
        printf("acquired data is 0x%08x\n",$data);// 0x%x",$data[2]);

        $data=receive_i2c_4($width,$bus,0x0870,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x \n",0x0870);
        printf("\nThe delay between frames <font size=\"6\">0x%08x</font>\n",$data);

        $data=receive_i2c_4($width,$bus,0x0871,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x \n",0x0871);
        printf("\nThe delay between frames <font size=\"6\">0x%08x</font>\n",$data);


/*
        send_i2c_4($width,$bus,0x0827,0x00000000,$raw=0);

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

if ($change_channel==1) {
        send_i2c_4($width,$bus,0x0827,0x00000000,$raw=0);
        sleep(1);
        send_i2c_4($width,$bus,0x0835,$channel,$raw=0); printf("\nSet channel to <font size=\"6\">$channel</font>\n");
        printf("<h3>Initialize channels 0 & 2</h3>");
        ddr_init($width,$bus,$raw=0);
        channels_init($width,$bus,$raw=0);
}else{
        printf("<h3>Channel has not changed</h3>");
}
*/

//      if ($phase_shift==0) {
//              printf("<h3>Reset DCM</h3>");
//              dcm_reset($width,$bus,$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");

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

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

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

        send_i2c_4($width,$bus,0x0839,0x01234567,$raw=0); printf("\n");
        sleep(1);

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

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

        $data=receive_i2c_4($width,$bus,0x0844,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x ",0x0844);
        printf("acquired data is 0x%08x\n",$data);// 0x%x",$data[2]);
        //send_i2c_4($width,$bus,0x0837,(0x10000*$lines)+$pixes,$raw=0); printf("\nSet normal & fake frame resolution to <font size=\"6\">$pixes"."x$lines</font>\n");

        sleep(1);

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

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

        $data=receive_i2c_4($width,$bus,0x0844,$raw=0); // first try to read 4
        printf("i2c_4 read slave 0x%04x ",0x0844);
        printf("acquired data is 0x%08x\n",$data);// 0x%x",$data[2]);*/
        //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>");

?>

---