(root)/pts/PtsModule_CVI.c - Rev 52
Rev 81 |
Go to most recent revision |
Blame |
Compare with Previous |
Last modification |
View Log
| RSS feed
#include <cvirte.h>
#include "PtsModule.h"
#include <userint.h>
#include "PtsModule_CVI.h"
#include <utility.h>
#include <formatio.h>
static int p1
;
// ./pts -a 0x1000000 -v 1 -w 2 turn LED ON
// ./pts -a 0x1000000 -v 1 -w 1 turn LED OFF
#include <stdlib.h>
#include <stdio.h>
#include <ctype.h>
#include <string.h>
#ifndef CAEN_V1718
//typedef unsigned long uint32_t;
#endif
/*
void Delay(double t){
usleep(t*1e6);
}
*/
int verbose
;
uint32_t ptaddr
=0;
char str
[255];
int Pts_write
(uint32_t addr
, uint32_t data
){
int i
;
VME_A32D32_W
(ptaddr
+addr
,&data
);
return 0;
}
int Pts_Mwrite
(uint32_t addr
, uint32_t data
){
int i
;
VME_A32D32_MW
(ptaddr
+addr
,&data
);
return 0;
}
int Pts_read
(uint32_t addr
, uint32_t *data
){
VME_A32D32_R
(ptaddr
+addr
,data
);
return 0;
}
int Pts_erase
( int verbose
) {
uint32_t dum
;
Pts_write
( ADR_CSR1
, 0 );
Delay
(0.1);
Pts_read
( ADR_CSR1
, &dum
);
if( verbose
) {
sprintf(str
, "CSR1(0x%02x) = 0x%04x\n", ADR_CSR1
,dum
& 0xffff );
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
Pts_write
( ADR_CSR1
, CSR1_PROGRAM_
);
Delay
(0.1);
Pts_read
( ADR_CSR1
, &dum
);
if( verbose
) {
sprintf( str
, "CSR1(0x%02x) = 0x%04x\n", ADR_CSR1
, dum
& 0xffff );
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
return 1;
}
int Pts_configure_bit
( const char *filename
, int mode
, int verbose
) {
int c
,j
;
int dummyword
;
FILE
*fp
;
const long byte_per_dot
= BYTE_PER_DOT
;
unsigned long nchar
= 0;
if( ( fp
= fopen( filename
, "rb" ) ) == NULL
) {
if( verbose
) {
sprintf( str
, "cannot open \"%s\"\n", filename
);
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
return -1;
}
if(verbose
) sprintf( str
, "file \"%s\" opened.\n", filename
);
/* ------------------------------------------------------------ *\
The data for the configuration start from 0xffff_ffff_aa99_aa66
( cf. xapp138; we don't know the definition of the BIT file )
\* ------------------------------------------------------------ */
dummyword
= 0;
do{
if( (c
= getc( fp
)) == EOF
) {
if(verbose
) {
sprintf(str
, "EOF detected. Exit.\n");
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
return -1;
}
(c
== 0xff) ? dummyword
++ : (dummyword
=0);
} while( dummyword
< 4 );
// const long byte_per_dot = BYTE_PER_DOT;
// unsigned long nchar = 0;
if( mode
== SLAVESERIAL_MODE
) {
if(verbose
) SetCtrlVal
(p1
,P1_RESPONSE
,"slave serial mode");
Pts_write
( ADR_MODE
, mode
);
Pts_erase
( verbose
);
for( j
=0; j
<32; j
++ ) Pts_write
( ADR_CFG
, 0x1 );
while( (c
=getc(fp
))!=EOF
){
for( j
=0; j
<8; j
++ ) Pts_write
( ADR_CFG
, (c
>>(7-j
))&0x1 );
nchar
++;
if( verbose
&& nchar
%byte_per_dot
==0 ) {
sprintf( str
,"#");
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
}
} else if( mode
== SELECTMAP_MODE
) {
if( verbose
) SetCtrlVal
(p1
,P1_RESPONSE
,"select map mode\n");
Pts_write
( ADR_MODE
, SELECTMAP_MODE
);
Pts_erase
( verbose
);
for( j
=0; j
<4; j
++ ) Pts_write
( ADR_CFG
, 0xff );
VME_MWRST
();
while( (c
=getc(fp
))!=EOF
){
int cc
= 0;
for(j
=0; j
<8; j
++) cc
|= ((c
&(1<<j
))>>j
)<<(7-j
);
Pts_Mwrite
( ADR_CFG
, cc
);
nchar
++;
if( verbose
&& nchar
%byte_per_dot
==0 ){
VME_MWEXEC
();
VME_MWRST
();
sprintf( str
,"#");
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
}
VME_MWEXEC
();
} else {
if(verbose
) {
sprintf(str
, "\nIllegal mode\n");
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
return -1;
}
if(verbose
) {
sprintf(str
,"\ntotal %ld bits\n", nchar
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
fclose(fp
);
return Pts_check_configure
( verbose
);
}
int Pts_check_configure
( int verbose
) {
uint32_t csr1_value
;
Pts_read
(ADR_CSR1
,&csr1_value
);
if(verbose
) {
sprintf( str
,"CSR1(0x%02x)=0x%04x\n",ADR_CSR1
,csr1_value
&0xffff);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
if(csr1_value
&CSR1_DONE
) {
if(verbose
) SetCtrlVal
(p1
,P1_RESPONSE
, "configure complete.\n");
return 1;
} else {
if(verbose
) SetCtrlVal
(p1
,P1_RESPONSE
,"configure not complete.");
return -1;
}
}
int Pts_reset
( int verbose
) {
Pts_write
(ADR_CSR0
,1);
if( verbose
) {
sprintf( str
, "CSR0(0x%02x) = 0x01\n", ADR_CSR0
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
return 1;
}
int Pts_write_csr
( int verbose
, uint32_t value
) {
Pts_write
(ADR_CSR0
,value
);
if( verbose
) {
sprintf( str
,"Pts_write_csr 0x%08x\n", value
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
return 1;
}
void help
(char *argv
){
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -c .... Pts_check_configure\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -i filename -b mode (2) ... Pts_configure_bit\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -e .... Pts_erase\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -x .... Pts_reset\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -c .... Pts_check_configure\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -r .... vme read\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -w value .... vme write\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Usage: %s -a ptsaddr -v verbose -s value .... Pts_write_csr\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Example: %s --address 0x1000000 --verbose 1 --erase\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Example: %s --address 0x1000000 --verbose 1 --input pts_scaler.bit --load-bit 2\n", argv
);
SetCtrlVal
(p1
,P1_RESPONSE
,str
);
sprintf(str
,"Example: %s --address 0x1000004 --write-csr 0x7600\n", argv
);SetCtrlVal
(p1
,P1_RESPONSE
,str
);
}
int __stdcall WinMain
(HINSTANCE hInstance
, HINSTANCE hPrevInstance
,
LPSTR lpszCmdLine
, int nCmdShow
)
{
char saddr
[255];
if (InitCVIRTE
(hInstance
, 0, 0) == 0)
return -1; /* out of memory */
if ((p1
= LoadPanel
(0, "PtsModule_CVI.uir", P1
)) < 0)
return -1;
DisplayPanel
(p1
);
VME_START
(NULL
);
GetCtrlVal
(p1
,P1_VERBOSE
,&verbose
);
GetCtrlVal
(p1
,P1_ADDRESS
,saddr
);
ptaddr
= strtoul (saddr
,NULL
,0);
RunUserInterface
();
DiscardPanel
(p1
);
VME_STOP
();
return 0;
}
int CVICALLBACK Reset
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
case EVENT_COMMIT
:
Pts_reset
(verbose
);
break;
}
return 0;
}
int CVICALLBACK Erase
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
case EVENT_COMMIT
:
Pts_erase
(verbose
);
break;
}
return 0;
}
int CVICALLBACK Download
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
char filename
[254];
int mode
=0;
switch (event
)
{
case EVENT_COMMIT
:
GetCtrlVal
(p1
,P1_FIRMWARE
,filename
);
GetCtrlVal
(p1
,P1_MODE
,&mode
);
Pts_configure_bit
( filename
, mode
, verbose
);
break;
}
return 0;
}
int CVICALLBACK Check
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
case EVENT_COMMIT
:
Pts_check_configure
( verbose
);
break;
}
return 0;
}
int CVICALLBACK Read
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
uint32_t value
=0;
char str
[0xFF];
char saddr
[256];
int offset
;
switch (event
)
{
case EVENT_COMMIT
:
GetCtrlVal
(p1
,P1_OFFSET
,saddr
);
offset
= strtoul (saddr
,NULL
,0);
Pts_read
( offset
, &value
);
if( verbose
) {
sprintf(str
, "VME Read addr 0x%0x+0x%0x response 0x%0x\n", ptaddr
, offset
, value
);
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
break;
}
return 0;
}
int CVICALLBACK Write
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
int value
;
int offset
;
char svalue
[256];
char saddr
[256];
switch (event
)
{
case EVENT_COMMIT
:
GetCtrlVal
(p1
,P1_DATA
,svalue
);
GetCtrlVal
(p1
,P1_OFFSET
,saddr
);
value
= strtoul (svalue
,NULL
,0);
offset
= strtoul (saddr
,NULL
,0);
Pts_write
( offset
, value
);
if( verbose
) {
sprintf(str
, "VME Write addr 0x%0x+0x%0x data 0x%0x\n", ptaddr
, offset
, value
);
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
break;
}
return 0;
}
int CVICALLBACK WriteCSR
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
int value
;
char svalue
[256];
switch (event
)
{
case EVENT_COMMIT
:
GetCtrlVal
(p1
,P1_DATA
,svalue
);
value
= strtoul (svalue
,NULL
,0);
Pts_write_csr
( verbose
, value
);
break;
}
return 0;
}
int CVICALLBACK Verbose
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
int * data
;
switch (event
)
{
case EVENT_COMMIT
:
GetCtrlVal
(panel
,control
,&verbose
);
break;
}
return 0;
}
int CVICALLBACK Help
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
case EVENT_COMMIT
:
help
("PtsModule");
break;
}
return 0;
}
int CVICALLBACK Address
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
char saddr
[100];
switch (event
)
{
case EVENT_COMMIT
:
GetCtrlVal
(p1
,P1_ADDRESS
,saddr
);
ptaddr
= strtoul (saddr
,NULL
,0);
break;
}
return 0;
}
int CVICALLBACK Exit
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
case EVENT_COMMIT
:
QuitUserInterface
(0);
break;
}
return 0;
}
int CVICALLBACK FSelect
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
int status
;
char pathName
[MAX_PATHNAME_LEN
];
switch (event
)
{
case EVENT_COMMIT
:
status
= FileSelectPopup
("", "*.bit", "*.bit", "Select Firmware file",
VAL_SELECT_BUTTON
, 0, 0, 1, 0, pathName
);
if (status
>0) SetCtrlVal
(p1
,P1_FIRMWARE
,pathName
);
break;
}
return 0;
}
int CVICALLBACK LedCB
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
int value
=0;
case EVENT_COMMIT
:
GetCtrlVal
(p1
,P1_LED
,&value
);
Pts_write
( 0 , value
+1 );
break;
}
return 0;
}
int CVICALLBACK Execute
(int panel
, int control
, int event
,
void *callbackData
, int eventData1
, int eventData2
)
{
switch (event
)
{
case EVENT_COMMIT
:{
int n
,i
,nb
;
char buf
[400];
unsigned int data
, addr
;
char sdata
[255], saddr
[255], rw
[255];
GetNumTextBoxLines
(panel
, P1_COMMANDS
,&n
);
for (i
=0;i
<n
;i
++){
GetTextBoxLine
(panel
, P1_COMMANDS
, i
, buf
);
nb
= sscanf(buf
,"%s%s%s",rw
, saddr
,sdata
);
addr
= strtoul (saddr
,NULL
,0);
data
= strtoul (sdata
,NULL
,0);
if (strstr(rw
,"W")!=NULL
){
Pts_write
( addr
, data
);
if( verbose
) {
sprintf(str
, "VME Write addr 0x%0x+0x%0x data 0x%0x\n", ptaddr
, addr
, data
);
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
} else {
Pts_read
( addr
, &data
);
if( verbose
) {
sprintf(str
, "VME Read addr 0x%0x+0x%0x response 0x%0x\n", ptaddr
, addr
, data
);
SetCtrlVal
(p1
, P1_RESPONSE
, str
);
}
}
}
break;
}
}
return 0;
}