SRQ Transmitting and Confirming

short SrqSend, Stb;

short SPoll;

SrqSend = 1;                                             // Sets to SRQ transmitting

Stb = 10;                                                // Sets status byte to 10

Ret = GpibSendSRQ ( DevId, SrqSend, Stb );               // Transmits SRQ

if ( Ret == 0 ) {                                        // Confirms whether transfer normally completed

    SPoll = 0;                                           //

    do {

        Ret = GpibCheckSPoll ( DevId, &SPoll, &Stb );    // Confirms whether serial poll is done

        if ( Ret != 0) break;                            // Confirms whether it normally completed

    } while ( SPoll == 0 );                              // Loops until serial poll is done

    if ( SPoll == 1) Printf ( "Serial Polling \n" );     // Displays message when serial poll is done

}