KEPCO TMA VXI-27 - Manual (Page 78)

TMA VXI-27 101602
F-7/F-8
ret_val1 = WSwrt(adr_tst,rp_buff,0x5L,3,&retcount);
if(ret_val1 < 0)
FmtOut(
“%s<\n **ERR ret_value from *esr? = %x[w4]”,ret_val1);
else
ret_val1 = WSrd(adr_tst,rp_buff,0x10L,1,&retcount);
/* The following code waits for REQF signal */
signalmask = 0x0400L; /* REQF bit set */
timeout = 1000L; /* wait for 2 seconds */
retval = WaitForSignal(adr_tst, signalmask, timeout,
&retsignal, &retsignalmask);
/* test if signal received within the specified period */
if (retval == 0)
FmtOut(“ - Ok”);
else{
FmtOut(“%s<\n ** TIMEOUT waiting for REQF on level = %i”,i);
TestOk = 0;
}
/* test if one of the interrupt lines are still asserted */
ret = GetVXIbusStatusInd(-2, 5, &value);
if (value)
FmtOut(“\n **ERROR ** INTERRUPTS ASSERTED”);
} /* internal TestOk end - executed for i=1 thru 7 */
} /* for end */
} /* external TestOk end */
/* close the VXI library at the end of application */
CloseVXIlibrary();
}