HP VXI 75000 C Series, User'S And Scpi Programming Manual

Page: 418 / 438

418 Example Program Listings Appendix G
if ( t != 0 )
{
int32 ltemp = round32f( log10( t ) / log10( 2.0 ) );
if ( (X ltemp) > 30 )
{
Xfactor = 30 - ltemp;
}
}
Mfactor = round32f( two_to_the_N(Xfactor)*slope );
if ( Mfactor == 32768 )
{
/* There is an endpoint problem. Re-compute if on endpoint */
Xfactor--;
Mfactor =round32f( two_to_the_N(Xfactor)*slope );
}
if ((Mfactor<=32767) && (Mfactor>= -32768) )
{
/* only save if M is within limits */
/* Adjust EX to match runtime.asm */
EX[jj] = (uint16)(Xofst - Xfactor );
M[jj] = (uint16)(Mfactor & 0xFFFF); /* remove leading 1’s*/
B = round32f( two_to_the_N(Xfactor )*result[ii-1] );
Bhigh[jj] = (uint16)((B >> 16) & 0x0000FFFF);
Blow[jj] = (uint16)(B & 0x0000FFFF);
}
} /* end for */
/*
* Build actual tables for downloading into the E1415 memory.
*/
for ( ii=0 ; ii<128 ; ii++ )
{ /* copy 64 sets of coefficents */
conv_array[ii*4] = M[ii];
conv_array[ii*4+1] = EX[ii];
conv_array[ii*4+2] = Bhigh[ii];
conv_array[ii*4+3] = Blow[ii];
/*
printf("%d %d %d %d %d\n",ii,M[ii],EX[ii],Bhigh[ii],Blow[ii]);
*/
}
return;
}
/* Main program */
/*ARGSUSED*/
/* Keeps lint happy */
int main(int argc, char *argv[])
{
/* Main program local variable declarations */
char *algorithm; /* Algorithm string */
int alg_num; /* Algorithm number being loaded */
char string[333]; /* Holds error information */
int32 error; /* Holds error number */
#if 0 /* Set to 1 if reading algorithm files */
/* Check pass parameters */
if ((argc < 2) || (argc > 33)) { /* Must have 1 to 32 algorithms */
usage(argv[0]);