REMOTE PROGRAMMING
4-16
char cmd[25];
sprintf (cmd, "UNT UNL MLA TALK %d", address); /
*
make the talk command string
*
/
transmit (&status, cmd);
/
*
send the talk command string
*
/
StatCheck (address);
/
*
check interface status
*
/
}
/
*
*********************************************************************
*
/
void TxGpib (int address,char
*
command)
/
*
transmit command to address
*
/
{
char t_string[150];
int result;
result = sprintf (t_string, "UNT UNL MTA LISTEN %d DATA '%s' END", address, command);
transmit (&status, t_string);
/
*
can also use the send () function in the CEC
library
*
/
StatCheck (address);
}
/
*
*********************************************************************
*
/
void GetGpib (int address)
/
*
get an answer from device at address
*
/
{
char r_string[40], temp[80];
sprintf (r_string, "UNT UNL MLA TALK %d", address);
transmit (&status, r_string);
/
*
make device a talker
*
/
StatCheck (address);
/
*
check status for ok
*
/
strcpy (temp, " ");
/
*
init answer string to null
*
/
receive (&status, &length, temp);
/
*
receive answer
*
/
StatCheck (address);
/
*
check status for ok
*
/
strcpy (recv, temp);
/
*
copy receive string to global strinb recv[]
*
/
}
/
*
********************************************************************
*
/
void StatCheck (int address)
/
*
check the gpib status and exit if error
*
/
{
if (status != 0 && status != 32)
{ printf ("Error at device %d : status = %d",address,status); exit (0); }
}
/
*
********************************************************************
*
/
