fpga/x359/test_scripts/phases_adjust.php

Go to the documentation of this file.

<?php
/*!***************************************************************************
*! FILE NAME  : adjust_phases.php
*! DESCRIPTION: Provides single byte/short r/w from/to the i2c
*!              Setting per-slave protection mask,
*!              Synchronizing system clock with a "CMOS" one
*! 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: phases_adjust.php,v $
*!  Revision 1.1  2008/06/23 08:11:58  dzhimiev
*!  1. added more scripts for 10359 board
*!
*!  Revision 1.2  2008/06/16 07:43:58  dzhimiev
*!  mcontr address range changed from 0x0820-0x082F to 0x0840-0x085F (for making extra channels)
*!
*!  Revision 1.2  2008/02/13 00:30:01  elphel
*!  Added system time synchronization  with "CMOS" clock
*!
*!  Revision 1.1  2008/02/12 21:53:20  elphel
*!  Modified I2c to support multiple buses, added raw access (no address registers) and per-slave protection bitmasks
*!
*!
*/

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 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("<font size=\"4\">Resetting DCMs</font>\n");
        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);
        printf("\n\n");
}

  $width=16;
  $bus=0;
  $raw=0;

        $phase_shift=0;
        $dcm_addr=0;
        $n=1;

        $sphase=0x7;

        printf("<pre><title>Phases adjust</title>");

        foreach($_GET as $key=>$value) {
                switch($key) {
                        case "rst"            : $dcm_rst=$value+0;        break;
                        case "dcm"            : $dcm_addr=$value+0;       break;
                        case "phase_shift"    : $phase_shift=$value+0;    break;
                        case "n"              : $n=$value+0;              break;
                        case "sphase"         : $sphase=$value+0;         break;
                }
        }

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

switch($dcm_addr) {
        case 1  : $adr=0x0807; break;
        case 2  : $adr=0x0809; break;
        case 3  : $adr=0x080a; break;
        default : $adr=0;
}

if ($dcm_addr<>0){
        for($i=0;$i<$n;$i++){
                send_i2c_4($width,$bus,$adr,$phase_shift,$raw=0);
                usleep(1);
        }
        printf("DCM %d, number of shifts applied: <font size=\"6\">%d</font>\n",$dcm_addr,$n);
}

        $adr=0x083a;
        send_i2c_4($width,$bus,$adr,$sphase,$raw=0);

        if (($sphase & 0x1)==0x1) printf("S1. Vact/Hact - sclk0 FALLING edge, PXD - sclk0 FALLING edge\n");
        else                      printf("S1. Vact/Hact - sclk0  RISING edge, PXD - sclk0 FALLING edge\n"); 

        if (($sphase & 0x2)==0x2) printf("S2. Vact/Hact - sclk0 FALLING edge, PXD - sclk0 FALLING edge\n");
        else                      printf("S2. Vact/Hact - sclk0  RISING edge, PXD - sclk0 FALLING edge\n");

        if (($sphase & 0x4)==0x4) printf("S3. Vact/Hact - sclk0 FALLING edge, PXD - sclk0 FALLING edge\n");
        else                      printf("S3. Vact/Hact - sclk0  RISING edge, PXD - sclk0 FALLING edge\n");

        $adr=0x0861;
        $data=receive_i2c_4($width,$bus,$adr,$raw=0);
        printf("read 0x%04x : DCM1 phase step number is <font size=\"6\">0x%08x</font>\n",$adr,$data);
        
        $adr=0x0862;
        $data=receive_i2c_4($width,$bus,$adr,$raw=0);
        printf("read 0x%04x : DCM_S2 phase step number is <font size=\"6\">0x%08x</font>\n",$adr,$data);

        $adr=0x0863;
        $data=receive_i2c_4($width,$bus,$adr,$raw=0);
        printf("read 0x%04x : DCM_S3 phase step number is <font size=\"6\">0x%08x</font>\n",$adr,$data);

printf("</pre>");

?>

---