Keithley 2002

Calibration Programs
B-17
}
}
void settle() /* Calibrator settle. */
{
int stat;
do {
fprintf(ieeeout,"output 4;isr?\n");
fprintf(ieeeout,"enter 4\n");
fscanf(ieeein,"%d",&stat);
}
while (!(stat & 0x1000));
}
void endpgm() /* End program. */
{
fprintf(ieeeout,"output 4;stby\n");
printf("Calibration aborted.\n");
fprintf(ieeeout,"local 4 16\n");
exit(1);
}